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

【分段线路坐标正反算程序】 主 程 序：【XLZB-FD】 L1: ?.1座机电话号码6→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:?.?座机电话号码2→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开始每行程序为一个线元参数要素，有几个线元就输入几行。 直线半径按 输入。 功能常数可能位置会不同，请仔细查询； 位于 Function－1－▽▽▽▽－1； 位于 Function－5－5 ； 位于 键； 位于 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