幂级数展开实验2

(defun   euler(sum  xvalue a count  high  low)

(if  (< a  count)

       (euler  (+  sum  

                   (/ high  low))

               xvalue  

               (+  a  1)

               count

               (* xvalue  high 1.00)

               (* a  low ))

       sum))

 

(setq  sum 1)

(setq  xvalue  1.0)

(setq  a  2)

(setq  count  10)

(setq  high  xvalue)

(setq  low  1)

 

(euler  sum  xvalue a count  high low)

(setq  count  20)

(euler  sum  xvalue a count  high low)

(setq  xvalue  2.0)

(setq  xvalue  3.0)

(setq  xvalue  4.0)

(setq  xvalue  5.0)

(setq  xvalue  6.0)

(euler  sum  xvalue a count  high low)

 

因为本计算系统的限制，/操作在递归计算20次以上时候出现溢出现象，所以采用麦克劳林公式计算e^2,e^3,e^4,e^5时候误差与先计算一个e,然后e*e...的计算方式所得结果越来越大。