EshelbianPlasticity::OpSpatialPhysical_du_du Struct Reference

#include <users_modules/eshelbian_plasticty/src/EshelbianPlasticity.hpp>

Inheritance diagram for EshelbianPlasticity::OpSpatialPhysical_du_du:

Collaboration diagram for EshelbianPlasticity::OpSpatialPhysical_du_du:

Public Member Functions
	OpSpatialPhysical_du_du (const std::string &row_field, const std::string &col_field, boost::shared_ptr< DataAtIntegrationPts > &data_ptr, const double alpha)
MoFEMErrorCode	integrate (EntData &row_data, EntData &col_data)
Public Member Functions inherited from EshelbianPlasticity::OpAssembleVolume
	OpAssembleVolume (const std::string &field, boost::shared_ptr< DataAtIntegrationPts > data_ptr, const char type)
	OpAssembleVolume (const std::string &row_field, const std::string &col_field, boost::shared_ptr< DataAtIntegrationPts > data_ptr, const char type, const bool assemble_symmetry)
Public Member Functions inherited from EshelbianPlasticity::OpAssembleBasic< VolUserDataOperator >
	OpAssembleBasic (const std::string &field_name, boost::shared_ptr< DataAtIntegrationPts > data_ptr, const char type)
	OpAssembleBasic (const std::string &row_field, const std::string &col_field, boost::shared_ptr< DataAtIntegrationPts > data_ptr, const char type, const bool assemble_symmetry)
virtual MoFEMErrorCode	integrate (EntData &data)
virtual MoFEMErrorCode	integrate (int row_side, EntityType row_type, EntData &data)
virtual MoFEMErrorCode	assemble (EntData &data)
virtual MoFEMErrorCode	assemble (int row_side, EntityType row_type, EntData &data)
virtual MoFEMErrorCode	assemble (int row_side, int col_side, EntityType row_type, EntityType col_type, EntData &row_data, EntData &col_data)
MoFEMErrorCode	doWork (int side, EntityType type, EntData &data)
MoFEMErrorCode	doWork (int row_side, int col_side, EntityType row_type, EntityType col_type, EntData &row_data, EntData &col_data)

Public Attributes
const double	alphaU
Public Attributes inherited from EshelbianPlasticity::OpAssembleBasic< VolUserDataOperator >
const bool	assembleSymmetry
boost::shared_ptr< DataAtIntegrationPts >	dataAtPts
	data at integration pts More...
VectorDouble	nF
	local right hand side vector More...
MatrixDouble	K
	local tangent matrix More...
MatrixDouble	transposeK

Detailed Description

Definition at line 927 of file EshelbianPlasticity.hpp.

Constructor & Destructor Documentation

OpSpatialPhysical_du_du()

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

Definition at line 929 of file EshelbianPlasticity.hpp.

      : OpAssembleVolume(row_field, col_field, data_ptr, OPROWCOL, false),
        alphaU(alpha) {
    sYmm = false;
  }

Member Function Documentation

integrate()

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

virtual

Reimplemented from EshelbianPlasticity::OpAssembleBasic< VolUserDataOperator >.

Definition at line 1040 of file EshelbianOperators.cpp.

                                                                     {
  MoFEMFunctionBegin;
 
  int nb_integration_pts = row_data.getN().size1();
  int row_nb_dofs = row_data.getIndices().size();
  int col_nb_dofs = col_data.getIndices().size();
  auto get_ftensor4 = [](MatrixDouble &m, const int r, const int c) {
    return FTensor::Ddg<FTensor::PackPtr<double *, 6>, 3, 3>(
 
        &m(r + 0, c + 0), &m(r + 0, c + 1), &m(r + 0, c + 2), &m(r + 0, c + 3),
        &m(r + 0, c + 4), &m(r + 0, c + 5),
 
        &m(r + 1, c + 0), &m(r + 1, c + 1), &m(r + 1, c + 2), &m(r + 1, c + 3),
        &m(r + 1, c + 4), &m(r + 1, c + 5),
 
        &m(r + 2, c + 0), &m(r + 2, c + 1), &m(r + 2, c + 2), &m(r + 2, c + 3),
        &m(r + 2, c + 4), &m(r + 2, c + 5),
 
        &m(r + 3, c + 0), &m(r + 3, c + 1), &m(r + 3, c + 2), &m(r + 3, c + 3),
        &m(r + 3, c + 4), &m(r + 3, c + 5),
 
        &m(r + 4, c + 0), &m(r + 4, c + 1), &m(r + 4, c + 2), &m(r + 4, c + 3),
        &m(r + 4, c + 4), &m(r + 4, c + 5),
 
        &m(r + 5, c + 0), &m(r + 5, c + 1), &m(r + 5, c + 2), &m(r + 5, c + 3),
        &m(r + 5, c + 4), &m(r + 5, c + 5)
 
    );
  };
  FTensor::Index<'i', 3> i;
  FTensor::Index<'j', 3> j;
  FTensor::Index<'k', 3> k;
  FTensor::Index<'l', 3> l;
  FTensor::Index<'m', 3> m;
  FTensor::Index<'n', 3> n;
 
  FTensor::Number<0> N0;
  FTensor::Number<1> N1;
  FTensor::Number<2> N2;
 
  auto v = getVolume();
  auto t_w = getFTensor0IntegrationWeight();
  auto t_P_dh0 = getFTensor3FromMat(dataAtPts->P_dh0);
  auto t_P_dh1 = getFTensor3FromMat(dataAtPts->P_dh1);
  auto t_P_dh2 = getFTensor3FromMat(dataAtPts->P_dh2);
  auto t_R = getFTensor2FromMat<3, 3>(dataAtPts->rotMatAtPts);
  auto t_approx_P = getFTensor2FromMat<3, 3>(dataAtPts->approxPAtPts);
  auto t_P = getFTensor2FromMat<3, 3>(dataAtPts->PAtPts);
  auto t_dot_log_u =
      getFTensor2SymmetricFromMat<3>(dataAtPts->logStreachDotTensorAtPts);
  auto t_u = getFTensor2SymmetricFromMat<3>(dataAtPts->streachTensorAtPts);
  auto t_diff_u =
      getFTensor4DdgFromMat<3, 3, 1>(dataAtPts->diffStreachTensorAtPts);
  auto t_eigen_vals = getFTensor1FromMat<3>(dataAtPts->eigenVals);
  auto t_eigen_vecs = getFTensor2FromMat<3, 3>(dataAtPts->eigenVecs);
  auto &nbUniq = dataAtPts->nbUniq;
 
  constexpr auto t_kd = FTensor::Kronecker_Delta<int>();
  FTensor::Tensor4<double, 3, 3, 3, 3> t_one4;
  t_one4(i, j, k, l) = t_kd(j, l) * t_kd(i, k);
 
  FTensor::Tensor4<double, 3, 3, 3, 3> t_one4_symmetric;
  t_one4_symmetric(i, j, k, l) = 0;
  for (auto ii : {0, 1, 2})
    for (auto jj : {0, 1, 2})
      for (auto kk : {0, 1, 2})
        for (auto ll : {0, 1, 2}) {
 
          if (ll != kk)
            t_one4_symmetric(ii, jj, kk, ll) =
                t_one4(ii, jj, kk, ll) + t_one4(ii, jj, ll, kk);
          else
            t_one4_symmetric(ii, jj, kk, ll) = t_one4(ii, jj, kk, ll);
        }
 
  int row_nb_base_functions = row_data.getN().size2();
  auto t_row_base_fun = row_data.getFTensor0N();
 
  FTensor::Tensor2_symmetric<double, 3> t_one;
  t_one(i, j) = 0;
  for (auto ii : {0, 1, 2})
    t_one(ii, ii) = 1;
 
  const double ts_a = getTSa();
  for (int gg = 0; gg != nb_integration_pts; ++gg) {
    double a = v * t_w;
 
    FTensor::Tensor4<double, 3, 3, 3, 3> t_P_dh;
    t_P_dh(i, j, N0, k) = t_P_dh0(i, j, k);
    t_P_dh(i, j, N1, k) = t_P_dh1(i, j, k);
    t_P_dh(i, j, N2, k) = t_P_dh2(i, j, k);
 
    FTensor::Tensor2<double, 3, 3> t_RTP;
    t_RTP(i, j) = t_R(k, i) * t_approx_P(k, j);
    FTensor::Tensor2<double, 3, 3> t_deltaP;
    t_deltaP(i, j) = t_RTP(i, j) - t_P(i, j);
 
    FTensor::Tensor2<double, 3, 3> t_dot_u;
    t_dot_u(i, j) = t_u(i, k) * t_dot_log_u(k, j);
 
    FTensor::Tensor4<double, 3, 3, 3, 3> t_stress_diff;
    t_stress_diff(i, j, k, l) = 0;
    for (int ii = 0; ii != 3; ++ii)
      for (int jj = 0; jj != 3; ++jj)
        for (int kk = 0; kk != 3; ++kk)
          for (int ll = 0; ll != 3; ++ll)
            for (int mm = 0; mm != 3; ++mm)
              for (int nn = 0; nn != 3; ++nn)
                t_stress_diff(ii, jj, mm, nn) -=
                    t_P_dh(ii, jj, kk, ll) * t_diff_u(kk, ll, mm, nn);
 
    FTensor::Tensor2_symmetric<double, 3> t_viscous_stress;
    t_viscous_stress(i, j) = alphaU * t_dot_log_u(i, j);
    FTensor::Tensor4<double, 3, 3, 3, 3> t_viscous_stress_diff;
    t_viscous_stress_diff(i, j, k, l) = t_one4_symmetric(i, j, k, l);
    t_viscous_stress_diff(i, j, k, l) *= (ts_a * alphaU);
 
    FTensor::Tensor2<double, 3, 3> t_deltaP2;
    t_deltaP2(i, j) = t_deltaP(i, j) - t_viscous_stress(i, j);
 
    auto t_diff2_uP2 = EigenMatrix::getDiffDiffMat(
        t_eigen_vals, t_eigen_vecs, f, d_f, dd_f, t_deltaP2, nbUniq[gg]);
    for (int ii = 0; ii != 3; ++ii) {
      for (int jj = 0; jj < ii; ++jj) {
        for (int kk = 0; kk != 3; ++kk) {
          for (int ll = 0; ll != kk; ++ll) {
            t_diff2_uP2(ii, jj, kk, ll) *= 2;
          }
        }
      }
    }
    for (int ii = 0; ii != 3; ++ii) {
      for (int jj = ii; jj != 3; ++jj) {
        for (int kk = 0; kk != 3; ++kk) {
          for (int ll = 0; ll < kk; ++ll) {
            t_diff2_uP2(ii, jj, kk, ll) *= 2;
          }
        }
      }
    }
 
    int rr = 0;
    for (; rr != row_nb_dofs / 6; ++rr) {
 
      auto t_col_base_fun = col_data.getFTensor0N(gg, 0);
      auto t_m = get_ftensor4(K, 6 * rr, 0);
 
      for (int cc = 0; cc != col_nb_dofs / 6; ++cc) {
 
        const double b = a * t_row_base_fun * t_col_base_fun;
 
        for (int ii = 0; ii != 3; ++ii)
          for (int jj = ii; jj != 3; ++jj)
            for (int kk = 0; kk != 3; ++kk)
              for (int ll = kk; ll != 3; ++ll)
                for (int mm = 0; mm != 3; ++mm)
                  for (int nn = 0; nn != 3; ++nn)
                    t_m(ii, jj, kk, ll) +=
                        b * t_diff_u(mm, nn, ii, jj) *
                        (t_stress_diff(mm, nn, kk, ll) -
                         t_viscous_stress_diff(mm, nn, kk, ll));
 
        t_m(i, j, k, l) += b * t_diff2_uP2(i, j, k, l);
 
        ++t_m;
        ++t_col_base_fun;
      }
 
      ++t_row_base_fun;
    }
    for (; rr != row_nb_base_functions; ++rr)
      ++t_row_base_fun;
 
    ++t_w;
    ++t_P_dh0;
    ++t_P_dh1;
    ++t_P_dh2;
    ++t_R;
    ++t_approx_P;
    ++t_P;
    ++t_dot_log_u;
    ++t_u;
    ++t_diff_u;
    ++t_eigen_vals;
    ++t_eigen_vecs;
  }
  MoFEMFunctionReturn(0);
}

Member Data Documentation

alphaU

const double EshelbianPlasticity::OpSpatialPhysical_du_du::alphaU

Definition at line 928 of file EshelbianPlasticity.hpp.

---

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

• users_modules/eshelbian_plasticty/src/EshelbianPlasticity.hpp
• users_modules/eshelbian_plasticty/src/impl/EshelbianOperators.cpp