concretedpm.h

Go to the documentation of this file.

/*
 *
 *                 #####    #####   ######  ######  ###   ###
 *               ##   ##  ##   ##  ##      ##      ## ### ##
 *              ##   ##  ##   ##  ####    ####    ##  #  ##
 *             ##   ##  ##   ##  ##      ##      ##     ##
 *            ##   ##  ##   ##  ##      ##      ##     ##
 *            #####    #####   ##      ######  ##     ##
 *
 *
 *             OOFEM : Object Oriented Finite Element Code
 *
 *               Copyright (C) 1993 - 2013   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 "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
    };

protected:

    FloatArray plasticStrain;
    FloatArray tempPlasticStrain;

    double tempVolumetricPlasticStrain;

    double dFDKappa;
    double deltaLambda;


    double kappaP;
    double tempKappaP;

    double le;


    double equivStrain;
    double tempEquivStrain;

    double kappaD;
    double tempKappaD;

    double damage;
    double tempDamage;

    double deltaEquivStrain;


    int state_flag;
    int temp_state_flag;

#ifdef SOPHISTICATED_SIZEDEPENDENT_ADJUSTMENT
    double epsloc;
    double tempEpsloc;
#endif

public:
    ConcreteDPMStatus(int n, Domain * d, GaussPoint * gp);

    virtual ~ConcreteDPMStatus();

    virtual void initTempStatus();
    virtual void updateYourself(TimeStep *tStep);
    virtual void printOutputAt(FILE *file, TimeStep *tStep);

    virtual contextIOResultType saveContext(DataStream &stream, ContextMode mode, void *obj = NULL);
    virtual contextIOResultType restoreContext(DataStream &stream, ContextMode mode, void *obj = NULL);

    int setIPValue(const FloatArray &value, InternalStateType type);

    virtual void restoreConsistency();
    virtual const char *giveClassName() const { return "ConcreteDPMStatus"; }

    const FloatArray &givePlasticStrain() const { return plasticStrain; }


    double giveDeviatoricPlasticStrainNorm()
    {
        FloatArray dev;
        StructuralMaterial :: computeDeviatoricVolumetricSplit(dev, 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 FloatArray &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; }

    void letTempPlasticStrainBe(const FloatArray &v) { tempPlasticStrain = 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 letTempEquivStrainBe(double v) { tempEquivStrain = 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; }
};


class ConcreteDPM : public StructuralMaterial
{
protected:
    enum Concrete_VertexType { VT_Regular, VT_Tension, VT_Compression };
    Concrete_VertexType vertexType;

    double fc, ft, ecc;

    double AHard;
    double BHard;
    double CHard;
    double DHard;

    double ASoft;

    double yieldHardInitial;

    double dilationConst;

    double deltaLambda;

    double sig;
    double rho;

    double thetaTrial;

    double m;

    double mQ;

    double helem;

    LinearElasticMaterial *linearElasticMaterial;

    double eM;
    double gM;
    double kM;
    double nu;

    double kappaP;
    double tempKappaP;

    double kappaD;
    double tempKappaD;

    double damage;
    double tempDamage;

    double ef;

    double yieldTol;

    int newtonIter;

    FloatArray effectiveStress;

#ifdef SOPHISTICATED_SIZEDEPENDENT_ADJUSTMENT
    double href;
#endif

public:
    ConcreteDPM(int n, Domain * d);
    virtual ~ConcreteDPM();

    virtual IRResultType initializeFrom(InputRecord *ir);

    virtual const char *giveClassName() const { return "ConcreteDPM"; }
    virtual const char *giveInputRecordName() const { return _IFT_ConcreteDPM_Name; }

    virtual ConcreteDPMStatus *giveStatus(GaussPoint *gp) const
    { return static_cast< ConcreteDPMStatus * >( this->Material :: giveStatus(gp) ); }

    LinearElasticMaterial *giveLinearElasticMaterial() { return linearElasticMaterial; }

    virtual void giveRealStressVector_3d(FloatArray &answer,
                                      GaussPoint *gp,
                                      const FloatArray &reducedStrain,
                                      TimeStep *tStep);

    void performPlasticityReturn(GaussPoint *gp, FloatArray &strain);

    bool checkForVertexCase(double &answer,
                            double sig,
                            double tempKappa);

    void performRegularReturn(FloatArray &stress,
                              GaussPoint *gp);


    void performVertexReturn(FloatArray &stress,
                             double apexStress,
                             GaussPoint *gp);

    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 tempKappa);

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

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


    void computeDDuctilityMeasureDInv(FloatArray &answer,
                                      double sig,
                                      double rho,
                                      double tempKappa);

    void computeAMatrix(FloatMatrix &answer,
                        double sig,
                        double rho,
                        double tempKappa);

    void computeDGDInv(FloatArray &answer,
                       double sig,
                       double rho,
                       double tempKappa);

    double computeRatioPotential(double sig,
                                 double tempKappa);

    void computeDDGDDInv(FloatMatrix &answer,
                         double sig,
                         double rho,
                         double tempKappa);

    void computeDDGDInvDKappa(FloatArray &answer,
                              double sig,
                              double rho,
                              double tempKappa);

    void computeDDKappaDDeltaLambdaDInv(FloatArray &answer,
                                        double sig,
                                        double rho,
                                        double tempKappa);

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


    void computeDFDInv(FloatArray &answer,
                       double sig,
                       double rho,
                       double tempKappa) const;

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


    double computeDamage(const FloatArray &strain, GaussPoint *gp, TimeStep *tStep);



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

    double computeInverseDamage(double dam, GaussPoint *gp);

    virtual void computeEquivalentStrain(double &kappaD, const FloatArray &elasticStrain, GaussPoint *gp, TimeStep *tStep);


    double computeDuctilityMeasureDamage(const FloatArray &strain, GaussPoint *gp);

    void initDamaged(double kappa,
                     const FloatArray &elasticStrain,
                     GaussPoint *gp);


    void computeTrialCoordinates(const FloatArray &stress, GaussPoint *gp);

    void assignStateFlag(GaussPoint *gp);

    void computeDRhoDStress(FloatArray &answer, const FloatArray &stress) const;

    void computeDSigDStress(FloatArray &answer) const;

    void computeDDRhoDDStress(FloatMatrix &answer, const FloatArray &stress) const;

    void computeDCosThetaDStress(FloatArray &answer, const FloatArray &stress) const;

    double computeDRDCosTheta(double theta, double ecc) const;

    virtual void give3dMaterialStiffnessMatrix(FloatMatrix &answer,
                                               MatResponseMode mode, GaussPoint *gp, TimeStep *tStep);


    virtual bool isCharacteristicMtrxSymmetric(MatResponseMode rMode) { return false; }

    virtual int setIPValue(const FloatArray &value, GaussPoint *gp, InternalStateType type);

    virtual int giveIPValue(FloatArray &answer,
                            GaussPoint *gp,
                            InternalStateType type,
                            TimeStep *tStep);

protected:
    virtual MaterialStatus *CreateStatus(GaussPoint *gp) const;
};
} // end namespace oofem
#endif