知道d1的长度和半径,怎么算出弧长(黄色线)和圆心角呢?
知道d1的长度和半径,怎么算出弧长(黄色线)和圆心角呢?这是纯粹几何问题吧,先求半圆心角arctan((d/2)/r),转换成弧度,再计算弧长 (setq ang (* 2 (- 90 (/ (* (angle (list 0 0) (list (/ d1 2) (sqrt (- (* r r) (* (/ d1 2) (/ d1 2)))))) 180) pi))))
圆心角出来了,弧长你自己算吧。 leemark有个专门的函数,不用自己做,直接去调用就可以了 (defun abc (ll r / a l)
"弦长、半径求弧长和圆心角 (abc 弦长 半径)"
(setq a(/ (* ll 0.5) r 1.0)
a(* (atan (/ a (sqrt (- 1 (* a a))))) 2)
l (* a r)
a(* a (/ 180 pi))
)
(list l a)
) 拱高弦长求弧长呢?
页:
[1]