五大桩计算程序

CAISO FX-5800计算程序（曲线五大桩里程、坐标）

一．ROAD-1

26→DimZ

“X(JD)”？X: “Y(JD)”？Y : “FWJ ” ？M

“ANGLE” ？O: ？R: “LS1”？B : “LS2” ？C : “K(JD)”？K M+O→N

PrOg“ROAD-SUB1”

“T1=”：S ◢

“T2=”：T ◢

“L=”：L ◢

“LY=”：Q ◢

“E=”：E ◢

“K(ZH)=”：Z[1] ◢

“K(HY)=”：Z[2] ◢

“K(QZ)=”：Z[3] ◢

“K(YH)=”：Z[4] ◢

“K(HZ)=”：Z[5] ◢

“XS”？U: “YS”？V

LbI0

“KP”？P

PrOg“ROAD-SUB2”

“XP=”：F ◢

“YP=”：G ◢

“BP=”：Z DMS ◢

If U=0：ThenGoTo2:EISe p0I(F-U,G-V):If End

LbI1

If J＜0：ThenJ+360→J: If End

“A1=”：J DMS ◢

“D1=”：I ◢

LbI2

“D ANGLE”？H:If H=0：ThenGoTo0：If End：？D

“XB=”：F+DCos(Z+H) →Z[11] ◢

“YB=”：G+DSin(Z+H) →Z[12] ◢

If U=0: ThenGoTo2:EISe PoI(Z[11]-U,Z[12]-V): If End

GoTo1

二．ROAD-SUB1

If O＜0：Then-1→W: EISel→W: If End:WO→A

B^2÷24÷R- B^ (4) ÷2688÷R^ (3)+ B^ (6) ÷506880÷R^ (5) →Z[6] C^2÷24÷R- C^ (4) ÷2688÷R^ (3)+ C^ (6) ÷506880÷R^ (5) →Z[7] B÷2- B^ (3) ÷240÷R^2 + B^ (5) ÷34560÷R^ (4) →Z[8]

C÷2- C^ (3) ÷240÷R^2 + C^ (5) ÷34560÷R^ (4) →Z [9]

Z[8]+(R+Z[7]-(R+Z[6])Cos(A)) ÷Sin(A) →S

Z[9]+(R+Z[6]-(R+Z[7])Cos(A)) ÷Sin(A) →T

RA∏÷180+(B+C) ÷2→L

L-B-C→Q

(R+(Z[6]+Z[7]) ÷2) ÷Cos(A÷2)-R→E

K-S→Z[1]

Z[1]+B→Z[2]

Z[2]+Q÷2→Z[3]

Z[1]+L-C→Z[4]

Z[4]+C→Z[5]

三．ROAD-SUB2

X-SCos(M) →Z[21]:Y-Ssin(M) →Z[22]

X+TCos(N) →Z[23]:Y+Tsin(N) →Z[24]

If P＞Z[1]: ThenGoTo1：If End

Z[1]-P→L

X-(S+L)Cos(M) →F

Y-(S+L)Sin(M) →G

M→Z: GoTo5

LbI 1

If P＞Z[2]:Then GoTo2：If End

P-Z[1] →L:L→Z[14]:B→Z[15]:Prog“ROAD-SUB3”Z[21]+Z[16]Cos(M)-WZ[17]Sin(M) →F

Z[22]+Z[16]Sin(M)+WZ[17]Cos(M) →G

M+90WL^2÷(BR∏) →Z

GoTo5

LbI 2

If P＞Z[4]: ThenGoTo3：If End

P-Z[1] →L:90(2L-B) ÷R÷∏→Z[13]

RSin(Z[13])+Z[8] →Z[16]:R(1-Cos(Z[13]))+Z[6] →Z[17] Z[21]+Z[16]COS(M)-WZ[17]Sin(M) →F

Z[22]+Z[16]Sin(M)+WZ[17]Cos(M) →G

M+WZ[13] →Z

GoTo5

LbI 3

If P＞Z[5]: ThenGoTo4：If End

Z[5]-P→L：L→Z[14]:C→Z[15]:Prog“ROAD-SUB3”

Z[23]-Z[16]Cos(N)-WZ[17]Sin(N) →F

Z[24]-Z[16]Sin(N)+WZ[17]COs(N) →G

N-90WL^2÷(CR∏) →Z

GoTo5

LbI 4

P-Z[5] →L

X+(T+L)Cos(N) →F

Y+(T+L)Sin(N) →G

N→Z

LbI 5

If Z＜0 :ThenZ+360→Z:If End

四．ROAD-SUB3

If Z[14]=0:Then0→Z[16]:0→Z[17]:Else

Z[14]-Z[14]^(5)÷40÷(RZ[15])^2+Z[14]^(9)÷3456÷(RZ[15])^

(4)→Z[16]

Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]

^(11)÷42240÷(RZ[15])^(5)→Z[17]

IfEnd

说明：

X(JD) ？=交点X坐标 Y(JD) ？=交点Y坐标

FWJ？=切线方位角（ZH→JD）

ANGLE？=转向角（左负、右正）

R=曲线半径 LS1？=第一缓和曲线 LS2？=第二缓和曲线

K(JD) ？=交点里程 T1=第一切线长 T2=第二切线长

L=曲线全长 LY=圆曲线长 E=外矢距 K(ZH)=置缓里程

XS？=起算点X坐标 YS？=起算点Y坐标

KP？=待求点里程 D ANGLE？=左右边桩角度

D？=左右边桩距离（左负、右正）

～「～ (348915811)

2010-11-17 15:22:57

4850程序转换成5800的方法（老叶）

4850程序转换成5800的方法

好多同行有了4800或者4850的程序还要到处找5800的程序，不如自己搞定不求人，当然你想使用5800的其他功能，另当别论！

1、赋值命令变化：如 X=X＋R×cos（J－90V）变成X＋R×cos（J－90V）

→X;N=1变成1→N

2、sin、cos等变化：如 sinA变成sin(A),cosA变成cos(A)

3、运算顺序变化：如 A=C^2/24B变成C^2/（24B）→A