[求助]：请高手帮看看：我编的简单程序

zhjmeichun · 发表于 2004-7-6 16:30:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

初学autolisp，“已知三角形的三条边的边长，画出此三角形”。程序通不过，请请高手帮看看，谢谢！！！

(defun c:5test3()
  (setq pa (getpoint "请输入三角形左下角点："))
  (setq a (getreal "\n请输入三角形第一边长度："))
  (setq b (getreal "\n请输入三角形第二边长度："))
  (setq c (getreal "\n请输入三角形第三边长度："))

  (setq s0 (/ (+ a (+ b c) ) 2 ))
  (setq s1 (- s0 a) )
  (setq s2 (- s0 b) )
  (setq s3 (- s0 c) )
  (setq s ( * (* (* s0 s1) s2) s3 ) )
  (setq h (/ (* 2 s) a ) )
  (setq a1 (sqrt (- (* c c) (* h h) )))
  (setq ang_pa (atan (/ h a1)))

  (setq pb (polar pa 0 a))
  (setq pc (polar pa ang_pa c))
  (command "pline" pa pb pc "c")
  (prin1)
)

cqnj023 · 发表于 2004-7-6 17:23:28

看不懂三角函数关系了，若说说你的思路，也许好看一点。

zhjmeichun · 发表于 2004-7-6 18:35:40

不好意思，已检查出错误，漏了SQRT函数。
正确的程序如下：
(defun c:5test3()
(setq pa (getpoint "请输入三角形左下角点："))
(setq a (getreal "\n请输入三角形第一边长度："))
(setq b (getreal "\n请输入三角形第二边长度："))
(setq c (getreal "\n请输入三角形第三边长度："))

(setq s0 (/ (+ a (+ b c) ) 2 ))
(setq s1 (- s0 a) )
(setq s2 (- s0 b) )
(setq s3 (- s0 c) )
(setq s (sqrt ( * (* (* s0 s1) s2) s3 ) ) )
(setq h (/ (* 2 s) a ) )
(setq a1 (sqrt (- (* c c) (* h h) )))
(setq ang_pa (atan (/ h a1)))

(setq pb (polar pa 0 a))
(setq pc (polar pa ang_pa c))
(command "pline" pa pb pc "c")
(prin1)
)

阿土 · 发表于 2004-7-6 22:13:38

可以分享一下,谢谢!

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

[求助] [求助]：请高手帮看看：我编的简单程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块