3.GL-LUNKUO 超欠挖主程序（最快版……里程精度要求高）Lbl 0?P:P→L:Prog“GLZUOBIAO-1”↙?X:?Y:?C↙Pol ((X-S),(Y-T)):If V>180:Then V→V:Goto 1:Else V+180→V:Goto 1↙Lbl 1↙“L=”:I×cos(J-V)+L→L◢Prog“GLZUOBIAO-1”↙Pol ((X-S),(Y-T)):If V>180:Then V→V:Goto 2: Else V+180→V:Goto 2↙Lbl 2↙“FAJU=”:I×s in(J-V)→T◢“LICHENG=”:I×cos(J-V)+L→L◢Goto 3↙Lbl 3↙If L<1156000:Then Abs(7.725-T)→T: Goto V:Else Abs(7.725-(-T))→T: Goto V:IfEnd↙Lbl V↙If L≤156300: Then Prog“GC1”: Goto A: Else Goto Z: IfEnd↙Lbl Z↙If L≤160000: Then Prog“GC3”: Goto A: Else Pros“GC2”:Goto A: IfEnd↙Lbl A↙If C≥H+1.55: Then Goto B: Else Goto C: IfEnd↙Lbl B↙If tan- 1((C-H+0.43)÷T)-45≤0: Then Goto D: Else Goto E: IfEnd↙Lbl D↙“GBR=”:√((C-H-1.55)2+(T-1.98)2→R◢ ( √为开方符号)Goto 0↙Lbl E↙“GZR=”:√((C-H+0.43)2+T2 )→R◢Goto 0↙Lbl C↙If tan- 1(Abs(H+1.155-C) ÷(T-1.98))≤-19.80138≤0: Then Goto F: Else Goto G: IfEnd↙Lbl F↙“BQR=” : √((H+1.55-C) 2+(T-1.98)2 ) →R◢Goto 0↙Lbl G↙If tan- 1(T÷(H+23-C))-15.13444≤0: Then Goto H: Else Goto I: IfEnd↙Lbl H↙“YGR=”: √(T2 +(H+23-C) 2→R◢Goto 0↙Lbl I↙T-6.2139→M◢“R=”:√(M2 +(H-C+0.0255) 2)→R◢Goto 0↙CQW超欠挖主程序（精简版……里程精度相对放宽）Lbl 0:Cls:Fix 3:Deg:“L”?L:“X=”?T:“Y=”?S:“H=”?A:Prog“GL-FS”↙“LICHENG”:L◢“PIANJU”:J◢Goto 1↙Lbl 1:If L<1156800:Then Abs(8.975-J) →J:Goto 2: Else Abs(8.975-(-J)) →J:Goto 2: IfEnd↙Lbl 2:L→K:Prog“GCSJK”:Goto 3↙Lbl 3:If A≥H+1.55:Then Goto 4:Else Goto7: IfEnd↙Lbl 4:If tan- 1((A-H+1.68) ÷J)-45≦0: Then Goto 5:Else Goto 6: IfEnd↙Lbl 5:“R=”:√((A-1.55)2+(J-3.23)2→R◢ ( √为开方符号)Goto 0↙Lbl 6:“R=”:√((A-H+1.68)2+J2 )→R◢Goto 0↙Lbl 7: If tan- 1(Abs(H+1.55-A)÷(J-3.23))-20.0944≦0: Then Goto 8:Else Goto 9: IfEnd↙Lbl 8:“R=”:√((H+1.55-A)2+(J-3.23)2→R◢Goto 0↙Lbl 9: If tan- 1(J÷(H+27.622-A))-15.1344≦0: Then Goto 10:Else Goto 11: IfEnd↙Lbl 10:“R=”:√(J2+(H+27.622-A)2 )→R◢Goto 0↙Lbl 11:J-6.2139→M◢“R=”:√(M2+(H-A+0.0255)2 )→R◢Goto 0↙GC1 （高程1？）IF L≦147221:Then 52.403→A:-0.005→I:24000→R:147221→O (非零，为大写o):146997.56→Q:Goto 1:Else Goto A:IfEnd↙LbI 1↙If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙LbI A↙IF L≦147444.44:Then 52.403→A:-0.02362→I:24000→R:147221→O (非零，为大写:147444.44→Q:1→K:Goto 0:Else Goto B:IfEnd↙LbI B↙IF L≦148000:Then 70.803→A:-0.02362→I:160000→R:148000→O (非零，为大写o):147574.4→Q:Goto 2:Else Goto C:IfEnd↙LbI 2↙If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙LbI C↙IF L≦148425.6:Then 70.803→A:-0.0183→I:160000→R:148000→O (非零，为大写:148425.6→Q:-1→K:Goto 0:Else Goto D:IfEnd↙LbI D↙IF L≦149000:Then 89.103→A:-0.0183→I:50000→R:149000→O (非零，为大写o):148707.5→Q:Goto 3:Else Goto E:IfEnd↙LbI 3↙If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙LbI E↙IF L≦149292.5:Then 89.103→A:0.03→I:50000→R:149000→O(非零，为大写:149295.5→Q:1→K:Goto 0:Else Goto F:IfEnd↙LbI F↙IF L≦149900:Then 116.103→A:-0.03→I:22086.957→R:149900→O (非零，为大写o):149646→Q:Goto 4:Else Goto G:IfEnd↙LbI 4↙If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙LbI G↙IF L≦150154:Then 116.103→A:0.007→I:22086.957→R:149000→O (非零，为大写:150154→Q:-1→K:Goto 0:Else Goto H:IfEnd↙LbI H↙IF L≦150450:Then 119.953→A:-0.007→I:16000→R:150450→O (非零，为大写o):150154→Q: -1→K:Goto 0:Else Goto I:IfEnd↙LbI I↙IF L≦150746:Then 119.953→A:-0.03→I:16000→R:150450→O (非零，为大写o):150746→Q: -1→K:Goto 0:Else Goto J:IfEnd↙LbI J↙IF L≦151200:Then 97.453→A:-0.03→I:27000→R:151200→O(非零，为大写o):150961.05→Q: Goto 5:Else Goto K:IfEnd↙LbI 5↙If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙LbI K↙IF L≦151438.95:Then 97.453→A:-0.0123→I:27000→R:151200→O (非零，为大写o):151438.95→Q: 1→K: Goto 0:Else Goto L:IfEnd↙LbI L↙IF L≦151800:Then 90.074→A:0.0123→I:17070.922→R:151800→O (非零，为大写o):151438.95→Q: 1→K: Goto 0:Else Goto M:IfEnd↙LbI M↙IF L≦152161.05:Then 90.074→A:0.03→I:17070.922→R:151800→O (非零，为大写o):152161.05→Q: 1→K: Goto 0:Else Goto N:IfEnd↙LbI N↙IF L≦152650:Then 115.574→A:-0.03→I:12000→R:152650→O (非零，为大写o):152338→Q: Goto 6:Else Goto O:IfEnd↙LbI 6↙If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙LbI O↙IF L≦152962:Then 115.574→A:-0.022→I:12000→R:152650→O (非零，为大写o):152962→Q: -1→K:Goto 0:Else Goto P:IfEnd↙LbI P↙IF L≦153350:Then 100.174→A: 0.022→I:18000→R:153350→O (非零，为大写o):153101.15→Q: Goto 7:Else Goto Q:IfEnd↙LbI 7↙If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙LbI Q↙IF L≦153598.85:Then 100.174→A: 0.00565→I:18000→R:153350→O (非零，为大写o):153598.85→Q: 1→K:Goto 0:Else Goto R:IfEnd↙LbI R↙IF L≦155500:Then 112.329→A: -0.00565→I:19000→R:155500→O (非零，为大写o):15587.675→Q: Goto 8:Else Goto S:IfEnd↙LbI 8↙If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙LbI S↙IF L≦155712.325:Then 112.329→A: 0.028→I:19000→R:155500→O (非零，为大写o):155712.325→Q: 1→K:Goto 0:IfEnd↙LbI 0↙A+I×Abs(L- O)+K×(L-Q) 2÷2÷R→H↙GC2 （高程2？）IF L≦1156300:Then 134.729→A:-0.028→I:140000→R:1156300→O (非零，为大写o):1155843.6→Q:Goto 9: Else Goto A:IfEnd↙LbI 9↙If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙LbI A↙IF L≦1156756.4:Then 134.729→A:-0.02148→I:140000→R:1156300→O (非零，为大写o):1156756.4→Q: -1→K :Goto 0: Else Goto B:IfEnd↙LbI B↙IF L≦1157270:Then 155.569→A:-0.02148→I:25000→R:157270→O (非零，为大写o):1156958.625→Q: Goto 2: Else Goto C:IfEnd↙LbI 2↙If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙LbI C↙IF L≦1157581.375:Then 155.569→A:-0.00343→I:25000→R:1157270→O (非零，为大写o):1157581.375→Q: -1→K :Goto 0: Else Goto D:IfEnd↙LbI D↙IF L≦1159800:Then 146.895→A: 0.00343→I:60000→R:115900→O (非零，为大写o):1159122.9→Q: Goto 3: IfEnd↙LbI 3↙If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙LbI 0↙A+I×Abs(L- O)+K×(L-Q) 2÷2÷R→H↙GC3 （高程3？）IF L≦156300:Then 134.729→A:-0.028→I:110000→R:156300→O (非零，为大写o):1155830.85→Q:Goto 1: Else Goto A:IfEnd↙LbI 1↙If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙LbI A↙IF L≦156769.15:Then 134.729→A:0.01947→I:110000→R:156300→O (非零，为大写o):156769.15→Q: -1→K :Goto 0: Else Goto B:IfEnd↙LbI B↙IF L≦157300:Then 154.199→A:-0.01947→I:25000→R:157300→O (非零，为大写o):157010.25→Q: Goto 2: Else Goto C:IfEnd↙LbI 2↙If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙LbI C↙IF L≦157589.75:Then 154.199→A:-0.00371→I:25000→R:157300→O (非零，为大写o):157589.75→Q: -1→K :Goto 0: Else Goto D:IfEnd↙LbI D↙IF L≦159720:Then 145.215→A:0.00371→I:62000→R:159720→O (非零，为大写o):159091.01→Q: Goto 4: Else Goto E:IfEnd↙LbI 4↙If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙LbI 0↙A+I×Abs(L- O)+K×(L-Q) 2÷2÷R→H↙GCSJK （高程数据库？）IF K≦159091.01:Then154.199→G:157300→B:25000→D:289.750→U:0.01947→I: -0.00371→W:B-K→C:1→F:I>W =>-1→F:Goto 3:IfEnd↙IF K≦161364.5:Then145.215→G:159720→B:62000→D:628.990→U:-0.00371→I: -0.024→W:B-K→C: I>W =>-1→F:Goto 3:IfEnd↙LbI 3↙IF K<B-U:Then 0→Z:I→P:Goto 4: IfEnd↙IF K<B+U:Then 1→Z:I→P:Goto 4: IfEnd↙IF K<B+U:Then 1→Z:W→P:Goto 4: IfEnd↙IF K>B:Then 0→Z:W→P:Goto 4: IfEnd↙LbI 4:G-CP+Z×F(U-Abs(C)) 2÷2÷D→H↙GL-FS （什么反算？）20→V：Do:Prog“PMSJK”:(P-R)÷(2HPR) →D:L-O→O:OD→D:1÷P→C:If V>10: Then Prog“GL-JY-ZS”:Else Prog“GL-ZS”:IfEnd:T-X→I:S-Y→J:Pol(I,J):J-Q →J:Rec(I,J):I÷(1-CJ-2DJ)→V:L+V→L:Abs(V)→V:LpWhile V>0.001GL-JY-ZS （什么正算？）0.7886751346→E:1-E→F:Q+E r O(C+ED)→E:Q+E r O(C+FD)→F:X+O(cos(E)+cos(F))÷2→X:Y+O(sin(E)+sin(F))÷2→Y:Q+O r(C+D)→QGL -ZS （什么正算？）0.1739274226→I:0.3260725774→J:0.0694318442→K:0.3300094782→E:1-E→F:1-E→F:1-K→M:Q+K r O(C+KD)→K:Q+E r O(C+ED)→E:Q+F r O(C+FD)→F:Q+M r O(C+MD)→M:X+O(Icos(K)+Jcos(E)+ Icos(M))→X:Y+O(Isin(K)+Jsin(E)+ Isin(M))→Y:Q+O r(C+D)→Q:GLZUOBIAO-1 （表示什么？）If L≤154246.087:Then Goto A:Else Goto 1:IfEnd↙LbI 1↙If L≤160350:Then Goto B:Else Goto C:IfEnd↙LbI A↙Prog“YZB”↙Goto 5↙LbI B↙Prog“ZB2”↙Goto 5↙LbI C↙Prog“ZZB”↙Goto 5↙LbI 5↙If W<1:Then V-180→V: Goto 3: Else Goto 3:IfEnd↙LbI 3↙If V<90:Then 360+V→V: Else V→V: IfEnd↙PMSJK (平面数据库?)IFL≦156981.234:Then590888.498→X:533021.975→Y:10^(46)→P:1545.627→R:17 5→H:156806.234→O:289°14′14.5″→Q:Return:IfEnd↙L≦157432.396:Then590949.257→X:532857.886→Y:1545.627→P:1545.627→R:4 51.162→H:156981.234→O:292°28′51.4″→Q:Return:IfEnd↙IFL≦157607.396:Then591179.742→X:532471.904→Y:1545.627→P:10^(46)→R:17 5→H:157432.396→O:309°12′19.3″→Q:Return:IfEnd↙IFL≦158977.376:Then591295.382→X:532340.588→Y:10^(46)→P:10^(46)→R:136 9.98→H:157607.396→O:312°26′56.2″→Q:Return:IfEnd↙YQX （右曲线？）Abs(L-O)→H:S 2÷(24×R)-S^(4)÷(2688×R^(3))→P:S÷2-S^(3)÷(240R2)→Q: (H-S)×180÷R÷∏+S×180÷（2×∏×R→U：K×U+Z→V:Rsin(U)+Q→E:R(1-cos (U))+P→N:“S=”:A+Ecos(Z)-KNsin(Z)→S◢“T=”:B+Esin(Z)+ KNcos(Z) →T◢↙↙Return上面∏为3.1415926……YXSQX （右线竖曲线？）LbI 0↙Cls:“K=”?K:IF K<159091.01:Then 154.199→G：157300→B：25000→R：289.750→T:0.01947→I:-0.00371→J:B-K→C:1-F:I>J=>-1→F:Goto 3:IfEng↙IF K<161600:Then 145.215→G：159720→B：62000→R：628.990→T:-0.00371→I: -0.024→J:B-K→C:I>J=>-1→F:Goto 3: IfEng↙LbI 3: IF K<B-T:Then 0→A:I→ P: Goto 4: IfEng:IF K<B:Then 1→A:I→ P: Goto 4: IfEng:IF K<B+T:Then 1→A:J→ P: Goto 4: IfEng:IF K>B:Then 0→A:J→ P: Goto 4: IfEng↙LbI 4:G-CP+AF(T-Abs(C)) 2÷2÷R→H:“H”:H◢Goto 0↙ZXSQX （左线竖曲线？）LbI 6↙Cls:“K=”?K:IF K<159122.9:Then 155.569→G：157270→B：25000→R：311.375→T:0.02148→I:-0.00343→J:B-K→C:1→F:I>J=>-1→F:Goto 7:IfEng↙IF K<160477:Then 146.895→G：159800→B：60000→R：677.1→T:-0.00343→I: -0.026→J:B-K→C: -1→F:Goto 7: IfEng↙LbI 7: IF K<B-T:Then 0→A:I→ P: Goto 8: IfEng:IF K<B-T:Then 1→A:I→ P: Goto 8: IfEng:IF K<B+T:Then 1→A:J→ P: Goto 8: IfEng:IF K>B:Then 0→A:J→ P: Goto 8: ↙LbI 8:G-CP+AF(T-Abs(C)) 2÷2÷R→H:“H”:H◢Goto 6↙ZB2 （表示什么？）If L≦154426.087:Then Goto A:Else Goto 1:IfEng↙If L≦155115.597:Then Goto B:Else Goto 2:IfEng↙LbI 2↙If L≦155265.597:Then Goto C:Else Goto 3:IfEng↙LbI 3↙If L≦155620.15:Then Goto D:Else Goto 4:IfEng↙LbI 4↙If L≦155790.15:Then Goto E:Else Goto 5:IfEng↙LbI 5↙If L≦156656.233:Then Goto F:Else Goto 6:IfEng↙LbI 6↙If L≦156806.233:Then Goto G:Else Goto 7:IfEng↙LbI 7↙If L≦157432.399:Then Goto H:Else Goto 8:IfEng↙LbI 8↙If L≦157607.399:Then Goto I:Else Goto 9:IfEng↙LbI 9↙If L≦158977.376:Then Goto J:Else Goto 0:IfEng↙LbI 0↙If L≦160298.935:Then Goto K↙LbI A↙58874.9732→A:534215.4827→B:1608.999→R:180→S:154426.087→O:183°37′56.5″→Z:-1→K:-1→W↙LbI B↙588974.9732→A:534215.4827→B:1000→R:150→S:154426.087→O:3°37′56.5″→Z:-1→K:-1→W↙Goto T↙LbI C↙589760.5335→A:533988.4355→B:1000→R:150→S:155265.597→O:144°07′34. 8″→Z: 1→K:-1→W↙Goto T↙LbI D↙589760.5335→A:533988.4355→B:1522.495→R:170→S:155265.597→O:324°07′34.8″→Z: 1→K:1→W↙Goto T↙LbI E↙590216.856→A:533733.3811→B:1522.495→R:170→S:155790.15→O:157°28′0 8.8″→Z: -1→K:-1→W↙Goto T↙LbI F↙590216.856→A:533733.3811→B:1028.84→R:150→S:155790.15→O:337°28′08 .8″→Z: -1→K:1→W↙Goto T↙LbI G↙590888.4984→A:533021.9777→B:1028.84→R:150→S:156806.233→O:109°14′14.1″→Z: 1→K:-1→W↙Goto T↙LbI H↙590888.4984→A:533021.9777→B:1545.627→R:175→S:156806.233→O:289°14′14.1″→Z: 1→K:1→W↙Goto T↙LbI I↙591295.3826→A:532340.5881→B:1545.627→R:175→S:157607.399→O:132°26′56.2″→Z: -1→K:-1→W↙Goto T↙LbI J↙59129.3826→A:532340.5881→B:0→R:0→S:157607.399→O:312°26′56.2″→V: 1→K:1→W↙Goto R↙LbI K↙592220.0262→A:531329.7104→B:2097.935→R:350→S:158977.376→O:312°26′56.2″→Z: -1→K:1→W↙Goto T↙LbI R↙“S=”:A+(L-O)×cos(V)→S◢“T=”:B+(L-O)×sin(V)→T◢Goto W↙LbI T↙Abs(L-O)→H↙If H-S≧0:Then Goto U:Else Goto V↙LbI U↙Prog“YQX”↙S=S:T=T:V=V↙Goto W↙LbI V↙H-H^(5)÷40÷R2÷S2→M: H^(3)÷6÷R÷S-H^(7)÷336÷R^(3)÷S^(3)→N↙K×(H2×180÷2÷∏÷R÷S)+Z→V:“S=”:A+M×cos(Z)-N×K×sin(Z)→S◢“T=”:B+M×sin(Z)+N×K×cos(Z)→T◢Goto W↙LbI W↙8↙ZZB （表示什么？）If L≦1156653.357:Then Goto A:Else Goto 1:Ifend↙LbI 1↙If L≦1156803.357:Then Goto B:Else Goto 2:Ifend↙LbI 2↙If L≦1157450.193:Then Goto C:Else Goto 3:Ifend↙LbI 3↙If L≦1157660.193:Then Goto D:Else Goto 4:Ifend↙LbI 4↙If L≦1158956.336:Then Goto E:Else Goto 5:Ifend↙LbI 5↙If L≦1160306.154:Then Goto F:Ifend↙LbI A↙590216.856→A:533733.3811→B:1000.32→R:150→S:1155790.15→O:337°28′0 8.8″→Z: -1→K:1→W↙Goto T↙LbI B↙590877.7692→A:533018.36→B:1000.32→R:150→S:1156803.357→O:108°01′3 6.5″→Z: 1→K:-1→W↙Goto T↙LbI C↙590877.7692→A:533018.36→B:1517.525→R:210→S:1156803.357→O:288°01′36.5″→Z: 1→K:1→W↙Goto T↙LbI D↙591304.6519→A:532286.014→B:1517.525→R:210→S:115760.193→O:132°26′55.7″→Z: -1→K:-1→W↙Goto TLbI E↙591304.6519→A:532286.014→B:0→R:0→S:115760.193→O:312°26′55.7″→V: 1→K: 1→W↙Goto TLbI F↙592179.4593→A:531329.6152→B:2240.219→R:350→S:1158956.336→O:312°26′55.7″→Z: -1→K: 1→W↙Goto TLbI R↙“S=”:A+(L-O)×cos(V)→S◢“T=”:B+(L-O)×sin(V)→T◢Goto W↙LbI T↙Abs(L-O)→H↙If H-S≧0:Then Goto U:Else Goto V↙LbI U↙Prog“YQX”↙S=S:T=T:V=V↙Goto W↙LbI V↙H-H^(5)÷40÷R2÷S2→M: H^(3)÷6÷R÷S-H^(7)÷336÷R^(3)÷S^(3)→N↙K×(H2×180÷2÷∏÷R÷S)+Z→V:“S=”:A+M×cos(Z)- N×K×sin(Z)→S◢“T=”:B+M×sin(Z)+N×K×cos(Z)→T◢Goto W↙LbI W↙8↙（完）……。