0 BEGIN PGM 30851_ES MM 
1 ;Programa NC para los cálculos y los movimientos de
2 ;trayectoria para realizar un elemento de arco cóncavo.
3 FN 0: Q46 =+0 ;Contador cortes
4 FN 0: Q52 =+0 ;Punto inicial en el eje Y
5 FN 1: Q53 =+Q3 + +Q23 ;Coordenada Z incluida la sobremedida
6 FN 0: Q56 =+Q6 ;Radio actual
7 FN 0: Q57 =+Q7 ;Ángulo actual corte del perfil
8 FN 0: Q58 =+Q8 ;Ángulo actual en el plano
9 FN 2: Q77 =+Q17 - +Q7 ;Ángulo de abertura en el plano X/Z
10 FN 4: Q77 =+Q77 DIV +Q27 ;Ángulo incremental en el plano X/Z
11 FN 3: Q77 =+Q77 * +Q29 ;Ángulo incremental multiplicado por el factor de desbaste
12 FN 2: Q78 =+Q18 - +Q8 ;Ángulo de abertura en el plano X/Y
13 FN 4: Q78 =+Q78 DIV +Q26 ;Ángulo incremental en el plano X/Y
14 FN 3: Q78 =+Q78 * +Q29 ;Ángulo incremental multiplicado por el factor de desbaste
15 FN 2: Q76 =+Q16 - +Q6 ;Variación del radio
16 FN 4: Q76 =+Q76 DIV +Q26 ;Variación del radio cada corte
17 FN 3: Q76 =+Q76 * +Q29 ;Variación del radio multiplicada por el factor de desbaste
18 ;Desplazar el punto cero al centro y sobre la superficie del mecanizado
19 CYCL DEF 7.0 PUNTO CERO
20 CYCL DEF 7.1  X+Q1
21 CYCL DEF 7.2  Y+Q2
22 CYCL DEF 7.3  Z+Q53
23 ;
24 LBL 1
25 ;Rotación al ángulo actual en el plano
26 CYCL DEF 10.0 GIRO
27 CYCL DEF 10.1  ROT+Q58
28 FN 0: Q57 =+Q7 ;Ángulo actual es igual al ángulo inicial
29 L  X+Q10 R0 FMAX ;Posicionamiento previo
30 CC  Z+0  X+Q10 ;Centro para corte del perfil
31 LP  PR+Q56  PA+Q57 FQ22 ;Ir al punto inicial
32 L  Y+Q52 FQ22 ;En el eje Y, ir al punto inicial
33 LBL 3 ;Movimiento al ángulo final
34 FN 1: Q57 =+Q57 + +Q77 ;Continuación de ciclos del ángulo actual
35 FN 11: IF +Q57 GT +Q17 GOTO LBL 4 ;Comprobar si se ha alcanzado el ángulo final
36 LP  PR+Q56  PA+Q57 R0 FQ21 ;Hacer la aproximación al nuevo ángulo
37 FN 12: IF +Q57 LT +Q17 GOTO LBL 3 ;Salto para el siguiente elemento lineal
38 LBL 4
39 LP  PR+Q56  PA+Q17 FQ20 ;Ir al ángulo final
40 FN 1: Q46 =+Q46 + +Q29 ;Contador continuar contando
41 FN 1: Q56 =+Q56 + +Q76 ;Actualizar el radio
42 FN 1: Q58 =+Q58 + +Q78 ;Actualizar el ángulo de la rotación
43 FN 11: IF +Q46 GT +Q26 GOTO LBL 99 ;Comprobar si se ha alcanzado el número de cortes.
44 LBL 5
45 ;
46 ;Girar hasta el nuevo ángulo
47 CYCL DEF 10.0 GIRO
48 CYCL DEF 10.1  ROT+Q58
49 FN 0: Q57 =+Q17 ;Ángulo actual es igual al ángulo final
50 CC  Z+0  X+Q10 ;Centro para corte del perfil
51 LP  PR+Q56  PA+Q57 FQ22 ;Aproximación al punto inicial
52 L  Y+Q52 FQ22 ;Aproximación al punto inicial Y
53 ;
54 LBL 7 ;Movimiento al ángulo inicial
55 FN 2: Q57 =+Q57 - +Q77 ;Actualización del ángulo
56 FN 12: IF +Q57 LT +Q7 GOTO LBL 8 ;Comprobar si él ángulo actual es inferior al ángulo inicial
57 LP  PR+Q56  PA+Q57 R0 FQ21 ;Hacer la aproximación al ángulo actual
58 FN 11: IF +Q57 GT +Q7 GOTO LBL 7 ;Comprobar si se ha alcanzado el ángulo inicial
59 LBL 8
60 LP  PR+Q56  PA+Q7 FQ20 ;Hacer la aproximación al ángulo inicial
61 FN 1: Q46 =+Q46 + +Q29 ;Contador continuar contando
62 FN 1: Q56 =+Q56 + +Q76 ;Actualizar el radio
63 FN 1: Q58 =+Q58 + +Q78 ;Actualizar el ángulo de la rotación
64 FN 9: IF +Q46 EQU +Q26 GOTO LBL 1 ;Comprobar si se ha alcanzado el número de cortes.
65 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Comprobar si se ha alcanzado el número de cortes.
66 LBL 99
67 ;Reponer la rotación
68 CYCL DEF 10.0 GIRO
69 CYCL DEF 10.1  ROT+0
70 ;Reponer el desplazamiento del punto cero a su valor original
71 CYCL DEF 7.0 PUNTO CERO
72 CYCL DEF 7.1  X+0
73 CYCL DEF 7.2  Y+0
74 CYCL DEF 7.3  Z+0
75 ;
76 ;Retirar la hta.
77 L  Z+Q25 R0 F9999
78 END PGM 30851_ES MM