]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Add tests equivalent to the ones in deal.II/ with the same name, except that they...
authorbangerth <bangerth@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 10 Aug 2006 19:42:30 +0000 (19:42 +0000)
committerbangerth <bangerth@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 10 Aug 2006 19:42:30 +0000 (19:42 +0000)
git-svn-id: https://svn.dealii.org/trunk@13640 0785d39b-7218-0410-832d-ea1e28bc413d

13 files changed:
tests/hp/Makefile
tests/hp/interpolate_dgq_01.cc [new file with mode: 0644]
tests/hp/interpolate_dgq_01/cmp/generic [new file with mode: 0644]
tests/hp/interpolate_dgq_02.cc [new file with mode: 0644]
tests/hp/interpolate_dgq_02/cmp/generic [new file with mode: 0644]
tests/hp/interpolate_q_01.cc [new file with mode: 0644]
tests/hp/interpolate_q_01/cmp/generic [new file with mode: 0644]
tests/hp/interpolate_q_02.cc [new file with mode: 0644]
tests/hp/interpolate_q_02/cmp/generic [new file with mode: 0644]
tests/hp/interpolate_q_system_01.cc [new file with mode: 0644]
tests/hp/interpolate_q_system_01/cmp/generic [new file with mode: 0644]
tests/hp/interpolate_q_system_02.cc [new file with mode: 0644]
tests/hp/interpolate_q_system_02/cmp/generic [new file with mode: 0644]

index 908f7e67097d3890e45851e94a50a9ee714abdeb..217e72af6a6fd7a90a4780fbd471813660ee34fc 100644 (file)
@@ -33,7 +33,8 @@ tests_x = hp_dof_handler \
          n_active_fe_indices \
          integrate_difference \
          hp_*_dof_identities_* \
-         hp_hanging_nodes_*
+         hp_hanging_nodes_* \
+         interpolate_*
 
 # from above list of regular expressions, generate the real set of
 # tests
diff --git a/tests/hp/interpolate_dgq_01.cc b/tests/hp/interpolate_dgq_01.cc
new file mode 100644 (file)
index 0000000..e02bee9
--- /dev/null
@@ -0,0 +1,119 @@
+//----------------------------  interpolate_dgq_01.cc  ---------------------------
+//    $Id: interpolate_dgq_01.cc 12732 2006-03-28 23:15:45Z wolf $
+//    Version: $Name$ 
+//
+//    Copyright (C) 2006 by the deal.II authors
+//
+//    This file is subject to QPL and may not be  distributed
+//    without copyright and license information. Please refer
+//    to the file deal.II/doc/license.html for the  text  and
+//    further information on this license.
+//
+//----------------------------  interpolate_dgq_01.cc  ---------------------------
+
+
+// check that VectorTools::interpolate works for FE_DGQ(p) elements correctly on
+// a uniformly refined mesh for functions of degree q
+
+#include "../tests.h"
+#include <base/function.h>
+#include <base/logstream.h>
+#include <base/quadrature_lib.h>
+#include <lac/vector.h>
+
+#include <grid/tria.h>
+#include <dofs/hp_dof_handler.h>
+#include <grid/grid_generator.h>
+#include <grid/grid_refinement.h>
+#include <grid/tria_accessor.h>
+#include <grid/tria_iterator.h>
+#include <grid/tria_boundary_lib.h>
+#include <dofs/dof_accessor.h>
+#include <dofs/dof_tools.h>
+#include <numerics/vectors.h>
+#include <fe/fe_dgq.h>
+#include <fe/q_collection.h>
+
+#include <fstream>
+#include <vector>
+
+
+template <int dim>
+class F :  public Function<dim>
+{
+  public:
+    F (const unsigned int q) : q(q) {}
+    
+    virtual double value (const Point<dim> &p,
+                         const unsigned int) const
+      {
+       double v=0;
+       for (unsigned int d=0; d<dim; ++d)
+         for (unsigned int i=0; i<=q; ++i)
+           v += (d+1)*(i+1)*std::pow (p[d], 1.*i);
+       return v;
+      }
+
+  private:
+    const unsigned int q;
+};
+
+
+
+template <int dim>
+void test ()
+{
+  Triangulation<dim>     triangulation;
+  GridGenerator::hyper_cube (triangulation);
+  triangulation.refine_global (3);
+
+  for (unsigned int p=1; p<7-dim; ++p)
+    {
+      FE_DGQ<dim>              fe(p);
+      hp::FECollection<dim> hp_fe (fe);
+      hp::DoFHandler<dim>        dof_handler(triangulation);
+      dof_handler.distribute_dofs (hp_fe);
+
+      Vector<double> interpolant (dof_handler.n_dofs());
+      Vector<float>  error (triangulation.n_active_cells());
+      for (unsigned int q=0; q<=p+2; ++q)
+       {
+                                          // interpolate the function
+         VectorTools::interpolate (dof_handler,
+                                   F<dim> (q),
+                                   interpolant);
+      
+                                          // then compute the interpolation error
+         VectorTools::integrate_difference (dof_handler,
+                                            interpolant,
+                                            F<dim> (q),
+                                            error,
+                                            hp::QCollection<dim>(QGauss<dim>(q+2)),
+                                            VectorTools::L2_norm);
+         if (q<=p)
+           Assert (error.l2_norm() < 1e-12*interpolant.l2_norm(),
+                   ExcInternalError());
+
+         deallog << fe.get_name() << ", P_" << q
+                 << ", rel. error=" << error.l2_norm() / interpolant.l2_norm()
+                 << std::endl;
+       }
+    }
+}
+
+
+
+int main ()
+{
+  std::ofstream logfile("interpolate_dgq_01/output");
+  logfile.precision (3);
+  
+  deallog.attach(logfile);
+  deallog.depth_console(0);
+  deallog.threshold_double(1.e-10);
+
+  test<1>();
+  test<2>();
+  test<3>();
+}
+
diff --git a/tests/hp/interpolate_dgq_01/cmp/generic b/tests/hp/interpolate_dgq_01/cmp/generic
new file mode 100644 (file)
index 0000000..f9d8496
--- /dev/null
@@ -0,0 +1,68 @@
+
+DEAL::FE_DGQ<1>(1), P_0, rel. error=0
+DEAL::FE_DGQ<1>(1), P_1, rel. error=0
+DEAL::FE_DGQ<1>(1), P_2, rel. error=0.000638
+DEAL::FE_DGQ<1>(1), P_3, rel. error=0.00143
+DEAL::FE_DGQ<1>(2), P_0, rel. error=0
+DEAL::FE_DGQ<1>(2), P_1, rel. error=0
+DEAL::FE_DGQ<1>(2), P_2, rel. error=0
+DEAL::FE_DGQ<1>(2), P_3, rel. error=1.15e-05
+DEAL::FE_DGQ<1>(2), P_4, rel. error=3.26e-05
+DEAL::FE_DGQ<1>(3), P_0, rel. error=0
+DEAL::FE_DGQ<1>(3), P_1, rel. error=0
+DEAL::FE_DGQ<1>(3), P_2, rel. error=0
+DEAL::FE_DGQ<1>(3), P_3, rel. error=0
+DEAL::FE_DGQ<1>(3), P_4, rel. error=2.60e-07
+DEAL::FE_DGQ<1>(3), P_5, rel. error=8.88e-07
+DEAL::FE_DGQ<1>(4), P_0, rel. error=0
+DEAL::FE_DGQ<1>(4), P_1, rel. error=0
+DEAL::FE_DGQ<1>(4), P_2, rel. error=0
+DEAL::FE_DGQ<1>(4), P_3, rel. error=0
+DEAL::FE_DGQ<1>(4), P_4, rel. error=0
+DEAL::FE_DGQ<1>(4), P_5, rel. error=6.71e-09
+DEAL::FE_DGQ<1>(4), P_6, rel. error=2.68e-08
+DEAL::FE_DGQ<1>(5), P_0, rel. error=0
+DEAL::FE_DGQ<1>(5), P_1, rel. error=0
+DEAL::FE_DGQ<1>(5), P_2, rel. error=0
+DEAL::FE_DGQ<1>(5), P_3, rel. error=0
+DEAL::FE_DGQ<1>(5), P_4, rel. error=0
+DEAL::FE_DGQ<1>(5), P_5, rel. error=0
+DEAL::FE_DGQ<1>(5), P_6, rel. error=1.92e-10
+DEAL::FE_DGQ<1>(5), P_7, rel. error=8.80e-10
+DEAL::FE_DGQ<2>(1), P_0, rel. error=0
+DEAL::FE_DGQ<2>(1), P_1, rel. error=0
+DEAL::FE_DGQ<2>(1), P_2, rel. error=0.000161
+DEAL::FE_DGQ<2>(1), P_3, rel. error=0.000360
+DEAL::FE_DGQ<2>(2), P_0, rel. error=0
+DEAL::FE_DGQ<2>(2), P_1, rel. error=0
+DEAL::FE_DGQ<2>(2), P_2, rel. error=0
+DEAL::FE_DGQ<2>(2), P_3, rel. error=1.88e-06
+DEAL::FE_DGQ<2>(2), P_4, rel. error=5.44e-06
+DEAL::FE_DGQ<2>(3), P_0, rel. error=0
+DEAL::FE_DGQ<2>(3), P_1, rel. error=0
+DEAL::FE_DGQ<2>(3), P_2, rel. error=0
+DEAL::FE_DGQ<2>(3), P_3, rel. error=0
+DEAL::FE_DGQ<2>(3), P_4, rel. error=4.09e-08
+DEAL::FE_DGQ<2>(3), P_5, rel. error=1.41e-07
+DEAL::FE_DGQ<2>(4), P_0, rel. error=0
+DEAL::FE_DGQ<2>(4), P_1, rel. error=0
+DEAL::FE_DGQ<2>(4), P_2, rel. error=0
+DEAL::FE_DGQ<2>(4), P_3, rel. error=0
+DEAL::FE_DGQ<2>(4), P_4, rel. error=0
+DEAL::FE_DGQ<2>(4), P_5, rel. error=8.84e-10
+DEAL::FE_DGQ<2>(4), P_6, rel. error=3.59e-09
+DEAL::FE_DGQ<3>(1), P_0, rel. error=0
+DEAL::FE_DGQ<3>(1), P_1, rel. error=0
+DEAL::FE_DGQ<3>(1), P_2, rel. error=4.03e-05
+DEAL::FE_DGQ<3>(1), P_3, rel. error=9.02e-05
+DEAL::FE_DGQ<3>(2), P_0, rel. error=0
+DEAL::FE_DGQ<3>(2), P_1, rel. error=0
+DEAL::FE_DGQ<3>(2), P_2, rel. error=0
+DEAL::FE_DGQ<3>(2), P_3, rel. error=3.30e-07
+DEAL::FE_DGQ<3>(2), P_4, rel. error=9.67e-07
+DEAL::FE_DGQ<3>(3), P_0, rel. error=0
+DEAL::FE_DGQ<3>(3), P_1, rel. error=0
+DEAL::FE_DGQ<3>(3), P_2, rel. error=0
+DEAL::FE_DGQ<3>(3), P_3, rel. error=0
+DEAL::FE_DGQ<3>(3), P_4, rel. error=6.75e-09
+DEAL::FE_DGQ<3>(3), P_5, rel. error=2.32e-08
diff --git a/tests/hp/interpolate_dgq_02.cc b/tests/hp/interpolate_dgq_02.cc
new file mode 100644 (file)
index 0000000..4187034
--- /dev/null
@@ -0,0 +1,129 @@
+//----------------------------  interpolate_dgq_02.cc  ---------------------------
+//    $Id: interpolate_dgq_02.cc 12732 2006-03-28 23:15:45Z wolf $
+//    Version: $Name$ 
+//
+//    Copyright (C) 2006 by the deal.II authors
+//
+//    This file is subject to QPL and may not be  distributed
+//    without copyright and license information. Please refer
+//    to the file deal.II/doc/license.html for the  text  and
+//    further information on this license.
+//
+//----------------------------  interpolate_dgq_02.cc  ---------------------------
+
+
+// check that VectorTools::interpolate works for FE_DGQ(p) elements correctly on
+// an adaptively refined mesh for functions of degree q
+
+#include "../tests.h"
+#include <base/function.h>
+#include <base/logstream.h>
+#include <base/quadrature_lib.h>
+#include <lac/vector.h>
+
+#include <grid/tria.h>
+#include <dofs/hp_dof_handler.h>
+#include <dofs/dof_tools.h>
+#include <dofs/dof_constraints.h>
+#include <grid/grid_generator.h>
+#include <grid/grid_refinement.h>
+#include <grid/tria_accessor.h>
+#include <grid/tria_iterator.h>
+#include <grid/tria_boundary_lib.h>
+#include <dofs/dof_accessor.h>
+#include <dofs/dof_tools.h>
+#include <numerics/vectors.h>
+#include <fe/fe_dgq.h>
+#include <fe/q_collection.h>
+
+#include <fstream>
+#include <vector>
+
+
+template <int dim>
+class F :  public Function<dim>
+{
+  public:
+    F (const unsigned int q) : q(q) {}
+    
+    virtual double value (const Point<dim> &p,
+                         const unsigned int) const
+      {
+       double v=0;
+       for (unsigned int d=0; d<dim; ++d)
+         for (unsigned int i=0; i<=q; ++i)
+           v += (d+1)*(i+1)*std::pow (p[d], 1.*i);
+       return v;
+      }
+
+  private:
+    const unsigned int q;
+};
+
+
+
+template <int dim>
+void test ()
+{
+  Triangulation<dim>     triangulation;
+  GridGenerator::hyper_cube (triangulation);
+  triangulation.refine_global (1);
+  triangulation.begin_active()->set_refine_flag ();
+  triangulation.execute_coarsening_and_refinement ();
+  triangulation.refine_global (1);  
+
+  for (unsigned int p=1; p<6-dim; ++p)
+    {
+      FE_DGQ<dim>              fe(p);
+      hp::FECollection<dim> hp_fe (fe);
+      hp::DoFHandler<dim>        dof_handler(triangulation);
+      dof_handler.distribute_dofs (hp_fe);
+
+      ConstraintMatrix constraints;
+      DoFTools::make_hanging_node_constraints (dof_handler, constraints);
+      constraints.close ();
+      
+      Vector<double> interpolant (dof_handler.n_dofs());
+      Vector<float>  error (triangulation.n_active_cells());
+      for (unsigned int q=0; q<=p+2; ++q)
+       {
+                                          // interpolate the function
+         VectorTools::interpolate (dof_handler,
+                                   F<dim> (q),
+                                   interpolant);
+         constraints.distribute (interpolant);
+         
+                                          // then compute the interpolation error
+         VectorTools::integrate_difference (dof_handler,
+                                            interpolant,
+                                            F<dim> (q),
+                                            error,
+                                            hp::QCollection<dim>(QGauss<dim>(q+2)),
+                                            VectorTools::L2_norm);
+         if (q<=p)
+           Assert (error.l2_norm() < 1e-12*interpolant.l2_norm(),
+                   ExcInternalError());
+
+         deallog << fe.get_name() << ", P_" << q
+                 << ", rel. error=" << error.l2_norm() / interpolant.l2_norm()
+                 << std::endl;
+       }
+    }
+}
+
+
+
+int main ()
+{
+  std::ofstream logfile("interpolate_dgq_02/output");
+  logfile.precision (3);
+  
+  deallog.attach(logfile);
+  deallog.depth_console(0);
+  deallog.threshold_double(1.e-10);
+
+  test<1>();
+  test<2>();
+  test<3>();
+}
+
diff --git a/tests/hp/interpolate_dgq_02/cmp/generic b/tests/hp/interpolate_dgq_02/cmp/generic
new file mode 100644 (file)
index 0000000..ad68d0f
--- /dev/null
@@ -0,0 +1,47 @@
+
+DEAL::FE_DGQ<1>(1), P_0, rel. error=0
+DEAL::FE_DGQ<1>(1), P_1, rel. error=0
+DEAL::FE_DGQ<1>(1), P_2, rel. error=0.00243
+DEAL::FE_DGQ<1>(1), P_3, rel. error=0.00676
+DEAL::FE_DGQ<1>(2), P_0, rel. error=0
+DEAL::FE_DGQ<1>(2), P_1, rel. error=0
+DEAL::FE_DGQ<1>(2), P_2, rel. error=0
+DEAL::FE_DGQ<1>(2), P_3, rel. error=8.78e-05
+DEAL::FE_DGQ<1>(2), P_4, rel. error=0.000315
+DEAL::FE_DGQ<1>(3), P_0, rel. error=0
+DEAL::FE_DGQ<1>(3), P_1, rel. error=0
+DEAL::FE_DGQ<1>(3), P_2, rel. error=0
+DEAL::FE_DGQ<1>(3), P_3, rel. error=0
+DEAL::FE_DGQ<1>(3), P_4, rel. error=3.99e-06
+DEAL::FE_DGQ<1>(3), P_5, rel. error=1.74e-05
+DEAL::FE_DGQ<1>(4), P_0, rel. error=0
+DEAL::FE_DGQ<1>(4), P_1, rel. error=0
+DEAL::FE_DGQ<1>(4), P_2, rel. error=0
+DEAL::FE_DGQ<1>(4), P_3, rel. error=0
+DEAL::FE_DGQ<1>(4), P_4, rel. error=0
+DEAL::FE_DGQ<1>(4), P_5, rel. error=2.07e-07
+DEAL::FE_DGQ<1>(4), P_6, rel. error=1.06e-06
+DEAL::FE_DGQ<2>(1), P_0, rel. error=0
+DEAL::FE_DGQ<2>(1), P_1, rel. error=0
+DEAL::FE_DGQ<2>(1), P_2, rel. error=0.00100
+DEAL::FE_DGQ<2>(1), P_3, rel. error=0.00249
+DEAL::FE_DGQ<2>(2), P_0, rel. error=0
+DEAL::FE_DGQ<2>(2), P_1, rel. error=0
+DEAL::FE_DGQ<2>(2), P_2, rel. error=0
+DEAL::FE_DGQ<2>(2), P_3, rel. error=2.41e-05
+DEAL::FE_DGQ<2>(2), P_4, rel. error=7.74e-05
+DEAL::FE_DGQ<2>(3), P_0, rel. error=0
+DEAL::FE_DGQ<2>(3), P_1, rel. error=0
+DEAL::FE_DGQ<2>(3), P_2, rel. error=0
+DEAL::FE_DGQ<2>(3), P_3, rel. error=0
+DEAL::FE_DGQ<2>(3), P_4, rel. error=1.07e-06
+DEAL::FE_DGQ<2>(3), P_5, rel. error=4.06e-06
+DEAL::FE_DGQ<3>(1), P_0, rel. error=0
+DEAL::FE_DGQ<3>(1), P_1, rel. error=0
+DEAL::FE_DGQ<3>(1), P_2, rel. error=0.000375
+DEAL::FE_DGQ<3>(1), P_3, rel. error=0.000898
+DEAL::FE_DGQ<3>(2), P_0, rel. error=0
+DEAL::FE_DGQ<3>(2), P_1, rel. error=0
+DEAL::FE_DGQ<3>(2), P_2, rel. error=0
+DEAL::FE_DGQ<3>(2), P_3, rel. error=6.40e-06
+DEAL::FE_DGQ<3>(2), P_4, rel. error=1.98e-05
diff --git a/tests/hp/interpolate_q_01.cc b/tests/hp/interpolate_q_01.cc
new file mode 100644 (file)
index 0000000..3911655
--- /dev/null
@@ -0,0 +1,120 @@
+//----------------------------  interpolate_q_01.cc  ---------------------------
+//    $Id: interpolate_q_01.cc 12732 2006-03-28 23:15:45Z wolf $
+//    Version: $Name$ 
+//
+//    Copyright (C) 2006 by the deal.II authors
+//
+//    This file is subject to QPL and may not be  distributed
+//    without copyright and license information. Please refer
+//    to the file deal.II/doc/license.html for the  text  and
+//    further information on this license.
+//
+//----------------------------  interpolate_q_01.cc  ---------------------------
+
+
+// check that VectorTools::interpolate works for FE_Q(p) elements correctly on
+// a uniformly refined mesh for functions of degree q
+
+#include "../tests.h"
+#include <base/function.h>
+#include <base/logstream.h>
+#include <base/quadrature_lib.h>
+#include <lac/vector.h>
+
+#include <grid/tria.h>
+#include <dofs/hp_dof_handler.h>
+#include <grid/grid_generator.h>
+#include <grid/grid_refinement.h>
+#include <grid/tria_accessor.h>
+#include <grid/tria_iterator.h>
+#include <grid/tria_boundary_lib.h>
+#include <dofs/dof_accessor.h>
+#include <dofs/dof_tools.h>
+#include <numerics/vectors.h>
+#include <fe/fe_q.h>
+#include <fe/q_collection.h>
+
+#include <fstream>
+#include <vector>
+
+
+template <int dim>
+class F :  public Function<dim>
+{
+  public:
+    F (const unsigned int q) : q(q) {}
+    
+    virtual double value (const Point<dim> &p,
+                         const unsigned int) const
+      {
+       double v=0;
+       for (unsigned int d=0; d<dim; ++d)
+         for (unsigned int i=0; i<=q; ++i)
+           v += (d+1)*(i+1)*std::pow (p[d], 1.*i);
+       return v;
+      }
+
+  private:
+    const unsigned int q;
+};
+
+
+
+template <int dim>
+void test ()
+{
+  Triangulation<dim>     triangulation;
+  GridGenerator::hyper_cube (triangulation);
+  triangulation.refine_global (3);
+
+  for (unsigned int p=1; p<7-dim; ++p)
+    {
+      FE_Q<dim>              fe(p);
+      hp::FECollection<dim> hp_fe (fe);
+      
+      hp::DoFHandler<dim>        dof_handler(triangulation);
+      dof_handler.distribute_dofs (hp_fe);
+
+      Vector<double> interpolant (dof_handler.n_dofs());
+      Vector<float>  error (triangulation.n_active_cells());
+      for (unsigned int q=0; q<=p+2; ++q)
+       {
+                                          // interpolate the function
+         VectorTools::interpolate (dof_handler,
+                                   F<dim> (q),
+                                   interpolant);
+      
+                                          // then compute the interpolation error
+         VectorTools::integrate_difference (dof_handler,
+                                            interpolant,
+                                            F<dim> (q),
+                                            error,
+                                            hp::QCollection<dim>(QGauss<dim>(q+2)),
+                                            VectorTools::L2_norm);
+         if (q<=p)
+           Assert (error.l2_norm() < 1e-12*interpolant.l2_norm(),
+                   ExcInternalError());
+
+         deallog << fe.get_name() << ", P_" << q
+                 << ", rel. error=" << error.l2_norm() / interpolant.l2_norm()
+                 << std::endl;
+       }
+    }
+}
+
+
+
+int main ()
+{
+  std::ofstream logfile("interpolate_q_01/output");
+  logfile.precision (3);
+  
+  deallog.attach(logfile);
+  deallog.depth_console(0);
+  deallog.threshold_double(1.e-10);
+
+  test<1>();
+  test<2>();
+  test<3>();
+}
+
diff --git a/tests/hp/interpolate_q_01/cmp/generic b/tests/hp/interpolate_q_01/cmp/generic
new file mode 100644 (file)
index 0000000..7f0730a
--- /dev/null
@@ -0,0 +1,68 @@
+
+DEAL::FE_Q<1>(1), P_0, rel. error=0
+DEAL::FE_Q<1>(1), P_1, rel. error=0
+DEAL::FE_Q<1>(1), P_2, rel. error=0.000822
+DEAL::FE_Q<1>(1), P_3, rel. error=0.00179
+DEAL::FE_Q<1>(2), P_0, rel. error=0
+DEAL::FE_Q<1>(2), P_1, rel. error=0
+DEAL::FE_Q<1>(2), P_2, rel. error=0
+DEAL::FE_Q<1>(2), P_3, rel. error=1.32e-05
+DEAL::FE_Q<1>(2), P_4, rel. error=3.70e-05
+DEAL::FE_Q<1>(3), P_0, rel. error=0
+DEAL::FE_Q<1>(3), P_1, rel. error=0
+DEAL::FE_Q<1>(3), P_2, rel. error=0
+DEAL::FE_Q<1>(3), P_3, rel. error=0
+DEAL::FE_Q<1>(3), P_4, rel. error=2.85e-07
+DEAL::FE_Q<1>(3), P_5, rel. error=9.66e-07
+DEAL::FE_Q<1>(4), P_0, rel. error=0
+DEAL::FE_Q<1>(4), P_1, rel. error=0
+DEAL::FE_Q<1>(4), P_2, rel. error=0
+DEAL::FE_Q<1>(4), P_3, rel. error=0
+DEAL::FE_Q<1>(4), P_4, rel. error=0
+DEAL::FE_Q<1>(4), P_5, rel. error=7.18e-09
+DEAL::FE_Q<1>(4), P_6, rel. error=2.85e-08
+DEAL::FE_Q<1>(5), P_0, rel. error=0
+DEAL::FE_Q<1>(5), P_1, rel. error=0
+DEAL::FE_Q<1>(5), P_2, rel. error=0
+DEAL::FE_Q<1>(5), P_3, rel. error=0
+DEAL::FE_Q<1>(5), P_4, rel. error=0
+DEAL::FE_Q<1>(5), P_5, rel. error=0
+DEAL::FE_Q<1>(5), P_6, rel. error=2.02e-10
+DEAL::FE_Q<1>(5), P_7, rel. error=9.20e-10
+DEAL::FE_Q<2>(1), P_0, rel. error=0
+DEAL::FE_Q<2>(1), P_1, rel. error=0
+DEAL::FE_Q<2>(1), P_2, rel. error=0.000278
+DEAL::FE_Q<2>(1), P_3, rel. error=0.000606
+DEAL::FE_Q<2>(2), P_0, rel. error=0
+DEAL::FE_Q<2>(2), P_1, rel. error=0
+DEAL::FE_Q<2>(2), P_2, rel. error=0
+DEAL::FE_Q<2>(2), P_3, rel. error=2.58e-06
+DEAL::FE_Q<2>(2), P_4, rel. error=7.37e-06
+DEAL::FE_Q<2>(3), P_0, rel. error=0
+DEAL::FE_Q<2>(3), P_1, rel. error=0
+DEAL::FE_Q<2>(3), P_2, rel. error=0
+DEAL::FE_Q<2>(3), P_3, rel. error=0
+DEAL::FE_Q<2>(3), P_4, rel. error=5.09e-08
+DEAL::FE_Q<2>(3), P_5, rel. error=1.74e-07
+DEAL::FE_Q<2>(4), P_0, rel. error=0
+DEAL::FE_Q<2>(4), P_1, rel. error=0
+DEAL::FE_Q<2>(4), P_2, rel. error=0
+DEAL::FE_Q<2>(4), P_3, rel. error=0
+DEAL::FE_Q<2>(4), P_4, rel. error=0
+DEAL::FE_Q<2>(4), P_5, rel. error=1.04e-09
+DEAL::FE_Q<2>(4), P_6, rel. error=4.21e-09
+DEAL::FE_Q<3>(1), P_0, rel. error=0
+DEAL::FE_Q<3>(1), P_1, rel. error=0
+DEAL::FE_Q<3>(1), P_2, rel. error=9.31e-05
+DEAL::FE_Q<3>(1), P_3, rel. error=0.000203
+DEAL::FE_Q<3>(2), P_0, rel. error=0
+DEAL::FE_Q<3>(2), P_1, rel. error=0
+DEAL::FE_Q<3>(2), P_2, rel. error=0
+DEAL::FE_Q<3>(2), P_3, rel. error=5.40e-07
+DEAL::FE_Q<3>(2), P_4, rel. error=1.56e-06
+DEAL::FE_Q<3>(3), P_0, rel. error=0
+DEAL::FE_Q<3>(3), P_1, rel. error=0
+DEAL::FE_Q<3>(3), P_2, rel. error=0
+DEAL::FE_Q<3>(3), P_3, rel. error=0
+DEAL::FE_Q<3>(3), P_4, rel. error=9.53e-09
+DEAL::FE_Q<3>(3), P_5, rel. error=3.25e-08
diff --git a/tests/hp/interpolate_q_02.cc b/tests/hp/interpolate_q_02.cc
new file mode 100644 (file)
index 0000000..af6f4d5
--- /dev/null
@@ -0,0 +1,129 @@
+//----------------------------  interpolate_q_02.cc  ---------------------------
+//    $Id: interpolate_q_02.cc 12732 2006-03-28 23:15:45Z wolf $
+//    Version: $Name$ 
+//
+//    Copyright (C) 2006 by the deal.II authors
+//
+//    This file is subject to QPL and may not be  distributed
+//    without copyright and license information. Please refer
+//    to the file deal.II/doc/license.html for the  text  and
+//    further information on this license.
+//
+//----------------------------  interpolate_q_02.cc  ---------------------------
+
+
+// check that VectorTools::interpolate works for FE_Q(p) elements correctly on
+// an adaptively refined mesh for functions of degree q
+
+#include "../tests.h"
+#include <base/function.h>
+#include <base/logstream.h>
+#include <base/quadrature_lib.h>
+#include <lac/vector.h>
+
+#include <grid/tria.h>
+#include <dofs/hp_dof_handler.h>
+#include <dofs/dof_tools.h>
+#include <dofs/dof_constraints.h>
+#include <grid/grid_generator.h>
+#include <grid/grid_refinement.h>
+#include <grid/tria_accessor.h>
+#include <grid/tria_iterator.h>
+#include <grid/tria_boundary_lib.h>
+#include <dofs/dof_accessor.h>
+#include <dofs/dof_tools.h>
+#include <numerics/vectors.h>
+#include <fe/fe_q.h>
+#include <fe/q_collection.h>
+
+#include <fstream>
+#include <vector>
+
+
+template <int dim>
+class F :  public Function<dim>
+{
+  public:
+    F (const unsigned int q) : q(q) {}
+    
+    virtual double value (const Point<dim> &p,
+                         const unsigned int) const
+      {
+       double v=0;
+       for (unsigned int d=0; d<dim; ++d)
+         for (unsigned int i=0; i<=q; ++i)
+           v += (d+1)*(i+1)*std::pow (p[d], 1.*i);
+       return v;
+      }
+
+  private:
+    const unsigned int q;
+};
+
+
+
+template <int dim>
+void test ()
+{
+  Triangulation<dim>     triangulation;
+  GridGenerator::hyper_cube (triangulation);
+  triangulation.refine_global (1);
+  triangulation.begin_active()->set_refine_flag ();
+  triangulation.execute_coarsening_and_refinement ();
+  triangulation.refine_global (1);  
+
+  for (unsigned int p=1; p<6-dim; ++p)
+    {
+      FE_Q<dim>              fe(p);
+      hp::FECollection<dim> hp_fe (fe);
+      hp::DoFHandler<dim>        dof_handler(triangulation);
+      dof_handler.distribute_dofs (hp_fe);
+
+      ConstraintMatrix constraints;
+      DoFTools::make_hanging_node_constraints (dof_handler, constraints);
+      constraints.close ();
+      
+      Vector<double> interpolant (dof_handler.n_dofs());
+      Vector<float>  error (triangulation.n_active_cells());
+      for (unsigned int q=0; q<=p+2; ++q)
+       {
+                                          // interpolate the function
+         VectorTools::interpolate (dof_handler,
+                                   F<dim> (q),
+                                   interpolant);
+         constraints.distribute (interpolant);
+         
+                                          // then compute the interpolation error
+         VectorTools::integrate_difference (dof_handler,
+                                            interpolant,
+                                            F<dim> (q),
+                                            error,
+                                            hp::QCollection<dim>(QGauss<dim>(q+2)),
+                                            VectorTools::L2_norm);
+         if (q<=p)
+           Assert (error.l2_norm() < 1e-12*interpolant.l2_norm(),
+                   ExcInternalError());
+
+         deallog << fe.get_name() << ", P_" << q
+                 << ", rel. error=" << error.l2_norm() / interpolant.l2_norm()
+                 << std::endl;
+       }
+    }
+}
+
+
+
+int main ()
+{
+  std::ofstream logfile("interpolate_q_02/output");
+  logfile.precision (3);
+  
+  deallog.attach(logfile);
+  deallog.depth_console(0);
+  deallog.threshold_double(1.e-10);
+
+  test<1>();
+  test<2>();
+  test<3>();
+}
+
diff --git a/tests/hp/interpolate_q_02/cmp/generic b/tests/hp/interpolate_q_02/cmp/generic
new file mode 100644 (file)
index 0000000..7f0730a
--- /dev/null
@@ -0,0 +1,68 @@
+
+DEAL::FE_Q<1>(1), P_0, rel. error=0
+DEAL::FE_Q<1>(1), P_1, rel. error=0
+DEAL::FE_Q<1>(1), P_2, rel. error=0.000822
+DEAL::FE_Q<1>(1), P_3, rel. error=0.00179
+DEAL::FE_Q<1>(2), P_0, rel. error=0
+DEAL::FE_Q<1>(2), P_1, rel. error=0
+DEAL::FE_Q<1>(2), P_2, rel. error=0
+DEAL::FE_Q<1>(2), P_3, rel. error=1.32e-05
+DEAL::FE_Q<1>(2), P_4, rel. error=3.70e-05
+DEAL::FE_Q<1>(3), P_0, rel. error=0
+DEAL::FE_Q<1>(3), P_1, rel. error=0
+DEAL::FE_Q<1>(3), P_2, rel. error=0
+DEAL::FE_Q<1>(3), P_3, rel. error=0
+DEAL::FE_Q<1>(3), P_4, rel. error=2.85e-07
+DEAL::FE_Q<1>(3), P_5, rel. error=9.66e-07
+DEAL::FE_Q<1>(4), P_0, rel. error=0
+DEAL::FE_Q<1>(4), P_1, rel. error=0
+DEAL::FE_Q<1>(4), P_2, rel. error=0
+DEAL::FE_Q<1>(4), P_3, rel. error=0
+DEAL::FE_Q<1>(4), P_4, rel. error=0
+DEAL::FE_Q<1>(4), P_5, rel. error=7.18e-09
+DEAL::FE_Q<1>(4), P_6, rel. error=2.85e-08
+DEAL::FE_Q<1>(5), P_0, rel. error=0
+DEAL::FE_Q<1>(5), P_1, rel. error=0
+DEAL::FE_Q<1>(5), P_2, rel. error=0
+DEAL::FE_Q<1>(5), P_3, rel. error=0
+DEAL::FE_Q<1>(5), P_4, rel. error=0
+DEAL::FE_Q<1>(5), P_5, rel. error=0
+DEAL::FE_Q<1>(5), P_6, rel. error=2.02e-10
+DEAL::FE_Q<1>(5), P_7, rel. error=9.20e-10
+DEAL::FE_Q<2>(1), P_0, rel. error=0
+DEAL::FE_Q<2>(1), P_1, rel. error=0
+DEAL::FE_Q<2>(1), P_2, rel. error=0.000278
+DEAL::FE_Q<2>(1), P_3, rel. error=0.000606
+DEAL::FE_Q<2>(2), P_0, rel. error=0
+DEAL::FE_Q<2>(2), P_1, rel. error=0
+DEAL::FE_Q<2>(2), P_2, rel. error=0
+DEAL::FE_Q<2>(2), P_3, rel. error=2.58e-06
+DEAL::FE_Q<2>(2), P_4, rel. error=7.37e-06
+DEAL::FE_Q<2>(3), P_0, rel. error=0
+DEAL::FE_Q<2>(3), P_1, rel. error=0
+DEAL::FE_Q<2>(3), P_2, rel. error=0
+DEAL::FE_Q<2>(3), P_3, rel. error=0
+DEAL::FE_Q<2>(3), P_4, rel. error=5.09e-08
+DEAL::FE_Q<2>(3), P_5, rel. error=1.74e-07
+DEAL::FE_Q<2>(4), P_0, rel. error=0
+DEAL::FE_Q<2>(4), P_1, rel. error=0
+DEAL::FE_Q<2>(4), P_2, rel. error=0
+DEAL::FE_Q<2>(4), P_3, rel. error=0
+DEAL::FE_Q<2>(4), P_4, rel. error=0
+DEAL::FE_Q<2>(4), P_5, rel. error=1.04e-09
+DEAL::FE_Q<2>(4), P_6, rel. error=4.21e-09
+DEAL::FE_Q<3>(1), P_0, rel. error=0
+DEAL::FE_Q<3>(1), P_1, rel. error=0
+DEAL::FE_Q<3>(1), P_2, rel. error=9.31e-05
+DEAL::FE_Q<3>(1), P_3, rel. error=0.000203
+DEAL::FE_Q<3>(2), P_0, rel. error=0
+DEAL::FE_Q<3>(2), P_1, rel. error=0
+DEAL::FE_Q<3>(2), P_2, rel. error=0
+DEAL::FE_Q<3>(2), P_3, rel. error=5.40e-07
+DEAL::FE_Q<3>(2), P_4, rel. error=1.56e-06
+DEAL::FE_Q<3>(3), P_0, rel. error=0
+DEAL::FE_Q<3>(3), P_1, rel. error=0
+DEAL::FE_Q<3>(3), P_2, rel. error=0
+DEAL::FE_Q<3>(3), P_3, rel. error=0
+DEAL::FE_Q<3>(3), P_4, rel. error=9.53e-09
+DEAL::FE_Q<3>(3), P_5, rel. error=3.25e-08
diff --git a/tests/hp/interpolate_q_system_01.cc b/tests/hp/interpolate_q_system_01.cc
new file mode 100644 (file)
index 0000000..20505e5
--- /dev/null
@@ -0,0 +1,123 @@
+//----------------------------  interpolate_q_system_01.cc  ---------------------------
+//    $Id: interpolate_q_system_01.cc 12732 2006-03-28 23:15:45Z wolf $
+//    Version: $Name$ 
+//
+//    Copyright (C) 2006 by the deal.II authors
+//
+//    This file is subject to QPL and may not be  distributed
+//    without copyright and license information. Please refer
+//    to the file deal.II/doc/license.html for the  text  and
+//    further information on this license.
+//
+//----------------------------  interpolate_q_system_01.cc  ---------------------------
+
+
+// check that VectorTools::interpolate works for FE_System(FE_Q(p)) elements correctly on
+// a uniformly refined mesh for functions of degree q
+
+#include "../tests.h"
+#include <base/function.h>
+#include <base/logstream.h>
+#include <base/quadrature_lib.h>
+#include <lac/vector.h>
+
+#include <grid/tria.h>
+#include <dofs/hp_dof_handler.h>
+#include <grid/grid_generator.h>
+#include <grid/grid_refinement.h>
+#include <grid/tria_accessor.h>
+#include <grid/tria_iterator.h>
+#include <grid/tria_boundary_lib.h>
+#include <dofs/dof_accessor.h>
+#include <dofs/dof_tools.h>
+#include <numerics/vectors.h>
+#include <fe/fe_q.h>
+#include <fe/fe_system.h>
+#include <fe/q_collection.h>
+
+#include <fstream>
+#include <vector>
+
+
+template <int dim>
+class F :  public Function<dim>
+{
+  public:
+    F (const unsigned int q) : Function<dim>(3), q(q) {}
+    
+    virtual void vector_value (const Point<dim> &p,
+                              Vector<double>   &v) const
+      {
+       for (unsigned int c=0; c<v.size(); ++c)
+         {
+           v(c) = 0;
+           for (unsigned int d=0; d<dim; ++d)
+             for (unsigned int i=0; i<=q; ++i)
+               v(c) += (d+1)*(i+1)*std::pow (p[d], 1.*i)+c;
+         }
+      }
+
+  private:
+    const unsigned int q;
+};
+
+
+
+template <int dim>
+void test ()
+{
+  Triangulation<dim>     triangulation;
+  GridGenerator::hyper_cube (triangulation);
+  triangulation.refine_global (3);
+
+  for (unsigned int p=1; p<6-dim; ++p)
+    {
+      FESystem<dim>              fe(FE_Q<dim>(p), 2,
+                                   FE_Q<dim>(p+1), 1);
+      hp::FECollection<dim> hp_fe (fe);
+      hp::DoFHandler<dim>        dof_handler(triangulation);
+      dof_handler.distribute_dofs (hp_fe);
+
+      Vector<double> interpolant (dof_handler.n_dofs());
+      Vector<float>  error (triangulation.n_active_cells());
+      for (unsigned int q=0; q<=p+2; ++q)
+       {
+                                          // interpolate the function
+         VectorTools::interpolate (dof_handler,
+                                   F<dim> (q),
+                                   interpolant);
+      
+                                          // then compute the interpolation error
+         VectorTools::integrate_difference (dof_handler,
+                                            interpolant,
+                                            F<dim> (q),
+                                            error,
+                                            hp::QCollection<dim>(QGauss<dim>(q+2)),
+                                            VectorTools::L2_norm);
+         if (q<=p)
+           Assert (error.l2_norm() < 1e-12*interpolant.l2_norm(),
+                   ExcInternalError());
+
+         deallog << fe.get_name() << ", P_" << q
+                 << ", rel. error=" << error.l2_norm() / interpolant.l2_norm()
+                 << std::endl;
+       }
+    }
+}
+
+
+
+int main ()
+{
+  std::ofstream logfile("interpolate_q_system_01/output");
+  logfile.precision (3);
+  
+  deallog.attach(logfile);
+  deallog.depth_console(0);
+  deallog.threshold_double(1.e-10);
+
+  test<1>();
+  test<2>();
+  test<3>();
+}
+
diff --git a/tests/hp/interpolate_q_system_01/cmp/generic b/tests/hp/interpolate_q_system_01/cmp/generic
new file mode 100644 (file)
index 0000000..35cf8fe
--- /dev/null
@@ -0,0 +1,47 @@
+
+DEAL::FESystem<1>[FE_Q<1>(1)^2-FE_Q<1>(2)], P_0, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(1)^2-FE_Q<1>(2)], P_1, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(1)^2-FE_Q<1>(2)], P_2, rel. error=0.000278
+DEAL::FESystem<1>[FE_Q<1>(1)^2-FE_Q<1>(2)], P_3, rel. error=0.000654
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_0, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_1, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_2, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_3, rel. error=5.15e-06
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_4, rel. error=1.52e-05
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_0, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_1, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_2, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_3, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_4, rel. error=1.20e-07
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_5, rel. error=4.27e-07
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_0, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_1, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_2, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_3, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_4, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_5, rel. error=3.21e-09
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_6, rel. error=1.33e-08
+DEAL::FESystem<2>[FE_Q<2>(1)^2-FE_Q<2>(2)], P_0, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(1)^2-FE_Q<2>(2)], P_1, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(1)^2-FE_Q<2>(2)], P_2, rel. error=8.74e-05
+DEAL::FESystem<2>[FE_Q<2>(1)^2-FE_Q<2>(2)], P_3, rel. error=0.000201
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_0, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_1, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_2, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_3, rel. error=1.02e-06
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_4, rel. error=3.01e-06
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_0, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_1, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_2, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_3, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_4, rel. error=2.22e-08
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_5, rel. error=7.82e-08
+DEAL::FESystem<3>[FE_Q<3>(1)^2-FE_Q<3>(2)], P_0, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(1)^2-FE_Q<3>(2)], P_1, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(1)^2-FE_Q<3>(2)], P_2, rel. error=2.52e-05
+DEAL::FESystem<3>[FE_Q<3>(1)^2-FE_Q<3>(2)], P_3, rel. error=5.74e-05
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_0, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_1, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_2, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_3, rel. error=2.04e-07
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_4, rel. error=6.07e-07
diff --git a/tests/hp/interpolate_q_system_02.cc b/tests/hp/interpolate_q_system_02.cc
new file mode 100644 (file)
index 0000000..1172bfa
--- /dev/null
@@ -0,0 +1,134 @@
+//----------------------------  interpolate_q_system_01.cc  ---------------------------
+//    $Id: interpolate_q_system_02.cc 12732 2006-03-28 23:15:45Z wolf $
+//    Version: $Name$ 
+//
+//    Copyright (C) 2006 by the deal.II authors
+//
+//    This file is subject to QPL and may not be  distributed
+//    without copyright and license information. Please refer
+//    to the file deal.II/doc/license.html for the  text  and
+//    further information on this license.
+//
+//----------------------------  interpolate_q_system_02.cc  ---------------------------
+
+
+// check that VectorTools::interpolate works for FE_System(FE_Q(p)) elements correctly on
+// an adaptively refined mesh for functions of degree q
+
+#include "../tests.h"
+#include <base/function.h>
+#include <base/logstream.h>
+#include <base/quadrature_lib.h>
+#include <lac/vector.h>
+
+#include <grid/tria.h>
+#include <dofs/hp_dof_handler.h>
+#include <dofs/dof_tools.h>
+#include <dofs/dof_constraints.h>
+#include <grid/grid_generator.h>
+#include <grid/grid_refinement.h>
+#include <grid/tria_accessor.h>
+#include <grid/tria_iterator.h>
+#include <grid/tria_boundary_lib.h>
+#include <dofs/dof_accessor.h>
+#include <dofs/dof_tools.h>
+#include <numerics/vectors.h>
+#include <fe/fe_q.h>
+#include <fe/fe_system.h>
+#include <fe/q_collection.h>
+
+
+#include <fstream>
+#include <vector>
+
+
+template <int dim>
+class F :  public Function<dim>
+{
+  public:
+    F (const unsigned int q) : Function<dim>(3), q(q) {}
+    
+    virtual void vector_value (const Point<dim> &p,
+                              Vector<double>   &v) const
+      {
+       for (unsigned int c=0; c<v.size(); ++c)
+         {
+           v(c) = 0;
+           for (unsigned int d=0; d<dim; ++d)
+             for (unsigned int i=0; i<=q; ++i)
+               v(c) += (d+1)*(i+1)*std::pow (p[d], 1.*i)+c;
+         }
+      }
+
+  private:
+    const unsigned int q;
+};
+
+
+
+template <int dim>
+void test ()
+{
+  Triangulation<dim>     triangulation;
+  GridGenerator::hyper_cube (triangulation);
+  triangulation.refine_global (1);
+  triangulation.begin_active()->set_refine_flag ();
+  triangulation.execute_coarsening_and_refinement ();
+  triangulation.refine_global (1);  
+
+  for (unsigned int p=1; p<6-dim; ++p)
+    {
+      FESystem<dim>              fe(FE_Q<dim>(p), 2,
+                                   FE_Q<dim>(p+1), 1);
+      hp::FECollection<dim> hp_fe (fe);
+      hp::DoFHandler<dim>        dof_handler(triangulation);
+      dof_handler.distribute_dofs (hp_fe);
+
+      ConstraintMatrix constraints;
+      DoFTools::make_hanging_node_constraints (dof_handler, constraints);
+      constraints.close ();
+
+      Vector<double> interpolant (dof_handler.n_dofs());
+      Vector<float>  error (triangulation.n_active_cells());
+      for (unsigned int q=0; q<=p+2; ++q)
+       {
+                                          // interpolate the function
+         VectorTools::interpolate (dof_handler,
+                                   F<dim> (q),
+                                   interpolant);
+         constraints.distribute (interpolant);
+      
+                                          // then compute the interpolation error
+         VectorTools::integrate_difference (dof_handler,
+                                            interpolant,
+                                            F<dim> (q),
+                                            error,
+                                            hp::QCollection<dim>(QGauss<dim>(q+2)),
+                                            VectorTools::L2_norm);
+         if (q<=p)
+           Assert (error.l2_norm() < 1e-12*interpolant.l2_norm(),
+                   ExcInternalError());
+
+         deallog << fe.get_name() << ", P_" << q
+                 << ", rel. error=" << error.l2_norm() / interpolant.l2_norm()
+                 << std::endl;
+       }
+    }
+}
+
+
+
+int main ()
+{
+  std::ofstream logfile("interpolate_q_system_02/output");
+  logfile.precision (3);
+  
+  deallog.attach(logfile);
+  deallog.depth_console(0);
+  deallog.threshold_double(1.e-10);
+
+  test<1>();
+  test<2>();
+  test<3>();
+}
+
diff --git a/tests/hp/interpolate_q_system_02/cmp/generic b/tests/hp/interpolate_q_system_02/cmp/generic
new file mode 100644 (file)
index 0000000..1cc5567
--- /dev/null
@@ -0,0 +1,47 @@
+
+DEAL::FESystem<1>[FE_Q<1>(1)^2-FE_Q<1>(2)], P_0, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(1)^2-FE_Q<1>(2)], P_1, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(1)^2-FE_Q<1>(2)], P_2, rel. error=0.000970
+DEAL::FESystem<1>[FE_Q<1>(1)^2-FE_Q<1>(2)], P_3, rel. error=0.00282
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_0, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_1, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_2, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_3, rel. error=3.59e-05
+DEAL::FESystem<1>[FE_Q<1>(2)^2-FE_Q<1>(3)], P_4, rel. error=0.000134
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_0, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_1, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_2, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_3, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_4, rel. error=1.69e-06
+DEAL::FESystem<1>[FE_Q<1>(3)^2-FE_Q<1>(4)], P_5, rel. error=7.67e-06
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_0, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_1, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_2, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_3, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_4, rel. error=0
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_5, rel. error=9.09e-08
+DEAL::FESystem<1>[FE_Q<1>(4)^2-FE_Q<1>(5)], P_6, rel. error=4.83e-07
+DEAL::FESystem<2>[FE_Q<2>(1)^2-FE_Q<2>(2)], P_0, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(1)^2-FE_Q<2>(2)], P_1, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(1)^2-FE_Q<2>(2)], P_2, rel. error=0.000478
+DEAL::FESystem<2>[FE_Q<2>(1)^2-FE_Q<2>(2)], P_3, rel. error=0.00120
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_0, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_1, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_2, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_3, rel. error=1.14e-05
+DEAL::FESystem<2>[FE_Q<2>(2)^2-FE_Q<2>(3)], P_4, rel. error=3.74e-05
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_0, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_1, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_2, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_3, rel. error=0
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_4, rel. error=5.13e-07
+DEAL::FESystem<2>[FE_Q<2>(3)^2-FE_Q<2>(4)], P_5, rel. error=1.99e-06
+DEAL::FESystem<3>[FE_Q<3>(1)^2-FE_Q<3>(2)], P_0, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(1)^2-FE_Q<3>(2)], P_1, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(1)^2-FE_Q<3>(2)], P_2, rel. error=0.000199
+DEAL::FESystem<3>[FE_Q<3>(1)^2-FE_Q<3>(2)], P_3, rel. error=0.000477
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_0, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_1, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_2, rel. error=0
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_3, rel. error=3.39e-06
+DEAL::FESystem<3>[FE_Q<3>(2)^2-FE_Q<3>(3)], P_4, rel. error=1.06e-05

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.