HEIDENHAIN TNC 410 Modo De Empleo página 283

200 G98 L10 *
210 G54 X+Q1 Y+Q2 *
220 G73 G90 H+Q8 *
230 Q35 = (Q6 - Q5) / Q7
240 D00 Q36 P01 +Q5 *
250 D00 Q37 P01 +0 *
260 Q21 = Q3 * COS Q36
270 Q22 = Q4 * SE Q36
280 G00 G40 X+Q21 Y+Q22 M3 *
290 Z+Q12 *
300 G01 Z-Q9 FQ10 *
310 G98 L1 *
320 Q36 = Q36 + Q35
330 Q37 = Q37 + 1
340 Q21 = Q3 * COS Q36
350 Q22 = Q4 * SE Q36
360 G01 X+Q21 Y+Q22 FQ11 *
370 D12 P01 +Q37 P02 +Q7 P03 1 *
380 G73 G90 H+0 *
390 G54 X+0 Y+0 *
400 G00 G40 Z+Q12 *
410 G98 L0 *
999999 %ELIPSE G71 *
268
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 Label 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