里程反算坐标

关于前面发表5800隧道超欠挖程序反算里程序运算慢问题的补充

本程序由4800程序改编而成，网上有5800积分通用公式，但由坐标反算里程及边距时很慢需要5秒，本程序大大提...

本程序由4800程序改编而成，网上有5800积分通用公式，但由坐标反算里程及边距时很慢需要5秒，本程序大大提高了反算速度。1. 主程序(TYQXJS)Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1： Goto2：↙Lbl 1:? Z： Abs(S-O) →W：Prog "SUB1"： "XS="：X◢"YS="：Y◢F-90→F： “FS=”：F▲DMS◢：Goto4↙Lbl 2：？X：？Y：X→I：Y→J： Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙2. 正算子程序(SUB1) 0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：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)+90→F： X+Zcos（F）→X： Y+Zsin（F）→Y2. 反算子程序(SUB2)G-90→T： Abs((Y-V)cosT-(X-U)sinT) →W： 0→Z：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 0Δ←┘Lbl 1：Z=0：Prog "SUB1"： (J-Y)÷sin（F）→ZSUB0 数据库子程序Goto1↙ 同时保存多个曲线时的指针Lbl 1：IF S SZ N ? 选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。S ？正算时所求点的里程，反算时为所求点的近似里程，反算时输入的近似里程不能夸线元，若夸线元的话，需进行第二次反算，并以第一次的结果做为近似里程，否则反算的里程及边距不对， Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)X ？反算时所求点的X坐标Y ？反算时所求点的Y坐标显示部分：XS=××× 正算时，计算得出的所求点的X坐标YS=××× 正算时，计算得出的所求点的Y坐标FS=××× 正算时，所求点对应的中线点的切线方位角S=××× 反算时，计算得出的所求点的里程Z=××× 反算时，计算得出的所求点的边距注：。