Plot[Table[ Sin[k π x],{k,1,5,1}]//Evaluate,{x,0,1}]

f[x_,y_,kx_,ky_]:=Sin[kx π x]Sin[ky π y]

Plot3D[f[x,y,2,3],{x,0,1},{y,0,1}]

?Manipulate

Manipulate[
Plot3D[f[x,y,kx,ky],{x,0,1},{y,0,1}] ,
{kx,1,5,1},{ky,1,5,1}]

?BesselJZero

list=Table[BesselJZero[n,1],{n,1,5,1}] //N

Plot[Table[BesselJ[n,x],{n,1,5,1}]//Evaluate,{x,0,10}]

list[[2]]

tab= Table[BesselJ[n,x BesselJZero[n,1]],{n,1,5,1}]//N

tab= Table[BesselJ[n,x BesselJZero[n,2]],{n,1,5,1}]//N;
Plot[ tab,{x,0,1}]

?SphericalPlot3D

ParametricPlot3D[Evaluate@{s Cos[theta],s Sin[theta],Cos[time] Cos[n theta] BesselJ[n,s nthzero]},{s,0,1},{theta,0,2 π},PlotRange->1,Mesh->mesh,Boxed->True,Axes->False,SphericalRegion->True,ImageSize->{375,375}]],
{{mesh,True,"show mesh"},{False,True},ControlType->Checkbox},
{{n,0,"order n"},0,5,1,RadioButton},
{{kthroot,1,"(k^th) zero"},1,4,1,RadioButton},
{{time,0,"time"},0, 2 Pi}
]

ManipulateResourceCreateNotebook

Manipulate[
Module[{nthzero},
nthzero=N[BesselJZero[n,kthroot]];ParametricPlot3D[Evaluate@{s Cos[theta],s Sin[theta],Cos[time] Cos[n theta] BesselJ[n,s nthzero]},{s,0,1},{theta,0,2 π},PlotRange->1,Mesh->mesh,Boxed->True,Axes->False,SphericalRegion->True,ImageSize->{375,375}]],
{{mesh,True,"show mesh"},{False,True},ControlType->Checkbox},
{{n,0,"order n"},0,5,1,RadioButton},
{{kthroot,1,"(k^th) zero"},1,4,1,RadioButton},
{{time,0,"time"},0, 2 Pi}
]