v0.16.0
Loading...
Searching...
No Matches
Public Member Functions | Private Attributes | List of all members
HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S > Struct Template Reference

#include "tutorials/vec-2_nonlinear_elasticity/src/HenckyOps.hpp"

Inheritance diagram for HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S >:
[legend]
Collaboration diagram for HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S >:
[legend]

Public Member Functions

 OpHenckyTangentImpl (const std::string field_name, boost::shared_ptr< CommonData > common_data, boost::shared_ptr< MatrixDouble > mat_D_ptr=nullptr)
 
MoFEMErrorCode doWork (int side, EntityType type, EntData &data)
 
 OpHenckyTangentImpl (const std::string field_name, boost::shared_ptr< CommonData > common_data, boost::shared_ptr< MatrixDouble > mat_D_ptr=nullptr)
 
MoFEMErrorCode doWork (int side, EntityType type, EntData &data)
 

Private Attributes

boost::shared_ptr< CommonData > commonDataPtr
 
boost::shared_ptr< MatrixDouble > matDPtr
 

Detailed Description

template<int DIM, typename DomainEleOp, int S>
struct HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S >

Definition at line 539 of file HenckyOps.hpp.

Constructor & Destructor Documentation

◆ OpHenckyTangentImpl() [1/2]

template<int DIM, typename DomainEleOp , int S>
HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S >::OpHenckyTangentImpl ( const std::string  field_name,
boost::shared_ptr< CommonData >  common_data,
boost::shared_ptr< MatrixDouble >  mat_D_ptr = nullptr 
)
inline

Definition at line 540 of file HenckyOps.hpp.

543 : DomainEleOp(field_name, DomainEleOp::OPROW),
544 commonDataPtr(common_data) {
545 std::fill(&DomainEleOp::doEntities[MBEDGE],
546 &DomainEleOp::doEntities[MBMAXTYPE], false);
547 if (mat_D_ptr)
548 matDPtr = mat_D_ptr;
549 else
550 matDPtr = commonDataPtr->matDPtr;
551 }
DomainEleOp
DomainEle::UserDataOperator DomainEleOp
Finire element operator type.
Definition child_and_parent.cpp:37
field_name
constexpr auto field_name
Definition poisson_2d_homogeneous.cpp:13

◆ OpHenckyTangentImpl() [2/2]

template<int DIM, typename DomainEleOp , int S>
HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S >::OpHenckyTangentImpl ( const std::string  field_name,
boost::shared_ptr< CommonData >  common_data,
boost::shared_ptr< MatrixDouble >  mat_D_ptr = nullptr 
)
inline

Definition at line 639 of file HenckyOps.hpp.

642 : DomainEleOp(field_name, DomainEleOp::OPROW),
643 commonDataPtr(common_data) {
644 std::fill(&DomainEleOp::doEntities[MBEDGE],
645 &DomainEleOp::doEntities[MBMAXTYPE], false);
646 if (mat_D_ptr)
647 matDPtr = mat_D_ptr;
648 else
649 matDPtr = commonDataPtr->matDPtr;
650 }

Member Function Documentation

◆ doWork() [1/2]

template<int DIM, typename DomainEleOp , int S>
MoFEMErrorCode HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S >::doWork ( int  side,
EntityType  type,
EntData &  data 
)
inline

Definition at line 553 of file HenckyOps.hpp.

553 {
554 MoFEMFunctionBegin;
555
556 FTensor::Index<'i', DIM> i;
557 FTensor::Index<'j', DIM> j;
558 FTensor::Index<'k', DIM> k;
559 FTensor::Index<'l', DIM> l;
560 FTensor::Index<'m', DIM> m;
561 FTensor::Index<'n', DIM> n;
562 FTensor::Index<'o', DIM> o;
563 FTensor::Index<'p', DIM> p;
564
565 [[maybe_unused]] constexpr auto t_kd = FTensor::Kronecker_Delta<int>();
566 // const size_t nb_gauss_pts = matGradPtr->size2();
567 const size_t nb_gauss_pts = DomainEleOp::getGaussPts().size2();
568 commonDataPtr->matTangent.resize(nb_gauss_pts, DIM * DIM * DIM * DIM);
569 auto dP_dF =
570 getFTensor4FromMat<DIM, DIM, DIM, DIM>(commonDataPtr->matTangent);
571
572 auto t_D = getFTensor4DdgFromMat<DIM, DIM, S>(*matDPtr);
573 auto t_eig_val = getFTensor1FromMat<DIM>(commonDataPtr->matEigVal);
574 auto t_eig_vec = getFTensor2FromMat<DIM, DIM>(commonDataPtr->matEigVec);
575 auto t_T = getFTensor2SymmetricFromMat<DIM>(commonDataPtr->matHenckyStress);
576 auto t_S =
577 getFTensor2SymmetricFromMat<DIM>(commonDataPtr->matSecondPiolaStress);
578 auto t_grad = getFTensor2FromMat<DIM, DIM>(*(commonDataPtr->matGradPtr));
579 auto t_logC_dC = getFTensor4DdgFromMat<DIM, DIM>(commonDataPtr->matLogCdC);
580
581 for (size_t gg = 0; gg != nb_gauss_pts; ++gg) {
582
583#ifdef HENCKY_SMALL_STRAIN
584 dP_dF(i, j, k, l) = t_D(i, j, k, l);
585#else
586
587 FTensor::Tensor2<double, DIM, DIM> t_F;
588 t_F(i, j) = t_grad(i, j) + t_kd(i, j);
589
590 // rare case when two eigen values are equal
591 auto nb_uniq = get_uniq_nb<DIM>(&t_eig_val(0));
592 FTensor::Tensor4<double, DIM, DIM, DIM, DIM> dC_dF;
593 dC_dF(i, j, k, l) = (t_kd(i, l) * t_F(k, j)) + (t_kd(j, l) * t_F(k, i));
594
595 auto TL = EigenMatrix::getDiffDiffMat(t_eig_val, t_eig_vec, f, d_f, dd_f,
596 t_T, nb_uniq);
597 TL(i, j, k, l) *= 4;
598 FTensor::Ddg<double, DIM, DIM> P_D_P_plus_TL;
599 P_D_P_plus_TL(i, j, k, l) =
600 TL(i, j, k, l) +
601 (t_logC_dC(i, j, o, p) * t_D(o, p, m, n)) * t_logC_dC(m, n, k, l);
602 P_D_P_plus_TL(i, j, k, l) *= 0.5;
603 dP_dF(i, j, m, n) = t_kd(i, m) * (t_kd(k, n) * t_S(k, j));
604 dP_dF(i, j, m, n) +=
605 t_F(i, k) * (P_D_P_plus_TL(k, j, o, p) * dC_dF(o, p, m, n));
606
607#endif
608
609 ++dP_dF;
610
611 ++t_grad;
612 ++t_eig_val;
613 ++t_eig_vec;
614 ++t_logC_dC;
615 ++t_S;
616 ++t_T;
617 ++t_D;
618 }
619
620 MoFEMFunctionReturn(0);
621 }
FTensor::Kronecker_Delta
Kronecker Delta class.
Definition Kronecker_Delta.hpp:15
MoFEMFunctionBegin
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
Definition definitions.h:359
MoFEMFunctionReturn
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
Definition definitions.h:432
t_kd
constexpr auto t_kd
Definition free_surface.cpp:161
i
FTensor::Index< 'i', SPACE_DIM > i
Definition hcurl_divergence_operator_2d.cpp:27
n
const double n
refractive index of diffusive medium
Definition initial_diffusion.cpp:38
l
FTensor::Index< 'l', 3 > l
Definition matrix_function.cpp:23
j
FTensor::Index< 'j', 3 > j
Definition matrix_function.cpp:21
k
FTensor::Index< 'k', 3 > k
Definition matrix_function.cpp:22
EigenMatrix::getDiffDiffMat
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.
Definition MatrixFunction.hpp:414
m
FTensor::Index< 'm', 3 > m
Definition shallow_wave.cpp:80

◆ doWork() [2/2]

template<int DIM, typename DomainEleOp , int S>
MoFEMErrorCode HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S >::doWork ( int  side,
EntityType  type,
EntData &  data 
)
inline

Definition at line 652 of file HenckyOps.hpp.

652 {
653 MoFEMFunctionBegin;
654
655 FTensor::Index<'i', DIM> i;
656 FTensor::Index<'j', DIM> j;
657 FTensor::Index<'k', DIM> k;
658 FTensor::Index<'l', DIM> l;
659 FTensor::Index<'m', DIM> m;
660 FTensor::Index<'n', DIM> n;
661 FTensor::Index<'o', DIM> o;
662 FTensor::Index<'p', DIM> p;
663
664 constexpr auto t_kd = FTensor::Kronecker_Delta<double>();
665 // const size_t nb_gauss_pts = matGradPtr->size2();
666 const size_t nb_gauss_pts = DomainEleOp::getGaussPts().size2();
667 commonDataPtr->matTangent.resize(nb_gauss_pts, DIM * DIM * DIM * DIM);
668 auto dP_dF =
669 getFTensor4FromMat<DIM, DIM, DIM, DIM>(commonDataPtr->matTangent);
670
671 auto t_D = getFTensor4DdgFromMat<DIM, DIM, S, HenckyTensorLayout<S>>(
672 *matDPtr);
673 auto t_eig_val = getFTensor1FromMat<DIM>(commonDataPtr->matEigVal);
674 auto t_eig_vec = getFTensor2FromMat<DIM, DIM>(commonDataPtr->matEigVec);
675 auto t_T = getFTensor2SymmetricFromMat<DIM>(commonDataPtr->matHenckyStress);
676 auto t_S =
677 getFTensor2SymmetricFromMat<DIM>(commonDataPtr->matSecondPiolaStress);
678 auto t_grad = getFTensor2FromMat<DIM, DIM>(*(commonDataPtr->matGradPtr));
679 auto t_logC_dC = getFTensor4DdgFromMat<DIM, DIM>(commonDataPtr->matLogCdC);
680 commonDataPtr->matCdF.resize(nb_gauss_pts, DIM * DIM * DIM * DIM);
681 auto dC_dF =
682 getFTensor4FromMat<DIM, DIM, DIM, DIM>(commonDataPtr->matCdF);
683
684 for (size_t gg = 0; gg != nb_gauss_pts; ++gg) {
685
686#ifdef HENCKY_SMALL_STRAIN
687 dP_dF(i, j, k, l) = t_D(i, j, k, l);
688#else
689
690 FTensor::Tensor2<double, DIM, DIM> t_F;
691 t_F(i, j) = t_grad(i, j) + t_kd(i, j);
692
693 // rare case when two eigen values are equal
694 auto nb_uniq = get_uniq_nb<DIM>(&t_eig_val(0));
695
696 dC_dF(i, j, k, l) = (t_kd(i, l) * t_F(k, j)) + (t_kd(j, l) * t_F(k, i));
697
698 auto TL = EigenMatrix::getDiffDiffMat(t_eig_val, t_eig_vec, f, d_f, dd_f,
699 t_T, nb_uniq);
700 TL(i, j, k, l) *= 4;
701 FTensor::Ddg<double, DIM, DIM> P_D_P_plus_TL;
702 P_D_P_plus_TL(i, j, k, l) =
703 TL(i, j, k, l) +
704 (t_logC_dC(i, j, o, p) * t_D(o, p, m, n)) * t_logC_dC(m, n, k, l);
705 P_D_P_plus_TL(i, j, k, l) *= 0.5;
706 dP_dF(i, j, m, n) = t_kd(i, m) * (t_kd(k, n) * t_S(k, j));
707 dP_dF(i, j, m, n) +=
708 t_F(i, k) * (P_D_P_plus_TL(k, j, o, p) * dC_dF(o, p, m, n));
709
710#endif
711
712 ++dP_dF;
713
714 ++t_grad;
715 ++t_eig_val;
716 ++t_eig_vec;
717 ++t_logC_dC;
718 ++t_S;
719 ++t_T;
720 ++t_D;
721 ++dC_dF;
722 }
723
724 MoFEMFunctionReturn(0);
725 }

Member Data Documentation

◆ commonDataPtr

template<int DIM, typename DomainEleOp , int S>
boost::shared_ptr< CommonData > HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S >::commonDataPtr
private

Definition at line 624 of file HenckyOps.hpp.

◆ matDPtr

template<int DIM, typename DomainEleOp , int S>
boost::shared_ptr< MatrixDouble > HenckyOps::OpHenckyTangentImpl< DIM, GAUSS, DomainEleOp, S >::matDPtr
private

Definition at line 625 of file HenckyOps.hpp.

The documentation for this struct was generated from the following files:
Generated by Doxygen 1.9.8 and hosted at University of Glasgow