Exemple d'utilisation
=====================

L'utilisation de CALC_AMOR_MODAL nécessite le calcul des modes propres de la structure sur des ressorts de sol sous la forme d'un concept de type mode_meca et d'un concept de type table_sdaster de ces modes calculé au moyen de la commande POST_ELEM [:external:ref:`U4.61.04 <U4.61.04>`].

L'exemple suivant est extrait du 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., 0.3, 30., 1.5, 100., 1.5, ) )


    #

    FR=DEFI_FONCTION( NOM_PARA='FREQ',

    VALE=( 0., 0.0, 10., 0.05, 30., 0.75, 100., 0.75, ) )


    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, KRZ = 3.2E14),

    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,),

    HOMOGENE = 'NON')

    )