右线：
主程序：SDCQW Fixm： Lb1 0：｛X,Y,Z｝：Pol((X-3103433.079),(Y-484177.6871))： A=J：A＜0 A=A+360 ⊿ A＜239°57′53.45″ Prog “ZXD” ： A＜246°19′32.92″ Prog “HHQXD”： Prog “YQXD” ⊿⊿ ：Prog “SQX”
Q=Q-4.875×0.02+1.606：｛B｝：B“WY”=5 R=6.5： B=4 R=6.37 ： B=3 R=6.2： B=2 R=6.06⊿⊿⊿⊿
Pol((X-C),(Y-D))：J＜0 J=J+360 ⊿ J＜180 J=J+180⊿
C=C+4.875cosJ：D=D+4.875sinJ：Q＞Z Pol((X-C),(Y-D))：J＜0 J=J+360⊿ C=C-2.5cosJ：D=D-2.5sinJ：R=R+2.5⊿
L=√((X-C)2+(Y-D)2+(Z-Q)2)：E“PC”=L-R◢ Goto 0
说明：
1、E：“PC”表示偏差值，正值表示超挖，负值表示欠挖。超欠挖均针于开
挖轮廓线。
2、C：表示圆心点的X坐标；D：表示圆心点的Y坐标。 3、Q：表示圆心点的Z坐标。 4、B：“WY”表示围岩级别。5级，B=5；4级，B=4；以此类推。
子程序：ZXD
Pol((X-3102417.42),(Y-482421.004))：J＜0 J=J+360⊿
F=(183°21′21″-30°12′47″)-J：L=Icos(AbsF)：K=174032.177+L◢ C=3102417.42+Lcos153°08′34″：D=482421.004+Lsin153°08′34″
说明：
1、C：表示对应设计线上点的X坐标； 2、D：表示对应设计线上点的X坐标。
子程序：YQXD
O=270°10′21.95″-A:L=2025×O/180×π:
K=172964.357+L◢C=3103433.079+2025cosA:D=484177.6871+2025sinA
子程序：HHQXD
O=A-239°57′53.45″：S=O÷6°21′39.47″×225：
K=174032.177-S ◢C=S-S∧5÷(40×20252×2252):D=S∧3÷(6×2025×225): A=tan-1(D/C):L=√((D2+C2):C=3102417.42+Lcos(333°08′34″+A): D=482421.004+Lsin(333°08′34″+A)
子程序：SQX
K≤174000 M“I1”=2.2113÷100：N“I2”=-2.6825÷100:R=13000:P“BPD”
=173220：
E“BPDBG”=136.8： M=-2.6825÷100：N=-0.9812÷100:R=32000:P=174325：E=107.158⊿
W=N-M:L=R×AbsW:T=L/2:F“QD”=P-T:G“ZD”=P+T:
K≤P K≤F Q=E-(P-K)×M: Q=E-(P-K)×M+(K-F)2÷(2R)×AbsW÷W⊿⊿ K＞P K≥G Q=E+(K-P)×N: Q=E+(K-P)×N+(G-K)2÷(2R)×AbsW÷W⊿⊿
因篇幅问题不能全部显示，请点此查看更多更全内容