0 BEGIN PGM 7010-ES MM 
1 ;Programa para el mecanizado interior de un tronco
2 ;cónico con una fresa esférica.
3 ;El eje del cono transcurre paralelamente al eje Y.
4 ;El mecanizado tiene lugar en una trayectoria
5 ;circular alrededor del centro en el
6 ;eje X y Z, y la aproximación lateralmente en el
7 ;eje Y. La graduación indica en cuántas trayectorias
8 ;circulares se reparte el mecanizado. A partir de
9 ;ello, el control numérico calcula cuán grande debe
10 ;ser el incremento lateral y la correspondiente
11 ;modificación del radio.
12 ;
13 BLK FORM 0.1 Z X-50 Y+0 Z-60
14 BLK FORM 0.2  X+50  Y+100  Z+0
15 ;
16 ;Introducción de parámetros
17 FN 0: Q1 =+0 ;CENTRO DEL CONO EN X
18 FN 0: Q2 =+0 ;CENTRO DEL CONO EN Z
19 FN 0: Q3 =+0 ;COORDENADA DE INICIO EN Y
20 FN 0: Q4 =+45 ;RADIO INICIAL
21 FN 0: Q5 =+100 ;COORDENADA FINAL EN Y
22 FN 0: Q6 =+20 ;RADIO FINAL
23 FN 0: Q7 =+50 ;GRADUACIÓN
24 FN 0: Q8 =+300 ;AVANCE FRESAR
25 FN 0: Q9 =+200 ;AVANCE PROFUNDIZACIÓN
26 FN 0: Q10 =+10 ;ALTURA DE SEGURIDAD
27 ;Fin de la introducción de parámetros
28 ;
29 ;Llamada a la herramienta fresa esférica
30 TOOL CALL 157 Z S8000
31 TOOL CALL  DL-Q108
32 ;
33 ;Cálculos
34 FN 2: Q24 =+Q4 - +Q108 ;Radio inicial efectivo hasta el centro de la herramienta
35 FN 2: Q25 =+Q5 - +Q3 ;Segmento rectilíneo
36 FN 4: Q26 =+Q25 DIV +Q7 ;Incremento de recorrido
37 FN 2: Q27 =+Q6 - +Q4 ;Diferencia de radio
38 FN 4: Q28 =+Q27 DIV +Q7 ;Incremento de radio
39 FN 2: Q29 =+Q7 - +1 ;Número de repeticiones
40 FN 1: Q30 =+Q24 + +Q1 ;Posicionamiento previo en X
41 FN 1: Q31 =+Q10 + +Q108 ;Altura de seguridad con radio de la herramienta
42 ;Fin de los cálculos
43 ;
44 L  Z+100 R0 FMAX M3 ;Retirar la hta.
45 L  X+Q30  Y+Q3 FMAX ;Posicionamiento previo
46 CC  X+Q1  Z+Q2 ;Centro del cono
47 L  Z+Q31 R0 FMAX ;Desplazarse a altura de seguridad
48 LP  PR+Q24  PA+90 R0 FQ9 ;profundización
49 CP IPA+180 DR+ FQ8 ;Fresado de trayectoria circular
50 LBL 1
51 LP  PA+90 FMAX ;ir a la posición inicial
52 LP IPR+Q28 FQ8 ;Paso de radio
53 L IY+Q26 R0 FQ8 ;Paso Y
54 CP IPA+180 DR+ FQ8 ;Fresado de trayectoria circular
55 CALL LBL 1 REPQ29 ;Repeticiones
56 ;
57 ;Retirar la hta. y final del programa
58 L  Z+100 R0 FMAX M2
59 END PGM 7010-ES MM