圆曲线缓和曲线线路中边桩放样卡西欧5800坐标计算程序

程序名：FYXY

"JD"?Q:"JDX"?W:"JDY"?K:R:"QDFWJ"?F:"A0"?N:"LS"?V:"-L,+R"?G:"DKQD"?C:"DKZD" ?D:”ZJX"?A:”ZJY”?B8→Dimz 

V÷2-V^(3)÷(240R2)→ M                                                      

V2÷(24R)－V^(4)÷(2688R^(3))→P

pRN÷180+V→L

M+(R+P)tan(N÷2)→T

Q-T→Z[5]

Z[5]+V→Z[6]

Z[5]+L→Z[8]

Z[8]-V→Z[7]

Rec(T，F+180)

W+I→Z[1]:K+J→Z[2]

Rec(T，F+GN) 

W+I→Z[3]:K+J→Z[4]

Lbl 0

"DKI"?H:"BIAN JU"?S:"JIA JIAO"?E

If HIf H>D:Then Goto 0:IfEnd

If HLbl 1

Rec(Q-H，F+180) 

W+I→X: K+J→Y

Rec(S，F+E)

"X=":X+I→X◢

"Y=":Y+J→Y◢

Goto 7

Lbl 2

H-Z[5]→Z

90Z2÷(pRV)→O 

Z-Z^(5)÷(40R2V2)+Z^(9)÷(3456R^(4)V^(4))→X 

Z^(3)÷(6RV)-Z^(7)÷(336R^(3)V^(3))+Z^(11)÷(42240R^(5)V^(5))→Y 

Rec(√(X2+Y2)，F+Gtan-1(Y÷X)) 

Z[1]+I→X:Z[2]+J→Y

Rec(S，F+GO+E) 

"X=":X+I→X◢

"Y=":Y+J→Y◢

Goto 7

Lbl 3

H-(Q-T)-V÷2→Z

180Z÷(Rp)→O

Rsin (O)+M→X

R(1-cos(O))+P→Z

Rec(X，F) 

Z[1]+I→X:Z[2]+J→Y

Rec(Z，F+90G) 

X+I→X:Y+J→Y

Rec(S，F+OG＋E) 

"X=":X+I→X◢

"Y=":Y+J→Y◢

Goto 7

Lbl 4

Z[8]-H→Z

90Z2÷(VRp)→O

Z-Z^(5)÷(40R2V2)+Z^(9)÷(3456R^(4)V^(4))→X 

Z^(3)÷(6RV)-Z^(7)÷(336R^(3)V^(3))+Z^(11)÷(42240R^(5)V^(5))→Y 

Rec(√(X2+Y2)，F＋GN+180-Gtan-1(Y÷X)) 

Z[3]+I→X:Z[4]+J→Y

Rec(S，F+GN+180-OG-(180-E)) 

"X=":X+I→X◢

"Y=":Y+J→Y◢

Goto 7

Lbl 5

Rec(H-Z[8]+T，F+GN) 

W+I→X:K+J→Y

Rec(S，F+GN+E) 

"X=":X+I→X◢

"Y=":Y+J→Y◢

Goto 7

Lbl 7

Pol(X-A，Y-B) 

If J<0:Then J+360→J:IfEnd

"FWJ=":J„DMS◢

"CJ=":I◢

Goto 0

注：FYXY程序单代号

Q"J D"                           交点里程桩号

W"JDX"                           交点X坐标值

K"JDY"                           交点Y坐标值

R                                圆曲线半径

F"QDFWJ"                         第一直线段方位角

N"A 0"                           交点转向角

V"LS"                            缓和曲线长度

G"-L,+R"                         如果为左转角输入“－1”，如果为右转角输入“1”

C"DKQD"                          所求段起点里程桩号

D"DKEZD"                         所求段终点里程桩号

ZJX                              置镜点Ｘ坐标

ZJY                              置镜点Y坐标

H"DKI"                           所求点的里程桩号

S"BIAN JU"                       边桩至中桩的距离，求中桩时输入0 距离不为负

E"JIA JIAO"                      左边桩输入“－90”，右边桩输入“90”

X Y                              所求点的坐标值

C J                              置镜点至待求点的距离

FWJ                              置镜点至待求点的方位角