0 BEGIN PGM 2070_IT MM 
1 ;Programma per la fresatura di una traiettoria
2 ;a ellisse.
3 ;A tale scopo la traiettoria vera e propria
4 ;viene suddivisa in elementi lineari singoli.
5 ;Il numero di questi movimenti lineari
6 ;determina la precisione con cui si allineano
7 ;la traiettoria linearizzata e quella ellittica.
8 ;La traiettoria viene percorsa in senso
9 ;antiorario. Tutti i valori richiesti si
10 ;definiscono in parametri.
11 ;
12 ;Immissione parametri
13 FN 0: Q1 =+0 ;CENTRO ELLISSE NELL'ASSE X
14 FN 0: Q2 =+0 ;CENTRO ELLISSE NELL'ASSE Y
15 FN 0: Q3 =-10 ;PROFONDITA'
16 FN 0: Q5 =+50 ;DIVISIONE
17 ;             ;DEFINISCE IN QUANTI ELEMENTI
18 ;             ;LINEARI SI SUDDIVIDE LA
19 ;             ;TRAIETTORIA
20 FN 0: Q6 =+45 ;SEMIASSE ELLISSE IN X
21 FN 0: Q16 =+25 ;SEMIASSE ELLISSE IN Y
22 FN 0: Q7 =+0 ;ANGOLO DI PARTENZA NEL PIANO X/Y
23 FN 0: Q17 =+360 ;ANGOLO FINALE NEL PIANO X/Y
24 FN 0: Q8 =+0 ;ROTAZIONE DELL'ELLISSE
25 FN 0: Q10 =+2 ;DISTANZA DI SICUREZZA
26 FN 0: Q11 =+300 ;AVANZAMENTO IN PROFONDITA'
27 FN 0: Q12 =+555 ;AVANZAMENTO FRESATUR
28 FN 0: Q14 =+0 ;SOVRAMETALLO
29 ;             ;VALORE DEL QUALE VENGONO MODIFICATI
30 ;             ;I SEMIASSI
31 ;             ;!!PRESTARE ATTENZIONE AL SEGNO!!
32 FN 0: Q15 =+2 ;COMPENSAZIONE RAGGIO
33 ;           ;0=SENZA COMPENSAZIONE
34 ;           ;1=COMPENSAZIONE RAGGIO A SINISTRA
35 ;           ;2=COMPENSAZIONE RAGGIO A DESTRA
36 ;Fine immissione parametri
37 ;
38 BLK FORM 0.1 Z X-60 Y-50 Z-40
39 BLK FORM 0.2  X+60  Y+50  Z+0
40 ;
41 ;Chiamata utensile fresa
42 TOOL CALL 10 Z S3000
43 ;
44 ;Chiamata movimento traiettoria
45 CALL LBL 1
46 ;
47 ;Disimpegno e fine programma
48 L  Z+100 R0 FMAX M30
49 ;
50 ;Movimento traiettoria
51 LBL 1
52 ;Conversioni di coordinate
53 CYCL DEF 7.0 PUNTO ZERO
54 CYCL DEF 7.1  X+Q1
55 CYCL DEF 7.2  Y+Q2
56 CYCL DEF 10.0 ROTAZIONE
57 CYCL DEF 10.1  ROT+Q8
58 ;
59 FN 0: Q23 =+Q3 ;Copia del valore Z
60 FN 0: Q27 =+Q7 ;Angolo corrente = angolo di partenza
61 FN 1: Q31 =+Q6 + +Q14 ;Semiasse X efficace
62 FN 1: Q32 =+Q16 + +Q14 ;Semiasse Y efficace
63 FN 0: Q35 =+0 ;Contatore
64 FN 2: Q37 =+Q17 - +Q7 ;Passo angolare
65 FN 4: Q37 =+Q37 DIV +Q5 ;Passo angolare
66 CALL LBL 4 ;Chiamata calcolo di posizione
67 ;
68 ;Considerazione della compensazione raggio e
69 ;raggiungimento della prima posizione
70 FN 9: IF +Q15 EQU +1 GOTO LBL 11
71 FN 9: IF +Q15 EQU +2 GOTO LBL 12
72 LBL 10
73 L  X+Q21  Y+Q22 R0 FMAX M3
74 FN 9: IF +0 EQU +0 GOTO LBL 2
75 LBL 11
76 L  X+Q21  Y+Q22 RL FMAX M3
77 FN 9: IF +0 EQU +0 GOTO LBL 2
78 LBL 12
79 L  X+Q21  Y+Q22 RR FMAX M3
80 ;
81 LBL 2
82 L  Z+Q10 FMAX ;Preposizionamento dell'asse Z
83 L  Z+Q3 FQ11 ;Avanzamento in profondità
84 ;
85 LBL 3 ;Ripetizione
86 FN 1: Q27 =+Q27 + +Q37 ;Ulteriore calcolo dell'angolo
87 FN 1: Q35 =+Q35 + +1 ;Ulteriore calcolo del contatore
88 FN 11: IF +Q35 GT +Q5 GOTO LBL 99 ;Confronto se raggiunto numero di passate
89 CALL LBL 4 ;Chiamata calcolo di posizione
90 L  X+Q21  Y+Q22  Z+Q23 FQ11 ;Raggiungimento della nuova posizione
91 FN 12: IF +Q35 LT +Q5 GOTO LBL 3 ;Confronto se è necessaria un'ulteriore ripetizione
92 ;
93 LBL 99
94 L  Z+Q10 R0 FMAX ;Disimpegno dell'asse Z
95 ;Reset conversione delle coordinate
96 CYCL DEF 10.0 ROTAZIONE
97 CYCL DEF 10.1  ROT+0
98 CYCL DEF 7.0 PUNTO ZERO
99 CYCL DEF 7.1  X+0
100 CYCL DEF 7.2  Y+0
101 LBL 0
102 ;
103 LBL 4 ;Calcolo della nuova posizione X e Y
104 FN 7: Q21 = COS +Q27
105 FN 3: Q21 =+Q21 * +Q31
106 FN 6: Q22 = SIN +Q27
107 FN 3: Q22 =+Q32 * +Q22
108 LBL 0
109 END PGM 2070_IT MM