Changeset 9453 for trunk/ippScripts/scripts/detrend_reject_imfile.pl

Timestamp:

Oct 9, 2006, 6:37:15 PM (20 years ago)

Author:

eugene

Message:

no rejections for test

File:

• trunk/ippScripts/scripts/detrend_reject_imfile.pl (modified) (5 diffs)

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -166 +166 @@
     $mean -= EXPECTED_MEAN->{$det_type} if defined EXPECTED_MEAN->{$det_type};
     my $stdev = $stdevs[$i];    # Stdev for this component
+    my $not_reject;
 
     if (defined REJECT_INDIVIDUAL_MEAN->{$det_type}
@@ -172 +173 @@
         print "Rejecting exposure based on bad individual mean for component $i: " .
             ($mean / $stdev) . " vs " . REJECT_INDIVIDUAL_MEAN->{$det_type} . "\n";
-        $reject = 1;
+        $not_reject = 1;
         last;
     } elsif (defined REJECT_INDIVIDUAL_STDEV->{$det_type} and
@@ -178 +179 @@
         print "Rejecting exposure based on bad individual stdev for component $i: " .
             $stdev . " vs " . REJECT_INDIVIDUAL_STDEV->{$det_type} . "\n";
-        $reject = 1;
+        $not_reject = 1;
         last;
     }
@@ -194 +195 @@
 }
 my $meanStdev = sqrt($stdevStats->mean()); # Root-Mean-Square of the sample of stdevs
+my $not_reject;
 print "calculating root-mean-square of the sample stdevs: $meanStdev\n";
 if (defined REJECT_SAMPLE_MEAN->{$det_type} and
@@ -200 +202 @@
     print "Rejecting exposure based on bad mean: " . ($mean / $stdev) . " vs " .
         REJECT_SAMPLE_MEAN->{$det_type} . "\n";
-    $reject = 1;
+    $not_reject = 1;
 } elsif (defined REJECT_SAMPLE_STDEV->{$det_type} and
          $meanStdev > REJECT_SAMPLE_STDEV->{$det_type}) {
     print "Rejecting exposure based on bad mean stdev: " . $meanStdev . " vs " .
         REJECT_SAMPLE_STDEV->{$det_type} . "\n";
-    $reject = 1;
+    $not_reject = 1;
 }