v0.9.1
Public Member Functions | Public Attributes | List of all members
MoFEM::OpSetCovariantPiolaTransformOnEdge Struct Reference

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

#include <src/finite_elements/DataOperators.hpp>

Inheritance diagram for MoFEM::OpSetCovariantPiolaTransformOnEdge:
[legend]
Collaboration diagram for MoFEM::OpSetCovariantPiolaTransformOnEdge:
[legend]

Public Member Functions

 OpSetCovariantPiolaTransformOnEdge (const VectorDouble &tangent, const MatrixDouble &tangent_at_pts)
 
MoFEMErrorCode doWork (int side, EntityType type, DataForcesAndSourcesCore::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, DataForcesAndSourcesCore::EntData &row_data, DataForcesAndSourcesCore::EntData &col_data)
 Operator for bi-linear form, usually to calculate values on left hand side. More...
 
virtual MoFEMErrorCode opLhs (DataForcesAndSourcesCore &row_data, DataForcesAndSourcesCore &col_data)
 
virtual MoFEMErrorCode opRhs (DataForcesAndSourcesCore &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 VectorDoubletAngent
 
const MatrixDoubletangentAtGaussPt
 
- Public Attributes inherited from MoFEM::DataOperator
bool sYmm
 If true assume that matrix is symmetric structure. More...
 
std::array< bool, MBMAXTYPE > doEntities
 If true operator is executed for entity. More...
 
booldoVertices
 \deprectaed If false skip vertices More...
 
booldoEdges
 \deprectaed If false skip edges More...
 
booldoQuads
 \deprectaed More...
 
booldoTris
 \deprectaed More...
 
booldoTets
 \deprectaed More...
 
booldoPrisms
 \deprectaed More...
 

Detailed Description

transform Hcurl base fluxes from reference element to physical edge

Definition at line 561 of file DataOperators.hpp.

Constructor & Destructor Documentation

◆ OpSetCovariantPiolaTransformOnEdge()

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

Definition at line 566 of file DataOperators.hpp.

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

Member Function Documentation

◆ doWork()

MoFEMErrorCode MoFEM::OpSetCovariantPiolaTransformOnEdge::doWork ( int  side,
EntityType  type,
DataForcesAndSourcesCore::EntData data 
)
virtual

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

Reimplemented from MoFEM::DataOperator.

Definition at line 1093 of file DataOperators.cpp.

1094  {
1096 
1097  if (type != MBEDGE)
1099 
1102  &tAngent[0], &tAngent[1], &tAngent[2]);
1103  const double l0 = t_m(i) * t_m(i);
1104 
1105  auto get_base_at_pts = [&](auto base) {
1107  &data.getN(base)(0, HVEC0), &data.getN(base)(0, HVEC1),
1108  &data.getN(base)(0, HVEC2));
1109  return t_h_curl;
1110  };
1111 
1112  auto get_tangent_at_pts = [&]() {
1114  &tangentAtGaussPt(0, 0), &tangentAtGaussPt(0, 1),
1115  &tangentAtGaussPt(0, 2));
1116  return t_m_at_pts;
1117  };
1118 
1119  auto calculate_squared_edge_length = [&]() {
1120  std::vector<double> l1;
1121  int nb_gauss_pts = tangentAtGaussPt.size1();
1122  if (nb_gauss_pts) {
1123  l1.resize(nb_gauss_pts);
1124  auto t_m_at_pts = get_tangent_at_pts();
1125  for (size_t gg = 0; gg != nb_gauss_pts; ++gg) {
1126  l1[gg] = t_m_at_pts(i) * t_m_at_pts(i);
1127  ++t_m_at_pts;
1128  }
1129  }
1130  return l1;
1131  };
1132 
1133  auto l1 = calculate_squared_edge_length();
1134 
1135  for (int b = AINSWORTH_LEGENDRE_BASE; b != LASTBASE; b++) {
1136 
1137  FieldApproximationBase base = static_cast<FieldApproximationBase>(b);
1138  const size_t nb_gauss_pts = data.getN(base).size1();
1139  const size_t nb_dofs = data.getN(base).size2() / 3;
1140  if (nb_gauss_pts && nb_dofs) {
1141  auto t_h_curl = get_base_at_pts(base);
1142  int cc = 0;
1143  if (tangentAtGaussPt.size1() == nb_gauss_pts) {
1144  auto t_m_at_pts = get_tangent_at_pts();
1145  for (int gg = 0; gg != nb_gauss_pts; ++gg) {
1146  const double l0 = l1[gg];
1147  for (int ll = 0; ll != nb_dofs; ll++) {
1148  const double val = t_h_curl(0);
1149  const double a = val / l0;
1150  t_h_curl(i) = t_m_at_pts(i) * a;
1151  ++t_h_curl;
1152  ++cc;
1153  }
1154  ++t_m_at_pts;
1155  }
1156  } else {
1157  for (int gg = 0; gg != nb_gauss_pts; ++gg) {
1158  for (int ll = 0; ll != nb_dofs; ll++) {
1159  const double val = t_h_curl(0);
1160  const double a = val / l0;
1161  t_h_curl(i) = t_m(i) * a;
1162  ++t_h_curl;
1163  ++cc;
1164  }
1165  }
1166  }
1167 
1168  if (cc != nb_gauss_pts * nb_dofs)
1169  SETERRQ(PETSC_COMM_SELF, MOFEM_IMPOSIBLE_CASE, "Data inconsistency");
1170  }
1171  }
1172 
1174 }
#define MoFEMFunctionBeginHot
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
Definition: definitions.h:506
#define MoFEMFunctionReturnHot(a)
Last executable line of each PETSc function used for error handling. Replaces return()
Definition: definitions.h:513
FieldApproximationBase
approximation base
Definition: definitions.h:149
Ainsworth Cole (Legendre) approx. base .
Definition: definitions.h:151
FTensor::Index< 'i', 2 > i
[Common data]
Definition: ContactOps.hpp:24

Member Data Documentation

◆ tAngent

const VectorDouble& MoFEM::OpSetCovariantPiolaTransformOnEdge::tAngent

Definition at line 563 of file DataOperators.hpp.

◆ tangentAtGaussPt

const MatrixDouble& MoFEM::OpSetCovariantPiolaTransformOnEdge::tangentAtGaussPt

Definition at line 564 of file DataOperators.hpp.


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