OGS
LinearElasticOrthotropic.cpp
Go to the documentation of this file.
1// SPDX-FileCopyrightText: Copyright (c) OpenGeoSys Community (opengeosys.org)
2// SPDX-License-Identifier: BSD-3-Clause
3
5
6#include <Eigen/LU>
7
9
10namespace MPL = MaterialPropertyLib;
11
12namespace MaterialLib
13{
14namespace Solids
15{
16template <int DisplacementDim>
17std::optional<std::tuple<typename MechanicsBase<DisplacementDim>::KelvinVector,
18 std::unique_ptr<typename MechanicsBase<
19 DisplacementDim>::MaterialStateVariables>,
22 MaterialPropertyLib::VariableArray const& variable_array_prev,
23 MaterialPropertyLib::VariableArray const& variable_array, double const t,
24 ParameterLib::SpatialPosition const& x, double const /*dt*/,
26 MaterialStateVariables const& /*material_state_variables*/) const
27{
28 auto const& eps_m = std::get<MPL::SymmetricTensor<DisplacementDim>>(
29 variable_array.mechanical_strain);
30 auto const& eps_m_prev = std::get<MPL::SymmetricTensor<DisplacementDim>>(
31 variable_array_prev.mechanical_strain);
32 auto const& sigma_prev = std::get<MPL::SymmetricTensor<DisplacementDim>>(
33 variable_array_prev.stress);
34 auto const& T = variable_array_prev.temperature;
35
36 KelvinMatrix C = getElasticTensor(t, x, T);
37
38 KelvinVector sigma = sigma_prev + C * (eps_m - eps_m_prev);
39
40 return {std::make_tuple(
41 sigma,
42 std::make_unique<
44 C)};
45}
46
47template <int DisplacementDim>
50 double const t, ParameterLib::SpatialPosition const& x,
51 double const /*T*/) const
52{
53 using namespace MathLib::KelvinVector;
54
55 auto const& mp = _mp.evaluate(t, x);
56 auto const E = [&mp](int const i) { return mp.E(i); };
57 auto const G = [&mp](int const i, int const j) { return mp.G(i, j); };
58 auto const nu = [&mp](int const i, int const j) { return mp.nu(i, j); };
59
61 // clang-format off
62 S_ortho.template topLeftCorner<3, 3>() <<
63 1. / E(1), -nu(2, 1) / E(2), -nu(3, 1) / E(3),
64 -nu(1, 2) / E(1), 1. / E(2), -nu(3, 2) / E(3),
65 -nu(1, 3) / E(1), -nu(2, 3) / E(2), 1. / E(3);
66
67 S_ortho.template bottomRightCorner<3, 3>().diagonal() <<
68 1. / (2 * G(1, 2)),
69 1. / (2 * G(2, 3)),
70 1. / (2 * G(1, 3));
71 // clang-format on
72
73 KelvinMatrixType<3> const C_ortho = S_ortho.inverse();
74 auto const Q = [this, &x]() -> KelvinMatrixType<3>
75 {
77 {
79 }
80 Eigen::Matrix3d R = Eigen::Matrix3d::Identity();
81 R.template topLeftCorner<DisplacementDim, DisplacementDim>().noalias() =
82 _local_coordinate_system->transformation<DisplacementDim>(x);
84 }();
85
86 // Rotate the forth-order tenser in Kelvin mapping with Q*C_ortho*Q^T and
87 // return the top left corner block of size 4x4 for two-dimensional case or
88 // the full 6x6 matrix is returned in the three-dimensional case.
89 return (Q * C_ortho * Q.transpose())
90 .template topLeftCorner<kelvin_vector_dimensions(DisplacementDim),
91 kelvin_vector_dimensions(DisplacementDim)>();
92}
93
94template class LinearElasticOrthotropic<2>;
95template class LinearElasticOrthotropic<3>;
96
97} // namespace Solids
98} // namespace MaterialLib
std::optional< ParameterLib::CoordinateSystem > const & _local_coordinate_system
MathLib::KelvinVector::KelvinMatrixType< DisplacementDim > KelvinMatrix
std::optional< std::tuple< typename MechanicsBase< DisplacementDim >::KelvinVector, std::unique_ptr< typename MechanicsBase< DisplacementDim >::MaterialStateVariables >, typename MechanicsBase< DisplacementDim >::KelvinMatrix > > integrateStress(MaterialPropertyLib::VariableArray const &variable_array_prev, MaterialPropertyLib::VariableArray const &variable_array, double const t, ParameterLib::SpatialPosition const &x, double const, typename MechanicsBase< DisplacementDim >::MaterialStateVariables const &material_state_variables) const override
MathLib::KelvinVector::KelvinVectorType< DisplacementDim > KelvinVector
KelvinMatrix getElasticTensor(double const t, ParameterLib::SpatialPosition const &x, double const T) const
KelvinMatrixType< DisplacementDim > fourthOrderRotationMatrix(Eigen::Matrix< double, DisplacementDim, DisplacementDim, Eigen::ColMajor, DisplacementDim, DisplacementDim > const &transformation)
constexpr int kelvin_vector_dimensions(int const displacement_dim)
Kelvin vector dimensions for given displacement dimension.
Eigen::Matrix< double, kelvin_vector_dimensions(DisplacementDim), kelvin_vector_dimensions(DisplacementDim), Eigen::RowMajor > KelvinMatrixType
static const double t
MathLib::KelvinVector::KelvinMatrixType< DisplacementDim > KelvinMatrix