1 DEPL2 = FORMULE(REEL="""(REEL:INST) =
2 SIN(OMEGAA*INST)/(OMEGAA**2) """)
3 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)