《分段线路坐标正反算程序》由会员分享，可在线阅读，更多相关《分段线路坐标正反算程序（12页珍藏版）》请在金锄头文库上搜索。
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:9?VL2: 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:
2、Norm:Goto ?子程序 2：【FS-FD】L1: 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)(线路终点里程):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 开始每行程序为一个线元参数要素，有几个线元
3、就输入几行。直线半径按输入。功能常数可能位置会不同，请仔细查询；位于位于；位于键；位于。*【完整线路坐标正反算程序】主 程 序：【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?:V9?L02: 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:IfEndL03:
4、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(4?R2U2)+C9(3456R4U4)H:C3(6RU)-C7(3
5、36R3U3)+C11(4224?R5U5)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 “!“:1Z1:IfEndL2：If K(起点或上一段曲线缓直点里程):Then (交点里程)J:(交点 X 坐标)E:(交点 Y 坐标)N:
6、(半径)R:(第一缓和曲线长度)L:(第二缓和曲线长度)M: (偏角)B:(起始边方位角)A:Goto E:IfEnd L3：（重复 L2）L4：Lbl E简要说明：每行程序为一个曲线的参数要素，有几个曲线就输入几行。*【中桩标高计算程序】主 程 序：【H-SJ】L1: Lbl ?:“K“?K:Prog “DATA-H“L2: 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
7、-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 “!“:1Z:IfEndL2：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
8、: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 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:
9、“B.X“?X:“B.Y“?Y:Pol(X-D),(Y-G):If J?:Then J+36?J: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 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“?
10、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.X“G:“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
