三角形问题求助

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

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

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

x

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

(defun c:an ()& M# n/ X U7 N# V" G! ]. X0 |
(setq aa (getpoint "选取左下角点:"))9 a4 k/ @4 h: _* d2 M; E
(setq la (getreal "输入底边A的长度:"))
& C- h7 T. D7 ^5 s% v# Y9 `
(setq lb (getreal "\n 输入B的长度:"))" b: H2 x6 h# ]( P$ S, h$ f9 \( e
(setq lc (getreal "输入C的长度:")). b6 I0 [) c! L, R9 v9 p2 z9 z7 \' b+ D# t
9 |/ F% w/ g3 g- ^' _3 i) A
(setq sz (/ (+ la lb lc) 2)) : H4 H# M& ] y6 R8 d E
(setq area (* (- sz la) (- sz lb) (- sz lc)))
7 F! @9 f9 _2 C! g: |" N$ N
(setq lh (/ (* 2 area) a)
4 m" y( _1 G: {) K/ K8 P+ ]) i! Q+ j
5 K9 i# s5 E# X, ?
(setq bb (polar aa 0 la))
. [$ N* y; j2 ~# B
(setq ah (sqrt (- (* lc lc) (* lh lh))))
% G$ g( e; |$ q% A; m/ F4 M
(setq ang1 (atan (/ lh ah)))$ W4 `7 n& ^0 `( s9 m" c
(setq cc (polar aa ang1 lc))
g: Z" L+ V) H: ~
(command "pline" aa bb cc "c")
2 p) Z/ q: L( `( o2 E
)3 E/ {1 K3 Z! w7 [
(prin1)

复制代码

登录/注册后可看大图

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

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

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

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))

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

通知

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

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

评分

浏览过的版块