【飞鸟集】一元二次，三次，四次方程求解和复数的运算（2013.1.3更新）

highflybir

对一元三次或者四次方程，是有数学公式求精确解的，可以不用迭代法。参考了维基的上的方法，现在我贴出一元二次、三次或者四次方程的LISP求解方法。使得在求解效率可以得到极大提高。
注明： 因为这几个方程的解有可能是复数，所以我对每个解都用表的形式来列出。
如果这个表的第二项为0，那么这个解是实数，否则是复数。
譬如 ：1*x^4+3*x^3+7*x^2+2*x-5 = 0
(Math:Quartic_Equation 1 3 7 2 -5)

==》((-1.19281 -2.21406) (-1.19281 2.21406) (-1.24789 0) (0.633498 0))


意味着这个方程有两个实数解：-1.24789 , 0.633498
两个虚数解：-1.19281-2.21406 i  ,-1.19281+2.21406i
另外在末尾附上验算测试函数。
提供源码。

花了一些功夫，所以要收一点币。

2013.1.3更新：


1、增加了复数的一些运算，譬如复数的对数，方根，复数的正弦，余弦，复数的复数幂等。
2、增加了复数的多项式运算，精简了验算代码。
3、修正了几个bug.

highflybir

修正了一个错误。

highflybir

springwillow 发表于 2013-4-27 09:38
这个插件下载不了，能不能给看一下！

可能是前段时间论坛的缘故，现在请重新下载附件。