FX5800计算器线元法正反算及隧道超欠程序.doc

FX5800计算器线元法全线（带数据库）正反算及隧道超欠程序1、 主程序(XLZFS)Lbl 4：1.SZ = XY：2.XY = SZ：3.SD = CQW？N：？S：Prog“PMSJ”1PC: (P-R)(2HPR) D:180E:if N=1:then Goto1：:if N=2:then Goto2：if N=3:then Goto3:Return:ifEndLbl 1:“Z”？Z： Abs(S-O) W：Prog SUB1： XS=：XYS=：YF-90F：Prog“SQX”：“H=”:H “FS=”：FDMS：Goto4Lbl 2：“X”？X：“Y” ？Y：XI：YJ： Prog“SUB2”：O+WS：“S=”：S“Z=”：ZProg“SQXSJ”： Prog“SQX”： “H=”:HGoto4Lbl 3：“X”？X：“Y” ？Y：XI：YJ： Prog“SUB2”：O+WS：“S=”：S“Z=”：ZProg“SQXSJ”： Prog“SQX”： “H=”:HProg“SDCQW”Goto42. 正算子程序(SUB1) 0.1739274226A： 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+Zcos（F）X： Y+Zsin（F）Y3. 反算子程序(SUB2)G-90T： Abs(Y-V)cosT-(X-U)sinT) W： 0Z：Lbl 0：Prog SUB1：T+QEW(C+WD) L： (J-Y)cos（L）-(I-X)sin（L）Z：Abs（Z）Goto1： W=W+Z：Goto 0Lbl 1：Z=0：Prog SUB1： (J-Y)sin（F）Z4.平面数据库（PMSJ）IF S*（线元终点里程）:Then*G（线元起点方位角）:*O（线元起点里程）:*U（线元起点X）:*V（线元起点Y）:*P（线元起点曲率半径）:*R（线元终点曲率半径）: *H（线元起点至终点长度）：0或1、-1Q：Return:IfEndLbl 1：IF S XY 2. XY = SZ 3. SD = CQWN ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。；输入3表示由坐标反算里程和边距,及实测高程求超欠挖。S ？ 正算时所求点的里程，反算时为所求点的近似里程，反算时输入的近似里程不能夸线元，若夸线元的话，需进行第二次反算，并以第一次的结果做为近似里程，否则反算的里程及边距不对， Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)，H为求点里程的内轨顶设计标高，F为求点方位角，隧道超欠计算时，H1？为实测点高程X ？反算及隧道超欠时全站仪实测点的X坐标Y ？反算及隧道超欠时全站仪实测点的Y坐标显示部分：XS= 正算时，计算得出的所求点的X坐标YS= 正算时，计算得出的所求点的Y坐标FS= 正算时，所求点对应的中线点的切线方位角H=正算时为求点里程的内轨顶设计标高S= 反算时，计算得