Phantom Image | Reconstructed Image |
\n";
+ $out .= "Phantom Image | Reconstructed Image |
\n";
$out .= " $png_gp_out | \n";
$out .= " $png_pjrec_out |
\n";
- $out .= "Projection Sinusoid | Phantom/Reconst Error |
\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 .= "\nStatistics
";
+ $out .= "
Error Measurements
";
$out .= "$diff_out";
+ $out .= "
Execution time: $execution_time seconds\n";
}
$out .= "
\n";
-$out .= "Return to CTSim.
\n";
+$out .= "Specify another simulation.
";
+$out .= "Return to CTSim's home.
\n";
$out .= " ";
$out .= "\n";
@@ -248,8 +255,6 @@ 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";
@@ -297,7 +302,7 @@ sub head
sub FilterMetaChars
{
my $var = pop(@_);
- $var =~ /^(\w+)$/;
+ $var =~ /^([-\w]+)$/;
$1;
}