Exemples de fichiers de commandes
=================================


Calcul mécanique avec une commande globale (STAT_NON_LINE) :
------------------------------------------------------------

**DEPIMP** = **AFFE_CHAR_CINE** ( MODELE=MOD,

MECA_IMPO=_F( GROUP_MA = 'LCD1', DY = -2.0))

RESU=STAT_NON_LINE( MODELE=MOD, CHAM_MATER=CHMAT,

EXCIT= _F( **CHARGE**  = **DEPIMP** , FONC_MULT = FONC),

...)


Charges cinématiques pour un calcul de modes propres :
------------------------------------------------------

**CHARCINE** = **AFFE_CHAR_CINE** (MODELE=MODEL,

MECA_IMPO=_F(GROUP_MA='GM2', DX=0.0, DY=0.0))

KASS= **ASSE_MATRICE** (MATR_ELEM=KELEM,

NUME_DDL=NUME,

**CHAR_CINE=CHARCINE** ,);

MASS= **ASSE_MATRICE** (MATR_ELEM=MELEM,

NUME_DDL=NUME,

**CHAR_CINE=CHARCINE** ,);

# calcul des modes propres de la structure

MODES=CALC_MODES(MATR_RIGI=KASS,

MATR_MASS=MASS,

CALC_FREQ=_F( NMAX_FREQ=10 ))


Calcul "pas à pas" en utilisant les commandes FACTORISER et RESOUDRE :
----------------------------------------------------------------------

**CHCINE=AFFE_CHAR_CINE** ( MODELE=MO, MECA_IMPO=(

_F( GROUP_NO = 'SUPY', DY = 0.),

_F( GROUP_NO = 'CHARGE', DX = -1.)))

MEL=CALC_MATR_ELEM( MODELE=MO, CHAM_MATER=CHMAT, OPTION='RIGI_MECA')

NU=NUME_DDL( MATR_RIGI=MEL )

MATAS= **ASSE_MATRICE** ( MATR_ELEM=MEL, NUME_DDL=NU, **CHAR_CINE=CHCINE** )

SCMBRE=CREA_CHAMP( ... )

**VCINE=CALC_CHAR_CINE** ( NUME_DDL=NU, **CHAR_CINE=CHCINE**  )

MATAS=FACTORISER(reuse=MATAS, MATR_ASSE=MATAS )

DEP= **RESOUDRE** (MATR=MATAS, CHAM_NO=SCMBRE, **CHAM_CINE=VCINE** )