Plot[BesselJ[1, z], {z, 0, 20}]