Mathematica scattering code for solid dielectric sphere, a conducting sphere, a thin spherical shell, a coated sphere by Sergio Aragon and Chris Zimmer.

• Link