0  BEGIN PGM 3175_EN MM 
1  ;Program for milling a body in the form
2  ;of a tapered feather key.
3  ;An end mill is used in contour lines.
4  ;Define all necessary parameters first.
5  ;Afterwards the control calculates
6  ;the change in depth and on the side.
7  ;Then is machines the body from the bottom up.
8  ;Cycle 25 is used for this, whereby the changes
9  ;in the contour through the lateral oversize
10 ;are programmed. After every cycle call,
11 ;the new depth and the new lateral oversize
12 ;are calculated and repetitions
13 ;follow until the body is finished.
14 ;With the spacing, you define how many
15 ;contour lines are to be machined and
16 ;therefore indirectly define the surface
17 ;quality and accuracy.
18 ;
19 BLK FORM 0.1 Z X-15 Y-7 Z-12
20 BLK FORM 0.2  X+15  Y+7  Z+0
21 ;
22 ;Tool call for end mill
23 TOOL CALL 8 Z S3000
24 ;
25 ;Enter parameters
26 FN 0: Q10 =+8 ;ROUNDING DIAMETER ABOVE
27 FN 0: Q20 =+14 ;ROUNDING DIAMETER BELOW
28 FN 0: Q40 =+10 ;DEPTH
29 FN 0: Q50 =+16 ;LENGTH OF STRAIGHT LINE
30 FN 0: Q30 =+50 ;SCALE
31 FN 0: Q70 =+300 ;FEED RATE FOR PECKING
32 FN 0: Q71 =+600 ;FEED RATE FOR MILLING
33 FN 0: Q72 =+10 ;MAXIMUM PLUNGING DEPTH
34 ;End of input
35 ;
36 ;Calculations
37 FN 4: Q61 =+Q10 DIV +2 ;Circle radius above
38 FN 4: Q51 =+Q50 DIV +2 ;Length of line from midpoint
39 FN 2: Q21 =+Q20 - +Q10 ;Diameter difference
40 FN 4: Q22 =+Q21 DIV +2 ;Radius difference
41 FN 2: Q31 =+Q30 - +1 ;Number of program repetitions
42 FN 4: Q23 =+Q22 DIV +Q30 ;Lateral change per step
43 FN 4: Q41 =+Q40 DIV +Q30 ;Depth change per step
44 ;End of calculations
45 ;
46 LBL 10
47 CYCL DEF 14.0 CONTOUR
48 CYCL DEF 14.1 CONTOUR LABEL1
49 CYCL DEF 25 CONTOUR TRAIN ~
    Q1=-Q40  ;MILLING DEPTH ~
    Q3=+Q22  ;ALLOWANCE FOR SIDE ~
    Q5=+0    ;SURFACE COORDINATE ~
    Q7=+50   ;CLEARANCE HEIGHT ~
    Q10=-Q72  ;PLUNGING DEPTH ~
    Q11=+Q70  ;FEED RATE FOR PLNGNG ~
    Q12=+Q71  ;FEED RATE F. ROUGHNG ~
    Q15=+1    ;CLIMB OR UP-CUT
50 CYCL CALL M13
51 ;Calculation of new depth and oversize
52 FN 2: Q40 =+Q40 - +Q41
53 FN 2: Q22 =+Q22 - +Q23
54 CALL LBL 10 REPQ31 ;Repetition of machining
55 ;Retract and end program
56 L  Z+100 R0 FMAX M30
57 ;
58 ;Subprogram with contour description
59 LBL 1
60 L  X+0  Y+Q61 RL
61 L  X+Q51
62 CR  X+Q51  Y-Q61 R+Q61 DR-
63 L  X-Q51
64 CR  X-Q51  Y+Q61 R+Q61 DR-
65 L  X+0
66 LBL 0
67 END PGM 3175_EN MM