Manipulate[Plot[(ArcTan[4x])^2+x-0.1-a*x^2-Sin[x],{x,0,0.2},AxesLabel->0.1+a/3+Sin[1],AxesOrigin->{0,0}],{a,-5,10}]