673 {
674
675#ifdef HENCKY_SMALL_STRAIN
676 dP_dF(
i,
j,
k,
l) = t_D(
i,
j,
k,
l);
677#else
678
681
682
683 auto nb_uniq = get_uniq_nb<DIM>(&t_eig_val(0));
684
686
688 t_T, nb_uniq);
691 P_D_P_plus_TL(
i,
j,
k,
l) =
693 (t_logC_dC(
i,
j, o, p) * t_D(o, p,
m,
n)) * t_logC_dC(
m,
n,
k,
l);
694 P_D_P_plus_TL(
i,
j,
k,
l) *= 0.5;
697 t_F(
i,
k) * (P_D_P_plus_TL(
k,
j, o, p) * dC_dF(o, p,
m,
n));
698
699#endif
700
701 ++dP_dF;
702
703 ++t_grad;
704 ++t_eig_val;
705 ++t_eig_vec;
706 ++t_logC_dC;
707 ++t_S;
708 ++t_T;
709 ++t_D;
710 ++dC_dF;
711 }
712
714 }
715
716private:
717 boost::shared_ptr<CommonData> commonDataPtr;
718 boost::shared_ptr<MatrixDouble> matDPtr;
719};
720
721template <int DIM, typename AssemblyDomainEleOp, int S>
724 OpCalculateHenckyThermalStressdTImpl(
725 const std::string row_field_name, const std::string col_field_name,
726 boost::shared_ptr<CommonData> elastic_common_data_ptr,
727 boost::shared_ptr<VectorDouble> coeff_expansion_ptr);
728
730 EntitiesFieldData::EntData &col_data);
731
732private:
733 boost::shared_ptr<CommonData> elasticCommonDataPtr;
734 boost::shared_ptr<VectorDouble> coeffExpansionPtr;
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
FTensor::Index< 'i', SPACE_DIM > i
const double n
refractive index of diffusive medium
FTensor::Index< 'l', 3 > l
FTensor::Index< 'j', 3 > j
FTensor::Index< 'k', 3 > k
auto getDiffDiffMat(A &&t_val, B &&t_vec, Fun< double > f, Fun< double > d_f, Fun< double > dd_f, C &&t_S, const int nb)
Get the Diff Diff Mat object.
PetscErrorCode MoFEMErrorCode
MoFEM/PETSc error code.
FTensor::Index< 'm', 3 > m
OpCalculateHenckyThermalStressdTImpl(const std::string row_field_name, const std::string col_field_name, boost::shared_ptr< CommonData > elastic_common_data_ptr, boost::shared_ptr< VectorDouble > coeff_expansion_ptr)