0  BEGIN PGM 8025_DE MM 
1  ;Programm zur schrittweisen Erhoehung oder
2  ;Reduzierung des Vorschubs.
3  ;Auf einer definierten Strecke wir der
4  ;Vorschub von einer
5  ;Anfangsgeschwindigkeit zur Endgeschwindigkeit
6  ;geaendert. Dazu wird die Strecke und die
7  ;Differenz der Vorschubswerte durch
8  ;die in einem Parameter definierte Teilung
9  ;geteilt und dann jeweils um den ermittelten
10 ;Wert schrittweise veraendert.
11 ;Diese Bewegung erfolgt auf einer linearen
12 ;Bahn in X-Richtung.
13 ;
14 ;Eingabe Parameter
15 FN 0: Q1 =+20 ;STARTVORSCHUB IN MM/MIN
16 FN 0: Q2 =+300 ;ENDVORSCHUB IN MM/MIN
17 FN 0: Q3 =+50 ;LAENGE DER BESCHLEUNIGUNGS-
18 ;              ;STRECKE (INKREMENTAL)
19 FN 0: Q4 =+10 ;TEILUNG
20 ;              ;ANZAHL DER SCHRITTE AUF DIE
21 ;              ;STRECKE UND DIE
22 ;              ;VORSCHUBSAENDERUNG AUFGETEILT
23 ;              ;WIRD
24 FN 0: Q5 =+0 ;STARTPUNKT IN DER X-ACHSE
25 ;Parameter Eingabe abgeschlossen
26 ;
27 BLK FORM 0.1 Z X+0 Y+0 Z-20
28 BLK FORM 0.2  X+100  Y+80  Z+0
29 ;
30 ;Werkzeugaufruf
31 TOOL CALL 5 Z S2000
32 ;
33 ;Z-Achse auf sichere Hoehe fahren
34 L  Z+20 R0 F9999 M3
35 ;
36 Q11 = ( Q2 - Q1 ) / Q4 ;Vorschubsschritt
37 Q13 = Q3 / Q4 ;Wegschritt
38 FN 0: Q21 =+Q1 ;Aktuelle Geschwindigkeit
39 FN 0: Q24 =+0 ;Aktueller Zaehlerstand
40 ;
41 L  X+Q5  Y+0  Z+20 FMAX ;Vorpositionieren
42 L  Z+1 R0 FMAX ;Z-Achse auf Sicherheitsabstand fahren
43 L  Z-5 F500 ;Z-Achse eintauchen
44 ;
45 LBL 2 ;Wiederholung
46 FN 1: Q21 =+Q21 + +Q11 ;Aktuelle Geschwindigkeit
47 FN 1: Q24 =+Q24 + +1 ;Zaehler weiterzaehlen
48 L IX+Q13 FQ21
49 FN 12: IF +Q24 LT +Q4 GOTO LBL 2
50 STOP
51 ;
52 ;Weitere Bahnbewegung
53 L IX+200 IY+100 R0 FQ2
54 ;
55 ;Z-Achse freifahren und Programmende
56 L  Z+50 R0 FMAX M30
57 END PGM 8025_DE MM