1
Fx4800公路坐标计算程序
N：Fixm
Lb1 0
Z[11]≠0=>Goto S ≨
{MS}
M≦第一个交点所计算最大里程Goto 1≨
M≦第二个交点所计算最大里程Goto 2≨
………………………………………………
M≦第N个交点所计算最大里程Goto N≨
Goto 0
Lb1 A
Z[11]=0=>A<0=>P=-1：≠>P=1≨A=AbsA≨
Z=180÷πR
Q=0.5L-L^3÷240R^2:T=(R+L^2÷24R)tan0.5A+Q:B=ZL÷2:O=A÷
Z+L:K”E”=(R+L^2÷24R)÷cos0.5A-R:E”ZH”=W-T:
Z[1]”HY”=E+L:
Z[2]”YH”=E+O-L:
Z[3]”HZ”=E+O:
Lb1 Z
Z[11]≠0=>{MS}≨
V=0:K=0:
M≦E=>D=W-M:C=F+180:H=F:GotoE≨
M≦Z[1]=>G=M-E:C=F+PZG^2÷6L:H=F+PBG^2÷L^2:I=F-180:Goto B≨
2
M≦Z[2]=>G=M-Z[1]:Goto C ≨
M≧Z[3]=>D=T+M-Z[3]:C=F+PA:H=C:Goto E≨
G=Z[3]-M:I=F+PA:C=I-PZG^2÷6L-180:H=I-PBG^2÷L^2
Lb1 B
D=√((G-G^5÷40R^2L^2)^2+(G^3÷6RL-G^5÷336R^3L)^2)：Goto D
Lb1 C
U=R(1-cos(B+ZG))+L^2÷24R:J=Rsin(B+ZG)+Q:
D=√(U^2+J^2):C=F+Ptan-1(U÷J):H=F+P(B+ZG):I=F-180：
Lb1 D
V=TcosI:K=TsinI
Lb1 E
X=Z[8]+DcosC+V：Y=Z[9]+DsinC+K：Z[10] ≠0=>Lb1
F:{DS}:D<0=>V=H+N-180：≠>V=H+N≨ S<0=>K=H+N-90: ≠>K=H+N+90≨
Goto G≨D=0:N≠90=>S=S÷sinN≨S<0=>K=H+N-180: ≠>K=H+N≨Lb1 G
Z[4]=X+AbsDcosV+AbsScosK◢
Z[5]=Y+AbsDsinV+AbsSsinK◢
Pol(Z[6]-Z[4],Z[7]-Z[5]):J=J+180◢
I=I◢
Z[10]≠0=>Goto F≨Z[11] ≠0=>Goto Z≨Goto 0
Lb1 1
L=缓和曲线长
R=半径
A=转角(右转正,左转负)
3
K=交点方角(本交点至前一交点)
W=交点里程
Z[8]=交点X坐标
Z[9]=交点Y坐标
Goto A
……………
Lb1 N
……………………
Goto A
说明:N为放样点与中线夹角；M为放样点里程；Z[4] 为放样点X坐标；
Z[5]为放样点Y坐标；J为测站点与放样点方位角I为测站点与放样点
距离；Z[6]为测站点X坐标；Z[7]测站点Y坐标；S为边距（左负，右
正）
