已知一段弧的起点和终点以及其凸度,求其圆心

月关

支持LZ的学习专贴

clm840917

(defun get-cir-ij (起点 终点 凸度 / 中点 angle 半径 圆心)
  (setq 中点 (mapcar '(lambda (a b) (/ (+ a b) 2.0)) 起点 终点)) ;; 计算中点
  (setq angle (* 2 (atan 凸度)))  ;; 计算角度（圆弧所对的圆心角 ）
  (setq 半径 (/ (distance 起点 终点) (* 2 sin angle))) ;; 计算半径
  (setq 圆心 (polar 中点 angle 半径))  ;; 计算圆心  
  (mapcar '- 圆心 起点);; 返回增量坐标
)

clm840917

那么圆心的坐标为：
b=0.5*(1/bulge-bulge)
x=0.5*((x1+x2)-b*(y2-y1))
y=0.5*((y1+y2)+b*(x2-x1))