已知圆上任意两点求圆心和半径_圆曲线(已知两点和半径)座标计算

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

(T+180Q)

O

=0:I=Pol

(A-U,B-V):J<0=>

O

=J+360:≠>

O

=J

△

P=0:I=Pol

(C-U,G-

V):J<0=>P=J+360:≠

>P=J

△

J=P-

O

:Z=Abs

RJπ÷180

:"Xp=":Int(1E3X+0.5)÷1E3:Pause

0:"Yp=":Int(1E3Y+0.5)÷1E3▲

"Xc=":Int(1E3U+0.5)÷1E3:Pause

0:"Yc=":Int(1E3V+0.5)÷1E3▲

Cls:"Lc=":Int(1E3Z+0.5)÷1E3▲

Goto

2

三、程序说明：

1

、

A"X1":B"Y1":C"X2":G"Y2"

分别为第

1

个端点

A

的

X

、

Y

座标和第

2

个端点

B

的

X

、

Y

座

标。

2

、

I

、

J

分别为两端点

AB

连线方位角和距离。

3

、

F

为第一点切线方位角

4

、

U

、

V

分别为圆曲线的圆心座标

x

、

Y

。