Supersonic Flow and Shock Waves, a Manual on the Mathematica by Richard Courant