11 MAIL=DEFI_GROUP(reuse =MAIL,
13 CREA_GROUP_MA=_F(NOM='TOUT',
16 MODMECA=AFFE_MODELE(MAILLAGE=MAIL,
17 AFFE=_F(GROUP_MA='TOUT',
18 PHENOMENE='MECANIQUE',
19 MODELISATION='3D',),);
21 ACIER=DEFI_MATERIAU(ELAS=_F(E=2.E11,
24 CHMAT=AFFE_MATERIAU(MAILLAGE=MAIL,
27 # CONDITIONS AUX LIMITES ET CHARGEMENT
28 #POINT A : ENCASTREMENT
30 BLOQUAGE=AFFE_CHAR_MECA(MODELE=MODMECA,
31 DDL_IMPO=_F(GROUP_MA='ENCAST',
32 LIAISON='ENCASTRE',),);
33 #POINT B : FORCE IMPOSEE
35 CHARGT=AFFE_CHAR_MECA(MODELE=MODMECA,
36 FORCE_NODALE=_F(GROUP_NO='PB',
38 # RESOLUTION DU PROBLEME ELASTIQUE
40 RESU1=MECA_STATIQUE(MODELE=MODMECA,
42 EXCIT=(_F(CHARGE=BLOQUAGE,),
43 _F(CHARGE=CHARGT,),),);
46 RESU1=CALC_ELEM(reuse =RESU1,
48 OPTION='EFGE_ELNO_DEPL',);
49 # RESULTATS FORMAT GMSH
51 IMPR_RESU(MODELE=MODMECA,
53 RESU=_F(MAILLAGE=MAIL,
55 NOM_CHAM=('DEPL','EFGE_ELNO_DEPL',),),);