From 883c52397c85b1432582c76a53e427b660612ef9 Mon Sep 17 00:00:00 2001 From: Walmes Zeviani <walmes@ufpr.br> Date: Mon, 30 Jul 2018 22:10:32 -0300 Subject: [PATCH] Conserta erro em operador relacional. --- slides/01-revis-program.Rnw | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/slides/01-revis-program.Rnw b/slides/01-revis-program.Rnw index 1a1218d..152710d 100644 --- a/slides/01-revis-program.Rnw +++ b/slides/01-revis-program.Rnw @@ -319,7 +319,7 @@ source("config/setup.R") baskara <- function(a, b, c) { stopifnot(a != 0) delta <- b^2 - 4 * a * c - if (delta > 0) { + if (delta >= 0) { den <- 2 * a sqrt_delta <- sqrt(delta) x1 <- (-b - sqrt_delta)/den -- GitLab