0  BEGIN PGM 30851_DE MM 
1  ;NC-Programm fuer die Berechnungen und die 
2  ;Bahnbewegungen um ein konkaves Bogenelement
3  ;zu fertigen.
4  FN 0: Q46 =+0 ;Zaehler Schnitte
5  FN 0: Q52 =+0 ;Startpunkt in der Y-Achse
6  FN 1: Q53 =+Q3 + +Q23 ;Z-Koordinate inklusive Aufmass
7  FN 0: Q56 =+Q6 ;Aktueller Radius
8  FN 0: Q57 =+Q7 ;Aktueller Winkel Profilschnitt
9  FN 0: Q58 =+Q8 ;Aktueller Winkel in der Ebene
10 FN 2: Q77 =+Q17 - +Q7 ;Oeffnungswinkel in der Ebene X/Z
11 FN 4: Q77 =+Q77 DIV +Q27 ;Winkelschritt in der Ebene X/Z
12 FN 3: Q77 =+Q77 * +Q29 ;Winkelschritt mutipliziert mit Schruppfaktor
13 FN 2: Q78 =+Q18 - +Q8 ;Oeffnungswinkel in der Ebene X/Y
14 FN 4: Q78 =+Q78 DIV +Q26 ;Winkelschritt in der Ebene X/Y
15 FN 3: Q78 =+Q78 * +Q29 ;Winkelschritt mitipliziert mit Schruppfaktor
16 FN 2: Q76 =+Q16 - +Q6 ;Radiusaenderung
17 FN 4: Q76 =+Q76 DIV +Q26 ;Radiusaenderung je Schnitt
18 FN 3: Q76 =+Q76 * +Q29 ;Radiusaenderung multipliziert mit Schruppfaktor
19 ;Nullpunkt ins Zentrum und auf die Oberflaeche der Bearbeitung schieben
20 CYCL DEF 7.0 NULLPUNKT
21 CYCL DEF 7.1  X+Q1
22 CYCL DEF 7.2  Y+Q2
23 CYCL DEF 7.3  Z+Q53
24 ;
25 LBL 1
26 ;Rotation auf aktuellen Winkel in der Ebene
27 CYCL DEF 10.0 DREHUNG
28 CYCL DEF 10.1  ROT+Q58
29 FN 0: Q57 =+Q7 ;Aktueller Winkel gleich Startwinkel
30 L  X+Q10 R0 FMAX ;Vorpositionieren
31 CC  Z+0  X+Q10 ;Zentrum fuer Profilschnitt
32 LP  PR+Q56  PA+Q57 FQ22 ;Auf Startpunkt fahren
33 L  Y+Q52 FQ22 ;In der Y/Achse auf Startpunkt fahren
34 LBL 3 ;Bewegung zum Endwinkel
35 FN 1: Q57 =+Q57 + +Q77 ;Aktuellen Winkel weitertakten
36 FN 11: IF +Q57 GT +Q17 GOTO LBL 4 ;Pruefen, ob Endwinkel erreicht ist 
37 LP  PR+Q56  PA+Q57 R0 FQ21 ;Neuen Winkel anfahren
38 FN 12: IF +Q57 LT +Q17 GOTO LBL 3 ;Sprung fuer naechstes Linearelement
39 LBL 4
40 LP  PR+Q56  PA+Q17 FQ20 ;Fahren auf Endwinkel
41 FN 1: Q46 =+Q46 + +Q29 ;Zaehler weiter rechnen
42 FN 1: Q56 =+Q56 + +Q76 ;Radius aktualisieren
43 FN 1: Q58 =+Q58 + +Q78 ;Winkel der Rotation aktualisieren
44 FN 11: IF +Q46 GT +Q26 GOTO LBL 99 ;Pruefen, ob Anzahl der Schnitte erreicht ist 
45 LBL 5
46 ;
47 ;Auf neuen Winkel rotieren
48 CYCL DEF 10.0 DREHUNG
49 CYCL DEF 10.1  ROT+Q58
50 FN 0: Q57 =+Q17 ;Aktueller Winkel ist gleich Endwinkel
51 CC  Z+0  X+Q10 ;Zentrum fuer Profilschnitt
52 LP  PR+Q56  PA+Q57 FQ22 ;Startpunkt anfahren
53 L  Y+Q52 FQ22 ;Y-Startpunkt anfahren
54 ;
55 LBL 7 ;Bewegung zum Startwinkel
56 FN 2: Q57 =+Q57 - +Q77 ;Winkel aktualisieren
57 FN 12: IF +Q57 LT +Q7 GOTO LBL 8 ;Pruefen, ob aktueller Winkel kleiner Startwinkel ist
58 LP  PR+Q56  PA+Q57 R0 FQ21 ;Aktuellen Winkel anfahren
59 FN 11: IF +Q57 GT +Q7 GOTO LBL 7 ;Pruefen, ob der Startwinkel erreicht ist
60 LBL 8
61 LP  PR+Q56  PA+Q7 FQ20 ;Startwinkel anfahren
62 FN 1: Q46 =+Q46 + +Q29 ;Zaehler weiter rechnen
63 FN 1: Q56 =+Q56 + +Q76 ;Radius aktualisieren
64 FN 1: Q58 =+Q58 + +Q78 ;Winkel der Rotation aktualisieren
65 FN 9: IF +Q46 EQU +Q26 GOTO LBL 1 ;Pruefen, ob Anzahl der Schnitte erreicht ist 
66 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Pruefen, ob Anzahl der Schnitte erreicht ist
67 LBL 99
68 ;Rotation zuruecksetzen
69 CYCL DEF 10.0 DREHUNG
70 CYCL DEF 10.1  ROT+0
71 ;Nullpunktverschiebung zuruecksetzen
72 CYCL DEF 7.0 NULLPUNKT
73 CYCL DEF 7.1  X+0
74 CYCL DEF 7.2  Y+0
75 CYCL DEF 7.3  Z+0
76 ;
77 ;Freifahren
78 L  Z+Q25 R0 F9999
79 END PGM 30851_DE MM