1/*!
2 * \file   lorentz2.mtest
3 * \brief
4 * \author Helfer Thomas
5 * \brief  18 juin 2013
6 */
7
8@UseCastemAccelerationAlgorithm true;
9@StiffnessMatrixType 'Elastic';
10
11@Behaviour<umat> '@MFrontCastemBehavioursBuildPath@' 'umatlorentz2';
12
13@StrainEpsilon 1.e-11;
14@StressEpsilon 1.e-1;
15
16@Real 'young'  3.2e10;
17@Real 'nu'     0.2;
18@Real 'lambda' 'nu*young/((1+nu)*(1-2*nu))';
19@Real 'mu'     'young/(2*(1+nu))';
20
21@Real 'smax'   '150e6';
22@Real 'A' '0.5*(lambda+2*mu)*(smax/young)**2';
23
24@MaterialProperty<constant> 'YoungModulus'     'young';
25@MaterialProperty<constant> 'PoissonRatio'     'nu';
26@MaterialProperty<constant> 'k' '2*A';
27@MaterialProperty<constant> 'g' 'A/(k-A)';
28
29@ExternalStateVariable 'Temperature' 293.15;
30@ImposedStrain 'EXX' {0.:0.,0.4:0.6e-2,0.5:0,
31    0.6:-0.5e-2,0.7:0.,1.0: 1.5e-02};
32
33@Times {0.,0.5 in 10,0.6 in 2,0.7 in 2,
34    1. in 10};
35