Correction: --> with_slider( a,makelist(i,i,1,20), [log(x^3-x*78+90)+a*x], [x,-20,20], [legend,false]); Aleksas D