From: Daniel Arndt <daniel.arndt@iwr.uni-heidelberg.de>
Date: Wed, 17 Oct 2018 16:19:16 +0000 (+0200)
Subject: Add test for SphericalManifold
X-Git-Tag: v9.1.0-rc1~608^2
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=refs%2Fpull%2F7359%2Fhead;p=dealii.git

Add test for SphericalManifold
---

diff --git a/tests/manifold/spherical_manifold_13.cc b/tests/manifold/spherical_manifold_13.cc
new file mode 100644
index 0000000000..e702489777
--- /dev/null
+++ b/tests/manifold/spherical_manifold_13.cc
@@ -0,0 +1,88 @@
+// ---------------------------------------------------------------------
+//
+// Copyright (C) 2018 by the deal.II authors
+//
+// This file is part of the deal.II library.
+//
+// The deal.II library is free software; you can use it, redistribute
+// it, and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation; either
+// version 2.1 of the License, or (at your option) any later version.
+// The full text of the license can be found in the file LICENSE.md at
+// the top level directory of deal.II.
+//
+// ---------------------------------------------------------------------
+
+// Test that the algorithm used in SphericalManifold<3>::get_new_point is stable
+// with respect to distortion of the points and weights.
+
+#include <deal.II/base/point.h>
+
+#include <deal.II/grid/manifold_lib.h>
+
+#include <random>
+
+#include "../tests.h"
+
+int
+main()
+{
+  initlog();
+
+  const int                       n_iterations = 1000;
+  std::mt19937                    generator;
+  std::uniform_int_distribution<> distribution(-1., 1.);
+
+  SphericalManifold<3> manifold;
+
+  for (int j = 2; j < 20; ++j)
+    {
+      const double eps = std::pow(10., -j);
+
+      std::vector<Point<3>> points_ref{{-.1, -.1, .5},
+                                       {.1, -.1, .5},
+                                       {-.1, .1, .5},
+                                       {.1, .1, .5}};
+      std::vector<double>   weights_ref{.25, .25, .25, .25};
+
+      const Point<3> new_point_ref =
+        manifold.get_new_point(make_array_view(points_ref),
+
+                               make_array_view(weights_ref));
+
+      double max_difference = 0.;
+
+      for (unsigned int i = 0; i < n_iterations; ++i)
+        {
+          std::vector<Point<3>> points  = {{-.1, -.1, .5},
+                                          {.1, -.1, .5},
+                                          {-.1, .1, .5},
+                                          {.1, .1, .5}};
+          std::vector<double>   weights = {.25, .25, .25, .25};
+
+          for (Point<3> &point : points)
+            {
+              point[0] += distribution(generator) * eps;
+              point[1] += distribution(generator) * eps;
+              point[2] += distribution(generator) * eps;
+            }
+
+          for (double &weight : weights)
+            weight += distribution(generator) * eps;
+
+          const Point<3> new_point =
+            manifold.get_new_point(make_array_view(points),
+                                   make_array_view(weights));
+          const Tensor<1, 3> difference      = new_point - new_point_ref;
+          const double       difference_norm = difference.norm();
+          max_difference = std::max(difference_norm, max_difference);
+        }
+
+      if (max_difference / eps > 5)
+        deallog << "Distortion: " << eps
+                << " max difference: " << max_difference << std::endl;
+      else
+        deallog << "Distortion " << eps << " OK" << std::endl;
+    }
+  return 0;
+}
diff --git a/tests/manifold/spherical_manifold_13.output b/tests/manifold/spherical_manifold_13.output
new file mode 100644
index 0000000000..b36accfab3
--- /dev/null
+++ b/tests/manifold/spherical_manifold_13.output
@@ -0,0 +1,19 @@
+
+DEAL::Distortion 0.0100000 OK
+DEAL::Distortion 0.00100000 OK
+DEAL::Distortion 0.000100000 OK
+DEAL::Distortion 1.00000e-05 OK
+DEAL::Distortion 1.00000e-06 OK
+DEAL::Distortion 1.00000e-07 OK
+DEAL::Distortion 1.00000e-08 OK
+DEAL::Distortion 1.00000e-09 OK
+DEAL::Distortion 1.00000e-10 OK
+DEAL::Distortion 1.00000e-11 OK
+DEAL::Distortion 1.00000e-12 OK
+DEAL::Distortion 1.00000e-13 OK
+DEAL::Distortion 1.00000e-14 OK
+DEAL::Distortion 1.00000e-15 OK
+DEAL::Distortion 1.00000e-16 OK
+DEAL::Distortion 1.00000e-17 OK
+DEAL::Distortion 1.00000e-18 OK
+DEAL::Distortion 1.00000e-19 OK