12#ifndef BELFEM_CL_IFG_TET10D_HPP
13#define BELFEM_CL_IFG_TET10D_HPP
65 aXiHat( 0, 0 ) = 2./3. ;
66 aXiHat( 0, 1 ) = 1./6. ;
67 aXiHat( 0, 2 ) = 1./6. ;
70 aXiHat( 1, 0 ) = 1./6. ;
71 aXiHat( 1, 1 ) = 1./6. ;
72 aXiHat( 1, 2 ) = 2./3. ;
75 aXiHat( 2, 0 ) = 1./6. ;
76 aXiHat( 2, 1 ) = 2./3. ;
77 aXiHat( 2, 2 ) = 1./6. ;
86 const Vector <real> & aXi,
87 Matrix <real> & aN )
const
89 const real xi = aXi( 0 );
90 const real eta = aXi( 1 );
91 const real zeta = aXi( 2 );
97 real zeta2 = zeta*zeta ;
99 real a = 2*zeta2-xi2-eta2 ;
100 real b = 2*xi2 - eta2-zeta2 ;
101 real c = 2*eta2 - xi2-zeta2 ;
102 real d = xi*eta*zeta ;
105 aN( 0, 0 ) =
K * d * a ;
106 aN( 0, 1 ) =
K * d * b ;
107 aN( 0, 2 ) =
K * d * c ;
117 const Vector <real> & aXi,
118 Matrix <real> & adNdXi )
const
120 const real xi = aXi( 0 );
121 const real eta = aXi( 1 );
122 const real zeta = aXi( 2 );
127 real eta2 = eta*eta ;
128 real zeta2 = zeta*zeta ;
130 real a = 2.*zeta2-xi2-eta2 ;
131 real b = 2.*xi2 - eta2-zeta2 ;
132 real c = 2.*eta2 - xi2-zeta2 ;
133 real d = xi*eta*zeta ;
136 real a_eta = -2.*eta ;
137 real a_zeta = 4.*zeta ;
140 real b_eta = -2.* eta ;
141 real b_zeta = -2.*zeta ;
144 real c_eta = 4.*eta ;
145 real c_zeta = -2.*zeta;
147 real d_xi = eta*zeta;
148 real d_eta = xi*zeta ;
149 real d_zeta = xi*eta;
153 adNdXi( 0, 0 ) =
K * ( d_xi * a + d * a_xi );
154 adNdXi( 0, 1 ) =
K * ( d_eta * a + d * a_eta );
155 adNdXi( 0, 2 ) =
K * ( d_zeta * a + d * a_zeta );
157 adNdXi( 1, 0 ) =
K * ( d_xi * b + d * b_xi );
158 adNdXi( 1, 1 ) =
K * ( d_eta * b + d * b_eta );
159 adNdXi( 1, 2 ) =
K * ( d_zeta * b + d * b_zeta );
161 adNdXi( 2, 0 ) =
K * ( d_xi * c + d * c_xi );
162 adNdXi( 2, 1 ) =
K * ( d_eta * c + d * c_eta );
163 adNdXi( 2, 2 ) =
K * ( d_zeta * c + d * c_zeta );
174 const Vector <real> & aXi,
175 Matrix <real> & ad2NdXi2 )
const
177 const real xi = aXi( 0 );
178 const real eta = aXi( 1 );
179 const real zeta = aXi( 2 );
184 real eta2 = eta*eta ;
185 real zeta2 = zeta*zeta ;
187 real a = 2.*zeta2-xi2-eta2 ;
188 real b = 2.*xi2 - eta2-zeta2 ;
189 real c = 2.*eta2 - xi2-zeta2 ;
190 real d = xi*eta*zeta ;
193 real a_eta = -2.*eta ;
194 real a_zeta = 4.*zeta ;
197 real b_eta = -2.* eta ;
198 real b_zeta = -2.*zeta ;
201 real c_eta = 4.*eta ;
202 real c_zeta = -2.*zeta;
204 real d_xi = eta*zeta;
205 real d_eta = xi*zeta ;
206 real d_zeta = xi*eta;
211 ad2NdXi2( 0, 0 ) = 2.*
K*(a_xi*d_xi-d);
214 ad2NdXi2( 1, 0 ) = 2.*
K*(a_eta*d_eta-d);
217 ad2NdXi2( 2, 0 ) = 2.*
K*(a_zeta*d_zeta+2.*d);
220 ad2NdXi2( 3, 0 ) =
K*(a_eta*d_zeta + a_zeta*d_eta + a*xi);
223 ad2NdXi2( 4, 0 ) =
K*(a_xi*d_zeta + a_zeta*d_xi + a*eta);
226 ad2NdXi2( 5, 0 ) =
K*(a_eta*d_xi + a_xi*d_eta + a*zeta);
229 ad2NdXi2( 0, 1 ) = 2.*
K*(b_xi*d_xi+2.*d);
232 ad2NdXi2( 1, 1 ) = 2.*
K*(b_eta*d_eta-d);
235 ad2NdXi2( 2, 1 ) = 2.*
K*(b_zeta*d_zeta-d);
238 ad2NdXi2( 3, 1 ) =
K*(b_eta*d_zeta + b_zeta*d_eta + b*xi);
241 ad2NdXi2( 4, 1 ) =
K*(b_xi*d_zeta + b_zeta*d_xi + b*eta);
244 ad2NdXi2( 5, 1 ) =
K*(b_eta*d_xi + b_xi*d_eta + b*zeta);
247 ad2NdXi2( 0, 2 ) = 2.*
K*(c_xi*d_xi-d);
250 ad2NdXi2( 1, 2 ) = 2.*
K*(c_eta*d_eta+2.*d);
253 ad2NdXi2( 2, 2 ) = 2.*
K*(c_zeta*d_zeta-d);
256 ad2NdXi2( 3, 2 ) =
K*(c_eta*d_zeta + c_zeta*d_eta + c*xi);
259 ad2NdXi2( 4, 2 ) =
K*(c_xi*d_zeta + c_zeta*d_xi + c*eta);
262 ad2NdXi2( 5, 2 ) =
K*(c_eta*d_xi + c_xi*d_eta + c*zeta);
void set_size(const size_t aNumRows, const size_t aNumCols)
Definition cl_AR_Matrix.hpp:186
shape function templated class G : Geometry T : Type D : Dimension B : Number of Basis
Definition cl_IF_InterpolationFunctionTemplate.hpp:25
void param_coords(Matrix< real > &aXiHat) const override
returns a matrix containing the parameter coordinates of the nodes < number of dimensions x number of...
Definition cl_IF_InterpolationFunctionTemplate.hpp:49
InterpolationOrder interpolation_order() const override
returns the interpolation order
Definition cl_IF_InterpolationFunctionTemplate.hpp:145
void d2NdXi2(const Vector< real > &aXi, Matrix< real > &ad2NdXi2) const override
calculates the second derivative of the shape function in parameter space
Definition cl_IF_InterpolationFunctionTemplate.hpp:110
void dNdXi(const Vector< real > &aXi, Matrix< real > &adNdXi) const override
calculates the first derivative of the shape function in parameter space
Definition cl_IF_InterpolationFunctionTemplate.hpp:89
void N(const Vector< real > &aXi, Matrix< real > &aN) const override
evaluates the shape function at a given point
Definition cl_IF_InterpolationFunctionTemplate.hpp:68
Definition cl_IFB_LINE3.hpp:21
@ K
Stiffness matrix.
Definition cl_TimestepMatrices.hpp:35
USER GUIDES:
Definition cl_Capacitor.cpp:16
@ BubbleFace3
Definition Mesh_Enums.hpp:109
ElementType element_type(const std::string &aStr)
Definition Mesh_Enums.hpp:370
ElementType
Element types.
Definition Mesh_Enums.hpp:27
@ TET10
Definition Mesh_Enums.hpp:39
InterpolationOrder
Definition Mesh_Enums.hpp:85
@ CUBIC
Definition Mesh_Enums.hpp:90
double real
Definition typedefs.hpp:36
@ TET
Definition Mesh_Enums.hpp:75