Manipulate[Plot[(Sqrt[2+(x^3)])+Sin[x]-3 a (x^2)-3 Sin[a],{x,0,1},AxesLabel->a+3 Sin[a],AxesOrigin->{0,0}],{a,0.1,3}]