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