3 DEBUT(CODE:(NOM:'AHLV100A'));
7 AIR=DEFI_MATERIAU(FLUIDE:(RHO:1.3
8 CELE_C:('RI',343.0,0.0)));
10 CHAMPMAT=AFFE_MATERIAU(AFFE:(MATER:AIR
14 GUIDE=AFFE_MODELE(MAILLAGE:MAIL
17 PHENOMENE:'ACOUSTIQUE'
20 CHARACOU=AFFE_CHAR_ACOU(MODELE:GUIDE
21 VITE_FACE:(VNOR:('RI',0.014,0.0)
24 IMPEACOU=AFFE_CHAR_ACOU(MODELE:GUIDE
25 IMPE_FACE:(IMPE:('RI',445.89999999999998,0.0)
28 MACRO_MATR_ASSE(CHAM_MATER:CHAMPMAT
29 MATR_ASSE:(MATRICE:MATASK
31 MATR_ASSE:(MATRICE:MATASM
33 MATR_ASSE:(MATRICE:MATASI
39 VECTELEM=CALC_VECT_ELEM(OPTION:'CHAR_ACOU'
43 IMPR_MATRICE(MATR_ELEM:(GRAIN:'MAILLE'
48 VECTASS=ASSE_VECTEUR(VECT_ELEM:VECTELEM
51 MATASKR=COMB_MATR_ASSE(COMB_R:(PARTIE:'REEL'
55 MATASMR=COMB_MATR_ASSE(COMB_R:(PARTIE:'REEL'
59 MODES=MODE_ITER_SIMULT(MATR_A:MATASKR
61 CALC_FREQ:(OPTION:'BANDE'
64 TEST_RESU(RESU:(RESULTAT:MODES
95 PRECISION:5.0000000000000001E-3
101 PRECISION:5.0000000000000001E-3
103 VALE:874.48199999999997
107 PRECISION:5.0000000000000001E-3
109 VALE:923.55600000000004
113 MATRES=COMB_MATR_ASSE(COMB_C:(MATR_ASSE:MATASK
115 COMB_C:(MATR_ASSE:MATASM
116 COEF_R:-9.8696044000000004E6)
117 COMB_C:(COEF_C:('RI',0.0,3141.5925999999999)
120 IMPR_MATRICE(MATR_ASSE:(GRAIN:'NOEUD'
124 FICHIER:'RESULTAT'));
126 IMPR_MATRICE(MATR_ASSE:(GRAIN:'VALEUR'
130 FICHIER:'RESULTAT'));
132 VECRES=COMB_CHAM_NO(COMB_C:(COEF_C:('RI',0.0,-3141.5925999999999)
135 &MATRES=FACT_LDLT(MATR_ASSE:MATRES);
137 &VECRES=RESO_LDLT(MATR_FACT:MATRES
140 TEST_RESU(CHAM_NO:(CHAM_GD:VECRES
142 VALE_C:('RI',-6.2426000000000004,0.0)
144 CHAM_NO:(CHAM_GD:VECRES
146 VALE_C:('RI',-6.2426000000000004,0.0)
148 CHAM_NO:(CHAM_GD:VECRES
150 VALE_C:('RI',6.0236799999999997,1.6387)
152 CHAM_NO:(CHAM_GD:VECRES
154 VALE_C:('RI',6.0236799999999997,1.6387)
157 CHNODBEL=CALC_CHAM_ELEM(MODELE:GUIDE
159 OPTION:'PRES_ELNO_DBEL'
162 TEST_RESU(CHAM_ELEM:(CHAM_GD:CHNODBEL
164 VALE:109.90000000000001
167 CHAM_ELEM:(CHAM_GD:CHNODBEL
169 VALE:109.90000000000001
172 CHAM_ELEM:(CHAM_GD:CHNODBEL
174 VALE:109.90000000000001
177 CHAM_ELEM:(CHAM_GD:CHNODBEL
179 VALE:109.90000000000001
183 PREEL=CALC_CHAM_ELEM(MODELE:GUIDE
185 OPTION:'PRES_ELNO_REEL'
188 TEST_RESU(CHAM_ELEM:(CHAM_GD:PREEL
190 VALE:-6.2426000000000004
193 CHAM_ELEM:(CHAM_GD:PREEL
195 VALE:-6.2426000000000004
198 CHAM_ELEM:(CHAM_GD:PREEL
200 VALE:6.0236799999999997
203 CHAM_ELEM:(CHAM_GD:PREEL
205 VALE:6.0236799999999997
209 PIMAG=CALC_CHAM_ELEM(MODELE:GUIDE
211 OPTION:'PRES_ELNO_IMAG'
214 TEST_RESU(CHAM_ELEM:(CHAM_GD:PIMAG
220 CHAM_ELEM:(CHAM_GD:PIMAG
226 CHAM_ELEM:(CHAM_GD:PIMAG
232 CHAM_ELEM:(CHAM_GD:PIMAG
239 PRESHARM=DYNA_LINE_HARM(MATR_MASS:MATASM
248 TEST_RESU(RESU:(NOM_CHAM:'PRES'
251 VALE_C:('RI',-6.2426000000000004,0.0)
254 RESU:(NOM_CHAM:'PRES'
257 VALE_C:('RI',-6.2426000000000004,0.0)
260 RESU:(NOM_CHAM:'PRES'
263 VALE_C:('RI',6.0236799999999997,1.6387)
266 RESU:(NOM_CHAM:'PRES'
269 VALE_C:('RI',6.0236799999999997,1.6387)
273 &PRESHARM=CALC_ELEM(RESULTAT:PRESHARM
276 OPTION:'INTE_ELNO_ACTI'
279 TEST_RESU(RESU:(NOM_CHAM:'INTE_ELNO_ACTI'
283 PRECISION:0.029999999999999999
284 VALE:0.043700000000000003
287 RESU:(NOM_CHAM:'INTE_ELNO_ACTI'
291 PRECISION:0.029999999999999999
292 VALE:0.043700000000000003
295 RESU:(NOM_CHAM:'INTE_ELNO_ACTI'
299 PRECISION:0.029999999999999999
300 VALE:0.043700000000000003
303 RESU:(NOM_CHAM:'INTE_ELNO_ACTI'
307 PRECISION:0.029999999999999999
308 VALE:0.043700000000000003
312 &PRESHARM=CALC_ELEM(RESULTAT:PRESHARM
315 OPTION:'INTE_ELNO_REAC'
318 TEST_RESU(RESU:(NOM_CHAM:'INTE_ELNO_REAC'
327 RESU:(NOM_CHAM:'INTE_ELNO_REAC'
336 RESU:(NOM_CHAM:'INTE_ELNO_REAC'
345 RESU:(NOM_CHAM:'INTE_ELNO_REAC'
355 &PRESHARM=CALC_ELEM(RESULTAT:PRESHARM
358 OPTION:'PRES_ELNO_DBEL'
361 TEST_RESU(RESU:(NOM_CHAM:'PRES_ELNO_DBEL'
365 VALE:109.90000000000001
368 RESU:(NOM_CHAM:'PRES_ELNO_DBEL'
372 VALE:109.90000000000001
375 RESU:(NOM_CHAM:'PRES_ELNO_DBEL'
379 VALE:109.90000000000001
382 RESU:(NOM_CHAM:'PRES_ELNO_DBEL'
386 VALE:109.90000000000001
390 &PRESHARM=CALC_ELEM(RESULTAT:PRESHARM
393 OPTION:'PRES_ELNO_REEL'
396 TEST_RESU(RESU:(NOM_CHAM:'PRES_ELNO_REEL'
400 VALE:-6.2426000000000004
403 RESU:(NOM_CHAM:'PRES_ELNO_REEL'
407 VALE:-6.2426000000000004
410 RESU:(NOM_CHAM:'PRES_ELNO_REEL'
414 VALE:6.0236799999999997
417 RESU:(NOM_CHAM:'PRES_ELNO_REEL'
421 VALE:6.0236799999999997
425 &PRESHARM=CALC_ELEM(RESULTAT:PRESHARM
428 OPTION:'PRES_ELNO_IMAG'
431 TEST_RESU(RESU:(NOM_CHAM:'PRES_ELNO_IMAG'
439 RESU:(NOM_CHAM:'PRES_ELNO_IMAG'
447 RESU:(NOM_CHAM:'PRES_ELNO_IMAG'
456 RESU:(NOM_CHAM:'PRES_ELNO_IMAG'