Rhs for mapping vector fields with a scalar basis with least squares. More...

#include "users_modules/multifield-thermoplasticity-private/src/EdgeFlippingOps.hpp"

Inheritance diagram for EdgeFlippingOps::OpRhsH1VectorLeastSquaresProj< A, I, DIM >:

Collaboration diagram for EdgeFlippingOps::OpRhsH1VectorLeastSquaresProj< A, I, DIM >:

Public Member Functions
	OpRhsH1VectorLeastSquaresProj (const std::string field_name, boost::shared_ptr< MatrixDouble > old_sol_ptr, boost::shared_ptr< MatrixDouble > dot_new_sol_ptr, boost::shared_ptr< MatrixDouble > new_sol_ptr, boost::shared_ptr< MatrixDouble > grad_new_sol_ptr, MoFEM::Interface &m_field, ScalarFun scalar_function=[](double, double, double) constexpr { return 1;})

MoFEMErrorCode	iNtegrate (EntitiesFieldData::EntData &data)

Private Attributes
ScalarFun	scalarFunction

boost::shared_ptr< MatrixDouble >	dotNewSolPtr

boost::shared_ptr< MatrixDouble >	newSolPtr

boost::shared_ptr< MatrixDouble >	gradNewSolPtr

boost::shared_ptr< MatrixDouble >	oldSolPtr

MoFEM::Interface &	mField

Detailed Description

template<AssemblyType A, IntegrationType I, int DIM>
struct EdgeFlippingOps::OpRhsH1VectorLeastSquaresProj< A, I, DIM >

Rhs for mapping vector fields with a scalar basis with least squares.

Definition at line 185 of file EdgeFlippingOps.hpp.

Constructor & Destructor Documentation

◆ OpRhsH1VectorLeastSquaresProj()

template<AssemblyType A, IntegrationType I, int DIM>

EdgeFlippingOps::OpRhsH1VectorLeastSquaresProj< A, I, DIM >::OpRhsH1VectorLeastSquaresProj	(	const std::string	field_name,
		boost::shared_ptr< MatrixDouble >	old_sol_ptr,
		boost::shared_ptr< MatrixDouble >	dot_new_sol_ptr,
		boost::shared_ptr< MatrixDouble >	new_sol_ptr,
		boost::shared_ptr< MatrixDouble >	grad_new_sol_ptr,
		MoFEM::Interface &	m_field,
		ScalarFun	scalar_function = `[](double, double, double) constexpr { return 1; }`
	)

inline

Definition at line 187 of file EdgeFlippingOps.hpp.

                                                       { return 1; })
      : AssemblyDomainEleOp(field_name, field_name, AssemblyDomainEleOp::OPROW),
        oldSolPtr(old_sol_ptr), dotNewSolPtr(dot_new_sol_ptr),
        newSolPtr(new_sol_ptr), gradNewSolPtr(grad_new_sol_ptr),
        mField(m_field), scalarFunction(scalar_function) {}

Member Function Documentation

◆ iNtegrate()

template<AssemblyType A, IntegrationType I, int DIM>

MoFEMErrorCode EdgeFlippingOps::OpRhsH1VectorLeastSquaresProj< A, I, DIM >::iNtegrate ( EntitiesFieldData::EntData & data )

inline

Examples: EdgeFlippingOps.hpp.

Definition at line 200 of file EdgeFlippingOps.hpp.

                                                           {
    MoFEMFunctionBegin;
 
    FTENSOR_INDEX(DIM, i);
 
    const double vol = getMeasure();
    auto t_w = getFTensor0IntegrationWeight();
    auto t_coords = getFTensor1CoordsAtGaussPts();
    auto t_base = data.getFTensor0N();
    auto t_diff_base = data.getFTensor1DiffN<SPACE_DIM>();
 
#ifndef NDEBUG
    if (data.getDiffN().size1() != data.getN().size1())
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "wrong size 1");
    if (data.getDiffN().size2() != data.getN().size2() * SPACE_DIM) {
      MOFEM_LOG("SELF", Sev::error)
          << "Side " << rowSide << " " << CN::EntityTypeName(rowType);
      MOFEM_LOG("SELF", Sev::error) << data.getN();
      MOFEM_LOG("SELF", Sev::error) << data.getDiffN();
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "wrong size 2");
    }
#endif
 
    auto t_old_sol = getFTensor1FromMat<SPACE_DIM>(*oldSolPtr);
    auto t_new_sol = getFTensor1FromMat<SPACE_DIM>(*newSolPtr);
 
    for (int gg = 0; gg != nbIntegrationPts; ++gg) {
 
      const double alpha =
          t_w * vol * scalarFunction(t_coords(0), t_coords(1), t_coords(2));
 
      auto t_nf = getFTensor1FromArray<SPACE_DIM, SPACE_DIM>(locF);
 
      int bb = 0;
      for (; bb != nbRows / SPACE_DIM; ++bb) {
        t_nf(i) += (t_base * alpha) * (t_old_sol(i));
        ++t_base;
        ++t_diff_base;
        ++t_nf;
      }
 
      for (; bb < nbRowBaseFunctions; ++bb) {
        ++t_base;
        ++t_diff_base;
      }
 
      ++t_old_sol;
      ++t_new_sol;
 
      ++t_coords;
      ++t_w;
    }
 
    MoFEMFunctionReturn(0);
  }