#
# GENERATED WITH PDL::PP! Don't modify!
#
package PDL::VectorValued::Utils;
@EXPORT_OK = qw( PDL::PP rlevec PDL::PP rldvec PDL::PP enumvec PDL::PP vsearchvec PDL::PP cmpvec PDL::PP vv_qsortvec PDL::PP vv_qsortveci PDL::PP vv_union PDL::PP vv_intersect PDL::PP vv_setdiff );
%EXPORT_TAGS = (Func=>[@EXPORT_OK]);
use PDL::Core;
use PDL::Exporter;
use DynaLoader;
$PDL::VectorValued::Utils::VERSION = 0.07002;
@ISA = ( 'PDL::Exporter','DynaLoader' );
push @PDL::Core::PP, __PACKAGE__;
bootstrap PDL::VectorValued::Utils $VERSION;
use strict;
=pod
=head1 NAME
PDL::VectorValued::Utils - Low-level utilities for vector-valued PDLs
=head1 SYNOPSIS
use PDL;
use PDL::VectorValued::Utils;
##---------------------------------------------------------------------
## ... stuff happens
=cut
=head1 FUNCTIONS
=cut
=pod
=head1 Vector-Based Run-Length Encoding and Decoding
=cut
=head2 rlevec
=for sig
Signature: (c(M,N); int [o]a(N); [o]b(M,N))
Run-length encode a set of vectors.
Higher-order rle(), for use with qsortvec().
Given set of vectors $c, generate a vector $a with the number of occurrences of each element
(where an "element" is a vector of length $M ocurring in $c),
and a set of vectors $b containing the unique values.
As for rle(), only the elements up to the first instance of 0 in $a should be considered.
Can be used together with clump() to run-length encode "values" of arbitrary dimensions.
Can be used together with rotate(), cat(), append(), and qsortvec() to count N-grams
over a 1d PDL.
See also: PDL::Slices::rle, PDL::Ufunc::qsortvec, PDL::Primitive::uniqvec
=for bad
rlevec does not process bad values.
It will set the bad-value flag of all output piddles if the flag is set for any of the input piddles.
=cut
*rlevec = \&PDL::rlevec;
=head2 rldvec
=for sig
Signature: (int a(N); b(M,N); [o]c(M,N))
Run-length decode a set of vectors, akin to a higher-order rld().
Given a vector $a() of the number of occurrences of each row, and a set $c()
of row-vectors each of length $M, run-length decode to $c().
Can be used together with clump() to run-length decode "values" of arbitrary dimensions.
See also: PDL::Slices::rld.
=for bad
rldvec does not process bad values.
It will set the bad-value flag of all output piddles if the flag is set for any of the input piddles.
=cut
sub PDL::rldvec {
my ($a,$b) = @_;
my ($c);
if ($#_==2) { $c=$_[2]; }
else {
# XXX Need to improve emulation of threading in auto-generating c
my ($rowlen) = $b->dim(0);
my ($size) = $a->sumover->max;
my (@dims) = $a->dims;
shift(@dims);
$c = $b->zeroes($b->type,$rowlen,$size,@dims);
}
&PDL::_rldvec_int($a,$b,$c);
return $c;
}
*rldvec = \&PDL::rldvec;
=head2 enumvec
=for sig
Signature: (v(M,N); int [o]k(N))
Enumerate a list of vectors with locally unique keys.
Given a sorted list of vectors $v, generate a vector $k containing locally unique keys for the elements of $v
(where an "element" is a vector of length $M ocurring in $v).
=for bad
enumvec does not process bad values.
It will set the bad-value flag of all output piddles if the flag is set for any of the input piddles.
=cut
*enumvec = \&PDL::enumvec;
=head2 vsearchvec
=for sig
Signature: (find(M); which(M,N); int [o]found())
=for ref
Routine for searching N-dimensional values - akin to vsearch() for vectors.
=for usage
$found = ccs_vsearchvec($find, $which);
$nearest = $which->dice_axis(1,$found);
Returns for each row-vector in C<$find> the index along dimension N
of the least row vector of C<$which>
greater or equal to it.
C<$which> should be sorted in increasing order.
If the value of C<$find> is larger
than any member of C<$which>, the index to the last element of C<$which> is
returned.
See also: PDL::Primitive::vsearch().
=for bad
vsearchvec does not process bad values.
It will set the bad-value flag of all output piddles if the flag is set for any of the input piddles.
=cut
*vsearchvec = \&PDL::vsearchvec;
=pod
=head1 Vector-Valued Sorting and Comparison
The following functions are provided for lexicographic sorting of
vectors, rsp. axis indices. Note that vv_qsortvec() is functionally
identical to the builtin PDL function qsortvec(), but also that
the latter is broken in the stock PDL-2.4.3 distribution. The version
included here includes Chris Marshall's "uniqsortvec" patch, which
is available here:
http://sourceforge.net/tracker/index.php?func=detail&aid=1548824&group_id=612&atid=300612
=cut
=head2 cmpvec
=for sig
Signature: (a(N); b(N); int [o]cmp())
=for ref
Lexicographically compare a pair of vectors.
=for bad
cmpvec does not process bad values.
It will set the bad-value flag of all output piddles if the flag is set for any of the input piddles.
=cut
*cmpvec = \&PDL::cmpvec;
=head2 vv_qsortvec
=for sig
Signature: (a(n,m); [o]b(n,m))
=for ref
Drop-in replacement for qsortvec(),
which is broken in the stock PDL-2.4.3 release.
See PDL::Ufunc::qsortvec.
=for bad
Vectors with bad components should be moved to the end of the array.
=cut
*vv_qsortvec = \&PDL::vv_qsortvec;
=head2 vv_qsortveci
=for sig
Signature: (a(n,m); int [o]ix(m))
=for ref
Get lexicographic sort order of a matrix $a() viewed as a list of vectors.
=for bad
Vectors with bad components should be treated as last in the lexicographic order.
=cut
*vv_qsortveci = \&PDL::vv_qsortveci;
=pod
=head1 Vector-Valued Set Operations
The following functions are provided for set operations on
sorted vector-valued PDLs.
=cut
=head2 vv_union
=for sig
Signature: (a(M,NA); b(M,NB); [o]c(M,NC); int [o]nc())
Union of two vector-valued PDLs. Input PDLs $a() and $b() B<MUST> be
sorted in lexicographic order.
On return, $nc() holds the actual number of vector-values in the union.
In scalar context, slices $c() to the actual number of elements in the union
and returns the sliced PDL.
=for bad
vv_union does not process bad values.
It will set the bad-value flag of all output piddles if the flag is set for any of the input piddles.
=cut
sub PDL::vv_union {
my ($a,$b,$c,$nc) = @_;
barf("PDL::VectorValued::vv_union(): dimension mismatch") if ($a->dim(-2) != $b->dim(-2));
my @adims = $a->dims;
if (!defined($c)) {
my $ctype = $a->type > $b->type ? $a->type : $b->type;
$c = PDL->zeroes($ctype, @adims[0..($#adims-1)], $adims[$#adims] + $b->dim(-1));
}
$nc = PDL->zeroes(PDL::long(), (@adims > 2 ? @adims[0..($#adims-2)] : 1)) if (!defined($nc));
&PDL::_vv_union_int($a,$b,$c,$nc);
return ($c,$nc) if (wantarray);
return $c->mv(-1,0)->slice("0:".($nc->sclr-1))->mv(0,-1);
}
*vv_union = \&PDL::vv_union;
=head2 vv_intersect
=for sig
Signature: (a(M,NA); b(M,NB); [o]c(M,NC); int [o]nc())
Intersection of two vector-valued PDLs.
Input PDLs $a() and $b() B<MUST> be sorted in lexicographic order.
On return, $nc() holds the actual number of vector-values in the intersection.
In scalar context, slices $c() to the actual number of elements in the intersection
and returns the sliced PDL.
=for bad
vv_intersect does not process bad values.
It will set the bad-value flag of all output piddles if the flag is set for any of the input piddles.
=cut
sub PDL::vv_intersect {
my ($a,$b,$c,$nc) = @_;
barf("PDL::VectorValued::vv_intersect(): dimension mismatch") if ($a->dim(-2) != $b->dim(-2));
my @adims = $a->dims;
my $NA = $adims[$#adims];
my $NB = $b->dim(-1);
if (!defined($c)) {
my $ctype = $a->type > $b->type ? $a->type : $b->type;
$c = PDL->zeroes($ctype, @adims[0..($#adims-1)], $NA < $NB ? $NA : $NB);
}
$nc = PDL->zeroes(PDL::long(), (@adims > 2 ? @adims[0..($#adims-2)] : 1)) if (!defined($nc));
&PDL::_vv_intersect_int($a,$b,$c,$nc);
return ($c,$nc) if (wantarray);
return $c->mv(-1,0)->slice("0:".($nc->sclr-1))->mv(0,-1);
}
*vv_intersect = \&PDL::vv_intersect;
=head2 vv_setdiff
=for sig
Signature: (a(M,NA); b(M,NB); [o]c(M,NC); int [o]nc())
Set-difference ($a() \ $b()) of two vector-valued PDLs.
Input PDLs $a() and $b() B<MUST> be sorted in lexicographic order.
On return, $nc() holds the actual number of vector-values in the computed vector set.
In scalar context, slices $c() to the actual number of elements in the output vector set
and returns the sliced PDL.
=for bad
vv_setdiff does not process bad values.
It will set the bad-value flag of all output piddles if the flag is set for any of the input piddles.
=cut
sub PDL::vv_setdiff {
my ($a,$b,$c,$nc) = @_;
barf("PDL::VectorValued::vv_setdiff(): dimension mismatch") if ($a->dim(-2) != $b->dim(-2));
my @adims = $a->dims;
my $NA = $adims[$#adims];
my $NB = $b->dim(-1);
if (!defined($c)) {
my $ctype = $a->type > $b->type ? $a->type : $b->type;
$c = PDL->zeroes($ctype, @adims[0..($#adims-1)], $NA);
}
$nc = PDL->zeroes(PDL::long(), (@adims > 2 ? @adims[0..($#adims-2)] : 1)) if (!defined($nc));
&PDL::_vv_setdiff_int($a,$b,$c,$nc);
return ($c,$nc) if (wantarray);
return $c->mv(-1,0)->slice("0:".($nc->sclr-1))->mv(0,-1);
}
*vv_setdiff = \&PDL::vv_setdiff;
##---------------------------------------------------------------------
=pod
=head1 ACKNOWLEDGEMENTS
=over 4
=item *
Perl by Larry Wall
=item *
PDL by Karl Glazebrook, Tuomas J. Lukka, Christian Soeller, and others.
=item *
Code for rlevec() and rldvec() derived from the PDL builtin functions
rle() and rld() in $PDL_SRC_ROOT/Basic/Slices/slices.pd
=item *
Code for vv_qsortvec() copied nearly verbatim from the builtin PDL functions
in $PDL_SRC_ROOT/Basic/Ufunc/ufunc.pd, with Chris Marshall's "uniqsortvec" patch.
Code for vv_qsortveci() based on the same.
=back
=cut
##----------------------------------------------------------------------
=pod
=head1 KNOWN BUGS
Probably many.
=cut
##---------------------------------------------------------------------
=pod
=head1 AUTHOR
Bryan Jurish E<lt>moocow@cpan.orgE<gt>
=head1 COPYRIGHT
=over 4
=item *
Code for qsortvec() copyright (C) Tuomas J. Lukka 1997.
Contributions by Christian Soeller (c.soeller@auckland.ac.nz)
and Karl Glazebrook (kgb@aaoepp.aao.gov.au). All rights
reserved. There is no warranty. You are allowed to redistribute this
software / documentation under certain conditions. For details, see
the file COPYING in the PDL distribution. If this file is separated
from the PDL distribution, the copyright notice should be included in
the file.
=item *
All other parts copyright (c) 2007, Bryan Jurish. All rights reserved.
This package is free software, and entirely without warranty.
You may redistribute it and/or modify it under the same terms
as Perl itself.
=back
=head1 SEE ALSO
perl(1), PDL(3perl)
=cut
;
# Exit with OK status
1;