0 BEGIN PGM 3225_ES MM 
1 ;Programa para fresar un radio cóncavo en una pieza, en el
2 ;eje X.
3 ;El mecanizado es posible con una fresa esférica o cilíndrica.
4 ;El centro y el radio deben determinarse mediante
5 ;parámetros. El punto de referencia debe estar en el punto
6 ;más negativo en el eje X y en el eje Y. En el eje Z se fresa el
7 ;radio desde la altura definida del mecanizado hasta el plano
8 ;Z0.
9 ;
10 BLK FORM 0.1 Z X+0 Y+0 Z-20
11 BLK FORM 0.2  X+100  Y+100  Z+20
12 ;
13 ;Llamada a la herramienta fresa esférica o fresa de mango
14 TOOL CALL 159 Z S5000
15 ;
16 L  Z+100 R0 FMAX M3
17 ;
18 ;Introducción de parámetros
19 FN 0: Q30 =+0 ;CENTRO DEL CÍRCULO EN Y
20 FN 0: Q31 =+20 ;CENTRO DEL CÍRCULO EN Z
21 FN 0: Q32 =+20 ;RADIO
22 FN 0: Q34 =+20 ;DIVISIÓN
23 FN 0: Q35 =+0 ;SOBREMEDIDA
24 FN 0: Q36 =+20 ;ALTURA DEL MECANIZADO
25 FN 0: Q37 =+100 ;LONGITUD DE LA PIEZA
26 FN 0: Q38 =+2 ;DISTANCIA DE SEGURIDAD LATERAL
27 FN 0: Q39 =+1000 ;AVANCE DE FRESADO
28 FN 0: Q40 =+1 ;FORMA DE LA HERRAMIENTA:
29 ;             ;FRESA ESFÉRICA = 1
30 ;             ;FRESA DE MANGO = 0
31 FN 0: Q33 =+10 ;RADIO DE LA FRESA ESFÉRICA
32 ;Introducción del final
33 ;
34 ;Cálculos
Q50 = ACOS ( ( Q31 - Q36 ) / Q32 ) ;Ángulo inicial
Q51 = ACOS ( Q31 / Q32 ) ;Ángulo final
35 FN 2: Q52 =+Q50 - +Q51 ;Diferencia de ángulo
Q53 = Q52 / ( Q34 + 1 ) ;Paso angular
Q54 = Q32 - Q33 - Q35 ;Radio activo
36 FN 4: Q55 =+Q34 DIV +2 ;Número de repeticiones
37 FN 1: Q56 =+Q108 + +Q38 ;Posición X mínima
Q57 = Q37 + Q38 + Q108 ;Posición X máxima
38 FN 0: Q58 =+0 ;Corrección de radio fresa esférica
39 FN 9: IF +Q40 EQU +0 GOTO LBL 2 ;Salto al cálculo para fresa de mango
40 LBL 3
41 ;
42 ;Mecanizado
43 FN 0: Q70 =+Q50 ;Ángulo actual=Ángulo inicial
44 LBL 1 ;Repetición del mecanizado
45 FN 2: Q70 =+Q70 - +Q53 ;Paso angular
46 CYCL DEF 7.0 PUNTO CERO
47 CYCL DEF 7.1  Y+Q30
48 CYCL DEF 7.2  Z+Q31
Q71 = - ( COS ( Q70 ) * Q54 ) - Q33 ;Cálculo de nueva posición Z
Q72 = SIN ( Q70 ) * Q54 - Q58 ;Cálculo de nueva posición Y
49 L  X-Q56  Y+Q72 R0 FMAX ;Hacer la aproximación a la posición X e Y
50 L  Z+Q71 FMAX ;Hacer la aproximación a la posición Z
51 L  X+Q57 FQ39 ;Fresar la trayectoria X
52 ;
Q70 = Q70 - Q53 ;Paso angular
Q71 = - ( COS ( Q70 ) * Q54 ) - Q33 ;Cálculo de la posición Z
Q72 = SIN ( Q70 ) * Q54 - Q58 ;Cálculo de la posición Y
53 L  Y+Q72  Z+Q71 R0 FMAX ;Hacer la aproximación a las posiciones Y y Z
54 L  X-Q56 FQ39 ;Fresar la trayectoria X
55 CALL LBL 1 REPQ55 ;Repetir el mecanizado
56 STOP
57 ;
58 CYCL DEF 7.0 PUNTO CERO
59 CYCL DEF 7.1  X+0
60 CYCL DEF 7.2  Y+0
61 CYCL DEF 7.3  Z+0
62 L  Z+Q36 FMAX ;Z Desplazar a la posición de inicio
63 L IZ+50 FMAX ;Liberación de Z
64 ;
65 ;Final del programa
66 M30
67 ;
68 LBL 2 ;Cálculo para la fresa de mango
69 FN 0: Q33 =+0 ;Poner igual a cero el valor para el radio de la fresa esférica
70 FN 0: Q58 =+Q108 ;Corrección para el radio de la herramienta
71 FN 2: Q54 =+Q32 - +Q35 ;Radio activo
72 FN 9: IF +0 EQU +0 GOTO LBL 3 ;Retorno
73 LBL 0
74 END PGM 3225_ES MM