Plot[Abs[x]/x*(Abs[x])^(1/3)*(x-4),{x,-1,6}]

Plot[1/6*x^3-3/2*x^2+2,{x,-10,10}]

Plot[3*x*(Sqrt[8-x^2]),{x,0,(Sqrt[8])}]