三角形问题求助

janekou · 发表于 2011-5-26 17:33:01

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

本帖最后由 janekou 于 2011-5-26 18:35 编辑

(defun c:an (). C) k* S9 F5 p! B" p
(setq aa (getpoint "选取左下角点:"))
3 X4 E; n! Q8 G9 f( ]
(setq la (getreal "输入底边A的长度:"))
: ^# e$ L- i6 S3 I" h* \
(setq lb (getreal "\n 输入B的长度:"))
3 F' H# m+ ?4 x/ f- [
(setq lc (getreal "输入C的长度:"))
( C% r# I& e% Q! z8 Z3 R
$ l2 i7 s7 ?, ^) S7 N
(setq sz (/ (+ la lb lc) 2)) 0 l6 A3 |( B) j! y1 e
(setq area (* (- sz la) (- sz lb) (- sz lc))). c) r% u# ]+ E' c2 ]0 y5 Y7 ]# a
(setq lh (/ (* 2 area) a)( Z* W( Y+ l& |
' b) a+ W* k6 v9 W% \! G
(setq bb (polar aa 0 la))4 R2 d8 c; f- I! i+ O
(setq ah (sqrt (- (* lc lc) (* lh lh)))) " G+ ~- G- j( l- w G4 m; h) e
(setq ang1 (atan (/ lh ah)))
/ t z: E& s: ?" I0 f# M
(setq cc (polar aa ang1 lc))7 S% I M" O9 \, U5 T& a
(command "pline" aa bb cc "c")" j" `( n1 A" c/ ^! B' o3 o
)" j3 n/ G% {' O
(prin1)

复制代码

请问这个什么地方出问题了呢？谢谢高人指点一下。

SunVei · 发表于 2011-5-26 18:10:27

(setq area (* (- sz la) (- sz lb) (- sz lc)))
(setq lh (/ (* 2 area) a)
===>
(setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
(setq lh (/ (* 2 area) la))

janekou · 发表于 2011-5-26 18:30:49

2# SunVei
感谢高人多次指点，哈哈，我真粗心啊~~

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

通知

[已解决] 三角形问题求助

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块