HEIDENHAIN TNC 410 Modo De Empleo página 387

N200 G98 L10 *
N210 G54 X+Q1 Y+Q2 *
N220 G73 G90 H+Q8 *
N230 Q35 = (Q6 - Q5) / Q7
N240 D00 Q36 P01 +Q5 *
N250 D00 Q37 P01 +0 *
N260 Q21 = Q3 * COS Q36
N270 Q22 = Q4 * SEN Q36
N280 G00 G40 X+Q21 Y+Q22 M3 *
N290 Z+Q12 *
N300 G01 Z-Q9 FQ10 *
N310 G98 L1 *
N320 Q36 = Q36 + Q35
N330 Q37 = Q37 + 1
N340 Q21 = Q3 * COS Q36
N350 Q22 = Q4 * SEN Q36
N360 G01 X+Q21 Y+Q22 FQ11 *
N370 D12 P01 +Q37 P02 +Q7 P03 1 *
N380 G73 G90 H+0 *
N390 G54 X+0 Y+0 *
N400 G00 G40 Z+Q12 *
N410 G98 L0 *
N999999 %ELIPSE G71 *
TNC 410, TNC 426, TNC 430 de HEIDENHAIN
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 cortes
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 cortes
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
Cancelar el desplazamiento del punto cero
Llegada a la distancia de seguridad
Final del subprograma
361