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