Gráficos

Esse relatório pretende apresentar alguns gráficos do livro Fundamentos de Matemática Elementar

f1 <- function(a,b,c,x){
  a*x^2+b*x+c
}

Gráfico 1

Esse gráfico foi retirado da página tal….

a <- 1
b <- 0
c <- -4
curve(f1(a,b,c,x), 
      from = -5, 
      to =5, 
      col = "red",
      panel.first = grid(20, 20, lty = 2, lwd = 2),
      xlim = c(-5,5),
      ylim = c(-5,15),
      main = bquote("Gráfico da função"~y==x^2-4),
      xlab = "Valores de x",
      ylab = "Valores de y")
abline(h=0, v=0, col = "blue")
mtext("Produzido por Renan Miranda", 4,0)
x1 <- 4
points(x1, f1(a,b,c,x1), "p", pch = 20)
x2 <- x1+0.4
text(x2, f1(a,b,c,x1-0.2), paste("(", x1,",",f1(a,b,c,x1),")"))