5. Example of use

The use of CALC_AMOR_MODAL requires the calculation of the natural modes of the structure on ground springs in the form of a mode_meca concept and a table_sdaster concept of these modes calculated using the POST_ELEM [U4.61.04] command.

The following example is taken from test SDLL109B.

# CALCUL DES QUANTITES MODALES -----------------------------------------


MODE0 = CALC_MODES (MATR_RIGI = RIGIDITE,

MATR_MASS = MASSE,

OPTION = 'PLUS_PETITE',

CALC_FREQ =_F (NMAX_FREQ = 33),

SOLVEUR_MODAL =_F (DIM_SOUS_ESPACE = 125)


MODE0 = NORM_MODE (reuse= MODE0, MODE = MODE0,

NORME =' TRAN_ROTA ',

MASS_INER = MASSESTR)


EPOT = POST_ELEM (MODELE = STICKMOD,

RESULTAT = MODE0,

CHAM_MATER = CHAMPMAT,

CARA_ELEM = CARA_ELE,

MASS_INER =( _F (GROUP_MA =( 'MASSES', '', 'LIAI_SOL', 'LIAI_NOE',

'POU_D_T',),),

_F (TOUT =' OUI ',),),)

#

FT= DEFI_FONCTION (NOM_PARA =' FREQ ',

VALE =( 0., 0.0, 10., 10., 0.3, 30., 30., 1.5,))


#

EN= DEFI_FONCTION (NOM_PARA =' FREQ ',

VALE =( 0., 0.0, 10., 10., 0., 0., 10., 10., 10., 10., 0., 10., 0., 5., 5, 5, 5, 0, 5, 5


L_ AMOR = CALC_AMOR_MODAL (

ENER_SOL =_F (MODE_MECA = MODE0,

GROUP_NO_RADIER = 'P1',

KX = 6.295E11, KY = 6.295E11, KZ = 6.864E11,

KRX = 3.188E14, KRY = 3.188E14, = 3.188E14, = 3.188E14), KRZ

AMOR_INTERNE =_F (

ENER_POT = EPOT,

GROUP_MA = ('POU_D_T', 'MASSES', 'LIAI_NOE',),

AMOR_REDUIT = (0.07, 0.07, 0.02,)),

AMOR_SOL =_F (

FONC_AMOR_GEO = (FT, FT, FT, FR, FR, FR, FR,),

HOMOGENE = 'NON')

)