(*Question 3*)

Manipulate[Plot[Piecewise[{{2x^3,x<-1},{a*x+b,-1<x<1},{Abs[x],x>1}}],{x,-2,2},PlotRange->{-5,5},Exclusions->{-1,1},ImageSize->300],{a,-10,10,Appearance->"Open"},{b,-10,10,Appearance->"Open"}]