Help for this page

Select Code to Download

Select or download this

use PDL;
use strict;
...

my $z = sqrt( 1/(0.5 + 0.02*$x**2)*cos($x)
            + 1/(0.5 + 0.02*$y**2)*cos($y) );