Below is a Mathematica module that solves the Riemann problem in the MHD case. Unlike the Riemann solver, which solves the solution in real time, here I calculated a grid of solutions and use interpolation for a fluid user interface experience. This does limit the user input a bit, but the user can modify the density, velocity, and transverse magnetic field of the left state, in addition to modifying the magnetic field across the shock (B_x) and the relative angle between the transverse magnetic fields (Psi) in the initial conditions. The adiabatic index is fixed at 5/3. The different shocks are color coded and labeled in the "key:" subplot. The evolution of the density, velocities, and magnetic field are plotted. In addition, the final subplot shows the rotation of the transverse magnetic field due to the shock, as one looks at the shock along the x-axis.