2、+G(K-90L2÷(πRV))→W:V→H:Z[7]→M:Z[8]→P:F+GK+180→T:-1→Z[1]:Goto1:IfEnd(LS2)9.IfZ>D:ThenF+GK→W:Rec(Z-D+Z[4],W):N+I→X:E+J→Y:Goto2:IfEnd第二直线10.Lbl1:L-L^(5)÷(40R2H2)+L^(9)÷(3456R^(4)H^(4))→X11.L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3))+L^(11)÷(42240R^(5)H^(5))→Y12.Rec(sqrt(X2+Y2),T+Z[1]Gtan-1(Y÷X)):M+I→X:P+J→Y:Goto
3、213.Lbl2:Rec(S,W+O):X+I→X:Y+J→Y14.“X=”:Locate3,1,X:”Y=”:Locate3,2,Y:”FWJ=”:W►DMS◢15.Goto0Ø反算主程序：FS1.Prog"SJ"2.90U÷π÷R→H第一回旋线所对应圆心角β013.90V÷π÷R→T第二回旋线所对应圆心角β024.Rec((Z[3]+Z[4]÷cosK)÷tanK,F+90G):Z[5]+I→Z[11]:Z[6]+J→Z[12]ZH、HZ点垂线交点坐标5.F-90G→Z[13]ZH点与ZH、HZ点垂线交点连线方位角6.Z[13]+GH→Z[14]HY点与圆心连线方位角7.Z[13]+G(K
4、-T)→Z[15]YH点与圆心连线方位角8.Z[15]+GT→Z[16]HZ点与ZH、HZ点垂线交点连线方位角9.Lbl0:?X:?Y10.Pol(X-Z[11],Y-Z[12])11.IfGIsin(J-Z[13])<0:ThenPol(N-X,E-Y):Rec(I,F-J)12.Q-I→Z:J→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate3,2,S◢13.Goto0:IfEnd第一直线14.IfGIsin(J-Z[16])>0:ThenPol(X-N,Y-E):Rec(I,J-F-GK)15.I-Z[4]+D→Z:J→S:Cls:“Z=”:Locate3,1,Z:”
5、S=”:Locate3,2,S◢16.Goto0:IfEnd第二直线17.IfGIsin(J-Z[13])>0:ThenPol(X-Z[9],Y-Z[10]):J<0⇒J+360→J18.IfGIsin(J-Z[14])<0:ThenZ[13]→P:U→H:A→M:1→T:Z[5]→Z[17]:Z[6]→Z[18]:F→Z[19]:Goto1:IfEndLS119.IfGIsin(J-Z[15])<0:ThenAbs(J-Z[14])→Z[20]:Z[20]>360⇒Z[20]-360→Z[20]20.B+πRZ[20]÷180→Z:G(R-I)→S:Cls:“Z=”:Locate3,1,Z:
6、”S=”:Locate3,2,S◢1.Goto0:IfEnd圆曲线2.IfGIsin(J-Z[15])>0:ThenZ[16]→P:V→H:D→M:-1→T:Z[7]→Z[17]:Z[8]→Z[18]:F+GK+180→Z[19]:Goto1:IfEndLS23.Lbl1:Pol(X-Z[11],Y-Z[12]):Abs(J-P)→J:J>180⇒J-360→J:JπR÷180→LL=以R为半径,以所求点－(Z[11],Z[12])连线与P的角度差计算得的弧长，作为近似桩号。4.Lbl2:L-L5÷(40R2H2)+L9÷(3456R4H4)-L13÷(R6H6)→O5.L3÷(6RH)-L7
7、÷(336R3H3)+L11÷(42240R5H5)-L15÷(R7H7)→P6.Rec(sqrt(O2+P2),Z[19]+TGtan-1(P÷O)):Z[17]+I→O:Z[18]+J→P7.Pol(X-O,Y-P):Rec(I,J-(Z[19]+90TGL2÷(πRH)))8.IfAbsI>0.001:ThenL+I→L:Goto2:ElseM+TL→Z:TJ→S:Cls:“Z=”:Loca
