支点(重装上阵)
来源:互联网 发布:sql语句优化面试题 编辑:程序博客网 时间:2024/05/01 23:39
支点(重装上阵)
//复杂的解待定系数的参数的过程
X=1+1/X
设a(n)=1+1/a(n-1)
另外设
A(n)=a(n)*A(n-1)
Go
A(n)={ 1+1/a(n-1) }*A(n-1)
Go
A(n)=A(n-1)+A(n-1)/a(n-1)
Go
A(n)=A(n-1)+A(n-2)
为fibs数列。
Go
a(n)=A(n)/A(n-1)
FIBS数列
(defun pow (num count)
(if (> count 0)
(* num (pow num (- count 1) ) )
1
)
)
(defun expr (n)
(if (eq n 1)
1
(+ 1 (/ 1.0 (expr (- n 1) ) ))))
(setq A (/ (sqrt 5) 5.0))
(setq B (- 0 A) )
(defun formula (n)
(+ (* A (pow (/ (+ 1 (sqrt 5) ) 2.0 ) n))
(* B (pow (/ (- 1 (sqrt 5) ) 2.0 ) n))))
(defun test (n)
(if (> n 0)
(progn
(print (/ (formula (1+ n) ) (formula n) ))
(print 'compare)
(print (expr n ))
(test (- n 1) ))
(print 'over)))
(test 10)
- 支点(重装上阵)
- 重装上阵
- 重装上阵!!!
- Blog重装上阵
- Expression家族"重装上阵"
- JUnit重装上阵
- JUnit重装上阵
- JUnit重装上阵
- JGTM Reloaded - 重装上阵
- JUnit重装上阵
- JUnit重装上阵
- 细看《黑客帝国2:重装上阵》
- 重装上阵,新的开始!
- 重装上阵,BT上已见到DOOM3.
- 看《骇客帝国-重装上阵》说法语
- MACBOOK重装上阵(软件大全)
- MACBOOK重装上阵(软件大全)
- 购物系统之(重装上阵)
- centos zabbix 1.8.1 安装
- centos zabbix 1.8.1 安装
- 用OraKill结束失控的Oracle进程
- Visual C++中的C运行时库浅析
- C# 手写识别整理
- 支点(重装上阵)
- PHP连接mssql的一些方法总结
- Oracle外部程序的触发小结
- How To Create ASM Diskgroups using NFS/NAS Files
- 解决Oracle 9i和Tomcat的端口冲突
- 运行时库
- 归并排序模板 && 求逆序数
- Java行业的圣经 四本最重要的个人藏书,他们的书名都不含Java
- DNN OA绩效办公系统——助企业IT部门创造战略价值