卡西欧5800计算坐标正反算程序.docVIP

卡西欧5800计算程序 发布时间:2009-06-01 10:57:50 WN（不运行）＂ZS=1,FS=2＂？N: 1÷P C:(P-R)÷(2HPH) →D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚LbI 1:1 →I:0 →Z←┚Abs(K-Ｏ) W: Prog＂ZS＂F-90→F←┚＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：X+Lcos(F+K) Z[3]◢＂ZY=＂: Y+Lsin(F+K) Z[4]◢＂QXFWJ=＂:F? DMSAbs(Z) →Z:Goto 8←┚←┚LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+WK◢＂FSJL=＂:ZLbl 8正算子程序（ZS）（不运行）1÷PC:(P-R)÷(2HPR) →D: 180÷π→E0.1739274226→A： 0.3260725774B： 0.0694318442K： 0.3300094782L： 1-LF： 1-KM：U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））X： V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））Y： G+QEW（C+WD）+90F： X+ZcosFX： Y+ZsinFY3反算子程序（FS）（不运行）G-90T： Abs（（Y-V）cosT-（X-U）sinT）W： 0Z←┚Lbl 0←┚prog＂ZS＂：T+QEW（C+WD）L：（J-Y）cosL-（I-X）sinLZ：If Abs(Z)＜0.000001: Then? Goto1：Else W+ZW：IfEnd :Goto 0Lbl 1： 0Z：Prog＂ZS＂：（J-Y）÷sinFZZX-WN（运行主程序，该程序适用于匝道，对全段完整非完整曲线计算太过麻烦） ＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K＞259.562: Then Goto D： IfEnd:IfEnd:IfEnd:IfEnd←┚LbI A:92094.336（起点X坐标）U:8287.962（起点Y坐标）V:0起点桩号O:145°11＇54＂（方位角）G:126.9（曲线长度）H:10^(45) （起点半径）P:10^(45) （止点半径）R:+1（路线左右偏，左负右正）Q:Prog ＂WN＂:Goto WLbI B:91990.134U:8360.388→V:126.9→O:145°11＇54＂G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂WN＂:Goto WLbI C:91947.609U:8386.570→V:176.9→O:154°44＇51＂G:82.662→H:150 →P:150 →R:+1→Q:Prog ＂WN＂:Goto WLbI D:91867.101U:8399.992→V:259.562→O:186°19＇19＂G:50→H:150 →P: 10^(45) →R:+1→Q:Prog ＂WN＂:Goto WLbI W:＂PJ1＂?T（该项是只左右边桩再左右偏距，输0为不再左右偏，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）If T=0：Then Z[3]Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚LbI V:＂JJ1＂? O（左右边桩再偏夹角，用180°减去路线夹角）＂X1=＂: Z[3]+Tcos（F+N+ O）U◢＂Y1=＂ :Z[4]+Tsin（F+N+ O）V◢U→Z: V→M: GotoP←┚LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°J: IfEnd←┚＂JL=＂:I（仪站至测点的距离）＂FWJ=＂:J? DMS（仪站至测点的方位角）Goto0＂PJ1＂输0直接出距离和方位角1． 规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0。2． 当所求点位于中线时，Z