0 BEGIN PGM 2035_IT MM 
1 ;Programma per la fresatura di una spirale
2 ;nel piano X/Y.
3 ;Dai parametri immessi il controllo numerico
4 ;calcola la traiettoria utensile che si
5 ;compone di singoli blocchi lineari, da cui
6 ;definisce di volta in volta i punti finali
7 ;in X e Y. Con la divisione da immettere si
8 ;definisce in quanti blocchi lineari viene
9 ;suddivisa una traiettoria a 360°. Su
10 ;questa traiettoria a 360° il controllo
11 ;numerico calcola anche il passo immesso.
12 ;I movimenti utensile nell'asse Z vengono
13 ;percorsi in verticale.
14 ;
15 BLK FORM 0.1 Z X+0 Y+0 Z-20
16 BLK FORM 0.2  X+100  Y+100  Z+0
17 ;
18 ;Chiamata utensile
19 TOOL CALL 5 Z S4000
20 ;
21 ;Immissione parametri
22 FN 0: Q1 =+50 ;CENTRO NELL'ASSE X
23 FN 0: Q2 =+50 ;CENTRO NELL'ASSE Y
24 FN 0: Q3 =-15 ;PROFONDITA'
25 FN 0: Q4 =+1 ;SENSO DI ROTAZIONE
26 ;            ;+1=IN SENSO ANTIORARIO
27 ;            ;-1=IN SENSO ORARIO
28 FN 0: Q5 =+180 ;DIVISIONE (NUMERO DI BLOCCHI 
29 ;              ;LINEARI A 360 GRADI)
30 FN 0: Q6 =+10 ;RAGGIO DI PARTENZA
31 FN 0: Q16 =+47 ;RAGGIO FINALE
32 FN 0: Q7 =+90 ;ANGOLO DI PARTENZA
33 FN 0: Q8 =+10 ;PASSO IN MM A 360°
34 FN 0: Q10 =+2 ;DISTANZA DI SICUREZZA
35 FN 0: Q11 =+100 ;AVANZAMENTO IN PROFONDITA'
36 FN 0: Q12 =+300 ;AVANZAMENTO FRESATURA
37 FN 0: Q14 =+0 ;SOVRAMETALLO LATERALE
38 FN 0: Q15 =+0 ;COMPENSAZIONE RAGGIO
39 ;             ; 0=NESSUNA COMPENSAZIONE RAGGIO
40 ;             ;+1=UTENSILE TRASLA AL DI FUORI DEL
41 ;             ;PROFILO
42 ;             ;-1=UTENSILE TRASLA ALL'INTERNO DEL
43 ;             ;PROFILO
44 ;Fine immissione parametri
45 ;
46 L  X+Q1  Y+Q2 R0 FMAX M3 ;Preposizionamento
47 L  Z+Q10 R0 FMAX
48 CALL LBL 1
49 ;Fine programma
50 L  Z+100 R0 FMAX M5 M2
51 ;
52 ;
53 LBL 1 ;Calcoli
54 CC  X+Q1  Y+Q2 ;Impostazione centro
55 FN 3: Q38 =+Q108 * +Q15 ;Calcolo compensazione raggio
56 FN 3: Q39 =+Q14 * +Q15 ;Calcolo sovrametallo
57 FN 1: Q26 =+Q6 + +Q38 ;Raggio di partenza con compensazione raggio
58 FN 1: Q26 =+Q26 + +Q39 ;Raggio di partenza effettivo (incl. sovrametallo)
59 FN 0: Q27 =+Q7 ;Angolo corrente=angolo di partenza
60 FN 4: Q36 =+Q8 DIV +Q5 ;Definizione incremento raggio
61 FN 8: Q36 =+Q36 LEN +0 ;Definizione del calcolo con valori positivi
62 FN 4: Q37 =+360 DIV +Q5 ;Definizione passo angolare
63 FN 3: Q37 =+Q37 * +Q4 ;Calcolo passo angolare con senso di rotazione
64 ;
65 ;
66 LP  PR+Q26  PA+Q7 R0 F9999 M3 ;Raggiungimento della posizione di partenza
67 L  Z+Q3 FQ11 ;Penetrazione
68 ;
69 LBL 2 ;Ripetizione
70 FN 1: Q26 =+Q26 + +Q36 ;Ulteriore calcolo del raggio
71 FN 1: Q27 =+Q27 + +Q37 ;Ulteriore calcolo dell'angolo
72 ;Calcolo delle coordinate X e Y
73 FN 7: Q21 = COS +Q27
74 FN 3: Q21 =+Q21 * +Q26
75 FN 1: Q21 =+Q21 + +Q1
76 FN 6: Q22 = SIN +Q27
77 FN 3: Q22 =+Q22 * +Q26
78 FN 1: Q22 =+Q22 + +Q2
79 ;Controllo se raggiunto raggio finale
80 FN 11: IF +Q26 GT +Q16 GOTO LBL 99 ;
81 ;Raggiungimento della nuova posizione X e Y
82 L  X+Q21  Y+Q22  Z+Q3 FQ12
83 ;Se non è stato raggiunto il raggio finale,
84 ;ritorno alla ripetizione
85 FN 12: IF +Q26 LT +Q16 GOTO LBL 2
86 ;
87 LBL 99 ;Spirale pronta
88 L  Z+Q10 F9999 ;Posizionamento a distanza di sicurezza
89 LBL 0
90 END PGM 2035_IT MM