Mathematica code for analytical treatment of surface plasmon single particle scattering by René Petersen.