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
email@example.com Instituto de Ciencias Físicas, UNAM Apartado Postal 48-3 62251 Cuernavaca, Morelos México
use Photonic::Geometry::FromB; my $g=Photonic::Geometry::FromB->new(B=>$pdl); my $B=$g->B; my $G=$g->G;
Creates a geometry object to be used in a Photonic calculation from a characteristic function B. B is a pdl that takes the values 0 for each pixel or voxel within material A and 1 within =material B.
Creates a new Ph::G::FromB object
$pdl is a boolean array with 1's and 0's representing the characteriztic function within the unit cell. Its dimensions must be odd. Its number of dimensions is the dimension of space
$L is the size of the unit cell along the cartesian axes. By default, it is the number of pixels.
The characteristic function as PDL
Unit cell sizes as a B->ndims pdl.