0 BEGIN PGM 8025_NL MM 
1 ;Programma voor stapsgewijze vergroting
2 ;of verkleining van de aanzet.
3 ;Op een gedefinieerd traject wordt de
4 ;aanzet van een beginsnelheid naar de
5 ;eindsnelheid gewijzigd. Hiervoor
6 ;worden het traject en het verschil van
7 ;de aanzetwaarden stapsgewijs gewijzigd
8 ;door de in een parameter
9 ;gedefinieerde verdelingswaarde.
10 ;Deze beweging vindt plaats in een lineaire
11 ;baan in X-richting.
12 ;
13 ;Invoer parameter
14 FN 0: Q1 =+20 ;STARTAANZET IN MM/MIN
15 FN 0: Q2 =+300 ;EINDAANZET IN MM/MIN
16 FN 0: Q3 =+50 ;LENGTE VAN HET VERSNELLINGSTRAJECT
17 ;             ;(INCREMENTEEL)
18 FN 0: Q4 =+10 ;VERDELING
19 ;              ;AANTAL STAPPEN WAARIN HET
20 ;              ;TRAJECT EN DE
21 ;              ;AANZETWIJZIGING WORDEN OPGEDEELD
22 FN 0: Q5 =+0 ;STARTPUNT OP DE X-AS
23 ;Parameter invoer afgesloten
24 ;
25 BLK FORM 0.1 Z X+0 Y+0 Z-20
26 BLK FORM 0.2  X+100  Y+80  Z+0
27 ;
28 ;Gereedschapsoproep
29 TOOL CALL 5 Z S2000
30 ;
31 ;Z-as naar veilige hoogte verplaatsen
32 L  Z+20 R0 F9999 M3
33 ;
Q11 = ( Q2 - Q1 ) / Q4 ;Aanzetstap
Q13 = Q3 / Q4 ;Trajectstap
34 FN 0: Q21 =+Q1 ;Huidige snelheid
35 FN 0: Q24 =+0 ;Actuele tellerstand
36 ;
37 L  X+Q5  Y+0  Z+20 FMAX ;Voorpositioneren
38 L  Z+1 R0 FMAX ;Z-as naar veiligheidsafstand verplaatsen
39 L  Z-5 F500 ;Z-as insteken
40 ;
41 LBL 2 ;Herhaling
42 FN 1: Q21 =+Q21 + +Q11 ;Huidige snelheid
43 FN 1: Q24 =+Q24 + +1 ;Teller doortellen
44 L IX+Q13 FQ21
45 FN 12: IF +Q24 LT +Q4 GOTO LBL 2
46 STOP
47 ;
48 ;Verdere baanbeweging
49 L IX+200 IY+100 R0 FQ2
50 ;
51 ;Z-as vrijzetten en programma-einde
52 L  Z+50 R0 FMAX M30
53 END PGM 8025_NL MM