Changeset 10459 for trunk/ippScripts/scripts/detrend_reject_exp.pl
- Timestamp:
- Dec 4, 2006, 4:12:42 PM (20 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/detrend_reject_exp.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_reject_exp.pl
r10333 r10459 59 59 my @means; # Array of means 60 60 my @stdevs; # Array of standard deviations 61 my @meanStdevs; # Array of standard deviations of the mean 61 my @meanStdevs; # Array of standard deviations of the mean (normalised by the mean) 62 62 my @variances; # Array of variances 63 63 my @accept; # Array of accept flags … … 73 73 push @means, $exposure->{bg}; 74 74 push @stdevs, $exposure->{bg_stdev}; 75 push @meanStdevs, $exposure->{bg_mean_stdev} ;75 push @meanStdevs, $exposure->{bg_mean_stdev} / $exposure->{bg}; 76 76 push @variances, $exposure->{bg_stdev}**2; 77 77 push @accept, $exposure->{accept}; … … 138 138 if ($nSigma > $reject_meanstdev) { 139 139 print "Rejecting $expTag based on outlier mean stdev: " . 140 $meanStdevs[$i] . " --> $nSigma sigma vs " . $reject_ stdev . "\n";140 $meanStdevs[$i] . " --> $nSigma sigma vs " . $reject_meanstdev . "\n"; 141 141 $reject = 1; 142 142 goto UPDATE;
Note:
See TracChangeset
for help on using the changeset viewer.
