1 POURSUITE(CODE=_F( NOM = 'EFICA01A'))
3 INCLUDE_MATERIAU( NOM_AFNOR='18MND5', TYPE_MODELE='REF',
4 VARIANTE='A', TYPE_VALE='NOMI',
5 NOM_MATER='MAT3', INFO=1 )
7 CHMAT3=AFFE_MATERIAU( MAILLAGE=MAILLA3,
8 AFFE=_F( TOUT='OUI', MATER = MAT3))
12 TRAN_GE2=DYNA_TRAN_MODAL( MASS_GENE=MGEN_BIC, RIGI_GENE=RGEN_BIC,
14 AMOR_REDUIT=( 0.07, 0.07, ),
15 MODE_STAT=MSTA_BIC,EXCIT=(
16 _F( VECT_GENE = VECT_X1, ACCE = ACCELER1,
18 DIRECTION = ( 1., 0., 0.,), NOEUD = 'NO1',
19 VITE = VITESSE1, DEPL = DEPLACE1),
20 _F( VECT_GENE = VECT_X2, ACCE = ACCELER2,
22 DIRECTION = ( 1., 0., 0.,), NOEUD = 'NO11',
23 VITE = VITESSE2, DEPL = DEPLACE2)),
24 CHOC=_F( GROUP_NO_1 = 'MASSES1',
25 GROUP_NO_2 = 'MASSES2',
27 INTITULE = 'NO2/NO12',
28 NORM_OBST = (0., 0., 1.,),
35 INCREMENT=_F( INST_INIT = 0., INST_FIN = 1., PAS = 0.00025),
36 ARCHIVAGE=_F( PAS_ARCH = 8)
39 LISTIMP=DEFI_LIST_REEL( DEBUT=0.,
40 INTERVALLE=_F( JUSQU_A = 1., NOMBRE = 500))
42 RESUA1=REST_GENE_PHYS( RESU_GENE=TRAN_GE1,