concretedpm.h

Go to the documentation of this file.

/*
 *
 *                 #####    #####   ######  ######  ###   ###
 *               ##   ##  ##   ##  ##      ##      ## ### ##
 *              ##   ##  ##   ##  ####    ####    ##  #  ##
 *             ##   ##  ##   ##  ##      ##      ##     ##
 *            ##   ##  ##   ##  ##      ##      ##     ##
 *            #####    #####   ##      ######  ##     ##
 *
 *
 *             OOFEM : Object Oriented Finite Element Code
 *
 *               Copyright (C) 1993 - 2025   Borek Patzak
 *
 *
 *
 *       Czech Technical University, Faculty of Civil Engineering,
 *   Department of Structural Mechanics, 166 29 Prague, Czech Republic
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public
 *  License as published by the Free Software Foundation; either
 *  version 2.1 of the License, or (at your option) any later version.
 *
 *  This program 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
 *  Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public
 *  License along with this library; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 */
 
#ifndef ConcreteDPM_h
#define ConcreteDPM_h
 
#include "sm/Materials/structuralmaterial.h"
#include "floatarray.h"
#include "floatmatrix.h"
#include "cltypes.h"
#include "sm/Materials/structuralms.h"
#include "sm/Materials/isolinearelasticmaterial.h"
#include "gausspoint.h"
#include "mathfem.h"


#define _IFT_ConcreteDPM_Name "concretedpm"
#define _IFT_ConcreteDPM_fc "fc"
#define _IFT_ConcreteDPM_ft "ft"
#define _IFT_ConcreteDPM_ecc "ecc"
#define _IFT_ConcreteDPM_kinit "kinit"
#define _IFT_ConcreteDPM_ahard "ahard"
#define _IFT_ConcreteDPM_bhard "bhard"
#define _IFT_ConcreteDPM_chard "chard"
#define _IFT_ConcreteDPM_dhard "dhard"
#define _IFT_ConcreteDPM_asoft "asoft"
#define _IFT_ConcreteDPM_dilation "dilation"
#define _IFT_ConcreteDPM_yieldtol "yieldtol"
#define _IFT_ConcreteDPM_newtoniter "newtoniter"
#define _IFT_ConcreteDPM_wf "wf"
#define _IFT_ConcreteDPM_gf "gf"
#define _IFT_ConcreteDPM_href "href"
#define _IFT_ConcreteDPM_helem "helem"
 
namespace oofem {
// new approach to size-dependent adjustment of damage evolution
// (can be deactivated by commenting out the following line)
#define SOPHISTICATED_SIZEDEPENDENT_ADJUSTMENT
 
class ConcreteDPMStatus : public StructuralMaterialStatus
{
public:
    enum state_flag_values {
        ConcreteDPM_Elastic,
        ConcreteDPM_Unloading,
        ConcreteDPM_Plastic,
        ConcreteDPM_Damage,
        ConcreteDPM_PlasticDamage,
        ConcreteDPM_VertexCompression,
        ConcreteDPM_VertexTension,
        ConcreteDPM_VertexCompressionDamage,
        ConcreteDPM_VertexTensionDamage
    };
 
    enum Concrete_VertexType {
        VT_Regular,
        VT_Tension,
        VT_Compression
    };
 
protected:

    FloatArrayF< 6 >plasticStrain;
    FloatArrayF< 6 >tempPlasticStrain;
 
    double tempVolumetricPlasticStrain = 0.;
 
    double dFDKappa = 0.;
    double deltaLambda = 0.;


    double kappaP = 0.;
    double tempKappaP = 0.;
 
    double le = 0.;


    double equivStrain = 0.;
    double tempEquivStrain = 0.;
 
    double kappaD = 0.;
    double tempKappaD = 0.;
 
    double damage = 0.;
    double tempDamage = 0.;
 
    double deltaEquivStrain = 0.;


    int state_flag = ConcreteDPM_Elastic;
    int temp_state_flag = ConcreteDPM_Elastic;
 
    int vertexType = ConcreteDPMStatus::VT_Regular;
    int tempVertexType = ConcreteDPMStatus::VT_Regular;
 
 
#ifdef SOPHISTICATED_SIZEDEPENDENT_ADJUSTMENT
    double epsloc = -1.;
    double tempEpsloc = -1.;
#endif
 
public:
    ConcreteDPMStatus(GaussPoint *gp);
 
    void initTempStatus() override;
    void updateYourself(TimeStep *tStep) override;
    void printOutputAt(FILE *file, TimeStep *tStep) const override;
 
    void saveContext(DataStream &stream, ContextMode mode) override;
    void restoreContext(DataStream &stream, ContextMode mode) override;
 
    int setIPValue(const FloatArray &value, InternalStateType type);
 
    const char *giveClassName() const override { return "ConcreteDPMStatus"; }

    const FloatArrayF< 6 > &givePlasticStrain() const { return plasticStrain; }

    double giveDeviatoricPlasticStrainNorm()
    {
        auto dev = StructuralMaterial::computeDeviator(plasticStrain);
        return sqrt(.5 * ( 2. * dev [ 0 ] * dev [ 0 ] + 2. * dev [ 1 ] * dev [ 1 ] + 2. * dev [ 2 ] * dev [ 2 ] +
                           dev [ 3 ] * dev [ 3 ] + dev [ 4 ] * dev [ 4 ] + dev [ 5 ] * dev [ 5 ] ) );
    }
 
    double giveVolumetricPlasticStrain() const
    {
        return 1. / 3. * ( plasticStrain [ 0 ] + plasticStrain [ 1 ] + plasticStrain [ 2 ] );
    }

    double giveKappaP() const { return kappaP; }

    double giveKappaD() const { return kappaD; }

    double giveEquivStrain() const { return equivStrain; }
 
#ifdef SOPHISTICATED_SIZEDEPENDENT_ADJUSTMENT
    double giveEpsLoc() const { return epsloc; }

    void letTempEpslocBe(double v) { tempEpsloc = v; }
 
#endif

    double giveDamage() const { return damage; }

    int giveStateFlag() const { return state_flag; }

    const FloatArrayF< 6 > &giveTempPlasticStrain() const { return tempPlasticStrain; }

    double giveTempVolumetricPlasticStrain() const { return tempVolumetricPlasticStrain; }
 

    double giveTempKappaP() const { return tempKappaP; }

    double giveTempKappaD() const { return tempKappaD; }

    double giveTempDamage() const { return tempDamage; }

    double giveDeltaEquivStrain() const { return deltaEquivStrain; }
 

    int giveTempStateFlag() const { return temp_state_flag; }
 
    int giveTempVertexType() const { return tempVertexType; }

    void letTempPlasticStrainBe(const FloatArrayF< 6 > &v) { tempPlasticStrain = v; }
    void letPlasticStrainBe(const FloatArrayF< 6 > &v) { plasticStrain = v; }

    void letDeltaLambdaBe(double v) { deltaLambda = v; }

    void letTempVolumetricPlasticStrainBe(double v)
    { tempVolumetricPlasticStrain = v; }

    void letTempKappaPBe(double v)
    { tempKappaP = v; }
 

    void letTempKappaDBe(double v) { tempKappaD = v; }
    void letKappaDBe(double v) { kappaD = v; }
    void letTempEquivStrainBe(double v) { tempEquivStrain = v; }
    void letEquivStrainBe(double v) { equivStrain = v; }

    void letTempDamageBe(double v) { tempDamage = v; }

    void letDeltaEquivStrainBe(double v) { deltaEquivStrain = v; }

    double giveLe() { return le; }

    void setLe(double ls) { le = ls; }

    void letTempStateFlagBe(int v) { temp_state_flag = v; }
 
    void letTempVertexTypeBe(const int type) { tempVertexType = type; }
};
 

class ConcreteDPM : public StructuralMaterial
{
protected:
    //    enum Concrete_VertexType { VT_Regular, VT_Tension, VT_Compression };
    //  mutable Concrete_VertexType vertexType; /// FIXME: This must be removed, material models must never have mutable state.

    IsotropicLinearElasticMaterial linearElasticMaterial;

    double fc = 0., ft = 0., ecc = 0.;

    double AHard = 0.;
    double BHard = 0.;
    double CHard = 0.;
    double DHard = 0.;

    double ASoft = 0.;

    double yieldHardInitial = 0.;

    double dilationConst = 0.;

    //double deltaLambda = 0.;

    //double sig = 0.;
    //double rho = 0.;

    //    double thetaTrial = 0.;

    double m = 0.;

    double mQ = 0.;

    double helem = 0.;

    double eM = 0.;
    double gM = 0.;
    double kM = 0.;
    double nu = 0.;

    //double kappaP = 0.;
    //double tempKappaP = 0.;

    //double kappaD = 0.;
    //double tempKappaD = 0.;

    //double damage = 0.;
    //double tempDamage = 0.;

    double ef = 0.;

    double yieldTol = 0.;

    int newtonIter = 0;

    //FloatArray effectiveStress;
 
#ifdef SOPHISTICATED_SIZEDEPENDENT_ADJUSTMENT
    double href = 0.;
#endif
 
public:
    ConcreteDPM(int n, Domain *d);
 
    void initializeFrom(InputRecord &ir) override;
 
    const char *giveClassName() const override { return "ConcreteDPM"; }
    const char *giveInputRecordName() const override { return _IFT_ConcreteDPM_Name; }
 
    ConcreteDPMStatus *giveConcreteDPMStatus(GaussPoint *gp) const
    { return static_cast< ConcreteDPMStatus * >( this->Material::giveStatus(gp) ); }
 
    FloatArrayF< 6 >giveRealStressVector_3d(const FloatArrayF< 6 > &strain, GaussPoint *gp,
                                            TimeStep *tStep) const override;

    void performPlasticityReturn(GaussPoint *gp, FloatArrayF< 6 > &strain) const;

 
    void checkForVertexCase(double &answer,
                            double sig,
                            double tempKappa,
                            GaussPoint *gp) const;

    void performRegularReturn(FloatArrayF< 6 > &stress,
                              GaussPoint *gp,
                              double theta) const;
 

    void performVertexReturn(FloatArrayF< 6 > &stress,
                             double apexStress,
                             GaussPoint *gp) const;

    double computeYieldValue(double sig,
                             double rho,
                             double theta,
                             double tempKappa) const;

    double computeHardeningOne(double tempKappa) const;

    double computeHardeningOnePrime(double tempKappa) const;
 

    double computeDFDKappa(double sig,
                           double rho,
                           double theta,
                           double tempKappa) const;

    double computeDKappaDDeltaLambda(double sig,
                                     double rho,
                                     double theta,
                                     double tempKappa) const;

    virtual double computeDuctilityMeasure(double sig,
                                           double rho,
                                           double theta) const;
 

    FloatArrayF< 2 >computeDDuctilityMeasureDInv(double sig,
                                                 double rho,
                                                 double theta,
                                                 double tempKappa) const;

    FloatMatrixF< 3, 3 >computeAMatrix(double sig,
                                       double rho,
                                       double theta,
                                       double tempKappa,
                                       double deltaLambda) const;

    FloatArrayF< 2 >computeDGDInv(double sig,
                                  double rho,
                                  double tempKappa) const;

    double computeRatioPotential(double sig,
                                 double tempKappa) const;

    FloatMatrixF< 2, 2 >computeDDGDDInv(double sig,
                                        double rho,
                                        double tempKappa) const;

    FloatArrayF< 2 >computeDDGDInvDKappa(double sig,
                                         double rho,
                                         double tempKappa) const;

    FloatArrayF< 2 >computeDDKappaDDeltaLambdaDInv(double sig,
                                                   double rho,
                                                   double theta,
                                                   double tempKappa) const;

    double computeDDKappaDDeltaLambdaDKappa(double sig,
                                            double rho,
                                            double theta,
                                            double tempKappa) const;
 

    FloatArrayF< 2 >computeDFDInv(double sig,
                                  double rho,
                                  double theta,
                                  double tempKappa) const;

    double computeTempKappa(double kappaInitial,
                            double sigTrial,
                            double rhoTrial,
                            double sig) const;

    std::pair< double, double >computeDamage(const FloatArrayF< 6 > &strain, GaussPoint *gp, TimeStep *tStep) const;

    virtual double computeDamageParam(double kappa, GaussPoint *gp) const;

    double computeInverseDamage(double dam, GaussPoint *gp) const;

    virtual double computeEquivalentStrain(const FloatArrayF< 6 > &elasticStrain, GaussPoint *gp, TimeStep *tStep) const;

    double computeDuctilityMeasureDamage(const FloatArrayF< 6 > &strain, GaussPoint *gp) const;

    void initDamaged(double kappa,
                     const FloatArrayF< 6 > &elasticStrain,
                     GaussPoint *gp) const;
 

    std::tuple< double, double, double >computeTrialCoordinates(const FloatArrayF< 6 > &stress, GaussPoint *gp) const;

    void assignStateFlag(GaussPoint *gp) const;

    FloatArrayF< 6 >computeDRhoDStress(const FloatArrayF< 6 > &stress) const;

    void computeDSigDStress(FloatArrayF< 6 > &answer) const;

    FloatMatrixF< 6, 6 >computeDDRhoDDStress(const FloatArrayF< 6 > &stress) const;

    FloatArrayF< 6 >computeDCosThetaDStress(const FloatArrayF< 6 > &stress) const;

    double computeDRDCosTheta(double theta, double ecc) const;
 
    FloatMatrixF< 6, 6 >give3dMaterialStiffnessMatrix(MatResponseMode mode, GaussPoint *gp, TimeStep *tStep) const override;
 
    bool isCharacteristicMtrxSymmetric(MatResponseMode rMode) const override { return false; }
 
    int setIPValue(const FloatArray &value, GaussPoint *gp, InternalStateType type) override;
 
    int giveIPValue(FloatArray &answer,
                    GaussPoint *gp,
                    InternalStateType type,
                    TimeStep *tStep) override;
 
    void restoreConsistency(GaussPoint *gp) override;
    void saveContext(DataStream &stream, ContextMode mode) override;
    void restoreContext(DataStream &stream, ContextMode mode) override;
 
 
protected:
    std::unique_ptr<MaterialStatus> CreateStatus(GaussPoint *gp) const override;
};
} // end namespace oofem
#endif