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