Manipulate[Plot[Sin[x(1+a x)],{x,0,6}],{a,0,2}]