自编隧道程序综合.docVIP

任意坐标正反算及隧道超欠挖程序(2010-11-22) 1-JIN YU(主程序) Lbl 4: “1→ZS,2→FS,3→CQW”?N(选择计算模式，1为正算，2为反算，3为超欠挖) N=1=Goto 1:N=2=Goto 2:N=3=Goto 3 Lbl 1: “K=”? S：“P=”? Z：Prog “SJ-PM”： Abs(S-O) → W：Prog “SUB1-ZS”： “X=”：Locate4,4,X: “Y=”：Locate4,4,Y:F-90→F:S→ K:Prog“SJ-GC”：“H=”：Locate4,4,H：“W=”: Locate4,4,F°◢ Goto 4 (正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=) Lbl 2: “K(L)=”? S: “X=”? X：“Y=”？ Y:Prog“SJ-PM”： X→ I： Y→??J：Prog SUB2-FS：O+W→S: “K=：Locate4,4, S ：“P=：Locate4,4, Z：S→ K:Prog“SJ-GC” ：“H=”：Locate4,4, H:F-90→F: “W=”: Locate4,4,F°◢ Goto 4 (反算- 输入反算点大概里程K(L)=、输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示