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 [:external:ref:`U4.61.04 <U4.61.04>`] command.

The following example is taken from test SDLL109B.


.. code-block:: text


    # 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')

    )