Assemble the consistent full-order H–H tangent. More...

Inheritance diagram for EshelbianPlasticity::HMHStorakers::OpSpatialPhysical_du_du:

Collaboration diagram for EshelbianPlasticity::HMHStorakers::OpSpatialPhysical_du_du:

Public Member Functions
	OpSpatialPhysical_du_du (std::string row_field, std::string col_field, boost::shared_ptr< DataAtIntegrationPts > data_ptr, const double alpha_u)

MoFEMErrorCode	getOptions ()

MoFEMErrorCode	integrate (EntData &row_data, EntData &col_data) override

Public Member Functions inherited from OpAssembleVolumePositiveDefine
MoFEMErrorCode	doWork (int, EntityType, EntData &)
	Operator for linear form, usually to calculate values on right hand side.

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

Public Member Functions inherited from OpAssembleVolume
MoFEMErrorCode	assemble (int row_side, int col_side, EntityType row_type, EntityType col_type, EntData &row_data, EntData &col_data)

Public Member Functions inherited from OpAssembleBasic< VolUserDataOperator >
	OpAssembleBasic (const std::string &field_name, boost::shared_ptr< DataAtIntegrationPts > data_ptr, const char type)

	OpAssembleBasic (std::string row_field, std::string col_field, boost::shared_ptr< DataAtIntegrationPts > data_ptr, const char type, const bool assemble_symmetry, ScaleOff scale_off=[]() { return 1;})

	OpAssembleBasic (const FieldSpace space)

virtual MoFEMErrorCode	integrate (EntData &)

virtual MoFEMErrorCode	integrate (int, EntityType, EntData &data)

virtual MoFEMErrorCode	integrate (EntData &, EntData &)

virtual MoFEMErrorCode	assemble (EntData &data)

virtual MoFEMErrorCode	assemble (int, EntityType, EntData &data)

Public Member Functions inherited from MoFEM::VolumeElementForcesAndSourcesCore::UserDataOperator
int	getNumNodes ()
	get element number of nodes

const EntityHandle *	getConn ()
	get element connectivity

double	getVolume () const
	element volume (linear geometry)

double &	getVolume ()
	element volume (linear geometry)

FTensor::Tensor2< double *, 3, 3 > &	getJac ()
	get element Jacobian

FTensor::Tensor2< double *, 3, 3 > &	getInvJac ()
	get element inverse Jacobian

VectorDouble &	getCoords ()
	nodal coordinates

VolumeElementForcesAndSourcesCore *	getVolumeFE () const
	return pointer to Generic Volume Finite Element object

Public Member Functions inherited from MoFEM::ForcesAndSourcesCore::UserDataOperator
	UserDataOperator (const FieldSpace space, const char type=OPSPACE, const bool symm=true)
	Constructor for operators working on finite element spaces.

	UserDataOperator (const std::string field_name, const char type, const bool symm=true)
	Constructor for operators working on a single field.

	UserDataOperator (const std::string row_field_name, const std::string col_field_name, const char type, const bool symm=true)
	Constructor for operators working on two fields (bilinear forms)

boost::shared_ptr< const NumeredEntFiniteElement >	getNumeredEntFiniteElementPtr () const
	Return raw pointer to NumeredEntFiniteElement.

EntityHandle	getFEEntityHandle () const
	Return finite element entity handle.

int	getFEDim () const
	Get dimension of finite element.

EntityType	getFEType () const
	Get dimension of finite element.

boost::weak_ptr< SideNumber >	getSideNumberPtr (const int side_number, const EntityType type)
	Get the side number pointer.

EntityHandle	getSideEntity (const int side_number, const EntityType type)
	Get the side entity.

int	getNumberOfNodesOnElement () const
	Get the number of nodes on finite element.

MoFEMErrorCode	getProblemRowIndices (const std::string filed_name, const EntityType type, const int side, VectorInt &indices) const
	Get row indices.

MoFEMErrorCode	getProblemColIndices (const std::string filed_name, const EntityType type, const int side, VectorInt &indices) const
	Get col indices.

const FEMethod *	getFEMethod () const
	Return raw pointer to Finite Element Method object.

int	getOpType () const
	Get operator types.

void	setOpType (const OpType type)
	Set operator type.

void	addOpType (const OpType type)
	Add operator type.

int	getNinTheLoop () const
	get number of finite element in the loop

int	getLoopSize () const
	get size of elements in the loop

std::string	getFEName () const
	Get name of the element.

ForcesAndSourcesCore *	getPtrFE () const

ForcesAndSourcesCore *	getSidePtrFE () const

ForcesAndSourcesCore *	getRefinePtrFE () const

const PetscData::Switches &	getDataCtx () const

KspMethod::KSPContext	getKSPCtx () const

SnesMethod::SNESContext	getSNESCtx () const

TSMethod::TSContext	getTSCtx () const

Vec	getKSPf () const

Mat	getKSPA () const

Mat	getKSPB () const

Vec	getSNESf () const

Vec	getSNESx () const

Mat	getSNESA () const

Mat	getSNESB () const

Vec	getTSu () const

Vec	getTSu_t () const

Vec	getTSu_tt () const

Vec	getTSf () const

Mat	getTSA () const

Mat	getTSB () const

int	getTSstep () const

double	getTStime () const

double	getTStimeStep () const

double	getTSa () const

double	getTSaa () const

MatrixDouble &	getGaussPts ()
	matrix of integration (Gauss) points for Volume Element

auto	getFTensor0IntegrationWeight ()
	Get integration weights.

MatrixDouble &	getCoordsAtGaussPts ()
	Gauss points and weight, matrix (nb. of points x 3)

auto	getFTensor1CoordsAtGaussPts ()
	Get coordinates at integration points assuming linear geometry.

double	getMeasure () const
	get measure of element

double &	getMeasure ()
	get measure of element

MoFEM::Interface &	getMField ()

moab::Interface &	getMoab ()

virtual boost::weak_ptr< ForcesAndSourcesCore >	getSubPipelinePtr () const

MoFEMErrorCode	loopSide (const string &fe_name, ForcesAndSourcesCore side_fe, const size_t dim, const EntityHandle ent_for_side=0, boost::shared_ptr< Range > fe_range=nullptr, const int verb=QUIET, const LogManager::SeverityLevel sev=Sev::noisy, AdjCache adj_cache=nullptr)
	User calls this function to loop over elements on the side of face. This function calls finite element with its operator to do calculations.

MoFEMErrorCode	loopThis (const string &fe_name, ForcesAndSourcesCore *this_fe, const int verb=QUIET, const LogManager::SeverityLevel sev=Sev::noisy)
	User calls this function to loop over the same element using a different set of integration points. This function calls finite element with its operator to do calculations.

MoFEMErrorCode	loopParent (const string &fe_name, ForcesAndSourcesCore *parent_fe, const int verb=QUIET, const LogManager::SeverityLevel sev=Sev::noisy)
	User calls this function to loop over parent elements. This function calls finite element with its operator to do calculations.

MoFEMErrorCode	loopChildren (const string &fe_name, ForcesAndSourcesCore *child_fe, const int verb=QUIET, const LogManager::SeverityLevel sev=Sev::noisy)
	User calls this function to loop over parent elements. This function calls finite element with its operator to do calculations.

MoFEMErrorCode	loopRange (const string &fe_name, ForcesAndSourcesCore *range_fe, boost::shared_ptr< Range > fe_range, const int verb=QUIET, const LogManager::SeverityLevel sev=Sev::noisy)
	Iterate over range of elements.

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

virtual	~DataOperator ()=default

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.

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

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

Private Attributes
const double	alphaU

double	minimEigenValue = 0

Additional Inherited Members
Public Types inherited from OpAssembleVolume
using	OP = OpAssembleBasic< VolUserDataOperator >

using	ScaleOff = typename OP::ScaleOff

Public Types inherited from OpAssembleBasic< VolUserDataOperator >
using	ScaleOff = boost::function< double()>

Public Types inherited from MoFEM::ForcesAndSourcesCore::UserDataOperator
enum	OpType { OPROW = 1 << 0 , OPCOL = 1 << 1 , OPROWCOL = 1 << 2 , OPSPACE = 1 << 3 , OPLAST = 1 << 3 }
	Controls loop over entities on element. More...

using	AdjCache = std::map< EntityHandle, std::vector< boost::weak_ptr< NumeredEntFiniteElement > > >

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)>

Public Attributes inherited from OpAssembleBasic< VolUserDataOperator >
const bool	assembleSymmetry

boost::shared_ptr< DataAtIntegrationPts >	dataAtPts
	data at integration pts

VectorDouble	nF
	local right hand side vector

MatrixDouble	K
	local tangent matrix

MatrixDouble	transposeK

ScaleOff	scaleOff

Public Attributes inherited from MoFEM::ForcesAndSourcesCore::UserDataOperator
char	opType

std::string	rowFieldName

std::string	colFieldName

FieldSpace	sPace

Public Attributes inherited from MoFEM::DataOperator
DoWorkLhsHookFunType	doWorkLhsHook

DoWorkRhsHookFunType	doWorkRhsHook

bool	sYmm
	If true assume that matrix is symmetric structure.

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

bool &	doVertices
	\deprectaed If false skip vertices

bool &	doEdges
	\deprectaed If false skip edges

bool &	doQuads
	\deprectaed

bool &	doTris
	\deprectaed

bool &	doTets
	\deprectaed

bool &	doPrisms
	\deprectaed

Static Public Attributes inherited from MoFEM::ForcesAndSourcesCore::UserDataOperator
static const char *const	OpTypeNames []

Protected Member Functions inherited from MoFEM::VolumeElementForcesAndSourcesCore::UserDataOperator
MoFEMErrorCode	setPtrFE (ForcesAndSourcesCore *ptr)

Protected Attributes inherited from MoFEM::ForcesAndSourcesCore::UserDataOperator
ForcesAndSourcesCore *	ptrFE

Static Protected Attributes inherited from OpAssembleVolume
static std::map< std::pair< std::string, std::string >, MatrixDouble >	mapMatrix

Detailed Description

Assemble the consistent full-order H–H tangent.

\[ \mathbb C_H = D_H(2\mu_1e^H + \mu_2e^{2H}) + \beta\gamma_Y\mathbf I\otimes\mathbf I. \]

Definition at line 281 of file HMHStorakers.cpp.

Constructor & Destructor Documentation

◆ OpSpatialPhysical_du_du()

EshelbianPlasticity::HMHStorakers::OpSpatialPhysical_du_du::OpSpatialPhysical_du_du	(	std::string	row_field,
		std::string	col_field,
		boost::shared_ptr< DataAtIntegrationPts >	data_ptr,
		const double	alpha_u
	)

Definition at line 1380 of file HMHStorakers.cpp.

    : OpAssembleVolumePositiveDefine(std::move(row_field),
                                     std::move(col_field),
                                     std::move(data_ptr), OPROWCOL, false),
      alphaU(alpha_u) {
  CHK_THROW_MESSAGE(getOptions(), "get options failed");
  sYmm = false;
}

Member Function Documentation

◆ getOptions()

MoFEMErrorCode EshelbianPlasticity::HMHStorakers::OpSpatialPhysical_du_du::getOptions ( )

Definition at line 1391 of file HMHStorakers.cpp.

                                                               {
  MoFEMFunctionBegin;
 
  PetscOptionsBegin(PETSC_COMM_WORLD, "storakers_", "Storakers material",
                    "none");
  CHKERR PetscOptionsScalar("-min_eigen_value", "Minimum eigenvalue", "",
                            minimEigenValue, &minimEigenValue, PETSC_NULLPTR);
  PetscOptionsEnd();
  if (!std::isfinite(minimEigenValue) || minimEigenValue < 0) {
    SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
            "Storakers min_eigen_value must be finite and non-negative");
  }
  MOFEM_LOG("EP", Sev::inform)
      << "Storakers min_eigen_value = " << minimEigenValue;
 
  MoFEMFunctionReturn(0);
}

◆ integrate()

MoFEMErrorCode EshelbianPlasticity::HMHStorakers::OpSpatialPhysical_du_du::integrate	(	EntData &	row_data,
		EntData &	col_data
	)

override

Definition at line 1409 of file HMHStorakers.cpp.

                                          {
  MoFEMFunctionBegin;
 
  auto storakers_ptr =
      boost::dynamic_pointer_cast<HMHStorakers>(dataAtPts->physicsPtr);
  if (!storakers_ptr) {
    SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
            "Pointer to HMHStorakers is null");
  }
 
  const auto parameters =
      storakers_ptr->getMaterialParameters(getFEEntityHandle());
  const double alpha_u = alphaU;
  const double alpha_grad_u = storakers_ptr->alphaGradU;
  const double bulk_modulus =
      getDerivedParameters(parameters.mu, parameters.beta).bulkModulus;
 
  FTENSOR_INDEXES(SPACE_DIM, i, j, k, l);
  FTENSOR_INDEXES(size_symm, L, J);
 
  constexpr auto t_kd_sym = FTensor::Kronecker_Delta_symmetric<int>();
  const auto t_L = FTensor::SymmLTensor<double, SPACE_DIM>();
  const auto t_diff = FTensor::DiffTensor<double>();
 
  const int nb_integration_pts = row_data.getN().size1();
  const int row_nb_dofs = row_data.getIndices().size();
  const int col_nb_dofs = col_data.getIndices().size();
  const int row_nb_base_functions = row_data.getN().size2();
 
  auto get_ftensor2 = [](MatrixDouble &matrix, const int row,
                         const int col) {
    std::array<double *, size_symm * size_symm> pointers;
    for (int rr = 0; rr != size_symm; ++rr) {
      for (int cc = 0; cc != size_symm; ++cc) {
        pointers[size_symm * rr + cc] = &matrix(row + rr, col + cc);
      }
    }
    return FTensor::Tensor2<FTensor::PackPtr<double *, size_symm>, size_symm,
                            size_symm>(pointers);
  };
 
  const double volume = getVolume();
  const double ts_a = getTSa();
  auto t_w = getFTensor0IntegrationWeight();
  auto t_row_base_fun = row_data.getFTensor0N();
  auto t_row_grad_fun = row_data.getFTensor1DiffN<SPACE_DIM>();
 
  auto t_adjoint_dstretch =
      dataAtPts->getFTensorAdjointPdstretch(nb_integration_pts);
  auto t_eigen_vals = dataAtPts->getFTensorEigenVals(nb_integration_pts);
  auto t_eigen_vecs = dataAtPts->getFTensorEigenVecs(nb_integration_pts);
  auto t_nb_uniq = FTensor::Tensor0<FTensor::PackPtr<int *, 1>>(
      dataAtPts->nbUniq.data().data());
 
  auto no_h1 = [&]() {
    MoFEMFunctionBegin;
 
    for (int gg = 0; gg != nb_integration_pts; ++gg) {
      const double a = volume * t_w;
      ++t_w;
 
      const double jacobian_power =
          getJacobianPower(parameters, t_eigen_vals);
      const double gamma = getGamma(parameters, jacobian_power);
      const double gamma_y = getGammaY(parameters, jacobian_power);
      const double volumetric_tangent = parameters.beta * gamma_y;
      if (!std::isfinite(jacobian_power) || jacobian_power < 0 ||
          !std::isfinite(gamma) || !std::isfinite(gamma_y) ||
          !std::isfinite(volumetric_tangent)) {
        SETERRQ(PETSC_COMM_SELF, PETSC_ERR_FP,
                "Non-finite Storakers volumetric response in spatial "
                "tangent");
      }
 
      auto coordinate_stress = [parameters, gamma](const double h) {
        return getPrincipalCoordinateStress(parameters, gamma, h);
      };
      auto coordinate_stress_derivative =
          [parameters](const double h) {
            return getPrincipalCoordinateStressDerivativeAtFixedGamma(
                parameters, h);
          };
      auto t_frozen_gamma_tangent = EigenMatrix::getDiffMat(
          t_eigen_vals, t_eigen_vecs, coordinate_stress,
          coordinate_stress_derivative, t_nb_uniq);
      auto identity = [](const double) { return 1.; };
      auto t_log_jacobian_gradient =
          EigenMatrix::getMat(t_eigen_vals, t_eigen_vecs, identity);
 
      FTensor::Ddg<double, SPACE_DIM, SPACE_DIM> t_material_tangent;
      t_material_tangent(i, j, k, l) =
          t_frozen_gamma_tangent(i, j, k, l) +
          volumetric_tangent * t_log_jacobian_gradient(i, j) *
              t_log_jacobian_gradient(k, l);
 
      FTensor::Tensor2<double, size_symm, size_symm> t_dP;
      t_dP(L, J) =
          t_L(i, j, L) *
          (t_material_tangent(i, j, k, l) * t_L(k, l, J));
      t_dP(L, J) +=
          (alpha_u * ts_a) *
          (t_L(i, j, L) * (t_diff(i, j, k, l) * t_L(k, l, J)));
 
      FTensor::Tensor2_symmetric<double, SPACE_DIM> t_deltaP;
      t_deltaP(i, j) =
          (t_adjoint_dstretch(i, j) || t_adjoint_dstretch(j, i)) / 2.;
      auto t_diff2_uP = EigenMatrix::getDiffDiffMat(
          t_eigen_vals, t_eigen_vecs,
          static_cast<double (*)(double)>(std::exp),
          static_cast<double (*)(double)>(std::exp),
          static_cast<double (*)(double)>(std::exp), t_deltaP, t_nb_uniq);
      t_dP(L, J) -=
          t_L(i, j, L) * (t_diff2_uP(i, j, k, l) * t_L(k, l, J));
 
      ++t_adjoint_dstretch;
      ++t_eigen_vals;
      ++t_eigen_vecs;
      ++t_nb_uniq;
 
      t_dP(L, J) *= a;
      if (minimEigenValue > 0) {
        FTensor::Tensor2<double, size_symm, size_symm> t_hessian_eig_vecs;
        t_hessian_eig_vecs(L, J) =
            0.5 * (t_dP(L, J) + t_dP(J, L));
        FTensor::Tensor1<double, size_symm> t_hessian_eig_vals;
        CHKERR computeEigenValuesSymmetric(t_hessian_eig_vecs,
                                           t_hessian_eig_vals);
 
        const double eigenvalue_floor = bulk_modulus * minimEigenValue;
        bool project_hessian = false;
        for (int aa = 0; aa != size_symm; ++aa) {
          project_hessian =
              project_hessian || t_hessian_eig_vals(aa) < eigenvalue_floor;
        }
        if (project_hessian) {
          auto min_eig_val = [eigenvalue_floor](const double value) {
            return 0.5 *
                   (value + eigenvalue_floor +
                    std::abs(value - eigenvalue_floor));
          };
          auto t_dP_min_eig = EigenMatrix::getMat(
              t_hessian_eig_vals, t_hessian_eig_vecs, min_eig_val);
          t_dP(L, J) = t_dP_min_eig(L, J);
        }
      }
 
      int rr = 0;
      for (; rr != row_nb_dofs / size_symm; ++rr) {
        auto t_col_base_fun = col_data.getFTensor0N(gg, 0);
        auto t_col_grad_fun =
            col_data.getFTensor1DiffN<SPACE_DIM>(gg, 0);
        auto t_m = get_ftensor2(K, size_symm * rr, 0);
 
        for (int cc = 0; cc != col_nb_dofs / size_symm; ++cc) {
          t_m(L, J) +=
              (t_row_base_fun * t_col_base_fun) * t_dP(L, J);
          t_m(L, J) +=
              (a * alpha_grad_u * ts_a) *
              (t_row_grad_fun(i) * t_col_grad_fun(i)) * t_kd_sym(L, J);
          ++t_m;
          ++t_col_base_fun;
          ++t_col_grad_fun;
        }
        ++t_row_base_fun;
        ++t_row_grad_fun;
      }
      for (; rr != row_nb_base_functions; ++rr) {
        ++t_row_base_fun;
        ++t_row_grad_fun;
      }
    }
 
    MoFEMFunctionReturn(0);
  };
 
  auto not_implemented = [&]() {
    MoFEMFunctionBegin;
    SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED,
            "Storakers full-order tangent is implemented only for no_h1");
    MoFEMFunctionReturn(0);
  };
 
  switch (EshelbianCore::gradApproximator) {
  case NO_H1_CONFIGURATION:
    CHKERR no_h1();
    break;
  case LARGE_ROT:
  case MODERATE_ROT:
    CHKERR not_implemented();
    break;
  default:
    SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
            "gradApproximator not handled");
  }
 
  MoFEMFunctionReturn(0);
}

Member Data Documentation

◆ alphaU

const double EshelbianPlasticity::HMHStorakers::OpSpatialPhysical_du_du::alphaU

private

Definition at line 290 of file HMHStorakers.cpp.

◆ minimEigenValue

double EshelbianPlasticity::HMHStorakers::OpSpatialPhysical_du_du::minimEigenValue = 0

private

Definition at line 291 of file HMHStorakers.cpp.

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

users_modules/eshelbian_plasticity/src/impl/HMHStorakers.cpp

Public Member Functions

Private Attributes

Additional Inherited Members