"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "GENERATED/PDL/Ufunc.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).

Ufunc.pm  (PDL-2.079):Ufunc.pm  (PDL-2.080)
skipping to change at line 757 skipping to change at line 757
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 948 "Ufunc.pm" #line 948 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*average = \&PDL::average; *average = \&PDL::average;
#line 955 "Ufunc.pm" #line 955 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 avgover =head2 avgover
=for ref =for ref
Synonym for average. Synonym for average.
=cut =cut
*PDL::avgover = *avgover = \&PDL::average; *PDL::avgover = *avgover = \&PDL::average;
skipping to change at line 812 skipping to change at line 812
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 1015 "Ufunc.pm" #line 1015 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*caverage = \&PDL::caverage; *caverage = \&PDL::caverage;
#line 1022 "Ufunc.pm" #line 1022 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 cavgover =head2 cavgover
=for ref =for ref
Synonym for caverage. Synonym for caverage.
=cut =cut
*PDL::cavgover = *cavgover = \&PDL::caverage; *PDL::cavgover = *cavgover = \&PDL::caverage;
skipping to change at line 867 skipping to change at line 867
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 1082 "Ufunc.pm" #line 1082 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*daverage = \&PDL::daverage; *daverage = \&PDL::daverage;
#line 1089 "Ufunc.pm" #line 1089 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 davgover =head2 davgover
=for ref =for ref
Synonym for daverage. Synonym for daverage.
=cut =cut
*PDL::davgover = *davgover = \&PDL::daverage; *PDL::davgover = *davgover = \&PDL::daverage;
skipping to change at line 923 skipping to change at line 923
for ways of masking NaNs. for ways of masking NaNs.
=cut =cut
#line 1152 "Ufunc.pm" #line 1152 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*minimum = \&PDL::minimum; *minimum = \&PDL::minimum;
#line 1159 "Ufunc.pm" #line 1159 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 minover =head2 minover
=for ref =for ref
Synonym for minimum. Synonym for minimum.
=cut =cut
*PDL::minover = *minover = \&PDL::minimum; *PDL::minover = *minover = \&PDL::minimum;
skipping to change at line 965 skipping to change at line 965
for ways of masking NaNs. for ways of masking NaNs.
=cut =cut
#line 1203 "Ufunc.pm" #line 1203 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*minimum_ind = \&PDL::minimum_ind; *minimum_ind = \&PDL::minimum_ind;
#line 1210 "Ufunc.pm" #line 1210 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 minover_ind =head2 minover_ind
=for ref =for ref
Synonym for minimum_ind. Synonym for minimum_ind.
=cut =cut
*PDL::minover_ind = *minover_ind = \&PDL::minimum_ind; *PDL::minover_ind = *minover_ind = \&PDL::minimum_ind;
skipping to change at line 1013 skipping to change at line 1013
Note that C<NaNs> are considered to be valid values and will "win" over non-C<Na N>; Note that C<NaNs> are considered to be valid values and will "win" over non-C<Na N>;
see L<isfinite|PDL::Math/isfinite> and L<badmask|PDL::Bad/badmask> see L<isfinite|PDL::Math/isfinite> and L<badmask|PDL::Bad/badmask>
for ways of masking NaNs. for ways of masking NaNs.
=cut =cut
#line 1265 "Ufunc.pm" #line 1265 "Ufunc.pm"
#line 1059 "../../blib/lib/PDL/PP.pm" #line 1059 "../../blib/lib/PDL/PP.pm"
#line 416 "ufunc.pd" #line 409 "ufunc.pd"
sub PDL::minimum_n_ind { sub PDL::minimum_n_ind {
my ($a, $c, $m_size) = @_; my ($a, $c, $m_size) = @_;
$m_size //= ref($c) ? $c->dim(0) : $c; # back-compat with pre-2.077 $m_size //= ref($c) ? $c->dim(0) : $c; # back-compat with pre-2.077
my $set_out = 1; my $set_out = 1;
$set_out = 0, $c = null if !ref $c; $set_out = 0, $c = null if !ref $c;
$c = $c->indx if !$c->isnull; $c = $c->indx if !$c->isnull;
PDL::_minimum_n_ind_int($a, $c, $m_size); PDL::_minimum_n_ind_int($a, $c, $m_size);
$set_out ? $_[1] = $c : $c; $set_out ? $_[1] = $c : $c;
} }
#line 1071 "../../blib/lib/PDL/PP.pm" #line 1071 "../../blib/lib/PDL/PP.pm"
#line 1283 "Ufunc.pm" #line 1283 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*minimum_n_ind = \&PDL::minimum_n_ind; *minimum_n_ind = \&PDL::minimum_n_ind;
#line 1290 "Ufunc.pm" #line 1290 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 minover_n_ind =head2 minover_n_ind
=for ref =for ref
Synonym for minimum_n_ind. Synonym for minimum_n_ind.
=cut =cut
*PDL::minover_n_ind = *minover_n_ind = \&PDL::minimum_n_ind; *PDL::minover_n_ind = *minover_n_ind = \&PDL::minimum_n_ind;
skipping to change at line 1087 skipping to change at line 1087
for ways of masking NaNs. for ways of masking NaNs.
=cut =cut
#line 1353 "Ufunc.pm" #line 1353 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*maximum = \&PDL::maximum; *maximum = \&PDL::maximum;
#line 1360 "Ufunc.pm" #line 1360 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 maxover =head2 maxover
=for ref =for ref
Synonym for maximum. Synonym for maximum.
=cut =cut
*PDL::maxover = *maxover = \&PDL::maximum; *PDL::maxover = *maxover = \&PDL::maximum;
skipping to change at line 1129 skipping to change at line 1129
for ways of masking NaNs. for ways of masking NaNs.
=cut =cut
#line 1404 "Ufunc.pm" #line 1404 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*maximum_ind = \&PDL::maximum_ind; *maximum_ind = \&PDL::maximum_ind;
#line 1411 "Ufunc.pm" #line 1411 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 maxover_ind =head2 maxover_ind
=for ref =for ref
Synonym for maximum_ind. Synonym for maximum_ind.
=cut =cut
*PDL::maxover_ind = *maxover_ind = \&PDL::maximum_ind; *PDL::maxover_ind = *maxover_ind = \&PDL::maximum_ind;
skipping to change at line 1177 skipping to change at line 1177
Note that C<NaNs> are considered to be valid values and will "win" over non-C<Na N>; Note that C<NaNs> are considered to be valid values and will "win" over non-C<Na N>;
see L<isfinite|PDL::Math/isfinite> and L<badmask|PDL::Bad/badmask> see L<isfinite|PDL::Math/isfinite> and L<badmask|PDL::Bad/badmask>
for ways of masking NaNs. for ways of masking NaNs.
=cut =cut
#line 1466 "Ufunc.pm" #line 1466 "Ufunc.pm"
#line 1059 "../../blib/lib/PDL/PP.pm" #line 1059 "../../blib/lib/PDL/PP.pm"
#line 416 "ufunc.pd" #line 409 "ufunc.pd"
sub PDL::maximum_n_ind { sub PDL::maximum_n_ind {
my ($a, $c, $m_size) = @_; my ($a, $c, $m_size) = @_;
$m_size //= ref($c) ? $c->dim(0) : $c; # back-compat with pre-2.077 $m_size //= ref($c) ? $c->dim(0) : $c; # back-compat with pre-2.077
my $set_out = 1; my $set_out = 1;
$set_out = 0, $c = null if !ref $c; $set_out = 0, $c = null if !ref $c;
$c = $c->indx if !$c->isnull; $c = $c->indx if !$c->isnull;
PDL::_maximum_n_ind_int($a, $c, $m_size); PDL::_maximum_n_ind_int($a, $c, $m_size);
$set_out ? $_[1] = $c : $c; $set_out ? $_[1] = $c : $c;
} }
#line 1071 "../../blib/lib/PDL/PP.pm" #line 1071 "../../blib/lib/PDL/PP.pm"
#line 1484 "Ufunc.pm" #line 1484 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*maximum_n_ind = \&PDL::maximum_n_ind; *maximum_n_ind = \&PDL::maximum_n_ind;
#line 1491 "Ufunc.pm" #line 1491 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 maxover_n_ind =head2 maxover_n_ind
=for ref =for ref
Synonym for maximum_n_ind. Synonym for maximum_n_ind.
=cut =cut
*PDL::maxover_n_ind = *maxover_n_ind = \&PDL::maximum_n_ind; *PDL::maxover_n_ind = *maxover_n_ind = \&PDL::maximum_n_ind;
skipping to change at line 1244 skipping to change at line 1244
since they will not contain any bad values. since they will not contain any bad values.
=cut =cut
#line 1544 "Ufunc.pm" #line 1544 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*minmaximum = \&PDL::minmaximum; *minmaximum = \&PDL::minmaximum;
#line 1551 "Ufunc.pm" #line 1551 "Ufunc.pm"
#line 309 "ufunc.pd" #line 304 "ufunc.pd"
=head2 minmaxover =head2 minmaxover
=for ref =for ref
Synonym for minmaximum. Synonym for minmaximum.
=cut =cut
*PDL::minmaxover = *minmaxover = \&PDL::minmaximum; *PDL::minmaxover = *minmaxover = \&PDL::minmaximum;
#line 1566 "Ufunc.pm" #line 1566 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 avg =head2 avg
=for ref =for ref
Return the average of all elements in an ndarray. Return the average of all elements in an ndarray.
See the documentation for L</average> for more information. See the documentation for L</average> for more information.
=for usage =for usage
skipping to change at line 1285 skipping to change at line 1285
=cut =cut
*avg = \&PDL::avg; *avg = \&PDL::avg;
sub PDL::avg { sub PDL::avg {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->average( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->average( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1596 "Ufunc.pm" #line 1596 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 sum =head2 sum
=for ref =for ref
Return the sum of all elements in an ndarray. Return the sum of all elements in an ndarray.
See the documentation for L</sumover> for more information. See the documentation for L</sumover> for more information.
=for usage =for usage
skipping to change at line 1313 skipping to change at line 1313
=cut =cut
*sum = \&PDL::sum; *sum = \&PDL::sum;
sub PDL::sum { sub PDL::sum {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->sumover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->sumover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1626 "Ufunc.pm" #line 1626 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 prod =head2 prod
=for ref =for ref
Return the product of all elements in an ndarray. Return the product of all elements in an ndarray.
See the documentation for L</prodover> for more information. See the documentation for L</prodover> for more information.
=for usage =for usage
skipping to change at line 1341 skipping to change at line 1341
=cut =cut
*prod = \&PDL::prod; *prod = \&PDL::prod;
sub PDL::prod { sub PDL::prod {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->prodover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->prodover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1656 "Ufunc.pm" #line 1656 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 davg =head2 davg
=for ref =for ref
Return the average (in double precision) of all elements in an ndarray. Return the average (in double precision) of all elements in an ndarray.
See the documentation for L</daverage> for more information. See the documentation for L</daverage> for more information.
=for usage =for usage
skipping to change at line 1369 skipping to change at line 1369
=cut =cut
*davg = \&PDL::davg; *davg = \&PDL::davg;
sub PDL::davg { sub PDL::davg {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->daverage( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->daverage( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1686 "Ufunc.pm" #line 1686 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 dsum =head2 dsum
=for ref =for ref
Return the sum (in double precision) of all elements in an ndarray. Return the sum (in double precision) of all elements in an ndarray.
See the documentation for L</dsumover> for more information. See the documentation for L</dsumover> for more information.
=for usage =for usage
skipping to change at line 1397 skipping to change at line 1397
=cut =cut
*dsum = \&PDL::dsum; *dsum = \&PDL::dsum;
sub PDL::dsum { sub PDL::dsum {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->dsumover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->dsumover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1716 "Ufunc.pm" #line 1716 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 dprod =head2 dprod
=for ref =for ref
Return the product (in double precision) of all elements in an ndarray. Return the product (in double precision) of all elements in an ndarray.
See the documentation for L</dprodover> for more information. See the documentation for L</dprodover> for more information.
=for usage =for usage
skipping to change at line 1425 skipping to change at line 1425
=cut =cut
*dprod = \&PDL::dprod; *dprod = \&PDL::dprod;
sub PDL::dprod { sub PDL::dprod {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->dprodover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->dprodover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1746 "Ufunc.pm" #line 1746 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 zcheck =head2 zcheck
=for ref =for ref
Return the check for zero of all elements in an ndarray. Return the check for zero of all elements in an ndarray.
See the documentation for L</zcover> for more information. See the documentation for L</zcover> for more information.
=for usage =for usage
skipping to change at line 1453 skipping to change at line 1453
=cut =cut
*zcheck = \&PDL::zcheck; *zcheck = \&PDL::zcheck;
sub PDL::zcheck { sub PDL::zcheck {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->zcover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->zcover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1776 "Ufunc.pm" #line 1776 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 and =head2 and
=for ref =for ref
Return the logical and of all elements in an ndarray. Return the logical and of all elements in an ndarray.
See the documentation for L</andover> for more information. See the documentation for L</andover> for more information.
=for usage =for usage
skipping to change at line 1481 skipping to change at line 1481
=cut =cut
*and = \&PDL::and; *and = \&PDL::and;
sub PDL::and { sub PDL::and {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->andover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->andover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1806 "Ufunc.pm" #line 1806 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 band =head2 band
=for ref =for ref
Return the bitwise and of all elements in an ndarray. Return the bitwise and of all elements in an ndarray.
See the documentation for L</bandover> for more information. See the documentation for L</bandover> for more information.
=for usage =for usage
skipping to change at line 1509 skipping to change at line 1509
=cut =cut
*band = \&PDL::band; *band = \&PDL::band;
sub PDL::band { sub PDL::band {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->bandover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->bandover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1836 "Ufunc.pm" #line 1836 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 or =head2 or
=for ref =for ref
Return the logical or of all elements in an ndarray. Return the logical or of all elements in an ndarray.
See the documentation for L</orover> for more information. See the documentation for L</orover> for more information.
=for usage =for usage
skipping to change at line 1537 skipping to change at line 1537
=cut =cut
*or = \&PDL::or; *or = \&PDL::or;
sub PDL::or { sub PDL::or {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->orover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->orover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1866 "Ufunc.pm" #line 1866 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 bor =head2 bor
=for ref =for ref
Return the bitwise or of all elements in an ndarray. Return the bitwise or of all elements in an ndarray.
See the documentation for L</borover> for more information. See the documentation for L</borover> for more information.
=for usage =for usage
skipping to change at line 1565 skipping to change at line 1565
=cut =cut
*bor = \&PDL::bor; *bor = \&PDL::bor;
sub PDL::bor { sub PDL::bor {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->borover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->borover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1896 "Ufunc.pm" #line 1896 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 min =head2 min
=for ref =for ref
Return the minimum of all elements in an ndarray. Return the minimum of all elements in an ndarray.
See the documentation for L</minimum> for more information. See the documentation for L</minimum> for more information.
=for usage =for usage
skipping to change at line 1593 skipping to change at line 1593
=cut =cut
*min = \&PDL::min; *min = \&PDL::min;
sub PDL::min { sub PDL::min {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->minimum( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->minimum( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1926 "Ufunc.pm" #line 1926 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 max =head2 max
=for ref =for ref
Return the maximum of all elements in an ndarray. Return the maximum of all elements in an ndarray.
See the documentation for L</maximum> for more information. See the documentation for L</maximum> for more information.
=for usage =for usage
skipping to change at line 1621 skipping to change at line 1621
=cut =cut
*max = \&PDL::max; *max = \&PDL::max;
sub PDL::max { sub PDL::max {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->maximum( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->maximum( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1956 "Ufunc.pm" #line 1956 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 median =head2 median
=for ref =for ref
Return the median of all elements in an ndarray. Return the median of all elements in an ndarray.
See the documentation for L</medover> for more information. See the documentation for L</medover> for more information.
=for usage =for usage
skipping to change at line 1649 skipping to change at line 1649
=cut =cut
*median = \&PDL::median; *median = \&PDL::median;
sub PDL::median { sub PDL::median {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->medover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->medover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 1986 "Ufunc.pm" #line 1986 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 mode =head2 mode
=for ref =for ref
Return the mode of all elements in an ndarray. Return the mode of all elements in an ndarray.
See the documentation for L</modeover> for more information. See the documentation for L</modeover> for more information.
=for usage =for usage
skipping to change at line 1677 skipping to change at line 1677
=cut =cut
*mode = \&PDL::mode; *mode = \&PDL::mode;
sub PDL::mode { sub PDL::mode {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->modeover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->modeover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 2016 "Ufunc.pm" #line 2016 "Ufunc.pm"
#line 552 "ufunc.pd" #line 543 "ufunc.pd"
=head2 oddmedian =head2 oddmedian
=for ref =for ref
Return the oddmedian of all elements in an ndarray. Return the oddmedian of all elements in an ndarray.
See the documentation for L</oddmedover> for more information. See the documentation for L</oddmedover> for more information.
=for usage =for usage
skipping to change at line 1705 skipping to change at line 1705
=cut =cut
*oddmedian = \&PDL::oddmedian; *oddmedian = \&PDL::oddmedian;
sub PDL::oddmedian { sub PDL::oddmedian {
my($x) = @_; my $tmp; my($x) = @_; my $tmp;
$x->clump(-1)->oddmedover( $tmp=PDL->nullcreate($x) ); $x->clump(-1)->oddmedover( $tmp=PDL->nullcreate($x) );
$tmp; $tmp;
} }
#line 2046 "Ufunc.pm" #line 2046 "Ufunc.pm"
#line 582 "ufunc.pd" #line 573 "ufunc.pd"
=head2 any =head2 any
=for ref =for ref
Return true if any element in ndarray set Return true if any element in ndarray set
Useful in conditional expressions: Useful in conditional expressions:
=for example =for example
skipping to change at line 2010 skipping to change at line 2010
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 2406 "Ufunc.pm" #line 2406 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*oddpctover = \&PDL::oddpctover; *oddpctover = \&PDL::oddpctover;
#line 2413 "Ufunc.pm" #line 2413 "Ufunc.pm"
#line 943 "ufunc.pd" #line 934 "ufunc.pd"
=head2 pct =head2 pct
=for ref =for ref
Return the specified percentile of all elements in an ndarray. The Return the specified percentile of all elements in an ndarray. The
specified percentile (p) must be between 0.0 and 1.0. When the specified percentile (p) must be between 0.0 and 1.0. When the
specified percentile falls between data points, the result is interpolated. specified percentile falls between data points, the result is interpolated.
=for usage =for usage
skipping to change at line 2034 skipping to change at line 2034
=cut =cut
*pct = \&PDL::pct; *pct = \&PDL::pct;
sub PDL::pct { sub PDL::pct {
my($x, $p) = @_; my($x, $p) = @_;
$x->clump(-1)->pctover($p, my $tmp=PDL->nullcreate($x)); $x->clump(-1)->pctover($p, my $tmp=PDL->nullcreate($x));
$tmp; $tmp;
} }
#line 2439 "Ufunc.pm" #line 2439 "Ufunc.pm"
#line 943 "ufunc.pd" #line 934 "ufunc.pd"
=head2 oddpct =head2 oddpct
=for ref =for ref
Return the specified percentile of all elements in an ndarray. The Return the specified percentile of all elements in an ndarray. The
specified percentile (p) must be between 0.0 and 1.0. When the specified percentile (p) must be between 0.0 and 1.0. When the
specified percentile falls between data points, the nearest data value is the re sult. specified percentile falls between data points, the nearest data value is the re sult.
=for usage =for usage
skipping to change at line 2209 skipping to change at line 2209
for L</qsortvec>. for L</qsortvec>.
=cut =cut
#line 2649 "Ufunc.pm" #line 2649 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*qsortveci = \&PDL::qsortveci; *qsortveci = \&PDL::qsortveci;
#line 2656 "Ufunc.pm" #line 2656 "Ufunc.pm"
#line 1191 "ufunc.pd" #line 1182 "ufunc.pd"
=head1 AUTHOR =head1 AUTHOR
Copyright (C) Tuomas J. Lukka 1997 (lukka@husc.harvard.edu). Copyright (C) Tuomas J. Lukka 1997 (lukka@husc.harvard.edu).
Contributions by Christian Soeller (c.soeller@auckland.ac.nz) Contributions by Christian Soeller (c.soeller@auckland.ac.nz)
and Karl Glazebrook (kgb@aaoepp.aao.gov.au). All rights and Karl Glazebrook (kgb@aaoepp.aao.gov.au). All rights
reserved. There is no warranty. You are allowed to redistribute this reserved. There is no warranty. You are allowed to redistribute this
software / documentation under certain conditions. For details, see software / documentation under certain conditions. For details, see
the file COPYING in the PDL distribution. If this file is separated the file COPYING in the PDL distribution. If this file is separated
from the PDL distribution, the copyright notice should be included in from the PDL distribution, the copyright notice should be included in
 End of changes. 32 change blocks. 
32 lines changed or deleted 32 lines changed or added

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