"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "GENERATED/PDL/GSL/RNG.pm" between
PDL-2.079.tar.gz and PDL-2.080.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

RNG.pm  (PDL-2.079):RNG.pm  (PDL-2.080)
skipping to change at line 1359 skipping to change at line 1359
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
gsl_get_int_meat($p,$n,$$obj); gsl_get_int_meat($p,$n,$$obj);
return $p; return $p;
} }
} }
#line 1384 "RNG.pm" #line 1384 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*gsl_get_uniform_meat = \&PDL::GSL::RNG::gsl_get_uniform_meat; *gsl_get_uniform_meat = \&PDL::GSL::RNG::gsl_get_uniform_meat;
#line 1391 "RNG.pm" #line 1391 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*gsl_get_uniform_pos_meat = \&PDL::GSL::RNG::gsl_get_uniform_pos_meat; *gsl_get_uniform_pos_meat = \&PDL::GSL::RNG::gsl_get_uniform_pos_meat;
#line 1398 "RNG.pm" #line 1398 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*gsl_get_meat = \&PDL::GSL::RNG::gsl_get_meat; *gsl_get_meat = \&PDL::GSL::RNG::gsl_get_meat;
#line 1405 "RNG.pm" #line 1405 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*gsl_get_int_meat = \&PDL::GSL::RNG::gsl_get_int_meat; *gsl_get_int_meat = \&PDL::GSL::RNG::gsl_get_int_meat;
#line 1412 "RNG.pm" #line 1412 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_gaussian_meat = \&PDL::GSL::RNG::ran_gaussian_meat; *ran_gaussian_meat = \&PDL::GSL::RNG::ran_gaussian_meat;
#line 1419 "RNG.pm" #line 1419 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_gaussian { sub ran_gaussian {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_gaussian_meat($var[0],$a,$$obj); ran_gaussian_meat($var[0],$a,$$obj);
skipping to change at line 1402 skipping to change at line 1402
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_gaussian_meat($p,$a,$$obj); ran_gaussian_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 1440 "RNG.pm" #line 1440 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_gaussian_var_meat = \&PDL::GSL::RNG::ran_gaussian_var_meat; *ran_gaussian_var_meat = \&PDL::GSL::RNG::ran_gaussian_var_meat;
#line 1447 "RNG.pm" #line 1447 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_gaussian_var { sub ran_gaussian_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_gaussian_var_meat(@var,$$obj); return ran_gaussian_var_meat(@var,$$obj);
} }
#line 1459 "RNG.pm" #line 1459 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_ugaussian_tail_meat = \&PDL::GSL::RNG::ran_ugaussian_tail_meat; *ran_ugaussian_tail_meat = \&PDL::GSL::RNG::ran_ugaussian_tail_meat;
#line 1466 "RNG.pm" #line 1466 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_ugaussian_tail { sub ran_ugaussian_tail {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_ugaussian_tail_meat($var[0],$a,$$obj); ran_ugaussian_tail_meat($var[0],$a,$$obj);
skipping to change at line 1439 skipping to change at line 1439
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_ugaussian_tail_meat($p,$a,$$obj); ran_ugaussian_tail_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 1487 "RNG.pm" #line 1487 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_ugaussian_tail_var_meat = \&PDL::GSL::RNG::ran_ugaussian_tail_var_meat; *ran_ugaussian_tail_var_meat = \&PDL::GSL::RNG::ran_ugaussian_tail_var_meat;
#line 1494 "RNG.pm" #line 1494 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_ugaussian_tail_var { sub ran_ugaussian_tail_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_ugaussian_tail_var_meat(@var,$$obj); return ran_ugaussian_tail_var_meat(@var,$$obj);
} }
#line 1506 "RNG.pm" #line 1506 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_exponential_meat = \&PDL::GSL::RNG::ran_exponential_meat; *ran_exponential_meat = \&PDL::GSL::RNG::ran_exponential_meat;
#line 1513 "RNG.pm" #line 1513 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_exponential { sub ran_exponential {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_exponential_meat($var[0],$a,$$obj); ran_exponential_meat($var[0],$a,$$obj);
skipping to change at line 1476 skipping to change at line 1476
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_exponential_meat($p,$a,$$obj); ran_exponential_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 1534 "RNG.pm" #line 1534 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_exponential_var_meat = \&PDL::GSL::RNG::ran_exponential_var_meat; *ran_exponential_var_meat = \&PDL::GSL::RNG::ran_exponential_var_meat;
#line 1541 "RNG.pm" #line 1541 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_exponential_var { sub ran_exponential_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_exponential_var_meat(@var,$$obj); return ran_exponential_var_meat(@var,$$obj);
} }
#line 1553 "RNG.pm" #line 1553 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_laplace_meat = \&PDL::GSL::RNG::ran_laplace_meat; *ran_laplace_meat = \&PDL::GSL::RNG::ran_laplace_meat;
#line 1560 "RNG.pm" #line 1560 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_laplace { sub ran_laplace {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_laplace_meat($var[0],$a,$$obj); ran_laplace_meat($var[0],$a,$$obj);
skipping to change at line 1513 skipping to change at line 1513
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_laplace_meat($p,$a,$$obj); ran_laplace_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 1581 "RNG.pm" #line 1581 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_laplace_var_meat = \&PDL::GSL::RNG::ran_laplace_var_meat; *ran_laplace_var_meat = \&PDL::GSL::RNG::ran_laplace_var_meat;
#line 1588 "RNG.pm" #line 1588 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_laplace_var { sub ran_laplace_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_laplace_var_meat(@var,$$obj); return ran_laplace_var_meat(@var,$$obj);
} }
#line 1600 "RNG.pm" #line 1600 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_exppow_meat = \&PDL::GSL::RNG::ran_exppow_meat; *ran_exppow_meat = \&PDL::GSL::RNG::ran_exppow_meat;
#line 1607 "RNG.pm" #line 1607 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_exppow { sub ran_exppow {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_exppow_meat($var[0],$a,$b,$$obj); ran_exppow_meat($var[0],$a,$b,$$obj);
skipping to change at line 1550 skipping to change at line 1550
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_exppow_meat($p,$a,$b,$$obj); ran_exppow_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 1628 "RNG.pm" #line 1628 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_exppow_var_meat = \&PDL::GSL::RNG::ran_exppow_var_meat; *ran_exppow_var_meat = \&PDL::GSL::RNG::ran_exppow_var_meat;
#line 1635 "RNG.pm" #line 1635 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_exppow_var { sub ran_exppow_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_exppow_var_meat(@var,$$obj); return ran_exppow_var_meat(@var,$$obj);
} }
#line 1647 "RNG.pm" #line 1647 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_cauchy_meat = \&PDL::GSL::RNG::ran_cauchy_meat; *ran_cauchy_meat = \&PDL::GSL::RNG::ran_cauchy_meat;
#line 1654 "RNG.pm" #line 1654 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_cauchy { sub ran_cauchy {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_cauchy_meat($var[0],$a,$$obj); ran_cauchy_meat($var[0],$a,$$obj);
skipping to change at line 1587 skipping to change at line 1587
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_cauchy_meat($p,$a,$$obj); ran_cauchy_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 1675 "RNG.pm" #line 1675 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_cauchy_var_meat = \&PDL::GSL::RNG::ran_cauchy_var_meat; *ran_cauchy_var_meat = \&PDL::GSL::RNG::ran_cauchy_var_meat;
#line 1682 "RNG.pm" #line 1682 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_cauchy_var { sub ran_cauchy_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_cauchy_var_meat(@var,$$obj); return ran_cauchy_var_meat(@var,$$obj);
} }
#line 1694 "RNG.pm" #line 1694 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_rayleigh_meat = \&PDL::GSL::RNG::ran_rayleigh_meat; *ran_rayleigh_meat = \&PDL::GSL::RNG::ran_rayleigh_meat;
#line 1701 "RNG.pm" #line 1701 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_rayleigh { sub ran_rayleigh {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_rayleigh_meat($var[0],$a,$$obj); ran_rayleigh_meat($var[0],$a,$$obj);
skipping to change at line 1624 skipping to change at line 1624
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_rayleigh_meat($p,$a,$$obj); ran_rayleigh_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 1722 "RNG.pm" #line 1722 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_rayleigh_var_meat = \&PDL::GSL::RNG::ran_rayleigh_var_meat; *ran_rayleigh_var_meat = \&PDL::GSL::RNG::ran_rayleigh_var_meat;
#line 1729 "RNG.pm" #line 1729 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_rayleigh_var { sub ran_rayleigh_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_rayleigh_var_meat(@var,$$obj); return ran_rayleigh_var_meat(@var,$$obj);
} }
#line 1741 "RNG.pm" #line 1741 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_rayleigh_tail_meat = \&PDL::GSL::RNG::ran_rayleigh_tail_meat; *ran_rayleigh_tail_meat = \&PDL::GSL::RNG::ran_rayleigh_tail_meat;
#line 1748 "RNG.pm" #line 1748 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_rayleigh_tail { sub ran_rayleigh_tail {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_rayleigh_tail_meat($var[0],$a,$b,$$obj); ran_rayleigh_tail_meat($var[0],$a,$b,$$obj);
skipping to change at line 1661 skipping to change at line 1661
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_rayleigh_tail_meat($p,$a,$b,$$obj); ran_rayleigh_tail_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 1769 "RNG.pm" #line 1769 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_rayleigh_tail_var_meat = \&PDL::GSL::RNG::ran_rayleigh_tail_var_meat; *ran_rayleigh_tail_var_meat = \&PDL::GSL::RNG::ran_rayleigh_tail_var_meat;
#line 1776 "RNG.pm" #line 1776 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_rayleigh_tail_var { sub ran_rayleigh_tail_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_rayleigh_tail_var_meat(@var,$$obj); return ran_rayleigh_tail_var_meat(@var,$$obj);
} }
#line 1788 "RNG.pm" #line 1788 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_levy_meat = \&PDL::GSL::RNG::ran_levy_meat; *ran_levy_meat = \&PDL::GSL::RNG::ran_levy_meat;
#line 1795 "RNG.pm" #line 1795 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_levy { sub ran_levy {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_levy_meat($var[0],$a,$b,$$obj); ran_levy_meat($var[0],$a,$b,$$obj);
skipping to change at line 1698 skipping to change at line 1698
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_levy_meat($p,$a,$b,$$obj); ran_levy_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 1816 "RNG.pm" #line 1816 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_levy_var_meat = \&PDL::GSL::RNG::ran_levy_var_meat; *ran_levy_var_meat = \&PDL::GSL::RNG::ran_levy_var_meat;
#line 1823 "RNG.pm" #line 1823 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_levy_var { sub ran_levy_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_levy_var_meat(@var,$$obj); return ran_levy_var_meat(@var,$$obj);
} }
#line 1835 "RNG.pm" #line 1835 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_gamma_meat = \&PDL::GSL::RNG::ran_gamma_meat; *ran_gamma_meat = \&PDL::GSL::RNG::ran_gamma_meat;
#line 1842 "RNG.pm" #line 1842 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_gamma { sub ran_gamma {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_gamma_meat($var[0],$a,$b,$$obj); ran_gamma_meat($var[0],$a,$b,$$obj);
skipping to change at line 1735 skipping to change at line 1735
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_gamma_meat($p,$a,$b,$$obj); ran_gamma_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 1863 "RNG.pm" #line 1863 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_gamma_var_meat = \&PDL::GSL::RNG::ran_gamma_var_meat; *ran_gamma_var_meat = \&PDL::GSL::RNG::ran_gamma_var_meat;
#line 1870 "RNG.pm" #line 1870 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_gamma_var { sub ran_gamma_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_gamma_var_meat(@var,$$obj); return ran_gamma_var_meat(@var,$$obj);
} }
#line 1882 "RNG.pm" #line 1882 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_flat_meat = \&PDL::GSL::RNG::ran_flat_meat; *ran_flat_meat = \&PDL::GSL::RNG::ran_flat_meat;
#line 1889 "RNG.pm" #line 1889 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_flat { sub ran_flat {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_flat_meat($var[0],$a,$b,$$obj); ran_flat_meat($var[0],$a,$b,$$obj);
skipping to change at line 1772 skipping to change at line 1772
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_flat_meat($p,$a,$b,$$obj); ran_flat_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 1910 "RNG.pm" #line 1910 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_flat_var_meat = \&PDL::GSL::RNG::ran_flat_var_meat; *ran_flat_var_meat = \&PDL::GSL::RNG::ran_flat_var_meat;
#line 1917 "RNG.pm" #line 1917 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_flat_var { sub ran_flat_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_flat_var_meat(@var,$$obj); return ran_flat_var_meat(@var,$$obj);
} }
#line 1929 "RNG.pm" #line 1929 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_lognormal_meat = \&PDL::GSL::RNG::ran_lognormal_meat; *ran_lognormal_meat = \&PDL::GSL::RNG::ran_lognormal_meat;
#line 1936 "RNG.pm" #line 1936 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_lognormal { sub ran_lognormal {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_lognormal_meat($var[0],$a,$b,$$obj); ran_lognormal_meat($var[0],$a,$b,$$obj);
skipping to change at line 1809 skipping to change at line 1809
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_lognormal_meat($p,$a,$b,$$obj); ran_lognormal_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 1957 "RNG.pm" #line 1957 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_lognormal_var_meat = \&PDL::GSL::RNG::ran_lognormal_var_meat; *ran_lognormal_var_meat = \&PDL::GSL::RNG::ran_lognormal_var_meat;
#line 1964 "RNG.pm" #line 1964 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_lognormal_var { sub ran_lognormal_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_lognormal_var_meat(@var,$$obj); return ran_lognormal_var_meat(@var,$$obj);
} }
#line 1976 "RNG.pm" #line 1976 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_chisq_meat = \&PDL::GSL::RNG::ran_chisq_meat; *ran_chisq_meat = \&PDL::GSL::RNG::ran_chisq_meat;
#line 1983 "RNG.pm" #line 1983 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_chisq { sub ran_chisq {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_chisq_meat($var[0],$a,$$obj); ran_chisq_meat($var[0],$a,$$obj);
skipping to change at line 1846 skipping to change at line 1846
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_chisq_meat($p,$a,$$obj); ran_chisq_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 2004 "RNG.pm" #line 2004 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_chisq_var_meat = \&PDL::GSL::RNG::ran_chisq_var_meat; *ran_chisq_var_meat = \&PDL::GSL::RNG::ran_chisq_var_meat;
#line 2011 "RNG.pm" #line 2011 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_chisq_var { sub ran_chisq_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_chisq_var_meat(@var,$$obj); return ran_chisq_var_meat(@var,$$obj);
} }
#line 2023 "RNG.pm" #line 2023 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_fdist_meat = \&PDL::GSL::RNG::ran_fdist_meat; *ran_fdist_meat = \&PDL::GSL::RNG::ran_fdist_meat;
#line 2030 "RNG.pm" #line 2030 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_fdist { sub ran_fdist {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_fdist_meat($var[0],$a,$b,$$obj); ran_fdist_meat($var[0],$a,$b,$$obj);
skipping to change at line 1883 skipping to change at line 1883
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_fdist_meat($p,$a,$b,$$obj); ran_fdist_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 2051 "RNG.pm" #line 2051 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_fdist_var_meat = \&PDL::GSL::RNG::ran_fdist_var_meat; *ran_fdist_var_meat = \&PDL::GSL::RNG::ran_fdist_var_meat;
#line 2058 "RNG.pm" #line 2058 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_fdist_var { sub ran_fdist_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_fdist_var_meat(@var,$$obj); return ran_fdist_var_meat(@var,$$obj);
} }
#line 2070 "RNG.pm" #line 2070 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_tdist_meat = \&PDL::GSL::RNG::ran_tdist_meat; *ran_tdist_meat = \&PDL::GSL::RNG::ran_tdist_meat;
#line 2077 "RNG.pm" #line 2077 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_tdist { sub ran_tdist {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_tdist_meat($var[0],$a,$$obj); ran_tdist_meat($var[0],$a,$$obj);
skipping to change at line 1920 skipping to change at line 1920
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_tdist_meat($p,$a,$$obj); ran_tdist_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 2098 "RNG.pm" #line 2098 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_tdist_var_meat = \&PDL::GSL::RNG::ran_tdist_var_meat; *ran_tdist_var_meat = \&PDL::GSL::RNG::ran_tdist_var_meat;
#line 2105 "RNG.pm" #line 2105 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_tdist_var { sub ran_tdist_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_tdist_var_meat(@var,$$obj); return ran_tdist_var_meat(@var,$$obj);
} }
#line 2117 "RNG.pm" #line 2117 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_beta_meat = \&PDL::GSL::RNG::ran_beta_meat; *ran_beta_meat = \&PDL::GSL::RNG::ran_beta_meat;
#line 2124 "RNG.pm" #line 2124 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_beta { sub ran_beta {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_beta_meat($var[0],$a,$b,$$obj); ran_beta_meat($var[0],$a,$b,$$obj);
skipping to change at line 1957 skipping to change at line 1957
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_beta_meat($p,$a,$b,$$obj); ran_beta_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 2145 "RNG.pm" #line 2145 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_beta_var_meat = \&PDL::GSL::RNG::ran_beta_var_meat; *ran_beta_var_meat = \&PDL::GSL::RNG::ran_beta_var_meat;
#line 2152 "RNG.pm" #line 2152 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_beta_var { sub ran_beta_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_beta_var_meat(@var,$$obj); return ran_beta_var_meat(@var,$$obj);
} }
#line 2164 "RNG.pm" #line 2164 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_logistic_meat = \&PDL::GSL::RNG::ran_logistic_meat; *ran_logistic_meat = \&PDL::GSL::RNG::ran_logistic_meat;
#line 2171 "RNG.pm" #line 2171 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_logistic { sub ran_logistic {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_logistic_meat($var[0],$a,$$obj); ran_logistic_meat($var[0],$a,$$obj);
skipping to change at line 1994 skipping to change at line 1994
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_logistic_meat($p,$a,$$obj); ran_logistic_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 2192 "RNG.pm" #line 2192 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_logistic_var_meat = \&PDL::GSL::RNG::ran_logistic_var_meat; *ran_logistic_var_meat = \&PDL::GSL::RNG::ran_logistic_var_meat;
#line 2199 "RNG.pm" #line 2199 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_logistic_var { sub ran_logistic_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_logistic_var_meat(@var,$$obj); return ran_logistic_var_meat(@var,$$obj);
} }
#line 2211 "RNG.pm" #line 2211 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_pareto_meat = \&PDL::GSL::RNG::ran_pareto_meat; *ran_pareto_meat = \&PDL::GSL::RNG::ran_pareto_meat;
#line 2218 "RNG.pm" #line 2218 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_pareto { sub ran_pareto {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_pareto_meat($var[0],$a,$b,$$obj); ran_pareto_meat($var[0],$a,$b,$$obj);
skipping to change at line 2031 skipping to change at line 2031
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_pareto_meat($p,$a,$b,$$obj); ran_pareto_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 2239 "RNG.pm" #line 2239 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_pareto_var_meat = \&PDL::GSL::RNG::ran_pareto_var_meat; *ran_pareto_var_meat = \&PDL::GSL::RNG::ran_pareto_var_meat;
#line 2246 "RNG.pm" #line 2246 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_pareto_var { sub ran_pareto_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_pareto_var_meat(@var,$$obj); return ran_pareto_var_meat(@var,$$obj);
} }
#line 2258 "RNG.pm" #line 2258 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_weibull_meat = \&PDL::GSL::RNG::ran_weibull_meat; *ran_weibull_meat = \&PDL::GSL::RNG::ran_weibull_meat;
#line 2265 "RNG.pm" #line 2265 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_weibull { sub ran_weibull {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_weibull_meat($var[0],$a,$b,$$obj); ran_weibull_meat($var[0],$a,$b,$$obj);
skipping to change at line 2068 skipping to change at line 2068
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_weibull_meat($p,$a,$b,$$obj); ran_weibull_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 2286 "RNG.pm" #line 2286 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_weibull_var_meat = \&PDL::GSL::RNG::ran_weibull_var_meat; *ran_weibull_var_meat = \&PDL::GSL::RNG::ran_weibull_var_meat;
#line 2293 "RNG.pm" #line 2293 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_weibull_var { sub ran_weibull_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_weibull_var_meat(@var,$$obj); return ran_weibull_var_meat(@var,$$obj);
} }
#line 2305 "RNG.pm" #line 2305 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_gumbel1_meat = \&PDL::GSL::RNG::ran_gumbel1_meat; *ran_gumbel1_meat = \&PDL::GSL::RNG::ran_gumbel1_meat;
#line 2312 "RNG.pm" #line 2312 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_gumbel1 { sub ran_gumbel1 {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_gumbel1_meat($var[0],$a,$b,$$obj); ran_gumbel1_meat($var[0],$a,$b,$$obj);
skipping to change at line 2105 skipping to change at line 2105
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_gumbel1_meat($p,$a,$b,$$obj); ran_gumbel1_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 2333 "RNG.pm" #line 2333 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_gumbel1_var_meat = \&PDL::GSL::RNG::ran_gumbel1_var_meat; *ran_gumbel1_var_meat = \&PDL::GSL::RNG::ran_gumbel1_var_meat;
#line 2340 "RNG.pm" #line 2340 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_gumbel1_var { sub ran_gumbel1_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_gumbel1_var_meat(@var,$$obj); return ran_gumbel1_var_meat(@var,$$obj);
} }
#line 2352 "RNG.pm" #line 2352 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_gumbel2_meat = \&PDL::GSL::RNG::ran_gumbel2_meat; *ran_gumbel2_meat = \&PDL::GSL::RNG::ran_gumbel2_meat;
#line 2359 "RNG.pm" #line 2359 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_gumbel2 { sub ran_gumbel2 {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_gumbel2_meat($var[0],$a,$b,$$obj); ran_gumbel2_meat($var[0],$a,$b,$$obj);
skipping to change at line 2142 skipping to change at line 2142
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_gumbel2_meat($p,$a,$b,$$obj); ran_gumbel2_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 2380 "RNG.pm" #line 2380 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_gumbel2_var_meat = \&PDL::GSL::RNG::ran_gumbel2_var_meat; *ran_gumbel2_var_meat = \&PDL::GSL::RNG::ran_gumbel2_var_meat;
#line 2387 "RNG.pm" #line 2387 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_gumbel2_var { sub ran_gumbel2_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_gumbel2_var_meat(@var,$$obj); return ran_gumbel2_var_meat(@var,$$obj);
} }
#line 2399 "RNG.pm" #line 2399 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_poisson_meat = \&PDL::GSL::RNG::ran_poisson_meat; *ran_poisson_meat = \&PDL::GSL::RNG::ran_poisson_meat;
#line 2406 "RNG.pm" #line 2406 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_poisson { sub ran_poisson {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_poisson_meat($var[0],$a,$$obj); ran_poisson_meat($var[0],$a,$$obj);
skipping to change at line 2179 skipping to change at line 2179
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_poisson_meat($p,$a,$$obj); ran_poisson_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 2427 "RNG.pm" #line 2427 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_poisson_var_meat = \&PDL::GSL::RNG::ran_poisson_var_meat; *ran_poisson_var_meat = \&PDL::GSL::RNG::ran_poisson_var_meat;
#line 2434 "RNG.pm" #line 2434 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_poisson_var { sub ran_poisson_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_poisson_var_meat(@var,$$obj); return ran_poisson_var_meat(@var,$$obj);
} }
#line 2446 "RNG.pm" #line 2446 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_bernoulli_meat = \&PDL::GSL::RNG::ran_bernoulli_meat; *ran_bernoulli_meat = \&PDL::GSL::RNG::ran_bernoulli_meat;
#line 2453 "RNG.pm" #line 2453 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_bernoulli { sub ran_bernoulli {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_bernoulli_meat($var[0],$a,$$obj); ran_bernoulli_meat($var[0],$a,$$obj);
skipping to change at line 2216 skipping to change at line 2216
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_bernoulli_meat($p,$a,$$obj); ran_bernoulli_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 2474 "RNG.pm" #line 2474 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_bernoulli_var_meat = \&PDL::GSL::RNG::ran_bernoulli_var_meat; *ran_bernoulli_var_meat = \&PDL::GSL::RNG::ran_bernoulli_var_meat;
#line 2481 "RNG.pm" #line 2481 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_bernoulli_var { sub ran_bernoulli_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_bernoulli_var_meat(@var,$$obj); return ran_bernoulli_var_meat(@var,$$obj);
} }
#line 2493 "RNG.pm" #line 2493 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_binomial_meat = \&PDL::GSL::RNG::ran_binomial_meat; *ran_binomial_meat = \&PDL::GSL::RNG::ran_binomial_meat;
#line 2500 "RNG.pm" #line 2500 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_binomial { sub ran_binomial {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_binomial_meat($var[0],$a,$b,$$obj); ran_binomial_meat($var[0],$a,$b,$$obj);
skipping to change at line 2253 skipping to change at line 2253
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_binomial_meat($p,$a,$b,$$obj); ran_binomial_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 2521 "RNG.pm" #line 2521 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_binomial_var_meat = \&PDL::GSL::RNG::ran_binomial_var_meat; *ran_binomial_var_meat = \&PDL::GSL::RNG::ran_binomial_var_meat;
#line 2528 "RNG.pm" #line 2528 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_binomial_var { sub ran_binomial_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_binomial_var_meat(@var,$$obj); return ran_binomial_var_meat(@var,$$obj);
} }
#line 2540 "RNG.pm" #line 2540 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_negative_binomial_meat = \&PDL::GSL::RNG::ran_negative_binomial_meat; *ran_negative_binomial_meat = \&PDL::GSL::RNG::ran_negative_binomial_meat;
#line 2547 "RNG.pm" #line 2547 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_negative_binomial { sub ran_negative_binomial {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_negative_binomial_meat($var[0],$a,$b,$$obj); ran_negative_binomial_meat($var[0],$a,$b,$$obj);
skipping to change at line 2290 skipping to change at line 2290
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_negative_binomial_meat($p,$a,$b,$$obj); ran_negative_binomial_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 2568 "RNG.pm" #line 2568 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_negative_binomial_var_meat = \&PDL::GSL::RNG::ran_negative_binomial_var_mea t; *ran_negative_binomial_var_meat = \&PDL::GSL::RNG::ran_negative_binomial_var_mea t;
#line 2575 "RNG.pm" #line 2575 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_negative_binomial_var { sub ran_negative_binomial_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_negative_binomial_var_meat(@var,$$obj); return ran_negative_binomial_var_meat(@var,$$obj);
} }
#line 2587 "RNG.pm" #line 2587 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_pascal_meat = \&PDL::GSL::RNG::ran_pascal_meat; *ran_pascal_meat = \&PDL::GSL::RNG::ran_pascal_meat;
#line 2594 "RNG.pm" #line 2594 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_pascal { sub ran_pascal {
my ($obj,$a,$b,@var) = @_; my ($obj,$a,$b,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_pascal_meat($var[0],$a,$b,$$obj); ran_pascal_meat($var[0],$a,$b,$$obj);
skipping to change at line 2327 skipping to change at line 2327
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_pascal_meat($p,$a,$b,$$obj); ran_pascal_meat($p,$a,$b,$$obj);
return $p; return $p;
} }
} }
#line 2615 "RNG.pm" #line 2615 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_pascal_var_meat = \&PDL::GSL::RNG::ran_pascal_var_meat; *ran_pascal_var_meat = \&PDL::GSL::RNG::ran_pascal_var_meat;
#line 2622 "RNG.pm" #line 2622 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_pascal_var { sub ran_pascal_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 2) {barf("Bad number of parameters!");} if (scalar(@var) != 2) {barf("Bad number of parameters!");}
return ran_pascal_var_meat(@var,$$obj); return ran_pascal_var_meat(@var,$$obj);
} }
#line 2634 "RNG.pm" #line 2634 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_geometric_meat = \&PDL::GSL::RNG::ran_geometric_meat; *ran_geometric_meat = \&PDL::GSL::RNG::ran_geometric_meat;
#line 2641 "RNG.pm" #line 2641 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_geometric { sub ran_geometric {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_geometric_meat($var[0],$a,$$obj); ran_geometric_meat($var[0],$a,$$obj);
skipping to change at line 2364 skipping to change at line 2364
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_geometric_meat($p,$a,$$obj); ran_geometric_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 2662 "RNG.pm" #line 2662 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_geometric_var_meat = \&PDL::GSL::RNG::ran_geometric_var_meat; *ran_geometric_var_meat = \&PDL::GSL::RNG::ran_geometric_var_meat;
#line 2669 "RNG.pm" #line 2669 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_geometric_var { sub ran_geometric_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_geometric_var_meat(@var,$$obj); return ran_geometric_var_meat(@var,$$obj);
} }
#line 2681 "RNG.pm" #line 2681 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_hypergeometric_meat = \&PDL::GSL::RNG::ran_hypergeometric_meat; *ran_hypergeometric_meat = \&PDL::GSL::RNG::ran_hypergeometric_meat;
#line 2688 "RNG.pm" #line 2688 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_hypergeometric { sub ran_hypergeometric {
my ($obj,$a,$b,$c,@var) = @_; my ($obj,$a,$b,$c,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_hypergeometric_meat($var[0],$a,$b,$c,$$obj); ran_hypergeometric_meat($var[0],$a,$b,$c,$$obj);
skipping to change at line 2401 skipping to change at line 2401
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_hypergeometric_meat($p,$a,$b,$c,$$obj); ran_hypergeometric_meat($p,$a,$b,$c,$$obj);
return $p; return $p;
} }
} }
#line 2709 "RNG.pm" #line 2709 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_hypergeometric_var_meat = \&PDL::GSL::RNG::ran_hypergeometric_var_meat; *ran_hypergeometric_var_meat = \&PDL::GSL::RNG::ran_hypergeometric_var_meat;
#line 2716 "RNG.pm" #line 2716 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_hypergeometric_var { sub ran_hypergeometric_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 3) {barf("Bad number of parameters!");} if (scalar(@var) != 3) {barf("Bad number of parameters!");}
return ran_hypergeometric_var_meat(@var,$$obj); return ran_hypergeometric_var_meat(@var,$$obj);
} }
#line 2728 "RNG.pm" #line 2728 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_logarithmic_meat = \&PDL::GSL::RNG::ran_logarithmic_meat; *ran_logarithmic_meat = \&PDL::GSL::RNG::ran_logarithmic_meat;
#line 2735 "RNG.pm" #line 2735 "RNG.pm"
#line 1407 "gsl_random.pd" #line 1407 "gsl_random.pd"
sub ran_logarithmic { sub ran_logarithmic {
my ($obj,$a,@var) = @_; my ($obj,$a,@var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_logarithmic_meat($var[0],$a,$$obj); ran_logarithmic_meat($var[0],$a,$$obj);
skipping to change at line 2438 skipping to change at line 2438
else { else {
my $p; my $p;
$p = zeroes @var; $p = zeroes @var;
ran_logarithmic_meat($p,$a,$$obj); ran_logarithmic_meat($p,$a,$$obj);
return $p; return $p;
} }
} }
#line 2756 "RNG.pm" #line 2756 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_logarithmic_var_meat = \&PDL::GSL::RNG::ran_logarithmic_var_meat; *ran_logarithmic_var_meat = \&PDL::GSL::RNG::ran_logarithmic_var_meat;
#line 2763 "RNG.pm" #line 2763 "RNG.pm"
#line 1431 "gsl_random.pd" #line 1431 "gsl_random.pd"
sub ran_logarithmic_var { sub ran_logarithmic_var {
my ($obj,@var) = @_; my ($obj,@var) = @_;
if (scalar(@var) != 1) {barf("Bad number of parameters!");} if (scalar(@var) != 1) {barf("Bad number of parameters!");}
return ran_logarithmic_var_meat(@var,$$obj); return ran_logarithmic_var_meat(@var,$$obj);
} }
#line 2775 "RNG.pm" #line 2775 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_additive_gaussian_meat = \&PDL::GSL::RNG::ran_additive_gaussian_meat; *ran_additive_gaussian_meat = \&PDL::GSL::RNG::ran_additive_gaussian_meat;
#line 2782 "RNG.pm" #line 2782 "RNG.pm"
#line 1521 "gsl_random.pd" #line 1521 "gsl_random.pd"
sub ran_additive_gaussian { sub ran_additive_gaussian {
my ($obj,$sigma,$var) = @_; my ($obj,$sigma,$var) = @_;
barf("In additive gaussian mode you must specify an ndarray!") barf("In additive gaussian mode you must specify an ndarray!")
if ref($var) ne 'PDL'; if ref($var) ne 'PDL';
ran_additive_gaussian_meat($var,$sigma,$$obj); ran_additive_gaussian_meat($var,$sigma,$$obj);
return $var; return $var;
} }
#line 2797 "RNG.pm" #line 2797 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_additive_poisson_meat = \&PDL::GSL::RNG::ran_additive_poisson_meat; *ran_additive_poisson_meat = \&PDL::GSL::RNG::ran_additive_poisson_meat;
#line 2804 "RNG.pm" #line 2804 "RNG.pm"
#line 1537 "gsl_random.pd" #line 1537 "gsl_random.pd"
sub ran_additive_poisson { sub ran_additive_poisson {
my ($obj,$sigma,$var) = @_; my ($obj,$sigma,$var) = @_;
barf("In additive poisson mode you must specify an ndarray!") barf("In additive poisson mode you must specify an ndarray!")
if ref($var) ne 'PDL'; if ref($var) ne 'PDL';
ran_additive_poisson_meat($var,$sigma,$$obj); ran_additive_poisson_meat($var,$sigma,$$obj);
return $var; return $var;
} }
#line 2819 "RNG.pm" #line 2819 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_feed_poisson_meat = \&PDL::GSL::RNG::ran_feed_poisson_meat; *ran_feed_poisson_meat = \&PDL::GSL::RNG::ran_feed_poisson_meat;
#line 2826 "RNG.pm" #line 2826 "RNG.pm"
#line 1553 "gsl_random.pd" #line 1553 "gsl_random.pd"
sub ran_feed_poisson { sub ran_feed_poisson {
my ($obj,$var) = @_; my ($obj,$var) = @_;
barf("In poisson mode you must specify an ndarray!") barf("In poisson mode you must specify an ndarray!")
if ref($var) ne 'PDL'; if ref($var) ne 'PDL';
ran_feed_poisson_meat($var,$$obj); ran_feed_poisson_meat($var,$$obj);
return $var; return $var;
} }
#line 2841 "RNG.pm" #line 2841 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_bivariate_gaussian_meat = \&PDL::GSL::RNG::ran_bivariate_gaussian_meat; *ran_bivariate_gaussian_meat = \&PDL::GSL::RNG::ran_bivariate_gaussian_meat;
#line 2848 "RNG.pm" #line 2848 "RNG.pm"
#line 1574 "gsl_random.pd" #line 1574 "gsl_random.pd"
sub ran_bivariate_gaussian { sub ran_bivariate_gaussian {
my ($obj,$sigma_x,$sigma_y,$rho,$n) = @_; my ($obj,$sigma_x,$sigma_y,$rho,$n) = @_;
barf("Not enough parameters for gaussian bivariate!") if $n<=0; barf("Not enough parameters for gaussian bivariate!") if $n<=0;
my $p = zeroes(2,$n); my $p = zeroes(2,$n);
ran_bivariate_gaussian_meat($p,$sigma_x,$sigma_y,$rho,$$obj); ran_bivariate_gaussian_meat($p,$sigma_x,$sigma_y,$rho,$$obj);
return $p; return $p;
} }
#line 2863 "RNG.pm" #line 2863 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_dir_2d_meat = \&PDL::GSL::RNG::ran_dir_2d_meat; *ran_dir_2d_meat = \&PDL::GSL::RNG::ran_dir_2d_meat;
#line 2870 "RNG.pm" #line 2870 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_dir_3d_meat = \&PDL::GSL::RNG::ran_dir_3d_meat; *ran_dir_3d_meat = \&PDL::GSL::RNG::ran_dir_3d_meat;
#line 2877 "RNG.pm" #line 2877 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_dir_nd_meat = \&PDL::GSL::RNG::ran_dir_nd_meat; *ran_dir_nd_meat = \&PDL::GSL::RNG::ran_dir_nd_meat;
#line 2884 "RNG.pm" #line 2884 "RNG.pm"
#line 1618 "gsl_random.pd" #line 1618 "gsl_random.pd"
sub ran_dir { sub ran_dir {
my ($obj,$ndim,$n) = @_; my ($obj,$ndim,$n) = @_;
barf("Not enough parameters for random vectors!") if $n<=0; barf("Not enough parameters for random vectors!") if $n<=0;
my $p = zeroes($ndim,$n); my $p = zeroes($ndim,$n);
if ($ndim==2) { ran_dir_2d_meat($p,$$obj); } if ($ndim==2) { ran_dir_2d_meat($p,$$obj); }
elsif ($ndim==3) { ran_dir_3d_meat($p,$$obj); } elsif ($ndim==3) { ran_dir_3d_meat($p,$$obj); }
elsif ($ndim>=4 && $ndim<=100) { ran_dir_nd_meat($p,$ndim,$$obj); } elsif ($ndim>=4 && $ndim<=100) { ran_dir_nd_meat($p,$ndim,$$obj); }
else { barf("Bad number of dimensions!"); } else { barf("Bad number of dimensions!"); }
return $p; return $p;
} }
#line 2902 "RNG.pm" #line 2902 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_discrete_meat = \&PDL::GSL::RNG::ran_discrete_meat; *ran_discrete_meat = \&PDL::GSL::RNG::ran_discrete_meat;
#line 2909 "RNG.pm" #line 2909 "RNG.pm"
#line 1638 "gsl_random.pd" #line 1638 "gsl_random.pd"
sub ran_discrete { sub ran_discrete {
my ($obj, $rdt, @var) = @_; my ($obj, $rdt, @var) = @_;
if (ref($var[0]) eq 'PDL') { if (ref($var[0]) eq 'PDL') {
ran_discrete_meat($var[0], $$rdt, $$obj); ran_discrete_meat($var[0], $$rdt, $$obj);
skipping to change at line 2604 skipping to change at line 2604
$pin = long [0..$#in]; $pin = long [0..$#in];
$pout = long [0..($nout-1)]; $pout = long [0..($nout-1)];
$obj->ran_choose($pin,$pout); $obj->ran_choose($pin,$pout);
for($i=0;$i<$nout;$i++) { for($i=0;$i<$nout;$i++) {
$out[$i]=$in[$pout->at($i)]; $out[$i]=$in[$pout->at($i)];
} }
return @out; return @out;
} }
#line 2967 "RNG.pm" #line 2967 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_ver_meat = \&PDL::GSL::RNG::ran_ver_meat; *ran_ver_meat = \&PDL::GSL::RNG::ran_ver_meat;
#line 2974 "RNG.pm" #line 2974 "RNG.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm" #line 950 "../../../blib/lib/PDL/PP.pm"
*ran_caos_meat = \&PDL::GSL::RNG::ran_caos_meat; *ran_caos_meat = \&PDL::GSL::RNG::ran_caos_meat;
#line 2981 "RNG.pm" #line 2981 "RNG.pm"
#line 1703 "gsl_random.pd" #line 1703 "gsl_random.pd"
sub ran_ver { sub ran_ver {
my ($obj,$x0,$r,$n) = @_; my ($obj,$x0,$r,$n) = @_;
barf("Not enough parameters for ran_ver!") if $n<=0; barf("Not enough parameters for ran_ver!") if $n<=0;
my $p = zeroes($n); my $p = zeroes($n);
 End of changes. 72 change blocks. 
72 lines changed or deleted 72 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)