Q-PARAMETRY
: 23 sie 2008, 19:19
Witam!
Proszę o sprawdzenie programu, co daje Q108.
Nie mogę wystartować od bloku drugiego narzędzia.
0 BEGIN PGM PARAM_R+ZAW10 MM
1 ;NAZWA-P-
2 ;NR RYS
3 ;ZERO W OSI, Z NA POWIERZCHNI
4 ;FR-2-FR.PALCOWY#16
5 ;ROW.-8-MONOLIT#10
6 ;FAZA-19-MONOLIT#10_90ST-Z2
7 BLK FORM 0.1 Z X-70 Y-70 Z-40
8 BLK FORM 0.2 X+70 Y+70 Z+0
9 M51
11 ;-----SPRAWDZIC------------------
12 FN 0: Q1 =+24 ;R-GLOWY
13 FN 0: Q2 =+34 ;SZER.GLOWY
14 FN 0: Q4 =+70 ;FI ZEWN.ZGR.
15 FN 0: Q5 =+50 ;FI NA GOTOWO
16 FN 0: Q6 =+1 ;NA 14 LUB 15
17 ;Q6=+0 DLA GL.15
18 ;Q6=+1 DLA GL.14
19 FN 0: Q7 =+5 ;ZAPAS BEZP.
19 ;-----NIEZMIENIAC----------------
20 FN 4: Q10 =+Q2 DIV +2 ;SZER./2
21 FN 4: Q11 =+Q4 DIV +2 ;FI ZEW./2
22 FN 4: Q12 =+Q5 DIV +2 ;FI GOT./2
23 FN 2: Q15 =+Q1 - +Q10
24 Q3 = SQRT ( ( Q15 * ( ( 2 * Q1 ) - Q15 ) ) )
25 ;--------------------------------
26 ;FR-2-FR.PALCOWY#16
26 TOOL CALL 2 Z S5000
27 CYCL DEF 7.0 PUNKT BAZOWY
28 CYCL DEF 7.1 X+0
29 CYCL DEF 7.2 Y+0
30 CYCL DEF 7.3 Z+Q6
31 L Z+200 R0 FMAX M31
32 Q13 = Q10 + Q108 + Q7
33 Q14 = Q11 + Q108 + Q7
34 L X+Q13 Y-Q14 R0 FMAX M31
35 L Z+3 R0 FMAX M13
36 L Z+0 R0 FMAX ;START LBL
37 LBL "R"
38 L X+Q13 Y-Q14 R0 FMAX M13
39 L IZ-3 R0 F900
40 APPR LCT X+Q10 Y-Q11 R2 RR
41 L X+Q10 Y-Q3
42 RND R8.5
43 CR X+Q10 Y+Q3 R+Q1 DR+
44 RND R8.5
45 L X+Q10 Y+Q11
46 CR X-Q10 Y+Q11 R+Q11 DR+ FMAX
47 L X-Q10 Y+Q3 RR
48 RND R8.5
49 CR X-Q10 Y-Q3 R+Q1 DR+
50 RND R8.5
51 L X-Q10 Y-Q14 RR
52 L X+Q13 Y-Q14 R0 FMAX
53 LBL 0
54 CALL LBL "R" REP4
55 L Z+300 R0 FMAX M5 M9
56 ;ROW.-8-MONOLIT#10
56 TOOL CALL 8 Z S4500
57 L Z+200 R0 FMAX M31
59 L X+0 Y+Q14 R0 FMAX M31
60 L Z+3 FMAX M13
61 LBL "ZAW10"
62 L X+0 Y+Q14 R0 FMAX
63 L Z+3 R0 FMAX
64 L Z-6 R0 FMAX
65 L Y+Q12 F600
66 L Z+3 R0 FMAX
67 L Y+Q14 FMAX
68 L Z-12 R0 FMAX
69 L Y+Q12
70 L Z+3 R0 FMAX
71 L Y+Q14 R0 FMAX
72 L Z-13.2 R0 FMAX ;GL.ZAW10
73 L Y+Q12
74 L Z+3 R0 FMAX
75 LBL 0
76 CYCL DEF 8.0 ODBICIE LUSTRZANE
77 CYCL DEF 8.1 Y
78 CALL LBL "ZAW10"
79 CYCL DEF 8.0 ODBICIE LUSTRZANE
80 CYCL DEF 8.1
55 L Z+300 R0 FMAX M5 M9
6 ;FAZA-19-MONOLIT#10_90ST-Z2
26 TOOL CALL 19 Z S10000 DR-2
27 L Z+200 R0 FMAX M31
30 L X+Q13 Y-Q14 R0 FMAX M31
31 L Z+2 R0 FMAX M13
32 L Z-3.2 R0 FMAX ;GL.FAZY
33 APPR LCT X+Q10 Y-Q11 R5 RR F3000
34 L X+Q10 Y-Q3
35 RND R8.5
36 CR X+Q10 Y+Q3 R+Q1 DR+
37 RND R8.5
38 L X+Q10 Y+Q11
39 CR X-Q10 Y+Q11 R+Q11 DR+ FMAX
40 L X-Q10 Y+Q3
41 RND R8.5
42 CR X-Q10 Y-Q3 R+Q1 DR+
43 RND R8.5
44 L X-Q10 Y-Q14
45 L Z+3 R0 FMAX
46 CALL LBL "FAZA_ZAW10"
47 CYCL DEF 10.0 OBROT
48 CYCL DEF 10.1 ROT+180
49 CALL LBL "FAZA_ZAW10"
50 CYCL DEF 10.0 OBROT
51 CYCL DEF 10.1 ROT+0
27 CYCL DEF 7.0 PUNKT BAZOWY
28 CYCL DEF 7.1 X+0
29 CYCL DEF 7.2 Y+0
30 CYCL DEF 7.3 Z+0
81 L Z+300 R0 FMAX M5 M9
82 L X+0 Y+360 Z+300 R0 FMAX M31
83 M30
55 LBL "FAZA_ZAW10"
56 L X+0 Y+Q14 R0 FMAX M13
57 L Z-3.2 R0 FMAX
58 APPR LCT X+5 Y+Q11 R2 RR F3000
59 L Y+Q12
60 CC X+0 Y+Q12
61 C X-5 Y+Q12 DR-
62 L X-5 Y+Q11
63 DEP LCT X+0 Y+Q14 R2
64 L Z+3 R0 FMAX
65 LBL 0
84 END PGM PARAM_R+ZAW10 MM
Proszę o sprawdzenie programu, co daje Q108.
Nie mogę wystartować od bloku drugiego narzędzia.
0 BEGIN PGM PARAM_R+ZAW10 MM
1 ;NAZWA-P-
2 ;NR RYS
3 ;ZERO W OSI, Z NA POWIERZCHNI
4 ;FR-2-FR.PALCOWY#16
5 ;ROW.-8-MONOLIT#10
6 ;FAZA-19-MONOLIT#10_90ST-Z2
7 BLK FORM 0.1 Z X-70 Y-70 Z-40
8 BLK FORM 0.2 X+70 Y+70 Z+0
9 M51
11 ;-----SPRAWDZIC------------------
12 FN 0: Q1 =+24 ;R-GLOWY
13 FN 0: Q2 =+34 ;SZER.GLOWY
14 FN 0: Q4 =+70 ;FI ZEWN.ZGR.
15 FN 0: Q5 =+50 ;FI NA GOTOWO
16 FN 0: Q6 =+1 ;NA 14 LUB 15
17 ;Q6=+0 DLA GL.15
18 ;Q6=+1 DLA GL.14
19 FN 0: Q7 =+5 ;ZAPAS BEZP.
19 ;-----NIEZMIENIAC----------------
20 FN 4: Q10 =+Q2 DIV +2 ;SZER./2
21 FN 4: Q11 =+Q4 DIV +2 ;FI ZEW./2
22 FN 4: Q12 =+Q5 DIV +2 ;FI GOT./2
23 FN 2: Q15 =+Q1 - +Q10
24 Q3 = SQRT ( ( Q15 * ( ( 2 * Q1 ) - Q15 ) ) )
25 ;--------------------------------
26 ;FR-2-FR.PALCOWY#16
26 TOOL CALL 2 Z S5000
27 CYCL DEF 7.0 PUNKT BAZOWY
28 CYCL DEF 7.1 X+0
29 CYCL DEF 7.2 Y+0
30 CYCL DEF 7.3 Z+Q6
31 L Z+200 R0 FMAX M31
32 Q13 = Q10 + Q108 + Q7
33 Q14 = Q11 + Q108 + Q7
34 L X+Q13 Y-Q14 R0 FMAX M31
35 L Z+3 R0 FMAX M13
36 L Z+0 R0 FMAX ;START LBL
37 LBL "R"
38 L X+Q13 Y-Q14 R0 FMAX M13
39 L IZ-3 R0 F900
40 APPR LCT X+Q10 Y-Q11 R2 RR
41 L X+Q10 Y-Q3
42 RND R8.5
43 CR X+Q10 Y+Q3 R+Q1 DR+
44 RND R8.5
45 L X+Q10 Y+Q11
46 CR X-Q10 Y+Q11 R+Q11 DR+ FMAX
47 L X-Q10 Y+Q3 RR
48 RND R8.5
49 CR X-Q10 Y-Q3 R+Q1 DR+
50 RND R8.5
51 L X-Q10 Y-Q14 RR
52 L X+Q13 Y-Q14 R0 FMAX
53 LBL 0
54 CALL LBL "R" REP4
55 L Z+300 R0 FMAX M5 M9
56 ;ROW.-8-MONOLIT#10
56 TOOL CALL 8 Z S4500
57 L Z+200 R0 FMAX M31
59 L X+0 Y+Q14 R0 FMAX M31
60 L Z+3 FMAX M13
61 LBL "ZAW10"
62 L X+0 Y+Q14 R0 FMAX
63 L Z+3 R0 FMAX
64 L Z-6 R0 FMAX
65 L Y+Q12 F600
66 L Z+3 R0 FMAX
67 L Y+Q14 FMAX
68 L Z-12 R0 FMAX
69 L Y+Q12
70 L Z+3 R0 FMAX
71 L Y+Q14 R0 FMAX
72 L Z-13.2 R0 FMAX ;GL.ZAW10
73 L Y+Q12
74 L Z+3 R0 FMAX
75 LBL 0
76 CYCL DEF 8.0 ODBICIE LUSTRZANE
77 CYCL DEF 8.1 Y
78 CALL LBL "ZAW10"
79 CYCL DEF 8.0 ODBICIE LUSTRZANE
80 CYCL DEF 8.1
55 L Z+300 R0 FMAX M5 M9
6 ;FAZA-19-MONOLIT#10_90ST-Z2
26 TOOL CALL 19 Z S10000 DR-2
27 L Z+200 R0 FMAX M31
30 L X+Q13 Y-Q14 R0 FMAX M31
31 L Z+2 R0 FMAX M13
32 L Z-3.2 R0 FMAX ;GL.FAZY
33 APPR LCT X+Q10 Y-Q11 R5 RR F3000
34 L X+Q10 Y-Q3
35 RND R8.5
36 CR X+Q10 Y+Q3 R+Q1 DR+
37 RND R8.5
38 L X+Q10 Y+Q11
39 CR X-Q10 Y+Q11 R+Q11 DR+ FMAX
40 L X-Q10 Y+Q3
41 RND R8.5
42 CR X-Q10 Y-Q3 R+Q1 DR+
43 RND R8.5
44 L X-Q10 Y-Q14
45 L Z+3 R0 FMAX
46 CALL LBL "FAZA_ZAW10"
47 CYCL DEF 10.0 OBROT
48 CYCL DEF 10.1 ROT+180
49 CALL LBL "FAZA_ZAW10"
50 CYCL DEF 10.0 OBROT
51 CYCL DEF 10.1 ROT+0
27 CYCL DEF 7.0 PUNKT BAZOWY
28 CYCL DEF 7.1 X+0
29 CYCL DEF 7.2 Y+0
30 CYCL DEF 7.3 Z+0
81 L Z+300 R0 FMAX M5 M9
82 L X+0 Y+360 Z+300 R0 FMAX M31
83 M30
55 LBL "FAZA_ZAW10"
56 L X+0 Y+Q14 R0 FMAX M13
57 L Z-3.2 R0 FMAX
58 APPR LCT X+5 Y+Q11 R2 RR F3000
59 L Y+Q12
60 CC X+0 Y+Q12
61 C X-5 Y+Q12 DR-
62 L X-5 Y+Q11
63 DEP LCT X+0 Y+Q14 R2
64 L Z+3 R0 FMAX
65 LBL 0
84 END PGM PARAM_R+ZAW10 MM