HEIDENHAIN TNC 426 B User Manual page 292

20 LBL 0
2 CYCL DEF 7.0 DATUM SHIFT
22 CYCL DEF 7. X+Q
23 CYCL DEF 7.2 Y+Q2
24 CYCL DEF 0.0 ROTATION
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 * SIN 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 * SIN Q36
39 L X+Q2 Y+Q22 R0 FQ
40 FN 2: IF +Q37 LT +Q7 GOTO LBL
4 CYCL DEF 0.0 ROTATION
42 CYCL DEF 0. ROT+0
43 CYCL DEF 7.0 DATUM SHIFT
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 ELLIPSE MM
HEIDENHAIN TNC 426 B, TNC 430
www.EngineeringBooksPdf.com
Subprogram 10: Machining operation
Shift datum to center of ellipse
Account for rotational position in the plane
Calculate angle increment
Copy starting angle
Set counter
Calculate X coordinate for starting point
Calculate Y coordinate for starting point
Move to starting point in the plane
Pre-position in tool axis to setup clearance
Move to working depth
Update the angle
Update the counter
Calculate the current X coordinate
Calculate the current Y coordinate
Move to next point
Unfinished? If not finished, return to LBL 1
Reset the rotation
Reset the datum shift
Move to setup clearance
End of subprogram
277