感谢楼主的分享啊，我只会用
<p>谢谢楼主的分享</p>
<p>集成自己写的几个程序--符号表管理器</p>
<p>收藏了,慢慢学习学习</p>
<p>创意很好啊！~</p>
<p>文字样式的归一、清理貌似不可用</p>
这个是我3年前的程序了，现在由于事情繁忙，所以就自从发表过来就基本没更新过了，不过当初的确费了很多功夫，同时也通过这个程序也学了很多知识。
不过程序的效果的确很好，现在看来也是如此，当初的心血的确没白花。但是我不准备给这个程序升级了，如果你觉得有用，自己修改一下源代码吧。
所以我的给LISP初学者的建议是：做一个实际的工程，包括如下内容：
基本lisp函数，对话框，命令操作，或许还加点VLISP，开始可能你会觉得很难，但是通过一个工程，你会发现你进步得很快。
这些年来，因为工作的性质，我是断断续续地发表一些lisp程序，花在上面的时间很少。
我记得我学LISP的缘由很简单，由于当时想解一个方程，但又不想去求别人，所以就看了下书，写下了自己的第一个LISP程序-解方程。
这个程序很简单，但是效果还是不错哦。发表于2006年11月，据今天三年十个月。
(defun func (/ dx dy y1 y2 y3 y4)
(setq y1 (cal p))
(setq dx 1e-15)
(setq x (+ x dx))
(setq y2 (cal p))
(setq dy (- y2 y1))
(setq y3 (/ dy dx))
(setq x (- x dx))
(if (/= y3 0)
(setq y4 (- x (/ y1 y3)))
(princ "导数为零")
)
)
(defun C:solve (/ p x y)
(arxload "geomcal.arx")
(setq p (getstring "\n请输入函数表达式: "))
(setq x (getreal "\n请输入初始值: "))
(setq y (func))
(while (> (abs (- y x)) 0.000000000000001)
(setq x y)
(setq y (func))
)
(rtos y 2 20)
)
楼主你也太牛了，这么多年的程序都被你自己又拿出来了，是不是解方程没有必要一定用这样的语言吧。呵呵
bianjia2006发表于2010-8-26 21:46:00static/image/common/back.gif楼主你也太牛了，这么多年的程序都被你自己又拿出来了，是不是解方程没有必要一定用这样的语言吧。呵呵
<p>呵呵，当然不一定要用这样的语言，但当初是什么语言都不会，所以LISP才显得平易近人，而且更易于与CAD结合和工作结合，在那样的环境下，LISP还真是自己的最佳选择。</p>
<p>以后由LISP学起，学会了C++,这样，别人的程序基本都看得懂了，不论什么语言。</p>
<p>没有秀自己的程序的意思，只是谈谈自己的心得。</p>
顶一个,谢谢分享,学习了!
提供源码值得学习
有空研究一下
谢谢楼主。即提供程序，有交流心得。
感谢提供学习的机会