transform Hcurl base fluxes from reference element to physical edge More...

#include <src/finite_elements/DataOperators.hpp>

Inheritance diagram for MoFEM::OpSetCovariantPiolaTransformOnEdge:

Collaboration diagram for MoFEM::OpSetCovariantPiolaTransformOnEdge:

Public Member Functions
	OpSetCovariantPiolaTransformOnEdge (const VectorDouble &tangent, const MatrixDouble &tangent_at_pts)

MoFEMErrorCode	doWork (int side, EntityType type, EntitiesFieldData::EntData &data)
	Operator for linear form, usually to calculate values on right hand side. More...

Public Member Functions inherited from MoFEM::DataOperator
	DataOperator (const bool symm=true)

virtual	~DataOperator ()=default

virtual MoFEMErrorCode	doWork (int row_side, int col_side, EntityType row_type, EntityType col_type, EntitiesFieldData::EntData &row_data, EntitiesFieldData::EntData &col_data)
	Operator for bi-linear form, usually to calculate values on left hand side. More...

virtual MoFEMErrorCode	opLhs (EntitiesFieldData &row_data, EntitiesFieldData &col_data)

virtual MoFEMErrorCode	opRhs (EntitiesFieldData &data, const bool error_if_no_base=false)

bool	getSymm () const
	Get if operator uses symmetry of DOFs or not. More...

void	setSymm ()
	set if operator is executed taking in account symmetry More...

void	unSetSymm ()
	unset if operator is executed for non symmetric problem More...

Public Attributes
const VectorDouble &	tAngent

const MatrixDouble &	tangentAtGaussPt

Public Attributes inherited from MoFEM::DataOperator
DoWorkLhsHookFunType	doWorkLhsHook

DoWorkRhsHookFunType	doWorkRhsHook

bool	sYmm
	If true assume that matrix is symmetric structure. More...

std::array< bool, MBMAXTYPE >	doEntities
	If true operator is executed for entity. More...

bool &	doVertices
	\deprectaed If false skip vertices More...

bool &	doEdges
	\deprectaed If false skip edges More...

bool &	doQuads
	\deprectaed More...

bool &	doTris
	\deprectaed More...

bool &	doTets
	\deprectaed More...

bool &	doPrisms
	\deprectaed More...

Additional Inherited Members
Public Types inherited from MoFEM::DataOperator
using	DoWorkLhsHookFunType = boost::function< MoFEMErrorCode(DataOperator *op_ptr, int row_side, int col_side, EntityType row_type, EntityType col_type, EntitiesFieldData::EntData &row_data, EntitiesFieldData::EntData &col_data)>

using	DoWorkRhsHookFunType = boost::function< MoFEMErrorCode(DataOperator *op_ptr, int side, EntityType type, EntitiesFieldData::EntData &data)>

Detailed Description

transform Hcurl base fluxes from reference element to physical edge

Definition at line 496 of file DataOperators.hpp.

Constructor & Destructor Documentation

◆ OpSetCovariantPiolaTransformOnEdge()

MoFEM::OpSetCovariantPiolaTransformOnEdge::OpSetCovariantPiolaTransformOnEdge	(	const VectorDouble &	tangent,
		const MatrixDouble &	tangent_at_pts
	)

inline

Definition at line 501 of file DataOperators.hpp.

503 : tAngent(tangent), tangentAtGaussPt(tangent_at_pts) {}

Member Function Documentation

◆ doWork()

MoFEMErrorCode MoFEM::OpSetCovariantPiolaTransformOnEdge::doWork	(	int	side,
		EntityType	type,
		EntitiesFieldData::EntData &	data
	)

virtual

Operator for linear form, usually to calculate values on right hand side.

Reimplemented from MoFEM::DataOperator.

Definition at line 738 of file DataOperators.cpp.

                                                                {
   MoFEMFunctionBeginHot;
  
   if (type != MBEDGE)
     MoFEMFunctionReturnHot(0);
  
   FTensor::Index<'i', 3> i;
   FTensor::Tensor1<FTensor::PackPtr<const double *, 0>, 3> t_m(
       &tAngent[0], &tAngent[1], &tAngent[2]);
   const double l0 = t_m(i) * t_m(i);
  
   auto get_base_at_pts = [&](auto base) {
     FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_h_curl(
         &data.getN(base)(0, HVEC0), &data.getN(base)(0, HVEC1),
         &data.getN(base)(0, HVEC2));
     return t_h_curl;
   };
  
   auto get_tangent_at_pts = [&]() {
     FTensor::Tensor1<FTensor::PackPtr<const double *, 3>, 3> t_m_at_pts(
         &tangentAtGaussPt(0, 0), &tangentAtGaussPt(0, 1),
         &tangentAtGaussPt(0, 2));
     return t_m_at_pts;
   };
  
   auto calculate_squared_edge_length = [&]() {
     std::vector<double> l1;
     int nb_gauss_pts = tangentAtGaussPt.size1();
     if (nb_gauss_pts) {
       l1.resize(nb_gauss_pts);
       auto t_m_at_pts = get_tangent_at_pts();
       for (size_t gg = 0; gg != nb_gauss_pts; ++gg) {
         l1[gg] = t_m_at_pts(i) * t_m_at_pts(i);
         ++t_m_at_pts;
       }
     }
     return l1;
   };
  
   auto l1 = calculate_squared_edge_length();
  
   for (int b = AINSWORTH_LEGENDRE_BASE; b != LASTBASE; b++) {
  
     FieldApproximationBase base = static_cast<FieldApproximationBase>(b);
     const size_t nb_gauss_pts = data.getN(base).size1();
     const size_t nb_dofs = data.getN(base).size2() / 3;
     if (nb_gauss_pts && nb_dofs) {
       auto t_h_curl = get_base_at_pts(base);
       int cc = 0;
       if (tangentAtGaussPt.size1() == nb_gauss_pts) {
         auto t_m_at_pts = get_tangent_at_pts();
         for (int gg = 0; gg != nb_gauss_pts; ++gg) {
           const double l0 = l1[gg];
           for (int ll = 0; ll != nb_dofs; ll++) {
             const double val = t_h_curl(0);
             const double a = val / l0;
             t_h_curl(i) = t_m_at_pts(i) * a;
             ++t_h_curl;
             ++cc;
           }
           ++t_m_at_pts;
         }
       } else {
         for (int gg = 0; gg != nb_gauss_pts; ++gg) {
           for (int ll = 0; ll != nb_dofs; ll++) {
             const double val = t_h_curl(0);
             const double a = val / l0;
             t_h_curl(i) = t_m(i) * a;
             ++t_h_curl;
             ++cc;
           }
         }
       }
  
       if (cc != nb_gauss_pts * nb_dofs)
         SETERRQ(PETSC_COMM_SELF, MOFEM_IMPOSSIBLE_CASE, "Data inconsistency");
     }
   }
  
   MoFEMFunctionReturnHot(0);
 }

Member Data Documentation

◆ tAngent

const VectorDouble& MoFEM::OpSetCovariantPiolaTransformOnEdge::tAngent

Definition at line 498 of file DataOperators.hpp.

◆ tangentAtGaussPt

const MatrixDouble& MoFEM::OpSetCovariantPiolaTransformOnEdge::tangentAtGaussPt

Definition at line 499 of file DataOperators.hpp.

The documentation for this struct was generated from the following files:

src/finite_elements/DataOperators.hpp
src/finite_elements/impl/DataOperators.cpp

Public Member Functions

Public Attributes

Additional Inherited Members