From 3006e4cc6c03c18e3a49b559d349d0101640c5a7 Mon Sep 17 00:00:00 2001
From: Wolfgang Bangerth <bangerth@math.tamu.edu>
Date: Tue, 2 Mar 2010 22:02:41 +0000
Subject: [PATCH] One more test.

git-svn-id: https://svn.dealii.org/trunk@20726 0785d39b-7218-0410-832d-ea1e28bc413d
---
 tests/multigrid/transfer_system_03.cc         | 141 ++++++++++++++++++
 .../multigrid/transfer_system_03/cmp/generic  |  73 +++++++++
 2 files changed, 214 insertions(+)
 create mode 100644 tests/multigrid/transfer_system_03.cc
 create mode 100644 tests/multigrid/transfer_system_03/cmp/generic

diff --git a/tests/multigrid/transfer_system_03.cc b/tests/multigrid/transfer_system_03.cc
new file mode 100644
index 0000000000..4e1705fb4e
--- /dev/null
+++ b/tests/multigrid/transfer_system_03.cc
@@ -0,0 +1,141 @@
+//----------------------------------------------------------------------------
+//    transfer.cc,v 1.13 2005/12/30 16:07:03 guido Exp
+//    Version:
+//
+//    Copyright (C) 2000 - 2007, 2009, 2010 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.
+//
+//----------------------------------------------------------------------------
+
+// like _02, but with a TransferSelect that selects only the first vector component
+
+#include "../tests.h"
+#include <base/logstream.h>
+#include <lac/vector.h>
+#include <lac/block_vector.h>
+#include <grid/tria.h>
+#include <grid/grid_generator.h>
+#include <dofs/dof_renumbering.h>
+#include <dofs/dof_tools.h>
+#include <fe/fe_q.h>
+#include <fe/fe_system.h>
+#include <multigrid/mg_dof_handler.h>
+#include <multigrid/mg_transfer.h>
+#include <multigrid/mg_transfer_component.h>
+#include <multigrid/mg_tools.h>
+#include <multigrid/mg_level_object.h>
+
+#include <fstream>
+#include <iomanip>
+#include <iomanip>
+#include <algorithm>
+
+using namespace std;
+
+template <int dim, typename number, int spacedim>
+void
+reinit_vector (const dealii::MGDoFHandler<dim,spacedim> &mg_dof,
+	       MGLevelObject<dealii::Vector<number> > &v)
+{
+  for (unsigned int level=v.get_minlevel();
+       level<=v.get_maxlevel();++level)
+    {
+      unsigned int n = mg_dof.n_dofs (level);
+      v[level].reinit(n);
+    }
+
+}
+
+
+template <typename Transfer>
+void
+make_matrix (const Transfer &transfer,
+	     const unsigned int high_level,
+	     FullMatrix<double> &matrix)
+{
+  Vector<double> src (matrix.n());
+  Vector<double> dst (matrix.m());
+  for (unsigned int i=0; i<src.size(); ++i)
+    {
+      src = 0;
+      src(i) = 1;
+      transfer.prolongate (high_level, dst, src);
+      for (unsigned int j=0; j<dst.size(); ++j)
+	matrix(j,i) = dst(j);
+    }
+}
+
+
+
+void print_matrix (const FullMatrix<double> &m)
+{
+  for (unsigned int i=0; i<m.m(); ++i)
+    {
+      for (unsigned int j=0; j<m.n(); ++j)
+	deallog << m(i,j) << ' ';
+      deallog << std::endl;
+    }
+}
+
+
+
+
+template <int dim>
+void check (const FiniteElement<dim>& fe)
+{
+  deallog << fe.get_name() << std::endl;
+
+  Triangulation<dim> tr;
+  GridGenerator::hyper_cube(tr);
+  tr.refine_global(2);
+
+  MGDoFHandler<dim> mg_dof_handler(tr);
+  mg_dof_handler.distribute_dofs(fe);
+
+  DoFRenumbering::component_wise (mg_dof_handler);
+  for (unsigned int level=0; level<tr.n_levels(); ++level)
+    DoFRenumbering::component_wise (mg_dof_handler, level);
+
+  MGTransferSelect<double> transfer;
+
+  std::vector<unsigned int> mask (2);
+  mask[0] = 0;
+  mask[1] = 1;
+  transfer.build_matrices(mg_dof_handler, mg_dof_handler,
+			  0, 0,
+			  mask, mask);
+
+				   // use only the first half of all
+				   // components
+  FullMatrix<double> prolong_0_1 (mg_dof_handler.n_dofs(1)/2,
+				  mg_dof_handler.n_dofs(0)/2);
+  FullMatrix<double> prolong_1_2 (mg_dof_handler.n_dofs(2)/2,
+				  mg_dof_handler.n_dofs(1)/2);
+
+  deallog << "Level 0->1" << std::endl;
+  make_matrix (transfer, 1, prolong_0_1);
+  print_matrix (prolong_0_1);
+
+  deallog << std::endl;
+
+  deallog << "Level 1->2" << std::endl;
+  make_matrix (transfer, 2, prolong_1_2);
+  print_matrix (prolong_1_2);
+}
+
+
+int main()
+{
+  std::ofstream logfile("transfer_system_03/output");
+  deallog << std::setprecision(4);
+  deallog.attach(logfile);
+  deallog.depth_console(0);
+  deallog.threshold_double(1.e-10);
+
+//TODO: do in 1d
+  check (FESystem<2>(FE_Q<2>(1),2));
+}
diff --git a/tests/multigrid/transfer_system_03/cmp/generic b/tests/multigrid/transfer_system_03/cmp/generic
new file mode 100644
index 0000000000..40097b80da
--- /dev/null
+++ b/tests/multigrid/transfer_system_03/cmp/generic
@@ -0,0 +1,73 @@
+
+DEAL::FESystem<2>[FE_Q<2>(1)^2]
+DEAL::Level 0->1
+DEAL::1.000 0 0 0 0 0 0 0 
+DEAL::0.5000 0.5000 0 0 0 0 0 0 
+DEAL::0.5000 0 0.5000 0 0 0 0 0 
+DEAL::0.2500 0.2500 0.2500 0.2500 0 0 0 0 
+DEAL::0 1.000 0 0 0 0 0 0 
+DEAL::0 0.5000 0 0.5000 0 0 0 0 
+DEAL::0 0 1.000 0 0 0 0 0 
+DEAL::0 0 0.5000 0.5000 0 0 0 0 
+DEAL::0 0 0 1.000 0 0 0 0 
+DEAL::0 0 0 0 1.000 0 0 0 
+DEAL::0 0 0 0 0.5000 0.5000 0 0 
+DEAL::0 0 0 0 0.5000 0 0.5000 0 
+DEAL::0 0 0 0 0.2500 0.2500 0.2500 0.2500 
+DEAL::0 0 0 0 0 1.000 0 0 
+DEAL::0 0 0 0 0 0.5000 0 0.5000 
+DEAL::0 0 0 0 0 0 1.000 0 
+DEAL::0 0 0 0 0 0 0.5000 0.5000 
+DEAL::0 0 0 0 0 0 0 1.000 
+DEAL::
+DEAL::Level 1->2
+DEAL::1.000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0.5000 0.5000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0.5000 0 0.5000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0.2500 0.2500 0.2500 0.2500 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 1.000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0.5000 0 0.5000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 1.000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0.5000 0.5000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 1.000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0.5000 0 0 0.5000 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0.2500 0 0.2500 0.2500 0.2500 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 1.000 0 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0.5000 0.5000 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0.5000 0 0.5000 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 1.000 0 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0.5000 0 0 0 0.5000 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0.2500 0.2500 0 0 0.2500 0.2500 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0.5000 0 0 0 0.5000 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 1.000 0 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0.5000 0.5000 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 1.000 0 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0.2500 0 0.2500 0 0.2500 0.2500 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0.5000 0 0 0.5000 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0.5000 0.5000 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 1.000 0 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 1.000 0 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0.5000 0.5000 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0.5000 0 0.5000 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0.2500 0.2500 0.2500 0.2500 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 1.000 0 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0.5000 0 0.5000 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 1.000 0 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0.5000 0.5000 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 1.000 0 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0.5000 0 0 0.5000 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0.2500 0 0.2500 0.2500 0.2500 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0 1.000 0 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0 0.5000 0.5000 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0.5000 0 0.5000 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0 0 1.000 0 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0.5000 0 0 0 0.5000 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0.2500 0.2500 0 0 0.2500 0.2500 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0.5000 0 0 0 0.5000 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1.000 0 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.5000 0.5000 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1.000 0 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0.2500 0 0.2500 0 0.2500 0.2500 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.5000 0 0 0.5000 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.5000 0.5000 
+DEAL::0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1.000 
-- 
2.39.5