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

FX5800P全线任意里程中边桩正反算及高程计算带超欠挖 FX5800P全线任意里程中边桩坐标正反算（加了数据库） 本程序非本人原创，结合上传者长处，进行改编，愿收获和大家共享，不足之处多多指教。含竖曲线及隧道超欠挖，本程序由内蒙@文哥和师父阿玖哥共同改编完成主程序????????????????ZBJSLbl 6：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) →D：180÷π→E:N=1 =Goto 1: Goto 2Lbl?? 1:?Z: ?T:Abs(S-O)→W: ProgSUB1: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”:Goto 6Lbl 2?X:?Y:X→I:Y→J:ProgSUB2: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”:Goto 6 如不想用偏角法放样可直接删除“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→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反算子程序??SUB2 G-90→TAbs ((Y-V)cosT-(X-U)sin(T)) →W:0→ZLbl6：Prog SUB1T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→ZIF Abs（Z）1E-6：Then0→Z:Prog SUB1:(J-Y)÷sin（F）→Z:Else W+Z→W：ProgGC:Goto6:IfEnd数据库子程序???? ZP1Goto 1Lbl??1：IF??S线元终点里程：Then@@@→O(线元起点里程) ：@@@ →U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G(线元起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→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:????(计算点里程输入)If??EXXXAND??E≥XXX :Then XXX→A : XXX→B :XXX→F : XXX→G :XXX→R :Prog“GC”↙ If??EXXXAND??E≥XXX :Then XXX→A : 0→B :XXX→F : XXX→G :XXX→R :Prog“GC”：Goto?7↙If??k本段竖曲线终点里程??AND??K≥前一竖曲线终点里程 :Then??XXX→前坡（大里程向）A : XXX→后坡（小里程向）B : XXX→竖曲线交点里程S :XXX→交点高程G : XXX→曲率半径R : Prog“GC”：Goto?7↙………依次类推，计