Semi sfera concava

[basilio.muzzupappa]

Buongiorno.vorrei realizzare a bordo macchina una semi sferica concava ..convessa ci riesco...ovviamente a bordo macchina(programmazione) con programmazione HEIDENHAIN .GRAZIE

[gino]

Un possibile programma parametrico
di finitura..
____________
0 BEGIN PGM SFERA-PARZIALE2 MM
1 BLK FORM 0.1 Z X-38 Y-38 Z-39
2 BLK FORM 0.2 X+38 Y+38 Z-3
3 FN 0: Q20 =+42.5
4 FN 1: Q1 =+Q20 + -5 ;asseX con correzzione raggio fresa dia 10
5 FN 0: Q2 =-16 ;asseZ inizio gradi
6 FN 0: Q98 =+90 ;valore fine gradi
7 FN 0: Q4 =-1 ;valore gradi incrementali
8 CYCL DEF 7.0 NULLPUNKT
9 CYCL DEF 7.1 X+0
10 CYCL DEF 7.2 Y+0
11 CYCL DEF 7.3 Z+0
12 TOOL CALL 5 Z S4000
13 L X+0 Y+0 R0 FMAX M13
14 L Z+40 R0 FMAX
15 CALL LBL 10
16 LBL 1
17 L X+Q8 Y+0 Z+Q7
18 CC X+0 Y+0
19 C X+Q8 Y+0 DR- R0 F1000
20 FN 1: Q2 =+Q2 + +Q4
21 FN 9: IF +Q2 EQU -Q98 GOTO LBL 99
22 CALL LBL 10
23 FN 12: IF +Q2 LT +Q98 GOTO LBL 1
24 FN 9: IF +Q2 EQU +Q98 GOTO LBL 1
25 LBL 99
26 L Z+100 R0 FMAX M30
27 LBL 10
28 Q7 = SIN Q2 * Q1
29 Q8 = COS Q2 * Q1
30 LBL 0
31 END PGM SFERA-PARZIALE2 MM
_________________