ax² + bx + c = 0 (Solução e gráfico com as raízes), R

Language: Layout:

# Função que calcula raízes de uma equação do segundo grau e faz o gráfico 
# destacando as raízes da equação.

sg <- function(a,b,c){
  delta <- b^2 - 4*a*c
  r1 <-  (-b + sqrt(delta))/(2*a)
  r2 <-  (-b - sqrt(delta))/(2*a)
  
  f <- function(x){
    a*x^2 + b*x + c 
  }
  
  if(a == 0){
    warning(" 'a' tem que ser diferente de zero")
    break;
  }
  
  if(delta < 0){
    warning("Não existem raízes reais")
    break;
  }
  
  if(delta == 0){
    cat("Raíz: ", round(r1,3))
    curve(f, col = 'red')
    points(r1,0, col  = 'red', pch = 19)
    break;
  }
  
  if(delta > 0){
    cat("Raízes: ",round(r1,3), ",", round(r2,3))
  }
  
  if(r1 > r2){
    curve(f, col = 'red', r1 + 2 , r2 - 2)
    abline(h=0, v=0)
    points(r1,0, col  = 'red', pch = 19)
    points(r2,0, col  = 'red', pch = 19)
  }
  
  if(r1 < r2){
    curve(f, col = 'red', r1 - 2 , r2 + 2)
    abline(h=0, v=0)
    points(r1,0, col  = 'red', pch = 19)
    points(r2,0, col  = 'red', pch = 19)
  }

}

sg(6,12,2)
cat("\n ")
sg(-5,8,8)

[ + ] Show input
Absolute running time: 1.09 sec, cpu time: 1.1 sec, memory peak: 32 Mb, absolute service time: 1,11 sec