fx-5800 隧道超欠挖计算程序.docxVIP

隧洞5800正反算及隧道超欠挖程序2011-02-24 10:59:17| 分类：默认分类 | 标签： |字号大中小订阅隧洞5800正反算及隧道超欠挖程序声名：本程序非本人原创，是根据上传者程序，结合自身实际进行改编，不足之处多多指教14H-1402(主程序)Lbl 0:1→ZS,2→FSCQW?NN=1=Goto 1N=2=Goto 2Lbl 1: “K=”?S：“P=”?Z：Prog “SJ-PM”： Abs(S-O) → W：Prog SUB1 ： “X=：Locate4,4,X:Y=：Locate4,4,Y:F-90→F:S→ K:Prog“SJ-GC2”：“H=”：Locate4,4,H◢ClsGoto 0Lbl 2:“X=”?X：“Y=”？Y:Prog“SJ-PM”： X→ I： Y→ J：Prog SUB2：O+W→S: “K=： S ◢“P=： Z◢S→ S:Prog“SJ-GC2” ：“H=”： H◢“QG=” ：H+2.947:◢Prog“SJ-CQW” ◢ClsGoto 0SJ-PM（子程序名-平面线形数据库）If S ≥0(线元起点里程）And S＜619.41:Then 0→U（线元起点X坐标）：0→V（线元起点Y坐标）：0→O（线元起点里程）：0→G（线元起点方位角）：619.41→H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1）：IfEndIf S ≥619.41（线元起点里程）And S＜1099.84:Then 619.41→U（线元起点X坐标）：0→V（线元起点Y坐标）：619.41→O（线元起点里程）：0→G（线元起点方位角）：480.443 →H（线元长度）：250→P（线元起点曲率半径）：250→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1）：IfEnd…………SJ-GC2（子程序名-竖曲线数据库）…………If S＜427.8变坡终点里程And S≥122.2变坡起点里程：Then大里程坡度0.067→A：小里程坡度0.067→B：变坡点里程100→O：变坡点高度1594.75→G：S-O→L：G+LB→H :IfEndIf S＜472.2 And S≥427.8:Then-0.03→A:0.067→B:100→O:427.8→Q：1594.75→G:1200→R: S-O→L：G+LB-(S-Q)2 ÷(2R) →H :IfEnd(凸曲线)If S＜517.8 And S≥472.2 :Then0.03→A:0.03→B:450→O:1618.2→G：S-O→L：G+LB→H :IfEndIf S＜562.2 And S≥517.8Then0.067→A:0.03→B:450→O:517.8→Q：1618.2→G:1200→R: S-O→L：G+LB+( S-Q)2 ÷(2R) →H :IfEnd(凹曲线)If S＜867.8 And S≥562.2 :Then0.067→A:0.067→B:540→O:1620.9→G：S-O→L：G+LB→H :IfEndSJ-CQW (子程序名-隧道数据库)“H1=”?F:”P=”?ZIf F-H≥2.947:Then √((Abs (Z))2+(F-H-2.94)2 )-4.45→W: IfEndIf F-H≤2.947 And (H-0.47)-F→W: IfEnd…“+CQ,-CQ=”: WSUB1 (正算子程序)?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)→ YSUB2 (反算子程序)?G-90→T： Abs((Y-V)cos(T)-(X-U)sin（T）) → W： 0→ Z：Lbl 0：Prog SUB1-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