经典三角形二
本帖最后由 作者 于 2008-3-13 15:24:55 编辑 <br /><br /> <p>如图,α、a、b=?<br/><br/></p> yimin兄是不是少给了65这线所对应的上端点的关系? 不好意思,垂直关系忘标了,题目已更正。 <p></p><p>只由平分线性质得出 a x d = 70 x 130 = 9100</p><p>用了小程序逼近法求解 <br/>;; ==========================================<br/>(setq p0 '(0 0) p70 '(70 0)<br/> vv0 2.0</p><p> pa (polar p70 vv0 65)<br/> vv1 (angle p0 pa)<br/> vv2 (- vv1 <90)<br/> tmp (polar pa vv2 1)<br/> pb (inters p0 p70 pa tmp nil)<br/> dd1 (distance pa pb)<br/> dd2 (sqrt (- (* 130 130) (* dd1 dd1)))<br/> pc (polar pa vv1 dd2)<br/> vv3 (angle p70 pc)<br/> vv4 (angle pb pc)<br/> vvz (- (- vv4 vv3) (- vv3 vv1))<br/>)</p><p>(defun c:quiz ()<br/> (setq xx 2)<br/> (while (not (equal vvz 0.0 5e-16))<br/> <br/> (setq vv0 (+ vv0 (* vvz xx))<br/> pa (polar p70 vv0 65)<br/> xx (max 0.25 (* xx 0.953125))<br/> vv1 (angle p0 pa)<br/> vv2 (- vv1 <90)<br/> tmp (polar pa vv2 1)<br/> pb (inters p0 p70 pa tmp nil)<br/> dd1 (distance pa pb)<br/> dd2 (sqrt (- (* 130 130) (* dd1 dd1)))<br/> pc (polar pa vv1 dd2)<br/> vv3 (angle p70 pc)<br/> vv4 (angle pb pc)<br/> vvz (- (- vv4 vv3) (- vv3 vv1))<br/> )<br/> )<br/>)<br/></p> <font face="Verdana" color="#000000">Andyhon先生强啊,lisp语言都派上了,此题我还没找到几何解法。</font>
页:
[1]