4. Exemple dans le cas d’un acier

On présente un exemple de création du champ de variables internes initial (avec 70% de ferrite, 30% de bainite et le reste à zéro).

phasinit = CREA_CHAMP(OPERATION ='AFFE',
                      TYPE_CHAM = 'CART_VAR2_R',
                      MAILLAGE = mail,
                      AFFE =_F(    TOUT = 'OUI',
                      NOM_CMP = ('V1','V2','V3','V4','V5','V6','V7'),
                      VALE = (0.7,0.0,0.3,0.0,0,1.,0.))),

Puis on calcule l’évolution thermique:

tempe = THER_LINEAIRE(MODELE = moth,
                      CHAM_MATER = chmat ,
                      EXCIT = _F(CHARGE    = chth1),
                      INCREMENT = (LIST_INST= lr8),
                      TEMP_INIT =(VALE  = 700),)

Enfin on calcule l’évolution des phases métallurgiques:

tempe = CALC_META (reuse = tempe,
                   MODELE = moth,
                   CHAM_MATER = chmat,
                   RESULTAT = tempe,
                   ETAT_INIT =_F(META_INIT_ELNO = phasinit),
                   COMPORTEMENT =_F(RELATION ='ACIER',TOUT = 'OUI'))