5800正反算及隧道超欠挖试题.docVIP

5800正反算及隧道超欠挖 任意坐标正反算及隧道超欠挖程序1-JIN YU(主程序)Lbl 4:1→ZS,2→FS,3→CQW?NN=1=Goto 1:N=2=Goto 2:N=3=Goto 3Lbl 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,HGoto 4Lbl 2:“X=”?X：“Y=”？Y:Prog“SJ?-PM”： X→ I： Y→??J：Prog SUB2-FS：O+W→S: “K=： S “P=： ZS→ K:Prog“SJ?-GC” ：“H=”： HGoto 4Lbl 3: “X=”?X：“Y=”？Y:Prog“SJ?-PM”： X→ I： Y→??J：Prog SUB2-FS：O+W→S: “K=： S “P=： ZS→ K:Prog“SJ?-GC” ：“H=”： HProg“SJ-CQW” ◢Goto4SJ?-PM（子程序名-平面线形数据库）If S ≥59227.681（线元起点里程）:Then 2599818.013→U（线元起点X坐标）：496887.918→V（线元起点Y坐标）：59227.681→O（线