version 0.012


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

    Instituto de Ciencias Físicas, UNAM
    Apartado Postal 48-3
    62251 Cuernavaca, Morelos


    use Photonic::WE::R2::Metric;
    my $gGG=Photonic::WE::R2::Metric->new(
            geometry=>$geometry, epsilon=>$eps,
            wavenumber => $q, $wavevector=>k);


Calculates the retarded metric tensor g_{GG'}^{ij} for use in the calculation of the retarded Haydock coefficients for the wave equation in a binary medium where the host has no dissipation.


  • new(geometry=>$g, epsilon=>$e, $wavenumber=>$q, $wavevector=>$k);

    Create a new Ph::WE::R2::Metric object with Geometry $g, dielectric function of the host $e, vacuum wavenumber $q=omega/c and wavevector $k. $q and $k are real.

ACCESORS (read only)

  • value

    The actual metric tensor as a complex PDL (d,d,n1,n2..nd) the first and second indices over cartesian indices for 0 to d-1 in d dimensions, the next d indices n1,n2...nd identify the wavevector G.