Exemples/eficas/fort.11

   1 DEPL2 = FORMULE(REEL="""(REEL:INST) =
   2 SIN(OMEGAA*INST)/(OMEGAA**2) """)
   3 DEPLACE2=CALC_FONC_INTERP( FONCTION=DEPL2,
   4                            LIST_PARA=L_INST,
   5                            PROL_DROITE='LINEAIRE',
   6                            PROL_GAUCHE='LINEAIRE',
   7                            NOM_RESU='DEPL'       )
   8
   9 MONO_X=CALC_CHAR_SEISME(  MATR_MASS=MASSE,
  10                           DIRECTION=( 1., 0., 0.,),
  11                           MONO_APPUI='OUI' )
  12
  13
  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)
  18                )
  19
  20
  21 RETOUR()