0 BEGIN PGM 5015_NL MM 
1 ;Programma om een boring in een liggende
2 ;cilinder, op het binnenvlak, met een
3 ;kogelfrees af te bramen. De cilinderas
4 ;ligt parallel aan de Y-as. Referentiepunt
5 ;X en Z in het cilindermiddelpunt.
6 ;
7 BLK FORM 0.1 Z X+0 Y+0 Z-15
8 BLK FORM 0.2  X+18  Y+10  Z+0
9 ;
10 ;Parameterinvoer
11 FN 0: Q1 =+7 ;MIDDEN BORING OP X-AS
12 FN 0: Q2 =+5 ;MIDDEN BORING OP Y-AS
13 FN 0: Q3 =+0.5 ;DIEPTEVERSPRINGING GEREEDSCHAP
14 FN 0: Q4 =+0.5 ;ZIJWAARTSE VERSPRINGING GEREEDSCHAP
15 FN 0: Q5 =+100 ;VERDELING VAN DE CIRKELBAAN
16 FN 0: Q6 =+13 ;CILINDERRADIUS
17 FN 0: Q7 =+180 ;STARTHOEK IN HET VLAK
18 FN 0: Q8 =+20 ;LENGTE CILINDER
19 FN 0: Q9 =+3 ;BORINGSRADIUS
20 FN 0: Q10 =+2 ;Z-HOOGTE VOOR VOORPOSITIONEREN
21 FN 0: Q11 =+200 ;AANZET DIEPTEVERPLAATSING
22 FN 0: Q12 =+500 ;AANZET FREZEN
23 ;
24 ;Voorfrezen van de cilinder
25 ;Gereedschapsoproep kogelfrees
26 TOOL CALL 154 Z S5000
27 TOOL CALL  DL-Q108 ;Lengtecorrectie met kogelradius
28 ;Oproepen programma 50151_nl.h
29 CALL PGM 50151_nl.h
30 L  Z+50 R0 FMAX
31 ;Voorfrezen van de cilinder afgesloten
32 ;
33 ;Boren
34 ;Gereedschapsoproep boor
35 TOOL CALL 228 Z S1000
36 L  Z+100 R0 FMAX M3
37 CYCL DEF 1.0 TIEFBOHREN
38 CYCL DEF 1.1 ABST2
39 CYCL DEF 1.2 TIEFE-20
40 CYCL DEF 1.3 ZUSTLG5
41 CYCL DEF 1.4 V.ZEIT0
42 CYCL DEF 1.5 F300
43 L  X+Q1  Y+Q2 R0 FMAX
44 L  Z+Q15 R0 FMAX
45 CYCL CALL
46 L  Z+50 R0 FMAX
47 ;Boren voltooid
48 ;
49 ;Gereedschapsoproep kogelfrees voor ontbramen
50 TOOL CALL 152 Z S10000
51 TOOL CALL  DL-Q108 ;Lengtecorrectie met kogelradius
52 ;Subprogramma-oproep
53 CALL LBL 1
54 ;
55 ;Einde van programma
56 L  Z+50 R0 F5000 M30
57 ;
58 ;Subprogramma
59 LBL 1
60 FN 0: Q25 =+0 ;Teller
61 FN 1: Q26 =+Q6 + +Q3 ;eff. buisradius
62 FN 0: Q27 =+Q7 ;Actuele vlakhoek
63 FN 4: Q37 =+360 DIV +Q5 ;Hoekstap vlak
64 FN 1: Q29 =+Q9 + +Q4 ;eff. boorradius
65 CC  X+Q1  Y+Q2 ;Cirkelmiddelpunt
66 L  Z+100 R0 FMAX M3 ;Voorpositioneren
67 LP  PR+Q29  PA+Q27 RL F9999
68 L  Z+Q10 F9999
69 CALL LBL 11 ;Oproep berekening nieuwe Z-waarde
70 L  Z-Q23 FQ11 ;Z insteken
71 LBL 10
72 FN 1: Q27 =+Q27 + +Q37 ;Berekening van nieuwe hoek
Q25 = Q25 + 1 ;Teller cycli
73 CALL LBL 11 ;Oproep berekening nieuwe Z-waarde
74 CP  PA+Q27  Z-Q23 DR+ ;Nieuwe hoek en nieuwe Z-waarde benaderen
75 FN 12: IF +Q25 LT +Q5 GOTO LBL 10
76 LBL 11 ;Berekening nieuwe Z-waarde
Q21 = Q1 + Q29 * COS Q27
Q23 = SQRT ( SQ Q26 - SQ Q21 )
77 LBL 0
78 END PGM 5015_NL MM