Mathematica code that Shulamit Edelstein wrote to calculate scattering coefficients and optical forces on a spherical magneto-optical particle.