0 BEGIN PGM 2080_IT MM 
1 ;Programma per lavorare i raggi, il cui
2 ;raggio è maggiore del valore massimo
3 ;nel blocco NC.
4 ;Il raggio viene suddiviso in singoli
5 ;elementi lineari. Con la divisione si
6 ;definisce in quanti elementi lineari
7 ;viene suddiviso. La corda dell'arco va
8 ;dal punto di partenza in direzione
9 ;Y positiva e può essere ruotata
10 ;mediante una rotazione nella direzione
11 ;desiderata.
12 ;Il raggio si definisce con un
13 ;parametro (Q6) e un fattore (Q8). Il
14 ;risultato di questa moltiplicazione è
15 ;il raggio con cui il controllo
16 ;numerico calcola la traiettoria
17 ;circolare linearizzata.
18 ;
19 ;Immissione parametri
20 FN 0: Q16 =+100 ;COORDINATA DI PARTENZA X
21 FN 0: Q17 =+0 ;COORDINATA DI PARTENZA Y
22 FN 0: Q7 =+1000 ;LUNGHEZZA CORDA Y
23 FN 0: Q3 =-30 ;PROFONDITA' DI FRESATURA
24 FN 0: Q5 =+1000 ;DIVISIONE
25 FN 0: Q6 =+5 ;RAGGIO
26 FN 0: Q8 =+1000 ;FATTORE DEL RAGGIO
27 FN 0: Q10 =+2 ;DISTANZA DI SICUREZZA
28 FN 0: Q11 =+500 ;AVANZAMENTO IN PROFONDITA'
29 FN 0: Q12 =+2000 ;AVANZAMENTO FRESATURA
30 FN 0: Q15 =+40 ;COMPENSAZIONE RAGGIO
31 ;              ;+40=SENZA COMPENSAZIONE
32 ;              ;+41=COMPENSAZIONE RAGGIO A SINISTRA
33 ;              ;+42=COMPENSAZIONE RAGGIO A DESTRA
34 FN 0: Q18 =+0 ;ROTAZIONE
35 ;Fine immissione parametri
36 ;
37 BLK FORM 0.1 Z X+0 Y+0 Z-100
38 BLK FORM 0.2  X+400  Y+1000  Z+0
39 ;
40 ;Chiamata utensile
41 TOOL CALL 51 Z S5000
42 ;
43 ;Preposizionamento
44 L  Z+20 R0 F9999 M3
45 ;
46 ;Spostamento punto zero su punto di partenza
47 CYCL DEF 7.0 PUNTO ZERO
48 CYCL DEF 7.1  X+Q16
49 CYCL DEF 7.2  Y+Q17
50 ;Attivazione della rotazione
51 CYCL DEF 10.0 ROTAZIONE
52 CYCL DEF 10.1  ROT+Q18
53 ;
54 ;Richiamo della lavorazione
55 CALL LBL 1
56 ;
57 ;Reset conversione delle coordinate
58 CYCL DEF 10.0 ROTAZIONE
59 CYCL DEF 10.1  ROT+0
60 CYCL DEF 7.0 PUNTO ZERO
61 CYCL DEF 7.1  X+0
62 CYCL DEF 7.2  Y+0
63 ;
64 ;Disimpegno e fine programma
65 L  Z+20 R0 F9999 M2
66 ;
67 ;Lavorazione
68 LBL 1
69 ;Calcoli
70 FN 0: Q1 =+0 ;Punto di partenza X di spostamento punto zero
71 FN 0: Q2 =+0 ;Punto di partenza Y di spostamento punto zero
72 FN 0: Q31 =-Q7 ;Sezione asse corrente
73 FN 1: Q32 =+Q2 + +Q7 ;Fine Y
74 FN 0: Q33 =+0 ;Lunghezza corrente
75 FN 3: Q35 =+Q6 * +Q8 ;Conversione raggio
76 FN 3: Q36 =+Q35 * +Q35 ;Raggio quadrato
77 FN 4: Q37 =+Q7 DIV +2 ;Metà corda
78 FN 4: Q38 =+Q7 DIV +Q5 ;Incremento in Y
79 FN 3: Q30 =+Q38 * +2 ;Incremento in asse
80 CALL LBL 10
81 FN 0: Q34 =+Q25 ;Variazione X
82 FN 2: Q34 =+Q1 - +Q34 ;Spostamento del punto di partenza
83 FN 0: Q22 =+Q2 ;Punto di partenza Y
84 ;
85 ;Decisione della compensazione del raggio e raggiungimento
86 ;del punto di partenza
87 FN 10: IF +Q15 NE +0 GOTO LBL Q15
88 LBL 40 ;Senza compensazione del raggio
89 L  X+Q1  Y+Q2 R0 FMAX M3 ;Posizione di partenza
90 FN 9: IF +0 EQU +0 GOTO LBL 43
91 LBL 41 ;Compensazione del raggio a sinistra
92 L  X+Q1  Y+Q2 RL FMAX M3 ;Posizione di partenza
93 FN 9: IF +0 EQU +0 GOTO LBL 43
94 LBL 42 ;Compensazione del raggio a destra
95 L  X+Q1  Y+Q2 RR FMAX M3 ;Posizione di partenza
96 LBL 43
97 L  Z+Q10 FMAX ;Posizionamento alla distanza di sicurezza
98 L  Z+Q3 FQ11 ;Posizionamento a profondità in Z
99 ;
100 LBL 5
101 FN 1: Q22 =+Q22 + +Q38 ;Aggiornamento di Y
102 FN 1: Q33 =+Q33 + +Q38 ;Aggiornamento della lunghezza
103 FN 11: IF +Q22 GT +Q32 GOTO LBL 99 ;Fine Y raggiunta?
104 FN 9: IF +Q22 EQU +Q32 GOTO LBL 99 ;Fine Y raggiunta?
105 FN 1: Q31 =+Q31 + +Q30 ;Aggiornamento della sezione asse
106 CALL LBL 10
107 FN 1: Q21 =+Q34 + +Q25 ;Nuova coordinata X
108 L  X+Q21  Y+Q22 FQ12 ;Raggiungimento della nuova coordinata X e Y
109 FN 12: IF +Q33 LT +Q32 GOTO LBL 5 ;Fine non raggiunta?
110 FN 9: IF +Q33 EQU +Q32 GOTO LBL 5
111 ;
112 LBL 99
113 L  X+Q1  Y+Q32 FMAX ;Raggiungimento dell'ultima posizione
114 L  Z+Q10 FMAX ;Posizionamento a distanza di sicurezza in Z
115 L IX+Q108 IY+Q108 R0 ;Annullamento della compensazione raggio
116 LBL 0
117 ;
118 LBL 10 ;Calcolo dell'incremento X
119 FN 4: Q25 =+Q31 DIV +2
120 FN 3: Q25 =+Q25 * +Q25
121 FN 2: Q25 =+Q36 - +Q25
122 FN 5: Q25 = SQRT +Q25
123 FN 2: Q25 =+Q35 - +Q25 ;Variazione dell'asse X
124 LBL 0
125 END PGM 2080_IT MM