0  BEGIN PGM 8025_FR MM 
1  ;Programme permettant d'augmenter ou de réduire
2  ;progressivement l'avance.
3  ;L'avance passe d'une vitesse de départ donnée
4  ;à une vitesse finale donnée, sur une course
5  ;donnée. Pour ce faire, la course et la
6  ;différence entre les deux valeurs d'avance
7  ;sont respectivement divisées d'une valeur
8  ;donnée, définie dans un paramètre. Ce paramètre
9  ;est ensuite utilisé pour moduler l'avance en
10 ;conséquence.
11 ;Ce mouvement s'effectue sur une trajectoire
12 ;linéaire, dans le sens X.
13 ;
14 ;Définition des paramètres
15 FN 0: Q1 =+20 ;AVANCE DE DEPART EN MM/MIN
16 FN 0: Q2 =+300 ;AVANCE FINALE EN MM/MIN
17 FN 0: Q3 =+50 ;LONGUEUR DE LA COURSE D'ACCELERATION
18 ;             ;(EN INCREMENTAL)
19 FN 0: Q4 =+10 ;DIVISION
20 ;             ;NOMBRE DE PAS QUI SUBDIVISENT LA
21 ;             ;COURSE ET LA VARIATION D'AVANCE
22 FN 0: Q5 =+0 ;POINT DE DEPART SUR L'AXE X
23 ;Fin de la programmation des paramètres
24 ;
25 BLK FORM 0.1 Z X+0 Y+0 Z-20
26 BLK FORM 0.2  X+100  Y+80  Z+0
27 ;
28 ;Appel d'outil
29 TOOL CALL 5 Z S2000
30 ;
31 ;Déplacement à la hauteur de sécurité sur l'axe Z
32 L  Z+20 R0 F9999 M3
33 ;
34 Q11 = ( Q2 - Q1 ) / Q4 ;Pas d'avance
35 Q13 = Q3 / Q4 ;Pas de course
36 FN 0: Q21 =+Q1 ;Vitesse actuelle
37 FN 0: Q24 =+0 ;Etat actuel du compteur
38 ;
39 L  X+Q5  Y+0  Z+20 FMAX ;Prépositionnement
40 L  Z+1 R0 FMAX ;Déplacement à la distance d'approche sur l'axe Z
41 L  Z-5 F500 ;Plongée le long de l'axe Z
42 ;
43 LBL 2 ;Répétition
44 FN 1: Q21 =+Q21 + +Q11 ;Vitesse actuelle
45 FN 1: Q24 =+Q24 + +1 ;Actualisation du compteur
46 L IX+Q13 FQ21
47 FN 12: IF +Q24 LT +Q4 GOTO LBL 2
48 STOP
49 ;
50 ;Autre déplacement
51 L IX+200 IY+100 R0 FQ2
52 ;
53 ;Dégagement sur l'axe Z et fin du programme
54 L  Z+50 R0 FMAX M30
55 END PGM 8025_FR MM