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::WE::R2::GreenP; my $green=Photonic::WE::R2::GreepP(haydock=>$h, nh=>$nh); my $greenProjection=$green->evaluate($epsB);
Calculates the macroscopic Green's function projected along some direction. Based on the wave equation for a binary metamaterial, with a non-dissipative host.
new(haydock=>$h, nh=>$nh, smallE=>$smallE)
Initializes the structure.
$h is a Photonic::WE::R2::AllH structure (required).
$nh is the maximum number of Haydock coefficients to use (required).
$smallE is the criteria of convergence (defaults to 1e-7)
Returns the macroscopic projected green'S function for a given complex value of the dielectric functions of the particle $epsB.
The WE::R2::AllH structure
The dielectric functions of component A and component B used in the last calculation.
The spectral variable used in the last calculation
The projected Green's function of the last calculation.
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. 0 means don't check.