自用5800p全线任意里程中边桩正反算及高程计算带超欠挖

《自用5800p全线任意里程中边桩正反算及高程计算带超欠挖》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、FX5800P全线任意里程中边桩正反算及高程计算带超欠挖FX5800P全线任意里程中边桩坐标正反算（加了数据库）本程序非本人原创，结合上传者长处，进行改编，愿收获和大家共享，不足之处多多指教。含竖曲线及隧道超欠挖，本程序由内蒙@文哥和师父阿玖哥共同改编完成主程序                ZBJSLbl6："1.SZ→XY"："2.XY→SZ"：？S：？N：“DYPQXSJK=”？→A:A=1=>Prog“ZP1”:A=2=>Prog“ZP2”:A=3=>Prog“YP1”:A=4=>Prog“YP2”1÷P→C：(P-R)÷(2HPR)

2、→D：180÷π→E:N=1=>Goto1:Goto2Lbl  1:?Z:?T:Abs(S-O)→W:Prog"SUB1":"XS=":X◢"YS=":Y◢"FS=":F-90►DMS◢“XC”?C：“YC”?E：0→I：0→J：Pol（X-C，Y-E）:“I=”：I◢If  J∠0:Then“J=”:J+360►DMS◢IfEndIf  J>0：Then“J=”：J►DMS◢IfEnd：“DYSQXSJK=”？→B:B=1=>Prog“ZG1”:B=2=>Prog“ZG1”:B=3=>Prog“YG1”:B=3=>Prog“YG1”:Got

3、o6Lbl2?X:?Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:"S=":S◢"Z=":Z◢“DYSQXSJK=”？→B:B=1=>Prog“ZG1”:B=2=>Prog“ZG1”:B=3=>Prog“YG1”:B=3=>Prog“YG1”:Goto6如不想用偏角法放样可直接删除“XC”?C：“YC”?E：0→I：0→J：Pol（X-C，Y-E）:“I=”：I◢直接里程推坐标。正算子程序  SUB10.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→

4、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-90+T）→X：Y+Zsin（F-90+T）→Y反算子程序  SUB2G-90→TAbs((Y-V)cosT-(X-U)sin(T)

5、)→W:0→ZLbl6：Prog"SUB1"T+QEW(C+WD)→L：(J-Y)cos（L）-(I-X)sin（L）→ZIFAbs（Z）<1E-6：Then0→Z:Prog"SUB1":(J-Y)÷sin（F）→Z:ElseW+Z→W：Prog"GC":Goto6:IfEnd数据库子程序    ZP1Goto1Lbl  1：IF  S<线元终点里程：Then@@@→O(线元起点里程)：@@@→U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G(线元起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→

6、H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEndIF  S<线元终点里程：Then@@@→O(线元起点里程)：@@@→U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G线元(起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd。。。。。。。。。。。。。。。。。。。。。。。。。。。      ZG1(数据库1)Lb1  7↙CLs:?E:    (计算点

7、里程输入)If  E

8、换算成小数。GC(竖曲线)F-E→L：A-B→W:Abs（R*W/2）→I:F-I→C:F+I→D↙If  E≤C:Then  G-L*B→H:Goto5:Else