Changeset 8506 for trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

Timestamp:

Aug 22, 2006, 7:25:07 PM (20 years ago)

Author:

Paul Price

Message:

Making the array of backgrounds and background stdevs public.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm (modified) (8 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Stats.pm,v 1.2 2006-08-15 21:50:27 price Exp $
+# $Id: Stats.pm,v 1.3 2006-08-23 05:25:07 price Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -14 +14 @@
 
 use base qw( Class::Accessor::Fast );
-__PACKAGE__->mk_accessors( qw( bg_mean bg_stdev bg_mean_stdev constants variables ) );
+__PACKAGE__->mk_accessors( qw( bg_mean bg_stdev bg_mean_stdev constants variables bg_data bg_stdev_data ) );
 
 #$::RD_TRACE = 1;
@@ -30 +30 @@
                  constants => $constants, # Array of values that should be constant through the FPA
                  variables => $variables, # Array of values that may be variable through the FPA
+                 bg_data => [], # Array of background values
+                 bg_stdev_data => [],# Array of background standard deviations
                  data => {}     # The data
                  };
@@ -56 +58 @@
     my $self = shift;           # Where we'll put the information
     my $md = shift;             # Parsed metadata, from PS::IPP::Metadata::Config
-
-    my @backgrounds;            # Array of background measurements
-    my @bgStdevs;               # Array of background standard deviations
 
     # Descend the FPA hierarchy
@@ -81 +80 @@
                                 }
                                 $bgStdevName = $cellItem->{name};
-                                push @bgStdevs, $cellItem->{value};
+                                push @$self->{bg_stdev_data}, $cellItem->{value};
                             } else {
                                 if (defined $bgName) {
@@ -89 +88 @@
                                 }
                                 $bgName = $cellItem->{name};
-                                push @backgrounds, $cellItem->{value};
+                                push @$self->{bg_data}, $cellItem->{value};
                             }
                         } else {
@@ -134 +133 @@
     
     # Get mean, stdev, mean stdev for the background
-    if (scalar @backgrounds > 0) {
+    if (scalar @$self->{bg_data} > 0) {
         my $meanStats = Statistics::Descriptive::Sparse->new(); # Statistics for mean
-        $meanStats->add_data(@backgrounds);
+        $meanStats->add_data(@$self->{bg_data});
         $self->bg_mean($meanStats->mean());
         $self->bg_stdev($meanStats->standard_deviation());
@@ -143 +142 @@
         $self->bg_stdev(undef);
     }
-    if (scalar @bgStdevs > 0) {
+    if (scalar @$self->{bg_stdev_data} > 0) {
         my $stdevStats = Statistics::Descriptive::Sparse->new(); # Statistics for standard deviation
-        $stdevStats->add_data(@bgStdevs);
+        $stdevStats->add_data(@self->{bg_stdev_data});
         $self->bg_mean_stdev($stdevStats->mean());
     } else {