Resuelve la siguiente ecuación en radicales.
Uso Magma para verificar que su grupo de Galois es un grupo soluble.
R := RationalField();
R < x > := PolynomialRing(R);
f := x^8-8*x^7+8*x^6+40*x^5-14*x^4-232*x^3+488*x^2-568*x+1;
G := GaloisGroup(f);
print G;
GroupName(G: TeX:=true);
IsSolvable(G);
La salida de Magma (en línea) es:
Permutation group G acting on a set of cardinality 8
Order = 16 = 2^4
(2, 4)(6, 8)
(1, 2, 3, 4)(5, 6, 7, 8)
(1, 5)(2, 8)(3, 7)(4, 6)
C_2\times D_4
true
También traté de calcular con PARI/GP(64-bit)v_2.13.3+GAP(64-bit)v_4.11.1, pero fallé.
gap> LoadPackage("radiroot");
true
gap> x := Indeterminate(Rationals,"x");;
gap> g := UnivariatePolynomial( Rationals, [1,-8,8,40,-14,-232,488,-568,1]);
x^8-8x^7+8x^6+40x^5-14x^4-232x^3+488x^2-568x+1
gap> RootsOfPolynomialAsRadicals(g, "latex");
"/tmp/tmp.sfoZ6C/Nst.tex"
Error,AL_EXECUTABLE,the executable for PARI/GP,has to be set at /proc/
cygdrive/C/gap-4.11.1/pkg/aInuth-3.1.2/gap/kantin.gi : 205 called from
Bueno, en honor a una vieja caricatura, diré que ocurre un milagro. Pero, ¿podemos ponernos detrás de la cortina para ver cómo se hacen los efectos especiales?
Si sacas la raíz cuadrada de, digamos, por el método estándar de "división larga", se obtiene con un resto de , que puede interpretarse como la ecuación
Podemos adaptar este método para determinar la raíz cuadrada de un polinomio, y para el dado en este problema terminamos con esto:
Si el resto fuera una constante multiplicada por un cuadrado, entonces podríamos representar nuestro polinomio óctico en la forma o quizás , obteniendo un par de factores cuárticos que luego serían resolubles por radicales de la forma habitual. Lamentablemente, no podemos hacer eso porque el resto es un polinomio cúbico. Sin embargo, el hecho de que los coeficientes de este resto tengan un factor común hace que uno diga "hmmm...". ¿Qué pasaría si hubiera una forma de modificar el resto para que tuviera un grado par y pudiera ser una cantidad cuadrada (o mejor aún, una constante multiplicada por uno)?
Empecé notando que la raíz cuadrada de determinado por el método estándar resulta como con un resto de . Pero, ¿realmente tenía que representar el "cociente" como ? Si permito un resto negativo en la etapa final, tal vez podría representar la raíz como en cambio, en cuyo caso el resto es de hecho negativo y obtenemos una expresión igualmente válida que la primera que cité:
pero también
Incluso podríamos decir que la segunda forma es superior porque, con el resto absolutamente más pequeño, da el valor redondeado de (correctamente) como en lugar de .
Ahora, ¿qué podemos hacer con nuestra raíz cuadrada polinomial? Digamos que, tal como representamos el último dígito de la raíz como en lugar de cuando sacamos la raíz cuadrada de , dejamos el término constante en nuestra expresión cuártica como algo distinto de . Obtenemos
¿Puede este resto ser una cantidad al cuadrado, tal vez multiplicada por una constante, para algún valor de , presumiblemente racional?
Una condición necesaria para que esto ocurra en la expresión cuartica es . Aquí requerimos
Convertimos esto en una ecuación polinomial cúbica para , buscar raíces racionales y descubrir . Volvemos a decir "hmmm...", porque no solo dimos con una raíz racional sino que incrementamos de su valor anterior ( ) por la mitad del factor común de vimos en el resto anterior.
insertamos y obtener
Si la cantidad entre paréntesis fuera un cuadrado, sería para hacer coincidir los términos de grado 4, grado 3, grado 1 y grado 0 (que nuestra ecuación para fue diseñado para hacer). Pero, ¿obtenemos el término de grado 2 adecuado? De hecho:
¡y hemos acertado con nuestro resto al cuadrado!
Así que ahora solo factorizamos el polinomio óctico como una diferencia de cuadrados cuyas raíces contienen o equivalente :
y luego resolvemos cada factor cuártico por el método usual.
Las raíces, con todos los radicales definidos como números reales no negativos, son
Este conjunto de raíces se ajusta al simetría del cálculo del grupo de Galois.
Solo para explicar por qué falló el intento de calcular en GAP. El mensaje de error fue producido por el paquete Alnuth GAP del cual depende RadiRoot, y Alnuth a su vez requiere PARI/GP . Si todo está instalado, el código en cuestión funcionó (también tenga en cuenta el orden correcto de los coeficientes):
gap> LoadPackage("radiroot");
true
gap> x := Indeterminate(Rationals,"x");;
gap> g := UnivariatePolynomial( Rationals, [1,-568,488,-232,-14,40,8,-8,1]);
x^8-8*x^7+8*x^6+40*x^5-14*x^4-232*x^3+488*x^2-568*x+1
gap> RootsOfPolynomialAsRadicals(g, "latex");
"/var/folders/dt/some_random_path/tempfilename.tex"
Escribió un archivo temporal y mostró su nombre. El archivo contiene todos los comandos necesarios para compilarlo con LaTeX, y solo muestro aquí la parte crucial de la salida (sin modificar el contenido, por lo que tiene algunos detalles redundantes) que dice lo siguiente:
Una expresión por radicales para las raíces del polinomio
con el -ésima raíz de la unidad yes:
Para otras fuentes de ayuda con GAP, especialmente con paquetes GAP específicos, consulte la descripción de la etiqueta GAP .
aInuth
debería ser alnuth
). Ahora he actualizado mi respuesta.Un cálculo de Pari muestra que el discriminante del grado campo numérico generado por una raíz del polinomio es el producto de una potencia de y un poder de . Por lo tanto, cualquier subcampo cuadrático de es de la forma con un divisor de . Un cálculo de Pari muestra que factores en un producto de dos grados factores irreducibles sobre y más . Esto implica que tenemos . Un cálculo final de Pari muestra que es un producto de cuatro polinomios cuadráticos en . Sus raíces son iguales a y sus conjugados.
Pedro
Óscar Lanzí