Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F76987038
material_stiffness_proportional.cc
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Subscribers
None
File Metadata
Details
File Info
Storage
Attached
Created
Sun, Aug 11, 14:51
Size
4 KB
Mime Type
text/x-c
Expires
Tue, Aug 13, 14:51 (2 d)
Engine
blob
Format
Raw Data
Handle
19802217
Attached To
rAKA akantu
material_stiffness_proportional.cc
View Options
/**
* @file material_stiffness_proportional.cc
*
* @author David Simon Kammer <david.kammer@epfl.ch>
* @author Nicolas Richart <nicolas.richart@epfl.ch>
*
*
* @brief Special. of the material class for the caughey viscoelastic material
*
* @section LICENSE
*
* Copyright (©) 2010-2012, 2014 EPFL (Ecole Polytechnique Fédérale de Lausanne)
* Laboratory (LSMS - Laboratoire de Simulation en Mécanique des Solides)
*
*/
/* -------------------------------------------------------------------------- */
#include "material_stiffness_proportional.hh"
#include "solid_mechanics_model.hh"
namespace
akantu
{
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
MaterialStiffnessProportional
<
spatial_dimension
>::
MaterialStiffnessProportional
(
SolidMechanicsModel
&
model
,
const
ID
&
id
)
:
Material
(
model
,
id
),
MaterialElastic
<
spatial_dimension
>
(
model
,
id
),
stress_viscosity
(
"stress_viscosity"
,
*
this
),
stress_elastic
(
"stress_elastic"
,
*
this
)
{
AKANTU_DEBUG_IN
();
this
->
registerParam
(
"Alpha"
,
alpha
,
0.
,
ParamAccessType
(
_pat_parsable
|
_pat_modifiable
),
"Artificial viscous ratio"
);
this
->
stress_viscosity
.
initialize
(
spatial_dimension
*
spatial_dimension
);
this
->
stress_elastic
.
initialize
(
spatial_dimension
*
spatial_dimension
);
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialStiffnessProportional
<
spatial_dimension
>::
initMaterial
()
{
AKANTU_DEBUG_IN
();
MaterialElastic
<
spatial_dimension
>::
initMaterial
();
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialStiffnessProportional
<
spatial_dimension
>::
computeStress
(
ElementType
el_type
,
GhostType
ghost_type
)
{
AKANTU_DEBUG_IN
();
Array
<
UInt
>
&
elem_filter
=
this
->
element_filter
(
el_type
,
ghost_type
);
Array
<
Real
>
&
stress_visc
=
stress_viscosity
(
el_type
,
ghost_type
);
Array
<
Real
>
&
stress_el
=
stress_elastic
(
el_type
,
ghost_type
);
MaterialElastic
<
spatial_dimension
>::
computeStress
(
el_type
,
ghost_type
);
Array
<
Real
>
&
velocity
=
this
->
model
.
getVelocity
();
Array
<
Real
>
strain_rate
(
0
,
spatial_dimension
*
spatial_dimension
,
"strain_rate"
);
this
->
model
.
getFEEngine
().
gradientOnIntegrationPoints
(
velocity
,
strain_rate
,
spatial_dimension
,
el_type
,
ghost_type
,
elem_filter
);
Array
<
Real
>::
matrix_iterator
strain_rate_it
=
strain_rate
.
begin
(
spatial_dimension
,
spatial_dimension
);
Array
<
Real
>::
matrix_iterator
stress_visc_it
=
stress_visc
.
begin
(
spatial_dimension
,
spatial_dimension
);
Array
<
Real
>::
matrix_iterator
stress_el_it
=
stress_el
.
begin
(
spatial_dimension
,
spatial_dimension
);
MATERIAL_STRESS_QUADRATURE_POINT_LOOP_BEGIN
(
el_type
,
ghost_type
);
Matrix
<
Real
>
&
grad_v
=
*
strain_rate_it
;
Matrix
<
Real
>
&
sigma_visc
=
*
stress_visc_it
;
Matrix
<
Real
>
&
sigma_el
=
*
stress_el_it
;
MaterialElastic
<
spatial_dimension
>::
computeStressOnQuad
(
grad_v
,
sigma_visc
);
sigma_visc
*=
alpha
;
sigma_el
.
copy
(
sigma
);
sigma
+=
sigma_visc
;
++
strain_rate_it
;
++
stress_visc_it
;
++
stress_el_it
;
MATERIAL_STRESS_QUADRATURE_POINT_LOOP_END
;
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialStiffnessProportional
<
spatial_dimension
>::
computePotentialEnergy
(
ElementType
el_type
,
GhostType
ghost_type
)
{
AKANTU_DEBUG_IN
();
if
(
ghost_type
!=
_not_ghost
)
return
;
Array
<
Real
>
&
stress_el
=
stress_elastic
(
el_type
,
ghost_type
);
Array
<
Real
>::
matrix_iterator
stress_el_it
=
stress_el
.
begin
(
spatial_dimension
,
spatial_dimension
);
Real
*
epot
=
this
->
potential_energy
(
el_type
,
ghost_type
).
storage
();
MATERIAL_STRESS_QUADRATURE_POINT_LOOP_BEGIN
(
el_type
,
ghost_type
);
Matrix
<
Real
>
&
sigma_el
=
*
stress_el_it
;
MaterialElastic
<
spatial_dimension
>::
computePotentialEnergyOnQuad
(
grad_u
,
sigma_el
,
*
epot
);
epot
++
;
++
stress_el_it
;
MATERIAL_STRESS_QUADRATURE_POINT_LOOP_END
;
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
INSTANTIATE_MATERIAL
(
MaterialStiffnessProportional
);
}
// namespace akantu
Event Timeline
Log In to Comment