0  BEGIN PGM 10351-DE MM 
1  ;Berechnungen und Bewegungsablauf für das
2  ;Bohren mit expotentiell abnehmender
3  ;Zustelliefe
4  FN 0: Q19 =+0 ;Zaehler
5  FN 0: Q20 =+Q6 ;Vorpositionierung
6  FN 1: Q21 =+Q6 + +Q7 ;Hoehe 2. Sicherheitsabstand
7  FN 10: IF +Q7 NE +0 GOTO LBL 3
8  FN 2: Q21 =+Q6 - +Q1 ;Vorpositionierung
9  LBL 3
10 FN 12: IF +Q3 LT +Q2 GOTO LBL 100
11 FN 1: Q23 =+Q6 + +Q1 ;Vorpositionierung
12 FN 1: Q24 =+Q6 + +Q2 ;Vorpositionierung
13 FN 1: Q25 =+Q6 + +Q1 ;Startposition
14 FN 0: Q15 =+1 ;Divisor fuer Zustelltiefe
15 L  Z+Q25 R0 F9998 ;Fahren auf Startposition
16 LBL 1
17 FN 5: Q12 = SQRT +Q15 ;Berechnung Zustelltiefe
18 FN 4: Q13 =+Q3 DIV +Q12 ;Berechnung Zustelltiefe
19 FN 12: IF +Q13 LT +Q10 GOTO LBL 4 ;Vergleich minimale Zustelltiefe
20 FN 0: Q13 =+Q10 ;Zustelltiefe=minimale Zustelltiefe
21 LBL 4
22 FN 1: Q20 =+Q20 + +Q13 ;Z-Koordinate
23 FN 1: Q22 =+Q20 + +Q1 ;Vorpositionieren naechst Zustellung
24 FN 1: Q19 =+Q19 + +1 ;Zaehler
25 FN 12: IF +Q20 LT +Q24 GOTO LBL 99 ;Vergleich Endtiefe
26 L  Z+Q20 R0 FQ5 ;Tiefenzustellung
27 FN 9: IF +Q20 EQU +Q24 GOTO LBL 99 ;Vergleich Endtiefe
28 FN 12: IF +Q19 LT +Q9 GOTO LBL 2 ;Vergleich Zaehler Rueckzug
29 L  Z+Q23 R0 F9998
30 ;Rueckzug
31 CYCL DEF 9.0 VERWEILZEIT
32 CYCL DEF 9.1 V.ZEITQ4
33 FN 0: Q19 =+0 ;Zaehler zuruecksetzen
34 L  Z+Q22 R0 F9998 ;Fahren auf Hoehe vor naechster Zustellung
35 LBL 2
36 L  Z+Q22 R0 FQ5 ;Rueckzug auf Hoehe vor naechster Zustellung
37 FN 1: Q15 =+Q15 + +Q8 ;Divisor fuer groesse der Zustellung
38 FN 11: IF +Q20 GT +Q24 GOTO LBL 1 ;Vergleich Endtiefe
39 LBL 99
40 L  Z+Q24 R0 FQ5 ;Fahren auf Endtiefe
41 CYCL DEF 9.0 VERWEILZEIT
42 CYCL DEF 9.1 V.ZEITQ11
43 LBL 100
44 L  Z+Q21 R0 F9998 ;Fahren auf 2. Sicherheitsabstand
45 END PGM 10351-DE MM