Primero, comencemos con algunas definiciones que serán útiles para este tema y esta respuesta.
Un número es algebraico si es la raíz de un polinomio con coeficientes enteros. No todos los números racionales son algebraicos, los números algebraicos también pueden ser reales o complejos.
Un número trascendental es un número que no es algebraico, ‘trasciende’ los números que son raíces de polinomios que tienen coeficientes enteros.
Este puede ser un tema amplio y diversificado, pero comenzaré respondiendo (o tratando de responder con precisión) la pregunta dada, luego se pueden discutir otros temas relacionados.
- ¿Hay enteros distintos por pares [matemática] (x, y, z [/ matemática]) y un número primo impar [matemática] p [/ matemática] tal que [matemática] p [/ matemática] divide ambos [matemática] x + y + z [/ math] y [math] 1 – xyz? [/ math]
- ¿Cómo divido y simplifico [matemáticas] \ frac {18x ^ 7} {2y ^ 7} \ div \ frac {81x ^ 4} {6y ^ 2} [/ matemáticas]
- ¿Cuál es la forma más fácil de descubrir raíces cuadradas?
- Teniendo una función de Haskell como ‘dos veces fx = f (fx)’, ¿cuál es la regla que puedo aplicar para obtener su tipo (sin HUGS o similar)?
- ¿Se considera [matemática] x = y ^ 2 [/ matemática] una parábola?
Para la pregunta dada, las soluciones triviales obvias incluyen los siguientes enteros:
[matemáticas] \ displaystyle (x, y, z) = (0,0,0) [/ matemáticas]; [matemáticas] \ displaystyle (x, y, z) = (a, 0, a) [/ matemáticas]; [matemáticas] \ displaystyle (x, y, z) = (0, a, a) [/ matemáticas].
Las ecuaciones se parecen a las del último teorema de Fermat, pero aquí las potencias son [matemáticas] \ pi [/ matemáticas] y [matemáticas] e [/ matemáticas], que son números irracionales y trascendentales.
Traté de encontrar soluciones con la ayuda de Maple y Mathematica, pero parece que Maple no da respuestas perspicaces u originales y precisas como Mathematica.
Como solución general para [math] \ displaystyle x ^ {\ pi} + y ^ {\ pi} = z ^ {\ pi} [/ math], si comenzamos con dos enteros dados [math] x [/ math] y [matemática] y [/ matemática], [matemática] z [/ matemática] estará dada por:
[matemáticas] \ displaystyle (x, y, z) = \ left (x, y, \ left (x ^ {\ pi} + y ^ {\ pi} \ right) ^ {1 / \ pi} \ right) [ /matemáticas]
De manera similar para [matemáticas] \ displaystyle x ^ e + y ^ e = z ^ e [/ matemáticas], comenzando con dos enteros dados [matemáticas] x [/ matemáticas] y [matemáticas] y [/ matemáticas], [matemáticas] z [/ math] será dado por:
[matemáticas] \ displaystyle (x, y, z) = \ left (x, y, \ left (x ^ e + y ^ e \ right) ^ {1 / e} \ right) [/ math]
Se puede ver que si [matemática] x [/ matemática] y [matemática] y [/ matemática] son enteros, [matemática] z [/ matemática] probablemente no sea un entero.
A continuación se muestra una gráfica 3D de [matemáticas] \ displaystyle x ^ {\ pi} + y ^ {\ pi} = z ^ {\ pi} [/ matemáticas] y [matemáticas] \ displaystyle x ^ e + y ^ e = z ^ e [/ matemáticas]:
El código de Mathematica para la gráfica anterior es:
ContourPlot3D [{x ^ Pi + y ^ Pi – z ^ Pi == 0, x ^ E + y ^ E – z ^ E == 0},
{x, 0, 200}, {y, 0, 200}, {z, 0, 200},
Malla -> Ninguno, PlotTheme -> “Detallado”]
Aquí hay otra gráfica 3D similar que muestra la forma de las soluciones y curvas para [matemática] x [/ matemática] y [matemática] y [/ matemática] entre 300 y 400, y para [matemática] z [/ matemática] entre 370 y 450:
A continuación se muestra un gráfico discreto que muestra los valores de [matemáticas] \ displaystyle x ^ {\ pi} + y ^ {\ pi} = z ^ {\ pi} [/ math] (o equivalente [math] \ displaystyle z = \ left (x ^ {\ pi} + y ^ {\ pi} \ right) ^ {1 / \ pi} [/ math]) para x e y de 1 a 20:
Código de Mathematica para la gráfica anterior:
DiscretePlot3D [(x ^ Pi + y ^ Pi) ^ (1 / Pi), {x, 1, 20}, {y, 1, 20},
ColorFunction -> Function [{x, y}, ColorData [“NeonColors”] [y]]]
Y a continuación se muestra el gráfico discreto que muestra los valores de [math] \ displaystyle x ^ e + y ^ e = z ^ e [/ math] (o [math] \ displaystyle z = \ left (x ^ e + y ^ e \ derecha) ^ {1 / e} [/ math]) para x e y de 1 a 30:
Traté de idear una prueba para encontrar si para los valores enteros de x e y entre 1 y 5000, se podía encontrar un valor entero de z. Utilicé el siguiente código de Mathematica para la potencia [math] \ pi [/ math]:
kr = (i ^ Pi + j ^ Pi) ^ (1 / Pi);
Tabla [If [IntegerQ [kr], kr, (## 1 &) []], {i, 1, 5000, 1}, {j, 1, 5000, 1}]
No se encontró ningún valor entero de z correspondiente a los enteros x e y (o i y j).
Se usó la misma prueba para valores enteros de x e y que varían entre 1 y 5000 y para la potencia [matemática] e [/ matemática], y no se encontró ningún valor entero de z.
A la luz de los resultados y las pruebas anteriores, creo que se puede extrapolar o conjeturar o concluir que no hay tres enteros positivos [matemática] x [/ matemática] , [matemática] y [/ matemática] y [matemática] z [/ matemática ] se puede encontrar de manera tal que [matemática] \ displaystyle x ^ {\ pi} + y ^ {\ pi} = z ^ {\ pi} [/ math] y [math] \ displaystyle x ^ e + y ^ e = z ^ e [/ matemáticas]. Si dos de estos números son enteros, el tercero no es un entero. Por supuesto, si o cuando se encuentra un contraejemplo, mi declaración anterior será incorrecta, pero creo que es muy poco probable.
El número [math] \ displaystyle z = \ left (x ^ e + y ^ e \ right) ^ {1 / e} [/ math] o [math] \ displaystyle z = \ left (x ^ {\ pi} + y ^ {\ pi} \ right) ^ {1 / \ pi} [/ math] podría ser irracional, o irracional y trascendental. Probar si el número z anterior no es algebraico usando el símbolo del Elemento [] incorporado en Mathematica y el uso de Wolfram Alpha dio resultados diferentes e inconclusos.
Los valores complejos para [matemática] x [/ matemática], [matemática] y [/ matemática] y [matemática] z [/ matemática] se pueden encontrar utilizando la función incorporada FindInstance [] en Mathematica.
Ahora presentaré algunas observaciones y resultados sobre el último teorema de Fermat para exponentes fraccionales e irracionales de Frank Morgan (1) , mencionado por Tom Hyer.
Para la ecuación [matemáticas] 2 ^ x + 3 ^ x = 4 ^ x [/ matemáticas], la solución real es más exactamente igual a:
[matemáticas] x = 1.507126591638653145821535872528329491615 [/ matemáticas]
Se pueden encontrar otros valores complejos de x utilizando la función FindInstance [] en Mathematica.
Para la ecuación [matemáticas] \ displaystyle 1 ^ n + 2 ^ n = 4 ^ n [/ matemáticas], n tiene la siguiente solución general (valor complejo) según Mathematica:
Se pueden encontrar muchos valores complejos específicos de n usando FindInstance [], como:
Al resolver la ecuación para [math] n \ in \ mathbb {R} [/ math], se obtiene el resultado:
que concuerda con el resultado encontrado en el documento (1).
[math] \ text {csch} ^ {- 1} (x) [/ math] es la cosecante hiperbólica inversa de [math] x [/ math].
Al buscar otros valores con la ayuda de Mathematica, revisé y encontré el siguiente resultado:
Exploré y calculé otros resultados relacionados con la pregunta y el artículo (1) con Mathematica, y recopilé estos resultados en tres archivos pdf que coloqué en mi sitio web / blog. Para aquellos interesados, aquí están los enlaces a estos archivos:
https: //knowledgemix.files.wordp…
https: //knowledgemix.files.wordp…
https: //knowledgemix.files.wordp…
Espero que mi respuesta haya sido útil y útil.