分段线路坐标正反算程序.docx

1、分段线路坐标正反算程序【分段线路坐标正反算程序】主 程 序：【XLZB-FD】L1: .1739274226B:.5-BC:1U:1.KDXY 2.XYKD?U:If U=1:Then Prog ZS-FD:Else Prog FS-FD:IfEnd子程序1：【ZS-FD】L1: Z:9VL2: Lbl :K?K:Prog ZZ-FD:If U:Then Goto :IfEnd:K.D?Z:If Z:Then K.A?V:F+VF:S+Zcos(F)S:T+Zsin(F)T:IfEndL3: Fix 3:K.X=:SL4: K.Y=:TL5: Norm:Goto 子程序2：【FS-FD】L1:

2、 Lbl 2:VW:K.X?V:K.Y?W:KL2: Lbl 3:Prog ZZ-FD:V-SI:W-TJ:Pol(I,J):J-FJ:K+Rec(I,J)K:If Abs(I)1m:Then Fix 3:K=:K:K.D=:JL3: Norm:Else Goto 3:IfEndL4: 1M:.NEXT 1.EXIT?M:If M=:Then Goto 3:IfEnd:Goto 2子程序3：【ZZ-FD】L1: Prog DATA-FD:K-LM:(P-R)2PQRO:5DimZ:.694318442Z1:.3394782Z2:1Z3:1-Z3Z4:1-Z2Z5L2: For 1I to 5:

3、A+MrZI(1P+OMZI)ZI:Next:Z3FL3: X+M(Bcos(Z1)+Ccos(Z2)+Ccos(Z4)+Bcos(Z5)SL4: Y+M(Bsin(Z1)+Csin(Z2)+Csin(Z4)+Bsin(Z5)T子程序4：【DATA-FD】L1: U:If K(线路起点里程):Then (线路终点里程):Then !:1U:IfEndL2: (线元起点里程)Q:If KL+Q:Then (线元起点半径)P:(线元终点半径)R:(线元起点X坐标)X:(线元起点Y坐标)Y:(线元起点方位角)A:Goto E:IfEnd:L+QLL3: (重复L2）L4: Lbl E输入说明： L2

4、开始每行程序为一个线元参数要素，有几个线元就输入几行。直线半径按输入。功能常数可能位置会不同，请仔细查询；位于Function11；位于；位于键；位于。*【完整线路坐标正反算程序】主 程 序：【XLFY-ALL】L1: 5DimZ:1Z:1.KDXY 2.XYKD?Z:If Z=1:Then Prog ZS-ALL:Else Prog FS-ALL:IfEnd子程序1：【ZS-ALL】L01: Z:V9L02: Lbl :K?K:Prog ZZ-ALL:If Z1:Then Goto :IfEnd:K.D?Z:If Z:Then K.A?V:F+VF:X+Zcos(F)X:Y+Zsin(F)Y

5、:IfEndL03: Fix 3:K.X=:XL04: K.Y=:YL05: Norm:Goto 子程序2：【FS-ALL】L01: Lbl 8:K.X?V:K.Y?W:KL02: Lbl 9:Prog ZZ-ALL:V-XI:W-YJ:Pol(I,J):J-FJ:K+Rec(I,J)K:If Abs(I)D+M+L+G:Then K-D-L-M-GC:Goto 5:IfEndL06: Lbl 1:E+(J-K)cos(A+18)X:N+(J-K)sin(A+18)Y:AF:Goto EL07: Lbl 2:C-C5(4RU)+C9(3456R4U4)H:C3(6RU)-C7(336R3U3)

6、+C11(4224R5U5)I:If C=K-D:Then Goto 4:IfEnd:Goto 6L08: Lbl 3:9(2K-2D-L)RU:Rsin(U)+QH:R(1-cos(U)+PIL09: Lbl 4:If B:Then -II:IfEnd:E+(S+H)cos(A+B)+Icos(A+B+9)X:N+(S+H)sin(A+B)+Isin(A+B+9)YL12: Lbl 7:RU:If B:Then -RU:IfEnd:If C=K-D:Then A+9C(UL)F:IfEnd:If C=K-D-L-M-G:Then A+B-9C(UM)F:IfEnd:If C=1:Then A

7、+18(K-D-L2)UF:IfEndL13: Lbl E子程序4：【DATA-ALL】L1: Z1:If K(线路起点里程):Then (线路终点里程):Then !:1Z1:IfEndL2：If K(起点或上一段曲线缓直点里程):Then (交点里程)J:(交点X坐标)E:(交点Y坐标)N:(半径)R:(第一缓和曲线长度)L:(第二缓和曲线长度)M: (偏角)B:(起始边方位角)A:Goto E:IfEnd L3：（重复L2）L4：Lbl E简要说明：每行程序为一个曲线的参数要素，有几个曲线就输入几行。*【中桩标高计算程序】主 程 序：【H-SJ】L1: Lbl :K?K:Prog DAT

8、A-HL2: Abs(R(G-F)200TL3: If KN-T:Then O-0.01F(N-K)S:Goto 1:IfEndL4: If KN:Then O-0.01F(N-K)-(T+K-N)2R2S:Goto 1:IfEndL5: If KN+T:Then O-0.01G(N-K)-(T+N-K)2R2S:Goto 1:IfEndL6: If KN+T:Then O-0.01G(N-K)S:IfEndL7: Lbl 1:Fix 3:H=:SNorm:Goto 子程序4：【DATA-SJ】L1: Z:If K(线路起点里程):Then (线路终点里程):Then !:1Z:IfEndL2

9、：If K(起点或上一段竖曲线终止里程):Then (变坡点里程)N:(变坡点高程)O:(竖曲线半径)R:(前纵坡值)F:(后纵坡值)G:Goto E:IfEndL3：(重复L2)L4：Lbl E*【坡脚宽度计算程序】程序名：【PJD】L1: 25L:2.5G:1.5T:8N:0.9A:0.9B:1.10C:1.5D:H-SJ?SL2: Lbl 1:H-DM?M:Abs(S-M)HL3: If S-M0:Then L+HDK:Goto 2:IfEndL4: If HN:Then L+G+HAK:Goto 2:IfEndL5: If H2N:Then L+G+NA+T+(H-N)BK:Goto

10、2:IfEndL6: If H2N:Then L+G+NA+T+NB+T+(H-2N)CK:Goto 2:IfEndL7: Lbl 2:Fix 3:L-PJ=:KL8: Norm:Goto 1*【坐标反算程序】程序名：【XY-DF】L1: I:J:A.X?D:A.Y?G:B.X?X:B.Y?Y:Pol(X-D),(Y-G):If J:Then J+36J:IfEndL2: Fix 5:AB-AZIMUTH=:JL3: Fix 3:AB-DIST=:IL4: Norm*【坐标正算程序】程序名：【DF-XY】L1: A.X?D:A.Y?G:AB-AZIMUTH?J:AB-DIST?IL2: Fix

11、 3:B.X=:D+Icos(J)XL3: B.Y=:G+Isin(J)YL4: Norm*【面积计算程序】程序名：【AREA】L1: Lbl :M?M:N?N:ME:NF:SL2: Lbl 1:X?X:Y?Y:S-(XN-YM)2S:If X=E:Then If Y=F:Then AREA=:Abs(S)S Goto :IfEnd:IfEndL3: XM:YN:Goto 1*【两直线交点计算程序】程序名：【JD】L1: 1.X?A:1.Y?B:2.X?C:2.Y?D:3.X?E:3.Y?F:4.X?G:4.Y?HL2: C-AN:D-BO:G-EP:H-FQ:QN-OPK:NB-OAU:PF-QEVL3: Fix 3:P.X=:(PU-NV)KXL4: P.Y=:(QU-OV)KYL5: Norm*【点到直线距离计算程序】程序名：【PLDIST】L1: P.X?A:P.Y?B:L1.X?E:L1.Y?F:L2.XG:L2.Y?HL2: Pol(G-E),(H-F):J-90JL3: A+10cos(J)C:B+10sin(J)DL4: C-AN:D-BO:G-EP:H-FQ:QN-OPK:NB-OAU:PF-QEVL5: (PU-NV)KX:(QU-OV)KY:Pol(X-A),(Y-B)L6: Fix 3:AB-DIST=:IL7: Norm