OBJECTIVO

Maquinação duma cavidade esférica, com “passagem” em incrementos angulares.
Interpolação circular cartesiana (Pgm 20001) e polar (Pgm 20002):

SIGNIFICADO DAS VARIÁVEIS

Q1 – Raio da esfera
Q2 – Valor inicial do ângulo
Q3 – Incremento angular
Q4 – Valor final do ângulo

Código NC não comentado para controladores Heidenhain 155 / 355

0 BEGIN PGM 20001 MM
1 FN 0 : Q1 = +100,000
2 FN 0 : Q2 = +0,000
3 FN 0 : Q3 = +3,000
4 FN 0 : Q4 = +60,000
5 TOOL DEF 1 L+0,000 R+0,000
6 TOOL CALL 1 Z S 2000,000
7 L Z+100,000 R0 F9999 M03
8 L X+0,000 Y+0,000 R F M
9 L Z+0,000 R F M
10 LBL 1
11 FN 6 : Q7 = SIN +Q2
12 FN 7 : Q8 = COS +Q2
13 FN 3 : Q10 = +Q1 * +Q8
14 FN 3 : Q11 = +Q1 * +Q7
15 L X+Q10 Y+0,000 Z-Q11 R0 F500 M
16 CC X+0,000 Y+0,000
17 C X+Q10 Y+0,000 DR+ R F M
18 FN 1 : Q2 = +Q2 + +Q3
19 FN 11 : IF +Q4 GT +Q2 GOTO LBL 1
20 L Z+100,000 R0 F9999 M30
21 END PGM 20001 MM

Código NC não comentado para controladores Heidenhain série 4xx

0 BEGIN PGM 20002 MM
1 FN 0 : Q1 = +100,000
2 FN 0 : Q2 = +0,000
3 FN 0 : Q3 = +3,000
4 FN 0 : Q4 = +60,000
5 L X+0 Y+0 Z+0 R0 F MAX
6 LBL 1
7 Q10 = Q1 * COS Q2
8 Q11 = Q1 * SIN Q2
9 L X+Q10 Y+0,000 Z-Q11 R0 F200 M
10 CC X+0,000 Y+0,000
11 CP IPA+360 DR+ R0 F1000
12 FN 1 : Q2 = +Q2 + +Q3
13 FN 11 : IF +Q4 GT +Q2 GOTO LBL 1
14 L Z+100,000 R0 FMAX M30
15 END PGM 20002 MM