Changeset 9097 for trunk/ippScripts/scripts/detrend_reject_exp.pl

Timestamp:

Oct 2, 2006, 12:16:03 PM (20 years ago)

Author:

Paul Price

Message:

Changing 'exp id' to 'exp tag' throughout, following corresponding change in database.

File:

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

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -73 +73 @@
 }
 
-my @expIds;                     # Array of exposure IDs
+my @expTags;                    # Array of exposure IDs
 my @means;                      # Array of means
 my @stdevs;                     # Array of stdevs
 my @meanStdevs;                 # Array of mean stdevs
 foreach my $exposure (@$exposures) {
-    die "Unable to find exposure id.\n" if not defined $exposure->{exp_id};
+    die "Unable to find exposure id.\n" if not defined $exposure->{exp_tag};
     die "Unable to find mean.\n" if not defined $exposure->{bg};
     die "Unable to find stdev.\n" if not defined $exposure->{bg_stdev};
     die "Unable to find mean stdev.\n" if not defined $exposure->{bg_mean_stdev};
-    push @expIds, $exposure->{exp_id};
+    push @expTags, $exposure->{exp_tag};
     push @means, $exposure->{bg};
     push @stdevs, $exposure->{bg_stdev};
@@ -105 +105 @@
 my $numRejected = 0;            # Number of exposures rejected
 for (my $i = 0; $i < scalar @means; $i++) {
-    my $expId = $expIds[$i];    # Exposure ID
-    my $command = "$dettool -updateresidexp -det_id $det_id -iteration $iter -exp_id $expId"; # Command to run
+    my $expTag = $expTags[$i];  # Exposure ID
+    my $command = "$dettool -updateresidexp -det_id $det_id -iteration $iter -exp_tag $expTag"; # Command to run
     my $reject = 0;             # Reject this exposure?
     if (defined REJECT_MEAN->{$det_type} and
@@ -112 +112 @@
         $meanStats->standard_deviation() > 0 and
         ($means[$i] - $meanStats->mean()) / $meanStats->standard_deviation() > REJECT_MEAN->{$det_type}) {
-        print "Rejecting $expId based on bad mean: " .
+        print "Rejecting $expTag based on bad mean: " .
             (($means[$i] - $meanStats->mean()) / $meanStats->standard_deviation()) .
             " vs " . REJECT_MEAN->{$det_type} . "\n";
@@ -121 +121 @@
              ($stdevs[$i] - $stdevStats->mean()) / $stdevStats->standard_deviation() >
              REJECT_STDEV->{$det_type}) {
-        print "Rejecting $expId based on bad stdev: " .
+        print "Rejecting $expTag based on bad stdev: " .
             (($stdevs[$i] - $stdevStats->mean()) / $stdevStats->standard_deviation()) .
             " vs " . REJECT_STDEV->{$det_type} . "\n";
@@ -130 +130 @@
              ($meanStdevs[$i] - $meanStdevStats->mean()) / $meanStdevStats->standard_deviation() >
              REJECT_MEAN_STDEV->{$det_type}) {
-        print "Rejecting $expId based on bad stdev: " .
+        print "Rejecting $expTag based on bad stdev: " .
             (($meanStdevs[$i] - $meanStdevStats->mean()) / $meanStdevStats->standard_deviation()) .
             " vs " . REJECT_MEAN_STDEV->{$det_type} . "\n";