0 BEGIN PGM 4215_ES MM 
1 ;Programa para fresar una ranura con forma de
2 ;espiral en la superficie lateral de un eje.
3 ;El programa ofrece la posibilidad de realizar
4 ;la ranura con un diámetro interior (núcleo)
5 ;creciente. Si se define el parámetro Longitud
6 ;del cono con un valor menor al de la longitud
7 ;total del mecanizado, a partir del momento en
8 ;el que se alcance la longitud del cono se
9 ;seguirá mecanizando con un diámetro
10 ;interior (núcleo) constante hasta que se alcance
11 ;la longitud total.
12 ;Si no debe realizarse ningún cono, debe definirse
13 ;el diámetro en X0 igual al diámetro del final
14 ;del cono. De esta forma, se fresará una ranura
15 ;de profundidad uniforme hasta que se alcance la
16 ;longitud total. Además, el programa le ofrece la
17 ;opción de modificar continuamente el paso de la
18 ;espiral. Para ello, se debe definir en el
19 ;parámetro Aumentos del paso por vuelta en
20 ;cuántos milímetros debe variar el paso por cada
21 ;vuelta del eje.
22 ;El control numérico divide la trayectoria de
23 ;herramienta en incrementos individuales. Para
24 ;cada uno de estos incrementos, calcula una
25 ;coordenada X y Z, así como un ángulo del eje A.
26 ;Debe definirse en cuántos incrementos se divide
27 ;un movimiento de 360 grados con el parámetro
28 ;División.
29 ;IMPORTANTE
30 ;El eje debe estar fijado en el centro del eje A.
31 ;El eje A debe ser capaz de girar más de
32 ;360 grados. El mecanizado comienza en X=0 y se
33 ;realiza en dirección positiva.
34 ;
35 ;
36 BLK FORM CYLINDER X R20 L150 DIST+150
37 ;
38 ;Llamada a la herramienta
39 TOOL CALL 155 Z S5000
40 ;
41 ;Introducción de parámetros
Q1 = 15 ;DIÁMETRO DE LA BASE DE LA RANURA
42 ;       ;EN X0
Q2 = 35 ;DIÁMETRO DE LA BASE DE LA RANURA 
43 ;       ;EN EL FINAL DEL CONO
Q3 = 75 ;LONGITUD DEL CONO
Q4 = 150 ;LONGITUD TOTAL DEL MECANIZADO
Q5 = 6 ;PASO HASTA EL INICIO
Q6 = 1.5 ;AUMENTO DEL PASO POR CADA VUELTA
Q7 = 50 ;DIVISIÓN
Q8 = 100 ;ALTURA DE SEGURIDAD
Q9 = 0 ;ANGULO INICIAL
Q40 = 300 ;AVANCE AL PROFUNDIZAR
Q41 = 1000 ;AVANCE DE FRESADO
44 ;Fin de la introducción de parámetros
45 ;
46 ;Llamada del mecanizado
47 CALL LBL 10
48 ;
49 ;Retirar la herramienta y final del programa
50 L  Z+100 R0 FMAX M30
51 ;
52 ;Mecanizado
53 LBL 10
54 ;variables
Q10 = Q2 / 2 - Q1 / 2 ;Modificación del radio del cono
Q11 = ATAN ( Q10 / Q3 ) ;Angulo del cono
Q12 = Q1 / 2 ;Posición inicial Z
Q13 = Q2 / 2 ;Posición final Z
Q17 = 360 / Q7 ;Paso angular
Q18 = 0 ;Posición inicial X
Q27 = Q9 ;Ángulo inicial
55 ;
56 L  Z+Q8 R0 FMAX M3 ;Ir a altura de seguridad
57 L  X+0  Y+0 R0 FMAX ;Desplazamiento a posición inicial X e Y
58 L  X+0  Y+0  Z+Q8  A+Q9 R0 FMAX ;Hacer la aproximación al ángulo inicial
59 L  Z+Q12 R0 FQ40 ;Aproximación a la profundidad inicial
60 ;
61 ;Repetición para el cono
62 LBL 1
Q27 = Q27 + Q17 ;Calcular nuevo ángulo
Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Calcular nueva coordenada X
Q33 = Q12 + TAN Q11 * Q30 ;Calcular nueva coordenada Z
63 ;
64 L  X+Q30  Y+0  Z+Q33  A+Q27 R0 FQ41 ;Aproximar nuevas coordenadas y ángulos
65 FN 12: IF +Q33 LT +Q13 GOTO LBL 1 ;Comparación de si se ha alcanzado la altura final Z
66 ;
67 ;Repetición para el eje
68 LBL 2
Q27 = Q27 + Q17 ;Calcular nuevo ángulo
Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Calcular nueva coordenada X
69 L  X+Q30  Y+0  Z+Q13  A+Q27 R0 FQ41 ;Aproximar nueva coordenada X y nuevos ángulos
70 FN 12: IF +Q30 LT +Q4 GOTO LBL 2 ;Comparación de si se ha alcanzado el punto final X
71 ;Final del mecanizado
72 LBL 0
73 END PGM 4215_ES MM