]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
postprocess iteration steps
authorkanschat <kanschat@0785d39b-7218-0410-832d-ea1e28bc413d>
Mon, 10 May 2010 03:17:55 +0000 (03:17 +0000)
committerkanschat <kanschat@0785d39b-7218-0410-832d-ea1e28bc413d>
Mon, 10 May 2010 03:17:55 +0000 (03:17 +0000)
git-svn-id: https://svn.dealii.org/trunk@21109 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/examples/step-39/postprocess.pl

index c830dc6bbbe146f995f2628fbc8b1908f86adb39..5d60b44f6032de78c2d6564171513a8cfda35593 100644 (file)
@@ -10,16 +10,17 @@ my $step;     # The iteration step in the adaptive loop
 my @dofs;     # The number of degrees of freedom in each step
 my @error;    # The error of the solution
 my @estimate; # The a posteriori error estimate
-
+my @steps;    # The number of multigrid iteration steps
 while(<>)
 {
     $step = $1 if m/DEAL::Step\s*(\d+)/;
     $dofs[$step] = $1 if m/DEAL::DoFHandler\s*(\d+)/;
     $error[$step] = $1 if m/DEAL::Error\s*(\S+)/;
     $estimate[$step] = $1 if m/DEAL::Estimate\s*(\S+)/;
+    $steps[$step] = $1 if m/DEAL:\w+::Convergence step\s*(\S+)/;
 }
 
 for (my $i=0;$i<=$step;++$i)
 {
-    printf "%-3d\t%-7d\t%g\t%g\n", $i, $dofs[$i], $error[$i], $estimate[$i];
+    printf "%-3d\t%-7d\t%g\t%g\t%d\n", $i, $dofs[$i], $error[$i], $estimate[$i], $steps[$i];
 }

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.