for
4850P
圆曲线(已知两点和半径)座标计算程序
for
4850P
一、编制原理:
因景观工程、房建和市政工程的曲线大多是圆曲线并且设计仅给两端点和半径而无曲线要
素的前提下,
利用圆曲线两端点和半径,基于圆心点座标数学精确解析圆弧上任意点座标。
二、程序清单:
Lbl
0:CLS:{ABCGR}:A"X1":B"Y1":C"X2":G"Y2":R
Lbl
1:J=0:I=POL(C-A,G-B):J<0=>J=J+360
△
F=J-sin
-1
(I÷
2÷
R):U=A+Rcos
(F+90):V=B+Rsin
(F+90)
Lbl
2:Cls:{LD}:L"Lp":L<0=>Goto
0
△
D"Dp":
D=0=>D=1E-45
△
Q=Abs
D÷
D:T=F-
90+(180L÷R÷π
)
N=U+Rcos
T:E=V+Rsin
T
X=N+Dcos
(T+180Q):Y=E+Dsin