plot (1/10000) y^2 Besselk(1,y/100)Sin[200 Besselk(0,y/100)], {y,0,1000}