5800计算器普通线路全线坐标中边桩计算程序3.docVIP

fx-4800计算器直﹑曲线上任意一点中边桩坐标计算程序 时间:2009-11-26 21:42:01 ??来源:本站??作者:未知 主程序ZQX? Z? B? Z? XY E“OX”F“OY”O“HX”V“HY”←02: Lbi 0：Fixm:｛L｝:L“QLC”:Z［1］ L: L≦缓直点里程 ﹥K 直缓点里程: N 缓直点里程: R 半径：P 缓和曲线长：Q 1或-1：A 直缓点X坐标： B 直缓点Y坐标：C 交点X坐标：D 交点Y坐标：Goto 1： ≠﹥L≦下一个缓直点里程 ﹥K 直缓点里程:N 缓直点里程:R 半径……Goto 1←04: Lbi 1：Poi（O-E，V-F: V-F≧0 ﹥M J: ≠﹥M 360+J⊿ Poi（C-A，D-B）:T J:L≦K ﹥Poi（C-A，D-B）: Rec K-L,180+T:Prog“Z” ←06: Goto 2:⊿ P≧Abs L-N ﹥G A: Rec I,J+180Q N-K-P ÷∏÷R: H B: W 5:A C+I: B D+J: Q -Q: Z K: K N: Poi（C-A，D-B）:T J⊿←08: P≧Abs L-K ﹥L Abs L-K : X L-L∧5÷40÷R2÷P2+ L∧9÷3456÷R∧4÷P∧4:Y L∧3÷6÷R÷P- L∧7÷336÷R∧3÷P∧3+ L∧11÷42240÷R∧5÷P∧5:Poi（X，Y+10∧-6）: Rec I,T+QJ : Prog“Z” ←10: T T+90QL2÷∏÷R÷P: Goto2:⊿ L Abs L-K : I 90 2L-P ÷∏÷R: J 90P÷∏÷R: X RsinI+P-RsinJ-P∧3÷40÷R2+P∧5÷3456÷R∧4: Y RcosJ-RcosI+P2÷6÷R- P∧4÷336÷R∧3+ P∧6÷42240÷R∧5: Poi（X，QY）: Rec I,T+J : T T+90Q 2L-P ÷∏÷R: Prog“Z” ←12：Lbi 2：｛S｝:S“BL”: W 5 ﹥A G:B H:K Z:W 0:Q -Q:⊿ S:S 0 ﹥Goto 0: ⊿:｛U｝:N-Z［1］≦P ﹥U U+180: Goto 3: ≠﹥Goto 3←14: Lbi 3：U≧360 ﹥U U-360: ⊿ Rec S,T+U ←X+I▲ X+I显示左﹑或右边桩X坐标 Y+J▲ Y+J显示左﹑或右边桩Y坐标 16: ｛SU｝:S“ZBL”U“ZZJ” ←Z［2］“ZBX” X+I+Scos T+U ▲Z［3］“ZBY” Y+J+Ssin T+U ▲18: Y+J-F≧0 ﹥ Poi（X+I-E，Y+J-F: ≠﹥Poi（X+I-E，Y+J-F:J 360+J⊿J-M≧0 ﹥J J-M: ≠﹥J 360+J-M⊿←J“QJ” J▲I“QL” I▲20: Goto 2 ⊿子程序Z02: X“QX” A+I▲ QX显示中桩X坐标 04: Y“QY” B+J▲ QY显示中桩Y坐标 06: Poi（X-E，Y-F: Y-F≧0 ﹥J J: ≠﹥J 360+J⊿←08: J J-M: J≧0 ﹥J J: ≠﹥J 360+J⊿←10: J“QJ” J▲12: I“QL” I▲第1页? 共1页fx-4850计算器直﹑曲线上任意一点中边桩坐标计算程序 主程序ZQX? Z? B? Z? XY02: Lbi 0：Fixm:｛L｝:L“QLC”:Z［1］ L: L≦缓直点里程 ﹥K 直缓点里程: N 缓直点里程: R 半径：P 缓和曲线长：Q 1或-1：A 直缓点X坐标： B 直缓点Y坐标：C 交点X坐标：D 交点Y坐标：Goto 1： ≠﹥L≦下一个缓直点里程 ﹥K 直缓点里程:N 缓直点里程:R 半径：P 缓和曲线长：Q 1或-1：A 直缓点X坐标：B 直缓点Y坐标：……Goto 1： ←04: Lbi 1：Poi（O-E，V-F: V-F≧0 ﹥M J: ≠﹥M 360+J⊿ Poi（C-A，D-B）:T J: L≦K ﹥Poi（C-A，D-B）: Rec K-L,180+T:Prog“Z” ←06: Goto 2:⊿ P≧Abs L-N ﹥G A: Rec I,J+180Q N-K-P ÷∏÷R: H B: W 5:A C+I: B D+J: Q -Q: Z K: K N: Poi（C-A，D-B）:T J⊿←08: P≧Abs L-K ﹥L Abs L-K : X L-L∧5÷40÷R2÷P2+ L∧9÷3456÷R∧4÷P∧4:Y L∧3÷6÷R÷P- L∧7÷336÷R∧3÷P∧3+ L∧11÷42240÷R∧5÷P∧5:P