QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
9天前
查看: 2234|回复: 2
收起左侧

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

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

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

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

x
本帖最后由 janekou 于 2011-5-26 18:35 编辑
3 x2 C- j9 Z7 R7 D+ [: o
  1. (defun c:an ()
    8 F% i& G! g& H) m& M. q, G0 [
  2. (setq aa (getpoint "选取左下角点:"))
    # m8 L. g" U: F2 @: K
  3. (setq la (getreal "输入底边A的长度:"))
    0 S+ A9 I) P2 t: r/ L# p9 \
  4. (setq lb (getreal "\n 输入B的长度:"))
    9 B# ?; B+ W6 [2 P
  5. (setq lc (getreal "输入C的长度:"))  w. J7 ?) w4 W8 l+ G
  6. 2 Z$ Y; X/ L2 Z% P$ l# Y8 A6 N7 L3 M8 {
  7. (setq sz (/ (+ la lb lc) 2)) 4 D* F$ y( S: i! t8 j( M( }, G
  8. (setq area (* (- sz la) (- sz lb) (- sz lc)))' s; m0 @  A8 g4 A2 v& C
  9. (setq lh (/ (* 2 area) a)
    7 }0 R$ D# l' a! ^

  10. 4 D6 c+ [& {$ Q4 y) ?7 k
  11. (setq bb (polar aa 0 la))
    , q4 S0 A! k! V1 @. s
  12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    # _2 y, a, J$ F6 w' o( g$ \* |. Y
  13. (setq ang1 (atan (/ lh ah))); x2 P# m( f; Q  E
  14. (setq cc (polar aa ang1 lc))
    7 E9 }8 k2 [; Y1 N( t+ E
  15. (command "pline" aa bb cc "c")
    1 }6 C3 Z5 q- r6 D1 F1 y% f" ^! K1 j
  16. )
    4 j$ l6 U7 ~) S0 U# I' x8 Q1 ?
  17. (prin1)
复制代码
2][OFRBE0YN]B[V6O3~U$)I.jpg 请问这个什么地方出问题了呢?谢谢高人指点一下。
发表于 2011-5-26 18:10:27 | 显示全部楼层 来自: 中国台湾
(setq area (* (- sz la) (- sz lb) (- sz lc)))$ G8 P7 u8 t9 R' L
(setq lh (/ (* 2 area) a)* g% D, J7 {# q% U6 M& R
===>
4 _4 S0 ~! [* C  Y   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc)))): d% O1 L0 A" C7 ?; b' \! ~/ m
   (setq lh (/ (* 2 area) la))

评分

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

查看全部评分

 楼主| 发表于 2011-5-26 18:30:49 | 显示全部楼层 来自: 中国广东广州
2# SunVei   L" R9 j4 U# [* _. U; }8 j
感谢高人多次指点,哈哈,我真粗心啊~~
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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