0 BEGIN PGM 30851_IT MM 
1 ;Programma NC per i calcoli e i movimenti traiettoria
2 ;per la realizzazione di un elemento concavo dell'arco.
3 FN 0: Q46 =+0 ;Contatore passate
4 FN 0: Q52 =+0 ;Punto di partenza nell'asse Y
5 FN 1: Q53 =+Q3 + +Q23 ;Coordinata Z incluso sovrametallo
6 FN 0: Q56 =+Q6 ;Raggio corrente
7 FN 0: Q57 =+Q7 ;Angolo corrente della sezione del profilo
8 FN 0: Q58 =+Q8 ;Angolo corrente nel piano
9 FN 2: Q77 =+Q17 - +Q7 ;Angolo di apertura nel piano X/Z
10 FN 4: Q77 =+Q77 DIV +Q27 ;Angolo incrementale nel piano X/Z
11 FN 3: Q77 =+Q77 * +Q29 ;Angolo incrementale moltiplicato per fattore di sgrossatura
12 FN 2: Q78 =+Q18 - +Q8 ;Angolo di apertura nel piano X/Y
13 FN 4: Q78 =+Q78 DIV +Q26 ;Angolo incrementale nel piano X/Y
14 FN 3: Q78 =+Q78 * +Q29 ;Angolo incrementale moltiplicato per fattore di sgrossatura
15 FN 2: Q76 =+Q16 - +Q6 ;Modifica del raggio
16 FN 4: Q76 =+Q76 DIV +Q26 ;Modifica del raggio per ogni passata
17 FN 3: Q76 =+Q76 * +Q29 ;Modifica del raggio moltiplicata per fattore di sgrossatura
18 ;Spostamento del punto zero al centro e sulla superficie della lavorazione
19 CYCL DEF 7.0 PUNTO ZERO
20 CYCL DEF 7.1  X+Q1
21 CYCL DEF 7.2  Y+Q2
22 CYCL DEF 7.3  Z+Q53
23 ;
24 LBL 1
25 ;Rotazione su angolo corrente nel piano
26 CYCL DEF 10.0 ROTAZIONE
27 CYCL DEF 10.1  ROT+Q58
28 FN 0: Q57 =+Q7 ;Angolo corrente uguale ad angolo di partenza
29 L  X+Q10 R0 FMAX ;Preposizionamento
30 CC  Z+0  X+Q10 ;Centro per sezione del profilo
31 LP  PR+Q56  PA+Q57 FQ22 ;Posizionamento sul punto di partenza
32 L  Y+Q52 FQ22 ;Posizionamento sul punto di partenza nell'asse Y
33 LBL 3 ;Movimento all'angolo finale
34 FN 1: Q57 =+Q57 + +Q77 ;Ripresa dell'angolo corrente
35 FN 11: IF +Q57 GT +Q17 GOTO LBL 4 ;Verifica del raggiungimento dell'angolo finale
36 LP  PR+Q56  PA+Q57 R0 FQ21 ;Raggiungimento del nuovo angolo
37 FN 12: IF +Q57 LT +Q17 GOTO LBL 3 ;Salto per successivo elemento lineare
38 LBL 4
39 LP  PR+Q56  PA+Q17 FQ20 ;Posizionamento su angolo finale
40 FN 1: Q46 =+Q46 + +Q29 ;Proseguimento del contatore
41 FN 1: Q56 =+Q56 + +Q76 ;Aggiornamento del raggio
42 FN 1: Q58 =+Q58 + +Q78 ;Aggiornamento dell'angolo della rotazione
43 FN 11: IF +Q46 GT +Q26 GOTO LBL 99 ;Verifica del raggiungimento del numero di passate
44 LBL 5
45 ;
46 ;Rotazione sul nuovo angolo
47 CYCL DEF 10.0 ROTAZIONE
48 CYCL DEF 10.1  ROT+Q58
49 FN 0: Q57 =+Q17 ;Angolo corrente uguale ad angolo finale
50 CC  Z+0  X+Q10 ;Centro per sezione del profilo
51 LP  PR+Q56  PA+Q57 FQ22 ;Raggiungimento del punto iniziale
52 L  Y+Q52 FQ22 ;Raggiungimento del punto di partenza Y
53 ;
54 LBL 7 ;Movimento all'angolo di partenza
55 FN 2: Q57 =+Q57 - +Q77 ;Aggiornamento dell'angolo
56 FN 12: IF +Q57 LT +Q7 GOTO LBL 8 ;Verifica se angolo corrente inferiore ad angolo di partenza
57 LP  PR+Q56  PA+Q57 R0 FQ21 ;Raggiungimento dell'angolo corrente
58 FN 11: IF +Q57 GT +Q7 GOTO LBL 7 ;Verifica del raggiungimento dell'angolo di partenza
59 LBL 8
60 LP  PR+Q56  PA+Q7 FQ20 ;Raggiungimento dell'angolo di partenza
61 FN 1: Q46 =+Q46 + +Q29 ;Proseguimento del contatore
62 FN 1: Q56 =+Q56 + +Q76 ;Aggiornamento del raggio
63 FN 1: Q58 =+Q58 + +Q78 ;Aggiornamento dell'angolo della rotazione
64 FN 9: IF +Q46 EQU +Q26 GOTO LBL 1 ;Verifica del raggiungimento del numero di passate
65 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Verifica del raggiungimento del numero di passate
66 LBL 99
67 ;Reset della rotazione
68 CYCL DEF 10.0 ROTAZIONE
69 CYCL DEF 10.1  ROT+0
70 ;Reset dello spostamento origine
71 CYCL DEF 7.0 PUNTO ZERO
72 CYCL DEF 7.1  X+0
73 CYCL DEF 7.2  Y+0
74 CYCL DEF 7.3  Z+0
75 ;
76 ;Disimpegno
77 L  Z+Q25 R0 F9999
78 END PGM 30851_IT MM