{Manipulate[Plot[BesselJ[n,s],{s,0,50},PlotRange->{{0,50},{-1,1}}],{{n,0},0,20,1,Appearance->"Labeled"}],
Manipulate[Plot[BesselY[n,s],{s,0,50},PlotRange->{{0,50},{-1,1}}],{{n,0},0,20,1,Appearance->"Labeled"}]}