ÇALIŞTIRMA KOMUTU

G65 P9022 W81 X0 Y0 Z-3 R5 I70 K6 A0 F120
veya
G65 P9022 W73 X0 Y0 Z-24 R5 Q2 I70 K6 A0 F120
veya
G65 P9022 W83 X0 Y0 Z-60 R5 Q2 I70 K6 A0 F120
veya
G65 P9022 W84 X0 Y0 Z-40 R5 I70 B6 A0 F1.5
<< KILAVUZ ÇEKME ÇEVRİMİ İÇİN F İLERLEMESİ DİŞ ADIMI OLARAK VERİLİR >>

W - DELME ŞEKLİ. W81=G81 W73=G73 W83=G83 W84=G84 Gibi çalışır
X - DAİRE MERKEZ KOORDİNATI
Y - DAİRE MERKEZ KOORDİNATI
Z - TOPLAM DERİNLİK
R - KORUMA NOKTASI
Q - KADEME (GAGALAMA MİKTARI)
I - DAİRE YARI ÇAPI
K - DELİK SAYISI
A- BAŞLANGIÇ AÇISI
F - İLERLEME


ALT PROGRAM
:9022(DAIREDE ESIT ARLK. DEL. DELME)
#503=0.
#504=#23(W)
#505=#24(X)
#506=#25(Y)
#507=#26(Z)
#508=#18(R)
#509=#17(Q)
#510=#4(I)
#511=#1(A)
#512=#6(K)
#513=#9(F)
#518=#1(A)
G90G0X#505Y#506
WHILE[#503LT#512]DO1
#514=#505+#510*COS[#511]
#515=#506+#510*SIN[#511]
#516=#514
#517=#515
IF[#504EQ81]GOTO2
IF[#504EQ73]GOTO3
IF[#504EQ83]GOTO4
IF[#504EQ84]GOTO5
N2G81X#516Y#517Z#507R#508F#513
GOTO5
N3G73X#516Y#517Z#507R#508Q#509F#513
GOTO5
N4G83X#516Y#517Z#507R#508Q#509F#513
GOTO6
N5G95
G84X#516Y#517Z#507R#508F#513
G94
N6#503=#503+1.
#511=#518+360.*#503/#512
END1
G80
M99
%