0  BEGIN PGM 7010-DE MM 
1  ;Programm zur Innenbearbeitung eines
2  ;Kegelstumpfes mit einem Kugelfraeser.
3  ;Die Kegelachse liegt parallel zur Y-Achse.
4  ;Die Bearbeitung erfolgt in einer Kreisbahn
5  ;um den Mittelpunkt in der X- und Z-Achse,
6  ;und die Zustellung seitlich in der Y-Achse.
7  ;Die Teilung gibt an, in wie viele Kreis-
8  ;bahnen die Bearbeitung aufgeteilt
9  ;wird. Die Steuerung errechnet daraus, wie
10 ;gross die seitliche Zustellung und die
11 ;dazu passende Radiusaenderung sein muss.
12 ;
13 BLK FORM 0.1 Z X-50 Y+0 Z-60
14 BLK FORM 0.2  X+50  Y+100  Z+0
15 ;
16 ;Parametereingabe
17 FN 0: Q1 =+0 ;KEGELZENTRUM IN X
18 FN 0: Q2 =+0 ;KEGELZENTRUM IN Z
19 FN 0: Q3 =+0 ;STARTKOORDINATE IN Y
20 FN 0: Q4 =+45 ;STARTRADIUS
21 FN 0: Q5 =+100 ;ENDKOORDINATE IN Y
22 FN 0: Q6 =+20 ;ENDRADIUS
23 FN 0: Q7 =+50 ;TEILUNG
24 FN 0: Q8 =+300 ;VORSCHUB FREASEN
25 FN 0: Q9 =+200 ;VORSCHUB EINTAUCHEN
26 FN 0: Q10 =+10 ;SICHERE HOEHE
27 ;Parametereingabe Ende
28 ;
29 ;Werkzeugaufruf Kugelfraeser
30 TOOL CALL 157 Z S8000
31 TOOL CALL  DL-Q108
32 ;
33 ;Berechnungen
34 FN 2: Q24 =+Q4 - +Q108 ;Effektiver Startradius bis Werkzeugzentrum
35 FN 2: Q25 =+Q5 - +Q3 ;Strecke
36 FN 4: Q26 =+Q25 DIV +Q7 ;Weginkrement
37 FN 2: Q27 =+Q6 - +Q4 ;Radiusunterschied
38 FN 4: Q28 =+Q27 DIV +Q7 ;Radiusinkrement
39 FN 2: Q29 =+Q7 - +1 ;Anzahl der Wiederholungen
40 FN 1: Q30 =+Q24 + +Q1 ;Vorpositionierung in X
41 FN 1: Q31 =+Q10 + +Q108 ;Sichere Hoehe mit Werkzeugradius
42 ;Berechnungen Ende
43 ;
44 L  Z+100 R0 FMAX M3 ;Freifahren
45 L  X+Q30  Y+Q3 FMAX ;Vorpositionieren
46 CC  X+Q1  Z+Q2 ;Kegelzentrum
47 L  Z+Q31 R0 FMAX ;Auf sichere Hoehe fahren
48 LP  PR+Q24  PA+90 R0 FQ9 ;Eintauchen
49 CP IPA+180 DR+ FQ8 ;Kreisbahn fraesen
50 LBL 1
51 LP  PA+90 FMAX ;auf Startposition fahren
52 LP IPR+Q28 FQ8 ;Radiusschritt
53 L IY+Q26 R0 FQ8 ;Y-Schritt
54 CP IPA+180 DR+ FQ8 ;Kreisbahn fraesen
55 CALL LBL 1 REPQ29 ;Wiederholungen
56 ;
57 ;Freifahren und Programmende
58 L  Z+100 R0 FMAX M2
59 END PGM 7010-DE MM