#6
Post
napisał: rafa30 » 26 wrz 2019, 14:42
0 BEGIN PGM FASOLKA SPIRALNIE MM
1 BLK FORM 0.1 Z X-60 Y-30 Z-20
2 BLK FORM 0.2 X+60 Y+30 Z+0
3 TOOL CALL 4 Z S3000 F2222
4 CYCL DEF 7.0 PUNKT BAZOWY
5 CYCL DEF 7.1 X+0
6 CYCL DEF 7.2 Z+0
7 L Z+100 R0 FMAX M3
8 L X+0 Y+0 R0 FMAX
9 L Z+0 R0 FMAX
10 CALL LBL 1
11 L Z+100 R0 FMAX M30
12 LBL 1
13 FN 0: Q20 =+60;DLUGOSC FASOLKI
14 FN 0: Q21 =+20;SZEROKOSC FASOLKI
15 FN 4: Q20 =+Q20 DIV+2
16 FN 4: Q21 =+Q21 DIV+2
17 FN 2: Q22 =+Q20-+Q21
18 FN 0: Q1 =+40 ;GLEBOKOSC
19 FN 0: Q10 =+80 ;ILOSC POETORZEN
20 FN 3: Q10 =+Q10*+5
21 FN 4: Q1 =+Q1 DIV +Q10
22 L Y+Q21 RL F1000
23 LBL 2
24 CC X-Q22 Y+0
25 L X-Q22 IZ-Q1 RL F1000
26 CP IPA+180 IZ-Q1 DR+ F1000
27 L X+Q22 IZ-Q1 RL F1000
28 CC X+Q22 Y+0
29 CP IPA+180 IZ-Q1 DR+ F1000
30 L X+0 IZ-Q1 RL F1000
31 FN 1: Q10 =+Q10 + -5
32 FN 10: IF +Q10 NE +0 GOTO LBL 2
33 L X-Q22 R F
34 CT X-Q22 Y-Q21
35 L X+Q22 R F
36 CT X+Q22 Y+Q21
37 X 0 R F
38 L Y+0 R0 F1000
39 LBL 0
40 END PGM FASOLKA-SPIRALNIE MM
---------------------------------------------------------------------------------------------
ELIPSA SPIRALNIE
0 BEGIN PGM 19 MM
1 BLK FORM 0.1 Z X-35,000 Y-20,000 Z-75,000
2 BLK FORM 0.2 X+35,000 Y+20,000 Z+0,000
3 TOOL DEF 40 L+0,000 R+10,000
4 TOOL CALL 40 / Z S 1250,000
5 FN 0 : Q22= +70,000
6 FN 0 : Q23= +100,000
7 FN 4 : Q22= +Q22 DIV +2,000
8 FN 4 : Q23= +Q23 DIV +2,000
9 FN 1 : Q22= +Q22 + +Q108
10 FN 1 : Q23= +Q23 + +Q108
11 FN 0 : Q1 = +30
12 FN 0 : Q10= +60,000
13 FN 3 : Q10= +Q10 * +90,000
14 FN 3 : Q3 = +Q10 * +4,000
15 FN 4 : Q1 = +Q1 DIV +Q10
16 L Z+150,000 R0 F9999 M03
17 L X+100,000 Y+0,000 R0 F MAX M
18 L Z+0,000 R0 F MAX M
19 L X+Q23 R0 F1200 M
20 CALL LBL 1 REP
21 L IX+50,000 R0 F5000 M
22 L Z+100,000 R0 F4000 M
23 L X+0,000 Y+0,000 R0 F MAX M30
24 LBL 1
25 FN 0 : Q21= +0,000
26 FN 0 : Q20= +4,000
27 FN 0 : Q27= +360,000
28 LBL 2
29 FN 6 : Q14= SIN +Q21
30 FN 7 : Q15= COS +Q21
31 FN 3 : Q24= +Q14 * +Q22
32 FN 3 : Q25= +Q15 * +Q23
33 L X+Q25 Y+Q24 IZ-Q1 R0 F1500 M
34 FN 1 : Q21= +Q21 + +Q20
35 FN 12 : IF +Q21 LT +Q27 GOTO LBL 2
36 FN 1 : Q3 = +Q3 + -360,000
37 FN 11 : IF +Q3 GT +0,000 GOTO LBL 1
38 FN 0 : Q20= +4,000
39 FN 0 : Q21= +0,000
40 FN 0 : Q26= +Q22
41 FN 0 : Q28= +Q23
42 FN 0 : Q27= +360,100
43 LBL 6
44 FN 6 : Q14= SIN +Q21
45 FN 7 : Q15= COS +Q21
46 FN 3 : Q29= +Q14 * +Q26
47 FN 3 : Q30= +Q15 * +Q28
48 L X+Q30 Y+Q29 R F M
49 FN 1 : Q21= +Q21 + +Q20
50 FN 12 : IF +Q21 LT +Q27 GOTO LBL 6
51 LBL 0
52 END PGM 19 MM
-------------------------------------------------------------------------------------------------
0 BEGIN PGM FAZA 30X25 STOPNI MM
1 BLK FORM 0.1 Y X-40 Y-30.5 Z-40
2 BLK FORM 0.2 X+40 Y+0.1 Z+40
3 TOOL CALL 4 Y S1200
4 L Y+100 R0 F5000 M3
5 L X+0 Z+0 R0 F5000
6 L Y+0 R0 F2000
7 CC X+0 Z+0
8 L Z+31 RL F1000
9 CP IPA+360 DR+ F1000
10 CALL LBL 1
11 L Y+100 R0 F5000 M2
12 LBL 1
13 FN 0: Q1 =+30
14 FN 0: Q2 =+0
15 FN 0: Q3 =-25
16 FN 0: Q10 =+120
17 FN 3: Q10 =+Q10 * +2
18 FN 4: Q1 =+Q1 DIV +Q10
-----------------------------------
20 FN 6: Q6 = SIN +Q3
21 FN 7: Q7 = COS +Q3
22 FN 4: Q5 =+Q6 DIV +Q7
23 FN 3: Q2 =+Q5 * +Q1
24 LBL2
25 CC Z-Q2 X+0
26 CP IPA+180 IY-Q1 DR+ F1000
27 CC Z+0 X+0
28 CP IPA+180 IY-Q1 DR+ F1000
29 FN 1: Q10 =+Q10 + -2
30 FN 10: IF +Q10 NE +0 GOTO LBL 2
31 CC Z+0 X+0
32 CP IPA+360 DR+ F1000
33 L Z+0 R0 F1000
34 LBL 0
35 END PGM FAZA 30X25 STOPNI MM