明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2796|回复: 4

[班门有约] 经典三角形二

[复制链接]
发表于 2008-3-10 20:19:00 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2008-3-13 15:24:55 编辑

如图,α、a、b=?

本帖子中包含更多资源

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

x

评分

参与人数 1威望 +2 明经币 +1 收起 理由
Joseflin + 2 + 1 【好评】 好題

查看全部评分

发表于 2008-3-10 20:51:00 | 显示全部楼层
yimin兄是不是少给了65这线所对应的上端点的关系?
 楼主| 发表于 2008-3-10 22:38:00 | 显示全部楼层
不好意思,垂直关系忘标了,题目已更正。
发表于 2008-3-19 17:50:00 | 显示全部楼层

只由平分线性质得出 a x d = 70 x 130 = 9100

用了小程序逼近法求解
;; ==========================================
(setq p0 '(0 0) p70 '(70 0)
      vv0 2.0

      pa (polar p70 vv0 65)
     vv1 (angle p0 pa)
     vv2 (- vv1 <90)
     tmp (polar pa vv2 1)
      pb (inters p0 p70 pa tmp nil)
     dd1 (distance pa pb)
     dd2 (sqrt (- (* 130 130) (* dd1 dd1)))
      pc (polar pa vv1 dd2)
     vv3 (angle p70 pc)
     vv4 (angle pb pc)
     vvz (- (- vv4 vv3) (- vv3 vv1))
)

(defun c:quiz ()
   (setq xx 2)
   (while (not (equal vvz 0.0 5e-16))
       
     (setq vv0 (+ vv0 (* vvz xx))
            pa (polar p70 vv0 65)
            xx (max 0.25 (* xx 0.953125))
           vv1 (angle p0 pa)
           vv2 (- vv1 <90)
           tmp (polar pa vv2 1)
            pb (inters p0 p70 pa tmp nil)
           dd1 (distance pa pb)
           dd2 (sqrt (- (* 130 130) (* dd1 dd1)))
            pc (polar pa vv1 dd2)
           vv3 (angle p70 pc)
           vv4 (angle pb pc)
           vvz (- (- vv4 vv3) (- vv3 vv1))
     )
   )
)

本帖子中包含更多资源

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

x

评分

参与人数 1威望 +2 明经币 +1 收起 理由
Joseflin + 2 + 1 【好评】好程序

查看全部评分

 楼主| 发表于 2008-3-21 20:47:00 | 显示全部楼层
Andyhon先生强啊,lisp语言都派上了,此题我还没找到几何解法。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-24 05:50 , Processed in 0.164046 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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