Changeset 13989 for trunk/ippScripts/scripts/chip_imfile.pl

Timestamp:

Jun 27, 2007, 8:30:27 AM (19 years ago)

Author:

eugene

Message:

PS::IPP:Metadata::Stats may result in 0, which should not be interpretted as NAN; if the value is NAN, the stats function returns NAN

File:

• trunk/ippScripts/scripts/chip_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/chip_imfile.pl

@@ -127 +127 @@
 
 # Add the processed file to the database
-my $bg = ($stats->bg_mean() or 'NAN');
-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';
+my $bg            = $stats->bg_mean();
+my $bg_stdev      = $stats->bg_stdev();
+my $bg_mean_stdev = $stats->bg_mean_stdev();
+my $fringe_0      = ${$stats->fringe_mean()}[0];
+my $fringe_1      = ${$stats->fringe_err()}[0];
+my $fringe_2      = ${$stats->fringe_mean_stdev()}[0];
+my $dfringe_0     = ${$stats->dfringe_mean()}[0];
+my $dfringe_1     = ${$stats->dfringe_err()}[0];
+my $dfringe_2     = ${$stats->dfringe_mean_stdev()}[0];
 
 unless ($no_update) {
@@ -143 +146 @@
     $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";
+    $command .= " -user_1 $dfringe_0 -user_2 $dfringe_1 -user_3 $dfringe_2";
     # XXX add sigma_ra, etc here
     $command .= " -dbname $dbname" if defined $dbname;