Tests/testcomm9/efica01a.com0

   1 POURSUITE(CODE=_F(  NOM = 'EFICA01A'))
   2
   3 INCLUDE_MATERIAU(   NOM_AFNOR='18MND5',      TYPE_MODELE='REF',
   4                       VARIANTE='A',          TYPE_VALE='NOMI',
   5                      NOM_MATER='MAT3',       INFO=1               )
   6
   7 CHMAT3=AFFE_MATERIAU(  MAILLAGE=MAILLA3,
   8                        AFFE=_F(  TOUT='OUI', MATER = MAT3))
   9
  10 riginor = 2.88E7
  11
  12 TRAN_GE2=DYNA_TRAN_MODAL(  MASS_GENE=MGEN_BIC,   RIGI_GENE=RGEN_BIC,
  13                  METHODE='EULER',
  14                  AMOR_REDUIT=( 0.07,  0.07, ),
  15                 MODE_STAT=MSTA_BIC,EXCIT=(
  16                 _F(  VECT_GENE = VECT_X1,  ACCE = ACCELER1,
  17                        MULT_APPUI = 'OUI',
  18                        DIRECTION = ( 1., 0., 0.,), NOEUD = 'NO1',
  19                        VITE = VITESSE1, DEPL = DEPLACE1),
  20                 _F(  VECT_GENE = VECT_X2,  ACCE = ACCELER2,
  21                        MULT_APPUI = 'OUI',
  22                        DIRECTION = ( 1., 0., 0.,), NOEUD = 'NO11',
  23                        VITE = VITESSE2, DEPL = DEPLACE2)),
  24                 CHOC=_F(  GROUP_NO_1 = 'MASSES1',
  25                        GROUP_NO_2 = 'MASSES2',
  26                        OBSTACLE = GRILLE,
  27                        INTITULE = 'NO2/NO12',
  28                        NORM_OBST = (0., 0., 1.,),
  29                        DIST_1 = 0.4495,
  30                        DIST_2 = 0.4495,
  31                        RIGI_NOR = riginor,
  32                        AMOR_NOR = 0.,
  33                        RIGI_TAN = 0.,
  34                        COULOMB = 0.),
  35                  INCREMENT=_F( INST_INIT = 0.,  INST_FIN = 1.,  PAS = 0.00025),
  36                 ARCHIVAGE=_F(  PAS_ARCH = 8)
  37                 )
  38
  39 LISTIMP=DEFI_LIST_REEL(  DEBUT=0.,
  40                     INTERVALLE=_F(  JUSQU_A = 1.,  NOMBRE = 500))
  41
  42 RESUA1=REST_GENE_PHYS(  RESU_GENE=TRAN_GE1,
  43                         LIST_INST=LISTIMP,
  44                         INTERPOL='LIN',
  45                         NOM_CHAM='DEPL',
  46                         MULT_APPUI='OUI'
  47                        )
  48
  49 FIN()