Changeset 9453

Timestamp:

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

Author:

eugene

Message:

no rejections for test

Location:

trunk/ippScripts/scripts

Files:

• detrend_reject_exp.pl (modified) (4 diffs)
• detrend_reject_imfile.pl (modified) (5 diffs)

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -117 +117 @@
     my $command = "$dettool -updateresidexp -det_id $det_id -iteration $iter -exp_tag $expTag"; # Command to run
     my $reject = 0;             # Reject this exposure?
+    my $not_reject = 0;         # Reject this exposure?
     if (not $accept[$i]) {
         # Rejected this at an earlier stage
@@ -128 +129 @@
             (($means[$i] - $meanStats->mean()) / $meanStats->standard_deviation()) .
             " vs " . REJECT_MEAN->{$det_type} . "\n";
-        $reject = 1;
+        $not_reject = 1;
     } elsif (defined REJECT_STDEV->{$det_type} and
              defined $stdevStats->standard_deviation() and
@@ -137 +138 @@
             (($stdevs[$i] - $stdevStats->mean()) / $stdevStats->standard_deviation()) .
             " vs " . REJECT_STDEV->{$det_type} . "\n";
-        $reject = 1;
+        $not_reject = 1;
     } elsif (defined REJECT_MEAN_STDEV->{$det_type} and
              defined $meanStdevStats->standard_deviation() and 
@@ -146 +147 @@
             (($meanStdevs[$i] - $meanStdevStats->mean()) / $meanStdevStats->standard_deviation()) .
             " vs " . REJECT_MEAN_STDEV->{$det_type} . "\n";
-        $reject = 1;
+        $not_reject = 1;
     }
     

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;
 }