FatPrism finite element. More...

#include <src/finite_elements/FatPrismElementForcesAndSourcesCore.hpp>

Inheritance diagram for MoFEM::FatPrismElementForcesAndSourcesCore:

Collaboration diagram for MoFEM::FatPrismElementForcesAndSourcesCore:

Classes
struct	UserDataOperator
	default operator for Flat Prism element More...

Public Member Functions
	FatPrismElementForcesAndSourcesCore (Interface &m_field)

virtual int	getRuleTrianglesOnly (int order)

virtual int	getRuleThroughThickness (int order)

virtual MoFEMErrorCode	setGaussPtsTrianglesOnly (int order_triangles_only)

virtual MoFEMErrorCode	setGaussPtsThroughThickness (int order_thickness)

MoFEMErrorCode	operator() ()
	function is run for every finite element More...

Public Member Functions inherited from MoFEM::VolumeElementForcesAndSourcesCore
	VolumeElementForcesAndSourcesCore (Interface &m_field, const EntityType type=MBTET)

MoFEMErrorCode	operator() ()
	function is run for every finite element More...

Public Member Functions inherited from MoFEM::ForcesAndSourcesCore
	ForcesAndSourcesCore (Interface &m_field)

boost::ptr_deque< UserDataOperator > &	getOpPtrVector ()
	Use to push back operator for row operator. More...

auto &	getElementPolynomialBase ()
	Get the Entity Polynomial Base object. More...

auto &	getUserPolynomialBase ()
	Get the User Polynomial Base object. More...

virtual MoFEMErrorCode	preProcess ()
	function is run at the beginning of loop More...

virtual MoFEMErrorCode	postProcess ()
	function is run at the end of loop More...

int	getMaxDataOrder () const
	Get max order of approximation for data fields. More...

int	getMaxRowOrder () const
	Get max order of approximation for field in rows. More...

int	getMaxColOrder () const
	Get max order of approximation for field in columns. More...

auto &	getEntData (const FieldSpace space, const EntityType type, const int side)
	Get the entity data. More...

auto &	getDataOnElementBySpaceArray ()
	Get data on entities and space. More...

auto &	getDerivedDataOnElementBySpaceArray ()
	Get derived data on entities and space. More...

Public Member Functions inherited from MoFEM::FEMethod
MoFEMErrorCode	query_interface (boost::typeindex::type_index type_index, UnknownInterface **iface) const

	FEMethod ()=default

auto	getFEName () const
	get finite element name More...

auto	getDataDofsPtr () const

auto	getDataVectorDofsPtr () const

const FieldEntity_vector_view &	getDataFieldEnts () const

boost::shared_ptr< FieldEntity_vector_view > &	getDataFieldEntsPtr () const

auto &	getRowFieldEnts () const

auto &	getRowFieldEntsPtr () const

auto &	getColFieldEnts () const

auto &	getColFieldEntsPtr () const

auto	getRowDofsPtr () const

auto	getColDofsPtr () const

auto	getNumberOfNodes () const

EntityHandle	getFEEntityHandle () const

MoFEMErrorCode	getNodeData (const std::string field_name, VectorDouble &data, const bool reset_dofs=true)

Public Member Functions inherited from MoFEM::BasicMethod
	BasicMethod ()

virtual	~BasicMethod ()=default

int	getNinTheLoop () const
	get number of evaluated element in the loop More...

int	getLoopSize () const
	get loop size More...

auto	getLoHiFERank () const
	Get lo and hi processor rank of iterated entities. More...

auto	getLoFERank () const
	Get upper rank in loop for iterating elements. More...

auto	getHiFERank () const
	Get upper rank in loop for iterating elements. More...

unsigned int	getFieldBitNumber (std::string field_name) const

MoFEMErrorCode	copyBasicMethod (const BasicMethod &basic)
	Copy data from other base method to this base method. More...

boost::weak_ptr< CacheTuple >	getCacheWeakPtr () const
	Get the cache weak ptr object. More...

Public Member Functions inherited from MoFEM::KspMethod
	KspMethod ()

virtual	~KspMethod ()=default

MoFEMErrorCode	copyKsp (const KspMethod &ksp)
	copy data form another method More...

Public Member Functions inherited from MoFEM::PetscData
	PetscData ()

virtual	~PetscData ()=default

MoFEMErrorCode	copyPetscData (const PetscData &petsc_data)

Public Member Functions inherited from MoFEM::UnknownInterface
template<class IFACE >
MoFEMErrorCode	registerInterface (bool error_if_registration_failed=true)
	Register interface. More...

template<class IFACE >
MoFEMErrorCode	getInterface (IFACE *&iface) const
	Get interface refernce to pointer of interface. More...

template<class IFACE >
MoFEMErrorCode	getInterface (IFACE **const iface) const
	Get interface pointer to pointer of interface. More...

template<class IFACE , typename boost::enable_if< boost::is_pointer< IFACE >, int >::type = 0>
IFACE	getInterface () const
	Get interface pointer to pointer of interface. More...

template<class IFACE , typename boost::enable_if< boost::is_reference< IFACE >, int >::type = 0>
IFACE	getInterface () const
	Get reference to interface. More...

template<class IFACE >
IFACE *	getInterface () const
	Function returning pointer to interface. More...

virtual	~UnknownInterface ()=default

Public Member Functions inherited from MoFEM::SnesMethod
	SnesMethod ()

virtual	~SnesMethod ()=default

MoFEMErrorCode	copySnes (const SnesMethod &snes)
	Copy snes data. More...

Public Member Functions inherited from MoFEM::TSMethod
	TSMethod ()

virtual	~TSMethod ()=default

MoFEMErrorCode	copyTs (const TSMethod &ts)
	Copy TS solver data. More...

Protected Attributes
double	aRea [2]

VectorDouble	normal

MatrixDouble	gaussPtsTrianglesOnly

MatrixDouble	coordsAtGaussPtsTrianglesOnly

MatrixDouble	gaussPtsThroughThickness

EntitiesFieldData	dataH1TrianglesOnly

EntitiesFieldData	dataH1TroughThickness

MatrixDouble	hoCoordsAtGaussPtsF3

MatrixDouble	nOrmals_at_GaussPtF3

MatrixDouble	tAngent1_at_GaussPtF3

MatrixDouble	tAngent2_at_GaussPtF3

MatrixDouble	hoCoordsAtGaussPtsF4

MatrixDouble	nOrmals_at_GaussPtF4

MatrixDouble	tAngent1_at_GaussPtF4

MatrixDouble	tAngent2_at_GaussPtF4

OpGetCoordsAndNormalsOnPrism	opHOCoordsAndNormals

Protected Attributes inherited from MoFEM::VolumeElementForcesAndSourcesCore
VectorDouble	coords

MatrixDouble3by3	jAc

MatrixDouble3by3	invJac

OpSetInvJacH1	opSetInvJacH1

OpSetContravariantPiolaTransform	opContravariantPiolaTransform

OpSetCovariantPiolaTransform	opCovariantPiolaTransform

OpSetInvJacHdivAndHcurl	opSetInvJacHdivAndHcurl

double &	vOlume

int	num_nodes

const EntityHandle *	conn

FTensor::Tensor2< double *, 3, 3 >	tJac

FTensor::Tensor2< double *, 3, 3 >	tInvJac

Protected Attributes inherited from MoFEM::ForcesAndSourcesCore
const std::array< boost::shared_ptr< EntitiesFieldData >, LASTSPACE >	dataOnElement
	Entity data on element entity rows fields. More...

const std::array< boost::shared_ptr< EntitiesFieldData >, LASTSPACE >	derivedDataOnElement
	Entity data on element entity columns fields. More...

EntitiesFieldData &	dataNoField

EntitiesFieldData &	dataH1

EntitiesFieldData &	dataHcurl

EntitiesFieldData &	dataHdiv

EntitiesFieldData &	dataL2

boost::ptr_deque< UserDataOperator >	opPtrVector
	Vector of finite element users data operators. More...

EntityType	lastEvaluatedElementEntityType
	Last evaluated type of element entity. More...

MatrixDouble	coordsAtGaussPts
	coordinated at gauss points More...

double	elementMeasure

Friends
class	UserDataOperator

Additional Inherited Members
Public Types inherited from MoFEM::VolumeElementForcesAndSourcesCore
enum	Switches

Public Types inherited from MoFEM::ForcesAndSourcesCore
typedef boost::function< int(int order_row, int order_col, int order_data)>	RuleHookFun

typedef boost::function< MoFEMErrorCode(ForcesAndSourcesCore *fe_raw_ptr, int order_row, int order_col, int order_data)>	GaussHookFun

Public Types inherited from MoFEM::KspMethod
enum	KSPContext { CTX_SETFUNCTION, CTX_OPERATORS, CTX_KSPNONE }
	pass information about context of KSP/DM for with finite element is computed More...

Public Types inherited from MoFEM::PetscData
enum	DataContext { CTX_SET_NONE = 0, CTX_SET_F = 1 << 0, CTX_SET_A = 1 << 1, CTX_SET_B = 1 << 2, CTX_SET_X = 1 << 3, CTX_SET_X_T = 1 << 4, CTX_SET_X_TT = 1 << 6, CTX_SET_TIME = 1 << 7 }

using	Switches = std::bitset< 8 >

Public Types inherited from MoFEM::SnesMethod
enum	SNESContext { CTX_SNESSETFUNCTION, CTX_SNESSETJACOBIAN, CTX_SNESNONE }

Public Types inherited from MoFEM::TSMethod
enum	TSContext { CTX_TSSETRHSFUNCTION, CTX_TSSETRHSJACOBIAN, CTX_TSSETIFUNCTION, CTX_TSSETIJACOBIAN, CTX_TSTSMONITORSET, CTX_TSNONE }

Static Public Member Functions inherited from MoFEM::UnknownInterface
static MoFEMErrorCode	getLibVersion (Version &version)
	Get library version. More...

static MoFEMErrorCode	getFileVersion (moab::Interface &moab, Version &version)
	Get database major version. More...

static MoFEMErrorCode	setFileVersion (moab::Interface &moab, Version version=Version(MoFEM_VERSION_MAJOR, MoFEM_VERSION_MINOR, MoFEM_VERSION_BUILD))
	Get database major version. More...

static MoFEMErrorCode	getInterfaceVersion (Version &version)
	Get database major version. More...

Public Attributes inherited from MoFEM::VolumeElementForcesAndSourcesCore
std::string	meshPositionsFieldName

Public Attributes inherited from MoFEM::ForcesAndSourcesCore
Interface &	mField

RuleHookFun	getRuleHook
	Hook to get rule. More...

GaussHookFun	setRuleHook
	Set function to calculate integration rule. More...

MatrixDouble	gaussPts
	Matrix of integration points. More...

Public Attributes inherited from MoFEM::FEMethod
std::string	feName
	Name of finite element. More...

boost::shared_ptr< const NumeredEntFiniteElement >	numeredEntFiniteElementPtr

boost::function< bool(FEMethod *fe_method_ptr)>	exeTestHook
	Tet if element to skip element. More...

Public Attributes inherited from MoFEM::BasicMethod
int	nInTheLoop
	number currently of processed method More...

int	loopSize
	local number oe methods to process More...

std::pair< int, int >	loHiFERank
	Llo and hi processor rank of iterated entities. More...

int	rAnk
	processor rank More...

int	sIze
	number of processors in communicator More...

const RefEntity_multiIndex *	refinedEntitiesPtr
	container of mofem dof entities More...

const RefElement_multiIndex *	refinedFiniteElementsPtr
	container of mofem finite element entities More...

const Problem *	problemPtr
	raw pointer to problem More...

const Field_multiIndex *	fieldsPtr
	raw pointer to fields container More...

const FieldEntity_multiIndex *	entitiesPtr
	raw pointer to container of field entities More...

const DofEntity_multiIndex *	dofsPtr
	raw pointer container of dofs More...

const FiniteElement_multiIndex *	finiteElementsPtr
	raw pointer to container finite elements More...

const EntFiniteElement_multiIndex *	finiteElementsEntitiesPtr

const FieldEntityEntFiniteElementAdjacencyMap_multiIndex *	adjacenciesPtr

boost::function< MoFEMErrorCode()>	preProcessHook
	Hook function for pre-processing. More...

boost::function< MoFEMErrorCode()>	postProcessHook
	Hook function for post-processing. More...

boost::function< MoFEMErrorCode()>	operatorHook
	Hook function for operator. More...

boost::movelib::unique_ptr< bool >	vecAssembleSwitch

boost::movelib::unique_ptr< bool >	matAssembleSwitch

boost::weak_ptr< CacheTuple >	cacheWeakPtr

Public Attributes inherited from MoFEM::KspMethod
KSPContext	ksp_ctx
	Context. More...

KSP	ksp
	KSP solver. More...

Vec &	ksp_f

Mat &	ksp_A

Mat &	ksp_B

Public Attributes inherited from MoFEM::PetscData
Switches	data_ctx

Vec	f

Mat	A

Mat	B

Vec	x

Vec	x_t

Vec	x_tt

Public Attributes inherited from MoFEM::SnesMethod
SNESContext	snes_ctx

SNES	snes
	snes solver More...

Vec &	snes_x
	state vector More...

Vec &	snes_f
	residual More...

Mat &	snes_A
	jacobian matrix More...

Mat &	snes_B
	preconditioner of jacobian matrix More...

Public Attributes inherited from MoFEM::TSMethod
TS	ts
	time solver More...

TSContext	ts_ctx

PetscInt	ts_step
	time step number More...

PetscReal	ts_a
	shift for U_t (see PETSc Time Solver) More...

PetscReal	ts_aa
	shift for U_tt shift for U_tt More...

PetscReal	ts_t
	time More...

PetscReal	ts_dt
	time step size More...

Vec &	ts_u
	state vector More...

Vec &	ts_u_t
	time derivative of state vector More...

Vec &	ts_u_tt
	second time derivative of state vector More...

Vec &	ts_F
	residual vector More...

Mat &	ts_A

Mat &	ts_B
	Preconditioner for ts_A. More...

Static Public Attributes inherited from MoFEM::PetscData
static constexpr Switches	CtxSetNone = PetscData::Switches(CTX_SET_NONE)

static constexpr Switches	CtxSetF = PetscData::Switches(CTX_SET_F)

static constexpr Switches	CtxSetA = PetscData::Switches(CTX_SET_A)

static constexpr Switches	CtxSetB = PetscData::Switches(CTX_SET_B)

static constexpr Switches	CtxSetX = PetscData::Switches(CTX_SET_X)

static constexpr Switches	CtxSetX_T = PetscData::Switches(CTX_SET_X_T)

static constexpr Switches	CtxSetX_TT = PetscData::Switches(CTX_SET_X_TT)

static constexpr Switches	CtxSetTime = PetscData::Switches(CTX_SET_TIME)

Protected Member Functions inherited from MoFEM::VolumeElementForcesAndSourcesCore
virtual MoFEMErrorCode	setIntegrationPts ()
	Set integration points. More...

virtual MoFEMErrorCode	calculateVolumeAndJacobian ()
	Calculate element volume and Jacobian. More...

virtual MoFEMErrorCode	calculateCoordinatesAtGaussPts ()
	Calculate coordinate at integration points. More...

virtual MoFEMErrorCode	getSpaceBaseAndOrderOnElement ()
	Determine approximation space and order of base functions. More...

virtual MoFEMErrorCode	transformBaseFunctions ()
	Transform base functions based on geometric element Jacobian. More...

Protected Member Functions inherited from MoFEM::ForcesAndSourcesCore
MoFEMErrorCode	getEntitySense (const EntityType type, boost::ptr_vector< EntitiesFieldData::EntData > &data) const
	get sense (orientation) of entity More...

MoFEMErrorCode	getEntityDataOrder (const EntityType type, const FieldSpace space, boost::ptr_vector< EntitiesFieldData::EntData > &data) const
	Get the entity data order. More...

template<EntityType type>
MoFEMErrorCode	getEntitySense (EntitiesFieldData &data) const
	Get the entity sense (orientation) More...

template<EntityType type>
MoFEMErrorCode	getEntityDataOrder (EntitiesFieldData &data, const FieldSpace space) const
	Get the entity data order for given space. More...

MoFEMErrorCode	getFaceNodes (EntitiesFieldData &data) const
	Get nodes on faces. More...

MoFEMErrorCode	getSpacesAndBaseOnEntities (EntitiesFieldData &data) const
	Get field approximation space and base on entities. More...

virtual int	getRule (int order_row, int order_col, int order_data)
	another variant of getRule More...

virtual MoFEMErrorCode	setGaussPts (int order_row, int order_col, int order_data)
	set user specific integration rule More...

MoFEMErrorCode	calHierarchicalBaseFunctionsOnElement (const FieldApproximationBase b)
	Calculate base functions. More...

MoFEMErrorCode	calHierarchicalBaseFunctionsOnElement ()
	Calculate base functions. More...

MoFEMErrorCode	calBernsteinBezierBaseFunctionsOnElement ()
	Calculate Bernstein-Bezier base. More...

MoFEMErrorCode	createDataOnElement (EntityType type)
	Create a entity data on element object. More...

MoFEMErrorCode	loopOverOperators ()
	Iterate user data operators. More...

template<typename EXTRACTOR >
MoFEMErrorCode	getNodesIndices (const int bit_number, FieldEntity_vector_view &ents_field, VectorInt &nodes_indices, VectorInt &local_nodes_indices, EXTRACTOR &&extractor) const
	get node indices More...

MoFEMErrorCode	getRowNodesIndices (EntitiesFieldData &data, const int bit_number) const
	get row node indices from FENumeredDofEntity_multiIndex More...

MoFEMErrorCode	getColNodesIndices (EntitiesFieldData &data, const int bit_number) const
	get col node indices from FENumeredDofEntity_multiIndex More...

template<typename EXTRACTOR >
MoFEMErrorCode	getEntityIndices (EntitiesFieldData &data, const int bit_number, FieldEntity_vector_view &ents_field, const EntityType type_lo, const EntityType type_hi, EXTRACTOR &&extractor) const

MoFEMErrorCode	getEntityRowIndices (EntitiesFieldData &data, const int bit_number, const EntityType type_lo=MBVERTEX, const EntityType type_hi=MBPOLYHEDRON) const

MoFEMErrorCode	getEntityColIndices (EntitiesFieldData &data, const int bit_number, const EntityType type_lo=MBVERTEX, const EntityType type_hi=MBPOLYHEDRON) const

MoFEMErrorCode	getNoFieldIndices (const int bit_number, boost::shared_ptr< FENumeredDofEntity_multiIndex > dofs, VectorInt &nodes_indices) const
	get NoField indices More...

MoFEMErrorCode	getNoFieldRowIndices (EntitiesFieldData &data, const int bit_number) const
	get col NoField indices More...

MoFEMErrorCode	getNoFieldColIndices (EntitiesFieldData &data, const int bit_number) const
	get col NoField indices More...

MoFEMErrorCode	getBitRefLevelOnData ()

MoFEMErrorCode	getNoFieldFieldData (const int bit_number, VectorDouble &ent_field_data, VectorDofs &ent_field_dofs, VectorFieldEntities &ent_field) const
	Get field data on nodes. More...

MoFEMErrorCode	getNoFieldFieldData (EntitiesFieldData &data, const int bit_number) const

MoFEMErrorCode	getNodesFieldData (EntitiesFieldData &data, const int bit_number) const
	Get data on nodes. More...

MoFEMErrorCode	getEntityFieldData (EntitiesFieldData &data, const int bit_number, const EntityType type_lo=MBVERTEX, const EntityType type_hi=MBPOLYHEDRON) const

MoFEMErrorCode	getProblemNodesIndices (const std::string &field_name, const NumeredDofEntity_multiIndex &dofs, VectorInt &nodes_indices) const
	get indices of nodal indices which are declared for problem but not this particular element More...

MoFEMErrorCode	getProblemTypeIndices (const std::string &field_name, const NumeredDofEntity_multiIndex &dofs, EntityType type, int side_number, VectorInt &indices) const
	get indices by type (generic function) which are declared for problem but not this particular element More...

MoFEMErrorCode	getProblemNodesRowIndices (const std::string &field_name, VectorInt &nodes_indices) const

MoFEMErrorCode	getProblemTypeRowIndices (const std::string &field_name, EntityType type, int side_number, VectorInt &indices) const

MoFEMErrorCode	getProblemNodesColIndices (const std::string &field_name, VectorInt &nodes_indices) const

MoFEMErrorCode	getProblemTypeColIndices (const std::string &field_name, EntityType type, int side_number, VectorInt &indices) const

virtual int	getRule (int order)

virtual MoFEMErrorCode	setGaussPts (int order)

Detailed Description

FatPrism finite element.

User is implementing own operator at Gauss points level, by own object derived from FatPrismElementForcesAndSourcesCoreL::UserDataOperator. Arbitrary number of operator added pushing objects to rowOpPtrVector and rowColOpPtrVector.

Todo:: Need to implement operators that will make this element work as Volume element

Examples: elasticity.cpp, HookeElement.cpp, prism_elements_from_surface.cpp, and prism_polynomial_approximation.cpp.

Definition at line 31 of file FatPrismElementForcesAndSourcesCore.hpp.

Constructor & Destructor Documentation

◆ FatPrismElementForcesAndSourcesCore()

MoFEM::FatPrismElementForcesAndSourcesCore::FatPrismElementForcesAndSourcesCore ( Interface & m_field )

Examples: elasticity.cpp, and prism_polynomial_approximation.cpp.

Definition at line 11 of file FatPrismElementForcesAndSourcesCore.cpp.

     : VolumeElementForcesAndSourcesCore(m_field, MBPRISM),
       dataH1TrianglesOnly(MBPRISM), dataH1TroughThickness(MBPRISM),
       opHOCoordsAndNormals(hoCoordsAtGaussPtsF3, nOrmals_at_GaussPtF3,
                            tAngent1_at_GaussPtF3, tAngent2_at_GaussPtF3,
                            hoCoordsAtGaussPtsF4, nOrmals_at_GaussPtF4,
                            tAngent1_at_GaussPtF4, tAngent2_at_GaussPtF4) {
   CHK_THROW_MESSAGE(createDataOnElement(MBPRISM),
                  "Problem with creation data on element");
 }

Member Function Documentation

◆ getRuleThroughThickness()

virtual int MoFEM::FatPrismElementForcesAndSourcesCore::getRuleThroughThickness ( int order )

inlinevirtual

Reimplemented in PostProcFatPrismOnRefinedMesh, PrismFE, PrismFE, PrismFE, and CellEngineering::FatPrism.

Definition at line 37 of file FatPrismElementForcesAndSourcesCore.hpp.

37 { return 2 * order; };

◆ getRuleTrianglesOnly()

virtual int MoFEM::FatPrismElementForcesAndSourcesCore::getRuleTrianglesOnly ( int order )

inlinevirtual

Reimplemented in PostProcFatPrismOnRefinedMesh, PrismFE, PrismFE, PrismFE, and CellEngineering::FatPrism.

Definition at line 36 of file FatPrismElementForcesAndSourcesCore.hpp.

36 { return 2 * order; };

◆ operator()()

MoFEMErrorCode MoFEM::FatPrismElementForcesAndSourcesCore::operator() ( )

virtual

function is run for every finite element

It is used to calculate element local matrices and assembly. It can be used for post-processing.

Calculate coordinates at integration points

Reimplemented from MoFEM::ForcesAndSourcesCore.

Definition at line 23 of file FatPrismElementForcesAndSourcesCore.cpp.

                                                                {
   MoFEMFunctionBegin;
  
   if (numeredEntFiniteElementPtr->getEntType() != MBPRISM)
     MoFEMFunctionReturnHot(0);
  
   auto get_fe_coordinates = [&]() {
     MoFEMFunctionBegin;
     EntityHandle ent = numeredEntFiniteElementPtr->getEnt();
     int num_nodes;
     const EntityHandle *conn;
     CHKERR mField.get_moab().get_connectivity(ent, conn, num_nodes, true);
     coords.resize(num_nodes * 3, false);
     CHKERR mField.get_moab().get_coords(conn, num_nodes,
                                         &*coords.data().begin());
     MoFEMFunctionReturn(0);
   };
  
   auto calculate_area_of_triangles = [&] {
     MoFEMFunctionBegin;
     normal.resize(6, false);
     CHKERR Tools::getTriNormal(&coords[0], &normal[0]);
     CHKERR Tools::getTriNormal(&coords[9], &normal[3]);
     aRea[0] = cblas_dnrm2(3, &normal[0], 1) * 0.5;
     aRea[1] = cblas_dnrm2(3, &normal[3], 1) * 0.5;
     MoFEMFunctionReturn(0);
   };
  
   CHKERR get_fe_coordinates();
   CHKERR calculate_area_of_triangles();
  
   CHKERR getSpacesAndBaseOnEntities(dataH1);
   CHKERR getSpacesAndBaseOnEntities(dataH1TrianglesOnly);
   CHKERR getSpacesAndBaseOnEntities(dataH1TroughThickness);
  
   auto get_h1_base_data = [&](auto &dataH1) {
     MoFEMFunctionBegin;
     CHKERR getEntitySense<MBEDGE>(dataH1);
     CHKERR getEntitySense<MBTRI>(dataH1);
     CHKERR getEntitySense<MBQUAD>(dataH1);
     CHKERR getEntityDataOrder<MBEDGE>(dataH1, H1);
     CHKERR getEntityDataOrder<MBTRI>(dataH1, H1);
     CHKERR getEntityDataOrder<MBQUAD>(dataH1, H1);
     CHKERR getEntityDataOrder<MBPRISM>(dataH1, H1);
     // Triangles only
     CHKERR getEntitySense<MBEDGE>(dataH1TrianglesOnly);
     CHKERR getEntitySense<MBTRI>(dataH1TrianglesOnly);
     CHKERR getEntityDataOrder<MBEDGE>(dataH1TrianglesOnly, H1);
     CHKERR getEntityDataOrder<MBTRI>(dataH1TrianglesOnly, H1);
     // Through thickness
     CHKERR getEntitySense<MBEDGE>(dataH1TroughThickness);
     CHKERR getEntityDataOrder<MBEDGE>(dataH1TroughThickness, H1);
     MoFEMFunctionReturn(0);
   };
  
   // H1
   if ((dataH1.spacesOnEntities[MBEDGE]).test(H1))
     CHKERR get_h1_base_data(dataH1);
  
   // Hdiv
   if ((dataH1.spacesOnEntities[MBTRI]).test(HDIV))
     SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED, "not implemented yet");
  
   // Hcurl
   if ((dataH1.spacesOnEntities[MBEDGE]).test(HCURL))
     SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED, "not implemented yet");
  
   // L2
   if ((dataH1.spacesOnEntities[MBPRISM]).test(L2))
     SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED, "not implemented yet");
  
   // get approx. on triangles, i.e. faces 3 and 4
   auto set_gauss_points_on_triangle = [&](int &nb_gauss_pts_on_faces) {
     MoFEMFunctionBegin;
     int order_triangles_only = 1;
     int valid_edges[] = {1, 1, 1, 0, 0, 0, 1, 1, 1};
     for (unsigned int ee = 0; ee < 9; ee++) {
       if (!valid_edges[ee])
         continue;
       order_triangles_only = std::max(
           order_triangles_only,
           dataH1TrianglesOnly.dataOnEntities[MBEDGE][ee].getOrder());
     }
     for (unsigned int ff = 3; ff <= 4; ff++) {
       order_triangles_only = std::max(
           order_triangles_only,
           dataH1TrianglesOnly.dataOnEntities[MBTRI][ff].getOrder());
     }
     for (unsigned int qq = 0; qq < 3; qq++) {
       order_triangles_only = std::max(
           order_triangles_only,
           dataH1TroughThickness.dataOnEntities[MBQUAD][qq].getOrder());
     }
     order_triangles_only = std::max(
         order_triangles_only,
         dataH1TroughThickness.dataOnEntities[MBPRISM][0].getOrder());
  
     // integration pts on the triangles surfaces
     nb_gauss_pts_on_faces = 0;
     int rule = getRuleTrianglesOnly(order_triangles_only);
     if (rule >= 0) {
       if (rule < QUAD_2D_TABLE_SIZE) {
         if (QUAD_2D_TABLE[rule]->dim != 2) {
           SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "wrong dimension");
         }
         if (QUAD_2D_TABLE[rule]->order < rule) {
           SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                    "wrong order %d != %d", QUAD_2D_TABLE[rule]->order, rule);
         }
         nb_gauss_pts_on_faces = QUAD_2D_TABLE[rule]->npoints;
         gaussPtsTrianglesOnly.resize(3, nb_gauss_pts_on_faces, false);
         cblas_dcopy(nb_gauss_pts_on_faces, &QUAD_2D_TABLE[rule]->points[1], 3,
                     &gaussPtsTrianglesOnly(0, 0), 1);
         cblas_dcopy(nb_gauss_pts_on_faces, &QUAD_2D_TABLE[rule]->points[2], 3,
                     &gaussPtsTrianglesOnly(1, 0), 1);
         cblas_dcopy(nb_gauss_pts_on_faces, QUAD_2D_TABLE[rule]->weights, 1,
                     &gaussPtsTrianglesOnly(2, 0), 1);
         dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0].getN(NOBASE).resize(
             nb_gauss_pts_on_faces, 3, false);
         double *shape_ptr = &*dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0]
                                   .getN(NOBASE)
                                   .data()
                                   .begin();
         cblas_dcopy(3 * nb_gauss_pts_on_faces, QUAD_2D_TABLE[rule]->points, 1,
                     shape_ptr, 1);
         dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0].getDiffN(NOBASE).resize(
             1, 6, false);
         std::copy(Tools::diffShapeFunMBTRI.begin(),
                   Tools::diffShapeFunMBTRI.end(),
                   &*dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0]
                         .getDiffN(NOBASE)
                         .data()
                         .begin());
       } else
         SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                  "rule > quadrature order %d < %d", rule, QUAD_2D_TABLE_SIZE);
  
     } else {
       CHKERR setGaussPtsTrianglesOnly(order_triangles_only);
       nb_gauss_pts_on_faces = gaussPtsTrianglesOnly.size2();
       if (nb_gauss_pts_on_faces == 0)
         MoFEMFunctionReturnHot(0);
       dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0].getN(NOBASE).resize(
           nb_gauss_pts_on_faces, 3, false);
       if (nb_gauss_pts_on_faces) {
         CHKERR ShapeMBTRI(&*dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0]
                                 .getN(NOBASE)
                                 .data()
                                 .begin(),
                           &gaussPtsTrianglesOnly(0, 0),
                           &gaussPtsTrianglesOnly(1, 0), nb_gauss_pts_on_faces);
         dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0].getDiffN(NOBASE).resize(
             1, 6, false);
         std::copy(Tools::diffShapeFunMBTRI.begin(),
                   Tools::diffShapeFunMBTRI.end(),
                   &*dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0]
                         .getDiffN(NOBASE)
                         .data()
                         .begin());
       }
     }
     MoFEMFunctionReturn(0);
   };
  
   // approx. trough prism thickness
   auto set_gauss_points_through_thickness =
       [&](int &nb_gauss_pts_through_thickness) {
         MoFEMFunctionBegin;
         nb_gauss_pts_through_thickness = 0;
         int order_thickness = 1;
         for (unsigned int ee = 3; ee <= 5; ee++) {
           order_thickness = std::max(
               order_thickness,
               dataH1TroughThickness.dataOnEntities[MBEDGE][ee].getOrder());
         }
         for (unsigned int qq = 0; qq < 3; qq++) {
           order_thickness = std::max(
               order_thickness,
               dataH1TroughThickness.dataOnEntities[MBQUAD][qq].getOrder());
         }
         order_thickness = std::max(
             order_thickness,
             dataH1TroughThickness.dataOnEntities[MBPRISM][0].getOrder());
         // integration points
         int rule = getRuleThroughThickness(order_thickness);
         if (rule >= 0) {
           if (rule < QUAD_1D_TABLE_SIZE) {
             if (QUAD_1D_TABLE[rule]->dim != 1) {
               SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                       "wrong dimension");
             }
             if (QUAD_1D_TABLE[rule]->order < rule) {
               SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                        "wrong order %d != %d", QUAD_1D_TABLE[rule]->order,
                        rule);
             }
             nb_gauss_pts_through_thickness = QUAD_1D_TABLE[rule]->npoints;
             gaussPtsThroughThickness.resize(2, nb_gauss_pts_through_thickness,
                                             false);
             cblas_dcopy(nb_gauss_pts_through_thickness,
                         &QUAD_1D_TABLE[rule]->points[1], 2,
                         &gaussPtsThroughThickness(0, 0), 1);
             cblas_dcopy(nb_gauss_pts_through_thickness,
                         QUAD_1D_TABLE[rule]->weights, 1,
                         &gaussPtsThroughThickness(1, 0), 1);
           } else {
             SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                      "rule > quadrature order %d < %d", rule,
                      QUAD_1D_TABLE_SIZE);
             nb_gauss_pts_through_thickness = 0;
           }
         } else {
           CHKERR setGaussPtsThroughThickness(order_thickness);
           nb_gauss_pts_through_thickness = gaussPtsThroughThickness.size2();
         }
         MoFEMFunctionReturn(0);
       };
  
   // Generate integration pts.
   auto set_gauss_points_in_volume = [&](int nb_gauss_pts_on_faces,
                                         int nb_gauss_pts_through_thickness,
                                         int &nb_gauss_pts) {
     MoFEMFunctionBegin;
     nb_gauss_pts = nb_gauss_pts_on_faces * nb_gauss_pts_through_thickness;
     gaussPts.resize(4, nb_gauss_pts, false);
     int gg = 0;
     for (int ggf = 0; ggf < nb_gauss_pts_on_faces; ggf++) {
       for (int ggt = 0; ggt < nb_gauss_pts_through_thickness; ggt++, gg++) {
         gaussPts(0, gg) = gaussPtsTrianglesOnly(0, ggf);
         gaussPts(1, gg) = gaussPtsTrianglesOnly(1, ggf);
         gaussPts(2, gg) = gaussPtsThroughThickness(0, ggt);
         gaussPts(3, gg) =
             gaussPtsTrianglesOnly(2, ggf) * gaussPtsThroughThickness(1, ggt);
       }
     }
     MoFEMFunctionReturn(0);
   };
  
   int nb_gauss_pts, nb_gauss_pts_through_thickness, nb_gauss_pts_on_faces;
   CHKERR set_gauss_points_on_triangle(nb_gauss_pts_on_faces);
   if (!nb_gauss_pts_on_faces)
     MoFEMFunctionReturnHot(0);
   CHKERR set_gauss_points_through_thickness(nb_gauss_pts_through_thickness);
   if (!nb_gauss_pts_through_thickness)
     MoFEMFunctionReturnHot(0);
   CHKERR set_gauss_points_in_volume(
       nb_gauss_pts_on_faces, nb_gauss_pts_through_thickness, nb_gauss_pts);
  
   auto calc_coordinates_at_triangles = [&]() {
     MoFEMFunctionBegin;
     coordsAtGaussPtsTrianglesOnly.resize(nb_gauss_pts_on_faces, 6, false);
     for (int gg = 0; gg < nb_gauss_pts_on_faces; gg++) {
       for (int dd = 0; dd < 3; dd++) {
         coordsAtGaussPtsTrianglesOnly(gg, dd) =
             cblas_ddot(3,
                        &dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0].getN(
                            NOBASE)(gg, 0),
                        1, &coords[dd], 3);
         coordsAtGaussPtsTrianglesOnly(gg, 3 + dd) =
             cblas_ddot(3,
                        &dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0].getN(
                            NOBASE)(gg, 0),
                        1, &coords[9 + dd], 3);
       }
     }
     MoFEMFunctionReturn(0);
   };
  
   auto calc_vertex_base_on_prism = [&]() {
     MoFEMFunctionBegin;
     // Calculate "nobase" base functions on prism, this is cartesian product
     // of base functions on triangles with base functions through thickness
     // FIXME: This could be effectively implemented with tensors
     dataH1.dataOnEntities[MBVERTEX][0].getN(NOBASE).resize(nb_gauss_pts, 6,
                                                            false);
     dataH1.dataOnEntities[MBVERTEX][0].getDiffN(NOBASE).resize(nb_gauss_pts, 18,
                                                                false);
     for (int dd = 0; dd != 6; dd++) {
       int gg = 0;
       for (int ggf = 0; ggf < nb_gauss_pts_on_faces; ggf++) {
         int ddd = dd > 2 ? dd - 3 : dd;
         double tri_n = dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0].getN(
             NOBASE)(ggf, ddd);
         double dksi_tri_n =
             dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0].getDiffN(NOBASE)(
                 0, 2 * ddd + 0);
         double deta_tri_n =
             dataH1TrianglesOnly.dataOnEntities[MBVERTEX][0].getDiffN(NOBASE)(
                 0, 2 * ddd + 1);
         for (int ggt = 0; ggt < nb_gauss_pts_through_thickness; ggt++, gg++) {
           double zeta = gaussPtsThroughThickness(0, ggt);
           double dzeta, edge_shape;
           if (dd < 3) {
             dzeta = diffN_MBEDGE0;
             edge_shape = N_MBEDGE0(zeta);
           } else {
             dzeta = diffN_MBEDGE1;
             edge_shape = N_MBEDGE1(zeta);
           }
           dataH1.dataOnEntities[MBVERTEX][0].getN(NOBASE)(gg, dd) =
               tri_n * edge_shape;
           dataH1.dataOnEntities[MBVERTEX][0].getDiffN(NOBASE)(gg, 3 * dd + 0) =
               dksi_tri_n * edge_shape;
           dataH1.dataOnEntities[MBVERTEX][0].getDiffN(NOBASE)(gg, 3 * dd + 1) =
               deta_tri_n * edge_shape;
           dataH1.dataOnEntities[MBVERTEX][0].getDiffN(NOBASE)(gg, 3 * dd + 2) =
               tri_n * dzeta;
         }
       }
     }
     MoFEMFunctionReturn(0);
   };
  
   auto calc_base_on_prism = [&]() {
     MoFEMFunctionBegin;
     // Calculate base functions on prism
     for (int b = AINSWORTH_LEGENDRE_BASE; b != LASTBASE; b++) {
       if (dataH1.bAse.test(b)) {
         switch (static_cast<FieldApproximationBase>(b)) {
         case AINSWORTH_LEGENDRE_BASE:
         case AINSWORTH_LOBATTO_BASE:
           if (dataH1.spacesOnEntities[MBVERTEX].test(H1)) {
             CHKERR FatPrismPolynomialBase().getValue(
                 gaussPts,
                 boost::shared_ptr<BaseFunctionCtx>(
                     new FatPrismPolynomialBaseCtx(
                         dataH1, dataH1TrianglesOnly, dataH1TroughThickness,
                         gaussPtsTrianglesOnly, gaussPtsThroughThickness,
                         mField.get_moab(), numeredEntFiniteElementPtr.get(), H1,
                         static_cast<FieldApproximationBase>(b), NOBASE)));
           }
           if (dataH1.spacesOnEntities[MBTRI].test(HDIV)) {
             SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                     "Not yet implemented");
           }
           if (dataH1.spacesOnEntities[MBEDGE].test(HCURL)) {
             SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                     "Not yet implemented");
           }
           if (dataH1.spacesOnEntities[MBTET].test(L2)) {
             SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                     "Not yet implemented");
           }
           break;
         default:
           SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                   "Not yet implemented");
         }
       }
     }
     MoFEMFunctionReturn(0);
   };
  
   auto calc_coordinate_on_prism = [&]() {
     MoFEMFunctionBegin;
     /// Calculate coordinates at integration points
     coordsAtGaussPts.resize(nb_gauss_pts, 3, false);
     for (int gg = 0; gg < nb_gauss_pts; gg++) {
       for (int dd = 0; dd < 3; dd++) {
         coordsAtGaussPts(gg, dd) = cblas_ddot(
             6, &dataH1.dataOnEntities[MBVERTEX][0].getN(NOBASE)(gg, 0), 1,
             &coords[dd], 3);
       }
     }
     MoFEMFunctionReturn(0);
   };
  
   auto calculate_volume = [&]() {
     auto get_t_w = [&] {
       return FTensor::Tensor0<FTensor::PackPtr<double *, 1>>(&gaussPts(2, 0));
     };
  
     auto get_t_coords = [&]() {
       return FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3>(
           &coords[0], &coords[1], &coords[2]);
     };
  
     FTensor::Index<'i', 3> i;
     FTensor::Index<'j', 3> j;
     FTensor::Tensor2<double, 3, 3> t_jac;
  
     const size_t nb_gauss_pts = gaussPts.size2();
     auto t_diff_n =
         dataH1.dataOnEntities[MBVERTEX][0].getFTensor1DiffN<3>(NOBASE);
  
     double vol = 0;
     auto t_w = get_t_w();
     for (int gg = 0; gg != nb_gauss_pts; ++gg) {
  
       auto t_coords = get_t_coords();
       t_jac(i, j) = 0;
       for (size_t n = 0; n != 6; ++n) {
         t_jac(i, j) += t_coords(i) * t_diff_n(j);
         ++t_diff_n;
         ++t_coords;
       }
  
       double det;
       CHKERR determinantTensor3by3(t_jac, det);
       vol += det * t_w / 2;
  
       ++t_w;
     }
  
     return vol;
   };
  
   auto calc_ho_triangle_face_normals = [&]() {
     MoFEMFunctionBegin;
  
     auto check_field = [&]() {
       auto field_it =
           fieldsPtr->get<FieldName_mi_tag>().find(meshPositionsFieldName);
       if (field_it != fieldsPtr->get<FieldName_mi_tag>().end())
         if ((numeredEntFiniteElementPtr->getBitFieldIdData() &
              (*field_it)->getId())
                 .any())
           return true;
       return false;
     };
  
     // Check if field meshPositionsFieldName exist
     if (check_field()) {
       hoCoordsAtGaussPtsF3.resize(nb_gauss_pts_on_faces, 3, false);
       nOrmals_at_GaussPtF3.resize(nb_gauss_pts_on_faces, 3, false);
       tAngent1_at_GaussPtF3.resize(nb_gauss_pts_on_faces, 3, false);
       tAngent2_at_GaussPtF3.resize(nb_gauss_pts_on_faces, 3, false);
       hoCoordsAtGaussPtsF4.resize(nb_gauss_pts_on_faces, 3, false);
       nOrmals_at_GaussPtF4.resize(nb_gauss_pts_on_faces, 3, false);
       tAngent1_at_GaussPtF4.resize(nb_gauss_pts_on_faces, 3, false);
       tAngent2_at_GaussPtF4.resize(nb_gauss_pts_on_faces, 3, false);
       const auto bit_number =
           mField.get_field_bit_number(meshPositionsFieldName);
       CHKERR getNodesFieldData(dataH1TrianglesOnly, bit_number);
       CHKERR getEntityFieldData(dataH1TrianglesOnly, bit_number, MBEDGE);
       CHKERR getEntityFieldData(dataH1TrianglesOnly, bit_number, MBEDGE);
       CHKERR opHOCoordsAndNormals.opRhs(dataH1TrianglesOnly);
       CHKERR opHOCoordsAndNormals.calculateNormals();
     } else {
       hoCoordsAtGaussPtsF3.resize(0, 0, false);
       nOrmals_at_GaussPtF3.resize(0, 0, false);
       tAngent1_at_GaussPtF3.resize(0, 0, false);
       tAngent2_at_GaussPtF3.resize(0, 0, false);
       hoCoordsAtGaussPtsF4.resize(0, 0, false);
       nOrmals_at_GaussPtF4.resize(0, 0, false);
       tAngent1_at_GaussPtF4.resize(0, 0, false);
       tAngent2_at_GaussPtF4.resize(0, 0, false);
     }
     MoFEMFunctionReturn(0);
   };
  
   CHKERR calc_coordinates_at_triangles();
   CHKERR calc_vertex_base_on_prism();
   CHKERR calc_base_on_prism();
   CHKERR calc_coordinate_on_prism();
   vOlume = calculate_volume();
   CHKERR calc_ho_triangle_face_normals();
  
   // Iterate over operators
   CHKERR loopOverOperators();
  
   MoFEMFunctionReturn(0);
 }

◆ setGaussPtsThroughThickness()

virtual MoFEMErrorCode MoFEM::FatPrismElementForcesAndSourcesCore::setGaussPtsThroughThickness ( int order_thickness )

inlinevirtual

Reimplemented in PostProcFatPrismOnRefinedMesh, and PrismFE.

Definition at line 45 of file FatPrismElementForcesAndSourcesCore.hpp.

                                                                           {
     MoFEMFunctionBeginHot;
     SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED, "not implemented");
     MoFEMFunctionReturnHot(0);
   }

◆ setGaussPtsTrianglesOnly()

virtual MoFEMErrorCode MoFEM::FatPrismElementForcesAndSourcesCore::setGaussPtsTrianglesOnly ( int order_triangles_only )

inlinevirtual

Reimplemented in PostProcFatPrismOnRefinedMesh, and PrismFE.

Definition at line 39 of file FatPrismElementForcesAndSourcesCore.hpp.

                                                                             {
     MoFEMFunctionBeginHot;
     SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED, "not implemented");
     MoFEMFunctionReturnHot(0);
   }