5800全线三维坐标正反算及超欠挖程序-1.docVIP

WNCX(主程序)Lbl 4 “1→ZS,2→FS,3→CQW”?N N=1=Goto 1 N=2=Goto 2 N=3=Goto 3 Lbl 1 “K=“?S “P=“?Z Prog “WNCX-PM” Abs(S-O) → W Prog “WNCX-ZS” “X=”：Locate4,4,X“Y=”：Locate4,4,YF-90→F S→ K Prog“WNCX-GC” “H=”：Locate4,4,HGoto 4 Lbl 2 “X=”?X “Y=”？YProg”WNCX-PM” X→ I Y→??J Prog “WNCX-FS” O+W→S “K=“： S “P=“： ZS→ K Prog“WNCX-GC” “H=”： HGoto 4 Lbl 3 “X=”?X “Y=”？YProg”WNCX-PM” X→ I Y→??J Prog “WNCX-FS” O+W→S “K=”： S “P=”： ZS→ K Prog“WNCX-GC” ”H=“： HProg“WNCX-CQW” ◢ Goto4 WNCX-PM（子程序名-平面线形数据库）If S ≥59227.681（线元起点里程）Then 2599818.013→U（线元起点X坐标）496887.918→V（线元起点Y坐标）59227.681→O（线元起点里程）208028’39”→G（线元起点方位角）100 →H（线元长度）1×1045→P（线元起点曲率半径）1×1045→R（线元终点曲率半径）0 →Q（线元左右偏标志：左-1右1）IfEndIf S ≥59327.681（线元起点里程）Then 2599730.112→U（线元起点X坐标）496840.237→V（线元起点Y坐标）59327.681→O（线元起点里程）208028’39”→G（线元起点方位角）90 →H（线元长度）1×1045→P（线元起点曲率半径）750→R（线元终点曲率半径）-1 →Q（线元左右偏标志：左-1右1）IfEnd………… WNCX-GC（子程序名-竖数据库）If S＜变坡终点里程And S≥变坡起点里程Then大里程坡度→A小里程坡度→B变坡点里程→O变坡点高度→G半径→RProg”SUB3-GC” IfEnd(注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断，子程序不用变动。2.如整条线只有一个纵坡比喻为2﹪，那么程序应为If S＜终点里程And S≥起点里程：Then 0.02→A：0.02→B：起点里程→O：起点高程→G：1×1045→R：Prog”SUB3-GC”:IfEnd)-ZS(正算子程序)1÷P→ C (P-R)÷(2HPR) → D 180÷π→ E 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)→ Y WNCX-FS(反算子程序)G-90→T Abs((Y-V)cos(T)-(X-U)sin（T）) → W0→ Z Lbl 0 Prog “WNCX-ZS” T+QEW(C+WD) →L (J-Y)cos(L)-(I-X)sin(L) → Z If Abs(Z)1E-6(注：此处1E-6可输入0.000001)then Goto1 Else W+Z??→ W Goto 0 If End Lbl 1 0→ Z Prog “WNCX-ZS” (J-Y)÷sin(F)→ Z SUB3-GC（高程子程序）O-S→LA-B→W Abs(R*W÷2) →T O-T→M O+T→PIf S≤M ThenG-L*B→H Goto5 Else If S≤O(欧) Then Goto3 Else If S≤P Then Goto4 IfEnd IfEnd IfEndLbi3If W＞OThen G+(M-S)2÷2÷R-L*B→H Goto5 Else If W≥0 Then G-(M-S)2÷2÷R-L*B→H Goto5 IfEnd IfEndLbi4 If W≥0 Then G+( S-P)2÷2÷R-L*A→H:Goto5 El