promień wklęsły -pomoc

[robert1976]

Witam Panowie mam problem z napisaniem programu w Q parametrach na półkulę wklęsłą ale nie wychodzi pamiętam że kiedyś był taki program na forum ale nie mogę go odszukać
promień r 20 narzędzie frez kulisty
proszę pomocy z góry dzięki

[rafa30]

0
epodaje przykład koledze
BEGIN PGM KULA WKLESLA -TNC420 MM
1 BLK FORM 0.1 Z X-82 Y-82 Z-80.8
2 BLK FORM 0.2 X+82 Y+82 Z+0
3 TOOL CALL 2 Z S10000
4 FN 0: Q1 =+20 ; PROMIEN PODSTAWY KULI
5 FN 0: Q2 =+1 ; PRZYROST KATOWY
6 FN 0: Q3 =+Q2 ; DLA PRZELICZENIA
7 FN 0: Q4 =+90 ; KAT KONCOWY
8 L Z+100 R0 F5000 M3
9 L X+0 Y+0 R0 F5000
10 L X+Q1 RR F2000
11 L Z+0 R0 F1000
12 CC X+0 Y+0
13 C IX+0 IY+0 DR- RR F1000
14 L X+0 R0
15 LBL 1
16 FN 6: Q6 = SIN +Q2
17 FN 7: Q7 = COS +Q2
18 FN 3: Q8 =+Q6 * +Q1
19 FN 3: Q9 =+Q7 * +Q1
20 FN 2: Q9 =+Q9 - +Q108
21 L Z-Q8 R0 F1000
22 L X+Q9 R0 F1000
23 CC X+0 Y+0
24 C IX+0 IY+0 DR-
25 L X+0 R0
26 FN 1: Q2 =+Q2 + +Q3
27 FN 11: IF +Q4 GT +Q2 GOTO LBL 1
28 FN 9: IF +Q4 EQU +Q2 GOTO LBL 1
28 L Z+100 R0 F MAX M5
29 M30