1 DEPL2 = FORMULE(NOM_PARA='INST',VALE='sin(OMEGAA*INST)/(OMEGAA**xx)')
2 DEPLACE2=CALC_FONC_INTERP( FONCTION=DEPL2,
5 PROL_DROITE='LINEAIRE',
6 PROL_GAUCHE='LINEAIRE',
9 MONO_X=CALC_CHAR_SEISME( MATR_MASS=MASSE,
10 DIRECTION=( 1., 0., 0.,),
14 MACRO_PROJ_BASE(BASE=MODE_MEC,MATR_ASSE_GENE=(
15 _F( MATRICE = CO("MASS_GEN"), MATR_ASSE = MASSE),
16 _F( MATRICE = CO("RIGI_GEN"), MATR_ASSE = RIGIDITE)),
17 VECT_ASSE_GENE=_F( VECTEUR = CO("VECT_X"), VECT_ASSE = MONO_X)