"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "GENERATED/PDL/Ufunc.pm" between
PDL-2.077.tar.gz and PDL-2.078.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.077):Ufunc.pm  (PDL-2.078)
skipping to change at line 1257 skipping to change at line 1257
=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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 568 "ufunc.pd" #line 552 "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 598 "ufunc.pd" #line 582 "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 1003 "ufunc.pd" #line 943 "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 specified percentile falls between data points, the result is interpolated.
interpolated.
=for usage =for usage
$x = pct($data, $pct); $x = pct($data, $pct);
=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 2440 "Ufunc.pm" #line 2439 "Ufunc.pm"
#line 1028 "ufunc.pd" #line 943 "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 must be between 0.0 and 1.0. When the specified specified percentile (p) must be between 0.0 and 1.0. When the
percentile falls between two values, the nearest data value is the specified percentile falls between data points, the nearest data value is the re
result. sult.
=for usage =for usage
$x = oddpct($data, $pct); $x = oddpct($data, $pct);
=cut =cut
*oddpct = \&PDL::oddpct; *oddpct = \&PDL::oddpct;
sub PDL::oddpct { sub PDL::oddpct {
my($x, $p) = @_; my($x, $p) = @_;
$x->clump(-1)->oddpctover($p, my $tmp=PDL->nullcreate($x)); $x->clump(-1)->oddpctover($p, my $tmp=PDL->nullcreate($x));
$tmp; $tmp;
} }
#line 2467 "Ufunc.pm" #line 2465 "Ufunc.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 1058 "../../blib/lib/PDL/PP.pm"
=head2 qsort =head2 qsort
=for sig =for sig
Signature: (a(n); [o]b(n)) Signature: (a(n); [o]b(n))
=for ref =for ref
skipping to change at line 2086 skipping to change at line 2084
=for bad =for bad
Bad values are moved to the end of the array: Bad values are moved to the end of the array:
pdl> p $y pdl> p $y
[42 47 98 BAD 22 96 74 41 79 76 96 BAD 32 76 25 59 BAD 96 32 BAD] [42 47 98 BAD 22 96 74 41 79 76 96 BAD 32 76 25 59 BAD 96 32 BAD]
pdl> p qsort($y) pdl> p qsort($y)
[22 25 32 32 41 42 47 59 74 76 76 79 96 96 96 98 BAD BAD BAD BAD] [22 25 32 32 41 42 47 59 74 76 76 79 96 96 96 98 BAD BAD BAD BAD]
=cut =cut
#line 2503 "Ufunc.pm" #line 2501 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*qsort = \&PDL::qsort; *qsort = \&PDL::qsort;
#line 2510 "Ufunc.pm" #line 2508 "Ufunc.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 1058 "../../blib/lib/PDL/PP.pm"
=head2 qsorti =head2 qsorti
=for sig =for sig
Signature: (a(n); indx [o]indx(n)) Signature: (a(n); indx [o]indx(n))
=for ref =for ref
skipping to change at line 2120 skipping to change at line 2118
=for bad =for bad
Bad elements are moved to the end of the array: Bad elements are moved to the end of the array:
pdl> p $y pdl> p $y
[42 47 98 BAD 22 96 74 41 79 76 96 BAD 32 76 25 59 BAD 96 32 BAD] [42 47 98 BAD 22 96 74 41 79 76 96 BAD 32 76 25 59 BAD 96 32 BAD]
pdl> p $y->index( qsorti($y) ) pdl> p $y->index( qsorti($y) )
[22 25 32 32 41 42 47 59 74 76 76 79 96 96 96 98 BAD BAD BAD BAD] [22 25 32 32 41 42 47 59 74 76 76 79 96 96 96 98 BAD BAD BAD BAD]
=cut =cut
#line 2547 "Ufunc.pm" #line 2545 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*qsorti = \&PDL::qsorti; *qsorti = \&PDL::qsorti;
#line 2554 "Ufunc.pm" #line 2552 "Ufunc.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 1058 "../../blib/lib/PDL/PP.pm"
=head2 qsortvec =head2 qsortvec
=for sig =for sig
Signature: (a(n,m); [o]b(n,m)) Signature: (a(n,m); [o]b(n,m))
=for ref =for ref
skipping to change at line 2168 skipping to change at line 2166
pdl> p $p = pdl("[0 0] [-100 0] [BAD 0] [100 0]")->qsortvec pdl> p $p = pdl("[0 0] [-100 0] [BAD 0] [100 0]")->qsortvec
[ [
[-100 0] [-100 0]
[ 0 0] [ 0 0]
[ 100 0] [ 100 0]
[ BAD 0] [ BAD 0]
] ]
=cut =cut
#line 2605 "Ufunc.pm" #line 2603 "Ufunc.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 1060 "../../blib/lib/PDL/PP.pm"
*qsortvec = \&PDL::qsortvec; *qsortvec = \&PDL::qsortvec;
#line 2612 "Ufunc.pm" #line 2610 "Ufunc.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 1058 "../../blib/lib/PDL/PP.pm"
=head2 qsortveci =head2 qsortveci
=for sig =for sig
Signature: (a(n,m); indx [o]indx(m)) Signature: (a(n,m); indx [o]indx(m))
=for ref =for ref
skipping to change at line 2204 skipping to change at line 2202
Additional dimensions are broadcasted over: each plane is sorted separately, Additional dimensions are broadcasted over: each plane is sorted separately,
so qsortveci may be thought of as a collapse operator of sorts (groan). so qsortveci may be thought of as a collapse operator of sorts (groan).
=for bad =for bad
Vectors with bad components are moved to the end of the array as Vectors with bad components are moved to the end of the array as
for L</qsortvec>. for L</qsortvec>.
=cut =cut
#line 2651 "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 2658 "Ufunc.pm" #line 2656 "Ufunc.pm"
#line 1298 "ufunc.pd" #line 1191 "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
the file. the file.
=cut =cut
#line 2679 "Ufunc.pm" #line 2677 "Ufunc.pm"
# Exit with OK status # Exit with OK status
1; 1;
 End of changes. 33 change blocks. 
36 lines changed or deleted 35 lines changed or added

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