This program can be used to calculate the power radiated by an oriented dipole in a specified layer-stack environment. These calculations can be used to model the local density of optical states (LDOS) that modifies the decay rate of optical transitions in a photonic environment. By resolving the differential power radiation into a spectrum of emission wavevectors, it is also possible to map the dispersion of modes supported by the layer stack while changing wavelength or geometry and to study the coupling between dipole emitters and these modes.
The source code (written in Delphi Pascal) is licensed under a Creative Commons Attribution-Share Alike 3.0 Netherlands License.
Numerical integration is performed using the ALGLIB library.