[求助]：求助编程问题？？

qsg12 · 发表于 2007-2-26 10:35:32

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

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

×

(defun c:5test4()
   (setq P0 (getpoint "\n 三角形左下角点坐标："))
   (setq A (getreal "\n 三角形底边长："))
   (setq B (getreal "\n 三角形斜边长："))
   (setq C (getreal "\n 三角形另一斜边长："))
   (setq S (/ (+ A B C ) 2))
   (setq AREA (sqrt (* S (- S A) (- S B) (- S C))))
   (setq H (/ (* AREA 2) A))
   (setq aa (sqrt (- (* B B) (* H H))))
   (setq P1 (polar  P0 0 aa))
   (setq P2 (polar  P0 0 A))
   (setq P3 (polar  P1 (/ pi 2) H))
   (command "pline" P0 P2 P3 "c")
   (command "line" P3 P1 "")
)

刚刚开始学啊，请问高手，上面有问题吗，上面程序是画一个三角形

Underway · 发表于 2007-2-26 14:40:12

(setvar "OsMode" 0)
(command "pline" P0 P2 P3 "c")
(command "line" P3 P1 "")

qsg12 · 发表于 2007-2-26 16:59:35

问题基本解决,谢谢指导啊,刚开始学还真不容易啊

zml84 · 发表于 2007-2-27 11:15:28

楼主代码首先的问题是，没有对构成三角形三条边长的数值进行限制，比如若A>B+C时如何处理？
<br>
其次，在计算点位P1、P3坐标时有误。
不能处理钝角三角形，因为楼主对垂足始终落于对边上的假设是错误的。可用3、3、5去响应边长输入进行测试。

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

[求助] [求助]：求助编程问题？？

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

相关帖子