【飞鸟集】集成自己写的几个程序--符号表管理器！

2556596 · 发表于 2010-8-25 22:59:00

感谢楼主的分享啊，我只会用

461045462 · 发表于 2010-8-25 23:46:00

谢谢楼主的分享

集成自己写的几个程序--符号表管理器

收藏了,慢慢学习学习

chlh_jd · 发表于 2010-8-26 15:45:00

创意很好啊！~

文字样式的归一、清理貌似不可用

highflybir · 发表于 2010-8-26 18:31:00

这个是我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:00

楼主你也太牛了，这么多年的程序都被你自己又拿出来了，是不是解方程没有必要一定用这样的语言吧。呵呵

highflybir · 发表于 2010-8-26 22:48:00

bianjia2006发表于2010-8-26 21:46:00楼主你也太牛了，这么多年的程序都被你自己又拿出来了，是不是解方程没有必要一定用这样的语言吧。呵呵

呵呵，当然不一定要用这样的语言，但当初是什么语言都不会，所以LISP才显得平易近人，而且更易于与CAD结合和工作结合，在那样的环境下，LISP还真是自己的最佳选择。

以后由LISP学起，学会了C++,这样，别人的程序基本都看得懂了，不论什么语言。

没有秀自己的程序的意思，只是谈谈自己的心得。

nuts26173802 · 发表于 2010-8-27 10:05:00

顶一个,谢谢分享,学习了!

qcw911 · 发表于 2011-2-9 11:22:45

提供源码值得学习

有空研究一下

zhulei · 发表于 2011-2-9 18:49:33

谢谢楼主。即提供程序，有交流心得。

pop159 · 发表于 2011-2-9 19:50:46

感谢提供学习的机会

账号		自动登录	找回密码
密码			注册

[【高飞鸟】] 【飞鸟集】集成自己写的几个程序--符号表管理器！

点评