Pontos de Máximo e Mínimo
# ponto de máximo da equação y=2+2.65x-0.0352x^2
e1=function(x){2+2.65*x-0.0352*x^2}
plot(e1, 2,50)
optimize(e1, c(2,50), maximum=TRUE)
# ponto de mínimo da equação y=2-2.65x+0.0352x^2
e2=function(x){2-2.65*x+0.0352*x^2}
plot(e2, 2,50)
optimize(e2, c(2,50), maximum=FALSE)
# ponto de máximo e mínimo de função de grau 3
e3=function(x){2-1.02*x+0.0352*x^2-0.000352*x^3}
plot(e3, 2,50)
optimize(e3, c(30,50), maximum=TRUE)
optimize(e3, c(2,30), maximum=FALSE)