0  BEGIN PGM 2135_EN MM 
1  ;Program for milling a stud with the contour
2  ;of a P3G polygon profile according to
3  ;ISO 32711
4  BLK FORM 0.1 Z X+0 Y+0 Z-25
5  BLK FORM 0.2  X+100  Y+100  Z+0
6  ;
7  ;Tool call milling tool diameter 36mm
8  TOOL CALL 18 Z S5000
9  ;
10 ;Cutting data
11 Q50 = 20 ;MILLING DEPTH
12 Q51 = 3 ;PLUNGING DEPTH
13 Q52 = 2 ;SET UP CLEARANCE
14 Q53 = 150 ;FEED RATE FOR PLUNGING
15 Q54 = 500 ;FEED RATE FOR MILLING
16 ;
17 ;Parameter for P3G polygon
18 Q30 = 75 ;ORBIFORM DIAMETER (d1)
19 Q31 = 3.15 ;ECCENTRIC SIZE (e)
20 Q36 = 50 ;CENTER OF THE POLYGON IN THE X AXIS
21 Q37 = 50 ;CENTER OF THE POLYGON IN THE Y AXIS
22 Q38 = 0 ;ROTATION
23 Q32 = 90 ;STARTING ANGLE
24 ;
25 ;===========================================
26 Q35 = 0 ;START FOR ANGLE STEP
27 Q35 = Q32 ;STARTING POSITION
28 Q40 = Q35 + 360.5 ;END POSITION
29 CYCL DEF 7.0 DATUM SHIFT
30 CYCL DEF 7.1  X+Q36
31 CYCL DEF 7.2  Y+Q37
32 CYCL DEF 10.0 ROTATION
33 CYCL DEF 10.1  ROT+Q38
34 CYCL DEF 14.0 CONTOUR
35 CYCL DEF 14.1 CONTOUR LABEL1
36 CYCL DEF 25 CONTOUR TRAIN ~
    Q1=-Q50  ;MILLING DEPTH ~
    Q3=+0    ;ALLOWANCE FOR SIDE ~
    Q5=+0    ;SURFACE COORDINATE ~
    Q7=+Q52  ;CLEARANCE HEIGHT ~
    Q10=-Q51  ;PLUNGING DEPTH ~
    Q11=+Q53  ;FEED RATE FOR PLNGNG ~
    Q12=+Q54  ;FEED RATE F. ROUGHNG ~
    Q15=+1    ;CLIMB OR UP-CUT
37 L  X+0  Y+0 R0 FMAX M3 M99
38 ;
39 ;End of program
40 L  Z+100 R0 FMAX M30
41 ;
42 ;Sub Program
43 ;Calculation of the contour points
44 LBL 1
45 Q41 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * COS Q35 - 3 * Q31 * SIN ( 3 * Q35 ) * SIN Q35
46 Q42 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * SIN Q35 + 3 * Q31 * SIN ( 3 * Q35 ) * COS Q35
47 L  X+Q41  Y+Q42 RR
48 Q35 = Q35 + 0.5
49 FN 10: IF +Q35 NE +Q40 GOTO LBL 1
50 LBL 0
51 END PGM 2135_EN MM