Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
ax² + bx + c = 0 (Solução e gráfico com as raízes)
# 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)
run
|
edit
|
history
|
help
0
28-09-2020Int-poli-inter
Generate numbers based on mean and stdev
Simple Plot
Sensitivity to Escitalopram MACE count
31-08-2020-Exemplo Ajuste
law of large numbers
Gab1A
R1
Multiple Regression and Binomial Regression Sample
Gamma