QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
10天前
查看: 2235|回复: 2
收起左侧

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

[复制链接]
发表于 2011-5-26 17:33:01 | 显示全部楼层 |阅读模式 来自: 中国广东广州

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

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

x
本帖最后由 janekou 于 2011-5-26 18:35 编辑 + f# @7 |( m+ g5 N3 I2 |) v
  1. (defun c:an ()
    " E- {3 s+ y6 l3 C/ ^
  2. (setq aa (getpoint "选取左下角点:"))  C8 S6 E; A, \
  3. (setq la (getreal "输入底边A的长度:"))
    2 f, [4 c, ^7 p: Z
  4. (setq lb (getreal "\n 输入B的长度:"))
    % `: r8 u& x- u" n5 r2 h: B
  5. (setq lc (getreal "输入C的长度:"))2 M- ~6 ]. ]" J
  6. " [2 i% ^3 \4 X: V* m0 A
  7. (setq sz (/ (+ la lb lc) 2))
    9 |- N. _) {6 w5 u% Y! s& E
  8. (setq area (* (- sz la) (- sz lb) (- sz lc)))# A  g6 D/ P9 m. Y6 u4 O5 y+ \9 r
  9. (setq lh (/ (* 2 area) a)
    $ n. J- \- Z6 Q' Z/ K8 ?
  10. + U2 L7 k. F7 Q2 d; x5 I; i: {3 H2 A
  11. (setq bb (polar aa 0 la))
    + |) |. d( g( x- q
  12. (setq ah  (sqrt (- (* lc lc) (* lh lh)))) 5 C. a6 ~. X+ H8 S
  13. (setq ang1 (atan (/ lh ah)))
    9 |6 U) a( ~. I% k* d
  14. (setq cc (polar aa ang1 lc))
    . V* B9 @5 t0 P) R" {+ \
  15. (command "pline" aa bb cc "c")
    % M) O, ]# l* k
  16. )) T, _  }  r" |& z+ J* W  u2 ?% Y
  17. (prin1)
复制代码
2][OFRBE0YN]B[V6O3~U$)I.jpg 请问这个什么地方出问题了呢?谢谢高人指点一下。
发表于 2011-5-26 18:10:27 | 显示全部楼层 来自: 中国台湾
(setq area (* (- sz la) (- sz lb) (- sz lc)))
% Z0 X" G7 j0 t8 x(setq lh (/ (* 2 area) a)3 E6 \- w. c5 @+ T0 ^
===>
& X3 v9 g5 ~0 p) ^6 V   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
7 L9 a% J0 n9 H( @: l( x   (setq lh (/ (* 2 area) la))

评分

参与人数 1三维币 +5 收起 理由
woaishuijia + 5 应助

查看全部评分

 楼主| 发表于 2011-5-26 18:30:49 | 显示全部楼层 来自: 中国广东广州
2# SunVei 0 n( p1 Y( I0 q* ], r
感谢高人多次指点,哈哈,我真粗心啊~~
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表