?animate

with(plots);

animate(plot,[y^2-y+a,y=-3..3],a=-2..2);

plot(y*(1-y)^2,y=-1/2..3/2);

animate(plot,[p*(1-p/2)-h,p=-1/2..5/2],h=0..1);