[求助]那为高手帮我看看！

yufei113

(defun c:5text3()
;以下值apt，aa，bb，cc须由用户输入
(setq apt (getpoint"\n请输入左下方的点:"))
(setq aa (getdist"\n请输入边长A:"))
(setq bb (getdist"\n请输入边长B:"))
(setq cc (getdist"\n请输入边长C:"))
;以下ss,hh,mm,ang_ap由程序计算
(setq ss (/(+ aa bb cc) 2))
(setq hh (* 2 sqrt(/(* ss (- ss aa) (- ss bb) (- ss cc)) aa)))
(setq mm (sqrt(- (* cc cc) (* aa aa))))
(setq ang_ap (atan(/hh mm)))
;以下根据apt,aa,bb,cc,ang_ap配合polar函数定bpt，cpt坐标
(setq bpt (polar apt 0 aa))
(setq cpt (polar apt ang_ap cc))
;以下由apt,bpt,cpt配合line函数成图
(command "line" apt bpt "")
(command "line" apt cpt "")
(command "line" cpt bpt "")
(prin1)
)
(prompt"\n<<<<<<<<<<c:5text3>>>>>>>>>>")

(prin1)

本人初学lisp，那位帮我看看这个是什么问题运行不了呢？？？？在线等哈！！！感谢感谢

05625lcc

很明显,这一句

(prompt"\n<<<<<<<<<<c:5text3>>>>>>>>>>)少了个双引号

应该是(prompt"\n<<<<<<<<<<c:5text3>>>>>>>>>>")

如再有错误自己再看看

yufei113

05625lcc发表于2008-12-18 14:22:00很明显,这一句(prompt\"\n<<<<<<<<<<c:5text3>>>>>>>>>>)少了个双引号应该是(prompt\"\n<<<<<<<<<&

这个是我发帖子的时候的原因，运行程序提示到hh那里就错误了，不知道怎么回事，问题应该是

(setq hh (* 2 sqrt(/(* ss (- ss aa) (- ss bb) (- ss cc)) aa)))这句

但是我不知道怎么回事！着急哈

05625lcc

这个也好说,少了对括号

(setq hh (* 2 (sqrt(/ (* ss (- ss aa) (- ss bb) (- ss cc)) aa))))

注意调用的是(sqrt )函数,不是sqrt

yufei113

05625lcc发表于2008-12-18 14:35:00这个也好说,少了对括号(setq hh (* 2 (sqrt(/ (* ss (- ss aa) (- ss bb) (- ss cc)) aa))))注意调用的是(sqrt )函数,不是sqrt

谢谢你了啊，还是不可以啊，还是说那句是错的！

我把文件代码发上来你帮我看看哈！万分感谢了!

05625lcc

我运行没错,这是我帮你修改后的程序,我觉得你的程序就是画三角形,里面有很多错误.想通过海伦公式反求一边上的高,对那语句

(setq hh (* 2 (sqrt(/ (* ss (- ss aa) (- ss bb) (- ss cc)) aa))))
逻辑错误了,自己想想

(defun c:5text3()
;以下值apt，aa，bb，cc须由用户输入
(setq apt (getpoint "\n请输入左下方的点:"))
(setq aa (getdist "\n请输入边长A:"))
(setq bb (getdist "\n请输入边长B:"))
(setq cc (getdist "\n请输入边长C:"))
;以下ss,hh,mm,ang_ap由程序计算
(setq ss (/(+ aa bb cc) 2))
(setq hh (/ (* 2 (sqrt (* ss (- ss aa) (- ss bb) (- ss cc)))) aa))
(setq mm (sqrt (- (* cc cc) (* hh hh))))
(setq ang_ap (atan (/ hh mm)))
;以下根据apt,aa,bb,cc,ang_ap配合polar函数定bpt，cpt坐标
(setq bpt (polar apt 0 aa))
(setq cpt (polar apt ang_ap cc))
;以下由apt,bpt,cpt配合line函数成图
(command "line" apt bpt "")
(command "line" apt cpt "")
(command "line" cpt bpt "")
(prin1)
)
(prompt"\n<<<<<<<<<<c:5text3>>>>>>>>>>")

(prin1)

yufei113

非常感谢，看了半天书，第一次写这个东西，菜鸟的很啊！我好好想想了！

楼上的太感谢了，原来是犯的数学错误！！！！！以后牢牢记住！

05625lcc

呵呵,我也是从菜鸟过来的,开始学出现错误很正常,也是学习的方法.慢慢来