来解这个一元五次方程，看看你会不会瞪眼法

tigcat

qjchen 发表于 2022-7-16 07:41
这个我用的是Maple

我用的maple出现的是这个结果,头一次用maple,不知道是哪操作不对,大侠可以指点一下吗?
matlab我倒是得出了五个数值解.

qjchen

tigcat 发表于 2022-7-16 10:47
我用的maple出现的是这个结果,头一次用maple,不知道是哪操作不对,大侠可以指点一下吗?
matlab我倒是 ...

我用的方法是
eq1 := x^5 + 10*x^3 + 20*x - 4;
res := allvalues({solve(eq1 = 0)});

highflybird

让我们看看韦东奕的解法：

tigcat

qjchen 发表于 2022-7-19 19:33
我用的方法是
eq1 := x^5 + 10*x^3 + 20*x - 4;
res := allvalues({solve(eq1 = 0)});

谢谢大侠指点迷津.

yyz639

(defun c:ddd(/ x y)
(setvar "cmdecho" 0)
(setq x 0)
(while (<= x 1)
       (setq y (-
                                        (+
                                                (+
                                                        (*
                                                                (*
                                                                        (*
                                                                                (* x x)
                                                                                x)
                                                                        x)
                                                                x)
                                                        (* 10
                                                                (*
                                                                        (* x x)
                                                                x))
                                                        (* 20 x)                                                  
                                                )
                                        )
                                4))
       (command "point" (list x y))
       (setq x (+ x 0.00000001))
))
我用的是CAD的lisp；
绘图试算的

tigcat

highflybird 发表于 2022-7-19 22:25
让我们看看韦东奕的解法：

厉害，数学家的这个灵感真的是要命，没有这个，打死也解不出啊。果然非一般人能及。