5800程序

FX5800P全线任意里程中边桩坐标正反算（加了数据库）本程序非本人原创，结合上传者长处，进行改编，愿收获和大家共享，不足之处多多指教。希望过路神仙把竖曲线加进去带算隧道超欠挖，谢谢曲線任意里程中邊樁坐標正反算5800p本程序由内蒙文哥和师父阿玖哥共同改编完成主程序                ZBJSLbl 6："1.SZ XY"："2.XY SZ"：？S：？N：Prog“SUB0”1÷PC：(P-R)÷(2HPR) D：180÷E:N=1 =>Goto 1: Goto 2Lbl   1:?Z: Abs(S-O)W: Prog"SUB1":"XS=":X"YS=":Y"FS=":F-90 DMS“XC” ?C： “YC” ? E：0I：0J：Pol（X-C，Y-E）:“I=”：IIf  J0: Then “J=”: J+360DMSIfEndIf  J >0：Then “J=” ：JDMSIfEnd：Goto 6Lbl 2?X:?Y:XI:YJ:Prog"SUB2":O+WS:Cls:"S=":S"Z=":ZGoto 6正算子程序   SUB10.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）Y反算子程序  SUB2 G-90T(Y-V)cosT-(X-U)sin(T) WAbs(W)W:0ZLbl6：Prog "SUB1"T+QEW(C+WD) L： (J-Y)cos（L）-(I-X)sin（L）ZIF Abs（Z）<1E-6：Then0Z:Prog "SUB1":(J-Y)÷sin（F）Z:Else W+ZW：Goto6:IfEnd数据库子程序     SUB0Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。例：左幅为K129+500,右幅输线元参数里程为1129+500，其他不变，前面1为任意数字，计算机便于区分)Lbl  1：IF  S<线元终点里程：ThenO(线元起点里程) ： U(线元起点X坐标)：V(线元起点Y坐标)：G(线元起点计算方位角)：P(线元起点半径)：R(线元止点半径)：H(线元长度)：Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEndIF  S<线元终点里程：ThenO(线元起点里程) ： U(线元起点X坐标)：V(线元起点Y坐标)：G线元(起点计算方位角)：P(线元起点半径)：R(线元止点半径)：H(线元长度)：Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd