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

Timestamp:

Jun 5, 2007, 9:28:41 AM (19 years ago)

Author:

Paul Price

Message:

For whatever reason, the detrend rejection limits that were coming back were 'zero but true'. Changed the checks to check that the limit is greater than zero, not if the value evaluates to true.

File:

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

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -208 +208 @@
     last if $no_op;
 
-    if ($reject_imfile_mean) {
+    if ($reject_imfile_mean > 0) {
         if (abs($mean) > $reject_imfile_mean * $stdev) {
             print $logFile "Rejecting exposure based on bad imfile mean for $name: ";
@@ -219 +219 @@
         print $logFile "No rejection on imfile mean for $name\n";
     }
-    if ($reject_imfile_stdev) {
+    if ($reject_imfile_stdev > 0) {
         if ($stdev > $reject_imfile_stdev) {
             print $logFile "Rejecting exposure based on bad imfile stdev for $name: ";
@@ -231 +231 @@
         print $logFile "No rejection on imfile stdev for $name\n";
     }
-    if ($reject_imfile_meanstdev) {
+    if ($reject_imfile_meanstdev > 0) {
         if ($meanStdevs[$i] > $reject_imfile_meanstdev) {
             print $logFile "Rejecting exposure based on bad imfile mean stdev for $name: ";
@@ -242 +242 @@
         print $logFile "No rejection on imfile mean stdev for $name\n";
     }
-    if ($reject_imfile_sn) {
+    if ($reject_imfile_sn > 0) {
         if ($mean < $stdev * $reject_imfile_sn) {
             print $logFile "Rejecting exposure based on bad imfile S/N for $name: ";
@@ -253 +253 @@
         print $logFile "No rejection on imfile S/N for $name\n";
     }
-    if ($reject_imfile_bin_sn) {
+    if ($reject_imfile_bin_sn > 0) {
         if ($mean < $binStdev * $reject_imfile_bin_sn) {
             print $logFile "Rejecting exposure based on bad imfile binned S/N for $name: ";
@@ -290 +290 @@
     print $logFile "Exposure mean $mean, stdev $stdev, mean stdev $meanStdev, exp s/n: $exp_sn\n";
 
-    if ($reject_exp_mean) {
+    if ($reject_exp_mean > 0) {
         if (abs($mean) > $reject_exp_mean * $stdev) {
             print $logFile "Rejecting exposure based on bad mean: ";
@@ -302 +302 @@
     }
     # reject if the exposure ensemble stdev is deviant
-    if ($reject_exp_stdev) {
+    if ($reject_exp_stdev > 0) {
         if ($stdev > $reject_exp_stdev) {
             print $logFile "Rejecting exposure based on bad stdev: ";
@@ -314 +314 @@
     }
     # reject if the exposure ensemble mean stdev is deviant
-    if ($reject_exp_meanstdev) {
+    if ($reject_exp_meanstdev > 0) {
         if ($meanStdev > $reject_exp_meanstdev) {
             print $logFile "Rejecting exposure based on bad mean stdev: ";
@@ -326 +326 @@
     }
     # reject if the signal-to-noise is insufficient
-    if ($reject_exp_sn) {
+    if ($reject_exp_sn > 0) {
         if (abs($mean) < abs($stdev * $reject_exp_sn)) {
             print $logFile "Rejecting exposure based on poor S/N: \n";
@@ -338 +338 @@
     }
     # reject if the signal-to-noise is insufficient
-    if ($reject_exp_bin_sn) {
+    if ($reject_exp_bin_sn > 0) {
         if (abs($mean) < abs($binStdev * $reject_exp_bin_sn)) {
             print $logFile "Rejecting exposure based on poor binned S/N: \n";