Still doing numbers

Instead of having Mathematica evaluate a hundred Bessel functions, I’m now including the Bloch equation in the mix. I should still be showing the same plot as on my former post, but let’s do one with another hot mode for variation.