BEGIN PGM DİŞİKONİK MM
BLK FORM 0.1 X-150 Y-150 Z-50
BLK FORM 0,2 X150 Y150 Z0
; REFERANS PARÇA MERKEZİNİN ÜST YÜZEYİ
; T1 10 FREZE
TOOL CALL 1 Z S2500 F2000
cycl def 7.0 datum shıft
cycl def 7.1 x-100
cycl def 7.2 y100
CALL LBL 2
CYCL DEF 7.0 DATUM SHIFT
CYCL DEF 7.1 X-100
CYCL DEF 7.2 Y-100
CALL LBL 2
CYCL DEF 7.0 DATUM SHIFT
CYCL DEF 7.1 X100
CYCL DEF 7.2 Y100
CALL LBL 2
CYCL DEF 7.0 SHIFT
CYCL DEF 7.1 X100
CYCL DEF 7.2 Y-100
CALL LBL 2
M30
LBL 2
Q1=40 ;TOPLAM DERİNLİK
Q2=0,5 ;DERİNLİK HATVESİ
Q3=0 ;Z0 YÜZEYİ
Q4=50 ;KONİK ÜST ÇAPI
Q5=15 ;KONİK AÇISI
Q6=Q2*TAN Q5
Q4=Q4/2
L X0 Y0 R0 FMAX M3
L Z5 R0 FMAX
LBL 1
L X0 Y0 R0 FMAX M13
Q3=Q3+Q2
L Z-Q3 R0 FAUTO
Q4=Q4-Q6
L XQ4 RL F AUTO
CC X0 Y0
C XQ4 Y0 DR+ RL F AUTO
L X0 Y0 R0 FMAX
FN 11: IF +Q1 GT +Q3 GOTO LBL 1
L Z100 R0 FMAX
M30