bossak_step_method.hpp

Go to the documentation of this file.

//
//   Project Name:        KratosSolidMechanicsApplication $
//   Created by:          $Author:            JMCarbonell $
//   Last modified by:    $Co-Author:                     $
//   Date:                $Date:            November 2017 $
//   Revision:            $Revision:                  0.0 $
//
//
 
#if !defined(KRATOS_BOSSAK_STEP_METHOD_H_INCLUDED)
#define  KRATOS_BOSSAK_STEP_METHOD_H_INCLUDED
 
// System includes
 
// External includes
 
// Project includes
#include "custom_solvers/time_integration_methods/newmark_step_method.hpp"
 
namespace Kratos
{
 
 
 
 
 
 
 
 
  template<class TVariableType, class TValueType>
  class BossakStepMethod : public NewmarkStepMethod<TVariableType,TValueType>
  {
  public:
 
 
    typedef TimeIntegrationMethod<TVariableType,TValueType>  BaseType;
 
    typedef typename BaseType::Pointer                BasePointerType;
 
    typedef typename BaseType::NodeType                      NodeType;
 
    typedef typename BaseType::VariablePointer        VariablePointer;
 
    typedef NewmarkStepMethod<TVariableType,TValueType>   DerivedType;
 
 
    KRATOS_CLASS_POINTER_DEFINITION( BossakStepMethod );
 
 
 
    BossakStepMethod() : DerivedType() {}
 
    BossakStepMethod(const TVariableType& rVariable) : DerivedType(rVariable) {}
 
    BossakStepMethod(const TVariableType& rVariable, const TVariableType& rFirstDerivative, const TVariableType& rSecondDerivative) : DerivedType(rVariable,rFirstDerivative,rSecondDerivative) {}
 
    BossakStepMethod(const TVariableType& rVariable, const TVariableType& rFirstDerivative, const TVariableType& rSecondDerivative, const TVariableType& rPrimaryVariable) : DerivedType(rVariable,rFirstDerivative,rSecondDerivative,rPrimaryVariable) {}
 
    BossakStepMethod(BossakStepMethod& rOther)
      :DerivedType(rOther)
      ,mAlpha(rOther.mAlpha)
    {
    }
 
    BasePointerType Clone() override
    {
      return BasePointerType( new BossakStepMethod(*this) );
    }
 
    ~BossakStepMethod() override{}
 
 
 
    //calculate parameters (to call it once with the original input parameters)
    void CalculateParameters(ProcessInfo& rCurrentProcessInfo) override
    {
     KRATOS_TRY
 
     double beta = 0.25;
     if (rCurrentProcessInfo.Has(NEWMARK_BETA))
       {
     beta = rCurrentProcessInfo[NEWMARK_BETA];
       }
     double gamma = 0.5;
     if (rCurrentProcessInfo.Has(NEWMARK_GAMMA))
       {
     gamma = rCurrentProcessInfo[NEWMARK_GAMMA];
       }
 
     mAlpha = -0.3;
     if (rCurrentProcessInfo.Has(BOSSAK_ALPHA))
       {
     mAlpha = rCurrentProcessInfo[BOSSAK_ALPHA];
       }
 
     if(mAlpha > 0.0 || mAlpha < -0.3)
        {
      KRATOS_ERROR << "Value not admissible for AlphaBossak. Admissible values should be between 0.0 and -0.3. Current value is " << mAlpha << std::endl;
        }
 
     beta  = (1.0 - mAlpha) * (1.0 - mAlpha) * beta;
     gamma = gamma - mAlpha;
 
     rCurrentProcessInfo[NEWMARK_BETA]  = beta;
     rCurrentProcessInfo[NEWMARK_GAMMA] = gamma;
     rCurrentProcessInfo[BOSSAK_ALPHA]  = mAlpha;
 
     this->SetParameters(rCurrentProcessInfo);
 
     KRATOS_CATCH( "" )
    }
 
    // set parameters (do not calculate parameters here, only read them)
    void SetParameters(const ProcessInfo& rCurrentProcessInfo) override
    {
     KRATOS_TRY
 
     double delta_time = rCurrentProcessInfo[DELTA_TIME];
 
     if (delta_time < 1.0e-24)
        {
      KRATOS_ERROR << " ERROR: detected delta_time = 0 in the Solution Method DELTA_TIME. PLEASE : check if the time step is created correctly for the current model part " << std::endl;
        }
 
     double beta = 0.25;
     if (rCurrentProcessInfo.Has(NEWMARK_BETA))
       {
     beta = rCurrentProcessInfo[NEWMARK_BETA];
       }
     double gamma = 0.5;
     if (rCurrentProcessInfo.Has(NEWMARK_GAMMA))
       {
     gamma = rCurrentProcessInfo[NEWMARK_GAMMA];
       }
 
     mAlpha = -0.3;
     if (rCurrentProcessInfo.Has(BOSSAK_ALPHA))
       {
     mAlpha = rCurrentProcessInfo[BOSSAK_ALPHA];
       }
 
     if(mAlpha > 0.0 || mAlpha < -0.3)
        {
      KRATOS_ERROR << "Value not admissible for AlphaBossak. Admissible values should be between 0.0 and -0.3. Current value is " << mAlpha << std::endl;
        }
 
     this->mNewmark.SetParameters(beta,gamma,delta_time);
 
     KRATOS_CATCH( "" )
    }
 
 
    // set parameters to process info
    void SetProcessInfoParameters(ProcessInfo& rCurrentProcessInfo) override
    {
     KRATOS_TRY
 
     rCurrentProcessInfo[NEWMARK_BETA]  = this->mNewmark.beta;
     rCurrentProcessInfo[NEWMARK_GAMMA] = this->mNewmark.gamma;
     rCurrentProcessInfo[BOSSAK_ALPHA]  = this->mAlpha;
 
     KRATOS_CATCH( "" )
    }
 
 
 
 
 
 
    std::string Info() const override
    {
        std::stringstream buffer;
        buffer << "BossakStepMethod";
        return buffer.str();
    }
 
    void PrintInfo(std::ostream& rOStream) const override
    {
        rOStream << "BossakStepMethod";
    }
 
    void PrintData(std::ostream& rOStream) const override
    {
      rOStream << "BossakStepMethod Data";
    }
 
 
 
 
 
  protected:
 
 
 
    double   mAlpha;
 
 
 
 
    double& GetSecondDerivativeKineticParameter(double& rParameter) override
    {
      rParameter = mAlpha;
      return rParameter;
    }
 
    double& GetSecondDerivativeInertialParameter(double& rParameter) override
    {
      rParameter = (1.0 - mAlpha) * this->mNewmark.c0;
      return rParameter;
    }
 
 
 
 
  private:
 
 
 
 
 
 
    friend class Serializer;
 
    void save(Serializer& rSerializer) const override
    {
      KRATOS_SERIALIZE_SAVE_BASE_CLASS( rSerializer, DerivedType )
      rSerializer.save("BossakAlpha", mAlpha);
    };
 
    void load(Serializer& rSerializer) override
    {
      KRATOS_SERIALIZE_LOAD_BASE_CLASS( rSerializer, DerivedType )
      rSerializer.load("BossakAlpha", mAlpha);
    };
 
 
 
 
  }; // Class BossakStepMethod
 
 
 
 
 
  template<class TVariableType, class TValueType>
  inline std::istream & operator >> (std::istream & rIStream, BossakStepMethod<TVariableType,TValueType>& rThis)
  {
    return rIStream;
  }
 
  template<class TVariableType, class TValueType>
  inline std::ostream & operator << (std::ostream & rOStream, const BossakStepMethod<TVariableType,TValueType>& rThis)
  {
    return rOStream << rThis.Info();
  }
 
 
 
}  // namespace Kratos.
 
#endif // KRATOS_BOSSAK_STEP_METHOD_H_INCLUDED defined