【分段线路坐标正反算程序】

《【分段线路坐标正反算程序】》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、【分段线路坐标正反算程序】主程序：【XLZB-FD】L1:Ø.1739274226→B:Ø.5-B→C:1→U:"1.KD→XY2.XY→KD"?U:IfU=1:ThenProg"ZS-FD":ElseProg"FS-FD":IfEnd↙子程序1：【ZS-FD】L1:Ø→Z:9Ø→V↙L2:LblØ:"K"?K:Prog"ZZ-FD":IfU≠Ø:ThenGotoØ:IfEnd:"K.D"?Z:IfZ≠Ø:Then"K.A"?V:F+V→F:S+Zcos(F)→

2、S:T+Zsin(F)→T:IfEnd↙L3:Fix3:"K.X=":S◢L4:"K.Y=":T◢L5:Norm:GotoØ↙子程序2：【FS-FD】L1:Lbl2:{VW}:"K.X"?V:"K.Y"?W:Ø→K↙L2:Lbl3:Prog"ZZ-FD":V-S→I:W-T→J:Pol(I,J):J-F→J:K+Rec(I,J)→K:IfAbs(I)<1m:ThenFix3:"K=":K◢:"K.D=":J◢L3:Norm:ElseGoto3:IfEnd↙L4:1→M:"Ø.NEXT1.EXIT"?M:IfM=Ø:T

3、henGoto3:IfEnd:Goto2↙子程序3：【ZZ-FD】L1:Prog"DATA-FD":K-L→M:(P-R)÷2PQR→O:5→DimZ:Ø.Ø694318442→Z[1]:Ø.33ØØØ94782→Z[2]:1→Z[3]:1-Z[3]→Z[4]:1-Z[2]→Z[5]↙L2:For1→Ito5:A+MrZ[I](1÷P+OMZ[I])→Z[I]:Next:Z[3]→F↙L3:X+M(Bcos(Z[1])+Ccos(Z[2])+Ccos(Z[4])+Bcos(Z[5]))→S

4、↙L4:Y+M(Bsin(Z[1])+Csin(Z[2])+Csin(Z[4])+Bsin(Z[5]))→T↙子程序4：【DATA-FD】L1:Ø→U:IfK<(线路起点里程):Then"<(线路终点里程):Then">>!":1→U:IfEnd↙L2:(线元起点里程)→Q:IfK≤L+Q:Then(线元起点半径)→P:(线元终点半径)→R:(线元起点X坐标)→X:(线元起点Y坐标)→Y:(线元起点方位角)→A:GotoE:IfEnd:L+Q→L↙L3:(重复L2）L4:LblE↙输入说明：L2开始每行程序为一个线元参数要

5、素，有几个线元就输入几行。直线半径按<1E45>输入。功能常数可能位置会不同，请仔细查询；位于位于；位于键；位于。*******************************************************************************************************【完整线路坐标正反算程序】主程序：【XLFY-ALL】L1:5→DimZ:1→Z:"1.KD→XY2.XY→KD"?Z:IfZ

6、=1:ThenProg"ZS-ALL":ElseProg"FS-ALL":IfEnd↙子程序1：【ZS-ALL】L01:Z→Ø:V→9Ø↙L02:LblØ:"K"?K:Prog"ZZ-ALL":IfZ[1]≠Ø:ThenGotoØ:IfEnd:"K.D"?Z:IfZ≠Ø:Then"K.A"?V:F+V→F:X+Zcos(F)→X:Y+Zsin(F)→Y:IfEnd↙L03:Fix3:"K.X=":X◢L04:"K.Y=":Y◢L05:Norm:GotoØ↙子程序2：【FS-A

7、LL】L01:Lbl8:"K.X"?V:"K.Y"?W:Ø→K↙L02:Lbl9:Prog"ZZ-ALL":V-X→I:W-Y→J:Pol(I,J):J-F→J:K+Rec(I,J)→K:IfAbs(I)<1m:ThenFix3:"K=":K◢:"K.D=":J◢L03:Norm:ElseGoto9:IfEnd↙L04:1→Z:"Ø.NEXT1.EXIT"?Z:IfZ=Ø:ThenGoto9:IfEnd:Goto8↙子程序3：【ZZ-ALL】L01:Prog"DATA-ALL":Abs