mesh_tying_mortar_condition.h

Go to the documentation of this file.

// KRATOS    ______            __             __  _____ __                  __                   __
//          / ____/___  ____  / /_____ ______/ /_/ ___// /________  _______/ /___  ___________ _/ /
//         / /   / __ \/ __ \/ __/ __ `/ ___/ __/\__ \/ __/ ___/ / / / ___/ __/ / / / ___/ __ `/ /
//        / /___/ /_/ / / / / /_/ /_/ / /__/ /_ ___/ / /_/ /  / /_/ / /__/ /_/ /_/ / /  / /_/ / /
//        \____/\____/_/ /_/\__/\__,_/\___/\__//____/\__/_/   \__,_/\___/\__/\__,_/_/   \__,_/_/  MECHANICS
//
//  License:         BSD License
//                   license: ContactStructuralMechanicsApplication/license.txt
//
//  Main authors:    Vicente Mataix Ferrandiz
//
 
#pragma once
 
// System includes
 
// External includes
 
// Project includes
#include "contact_structural_mechanics_application_variables.h"
#include "custom_conditions/paired_condition.h"
#include "includes/mortar_classes.h"
 
/* Utilities */
#include "utilities/math_utils.h"
#include "utilities/exact_mortar_segmentation_utility.h"
#include "custom_utilities/logging_settings.hpp"
 
namespace Kratos
{
 
 
    using SizeType = std::size_t;
 
 
 
 
template< const SizeType TDim, const SizeType TNumNodes, const SizeType TNumNodesMaster = TNumNodes>
class KRATOS_API(CONTACT_STRUCTURAL_MECHANICS_APPLICATION) MeshTyingMortarCondition
    : public PairedCondition
{
public:
 
    KRATOS_CLASS_INTRUSIVE_POINTER_DEFINITION( MeshTyingMortarCondition );
 
    using BaseType = PairedCondition;
 
    using VectorType = typename BaseType::VectorType;
 
    using MatrixType = typename BaseType::MatrixType;
 
    using IndexType = typename BaseType::IndexType;
 
    using GeometryPointerType = typename BaseType::GeometryType::Pointer;
 
    using NodesArrayType = typename BaseType::NodesArrayType;
 
    using PropertiesPointerType = typename BaseType::PropertiesType::Pointer;
 
    using PointType = Point;
 
    using GeometryType = Geometry<Node>;
 
    using IntegrationPointsType = typename GeometryType::IntegrationPointsArrayType;
 
    using ConditionArrayListType = typename std::vector<array_1d<PointType, TDim>>;
 
    using LineType = Line2D2<Point>;
 
    using TriangleType = Triangle3D3<Point>;
 
    using DecompositionType = typename std::conditional<TDim == 2, LineType, TriangleType>::type;
 
    using MatrixDualLM = BoundedMatrix<double, TNumNodes, TNumNodes>;
 
    using GeneralVariables = MortarKinematicVariables<TNumNodes, TNumNodesMaster>;
 
    using AeData = DualLagrangeMultiplierOperators<TNumNodes, TNumNodesMaster>;
 
    using MortarConditionMatrices = MortarOperator<TNumNodes, TNumNodesMaster>;
 
    using IntegrationUtility = ExactMortarIntegrationUtility<TDim, TNumNodes, false, TNumNodesMaster>;
 
    // The threshold coefficient considered for checking
    static constexpr double CheckThresholdCoefficient = 1.0e-12;
 
 
    MeshTyingMortarCondition()
        : PairedCondition()
    {}
 
    // Constructor 1
    MeshTyingMortarCondition(
        IndexType NewId,
        GeometryType::Pointer pGeometry
        ) :PairedCondition(NewId, pGeometry)
    {}
 
    // Constructor 2
    MeshTyingMortarCondition(
        IndexType NewId,
        GeometryType::Pointer pGeometry,
        PropertiesType::Pointer pProperties
        ) :PairedCondition( NewId, pGeometry, pProperties )
    {}
 
    // Constructor 3
    MeshTyingMortarCondition(
        IndexType NewId,
        GeometryType::Pointer pGeometry,
        PropertiesType::Pointer pProperties,
        GeometryType::Pointer pMasterGeometry
        )
        :PairedCondition( NewId, pGeometry, pProperties, pMasterGeometry)
    {}
 
    MeshTyingMortarCondition( MeshTyingMortarCondition const& rOther){}
 
    ~MeshTyingMortarCondition() override;
 
 
 
 
    void Initialize(const ProcessInfo& rCurrentProcessInfo) override;
 
    void InitializeSolutionStep(const ProcessInfo& rCurrentProcessInfo) override;
 
    void InitializeNonLinearIteration(const ProcessInfo& rCurrentProcessInfo) override;
 
    void FinalizeSolutionStep(const ProcessInfo& rCurrentProcessInfo) override;
 
    void FinalizeNonLinearIteration(const ProcessInfo& rCurrentProcessInfo) override;
 
    void CalculateMassMatrix(
        MatrixType& rMassMatrix,
        const ProcessInfo& rCurrentProcessInfo
        ) override;
 
    void CalculateDampingMatrix(
        MatrixType& rDampingMatrix,
        const ProcessInfo& rCurrentProcessInfo
        ) override;
 
    Condition::Pointer Create(
        IndexType NewId,
        NodesArrayType const& rThisNodes,
        PropertiesType::Pointer pProperties
        ) const override;
 
    Condition::Pointer Create(
        IndexType NewId,
        GeometryType::Pointer pGeom,
        PropertiesType::Pointer pProperties
        ) const override;
 
    Condition::Pointer Create(
        IndexType NewId,
        GeometryType::Pointer pGeom,
        PropertiesType::Pointer pProperties,
        GeometryType::Pointer pMasterGeom
        ) const override;
 
    /******************************************************************/
    /********** AUXILLIARY METHODS FOR GENERAL CALCULATIONS ***********/
    /******************************************************************/
 
    void EquationIdVector(
        EquationIdVectorType& rResult,
        const ProcessInfo& rCurrentProcessInfo
        ) const override;
 
    void GetDofList(
        DofsVectorType& rConditionalDofList,
        const ProcessInfo& rCurrentProcessInfo
        ) const override;
 
    void CalculateOnIntegrationPoints(
        const Variable<double>& rVariable,
        std::vector<double>& rOutput,
        const ProcessInfo& rCurrentProcessInfo
        ) override;
 
    void CalculateOnIntegrationPoints(
        const Variable<array_1d<double, 3>>& rVariable,
        std::vector< array_1d<double, 3>>& rOutput,
        const ProcessInfo& rCurrentProcessInfo
        ) override;
 
    void CalculateOnIntegrationPoints(
        const Variable<Vector>& rVariable,
        std::vector<Vector>& rOutput,
        const ProcessInfo& rCurrentProcessInfo
        ) override;
 
    int Check(const ProcessInfo& rCurrentProcessInfo) const override;
 
 
 
 
    std::string Info() const override
    {
        std::stringstream buffer;
        buffer << "MeshTyingMortarCondition #" << this->Id();
        return buffer.str();
    }
 
    void PrintInfo(std::ostream& rOStream) const override
    {
        rOStream << "MeshTyingMortarCondition #" << this->Id();
    }
 
    void PrintData(std::ostream& rOStream) const override
    {
        PrintInfo(rOStream);
        this->GetParentGeometry().PrintData(rOStream);
        this->GetPairedGeometry().PrintData(rOStream);
    }
 
 
 
protected:
 
    struct DofData
    {
    public:
 
        // Auxiliary types
        using MatrixUnknownSlave = BoundedMatrix<double, TNumNodes, TDim>;
        using MatrixUnknownMaster = BoundedMatrix<double, TNumNodesMaster, TDim>;
 
        // The DoF
        MatrixUnknownSlave LagrangeMultipliers, u1;
        MatrixUnknownMaster u2;
 
        DofData(const std::size_t Dimension = TDim)
        {
            // Resizing as needed (for scalar cases)
            if (Dimension != TDim) {
                LagrangeMultipliers.resize(TNumNodes, Dimension, false);
                u1.resize(TNumNodes, Dimension, false);
                u2.resize(TNumNodesMaster, Dimension, false);
            }
 
            // Clearing the values
            this->Clear();
        }
 
        // Default destructor
        ~DofData()= default;
 
        void Clear()
        {
            // Clearing the values
            u1.clear();
            u2.clear();
            LagrangeMultipliers.clear();
        }
 
        void UpdateMasterPair(
            const GeometryType& rGeometryInput,
            std::vector<const Variable<double>*>& rpDoFVariables
            )
        {
            // Fill master information
            for (IndexType i_node = 0; i_node < TNumNodesMaster; ++i_node) {
                const auto& r_node = rGeometryInput[i_node];
                for (IndexType i_dof = 0; i_dof < rpDoFVariables.size(); ++i_dof) {
                    u2(i_node, i_dof) = r_node.FastGetSolutionStepValue(*rpDoFVariables[i_dof]);
                }
            }
        }
 
    };
 
 
    MortarConditionMatrices mMortarConditionMatrices;    
 
    std::vector<const Variable<double>*> mpDoFVariables; 
 
    std::vector<const Variable<double>*> mpLMVariables;  
 
 
 
    /******************************************************************/
    /*********************** COMPUTING  METHODS ***********************/
    /******************************************************************/
 
    void CalculateLocalSystem(
        MatrixType& rLeftHandSideMatrix,
        VectorType& rRightHandSideVector,
        const ProcessInfo& rCurrentProcessInfo
        ) override;
 
    void CalculateRightHandSide(
        VectorType& rRightHandSideVector,
        const ProcessInfo& rCurrentProcessInfo
        ) override;
 
    void CalculateLeftHandSide(
        MatrixType& rLeftHandSideMatrix,
        const ProcessInfo& rCurrentProcessInfo
        ) override;
 
    void CalculateConditionSystem(
        MatrixType& rLeftHandSideMatrix,
        VectorType& rRightHandSideVector,
        const ProcessInfo& rCurrentProcessInfo,
        const bool ComputeLHS = true,
        const bool ComputeRHS = true
        );
 
    void InitializeDofData(DofData& rDofData)
    {
        // The slave geometry
        auto& r_slave_geometry = this->GetParentGeometry();
 
        // Retrieve values
        for (IndexType i_node = 0; i_node < TNumNodes; i_node++) {
            const auto& r_node = r_slave_geometry[i_node];
            for (IndexType i_dof = 0; i_dof < mpDoFVariables.size(); ++i_dof) {
                rDofData.u1(i_node, i_dof) = r_node.FastGetSolutionStepValue(*mpDoFVariables[i_dof]);
                rDofData.LagrangeMultipliers(i_node, i_dof) = r_node.FastGetSolutionStepValue(*mpLMVariables[i_dof]);
            }
        }
    }
 
    bool CalculateAe(
        const array_1d<double, 3>& rNormalMaster,
        MatrixDualLM& rAe,
        GeneralVariables& rVariables,
        const ConditionArrayListType& rConditionsPointsSlave,
        const IntegrationMethod ThisIntegrationMethod
        );
 
    void CalculateKinematics(
        GeneralVariables& rVariables,
        const MatrixDualLM& rAe,
        const array_1d<double, 3>& rNormalMaster,
        const PointType& rLocalPointDecomp,
        const PointType& rLocalPointParent,
        const GeometryPointType& rGeometryDecomp,
        const bool DualLM = false
        );
 
    /********************************************************************************/
    /**************** METHODS TO CALCULATE MORTAR CONDITION MATRICES ****************/
    /********************************************************************************/
 
    void CalculateLocalLHS(
        Matrix& rLocalLHS,
        const MortarConditionMatrices& rMortarConditionMatrices,
        const DofData& rDofData,
        const ProcessInfo& rCurrentProcessInfo
        );
 
    void CalculateLocalRHS(
        Vector& rLocalRHS,
        const MortarConditionMatrices& rMortarConditionMatrices,
        const DofData& rDofData,
        const ProcessInfo& rCurrentProcessInfo
        );
 
    /***********************************************************************************/
    /**************** AUXILLIARY METHODS FOR CONDITION LHS CONTRIBUTION ****************/
    /***********************************************************************************/
 
    void MasterShapeFunctionValue(
        GeneralVariables& rVariables,
        const array_1d<double, 3>& rNormalMaster,
        const PointType& rLocalPoint
        );
 
    /******************************************************************/
    /********** AUXILLIARY METHODS FOR GENERAL CALCULATIONS ***********/
    /******************************************************************/
 
    IntegrationMethod GetIntegrationMethod() const override
    {
        // Setting the auxiliary integration points
        const IndexType integration_order = GetProperties().Has(INTEGRATION_ORDER_CONTACT) ? GetProperties().GetValue(INTEGRATION_ORDER_CONTACT) : 2;
        switch (integration_order) {
            case 1: return GeometryData::IntegrationMethod::GI_GAUSS_1;
            case 2: return GeometryData::IntegrationMethod::GI_GAUSS_2;
            case 3: return GeometryData::IntegrationMethod::GI_GAUSS_3;
            case 4: return GeometryData::IntegrationMethod::GI_GAUSS_4;
            case 5: return GeometryData::IntegrationMethod::GI_GAUSS_5;
            default: return GeometryData::IntegrationMethod::GI_GAUSS_2;
        }
    }
 
 
 
 
private:
 
 
 
 
 
 
 
    // Serialization
    friend class Serializer;
 
    void save(Serializer& rSerializer) const override;
 
    void load(Serializer& rSerializer) override;
 
 
}; // Class MeshTyingMortarCondition
 
 
 
 
 
}// namespace Kratos.