Construct this pattern.

> restart;

> plot([[x,cos(x)+0.03*n*x*(x-1)*(x-2)*(x-3)*(x-4),x=0..4]$n=0..10],scaling=constrained,axes=none,color=cyan);

>