0 BEGIN PGM 1075_IT MM 
1 ;Programma per la fresatura di un cono
2 ;con una traiettoria elicoidale. La
3 ;lavorazione viene eseguita in base
4 ;a come sono definiti i parametri:
5 ;- interno o esterno
6 ;- dall'alto verso il basso e viceversa
7 ;- in senso orario o antiorario
8 ;- dal diametro grande al piccolo o viceversa
9 ;
10 ;Il controllo numerico divide la traiettoria
11 ;utensile necessaria a tale scopo in incrementi
12 ;lineari. Con la divisione si definisce in
13 ;quanti elementi lineari viene suddivisa una
14 ;traiettoria a 360°. Il controllo numerico
15 ;calcola per ciascuno di questi incrementi
16 ;lineari una coordinata X, Y e Z da
17 ;raggiungere.
18 ;
19 ;
20 BLK FORM 0.1 Z X+0 Y+0 Z-32
21 BLK FORM 0.2  X+100  Y+100  Z+0
22 ;
23 ;Chiamata utensile fresa a candela
24 TOOL CALL 15 Z S5000
25 ;
26 ;Immissione parametri
27 FN 0: Q1 =+50 ;CENTRO X
28 FN 0: Q2 =+50 ;CENTRO Y
29 FN 0: Q4 =-1 ;SENSO DI ROTAZIONE
30 ;            ;-1= IN SENSO ORARIO
31 ;            ;+1= IN SENSO ANTIORARIO
32 FN 0: Q5 =+180 ;DIVISIONE
33 FN 0: Q6 =+40 ;RAGGIO PARTENZA
34 FN 0: Q7 =+0 ;ANGOLO DI PARTENZA
35 FN 0: Q8 =+15 ;ANGOLO AL CONO
36 FN 0: Q9 =+0.2 ;MODIFICA PROFONDITA' PER OGNI ROTAZIONE
37 FN 0: Q10 =+2 ;ALTEZZA DI SICUREZZA
38 FN 0: Q11 =+300 ;AVANZAMENTO IN PROFONDITA'
39 FN 0: Q12 =+1000 ;AVANZAMENTO FRESATURA
40 FN 0: Q3 =+0 ;PARTENZA COORDINATA Z
41 FN 0: Q13 =-30 ;FINE COORDINATA Z
42 FN 0: Q14 =+0 ;SOVRAMETALLO LATERALE
43 FN 0: Q15 =+1 ;COMPENSAZIONE RAGGIO
44 ;             ;-1= INTERNO
45 ;             ;+1= ESTERNO
46 FN 0: Q16 =+2 ;DISTANZA DI SICUREZZA LATERALE
47 ;Fine immissione parametri
48 ;
49 ;Richiamo della lavorazione
50 CALL LBL 1
51 ;
52 ;Disimpegno e fine programma
53 L  Z+100 R0 FMAX M30
54 ;
55 ;Lavorazione
56 LBL 1
57 FN 3: Q31 =+Q16 * +Q15 ;Calcolo distanza di sicurezza laterale
58 FN 3: Q38 =+Q108 * +Q15 ;Calcolo raggio utensile
59 FN 3: Q39 =+Q14 * +Q15 ;Calcolo sovrametallo laterale
60 FN 0: Q23 =+Q3 ;Coordinata Z corrente
61 FN 0: Q25 =+0 ;Contatore
62 FN 1: Q26 =+Q6 + +Q38 ;Compensazione raggio utensile
63 FN 1: Q26 =+Q26 + +Q39 ;Compensazione sovrametallo
64 FN 1: Q28 =+Q26 + +Q31 ;Raggio per preposizionamento
65 FN 0: Q27 =+Q7 ;Angolo corrente
Q36 = TAN Q8 * Q9 ;Modifica raggio ogni 360°
66 FN 4: Q36 =+Q36 DIV +Q5 ;Grandezza incremento raggio
67 FN 4: Q37 =+360 DIV +Q5 ;Grandezza incremento angolo
68 FN 3: Q37 =+Q37 * +Q4 ;Passo angolare nel senso di rotazione
69 FN 2: Q35 =+Q13 - +Q3 ;Area Z
Q33 = Q9 / Q5 * SGN Q35 ;Grandezza incremento Z
Q35 = ( Q13 - Q3 ) / Q33 ;Numero di incrementi Z
Q35 = ABS Q35 ;Valore di conteggio positivo
70 ;
71 CC  X+Q1  Y+Q2 ;Definizione centro
72 LP  PR+Q28  PA+Q7 R0 FMAX M3 ;Preposizionamento
73 L  Z+Q10 R0 FMAX ;Posizionamento alla distanza di sicurezza
74 L  Z+Q3 R0 FQ11 ;Posizionamento su coordinata di partenza Z
75 LP  PR+Q26  PA+Q7 R0 FQ12 ;Raggiungimento della posizione di partenza
76 ;
77 ;Ripetizioni
78 LBL 2
79 FN 1: Q26 =+Q26 + +Q36 ;Aggiornamento del raggio
80 FN 1: Q27 =+Q27 + +Q37 ;Aggiornamento dell'angolo
81 FN 7: Q21 = COS +Q27 ;Calcolo coordinata X
82 FN 3: Q21 =+Q21 * +Q26 ;Calcolo coordinata X
83 FN 1: Q21 =+Q21 + +Q1 ;Nuova coordinata X
84 FN 6: Q22 = SIN +Q27 ;Calcolo coordinata Y
85 FN 3: Q22 =+Q26 * +Q22 ;Calcolo coordinata Y
86 FN 1: Q22 =+Q22 + +Q2 ;Nuova coordinata Y
87 FN 1: Q23 =+Q23 + +Q33 ;Nuova coordinata Z
88 FN 1: Q25 =+Q25 + +1 ;Aggiornamento del contatore
89 L  X+Q21  Y+Q22  Z+Q23 FQ12 ;Raggiungimento nuove coordinate
90 FN 12: IF +Q25 LT +Q35 GOTO LBL 2 ;Confronto se raggiunto numero di passate
91 LP IPR+Q31 ;Disimpegno laterale
92 L  Z+Q10 R0 FMAX ;Posizionamento alla distanza di sicurezza
93 LBL 0
94 END PGM 1075_IT MM