Phantom Image | Reconstructed Image |
\n";
+ $png_pjrec_out_html =~ s/\n/
/gms;
+ $png_pj_out_html =~ s/\n/
/gms;
+ $png_sub_out_html =~ s/\n/
/gms;
+ $out .= "Phantom Image | Reconstructed Image |
\n";
$out .= " $png_gp_out | \n";
- $out .= " $png_ir_out |
\n";
- $out .= "Raysum Sinusoid | Phantom/Reconst Error |
\n";
- $out .= " $png_rs_out | \n";
- $out .= " $diff_out $png_diff_out |
\n";
+ $out .= " $png_pjrec_out | \n";
+ $out .= "Projection Sinogram | Reconstruction Error |
\n";
+ $out .= " $png_pj_out | \n";
+ $out .= " $sub_out $png_sub_out |
\n";
$out .= "
";
- $out .= "Execution time: $execution_time seconds\n";
+ $out .= "Error Measurements
";
+ $out .= "$diff_out";
+ $out .= "
Execution time: $execution_time seconds\n";
}
$out .= "
\n";
-$out .= "Return to CT Simulation Designer.
\n";
-$out .= "Return to Med-Info.\n";
+$out .= "Specify another simulation.
";
+$out .= "Return to CTSim's home.
\n";
$out .= " ";
$out .= "\n";
@@ -220,17 +255,15 @@ else
if (open(JOBFILES,"> $::jobdir/$tmpid"))
{
flock(JOBFILES,LOCK_EX);
- print JOBFILES "gmt_start=$gmt_start\n";
- print JOBFILES "gmt_end=$gmt_end\n";
print JOBFILES "execution_time=$execution_time\n";
print JOBFILES "Phantom_Name=$Phantom_Name\n";
print JOBFILES "Phantom_Nx=$Phantom_Nx\n";
print JOBFILES "Phantom_Ny=$Phantom_Nx\n";
print JOBFILES "Phantom_NSample=$Phantom_NSample\n";
- print JOBFILES "RS_NDet=$RS_NDet\n";
- print JOBFILES "RS_NRot=$RS_NRot\n";
- print JOBFILES "RS_NRay=$RS_NRay\n";
- print JOBFILES "RS_RotAngle=$RS_RotAngle\n";
+ print JOBFILES "PJ_NDet=$PJ_NDet\n";
+ print JOBFILES "PJ_NRot=$PJ_NRot\n";
+ print JOBFILES "PJ_NRay=$PJ_NRay\n";
+ print JOBFILES "PJ_RotAngle=$PJ_RotAngle\n";
print JOBFILES "IR_Nx=$IR_Nx\n";
print JOBFILES "IR_Ny=$IR_Ny\n";
print JOBFILES "IR_Interp=$IR_Interp\n";
@@ -240,7 +273,7 @@ if (open(JOBFILES,"> $::jobdir/$tmpid"))
print JOBFILES "Disp_Min=$Disp_Min\n";
print JOBFILES "Disp_Max=$Disp_Max\n";
print JOBFILES "MPI=$MPI\n";
- print JOBFILES "Files=$result_fname,$phantom_fname,$rs_fname,$ir_fname,$phantom_png,$ir_png,$rs_if_fname,$rs_png\n" if ($error eq "");
+ print JOBFILES "Files=$result_fname,$phantom_fname,$pj_fname,$ir_fname,$phantom_png,$ir_png,$pj_if_fname,$pj_png\n" if ($error eq "");
printf JOBFILES "cmdout=$cmdout\n";
flock(JOBFILES,LOCK_UN);
close JOBFILES;
@@ -269,7 +302,7 @@ sub head
sub FilterMetaChars
{
my $var = pop(@_);
- $var =~ /^(\w+)$/;
+ $var =~ /^([-\w]+)$/;
$1;
}