1@Parser IsotropicMisesCreep;
2@Behaviour SiCCreep;
3@Author    É. Brunon;
4@Date      06/12/07;
5
6@Description{
7 Matériaux RCG-T et RCG-R
8 Un point sur le carbure de Silicium
9 NT SESC/LIAC 02-024 ind 0 de décembre 2002
10 J.M. ESCLEINE
11 §8.4.2 Page 34
12}
13
14@ExternalStateVar real flux;
15
16@StaticVar real A =  4.4e3;
17@StaticVar real B = 76.0e3;
18@StaticVar real a =  1.0e-37;
19
20@LocalVar real AF1;
21@LocalVar real AF3;
22
23@InitLocalVars{
24  AF1   = A*exp(-B/(T+theta*dT));
25  AF3   = a*(flux+theta*dflux);
26}
27
28@FlowRule{
29  df_dseq  = AF1+AF3;
30  f        = seq*df_dseq;
31}
32