0 BEGIN PGM 3175_IT MM 
1 ;Programma per la fresatura di un corpo sotto forma di
2 ;una linguetta conica.
3 ;La lavorazione viene eseguita con una fresa a candela
4 ;in linee isometriche. Si definiscono quindi prima
5 ;tutti i necessari parametri. Il controllo numerico
6 ;calcola poi la modifica in profondità e laterale. Poi
7 ;lavora il corpo dal basso verso l'alto. Si impiega a
8 ;tale scopo il ciclo 25 programmando le modifiche del
9 ;profilo con il sovrametallo laterale. Dopo ogni chiamata
10 ;ciclo, vengono calcolati la nuova profondità e il nuovo
11 ;sovrametallo laterale, e si esegue una ripetizione fino
12 ;a completare il corpo.
13 ;Con la divisione si definisce il numero di linee isometriche
14 ;da realizzare e si determina così indirettamente la qualità
15 ;superficie e l'accuratezza.
16 ;
17 BLK FORM 0.1 Z X-15 Y-7 Z-12
18 BLK FORM 0.2  X+15  Y+7  Z+0
19 ;
20 ;Chiamata utensile fresa a candela
21 TOOL CALL 8 Z S3000
22 ;
23 ;Immissione parametri
24 FN 0: Q10 =+8 ;LARGHEZZA LINGUETTA SUPERIORE
25 FN 0: Q20 =+14 ;LARGHEZZA LINGUETTA INFERIORE
26 FN 0: Q40 =+10 ;PROFONDITA'
27 FN 0: Q50 =+16 ;LUNGHEZZA DELLA RETTA
28 FN 0: Q30 =+50 ;DIVISIONE
29 FN 0: Q70 =+300 ;AVANZAMENTO IN PROFONDITA'
30 FN 0: Q71 =+600 ;AVANZAMENTO FRESATURA
31 FN 0: Q72 =+10 ;PROFONDITA' DI PENETRAZIONE MAX
32 ;Fine immissione
33 ;
34 ;Calcoli
35 FN 4: Q61 =+Q10 DIV +2 ;Raggio cerchio in alto
36 FN 4: Q51 =+Q50 DIV +2 ;Lunghezza della retta dal centro
37 FN 2: Q21 =+Q20 - +Q10 ;Differenza diametro
38 FN 4: Q22 =+Q21 DIV +2 ;Differenza raggio
39 FN 2: Q31 =+Q30 - +1 ;Numero di ripetizioni di blocchi di programma
40 FN 4: Q23 =+Q22 DIV +Q30 ;Modifica laterale per ogni passata
41 FN 4: Q41 =+Q40 DIV +Q30 ;Modifica in profondità per ogni passata
42 ;Fine calcoli
43 ;
44 LBL 10
45 CYCL DEF 14.0 PROFILO
46 CYCL DEF 14.1 LABEL PROFILO1
47 CYCL DEF 25 CONTORNATURA ~
   Q1=-Q40  ;PROFONDITA'FRESATURA ~
    Q3=+Q22  ;QUOTA LATERALE CONS. ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q7=+50   ;ALTEZZA DI SICUREZZA ~
    Q10=-Q72  ;PROF. INCREMENTO ~
    Q11=+Q70  ;AVANZ. INCREMENTO ~
    Q12=+Q71  ;AVANZ. PER SVUOT. ~
    Q15=+1    ;MODO FRESATURA
48 CYCL CALL M13
49 ;Calcolo nuova profondità e nuovo sovrametallo
50 FN 2: Q40 =+Q40 - +Q41
51 FN 2: Q22 =+Q22 - +Q23
52 CALL LBL 10 REPQ31 ;Ripetizione della lavorazione
53 ;Disimpegno e fine programma
54 L  Z+100 R0 FMAX M30
55 ;
56 ;Sottoprogramma per descrizione del profilo
57 LBL 1
58 L  X+0  Y+Q61 RL
59 L  X+Q51
60 CR  X+Q51  Y-Q61 R+Q61 DR-
61 L  X-Q51
62 CR  X-Q51  Y+Q61 R+Q61 DR-
63 L  X+0
64 LBL 0
65 END PGM 3175_IT MM