这个五次方程怎么解？

wayne

3# God→Osiris 打印3楼的这个解，要用 95页的A4纸： 差点就超出512KB 了。。。

liangbch

这么复杂的公式是如何算出来的？如何验证其正确性？

wayne

22# liangbch 怎么计算我也不知道啊，至少我现在不知道怎么用Mathematica算，但我试着把楼主的表达式输进去，用RootReduce函数化简了一下，确实是那个方程的根

mathe

请告诉这个方程的根式解答吧,我想知道这个根式解,我是用mathematica软件计算的,结果没出现 根式解答,所以就认为没根式解,既然你在这说有根式解,那么我还是希望看看这个根式解的样子的. 我觉得把根式解弄出来,这 ... mathematica 发表于 2011-3-10 21:04

利用群论知识找出根式解可能不是问题，只是过程太复杂了，如同尺规作图做正257边形一样，从理论上知道其存在就足够了。

mathe

利用群论知识找出根式解可能不是问题，只是过程太复杂了，如同尺规作图做正257边形一样，从理论上知道其存在就足够了。 mathe 发表于 2011-3-11 08:33

当然如果要如同楼主一样构造一些“可解”的五次方程，那就容易多了

mathematica

3# God→Osiris 打印3楼的这个解，要用 95页的A4纸： 差点就超出512KB 了。。。 wayne 发表于 2011-3-10 23:26

95页很可能是由于字体太大的缘故，不过为什么 不把Mathematica的代码也弄上来呢？

mathematica

奇怪16楼的Map[Apply[g,s[[#]]]&,{{1,2,3,4,5},{2,1,3,4,5},{3,2,1,4,5},{4,2,3,1,5},{5,2,3,4,1},{1,5,3,4,2}}] 是如何实现置换的呢？想不明白

mathematica

16楼也是高手呀！ Clear["Global`*"];(*Clear all variables*) f[a_, b_] := a + b^2 Map[f,{{2,1}}] 这个结果是: {f[{2, 1}]} 改成 Map[f, {2, 1}] 结果是: {f[2], f[1]} 为什么我就实现不了16楼得来回换变量的功能呢? 我想得到的结果是: f=b+a^2 为什么我就实现不了16楼得来回换变量的功能呢? 看来高手都是不经常发言的呀！

mathematica

16楼的把1、先把它弄成首1整系数的。 f=15377302441624829616294559439+147013447513276833423286x-585145514845851080x^2-5941616812296x^3+3349456x^4+32x^5 就变成了 f=15377302441624829616294559439+73506723756638416711643x-146286378711462770x^2-742702101537x^3+209341x^4+x^5 是通过把原来的2x换成x得到的吧，我还以为是所有的系数都除以32得到的

mathematica

f = 15377302441624829616294559439 + 147013447513276833423286 x - 585145514845851080 x^2 - 5941616812296 x^3 + 3349456 x^4 + 32 x^5 f /. {x -> x/2} 我把这个命令补上去了，方便别人验证