Changeset 11394 for trunk/ippScripts/scripts/detrend_norm_exp.pl
- Timestamp:
- Jan 29, 2007, 1:11:35 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/detrend_norm_exp.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_norm_exp.pl
r11360 r11394 128 128 open my $list2File, '>' . $list2Name; 129 129 foreach my $file (@$files) { 130 print $list1File ($ipprc->convert_filename_absolute( $file->{b1_uri} ) . "\n"); 131 print $list2File ($ipprc->convert_filename_absolute( $file->{b2_uri} ) . "\n"); 130 my $origRoot = $ipprc->convert_filename_absolute( $file->{b1_uri} ); # Original root name 131 print $list1File ( $ipprc->filename( "PPIMAGE.BIN1", $origRoot, $file->{class_id} ) . "\n"); 132 print $list2File ( $ipprc->filename( "PPIMAGE.BIN2", $origRoot, $file->{class_id} ) . "\n"); 132 133 push @means, $file->{bg}; 133 134 push @stdevs, $file->{bg_stdev}; … … 161 162 unless ($no_update) { 162 163 my $command = "$dettool -addnormalizedexp -det_id $det_id -iteration $iter " . 163 "-recip " . RECIPE1() . "," . RECIPE2() . " -b1_uri $ jpeg1Name -b2_uri $jpeg2Name" .164 "-recip " . RECIPE1() . "," . RECIPE2() . " -b1_uri $outputRoot " . 164 165 "-bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; # Command to run 165 166 $command .= " -dbname $dbname" if defined $dbname;
Note:
See TracChangeset
for help on using the changeset viewer.
