Find roots



 Correction:

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

Aleksas D