enhancedassumedstrains.hh

Go to the documentation of this file.

// SPDX-FileCopyrightText: 2021-2025 The Ikarus Developers mueller@ibb.uni-stuttgart.de
// SPDX-License-Identifier: LGPL-3.0-or-later
 
#pragma once
 
#if HAVE_DUNE_LOCALFEFUNCTIONS
  #include <dune/localfefunctions/derivativetransformators.hh>
  #include <dune/localfefunctions/linearAlgebraHelper.hh>
  #include <dune/localfefunctions/meta.hh>
 
  #include <ikarus/finiteelements/fehelper.hh>
  #include <ikarus/finiteelements/ferequirements.hh>
  #include <ikarus/finiteelements/mechanics/materials/tags.hh>
  #include <ikarus/finiteelements/mechanics/strainenhancements/easvariants.hh>
  #include <ikarus/utils/broadcaster/broadcastermessages.hh>
  #include <ikarus/utils/concepts.hh>
 
namespace Ikarus {
 
template <typename PreFE, typename FE, typename ES>
class EnhancedAssumedStrains;
 
template <typename ES>
struct EnhancedAssumedStrainsPre
{
  int numberOfParameters{};
 
  template <typename PreFE, typename FE>
  using Skill = EnhancedAssumedStrains<PreFE, FE, ES>;
};
 
template <typename PreFE, typename FE, typename ES>
class EnhancedAssumedStrains
    : public std::conditional_t<std::same_as<ES, EAS::LinearStrain>,
                                ResultTypeBase<ResultTypes::linearStress, ResultTypes::linearStressFull>,
                                ResultTypeBase<ResultTypes::PK2Stress, ResultTypes::PK2StressFull>>
{
public:
  using Traits         = PreFE::Traits;
  using Requirement    = FERequirements<FESolutions::displacement, FEParameter::loadfactor>;
  using LocalView      = typename Traits::LocalView;
  using Geometry       = typename Traits::Geometry;
  using GridView       = typename Traits::GridView;
  using Pre            = EnhancedAssumedStrainsPre<ES>;
  using EnhancedStrain = ES;
 
  static constexpr int myDim = Traits::mydim;
 
  template <typename ST>
  using VectorXOptRef = std::optional<std::reference_wrapper<const Eigen::VectorX<ST>>>;
 
  template <template <typename, int, int> class RT>
  using RTWrapperType = ResultWrapper<RT<typename Traits::ctype, Traits::mydim, Traits::worlddim>, ResultShape::Vector>;
 
  explicit EnhancedAssumedStrains(const Pre& pre) {
    static_assert(Concepts::Formulations::TotalLagrangian<FE::strainType, FE::stressType>,
                  "EAS method is only implemented for the total Lagrangian setting.");
    static_assert(not(FE::strainType == StrainTags::linear) or (std::same_as<EnhancedStrain, EAS::LinearStrain>),
                  "If FE::strainType is linear, then enhancedStrain must also be linear.");
    this->setEASType(pre.numberOfParameters);
  }
 
  bool isDisplacementBased() const { return easVariant_.isDisplacmentBased(); }
 
  const auto& easVariant() const { return easVariant_; }
 
  auto numberOfEASParameters() const { return easVariant_.numberOfEASParameters(); }
 
  template <template <typename, int, int> class RT>
  requires(EnhancedAssumedStrains::template supportsResultType<RT>())
  auto calculateAtImpl(const Requirement& req, const Dune::FieldVector<double, Traits::mydim>& local,
                       Dune::PriorityTag<2>) const {
    if constexpr (isSameResultType<RT, ResultTypes::linearStress> or isSameResultType<RT, ResultTypes::PK2Stress> or
                  isSameResultType<RT, ResultTypes::linearStressFull> or
                  isSameResultType<RT, ResultTypes::PK2StressFull>) {
      const auto ufunc     = underlying().displacementFunction(req);
      const auto rFunction = underlying().template resultFunction<RT>();
      auto disp            = Dune::viewAsFlatEigenVector(ufunc.coefficientsRef());
      const auto geo       = underlying().localView().element().geometry();
 
      RTWrapperType<RT> resultWrapper{};
      auto calculateAtContribution = [&]<typename EAST>(const EAST& easFunction) {
        Eigen::VectorXd alpha;
        alpha.setZero(numberOfEASParameters());
        if constexpr (EAST::enhancedStrainSize != 0) {
          typename EAST::DType D;
          calculateDAndLMatrix(easFunction, req, D, L_);
          alpha = -D.inverse() * L_ * disp;
        }
        const auto enhancedStrain = EnhancedStrain::value(geo, ufunc, local, easFunction, alpha);
        resultWrapper             = rFunction(enhancedStrain);
      };
      easVariant_(calculateAtContribution);
      return resultWrapper;
    }
    DUNE_THROW(Dune::NotImplemented, "The requested result type is not supported");
  }
 
  void setEASType(int numberOfEASParameters) {
    if (numberOfEASParameters != 0)
      easApplicabilityCheck();
    easVariant_.setEASType(numberOfEASParameters);
    initializeState();
  }
 
  const auto& alpha() const { return alpha_; }
 
protected:
  void bindImpl() {
    assert(underlying().localView().bound());
    easVariant_.bind(underlying().localView().element().geometry());
    initializeState();
  }
 
  void updateStateImpl(const Requirement& par,
                       const std::remove_reference_t<typename Traits::template VectorType<>>& correction) {
    using ScalarType = Traits::ctype;
    easApplicabilityCheck();
    auto correctAlpha = [&]<typename EAST>(const EAST& easFunction) {
      if constexpr (EAST::enhancedStrainSize != 0) {
        const auto& Rtilde      = calculateRtilde<ScalarType>(par);
        const auto localdxBlock = Ikarus::FEHelper::localSolutionBlockVector<Traits, Eigen::VectorXd, double>(
            correction, underlying().localView());
        const auto localdx               = Dune::viewAsFlatEigenVector(localdxBlock);
        constexpr int enhancedStrainSize = EAST::enhancedStrainSize;
        Eigen::Matrix<double, enhancedStrainSize, enhancedStrainSize> D;
        calculateDAndLMatrix(easFunction, par, D, L_);
        this->alpha_ -= D.inverse() * (Rtilde + (L_ * localdx));
      }
    };
 
    easVariant_(correctAlpha);
  }
 
  inline void easApplicabilityCheck() const {
    const auto& numberOfNodes = underlying().numberOfNodes();
    if (not((numberOfNodes == 4 and Traits::mydim == 2) or (numberOfNodes == 9 and Traits::mydim == 2) or
            (numberOfNodes == 8 and Traits::mydim == 3)) and
        (not isDisplacementBased()))
      DUNE_THROW(Dune::NotImplemented, "EAS is only supported for Q1, Q2 and H1 elements");
  }
 
  template <typename ScalarType>
  void calculateMatrixImpl(const Requirement& par, const MatrixAffordance& affordance,
                           typename Traits::template MatrixType<> K,
                           const VectorXOptRef<ScalarType>& dx = std::nullopt) const {
    if (affordance != MatrixAffordance::stiffness)
      DUNE_THROW(Dune::NotImplemented, "MatrixAffordance not implemented: " + toString(affordance));
    easApplicabilityCheck();
 
    const auto geo           = underlying().localView().element().geometry();
    const auto& uFunction    = underlying().displacementFunction(par, dx);
    const auto& kFunction    = underlying().template stiffnessMatrixFunction<ScalarType>(par, K, dx);
    const auto numberOfNodes = underlying().numberOfNodes();
    const auto& localBasis   = underlying().localBasis();
 
    auto calculateMatrixContribution = [&]<typename EAST>(const EAST& easFunction) {
      for (const auto& [gpIndex, gp] : uFunction.viewOverIntegrationPoints()) {
        const auto enhancedStrain = EnhancedStrain::value(geo, uFunction, gp.position(), easFunction, alpha_);
        const auto stresses       = underlying().stress(enhancedStrain);
        for (size_t i = 0; i < numberOfNodes; ++i) {
          const auto E_dI = EnhancedStrain::template firstDerivative<0>(geo, uFunction, localBasis, gpIndex,
                                                                        gp.position(), easFunction, alpha_, i);
          for (size_t j = 0; j < numberOfNodes; ++j) {
            const auto E_dJ = EnhancedStrain::template firstDerivative<0>(geo, uFunction, localBasis, gpIndex,
                                                                          gp.position(), easFunction, alpha_, j);
            const auto E_dd = EnhancedStrain::template secondDerivative<0>(
                geo, uFunction, localBasis, gpIndex, gp.position(), stresses, easFunction, alpha_, i, j);
            kFunction(enhancedStrain, E_dI, E_dJ, E_dd, i, j, gp);
          }
        }
      }
 
      if constexpr (EAST::enhancedStrainSize != 0) {
        typename EAST::DType D;
        calculateDAndLMatrix(easFunction, par, D, L_);
        K.template triangularView<Eigen::Upper>() -= L_.transpose() * D.inverse() * L_;
        K.template triangularView<Eigen::StrictlyLower>() = K.transpose();
      }
    };
    easVariant_(calculateMatrixContribution);
  }
 
  template <typename ScalarType>
  inline ScalarType calculateScalarImpl(const Requirement& par, ScalarAffordance affordance,
                                        const VectorXOptRef<ScalarType>& dx = std::nullopt) const {
    easApplicabilityCheck();
    if (isDisplacementBased())
      return underlying().template energyFunction<ScalarType>(par, dx)();
 
    DUNE_THROW(Dune::NotImplemented,
               "EAS element do not support any scalar calculations, i.e. they are not derivable from a potential");
  }
 
  template <typename ScalarType>
  void calculateVectorImpl(const Requirement& par, VectorAffordance affordance,
                           typename Traits::template VectorType<ScalarType> force,
                           const VectorXOptRef<ScalarType>& dx = std::nullopt) const {
    if (affordance != VectorAffordance::forces)
      DUNE_THROW(Dune::NotImplemented, "VectorAffordance not implemented: " + toString(affordance));
    easApplicabilityCheck();
 
    const auto geo           = underlying().localView().element().geometry();
    const auto& uFunction    = underlying().displacementFunction(par, dx);
    const auto numberOfNodes = underlying().numberOfNodes();
    const auto& localBasis   = underlying().localBasis();
    const auto fIntFunction  = underlying().template internalForcesFunction<ScalarType>(par, force, dx);
 
    auto calculateForceContribution = [&]<typename EAST>(const EAST& easFunction) {
      for (const auto& [gpIndex, gp] : uFunction.viewOverIntegrationPoints()) {
        const auto enhancedStrain = EnhancedStrain::value(geo, uFunction, gp.position(), easFunction, alpha_);
        for (size_t i = 0; i < numberOfNodes; ++i) {
          const auto E_dI = EnhancedStrain::template firstDerivative<0>(geo, uFunction, localBasis, gpIndex,
                                                                        gp.position(), easFunction, alpha_, i);
          fIntFunction(enhancedStrain, E_dI, i, gp);
        }
      }
      if constexpr (EAST::enhancedStrainSize != 0) {
        // Here, L_ and D doesn't see the ScalarType, while Rtilde sees it. This is needed because only then when we use
        // automatic differentiation w.r.t to the displacements, we get the correct static-condensed stiffness matrix.
        // If L_ and D sees the ScalarType, then their derivatives w.r.t. the displacements is also performed which is
        // then not equivalent to the static-condensed stiffness matrix in general.
        typename EAST::DType D;
        calculateDAndLMatrix(easFunction, par, D, L_);
        const auto& Rtilde = calculateRtilde(par, dx);
        force -= L_.transpose() * D.inverse() * Rtilde;
      }
    };
    easVariant_(calculateForceContribution);
  }
 
  template <typename MT, typename BC>
  void subscribeToImpl(BC& bc) {
    if constexpr (std::same_as<MT, NonLinearSolverMessages>) {
      using NLSState = typename BC::State;
      underlying().subscribe(bc, [&](NonLinearSolverMessages message, const NLSState& state) {
        if (message == NonLinearSolverMessages::CORRECTION_UPDATED)
          this->updateStateImpl(state.domain, state.correction);
      });
    }
  }
 
private:
  EAS::EASVariant<ES, Geometry> easVariant_;
  mutable Eigen::MatrixXd L_;
  Eigen::VectorXd alpha_;
 
  //> CRTP
  const auto& underlying() const { return static_cast<const FE&>(*this); }
  auto& underlying() { return static_cast<FE&>(*this); }
 
  void initializeState() {
    alpha_.resize(numberOfEASParameters());
    alpha_.setZero();
  }
 
  template <int enhancedStrainSize>
  void calculateDAndLMatrix(const auto& easFunction, const auto& par,
                            Eigen::Matrix<double, enhancedStrainSize, enhancedStrainSize>& DMat,
                            Eigen::MatrixX<double>& LMat) const {
    using namespace Dune;
    using namespace Dune::DerivativeDirections;
 
    const auto& uFunction    = underlying().displacementFunction(par);
    const auto geo           = underlying().localView().element().geometry();
    const auto numberOfNodes = underlying().numberOfNodes();
    const auto& localBasis   = underlying().localBasis();
    DMat.setZero();
    LMat.setZero(enhancedStrainSize, underlying().localView().size());
    for (const auto& [gpIndex, gp] : uFunction.viewOverIntegrationPoints()) {
      const auto enhancedStrain = EnhancedStrain::value(geo, uFunction, gp.position(), easFunction, alpha_);
      const auto C              = underlying().materialTangent(enhancedStrain);
      const auto stresses       = underlying().stress(enhancedStrain);
      const double intElement   = geo.integrationElement(gp.position()) * gp.weight();
      const auto E_a  = EnhancedStrain::template firstDerivative<1>(geo, uFunction, localBasis, gpIndex, gp.position(),
                                                                    easFunction, alpha_);
      const auto E_aa = EnhancedStrain::template secondDerivative<1>(geo, uFunction, localBasis, gpIndex, gp.position(),
                                                                     stresses, easFunction, alpha_);
      DMat += (E_a.transpose() * C * E_a + E_aa) * intElement;
      for (size_t i = 0U; i < numberOfNodes; ++i) {
        const auto E_dI = EnhancedStrain::template firstDerivative<0>(geo, uFunction, localBasis, gpIndex,
                                                                      gp.position(), easFunction, alpha_, i);
        const auto E_ad = EnhancedStrain::template secondDerivative<2>(geo, uFunction, localBasis, gpIndex,
                                                                       gp.position(), stresses, easFunction, alpha_, i);
        LMat.template block<enhancedStrainSize, myDim>(0, myDim * i) +=
            (E_a.transpose() * C * E_dI + E_ad) * intElement;
      }
    }
  }
 
  template <typename ScalarType>
  Eigen::VectorX<ScalarType> calculateRtilde(const Requirement& par,
                                             const VectorXOptRef<ScalarType>& dx = std::nullopt) const {
    const auto geo         = underlying().localView().element().geometry();
    const auto& uFunction  = underlying().displacementFunction(par, dx);
    const auto& localBasis = underlying().localBasis();
    Eigen::VectorX<ScalarType> Rtilde;
    Rtilde.setZero(numberOfEASParameters());
 
    auto calculateRtildeContribution = [&]<typename EAST>(const EAST& easFunction) {
      for (const auto& [gpIndex, gp] : uFunction.viewOverIntegrationPoints()) {
        const auto enhancedStrain = EnhancedStrain::value(geo, uFunction, gp.position(), easFunction, alpha_);
        const auto E_a = EnhancedStrain::template firstDerivative<1>(geo, uFunction, localBasis, gpIndex, gp.position(),
                                                                     easFunction, alpha_);
        const double intElement = geo.integrationElement(gp.position()) * gp.weight();
        auto stresses           = underlying().stress(enhancedStrain);
        Rtilde += (E_a.transpose() * stresses).eval() * intElement;
      }
    };
 
    easVariant_(calculateRtildeContribution);
    return Rtilde;
  }
};
 
template <typename ES = EAS::LinearStrain>
auto eas(int numberOfEASParameters = 0) {
  EnhancedAssumedStrainsPre<ES> pre(numberOfEASParameters);
 
  return pre;
}
 
} // namespace Ikarus
 
#else
  #error EnhancedAssumedStrains depends on dune-localfefunctions, which is not included
#endif