Construct this pattern.

>

> restart;

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

>