From 7db1d773f5d133c8ba7e0d84b5c1320f2d8a852d Mon Sep 17 00:00:00 2001
From: Oliver Sander <oliver.sander@tu-dresden.de>
Date: Tue, 9 Jul 2019 21:29:17 +0200
Subject: [PATCH] Remove localgeodesicfestiffnesstest.cc
It's not clear what it is supposed to be testing at all.
---
test/CMakeLists.txt | 1 -
test/localgeodesicfestiffnesstest.cc | 220 ---------------------------
2 files changed, 221 deletions(-)
delete mode 100644 test/localgeodesicfestiffnesstest.cc
diff --git a/test/CMakeLists.txt b/test/CMakeLists.txt
index 4ff180ec..68a1dafe 100644
--- a/test/CMakeLists.txt
+++ b/test/CMakeLists.txt
@@ -6,7 +6,6 @@ set(TESTS
globalgfetestfunctionbasistest
harmonicenergytest
localgeodesicfefunctiontest
- localgeodesicfestiffnesstest
localgfetestfunctiontest
localprojectedfefunctiontest
orthogonalmatrixtest
diff --git a/test/localgeodesicfestiffnesstest.cc b/test/localgeodesicfestiffnesstest.cc
deleted file mode 100644
index 574a4d78..00000000
--- a/test/localgeodesicfestiffnesstest.cc
+++ /dev/null
@@ -1,220 +0,0 @@
-#include "config.h"
-
-#include <dune/common/version.hh>
-
-#include <dune/grid/uggrid.hh>
-#include <dune/grid/onedgrid.hh>
-
-#include <dune/istl/io.hh>
-
-#include <dune/geometry/type.hh>
-
-#include <dune/functions/functionspacebases/lagrangebasis.hh>
-
-#include <dune/gfe/unitvector.hh>
-#include <dune/gfe/realtuple.hh>
-#include <dune/gfe/localgeodesicfestiffness.hh>
-
-#include "multiindex.hh"
-#include "valuefactory.hh"
-
-
-using namespace Dune;
-
-//typedef std::conditional<domainDim==1,OneDGrid,UGGrid<domainDim> >::type GridType;
-typedef OneDGrid GridType;
-
-
-
-
-
-
-
-
-
-/** \brief A special energy functional of which I happen to be able to compute the Hessian */
-template<class Basis, class TargetSpace>
-class TestEnergyLocalStiffness
- : public LocalGeodesicFEStiffness<Basis,TargetSpace>
-{
- // grid types
- using GridView = typename Basis::GridView;
- typedef typename GridView::Grid::ctype DT;
- typedef typename TargetSpace::ctype RT;
- typedef typename GridView::template Codim<0>::Entity Entity;
-
- // some other sizes
- enum {gridDim=GridView::dimension};
-
-public:
-
- //! Dimension of a tangent space
- enum { blocksize = TargetSpace::TangentVector::dimension };
-
- /** \brief Assemble the energy for a single element */
- virtual RT energy (const typename Basis::LocalView& localView,
- const std::vector<TargetSpace>& localSolution) const;
-};
-
-template <class Basis, class TargetSpace>
-typename TestEnergyLocalStiffness<Basis, TargetSpace>::RT TestEnergyLocalStiffness<Basis, TargetSpace>::
-energy(const typename Basis::LocalView& localView,
- const std::vector<TargetSpace>& localSolution) const
-{
- return TargetSpace::distance(localSolution[0], localSolution[1])
- * TargetSpace::distance(localSolution[0], localSolution[1]);
-}
-
-
-template <int domainDim>
-#if DUNE_VERSION_LT(DUNE_FUNCTIONS,2,7)
-GridType* makeTestGrid()
-#else
-std::unique_ptr<GridType> makeTestGrid()
-#endif
-{
- // ////////////////////////////////////////////////////////
- // Make a test grid consisting of a single simplex
- // ////////////////////////////////////////////////////////
-
- GridFactory<GridType> factory;
-
- FieldVector<double,domainDim> pos(0);
- factory.insertVertex(pos);
-
- for (int i=0; i<domainDim; i++) {
- pos = 0;
- pos[i] = 1;
- factory.insertVertex(pos);
- }
-
- std::vector<unsigned int> v(domainDim+1);
- for (int i=0; i<domainDim+1; i++)
- v[i] = i;
- factory.insertElement(GeometryTypes::simplex(domainDim), v);
-
- return factory.createGrid();
-}
-
-
-
-
-
-
-
-
-
-template <class TargetSpace, int domainDim>
-void testHessian()
-{
-#if DUNE_VERSION_LT(DUNE_FUNCTIONS,2,7)
- const GridType* grid = makeTestGrid<domainDim>();
-#else
- std::unique_ptr<const GridType> grid = makeTestGrid<domainDim>();
-#endif
-
- const int spaceDim = TargetSpace::TangentVector::dimension;
- const int embeddedSpaceDim = TargetSpace::EmbeddedTangentVector::dimension;
-
- // //////////////////////////////////////////////////////////
- // Test whether the energy is invariant under isometries
- // //////////////////////////////////////////////////////////
-
- std::vector<TargetSpace> testPoints;
- ValueFactory<TargetSpace>::get(testPoints);
-
- int nTestPoints = testPoints.size();
-
- using P1Basis = Functions::LagrangeBasis<typename GridType::LeafGridView, 1>;
- P1Basis p1Basis(grid->leafGridView());
- TestEnergyLocalStiffness<P1Basis, TargetSpace> assembler;
-
- // Set up elements of S^2
- std::vector<TargetSpace> coefficients(domainDim+1);
- std::vector<typename TargetSpace::TangentVector> localGradient(domainDim+1);
-
- MultiIndex index(domainDim+1, nTestPoints);
- int numIndices = index.cycle();
-
- auto localView = p1Basis.localView();
- localView.bind(*grid->leafGridView().template begin<0>());
-
- size_t nDofs = domainDim+1;
-
- for (int i=0; i<numIndices; i++, ++index) {
-
- for (int j=0; j<domainDim+1; j++)
- coefficients[j] = testPoints[index[j]];
-
- std::cout << "coefficients:\n";
- for (int j=0; j<domainDim+1; j++)
- std::cout << coefficients[j] << std::endl;
-
- assembler.assembleGradientAndHessian(localView,coefficients,localGradient);
-
- Matrix<FieldMatrix<double,spaceDim,spaceDim> > fdHessian = assembler.A_;
-
- std::cout << "fdHessian:\n";
- printmatrix(std::cout, fdHessian, "fdHessian", "--");
-
- Matrix<FieldMatrix<double,embeddedSpaceDim,embeddedSpaceDim> > embeddedHessian(nDofs,nDofs);
- embeddedHessian = 0;
-
- embeddedHessian[0][0] = TargetSpace::secondDerivativeOfDistanceSquaredWRTSecondArgument(coefficients[1],
- coefficients[0]).matrix();
-
- embeddedHessian[1][1] = TargetSpace::secondDerivativeOfDistanceSquaredWRTSecondArgument(coefficients[0],
- coefficients[1]).matrix();
-
- embeddedHessian[0][1] = TargetSpace::secondDerivativeOfDistanceSquaredWRTFirstAndSecondArgument(coefficients[0],
- coefficients[1]);
-
- embeddedHessian[1][0] = TargetSpace::secondDerivativeOfDistanceSquaredWRTFirstAndSecondArgument(coefficients[1],
- coefficients[0]);
-
- Matrix<FieldMatrix<double,spaceDim,spaceDim> > hessian(nDofs,nDofs);
-
- // transform to local tangent space bases
- std::vector<Dune::FieldMatrix<double,spaceDim,embeddedSpaceDim> > orthonormalFrames(nDofs);
- std::vector<Dune::FieldMatrix<double,embeddedSpaceDim,spaceDim> > orthonormalFramesTransposed(nDofs);
-
- for (size_t j=0; j<nDofs; j++) {
- orthonormalFrames[j] = coefficients[j].orthonormalFrame();
-
- for (int k=0; k<embeddedSpaceDim; k++)
- for (int l=0; l<spaceDim; l++)
- orthonormalFramesTransposed[j][k][l] = orthonormalFrames[j][l][k];
-
- }
-
- for (size_t j=0; j<nDofs; j++)
- for (size_t k=0; k<nDofs; k++) {
-
- Dune::FieldMatrix<double,spaceDim,embeddedSpaceDim> tmp;
- Dune::FMatrixHelp::multMatrix(orthonormalFrames[j],embeddedHessian[j][k],tmp);
- hessian[j][k] = tmp.rightmultiplyany(orthonormalFramesTransposed[k]);
-
- }
-
- std::cout << "hessian:" << std::endl;
- printmatrix(std::cout, hessian, "hessian", "--");
-
- ///////////////////////////////////////////////////////////////////////////////////
- // Abort if there is a difference
- ///////////////////////////////////////////////////////////////////////////////////
- Matrix<FieldMatrix<double,spaceDim,spaceDim> > difference = hessian;
- difference -= fdHessian;
-
- if (difference.infinity_norm() > 1e-4)
- assert(false);
-
- }
-
-}
-
-
-int main(int argc, char** argv)
-{
- testHessian<RealTuple<double,1>, 1>();
- testHessian<UnitVector<double,3>, 1>();
-}
--
GitLab