Changeset 13926

Timestamp:

Jun 20, 2007, 12:47:05 PM (19 years ago)

Author:

Paul Price

Message:

Adding code to pull the fringe amplitudes and errors out of the statistics.

Location:

trunk/ippScripts/scripts

Files:

• chip_imfile.pl (modified) (2 diffs)
• detrend_resid.pl (modified) (1 diff)

trunk/ippScripts/scripts/chip_imfile.pl

@@ -130 +130 @@
 my $bg_stdev = ($stats->bg_stdev() or 'NAN');
 my $bg_mean_stdev = ($stats->bg_mean_stdev() or 'NAN');
+my $fringe_0      = (${$stats->fringe()[0]} or 'NAN');
+my $fringe_1      = (${$stats->fringe_err()[0]} or 'NAN');
+my $fringe_2      = 'NAN';
 
 unless ($no_update) {
@@ -139 +142 @@
     $command .= " -path_base $outputRoot";
     $command .= " -bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev";
+    $command .= " -fringe_0 $fringe_0 -fringe_1 $fringe_1 -fringe_2 $fringe_2";
     # XXX add sigma_ra, etc here
     $command .= " -dbname $dbname" if defined $dbname;

trunk/ippScripts/scripts/detrend_resid.pl

@@ -183 +183 @@
 my $bg_mean_stdev = ($stats->bg_mean_stdev() or 'NAN');
 my $bin_stdev     = ($binnedStats->bg_stdev() or 'NAN');
-#my $fringe_0     = ($stats->frng_00() or 'NAN');
-#my $fringe_1     = ($stats->frng_00D() or 'NAN'); ## XXX for a test: this should be only frng_00D
-#my $fringe_2     = ($stats->frng_01() or 'NAN');
-
-# XXX temporary until paul fixes the metadata lookups above
-my $fringe_0      = 'NAN';
-my $fringe_1      = 'NAN';
+my $fringe_0      = (${$stats->fringe()[0]} or 'NAN');
+my $fringe_1      = (${$stats->fringe_err()[0]} or 'NAN');
 my $fringe_2      = 'NAN';