交点正反加隧道超欠挖.docVIP

说明 本程序是在测量空间里下的，源程序是程德集老师的，本人只是稍作修改 现在还是学生，不太成熟，语句不够优化，请见谅哈 铁路隧道 正算主程序[KB-MN]“1,2,3,4,5”?Z:?X:?YLbl 1:Fix 3:?K:?B:90→AZ=1＝＞Prog“PQ-1”Z=2＝＞Prog“PQ-2”Z=3＝＞Prog“PQ-3”Z=4＝＞Prog“PQ-4”Z=5＝＞Prog“PQ-5”Prog“PQXY”:M-X→I:N-Y→J:Prog“C”:Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 10,2,I:Locate 1,3,“M=”:Locate 8,3,M:Locate 1,4,“N=”:Locate 8,4,N◢Cls:Goto 1反算主程序[MN-KB]2→DimZ:“1,2,3,4,5”?Z:?K Lbl 0:Fix 3:?M :＝＞?N: N=0＝＞M→Z[1]:N→Z[2]：Lbl 1:90→A:0→BZ=1＝＞Prog“PQ-1”Z=2＝＞Prog“PQ-2”Z=3＝＞Prog“PQ-3”Z=4＝＞Prog“PQ-4”Z=5＝＞Prog“PQ-5”Prog“PQXY”:Pol(Z[1]-M+×10-9,Z[2]-N+×10-9:Isin(L-J→A:Ico