0 BEGIN PGM 8025_ES MM 
1 ;Programa para aumentar o reducir por
2 ;incrementos el avance.
3 ;En un recorrido definido, el avance
4 ;se modifica de una velocidad inicial
5 ;a una velocidad final. Para ello, el
6 ;recorrido y la diferencia entre los
7 ;valores de avance se modifica por
8 ;incrementos mediante la división
9 ;definida en un parámetro.
10 ;Este desplazamiento se realiza en una
11 ;trayectoria lineal en dirección X.
12 ;
13 ;Introducción de parámetros
14 FN 0: Q1 =+20 ;AVANCE INICIAL EN MM/MIN
15 FN 0: Q2 =+300 ;AVANCE FINAL EN MM/MIN
16 FN 0: Q3 =+50 ;LONGITUD DEL RECORRIDO DE
17 ;             ;ACELERACIÓN (INCREMENTAL)
18 FN 0: Q4 =+10 ;DIVISIÓN
19 ;             ;NÚMERO DE INCREMENTOS EN
20 ;             ;LOS QUE SE VA A DIVIDIR EL
21 ;             ;RECORRIDO Y LA MODIFICACIÓN
22 ;             ;DEL AVANCE
23 FN 0: Q5 =+0 ;PUNTO INICIAL EN EL EJE X
24 ;Introducción de parámetros concluida
25 ;
26 BLK FORM 0.1 Z X+0 Y+0 Z-20
27 BLK FORM 0.2  X+100  Y+80  Z+0
28 ;
29 ;Llamada a la herramienta
30 TOOL CALL 5 Z S2000
31 ;
32 ;Desplazar el eje Z a la altura segura
33 L  Z+20 R0 F9999 M3
34 ;
Q11 = ( Q2 - Q1 ) / Q4 ;Incremento de avance
Q13 = Q3 / Q4 ;Incremento de retirada
35 FN 0: Q21 =+Q1 ;Velocidad actual
36 FN 0: Q24 =+0 ;Estado actual del contador
37 ;
38 L  X+Q5  Y+0  Z+20 FMAX ;Posicionamiento previo
39 L  Z+1 R0 FMAX ;Desplazar el eje Z a la altura de seguridad
40 L  Z-5 F500 ;Profundizar eje Z
41 ;
42 LBL 2 ;Repetición
43 FN 1: Q21 =+Q21 + +Q11 ;Velocidad actual
44 FN 1: Q24 =+Q24 + +1 ;Seguir contando con el contador
45 L IX+Q13 FQ21
46 FN 12: IF +Q24 LT +Q4 GOTO LBL 2
47 STOP
48 ;
49 ;Movimiento de trayectoria adicional
50 L IX+200 IY+100 R0 FQ2
51 ;
52 ;Retirar el eje Z y final del programa
53 L  Z+50 R0 FMAX M30
54 END PGM 8025_ES MM