3 # 1 - MISE EN DONNEES :
4 # LECTURE DU MAILLAGE MED
6 MAIL=LIRE_MAILLAGE(UNITE=21,
9 # DEFINITION DES ELEMENTS FINIS UTILISES
11 MODELE=AFFE_MODELE(MAILLAGE=MAIL,
13 PHENOMENE='MECANIQUE',
14 MODELISATION='3D',),);
16 # DEFINITION DU MATERIAU UTILISE
18 ACIER=DEFI_MATERIAU(ELAS=_F(E=2.1E11,
22 CHMAT=AFFE_MATERIAU(MAILLAGE=MAIL,
27 # DEFINITION DES CONDITIONS AUX LIMITES
29 BLOQUAGE=AFFE_CHAR_MECA(MODELE=MODELE,
30 DDL_IMPO=_F(GROUP_MA='ABB1A1',
35 # 2 - CALCUL DES CINQ PREMIERS MODES PROPRES
37 # CALCUL DES MATRICES ASSEMBLEES K ET M
39 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,
55 # ECRITURE DES MODES AU FORMAT MED
57 IMPR_RESU(MODELE=MODELE,
59 RESU=_F(MAILLAGE=MAIL,