Beta Shell v2.0

File Manager

Name	Size	Perms	Modified	Actions
[ .. / .. ]
ComputedVector.pm	2.97 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
ComputedVector.pod	4.93 KB	-rw-r--r--	2012-01-23 11:36:01	Edit Del
Correlation.pm	2.09 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
Correlation.pod	2.59 KB	-rw-r--r--	2012-01-23 11:36:01	Edit Del
Covariance.pm	2.56 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
Covariance.pod	2.46 KB	-rw-r--r--	2012-01-23 11:36:01	Edit Del
LeastSquareFit.pm	3.11 KB	-rw-r--r--	2014-01-10 14:22:01	Edit Del
LeastSquareFit.pod	4.27 KB	-rw-r--r--	2012-01-23 11:36:01	Edit Del
Mean.pm	1.03 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
Mean.pod	1.79 KB	-rw-r--r--	2012-01-23 11:36:01	Edit Del
Median.pm	1.19 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
Median.pod	1.79 KB	-rw-r--r--	2012-01-23 11:36:01	Edit Del
Mode.pm	1.82 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
Mode.pod	2.67 KB	-rw-r--r--	2012-01-23 11:36:02	Edit Del
StdDev.pm	993 B	-rw-r--r--	2012-01-21 18:10:18	Edit Del
StdDev.pod	2.15 KB	-rw-r--r--	2012-01-23 11:36:02	Edit Del
Variance.pm	1.35 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
Variance.pod	2.16 KB	-rw-r--r--	2012-01-23 11:36:02	Edit Del
Vector.pm	6.42 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
Vector.pod	4.34 KB	-rw-r--r--	2012-01-23 11:36:02	Edit Del
_OneVectorBase.pm	2 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
_OneVectorBase.pod	2.45 KB	-rw-r--r--	2012-01-23 11:36:02	Edit Del
_TwoVectorBase.pm	2.86 KB	-rw-r--r--	2012-01-21 18:10:18	Edit Del
_TwoVectorBase.pod	2.41 KB	-rw-r--r--	2012-01-23 11:36:02	Edit Del

Editing: _TwoVectorBase.pm (2.86 KB)

package Statistics::Basic::_TwoVectorBase;

use strict;
use warnings;
use Carp;

use Statistics::Basic; # make sure all the basic classes are loaded

use overload
    '""' => sub { defined( my $v = $_[0]->query ) || return "n/a"; $Statistics::Basic::fmt->format_number("$v", $Statistics::Basic::IPRES) },
    '0+' => sub { $_[0]->query },
    ( defined($Statistics::Basic::TOLER) ? ('==' => sub { abs($_[0]-$_[1])<=$Statistics::Basic::TOLER }) : () ),
    'eq' => sub { "$_[0]" eq "$_[1]" },
    'bool' => sub { 1 },
    fallback => 1; # tries to do what it would have done if this wasn't present.

# query {{{
sub query {
    my $this = shift;

    $this->_recalc if $this->{recalc_needed};

    warn "[query " . ref($this) . " $this->{_value}]\n" if $Statistics::Basic::DEBUG;

    return $this->{_value};
}
# }}}
# query_size {{{
sub query_size {
    my $this = shift;

    my @v = @{$this->{_vectors}};
    return ($v[0]->query_size, $v[1]->query_size); # list rather than map{} so this can be a scalar
}

# maybe deprecate this later
*size = \&query_size unless $ENV{TEST_AUTHOR};

# }}}
# set_size {{{
sub set_size {
    my $this = shift;
    my $size = shift;
    my $nofl = shift;

    eval { $_->set_size($size, $nofl) for @{$this->{_vectors}}; 1 } or croak $@;

    return $this;
}
# }}}
# insert {{{
sub insert {
    my $this = shift;

    warn "[insert " . ref($this) . "]\n" if $Statistics::Basic::DEBUG;

    croak ref($this) . "-insert() takes precisely two arguments.  They can be arrayrefs if you like." unless 2 == int @_;

    my $c = 0;
    $_->insert( $_[$c++] ) for @{$this->{_vectors}};

    return $this;
}
# }}}
# ginsert {{{
sub ginsert {
    my $this = shift;

    warn "[ginsert " . ref($this) . "]\n" if $Statistics::Basic::DEBUG;

    croak "" . ref($this) . "-ginsert() takes precisely two arguments.  They can be arrayrefs if you like." 
        unless 2 == int @_;

    my $c = 0;
    $_->ginsert( $_[$c++] ) for @{$this->{_vectors}};

    my @s = $this->query_size;
    croak "Uneven ginsert detected, the two vectors in a " . ref($this) . " object must remain the same length."
        unless $s[0] == $s[1];

    return $this;
}
*append = \&ginsert;
# }}}
# set_vector {{{
sub set_vector {
    my $this = shift;

    warn "[set_vector " . ref($this) . "]\n" if $Statistics::Basic::DEBUG;

    croak "this set_vector() takes precisely two arguments.  They can be arrayrefs if you like." 
        unless 2 == int @_;

    my $c = 0;
    $_->set_vector( $_[$c++] ) for @{$this->{_vectors}};

    my @s = $this->query_size;
    croak "Uneven set_vector detected, the two vectors in a " . ref($this) . " object must remain the same length."
        unless $s[0] == $s[1];

    return $this;
}
# }}}
# _recalc_needed {{{
sub _recalc_needed {
    my $this = shift;
       $this->{recalc_needed} = 1;

    warn "[recalc_needed " . ref($this) . "]\n" if $Statistics::Basic::DEBUG;

    return;
}
# }}}

1;