Changeset 13639 for trunk/ippScripts/scripts/detrend_reject_exp.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_exp.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -164 +164 @@
     }
     
-    if ($reject_mean and defined $meanStats->standard_deviation() ) {
+    if ($reject_mean > 0 and defined $meanStats->standard_deviation() ) {
         my $dMean = abs($means[$i] - $meanStats->mean()) ;
         if ($dMean > ($reject_mean * $meanStats->standard_deviation())) {
@@ -178 +178 @@
     }
 
-    if ($reject_stdev and defined $stdevStats->standard_deviation() > 0) {
+    if ($reject_stdev > 0 and defined $stdevStats->standard_deviation() > 0) {
         my $dMean = abs($stdevs[$i] - $stdevStats->mean());
         if ($dMean > ($reject_stdev * $stdevStats->standard_deviation())) {
@@ -192 +192 @@
     }
     
-    if ($reject_meanstdev and defined $meanStdevStats->standard_deviation() > 0) {
+    if ($reject_meanstdev > 0 and defined $meanStdevStats->standard_deviation() > 0) {
         my $dMean = abs($meanStdevs[$i] - $meanStdevStats->mean());
         if ($dMean > ($reject_meanstdev * $meanStdevStats->standard_deviation())) {