If you take a function y = f(x) and replace it by y = f(k*x) where k > 1, then the net result graphically is that the graph of f(x) is compressed horizontally toward the vertical axis. Below we start with a polynomial function of the form y = f(k*x), and the animation shows the effect on the graph as we let k increase from 1 to 20.

> with(plots):

> f:=x->x^3-1*x;

> A := seq(plot(f(i*x), x=-5..5, numpoints=500, thickness=3), i=1..20):

> display(A, insequence=true, view=[-5..5, -5..5]);

>