yimin0519 发表于 2008-3-10 20:19:00

经典三角形二

本帖最后由 作者 于 2008-3-13 15:24:55 编辑 <br /><br /> <p>如图,α、a、b=?<br/><br/></p>

qjchen 发表于 2008-3-10 20:51:00

yimin兄是不是少给了65这线所对应的上端点的关系?

yimin0519 发表于 2008-3-10 22:38:00

不好意思,垂直关系忘标了,题目已更正。

Andyhon 发表于 2008-3-19 17:50:00

<p></p><p>只由平分线性质得出 a x d = 70 x 130 = 9100</p><p>用了小程序逼近法求解 <br/>;; ==========================================<br/>(setq p0 '(0 0) p70 '(70 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vv0 2.0</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pa (polar p70 vv0 65)<br/>&nbsp;&nbsp;&nbsp;&nbsp; vv1 (angle p0 pa)<br/>&nbsp;&nbsp;&nbsp;&nbsp; vv2 (- vv1 &lt;90)<br/>&nbsp;&nbsp;&nbsp;&nbsp; tmp (polar pa vv2 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pb (inters p0 p70 pa tmp nil)<br/>&nbsp;&nbsp;&nbsp;&nbsp; dd1 (distance pa pb)<br/>&nbsp;&nbsp;&nbsp;&nbsp; dd2 (sqrt (- (* 130 130) (* dd1 dd1)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pc (polar pa vv1 dd2)<br/>&nbsp;&nbsp;&nbsp;&nbsp; vv3 (angle p70 pc)<br/>&nbsp;&nbsp;&nbsp;&nbsp; vv4 (angle pb pc)<br/>&nbsp;&nbsp;&nbsp;&nbsp; vvz (- (- vv4 vv3) (- vv3 vv1))<br/>)</p><p>(defun c:quiz ()<br/>&nbsp;&nbsp; (setq xx 2)<br/>&nbsp;&nbsp; (while (not (equal vvz 0.0 5e-16))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq vv0 (+ vv0 (* vvz xx))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pa (polar p70 vv0 65)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xx (max 0.25 (* xx 0.953125))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vv1 (angle p0 pa)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vv2 (- vv1 &lt;90)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tmp (polar pa vv2 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pb (inters p0 p70 pa tmp nil)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dd1 (distance pa pb)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dd2 (sqrt (- (* 130 130) (* dd1 dd1)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pc (polar pa vv1 dd2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vv3 (angle p70 pc)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vv4 (angle pb pc)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vvz (- (- vv4 vv3) (- vv3 vv1))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; )<br/>)<br/></p>

yimin0519 发表于 2008-3-21 20:47:00

<font face="Verdana" color="#000000">Andyhon先生强啊,lisp语言都派上了,此题我还没找到几何解法。</font>
页: [1]
查看完整版本: 经典三角形二