0 BEGIN PGM 7070-ES MM 
1 ;Programa para el mecanizado exterior de una
2 ;superficie cilíndrica con una fresa toroidal.
3 ;El eje del cilindro transcurre paralelamente
4 ;al eje Y. El mecanizado tiene lugar en una
5 ;trayectoria circular alrededor de un centro
6 ;en el eje X y Z, y la aproximación lateralmente
7 ;en el eje Y. El cilindro se mecaniza en ambas
8 ;caras desde abajo hacia arriba. La graduación
9 ;indica en cuántas trayectorias se divide cada
10 ;cara. A partir de ello, el control numérico calcula
11 ;cuán grande debe ser el incremento lateral. La
12 ;herramienta se posiciona en el inicio corregida en
13 ;su radio, y se desplaza al final sobre la posición
14 ;indicada.
15 ;
16 BLK FORM 0.1 Z X-55 Y+0 Z-55
17 BLK FORM 0.2  X+55  Y+100  Z+0
18 ;
19 ;Introducción de parámetros
20 FN 0: Q1 =+0 ;CENTRO DEL CILINDRO EN EL EJE X
21 FN 0: Q2 =-50.1 ;CENTRO DEL CILINDRO EN EL EJE Z
22 FN 0: Q3 =+0 ;PUNTO INICIAL EN EL EJE Y
23 ;            ;COORDENADA MÍNIMA
24 FN 0: Q4 =+100 ;PUNTO FINAL EN EL EJE Y
25 ;            ;COORDENADA MÁXIMA
26 FN 0: Q5 =+50 ;GRADUACIÓN
27 ;            ;NÚMERO DE TRAYECTORIAS DE FRESADO POR CADA CARA
28 FN 0: Q6 =+50 ;RADIO DEL CILINDRO
29 FN 0: Q7 =+10 ;ALTURA DE SEGURIDAD
30 FN 0: Q8 =+600 ;AVANCE DE FRESADO
31 FN 0: Q9 =+300 ;AVANCE AL PROFUNDIZAR
32 FN 0: Q30 =+5 ;RADIO DE CUCHILLA
33 ;Fin de la introducción de parámetros
34 ;
35 ;Llamada de herramienta fresa toroidal
36 TOOL CALL 115 Z S8000
37 TOOL CALL  Z DL-Q30
38 ;
39 ;
40 ;Cálculos
41 FN 2: Q31 =+Q108 - +Q30 ;Compensación radio de cuchilla
42 FN 1: Q26 =+Q6 + +Q30 ;Radio efectivo hasta el centro de la cuchilla
43 FN 1: Q10 =+Q1 + +Q31 ;CC X 1.ª cara
44 FN 2: Q11 =+Q1 - +Q31 ;CC X 2.ª cara
45 FN 2: Q13 =+Q3 - +Q108 ;Punto inicial
46 FN 1: Q14 =+Q4 + +Q108 ;Punto final
47 FN 2: Q15 =+Q14 - +Q13 ;Segmento rectilíneo
48 FN 4: Q16 =+Q15 DIV +Q5 ;Amplitud
49 FN 2: Q17 =+Q5 - +1 ;Número de repeticiones
50 FN 1: Q18 =+Q6 + +Q108 ;Posicionamiento previo
51 FN 1: Q19 =+Q1 + +Q18 ;Posicionamiento previo 1.ª cara
52 FN 2: Q20 =+Q1 - +Q18 ;Posicionamiento previo 2.ª cara
53 ;Fin de los cálculos
54 ;
55 L  Z+100 R0 FMAX ;Retirar la hta.
56 ;
57 ;1.ª cara
58 L  X+Q19  Y+Q13 R0 FMAX M3 ;Posicionamiento previo 1.ª cara
59 L  Z+Q7 R0 FMAX ;Ir a altura de seguridad
60 CC  X+Q10  Z+Q2 ;Centro de la trayectoria circular
61 LBL 1
62 L  X+Q19 R0 FMAX
63 LP  PR+Q26  PA+90 FQ9 ;profundización
64 L IY+Q16 R0 FQ8 ;Incremento lateral
65 CP IPA-90 DR- FQ8 ;Trayectoria circular
66 L  Z+Q7 R0 FMAX ;Ir a altura de seguridad
67 CALL LBL 1 REPQ17 ;Repetición
68 ;
69 ;2.ª cara
70 L  X+Q20  Y+Q14 R0 FMAX ;Posicionamiento previo 2.ª cara
71 CC  X+Q11  Z+Q2 ;Centro de la trayectoria circular
72 LBL 2
73 L  X+Q20 R0 FMAX
74 LP  PR+Q26  PA-90 FQ9 ;profundización
75 L IY-Q16 R0 FQ8 ;Incremento lateral
76 CP IPA+90 DR+ FQ8 ;Trayectoria circular
77 L  Z+Q7 R0 FMAX ;Ir a altura de seguridad
78 CALL LBL 2 REPQ17 ;Repetición
79 ;
80 ;Retirar la hta. y final del programa
81 L  Z+100 R0 FMAX M30
82 END PGM 7070-ES MM