Goto 3: KGoto 4: K≥D=>Goto 5: Lbl 1:0→Z[3]:H+JZ[3]→Z[4]:(K-A)cos(H)→Z[7]:(K-A)sin(H)→Z[8]: Goto 6 Lbl 2:30(K-A)^2/R/S/ →Z[3]:H+3JZ[3]→Z[4] (K-A)-(K-A)^(5)/90/R^2/S^2→Z Zcos(H+JZ[3])→Z[7]:Zsin(H+JZ[3])→Z[8]:Goto 6 Lbl 3:90S/R/ +180(K-B)/R/ →Z[3]:H+JZ[3]→Z[4] Rsin(Z[3])+S/2-S^(3)/240/R^2→I R(1-cos(Z[3]))+S^2/24/R→Z Icos(H)-JZsin(H)→Z[7]:Isin(H)+JZcos(H)→Z[8]:Goto 6 Lbl 4 30(K-D)^(2)/R/S/ →Z[3]:H+3JZ[3]→Z[4] (D-K)-(D-K)^(5)/90/R^(2)/S^(2)→Z -Zcos(H+JZ[3])→Z[7]:-Zsin(H+JZ[3])→Z[8]:Goto 6 Lbl 5 0→z[3]:H-JZ[3]→Z[4]:(K-D)cos(H)→Z[7]:(K-D)sin(H)→Z[8]:Goto 6 Lbl 6 边桩坐标 Norm 1:”HR=”:Z[4] DMS
显示中线的方位角(度分秒 ) Fix 3:”X=”:Z[1]+Z[7]→X
“Y=”:Z[2]+Z[8]→Y
Norm 1:”HJ”?Q:”DL”?P:Fix 3:”XL=”:X+Pcos(Z[4]-Q)→Z[5]
“YL=”:Y+Psin(Z[4]-Q)→Z[6]
Norm 1:”DR”?L Fix 3:”XR=”:X+Lcos(Z[4]-Q+180)→X
”YR=”:Y+Lsin(Z[4]-Q+180)→Y
Norm 1:”10x K(+,-)”?G:K+10G→K:Goto 9