Intenta interpretar el código bien antes de adaptarlo a tu proyecto y si ttienes algo que aportar puedes decirlo en los comentarios.
Solución:
Puedes anotar esto como un error de W|A.
De hecho, tratamos de factorizar con el enfoque establecido por OP. Cuando se agota el tiempo, intentamos un enfoque diferente, pero no actualizamos el código proporcionado al usuario.
El enfoque utilizado en el caso de tiempo de espera es esencialmente
poly = s^5 + 32s^4 + 363s^3 + 2092s^2 + 5052s + 4320;
sols = s /. Solve[poly == 0, s];
N[Times @@ (s - sols)]
((2.04832 - 0.52209 I) + s) ((2.04832 + 0.52209 I) + s) ((5.55913 - 5.16689 I) + s) ((5.55913 + 5.16689 I) + s) (16.7851 + s)
(Remover N para ver la solución exacta.)
Editar
Esto se solucionó ahora y aparecerá una vez que W|A llegue a su próximo ciclo de lanzamiento. El código será
With[poly = s^5 + 32 s^4 + 363 s^3 + 2092 s^2 + 5052 s + 4320,
Coefficient[poly, s, Exponent[poly, s]] Apply[Times, s - (s /. Solve[poly == 0, s])]
]
Editar 2
Esto se ha solucionado desde hace unas semanas:
Creo que su pregunta es completamente válida y le di un gran voto a favor. Suponiendo que WolframAlpha efectivamente usó este comando para obtener el resultado, no estoy seguro de en qué máquina mística lo ejecutaron.
Dejé que se evaluara durante varias horas en la última versión de Mathematica sin éxito y mi máquina tiene un rendimiento bastante bueno. También probé versiones anteriores con el mismo resultado.
Lo único que puedo afirmar es que se supone que funciona. Puede probar una versión un poco más simple de este problema eliminando los poderes más altos
Factor[4320 + 5052 s + 2092 s^2,
Extension -> Flatten[s /. Solve[4320 + 5052 s + 2092 s^2 == 0, s]]]
(*
1/523 (-1263 I + 3 Sqrt[73799] - 1046 I s) (1263 I + 3 Sqrt[73799] + 1046 I s)
*)
Si está realmente interesado en esto, le escribiría al soporte de Wolfram.
Editar:
No me di cuenta de que Chip trabaja con el equipo de W|A. Consulte su respuesta, que refleja lo que me envió el soporte de Wolfram:
Gracias por comunicarse con el soporte técnico de Wolfram.
Como mencionó el usuario Chip Hurst (un desarrollador de Wolfram|Alpha aquí) en su comentario, este es un problema con Wolfram|Alpha que devuelve la expresión incorrecta que realmente usó para obtener el resultado. Esperamos abordar este problema de W|A pronto.
Agradecemos que se haya tomado el tiempo para traer esto a nuestra atención. No dude en contactarnos con cualquier otra cosa que encuentre mientras usa nuestros productos.
Reseñas y puntuaciones del post
Si conservas alguna incertidumbre o disposición de aclararse nuestro ensayo te mencionamos ejecutar una crónica y con deseo lo estudiaremos.