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

【分段线路坐标正反算程序】 主 程 序：【XLZB-FD】 L1: ?.1739274226→B:?.5-B→C:1→U:1.KD→XY 2.XY→KD?U:If U=1:Then Prog ZS-FD:Else Prog FS-FD:IfEnd↙ 子程序1：【ZS-FD】 L1: ?→Z:9?→V↙ L2: Lbl ?:K?K:Prog ZZ-FD:If U≠?:Then Goto ?:IfEnd:K.D?Z:If Z≠?:Then K.A?V:F+V→F:S+Zcos(F)→S:T+Zsin(F)→T:IfEnd↙ L3: Fix 3:K.X=:S◢ L4: K.Y=:T◢ L5: Norm:Goto ?↙ 子程序2：【FS-FD】 L1: Lbl 2:{VW}:K.X?V:K.Y?W:?→K↙ L2: Lbl 3:Prog ZZ-FD:V-S→I:W-T→J:Pol(I,J):J-F→J:K+Rec(I,J)→K:If Abs(I)1m:Then Fix 3:K=:K◢:K.D=:J◢ L3: Norm:Else Goto 3:IfEnd↙ L4: 1→M:?.NEXT 1.EXIT?M:If M=?:Then Goto 3:IfEnd:Goto 2↙ 子程序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: For 1→I to 5: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↙ L4: Y+M(Bsin(Z[1])+Csin(Z[2])+Csin(Z[4])+Bsin(Z[5]))→T↙ 子程序4：【DATA-FD】 L1: ?→U:If K(线路起点里程):Then !:1→U:IfEnd:If K(线路终点里程):Then !:1→U:IfEnd↙ L2: (线元起点里程)→Q:If K≤L+Q:Then (线元起点半径)→P:(线元终点半径)→R:(线元起点X坐标)→X:(线元起点Y坐标)→Y:(线元起点方位角)→A:Goto E:IfEnd:L+Q→L↙ L3: (重复L2） L4: Lbl E↙ 输入说明： L2开始每行程序为一个线元参数要素，有几个线元就输入几行。 直线半径按1E45输入。 功能常数可能位置会不同，请仔细查询； m位于Function－1－▽▽▽▽－1； r位于Function－5－5；e位于EXP键； Dsz位于Function－3－6。 ******************************************************************************************************* 【完整线路坐标正反算程序】 主 程 序：【XLFY-ALL】 L1: 5→DimZ:1→Z:1.KD→XY 2.XY→KD?Z:If Z=1:Then Prog ZS-ALL:Else Prog FS-ALL:IfEnd↙ 子程序1：【ZS-ALL】 L01: Z→?:V→9?↙ L02: Lbl ?:K?K:Prog ZZ-ALL:If Z[1]≠?:Then Goto ?:IfEnd:K.D?Z:If Z≠?:Then K.A?V:F+V→F:X+Zcos(F)→X:Y+Zsin(F)→Y:IfEnd↙ L03: Fix 3:K.X=:X◢ L04: K.Y=:Y◢ L05: Norm:Goto ?↙ 子程序2：【FS-ALL】 L01: Lbl 8:K.X?V:K.Y?W:?→K↙ L02: Lbl 9:Prog ZZ-ALL:V-X→I:W-Y→J:Pol(I,J):J-F→J:K+Rec(I,J)→K:If Abs(I)1m:Then Fix 3:K=:K◢:K.D=:J◢ L03: Norm:Else Goto 9:IfEnd↙ L04: 1→Z:?.NEXT 1.EXIT?Z:If Z=?:Then Goto 9:IfEnd:Goto 8↙ 子程序3：【ZZ-ALL】 L01: Prog DATA-ALL:Abs(B)πR÷18?-(L+M)÷2→G↙ L02: L2÷24÷R-L^4÷2688÷R^3→P:L÷2-L^3÷24?÷R2→Q↙ L03: M2÷24÷R-M^4÷2688÷R^3→U:M÷2-M^3÷24?÷R2→O↙ L04: (R+U-(R+P)cos(Abs(B)))÷sin(A