Homec4science
Diffusion µSpectre (bugfix/T2542) Browse

muSpectre/src/materials/material_hyper_elasto_plastic1.cc
676022f5dfa6bugfix/T2542

Last Change
Raw File

material_hyper_elasto_plastic1.cc
View Options

/**
* @file material_hyper_elasto_plastic1.cc
*
* @author Till Junge <till.junge@epfl.ch>
*
* @date 21 Feb 2018
*
* @brief implementation for MaterialHyperElastoPlastic1
*
* Copyright © 2018 Till Junge
*
* µSpectre is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License as
* published by the Free Software Foundation, either version 3, or (at
* your option) any later version.
*
* µSpectre is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with µSpectre; see the file COPYING. If not, write to the
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*/
#include "common/common.hh"
#include "common/T4_map_proxy.hh"
#include "materials/stress_transformations_Kirchhoff.hh"
#include "materials/material_hyper_elasto_plastic1.hh"
namespace muSpectre {
//--------------------------------------------------------------------------//
template <Dim_t DimS, Dim_t DimM>
MaterialHyperElastoPlastic1<DimS, DimM>::MaterialHyperElastoPlastic1(
std::string name, Real young, Real poisson, Real tau_y0, Real H)
: Parent{name},
plast_flow_field{
make_statefield<StateField<ScalarField<LColl_t, Real>>>(
"cumulated plastic flow εₚ", this->internal_fields)},
F_prev_field{make_statefield<
StateField<TensorField<LColl_t, Real, secondOrder, DimM>>>(
"Previous placement gradient Fᵗ", this->internal_fields)},
be_prev_field{make_statefield<
StateField<TensorField<LColl_t, Real, secondOrder, DimM>>>(
"Previous left Cauchy-Green deformation bₑᵗ",
this->internal_fields)},
young{young}, poisson{poisson}, lambda{Hooke::compute_lambda(young,
poisson)},
mu{Hooke::compute_mu(young, poisson)},
K{Hooke::compute_K(young, poisson)}, tau_y0{tau_y0}, H{H},
// the factor .5 comes from equation (18) in Geers 2003
// (https://doi.org/10.1016/j.cma.2003.07.014)
C{0.5 * Hooke::compute_C_T4(lambda, mu)},
internal_variables{F_prev_field.get_map(), be_prev_field.get_map(),
plast_flow_field.get_map()} {}
/* ---------------------------------------------------------------------- */
template <Dim_t DimS, Dim_t DimM>
void MaterialHyperElastoPlastic1<DimS, DimM>::save_history_variables() {
this->plast_flow_field.cycle();
this->F_prev_field.cycle();
this->be_prev_field.cycle();
}
/* ---------------------------------------------------------------------- */
template <Dim_t DimS, Dim_t DimM>
void MaterialHyperElastoPlastic1<DimS, DimM>::initialise() {
Parent::initialise();
this->F_prev_field.get_map().current() =
Eigen::Matrix<Real, DimM, DimM>::Identity();
this->be_prev_field.get_map().current() =
Eigen::Matrix<Real, DimM, DimM>::Identity();
this->save_history_variables();
}
//--------------------------------------------------------------------------//
template <Dim_t DimS, Dim_t DimM>
auto MaterialHyperElastoPlastic1<DimS, DimM>::stress_n_internals_worker(
const T2_t & F, StrainStRef_t & F_prev, StrainStRef_t & be_prev,
FlowStRef_t & eps_p) -> Worker_t {
// the notation in this function follows Geers 2003
// (https://doi.org/10.1016/j.cma.2003.07.014).
// computation of trial state
using Mat_t = Eigen::Matrix<Real, DimM, DimM>;
Mat_t f{F * F_prev.old().inverse()};
// trial elastic left Cauchy–Green deformation tensor
Mat_t be_star{f * be_prev.old() * f.transpose()};
const Decomp_t<DimM> spectral_decomp{spectral_decomposition(be_star)};
Mat_t ln_be_star{logm_alt(spectral_decomp)};
Mat_t tau_star{.5 *
Hooke::evaluate_stress(this->lambda, this->mu, ln_be_star)};
// deviatoric part of Kirchhoff stress
Mat_t tau_d_star{tau_star - tau_star.trace() / DimM * tau_star.Identity()};
Real tau_eq_star{std::sqrt(
3 * .5 * (tau_d_star.array() * tau_d_star.transpose().array()).sum())};
// tau_eq_star can only be zero if tau_d_star is identically zero,
// so the following is not an approximation;
Real division_safe_tau_eq_star{tau_eq_star + Real(tau_eq_star == 0.)};
Mat_t N_star{3 * .5 * tau_d_star / division_safe_tau_eq_star};
// this is eq (27), and the std::min enforces the Kuhn-Tucker relation (16)
Real phi_star{
std::max(tau_eq_star - this->tau_y0 - this->H * eps_p.old(), 0.)};
// return mapping
Real Del_gamma{phi_star / (this->H + 3 * this->mu)};
Mat_t tau{tau_star - 2 * Del_gamma * this->mu * N_star};
// update the previous values to the new ones
F_prev.current() = F;
be_prev.current() = expm(ln_be_star - 2 * Del_gamma * N_star);
eps_p.current() = eps_p.old() + Del_gamma;
// transmit info whether this is a plastic step or not
bool is_plastic{phi_star > 0};
return Worker_t(std::move(tau), std::move(tau_eq_star),
std::move(Del_gamma), std::move(N_star),
std::move(is_plastic), spectral_decomp);
}
//--------------------------------------------------------------------------//
template <Dim_t DimS, Dim_t DimM>
auto MaterialHyperElastoPlastic1<DimS, DimM>::evaluate_stress(
const T2_t & F, StrainStRef_t F_prev, StrainStRef_t be_prev,
FlowStRef_t eps_p) -> T2_t {
Eigen::Matrix<Real, DimM, DimM> tau;
std::tie(tau, std::ignore, std::ignore, std::ignore, std::ignore,
std::ignore) =
this->stress_n_internals_worker(F, F_prev, be_prev, eps_p);
return tau;
}
//--------------------------------------------------------------------------//
template <Dim_t DimS, Dim_t DimM>
auto MaterialHyperElastoPlastic1<DimS, DimM>::evaluate_stress_tangent(
const T2_t & F, StrainStRef_t F_prev, StrainStRef_t be_prev,
FlowStRef_t eps_p) -> std::tuple<T2_t, T4_t> {
//! after the stress computation, all internals are up to date
auto && vals{this->stress_n_internals_worker(F, F_prev, be_prev, eps_p)};
auto & tau{std::get<0>(vals)};
auto & tau_eq_star{std::get<1>(vals)};
auto & Del_gamma{std::get<2>(vals)};
auto & N_star{std::get<3>(vals)};
auto & is_plastic{std::get<4>(vals)};
auto & spec_decomp{std::get<5>(vals)};
using Mat_t = Eigen::Matrix<Real, DimM, DimM>;
using Vec_t = Eigen::Matrix<Real, DimM, 1>;
using T4_t = T4Mat<Real, DimM>;
auto compute_C4ep = [&]() {
auto && a0 = Del_gamma * this->mu / tau_eq_star;
auto && a1 = this->mu / (this->H + 3 * this->mu);
return T4Mat<Real, DimM>{
((this->K / 2. - this->mu / 3 + a0 * this->mu) *
Matrices::Itrac<DimM>() +
(1 - 3 * a0) * this->mu * Matrices::Isymm<DimM>() +
2 * this->mu * (a0 - a1) * Matrices::outer(N_star, N_star))};
};
T4_t mat_tangent{is_plastic ? compute_C4ep() : this->C};
// compute derivative ∂ln(be_star)/∂be_star, see (77) through (80)
T4_t dlnbe_dbe{T4_t::Zero()};
{
const Vec_t & eig_vals{spec_decomp.eigenvalues()};
const Vec_t log_eig_vals{eig_vals.array().log().matrix()};
const Mat_t & eig_vecs{spec_decomp.eigenvectors()};
Mat_t g_vals{};
// see (78), (79)
for (int i{0}; i < DimM; ++i) {
g_vals(i, i) = 1 / eig_vals(i);
for (int j{i + 1}; j < DimM; ++j) {
if (std::abs((eig_vals(i) - eig_vals(j)) / eig_vals(i)) < 1e-12) {
g_vals(i, j) = g_vals(j, i) = g_vals(i, i);
} else {
g_vals(i, j) = g_vals(j, i) = ((log_eig_vals(j) - log_eig_vals(i)) /
(eig_vals(j) - eig_vals(i)));
}
}
}
for (int i{0}; i < DimM; ++i) {
for (int j{0}; j < DimM; ++j) {
Mat_t dyad = eig_vecs.col(i) * eig_vecs.col(j).transpose();
T4_t outerDyad = Matrices::outer(dyad, dyad.transpose());
dlnbe_dbe += g_vals(i, j) * outerDyad;
}
}
}
// compute variation δbe_star
T2_t I{Matrices::I2<DimM>()};
// computation of trial state
Mat_t f{F * F_prev.old().inverse()};
// trial elastic left Cauchy–Green deformation tensor
Mat_t be_star{f * be_prev.old() * f.transpose()};
T4_t dbe_dF{Matrices::outer_under(I, be_star) +
Matrices::outer_over(be_star, I)};
// T4_t dtau_dbe{mat_tangent * dlnbe_dbe * dbe4s};
T4_t dtau_dF{mat_tangent * dlnbe_dbe * dbe_dF};
// return std::tuple<Mat_t, T4_t>(tau, dtau_dbe);
return std::tuple<Mat_t, T4_t>(tau, dtau_dF);
}
template class MaterialHyperElastoPlastic1<twoD, twoD>;
template class MaterialHyperElastoPlastic1<twoD, threeD>;
template class MaterialHyperElastoPlastic1<threeD, threeD>;
} // namespace muSpectre
c4science · Help