Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F84108546
material_cohesive_linear.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
Fri, Sep 20, 19:00
Size
23 KB
Mime Type
text/x-c++
Expires
Sun, Sep 22, 19:00 (2 d)
Engine
blob
Format
Raw Data
Handle
20940869
Attached To
rAKA akantu
material_cohesive_linear.cc
View Options
/**
* @file material_cohesive_linear.cc
*
* @author Mauro Corrado <mauro.corrado@epfl.ch>
* @author Marco Vocialta <marco.vocialta@epfl.ch>
*
* @date creation: Wed Feb 22 2012
* @date last modification: Thu Jan 14 2016
*
* @brief Linear irreversible cohesive law of mixed mode loading with
* random stress definition for extrinsic type
*
* @section LICENSE
*
* Copyright (©) 2010-2012, 2014, 2015 EPFL (Ecole Polytechnique Fédérale de
* Lausanne) Laboratory (LSMS - Laboratoire de Simulation en Mécanique des
* Solides)
*
* Akantu is free software: you can redistribute it and/or modify it under the
* terms of the GNU Lesser General Public License as published by the Free
* Software Foundation, either version 3 of the License, or (at your option) any
* later version.
*
* Akantu is distributed in the hope that it will be useful, but WITHOUT ANY
* WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
* A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more
* details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with Akantu. If not, see <http://www.gnu.org/licenses/>.
*
*/
/* -------------------------------------------------------------------------- */
#include <algorithm>
#include <numeric>
/* -------------------------------------------------------------------------- */
#include "dof_synchronizer.hh"
#include "material_cohesive_linear.hh"
#include "solid_mechanics_model_cohesive.hh"
#include "sparse_matrix.hh"
namespace
akantu
{
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
MaterialCohesiveLinear
<
spatial_dimension
>::
MaterialCohesiveLinear
(
SolidMechanicsModel
&
model
,
const
ID
&
id
)
:
MaterialCohesive
(
model
,
id
),
sigma_c_eff
(
"sigma_c_eff"
,
*
this
),
delta_c_eff
(
"delta_c_eff"
,
*
this
),
insertion_stress
(
"insertion_stress"
,
*
this
),
opening_prec
(
"opening_prec"
,
*
this
),
reduction_penalty
(
"reduction_penalty"
,
*
this
)
{
AKANTU_DEBUG_IN
();
this
->
registerParam
(
"beta"
,
beta
,
Real
(
0.
),
_pat_parsable
|
_pat_readable
,
"Beta parameter"
);
this
->
registerParam
(
"G_c"
,
G_c
,
Real
(
0.
),
_pat_parsable
|
_pat_readable
,
"Mode I fracture energy"
);
this
->
registerParam
(
"penalty"
,
penalty
,
Real
(
0.
),
_pat_parsable
|
_pat_readable
,
"Penalty coefficient"
);
this
->
registerParam
(
"volume_s"
,
volume_s
,
Real
(
0.
),
_pat_parsable
|
_pat_readable
,
"Reference volume for sigma_c scaling"
);
this
->
registerParam
(
"m_s"
,
m_s
,
Real
(
1.
),
_pat_parsable
|
_pat_readable
,
"Weibull exponent for sigma_c scaling"
);
this
->
registerParam
(
"kappa"
,
kappa
,
Real
(
1.
),
_pat_parsable
|
_pat_readable
,
"Kappa parameter"
);
this
->
registerParam
(
"contact_after_breaking"
,
contact_after_breaking
,
false
,
_pat_parsable
|
_pat_readable
,
"Activation of contact when the elements are fully damaged"
);
this
->
registerParam
(
"max_quad_stress_insertion"
,
max_quad_stress_insertion
,
false
,
_pat_parsable
|
_pat_readable
,
"Insertion of cohesive element when stress is high "
"enough just on one quadrature point"
);
this
->
registerParam
(
"recompute"
,
recompute
,
false
,
_pat_parsable
|
_pat_modifiable
,
"recompute solution"
);
this
->
use_previous_delta_max
=
true
;
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialCohesiveLinear
<
spatial_dimension
>::
initMaterial
()
{
AKANTU_DEBUG_IN
();
MaterialCohesive
::
initMaterial
();
/// compute scalars
beta2_kappa2
=
beta
*
beta
/
kappa
/
kappa
;
beta2_kappa
=
beta
*
beta
/
kappa
;
if
(
Math
::
are_float_equal
(
beta
,
0
))
beta2_inv
=
0
;
else
beta2_inv
=
1.
/
beta
/
beta
;
sigma_c_eff
.
initialize
(
1
);
delta_c_eff
.
initialize
(
1
);
insertion_stress
.
initialize
(
spatial_dimension
);
opening_prec
.
initialize
(
spatial_dimension
);
reduction_penalty
.
initialize
(
1
);
if
(
!
Math
::
are_float_equal
(
delta_c
,
0.
))
delta_c_eff
.
setDefaultValue
(
delta_c
);
else
delta_c_eff
.
setDefaultValue
(
2
*
G_c
/
sigma_c
);
if
(
model
->
getIsExtrinsic
())
scaleInsertionTraction
();
opening_prec
.
initializeHistory
();
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialCohesiveLinear
<
spatial_dimension
>::
scaleInsertionTraction
()
{
AKANTU_DEBUG_IN
();
// do nothing if volume_s hasn't been specified by the user
if
(
Math
::
are_float_equal
(
volume_s
,
0.
))
return
;
const
Mesh
&
mesh_facets
=
model
->
getMeshFacets
();
const
auto
&
fe_engine
=
model
->
getFEEngine
();
const
auto
&
fe_engine_facet
=
model
->
getFEEngine
(
"FacetsFEEngine"
);
// loop over facet type
auto
first
=
mesh_facets
.
firstType
(
spatial_dimension
-
1
);
auto
last
=
mesh_facets
.
lastType
(
spatial_dimension
-
1
);
Real
base_sigma_c
=
sigma_c
;
for
(;
first
!=
last
;
++
first
)
{
ElementType
type_facet
=
*
first
;
const
Array
<
std
::
vector
<
Element
>>
&
facet_to_element
=
mesh_facets
.
getElementToSubelement
(
type_facet
);
UInt
nb_facet
=
facet_to_element
.
size
();
UInt
nb_quad_per_facet
=
fe_engine_facet
.
getNbIntegrationPoints
(
type_facet
);
// iterator to modify sigma_c for all the quadrature points of a facet
auto
sigma_c_iterator
=
sigma_c
(
type_facet
).
begin_reinterpret
(
nb_quad_per_facet
,
nb_facet
);
for
(
UInt
f
=
0
;
f
<
nb_facet
;
++
f
,
++
sigma_c_iterator
)
{
const
std
::
vector
<
Element
>
&
element_list
=
facet_to_element
(
f
);
// compute bounding volume
Real
volume
=
0
;
auto
elem
=
element_list
.
begin
();
auto
elem_end
=
element_list
.
end
();
for
(;
elem
!=
elem_end
;
++
elem
)
{
if
(
*
elem
==
ElementNull
)
continue
;
// unit vector for integration in order to obtain the volume
UInt
nb_quadrature_points
=
fe_engine
.
getNbIntegrationPoints
(
elem
->
type
);
Vector
<
Real
>
unit_vector
(
nb_quadrature_points
,
1
);
volume
+=
fe_engine
.
integrate
(
unit_vector
,
elem
->
type
,
elem
->
element
,
elem
->
ghost_type
);
}
// scale sigma_c
*
sigma_c_iterator
-=
base_sigma_c
;
*
sigma_c_iterator
*=
std
::
pow
(
volume_s
/
volume
,
1.
/
m_s
);
*
sigma_c_iterator
+=
base_sigma_c
;
}
}
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialCohesiveLinear
<
spatial_dimension
>::
checkInsertion
(
bool
check_only
)
{
AKANTU_DEBUG_IN
();
const
Mesh
&
mesh_facets
=
model
->
getMeshFacets
();
CohesiveElementInserter
&
inserter
=
model
->
getElementInserter
();
for
(
auto
&&
type_facet
:
mesh_facets
.
elementTypes
(
spatial_dimension
-
1
))
{
ElementType
type_cohesive
=
FEEngine
::
getCohesiveElementType
(
type_facet
);
const
auto
&
facets_check
=
inserter
.
getCheckFacets
(
type_facet
);
auto
&
f_insertion
=
inserter
.
getInsertionFacets
(
type_facet
);
auto
&
f_filter
=
facet_filter
(
type_facet
);
auto
&
sig_c_eff
=
sigma_c_eff
(
type_cohesive
);
auto
&
del_c
=
delta_c_eff
(
type_cohesive
);
auto
&
ins_stress
=
insertion_stress
(
type_cohesive
);
auto
&
trac_old
=
tractions
.
previous
(
type_cohesive
);
auto
&
open_prec
=
opening_prec
(
type_cohesive
);
auto
&
red_penalty
=
reduction_penalty
(
type_cohesive
);
const
auto
&
f_stress
=
model
->
getStressOnFacets
(
type_facet
);
const
auto
&
sigma_lim
=
sigma_c
(
type_facet
);
Real
max_ratio
=
0.
;
UInt
index_f
=
0
;
UInt
index_filter
=
0
;
UInt
nn
=
0
;
UInt
nb_quad_facet
=
model
->
getFEEngine
(
"FacetsFEEngine"
).
getNbIntegrationPoints
(
type_facet
);
UInt
nb_quad_cohesive
=
model
->
getFEEngine
(
"CohesiveFEEngine"
)
.
getNbIntegrationPoints
(
type_cohesive
);
AKANTU_DEBUG_ASSERT
(
nb_quad_cohesive
==
nb_quad_facet
,
"The cohesive element and the corresponding facet do "
"not have the same numbers of integration points"
);
UInt
nb_facet
=
f_filter
.
size
();
// if (nb_facet == 0) continue;
auto
sigma_lim_it
=
sigma_lim
.
begin
();
Matrix
<
Real
>
stress_tmp
(
spatial_dimension
,
spatial_dimension
);
Matrix
<
Real
>
normal_traction
(
spatial_dimension
,
nb_quad_facet
);
Vector
<
Real
>
stress_check
(
nb_quad_facet
);
UInt
sp2
=
spatial_dimension
*
spatial_dimension
;
const
auto
&
tangents
=
model
->
getTangents
(
type_facet
);
const
auto
&
normals
=
model
->
getFEEngine
(
"FacetsFEEngine"
)
.
getNormalsOnIntegrationPoints
(
type_facet
);
auto
normal_begin
=
normals
.
begin
(
spatial_dimension
);
auto
tangent_begin
=
tangents
.
begin
(
tangents
.
getNbComponent
());
auto
facet_stress_begin
=
f_stress
.
begin
(
spatial_dimension
,
spatial_dimension
*
2
);
std
::
vector
<
Real
>
new_sigmas
;
std
::
vector
<
Vector
<
Real
>>
new_normal_traction
;
std
::
vector
<
Real
>
new_delta_c
;
// loop over each facet belonging to this material
for
(
UInt
f
=
0
;
f
<
nb_facet
;
++
f
,
++
sigma_lim_it
)
{
UInt
facet
=
f_filter
(
f
);
// skip facets where check shouldn't be realized
if
(
!
facets_check
(
facet
))
continue
;
// compute the effective norm on each quadrature point of the facet
for
(
UInt
q
=
0
;
q
<
nb_quad_facet
;
++
q
)
{
UInt
current_quad
=
facet
*
nb_quad_facet
+
q
;
const
Vector
<
Real
>
&
normal
=
normal_begin
[
current_quad
];
const
Vector
<
Real
>
&
tangent
=
tangent_begin
[
current_quad
];
const
Matrix
<
Real
>
&
facet_stress_it
=
facet_stress_begin
[
current_quad
];
// compute average stress on the current quadrature point
Matrix
<
Real
>
stress_1
(
facet_stress_it
.
storage
(),
spatial_dimension
,
spatial_dimension
);
Matrix
<
Real
>
stress_2
(
facet_stress_it
.
storage
()
+
sp2
,
spatial_dimension
,
spatial_dimension
);
stress_tmp
.
copy
(
stress_1
);
stress_tmp
+=
stress_2
;
stress_tmp
/=
2.
;
Vector
<
Real
>
normal_traction_vec
(
normal_traction
(
q
));
// compute normal and effective stress
stress_check
(
q
)
=
computeEffectiveNorm
(
stress_tmp
,
normal
,
tangent
,
normal_traction_vec
);
}
// verify if the effective stress overcomes the threshold
Real
final_stress
=
stress_check
.
mean
();
if
(
max_quad_stress_insertion
)
final_stress
=
*
std
::
max_element
(
stress_check
.
storage
(),
stress_check
.
storage
()
+
nb_quad_facet
);
if
(
final_stress
>
*
sigma_lim_it
)
{
if
(
model
->
isDefaultSolverExplicit
())
{
f_insertion
(
facet
)
=
true
;
if
(
check_only
)
continue
;
// store the new cohesive material parameters for each quadrature
// point
for
(
UInt
q
=
0
;
q
<
nb_quad_facet
;
++
q
)
{
Real
new_sigma
=
stress_check
(
q
);
Vector
<
Real
>
normal_traction_vec
(
normal_traction
(
q
));
if
(
spatial_dimension
!=
3
)
normal_traction_vec
*=
-
1.
;
new_sigmas
.
push_back
(
new_sigma
);
new_normal_traction
.
push_back
(
normal_traction_vec
);
Real
new_delta
;
// set delta_c in function of G_c or a given delta_c value
if
(
Math
::
are_float_equal
(
delta_c
,
0.
))
new_delta
=
2
*
G_c
/
new_sigma
;
else
new_delta
=
(
*
sigma_lim_it
)
/
new_sigma
*
delta_c
;
new_delta_c
.
push_back
(
new_delta
);
}
}
else
{
Real
ratio
=
final_stress
/
(
*
sigma_lim_it
);
if
(
ratio
>
max_ratio
)
{
++
nn
;
max_ratio
=
ratio
;
index_f
=
f
;
index_filter
=
f_filter
(
f
);
}
}
}
}
/// Insertion of only 1 cohesive element in case of implicit approach. The
/// one subjected to the highest stress.
if
(
!
model
->
isDefaultSolverExplicit
())
{
const
Communicator
&
comm
=
model
->
getMesh
().
getCommunicator
();
Array
<
Real
>
abs_max
(
comm
.
getNbProc
());
abs_max
(
comm
.
whoAmI
())
=
max_ratio
;
comm
.
allGather
(
abs_max
);
auto
it
=
std
::
max_element
(
abs_max
.
begin
(),
abs_max
.
end
());
Int
pos
=
it
-
abs_max
.
begin
();
if
(
pos
!=
comm
.
whoAmI
())
{
AKANTU_DEBUG_OUT
();
return
;
}
if
(
nn
)
{
f_insertion
(
index_filter
)
=
true
;
if
(
!
check_only
)
{
// Array<Real>::iterator<Matrix<Real> > normal_traction_it =
// normal_traction.begin_reinterpret(nb_quad_facet,
// spatial_dimension, nb_facet);
auto
sigma_lim_it
=
sigma_lim
.
begin
();
for
(
UInt
q
=
0
;
q
<
nb_quad_cohesive
;
++
q
)
{
Real
new_sigma
=
(
sigma_lim_it
[
index_f
]);
Vector
<
Real
>
normal_traction_vec
(
spatial_dimension
,
0.0
);
new_sigmas
.
push_back
(
new_sigma
);
new_normal_traction
.
push_back
(
normal_traction_vec
);
Real
new_delta
;
// set delta_c in function of G_c or a given delta_c value
if
(
!
Math
::
are_float_equal
(
delta_c
,
0.
))
new_delta
=
delta_c
;
else
new_delta
=
2
*
G_c
/
(
new_sigma
);
new_delta_c
.
push_back
(
new_delta
);
}
}
}
}
// update material data for the new elements
UInt
old_nb_quad_points
=
sig_c_eff
.
size
();
UInt
new_nb_quad_points
=
new_sigmas
.
size
();
sig_c_eff
.
resize
(
old_nb_quad_points
+
new_nb_quad_points
);
ins_stress
.
resize
(
old_nb_quad_points
+
new_nb_quad_points
);
trac_old
.
resize
(
old_nb_quad_points
+
new_nb_quad_points
);
del_c
.
resize
(
old_nb_quad_points
+
new_nb_quad_points
);
open_prec
.
resize
(
old_nb_quad_points
+
new_nb_quad_points
);
red_penalty
.
resize
(
old_nb_quad_points
+
new_nb_quad_points
);
for
(
UInt
q
=
0
;
q
<
new_nb_quad_points
;
++
q
)
{
sig_c_eff
(
old_nb_quad_points
+
q
)
=
new_sigmas
[
q
];
del_c
(
old_nb_quad_points
+
q
)
=
new_delta_c
[
q
];
red_penalty
(
old_nb_quad_points
+
q
)
=
false
;
for
(
UInt
dim
=
0
;
dim
<
spatial_dimension
;
++
dim
)
{
ins_stress
(
old_nb_quad_points
+
q
,
dim
)
=
new_normal_traction
[
q
](
dim
);
trac_old
(
old_nb_quad_points
+
q
,
dim
)
=
new_normal_traction
[
q
](
dim
);
open_prec
(
old_nb_quad_points
+
q
,
dim
)
=
0.
;
}
}
}
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialCohesiveLinear
<
spatial_dimension
>::
computeTraction
(
const
Array
<
Real
>
&
normal
,
ElementType
el_type
,
GhostType
ghost_type
)
{
AKANTU_DEBUG_IN
();
/// define iterators
auto
traction_it
=
tractions
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
auto
opening_it
=
opening
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
/// opening_prec is the opening of the previous step in the
/// Newton-Raphson loop
auto
opening_prec_it
=
opening_prec
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
auto
contact_traction_it
=
contact_tractions
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
auto
contact_opening_it
=
contact_opening
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
auto
normal_it
=
normal
.
begin
(
spatial_dimension
);
auto
traction_end
=
tractions
(
el_type
,
ghost_type
).
end
(
spatial_dimension
);
auto
sigma_c_it
=
sigma_c_eff
(
el_type
,
ghost_type
).
begin
();
auto
delta_max_it
=
delta_max
(
el_type
,
ghost_type
).
begin
();
auto
delta_c_it
=
delta_c_eff
(
el_type
,
ghost_type
).
begin
();
auto
damage_it
=
damage
(
el_type
,
ghost_type
).
begin
();
auto
insertion_stress_it
=
insertion_stress
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
auto
reduction_penalty_it
=
reduction_penalty
(
el_type
,
ghost_type
).
begin
();
Vector
<
Real
>
normal_opening
(
spatial_dimension
);
Vector
<
Real
>
tangential_opening
(
spatial_dimension
);
if
(
!
this
->
model
->
isDefaultSolverExplicit
())
this
->
delta_max
(
el_type
,
ghost_type
)
.
copy
(
this
->
delta_max
.
previous
(
el_type
,
ghost_type
));
/// loop on each quadrature point
for
(;
traction_it
!=
traction_end
;
++
traction_it
,
++
opening_it
,
++
opening_prec_it
,
++
normal_it
,
++
sigma_c_it
,
++
delta_max_it
,
++
delta_c_it
,
++
damage_it
,
++
contact_traction_it
,
++
insertion_stress_it
,
++
contact_opening_it
,
++
reduction_penalty_it
)
{
Real
normal_opening_norm
,
tangential_opening_norm
;
bool
penetration
;
Real
current_penalty
=
0.
;
this
->
computeTractionOnQuad
(
*
traction_it
,
*
opening_it
,
*
opening_prec_it
,
*
normal_it
,
*
delta_max_it
,
*
delta_c_it
,
*
insertion_stress_it
,
*
sigma_c_it
,
normal_opening
,
tangential_opening
,
normal_opening_norm
,
tangential_opening_norm
,
*
damage_it
,
penetration
,
*
reduction_penalty_it
,
current_penalty
,
*
contact_traction_it
,
*
contact_opening_it
);
}
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialCohesiveLinear
<
spatial_dimension
>::
checkDeltaMax
(
GhostType
ghost_type
)
{
AKANTU_DEBUG_IN
();
/**
* This function set a predefined value to the parameter
* delta_max_prev of the elements that have been inserted in the
* last loading step for which convergence has not been
* reached. This is done before reducing the loading and re-doing
* the step. Otherwise, the updating of delta_max_prev would be
* done with reference to the non-convergent solution. In this
* function also other variables related to the contact and
* friction behavior are correctly set.
*/
Mesh
&
mesh
=
fem_cohesive
.
getMesh
();
Mesh
::
type_iterator
it
=
mesh
.
firstType
(
spatial_dimension
,
ghost_type
,
_ek_cohesive
);
Mesh
::
type_iterator
last_type
=
mesh
.
lastType
(
spatial_dimension
,
ghost_type
,
_ek_cohesive
);
/**
* the variable "recompute" is set to true to activate the
* procedure that reduce the penalty parameter for
* compression. This procedure is set true only during the phase of
* load_reduction, that has to be set in the maiin file. The
* penalty parameter will be reduced only for the elements having
* reduction_penalty = true.
*/
recompute
=
true
;
for
(;
it
!=
last_type
;
++
it
)
{
Array
<
UInt
>
&
elem_filter
=
element_filter
(
*
it
,
ghost_type
);
UInt
nb_element
=
elem_filter
.
size
();
if
(
nb_element
==
0
)
continue
;
ElementType
el_type
=
*
it
;
/// define iterators
auto
delta_max_it
=
delta_max
(
el_type
,
ghost_type
).
begin
();
auto
delta_max_end
=
delta_max
(
el_type
,
ghost_type
).
end
();
auto
delta_max_prev_it
=
delta_max
.
previous
(
el_type
,
ghost_type
).
begin
();
auto
delta_c_it
=
delta_c_eff
(
el_type
,
ghost_type
).
begin
();
auto
opening_prec_it
=
opening_prec
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
auto
opening_prec_prev_it
=
opening_prec
.
previous
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
/// loop on each quadrature point
for
(;
delta_max_it
!=
delta_max_end
;
++
delta_max_it
,
++
delta_max_prev_it
,
++
delta_c_it
,
++
opening_prec_it
,
++
opening_prec_prev_it
)
{
if
(
*
delta_max_prev_it
==
0
)
/// elements inserted in the last incremental step, that did
/// not converge
*
delta_max_it
=
*
delta_c_it
/
1000
;
else
/// elements introduced in previous incremental steps, for
/// which a correct value of delta_max_prev already exists
*
delta_max_it
=
*
delta_max_prev_it
;
/// in case convergence is not reached, set opening_prec to the
/// value referred to the previous incremental step
*
opening_prec_it
=
*
opening_prec_prev_it
;
}
}
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialCohesiveLinear
<
spatial_dimension
>::
resetVariables
(
GhostType
ghost_type
)
{
AKANTU_DEBUG_IN
();
/**
* This function set the variables "recompute" and
* "reduction_penalty" to false. It is called by solveStepCohesive
* when convergence is reached. Such variables, in fact, have to be
* false at the beginning of a new incremental step.
*/
Mesh
&
mesh
=
fem_cohesive
.
getMesh
();
Mesh
::
type_iterator
it
=
mesh
.
firstType
(
spatial_dimension
,
ghost_type
,
_ek_cohesive
);
Mesh
::
type_iterator
last_type
=
mesh
.
lastType
(
spatial_dimension
,
ghost_type
,
_ek_cohesive
);
recompute
=
false
;
for
(;
it
!=
last_type
;
++
it
)
{
Array
<
UInt
>
&
elem_filter
=
element_filter
(
*
it
,
ghost_type
);
UInt
nb_element
=
elem_filter
.
size
();
if
(
nb_element
==
0
)
continue
;
ElementType
el_type
=
*
it
;
auto
reduction_penalty_it
=
reduction_penalty
(
el_type
,
ghost_type
).
begin
();
auto
reduction_penalty_end
=
reduction_penalty
(
el_type
,
ghost_type
).
end
();
/// loop on each quadrature point
for
(;
reduction_penalty_it
!=
reduction_penalty_end
;
++
reduction_penalty_it
)
{
*
reduction_penalty_it
=
false
;
}
}
}
/* -------------------------------------------------------------------------- */
template
<
UInt
spatial_dimension
>
void
MaterialCohesiveLinear
<
spatial_dimension
>::
computeTangentTraction
(
const
ElementType
&
el_type
,
Array
<
Real
>
&
tangent_matrix
,
const
Array
<
Real
>
&
normal
,
GhostType
ghost_type
)
{
AKANTU_DEBUG_IN
();
/// define iterators
auto
tangent_it
=
tangent_matrix
.
begin
(
spatial_dimension
,
spatial_dimension
);
auto
tangent_end
=
tangent_matrix
.
end
(
spatial_dimension
,
spatial_dimension
);
auto
normal_it
=
normal
.
begin
(
spatial_dimension
);
auto
opening_it
=
opening
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
/// NB: delta_max_it points on delta_max_previous, i.e. the
/// delta_max related to the solution of the previous incremental
/// step
auto
delta_max_it
=
delta_max
.
previous
(
el_type
,
ghost_type
).
begin
();
auto
sigma_c_it
=
sigma_c_eff
(
el_type
,
ghost_type
).
begin
();
auto
delta_c_it
=
delta_c_eff
(
el_type
,
ghost_type
).
begin
();
auto
damage_it
=
damage
(
el_type
,
ghost_type
).
begin
();
auto
contact_opening_it
=
contact_opening
(
el_type
,
ghost_type
).
begin
(
spatial_dimension
);
auto
reduction_penalty_it
=
reduction_penalty
(
el_type
,
ghost_type
).
begin
();
Vector
<
Real
>
normal_opening
(
spatial_dimension
);
Vector
<
Real
>
tangential_opening
(
spatial_dimension
);
for
(;
tangent_it
!=
tangent_end
;
++
tangent_it
,
++
normal_it
,
++
opening_it
,
++
delta_max_it
,
++
sigma_c_it
,
++
delta_c_it
,
++
damage_it
,
++
contact_opening_it
,
++
reduction_penalty_it
)
{
Real
normal_opening_norm
,
tangential_opening_norm
;
bool
penetration
;
Real
current_penalty
=
0.
;
this
->
computeTangentTractionOnQuad
(
*
tangent_it
,
*
delta_max_it
,
*
delta_c_it
,
*
sigma_c_it
,
*
opening_it
,
*
normal_it
,
normal_opening
,
tangential_opening
,
normal_opening_norm
,
tangential_opening_norm
,
*
damage_it
,
penetration
,
*
reduction_penalty_it
,
current_penalty
,
*
contact_opening_it
);
// check if the tangential stiffness matrix is symmetric
// for (UInt h = 0; h < spatial_dimension; ++h){
// for (UInt l = h; l < spatial_dimension; ++l){
// if (l > h){
// Real k_ls = (*tangent_it)[spatial_dimension*h+l];
// Real k_us = (*tangent_it)[spatial_dimension*l+h];
// // std::cout << "k_ls = " << k_ls << std::endl;
// // std::cout << "k_us = " << k_us << std::endl;
// if (std::abs(k_ls) > 1e-13 && std::abs(k_us) > 1e-13){
// Real error = std::abs((k_ls - k_us) / k_us);
// if (error > 1e-10){
// std::cout << "non symmetric cohesive matrix" << std::endl;
// // std::cout << "error " << error << std::endl;
// }
// }
// }
// }
// }
}
AKANTU_DEBUG_OUT
();
}
/* -------------------------------------------------------------------------- */
INSTANTIATE_MATERIAL
(
cohesive_linear
,
MaterialCohesiveLinear
);
}
// akantu
Event Timeline
Log In to Comment