0 BEGIN PGM 3175_ES MM 
1 ;Programa para fresar un cuerpo en forma de un chavetero
2 ;cónico.
3 ;El mecanizado se efectúa con una fresa de mango en líneas
4 ;de contorno. Para ello se definen primeramente todos los
5 ;parámetros necesarios. Luego, el control numérico calcula
6 ;la variación en la profundidad y en el lado. Luego mecaniza
7 ;el cuerpo de abajo hacia arriba. Para ello se emplea el ciclo
8 ;25, programándose las variaciones del contorno a través
9 ;de la sobremedida lateral. Tras cada llamada del ciclo se
10 ;calculan las nuevas profundidades y la nueva sobremedida
11 ;lateral, y tiene lugar una repetición hasta que el cuerpo esté
12 ;terminado.
13 ;Con la división se define cuantas líneas de contorno se
14 ;realizan y con ello se determina indirectamente la calidad
15 ;superficial y la precisión.
16 ;
17 BLK FORM 0.1 Z X-15 Y-7 Z-12
18 BLK FORM 0.2  X+15  Y+7  Z+0
19 ;
20 ;Llamada de herramienta fresa cilíndrica
21 TOOL CALL 8 Z S3000
22 ;
23 ;Introducción de parámetros
24 FN 0: Q10 =+8 ;DIÁMETRO DEL REDONDEO ARRIBA
25 FN 0: Q20 =+14 ;DIÁMETRO DEL REDONDEO ABAJO
26 FN 0: Q40 =+10 ;PROFUNDIDAD
27 FN 0: Q50 =+16 ;LONGITUD DE LAS RECTAS
28 FN 0: Q30 =+50 ;DIVISIÓN
29 FN 0: Q70 =+300 ;AVANCE AL PROFUNDIZAR
30 FN 0: Q71 =+600 ;AVANCE DE FRESADO
31 FN 0: Q72 =+10 ;PROFUNDIDAD DE APROXIMACIÓN MÁXIMA
32 ;Introducción del final
33 ;
34 ;Cálculos
35 FN 4: Q61 =+Q10 DIV +2 ;Radio del círculo arriba
36 FN 4: Q51 =+Q50 DIV +2 ;Longitud de las rectas del centro
37 FN 2: Q21 =+Q20 - +Q10 ;Diferencia de diámetro
38 FN 4: Q22 =+Q21 DIV +2 ;Diferencia de radio
39 FN 2: Q31 =+Q30 - +1 ;Número de repeticiones de parte del programa
40 FN 4: Q23 =+Q22 DIV +Q30 ;Variación lateral por cada corte
41 FN 4: Q41 =+Q40 DIV +Q30 ;Variación de la profundidad por cada corte
42 ;Fin de los cálculos
43 ;
44 LBL 10
45 CYCL DEF 14.0 CONTORNO
46 CYCL DEF 14.1 LABEL CONTORNO1
47 CYCL DEF 25 TRAZADO CONTORNO ~
   Q1=-Q40  ;PROFUNDIDAD FRESADO ~
    Q3=+Q22  ;SOBREMEDIDA LATERAL ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q7=+50   ;ALTURA DE SEGURIDAD ~
    Q10=-Q72  ;PASO PROFUNDIZACION ~
    Q11=+Q70  ;AVANCE PROFUNDIDAD ~
    Q12=+Q71  ;AVANCE PARA DESBASTE ~
    Q15=+1    ;TIPO DE FRESADO
48 CYCL CALL M13
49 ;Cálculo de nueva profundidad y sobremedida
50 FN 2: Q40 =+Q40 - +Q41
51 FN 2: Q22 =+Q22 - +Q23
52 CALL LBL 10 REPQ31 ;Repetición del mecanizado
53 ;Retirar la herramienta y final del programa
54 L  Z+100 R0 FMAX M30
55 ;
56 ;Subprograma descripción del contorno
57 LBL 1
58 L  X+0  Y+Q61 RL
59 L  X+Q51
60 CR  X+Q51  Y-Q61 R+Q61 DR-
61 L  X-Q51
62 CR  X-Q51  Y+Q61 R+Q61 DR-
63 L  X+0
64 LBL 0
65 END PGM 3175_ES MM