Photonic - A perl package for calculations on photonics and metamaterials.
Copyright (C) 1916 by W. Luis Mochán
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA
firstname.lastname@example.org Instituto de Ciencias Físicas, UNAM Apartado Postal 48-3 62251 Cuernavaca, Morelos México
use Photonic::LE::S::EpsL; my $eps=Photonic::LE::S::EpsL->new(nr=>$nr, nh=>$nh); my $epsilonLongitudinal=$eps->epsL;
Calculates the macroscopic longitudinal dielectric function for a given fixed Photonic::LE::S::AllH structure as a function of the dielectric functions of the components.
new(nr=>$nr, nh=>$nh, smallE=>$smallE)
Initializes the structure.
$nr is a Photonic::LE::S::AllH structure (required).
$nh is the maximum number of Haydock coefficients to use (required).
$smallE is the criteria of convergence for the continued fraction (defaults to 1e-7)
The longitudinal macroscopic function.
The NonRetarded::LE::S::AllH structure
The maximum number of Haydock coefficients to use.
The actual number of Haydock coefficients used in the last calculation
Flags that the last calculation converged before using up all coefficients
Criteria of convergence for continued fraction. 0 means don't check.