for

4850P

圓曲線(已知兩點(diǎn)和半徑)座標(biāo)計(jì)算程序

for

4850P

一、編制原理：

因景觀工程、房建和市政工程的曲線大多是圓曲線并且設(shè)計(jì)僅給兩端點(diǎn)和半徑而無曲線要

素的前提下，

利用圓曲線兩端點(diǎn)和半徑，基于圓心點(diǎn)座標(biāo)數(shù)學(xué)精確解析圓弧上任意點(diǎn)座標(biāo)。

二、程序清單：

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

個(gè)端點(diǎn)

A

的

X

、

Y

座標(biāo)和第

2

個(gè)端點(diǎn)

B

的

X

、

Y

座

標(biāo)。

2

、

I

、

J

分別為兩端點(diǎn)

AB

連線方位角和距離。

3

、

F

為第一點(diǎn)切線方位角

4

、

U

、

V

分別為圓曲線的圓心座標(biāo)

x

、

Y

。

總結(jié)

以上是生活随笔為你收集整理的已知圆上任意两点求圆心和半径_圆曲线(已知两点和半径)座标计算的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。