作业帮 > 综合 > 作业

软件绘图问题,maple和mathematica皆可

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/05/27 02:37:29
软件绘图问题,maple和mathematica皆可
把所有次数不超过5的、系数在-4到4范围内的整系数多项式的所有根描绘在同一个复平面上
软件绘图问题,maple和mathematica皆可
你看了那篇博客了吧?
这个程序只是系数在-2到2的五次方程,一共5^6*5=78125个解.-4到4的话会有2657205个解,要花很长时间,半个多小时,有空你可以自己试Flatten[NSolve[a x^5 + b x^4 + c x^3 + d x^2 + e x + g == 0, x][[All,    All, 2]]];f[a_, b_, c_, d_, e_, g_] := Evaluate[%];list = {Re[#], Im[#]} & /@     Flatten[f @@@       Flatten[Table[{i, j, k, l, m, n}, {i, -2., 2.}, {j, -2.,          2.}, {k, -2., 2.}, {l, -2., 2.}, {m, -2., 2.}, {n, -2., 2.}],        5]] // Quiet;ListPlot[list]