5800正算及隧道超欠挖可用.docVIP

5800正反算及隧道超欠挖 已试验过，可用  任意坐标正反算及隧道超欠挖程序1-WLJ(主程序)Lbl 4:1→ZS,2→FS,3→YXCQW?NIf N=1:Then Goto 1: Ifend: If N=2:Then Goto 2: Ifend: If N=3:Then Goto 3: Ifend: Lbl 1: “K=”?S：“P=”?Z：Prog “1-SJ?-PM”： Abs(S-O) → W：Prog 1-SUB1-ZS： “X=：Locate4,4,X:Y=：Locate4,4,Y:F-90→F:S→ K:Prog“1-SJ?-GC”：“H=”：Locate4,4,H◢Goto 4Lbl 2:“X=”?X：“Y=”？Y:Prog“1-SJ?-PM”： X→ I： Y→ J：Prog 1-SUB2-FS：O+W→S: “K=： S ◢“P=： Z◢S→ K:Prog“1-SJ?-GC” ：“H=”： H◢Goto 4Lbl 3: “X=”?X：“Y=”？Y:Prog“1-SJ?-PM”： X→ I： Y→ J：Prog 1-SUB2-FS：O+W→S: “K=： S ◢“P=： Z◢S→ K:Prog“1-SJ?-GC” ：“H=”： H◢Prog“YXCQW” ◢Goto41-SJ?-PM（子程序名-平面线形数据库