Changeset 18192
- Timestamp:
- Jun 18, 2008, 5:57:04 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/eam_branch_20080618/ippScripts/scripts/detrend_norm_calc.pl
r18128 r18192 81 81 my @files; # The input files 82 82 { 83 my $command = "$dettool -processedimfile -det_id $det_id"; # Command to run 83 my $command = "$dettool -processedimfile"; 84 $command .= " -det_id $det_id"; # Command to run 85 $command .= " -included"; # only use the inputs for this detrend run to calculate the norm 84 86 $command .= " -dbname $dbname" if defined $dbname; 85 87 my @command = split /\s+/, $command; … … 198 200 } else { 199 201 print "skipping command: $commandBase\n"; 202 foreach my $normItem (@$norms) { 203 204 my $className = $normItem->{name}; # Name of component 205 my $normalisation = $normItem->{value}; # Normalisation for component 206 207 if ($normalisation == 0.0 or lc($normalisation) eq 'nan') { 208 warn("Class $className has bad normalisation: $normalisation"); 209 exit($PS_EXIT_SYS_ERROR); 210 } 211 print "$className : $normalisation\n"; 212 } 200 213 } 201 214
Note:
See TracChangeset
for help on using the changeset viewer.
