隧道测量计算程序（修改-5800P）.docVIP

曲线任意里程 中边桩坐标正反算、高程计算、开挖半径计算程序 1.正反算主程序(ZFS) Norm:Defm 3:L“1.ZX,2.YX”:Z[1]=L: T “1.LDF=XY,2.XY=KD”:Z[2]=T:Z[2]=1=Goto1△Z[2]=2=Goto2⊿Lbl 1:｛KIF｝:K“K=”:I“DP=”:F“ANG=”: Z[1]=1=Prog“ZXP” △Z[1]=2=Prog“YXP” ⊿Porg“SIM1”:FIX 4: X “XI=” ◢Pause 0: Y “YI=” Goto1: Lbl 2:｛XY｝:X“XI=”:Y“YI=”:O=X:U=Y:K=224000.000: Lbl 3: Z[1]=1=Prog“ZXP” ⊿Z[1]=2=Prog“YXP” ⊿I=O:F=90: Porg“SIM1”:Z=(U-Y)cos(S+F-180)-(O-X)sin（S+F-180）:AbsZ0.0001= Goto4: ≠K=K+Z: Goto3⊿Lbl 4: Z[1]=1=Prog“ZXP” ⊿Z[1]=2=Prog“YXP” ⊿I=O:F=90: Porg“SIM1”:Z=(U-Y)÷sin（S+F）: Lbl 5:Fix4: K“K=” ◢Pause 0:Z“ Z[1]=1=Prog“ZR” ⊿Z[1]=2=Prog“YR” △Norm:Goto 2 ←┘ 2.子程序