5800万能隧道程序[精].docVIP

5800万能隧道程序 1,主程序 Lbl 0 ： 1.SZ = XY ： 2.XY = SZ ：？T ：？S ： Prog “ SUB0 ” ↙ 1 ÷ P → C: (P-R) ÷ (2HPR) → D:180 ÷∏→ E:T=1 = Goto1 ： Goto2 ：↙ Lbl 1: “LICHENG=”？K：“BANJNG=”？P：“PIANJIN=”？S： ： Abs(S-O) → W ： Prog SUB1 ↙ Prog GC：G+√ˉ(P 2－S 2)+1.66◢ XS= ： X ◢ YS= ： Y ◢ ZS= ： Z ◢ F-90 → F ：“ FS= ”： F ?DMS ◢ Goto 0 Lbl 2 ：Prog “ SUB2 ” ↙ Prog “YFS3 ” Goto 0↙ 2. 正算子程序 (SUB1) 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 3. 反算子程序 (SUB2) Lbi 1∶“BANJING”？P：“X”？X：“Y”？Y：“Z”？Z：X→I：Y→J：G-90 → T ： Abs((Y-V)cos(T)-(X-U)sin(T) ) → W ： 0 → Z ： Lbl 4 ： Prog SUB1 ： T+QEW(C+WD) → L ： (J-Y)cos （ L ） -(I-X)sin （ L ）→ Z ： IF Abs （ Z ） 0.01 ： Then0 → Z:Prog SUB1 :(J-Y) ÷ sin （ F ）→ Z:Else W+Z → W: Goto4:IfEnd↙ “LICHENG=”：K◢ “PIANJU=”：S◢ 4小程序(YFS2) Prog“GC”∶ “GAOCHA=”∶Z－G－1.66 →T◢ If P=0∶Then Prog“YANGGEN仰拱” ∶Else Prog“YFS3” ↙ Goto1∶Return∶Stop ↙ 4小程序(YFS3) Lbi 1∶If T＞0∶Then Abs(S) －√ˉ(P 2－T 2)→W∶Prog“CQW” ↙∶ Else Goto2↙ Lbi 2∶If Abs(T) ＜0000∶Then Prog“AIBIANQIANG矮边墙”∶ Else Abs(S)+3.56－√ˉ(P 2－T 2)→W﹙下道﹚∶Prog“CQW”∶ Return∶If End↙ 6小程序(AIBIANQIANG) 矮边墙 If S＜0∶Then Abs(S) －5.12→W And Abs(T) －1.30→M∶“S” ∶M◢∶“+XY, －XZ”∶ W◢ Else Abs(S) －5.12→W And Abs(T) －1.05→M∶“S” ∶M◢∶“+XY, －XZ”∶W◢ 7小程序(YANGGEN)仰拱 If S＜0∶Then 2.35+Abs(S) ×3%－Abs(T)→W∶Prog“YG仰拱” ↙ Else 2.35－S×3%－Abs(T)→W∶Prog“YG仰拱” ↙ 7，仰拱超高（直线上升或下降） ﹙－3%－2%﹚ ÷﹙4－0﹚→E∶2%+﹙K－0﹚E→B∶If S＜0∶Then 2.35+Abs(S) ×B－Abs(T)→W∶Prog“YG仰拱” ↙ Else 2.35－S×B－Abs(T)→W∶Prog“YG仰拱” ↙ (2%起点坡度) (－3%终点坡度) (4起点里程) (0终点里程) (2.35起拱线距仰拱中心高度) 7，仰拱超高（抛物线上升或下降） K－0→X∶4－0→L ∶2%+﹙2X÷L－3﹚×﹙﹙2%－－3%﹚×X2÷L2﹚→B ↙ 2.35+Abs(S) ×B－Abs(T)→W∶Prog“YG仰拱” ↙ Else 2.35－S×B－Abs(T)→W∶Prog“YG仰拱” ↙ (2%起点