#include "src/finite_elements/BiLinearFormsIntegratorsImpl.hpp"

Inheritance diagram for MoFEM::OpGradSymTensorGradImpl< 1, SPACE_DIM, SPACE_DIM, S, GAUSS, OpBase >:

Collaboration diagram for MoFEM::OpGradSymTensorGradImpl< 1, SPACE_DIM, SPACE_DIM, S, GAUSS, OpBase >:

Public Member Functions
	OpGradSymTensorGradImpl (const std::string row_field_name, const std::string col_field_name, boost::shared_ptr< MatrixDouble > mat_D, boost::shared_ptr< Range > ents_ptr=nullptr, ScalarFun beta=scalar_fun_one)

Public Member Functions inherited from MoFEM::OpBaseImpl< A, EleOp >
	OpBaseImpl (const std::string row_field_name, const std::string col_field_name, const OpType type, boost::shared_ptr< Range > ents_ptr=nullptr)
	Constructor for base operator implementation.

MoFEMErrorCode	doWork (int row_side, int col_side, EntityType row_type, EntityType col_type, EntData &row_data, EntData &col_data)
	Do calculations for the left hand side.

MoFEMErrorCode	doWork (int row_side, EntityType row_type, EntData &row_data)
	Do calculations for the right hand side.

Public Attributes
FTensor::Index< 'i', SPACE_DIM >	i
	summit Index

Public Attributes inherited from MoFEM::OpBaseImpl< A, EleOp >
TimeFun	timeScalingFun
	assumes that time variable is set

FEFun	feScalingFun
	set by fe entity handle

boost::shared_ptr< Range >	entsPtr
	Entities on which element is run.

Protected Member Functions
MoFEMErrorCode	iNtegrate (EntitiesFieldData::EntData &row_data, EntitiesFieldData::EntData &col_data)
	Integrate grad-grad operator.

Protected Member Functions inherited from MoFEM::OpBaseImpl< A, EleOp >
template<int DIM>
auto	getNf ()
	Get local vector tensor for assembly.

template<int DIM>
FTensor::Tensor2< FTensor::PackPtr< double *, DIM >, DIM, DIM >	getLocMat (const int rr)
	Get local matrix tensor for assembly.

virtual MoFEMErrorCode	aSsemble (EntData &row_data, EntData &col_data, const bool trans)
	Assemble local matrix into global matrix.

virtual MoFEMErrorCode	iNtegrate (EntData &)
	Class dedicated to integrate operator.

virtual MoFEMErrorCode	aSsemble (EntData &data)
	Assemble local vector into global vector.

virtual size_t	getNbOfBaseFunctions (EntitiesFieldData::EntData &data)
	Get number of base functions.

Protected Attributes
boost::shared_ptr< MatrixDouble >	matD

ScalarFun	betaCoeff

Protected Attributes inherited from MoFEM::OpBaseImpl< A, EleOp >
int	nbRows
	number of dofs on rows

int	nbCols
	number if dof on column

int	nbIntegrationPts
	number of integration points

int	nbRowBaseFunctions
	number or row base functions

int	rowSide
	row side number

int	colSide
	column side number

EntityType	rowType
	row type

EntityType	colType
	column type

bool	assembleTranspose

bool	onlyTranspose

MatrixDouble	locMat
	local entity block matrix

MatrixDouble	locMatTranspose
	local entity block matrix

VectorDouble	locF
	local entity vector

Additional Inherited Members
Public Types inherited from MoFEM::OpBaseImpl< A, EleOp >
using	OpType = typename EleOp::OpType

using	EntData = EntitiesFieldData::EntData

using	MatSetValuesHook = boost::function< MoFEMErrorCode(ForcesAndSourcesCore::UserDataOperator *op_ptr, const EntitiesFieldData::EntData &row_data, const EntitiesFieldData::EntData &col_data, MatrixDouble &m)>

Static Public Attributes inherited from MoFEM::OpBaseImpl< A, EleOp >
static MatSetValuesHook	matSetValuesHook

Detailed Description

template<int SPACE_DIM, int S, typename OpBase>
struct MoFEM::OpGradSymTensorGradImpl< 1, SPACE_DIM, SPACE_DIM, S, GAUSS, OpBase >

Definition at line 208 of file BiLinearFormsIntegratorsImpl.hpp.

Constructor & Destructor Documentation

◆ OpGradSymTensorGradImpl()

template<int SPACE_DIM, int S, typename OpBase >

MoFEM::OpGradSymTensorGradImpl< 1, SPACE_DIM, SPACE_DIM, S, GAUSS, OpBase >::OpGradSymTensorGradImpl	(	const std::string	row_field_name,
		const std::string	col_field_name,
		boost::shared_ptr< MatrixDouble >	mat_D,
		boost::shared_ptr< Range >	ents_ptr = `nullptr`,
		ScalarFun	beta = `scalar_fun_one`
	)

inline

Definition at line 211 of file BiLinearFormsIntegratorsImpl.hpp.

      : OpBase(row_field_name, col_field_name, OpBase::OPROWCOL, ents_ptr),
        matD(mat_D), betaCoeff(beta) {
    if (row_field_name == col_field_name)
      this->sYmm = true;
  }

Member Function Documentation

◆ iNtegrate()

template<int SPACE_DIM, int S, typename OpBase >

MoFEMErrorCode MoFEM::OpGradSymTensorGradImpl< 1, SPACE_DIM, SPACE_DIM, S, GAUSS, OpBase >::iNtegrate	(	EntitiesFieldData::EntData &	,
		EntitiesFieldData::EntData &
	)

protectedvirtual

Integrate grad-grad operator.

Parameters

row_data	row data (consist base functions on row entity)
col_data	column data (consist base functions on column entity)

Returns: error code

Reimplemented from MoFEM::OpBaseImpl< A, EleOp >.

Definition at line 918 of file BiLinearFormsIntegratorsImpl.hpp.

                                        {
  MoFEMFunctionBegin;
 
  const size_t nb_row_dofs = row_data.getIndices().size();
  const size_t nb_col_dofs = col_data.getIndices().size();
 
  if (nb_row_dofs && nb_col_dofs) {
 
    const bool diag = (row_data.getFieldEntities()[0]->getLocalUniqueId() ==
                       col_data.getFieldEntities()[0]->getLocalUniqueId());
 
    FTensor::Index<'i', SPACE_DIM> i;
    FTensor::Index<'j', SPACE_DIM> j;
    FTensor::Index<'k', SPACE_DIM> k;
    FTensor::Index<'l', SPACE_DIM> l;
 
    // get element volume
    double vol = OpBase::getMeasure();
 
    // get intergrayion weights
    auto t_w = OpBase::getFTensor0IntegrationWeight();
 
    // get derivatives of base functions on rows
    auto t_row_diff_base = row_data.getFTensor1DiffN<SPACE_DIM>();
 
    // Elastic stiffness tensor (4th rank tensor with minor and major
    // symmetry)
    using DL = DataLayoutTraits<DataLayout::GaussByCoeffs>;
    auto get_D_at_pts =
        MatrixSizeHelper<GetFTensor4DdgFromMatType<SPACE_DIM, SPACE_DIM, S, DL>,
                         DL>::get(*matD, OpBase::nbIntegrationPts);
    auto t_D_at_pts = get_D_at_pts();
 
    // get coordinate at integration points
    auto t_coords = OpBase::getFTensor1CoordsAtGaussPts();
 
    // iterate over integration points
    for (int gg = 0; gg != OpBase::nbIntegrationPts; ++gg) {
 
      // calculate scalar weight times element volume
      double a = t_w * vol * betaCoeff(t_coords(0), t_coords(1), t_coords(2));
 
      // iterate over row base functions
      int rr = 0;
      for (; rr != OpBase::nbRows / SPACE_DIM; ++rr) {
 
        // get sub matrix for the row
        auto t_m = OpBase::template getLocMat<SPACE_DIM>(SPACE_DIM * rr);
 
        FTensor::Christof<double, SPACE_DIM, SPACE_DIM> t_rowD;
        // I mix up the indices here so that it behaves like a
        // Dg.  That way I don't have to have a separate wrapper
        // class Christof_Expr, which simplifies things.
        t_rowD(l, j, k) = t_D_at_pts(i, j, k, l) * (a * t_row_diff_base(i));
 
        // get derivatives of base functions for columns
        auto t_col_diff_base = col_data.getFTensor1DiffN<SPACE_DIM>(gg, 0);
 
        // iterate column base functions
        const auto nb_cols = (diag) ? rr : OpBase::nbCols / SPACE_DIM - 1;
        for (int cc = 0; cc <= nb_cols; ++cc) {
 
          // integrate block local stiffens matrix
          t_m(i, j) += t_rowD(i, j, k) * t_col_diff_base(k);
 
          // move to next column base function
          ++t_col_diff_base;
 
          // move to next block of local stiffens matrix
          ++t_m;
        }
 
        // move to next row base function
        ++t_row_diff_base;
      }
 
      for (; rr < OpBase::nbRowBaseFunctions; ++rr)
        ++t_row_diff_base;
 
      // move to next integration weight
      ++t_w;
      ++t_D_at_pts;
      ++t_coords;
    }
 
    // Copy symmetry
    if (diag) {
      for (int rr = 0; rr != OpBase::nbRows / SPACE_DIM - 1; ++rr) {
        auto t_m_rr = getFTensor2FromArray<SPACE_DIM, SPACE_DIM, SPACE_DIM>(
            this->locMat, SPACE_DIM * rr, SPACE_DIM * (rr + 1));
        auto t_m_cc = getFTensor2FromArray<SPACE_DIM, SPACE_DIM>(
            this->locMat, SPACE_DIM * (rr + 1), SPACE_DIM * rr,
            SPACE_DIM * OpBase::nbCols);
        for (int cc = rr + 1; cc < OpBase::nbCols / SPACE_DIM; ++cc) {
          t_m_rr(i, j) = t_m_cc(j, i);
          ++t_m_rr;
          ++t_m_cc;
        }
      }
    }
  }
 
  MoFEMFunctionReturn(0);
}