Параметрическое программирование фрезеровки кругового кармана

Выборка кольцевой канавки любого размера, спиральными проходами. + ПРОГРАММА

%
O00013(VYBORKA KOLCEVOGO PAZA)
(X0Y0- PO CENTRU)
(Z0- OT VERHA)

#101=3(SHAG SPIRALI)
#102=20(DIAMETR MIN)
#103=40(DIAMETR MAX)
#104=5.1(GLUBINA OBRAB. PO Z)
#105=2(SHAG PO Z)
#106=0.3(SMESHENIE VHODA-VYHODA)

T1M06(FREZA KONC.)
(D1=Dfr=#107)
#107=[#[2400+#3026]+#[2600+#3026]](DIAMETR FREZY)
G00G90G54X0Y0M08
G43H01Z50.S1000M03F100.
#103=#103-#107
#104=-ABS[#104]
#105=ABS[#105]
#108=-#105
#109=1
WHILE[#108GE#104]DO1
IF[#108NE#104]GOTO1
#109=2
N1IF[#102EQ0]GOTO3
G00G90X[-[#102+#107]/2-#106]Y0
IF[#108NE-#105]GOTO2
Z3.
G1Z0.5
N2G91G1Z-0.2
G90G02I[[#102+#107]/2+#106]Z#108
X[[#102+#107]/2]I[[#102+#107]/2+#106/2]
I[-[#102+#107]/2]L#109
G91G3X#106I#106/2
#100=[[#102+#107]/2+#106]
GOTO5
N3G0G90X0Y[-#107/2]
IF[#108NE-#105]GOTO4
Z3.
G1Z0.3
N4G91G1Z-0.2
G90G3J#107/2Z#108
G1Y0
#100=#102/2
N5WHILE[#100LE[#103/2-#101]]DO2
#100=#100+#101/2
G91G03X[-2*#100]I-#100
#100=#100+#101/2
X[2*#100]I#100
END2
G90G03X[-#103/2]I[-[#100-#101+#103/2]/2]
I[#103/2]L#109
G91X#106/2Y[-#106/2]I#106/2Z0.3
#108=#108-#105
IF[[#108GE#104]OR[#108LE[#104-#105]]]GOTO6
#108=#104
N6END1
G00G90Z100.M09
M05
M30
%