Lines Matching full:self
16 my $self = bless {
27 $stats->add_data(@{$self->{_data}});
28 $self->{_mean} = $stats->mean();
36 $self->{_error} = $t * $stats->standard_deviation();
40 $self;
46 my ($self, $scale) = @_;
47 $self->{_scale} = $scale;
52 my ($self, $a) = @_;
53 $self->{_scale} *= $a;
58 my $self = shift;
59 return $self->{_mean} * $self->{_scale};
65 my $self = shift;
66 return $self->{_error} * $self->{_scale};
72 my $self = shift;
75 my $minratio = ($self->{_mean} - $self->{_error}) /
77 my $maxratio = ($self->{_mean} + $self->{_error}) /
83 $result->{_scale} = $self->{_scale} / $rhs->{_scale};
90 my $self = shift;
94 $result->{_mean} = $self->{_mean} - $rhs->{_mean};
95 $result->{_error} = $self->{_error} + $rhs->{_error};
96 $result->{_scale} = $self->{_scale};
103 my $self = shift;
107 $result->{_mean} = $self->{_mean} + $rhs->{_mean};
108 $result->{_error} = $self->{_error} + $rhs->{_error};
109 $result->{_scale} = $self->{_scale};
116 my $self = shift;
120 $result->{_mean} = $self->{_mean}/$s;
121 $result->{_error} = $self->{_error}/$s;
122 $result->{_scale} = $self->{_scale};
129 my $self = shift;
133 $result->{_mean} = $self->{_mean}*$s;
134 $result->{_error} = $self->{_error}*$s;
135 $result->{_scale} = $self->{_scale};
