Lines Matching refs:self
45 my $self = shift;
47 $self->{n} = 0;
48 $self->{sx} = 0.0;
49 $self->{sx2} = 0.0;
50 $self->{sxy} = 0.0;
51 $self->{sy} = 0.0;
52 $self->{sy2} = 0.0;
57 my $self = shift;
60 ++($self->{n});
61 $self->{sx} += $_x;
62 $self->{sy} += $_y;
63 $self->{sxy} += $_x * $_y;
64 $self->{sx2} += $_x**2;
65 $self->{sy2} += $_y**2;
70 my $self = shift;
72 return 1 unless ($self->{n} * $self->{sx2} - $self->{sx}**2);
73 return ($self->{n} * $self->{sxy} - $self->{sx} * $self->{sy})
74 / ($self->{n} * $self->{sx2} - $self->{sx}**2);
79 my $self = shift;
81 return ($self->{sy} - B() * $self->{sx}) / $self->{n};
86 my $self = shift;
93 my $self = shift;
100 my $self = shift;
102 my $s = ($self->{n} * $self->{sx2} - $self->{sx}**2)
103 * ($self->{n} * $self->{sy2} - $self->{sy}**2);
107 return ($self->{n} * $self->{sxy} - $self->{sx} * $self->{sy}) / sqrt($s);
112 my $self = shift;
114 return ($self->{sxy} - $self->{sx} * $self->{sy} / $self->{n})
115 / ($self->{n} - 1);
120 my $self = shift;
122 return 0 if $self->{n} <= 1;
123 return sqrt(($self->{sy2} - ($self->{sy} * $self->{sy}) / $self->{n})
124 / ($self->{n}));
129 my $self = shift;
131 return 0 if $self->{n} <= 0;
132 return $self->{sy} / $self->{n};
138 my $self = {
146 bless $self, $class;
147 init($self);
148 return $self;