Changeset 8983

Timestamp:

Sep 26, 2006, 10:38:47 AM (20 years ago)

Author:

Paul Price

Message:

Changes so that it will work with ISP data, with only a single imfile. The main change is that bg_stdev is undef when there's a single imfile, so that we need to explicitly check for that case, and set it to zero, otherwise the binaries barf due to bad command-line arguments.

Location:

trunk/ippScripts/scripts

Files:

• detrend_create_resid.pl (modified) (1 diff)
• detrend_process.pl (modified) (1 diff)
• detrend_stack.pl (modified) (1 diff)
• phase0imfile.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_create_resid.pl

@@ -120 +120 @@
         "-b2_uri $bin2Name"; # Command to run dettool
     $command .= " -bg " . $stats->bg_mean();
-    $command .= " -bg_stdev " . $stats->bg_stdev();
+    if (defined($stats->bg_stdev())) {
+        $command .= " -bg_stdev " . $stats->bg_stdev();
+    } else {
+        # May be undefined if there is only a single imfile
+        $command .= ' -bg_stdev 0';
+    }
     $command .= " -bg_mean_stdev " . $stats->bg_mean_stdev();
 

trunk/ippScripts/scripts/detrend_process.pl

@@ -99 +99 @@
         "-class_id $class_id -recip $recipe -uri $outputImage"; # Command to run dettool
     $command .= " -bg " . $stats->bg_mean();
-    $command .= " -bg_stdev " . $stats->bg_stdev();
+    if (defined($stats->bg_stdev())) {
+        $command .= " -bg_stdev " . $stats->bg_stdev();
+    } else {
+        # May be undefined if there's only a single imfile
+        $command .= " -bg_stdev 0";
+    }
     $command .= " -bg_mean_stdev " . $stats->bg_mean_stdev();
 

trunk/ippScripts/scripts/detrend_stack.pl

@@ -111 +111 @@
         " -uri $output -recip $recipe"; # Command to run
     $command .= ' -bg ' . $stats->bg_mean();
+    if (defined($stats->bg_stdev())) {
     $command .= ' -bg_stdev ' . $stats->bg_stdev();
+    } else {
+        # May be undefined if there is only a single imfile
+        $command .= ' -bg_stdev 0';
+    }
     $command .= ' -bg_mean_stdev ' . $stats->bg_mean_stdev();
     $command .= ' -pleasenormalize' if NORMALISE()->{$det_type};

trunk/ippScripts/scripts/phase0imfile.pl

@@ -103 +103 @@
         $command .= " " . VARIABLES->{$variable} . " " . ($stats->data($variable))->{mean};
     }
-    
+
     $command .= " " . P0TOOL_BG_MEAN() . " " . $stats->bg_mean();
-    $command .= " " . P0TOOL_BG_STDEV() . " " . $stats->bg_stdev();
+    if (defined($stats->bg_stdev())) {
+        $command .= " " . P0TOOL_BG_STDEV() . " " . $stats->bg_stdev();
+    } else {
+        # Will not be defined if there is only a single imfile
+        $command .= " " . P0TOOL_BG_STDEV() . " 0";
+    }
     $command .= " " . P0TOOL_BG_MEAN_STDEV() . " " . $stats->bg_mean_stdev();