Alumna: Rosa Katya Jovel Barahona GT: 02

Carnet: JA13009

Desarrollo de función cuadrática en RStudio

raíz_cuadrada <-function(a,b,c){
  x1<-(-b+sqrt(b^2-(4*a*c)))/(2*a)
  x2<-(-b-sqrt(b^2-(4*a*c)))/(2*a)
  print(paste("El valor de x1 es", x1))
  
  print(paste("El valor de x2 es", x2))
}
a<- 1
b<- -5
c<- 6
raíz_cuadrada(a,b,c)
## [1] "El valor de x1 es 3"
## [1] "El valor de x2 es 2"

Condición para discriminante de la función

raíz_cuadrada <-function(a,b,c){
  if((b^2-4*a*c)>=0)
  {x1<- (-b+sqrt(b^2-(4*a*c)))/(2*a) 
  x2<- (-b-sqrt(b^2-(4*a*c)))/(2*a)
  print(paste("El valor de x1 es", x1))
  
  print(paste("El valor de x2 es", x2))}
  else{"hay raíces complejas de calcular"}
}
a<-2
b<-2
c<-6
raíz_cuadrada(a,b,c)
## [1] "hay raíces complejas de calcular"