11 MODELE=AFFE_MODELE(MAILLAGE=MAIL,
12 AFFE=_F(GROUP_MA='OBJET',
13 PHENOMENE='MECANIQUE',
14 MODELISATION='3D',),);
17 ACIER=DEFI_MATERIAU(ELAS=_F(E=2.1E11,
21 CHMAT=AFFE_MATERIAU(MAILLAGE=MAIL,
22 AFFE=_F(GROUP_MA='OBJET',
25 CARELEM=AFFE_CARA_ELEM(MODELE=MODELE,
26 POUTRE=_F(GROUP_MA='OBJET',
30 # CONDITIONS AUX LIMITES
32 BLOQUAGE=AFFE_CHAR_MECA(MODELE=MODELE,
33 DDL_IMPO=_F(GROUP_MA='ENCAST',
34 LIAISON='ENCASTRE',),);
35 #MATRICES ASSEMBLEES K, M
38 MACRO_MATR_ASSE(MODELE=MODELE,
42 NUME_DDL=CO('NUMEDDL'),
43 MATR_ASSE=(_F(MATRICE=CO('RIGIDITE'),
45 _F(MATRICE=CO('MASSE'),
46 OPTION='MASS_MECA',),),);
49 MODES=MODE_ITER_SIMULT(MATR_A=RIGIDITE,
54 # MODES AU FORMAT GMSH
56 IMPR_RESU(MODELE=MODELE,
59 RESU=_F(MAILLAGE=MAIL,