Valor(P, P + inc avanza)
Valor(inc, Si(Distancia(O, P) < 0.1, 0, 0.2))

Explicación del guion:

P avanza un paso (de longitud inc).

Si P está muy próximo a O, 
se hace cero la longitud del paso.

paso = 1 (slider from 1 to total)
instrucciones: {"Abre la hoja de cálculo, crea un punto libre A1 y arrastra hasta A10.\\nCierra la hoja y, con el ratón, dispersa los puntos.", "Crea otros dos puntos, O (que será el objetivo) y P. Activa el rastro de P.\\nDistínguelos de los demás por color.", "Crea la constante inc = 0.2 y la lista:\\n puntos = A1:A10", "Crea la lista:\\nrepulsiones = Secuencia(Vector(puntos(k), P) / abs(puntos(k) - P)³, k, 1, 10)", "Oculta las listas anteriores y crea el vector atractor:\\natractor = VectorUnitario(Vector(P,O))", "Crea el vector avanza:\\navanza = atractor + Suma(repulsiones)", "Oculta esos vectores.\\nCrea un deslizador y asóciale el guion que indica el recuadro amarillo.", "Anima el deslizador.\\nMejora la estética."}
texto = Element(instrucciones, paso)
total = Length(instrucciones)
fondo: {Polygon[Corner[1], Corner[2], Corner[2] + (0, 1.5), Corner[1] + (0, 1.5)]}
pasoActual: "Paso " + paso + " de " + total + ""