diseña un script en R para resolver la ecuación de segundo grado
Claro, puedo ayudarte a diseñar un script en R para resolver una ecuación de segundo grado, que tiene la forma general:
\[ ax^2 + bx + c = 0 \]
Donde \( a \), \( b \) y \( c \) son coeficientes. La fórmula para encontrar las soluciones es:
\[ x = \frac{{-b \pm \sqrt{{b^2 - 4ac}}}}{{2a}} \]
Aquí tienes un script básico en R para resolver esta ecuación:
```r
# Función para resolver una ecuación de segundo grado
resolver_ecuacion_segundo_grado <- function(a, b, c) {
# Comprobación de que 'a' no sea cero
if (a == 0) {
stop("El coeficiente 'a' no puede ser 0 en una ecuación de segundo grado.")
}
# Cálculo del discriminante
discriminante <- b^2 - 4 * a * c
# Análisis del discriminante
if (discriminante > 0) {
# Dos soluciones reales diferentes
x1 <- (-b + sqrt(discriminante)) / (2 * a)
x2 <- (-b - sqrt(discriminante)) / (2 * a)
return(c(x1, x2))
} else if (discriminante == 0) {
# Una solución real
x <- -b / (2 * a)
return(c(x))
} else {
# Soluciones complejas
parte_real <- -b / (2 * a)
parte_imaginaria <- sqrt(-discriminante) / (2 * a)
x1 <- complex(real = parte_real, imaginary = parte_imaginaria)
x2 <- complex(real = parte_real, imaginary = -parte_imaginaria)
return(c(x1, x2))
}
}
# Ejemplo de uso
# Definir los coeficientes a, b, c
a <- 1
b <- -3
c <- 2
# Llamar a la función y mostrar las soluciones
soluciones <- resolver_ecuacion_segundo_grado(a, b, c)
print(soluciones)
```
### Explicación del script:
1. **Función:** `resolver_ecuacion_segundo_grado` es la función que toma tres argumentos: `a`, `b`, y `c`.
2. **Comprobación de 'a':** Verifica si `a` es cero, ya que en ese caso no sería una ecuación de segundo grado.
3. **Cálculo del discriminante:** Se calcula el discriminante \( b^2 - 4ac \).
4. **Análisis del discriminante:**
- Si el discriminante es positivo, hay dos soluciones reales.
- Si el discriminante es cero, hay una solución real.
- Si el discriminante es negativo, hay dos soluciones complejas.
5. **Ejemplo de uso:** Puedes cambiar los valores de `a`, `b`, y `c` en el ejemplo para encontrar soluciones diferentes.
Guarda este código en un archivo con extensión `.R` y ejecútalo en un entorno R para ver las soluciones de la ecuación cuadrática que definas.