]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Add support for coarsening as well.
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Mon, 8 Mar 1999 14:30:14 +0000 (14:30 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Mon, 8 Mar 1999 14:30:14 +0000 (14:30 +0000)
git-svn-id: https://svn.dealii.org/trunk@964 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/deal.II/Attic/examples/error-estimation/ee.gauss.prm
deal.II/deal.II/Attic/examples/error-estimation/ee.kink.prm
deal.II/deal.II/Attic/examples/error-estimation/ee.singular.prm
deal.II/deal.II/Attic/examples/error-estimation/error-estimation.cc
tests/big-tests/error-estimation/ee.gauss.prm
tests/big-tests/error-estimation/ee.kink.prm
tests/big-tests/error-estimation/ee.singular.prm
tests/big-tests/error-estimation/error-estimation.cc

index 2efdb4a724e6c223dba19ca6b82c8be5206c8571..560bd59cf3f4ab0aa1c0a3e3c0b3ae2ec0196b42 100644 (file)
@@ -2,6 +2,7 @@ set Test case            = Gauss shape
 set Initial refinement   = 2
 set Refinement criterion = { global | true error | estimated error }
 set Refinement fraction  = 0.3
+set Coarsening fraction  = 0.03
 set Maximum cells        = 10000
 set Output base filename = data-gauss/
 set Output format        = ucd
index e8667dd51011789402c5fefe86a893e15ae1224d..6bf0b8e88c5b66b5d98f7a323996d20eeab7ac0c 100644 (file)
@@ -2,6 +2,7 @@ set Test case            = Kink
 set Initial refinement   = 1
 set Refinement criterion = { global | estimated error }
 set Refinement fraction  = 0.1
+set Coarsening fraction  = 0.02
 set Maximum cells        = 100000
 set Output base filename = data-kink/
 set Output format        = ucd
index 61b6e7571a9b1aa9c85c20ada9075a7df98c2a33..eb6988553a332fd5bd53212a7fae189d2dc3c961 100644 (file)
@@ -2,6 +2,7 @@ set Test case            = Singular
 set Initial refinement   = 1
 set Refinement criterion = { global | estimated error }
 set Refinement fraction  = 0.1
+set Coarsening fraction  = 0.02
 set Maximum cells        = 100000
 set Output base filename = data-singular/
 set Output format        = ucd
index 2ce177e2de375f8c67031ddfdb97f8b448b6d89d..9bbaf662a0526d354eabe1c149710a7ca8559c03 100644 (file)
@@ -362,6 +362,8 @@ void PoissonProblem<dim>::declare_parameters (ParameterHandler &prm) {
                     Patterns::Sequence("global|true error|estimated error"));
   prm.declare_entry ("Refinement fraction", "0.3",
                     Patterns::Double());
+  prm.declare_entry ("Coarsening fraction", "0.1",
+                    Patterns::Double());
   prm.declare_entry ("Maximum cells", "3000",
                     Patterns::Integer());
   prm.declare_entry ("Output base filename", "");
@@ -564,13 +566,13 @@ void PoissonProblem<dim>::run (ParameterHandler &prm) {
          case true_error:
                tria->refine_and_coarsen_fixed_number (h1_error_per_cell,
                                                       prm.get_double("Refinement fraction"),
-                                                      0);
+                                                      prm.get_double("Coarsening fraction"));
                tria->execute_coarsening_and_refinement ();
                break;
          case error_estimator:
                tria->refine_and_coarsen_fixed_number (estimated_error_per_cell,
                                                       prm.get_double("Refinement fraction"),
-                                                      0);
+                                                      prm.get_double("Coarsening fraction"));
                tria->execute_coarsening_and_refinement ();
                break;
        };
index 2efdb4a724e6c223dba19ca6b82c8be5206c8571..560bd59cf3f4ab0aa1c0a3e3c0b3ae2ec0196b42 100644 (file)
@@ -2,6 +2,7 @@ set Test case            = Gauss shape
 set Initial refinement   = 2
 set Refinement criterion = { global | true error | estimated error }
 set Refinement fraction  = 0.3
+set Coarsening fraction  = 0.03
 set Maximum cells        = 10000
 set Output base filename = data-gauss/
 set Output format        = ucd
index e8667dd51011789402c5fefe86a893e15ae1224d..6bf0b8e88c5b66b5d98f7a323996d20eeab7ac0c 100644 (file)
@@ -2,6 +2,7 @@ set Test case            = Kink
 set Initial refinement   = 1
 set Refinement criterion = { global | estimated error }
 set Refinement fraction  = 0.1
+set Coarsening fraction  = 0.02
 set Maximum cells        = 100000
 set Output base filename = data-kink/
 set Output format        = ucd
index 61b6e7571a9b1aa9c85c20ada9075a7df98c2a33..eb6988553a332fd5bd53212a7fae189d2dc3c961 100644 (file)
@@ -2,6 +2,7 @@ set Test case            = Singular
 set Initial refinement   = 1
 set Refinement criterion = { global | estimated error }
 set Refinement fraction  = 0.1
+set Coarsening fraction  = 0.02
 set Maximum cells        = 100000
 set Output base filename = data-singular/
 set Output format        = ucd
index 2ce177e2de375f8c67031ddfdb97f8b448b6d89d..9bbaf662a0526d354eabe1c149710a7ca8559c03 100644 (file)
@@ -362,6 +362,8 @@ void PoissonProblem<dim>::declare_parameters (ParameterHandler &prm) {
                     Patterns::Sequence("global|true error|estimated error"));
   prm.declare_entry ("Refinement fraction", "0.3",
                     Patterns::Double());
+  prm.declare_entry ("Coarsening fraction", "0.1",
+                    Patterns::Double());
   prm.declare_entry ("Maximum cells", "3000",
                     Patterns::Integer());
   prm.declare_entry ("Output base filename", "");
@@ -564,13 +566,13 @@ void PoissonProblem<dim>::run (ParameterHandler &prm) {
          case true_error:
                tria->refine_and_coarsen_fixed_number (h1_error_per_cell,
                                                       prm.get_double("Refinement fraction"),
-                                                      0);
+                                                      prm.get_double("Coarsening fraction"));
                tria->execute_coarsening_and_refinement ();
                break;
          case error_estimator:
                tria->refine_and_coarsen_fixed_number (estimated_error_per_cell,
                                                       prm.get_double("Refinement fraction"),
-                                                      0);
+                                                      prm.get_double("Coarsening fraction"));
                tria->execute_coarsening_and_refinement ();
                break;
        };

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.