不动点与递归数列的极限
有些收敛的数列才有不动点,比如x=1+x^(-1) ;x=1+x^(-2);x=1+x^(-3),下面写程序验证:
对x=1+x^(-3):
(defun pow (num count)
(if (or (> count 1) (eq count 1) )
(* num
(pow num
(- count 1) ) )
1))
(defun expr (n x)
(if (> n 0)
(expr (1- n)
(+ 1
(/ 1.0
(pow x 3) )))
x))
(defun formula (x)
(- x
(+ 1
(/ 1.0
(pow x 3)))))
(defun test (n)
(if (> n 0)
(progn
(print (expr 200 n))
(print ‘compare)
(print (formula (expr 200 n)))
(test (- n 1)))
(print ‘over)))
(test 100)
用这种方法可以解答所有这种形式的不动点;其中负级数越高,需要的递归次数越多,所以其中的200有可能算不出来;
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/194966.html原文链接:https://javaforall.cn