The script for the paper Uniform enclosures for the phase and zeros of Bessel functions and their derivatives (with Nikolay Filonov, Iosif Polterovich, and David A Sher)

 

The Mathematica script and its printout