Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F78676087
patch_test_linear_elastic_implicit.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
Thu, Aug 22, 08:31
Size
5 KB
Mime Type
text/x-c
Expires
Sat, Aug 24, 08:31 (1 d, 23 h)
Engine
blob
Format
Raw Data
Handle
20039663
Attached To
rAKA akantu
patch_test_linear_elastic_implicit.cc
View Options
/**
* @file patch_test_linear_elastic_implicit.cc
*
* @author Nicolas Richart <nicolas.richart@epfl.ch>
*
* @date creation: Tue Jan 30 2018
*
* @brief Patch test for SolidMechanics implicit
*
*
* Copyright (©) 2016-2018 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 "patch_test_linear_solid_mechanics_fixture.hh"
/* -------------------------------------------------------------------------- */
#include "non_linear_solver.hh"
/* -------------------------------------------------------------------------- */
using
namespace
akantu
;
TYPED_TEST
(
TestPatchTestSMMLinear
,
Implicit
)
{
std
::
string
filename
=
"material_check_stress_plane_stress.dat"
;
if
(
this
->
plane_strain
)
filename
=
"material_check_stress_plane_strain.dat"
;
this
->
initModel
(
_implicit_dynamic
,
filename
);
const
auto
&
coordinates
=
this
->
mesh
->
getNodes
();
auto
&
displacement
=
this
->
model
->
getDisplacement
();
// set the position of all nodes to the static solution
for
(
auto
&&
tuple
:
zip
(
make_view
(
coordinates
,
this
->
dim
),
make_view
(
displacement
,
this
->
dim
)))
{
this
->
setLinearDOF
(
std
::
get
<
1
>
(
tuple
),
std
::
get
<
0
>
(
tuple
));
}
for
(
UInt
s
=
0
;
s
<
100
;
++
s
)
{
this
->
model
->
solveStep
();
}
auto
ekin
=
this
->
model
->
getEnergy
(
"kinetic"
);
EXPECT_NEAR
(
0
,
ekin
,
1e-16
);
this
->
checkAll
();
#define debug 0
#if debug
this
->
model
->
setBaseName
(
std
::
to_string
(
this
->
type
)
+
"_implicit"
);
this
->
model
->
addDumpField
(
"stress"
);
this
->
model
->
addDumpField
(
"grad_u"
);
this
->
model
->
addDumpFieldVector
(
"internal_force"
);
this
->
model
->
addDumpFieldVector
(
"external_force"
);
this
->
model
->
addDumpField
(
"blocked_dofs"
);
this
->
model
->
addDumpFieldVector
(
"displacement"
);
this
->
model
->
dump
();
#endif
}
/* -------------------------------------------------------------------------- */
TYPED_TEST
(
TestPatchTestSMMLinear
,
Static
)
{
std
::
string
filename
=
"material_check_stress_plane_stress.dat"
;
if
(
this
->
plane_strain
)
filename
=
"material_check_stress_plane_strain.dat"
;
this
->
initModel
(
_static
,
filename
);
auto
&
solver
=
this
->
model
->
getNonLinearSolver
();
solver
.
set
(
"max_iterations"
,
2
);
solver
.
set
(
"threshold"
,
2e-4
);
solver
.
set
(
"convergence_type"
,
SolveConvergenceCriteria
::
_residual
);
this
->
model
->
solveStep
();
this
->
checkAll
();
#define debug 0
#if debug
this
->
model
->
setBaseName
(
std
::
to_string
(
this
->
type
)
+
"_static"
);
this
->
model
->
addDumpField
(
"stress"
);
this
->
model
->
addDumpField
(
"grad_u"
);
this
->
model
->
addDumpFieldVector
(
"internal_force"
);
this
->
model
->
addDumpFieldVector
(
"external_force"
);
this
->
model
->
addDumpField
(
"blocked_dofs"
);
this
->
model
->
addDumpFieldVector
(
"displacement"
);
this
->
model
->
dump
();
#endif
}
/* -------------------------------------------------------------------------- */
TYPED_TEST
(
TestPatchTestSMMLinear
,
ImplicitFiniteDeformation
)
{
std
::
string
filename
=
"material_check_stress_plane_stress_finite_deformation.dat"
;
if
(
this
->
plane_strain
)
filename
=
"material_check_stress_plane_strain_finite_deformation.dat"
;
else
{
SUCCEED
();
return
;
}
this
->
initModel
(
_implicit_dynamic
,
filename
);
const
auto
&
coordinates
=
this
->
mesh
->
getNodes
();
auto
&
displacement
=
this
->
model
->
getDisplacement
();
// set the position of all nodes to the static solution
for
(
auto
&&
tuple
:
zip
(
make_view
(
coordinates
,
this
->
dim
),
make_view
(
displacement
,
this
->
dim
)))
{
this
->
setLinearDOF
(
std
::
get
<
1
>
(
tuple
),
std
::
get
<
0
>
(
tuple
));
}
for
(
UInt
s
=
0
;
s
<
100
;
++
s
)
{
this
->
model
->
solveStep
();
}
auto
ekin
=
this
->
model
->
getEnergy
(
"kinetic"
);
EXPECT_NEAR
(
0
,
ekin
,
1e-16
);
this
->
checkAll
();
#define debug 0
#if debug
this
->
model
->
setBaseName
(
std
::
to_string
(
this
->
type
)
+
"_implicit_finit_def"
);
this
->
model
->
addDumpField
(
"stress"
);
this
->
model
->
addDumpField
(
"grad_u"
);
this
->
model
->
addDumpFieldVector
(
"internal_force"
);
this
->
model
->
addDumpFieldVector
(
"external_force"
);
this
->
model
->
addDumpField
(
"blocked_dofs"
);
this
->
model
->
addDumpFieldVector
(
"displacement"
);
this
->
model
->
dump
();
#endif
}
/* -------------------------------------------------------------------------- */
TYPED_TEST
(
TestPatchTestSMMLinear
,
StaticFiniteDeformation
)
{
std
::
string
filename
=
"material_check_stress_plane_stress_finite_deformation.dat"
;
if
(
this
->
plane_strain
)
{
filename
=
"material_check_stress_plane_strain_finite_deformation.dat"
;
}
else
{
SUCCEED
();
return
;
}
this
->
initModel
(
_static
,
filename
);
auto
&
solver
=
this
->
model
->
getNonLinearSolver
();
solver
.
set
(
"max_iterations"
,
2
);
solver
.
set
(
"threshold"
,
2e-4
);
solver
.
set
(
"convergence_type"
,
SolveConvergenceCriteria
::
_residual
);
this
->
model
->
solveStep
();
this
->
checkAll
();
}
Event Timeline
Log In to Comment