?SphericalBesselJ

Plot[Evaluate[Table[SphericalBesselJ[l,x],{l,0,4}]],{x,0,10}]

Plot[Evaluate[Table[Abs[SphericalHankelH1[l,x]],{l,0,4}]],{x,0,10}]

Plot[Evaluate[Table[(SphericalBesselJ[l,x]/Abs[SphericalHankelH1[l,x]])^2,{l,0,4}]],{x,0,10}]

Plot[Table[Sum[(2*l+1)*(SphericalBesselJ[l,x]/Abs[SphericalHankelH1[l,x]])^2,{l,0,L}],{L,0,4}],{x,0,10}]

pw=Table[Sum[(2*l+1)*(SphericalBesselJ[l,x]/Abs[SphericalHankelH1[l,x]])^2,{l,0,L}],{L,0,4}]

Plot[{pw,x^2},{x,0,10},PlotRange->{0,18}]