HEIDENHAIN TNC 426 Manual De Empleo página 314

20 LBL 0
2 CYCL DEF 7.0 PUNTO CERO
22 CYCL DEF 7. X+Q
23 CYCL DEF 7.2 Y+Q2
24 CYCL DEF 0.0 GIRO
25 CYCL DEF 0. ROT+Q8
26 Q35 = (Q6 - Q5) / Q7
27 Q36 = Q5
28 Q37 = 0
29 Q2 = Q3 * COS Q36
30 Q22 = Q4 * SEN Q36
3 L X+Q2 Y+Q22 R0 F MAX M3
32 L Z+Q 2 R0 F MAX
33 L Z-Q9 R0 FQ 0
34 LBL
35 Q36 = Q36 + Q35
36 Q37 = Q37 +
37 Q2 = Q3 * COS Q36
38 Q22 = Q4 * SEN Q36
39 L X+Q2 Y+Q22 R0 FQ
40 FN 2: IF +Q37 LT +Q7 GOTO LBL
4 CYCL DEF 0.0 GIRO
42 CYCL DEF 0. ROT+0
43 CYCL DEF 7.0 PUNTO CERO
44 CYCL DEF 7. X+0
45 CYCL DEF 7.2 Y+0
46 L Z+Q 2 R0 F MAX
47 LBL 0
48 END PGM ELIPSE MM
298
Subprograma 10: Mecanizado
Desplazar el punto cero al centro de la elipse
Calcular la posición angular en el plano
Calcular el paso angular
Copiar el ángulo inicial
Fijar el contador de tramos
Calcular la coordenada X del punto inicial
Calcular la coordenada Y del punto inicial
Llegada al punto inicial en el plano
Posicionamiento previo a la distancia de seguridad en el eje de hta.
Desplazamiento a la profundidad de mecanizado
Actualización del ángulo
Actualizar el contador de tramos
Calcular la coordenada X actual
Calcular la coordenada Y actual
Llegada al siguiente punto
Pregunta si no está terminado, en caso afirmativo salto al LBL 1
Anular el giro
Anular el desplazamiento del punto cero
Llegada a la distancia de seguridad
Final del subprograma
10 Programación: Parámetros Q