0 BEGIN PGM 10601_FR MM 
1 ;Programme contenant les calculs et le déroulement pour le
2 ;perçage à travers le tuyau
3 ;
4 ;Réglage de la vitesse de rotation pour le pointage
5 TOOL CALL  SQ8
6 ;
7 ;Calculs
8 FN 1: Q40 =+Q2 + +Q1 ;Hauteur de pré-positionnement
9 FN 2: Q41 =+Q2 - +Q5 ;Bas du tuyau
10 FN 2: Q20 =+Q2 - +Q4 ;Haut du tuyau, intérieur
11 FN 2: Q30 =+Q20 - +Q10 ;Profondeur de perçage de la paroi supérieure
12 FN 1: Q21 =+Q41 + +Q4 ;Début de la paroi inférieure
13 FN 1: Q43 =+Q21 + +Q1 ;Position de départ pour la paroi inférieure
14 FN 1: Q24 =+Q41 + +Q3 ;Début de la décélération
15 FN 2: Q42 =+Q41 - +Q10 ;Profondeur de perçage de la paroi inférieure
16 FN 4: Q36 =+Q6 DIV +10 ;Incrément de vitesse
17 FN 4: Q33 =+Q3 DIV +10 ;Incrément de course
18 FN 4: Q27 =+Q7 DIV +4 ;Avance d'approche
19 L  Z+Q40 R0 FMAX M3 ;Pré-positionnement en Z
20 L  Z+Q2 FQ27 ;Déplacement sur la surface en Z avec 25 % de l'avance
21 FN 0: Q23 =+Q2
22 FN 0: Q26 =+0
23 ;
24 ;Augmentation de l'avance et parcours de la course
25 ;d'accélération
26 LBL 2
27 FN 1: Q23 =+Q23 + -Q33 ;Z actuel
28 FN 1: Q26 =+Q26 + +Q36 ;F actuel
29 L  Z+Q23 FQ26
30 CALL LBL 2 REP9
31 ;
32 ;Réglage de la vitesse de rotation du perçage
33 TOOL CALL  SQ9
34 ;
35 FN 0: Q23 =+Q24
36 L  Z+Q30 FQ6 ;Perçage à travers la paroi supérieure
37 L  Z+Q43 FQ7 ;Déplacement jusqu'à la position de départ pour la paroi inférieure, avec l'avance dans le vide
38 L  Z+Q24 FQ6 ;Perçage jusqu'au début de la course de décélération
39 ;
40 ;Réduction de l'avance et parcours de la course de décélération
41 LBL 3
42 FN 1: Q23 =+Q23 + -Q33
43 FN 1: Q26 =+Q26 + -Q36
44 L  Z+Q23 FQ26
45 CALL LBL 3 REP8
46 L  Z+Q42 ;Perçage jusqu'à la fin de la paroi inférieure
47 L  Z+Q40 FQ7 ;Déplacement à la hauteur de pré-positionnement
48 ;
49 ;Fin du programme
50 END PGM 10601_FR MM