*******************************************************************************************************
【分段线路坐标正反算程序】
主 程 序：【XLZB-FD】
L1: B=.1739274226:C=.5-B:U=1:{U}:U"1.KD=>XY 2.XY=>KD"=1=>Prog "ZS-FD":≠>Prog "FS-FD"△↙
子程序1：【ZS-FD】
L1: Z=Ø:V=9Ø↙
L2: Lbl Ø:{KZ}:K:Prog "ZZ-FD":U≠Ø=>Goto Ø△Z"K.D"≠Ø=>{V}:V"K.A":F=F+V:S=S+Zcos(F):T=T+Zsin(F)△↙
L3: Fix 3: "K.X=":S:Pause 1:"K.Y=":T◢
L4: Norm:Goto Ø↙
子程序2：【FS-FD】
L1: Lbl 2:{VW}:V"K.X"W"K.Y":K=Ø↙
L2: Lbl 3:Prog "ZZ-FD ":I=V-S:J=W-T:Pol(I,J):J=J-F:K=K+Rec(I,J):Abs I<1m=>Fix 3:"K=":K:Pause 1:"K.D=":J◢
L3: Norm:≠>Goto 3△↙
L4: M=1:{M}:M"Ø.NEXT 1.EXIT"=Ø=>Goto 3△Goto 2↙
子程序3：【ZZ-FD】
L1: Prog "DATA-FD":M=K-L:O=(P-R)÷2PQR:D=.Ø694318442:E=.33ØØØ94782:F=1:G=1-E:H=1-D:I=5↙
L2: Lbl 4:C[I]=A+MrC[I](1÷P+OMC[I]):Dsz I:Goto 4↙
L3: S=X+M(Bcos D+Ccos E+CcosG+BcosH)↙
L4: T=Y+M(Bsin D+Csin E+CsinG+BsinH)↙
子程序4：【DATA-FD】
L1: U=Ø:K<(线路起点里程)=>"<<!":U=1△K>(线路终点里程)=>=">>!": U=1△↙
L2: Q=(线元起点里程):K≤L+Q=>P=(线元起点半径):R=(线元终点半径):X=(线元起点X坐标):Y=(线元起点Y坐标):A=(线元起点方位角):Goto E△L=L+Q↙
L3: (重复L2）
L4: Lbl E↙
输入说明： L2开始每行程序为一个线元参数要素，有几个线元就输入几行。
直线半径按<1E45>输入。
<m>位于<Function－1－▽▽▽▽－1；<r>位于<Function－5－5>；<e>位于<EXP>键；
<Dsz>位于<Function－3－6>。
*******************************************************************************************************
【完整线路坐标正反算程序】
主 程 序：【XLFY-ALL】
L1: Defm 5:Z=1:{Z}:Z"1.KD=>XY 2.XY=>KD"=1=>Prog "ZS-ALL":≠>Prog "FS-ALL"△↙
子程序1：【ZS-ALL】
L01: Z=Ø:V=9Ø↙
L02: Lbl Ø:{KZ}:K:Prog "ZZ-ALL":Z[1]≠Ø=>Goto Ø△Z"K.D"≠Ø=>{V}:V"K.A":F=F+V:X=X+ZcosF:Y=Y+ZsinF△
L03: Fix 3:"K.X=":X:Pause 1:"K.Y=":Y◢Norm:Goto 0↙
子程序2：【FS-ALL】
L01: Lbl 8:{VW}:V"K.X"W"K.Y":K=Ø↙
L02: Lbl 9:Prog "ZZ-ALL":I=V-X:J=W-Y:Pol(I,J):J=J-F:K=K+Rec(I,J):Abs I<1m=>Fix 3:"K=":K:Pause 1:"K.D=":J◢Norm:≠>Goto 9△↙
L03: Z=1:{Z}:Z"Ø.NEXT 1.EXIT"=Ø=>Goto 9△Goto 8↙
子程序3：【ZZ-ALL】
L01: Prog "DATA-ALL":G=AbsBπR÷18Ø-(L+M)÷2↙
L02: P=L²÷24÷R-L^4÷2688÷R^3:Q=L÷2-L^3÷24Ø÷R²↙
L03: U=M²÷24÷R-M^4÷2688÷R^3:O=M÷2-M^3÷24Ø÷R²↙
L04: T=(R+U-(R+P)cosAbsB)÷sinAbsB+Q:S=(R+P-(R+U)cosAbsB)÷sinAbsB+O:D=J-T+1m↙
L05: K≤D=>Goto 1 △K≤D+L=>C=K-D:U=L:Goto 2 △K≤D+L+G=>C=1:Goto 3 △K≤D+M+L+G=>C=K-D-M-L-G:U=M:Goto 2 △K>D+M+L+G=>C=K-D-L-M-G:Goto 5 △↙
L06: Lbl 1:X=E+(J-K)cos(A+18Ø):Y=N+(J-K)sin(A+18Ø):F=A:Goto E↙
L07: Lbl 2:H=C-C^5÷(4ØR²U²)+C^9÷(3456R^4U^4):I=C^3÷(6RU)-C^7÷(336R^3U^3)+C^11÷(4224ØR^5U^5):C=K-D=>Goto 4 △Goto 6↙
L08: Lbl 3:U=9Ø(2K-2D-L)÷π÷R:H=RsinU+Q:I=R(1-cosU)+P↙
L09: Lbl 4:B<Ø=>I=-I △X=E+Tcos(A+18Ø)+HcosA+Icos(A+9Ø):Y=N+Tsin(A+18Ø)+HsinA+Isin(A+9Ø):Goto 7↙
L10: Lbl 5:F=A+B:X=E+(C+S)cosF:Y=N+(C+S)sinF: Goto E↙
L11: Lbl 6:B>Ø=>I=-I △X=E+(S+H)cos(A+B)+Icos(A+B+9Ø):Y=N+(S+H)sin(A+B)+Isin(A+B+9Ø)↙
L12: Lbl 7:U=R:B<Ø=>U=-R △C=K-D=>F=A+9ØC²÷(πUL) △C=K-D-L-M-G=>F=A+B-9ØC²÷(πUM) △C=1=>F=A+18Ø(K-D-L÷2)÷π÷U △↙
L13: Lbl E↙
子程序4：【DATA-ALL】
L1: Z[1]=Ø:K<(线路起点里程)=>"<<!":Z[1]=1△K>(线路终点里程)=>=">>!": Z[1]=1△↙
L2：K≤(起点或上一段曲线缓直点里程)=>J(交点里程):E=(交点X坐标):N=(交点Y坐标):R=(半径):L=(第一缓和曲线长度):M=(第二缓和曲线长度): B=(偏角):A=(起始边方位角):Goto E△ ↙
L3：（重复L2）
L4：Lbl E
简要说明：每行程序为一个曲线的参数要素，有几个曲线就输入几行。
*******************************************************************************************************
【中桩标高计算程序】
主 程 序：【H-SJ】
L1: Lbl Ø:{K}:K:Prog "DATA-H"↙
L2: T=Abs(R(G-F))÷200↙
L3: K≤N-T=>S=O-0.01F(N-K):Goto 1△↙
L4: K≤N=>S=O-0.01F(N-K)-(T+K-N)^2÷R÷2:Goto 1△↙
L5: K≤N+T=>S=O-0.01G(N-K)-(T+N-K)^2÷R÷2:Goto 1△↙
L6: K>N+T=>S=O-0.01G(N-K)△↙
L7: Lbl 1:Fix 3:"H=":S◢Norm:Goto Ø↙
子程序4：【DATA-ALL】
L1: Z=Ø:K<(线路起点里程)=>"<<!":Z=1△K>(线路终点里程)=>">>!": Z=1△↙
L2：K≤(起点或上一段竖曲线终止里程)=>N(变坡点里程):O=(变坡点高程):R=(竖曲线半径<凸+ 凹->):F=(前纵坡值):G=(后纵坡值):Goto E△ ↙
L3：（重复L2）
L4：Lbl E
*******************************************************************************************************
【坡脚宽度计算程序】
程序名：【PJD】
L1: L=25:G=2.5:T=1.5:N=8:A=0.9:B=0.9:C=1.10:D=1.5:S"H-SJ"↙
L2: Lbl 1:{M}:M"H-DM":H=Abs(S-M)↙
L3: S-M≥0=>K=L+HD:Goto 2△↙
L4: H≤N=>K=L+G+HA:Goto 2△↙
L5: H≤2N=>K=L+G+NA+T+(H-N)B:Goto 2△↙
L6: H>2N=>K=L+G+NA+T+NB+T+(H-2N)C:Goto 2△↙
L7: Lbl 2:Fix 3:"L-PJ=":K◢↙
L8: Norm:Goto 1↙
*******************************************************************************************************
【坐标反算程序】
程序名：【XY-DF】
L1: I=Ø:J=Ø:{XYDG}:D"A.X"G"A.Y"X"B.X"Y"B.Y":Pol((X-D),(Y-G)):J<Ø=>J=J+36Ø △
L2: Fix 5:J" AB-AZIMUTH ="◢
L3: Fix 3:I"AB-DIST ="◢
L4: Norm↙
*******************************************************************************************************
【坐标正算程序】
程序名：【DF-XY】
L1: {DGIJ}:D"A.X"G"A.Y"J"AB-AZIMUTH "I"AB-DIST"↙
L2: Fix 3:X"B.X"=D+IcosJ◢
L3: Y"B.Y"=G+IsinJ◢
L4: Norm↙
*******************************************************************************************************
【面积计算程序】
程序名：【AREA】
L1: Lbl Ø:{MN}:MN:E=M:F=N:S=Ø↙
L2: Lbl 1:{XY}:S=S-(XN-YM)÷2:X=E=>Y=F=>S"AREA"=Abs(S)◢ Goto Ø△△↙
L3: M=X:N=Y:Goto 1↙
*******************************************************************************************************
【两直线交点计算程序】
程序名：【JD】
L1: {ABCDEFGH}:A"1.X"B"1.Y"C"2.X"D"2.Y"E"3.X"F"3.Y"G"4.X"H"4.Y"↙
L2: N=C-A:O=D-B:P=G-E:Q=H-F:K=QN-OP:U=NB-OA:V=PF-QE↙
L3: Fix 3:X"P.X"=(PU-NV)÷K◢↙
L4: Y"P.Y"=(QU-OV)÷K◢
L5: Norm↙
*******************************************************************************************************