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='POU_D_T',),);
21 ACIER=DEFI_MATERIAU(ELAS=_F(E=2.E10,
24 CHMAT=AFFE_MATERIAU(MAILLAGE=MAIL,
32 CARA_POU=AFFE_CARA_ELEM(MODELE=MODMECA,
33 POUTRE=_F(GROUP_MA='TOUT',
38 # CONDITIONS AUX LIMITES ET CHARGEMENT
40 #POINT A : ENCASTREMENT
42 BLOQUAGE=AFFE_CHAR_MECA(MODELE=MODMECA,
43 DDL_IMPO=_F(GROUP_NO='PA',
44 LIAISON='ENCASTRE',),);
45 #POINT B : FORCE IMPOSEE
47 CHARGT=AFFE_CHAR_MECA(MODELE=MODMECA,
48 FORCE_NODALE=_F(GROUP_NO='PB',
50 # RESOLUTION DU PROBLEME ELASTIQUE
52 RESU1=MECA_STATIQUE(MODELE=MODMECA,
55 EXCIT=(_F(CHARGE=BLOQUAGE,),
56 _F(CHARGE=CHARGT,),),);
59 RESU1=CALC_ELEM(reuse =RESU1,
61 OPTION='EFGE_ELNO_DEPL',);
62 # RESULTATS FORMAT GMSH
64 IMPR_RESU(MODELE=MODMECA,
66 RESU=_F(MAILLAGE=MAIL,
68 NOM_CHAM=('DEPL','EFGE_ELNO_DEPL',),),);