0 BEGIN PGM 4215_NL MM 
1 ;Programma om een sleuf spiraalvormig in
2 ;de mantelvlakken van een as te frezen.
3 ;Het programma biedt de mogelijkheid om
4 ;de sleuf te maken met toenemende
5 ;kerndiameter. Als u de parameter voor de
6 ;totale lengte kleiner dan de totale
7 ;lengte van de bewerking definieert,
8 ;wordt vanaf het tijdstip waarop de
9 ;kegellengte is bereikt, met constante
10 ;kerndiameter verder bewerkt tot de
11 ;totale lengte wordt bereikt.
12 ;Als er geen kegel gemaakt moet worden,
13 ;definieert u de diameter bij X0 gelijk
14 ;aan de diameter aan het einde van de
15 ;kegel. Daarmee wordt een sleuf op
16 ;dezelfde diepte gemaakt totdat de totale
17 ;lengte is bereikt. Verder biedt het
18 ;programma u de mogelijkheid om de spoed
19 ;van de spiraal continu te wijzigen.
20 ;Hiertoe definieert u in de parameter
21 ;voor de toename van de spoed per
22 ;omwenteling hoeveel millimeter de spoed
23 ;per asomwenteling moet veranderen.
24 ;De besturing verdeelt de gereedschapsbaan
25 ;in afzonderlijke stappen. Voor elke stap
26 ;berekent de besturing een X- en
27 ;Z-coördinaat en een hoek van de A-as.
28 ;In hoeveel stappen een beweging van
29 ;360 graden wordt opgedeeld, definieert
30 ;u met de parameter Verdeling.
31 ;BELANGRIJK!
32 ;De as moet in het midden van de A-as
33 ;gespannen zijn. De A-as moet meer dan
34 ;360 graden kunnen draaien. De bewerking
35 ;start bij X=0 en vindt in positieve
36 ;richting plaats.
37 ;
38 ;
39 BLK FORM CYLINDER X R20 L150 DIST+150
40 ;
41 ;Gereedschapsoproep
42 TOOL CALL 155 Z S5000
43 ;
44 ;Parameterinvoer
Q1 = 15 ;DIAMETER OP DE BODEM VAN DE SLEUF
45 ;       ;BIJ X0
Q2 = 35 ;DIAMETER OP DE BODEM VAN DE SLEUF
46 ;       ;OP HET
Q3 = 75 ;KEGELLENGTE
Q4 = 150 ;TOTALE LENGTE VAN DE BEWERKING
Q5 = 6 ;SPOED AAN HET BEGIN
Q6 = 1.5 ;TOENAME VAN DE SPOED PER OMWENTELING
Q7 = 50 ;VERDELING
Q8 = 100 ;VEILIGE HOOGTE
Q9 = 0 ;STARTHOEK
Q40 = 300 ;AANZET DIEPTEVERPLAATSING
Q41 = 1000 ;AANZET FREZEN
47 ;Einde parameterinvoer
48 ;
49 ;Oproep van de bewerking
50 CALL LBL 10
51 ;
52 ;Vrijzetten en programma-einde
53 L  Z+100 R0 FMAX M30
54 ;
55 ;Bewerking
56 LBL 10
57 ;Berekeningen
Q10 = Q2 / 2 - Q1 / 2 ;Kegelradius wijziging
Q11 = ATAN ( Q10 / Q3 ) ;Kegelhoek
Q12 = Q1 / 2 ;Startpositie Z
Q13 = Q2 / 2 ;Eindpositie Z
Q17 = 360 / Q7 ;Hoekstap
Q18 = 0 ;Startpositie X
Q27 = Q9 ;Starthoek
58 ;
59 L  Z+Q8 R0 FMAX M3 ;Verplaatsen naar veilige hoogte
60 L  X+0  Y+0 R0 FMAX ;Verplaatsen naar de X- en Y-startpositie
61 L  X+0  Y+0  Z+Q8  A+Q9 R0 FMAX ;Starthoek naderen
62 L  Z+Q12 R0 FQ40 ;Naar startdiepte verplaatsen
63 ;
64 ;Herhaling voor kegel
65 LBL 1
Q27 = Q27 + Q17 ;Nieuwe hoek berekenen
Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Nieuwe X-coördinaat berekenen
Q33 = Q12 + TAN Q11 * Q30 ;Nieuwe Z-coördinaat berekenen
66 ;
67 L  X+Q30  Y+0  Z+Q33  A+Q27 R0 FQ41 ;Nieuwe coördinaten en hoek benaderen
68 FN 12: IF +Q33 LT +Q13 GOTO LBL 1 ;Vergelijking of Z-eindhoogte is bereikt
69 ;
70 ;Herhaling voor as
71 LBL 2
Q27 = Q27 + Q17 ;Nieuwe hoek berekenen
Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Nieuwe X-coördinaat berekenen
72 L  X+Q30  Y+0  Z+Q13  A+Q27 R0 FQ41 ;Nieuwe X-coördinaat en nieuwe hoek naderen
73 FN 12: IF +Q30 LT +Q4 GOTO LBL 2 ;Vergelijking of X-eindpunt is bereikt
74 ;Bewerking einde
75 LBL 0
76 END PGM 4215_NL MM