Using Fixpoint to Solve Mathmatic Equation ( x= sin x fixpoint style)
2011-04-02 10:19
381 查看
(defun fixpoint ( x y)
(funcall y (funcall x x y) )
)
(defun try ( f check init)
(if (funcall check (funcall f init) init )
init
(progn
(print init)
(try f check (funcall f init) )
)
)
)
(setq fun (fixpoint 'fixpoint
(lambda (s)
(lambda ( f check init)
(if (funcall check (funcall f init) init )
init
(progn
(print init)
(funcall s f check (funcall f init) )
)
)
)
)
)
)
(funcall fun (lambda(x)(sin x) )
(lambda (x y)(if (< (abs (- x y)) (/ 1 10000) ) t nil)) (/ 1 11) )
(funcall y (funcall x x y) )
)
(defun try ( f check init)
(if (funcall check (funcall f init) init )
init
(progn
(print init)
(try f check (funcall f init) )
)
)
)
(setq fun (fixpoint 'fixpoint
(lambda (s)
(lambda ( f check init)
(if (funcall check (funcall f init) init )
init
(progn
(print init)
(funcall s f check (funcall f init) )
)
)
)
)
)
)
(funcall fun (lambda(x)(sin x) )
(lambda (x y)(if (< (abs (- x y)) (/ 1 10000) ) t nil)) (/ 1 11) )
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- Using Fixpoint to Solve Mathmatic Equation ( 无限float运算的扩展 fixpoint style)
- Using Fixpoint to Solve Mathmatic Equation ( 无限float运算的扩展 stream style)
- sharepoint ECMA using a custom contentType to creating a list in SubSite
- Using R to Fix Data Quality: Section 2
- sharepoint ECMA using a list template to creating a list in SubSIte
- How to open MS word document from the SharePoint 2010 using Microsoft.Office.Interop.dll
- Get tasks assigned to user or to current user groups in SharePoint using CAML query
- How to solve second button click download problem on SharePoint 2010
- [note][reinforcement-learning] (0) using reinforcement to solve frozen-lake
- Using Visual Studio 2005, MakeCab.exe and MSBuild to Create Window SharePoint Services v3 Solution Files (*.WSP's)
- PCL点云库：对点云进行变换（Using a matrix to transform a point cloud）
- How to Modify the web.config file in SharePoint using SPWebConfigModification?
- Using SharePoint Web Services to Fill Out an InfoPath Form
- [Ramda] Refactor to Point Free Functions with Ramda using compose and converge
- How to copy files between sites using JavaScript REST in Office365 / SharePoint 2013
- Depth Bias(Direct3D 9) Alternatives to Using Z-Bias to Fix Z-Fighting Issues
- how to solve "[WARNING] File encoding has not been set, using platform encoding Cp1252, i.e. build is platform dependent!"
- Using the string repalce action in SharePoint workflow designer to send mail from mail template
- Using R to Fix Data Quality: Section 3
- Using VisualVM to fix live Tomcat and JVM problems