超欠挖计算re

Lbl A：5→ DimZ:” CQWJS”:2→Z[5]: Prog”ZB”:2→Z[5]: Prog “CSG”: If Z[4]-H≥0.3 : Then Z[4]-H-2.27→A:K-2.3→K: Pol（极坐标转换）(K,A):6.86→R: ” SDCQW=”:I-R→C◢IfEnd: If Z[4]-H<.13 And Z[4]-H≥-2.03 And Abs(K-2.3)≥4.62 : Then H+1.48-Z[4]→A: Abs(K-2.3)-2.99→K:”YANG GONG”: A-√(3.872-K2) →C◢IfEnd: If Z[4]-.13-H<0 And K≥-2.32 And K<6.92 And Z[4]-H-K<0 : Then Abs(K-2.3)→K:”YANG GONG”: H-Z[4]+11.51-√(14.312-K2) →C◢IfEnd:If Z[5]=1:Then ”EXIT”:Stop: IfEnd

子程序ZB

5→DimZ：If Z[5]=2: Then .0001→Z[3] : “Xp”?X:”Yp”?Y:X→Z[1]：Y→Z[2]：”H”? →H: H→Z[4]：42000→L: Goto 1 : Else “Ln”（输入里程判断正反算，第4位为.0001反算）?L: IfEnd: Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: If L<0（零） : Then “EXIT”:STOP: IfEnd: Else “Xp”?X: X→Z[1]：If Z[1]<0（零）: Then “EXIT”:STOP: IfEnd:”Yp”?Y: Y→Z[2]：IfEnd:Lbl 1: If L>46799.9304 And L<46800:Then “DUANLIAN” :46800→L: IfEnd: If L≥42000 And L<46799.9304 :Then 102°4°32.8°→C :849725.8504→D：554523.9488→E：390→F : -7°51°36.6°→G：46027.3004→H:7000→R: IfEnd: If L≥446800 And L<51000 :Then 94°12°56.2°→C :849419.8546→D：558675.326→E：390→F : -5°5°7.3°→G：50188.3862→H:7000→R: IfEnd （回车）

Prog”XLJS”: If Z[3]≠0.0001:Then Goto 0:Else (Z[1]－X)cos(Ｏ) （欧）＋(Z[2]－Y)sin(Ｏ) （欧）→N:L＋N→L:－(Z[1]－X)sin(O)+(Z[2]－Y)cos（O）（欧）→K：IfEnd（回车） If Abs（N）≥0.001：Then Goto 1：IfEnd: If Z[5]=1 :Then “L=“:L◢ “P=”:K◢

Goto 0（零）: IfEnd:1→A:A→Z[5] （回车） 、

线路计算子程序（XLJS）

Deg（D模式字母）:Fix 4:G÷Abs(G)→V:F2（平方）÷(24R)-F^(4)÷(2688R^(3))+F^(6)÷(506880R^(5))-F^(8)÷(154828800R^(7))→P:F÷2-F^(3)÷（240R2）+F^（5）÷(34560R^（4）)-F^（7）÷(8386560R^（6）)+F^（9）÷(3158507520R^（8）)→Q:Q+(R+P)Vtan(G÷2)→T:πRGV÷180+F→I:IF L≤H-T:Then L-H→J:Goto 1:IfEnd:If L: Goto C:Lbl 2:(J-J^(5)÷(40(RF)2)+J^(9)÷(3456(RF)^(4))-J^(13)÷(599040(RF)^(6))+J^(17)÷(175472640(RF)^(8))-T)S→M:(J^(3)÷(6RF)-J^(7)÷(336(RF)^(3))+J^(11)÷(42240(RF)^(5))-J^(15)÷(9676800(RF)^(7))+J^(19)÷(3530097000(RF)^(9)))V→N:C+90J2SV（运行错误）÷（πRF）→O（欧）:Goto B（回车）

Lbl 3:180(J-0.5F) ÷（πR）→O:Q+Rsin (O) （欧）-T→M:(P+R(1-cos (O（欧）)))V→N:C+VO→O：Goto B（回车）

Lbl B:D+Mcos(C)-Nsin(C)→X:E+Msin(C)+Ncos(C)→Y :Goto C:Lbl C:If Z[3]≠0.0001:Then ?K: 90→U:K<0=>180-U →U:O+U×Abs(K)÷(K+10^(-10)) →Z:”XP=”:X+Abs(K)×cos(Z)→X◢ ”YP=”:Y+Abs(K)×sin(Z)→Y◢ IfEnd

If Z<0 :Then Z+360→Z:IfEnd: If Z>360 :Then Z-360→Z:IfEnd:\"FXJ\": Z>DMS◢ IfEnd

高程子程序CSG

5→DimZ:Lbl 0（零）: If Z[5]=2:Then L→L:Else”GCJS”:”L” ?L: IfEnd : If L<0（零） :Then “EXIT”:Stop: IfEnd: If L≥43000 And L<45500:Then 524.289→C:44700→D:.0178→M:-.012→N:20000→R: IfEnd

If L≥45500 And L<46799.9304:Then 506.289→C:46200→D:-.012→M:-.0175→N:20000→R: IfEnd If L≥46800 And L<48200:Then 469.539→C:48300→D:-.0175→M:-.01→N:20000→R: IfEnd If L≥48200 And L<51000:Then 457.54→C:49500→D:-.01→M:.001989→N:20000→R: IfEnd

Prog”2GCJS”: If Z[5]=2:Then 1→Z[5]：Return: IfEnd:Goto 0（零）

高程子程序 2GCJS

N-M→P: Abs(P) ÷P→S: Abs(P) R÷2→T: If L≤D-T:Then C+(L-D)M→H: IfEnd: If L>(D-T) And L≤D:Then C-M(D-L)+(L-D+T)2S÷2÷R→H: IfEnd: If L≥D And L