0 BEGIN PGM 3235_IT MM 
1 ;Programma per la fresatura di un arrotondamento
2 ;convesso nell'asse X su un pezzo.
3 ;La lavorazione č possibile con una fresa sferica
4 ;o a candela.
5 ;Il centro e il raggio devono essere determinati
6 ;tramite parametri. L'origine deve essere sul
7 ;punto pių negativo nell'asse X e Y. Nell'asse Z
8 ;l'arrotondamento viene fresato dall'altezza
9 ;definita della lavorazione fino al piano Z0.
10 ;
11 BLK FORM 0.1 Z X+0 Y+0 Z-20
12 BLK FORM 0.2  X+100  Y+100  Z+20
13 ;
14 ;Chiamata utensile fresa sferica o fresa a candela
15 TOOL CALL 159 Z S5000
16 ;
17 L  Z+100 R0 FMAX M3
18 ;
19 ;Immissione parametri
20 FN 0: Q30 =+20 ;CENTRO CERCHIO IN Y
21 FN 0: Q31 =+0 ;CENTRO CERCHIO IN Z
22 FN 0: Q32 =+20 ;RAGGIO
23 FN 0: Q34 =+20 ;DIVISIONE
24 FN 0: Q35 =+0 ;SOVRAMETALLO
25 FN 0: Q36 =+20 ;ALTEZZA DELLA LAVORAZIONE
26 FN 0: Q37 =+100 ;LUNGHEZZA DEL PEZZO
27 FN 0: Q38 =+2 ;DISTANZA DI SICUREZZA LATERALE
28 FN 0: Q39 =+1000 ;AVANZAMENTO FRESATURA
29 FN 0: Q40 =+0 ;FORMA DELL'UTENSILE:
30 ;             ;FRESA SFERICA = 1
31 ;             ;FRESA A CANDELA = 0
32 FN 0: Q33 =+10 ;RAGGIO FRESA SFERICA
33 ;Fine immissione
34 ;
35 ;Calcoli
Q50 = ACOS ( ( - Q31 + Q36 ) / Q32 ) ;Angolo iniziale
Q51 = ACOS ( - Q31 / Q32 ) ;Angolo finale
36 FN 2: Q52 =+Q50 - +Q51 ;Differenza angolare
Q53 = Q52 / ( Q34 + 2 ) ;Passo angolare
Q54 = Q32 + Q33 + Q35 ;Raggio efficace
37 FN 4: Q55 =+Q34 DIV +2 ;Numero di ripetizioni
38 FN 1: Q56 =+Q108 + +Q38 ;Posizione X min.
Q57 = Q37 + Q38 + Q108 ;Posizione X max
39 FN 0: Q58 =+0 ;Compensazione raggio fresa sferica
40 FN 9: IF +Q40 EQU +0 GOTO LBL 2 ;Salto a calcolo per fresa a candela
41 LBL 3
42 ;
43 ;Lavorazione
44 FN 0: Q70 =+Q50 ;Angolo corrente = angolo iniziale
45 LBL 1 ;Ripetizione della lavorazione
46 FN 2: Q70 =+Q70 - +Q53 ;Passo angolare
47 CYCL DEF 7.0 PUNTO ZERO
48 CYCL DEF 7.1  Y+Q30
49 CYCL DEF 7.2  Z+Q31
Q72 = - ( COS ( Q70 ) * Q54 ) - Q58 ;BCalcolo nuova posizione Z
Q71 = SIN ( Q70 ) * Q54 - Q33 ;Calcolo nuova posizione Y
50 L  X-Q56  Y+Q72 R0 FMAX ;Raggiungimento posizione X e Y
51 L  Z+Q71 FMAX ;Raggiungimento posizione Z
52 L  X+Q57 FQ39 ;Fresatura traiettoria X
53 ;
Q70 = Q70 - Q53 ;Passo angolare
Q72 = - ( COS ( Q70 ) * Q54 ) - Q58 ;Calcolo posizione Z
Q71 = SIN ( Q70 ) * Q54 - Q33 ;Calcolo posizione Y
54 L  Y+Q72  Z+Q71 R0 FMAX ;Raggiungimento posizione Y e Z
55 L  X-Q56 FQ39 ;Fresatura traiettoria X
56 CALL LBL 1 REPQ55 ;Ripetizione lavorazione
57 STOP
58 ;
59 CYCL DEF 7.0 PUNTO ZERO
60 CYCL DEF 7.1  X+0
61 CYCL DEF 7.2  Y+0
62 CYCL DEF 7.3  Z+0
63 L  Z+Q36 FMAX ;Raggiungimento della posizione di partenza in Z
64 L IZ+50 FMAX ;Disimpegno dell'asse Z
65 ;
66 ;Fine programma
67 M30
68 ;
69 LBL 2 ;Calcolo per fresa a candela
70 FN 0: Q33 =+0 ;Azzeramento valore per raggio fresa sferica
71 FN 0: Q58 =+Q108 ;Compensazione del raggio utensile
72 FN 1: Q54 =+Q32 + +Q35 ;Raggio efficace
73 FN 9: IF +0 EQU +0 GOTO LBL 3 ;Ritorno
74 LBL 0
75 END PGM 3235_IT MM