Plot[BesselJ[0, 20 Sqrt[x]], {x, 0, 1}]