The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Photonic::CharacteristicFunctions

VERSION

version 0.010

SYNOPSIS

   use Photonic::CharacteristicFuncions qw(triangle isosceles ellipse)
   my $e=ellipse($N, $ff, $e);
   my $t=triangle($N, $r0, $deltar, $theta0);
   my $i=isosceles($N, $r0, $delta2, $delta3, $theta0);

DESCRIPTION

Provide a few characteristic functions that may be used in Photonic calculations.

EXPORTABLE FUNCTIONS

  • ellipse($N, $ff, $e)

    returns an ellipse in a square lattice of side (2*$N+1)x(2*$N+1) with filling fraction $ff and quotient between Y and X axes $e.

  • triangle($N, $r0, $deltar, $theta0)

    returns a smooth pear shaped triangle in a square lattice of side (2*$N+1)x(2*$N+1) with border r(theta)=$r0+$deltar*cos(3*(theta-$theta0)) in polar coordinates

  • isosceles($N, $r0, $delta2, $delta3, $theta0)

    returns a smooth pear shaped triangle in a square lattice of side (2*$N+1)x(2*$N+1) with border =r(theta)=$r0+$delta2*cos(2*(theta-$theta0))+$delta3*cos(3*(theta-$theta0)) in polar coordinates