1 #& MODIF COMMANDE DATE 10/07/2001 AUTEUR ACBHHCD G.DEVESA
2 # CONFIGURATION MANAGEMENT OF EDF VERSION
3 # ======================================================================
4 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6 # REDISTRIBUTION OF THIS FILE.
7 # ======================================================================
21 JdC = JDC_CATA(code='ASTER',
23 regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
25 A_CLASSER(('DEBUT','POURSUITE'),'FIN')),
28 # Type le plus general
29 class entier(ASSD):pass
31 class complexe(ASSD):pass
32 class liste(ASSD):pass
33 class chaine(ASSD):pass
42 def __getitem__(self,key):
43 return aster.getpara(self.get_name(),"TABLE",key[0],key[1])
46 def __getitem__(self,key):
47 return aster.getpara(self.get_name(),"RESULTAT",key[0],key[1])
50 class affe_carte(ASSD):pass
51 class affe_cham_no(ASSD):pass
52 class affe_char_cine(ASSD):pass
53 class affe_char_cine_f(ASSD):pass
54 class asse_matrice(ASSD):pass
55 class asse_vecteur(ASSD):pass
56 class base_modale(ASSD):pass
57 class cabl_precont(ASSD):pass
58 class calc_cham_elem(ASSD):pass
59 class calc_char_cine(ASSD):pass
60 class calc_char_seisme(ASSD):pass
62 class calc_elem(resultat):pass
64 class calc_matr_elem(ASSD):pass
66 class calc_no(resultat):pass
68 class calc_vect_elem(ASSD):pass
69 class cara_elem(ASSD):pass
70 class cara_pout(ASSD):pass
72 class carte(ASSD):pass
73 class carte_depl_r(carte):pass
74 class carte_epsi_r(carte):pass
75 class carte_flux_r(carte):pass
76 class carte_geom_r(carte):pass
77 class carte_inst_r(carte):pass
78 class carte_meta_r(carte):pass
79 class carte_neut_f(carte):pass
80 class carte_neut_r(carte):pass
81 class carte_sief_r(carte):pass
82 class carte_temp_f(carte):pass
83 class carte_temp_r(carte):pass
84 class carte_var2_r(carte):pass
86 class cham_gd(ASSD):pass
87 #class cham_elem(ASSD):pass
88 class cham_elem(cham_gd):pass
89 class cham_elem_crit_r(cham_elem):pass
90 class cham_elem_dbel_r(cham_elem):pass
91 class cham_elem_dommag(cham_elem):pass
92 class cham_elem_ener_r(cham_elem):pass
93 class cham_elem_epsi_c(cham_elem):pass
94 class cham_elem_epsi_r(cham_elem):pass
95 class cham_elem_erreur(cham_elem):pass
96 class cham_elem_flux_r(cham_elem):pass
97 class cham_elem_geom_r(cham_elem):pass
98 class cham_elem_hydr_r(cham_elem):pass
99 class cham_elem_meta_r(cham_elem):pass
100 class cham_elem_neut_r(cham_elem):pass
101 class cham_elem_neut_f(cham_elem):pass
102 class cham_elem_pres_r(cham_elem):pass
103 class cham_elem_sief_c(cham_elem):pass
104 class cham_elem_depl_r(cham_elem):pass
105 class cham_elem_temp_r(cham_elem):pass
106 class cham_elem_sief_r(cham_elem):pass
107 class cham_elem_sour_r(cham_elem):pass
108 class cham_elem_vari_r(cham_elem):pass
110 #class cham_gd(ASSD):pass
111 class cham_mater(ASSD):pass
113 #class cham_no(ASSD):pass
114 class cham_no(cham_gd):pass
115 class cham_no_depl_c(cham_no):pass
116 class cham_no_depl_f(cham_no):pass
117 class cham_no_depl_r(cham_no):pass
118 class cham_no_epsi_r(cham_no):pass
119 class cham_no_flux_r(cham_no):pass
120 class cham_no_geom_r(cham_no):pass
121 class cham_no_inst_r(cham_no):pass
122 class cham_no_meta_r(cham_no):pass
123 class cham_no_pres_c(cham_no):pass
124 class cham_no_pres_r(cham_no):pass
125 class cham_no_sief_r(cham_no):pass
126 class cham_no_neut_r(cham_no):pass
127 class cham_no_neut_f(cham_no):pass
128 class cham_no_temp_c(cham_no):pass
129 class cham_no_temp_f(cham_no):pass
130 class cham_no_temp_r(cham_no):pass
131 class cham_no_vanl_r(cham_no):pass
132 class cham_no_var2_r(cham_no):pass
134 class char_acou(ASSD):pass
135 class char_cine_acou(ASSD):pass
136 class char_cine_meca(ASSD):pass
137 class char_cine_ther(ASSD):pass
138 class char_meca(ASSD):pass
139 class char_ther(ASSD):pass
140 class comb_cham_elem(ASSD):pass
141 class comb_cham_no(ASSD):pass
142 class comb_fourier(resultat):pass
143 class comb_matr_asse(ASSD):pass
144 class courbe(ASSD):pass
145 class crea_resu(ASSD):pass
146 class acou_harmo(resultat):pass
147 class dyna_harmo(resultat):pass
148 class dyna_line_harm(resultat):pass
149 class dyna_trans(resultat):pass
151 class evol(resultat):pass
153 class evol_char(evol):pass
154 class evol_elas(evol):pass
155 class evol_noli(evol):pass
156 class evol_ther(evol):pass
158 class extr_mode(ASSD):pass
159 class extr_resu(ASSD):pass
160 class fact_grad(ASSD):pass
161 class fact_ldlt(ASSD):pass
162 class fonction_c(fonction):pass
163 class fond_fiss(ASSD):pass
164 class fourier_elas(resultat):pass
165 class harm_gene(resultat):pass
166 class interf_dyna_clas(ASSD):pass
167 class interspfact(ASSD):pass
168 class lire_miss_3d(ASSD):pass
169 class lire_resu(ASSD):pass
170 class listis(ASSD):pass
171 class listr8(ASSD):pass
172 class macr_elem_dyna(ASSD):pass
173 class macr_elem_stat(ASSD):pass
174 class macro_elas_mult(ASSD):pass
175 class maillage(ASSD):pass
176 class mater(ASSD):pass
178 class matr_asse(ASSD):pass
179 class matr_asse_depl_c(matr_asse):pass
180 class matr_asse_depl_r(matr_asse):pass
181 class matr_asse_gene_c(matr_asse):pass
182 class matr_asse_gene_r(matr_asse):pass
183 class matr_asse_pres_c(matr_asse):pass
184 class matr_asse_pres_r(matr_asse):pass
185 class matr_asse_temp_c(matr_asse):pass
186 class matr_asse_temp_r(matr_asse):pass
188 class matr_elem(ASSD):pass
189 class matr_elem_depl_c(matr_elem):pass
190 class matr_elem_depl_r(matr_elem):pass
191 class matr_elem_pres_c(matr_elem):pass
192 class matr_elem_temp_r(matr_elem):pass
194 class melasflu(ASSD):pass
196 class mode_acou(resultat):pass
197 class mode_cycl(resultat):pass
198 class mode_flamb(resultat):pass
199 class mode_gene(resultat):pass
200 class mode_iter_inv(resultat):pass
201 class mode_meca(resultat):pass
202 class mode_meca_c(mode_meca):pass
203 class mode_stat(resultat):pass
205 class modele(ASSD):pass
206 class modele_gene(ASSD):pass
207 class mult_elas(resultat):pass
208 class norm_mode(ASSD):pass
209 class nume_ddl(ASSD):pass
210 class nume_ddl_gene(ASSD):pass
211 class obstacle(ASSD):pass
212 class post_elem(ASSD):pass
213 class prod_matr_cham(ASSD):pass
214 class proj_champ(ASSD):pass
215 class recu_champ(ASSD):pass
216 class reso_grad(ASSD):pass
217 class reso_ldlt(ASSD):pass
218 class rest_base_phys(ASSD):pass
219 class spectre(ASSD):pass
220 class squelette(maillage):pass
221 class surface(ASSD):pass
223 class tabl_aire_int(table):pass
224 class tabl_calc_g_loca(table):pass
225 class tabl_calc_g_th(table):pass
226 class tabl_cara_geom(table):pass
227 class tabl_char_limite(table):pass
228 class tabl_ener_elas(table):pass
229 class tabl_ener_pot(table):pass
230 class tabl_ener_cin(table):pass
231 class tabl_ener_totale(table):pass
232 class tabl_fonc(table):pass
233 class tabl_fonc_max(tabl_fonc):pass
234 class tabl_fonc_rms(tabl_fonc):pass
235 class tabl_indic_ener(table):pass
236 class tabl_indic_seuil(table):pass
237 class tabl_intsp(table):pass
238 class tabl_mass_iner(table):pass
239 class tabl_post_alea(table):pass
240 class tabl_post_dyna(table):pass
241 class tabl_post_f_alea(table):pass
242 class tabl_post_fatig(table):pass
243 class tabl_post_gouj2e(table):pass
244 class tabl_post_k(table):pass
245 class tabl_post_rccm(table):pass
246 class tabl_post_rele(table):pass
247 class tabl_post_simpli(table):pass
248 class tabl_post_usur(table):pass
249 class tabl_reca_weib(table):pass
250 class tabl_rice_tracey(table):pass
251 class tabl_texture(table):pass
252 class tabl_trc(table):pass
253 class tabl_weibull(table):pass
255 class theta_geom(ASSD):pass
256 class tran_gene(ASSD):pass
257 class type_flui_stru(ASSD):pass
258 class valeur(ASSD):pass
259 class vect_asse(ASSD):pass
260 class vect_asse_gene(vect_asse):pass
261 class vect_elem(ASSD):pass
262 class vect_elem_depl_r(vect_elem):pass
263 class vect_elem_pres_c(vect_elem):pass
264 class vect_elem_pres_r(vect_elem):pass
265 class vect_elem_temp_r(vect_elem):pass
267 #& MODIF COMMANDE DATE 11/09/2000 AUTEUR JMBHH01 J.M.PROIX
268 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op= 19,sd_prod=cara_elem,
269 fr="Affectation de caractéristiques à des éléments de structure (barre, cable, poutre, tuyau, plaque, coque, discret)",
270 docu="U4.42.01-F",reentrant='n',
271 regles=(AU_MOINS_UN('POUTRE','COQUE','DISCRET','CABLE','BARRE','MASSIF','ASSE_GRIL','GRILLE'),),
272 MODELE =SIMP(statut='o',typ=modele ),
273 INFO =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
274 VERIF =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
275 POUTRE =FACT(statut='f',min=01,max='**',
276 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
277 MAILLE =SIMP(statut='f',typ=ma,max='**'),
278 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
279 SECTION =SIMP(statut='f',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
280 CARA_SECT =SIMP(statut='f',typ=(cara_pout) ),
281 b_generale =BLOC( condition = "SECTION=='GENERALE'",
282 CARA =SIMP(statut='f',typ='TXM',max='**',
283 into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
284 "AI","JG","IYR2","IZR2","A1",
285 "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
286 "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
287 "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
288 "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
289 "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
290 "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
291 "EPY2","EPZ2","R","R1","R2") ),
292 VALE =SIMP(statut='o',typ='R',max='**'),
293 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
295 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
296 CARA =SIMP(statut='f',typ='TXM',max='**',
297 into=("H","EP","HY","HZ","EPY","EPZ",
298 "H1","HZ1","HY1","EP1","EPY1","EPZ1",
299 "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
300 VALE =SIMP(statut='o',typ='R',max='**'),
301 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
303 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
304 CARA =SIMP(statut='f',typ='TXM',max='**',
305 into=("R","EP","R1","R2","EP1","EP2") ),
306 VALE =SIMP(statut='o',typ='R',max='**'),
307 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
308 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
311 BARRE =FACT(statut='f',min=01,max='**',
312 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
313 MAILLE =SIMP(statut='f',typ=ma,max='**'),
314 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
315 SECTION =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
316 b_generale =BLOC( condition = "SECTION=='GENERALE'",
317 CARA =SIMP(statut='f',typ='TXM',into=("A",) ),
318 VALE =SIMP(statut='o',typ='R' ),
320 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
321 CARA =SIMP(statut='f',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
322 VALE =SIMP(statut='o',typ='R',max=6 ),
324 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
325 CARA =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
326 VALE =SIMP(statut='o',typ='R',max=2 ),
329 COQUE =FACT(statut='f',min=01,max='**',
330 regles=(UN_PARMI('MAILLE','GROUP_MA' ),
331 PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
332 MAILLE =SIMP(statut='f',typ=ma,max='**'),
333 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
334 EPAIS =SIMP(statut='f',typ='R' ),
335 ANGL_REP =SIMP(statut='f',typ='R',min=2,max=2),
336 A_CIS =SIMP(statut='f',typ='R',defaut= 0.8333333),
337 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
338 EXCENTREMENT =SIMP(statut='f',typ='R' ),
339 INER_ROTA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
340 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
342 CABLE =FACT(statut='f',min=01,max='**',
343 regles=(UN_PARMI('MAILLE','GROUP_MA'),
344 UN_PARMI('A','SECTION') ),
345 MAILLE =SIMP(statut='f',typ=ma,max='**'),
346 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
347 N_INIT =SIMP(statut='f',typ='R',defaut= 5000. ),
348 A =SIMP(statut='f',typ='R' ),
349 SECTION =SIMP(statut='f',typ='R' ),
351 DISCRET =FACT(statut='f',min=01,max='**',
352 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
353 NOEUD =SIMP(statut='f',typ=no,max='**'),
354 MAILLE =SIMP(statut='f',typ=ma,max='**'),
355 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
356 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
357 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
358 AMOR_HYST =SIMP(statut='f',typ='R' ),
359 CARA =SIMP(statut='f',typ='TXM',max='**',
360 into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
361 "K_T_N", "K_T_L", "K_TR_N", "K_TR_L",
362 "M_T_D_N","M_TR_D_N","M_T_N",
363 "M_T_L", "M_TR_N", "M_TR_L",
364 "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
365 "A_T_N", "A_T_L", "A_TR_N", "A_TR_L") ),
366 VALE =SIMP(statut='f',typ='R',max='**'),
368 ORIENTATION =FACT(statut='f',min=01,max='**',
369 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
370 MAILLE =SIMP(statut='f',typ=ma,max='**'),
371 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
372 NOEUD =SIMP(statut='f',typ=no,max='**'),
373 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
374 CARA =SIMP(statut='f',typ='TXM',
375 into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
376 VALE =SIMP(statut='f',typ='R',max='**'),
377 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
378 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
380 DEFI_ARC =FACT(statut='f',min=01,max='**',
381 regles=(UN_PARMI('MAILLE','GROUP_MA'),
382 UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
383 'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
384 PRESENT_PRESENT('ORIE_ARC','RAYON'),
385 EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
386 EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
387 EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
388 EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
389 PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
390 PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
391 MAILLE =SIMP(statut='f',typ=ma,max='**'),
392 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
393 ORIE_ARC =SIMP(statut='f',typ='R'),
394 CENTRE =SIMP(statut='f',typ='R',max='**'),
395 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
396 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
397 POIN_TANG =SIMP(statut='f',typ='R',max='**'),
398 NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
399 GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
400 RAYON =SIMP(statut='f',typ='R'),
401 COEF_FLEX =SIMP(statut='f',typ='R'),
402 INDI_SIGM =SIMP(statut='f',typ='R'),
403 COEF_FLEX_XY =SIMP(statut='f',typ='R'),
404 INDI_SIGM_XY =SIMP(statut='f',typ='R'),
405 COEF_FLEX_XZ =SIMP(statut='f',typ='R'),
406 INDI_SIGM_XZ =SIMP(statut='f',typ='R'),
407 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
408 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
410 MASSIF =FACT(statut='f',min=01,max='**',
411 regles=(UN_PARMI('MAILLE','GROUP_MA'),
412 EXCLUS('ANGL_REP','ANGL_AXE'),
413 EXCLUS('ANGL_REP','ORIG_AXE'),
414 PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
415 MAILLE =SIMP(statut='f',typ=ma,max='**'),
416 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
417 ANGL_REP =SIMP(statut='f',typ='R',max=3),
418 ANGL_AXE =SIMP(statut='f',typ='R',max=2),
419 ORIG_AXE =SIMP(statut='f',typ='R',max=3),
421 POUTRE_FLUI =FACT(statut='f',min=01,max='**',
422 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
423 MAILLE =SIMP(statut='f',typ=ma,max='**'),
424 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
425 B_T =SIMP(statut='o',typ='R'),
426 B_N =SIMP(statut='o',typ='R'),
427 B_TN =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
428 A_FLUI =SIMP(statut='o',typ='R'),
429 A_CELL =SIMP(statut='o',typ='R'),
430 COEF_ECHELLE =SIMP(statut='o',typ='R'),
432 GRILLE =FACT(statut='f',min=01,max='**',
433 regles=(UN_PARMI('MAILLE','GROUP_MA'),
434 EXCLUS('ANGL_REP','ORIG_AXE'),
435 ENSEMBLE('ORIG_AXE','AXE')),
436 MAILLE =SIMP(statut='f',typ=ma,max='**'),
437 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
438 SECTION_L =SIMP(statut='o',typ='R'),
439 ANGL_REP =SIMP(statut='f',typ='R',max=2),
440 ANGL_L =SIMP(statut='f',typ='R'),
441 POUR_CENT_L =SIMP(statut='f',typ='R'),
442 POUR_CENT_T =SIMP(statut='f',typ='R'),
443 DIST_N =SIMP(statut='f',typ='R'),
444 ORIG_AXE =SIMP(statut='f',typ='R',max='**'),
445 AXE =SIMP(statut='f',typ='R',max='**'),
446 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
448 RIGI_PARASOL =FACT(statut='f',min=01,max='**',
449 regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
450 UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
451 GROUP_MA =SIMP(statut='o',typ=ma,max='**'),
452 FONC_GROUP =SIMP(statut='f',typ=(fonction) ),
453 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
454 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
455 CARA =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
456 VALE =SIMP(statut='o',typ='R',max='**'),
457 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
458 NOEUD_CENTRE =SIMP(statut='f',typ=no),
459 COOR_CENTRE =SIMP(statut='f',typ='R',max='**'),
461 ASSE_GRIL =FACT(statut='f',min=01,max='**',
462 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
463 MAILLE =SIMP(statut='f',typ=ma,max='**'),
464 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
465 CARA =SIMP(statut='o',typ='TXM',max='**',
466 into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
467 VALE =SIMP(statut='o',typ='R',max='**'),
468 PAS_T =SIMP(statut='o',typ='R'),
469 PAS_N =SIMP(statut='o',typ='R'),
470 ANGL_REP =SIMP(statut='o',typ='R',max='**'),
471 COEF_ECHELLE =SIMP(statut='o',typ='R'),
474 #& MODIF COMMANDE DATE 24/05/2000 AUTEUR VABHHTS J.PELLET
475 def affe_carte_prod(GRANDEUR,**args):
476 if GRANDEUR == "TEMP_R" : return carte_temp_r
477 if GRANDEUR == "FLUX_R" : return carte_flux_r
478 if GRANDEUR == "DEPL_R" : return carte_depl_r
479 if GRANDEUR == "EPSI_R" : return carte_epsi_r
480 if GRANDEUR == "SIEF_R" : return carte_sief_r
481 if GRANDEUR == "META_R" : return carte_meta_r
482 if GRANDEUR == "NEUT_R" : return carte_neut_r
483 if GRANDEUR == "VAR2_R" : return carte_var2_r
484 if GRANDEUR == "TEMP_F" : return carte_temp_f
485 if GRANDEUR == "NEUT_F" : return carte_neut_f
486 if GRANDEUR == "INST_R" : return carte_inst_r
487 if GRANDEUR == "GEOM_R" : return carte_geom_r
488 raise AsException("type de concept resultat non prevu")
490 AFFE_CARTE=OPER(nom="AFFE_CARTE",op= 36,sd_prod=affe_carte_prod,
491 fr="Définition d un champ de grandeur constant, qui peut ensuite être utilisé comme champ initial (par exemple une précontrainte en mécanique)",
492 docu="U4.44.13-C",reentrant='n',
493 MAILLAGE =SIMP(statut='o',typ=maillage ),
494 GRANDEUR =SIMP(statut='o',typ='TXM',
495 into=("DEPL_R","EPSI_R","SIEF_R","VAR2_R",
496 "TEMP_R","META_R","TEMP_F","FLUX_R",
497 "NEUT_R","NEUT_F","INST_R","GEOM_R",) ),
498 AFFE =FACT(statut='o',min=01,max='**',
499 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
500 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
501 GROUP_MA =SIMP(statut='f',typ=grma),
502 MAILLE =SIMP(statut='f',typ=ma ),
503 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
504 VALE =SIMP(statut='f',typ='R',max='**' ),
505 VALE_I =SIMP(statut='f',typ='I',max='**' ),
506 VALE_C =SIMP(statut='f',typ='C',max='**' ),
507 VALE_F =SIMP(statut='f',typ=fonction),
510 #& MODIF COMMANDE DATE 31/05/2000 AUTEUR CIBHHLV L.VIVAN
512 def affe_cham_no_prod(CHAM_NO_AFFE,GRANDEUR,**args):
513 if GRANDEUR == "TEMP_R" : return cham_no_temp_r
514 if GRANDEUR == "TEMP_F" : return cham_no_temp_f
515 if GRANDEUR == "DEPL_R" : return cham_no_depl_r
516 if GRANDEUR == "DEPL_F" : return cham_no_depl_f
517 if GRANDEUR == "SIEF_R" : return cham_no_sief_r
518 if GRANDEUR == "NEUT_R" : return cham_no_neut_r
519 if GRANDEUR == "NEUT_F" : return cham_no_neut_f
520 if GRANDEUR == "INST_R" : return cham_no_inst_r
521 if GRANDEUR == "GEOM_R" : return cham_no_geom_r
522 if GRANDEUR == "VAR2_R" : return cham_no_var2_r
523 if AsType(CHAM_NO_AFFE) == cham_no_temp_r : return cham_no_temp_r
524 if AsType(CHAM_NO_AFFE) == cham_no_depl_r : return cham_no_depl_r
525 if AsType(CHAM_NO_AFFE) == cham_no_sief_r : return cham_no_sief_r
526 raise AsException("type de concept resultat non prevu")
528 AFFE_CHAM_NO=OPER(nom="AFFE_CHAM_NO",op= 52,sd_prod=affe_cham_no_prod
529 ,fr="Affectation de grandeurs réelles pour créer un cham_no_*",
530 docu="U4.44.11-F",reentrant='n',
531 regles=(UN_PARMI('MAILLAGE','CHAM_NO_AFFE'),
532 PRESENT_PRESENT('MAILLAGE','GRANDEUR','AFFE'),
533 EXCLUS('NUME_DDL','CHAM_NO'),),
534 CHAM_NO_AFFE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_temp_f,cham_no_depl_r,
535 cham_no_depl_f,cham_no_sief_r ) ),
536 MAILLAGE =SIMP(statut='f',typ=maillage ),
537 GRANDEUR =SIMP(statut='f',typ='TXM',into=("TEMP_R","DEPL_R","SIEF_R","VAR2_R",
538 "TEMP_F","DEPL_F","INST_R","GEOM_R",
539 "NEUT_R","NEUT_F") ),
540 AFFE =FACT(statut='f',min=01,max='**',
541 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
542 UN_PARMI('VALE','VALE_F','VALE_R','FONCTION'),),
543 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
544 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
545 NOEUD =SIMP(statut='f',typ=no,max='**'),
546 # NOM_CMP est il obligatoire
547 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
548 VALE_R =SIMP(statut='f',typ='R',max='**',defaut= 0.E+0 ),
549 VALE =SIMP(statut='f',typ='R',max='**'),
550 VALE_F =SIMP(statut='f',typ=fonction,max='**'),
551 FONCTION =SIMP(statut='f',typ=fonction,max='**'),
553 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
554 NUME_DDL =SIMP(statut='f',typ=nume_ddl ),
555 CHAM_NO =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_temp_f,cham_no_depl_r,
556 cham_no_depl_f,cham_no_sief_r ) ),
558 #& MODIF COMMANDE DATE 12/05/99 AUTEUR VABHHTS J.PELLET
559 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op= 68,sd_prod=char_acou,
560 fr="Affectation de charges et conditions aux limites acoustiques constantes",
561 docu="U4.44.04-E",reentrant='n',
562 regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
563 MODELE =SIMP(statut='o',typ=modele ),
564 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
565 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.,),
566 PRES_IMPO =FACT(statut='f',min=01,max='**',
567 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
568 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
569 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
570 MAILLE =SIMP(statut='f',typ=ma,max='**'),
571 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
572 NOEUD =SIMP(statut='f',typ=no,max='**'),
573 PRES =SIMP(statut='o',typ='C' ),
575 VITE_FACE =FACT(statut='f',min=01,max='**',
576 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE' ),),
577 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
578 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
579 MAILLE =SIMP(statut='f',typ=ma,max='**'),
580 VNOR =SIMP(statut='o',typ='C' ),
582 IMPE_FACE =FACT(statut='f',min=01,max='**',
583 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE' ),),
584 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
585 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
586 MAILLE =SIMP(statut='f',typ=ma,max='**'),
587 IMPE =SIMP(statut='o',typ='C' ),
589 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
590 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
591 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
592 NOEUD =SIMP(statut='f',typ=no,max='**'),
593 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
594 MAILLE =SIMP(statut='f',typ=ma,max='**'),
595 DDL =SIMP(statut='o',typ='TXM',max='**'),
598 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
599 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
600 if MECA_IMPO != None : return char_cine_meca
601 if THER_IMPO != None : return char_cine_ther
602 if ACOU_IMPO != None : return char_cine_acou
603 raise AsException("type de concept resultat non prevu")
605 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
606 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
607 docu="U4.44.03-E",reentrant='n',
608 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
609 EXCLUS('MECA_IMPO','THER_IMPO'),
610 EXCLUS('MECA_IMPO','ACOU_IMPO'),
611 EXCLUS('THER_IMPO','ACOU_IMPO'),),
612 MODELE =SIMP(statut='o',typ=modele ),
613 MECA_IMPO =FACT(statut='f',min=01,max='**',
614 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
615 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
616 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
617 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
618 NOEUD =SIMP(statut='f',typ=no,max='**'),
619 DX =SIMP(statut='f',typ='R' ),
620 DY =SIMP(statut='f',typ='R' ),
621 DZ =SIMP(statut='f',typ='R' ),
622 DRX =SIMP(statut='f',typ='R' ),
623 DRY =SIMP(statut='f',typ='R' ),
624 DRZ =SIMP(statut='f',typ='R' ),
625 GRX =SIMP(statut='f',typ='R' ),
626 PRES =SIMP(statut='f',typ='R' ),
627 TEMP =SIMP(statut='f',typ='R' ),
628 PHI =SIMP(statut='f',typ='R' ),
630 THER_IMPO =FACT(statut='f',min=01,max='**',
631 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
632 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
633 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
634 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
635 NOEUD =SIMP(statut='f',typ=no,max='**'),
636 TEMP_SUP =SIMP(statut='f',typ='R' ),
637 TEMP =SIMP(statut='f',typ='R' ),
638 TEMP_INF =SIMP(statut='f',typ='R' ),
640 ACOU_IMPO =FACT(statut='f',min=01,max='**',
641 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
642 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
643 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
644 NOEUD =SIMP(statut='f',typ=no,max='**'),
645 PRES =SIMP(statut='o',typ='C' ),
647 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
649 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
650 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
651 if MECA_IMPO != None : return char_cine_meca
652 if THER_IMPO != None : return char_cine_ther
653 raise AsException("type de concept resultat non prevu")
655 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
656 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
657 docu="U4.44.03-E",reentrant='n',
658 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
659 EXCLUS('MECA_IMPO','THER_IMPO'),),
660 MODELE =SIMP(statut='o',typ=modele ),
661 MECA_IMPO =FACT(statut='f',min=01,max='**',
662 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
663 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
664 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
665 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
666 NOEUD =SIMP(statut='f',typ=no,max='**'),
667 DX =SIMP(statut='f',typ=fonction ),
668 DY =SIMP(statut='f',typ=fonction ),
669 DZ =SIMP(statut='f',typ=fonction ),
670 DRX =SIMP(statut='f',typ=fonction ),
671 DRY =SIMP(statut='f',typ=fonction ),
672 DRZ =SIMP(statut='f',typ=fonction ),
673 GRX =SIMP(statut='f',typ=fonction ),
674 PRES =SIMP(statut='f',typ=fonction ),
675 TEMP =SIMP(statut='f',typ=fonction ),
676 PHI =SIMP(statut='f',typ=fonction ),
678 THER_IMPO =FACT(statut='f',min=01,max='**',
679 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
680 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
681 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
682 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
683 NOEUD =SIMP(statut='f',typ=no,max='**'),
684 TEMP_SUP =SIMP(statut='f',typ=fonction ),
685 TEMP =SIMP(statut='f',typ=fonction ),
686 TEMP_INF =SIMP(statut='f',typ=fonction ),
688 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
690 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR UFBHHLL C.CHAVANT
691 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op= 7,sd_prod=char_meca
692 ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
693 docu="U4.44.01-F",reentrant='n',
694 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
695 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
696 'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
697 'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
698 'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
699 'LIAISON_UNIL_NO','LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
700 'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
701 'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
702 'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
704 EXCLUS('LIAISON_UNIL_NO','CONTACT'),),
706 MODELE =SIMP(statut='o',typ=(modele) ),
707 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
708 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
709 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
710 PESANTEUR =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=04,max=04),
711 ROTATION =SIMP(statut='f',typ='R',fr="Champ de rotation",min=04,max=04),
712 b_rotation =BLOC ( condition = "ROTATION != None",
713 CENTRE =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=03),
715 PRES_CALCULEE =SIMP(statut='f',fr="Champ de pression issu d un autre calcul",typ=evol_char ),
716 TEMP_CALCULEE =SIMP(statut='f',fr="Champ de température issu d un autre calcul",typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
717 HYDR_CALCULEE =SIMP(statut='f',fr="Champ d hydratation issu d un autre calcul",typ=evol_ther ),
718 SECH_CALCULEE =SIMP(statut='f',fr="Champ de séchage issu d un autre calcul",typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
719 EPSA_CALCULEE =SIMP(statut='f',fr="Champ de déformation anélastique issu d un autre calcul",typ=evol_noli ),
720 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
722 DDL_IMPO =FACT(statut='f',min=01,max='**',
723 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
724 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
725 'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
726 'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
727 'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
728 'VO6','WI6','WO6','WO','WI1','WO1'),),
729 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
730 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
731 NOEUD =SIMP(statut='f',typ=no,max='**'),
732 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
733 MAILLE =SIMP(statut='f',typ=ma,max='**'),
734 DX =SIMP(statut='f',typ='R' ),
735 DY =SIMP(statut='f',typ='R' ),
736 DZ =SIMP(statut='f',typ='R' ),
737 DRX =SIMP(statut='f',typ='R' ),
738 DRY =SIMP(statut='f',typ='R' ),
739 DRZ =SIMP(statut='f',typ='R' ),
740 GRX =SIMP(statut='f',typ='R' ),
741 PRES =SIMP(statut='f',typ='R' ),
742 PHI =SIMP(statut='f',typ='R' ),
743 TEMP =SIMP(statut='f',typ='R' ),
744 PRE1 =SIMP(statut='f',typ='R' ),
745 PRE2 =SIMP(statut='f',typ='R' ),
746 UI2 =SIMP(statut='f',typ='R' ),
747 UI3 =SIMP(statut='f',typ='R' ),
748 UI4 =SIMP(statut='f',typ='R' ),
749 UI5 =SIMP(statut='f',typ='R' ),
750 UI6 =SIMP(statut='f',typ='R' ),
751 UO2 =SIMP(statut='f',typ='R' ),
752 UO3 =SIMP(statut='f',typ='R' ),
753 UO4 =SIMP(statut='f',typ='R' ),
754 UO5 =SIMP(statut='f',typ='R' ),
755 UO6 =SIMP(statut='f',typ='R' ),
756 VI2 =SIMP(statut='f',typ='R' ),
757 VI3 =SIMP(statut='f',typ='R' ),
758 VI4 =SIMP(statut='f',typ='R' ),
759 VI5 =SIMP(statut='f',typ='R' ),
760 VI6 =SIMP(statut='f',typ='R' ),
761 VO2 =SIMP(statut='f',typ='R' ),
762 VO3 =SIMP(statut='f',typ='R' ),
763 VO4 =SIMP(statut='f',typ='R' ),
764 VO5 =SIMP(statut='f',typ='R' ),
765 VO6 =SIMP(statut='f',typ='R' ),
766 WI2 =SIMP(statut='f',typ='R' ),
767 WI3 =SIMP(statut='f',typ='R' ),
768 WI4 =SIMP(statut='f',typ='R' ),
769 WI5 =SIMP(statut='f',typ='R' ),
770 WI6 =SIMP(statut='f',typ='R' ),
771 WO2 =SIMP(statut='f',typ='R' ),
772 WO3 =SIMP(statut='f',typ='R' ),
773 WO4 =SIMP(statut='f',typ='R' ),
774 WO5 =SIMP(statut='f',typ='R' ),
775 WO6 =SIMP(statut='f',typ='R' ),
776 WO =SIMP(statut='f',typ='R' ),
777 WI1 =SIMP(statut='f',typ='R' ),
778 WO1 =SIMP(statut='f',typ='R' ),
780 FACE_IMPO =FACT(statut='f',min=01,max='**',
781 regles=(UN_PARMI('GROUP_MA','MAILLE',),
782 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
783 'TEMP','PRE1','PRE2','DNOR','DTAN'),
787 EXCLUS('DNOR','DRX'),
788 EXCLUS('DNOR','DRY'),
789 EXCLUS('DNOR','DRZ'),
793 EXCLUS('DTAN','DRX'),
794 EXCLUS('DTAN','DRY'),
795 EXCLUS('DTAN','DRZ'),),
796 # rajout d un mot clé REPERE :/ LOCAL /GLOBAL
797 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
798 MAILLE =SIMP(statut='f',typ=ma,max='**'),
799 DX =SIMP(statut='f',typ='R' ),
800 DY =SIMP(statut='f',typ='R' ),
801 DZ =SIMP(statut='f',typ='R' ),
802 DRX =SIMP(statut='f',typ='R' ),
803 DRY =SIMP(statut='f',typ='R' ),
804 DRZ =SIMP(statut='f',typ='R' ),
805 DNOR =SIMP(statut='f',typ='R' ),
806 DTAN =SIMP(statut='f',typ='R' ),
807 GRX =SIMP(statut='f',typ='R' ),
808 PRES =SIMP(statut='f',typ='R' ),
809 PHI =SIMP(statut='f',typ='R' ),
810 TEMP =SIMP(statut='f',typ='R' ),
811 PRE1 =SIMP(statut='f',typ='R' ),
812 PRE2 =SIMP(statut='f',typ='R' ),
814 LIAISON_DDL =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",min=01,max='**',
815 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
816 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
817 NOEUD =SIMP(statut='f',typ=no,max='**'),
818 DDL =SIMP(statut='o',typ='TXM',max='**'),
819 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
820 COEF_IMPO =SIMP(statut='o',typ='R' ),
822 LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds la même valeur de déplacement dans un repère oblique quelconque",min=01,max='**',
823 regles=(UN_PARMI('GROUP_NO','NOEUD'),
824 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
825 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
826 NOEUD =SIMP(statut='f',typ=no,max='**'),
827 ANGL_NAUT =SIMP(statut='o',typ='R',max=03),
828 DX =SIMP(statut='f',typ='R' ),
829 DY =SIMP(statut='f',typ='R' ),
830 DZ =SIMP(statut='f',typ='R' ),
831 DRX =SIMP(statut='f',typ='R' ),
832 DRY =SIMP(statut='f',typ='R' ),
833 DRZ =SIMP(statut='f',typ='R' ),
835 LIAISON_GROUP =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",min=01,max='**',
836 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
837 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
838 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
839 EXCLUS('GROUP_MA_1','NOEUD_2'),
840 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
841 EXCLUS('GROUP_NO_1','MAILLE_2'),
842 EXCLUS('MAILLE_1','GROUP_NO_2'),
843 EXCLUS('MAILLE_1','NOEUD_2'),
844 EXCLUS('NOEUD_1','GROUP_MA_2'),
845 EXCLUS('NOEUD_1','MAILLE_2'),
846 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
848 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
849 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
850 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
851 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
852 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
853 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
854 GROUP_NO_2 =SIMP(statut='f',typ=no,max='**'),
855 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
857 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
858 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
859 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
860 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
861 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
862 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
863 COEF_IMPO =SIMP(statut='o',typ='R' ),
864 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
865 TRAN =SIMP(statut='f',typ='R',max=03),
866 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
867 CENTRE =SIMP(statut='f',typ='R',max=03),
869 LIAISON_SOLIDE =FACT(statut='f',fr="Modéliser une partie indéformable d une structure",min=01,max='**',
870 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
871 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
872 NOEUD =SIMP(statut='f',typ=no,max='**'),
873 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
874 MAILLE =SIMP(statut='f',typ=ma,max='**'),
875 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
877 LIAISON_UNIF =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d un emsemble de noeuds",min=01,max='**',
878 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
879 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
880 NOEUD =SIMP(statut='f',typ=no,max='**'),
881 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
882 MAILLE =SIMP(statut='f',typ=ma,max='**'),
883 DDL =SIMP(statut='o',typ='TXM',max='**'),
885 LIAISON_CHAMNO =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls présents dans un concept cham_nno",min=01,max='**',
886 # type de cham_no CO()
887 CHAM_NO =SIMP(statut='o',typ=cham_no), #CO()
888 COEF_IMPO =SIMP(statut='o',typ='R' ),
889 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
891 LIAISON_ELEM =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=01,max='**',
892 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
893 UN_PARMI('GROUP_NO_2','NOEUD_2'),),
894 OPTION =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
895 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
896 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
897 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
898 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
899 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
900 CARA_ELEM =SIMP(statut='f',typ=(cara_elem) ),
901 AXE_POUTRE =SIMP(statut='f',typ='R',max=03),
902 ANGL_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
904 LIAISON_COQUE =FACT(statut='f',min=01,max='**',
905 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
906 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
907 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
908 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
909 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
910 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
911 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
912 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
913 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
915 LIAISON_MAIL =FACT(statut='f',min=01,max='**',
916 regles=(PRESENT_ABSENT('GROUP_MA_1','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
917 PRESENT_ABSENT('MAILLE_1','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL',),
918 PRESENT_ABSENT('GROUP_MA_2','GROUP_MA_MAIT','MAILLE_MAIT'),
919 PRESENT_ABSENT('MAILLE_2','GROUP_MA_MAIT','MAILLE_MAIT'),
920 PRESENT_ABSENT('GROUP_NO_2','GROUP_MA_MAIT','MAILLE_MAIT'),
921 PRESENT_ABSENT('NOEUD_2','GROUP_MA_MAIT','MAILLE_MAIT'),
922 AU_MOINS_UN('GROUP_MA_1','MAILLE_1','GROUP_MA_MAIT','MAILLE_MAIT'),
923 AU_MOINS_UN('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
924 PRESENT_ABSENT('DDL_1','DDL_MAIT','DDL_ESCL'),
925 PRESENT_ABSENT('DDL_2','DDL_MAIT','DDL_ESCL'),
926 PRESENT_PRESENT('DDL_1','DDL_2'),
927 PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
928 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
929 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
930 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
931 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
932 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
933 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
934 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
935 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
936 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
937 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
938 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
939 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
940 TRAN =SIMP(statut='f',typ='R',max=03 ),
941 ANGL_NAUT =SIMP(statut='f',typ='R',max=03 ),
942 CENTRE =SIMP(statut='f',typ='R',max=03 ),
943 DDL_1 =SIMP(statut='f',typ='TXM',max='**',into=("DNOR",) ),
944 DDL_2 =SIMP(statut='f',typ='TXM',max='**',into=("DNOR",) ),
945 DDL_MAIT =SIMP(statut='f',typ='TXM',max='**',into=("DNOR",) ),
946 DDL_ESCL =SIMP(statut='f',typ='TXM',max='**',into=("DNOR",) ),
949 FORCE_NODALE =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=01,max='**',
950 regles=(UN_PARMI('GROUP_NO','NOEUD'),
951 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
952 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
953 NOEUD =SIMP(statut='f',typ=no,max='**'),
954 FX =SIMP(statut='f',typ='R' ),
955 FY =SIMP(statut='f',typ='R' ),
956 FZ =SIMP(statut='f',typ='R' ),
957 MX =SIMP(statut='f',typ='R' ),
958 MY =SIMP(statut='f',typ='R' ),
959 MZ =SIMP(statut='f',typ='R' ),
960 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
963 FORCE_FACE =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d éléments volumiques",min=01,max='**',
964 regles=(UN_PARMI('GROUP_MA','MAILLE'),
965 AU_MOINS_UN('FX','FY','FZ'),),
966 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
967 MAILLE =SIMP(statut='f',typ=ma,max='**'),
968 FX =SIMP(statut='f',typ='R' ),
969 FY =SIMP(statut='f',typ='R' ),
970 FZ =SIMP(statut='f',typ='R' ),
972 FORCE_ARETE =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",min=01,max='**',
973 regles=(UN_PARMI('GROUP_MA','MAILLE',),
974 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
975 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
976 MAILLE =SIMP(statut='f',typ=ma,max='**'),
977 FX =SIMP(statut='f',typ='R' ),
978 FY =SIMP(statut='f',typ='R' ),
979 FZ =SIMP(statut='f',typ='R' ),
980 MX =SIMP(statut='f',typ='R' ),
981 MY =SIMP(statut='f',typ='R' ),
982 MZ =SIMP(statut='f',typ='R' ),
984 FORCE_CONTOUR =FACT(statut='f',fr="Appliquer des forces linéiques au bord d un domaine 2D ou AXIS_FOURIER",min=01,max='**',
985 regles=(UN_PARMI('GROUP_MA','MAILLE'),
986 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
987 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
988 MAILLE =SIMP(statut='f',typ=ma,max='**'),
989 FX =SIMP(statut='f',typ='R' ),
990 FY =SIMP(statut='f',typ='R' ),
991 FZ =SIMP(statut='f',typ='R' ),
992 MX =SIMP(statut='f',typ='R' ),
993 MY =SIMP(statut='f',typ='R' ),
994 MZ =SIMP(statut='f',typ='R' ),
996 FORCE_INTERNE =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",min=01,max='**',
997 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
998 AU_MOINS_UN('FX','FY','FZ' ),),
999 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1000 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1001 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1002 FX =SIMP(statut='f',typ='R' ),
1003 FY =SIMP(statut='f',typ='R' ),
1004 FZ =SIMP(statut='f',typ='R' ),
1006 PRES_REP =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",min=01,max='**',
1007 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1008 AU_MOINS_UN('PRES','CISA_2D' ),),
1009 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1010 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1011 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1012 PRES =SIMP(statut='f',typ='R' ),
1013 CISA_2D =SIMP(statut='f',typ='R' ),
1015 EPSI_INIT =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",min=01,max='**',
1016 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1017 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1018 'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1019 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1020 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1021 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1022 EPXX =SIMP(statut='f',typ='R' ),
1023 EPYY =SIMP(statut='f',typ='R' ),
1024 EPZZ =SIMP(statut='f',typ='R' ),
1025 EPXY =SIMP(statut='f',typ='R' ),
1026 EPXZ =SIMP(statut='f',typ='R' ),
1027 EPYZ =SIMP(statut='f',typ='R' ),
1028 EPX =SIMP(statut='f',typ='R' ),
1029 KY =SIMP(statut='f',typ='R' ),
1030 KZ =SIMP(statut='f',typ='R' ),
1031 EXX =SIMP(statut='f',typ='R' ),
1032 EYY =SIMP(statut='f',typ='R' ),
1033 EXY =SIMP(statut='f',typ='R' ),
1034 KXX =SIMP(statut='f',typ='R' ),
1035 KYY =SIMP(statut='f',typ='R' ),
1036 KXY =SIMP(statut='f',typ='R' ),
1040 FORCE_COQUE =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=01,max='**',
1041 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1042 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1043 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1044 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1045 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1046 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1047 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1048 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1049 PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1050 PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1051 PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1052 PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1053 PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1054 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1055 # rajour d un mot clé REPERE :/ LOCAL /GLOBAL
1056 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1057 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1058 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1060 FX =SIMP(statut='f',typ='R' ),
1061 FY =SIMP(statut='f',typ='R' ),
1062 FZ =SIMP(statut='f',typ='R' ),
1063 MX =SIMP(statut='f',typ='R' ),
1064 MY =SIMP(statut='f',typ='R' ),
1065 MZ =SIMP(statut='f',typ='R' ),
1067 F1 =SIMP(statut='f',typ='R' ),
1068 F2 =SIMP(statut='f',typ='R' ),
1069 F3 =SIMP(statut='f',typ='R' ),
1070 MF1 =SIMP(statut='f',typ='R' ),
1071 MF2 =SIMP(statut='f',typ='R' ),
1073 PRES =SIMP(statut='f',typ='R' ),
1074 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1076 FORCE_POUTRE =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=01,max='**',
1077 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1078 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1079 PRESENT_ABSENT('FX','N','VY','VZ'),
1080 PRESENT_ABSENT('FY','N','VY','VZ'),
1081 PRESENT_ABSENT('FZ','N','VY','VZ'),
1082 PRESENT_ABSENT('N','FX','FY','FZ'),
1083 PRESENT_ABSENT('VY','FX','FY','FZ'),
1084 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1085 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1086 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1087 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1088 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1089 # rajour d un mot clé REPERE :/ LOCAL /GLOBAL
1090 FX =SIMP(statut='f',typ='R' ),
1091 FY =SIMP(statut='f',typ='R' ),
1092 FZ =SIMP(statut='f',typ='R' ),
1094 N =SIMP(statut='f',typ='R' ),
1095 VY =SIMP(statut='f',typ='R' ),
1096 VZ =SIMP(statut='f',typ='R' ),
1099 FORCE_TUYAU =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=01,max='**',
1100 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
1101 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1102 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1103 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1104 PRES =SIMP(statut='f',typ='R' ),
1108 FORCE_ELEC =FACT(statut='f',fr="Appliquer une force de Laplace due à la présence d un conducteur rectiligne secondaire non maillé",min=01,max='**',
1109 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1110 AU_MOINS_UN('FX','FY','FZ','POSITION'),
1111 EXCLUS('FX','POSITION'),
1112 EXCLUS('FY','POSITION'),
1113 EXCLUS('FZ','POSITION'),),
1114 # trop de règles : les blocs conditionnels permettent d en suprimer
1115 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1116 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1117 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1119 FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1120 FY =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1121 FZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1123 POSITION =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1124 b_para =BLOC ( condition = "POSITION == 'PARA'",
1125 regles=(UN_PARMI('TRANS','DIST'),),
1126 TRANS =SIMP(statut='f',typ='R',max=03),
1127 DIST =SIMP(statut='f',typ='R' ),
1128 b_point2 =BLOC ( condition = "DIST != None",
1129 POINT2 =SIMP(statut='o',typ='R',max=03),
1132 b_fini_infi =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1133 POINT1 =SIMP(statut='o',typ='R',max=03),
1134 POINT2 =SIMP(statut='o',typ='R',max=03),
1137 INTE_ELEC =FACT(statut='f',fr="Appliquer une force de Laplace due à la présence d un conducteur non rectiligne secondaire maillé ou non",min=01,max='**',
1138 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1139 AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1140 EXCLUS('TRANS','SYME'),),
1141 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1142 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1143 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1144 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1145 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1146 TRANS =SIMP(statut='f',typ='R',max='**'),
1147 SYME =SIMP(statut='f',typ='R',max='**'),
1151 VITE_FACE =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=01,max='**',
1152 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1153 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1154 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1155 VNOR =SIMP(statut='o',typ='R' ),
1157 ONDE_FLUI =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=01,max='**',
1158 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1159 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1160 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1161 PRES =SIMP(statut='o',typ='R' ),
1163 IMPE_FACE =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=01,max='**',
1164 regles=(UN_PARMI('GROUP_MA','MAILLE' ),),
1165 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1166 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1167 IMPE =SIMP(statut='o',typ='R' ),
1171 FLUX_THM_REP =FACT(statut='f',min=01,max='**',
1172 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1173 AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1174 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1175 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1176 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1177 FLUN =SIMP(statut='f',typ='R' ),
1178 FLUN_HYDR1 =SIMP(statut='f',typ='R' ),
1179 FLUN_HYDR2 =SIMP(statut='f',typ='R' ),
1182 EFFE_FOND =FACT(statut='f',fr="Imposer un effet de fond",min=01,max='**',
1183 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1184 GROUP_MA_INT =SIMP(statut='o',typ=grma,max='**'),
1185 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1186 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1187 PRES =SIMP(statut='o',typ='R' ),
1190 LIAISON_UNIL_NO =FACT(statut='f',min=01,max='**',
1191 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1192 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1193 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),# CO()
1194 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),# CO()
1195 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),# CO()
1196 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),# CO()
1197 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1198 TRAN =SIMP(statut='f',typ='R',max=03 ),
1199 ANGL_NAUT =SIMP(statut='f',typ='R',max=03 ),
1200 CENTRE =SIMP(statut='f',typ='R',max=03 ),
1201 ANGLE_MAX =SIMP(statut='f',typ='R' ),
1202 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",
1203 into=("SANS","TRESCA","COULOMB") ),
1204 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1205 into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1206 COULOMB =SIMP(statut='f',typ='R' ),
1207 TRESCA =SIMP(statut='f',typ='R' ),
1208 E_T =SIMP(statut='f',typ='R' ),
1209 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1210 CONTACT =SIMP(statut='f',typ='TXM',into=("MAINTENU",) ),
1211 JEU =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1214 CONTACT =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=01,max='**',
1215 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),
1216 ENSEMBLE('FROTTEMENT','COULOMB'),
1217 EXCLUS('DIST_2','COEF_IMPO'),
1218 EXCLUS('DIST_1','COEF_IMPO'),
1219 EXCLUS('COEF_MULT_2','GROUP_MA_1'),
1220 EXCLUS('COEF_MULT_2','MAILLE_1'),
1221 EXCLUS('COEF_IMPO','GROUP_MA_1'),
1222 EXCLUS('COEF_IMPO','MAILLE_1'),),
1223 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1224 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1225 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1226 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1227 REAC_GEOM_INTE =SIMP(statut='f',typ='I',defaut= 2),
1228 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1229 into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1230 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1231 COULOMB =SIMP(statut='f',typ='R',max=1),
1232 E_T =SIMP(statut='f',typ='R' ),
1233 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1234 VECT_NORM_2 =SIMP(statut='f',typ='R',max=03),
1235 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE",) ),
1236 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1237 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1238 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1239 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1240 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1241 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1242 DIST_1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1243 DIST_2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1244 COEF_IMPO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1245 COEF_MULT_2 =SIMP(statut='f',typ='R',defaut= 1. ),
1248 RELA_CINE_BP =FACT(statut='f',min=01,max='**',
1249 CABLE_BP =SIMP(statut='o',typ=cabl_precont ),
1250 SIGM_BPEL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1251 RELA_CINE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1253 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1255 #& MODIF COMMANDE DATE 17/05/2000 AUTEUR CIBHHLV L.VIVAN
1256 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op= 7,sd_prod=char_meca,
1257 fr="Affectation de charges et conditions aux limites mécaniques complexes",
1258 docu="U4.44.05-C",reentrant='n',
1259 regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1260 MODELE =SIMP(statut='o',typ=modele ),
1261 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1262 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1263 DDL_IMPO =FACT(statut='f',min=01,max='**',
1264 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1265 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1266 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1267 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1268 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1269 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1270 NOEUD =SIMP(statut='f',typ=no,max='**'),
1271 DX =SIMP(statut='f',typ='C' ),
1272 DY =SIMP(statut='f',typ='C' ),
1273 DZ =SIMP(statut='f',typ='C' ),
1274 DRX =SIMP(statut='f',typ='C' ),
1275 DRY =SIMP(statut='f',typ='C' ),
1276 DRZ =SIMP(statut='f',typ='C' ),
1277 GRX =SIMP(statut='f',typ='C' ),
1278 PRES =SIMP(statut='f',typ='C' ),
1279 PHI =SIMP(statut='f',typ='C' ),
1281 FORCE_POUTRE =FACT(statut='f',min=01,max='**',
1282 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE',),
1283 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1284 PRESENT_ABSENT('FX','N','VY','VZ',),
1285 PRESENT_ABSENT('FY','N','VY','VZ',),
1286 PRESENT_ABSENT('FZ','N','VY','VZ',),
1287 PRESENT_ABSENT('N','FX','FY','FZ',),
1288 PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1289 PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1290 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1291 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1292 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1293 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1294 FX =SIMP(statut='f',typ='C' ),
1295 FY =SIMP(statut='f',typ='C' ),
1296 FZ =SIMP(statut='f',typ='C' ),
1297 N =SIMP(statut='f',typ='C' ),
1298 VY =SIMP(statut='f',typ='C' ),
1299 VZ =SIMP(statut='f',typ='C' ),
1301 LIAISON_DDL =FACT(statut='f',min=01,max='**',
1302 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1303 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1304 NOEUD =SIMP(statut='f',typ=no,max='**'),
1305 DDL =SIMP(statut='o',typ='TXM',max='**'),
1306 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1307 COEF_IMPO =SIMP(statut='o',typ='C' ),
1309 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1311 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR UFBHHLL C.CHAVANT
1312 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1313 fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur (temps, ...)",
1314 docu="U4.44.01-F",reentrant='n',
1315 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1316 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1317 'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1318 'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1319 'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1321 MODELE =SIMP(statut='o',typ=modele ),
1322 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1323 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1324 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1326 DDL_IMPO =FACT(statut='f',min=01,max='**',
1327 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1328 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1329 'TEMP','PRE1','PRE2'),),
1330 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1331 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1332 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1333 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1334 NOEUD =SIMP(statut='f',typ=no,max='**'),
1335 DX =SIMP(statut='f',typ=(fonction) ),
1336 DY =SIMP(statut='f',typ=(fonction) ),
1337 DZ =SIMP(statut='f',typ=(fonction) ),
1338 DRX =SIMP(statut='f',typ=(fonction) ),
1339 DRY =SIMP(statut='f',typ=(fonction) ),
1340 DRZ =SIMP(statut='f',typ=(fonction) ),
1341 GRX =SIMP(statut='f',typ=(fonction) ),
1342 PRES =SIMP(statut='f',typ=(fonction) ),
1343 PHI =SIMP(statut='f',typ=(fonction) ),
1344 TEMP =SIMP(statut='f',typ=(fonction) ),
1345 PRE1 =SIMP(statut='f',typ=(fonction) ),
1346 PRE2 =SIMP(statut='f',typ=(fonction) ),
1348 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
1349 fr="Imposer une meme valeur (inconnue) à des ddls d un emsemble de noeuds",
1350 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1351 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1352 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1353 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1354 NOEUD =SIMP(statut='f',typ=no,max='**'),
1355 DDL =SIMP(statut='o',typ='TXM',max='**'),
1357 LIAISON_SOLIDE =FACT(statut='f',min=01,max='**',
1358 fr="Modéliser une partie indéformable d une structure",
1359 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1360 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1361 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1362 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1363 NOEUD =SIMP(statut='f',typ=no,max='**'),
1364 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1366 LIAISON_OBLIQUE =FACT(statut='f',min=01,max='**',
1367 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1368 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1369 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1370 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1371 NOEUD =SIMP(statut='f',typ=no,max='**'),
1372 ANGL_NAUT =SIMP(statut='o',typ='R',max=03),
1373 DX =SIMP(statut='f',typ=(fonction) ),
1374 DY =SIMP(statut='f',typ=(fonction) ),
1375 DZ =SIMP(statut='f',typ=(fonction) ),
1376 DRX =SIMP(statut='f',typ=(fonction) ),
1377 DRY =SIMP(statut='f',typ=(fonction) ),
1378 DRZ =SIMP(statut='f',typ=(fonction) ),
1380 LIAISON_COQUE =FACT(statut='f',min=01,max='**',
1381 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1382 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1383 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1384 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1385 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1386 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1387 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1388 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1389 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1391 FACE_IMPO =FACT(statut='f',min=01,max='**',
1392 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1393 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1394 EXCLUS('DNOR','DX'),
1395 EXCLUS('DNOR','DY'),
1396 EXCLUS('DNOR','DZ'),
1397 EXCLUS('DNOR','DRX'),
1398 EXCLUS('DNOR','DRY'),
1399 EXCLUS('DNOR','DRZ'),
1400 EXCLUS('DTAN','DX'),
1401 EXCLUS('DTAN','DY'),
1402 EXCLUS('DTAN','DZ'),
1403 EXCLUS('DTAN','DRX'),
1404 EXCLUS('DTAN','DRY'),
1405 EXCLUS('DTAN','DRZ'),),
1406 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1407 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1408 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1409 DX =SIMP(statut='f',typ=(fonction) ),
1410 DY =SIMP(statut='f',typ=(fonction) ),
1411 DZ =SIMP(statut='f',typ=(fonction) ),
1412 DRX =SIMP(statut='f',typ=(fonction) ),
1413 DRY =SIMP(statut='f',typ=(fonction) ),
1414 DRZ =SIMP(statut='f',typ=(fonction) ),
1415 GRX =SIMP(statut='f',typ=(fonction) ),
1416 PRES =SIMP(statut='f',typ=(fonction) ),
1417 PHI =SIMP(statut='f',typ=(fonction) ),
1418 TEMP =SIMP(statut='f',typ=(fonction) ),
1419 PRE1 =SIMP(statut='f',typ=(fonction) ),
1420 PRE2 =SIMP(statut='f',typ=(fonction) ),
1421 DNOR =SIMP(statut='f',typ=(fonction) ),
1422 DTAN =SIMP(statut='f',typ=(fonction) ),
1424 LIAISON_DDL =FACT(statut='f',min=01,max='**',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1425 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1426 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1427 NOEUD =SIMP(statut='f',typ=no,max='**'),
1428 DDL =SIMP(statut='o',typ='TXM',max='**'),
1429 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1430 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1432 LIAISON_GROUP =FACT(statut='f',min=01,max='**',
1433 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1434 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1435 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1436 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1437 EXCLUS('GROUP_MA_1','NOEUD_2'),
1438 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1439 EXCLUS('GROUP_NO_1','MAILLE_2'),
1440 EXCLUS('MAILLE_1','GROUP_NO_2'),
1441 EXCLUS('MAILLE_1','NOEUD_2'),
1442 EXCLUS('NOEUD_1','GROUP_MA_2'),
1443 EXCLUS('NOEUD_1','MAILLE_2'),
1444 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1445 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1446 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1447 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1448 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1449 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1450 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1451 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1452 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1453 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1454 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1455 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
1456 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
1457 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
1458 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
1459 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1460 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1461 TRAN =SIMP(statut='f',typ='R',max=03),
1462 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
1463 CENTRE =SIMP(statut='f',typ='R',max=03),
1466 FORCE_NODALE =FACT(statut='f',min=01,max='**',
1467 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1468 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1469 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1470 NOEUD =SIMP(statut='f',typ=no,max='**'),
1471 FX =SIMP(statut='f',typ=(fonction) ),
1472 FY =SIMP(statut='f',typ=(fonction) ),
1473 FZ =SIMP(statut='f',typ=(fonction) ),
1474 MX =SIMP(statut='f',typ=(fonction) ),
1475 MY =SIMP(statut='f',typ=(fonction) ),
1476 MZ =SIMP(statut='f',typ=(fonction) ),
1477 ANGL_NAUT =SIMP(statut='f',typ=(fonction),max=03 ),
1479 FORCE_INTERNE =FACT(statut='f',min=01,max='**',
1480 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1481 AU_MOINS_UN('FX','FY','FZ'),),
1482 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1483 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1484 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1485 FX =SIMP(statut='f',typ=(fonction) ),
1486 FY =SIMP(statut='f',typ=(fonction) ),
1487 FZ =SIMP(statut='f',typ=(fonction) ),
1489 FORCE_FACE =FACT(statut='f',min=01,max='**',
1490 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1491 AU_MOINS_UN('FX','FY','FZ'),),
1492 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1493 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1494 FX =SIMP(statut='f',typ=(fonction) ),
1495 FY =SIMP(statut='f',typ=(fonction) ),
1496 FZ =SIMP(statut='f',typ=(fonction) ),
1498 FORCE_ARETE =FACT(statut='f',min=01,max='**',
1499 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1500 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1501 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1502 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1503 FX =SIMP(statut='f',typ=(fonction) ),
1504 FY =SIMP(statut='f',typ=(fonction) ),
1505 FZ =SIMP(statut='f',typ=(fonction) ),
1506 MX =SIMP(statut='f',typ=(fonction) ),
1507 MY =SIMP(statut='f',typ=(fonction) ),
1508 MZ =SIMP(statut='f',typ=(fonction) ),
1510 FORCE_CONTOUR =FACT(statut='f',min=01,max='**',
1511 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1512 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1513 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1514 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1515 FX =SIMP(statut='f',typ=(fonction) ),
1516 FY =SIMP(statut='f',typ=(fonction) ),
1517 FZ =SIMP(statut='f',typ=(fonction) ),
1518 MX =SIMP(statut='f',typ=(fonction) ),
1519 MY =SIMP(statut='f',typ=(fonction) ),
1520 MZ =SIMP(statut='f',typ=(fonction) ),
1522 PRES_REP =FACT(statut='f',min=01,max='**',
1523 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1524 AU_MOINS_UN('PRES','CISA_2D'),),
1525 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1526 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1527 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1528 PRES =SIMP(statut='f',typ=(fonction) ),
1529 CISA_2D =SIMP(statut='f',typ=(fonction) ),
1532 FORCE_COQUE =FACT(statut='f',min=01,max='**',
1533 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1534 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1535 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1536 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1537 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1538 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1539 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1540 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1541 PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
1542 PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
1543 PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
1544 PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
1545 PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
1546 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1547 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1548 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1549 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1550 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1551 FX =SIMP(statut='f',typ=(fonction) ),
1552 FY =SIMP(statut='f',typ=(fonction) ),
1553 FZ =SIMP(statut='f',typ=(fonction) ),
1554 MX =SIMP(statut='f',typ=(fonction) ),
1555 MY =SIMP(statut='f',typ=(fonction) ),
1556 MZ =SIMP(statut='f',typ=(fonction) ),
1557 F1 =SIMP(statut='f',typ=(fonction) ),
1558 F2 =SIMP(statut='f',typ=(fonction) ),
1559 F3 =SIMP(statut='f',typ=(fonction) ),
1560 MF1 =SIMP(statut='f',typ=(fonction) ),
1561 MF2 =SIMP(statut='f',typ=(fonction) ),
1562 PRES =SIMP(statut='f',typ=(fonction) ),
1563 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",
1564 into=("SUP","INF","MOY","MAIL") ),
1566 FORCE_POUTRE =FACT(statut='f',min=01,max='**',
1567 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1568 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1569 PRESENT_ABSENT('FX','N','VY','VZ'),
1570 PRESENT_ABSENT('FY','N','VY','VZ'),
1571 PRESENT_ABSENT('FZ','N','VY','VZ'),
1572 PRESENT_ABSENT('N','FX','FY','FZ'),
1573 PRESENT_ABSENT('VY','FX','FY','FZ'),
1574 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1575 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1576 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1577 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1578 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1579 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1580 FX =SIMP(statut='f',typ=(fonction) ),
1581 FY =SIMP(statut='f',typ=(fonction) ),
1582 FZ =SIMP(statut='f',typ=(fonction) ),
1583 N =SIMP(statut='f',typ=(fonction) ),
1584 VY =SIMP(statut='f',typ=(fonction) ),
1585 VZ =SIMP(statut='f',typ=(fonction) ),
1587 FORCE_TUYAU =FACT(statut='f',min=01,max='**',
1588 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
1589 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1590 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1591 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1592 PRES =SIMP(statut='f',typ=(fonction) ),
1594 VITE_FACE =FACT(statut='f',min=01,max='**',
1595 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1596 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1597 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1598 VNOR =SIMP(statut='o',typ=(fonction) ),
1600 IMPE_FACE =FACT(statut='f',min=01,max='**',
1601 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1602 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1603 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1604 IMPE =SIMP(statut='o',typ=(fonction) ),
1606 ONDE_PLANE =FACT(statut='f',min=01,max='**',
1607 DIRECTION =SIMP(statut='o',typ='R',max='**'),
1608 TYPE_ONDE =SIMP(statut='o',typ='TXM' ),
1609 FONC_SIGNAL =SIMP(statut='o',typ=(fonction) ),
1610 DIST_ORIG =SIMP(statut='o',typ='R' ),
1612 EPSI_INIT =FACT(statut='f',min=01,max='**',
1613 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1614 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
1615 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1616 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1617 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1618 EPXX =SIMP(statut='f',typ=(fonction) ),
1619 EPYY =SIMP(statut='f',typ=(fonction) ),
1620 EPZZ =SIMP(statut='f',typ=(fonction) ),
1621 EPXY =SIMP(statut='f',typ=(fonction) ),
1622 EPXZ =SIMP(statut='f',typ=(fonction) ),
1623 EPYZ =SIMP(statut='f',typ=(fonction) ),
1626 CONTACT =FACT(statut='f',min=01,max='**',
1627 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),
1628 ENSEMBLE('FROTTEMENT','COULOMB'),
1629 EXCLUS('DIST_2','COEF_IMPO'),
1630 EXCLUS('DIST_1','COEF_IMPO'),
1631 EXCLUS('COEF_MULT_2','GROUP_MA_1'),
1632 EXCLUS('COEF_MULT_2','MAILLE_1'),
1633 EXCLUS('COEF_IMPO','GROUP_MA_1'),
1634 EXCLUS('COEF_IMPO','MAILLE_1'),),
1635 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP") ),
1636 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1637 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME") ),
1638 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",
1639 into=("NOEUD_BOUCLE","NOEUD_VOISIN") ),
1640 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1641 into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1642 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1643 COULOMB =SIMP(statut='f',typ='R',max=1),
1644 E_T =SIMP(statut='f',typ='R' ),
1645 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1646 VECT_NORM_2 =SIMP(statut='f',typ='R',max=03),
1647 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE",) ),
1648 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1649 MAILLE_1 =SIMP(statut='f',typ=ma,max='**' ),
1650 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1651 MAILLE_2 =SIMP(statut='f',typ=ma,max='**' ),
1652 SANS_NOEUD =SIMP(statut='f',typ=no,max='**' ),
1653 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1654 DIST_1 =SIMP(statut='f',typ=(fonction) ),
1655 DIST_2 =SIMP(statut='f',typ=(fonction) ),
1656 COEF_IMPO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1657 COEF_MULT_2 =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
1659 FLUX_THM_REP =FACT(statut='f',min=01,max='**',
1660 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1661 AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1662 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1663 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1664 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1665 FLUN =SIMP(statut='f',typ=(fonction) ),
1666 FLUN_HYDR1 =SIMP(statut='f',typ=(fonction) ),
1667 FLUN_HYDR2 =SIMP(statut='f',typ=(fonction) ),
1670 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1672 #& MODIF COMMANDE DATE 17/11/1999 AUTEUR CIBHHGB G.BERTRAND
1673 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
1675 docu=" ",reentrant='n',
1676 regles=(AU_MOINS_UN('CARA_TORSION', ),),
1677 MODELE =SIMP(statut='o',typ=modele ),
1678 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",
1679 into=("OUI","NON") ),
1680 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1681 CARA_TORSION =FACT(statut='f',min=01,max='**',
1682 regles=(UN_PARMI('TOUT','GROUP_MA'),),
1683 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1684 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1686 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
1688 #& MODIF COMMANDE DATE 28/11/2000 AUTEUR CIBHHLV L.VIVAN
1689 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
1690 ,fr="Affectation de charges et conditions aux limites thermiques constantes",
1691 docu="U4.44.02-F",reentrant='n',
1692 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
1693 'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
1694 'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
1695 MODELE =SIMP(statut='o',typ=(modele) ),
1696 VERI_DDL =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
1697 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1698 LIAISON_DDL =FACT(statut='f',min=01,max='**',
1699 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1700 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1701 NOEUD =SIMP(statut='f',typ=no,max='**'),
1702 DDL =SIMP(statut='f',typ='TXM',max='**',
1703 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1704 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1705 COEF_IMPO =SIMP(statut='o',typ='R' ),
1707 TEMP_IMPO =FACT(statut='f',min=01,max='**',
1708 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1709 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
1710 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1711 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1712 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1713 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1714 NOEUD =SIMP(statut='f',typ=no,max='**'),
1715 TEMP =SIMP(statut='f',typ='R'),
1716 TEMP_INF =SIMP(statut='f',typ='R'),
1717 TEMP_SUP =SIMP(statut='f',typ='R'), ),
1718 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
1719 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1720 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1721 NOEUD =SIMP(statut='f',typ=no,max='**'),
1722 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1723 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1724 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1725 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1727 LIAISON_CHAMNO =FACT(statut='f',min=01,max='**',
1728 CHAM_NO =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
1729 COEF_IMPO =SIMP(statut='o',typ='R' ),
1730 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1732 SOURCE =FACT(statut='f',min=01,max='**',
1733 regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
1734 PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
1735 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1736 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1737 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1738 SOUR =SIMP(statut='f',typ='R'),
1739 SOUR_CALCULEE =SIMP(statut='f',typ=(cham_elem_sour_r) ),
1741 FLUX_REP =FACT(statut='f',min=01,max='**',
1742 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1743 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
1744 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1745 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1746 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1747 FLUN =SIMP(statut='f',typ='R'),
1748 FLUN_INF =SIMP(statut='f',typ='R'),
1749 FLUN_SUP =SIMP(statut='f',typ='R'),
1750 CARA_TORSION =SIMP(statut='f',typ=tabl_aire_int ),
1752 ECHANGE =FACT(statut='f',min=01,max='**',
1753 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1754 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
1755 ENSEMBLE('COEF_H','TEMP_EXT',),
1756 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
1757 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
1758 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1759 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1760 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1761 COEF_H =SIMP(statut='f',typ='R'),
1762 TEMP_EXT =SIMP(statut='f',typ='R'),
1763 COEF_H_INF =SIMP(statut='f',typ='R'),
1764 TEMP_EXT_INF =SIMP(statut='f',typ='R'),
1765 COEF_H_SUP =SIMP(statut='f',typ='R'),
1766 TEMP_EXT_SUP =SIMP(statut='f',typ='R'),
1768 ECHANGE_PAROI =FACT(statut='f',min=01,max='**',
1769 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1770 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1771 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1772 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1773 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1774 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1775 COEF_H =SIMP(statut='o',typ='R'),
1776 TRAN =SIMP(statut='f',typ='R',max='**'),
1777 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
1778 CENTRE =SIMP(statut='f',typ='R',max='**'),
1780 GRAD_TEMP_INIT =FACT(statut='f',min=01,max='**',
1781 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1782 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
1783 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1784 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1785 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1786 FLUX_X =SIMP(statut='f',typ='R' ),
1787 FLUX_Y =SIMP(statut='f',typ='R' ),
1788 FLUX_Z =SIMP(statut='f',typ='R' ),
1790 LIAISON_GROUP =FACT(statut='f',min=01,max='**',
1791 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1792 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1793 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1794 EXCLUS('GROUP_MA_1','NOEUD_2'),
1795 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1796 EXCLUS('GROUP_NO_1','MAILLE_2'),
1797 EXCLUS('MAILLE_1','GROUP_NO_2'),
1798 EXCLUS('MAILLE_1','NOEUD_2'),
1799 EXCLUS('NOEUD_1','GROUP_MA_2'),
1800 EXCLUS('NOEUD_1','MAILLE_2'),
1801 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1802 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1803 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1804 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1805 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1806 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1807 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1808 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1809 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1810 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1811 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1812 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1813 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1814 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
1815 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1816 into=("TEMP","TEMP_INF","TEMP_SUP",) ),
1817 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
1818 COEF_IMPO =SIMP(statut='o',typ='R' ),
1819 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1820 TRAN =SIMP(statut='f',typ='R',max='**'),
1821 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
1822 CENTRE =SIMP(statut='f',typ='R',max='**'),
1824 CONVECTION =FACT(statut='f',min=01,max='**',
1825 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
1827 RAYONNEMENT =FACT(statut='f',min=01,max='**',
1828 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE',),
1829 ENSEMBLE('SIGMA','EPSILON','TEMP_EXT'),),
1830 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1831 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1832 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1833 SIGMA =SIMP(statut='o',typ='R'),
1834 EPSILON =SIMP(statut='o',typ='R'),
1835 TEMP_EXT =SIMP(statut='o',typ='R'),
1837 LIAISON_MAIL =FACT(statut='f',min=01,max='**',
1838 regles=(PRESENT_ABSENT('GROUP_MA_1','GROUP_MA_ESCL','MAILLE_ESCL',
1839 'GROUP_NO_ESCL','NOEUD_ESCL'),
1840 PRESENT_ABSENT('MAILLE_1','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1841 PRESENT_ABSENT('GROUP_MA_2','GROUP_MA_MAIT','MAILLE_MAIT'),
1842 PRESENT_ABSENT('MAILLE_2','GROUP_MA_MAIT','MAILLE_MAIT'),
1843 PRESENT_ABSENT('GROUP_NO_2','GROUP_MA_MAIT','MAILLE_MAIT'),
1844 PRESENT_ABSENT('NOEUD_2','GROUP_MA_MAIT','MAILLE_MAIT'),
1845 AU_MOINS_UN('GROUP_MA_1','MAILLE_1','GROUP_MA_MAIT','MAILLE_MAIT'),
1846 AU_MOINS_UN('GROUP_MA_2','MAILLE_2','GROUP_NO_2',
1847 'NOEUD_2','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
1849 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1850 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1851 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
1852 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
1853 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1854 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1855 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1856 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1857 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
1858 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
1859 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
1860 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
1861 TRAN =SIMP(statut='f',typ='R',max='**' ),
1862 ANGL_NAUT =SIMP(statut='f',typ='R',max='**' ),
1863 CENTRE =SIMP(statut='f',typ='R',max='**' ),
1865 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
1867 #& MODIF COMMANDE DATE 12/05/99 AUTEUR VABHHTS J.PELLET
1868 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
1869 fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
1870 docu="U4.44.02-F",reentrant='n',
1871 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
1872 'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
1873 'GRAD_TEMP_INIT','RAYONNEMENT'),),
1874 MODELE =SIMP(statut='o',typ=(modele) ),
1875 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1876 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1877 LIAISON_DDL =FACT(statut='f',min=01,max='**',
1878 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1879 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1880 NOEUD =SIMP(statut='f',typ=no,max='**'),
1881 DDL =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
1882 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1883 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1885 TEMP_IMPO =FACT(statut='f',min=01,max='**',
1886 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1887 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
1888 PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
1889 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1890 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1891 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1892 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1893 NOEUD =SIMP(statut='f',typ=no,max='**'),
1894 EVOL_THER =SIMP(statut='f',typ=(evol_ther) ),
1895 DDL =SIMP(statut='f',typ='TXM',max='**',into=("TEMP",) ),
1896 TEMP =SIMP(statut='f',typ=(fonction) ),
1897 TEMP_INF =SIMP(statut='f',typ=(fonction) ),
1898 TEMP_SUP =SIMP(statut='f',typ=(fonction) ),
1900 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
1901 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1902 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1903 NOEUD =SIMP(statut='f',typ=no,max='**'),
1904 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1905 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1906 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1907 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1909 SOURCE =FACT(statut='f',min=01,max='**',
1910 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
1911 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1912 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1913 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1914 SOUR =SIMP(statut='o',typ=(fonction) ),
1916 FLUX_REP =FACT(statut='f',min=01,max='**',
1917 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE',),
1918 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
1919 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1920 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1921 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1922 FLUN =SIMP(statut='f',typ=(fonction) ),
1923 FLUN_INF =SIMP(statut='f',typ=(fonction) ),
1924 FLUN_SUP =SIMP(statut='f',typ=(fonction) ),
1925 FLUX_X =SIMP(statut='f',typ=(fonction) ),
1926 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
1927 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
1929 FLUX_NL =FACT(statut='f',min=01,max='**',
1930 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
1931 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1932 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1933 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1934 FLUN =SIMP(statut='o',typ=(fonction) ),
1936 ECHANGE =FACT(statut='f',min=01,max='**',
1937 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE',),
1938 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
1939 ENSEMBLE('COEF_H','TEMP_EXT'),
1940 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
1941 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
1942 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1943 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1944 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1945 COEF_H =SIMP(statut='f',typ=(fonction) ),
1946 TEMP_EXT =SIMP(statut='f',typ=(fonction) ),
1947 COEF_H_INF =SIMP(statut='f',typ=(fonction) ),
1948 TEMP_EXT_INF =SIMP(statut='f',typ=(fonction) ),
1949 COEF_H_SUP =SIMP(statut='f',typ=(fonction) ),
1950 TEMP_EXT_SUP =SIMP(statut='f',typ=(fonction) ),
1952 ECHANGE_PAROI =FACT(statut='f',min=01,max='**',
1953 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1954 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1955 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1956 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1957 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1958 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1959 COEF_H =SIMP(statut='o',typ=(fonction) ),
1960 TRAN =SIMP(statut='f',typ='R',max='**'),
1961 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
1962 CENTRE =SIMP(statut='f',typ='R',max='**'),
1964 GRAD_TEMP_INIT =FACT(statut='f',min=01,max='**',
1965 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1966 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
1967 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1968 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1969 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1970 FLUX_X =SIMP(statut='f',typ=(fonction) ),
1971 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
1972 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
1974 LIAISON_GROUP =FACT(statut='f',min=01,max='**',
1975 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1976 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1977 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1978 EXCLUS('GROUP_MA_1','NOEUD_2'),
1979 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1980 EXCLUS('GROUP_NO_1','MAILLE_2'),
1981 EXCLUS('MAILLE_1','GROUP_NO_2'),
1982 EXCLUS('MAILLE_1','NOEUD_2'),
1983 EXCLUS('NOEUD_1','GROUP_MA_2'),
1984 EXCLUS('NOEUD_1','MAILLE_2'),
1985 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1986 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1987 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1988 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1989 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1990 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1991 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1992 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1993 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1994 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1995 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1996 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1997 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1998 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
1999 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2000 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2001 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
2002 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
2003 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2004 TRAN =SIMP(statut='f',typ='R',max='**'),
2005 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
2006 CENTRE =SIMP(statut='f',typ='R',max='**'),
2008 CONVECTION =FACT(statut='f',min=01,max='**',
2009 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
2011 RAYONNEMENT =FACT(statut='f',min=01,max='**',
2012 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
2013 ENSEMBLE('SIGMA','EPSILON','TEMP_EXT'),),
2014 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2015 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2016 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2017 SIGMA =SIMP(statut='o',typ=(fonction) ),
2018 EPSILON =SIMP(statut='o',typ=(fonction) ),
2019 TEMP_EXT =SIMP(statut='o',typ=(fonction) ),
2021 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2023 #& MODIF COMMANDE DATE 24/09/97 AUTEUR CIBHHLV L.VIVAN
2024 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2025 fr="Affectation de caractéristiques de matériaux à un maillage",
2026 docu="U4.43.03-F",reentrant='n',
2027 MAILLAGE =SIMP(statut='o',typ=maillage),
2028 MODELE =SIMP(statut='f',typ=modele),
2029 AFFE =FACT(statut='o',min=01,max='**',
2030 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2031 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2032 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2033 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2034 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2035 NOEUD =SIMP(statut='f',typ=no,max='**'),
2036 MATER =SIMP(statut='o',typ=mater),
2037 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2040 #& MODIF COMMANDE DATE 26/09/2000 AUTEUR CIBHHLV L.VIVAN
2041 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-F",
2042 fr="Affectation des éléments finis sur le maillage",reentrant='n',
2043 regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2044 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
2045 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
2046 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2047 VERIF =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
2048 AFFE_SOUS_STRUC =FACT(statut='f',min=01,max=01,
2049 regles=(UN_PARMI('TOUT','MAILLE'),),
2050 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2051 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2052 PHENOMENE =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2054 AFFE =FACT(statut='f',min=01,max='**',
2055 regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2056 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2057 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2058 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2059 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2060 NOEUD =SIMP(statut='f',typ=no,max='**'),
2061 PHENOMENE =SIMP(statut='o',typ='TXM',
2062 into=("MECANIQUE","THERMIQUE","ACOUSTIQUE","NON_LOCAL") ),
2063 b_mecanique =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2064 fr="modelisations mécaniques",
2065 MODELISATION =SIMP(statut='o',typ='TXM', into=(
2133 b_thermique =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2134 fr="modelisations thermiques",
2135 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2148 b_acoustique =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2149 fr="modelisations acoustiques",
2150 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2155 b_non_local =BLOC( condition = "PHENOMENE=='NON_LOCAL'",
2156 fr="modelisations non locales",
2157 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2165 #& MODIF COMMANDE DATE 25/10/93 AUTEUR VABHHTS J.PELLET
2166 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-F",
2167 fr="Interrogation sur le catalogue des commandes et les concepts produits",
2168 regles=(AU_MOINS_UN('COMMANDE','CONCEPT','TYPE_ELEM', ),),
2169 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2170 TYPE_ELEM =FACT(fr="couple type_elem option",
2171 statut='f',min=01,max=01,
2172 INITEL =SIMP(statut='f',typ='TXM',defaut="NON",
2173 into=("OUI","NON",) ),
2175 COMMANDE =FACT(statut='f',min=01,max='**',
2176 NOM =SIMP(fr="liste des noms de commande",
2177 statut='f',typ='TXM',max='**',defaut="*"),
2178 OPTION =SIMP(fr="option d'édition de commande",
2179 statut='f',typ='TXM',defaut="CATALOGUE",
2180 into=("CATALOGUE","A_REMPLIR","NUMERO",) ),
2182 CONCEPT =FACT(statut='f',min=01,max='**',
2183 NOM =SIMP(fr="liste des noms de concept",
2184 statut='f',typ='TXM',max='**',defaut="*"),
2185 OPTION =SIMP(fr="option d'édition de concept",
2186 statut='f',typ='TXM',defaut="TOUT_TYPE",
2187 into=("TOUT_TYPE","CREER","A_CREER",) ),
2190 #& MODIF COMMANDE DATE 18/03/92 AUTEUR INCONNU INCONNU
2191 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
2192 fr="Assembler deux maillages sous un seul nom",
2193 docu="U4.23.03-E",reentrant='n',
2194 MAILLAGE =SIMP(statut='o',typ=maillage,min=02,max=02 ),
2196 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
2197 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
2198 fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
2199 docu="U4.65.04-D",reentrant='n',
2200 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
2201 OPTION =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
2203 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
2204 def asse_matrice_prod(MATR_ELEM,**args):
2205 if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
2206 if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
2207 if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
2208 if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
2209 raise AsException("type de concept resultat non prevu")
2211 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
2212 fr="Construction d une matrice assemblée",docu="U4.61.22-F",reentrant='n',
2213 MATR_ELEM =SIMP(statut='o',
2214 typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
2215 NUME_DDL =SIMP(statut='o',typ=nume_ddl),
2216 CHAR_CINE =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
2217 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
2219 #& MODIF COMMANDE DATE 30/06/93 AUTEUR T8BHHTK T.KERBER
2220 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
2221 fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
2222 docu="U4.65.05-D",reentrant='n',
2223 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
2224 CHAR_SOUS_STRUC =FACT(statut='o',min=01,max='**',
2225 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
2226 VECT_ASSE =SIMP(statut='o',typ=cham_no_depl_r ),
2229 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
2230 def asse_vecteur_prod(VECT_ELEM,**args):
2231 if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
2232 if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
2233 if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
2234 if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
2235 raise AsException("type de concept resultat non prevu : %s" %`AsType(VECT_ELEM)`)
2237 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
2238 fr="Assemblage d un second membre",docu="U4.61.23-F",reentrant='n',
2239 VECT_ELEM =SIMP(statut='o',typ=vect_elem,max='**'),
2240 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
2241 INFO =SIMP(statut='f',typ='I',into=(1,2,) ),
2243 #& MODIF COMMANDE DATE 28/09/98 AUTEUR ACBHHCD G.DEVESA
2244 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
2245 fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
2246 docu="U4.52.13-C",reentrant='n',
2247 ENER_SOL =FACT(statut='o',min=01,max=01,
2248 regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
2249 PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
2250 # Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
2251 PRESENT_PRESENT('KRX','KRY'),
2252 PRESENT_PRESENT('KRX','KRZ'),
2253 PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
2254 PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
2255 PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
2256 METHODE =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
2257 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
2258 GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
2259 GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
2260 FONC_GROUP =SIMP(statut='f',typ=fonction ),
2261 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
2262 KX =SIMP(statut='o',typ='R' ),
2263 KY =SIMP(statut='o',typ='R' ),
2264 KZ =SIMP(statut='o',typ='R' ),
2265 KRX =SIMP(statut='f',typ='R' ),
2266 KRY =SIMP(statut='f',typ='R' ),
2267 KRZ =SIMP(statut='f',typ='R' ),
2268 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
2269 NOEUD_CENTRE =SIMP(statut='f',typ=no),
2270 COOR_CENTRE =SIMP(statut='f',typ='R',max=03),
2272 AMOR_INTERNE =FACT(statut='o',min=01,max=01,
2273 ENER_POT =SIMP(statut='o',typ=tabl_ener_pot ),
2274 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
2275 AMOR_REDUIT =SIMP(statut='o',typ='R',max='**'),
2277 AMOR_SOL =FACT(statut='o',min=01,max=01,
2278 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2279 FONC_AMOR_GEO =SIMP(statut='o',typ=fonction,max='**' ),
2280 HOMOGENE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2281 SEUIL =SIMP(statut='f',typ='R',defaut= 0.3 ),
2284 #& MODIF COMMANDE DATE 29/08/2000 AUTEUR ADBHHPM P.MASSIN
2285 def calc_cham_elem_prod(OPTION,**args):
2286 if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
2287 if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
2288 if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
2289 if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
2290 if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
2291 if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
2292 if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
2293 if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
2294 if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
2295 if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
2296 if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
2297 if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
2298 if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
2299 if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
2300 if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
2301 if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
2302 if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
2303 if OPTION == "ENEL_ELGA" : return cham_elem_ener_r
2304 if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
2305 if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
2306 if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
2307 if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
2308 if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
2309 if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
2310 if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
2311 if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
2312 if OPTION == "COOR_ELGA" : return cham_elem_geom_r
2313 raise AsException("type de concept resultat non prevu")
2315 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
2316 fr="Calcul de champs par éléments (contraintes, déformations ou flux) à partir de champs solution (déplacement ou température) ou de champs par éléments",
2317 docu="U4.81.03-F",reentrant='n',
2318 MODELE =SIMP(statut='o',typ=modele),
2319 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
2320 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
2322 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2323 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2324 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2328 # introduire un mot cle de type modelisation : mécanique,thermique,...
2331 OPTION =SIMP(statut='o',typ='TXM',
2332 into=("DEGE_ELNO_DEPL","EFGE_ELNO_DEPL","EPOT_ELEM_DEPL",
2333 "EPSI_ELNO_DEPL","PRES_DBEL_DEPL","SIGM_ELNO_DEPL",
2334 "SIEF_ELGA_DEPL","SIEF_ELGA_LAGR","SIGM_ELNO_LAGR",
2335 "EFGE_ELNO_CART","ENDO_ELNO_SIGM","EQUI_ELGA_EPSI",
2336 "EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELNO_SIGM",
2337 "SIGM_ELNO_CART","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
2338 "FLUX_ELNO_TEMP","FLUX_ELGA_TEMP","SOUR_ELGA_ELEC",
2339 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2340 "COOR_ELGA","ENEL_ELGA","ENEL_ELNO_ELGA"), ),
2341 DEPL =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
2342 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0),
2343 CHAM_ELEM =SIMP(statut='f',typ=(cham_elem_sief_r,cham_elem_epsi_r) ),
2344 FREQ =SIMP(statut='f',typ='R'),
2345 VITE =SIMP(statut='f',typ=cham_no_depl_r),
2346 EXCIT =FACT(statut='f',min=01,max='**',
2347 regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
2348 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
2349 FONC_MULT =SIMP(statut='f',typ=fonction),
2350 COEF_MULT =SIMP(statut='f',typ='R'),
2352 INST =SIMP(statut='f',typ='R',defaut= 0.E+0),
2353 ACCE =SIMP(statut='f',typ=cham_no_depl_r),
2354 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1),
2355 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
2356 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
2358 TEMP =SIMP(statut='f',typ=(cham_no_temp_r) ),
2360 PRES =SIMP(statut='f',typ=(cham_no_pres_c) ),
2362 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
2363 ANGLE =SIMP(statut='f',typ='I',defaut= 0),
2364 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",
2365 into=("SUP","INF","MOY","MAIL"), ),
2367 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
2368 def calc_char_cine_prod(CHAR_CINE,**args):
2369 if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
2370 if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
2371 if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
2372 raise AsException("type de concept resultat non prevu")
2374 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
2375 fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
2376 docu="U4.61.03-E",reentrant='n',
2377 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
2378 CHAR_CINE =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
2379 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2380 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2382 #& MODIF COMMANDE DATE 08/03/94 AUTEUR VABHHT2 G.BERTRAND
2383 def calc_char_seisme_prod(MATR_MASS,**args ):
2384 if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
2385 raise AsException("type de concept resultat non prevu")
2387 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op= 92,sd_prod=calc_char_seisme_prod,
2388 fr="Calcul du chargement sismique (forces d inertie fictives) pour une étude ultérieure de la réponse en mouvement relatif par rapport aux appuis",
2389 docu="U4.63.01-E",reentrant='n',
2390 regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
2391 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
2392 DIRECTION =SIMP(statut='o',typ='R',max=06,fr="Directions du séisme imposé"),
2393 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2394 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
2395 b_mode_stat =BLOC ( condition = "MODE_STAT != None",
2396 regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
2397 NOEUD =SIMP(statut='f',typ=no,max='**'),
2398 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2400 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2402 #& MODIF COMMANDE DATE 29/08/2000 AUTEUR ADBHHPM P.MASSIN
2403 def calc_elem_prod(RESULTAT,**args):
2404 if AsType(RESULTAT) == evol_elas : return evol_elas
2405 if AsType(RESULTAT) == evol_noli : return evol_noli
2406 if AsType(RESULTAT) == evol_ther : return evol_ther
2407 if AsType(RESULTAT) == dyna_trans : return dyna_trans
2408 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
2409 if AsType(RESULTAT) == acou_harmo : return acou_harmo
2410 if AsType(RESULTAT) == mode_meca : return mode_meca
2411 if AsType(RESULTAT) == mode_flamb : return mode_flamb
2412 if AsType(RESULTAT) == mode_acou : return mode_acou
2413 if AsType(RESULTAT) == mode_stat : return mode_stat
2414 if AsType(RESULTAT) == mult_elas : return mult_elas
2415 if AsType(RESULTAT) == fourier_elas : return fourier_elas
2416 if AsType(RESULTAT) == base_modale : return base_modale
2417 raise AsException("type de concept resultat non prevu")
2419 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-F",reentrant='f',
2420 fr="Compléter un résultat en calculant des champs par éléments (contraintes, déformations,... )",
2421 MODELE =SIMP(statut='o',typ=modele),
2422 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
2423 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
2425 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2426 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2427 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2429 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
2430 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
2431 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2432 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
2433 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
2434 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
2435 NOM_CAS =SIMP(statut='f',typ='TXM' ),
2437 INST =SIMP(statut='f',typ='R',max='**'),
2438 FREQ =SIMP(statut='f',typ='R',max='**'),
2439 LIST_INST =SIMP(statut='f',typ=listr8),
2440 LIST_FREQ =SIMP(statut='f',typ=listr8),
2441 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
2442 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
2444 LIST_ORDRE =SIMP(statut='f',typ=listis),
2446 OPTION =SIMP(statut='o',typ='TXM',max='**',
2447 into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
2448 "SIGM_ELNO_TUYO","SIGM_ELNO_CART","DEGE_ELNO_DEPL","EFGE_ELNO_CART",
2449 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
2450 "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
2451 "EPSP_ELNO","EPSP_ELGA","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
2452 "EPGR_ELNO","EPGR_ELGA","DURT_ELGA_META","DURT_ELNO_META",
2453 "SIGM_ELNO_COQU","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
2454 "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
2455 "VNOR_ELEM_DEPL","SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
2456 "VARI_ELNO_ELGA","VARI_ELNO_TUYO","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
2457 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
2458 "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
2459 "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","ENEL_ELGA","ENEL_ELNO_ELGA","SIEF_ELNO_ELGA",
2460 "DEUL_ELGA_TEMP","DETE_ELNO_DLTE","DEUL_ELGA_DEPL","DEDE_ELNO_DLDE",
2461 "DLSI_ELGA_DEPL","DESI_ELNO_DLSI","PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
2462 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
2464 "PRES_ELNO_DBEL","PRES_DBEL_DEPL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2465 "INTE_ELNO_ACTI","INTE_ELNO_REAC",
2467 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
2468 mode_stat,evol_noli,mult_elas,fourier_elas,
2469 evol_ther,base_modale,
2470 acou_harmo,mode_acou,mode_flamb) ),
2471 EXCIT =FACT(statut='f',min=01,max='**',
2472 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
2473 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),
2474 FONC_MULT =SIMP(statut='f',typ=fonction),
2475 FONC_MULT_C =SIMP(statut='f',typ=fonction_c),
2476 COEF_MULT =SIMP(statut='f',typ='R'),
2477 COEF_MULT_C =SIMP(statut='f',typ='C'),
2478 PHAS_DEG =SIMP(statut='f',typ='R'),
2479 PUIS_PULS =SIMP(statut='f',typ='I'),
2480 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
2482 NORME =SIMP(statut='f',typ='TXM',defaut="VMIS",
2483 into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
2484 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1 ),
2485 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
2487 ANGLE =SIMP(statut='f',typ='I',defaut= 0 ),
2488 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
2489 SENSIBILITE =FACT(statut='f',min=01,max=01,
2490 THETA =SIMP(statut='f',typ=(theta_geom) ),
2492 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
2493 EFGE_REPERE =FACT(statut='f',min=01,max=01,
2494 regles=(UN_PARMI('ANGL_REP','VECT_X_Y','VECT_X_Z'),),
2495 ANGL_REP =SIMP(statut='f',typ='R',max='**'),
2496 VECT_X_Y =SIMP(statut='f',typ='R',max='**'),
2497 VECT_X_Z =SIMP(statut='f',typ='R',max='**'),
2500 TEMP_INIT =FACT(statut='f',min=01,max='**',
2501 regles=(EXCLUS('META_INIT','EVOL_THER'),),
2502 META_INIT =SIMP(statut='f',typ=carte_meta_r),
2503 EVOL_THER =SIMP(statut='f',typ=evol_ther,),
2504 NUME_INIT =SIMP(statut='f',typ='I'),
2507 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2509 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
2510 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=cham_elem_dommag,reentrant='n',
2511 fr="Calcul d un champ de dommage subi par une structure",
2513 regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
2514 OPTION =SIMP(statut='o',typ='TXM',
2515 into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
2516 "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
2517 "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
2518 HISTOIRE =FACT(statut='o',min=01,max=01,
2519 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
2520 EQUI_GD =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",into=("VMIS_SG","INVA_2_SG") ),
2522 DOMMAGE =SIMP(statut='o',typ='TXM',
2523 into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON","TAHERI_MIXTE",) ),
2524 MATER =SIMP(statut='o',typ=(mater) ),
2525 TAHERI_NAPPE =SIMP(statut='f',typ=(fonction) ),
2526 TAHERI_FONC =SIMP(statut='f',typ=(fonction) ),
2527 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2529 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
2530 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
2531 fr="Calcul des paramètres modaux d une structure soumise à un écoulement, en prenant en compte les forces fluidélastiques",
2532 docu="U4.66.02-C",reentrant='n',
2533 VITE_FLUI =FACT(statut='o',min=01,max=01,
2534 fr="Définir la plage de vitesse fluide étudiée",
2535 VITE_MIN =SIMP(statut='o',typ='R' ),
2536 VITE_MAX =SIMP(statut='o',typ='R' ),
2537 NB_POIN =SIMP(statut='o',typ='I' ),
2539 BASE_MODALE =FACT(statut='o',min=01,max=01,
2541 regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
2542 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
2543 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
2544 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
2545 AMOR_UNIF =SIMP(statut='f',typ='R' ),
2547 TYPE_FLUI_STRU =SIMP(statut='o',typ=type_flui_stru ),
2548 IMPRESSION =FACT(statut='f',min=01,max=01,
2549 fr="Choix des informations à imprimer dans le fichier RESULTAT",
2550 PARA_COUPLAGE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2551 DEFORMEE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
2554 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
2555 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
2556 fr="Construire un concept de type fonction à partir d une fonction réelle de la variable réelle définie par une FORMULE",
2557 docu="U4.32.01-D",reentrant='f',
2558 regles=(UN_PARMI('VALE_R','LIST_PARA'),),
2559 FONCTION =SIMP(statut='o',typ=fonction ),
2560 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
2561 VALE_R =SIMP(statut='f',typ='R',max='**'),
2562 LIST_PARA =SIMP(statut='f',typ=listr8 ),
2563 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG","INT") ),
2564 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
2565 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
2566 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2567 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2569 #& MODIF COMMANDE DATE 20/06/2000 AUTEUR ACBHHCD G.DEVESA
2570 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,MAX,COMB,COMB_C,ENVELOPPE,SPEC_OSCI,FFT,COMPOSE,**args):
2571 if (RMS != None) : return tabl_fonc_rms
2572 if (MAX != None) : return tabl_fonc_max
2573 if (INTEGRE != None) : return fonction
2574 if (DERIVE != None) : return fonction
2575 if (COMB != None) : return fonction
2576 if (ENVELOPPE != None) : return fonction
2577 if (EXTRACTION != None) : return fonction
2578 if (SPEC_OSCI != None) : return fonction
2579 if (COMB_C != None) : return fonction_c
2580 if (COMPOSE != None) : return fonction
2582 vale=FFT.get_child('FONCTION').get_valeur()
2583 if (AsType(vale) == fonction ) : return fonction_c
2584 if (AsType(vale) == fonction_c) : return fonction
2585 raise AsException("type de concept resultat non prevu")
2587 CALC_FONCTION=OPER(nom="CALC_FONCTION",op= 91,sd_prod=calc_fonction_prod
2588 ,fr="Opérations mathématiques sur des concepts de type fonction",
2589 docu="U4.32.04-E",reentrant='n',
2590 regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','ENVELOPPE','RMS',
2591 'COMB_C','COMPOSE','EXTRACTION','ASSE','FFT' ),),
2592 FFT =FACT(statut='f',min=01,max=01,fr="Calcul de la transformee de Fourier ou de son inverse",
2593 FONCTION =SIMP(statut='o',typ=(fonction,fonction_c) )
2595 DERIVE =FACT(statut='f',min=01,max=01,fr="Calcul de la dérivée d une fonction",
2596 METHODE =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
2597 FONCTION =SIMP(statut='o',typ=fonction ),
2599 INTEGRE =FACT(statut='f',min=01,max=01,fr="Calcul de l intégrale d une fonction",
2600 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
2601 FONCTION =SIMP(statut='o',typ=fonction),
2602 COEF =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
2604 RMS =FACT(statut='f',min=01,max=01,fr="Calcul de la valeur RMS d une fonction",
2605 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
2606 FONCTION =SIMP(statut='o',typ=fonction ),
2607 INST_INIT =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
2608 INST_FIN =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
2609 b_inst =BLOC ( condition = "(INST_INIT != None) or (INST_FIN != None)",
2610 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
2611 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
2614 SPEC_OSCI =FACT(statut='f',min=01,max=01,fr="Calcul du spectre d oscillateur",
2615 METHODE =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
2616 FONCTION =SIMP(statut='o',typ=fonction ),
2617 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
2618 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
2619 FREQ =SIMP(statut='f',typ='R',max='**'),
2620 NORME =SIMP(statut='f',typ='R',defaut= 9.81,fr="Valeur de la norme du spectre d oscillateur" ),
2621 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
2622 NATURE_FONC =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
2624 MAX =FACT(statut='f',min=01,max=01,fr="Calcul des extrémas locaux d une fonction",
2625 FONCTION =SIMP(statut='o',typ=fonction ),
2627 COMB =FACT(statut='f',min=01,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
2628 FONCTION =SIMP(statut='o',typ=fonction ),
2629 COEF =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
2631 COMB_C =FACT(statut='f',min=01,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
2632 regles=(UN_PARMI('COEF_R','COEF_C'),),
2633 FONCTION =SIMP(statut='o',typ=(fonction, fonction_c) ),
2634 COEF_R =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
2635 COEF_C =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
2637 b_comb =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
2638 LIST_PARA =SIMP(statut='f',typ=listr8 ),
2640 COMPOSE =FACT(statut='f',min=01,max=01,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
2641 FONC_RESU =SIMP(statut='o',typ=fonction),
2642 FONC_PARA =SIMP(statut='o',typ=fonction),
2644 EXTRACTION =FACT(statut='f',min=01,max=01,fr="Opération d extraction sur une fonction complexe",
2645 FONCTION =SIMP(statut='o',typ=fonction_c),
2646 PARTIE =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
2648 ENVELOPPE =FACT(statut='f',min=01,max=01,fr="Calcul de l enveloppe d une famille de fonctions",
2649 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
2650 CRITERE =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
2652 ASSE =FACT(statut='f',min=01,max=01,fr="Création à partir de la concatenation de fonctions",
2653 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
2654 SURCHARGE =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
2656 NOM_PARA =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
2657 "INST","X","Y","Z","EPSI","FREQ","PULS",
2659 NOM_RESU =SIMP(statut='f',typ='TXM' ),
2660 INTERPOL =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
2661 PROL_DROIT =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
2662 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
2663 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
2664 "INST","X","Y","Z","EPSI","FREQ","PULS",
2666 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
2667 PROL_DROIT_FONC =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
2668 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
2669 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2670 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2672 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
2673 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
2674 fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-E",reentrant='n',
2675 MODELE =SIMP(statut='o',typ=modele),
2676 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
2677 FOND =SIMP(statut='o',typ=fond_fiss),
2678 regles=(UN_PARMI('RESULTAT','DEPL'),
2679 UN_PARMI('R_INF','R_INF_FO'),
2680 PRESENT_PRESENT('R_INF','R_SUP'),
2681 PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
2683 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
2684 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
2685 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
2686 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
2687 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2688 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
2689 LIST_ORDRE =SIMP(statut='f',typ=listis),
2690 INST =SIMP(statut='f',typ='R',max='**'),
2691 LIST_INST =SIMP(statut='f',typ=listr8),
2693 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
2694 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
2695 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
2699 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
2700 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
2702 COMP_ELAS =FACT(statut='f',min=01,max=01,
2703 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
2704 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
2705 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2706 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2707 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2708 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
2709 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2710 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2711 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2714 COMP_INCR =FACT(statut='f',min=01,max=01,
2715 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
2716 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
2717 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2718 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
2719 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
2720 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
2721 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
2722 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2723 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2724 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2727 ETAT_INIT =FACT(statut='f',min=01,max=01,
2728 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
2729 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
2732 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",into=("CALC_G","CALC_G_LGLO") ),
2733 b_g_lglo =BLOC(condition="OPTION=='CALC_G_LGLO'",
2734 PROPAGATION =SIMP(statut='o',typ='R'),
2735 THETA =SIMP(statut='o',typ=theta_geom),
2736 DIRE_THETA =SIMP(statut='f',typ=cham_no_depl_r),
2739 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
2740 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
2742 DEGRE =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
2744 R_INF =SIMP(statut='f',typ='R'),
2745 R_SUP =SIMP(statut='f',typ='R'),
2746 R_INF_FO =SIMP(statut='f',typ=fonction),
2747 R_SUP_FO =SIMP(statut='f',typ=fonction),
2749 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2750 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2752 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
2753 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
2754 fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
2755 docu="U4.82.03-E",reentrant='n',
2756 regles=(UN_PARMI('RESULTAT','DEPL'),
2757 EXCLUS('COMP_ELAS','COMP_INCR'),),
2758 MODELE =SIMP(statut='o',typ=modele),
2759 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
2760 THETA =SIMP(statut='o',typ=theta_geom),
2761 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
2762 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
2764 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
2765 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
2766 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2767 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
2768 LIST_ORDRE =SIMP(statut='f',typ=listis),
2769 INST =SIMP(statut='f',typ='R',max='**'),
2770 LIST_INST =SIMP(statut='f',typ=listr8),
2772 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
2773 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
2774 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
2778 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
2779 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
2781 COMP_ELAS =FACT(statut='f',min=01,max=01,
2782 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
2783 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
2784 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2785 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2786 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2787 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
2788 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2789 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2790 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2792 COMP_INCR =FACT(statut='f',min=01,max=01,
2793 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
2794 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
2795 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2796 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
2797 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
2798 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
2799 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
2800 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2801 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2802 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2804 ETAT_INIT =FACT(statut='f',min=01,max=01,
2805 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
2806 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
2808 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",
2809 into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX") ),
2810 b_calc_g_max =BLOC(condition="OPTION=='CALC_G_MAX'",
2811 BORNES =FACT(statut='o',min=01,max='**',
2812 NUME_ORDRE =SIMP(statut='o',typ='I'),
2813 VALE_MIN =SIMP(statut='o',typ='R'),
2814 VALE_MAX =SIMP(statut='o',typ='R'),
2817 b_calc_k_g =BLOC(condition="OPTION=='CALC_K_G'",
2818 FOND =SIMP(statut='o',typ=fond_fiss),
2820 b_calc_g_lagr =BLOC(condition="OPTION=='CALC_G_LAGR'",
2821 PROPAGATION =SIMP(statut='o',typ='R'),
2823 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2824 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2826 #& MODIF COMMANDE DATE 04/02/98 AUTEUR CIBHHLV L.VIVAN
2827 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
2828 fr="Calcul d une matrice interspectrale d une fonction du temps",
2829 docu="U4.36.03-E",reentrant='n',
2830 INST_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2831 INST_FIN =SIMP(statut='o',typ='R' ),
2832 DUREE_ANALYSE =SIMP(statut='f',typ='R' ),
2833 DUREE_DECALAGE =SIMP(statut='f',typ='R' ),
2834 NB_POIN =SIMP(statut='o',typ='I' ),
2835 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
2836 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2837 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
2839 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
2840 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
2841 fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
2842 docu="U4.66.01-C",reentrant='n',
2843 regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
2844 PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
2845 PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
2846 MODELE_FLUIDE =SIMP(statut='o',typ=modele ),
2847 MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
2848 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
2849 CHARGE =SIMP(statut='o',typ=char_ther ),
2850 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
2851 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
2852 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
2853 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene ),
2854 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
2855 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2856 NUME_MODE_MECA =SIMP(statut='f',typ='I',max='**'),
2857 OPTION =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
2858 POTENTIEL =SIMP(statut='f',typ=evol_ther ),
2859 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
2860 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2862 SOLVEUR =FACT(statut='d',min=01,max=01,
2863 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
2864 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
2865 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
2867 b_ldlt =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
2868 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
2869 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
2871 b_ldlt_mult =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
2872 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
2873 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
2874 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2876 b_gcpc =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
2877 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
2878 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
2879 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
2880 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
2883 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2886 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
2887 def calc_matr_elem_prod(OPTION,**args):
2888 if OPTION == "RIGI_MECA" : return matr_elem_depl_r
2889 if OPTION == "RIGI_FLUI_STRU" : return matr_elem_depl_r
2890 if OPTION == "RIGI_MECA_LAGR" : return matr_elem_depl_r
2891 if OPTION == "MASS_MECA" : return matr_elem_depl_r
2892 if OPTION == "MASS_FLUI_STRU" : return matr_elem_depl_r
2893 if OPTION == "RIGI_GEOM" : return matr_elem_depl_r
2894 if OPTION == "RIGI_ROTA" : return matr_elem_depl_r
2895 if OPTION == "AMOR_MECA" : return matr_elem_depl_r
2896 if OPTION == "IMPE_MECA" : return matr_elem_depl_r
2897 if OPTION == "ONDE_FLUI" : return matr_elem_depl_r
2898 if OPTION == "RIGI_MECA_HYST" : return matr_elem_depl_c
2899 if OPTION == "RIGI_THER" : return matr_elem_temp_r
2900 if OPTION == "MASS_THER" : return matr_elem_temp_r
2901 if OPTION == "MASS_MECA_DIAG" : return matr_elem_depl_r
2902 if OPTION == "RIGI_ACOU" : return matr_elem_pres_c
2903 if OPTION == "MASS_ACOU" : return matr_elem_pres_c
2904 if OPTION == "AMOR_ACOU" : return matr_elem_pres_c
2905 raise AsException("type de concept resultat non prevu")
2907 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op= 9,sd_prod=calc_matr_elem_prod
2908 ,fr="Calcul des matrices élémentaires",docu="U4.61.01-F",reentrant='n',
2909 OPTION =SIMP(statut='o',typ='TXM',
2910 into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
2911 "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
2912 "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
2913 "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
2914 "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
2915 "RIGI_MECA_LAGR") ),
2917 b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
2918 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
2919 MODELE =SIMP(statut='f',typ=modele ),
2920 b_modele =BLOC(condition = "MODELE != None",
2921 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
2922 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2923 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
2925 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
2926 b_charge =BLOC (condition = "CHARGE != None",
2927 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2931 b_rigi_meca_lagr =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
2932 MODELE =SIMP(statut='o',typ=modele ),
2933 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
2934 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
2935 b_charge =BLOC(condition = "CHARGE != None",
2936 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2938 THETA =SIMP(statut='o',typ=theta_geom ),
2939 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2942 b_mass_meca =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
2943 regles=(AU_MOINS_UN('MODELE','CHARGE'),),
2944 MODELE =SIMP(statut='f',typ=modele ),
2945 b_modele =BLOC(condition = "MODELE != None",
2946 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
2947 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2949 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
2950 b_charge =BLOC(condition = "CHARGE != None",
2951 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2955 b_rigi_geom =BLOC(condition = "OPTION=='RIGI_GEOM'",
2956 MODELE =SIMP(statut='o',typ=modele ),
2957 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2958 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r ),
2959 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
2962 b_rigi_rota =BLOC(condition = "OPTION=='RIGI_ROTA'",
2963 MODELE =SIMP(statut='o',typ=modele ),
2964 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
2965 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
2966 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2969 b_amor_meca =BLOC(condition = "OPTION=='AMOR_MECA'",
2970 regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
2971 ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
2972 MODELE =SIMP(statut='o',typ=modele ),
2973 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2974 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
2975 RIGI_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
2976 MASS_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
2977 CHARGE =SIMP(statut='f',typ=char_meca ,max='**' ),
2980 b_rigi_meca_hyst =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
2981 MODELE =SIMP(statut='o',typ=modele ),
2982 CHARGE =SIMP(statut='o',typ=char_meca ,max='**' ),
2983 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
2984 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2985 RIGI_MECA =SIMP(statut='o',typ=matr_elem_depl_r ),
2988 b_rigi_ther =BLOC(condition = "OPTION=='RIGI_THER'",
2989 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
2990 MODELE =SIMP(statut='f',typ=modele ),
2991 b_modele =BLOC(condition = "MODELE != None",
2992 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
2993 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2994 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
2996 CHARGE =SIMP(statut='f',typ=char_ther,max='**' ),
2999 b_mass_ther =BLOC(condition = "OPTION=='MASS_THER'",
3000 MODELE =SIMP(statut='o',typ=modele ),
3001 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3002 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3005 b_rigi_acou =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
3006 MODELE =SIMP(statut='o',typ=modele ),
3007 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3008 CHARGE =SIMP(statut='f',typ=char_acou ,max='**' ),
3011 b_rigi_flui =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
3012 MODELE =SIMP(statut='o',typ=modele ),
3013 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
3014 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3015 CHARGE =SIMP(statut='o',typ=char_meca ,max='**' ),
3016 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3019 b_impe_meca =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
3020 MODELE =SIMP(statut='o',typ=modele ),
3021 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
3022 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3025 b_rigi_conv =BLOC( condition = "(OPTION=='RIGI_THER_CONV') or (OPTION=='RIGI_THER_CONV_D')",
3026 MODELE =SIMP(statut='o',typ=modele ),
3027 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3028 CHARGE =SIMP(statut='o',typ=char_ther,max='**' ),
3032 #& MODIF COMMANDE DATE 04/07/2000 AUTEUR JMBHH01 J.M.PROIX
3033 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-A",reentrant='o',
3034 fr="Calcule la métallurgie à partir du résultat du calcul thermique",
3035 MODELE =SIMP(statut='o',typ=modele ),
3036 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3037 RESULTAT =SIMP(statut='o',typ=evol_ther ),
3038 ETAT_INIT =FACT(statut='o',min=01,max=01,
3039 regles=(UN_PARMI('NUME_INIT','META_INIT',),),
3040 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
3041 NUME_INIT =SIMP(statut='f',typ='I' ),
3042 META_INIT =SIMP(statut='f',typ=carte_var2_r ),
3044 COMP_INCR =FACT(statut='o',min=01,max='**',
3045 RELATION =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
3046 ACIER =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
3047 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
3048 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3049 GROUP_MA =SIMP(statut='f',typ=grma),
3050 MAILLE =SIMP(statut='f',typ=ma),
3052 OPTION =SIMP(statut='f',typ='TXM'
3053 ,into=("META_ELNO_TEMP",) ),
3055 #& MODIF COMMANDE DATE 12/05/2000 AUTEUR CIBHHAB N.RAHNI
3056 def calc_no_prod(RESULTAT,**args):
3057 if AsType(RESULTAT) == evol_elas : return evol_elas
3058 if AsType(RESULTAT) == evol_noli : return evol_noli
3059 if AsType(RESULTAT) == evol_ther : return evol_ther
3060 if AsType(RESULTAT) == mode_meca : return mode_meca
3061 if AsType(RESULTAT) == mode_stat : return mode_stat
3062 if AsType(RESULTAT) == mode_acou : return mode_acou
3063 if AsType(RESULTAT) == mult_elas : return mult_elas
3064 if AsType(RESULTAT) == dyna_trans : return dyna_trans
3065 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
3066 if AsType(RESULTAT) == acou_harmo : return acou_harmo
3067 if AsType(RESULTAT) == fourier_elas : return fourier_elas
3068 if AsType(RESULTAT) == mode_flamb : return mode_flamb
3069 if AsType(RESULTAT) == base_modale : return base_modale
3070 raise AsException("type de concept resultat non prevu")
3072 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-E",reentrant='o',
3073 fr="Compléter un résultat en calculant un champ aux noeuds (forces nodales à partir d un champ de contraintes aux points de GAUSS)",
3074 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
3075 mode_acou,mode_stat,evol_ther,evol_noli,base_modale,
3076 mult_elas,fourier_elas,mode_flamb ) ),
3078 MODELE =SIMP(statut='f',typ=modele),
3079 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3080 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3081 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3082 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3083 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
3084 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
3085 NOM_CAS =SIMP(statut='f',typ='TXM' ),
3086 INST =SIMP(statut='f',typ='R',max='**'),
3087 FREQ =SIMP(statut='f',typ='R',max='**'),
3088 LIST_INST =SIMP(statut='f',typ=listr8),
3089 LIST_FREQ =SIMP(statut='f',typ=listr8),
3090 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3091 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3092 LIST_ORDRE =SIMP(statut='f',typ=listis),
3094 OPTION =SIMP(statut='o',typ='TXM',max='**'),
3096 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
3097 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3098 GEOMETRIE =SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE") ),
3099 EXCIT =FACT(statut='f',min=01,max='**',
3100 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
3101 FONC_MULT =SIMP(statut='f',typ=fonction),
3102 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
3103 into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
3105 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3106 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3107 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3108 TAILLE_BLOC =SIMP(statut='f',typ='R' ,defaut= 400. ),
3110 #& MODIF COMMANDE DATE 20/10/1999 AUTEUR DURAND C.DURAND
3111 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-D",reentrant='n',
3112 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
3113 regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
3114 PRESENT_PRESENT('THETA_3D','FOND_3D'),
3115 PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
3116 EXCLUS('DIRECTION','DIRE_THETA'),),
3117 OPTION =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
3118 MODELE =SIMP(statut='o',typ=(modele) ),
3119 FOND_3D =SIMP(statut='f',typ=(fond_fiss) ),
3120 THETA_3D =FACT(statut='f',min=01,max='**',
3121 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
3122 UN_PARMI('MODULE','MODULE_FO'),
3123 ENSEMBLE('MODULE','R_INF','R_SUP'),
3124 ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
3125 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3126 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3127 NOEUD =SIMP(statut='f',typ=no,max='**'),
3128 MODULE =SIMP(statut='f',typ='R'),
3129 R_INF =SIMP(statut='f',typ='R'),
3130 R_SUP =SIMP(statut='f',typ='R'),
3131 MODULE_FO =SIMP(statut='f',typ=fonction),
3132 R_INF_FO =SIMP(statut='f',typ=fonction),
3133 R_SUP_FO =SIMP(statut='f',typ=fonction),
3135 DIRE_THETA =SIMP(statut='f',typ=(cham_no_depl_r) ),
3136 DIRECTION =SIMP(statut='f',typ='R',max='**'),
3137 THETA_2D =FACT(statut='f',min=01,max='**',
3138 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
3139 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3140 NOEUD =SIMP(statut='f',typ=no,max='**'),
3141 MODULE =SIMP(statut='o',typ='R'),
3142 R_INF =SIMP(statut='o',typ='R'),
3143 R_SUP =SIMP(statut='o',typ='R'),
3145 THETA_BANDE =FACT(statut='f',min=01,max='**',
3146 MODULE =SIMP(statut='o',typ='R'),
3147 R_INF =SIMP(statut='o',typ='R'),
3148 R_SUP =SIMP(statut='o',typ='R'),
3150 GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3151 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3152 IMPRESSION =FACT(statut='f',min=01,max=01,
3153 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
3154 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
3157 #& MODIF COMMANDE DATE 11/01/99 AUTEUR VABHHTS J.PELLET
3158 def calc_vect_elem_prod(OPTION,**args):
3159 if OPTION == "CHAR_MECA" : return vect_elem_depl_r
3160 if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
3161 if OPTION == "CHAR_THER" : return vect_elem_temp_r
3162 if OPTION == "CHAR_ACOU" : return vect_elem_pres_c
3163 if OPTION == "FORC_NODA" : return vect_elem_depl_r
3164 raise AsException("type de concept resultat non prevu")
3166 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-F",reentrant='n',
3167 fr="Calcul des seconds membres élémentaires",
3168 OPTION =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
3169 "FORC_NODA","CHAR_MECA_LAGR") ),
3170 b_char_meca =BLOC(condition = "OPTION=='CHAR_MECA'",
3171 regles=(AU_MOINS_UN('CHARGE','MODELE'),),
3172 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
3173 MODELE =SIMP(statut='f',typ=modele),
3174 b_charge =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
3175 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
3176 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3177 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3178 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
3180 b_modele =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
3181 SOUS_STRUC =FACT(statut='o',min=01,
3182 regles=(UN_PARMI('TOUT','MAILLE'),),
3183 CAS_CHARGE =SIMP(statut='o',typ='TXM' ),
3184 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3185 MAILLE =SIMP(statut='f',typ=ma,max='**',),
3189 b_char_ther =BLOC(condition = "OPTION=='CHAR_THER'",
3190 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3191 CHARGE =SIMP(statut='o',typ=char_ther,max='**'),
3192 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3195 b_char_acou =BLOC(condition = "OPTION=='CHAR_ACOU'",
3196 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3197 CHARGE =SIMP(statut='o',typ=char_acou,max='**'),
3200 b_forc_noda =BLOC(condition = "OPTION=='FORC_NODA'",
3201 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r),
3202 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3203 MODELE =SIMP(statut='f',typ=modele),
3206 b_meca_lagr =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
3207 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3208 THETA =SIMP(statut='o',typ=theta_geom),
3209 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3210 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
3211 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3214 #& MODIF COMMANDE DATE 31/10/2000 AUTEUR VABHHTS J.PELLET
3215 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
3218 vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
3219 elif COMB_C != None:
3220 vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
3221 elif COMB_FOURIER != None:
3222 vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
3224 raise AsException("type de concept resultat non prevu")
3226 if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
3227 if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
3228 if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
3229 if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
3230 if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
3231 if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
3232 if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
3233 if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
3234 raise AsException("type de concept resultat non prevu")
3236 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
3237 fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-E",
3238 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
3239 PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
3240 COMB_R =FACT(statut='f',min=01,max='**',
3241 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
3242 COEF_R =SIMP(statut='o',typ='R'),
3243 CHAM_ELEM =SIMP(statut='o',
3244 typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
3245 cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
3246 cham_elem_pres_r,cham_elem_sief_c ) ),
3248 COMB_C =FACT(statut='f',min=01,max='**',
3249 regles=(UN_PARMI('COEF_R','COEF_C', ),),
3250 COEF_R =SIMP(statut='f',typ='R'),
3251 COEF_C =SIMP(statut='f',typ='C'),
3252 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r) ),
3254 COMB_FOURIER =FACT(statut='f',min=01,max='**',
3255 COEF_R =SIMP(statut='f',typ='R',defaut= 1.),
3256 NUME_MODE =SIMP(statut='o',typ='I'),
3257 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
3258 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
3260 ANGL =SIMP(statut='f',typ='R' ),
3263 #& MODIF COMMANDE DATE 08/03/94 AUTEUR VABHHT2 G.BERTRAND
3264 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
3266 type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
3267 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
3268 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
3269 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
3270 elif COMB_R != None:
3271 type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
3272 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
3273 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
3274 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
3275 if type_mat == matr_asse_gene_r : return matr_asse_gene_r
3276 elif COMB_FOURIER != None:
3277 type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
3278 if type_mat == cham_no_temp_r : return cham_no_temp_r
3279 if type_mat == cham_no_depl_r : return cham_no_depl_r
3280 raise AsException("type de concept resultat non prevu")
3283 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op= 30,sd_prod=comb_cham_no_prod
3284 ,fr="Combinaison linéaire de champs aux noeuds",
3285 docu="U4.72.02-F",reentrant='f',
3286 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
3287 COMB_R =FACT(statut='f',min=01,max='**',
3288 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
3289 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
3290 ,cham_no_pres_r,cham_no_pres_c ) ),
3291 COEF_R =SIMP(statut='o',typ='R' ),
3293 COMB_C =FACT(statut='f',min=01,max='**',
3294 regles=(UN_PARMI('COEF_R','COEF_C' ),),
3295 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
3296 ,cham_no_depl_c,cham_no_pres_c ) ),
3297 COEF_R =SIMP(statut='f',typ='R' ),
3298 COEF_C =SIMP(statut='f',typ='C' ),
3300 COMB_FOURIER =FACT(statut='f',min=01,max='**',
3301 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
3302 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
3303 NUME_MODE =SIMP(statut='o',typ='I' ),
3304 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
3306 b_angl = BLOC ( condition = "COMB_FOURIER != None",
3307 ANGL =SIMP(statut='o',typ='R' ),
3310 #& MODIF COMMANDE DATE 08/11/95 AUTEUR CIBHHLV L.VIVAN
3311 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
3312 fr="Recombinaison de FOURIER de tous les modes se trouvant dans la structure de données de type resultat dans une ou des directions particulières",
3313 docu="U4.83.31-C",reentrant='n',
3314 RESULTAT =SIMP(statut='o',typ=fourier_elas ),
3315 ANGL =SIMP(statut='o',typ='R',max='**'),
3316 NOM_CHAM =SIMP(statut='o',typ='TXM',max=05,
3317 into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
3319 #& MODIF COMMANDE DATE 06/10/94 AUTEUR BIBERON G.ROUSSEAU
3320 def comb_matr_asse_prod(COMB_R,COMB_C,**args):
3322 type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
3323 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
3324 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
3325 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
3326 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
3327 elif COMB_R != None:
3328 type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
3329 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
3330 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
3331 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
3332 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
3333 raise AsException("type de concept resultat non prevu")
3335 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op= 31,sd_prod=comb_matr_asse_prod,
3336 fr="Combinaison linéaire de matrices assemblées",
3337 docu="U4.72.01-F",reentrant='f',
3338 regles=(UN_PARMI('COMB_R','COMB_C' ),),
3339 COMB_R =FACT(statut='f',min=01,max='**',
3340 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
3341 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,
3342 matr_asse_temp_r,matr_asse_temp_c,
3343 matr_asse_pres_r,matr_asse_pres_c,
3344 matr_asse_gene_r,matr_asse_gene_c ) ),
3345 COEF_R =SIMP(statut='o',typ='R' ),
3347 COMB_C =FACT(statut='f',min=01,max='**',
3348 regles=(UN_PARMI('COEF_R','COEF_C' ),),
3349 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,
3350 matr_asse_temp_r,matr_asse_temp_c,
3351 matr_asse_pres_r,matr_asse_pres_c,
3352 matr_asse_gene_r,matr_asse_gene_c ) ),
3353 COEF_R =SIMP(statut='f',typ='R' ),
3354 COEF_C =SIMP(statut='f',typ='C' ),
3356 SANS_CMP =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
3358 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
3359 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
3360 fr="Réponse sismique par recombinaison modale par une méthode spectrale",
3361 docu="U4.84.01-D",reentrant='n',
3362 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
3363 UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
3364 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
3365 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3366 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3367 LIST_ORDRE =SIMP(statut='f',typ=listis ),
3368 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
3369 FREQ =SIMP(statut='f',typ='R',max='**'),
3370 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
3371 b_freq =BLOC(condition = "FREQ != None or LIST_FREQ != None",
3372 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
3373 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3375 ACCE_UNIF =SIMP(statut='f',typ=mode_stat ),
3377 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
3378 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
3379 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
3381 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
3382 CORR_FREQ =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3384 EXCIT =FACT(statut='o',min=01,max='**',
3385 regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
3386 UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
3388 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3389 NOEUD =SIMP(statut='f',typ=no,max='**'),
3390 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3391 AXE =SIMP(statut='f',fr="Excitation suivant un seul axe",
3393 TRI_AXE =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
3395 TRI_SPEC =SIMP(statut='f',fr="Excitation suivant les trois axes avec trois spectres",
3396 typ='TXM',into=("OUI",) ),
3397 b_axe =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
3398 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=01 ),
3399 ECHELLE =SIMP(statut='f',typ='R',max=01),
3401 b_tri_axe =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
3402 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=01 ),
3403 ECHELLE =SIMP(statut='f',typ='R',max=01),
3405 b_tri_spec =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes avec trois spectres",
3406 SPEC_OSCI =SIMP(statut='o',typ=fonction,min=03,max=03 ),
3407 ECHELLE =SIMP(statut='f',typ='R',min=03,max=03),
3409 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
3411 COMB_MODE =FACT(statut='o',min=01,max=01,
3412 TYPE =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
3413 DUREE =SIMP(statut='f',typ='R' ),
3415 COMB_DIRECTION =FACT(statut='f',min=01,max=01,
3416 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
3418 COMB_MULT_APPUI =FACT(statut='f',min=01,max='**',
3419 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),),
3420 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3421 NOEUD =SIMP(statut='f',typ=no,max='**'),
3422 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3423 TYPE =SIMP(statut='o',typ='TXM',into=("QUAD","LINE","ABS") ),
3425 DEPL_MULT_APPUI =FACT(statut='f',min=01,max='**',
3426 regles=(UN_PARMI('NOEUD','GROUP_NO'),
3427 AU_MOINS_UN('DX','DY','DZ' ),),
3428 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
3429 NOEUD_REFE =SIMP(statut='f',typ=no),
3430 NOEUD =SIMP(statut='f',typ=no,max='**'),
3431 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3432 DX =SIMP(statut='f',typ='R' ),
3433 DY =SIMP(statut='f',typ='R' ),
3434 DZ =SIMP(statut='f',typ='R' ),
3436 OPTION =SIMP(statut='o',typ='TXM',max=10,
3437 into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3438 "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
3439 "SIPO_ELNO_DEPL",) ),
3440 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3441 IMPRESSION =FACT(statut='f',min=01,max='**',
3442 regles=(EXCLUS('TOUT','NIVEAU'),),
3443 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3444 NIVEAU =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=03 ),
3446 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3448 #& MODIF COMMANDE DATE 04/12/2000 AUTEUR VABHHTS J.PELLET
3449 def crea_champ_prod(TYPE_CHAM,**args):
3450 if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
3451 if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
3452 if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
3453 if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
3454 if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
3455 if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
3456 if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
3457 if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
3458 if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
3459 if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
3460 if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
3461 if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
3462 if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
3463 if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
3464 if TYPE_CHAM == "CART_META_R" : return carte_meta_r
3465 if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
3466 if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
3467 if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
3468 if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
3469 if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
3470 if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
3471 if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
3472 if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
3473 if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
3474 if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
3475 if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
3476 if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
3477 if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
3478 if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
3479 if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
3480 if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
3481 if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
3482 if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
3483 if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
3484 if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
3485 if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
3486 if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
3487 if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
3488 if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
3489 if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
3490 if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
3491 if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
3492 if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
3493 if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
3494 if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
3495 if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
3496 if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
3497 if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
3498 if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
3499 if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
3500 if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
3501 if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
3502 if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
3503 if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
3504 if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
3505 if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
3506 if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
3507 if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
3508 if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
3509 if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
3510 if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
3511 if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
3512 if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
3513 if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
3514 if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
3515 if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
3516 if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
3517 if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
3518 if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
3519 if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
3520 if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
3521 if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
3522 if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
3523 if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
3524 if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
3525 if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
3526 if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
3527 if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
3528 if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
3529 if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
3530 if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
3531 if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
3532 if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
3533 if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
3534 if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
3535 if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
3536 if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
3537 if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
3538 if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
3539 if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
3540 if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
3541 if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
3542 if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
3543 if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
3544 if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
3545 if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
3546 if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
3547 if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
3548 if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
3549 if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
3550 if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
3551 if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
3552 if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
3553 if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
3554 if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
3555 if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
3556 if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
3557 if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
3558 if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
3559 if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
3560 if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
3561 if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
3562 if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
3563 if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
3564 if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
3565 if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
3566 if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
3567 if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
3568 if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
3569 if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
3570 raise AsException("type de concept resultat non prevu")
3572 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
3573 fr=" ",docu="U4.72.04-A",reentrant='n',
3574 regles=(EXCLUS('NUME_DDL','CHAM_NO',),ENSEMBLE('CHAM_F','CHAM_PARA',),
3575 EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
3576 'NOEUD_CMP','NOM_CAS','ANGL', ),),
3577 TYPE_CHAM =SIMP(statut='o',typ='TXM',
3578 into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
3579 "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
3580 "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
3581 "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
3582 "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
3583 "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
3584 "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
3585 "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
3586 "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
3587 "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
3588 "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
3589 "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
3590 "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
3591 "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
3592 "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
3593 "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
3594 "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
3595 "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
3596 "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
3597 "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
3598 "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
3599 "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
3600 "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
3601 "ELGA_INTE_R","CART_META_R","NOEU_META_R",
3602 "ELEM_META_R","ELNO_META_R","ELGA_META_R",
3603 "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
3604 "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
3605 "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
3606 "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
3607 "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
3608 "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
3609 "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
3610 "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
3611 "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
3612 "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
3613 "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
3614 "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
3615 "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
3616 "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
3617 "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",) ),
3618 OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
3619 MODELE =SIMP(statut='f',typ=(modele) ),
3620 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
3621 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
3622 AFFE =FACT(statut='f',min=01,max='**',
3623 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
3624 UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
3625 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3626 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3627 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3628 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3629 NOEUD =SIMP(statut='f',typ=no,max='**'),
3630 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
3631 VALE =SIMP(statut='f',typ='R',max='**' ),
3632 VALE_R =SIMP(statut='f',typ='R',max='**' ),
3633 VALE_I =SIMP(statut='f',typ='I',max='**' ),
3634 VALE_C =SIMP(statut='f',typ='C',max='**' ),
3635 VALE_F =SIMP(statut='f',typ=fonction,max='**'),
3636 FONCTION =SIMP(statut='f',typ=fonction),
3638 NUME_DDL =SIMP(statut='f',typ=(nume_ddl) ),
3639 CHAM_NO =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_temp_f,cham_no_depl_r,
3640 cham_no_depl_f,cham_no_sief_r ) ),
3641 ASSE =FACT(statut='f',min=01,max='**',
3642 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
3643 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
3644 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3645 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3646 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3647 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3648 NOEUD =SIMP(statut='f',typ=no,max='**'),
3649 CHAM_GD =SIMP(statut='f',typ=(cham_elem,cham_no,carte)),
3650 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
3651 NOM_CMP_RESU =SIMP(statut='f',typ='TXM',max='**' ),
3652 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
3653 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
3655 CHAM_F =SIMP(statut='f',typ=(cham_elem,cham_no,carte)),
3656 CHAM_PARA =SIMP(statut='f',typ=(cham_elem,cham_no,carte),max='**'),
3657 CHAM_GD =SIMP(statut='f',typ=(cham_elem,cham_no,carte)),
3658 RESULTAT =SIMP(statut='f',typ=resultat ),
3659 NOM_CHAM =SIMP(statut='f',typ='TXM',
3660 into=("DEPL","VITE","ACCE","GEOMETRIE",
3661 "DEPL_ABSOLU","VITE_ABSOLU","TEMP","ACCE_ABSOLU",
3662 "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
3663 "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
3664 "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
3665 "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
3666 "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
3667 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
3668 "META_ELGA_TEMP","META_ELNO_TEMP",
3669 "META_NOEU_TEMP","DURT_ELGA_META",
3670 "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
3671 "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
3672 "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
3673 "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
3674 "PRES_ELNO_REEL","PRES_ELNO_IMAG",
3675 "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
3676 "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
3677 "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
3678 "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
3679 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
3680 "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
3681 "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3682 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
3683 "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
3684 "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
3685 "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
3686 "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
3687 "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
3688 "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
3689 "PRES_NOEU_DBEL","PRES_NOEU_REEL",
3690 "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
3691 "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
3692 "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
3693 "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
3694 "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
3695 "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
3696 "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
3697 "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
3698 "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
3699 "GTHE_ELNO_ELGA","GRAD_NOEU_THETA","HYDR_ELGA",
3700 "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",) ),
3701 TYPE_MAXI =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
3702 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
3703 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3704 LIST_INST =SIMP(statut='f',typ=(listr8) ),
3705 NUME_ORDRE =SIMP(statut='f',typ='I'),
3706 INST =SIMP(statut='f',typ='R'),
3707 FREQ =SIMP(statut='f',typ='R'),
3708 NUME_MODE =SIMP(statut='f',typ='I'),
3709 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
3710 NOM_CAS =SIMP(statut='f',typ='TXM'),
3711 ANGL =SIMP(statut='f',typ='R'),
3712 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
3713 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3714 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
3715 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
3716 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
3718 #& MODIF COMMANDE DATE 30/11/1999 AUTEUR JMBHH01 J.M.PROIX
3719 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage
3720 ,fr="Définition d'un nouveau maillage à partir d'un maillage existant en dupliquant des groupes de mailles (le nombre de mailles du maillage peut être augmenté)",
3721 docu="U4.23.02-C",reentrant='n',
3722 regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
3723 EXCLUS('ECLA_PG','CREA_GROUP_MA'),
3724 EXCLUS('ECLA_PG','DETR_GROUP_MA'),
3725 EXCLUS('ECLA_PG','MODI_MAILLE'),),
3726 MAILLAGE =SIMP(statut='o',typ=maillage ),
3727 CREA_POI1 =FACT(statut='f',min=01,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
3728 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
3729 NOM_GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3730 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3731 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3732 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3733 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3734 NOEUD =SIMP(statut='f',typ=no,max='**'),
3736 CREA_MAILLE =FACT(statut='f',min=01,max='**',fr="Duplication de mailles",
3737 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
3738 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3739 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3740 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3741 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
3742 PREF_NUME =SIMP(statut='f',typ='I' ),
3744 CREA_GROUP_MA =FACT(statut='f',min=01,max='**',fr="Duplication de mailles et création de groupes de mailles",
3745 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
3746 NOM =SIMP(statut='o',typ='TXM'),
3747 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3748 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3749 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3750 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
3751 PREF_NUME =SIMP(statut='f',typ='I' ),
3753 DETR_GROUP_MA =FACT(statut='f',min=01,max=01,fr="Destruction de groupes de mailles",
3754 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3755 NB_MAILLE =SIMP(statut='f',typ='I',defaut= 0,fr="Nombre minimal de mailles que doit contenir le groupe pour être détruit", ),
3757 MODI_MAILLE =FACT(statut='f',min=01,max='**',fr="Modification du type de mailles",
3758 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
3759 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3760 MAILLE =SIMP(statut='f',typ=grma,max='**'),
3761 GROUP_MA =SIMP(statut='f',typ=ma,max='**'),
3762 OPTION =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
3763 PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
3764 PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
3766 REPERE =FACT(statut='f',min=01,max='**',fr="Réalisation d un changement de repère servant à déterminer les caractéristiques d une section de poutre",
3767 TABLE =SIMP(statut='o',typ=tabl_cara_geom,fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
3768 NOM_ORIG =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
3769 NOM_ROTA =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére" ),
3770 b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
3771 GROUP_MA =SIMP(statut='f',typ=grma,fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
3774 ECLA_PG =FACT(statut='f',min=01,max=01,fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
3775 MODELE =SIMP(statut='o',typ=modele ),
3776 SHRINK =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
3778 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3780 #& MODIF COMMANDE DATE 21/06/2000 AUTEUR CIBHHLV L.VIVAN
3781 def crea_resu_prod(TYPE_RESU,**args):
3782 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
3783 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
3784 if TYPE_RESU == "EVOL_THER" : return evol_ther
3785 if TYPE_RESU == "MULT_ELAS" : return mult_elas
3786 if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
3787 raise AsException("type de concept resultat non prevu")
3789 # commentaire C. DURAND : J'ai supprimé tous les blocs.
3790 # Ce qui avait été fait était faux (plantage EFICAS de nombreux tests et ingérable)
3791 # il faudra réfléchir à la manière de les réintroduire proprement
3792 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-D",reentrant='f',
3793 fr="Engendrer ou enrichir une structure de données de type evol_ther en affectant les cham_no associés",
3794 regles=(EXCLUS('CHAM_GD','ECLA_PG','PERM_CHAMP',),),
3795 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER","FOURIER_ELAS","MULT_ELAS",
3796 "EVOL_ELAS","EVOL_NOLI") ),
3797 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","SIEF_ELGA","VARI_ELGA",),max='**' ),
3798 CHAM_GD =FACT(statut='f',min=01,max='**',
3799 regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
3800 CHAM_NO =SIMP(statut='o',typ=(cham_no)),
3801 NUME_ORDRE_INIT =SIMP(statut='f',typ='I'),
3802 NOM_CAS =SIMP(statut='f',typ='TXM' ),
3803 NUME_MODE =SIMP(statut='f',typ='I'),
3804 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
3805 INST =SIMP(statut='f',typ='R',max='**'),
3806 LIST_INST =SIMP(statut='f',typ=listr8),
3807 NUME_INIT =SIMP(statut='f',typ='I'),
3808 NUME_FIN =SIMP(statut='f',typ='I'),
3811 ECLA_PG =FACT(statut='f',min=01,max=01,
3812 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),),
3813 MODELE_INIT =SIMP(statut='o',typ=modele),
3814 RESU_INIT =SIMP(statut='o',typ=resultat),
3815 MAILLAGE =SIMP(statut='o',typ=maillage),
3816 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
3817 into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
3818 TOUT_ORDRE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
3819 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3820 LIST_ORDRE =SIMP(statut='f',typ=listis),
3821 INST =SIMP(statut='f',typ='R',max='**'),
3822 LIST_INST =SIMP(statut='f',typ=listr8),
3823 FREQ =SIMP(statut='f',typ='R',max='**'),
3824 LIST_FREQ =SIMP(statut='f',typ=listr8),
3825 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
3826 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3830 RESU_INIT =SIMP(statut='f',typ=evol_noli),
3831 INST_INIT =SIMP(statut='f',typ='R'),
3832 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
3833 CRITERE =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
3834 MAILLAGE_INIT =SIMP(statut='f',typ=maillage,),
3835 RESU_FINAL =SIMP(statut='f',typ=evol_noli,),
3836 MAILLAGE_FINAL =SIMP(statut='f',typ=maillage,),
3837 PERM_CHAMP =FACT(statut='f',min=01,max=01,
3838 GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
3839 GROUP_MA_INIT =SIMP(statut='o',typ=grma),
3840 TRAN =SIMP(statut='o',typ='R',max='**'),
3841 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
3845 DEBUT=PROC(nom="DEBUT",op=0 ,docu="U4.11.01-F",repetable='n',
3846 fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
3848 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM'),
3849 BASE =FACT(fr="définition des paramètres associés aux bases JEVEUX",
3850 statut='f',min=01,max=03,
3851 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM',
3852 into=('GLOBALE','VOLATILE','LOCALE'),),
3853 TITRE =SIMP(statut='f',typ='TXM'),
3854 CAS =SIMP(statut='f',typ='TXM'),
3855 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
3856 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
3857 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
3859 IMPRESSION =FACT(statut='f',min=01,max=03,
3860 FICHIER =SIMP(statut='o',typ='TXM'),
3861 UNITE =SIMP(statut='o',typ='I'),
3863 CATALOGUE =FACT(statut='f',min=01,max=10,
3864 FICHIER =SIMP(statut='o',typ='TXM'),
3865 TITRE =SIMP(statut='f',typ='TXM'),
3866 UNITE =SIMP(statut='f',typ='I'),
3868 CODE =FACT("définition d un nom pour l'esemble d'une étude",
3869 statut='f',min=01,max=01,
3870 NOM =SIMP(statut='o',typ='TXM'),
3871 UNITE =SIMP(statut='f',typ='I',defaut=15),
3873 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
3874 statut='f',min=01,max=01,
3875 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
3876 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
3877 JEVEUX =SIMP(fr="force les déchargement sur disque",
3878 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
3879 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
3880 statut='f',typ='TXM',into=('TEST',)),
3882 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=01,max=01,
3883 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
3884 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
3885 TAILLE =SIMP(statut='f',typ='I'),
3886 PARTITION =SIMP(statut='f',typ='R'),
3889 #& MODIF COMMANDE DATE 09/09/98 AUTEUR ACBHHCD G.DEVESA
3890 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op= 99,sd_prod=base_modale
3891 ,fr="Définition d une base modale pour analyse dynamique par superposition modale ou sous structuration dynamique par synthèse modale",
3892 docu="U4.64.02-E",reentrant='f',
3893 regles=(UN_PARMI('CLASSIQUE','RITZ'),),
3894 CLASSIQUE =FACT(statut='f',min=01,max=01,
3895 INTERF_DYNA =SIMP(statut='o',typ=interf_dyna_clas ),
3896 MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
3897 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 10 ),
3899 RITZ =FACT(statut='f',min=01,max='**',
3900 regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
3901 MODE_MECA =SIMP(statut='f',typ=mode_meca,max='**' ),
3902 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
3903 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
3904 MULT_ELAS =SIMP(statut='f',typ=mult_elas ),
3905 BASE_MODALE =SIMP(statut='f',typ=base_modale ),
3907 # le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
3908 # PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
3909 b_ritz =BLOC(condition = "RITZ != None",
3910 INTERF_DYNA =SIMP(statut='f',typ=interf_dyna_clas ),
3911 NUME_REF =SIMP(statut='o',typ=nume_ddl ),
3913 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3914 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3916 #& MODIF COMMANDE DATE 06/11/98 AUTEUR CIBHHLV L.VIVAN
3917 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
3919 docu="U4.42.04-A",reentrant='n',
3920 MODELE =SIMP(statut='o',typ=modele ),
3921 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3922 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
3923 GROUP_MA_BETON =SIMP(statut='o',typ=grma),
3924 DEFI_CABLE =FACT(statut='o',min=01,max='**',
3925 regles=(UN_PARMI('MAILLE','GROUP_MA'),
3926 UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
3927 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3928 GROUP_MA =SIMP(statut='f',typ=grma),
3929 NOEUD_ANCRAGE =SIMP(statut='f',typ=no,max='**'),
3930 GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max='**'),
3931 TYPE_ANCRAGE =SIMP(statut='o',typ='TXM',max='**',
3932 into=("ACTIF","PASSIF") ),
3934 TENSION_INIT =SIMP(statut='o',typ='R' ),
3935 RECUL_ANCRAGE =SIMP(statut='o',typ='R' ),
3936 RELAXATION =FACT(statut='f',min=0,max=1,
3937 R_J =SIMP(statut='o',typ='R' ),
3939 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
3941 #& MODIF COMMANDE DATE 16/07/96 AUTEUR CIBHHRA R.MEDDOURI
3942 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op= 2,sd_prod=fonction,
3943 fr="Définition d une fonction constante",
3944 docu="U4.31.01-F",reentrant='n',
3945 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
3946 VALE =SIMP(statut='o',typ='R',max=01 ),
3947 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3949 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
3950 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-E",reentrant='n',
3951 fr="Définition d une coque composite couche par couche",
3952 COUCHE =FACT(statut='o',min=01,max='**',
3953 EPAIS =SIMP(statut='o',typ='R' ),
3954 MATER =SIMP(statut='o',typ=(mater) ),
3955 ORIENTATION =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
3957 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3958 IMPRESSION =FACT(statut='f',min=01,max=01,
3959 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
3960 into=("RESULTAT",) ),
3963 #& MODIF COMMANDE DATE 28/06/2000 AUTEUR CIBHHLV L.VIVAN
3964 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
3965 fr="Définition des caractéristiques nécessaires à l'étude du comportement dynamique d'une structure sous écoulement",
3966 docu="U4.25.01-C",reentrant='n',
3967 regles=(EXCLUS('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),
3968 AU_MOINS_UN('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX', ),),
3969 FAISCEAU_TRANS =FACT(statut='f',min=01,max='**',
3970 COUPLAGE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
3971 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3972 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
3973 PROF_RHO_F_INT =SIMP(statut='f',typ=fonction ),
3974 PROF_RHO_F_EXT =SIMP(statut='f',typ=fonction ),
3975 NOM_CMP =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
3976 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
3977 TYPE_PAS =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
3978 TYPE_RESEAU =SIMP(statut='f',typ='I' ),
3979 UNITE_CD =SIMP(statut='f',typ='I',defaut=70),
3980 UNITE_CK =SIMP(statut='f',typ='I',defaut=71),
3981 PAS =SIMP(statut='f',typ='R' ),
3983 GRAPPE =FACT(statut='f',min=00,max=01,
3984 regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
3985 PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
3986 # peut on créer un bloc a partir de la valeur de couplage
3987 COUPLAGE =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
3988 GRAPPE_2 =SIMP(statut='f',typ='TXM',
3989 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
3990 NOEUD =SIMP(statut='f',typ=no),
3991 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3992 MODELE =SIMP(statut='f',typ=modele ),
3993 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
3994 RHO_FLUI =SIMP(statut='f',typ='R' ),
3995 UNITE_CA =SIMP(statut='f',typ='I',defaut=70),
3996 UNITE_KA =SIMP(statut='f',typ='I',defaut=71),
3998 FAISCEAU_AXIAL =FACT(statut='f',min=01,max='**',
3999 regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
4000 UN_PARMI('CARA_ELEM','RAYON_TUBE'),
4001 ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
4002 PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
4003 ENSEMBLE('CARA_PAROI','VALE_PAROI'),
4004 ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
4005 'COOR_GRILLE','TYPE_GRILLE', ),),
4006 # on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
4007 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4008 TRI_GROUP_MA =SIMP(statut='f',typ='TXM' ),
4009 VECT_X =SIMP(statut='f',typ='R',max=03),
4010 PROF_RHO_FLUI =SIMP(statut='f',typ=fonction ),
4011 PROF_VISC_CINE =SIMP(statut='f',typ=fonction ),
4012 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4013 RAYON_TUBE =SIMP(statut='f',typ='R' ),
4014 COOR_TUBE =SIMP(statut='f',typ='R',max='**'),
4015 PESANTEUR =SIMP(statut='f',typ='R',min=04,max=04),
4016 RUGO_TUBE =SIMP(statut='f',typ='R' ),
4017 CARA_PAROI =SIMP(statut='f',typ='TXM',max=05,
4018 into=("YC","ZC","R","HY","HZ") ),
4019 VALE_PAROI =SIMP(statut='f',typ='R',max=05),
4020 ANGL_VRIL =SIMP(statut='f',typ='R' ),
4021 LONG_TYPG =SIMP(statut='f',typ='R',max='**'),
4022 LARG_TYPG =SIMP(statut='f',typ='R',max='**'),
4023 EPAI_TYPG =SIMP(statut='f',typ='R',max='**'),
4024 RUGO_TYPG =SIMP(statut='f',typ='R',max='**'),
4025 COEF_TRAI_TYPG =SIMP(statut='f',typ='R',max='**'),
4026 COEF_DPOR_TYPG =SIMP(statut='f',typ='R',max='**'),
4027 COOR_GRILLE =SIMP(statut='f',typ='R',max='**'),
4028 TYPE_GRILLE =SIMP(statut='f',typ='I',max='**'),
4030 COQUE_COAX =FACT(statut='f',min=00,max=01,
4031 MASS_AJOU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4032 GROUP_MA_INT =SIMP(statut='o',typ=grma),
4033 GROUP_MA_EXT =SIMP(statut='o',typ=grma),
4034 VECT_X =SIMP(statut='o',typ='R',max='**'),
4035 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
4036 MATER_INT =SIMP(statut='o',typ=mater ),
4037 MATER_EXT =SIMP(statut='o',typ=mater ),
4038 RHO_FLUI =SIMP(statut='o',typ='R' ),
4039 VISC_CINE =SIMP(statut='o',typ='R' ),
4040 RUGOSITE =SIMP(statut='o',typ='R' ),
4041 PDC_MOY_1 =SIMP(statut='o',typ='R' ),
4042 PDC_DYN_1 =SIMP(statut='o',typ='R' ),
4043 PDC_MOY_2 =SIMP(statut='o',typ='R' ),
4044 PDC_DYN_2 =SIMP(statut='o',typ='R' ),
4046 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4048 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4049 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.MK.10-A",reentrant='n',
4050 fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
4051 regles=(UN_PARMI('COUR_PRIN','COUR'),
4052 EXCLUS('COUR','COUR_SECO'), ),
4053 FREQ =SIMP(statut='f',typ='R',defaut= 50.),
4054 SIGNAL =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
4055 COUR =FACT(statut='f',min=01,max='**',
4056 fr="Définition du courant de court-circuit",
4057 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
4058 UN_PARMI('PHI_CC_2','INTC_CC_2'),),
4059 INTE_CC_1 =SIMP(statut='o',typ='R'),
4060 TAU_CC_1 =SIMP(statut='o',typ='R'),
4061 PHI_CC_1 =SIMP(statut='f',typ='R'),
4062 INTC_CC_1 =SIMP(statut='f',typ='R'),
4063 INTE_CC_2 =SIMP(statut='o',typ='R'),
4064 TAU_CC_2 =SIMP(statut='o',typ='R'),
4065 PHI_CC_2 =SIMP(statut='f',typ='R'),
4066 INTC_CC_2 =SIMP(statut='f',typ='R'),
4067 INST_CC_INIT =SIMP(statut='f',typ='R'),
4068 INST_CC_FIN =SIMP(statut='o',typ='R'),
4070 COUR_PRIN =FACT(statut='f',min=01,max=01,
4071 fr="Définition du courant de court-circuit avec réenclenchement",
4072 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
4073 INTE_CC_1 =SIMP(statut='o',typ='R'),
4074 TAU_CC_1 =SIMP(statut='o',typ='R'),
4075 PHI_CC_1 =SIMP(statut='f',typ='R'),
4076 INTC_CC_1 =SIMP(statut='f',typ='R'),
4077 INTE_RENC_1 =SIMP(statut='f',typ='R'),
4078 TAU_RENC_1 =SIMP(statut='f',typ='R'),
4079 PHI_RENC_1 =SIMP(statut='f',typ='R'),
4080 INST_CC_INIT =SIMP(statut='o',typ='R'),
4081 INST_CC_FIN =SIMP(statut='o',typ='R'),
4082 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4083 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4085 COUR_SECO =FACT(statut='f',min=01,max='**',
4086 fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
4087 regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
4088 INTE_CC_2 =SIMP(statut='o',typ='R'),
4089 TAU_CC_2 =SIMP(statut='o',typ='R'),
4090 PHI_CC_2 =SIMP(statut='f',typ='R'),
4091 INTC_CC_2 =SIMP(statut='f',typ='R'),
4092 INTE_RENC_2 =SIMP(statut='f',typ='R'),
4093 TAU_RENC_2 =SIMP(statut='f',typ='R'),
4094 PHI_RENC_2 =SIMP(statut='f',typ='R'),
4095 DIST =SIMP(statut='f',typ='R',defaut=1.0E+0),
4097 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4099 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4100 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
4101 fr="Définition des fonctions caractéristiques du fluide le long de la structure (profil de vitesse, profil de masse volumique)",
4102 docu="U4.35.01-C",reentrant='n',
4103 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
4104 NOEUD_INIT =SIMP(statut='o',typ=no),
4105 NOEUD_FIN =SIMP(statut='o',typ=no),
4106 VITE =FACT(statut='o',min=01,max=01,
4107 VALE =SIMP(statut='f',typ='R',defaut= 1. ),
4108 PROFIL =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
4109 NB_BAV =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
4111 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",
4112 into=("NON","LIN","LOG") ),
4113 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",
4114 into=("CONSTANT","LINEAIRE","EXCLU") ),
4115 PROL_GAUCHE =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
4116 into=("CONSTANT","LINEAIRE","EXCLU") ),
4117 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4118 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4120 #& MODIF COMMANDE DATE 06/09/1999 AUTEUR UFBHHLL C.CHAVANT
4121 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
4122 if VALE != None : return fonction
4123 if VALE_C != None : return fonction_c
4124 if VALE_PARA != None : return fonction
4125 if NOEUD_PARA != None : return fonction
4126 raise AsException("type de concept resultat non prevu")
4128 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
4129 ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
4130 docu="U4.31.02-F",reentrant='n',
4131 regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
4132 NOM_PARA =SIMP(statut='o',typ='TXM',
4133 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
4134 "INST","X","Y","Z","EPSI","META","FREQ","PULS",
4135 "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
4137 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
4138 VALE =SIMP(statut='f',typ='R',max='**',
4139 fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
4140 VALE_C =SIMP(statut='f',typ='R',max='**',
4141 fr ="Fonction complexe définie par une liste de couples (abscisse,ordonnée partie réelle, ordonnée partie imaginaire)"),
4142 VALE_PARA =SIMP(statut='f',typ=listr8,
4143 fr ="Fonction réelle définie par deux concepts de type listr8" ),
4144 b_vale_para =BLOC(condition = "VALE_PARA != None",
4145 VALE_FONC =SIMP(statut='o',typ=listr8 ),
4147 NOEUD_PARA =SIMP(statut='f',typ=no,max='**',
4148 fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
4149 b_noeud_para =BLOC(condition = "NOEUD_PARA != None",
4150 MAILLAGE =SIMP(statut='o',typ=maillage ),
4151 VALE_Y =SIMP(statut='o',typ='R',max='**'),
4154 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
4155 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4156 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4157 VERIF =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
4158 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4159 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4161 #& MODIF COMMANDE DATE 17/11/1999 AUTEUR CIBHHLV L.VIVAN
4162 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-E",reentrant='n',
4163 fr="Définition de lèvres et d un fond de fissure en 3D",
4164 regles=(UN_PARMI('FOND','FOND_FERME'),
4165 EXCLUS('FOND_FERME','DTAN_ORIG'),
4166 EXCLUS('FOND_FERME','DTAN_EXTR'),
4167 EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
4168 EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
4169 UN_PARMI('LEVRE_SUP','NORMALE'),
4170 EXCLUS('LEVRE_INF','NORMALE'),
4171 ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
4172 ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
4173 EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
4174 EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
4175 MAILLAGE =SIMP(statut='o',typ=maillage ),
4176 FOND =FACT(statut='f',min=01,max=01,
4177 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
4178 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
4179 EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
4180 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4181 NOEUD =SIMP(statut='f',typ=no,max='**'),
4182 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4183 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4184 # à mettre à jour le max vaut-il 1
4185 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
4186 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
4187 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
4188 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
4190 FOND_FERME =FACT(statut='f',min=01,max=01,
4191 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
4192 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
4193 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4194 NOEUD =SIMP(statut='f',typ=no,max='**'),
4195 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4196 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4197 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
4198 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
4199 MAILLE_ORIG =SIMP(statut='f',typ=ma,max=1),
4200 GROUP_MA_ORIG =SIMP(statut='f',typ=ma,max=1),
4202 LEVRE_SUP =FACT(statut='f',min=01,max=01,
4203 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
4204 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4205 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4207 LEVRE_INF =FACT(statut='f',min=01,max=01,
4208 regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
4209 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4210 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4212 NORMALE =SIMP(statut='f',typ='R',max='**'),
4213 DTAN_ORIG =SIMP(statut='f',typ='R',max='**'),
4214 DTAN_EXTR =SIMP(statut='f',typ='R',max='**'),
4215 VECT_GRNO_ORIG =SIMP(statut='f',typ=grno,max=2),
4216 VECT_GRNO_EXTR =SIMP(statut='f',typ=grno,max=2),
4217 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4219 #& MODIF COMMANDE DATE 27/09/2000 AUTEUR DURAND C.DURAND
4220 def defi_group_prod(MAILLAGE,**args):
4221 if AsType(MAILLAGE) == maillage : return maillage
4222 if AsType(MAILLAGE) == squelette : return squelette
4223 raise AsException("type de concept resultat non prevu")
4225 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
4226 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
4227 docu="U4.22.01-E",reentrant='o',
4228 regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
4229 MAILLAGE =SIMP(statut='o',typ=(maillage,squelette) ),
4231 CREA_GROUP_MA =FACT(statut='f',min=01,max='**',
4232 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
4233 # quel est le concept attendu deriere NOM
4234 NOM =SIMP(statut='o',typ=grma),
4235 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4236 GROUP_MA =SIMP(statut='f',typ=grma),
4237 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4238 INTERSEC =SIMP(statut='f',typ=grma,max='**'),
4239 UNION =SIMP(statut='f',typ=grma,max='**'),
4240 DIFFE =SIMP(statut='f',typ=grma,max='**'),
4241 OPTION =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
4242 b_group_ma =BLOC(condition = "GROUP_MA != None",
4243 regles=(EXCLUS('POSITION','NUME_INIT'),),
4244 NUME_INIT =SIMP(statut='f',typ='I',defaut= 1 ),
4245 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
4246 b_nume_init =BLOC(condition = "NUME_INIT != None",
4247 NUME_FIN =SIMP(statut='f',typ='I' ),
4250 b_face_normale =BLOC(condition = "OPTION == 'FACE_NORMALE'",
4251 regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4252 ANGL_NAUT =SIMP(statut='f',typ='R',max=02),
4253 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4254 ANGL_PREC =SIMP(statut='f',typ='R',defaut= 0.5 ),
4255 VERI_SIGNE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4257 b_sphere =BLOC(condition = "OPTION == 'SPHERE'",
4258 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
4259 POINT =SIMP(statut='f',typ='R',max=03),
4260 NOEUD_CENTRE =SIMP(statut='f',typ=no),
4261 RAYON =SIMP(statut='o',typ='R' ),
4263 b_cylindre =BLOC(condition = "OPTION == 'CYLINDRE'",
4264 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
4265 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4266 POINT =SIMP(statut='f',typ='R',max=03),
4267 NOEUD_CENTRE =SIMP(statut='f',typ=no),
4268 RAYON =SIMP(statut='o',typ='R' ),
4269 ANGL_NAUT =SIMP(statut='f',typ='R',max=02),
4270 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4272 b_bande =BLOC(condition = "OPTION == 'BANDE'",
4273 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
4274 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4275 POINT =SIMP(statut='f',typ='R',max=03),
4276 NOEUD_CENTRE =SIMP(statut='f',typ=no),
4277 DIST =SIMP(statut='o',typ='R' ),
4278 ANGL_NAUT =SIMP(statut='f',typ='R',max=02),
4279 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4282 CREA_GROUP_NO =FACT(statut='f',min=01,max='**',
4283 regles=(AU_MOINS_UN('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE',
4284 'GROUP_NO','OPTION'),),
4286 TOUT_GROUP_MA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4287 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4289 NOEUD =SIMP(statut='f',typ=no,max='**'),
4290 INTERSEC =SIMP(statut='f',typ=grno,max='**'),
4291 UNION =SIMP(statut='f',typ=grno,max='**'),
4292 DIFFE =SIMP(statut='f',typ=grno,max='**'),
4293 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4294 OPTION =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
4295 "SEGM_DROI_ORDO","NOEUD_ORDO") ),
4296 b_nom_group_ma =BLOC(condition = "GROUP_MA != None",
4297 NOM =SIMP(statut='f',typ=grma,max='**'),
4299 b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
4300 NOM =SIMP(statut='o',typ=geom),
4303 b_group_no =BLOC(condition = "GROUP_NO != None",
4304 regles=(EXCLUS('POSITION','NUME_INIT'),),
4305 NUME_INIT =SIMP(statut='f',typ='I',defaut= 1 ),
4306 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
4307 b_nume_init =BLOC(condition = "NUME_INIT != None",
4308 NUME_FIN =SIMP(statut='f',typ='I' ),
4311 b_env_sphere =BLOC(condition = "OPTION == 'ENV_SPHERE'",
4312 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
4313 POINT =SIMP(statut='f',typ='R',max=03),
4314 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=01),
4315 RAYON =SIMP(statut='o',typ='R' ),
4316 PRECISION =SIMP(statut='f',typ='R' ),
4317 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4319 b_env_cylindre =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
4320 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
4321 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4322 POINT =SIMP(statut='f',typ='R',max=03),
4323 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=01),
4324 RAYON =SIMP(statut='o',typ='R' ),
4325 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
4326 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4327 PRECISION =SIMP(statut='f',typ='R' ),
4328 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4330 b_env_plan =BLOC(condition = "OPTION == 'PLAN'",
4331 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
4332 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4333 POINT =SIMP(statut='f',typ='R',max=03),
4334 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=01),
4335 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
4336 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4337 PRECISION =SIMP(statut='f',typ='R' ),
4338 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4340 b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
4341 regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
4342 UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
4343 NOEUD_ORIG =SIMP(statut='f',typ=no),
4344 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
4345 NOEUD_EXTR =SIMP(statut='f',typ=no),
4346 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
4347 PRECISION =SIMP(statut='f',typ='R' ),
4348 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4350 b_noeud_ordo =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
4351 regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
4352 UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
4353 NOEUD_ORIG =SIMP(statut='f',typ=no),
4354 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
4355 NOEUD_EXTR =SIMP(statut='f',typ=no),
4356 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
4357 PRECISION =SIMP(statut='f',typ='R' ),
4358 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4361 INFO =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
4363 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
4364 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
4365 fr="Définition d'une matrice interspectrale à partir de constantes, de fonctions complexes, ou du filtrage d'un bruit blanc par un oscillateur de KANAI-TAJIMI",
4366 docu="U4.36.02-E",reentrant='n',
4368 DIMENSION =SIMP(statut='f',typ='I',defaut= 1 ),
4370 PAR_FONCTION =FACT(statut='f',min=01,max='**',
4371 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
4372 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
4373 FONCTION =SIMP(statut='o',typ=fonction_c ),
4375 KANAI_TAJIMI =FACT(statut='f',min=01,max='**',
4376 regles=(EXCLUS('VALE_R','VALE_C'),),
4377 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
4378 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
4379 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4380 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
4381 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
4382 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.6 ),
4383 FREQ_MOY =SIMP(statut='f',typ='R',defaut= 5. ),
4384 VALE_R =SIMP(statut='f',typ='R' ),
4385 VALE_C =SIMP(statut='f',typ='C' ),
4386 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
4387 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4388 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4390 CONSTANT =FACT(statut='f',min=01,max='**',
4391 regles=(EXCLUS('VALE_R','VALE_C'),),
4392 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
4393 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
4394 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4395 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
4396 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
4397 VALE_R =SIMP(statut='f',typ='R' ),
4398 VALE_C =SIMP(statut='f',typ='C' ),
4399 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
4400 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4401 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4403 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4404 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4406 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4407 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op= 98,sd_prod=interf_dyna_clas,
4408 fr="Définition des interfaces d une structure pour analyse dynamique par superposition modale ou sous structuration dynamique par synthèse modale",
4409 docu="U4.64.01-E",reentrant='n',
4410 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
4411 INTERFACE =FACT(statut='o',min=01,max='**',
4412 regles=(ENSEMBLE('NOM','TYPE'),
4413 # erreur doc U sur la condition qui suit
4414 UN_PARMI('NOEUD','GROUP_NO'),),
4415 NOM =SIMP(statut='f',typ='TXM' ),
4416 TYPE =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
4417 NOEUD =SIMP(statut='f',typ=no,max='**'),
4418 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4419 DDL_ACTIF =SIMP(statut='f',typ='TXM',max='**'),
4420 MASQUE =SIMP(statut='f',typ='TXM',max='**'),
4422 FREQ =SIMP(statut='f',typ='R',defaut= 1.),
4423 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4425 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4426 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
4427 fr="Définition d une suite croissante d entiers",
4428 docu="U4.34.02-F",reentrant='n',
4429 regles=(UN_PARMI('VALE','DEBUT'),
4430 EXCLUS('VALE','INTERVALLE'),),
4431 VALE =SIMP(statut='f',typ='I',max='**'),
4432 DEBUT =SIMP(statut='f',typ='I'),
4433 INTERVALLE =FACT(statut='f',min=01,max='**',
4434 regles=(UN_PARMI('NOMBRE','PAS'),),
4435 JUSQU_A =SIMP(statut='o',typ='I'),
4436 NOMBRE =SIMP(statut='f',typ='I'),
4437 PAS =SIMP(statut='f',typ='I'),
4439 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
4440 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4442 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4443 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
4444 fr="Définition d une suite croissante de réels",
4445 docu="U4.34.01-F",reentrant='n',
4446 regles=(UN_PARMI('VALE','DEBUT',),
4447 EXCLUS('VALE','INTERVALLE'),
4448 ENSEMBLE('DEBUT','INTERVALLE'),
4450 VALE =SIMP(statut='f',typ='R',max='**'),
4451 DEBUT =SIMP(statut='f',typ='R'),
4452 INTERVALLE =FACT(statut='f',min=01,max='**',
4453 regles=(UN_PARMI('NOMBRE','PAS'),),
4454 JUSQU_A =SIMP(statut='o',typ='R'),
4455 NOMBRE =SIMP(statut='f',typ='I'),
4456 PAS =SIMP(statut='f',typ='R'),
4458 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
4459 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4461 #& MODIF COMMANDE DATE 20/12/94 AUTEUR B7BHHLV L.VIVAN
4462 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op= 88,sd_prod=maillage,
4463 fr="Définition d un nouveau maillage à partir de macro éléments",
4464 docu="U4.23.01-E",reentrant='n',
4465 DEFI_MAILLE =FACT(statut='o',min=01,max='**',
4466 MACR_ELEM_STAT =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
4467 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4468 TRAN =SIMP(statut='f',typ='R',max=03),
4469 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
4470 b_angl_naut =BLOC(condition = "ANGL_NAUT != None",
4471 CENTRE =SIMP(statut='f',typ='R',max=03),
4474 RECO_GLOBAL =FACT(statut='f',min=01,max='**',
4475 regles=(UN_PARMI('TOUT','MAILLE'),),
4476 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4477 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4478 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4479 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4481 RECO_MAILLE =FACT(statut='f',min=01,max='**',
4482 MAILLE =SIMP(statut='o',typ=ma,max='**'),
4483 GROUP_NO =SIMP(statut='o',typ=grno,max='**'),
4484 OPTION =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
4485 geometrique =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
4486 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4487 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4490 DEFI_NOEUD =FACT(statut='f',min=01,max='**',
4491 regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
4492 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
4493 fr="Renommage de tous les noeuds" ),
4494 NOEUD_INIT =SIMP(statut='f',typ=no,
4495 fr="Renommage d un seul noeud"),
4496 b_tout =BLOC(condition = "TOUT != None",
4497 PREFIXE =SIMP(statut='f',typ='TXM' ),
4498 INDEX =SIMP(statut='o',typ='I',max='**'),
4500 b_noeud_init =BLOC(condition = "NOEUD_INIT != None",
4501 MAILLE =SIMP(statut='o',typ=ma),
4502 NOEUD_FIN =SIMP(statut='o',typ=no),
4505 DEFI_GROUP_NO =FACT(statut='f',min=01,max='**',
4506 regles=(UN_PARMI('TOUT','MAILLE'),
4507 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
4508 ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
4509 # la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
4510 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
4511 fr="Création de plusieurs groupes de noeuds" ),
4512 MAILLE =SIMP(statut='f',typ=ma,
4513 fr="Création de plusieurs groupes de noeuds"),
4514 GROUP_NO_INIT =SIMP(statut='f',typ=grno,
4515 fr="Création d un seul groupe de noeuds"),
4516 PREFIXE =SIMP(statut='f',typ='TXM' ),
4517 INDEX =SIMP(statut='f',typ='I',max='**'),
4518 GROUP_NO_FIN =SIMP(statut='f',typ=grno),
4521 #& MODIF COMMANDE DATE 28/11/2000 AUTEUR CIBHHLV L.VIVAN
4522 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
4523 fr="Définition des paramètres décrivant le comportement d un matériau",
4524 docu="U4.43.01-F",reentrant='n',
4525 regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
4526 'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
4527 'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
4528 EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
4529 EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
4530 EXCLUS('TAHERI','TAHERI_FO'),
4531 EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
4532 PRESENT_PRESENT('ROUSSELIER','TRACTION'),
4533 PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
4534 EXCLUS('VMIS_CIN1_CHAB','VMIS_CIN1_CHAB_F'),
4535 EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
4536 EXCLUS('POLY_CFC','POLY_CFC_FO'),
4537 PRESENT_PRESENT('NORTON_HOFF','ELAS'),
4538 EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
4539 EXCLUS('OHNO','OHNO_FO'),
4540 EXCLUS('LMARC','LMARC_FO'),
4541 EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
4542 EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
4543 PRESENT_PRESENT('BPEL_BETON','ELAS'),
4544 PRESENT_PRESENT('BPEL_ACIER','ELAS'),
4545 EXCLUS('RCCM','RCCM_FO'),),
4547 # comportement élastique
4549 ELAS =FACT(statut='f',min=00,max=01,
4550 E =SIMP(statut='o',typ='R'),
4551 NU =SIMP(statut='o',typ='R'),
4552 RHO =SIMP(statut='f',typ='R'),
4553 ALPHA =SIMP(statut='f',typ='R'),
4554 AMOR_ALPHA =SIMP(statut='f',typ='R'),
4555 AMOR_BETA =SIMP(statut='f',typ='R'),
4556 AMOR_HYST =SIMP(statut='f',typ='R'),
4558 ELAS_FO =FACT(statut='f',min=00,max=01,
4559 E =SIMP(statut='o',typ=fonction),
4560 NU =SIMP(statut='o',typ=fonction),
4561 RHO =SIMP(statut='f',typ='R'),
4562 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
4563 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
4564 ALPHA =SIMP(statut='f',typ=fonction),
4565 AMOR_ALPHA =SIMP(statut='f',typ=fonction),
4566 AMOR_BETA =SIMP(statut='f',typ=fonction),
4567 AMOR_HYST =SIMP(statut='f',typ=fonction),
4568 K_DESSIC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4569 B_ENDOGE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4570 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
4571 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
4572 VERI_P3 =SIMP(statut='f',typ='TXM',defaut="HYDR",into=("HYDR",) ),
4573 VERI_P4 =SIMP(statut='f',typ='TXM',defaut="SECH",into=("SECH",) ),
4575 ELAS_FLUI =FACT(statut='f',min=00,max=01,
4576 E =SIMP(statut='o',typ='R'),
4577 NU =SIMP(statut='o',typ='R'),
4578 RHO =SIMP(statut='o',typ='R'),
4579 PROF_RHO_F_INT =SIMP(statut='o',typ=fonction),
4580 PROF_RHO_F_EXT =SIMP(statut='o',typ=fonction),
4581 COEF_MASS_AJOU =SIMP(statut='o',typ=fonction),
4582 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
4584 ELAS_ISTR =FACT(statut='f',min=00,max=01,
4585 E_L =SIMP(statut='o',typ='R'),
4586 E_N =SIMP(statut='o',typ='R'),
4587 NU_LT =SIMP(statut='o',typ='R'),
4588 NU_LN =SIMP(statut='o',typ='R'),
4589 G_LN =SIMP(statut='o',typ='R'),
4590 RHO =SIMP(statut='f',typ='R'),
4591 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4592 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4594 ELAS_ISTR_FO =FACT(statut='f',min=00,max=01,
4595 E_L =SIMP(statut='o',typ=fonction),
4596 E_N =SIMP(statut='o',typ=fonction),
4597 NU_LT =SIMP(statut='o',typ=fonction),
4598 NU_LN =SIMP(statut='o',typ=fonction),
4599 G_LN =SIMP(statut='o',typ=fonction),
4600 RHO =SIMP(statut='f',typ='R'),
4601 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
4602 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
4603 ALPHA_L =SIMP(statut='f',typ=fonction),
4604 ALPHA_N =SIMP(statut='f',typ=fonction),
4605 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
4607 ELAS_ORTH =FACT(statut='f',min=00,max=01,
4608 E_L =SIMP(statut='o',typ='R'),
4609 E_T =SIMP(statut='o',typ='R'),
4610 E_N =SIMP(statut='f',typ='R'),
4611 NU_LT =SIMP(statut='o',typ='R'),
4612 NU_LN =SIMP(statut='f',typ='R'),
4613 NU_TN =SIMP(statut='f',typ='R'),
4614 G_LT =SIMP(statut='o',typ='R'),
4615 G_LN =SIMP(statut='f',typ='R'),
4616 G_TN =SIMP(statut='f',typ='R'),
4617 RHO =SIMP(statut='f',typ='R'),
4618 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4619 ALPHA_T =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4620 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4621 XT =SIMP(statut='f',typ='R',defaut= 1. ),
4622 XC =SIMP(statut='f',typ='R',defaut= 1. ),
4623 YT =SIMP(statut='f',typ='R',defaut= 1. ),
4624 YC =SIMP(statut='f',typ='R',defaut= 1. ),
4625 S_LT =SIMP(statut='f',typ='R',defaut= 1. ),
4627 ELAS_ORTH_FO =FACT(statut='f',min=00,max=01,
4628 E_L =SIMP(statut='o',typ=fonction),
4629 E_T =SIMP(statut='o',typ=fonction),
4630 E_N =SIMP(statut='o',typ=fonction),
4631 NU_LT =SIMP(statut='o',typ=fonction),
4632 NU_LN =SIMP(statut='o',typ=fonction),
4633 NU_TN =SIMP(statut='o',typ=fonction),
4634 G_LT =SIMP(statut='o',typ=fonction),
4635 G_LN =SIMP(statut='o',typ=fonction),
4636 G_TN =SIMP(statut='o',typ=fonction),
4637 RHO =SIMP(statut='f',typ='R'),
4638 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
4639 PRECISION =SIMP(statut='f',typ='R',defaut= 1. ),
4640 ALPHA_L =SIMP(statut='f',typ=fonction),
4641 ALPHA_T =SIMP(statut='f',typ=fonction),
4642 ALPHA_N =SIMP(statut='f',typ=fonction),
4643 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
4645 ELAS_THM =FACT(statut='f',min=00,max=01,
4646 RHO_S =SIMP(statut='o',typ='R'),
4647 UN_SUR_KS =SIMP(statut='o',typ='R'),
4648 E =SIMP(statut='f',typ='R'),
4649 KB =SIMP(statut='f',typ='R'),
4650 D_KB_T =SIMP(statut='f',typ='R'),
4651 ALPHA_S =SIMP(statut='f',typ='R'),
4652 ALPHA_D =SIMP(statut='f',typ='R'),
4654 SURF_ETAT_SATU =FACT(statut='f',min=00,max=01,
4655 E_CHAR =SIMP(statut='o',typ='R'),
4656 E_DECHAR =SIMP(statut='o',typ='R'),
4657 XN =SIMP(statut='f',typ='R'),
4658 RF =SIMP(statut='f',typ='R'),
4659 EV_KB =SIMP(statut='f',typ='R'),
4660 EV_XM =SIMP(statut='f',typ='R'),
4661 D_E_T =SIMP(statut='f',typ='R'),
4662 ALPHA0 =SIMP(statut='f',typ='R'),
4663 ALPHA1 =SIMP(statut='f',typ='R'),
4664 ALPHA2 =SIMP(statut='f',typ='R'),
4665 ALPHA3 =SIMP(statut='f',typ='R'),
4666 ALPHA_S =SIMP(statut='f',typ='R'),
4667 ANG_FRT =SIMP(statut='o',typ='R'),
4668 COHE =SIMP(statut='o',typ='R'),
4669 RESI_TRAC =SIMP(statut='o',typ='R'),
4671 CAM_CLAY_THM =FACT(statut='f',min=00,max=01,
4672 NU =SIMP(statut='f',typ='R'),
4673 LAMBDA =SIMP(statut='o',typ='R'),
4674 KAPA =SIMP(statut='o',typ='R'),
4675 M =SIMP(statut='f',typ='R'),
4676 PRES_CRIT =SIMP(statut='f',typ='R'),
4677 GAMA =SIMP(statut='o',typ='R'),
4678 A0_PC =SIMP(statut='o',typ='R'),
4679 A1_PC =SIMP(statut='f',typ='R'),
4680 A2_PC =SIMP(statut='f',typ='R'),
4681 ALPHA0_PC =SIMP(statut='f',typ='R'),
4682 ALPHA1_PC =SIMP(statut='f',typ='R'),
4683 ALPHA2_PC =SIMP(statut='f',typ='R'),
4684 ALPHA3_PC =SIMP(statut='f',typ='R'),
4685 ALPHA_S =SIMP(statut='f',typ='R'),
4687 SURF_ETAT_NSAT =FACT(statut='f',min=00,max=01,
4688 E_CHAR =SIMP(statut='o',typ='R'),
4689 E_DECHAR =SIMP(statut='o',typ='R'),
4690 XN =SIMP(statut='f',typ='R'),
4691 RF =SIMP(statut='f',typ='R'),
4692 EV_KB =SIMP(statut='f',typ='R'),
4693 EV_XM =SIMP(statut='f',typ='R'),
4694 EV_A =SIMP(statut='f',typ='R'),
4695 EV_B =SIMP(statut='f',typ='R'),
4696 EV_CT =SIMP(statut='f',typ='R'),
4697 EV_SIGB =SIMP(statut='f',typ='R'),
4698 D_E_T =SIMP(statut='f',typ='R'),
4699 D_E_SUCC =SIMP(statut='f',typ='R'),
4700 ANG_FRT =SIMP(statut='o',typ='R'),
4701 COHE =SIMP(statut='o',typ='R'),
4702 D_COEH_SUCC =SIMP(statut='f',typ='R'),
4703 ANG_FRT_ULT =SIMP(statut='f',typ='R'),
4704 SUCC_ULTM =SIMP(statut='f',typ='R'),
4705 RESI_TRAC =SIMP(statut='f',typ='R'),
4706 A_SURF_SATU =SIMP(statut='f',typ='R'),
4707 B_SURF_SATU =SIMP(statut='f',typ='R'),
4708 C_SURF_SATU =SIMP(statut='f',typ='R'),
4709 D_SURF_SATU =SIMP(statut='f',typ='R'),
4711 ELAS_COQUE =FACT(statut='f',min=00,max=01,
4712 regles=(EXCLUS('MEMB_L','M_LLLL',),
4713 PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
4714 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
4715 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
4716 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
4717 'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
4718 'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
4719 'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
4720 'C_LZTZ','C_TZTZ'),),
4721 MEMB_L =SIMP(statut='f',typ='R'),
4722 MEMB_LT =SIMP(statut='f',typ='R'),
4723 MEMB_T =SIMP(statut='f',typ='R'),
4724 MEMB_G_LT =SIMP(statut='f',typ='R'),
4725 FLEX_L =SIMP(statut='f',typ='R'),
4726 FLEX_LT =SIMP(statut='f',typ='R'),
4727 FLEX_T =SIMP(statut='f',typ='R'),
4728 FLEX_G_LT =SIMP(statut='f',typ='R'),
4729 CISA_L =SIMP(statut='f',typ='R'),
4730 CISA_T =SIMP(statut='f',typ='R'),
4731 M_LLLL =SIMP(statut='f',typ='R'),
4732 M_LLTT =SIMP(statut='f',typ='R'),
4733 M_LLLT =SIMP(statut='f',typ='R'),
4734 M_TTTT =SIMP(statut='f',typ='R'),
4735 M_TTLT =SIMP(statut='f',typ='R'),
4736 M_LTLT =SIMP(statut='f',typ='R'),
4737 F_LLLL =SIMP(statut='f',typ='R'),
4738 F_LLTT =SIMP(statut='f',typ='R'),
4739 F_LLLT =SIMP(statut='f',typ='R'),
4740 F_TTTT =SIMP(statut='f',typ='R'),
4741 F_TTLT =SIMP(statut='f',typ='R'),
4742 F_LTLT =SIMP(statut='f',typ='R'),
4743 MF_LLLL =SIMP(statut='f',typ='R'),
4744 MF_LLTT =SIMP(statut='f',typ='R'),
4745 MF_LLLT =SIMP(statut='f',typ='R'),
4746 MF_TTTT =SIMP(statut='f',typ='R'),
4747 MF_TTLT =SIMP(statut='f',typ='R'),
4748 MF_LTLT =SIMP(statut='f',typ='R'),
4749 MC_LLLZ =SIMP(statut='f',typ='R'),
4750 MC_LLTZ =SIMP(statut='f',typ='R'),
4751 MC_TTLZ =SIMP(statut='f',typ='R'),
4752 MC_TTTZ =SIMP(statut='f',typ='R'),
4753 MC_LTLZ =SIMP(statut='f',typ='R'),
4754 MC_LTTZ =SIMP(statut='f',typ='R'),
4755 FC_LLLZ =SIMP(statut='f',typ='R'),
4756 FC_LLTZ =SIMP(statut='f',typ='R'),
4757 FC_TTLZ =SIMP(statut='f',typ='R'),
4758 FC_TTTZ =SIMP(statut='f',typ='R'),
4759 FC_LTLZ =SIMP(statut='f',typ='R'),
4760 FC_LTTZ =SIMP(statut='f',typ='R'),
4761 C_LZLZ =SIMP(statut='f',typ='R'),
4762 C_LZTZ =SIMP(statut='f',typ='R'),
4763 C_TZTZ =SIMP(statut='f',typ='R'),
4764 RHO =SIMP(statut='f',typ='R'),
4765 ALPHA =SIMP(statut='f',typ='R'),
4767 ELAS_COQUE_FO =FACT(statut='f',min=00,max=01,
4768 regles=(EXCLUS('MEMB_L','M_LLLL',),
4769 PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
4770 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
4771 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
4772 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
4773 'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
4774 'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
4775 'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
4776 MEMB_L =SIMP(statut='f',typ=fonction),
4777 MEMB_LT =SIMP(statut='f',typ=fonction),
4778 MEMB_T =SIMP(statut='f',typ=fonction),
4779 MEMB_G_LT =SIMP(statut='f',typ=fonction),
4780 FLEX_L =SIMP(statut='f',typ=fonction),
4781 FLEX_LT =SIMP(statut='f',typ=fonction),
4782 FLEX_T =SIMP(statut='f',typ=fonction),
4783 FLEX_G_LT =SIMP(statut='f',typ=fonction),
4784 CISA_L =SIMP(statut='f',typ=fonction),
4785 CISA_T =SIMP(statut='f',typ=fonction),
4786 M_LLLL =SIMP(statut='f',typ=fonction),
4787 M_LLTT =SIMP(statut='f',typ=fonction),
4788 M_LLLT =SIMP(statut='f',typ=fonction),
4789 M_TTTT =SIMP(statut='f',typ=fonction),
4790 M_TTLT =SIMP(statut='f',typ=fonction),
4791 M_LTLT =SIMP(statut='f',typ=fonction),
4792 F_LLLL =SIMP(statut='f',typ=fonction),
4793 F_LLTT =SIMP(statut='f',typ=fonction),
4794 F_LLLT =SIMP(statut='f',typ=fonction),
4795 F_TTTT =SIMP(statut='f',typ=fonction),
4796 F_TTLT =SIMP(statut='f',typ=fonction),
4797 F_LTLT =SIMP(statut='f',typ=fonction),
4798 MF_LLLL =SIMP(statut='f',typ=fonction),
4799 MF_LLTT =SIMP(statut='f',typ=fonction),
4800 MF_LLLT =SIMP(statut='f',typ=fonction),
4801 MF_TTTT =SIMP(statut='f',typ=fonction),
4802 MF_TTLT =SIMP(statut='f',typ=fonction),
4803 MF_LTLT =SIMP(statut='f',typ=fonction),
4804 MC_LLLZ =SIMP(statut='f',typ=fonction),
4805 MC_LLTZ =SIMP(statut='f',typ=fonction),
4806 MC_TTLZ =SIMP(statut='f',typ=fonction),
4807 MC_TTTZ =SIMP(statut='f',typ=fonction),
4808 MC_LTLZ =SIMP(statut='f',typ=fonction),
4809 MC_LTTZ =SIMP(statut='f',typ=fonction),
4810 FC_LLLZ =SIMP(statut='f',typ=fonction),
4811 FC_LLTZ =SIMP(statut='f',typ=fonction),
4812 FC_TTLZ =SIMP(statut='f',typ=fonction),
4813 FC_TTTZ =SIMP(statut='f',typ=fonction),
4814 FC_LTLZ =SIMP(statut='f',typ=fonction),
4815 FC_LTTZ =SIMP(statut='f',typ=fonction),
4816 C_LZLZ =SIMP(statut='f',typ=fonction),
4817 C_LZTZ =SIMP(statut='f',typ=fonction),
4818 C_TZTZ =SIMP(statut='f',typ=fonction),
4819 RHO =SIMP(statut='f',typ='R'),
4820 ALPHA =SIMP(statut='f',typ=fonction),
4821 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
4823 APPUI_ELAS =FACT(statut='f',min=00,max=01,
4824 E_N =SIMP(statut='o',typ='R'),
4825 E_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0),
4827 CABLE =FACT(statut='f',min=00,max=01,
4828 E =SIMP(statut='o',typ='R'),
4829 EC_SUR_E =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
4830 RHO =SIMP(statut='f',typ='R'),
4831 ALPHA =SIMP(statut='f',typ='R'),
4832 AMOR_ALPHA =SIMP(statut='f',typ='R'),
4833 AMOR_BETA =SIMP(statut='f',typ='R'),
4836 # comportement mécanique non linéaire
4838 TRACTION =FACT(statut='f',min=00,max=01,
4839 SIGM =SIMP(statut='o',typ=fonction),
4840 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
4841 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4842 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
4843 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
4845 ECRO_LINE =FACT(statut='f',min=00,max=01,
4846 D_SIGM_EPSI =SIMP(statut='o',typ='R'),
4847 SY =SIMP(statut='o',typ='R'),
4849 ECRO_LINE_FO =FACT(statut='f',min=00,max=01,
4850 D_SIGM_EPSI =SIMP(statut='o',typ=fonction),
4851 SY =SIMP(statut='o',typ=fonction),
4852 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4854 PRAGER =FACT(statut='f',min=00,max=01,
4855 C =SIMP(statut='o',typ='R'),
4857 PRAGER_FO =FACT(statut='f',min=00,max=01,
4858 C =SIMP(statut='o',typ=fonction),
4859 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4861 ECRO_FLEJOU =FACT(statut='f',min=00,max=01,
4862 EP =SIMP(statut='o',typ='R'),
4863 SY =SIMP(statut='o',typ='R'),
4864 SU =SIMP(statut='o',typ='R'),
4865 PUISS =SIMP(statut='o',typ='R'),
4867 TAHERI =FACT(statut='f',min=00,max=01,
4868 R_0 =SIMP(statut='o',typ='R'),
4869 ALPHA =SIMP(statut='o',typ='R'),
4870 M =SIMP(statut='o',typ='R'),
4871 A =SIMP(statut='o',typ='R'),
4872 B =SIMP(statut='o',typ='R'),
4873 C1 =SIMP(statut='o',typ='R'),
4874 C_INF =SIMP(statut='o',typ='R'),
4875 S =SIMP(statut='o',typ='R'),
4877 TAHERI_FO =FACT(statut='f',min=00,max=01,
4878 R_0 =SIMP(statut='o',typ=fonction),
4879 ALPHA =SIMP(statut='o',typ=fonction),
4880 M =SIMP(statut='o',typ=fonction),
4881 A =SIMP(statut='o',typ=fonction),
4882 B =SIMP(statut='o',typ=fonction),
4883 C1 =SIMP(statut='o',typ=fonction),
4884 C_INF =SIMP(statut='o',typ=fonction),
4885 S =SIMP(statut='o',typ=fonction),
4886 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4888 ROUSSELIER =FACT(statut='f',min=00,max=01,
4889 D =SIMP(statut='o',typ='R'),
4890 SIGM_1 =SIMP(statut='o',typ='R'),
4891 PORO_INIT =SIMP(statut='o',typ='R'),
4892 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
4893 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
4894 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 1. ),
4895 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
4897 ROUSSELIER_FO =FACT(statut='f',min=00,max=01,
4898 D =SIMP(statut='o',typ=fonction),
4899 SIGM_1 =SIMP(statut='o',typ=fonction),
4900 PORO_INIT =SIMP(statut='o',typ=fonction),
4901 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
4902 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
4903 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 1. ),
4904 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
4905 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4907 CHABOCHE =FACT(statut='f',min=00,max=01,
4908 R_I =SIMP(statut='o',typ='R'),
4909 R_0 =SIMP(statut='o',typ='R'),
4910 B =SIMP(statut='o',typ='R'),
4911 K =SIMP(statut='o',typ='R'),
4912 W =SIMP(statut='o',typ='R'),
4913 A1 =SIMP(statut='o',typ='R'),
4914 A2 =SIMP(statut='o',typ='R'),
4915 C1 =SIMP(statut='o',typ='R'),
4916 C2 =SIMP(statut='o',typ='R'),
4918 VMIS_CIN1_CHAB =FACT(statut='f',min=00,max=01,
4919 R_0 =SIMP(statut='o',typ='R'),
4920 R_I =SIMP(statut='f',typ='R'),
4921 B =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4922 C_I =SIMP(statut='o',typ='R'),
4923 K =SIMP(statut='f',typ='R',defaut= 1.0E+0),
4924 W =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4925 G_0 =SIMP(statut='o',typ='R'),
4926 A_I =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4928 VMIS_CIN1_CHAB_F =FACT(statut='f',min=00,max=01,
4929 R_0 =SIMP(statut='o',typ=fonction),
4930 R_I =SIMP(statut='o',typ=fonction),
4931 B =SIMP(statut='o',typ=fonction),
4932 C_I =SIMP(statut='o',typ=fonction),
4933 K =SIMP(statut='o',typ=fonction),
4934 W =SIMP(statut='o',typ=fonction),
4935 G_0 =SIMP(statut='o',typ=fonction),
4936 A_I =SIMP(statut='o',typ=fonction),
4937 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
4939 VMIS_CIN2_CHAB =FACT(statut='f',min=00,max=01,
4940 R_0 =SIMP(statut='o',typ='R'),
4941 R_I =SIMP(statut='f',typ='R'),
4942 B =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4943 C1_I =SIMP(statut='o',typ='R'),
4944 C2_I =SIMP(statut='o',typ='R'),
4945 K =SIMP(statut='f',typ='R',defaut= 1.),
4946 W =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4947 G1_0 =SIMP(statut='o',typ='R'),
4948 G2_0 =SIMP(statut='o',typ='R'),
4949 A_I =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
4951 VMIS_CIN2_CHAB_F =FACT(statut='f',min=00,max=01,
4952 R_0 =SIMP(statut='o',typ=fonction),
4953 R_I =SIMP(statut='o',typ=fonction),
4954 B =SIMP(statut='o',typ=fonction),
4955 C1_I =SIMP(statut='o',typ=fonction),
4956 C2_I =SIMP(statut='o',typ=fonction),
4957 K =SIMP(statut='o',typ=fonction),
4958 W =SIMP(statut='o',typ=fonction),
4959 G1_0 =SIMP(statut='o',typ=fonction),
4960 G2_0 =SIMP(statut='o',typ=fonction),
4961 A_I =SIMP(statut='o',typ=fonction),
4962 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4964 VISCOCHAB =FACT(statut='f',min=00,max=01,
4965 K_0 =SIMP(statut='o',typ='R'),
4966 A_K =SIMP(statut='o',typ='R'),
4967 A_R =SIMP(statut='o',typ='R'),
4968 K =SIMP(statut='o',typ='R'),
4969 N =SIMP(statut='o',typ='R'),
4970 ALP =SIMP(statut='o',typ='R'),
4971 B =SIMP(statut='o',typ='R'),
4972 M_R =SIMP(statut='o',typ='R'),
4973 G_R =SIMP(statut='o',typ='R'),
4974 MU =SIMP(statut='o',typ='R'),
4975 Q_M =SIMP(statut='o',typ='R'),
4976 Q_0 =SIMP(statut='o',typ='R'),
4977 QR_0 =SIMP(statut='o',typ='R'),
4978 ETA =SIMP(statut='o',typ='R'),
4979 C1 =SIMP(statut='o',typ='R'),
4980 M_1 =SIMP(statut='o',typ='R'),
4981 D1 =SIMP(statut='o',typ='R'),
4982 G_X1 =SIMP(statut='o',typ='R'),
4983 G1_0 =SIMP(statut='o',typ='R'),
4984 C2 =SIMP(statut='o',typ='R'),
4985 M_2 =SIMP(statut='o',typ='R'),
4986 D2 =SIMP(statut='o',typ='R'),
4987 G_X2 =SIMP(statut='o',typ='R'),
4988 G2_0 =SIMP(statut='o',typ='R'),
4989 A_I =SIMP(statut='o',typ='R'),
4991 VISCOCHAB_FO =FACT(statut='f',min=00,max=01,
4992 K_0 =SIMP(statut='o',typ=fonction),
4993 A_K =SIMP(statut='o',typ=fonction),
4994 A_R =SIMP(statut='o',typ=fonction),
4995 K =SIMP(statut='o',typ=fonction),
4996 N =SIMP(statut='o',typ=fonction),
4997 ALP =SIMP(statut='o',typ=fonction),
4998 B =SIMP(statut='o',typ=fonction),
4999 M_R =SIMP(statut='o',typ=fonction),
5000 G_R =SIMP(statut='o',typ=fonction),
5001 MU =SIMP(statut='o',typ=fonction),
5002 Q_M =SIMP(statut='o',typ=fonction),
5003 Q_0 =SIMP(statut='o',typ=fonction),
5004 QR_0 =SIMP(statut='o',typ=fonction),
5005 ETA =SIMP(statut='o',typ=fonction),
5006 C1 =SIMP(statut='o',typ=fonction),
5007 M_1 =SIMP(statut='o',typ=fonction),
5008 D1 =SIMP(statut='o',typ=fonction),
5009 G_X1 =SIMP(statut='o',typ=fonction),
5010 G1_0 =SIMP(statut='o',typ=fonction),
5011 C2 =SIMP(statut='o',typ=fonction),
5012 M_2 =SIMP(statut='o',typ=fonction),
5013 D2 =SIMP(statut='o',typ=fonction),
5014 G_X2 =SIMP(statut='o',typ=fonction),
5015 G2_0 =SIMP(statut='o',typ=fonction),
5016 A_I =SIMP(statut='o',typ=fonction),
5017 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5019 POLY_CFC =FACT(statut='f',min=00,max=01,
5020 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
5021 DL =SIMP(statut='f',typ='R'),
5022 DA =SIMP(statut='f',typ='R'),
5023 N =SIMP(statut='o',typ='R'),
5024 K =SIMP(statut='o',typ='R'),
5025 TAU_0 =SIMP(statut='o',typ='R'),
5026 Q1 =SIMP(statut='o',typ='R'),
5027 B1 =SIMP(statut='o',typ='R'),
5028 HL =SIMP(statut='o',typ='R'),
5029 Q2 =SIMP(statut='o',typ='R'),
5030 B2 =SIMP(statut='o',typ='R'),
5031 C1 =SIMP(statut='o',typ='R'),
5032 D1 =SIMP(statut='o',typ='R'),
5033 C2 =SIMP(statut='o',typ='R'),
5035 POLY_CFC_FO =FACT(statut='f',min=00,max=01,
5036 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
5037 DL =SIMP(statut='o',typ=fonction),
5038 DA =SIMP(statut='o',typ=fonction),
5039 N =SIMP(statut='o',typ=fonction),
5040 K =SIMP(statut='o',typ=fonction),
5041 TAU_0 =SIMP(statut='o',typ=fonction),
5042 Q1 =SIMP(statut='o',typ=fonction),
5043 B1 =SIMP(statut='o',typ=fonction),
5044 HL =SIMP(statut='o',typ=fonction),
5045 Q2 =SIMP(statut='o',typ=fonction),
5046 B2 =SIMP(statut='o',typ=fonction),
5047 C1 =SIMP(statut='o',typ=fonction),
5048 D1 =SIMP(statut='o',typ=fonction),
5049 C2 =SIMP(statut='o',typ=fonction),
5050 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5052 NORTON_HOFF =FACT(statut='f',min=00,max=01,
5053 N =SIMP(statut='o',typ='R'),
5054 SY =SIMP(statut='o',typ='R'),
5056 LEMAITRE =FACT(statut='f',min=00,max=01,
5057 N =SIMP(statut='o',typ='R'),
5058 UN_SUR_K =SIMP(statut='o',typ='R'),
5059 UN_SUR_M =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5060 QSR_K =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5062 ZIRC_CYRA2 =FACT(statut='f',min=00,max=01,
5063 EPSI_FAB =SIMP(statut='o',typ=fonction),
5064 TEMP_RECUIT =SIMP(statut='o',typ=fonction),
5065 FLUX_PHI =SIMP(statut='o',typ=fonction),
5066 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
5068 ZIRC_EPRI =FACT(statut='f',min=00,max=01,
5069 FLUX_PHI =SIMP(statut='o',typ='R'),
5070 R_P =SIMP(statut='o',typ='R'),
5071 THETA_MAX =SIMP(statut='o',typ='R'),
5073 LEMAITRE_FO =FACT(statut='f',min=00,max=01,
5074 N =SIMP(statut='o',typ=fonction),
5075 UN_SUR_K =SIMP(statut='o',typ=fonction),
5076 UN_SUR_M =SIMP(statut='f',typ=fonction),
5077 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5079 GRAN_IRRA =FACT(statut='f',min=00,max=01,
5080 FLUX_L =SIMP(statut='o',typ=fonction),
5081 FLUX_TN =SIMP(statut='o',typ=fonction),
5082 FONC_MULT =SIMP(statut='f',typ=fonction),
5083 A =SIMP(statut='o',typ='R'),
5084 S =SIMP(statut='f',typ='R'),
5085 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="X",into=("X",) ),
5086 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="Y",into=("Y",) ),
5087 VERI_P3 =SIMP(statut='f',typ='TXM',defaut="Z",into=("Z",) ),
5088 VERI_P4 =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST",) ),
5090 OHNO =FACT(statut='f',min=00,max=01,
5091 R_I =SIMP(statut='o',typ='R'),
5092 R_0 =SIMP(statut='o',typ='R'),
5093 B =SIMP(statut='o',typ='R'),
5094 PHI =SIMP(statut='o',typ='R'),
5095 A1 =SIMP(statut='o',typ='R'),
5096 A2 =SIMP(statut='o',typ='R'),
5097 A3 =SIMP(statut='o',typ='R'),
5098 A4 =SIMP(statut='o',typ='R'),
5099 A5 =SIMP(statut='o',typ='R'),
5100 GAMMA1 =SIMP(statut='o',typ='R'),
5101 GAMMA2 =SIMP(statut='o',typ='R'),
5102 GAMMA3 =SIMP(statut='o',typ='R'),
5103 GAMMA4 =SIMP(statut='o',typ='R'),
5104 GAMMA5 =SIMP(statut='o',typ='R'),
5105 M1 =SIMP(statut='o',typ='R'),
5106 M2 =SIMP(statut='o',typ='R'),
5107 M3 =SIMP(statut='o',typ='R'),
5108 M4 =SIMP(statut='o',typ='R'),
5109 M5 =SIMP(statut='o',typ='R'),
5111 OHNO_FO =FACT(statut='f',min=00,max=01,
5112 R_I =SIMP(statut='o',typ=fonction),
5113 R_0 =SIMP(statut='o',typ=fonction),
5114 B =SIMP(statut='o',typ=fonction),
5115 PHI =SIMP(statut='o',typ=fonction),
5116 A1 =SIMP(statut='o',typ=fonction),
5117 A2 =SIMP(statut='o',typ=fonction),
5118 A3 =SIMP(statut='o',typ=fonction),
5119 A4 =SIMP(statut='o',typ=fonction),
5120 A5 =SIMP(statut='o',typ=fonction),
5121 GAMMA1 =SIMP(statut='o',typ=fonction),
5122 GAMMA2 =SIMP(statut='o',typ=fonction),
5123 GAMMA3 =SIMP(statut='o',typ=fonction),
5124 GAMMA4 =SIMP(statut='o',typ=fonction),
5125 GAMMA5 =SIMP(statut='o',typ=fonction),
5126 M1 =SIMP(statut='o',typ=fonction),
5127 M2 =SIMP(statut='o',typ=fonction),
5128 M3 =SIMP(statut='o',typ=fonction),
5129 M4 =SIMP(statut='o',typ=fonction),
5130 M5 =SIMP(statut='o',typ=fonction),
5131 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5133 LMARC =FACT(statut='f',min=00,max=01,
5134 DE_0 =SIMP(statut='o',typ='R'),
5135 R_0 =SIMP(statut='o',typ='R'),
5136 N =SIMP(statut='o',typ='R'),
5137 K =SIMP(statut='o',typ='R'),
5138 Y_I =SIMP(statut='o',typ='R'),
5139 Y_0 =SIMP(statut='o',typ='R'),
5140 B =SIMP(statut='o',typ='R'),
5141 A_0 =SIMP(statut='o',typ='R'),
5142 RM =SIMP(statut='o',typ='R'),
5143 M =SIMP(statut='o',typ='R'),
5144 P =SIMP(statut='o',typ='R'),
5145 P1 =SIMP(statut='o',typ='R'),
5146 P2 =SIMP(statut='o',typ='R'),
5147 M11 =SIMP(statut='o',typ='R'),
5148 M22 =SIMP(statut='o',typ='R'),
5149 M33 =SIMP(statut='o',typ='R'),
5150 M66 =SIMP(statut='o',typ='R'),
5151 N11 =SIMP(statut='o',typ='R'),
5152 N22 =SIMP(statut='o',typ='R'),
5153 N33 =SIMP(statut='o',typ='R'),
5154 N66 =SIMP(statut='o',typ='R'),
5155 Q11 =SIMP(statut='o',typ='R'),
5156 Q22 =SIMP(statut='o',typ='R'),
5157 Q33 =SIMP(statut='o',typ='R'),
5158 Q66 =SIMP(statut='o',typ='R'),
5159 R11 =SIMP(statut='o',typ='R'),
5160 R22 =SIMP(statut='o',typ='R'),
5161 R33 =SIMP(statut='o',typ='R'),
5162 R66 =SIMP(statut='o',typ='R'),
5164 LMARC_FO =FACT(statut='f',min=00,max=01,
5165 DE_0 =SIMP(statut='o',typ=fonction),
5166 R_0 =SIMP(statut='o',typ=fonction),
5167 N =SIMP(statut='o',typ=fonction),
5168 K =SIMP(statut='o',typ=fonction),
5169 Y_I =SIMP(statut='o',typ=fonction),
5170 Y_0 =SIMP(statut='o',typ=fonction),
5171 B =SIMP(statut='o',typ=fonction),
5172 A_0 =SIMP(statut='o',typ=fonction),
5173 RM =SIMP(statut='o',typ=fonction),
5174 M =SIMP(statut='o',typ=fonction),
5175 P =SIMP(statut='o',typ=fonction),
5176 P1 =SIMP(statut='o',typ=fonction),
5177 P2 =SIMP(statut='o',typ=fonction),
5178 M11 =SIMP(statut='o',typ=fonction),
5179 M22 =SIMP(statut='o',typ=fonction),
5180 M33 =SIMP(statut='o',typ=fonction),
5181 M66 =SIMP(statut='o',typ=fonction),
5182 N11 =SIMP(statut='o',typ=fonction),
5183 N22 =SIMP(statut='o',typ=fonction),
5184 N33 =SIMP(statut='o',typ=fonction),
5185 N66 =SIMP(statut='o',typ=fonction),
5186 Q11 =SIMP(statut='o',typ=fonction),
5187 Q22 =SIMP(statut='o',typ=fonction),
5188 Q33 =SIMP(statut='o',typ=fonction),
5189 Q66 =SIMP(statut='o',typ=fonction),
5190 R11 =SIMP(statut='o',typ=fonction),
5191 R22 =SIMP(statut='o',typ=fonction),
5192 R33 =SIMP(statut='o',typ=fonction),
5193 R66 =SIMP(statut='o',typ=fonction),
5194 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5196 VMIS_POUTRE =FACT(statut='f',min=00,max=01,
5197 NP =SIMP(statut='o',typ='R'),
5198 MEY =SIMP(statut='o',typ='R'),
5199 MPY =SIMP(statut='o',typ='R'),
5200 CAY =SIMP(statut='o',typ='R'),
5201 CBY =SIMP(statut='o',typ='R'),
5202 MEZ =SIMP(statut='o',typ='R'),
5203 MPZ =SIMP(statut='o',typ='R'),
5204 CAZ =SIMP(statut='o',typ='R'),
5205 CBZ =SIMP(statut='o',typ='R'),
5206 MPX =SIMP(statut='o',typ='R'),
5208 VMIS_POUTRE_FO =FACT(statut='f',min=00,max=01,
5209 NP =SIMP(statut='o',typ=fonction),
5210 MEY =SIMP(statut='o',typ=fonction),
5211 MPY =SIMP(statut='o',typ=fonction),
5212 CAY =SIMP(statut='o',typ=fonction),
5213 CBY =SIMP(statut='o',typ=fonction),
5214 MEZ =SIMP(statut='o',typ=fonction),
5215 MPZ =SIMP(statut='o',typ=fonction),
5216 CAZ =SIMP(statut='o',typ=fonction),
5217 CBZ =SIMP(statut='o',typ=fonction),
5218 MPX =SIMP(statut='o',typ=fonction),
5219 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5221 ARME =FACT(statut='f',min=00,max=01,
5222 KYE =SIMP(statut='o',typ='R'),
5223 DLE =SIMP(statut='o',typ='R'),
5224 KYP =SIMP(statut='o',typ='R'),
5225 DLP =SIMP(statut='o',typ='R'),
5226 KYG =SIMP(statut='o',typ='R'),
5228 ASSE_CORN =FACT(statut='f',min=00,max=01,
5229 NU_1 =SIMP(statut='o',typ='R'),
5230 MU_1 =SIMP(statut='o',typ='R'),
5231 DXU_1 =SIMP(statut='o',typ='R'),
5232 DRYU_1 =SIMP(statut='o',typ='R'),
5233 C_1 =SIMP(statut='o',typ='R'),
5234 NU_2 =SIMP(statut='o',typ='R'),
5235 MU_2 =SIMP(statut='o',typ='R'),
5236 DXU_2 =SIMP(statut='o',typ='R'),
5237 DRYU_2 =SIMP(statut='o',typ='R'),
5238 C_2 =SIMP(statut='o',typ='R'),
5239 KY =SIMP(statut='o',typ='R'),
5240 KZ =SIMP(statut='o',typ='R'),
5241 KRX =SIMP(statut='o',typ='R'),
5242 KRZ =SIMP(statut='o',typ='R'),
5244 DIS_CONTACT =FACT(statut='f',min=00,max=01,
5245 regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA'),),
5246 RIGI_NOR =SIMP(statut='f',typ='R' ),
5247 DIST_1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5248 DIST_2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5249 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5250 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5251 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5252 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5253 JEU =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5254 KT_ULTM =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5255 EFFO_N_INIT =SIMP(statut='f',typ='R'),
5256 RIGI_N_FO =SIMP(statut='f',typ=fonction),
5257 RIGI_N_IRRA =SIMP(statut='f',typ=fonction),
5258 RELA_MZ =SIMP(statut='f',typ=fonction),
5259 C_PRAGER_MZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5260 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
5261 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
5263 NADAI_B =FACT(statut='f',min=00,max=01,
5264 F_C =SIMP(statut='o',typ='R'),
5265 F_T =SIMP(statut='o',typ='R'),
5266 CRIT_E_C =SIMP(statut='o',typ='R'),
5267 EPSP_P_C =SIMP(statut='o',typ='R'),
5268 EPSP_R_C =SIMP(statut='o',typ='R'),
5269 EPSI_R_T =SIMP(statut='o',typ='R'),
5270 FAC_T_C =SIMP(statut='o',typ='R'),
5272 BETON_DOUBLE_DP =FACT(statut='f',min=00,max=01,
5273 F_C =SIMP(statut='o',typ=fonction),
5274 F_T =SIMP(statut='o',typ=fonction),
5275 COEF_BIAX =SIMP(statut='o',typ=fonction),
5276 ENER_COMP_RUPT =SIMP(statut='o',typ=fonction),
5277 ENER_TRAC_RUPT =SIMP(statut='o',typ=fonction),
5278 COEF_ELAS_COMP =SIMP(statut='o',typ='R'),
5279 ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
5280 ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
5281 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
5282 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
5283 VERI_P3 =SIMP(statut='f',typ='TXM',defaut="HYDR",into=("HYDR",) ),
5284 VERI_P4 =SIMP(statut='f',typ='TXM',defaut="SECH",into=("SECH",) ),
5286 VENDOCHAB =FACT(statut='f',min=00,max=01,
5287 S_VP =SIMP(statut='o',typ='R'),
5288 SEDVP1 =SIMP(statut='o',typ='R'),
5289 SEDVP2 =SIMP(statut='o',typ='R'),
5290 N_VP =SIMP(statut='o',typ='R'),
5291 M_VP =SIMP(statut='o',typ='R'),
5292 K_VP =SIMP(statut='o',typ='R'),
5293 R_D =SIMP(statut='o',typ='R'),
5294 A_D =SIMP(statut='o',typ='R'),
5295 K_D =SIMP(statut='o',typ='R'),
5297 VENDOCHAB_FO =FACT(statut='f',min=00,max=01,
5298 S_VP =SIMP(statut='o',typ=fonction),
5299 SEDVP1 =SIMP(statut='o',typ=fonction),
5300 SEDVP2 =SIMP(statut='o',typ=fonction),
5301 N_VP =SIMP(statut='o',typ=fonction),
5302 M_VP =SIMP(statut='o',typ=fonction),
5303 K_VP =SIMP(statut='o',typ=fonction),
5304 R_D =SIMP(statut='o',typ=fonction),
5305 A_D =SIMP(statut='o',typ=fonction),
5306 K_D =SIMP(statut='o',typ=fonction),
5307 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5308 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="X",into=("X",) ),
5310 PINTO_MENEGOTTO =FACT(statut='f',min=00,max=01,
5311 SY =SIMP(statut='o',typ='R'),
5312 EPSI_ULTM =SIMP(statut='o',typ='R'),
5313 SIGM_ULTM =SIMP(statut='o',typ='R'),
5314 ELAN =SIMP(statut='f',typ='R',defaut= 4. ),
5315 EPSP_HARD =SIMP(statut='o',typ='R'),
5316 R_PM =SIMP(statut='f',typ='R',defaut= 20. ),
5317 EP_SUR_E =SIMP(statut='f',typ='R'),
5318 A1_PM =SIMP(statut='f',typ='R',defaut= 18.5 ),
5319 A2_PM =SIMP(statut='f',typ='R',defaut= 0.15 ),
5320 A6_PM =SIMP(statut='f',typ='R',defaut= 620. ),
5321 C_PM =SIMP(statut='f',typ='R',defaut= 0.5 ),
5322 A_PM =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
5324 BPEL_BETON =FACT(statut='f',min=00,max=01,
5325 PERT_FLUA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5326 PERT_RETR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5328 BPEL_ACIER =FACT(statut='f',min=00,max=01,
5329 RELAX_1000 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5330 MU0_RELAX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5331 SY =SIMP(statut='o',typ='R'),
5332 FROT_COURB =SIMP(statut='o',typ='R'),
5333 FROT_LINE =SIMP(statut='o',typ='R'),
5335 CJS =FACT(statut='f',min=00,max=01,
5336 regles=(ENSEMBLE('B_CJS','C_CJS','MU_CJS','PCO',),
5337 ENSEMBLE('N_CJS','KP','RC',),
5338 PRESENT_ABSENT('A_CJS','B_CJS',),
5339 PRESENT_PRESENT('A_CJS','N_CJS',),
5340 PRESENT_PRESENT('B_CJS','N_CJS', ),),
5341 BETA_CJS =SIMP(statut='o',typ='R'),
5342 RM =SIMP(statut='o',typ='R'),
5343 N_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5344 KP =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5345 RC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5346 A_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5347 B_CJS =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
5348 C_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5349 GAMMA_CJS =SIMP(statut='o',typ='R'),
5350 MU_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5351 PCO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5352 PA =SIMP(statut='o',typ='R'),
5353 Q_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5354 R_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5356 ECRO_ASYM_LINE =FACT(statut='f',min=00,max=01,
5357 DC_SIGM_EPSI =SIMP(statut='o',typ='R'),
5358 SY_C =SIMP(statut='o',typ='R'),
5359 DT_SIGM_EPSI =SIMP(statut='o',typ='R'),
5360 SY_T =SIMP(statut='o',typ='R'),
5362 GRANGER_FP =FACT(statut='f',min=00,max=01,
5363 J1 =SIMP(statut='f',typ='R'),
5364 J2 =SIMP(statut='f',typ='R'),
5365 J3 =SIMP(statut='f',typ='R'),
5366 J4 =SIMP(statut='f',typ='R'),
5367 J5 =SIMP(statut='f',typ='R'),
5368 J6 =SIMP(statut='f',typ='R'),
5369 J7 =SIMP(statut='f',typ='R'),
5370 J8 =SIMP(statut='f',typ='R'),
5371 TAUX_1 =SIMP(statut='f',typ='R'),
5372 TAUX_2 =SIMP(statut='f',typ='R'),
5373 TAUX_3 =SIMP(statut='f',typ='R'),
5374 TAUX_4 =SIMP(statut='f',typ='R'),
5375 TAUX_5 =SIMP(statut='f',typ='R'),
5376 TAUX_6 =SIMP(statut='f',typ='R'),
5377 TAUX_7 =SIMP(statut='f',typ='R'),
5378 TAUX_8 =SIMP(statut='f',typ='R'),
5379 FONC_DESORP =SIMP(statut='f',typ=fonction),
5380 QSR_K =SIMP(statut='f',typ='R'),
5381 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
5383 V_GRANGER_FP =FACT(statut='f',min=00,max=01,
5384 QSR_VEIL =SIMP(statut='f',typ='R'),
5385 FONC_V =SIMP(statut='f',typ=fonction),
5386 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
5389 # comportement thermique
5391 THER_NL =FACT(statut='f',min=00,max=01,
5392 regles=(UN_PARMI('BETA','RHO_CP', ),),
5393 LAMBDA =SIMP(statut='o',typ=fonction),
5394 BETA =SIMP(statut='f',typ=fonction),
5395 RHO_CP =SIMP(statut='f',typ=fonction),
5396 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5398 THER_HYDR =FACT(statut='f',min=00,max=01,
5399 LAMBDA =SIMP(statut='o',typ=fonction),
5400 BETA =SIMP(statut='f',typ=fonction),
5401 AFFINITE =SIMP(statut='o',typ=fonction),
5402 CHALHYDR =SIMP(statut='o',typ='R'),
5403 QSR_K =SIMP(statut='o',typ='R'),
5404 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
5405 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
5407 THER =FACT(statut='f',min=00,max=01,
5408 LAMBDA =SIMP(statut='o',typ='R'),
5409 RHO_CP =SIMP(statut='f',typ='R'),
5411 THER_FO =FACT(statut='f',min=00,max=01,
5412 LAMBDA =SIMP(statut='o',typ=fonction),
5413 RHO_CP =SIMP(statut='f',typ=fonction),
5414 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
5416 THER_ORTH =FACT(statut='f',min=00,max=01,
5417 LAMBDA_L =SIMP(statut='o',typ='R'),
5418 LAMBDA_T =SIMP(statut='o',typ='R'),
5419 LAMBDA_N =SIMP(statut='f',typ='R'),
5420 RHO_CP =SIMP(statut='f',typ='R'),
5422 THER_COQUE =FACT(statut='f',min=00,max=01,
5423 COND_LMM =SIMP(statut='o',typ='R'),
5424 COND_TMM =SIMP(statut='o',typ='R'),
5425 COND_LMP =SIMP(statut='o',typ='R'),
5426 COND_TMP =SIMP(statut='o',typ='R'),
5427 COND_LPP =SIMP(statut='o',typ='R'),
5428 COND_TPP =SIMP(statut='o',typ='R'),
5429 COND_LSI =SIMP(statut='o',typ='R'),
5430 COND_TSI =SIMP(statut='o',typ='R'),
5431 COND_NMM =SIMP(statut='o',typ='R'),
5432 COND_NMP =SIMP(statut='o',typ='R'),
5433 COND_NPP =SIMP(statut='o',typ='R'),
5434 COND_NSI =SIMP(statut='o',typ='R'),
5435 CMAS_MM =SIMP(statut='f',typ='R'),
5436 CMAS_MP =SIMP(statut='f',typ='R'),
5437 CMAS_PP =SIMP(statut='f',typ='R'),
5438 CMAS_SI =SIMP(statut='f',typ='R'),
5440 THER_COQUE_FO =FACT(statut='f',min=00,max=01,
5441 COND_LMM =SIMP(statut='o',typ=fonction),
5442 COND_TMM =SIMP(statut='o',typ=fonction),
5443 COND_LMP =SIMP(statut='o',typ=fonction),
5444 COND_TMP =SIMP(statut='o',typ=fonction),
5445 COND_LPP =SIMP(statut='o',typ=fonction),
5446 COND_TPP =SIMP(statut='o',typ=fonction),
5447 COND_LSI =SIMP(statut='o',typ=fonction),
5448 COND_TSI =SIMP(statut='o',typ=fonction),
5449 COND_NMM =SIMP(statut='o',typ=fonction),
5450 COND_NMP =SIMP(statut='o',typ=fonction),
5451 COND_NPP =SIMP(statut='o',typ=fonction),
5452 COND_NSI =SIMP(statut='o',typ=fonction),
5453 CMAS_MM =SIMP(statut='f',typ=fonction),
5454 CMAS_MP =SIMP(statut='f',typ=fonction),
5455 CMAS_PP =SIMP(statut='f',typ=fonction),
5456 CMAS_SI =SIMP(statut='f',typ=fonction),
5458 SECH_GRANGER =FACT(statut='f',min=00,max=01,
5459 A =SIMP(statut='o',typ='R'),
5460 B =SIMP(statut='o',typ='R'),
5461 QSR_K =SIMP(statut='o',typ='R'),
5462 TEMP_0_C =SIMP(statut='o',typ='R'),
5464 SECH_MENSI =FACT(statut='f',min=00,max=01,
5465 A =SIMP(statut='o',typ='R'),
5466 B =SIMP(statut='o',typ='R'),
5468 SECH_BAZANT =FACT(statut='f',min=00,max=01,
5469 D1 =SIMP(statut='o',typ='R'),
5470 ALPHA_BAZANT =SIMP(statut='o',typ='R'),
5471 N =SIMP(statut='o',typ='R'),
5472 FONC_DESORP =SIMP(statut='o',typ=fonction),
5473 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5475 SECH_NAPPE =FACT(statut='f',min=00,max=01,
5476 FONCTION =SIMP(statut='o',typ=fonction),
5477 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5478 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
5481 # comportement métallurgique
5483 META_ACIER =FACT(statut='f',min=00,max=01,
5484 TRC =SIMP(statut='o',typ=(tabl_trc) ),
5485 AR3 =SIMP(statut='o',typ='R'),
5486 ALPHA =SIMP(statut='o',typ='R'),
5487 MS0 =SIMP(statut='o',typ='R'),
5488 AC1 =SIMP(statut='o',typ='R'),
5489 AC3 =SIMP(statut='o',typ='R'),
5490 TAUX_1 =SIMP(statut='o',typ='R'),
5491 TAUX_3 =SIMP(statut='o',typ='R'),
5492 LAMBDA0 =SIMP(statut='f',typ='R'),
5493 QSR_K =SIMP(statut='f',typ='R'),
5494 D10 =SIMP(statut='f',typ='R'),
5495 WSR_K =SIMP(statut='f',typ='R'),
5497 META_ZIRC =FACT(statut='f',min=00,max=01,
5498 TDEQ =SIMP(statut='o',typ='R'),
5499 N =SIMP(statut='o',typ='R'),
5500 K =SIMP(statut='o',typ='R'),
5501 TDC =SIMP(statut='o',typ='R'),
5502 AC =SIMP(statut='o',typ='R'),
5503 M =SIMP(statut='o',typ='R'),
5504 QSR_K =SIMP(statut='f',typ='R'),
5505 TDR =SIMP(statut='o',typ='R'),
5506 AR =SIMP(statut='o',typ='R'),
5507 BR =SIMP(statut='o',typ='R'),
5509 DURT_META =FACT(statut='f',min=00,max=01,
5510 F1_DURT =SIMP(statut='o',typ='R'),
5511 F2_DURT =SIMP(statut='o',typ='R'),
5512 F3_DURT =SIMP(statut='o',typ='R'),
5513 F4_DURT =SIMP(statut='o',typ='R'),
5514 C_DURT =SIMP(statut='o',typ='R'),
5516 ELAS_META =FACT(statut='f',min=00,max=01,
5517 E =SIMP(statut='o',typ='R'),
5518 NU =SIMP(statut='o',typ='R'),
5519 F_ALPHA =SIMP(statut='o',typ='R'),
5520 C_ALPHA =SIMP(statut='o',typ='R'),
5521 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
5522 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
5523 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
5524 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
5525 F1_SY =SIMP(statut='f',typ='R'),
5526 F2_SY =SIMP(statut='f',typ='R'),
5527 F3_SY =SIMP(statut='f',typ='R'),
5528 F4_SY =SIMP(statut='f',typ='R'),
5529 C_SY =SIMP(statut='f',typ='R'),
5530 SY_MELANGE =SIMP(statut='f',typ=fonction),
5531 F1_S_VP =SIMP(statut='f',typ='R'),
5532 F2_S_VP =SIMP(statut='f',typ='R'),
5533 F3_S_VP =SIMP(statut='f',typ='R'),
5534 F4_S_VP =SIMP(statut='f',typ='R'),
5535 C_S_VP =SIMP(statut='f',typ='R' ),
5536 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
5537 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
5539 ELAS_META_FO =FACT(statut='f',min=00,max=01,
5540 E =SIMP(statut='o',typ=fonction),
5541 NU =SIMP(statut='o',typ=fonction),
5542 F_ALPHA =SIMP(statut='o',typ=fonction),
5543 C_ALPHA =SIMP(statut='o',typ=fonction),
5544 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
5545 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
5546 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
5547 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
5548 F1_SY =SIMP(statut='f',typ=fonction),
5549 F2_SY =SIMP(statut='f',typ=fonction),
5550 F3_SY =SIMP(statut='f',typ=fonction),
5551 F4_SY =SIMP(statut='f',typ=fonction),
5552 C_SY =SIMP(statut='f',typ=fonction),
5553 SY_MELANGE =SIMP(statut='f',typ=fonction),
5554 F1_S_VP =SIMP(statut='f',typ=fonction),
5555 F2_S_VP =SIMP(statut='f',typ=fonction),
5556 F3_S_VP =SIMP(statut='f',typ=fonction),
5557 F4_S_VP =SIMP(statut='f',typ=fonction),
5558 C_S_VP =SIMP(statut='f',typ=fonction),
5559 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
5560 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
5561 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
5563 META_ECRO_LINE =FACT(statut='f',min=00,max=01,
5564 F1_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5565 F2_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5566 F3_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5567 F4_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5568 C_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5569 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
5571 META_TRACTION =FACT(statut='f',min=00,max=01,
5572 SIGM_F1 =SIMP(statut='f',typ=fonction),
5573 SIGM_F2 =SIMP(statut='f',typ=fonction),
5574 SIGM_F3 =SIMP(statut='f',typ=fonction),
5575 SIGM_F4 =SIMP(statut='f',typ=fonction),
5576 SIGM_C =SIMP(statut='f',typ=fonction),
5577 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
5578 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
5580 META_VISC_FO =FACT(statut='f',min=00,max=01,
5581 F1_ETA =SIMP(statut='f',typ=fonction),
5582 F1_N =SIMP(statut='f',typ=fonction),
5583 F1_C =SIMP(statut='f',typ=fonction),
5584 F1_M =SIMP(statut='f',typ=fonction),
5585 F2_ETA =SIMP(statut='f',typ=fonction),
5586 F2_N =SIMP(statut='f',typ=fonction),
5587 F2_C =SIMP(statut='f',typ=fonction),
5588 F2_M =SIMP(statut='f',typ=fonction),
5589 F3_ETA =SIMP(statut='f',typ=fonction),
5590 F3_N =SIMP(statut='f',typ=fonction),
5591 F3_C =SIMP(statut='f',typ=fonction),
5592 F3_M =SIMP(statut='f',typ=fonction),
5593 F4_ETA =SIMP(statut='f',typ=fonction),
5594 F4_N =SIMP(statut='f',typ=fonction),
5595 F4_C =SIMP(statut='f',typ=fonction),
5596 F4_M =SIMP(statut='f',typ=fonction),
5597 C_ETA =SIMP(statut='f',typ=fonction),
5598 C_N =SIMP(statut='f',typ=fonction),
5599 C_C =SIMP(statut='f',typ=fonction),
5600 C_M =SIMP(statut='f',typ=fonction),
5601 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5603 META_PT =FACT(statut='f',min=00,max=01,
5604 F1_K =SIMP(statut='f',typ='R'),
5605 F2_K =SIMP(statut='f',typ='R'),
5606 F3_K =SIMP(statut='f',typ='R'),
5607 F4_K =SIMP(statut='f',typ='R'),
5608 F1_D_F_META =SIMP(statut='f',typ=fonction),
5609 F2_D_F_META =SIMP(statut='f',typ=fonction),
5610 F3_D_F_META =SIMP(statut='f',typ=fonction),
5611 F4_D_F_META =SIMP(statut='f',typ=fonction),
5612 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5613 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
5615 META_RE =FACT(statut='f',min=00,max=01,
5616 C_F1_THETA =SIMP(statut='f',typ='R'),
5617 C_F2_THETA =SIMP(statut='f',typ='R'),
5618 C_F3_THETA =SIMP(statut='f',typ='R'),
5619 C_F4_THETA =SIMP(statut='f',typ='R'),
5620 F1_C_THETA =SIMP(statut='f',typ='R'),
5621 F2_C_THETA =SIMP(statut='f',typ='R'),
5622 F3_C_THETA =SIMP(statut='f',typ='R'),
5623 F4_C_THETA =SIMP(statut='f',typ='R'),
5626 # comportement fluide
5628 FLUIDE =FACT(statut='f',min=00,max=01,
5629 regles=(EXCLUS('CELE_C','CELE_R'),),
5630 RHO =SIMP(statut='o',typ='R'),
5631 CELE_C =SIMP(statut='f',typ='C'),
5632 CELE_R =SIMP(statut='f',typ='R'),
5634 PORO_JOINT =FACT(statut='f',min=00,max=01,
5635 RHO_FLUI =SIMP(statut='o',typ='R'),
5636 ENTRO_FLUI =SIMP(statut='o',typ='R'),
5637 BIOT_M =SIMP(statut='o',typ='R'),
5638 C_0 =SIMP(statut='o',typ='R'),
5639 T_R =SIMP(statut='o',typ='R'),
5640 ALPHA_M =SIMP(statut='o',typ='R'),
5641 LAMBDA_T =SIMP(statut='o',typ='R'),
5642 LAMBDA_H =SIMP(statut='o',typ='R'),
5643 SOURCE_INIT =SIMP(statut='o',typ='R'),
5644 OMEGA_0 =SIMP(statut='o',typ='R'),
5646 THM_LIQU =FACT(statut='f',min=00,max=01,
5647 RHO =SIMP(statut='o',typ='R'),
5648 UN_SUR_K =SIMP(statut='f',typ='R'),
5649 ALPHA =SIMP(statut='f',typ='R'),
5650 CP =SIMP(statut='f',typ='R'),
5651 VISC =SIMP(statut='f',typ=fonction),
5652 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
5653 LAMBDA =SIMP(statut='f',typ=fonction),
5654 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
5655 COEF_HENRY =SIMP(statut='f',typ='R'),
5656 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",)),
5658 THM_GAZ =FACT(statut='f',min=00,max=01,
5659 MASS_MOL =SIMP(statut='f',typ='R'),
5660 CP =SIMP(statut='f',typ='R'),
5661 VISC =SIMP(statut='f',typ=fonction),
5662 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
5663 LAMBDA =SIMP(statut='f',typ=fonction),
5664 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
5665 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",)),
5667 THM_VAPE_GAZ =FACT(statut='f',min=00,max=01,
5668 MASS_MOL =SIMP(statut='f',typ='R'),
5669 CP =SIMP(statut='f',typ='R'),
5670 VISC =SIMP(statut='f',typ=fonction),
5671 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
5672 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",)),
5674 THM_INIT =FACT(statut='f',min=00,max=01,
5675 TEMP =SIMP(statut='o',typ='R'),
5676 PRE1 =SIMP(statut='o',typ='R'),
5677 PRE2 =SIMP(statut='o',typ='R'),
5678 PORO =SIMP(statut='o',typ='R'),
5679 PRES_VAPE =SIMP(statut='o',typ='R'),
5680 DEGR_SATU =SIMP(statut='f',typ='R'),
5681 PRES_ATMO =SIMP(statut='f',typ='R'),
5683 THM_DIFFU =FACT(statut='f',min=00,max=01,
5684 R_GAZ =SIMP(statut='o',typ='R'),
5685 RHO =SIMP(statut='f',typ='R'),
5686 CP =SIMP(statut='f',typ='R'),
5687 BIOT_COEF =SIMP(statut='f',typ='R'),
5688 SATU_PRES =SIMP(statut='f',typ=fonction),
5689 D_SATU_PRES =SIMP(statut='f',typ=fonction),
5690 PESA_X =SIMP(statut='f',typ='R'),
5691 PESA_Y =SIMP(statut='f',typ='R'),
5692 PESA_Z =SIMP(statut='f',typ='R'),
5693 PERM_IN =SIMP(statut='f',typ=fonction),
5694 PERM_LIQU =SIMP(statut='f',typ=fonction),
5695 D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
5696 PERM_GAZ =SIMP(statut='f',typ=fonction),
5697 D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
5698 D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
5699 FICK =SIMP(statut='f',typ=fonction),
5700 D_FICK_TEMP =SIMP(statut='f',typ=fonction),
5701 D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
5702 LAMBDA =SIMP(statut='f',typ=fonction),
5703 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
5704 SIGMA_T =SIMP(statut='f',typ=fonction),
5705 D_SIGMA_T =SIMP(statut='f',typ=fonction),
5706 PERM_G_INTR =SIMP(statut='f',typ=fonction),
5707 CHAL_VAPO =SIMP(statut='f',typ=fonction),
5708 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5709 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="SAT",into=("SAT",) ),
5710 VERI_P3 =SIMP(statut='f',typ='TXM',defaut="PORO",into=("PORO",) ),
5711 VERI_P4 =SIMP(statut='f',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
5712 VERI_P5 =SIMP(statut='f',typ='TXM',defaut="PGAP",into=("PGAP",) ),
5715 # courbes et coefficients associés à la fatigue et au dommage
5717 FATIGUE =FACT(statut='f',min=00,max=01,
5718 regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
5719 PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
5720 PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
5721 ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
5722 ENSEMBLE('A0','A1','A2','A3','SL'),
5723 PRESENT_PRESENT('A0','E_REFE'),
5724 ENSEMBLE('D0','TAU0'),),
5725 WOHLER =SIMP(statut='f',typ=fonction),
5726 A_BASQUIN =SIMP(statut='f',typ='R'),
5727 BETA_BASQUIN =SIMP(statut='f',typ='R'),
5728 A0 =SIMP(statut='f',typ='R'),
5729 A1 =SIMP(statut='f',typ='R'),
5730 A2 =SIMP(statut='f',typ='R'),
5731 A3 =SIMP(statut='f',typ='R'),
5732 SL =SIMP(statut='f',typ='R'),
5733 MANSON_COFFIN =SIMP(statut='f',typ=fonction),
5734 E_REFE =SIMP(statut='f',typ='R'),
5735 D0 =SIMP(statut='f',typ='R'),
5736 TAU0 =SIMP(statut='f',typ='R'),
5737 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
5738 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
5740 DOMMA_LEMAITRE =FACT(statut='f',min=00,max=01,
5741 S =SIMP(statut='o',typ=fonction),
5742 EPSP_SEUIL =SIMP(statut='o',typ='R'),
5743 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5746 # autres comportements ...
5748 WEIBULL =FACT(statut='f',min=00,max=01,
5749 M =SIMP(statut='o',typ='R'),
5750 VOLU_REFE =SIMP(statut='o',typ='R'),
5751 SIGM_REFE =SIMP(statut='o',typ='R'),
5752 SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
5754 CONTACT =FACT(statut='f',min=00,max=01,
5755 E_N =SIMP(statut='o',typ='R'),
5756 E_T =SIMP(statut='f',typ='R',defaut= 0.E+0),
5757 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0),
5759 NON_LOCAL =FACT(statut='f',min=00,max=01,
5760 LONG_CARA =SIMP(statut='o',typ='R'),
5761 COEF_RIGI_MINI =SIMP(statut='f',typ='R'),
5763 RUPT_FRAG =FACT(statut='f',min=00,max=01,
5764 GC =SIMP(statut='o',typ='R'),
5766 RCCM =FACT(statut='f',min=00,max=01,
5767 SY_02 =SIMP(statut='f',typ='R'),
5768 SM =SIMP(statut='f',typ='R'),
5769 SU =SIMP(statut='f',typ='R'),
5770 SC =SIMP(statut='f',typ='R'),
5771 SH =SIMP(statut='f',typ='R'),
5772 N_KE =SIMP(statut='f',typ='R'),
5773 M_KE =SIMP(statut='f',typ='R'),
5775 RCCM_FO =FACT(statut='f',min=00,max=01,
5776 SY_02 =SIMP(statut='f',typ=fonction),
5777 SM =SIMP(statut='f',typ=fonction),
5778 SU =SIMP(statut='f',typ=fonction),
5779 S =SIMP(statut='f',typ=fonction),
5780 N_KE =SIMP(statut='f',typ=fonction),
5781 M_KE =SIMP(statut='f',typ=fonction),
5783 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5785 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
5786 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
5787 fr="Définition d un modèle structure global à partir de macro éléments pour analyse modale ou harmonique par sous structuration",
5788 docu="U4.65.02-D",reentrant='n',
5789 SOUS_STRUC =FACT(statut='o',min=01,max='**',
5790 NOM =SIMP(statut='o',typ='TXM' ),
5791 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
5792 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
5793 TRANS =SIMP(statut='f',typ='R',max=03),
5795 LIAISON =FACT(statut='o',min=01,max='**',
5796 SOUS_STRUC_1 =SIMP(statut='o',typ='TXM' ),
5797 INTERFACE_1 =SIMP(statut='o',typ='TXM' ),
5798 SOUS_STRUC_2 =SIMP(statut='o',typ='TXM' ),
5799 INTERFACE_2 =SIMP(statut='o',typ='TXM' ),
5801 VERIF =FACT(statut='f',min=01,max='**',
5802 # dans la doc U stop_erreur est obligatoire
5803 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5804 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5805 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5808 #& MODIF COMMANDE DATE 18/01/99 AUTEUR CIBHHBC B.CIREE
5809 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op= 4,sd_prod=fonction,
5810 fr="Définition des valeurs d une fonction de deux variables réelles",
5811 docu="U4.31.03-F",reentrant='n',
5812 regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
5813 EXCLUS('FONCTION','NOM_PARA_FONC',),
5814 ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
5815 NOM_PARA =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
5816 "AMOR","EPAIS","TSEC","HYDR","SECH") ),
5817 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5818 PARA =SIMP(statut='o',typ='R',max='**'),
5819 FONCTION =SIMP(statut='f',typ=fonction,max='**' ),
5820 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
5821 "PULS","AMOR","EPAIS") ),
5822 DEFI_FONCTION =FACT(statut='f',min=00,max='**',
5823 VALE =SIMP(statut='o',typ='R',max='**'),
5824 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
5825 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5826 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5828 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
5829 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5830 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5831 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5832 VERIF =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
5833 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5835 #& MODIF COMMANDE DATE 06/10/1999 AUTEUR SABJLMA P.LATRUBESSE
5836 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op= 73,sd_prod=obstacle
5837 ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
5838 docu="U4.44.21-E",reentrant='n',
5839 TYPE =SIMP(statut='o',typ='TXM',defaut="CERCLE",
5840 into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
5841 "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
5842 "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
5843 "GUID_B_CARTE_900","GUID_C_CARTE_900",
5844 "GUID_D_CARTE_900","GUID_E_CARTE_900",
5845 "GUID_F_CARTE_900","GUID_A_CARTE_1300",
5846 "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
5847 "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
5848 "GUID_F_CARTE_1300","GUID_A_CARSP_900",
5849 "GUID_B_CARSP_900","GUID_C_CARSP_900",
5850 "GUID_D_CARSP_900","GUID_E_CARSP_900",
5851 "GUID_F_CARSP_900","GUID_A_CARSP_1300",
5852 "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
5853 "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
5854 "GUID_F_CARSP_1300","GUID_A_GCONT_900",
5855 "GUID_B_GCONT_900","GUID_C_GCONT_900",
5856 "GUID_D_GCONT_900","GUID_E_GCONT_900",
5857 "GUID_F_GCONT_900","GUID_A_GCONT_1300",
5858 "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
5859 "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
5860 "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
5861 "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
5862 "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
5863 "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
5864 "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
5865 "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
5866 "GUID_F_GCOMB_1300",) ),
5867 VALE =SIMP(statut='f',typ='R',max='**'),
5868 VERIF =SIMP(statut='f',typ='TXM',defaut="FERME"),
5870 #& MODIF COMMANDE DATE 04/03/98 AUTEUR BIBERON G.ROUSSEAU
5871 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
5872 fr="Définition d'un spectre d'excitation turbulente",
5873 docu="U4.44.31-C",reentrant='n',
5874 regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
5875 'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
5876 'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
5877 SPEC_LONG_COR_1 =FACT(statut='f',min=00,max=01,
5878 LONG_COR =SIMP(statut='o',typ='R' ),
5879 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5880 VISC_CINE =SIMP(statut='o',typ='R' ),
5882 SPEC_LONG_COR_2 =FACT(statut='f',min=00,max=01,
5883 regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
5884 LONG_COR =SIMP(statut='o',typ='R' ),
5885 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5886 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.1 ),
5887 PHI0 =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
5888 BETA =SIMP(statut='f',typ='R',defaut= 2.7 ),
5890 SPEC_LONG_COR_3 =FACT(statut='f',min=00,max=01,
5891 regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
5892 LONG_COR =SIMP(statut='o',typ='R' ),
5893 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5894 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.2 ),
5895 PHI0_1 =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
5896 BETA_1 =SIMP(statut='f',typ='R',defaut= 0.5 ),
5897 PHI0_2 =SIMP(statut='f',typ='R',defaut= 4.0E-5 ),
5898 BETA_2 =SIMP(statut='f',typ='R',defaut= 3.5 ),
5900 SPEC_LONG_COR_4 =FACT(statut='f',min=00,max=01,
5901 regles=(ENSEMBLE('BETA','GAMMA'),),
5902 LONG_COR =SIMP(statut='o',typ='R' ),
5903 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5904 TAUX_VIDE =SIMP(statut='o',typ='R' ),
5905 BETA =SIMP(statut='f',typ='R',defaut= 2. ),
5906 GAMMA =SIMP(statut='f',typ='R',defaut= 4. ),
5908 SPEC_CORR_CONV_1=FACT(statut='f',min=00,max=01,
5909 LONG_COR_1 =SIMP(statut='o',typ='R' ),
5910 LONG_COR_2 =SIMP(statut='f',typ='R' ),
5911 VITE_FLUI =SIMP(statut='o',typ='R' ),
5912 RHO_FLUI =SIMP(statut='o',typ='R' ),
5913 FREQ_COUP =SIMP(statut='f',typ='R' ),
5914 K =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
5915 D_FLUI =SIMP(statut='o',typ='R' ),
5916 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
5917 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
5918 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
5919 into=("AU_YANG","GENERALE","CORCOS") ),
5921 SPEC_CORR_CONV_2=FACT(statut='f',min=00,max=01,
5922 FONCTION =SIMP(statut='o',typ=fonction ),
5923 VITE_FLUI =SIMP(statut='o',typ='R' ),
5924 FREQ_COUP =SIMP(statut='f',typ='R' ),
5925 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
5926 into=("AU_YANG","GENERALE","CORCOS",) ),
5927 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
5928 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
5930 SPEC_FONC_FORME =FACT(statut='f',min=00,max=01,
5931 regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
5932 ENSEMBLE('INTE_SPEC','FONCTION'),),
5933 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
5934 FONCTION =SIMP(statut='f',typ=fonction,max='**'),
5935 GRAPPE_1 =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
5936 NOEUD =SIMP(statut='o',typ=no),
5937 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
5938 MODELE =SIMP(statut='o',typ=modele ),
5940 SPEC_EXCI_POINT =FACT(statut='f',min=00,max=01,
5941 regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
5942 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
5943 GRAPPE_2 =SIMP(statut='f',typ='TXM',
5944 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
5945 # Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
5946 b_inte_spec =BLOC(condition = "INTE_SPEC != None",
5947 NATURE =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
5948 ANGL =SIMP(statut='o',typ='R',max='**'),
5949 NOEUD =SIMP(statut='o',typ=no,max='**'),
5951 b_grappe_2 =BLOC(condition = "GRAPPE_2 != None",
5952 RHO_FLUI =SIMP(statut='o',typ='R' ),
5953 NOEUD =SIMP(statut='o',typ=no),
5955 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
5956 MODELE =SIMP(statut='o',typ=modele ),
5958 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5960 #& MODIF COMMANDE DATE 02/03/99 AUTEUR SABJLMA P.LATRUBESSE
5961 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
5962 fr="Définition d un maillage de visualisation",
5963 docu="U4.24.01-E",reentrant='n',
5964 regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
5965 PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
5966 EXCLUS('SOUS_STRUC','SECTEUR'),
5967 PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
5968 PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
5969 MODE_CYCL =SIMP(statut='f',typ=mode_cycl ),
5970 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
5971 SQUELETTE =SIMP(statut='f',typ=squelette ),
5972 RECO_GLOBAL =FACT(statut='f',min=01,max='**',
5973 regles=(EXCLUS('TOUT','GROUP_NO_1'),
5974 PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
5975 PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
5976 PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
5977 PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
5978 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
5979 GROUP_NO_1 =SIMP(statut='f',typ=grno),
5980 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
5981 GROUP_NO_2 =SIMP(statut='f',typ=grno),
5982 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
5983 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5984 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5985 DIST_REFE =SIMP(statut='f',typ='R' ),
5987 NOM_GROUP_MA =FACT(statut='f',min=01,max='**',
5988 NOM =SIMP(statut='o',typ='TXM' ),
5989 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
5990 GROUP_MA =SIMP(statut='o',typ=grma),
5992 EXCLUSIF =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
5993 MAILLAGE =SIMP(statut='f',typ=maillage ),
5994 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5995 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5996 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5997 TRANS =SIMP(statut='f',typ='R',max='**'),
5998 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
5999 SOUS_STRUC =FACT(statut='f',min=01,max='**',
6000 NOM =SIMP(statut='f',typ='TXM' ),
6001 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6002 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6003 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6005 SECTEUR =FACT(statut='f',min=01,max='**',
6006 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6007 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6008 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6010 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6012 #& MODIF COMMANDE DATE 09/06/98 AUTEUR CIBHHLV L.VIVAN
6013 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
6014 fr=" ",docu="U4.43.05-A",reentrant='n',
6015 SYST_GLISSEMENT =FACT(statut='o',min=01,max='**',
6016 N =SIMP(statut='o',typ='R',max='**' ),
6017 L =SIMP(statut='o',typ='R',max='**' ),
6019 PLAN =FACT(statut='o',min=01,max='**',
6020 ANGL_NAUT =SIMP(statut='o',typ='R',max='**' ),
6021 PROPORTION =SIMP(statut='o',typ='R' ),
6023 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
6025 #& MODIF COMMANDE DATE 16/07/96 AUTEUR CIBHHRA R.MEDDOURI
6026 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.MK.20-A",reentrant='n',
6027 fr="Calculer la fonction d évolution temporelle de la température due à l effet JOULE dans un câble",
6028 LIST_INST =SIMP(statut='o',typ=listr8),
6029 INST_CC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
6030 INST_CC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
6031 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 1.0E+10),
6032 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
6033 TEMP_EXT_POSE =SIMP(statut='f',typ='R',defaut= 15.0E+0),
6034 TEMP_EXT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
6035 TEMP_RESI_REF =SIMP(statut='f',typ='R',defaut= 20.0E+0),
6036 PARA_COND_1D =FACT(statut='f',min=01,max='**',
6037 INTE_CC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6038 INTE_RENC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6039 A =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6040 SECTION =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
6041 RESI_R0 =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6042 RESI_R1 =SIMP(statut='f',typ='R',defaut= 0.E+0),
6043 RHO_CP =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6044 COEF_H =SIMP(statut='f',typ='R',defaut= 40.0E+0),
6045 TEMP_INIT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
6049 #& MODIF COMMANDE DATE 04/07/2000 AUTEUR JMBHH01 J.M.PROIX
6050 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-E",reentrant='n',
6051 fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
6052 HIST_EXP =FACT(statut='o',min=01,max='**',
6053 VALE =SIMP(statut='o',typ='R',max='**'),
6055 TEMP_MS =FACT(statut='o',min=01,max='**',
6056 SEUIL =SIMP(statut='o',typ='R'),
6057 AKM =SIMP(statut='o',typ='R'),
6058 BKM =SIMP(statut='o',typ='R'),
6059 TPLM =SIMP(statut='o',typ='R'),
6061 GRAIN_AUST =FACT(statut='f',min=01,max='**',
6062 DREF =SIMP(statut='f',typ='R'),
6063 A =SIMP(statut='f',typ='R'),
6066 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
6067 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
6068 if IS != None : return entier
6069 if R8 != None : return reel
6070 if TX != None : return chaine
6071 if C8 != None : return complexe
6072 if LS != None : return liste
6073 raise AsException("type de concept resultat non prevu")
6075 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
6076 fr="Affectation d une valeur à une variable Superviseur",
6077 docu="U4.31.04-e",reentrant='f',
6078 regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
6079 IS =SIMP(statut='f',typ='I',max='**'),
6080 R8 =SIMP(statut='f',typ='R',max='**'),
6081 TX =SIMP(statut='f',typ='TXM',max='**'),
6082 C8 =SIMP(statut='f',typ='C',max='**'),
6083 LS =SIMP(statut='f',typ='L',max='**'),
6085 #& MODIF COMMANDE DATE 04/10/90 AUTEUR INCONNU INCONNU
6086 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-D",
6087 fr="Modification / ajoût d une unité logique en sortie en complément de celles définies dans DEBUT",
6088 IMPRESSION =FACT(statut='o',min=01,max='**',
6089 NOM =SIMP(statut='o',typ='TXM',max='**'),
6090 UNITE =SIMP(statut='o',typ='I' ),
6093 #& MODIF COMMANDE DATE 16/01/92 AUTEUR INCONNU INCONNU
6094 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-E",reentrant='n',
6095 fr="Récupération du champ de déplacement interne à une sous-structure",
6096 DEPL_GLOBAL =SIMP(statut='o',typ=cham_no_depl_r),
6097 MAILLE =SIMP(statut='o',typ=ma,max=1),
6098 NOM_CAS =SIMP(statut='f',typ='TXM',defaut=" "),
6100 #& MODIF COMMANDE DATE 23/03/93 AUTEUR GJBHHDU G.DUMONT
6101 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-D",
6102 fr="Destruction d un concept utilisateur dans la base GLOBALE",
6103 op_init=ops.detruire,
6104 CONCEPT =FACT(statut='o',min=01,
6105 NOM =SIMP(statut='o',typ=assd,max='**'),
6108 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
6109 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.MK.30-A",reentrant='n',
6110 fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
6111 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
6112 UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
6113 MODELE =SIMP(statut='o',typ=modele),
6114 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
6115 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
6116 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
6117 INST =SIMP(statut='f',typ='R',max='**'),
6118 LIST_INST =SIMP(statut='f',typ=listr8),
6119 LIST_ORDRE =SIMP(statut='f',typ=listis),
6120 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6121 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6122 GROUP_MA_1 =SIMP(statut='o',typ=grma,max='**'),
6123 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
6124 POIN_FIXE =SIMP(statut='f',typ='R',min=3,max=3),
6125 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6127 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
6128 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
6129 ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
6130 docu="U4.53.22-D",reentrant='n',
6131 BASE_MODALE =FACT(statut='o',min=01,max=01,
6132 regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
6133 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
6134 BANDE =SIMP(statut='f',typ='R',max=02),
6135 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
6136 b_bande =BLOC(condition = "BANDE != None",
6137 AMOR_UNIF =SIMP(statut='o',typ='R' ),
6139 b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
6140 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
6143 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
6144 EXCIT =FACT(statut='o',min=01,max=01,
6145 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
6146 EXCLUS('CHAM_NO','NOEUD'),),
6147 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
6148 MODAL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6149 # dans la doc U il y a plus de choix pour GRANDEUR
6150 GRANDEUR =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
6151 into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
6152 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
6153 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
6154 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
6155 # Toutes les regles ne semblent pas avoir été ecrites dans la doc U
6156 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**'),
6157 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
6158 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
6159 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**'),
6161 b_noeud_i =BLOC(condition = "NOEUD_I != None",
6162 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
6163 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**'),
6164 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**'),
6166 CHAM_NO =SIMP(statut='f',typ=cham_no),
6167 NOEUD =SIMP(statut='f',typ=no,max='**'),
6168 b_noeud =BLOC(condition = "NOEUD != None",
6169 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
6172 REPONSE =FACT(statut='f',min=01,max=01,
6173 regles=(EXCLUS('FREQ_MIN','NB_POIN_MODE'),
6174 EXCLUS('FREQ_MIN','FREQ_EXCIT'),
6175 ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
6176 # Toutes les regles ne semblent pas avoir été ecrites dans la doc U
6177 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
6178 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
6179 FREQ_MIN =SIMP(statut='f',typ='R' ),
6180 FREQ_MAX =SIMP(statut='f',typ='R' ),
6181 PAS =SIMP(statut='f',typ='R' ),
6182 FREQ_EXCIT =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
6183 NB_POIN_MODE =SIMP(statut='f',typ='I',defaut= 50 ),
6185 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6186 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6188 #& MODIF COMMANDE DATE 08/03/2000 AUTEUR CIBHHPD P.DAVID
6189 def dyna_line_harm_prod(MATR_MASS,**args):
6190 if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
6191 if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
6192 if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
6193 if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
6194 raise AsException("type de concept resultat non prevu")
6196 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op= 60,sd_prod=dyna_line_harm_prod,
6197 fr="Réponse dynamique complexe d un système à une excitation harmonique",
6198 docu="U4.53.11-E",reentrant='n',
6199 regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
6200 PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
6201 PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
6202 UN_PARMI('FREQ','LIST_FREQ'),),
6203 MODELE =SIMP(statut='f',typ=modele ),
6204 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
6205 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
6206 MATR_MASS =SIMP(statut='o',typ=(matr_asse_depl_r,
6208 matr_asse_gene_r ) ),
6209 MATR_RIGI =SIMP(statut='o',typ=(matr_asse_depl_r,
6213 matr_asse_gene_c ) ),
6214 MATR_AMOR =SIMP(statut='f',typ=(matr_asse_depl_r,
6216 matr_asse_gene_r ) ),
6217 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
6218 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
6219 MATR_IMPE_PHI =SIMP(statut='f',typ=(matr_asse_depl_r,
6220 matr_asse_gene_r) ),
6221 FREQ =SIMP(statut='f',typ='R',max='**'),
6222 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
6223 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",)),
6224 NOM_CHAM =SIMP(statut='f',typ='TXM',max=03,into=("DEPL","VITE","ACCE") ),
6225 EXCIT =FACT(statut='o',min=01,max='**',
6226 regles=(UN_PARMI('VECT_ASSE','CHARGE'),
6227 UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
6228 VECT_ASSE =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
6229 CHARGE =SIMP(statut='f',typ=char_meca ),
6230 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
6231 FONC_MULT_C =SIMP(statut='f',typ=fonction_c ),
6232 COEF_MULT_C =SIMP(statut='f',typ='C' ),
6233 FONC_MULT =SIMP(statut='f',typ=fonction ),
6234 COEF_MULT =SIMP(statut='f',typ='R' ),
6235 PHAS_DEG =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6236 PUIS_PULS =SIMP(statut='f',typ='I',defaut= 0 ),
6238 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6240 #& MODIF COMMANDE DATE 08/06/99 AUTEUR ACBHHCD G.DEVESA
6241 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op= 48,sd_prod=dyna_trans,
6242 fr="Réponse temporelle d un système à une excitation transitoire",
6243 docu="U4.53.02-F",reentrant='f',
6244 regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
6245 MODELE =SIMP(statut='f',typ=modele ),
6246 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
6247 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
6248 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r ),
6249 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
6250 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
6251 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
6252 NEWMARK =FACT(statut='f',min=01,max=01,
6253 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25 ),
6254 DELTA =SIMP(statut='f',typ='R',defaut= 0.5 ),
6256 WILSON =FACT(statut='f',min=01,max=01,
6257 THETA =SIMP(statut='f',typ='R',defaut= 1.4 ),
6259 DIFF_CENTRE =FACT(statut='f',min=01,max=01,
6261 ADAPT =FACT(statut='f',min=01,max=01,
6263 ETAT_INIT =FACT(statut='f',min=01,max=01,
6264 regles=(EXCLUS('DYNA_TRANS','DEPL_INIT'),
6265 EXCLUS('DYNA_TRANS','VITE_INIT'),),
6266 DYNA_TRANS =SIMP(statut='f',typ=dyna_trans ),
6267 # j ai interprete la doc U : est-ce bon
6268 b_dyna_trans =BLOC(condition = "DYNA_TRANS != None",
6269 regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
6270 NUME_INIT =SIMP(statut='f',typ='I' ),
6271 INST_INIT =SIMP(statut='f',typ='R' ),
6272 b_inst_init =BLOC(condition = "INST_INIT != None",
6273 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6274 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6277 DEPL_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
6278 VITE_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
6280 EXCIT =FACT(statut='f',min=01,max='**',
6281 regles=(UN_PARMI('CHARGE','VECT_ASSE'),
6282 EXCLUS('CHARGE','COEF_MULT'),
6283 EXCLUS('FONC_MULT','COEF_MULT'),
6284 EXCLUS('ACCE','COEF_MULT'),
6285 PRESENT_ABSENT('ACCE','FONC_MULT'),
6286 PRESENT_PRESENT('ACCE','VITE','DEPL'),
6287 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
6288 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
6289 CHARGE =SIMP(statut='f',typ=char_meca ),
6290 FONC_MULT =SIMP(statut='f',typ=fonction ),
6291 COEF_MULT =SIMP(statut='f',typ='R' ),
6292 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
6293 ACCE =SIMP(statut='f',typ=fonction ),
6294 VITE =SIMP(statut='f',typ=fonction ),
6295 DEPL =SIMP(statut='f',typ=fonction ),
6296 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
6297 DIRECTION =SIMP(statut='f',typ='R',max='**'),
6298 NOEUD =SIMP(statut='f',typ=no,max='**'),
6299 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6301 AMOR_MODAL =FACT(statut='f',min=01,max=01,
6302 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
6303 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
6304 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
6305 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6307 # ce n est pas le mot clesolveur standard
6308 SOLVEUR =FACT(statut='d',min=01,max=01,
6309 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6310 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
6311 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6312 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
6313 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
6315 INCREMENT =FACT(statut='o',min=01,max='**',
6316 regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
6317 LIST_INST =SIMP(statut='f',typ=listr8 ),
6318 FONC_INST =SIMP(statut='f',typ=fonction ),
6319 PAS =SIMP(statut='f',typ='R' ),
6320 b_pas =BLOC(condition = "PAS != None",
6321 INST_INIT =SIMP(statut='f',typ='R' ),
6322 INST_FIN =SIMP(statut='f',typ='R' ),
6324 b_list_fonc =BLOC(condition = "LIST_INST != None or FONC_INST != None",
6325 regles=(EXCLUS('INST_FIN','NUME_FIN'),),
6326 NUME_FIN =SIMP(statut='f',typ='I' ),
6327 INST_FIN =SIMP(statut='f',typ='R' ),
6329 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
6330 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
6331 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.33334 ),
6332 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
6333 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
6334 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
6335 PAS_CALCUL =SIMP(statut='f',typ='I',defaut= 1 ),
6337 ARCHIVAGE =FACT(statut='f',min=01,max=01,
6338 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
6339 LIST_ARCH =SIMP(statut='f',typ=listis ),
6340 PAS_ARCH =SIMP(statut='f',typ='I' ),
6341 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
6343 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6344 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
6346 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
6347 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 95,sd_prod=evol_noli,reentrant='f',
6348 fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-E",
6349 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
6350 UN_PARMI('NEWMARK','HHT', ),),
6351 MODELE =SIMP(statut='o',typ=modele),
6352 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
6353 MODE_STAT =SIMP(statut='f',typ=mode_stat),
6354 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
6356 EXCIT =FACT(statut='o',min=01,max='**',
6357 regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
6358 PRESENT_PRESENT('ACCE','VITE','DEPL'),
6359 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
6360 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("SUIV","FIXE") ),
6361 CHARGE =SIMP(statut='o',typ=char_meca),
6362 FONC_MULT =SIMP(statut='f',typ=fonction),
6363 DEPL =SIMP(statut='f',typ=fonction),
6364 ACCE =SIMP(statut='f',typ=fonction),
6365 VITE =SIMP(statut='f',typ=fonction),
6366 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6367 DIRECTION =SIMP(statut='f',typ='R',max='**'),
6368 NOEUD =SIMP(statut='f',typ=no,max='**'),
6369 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6371 AMOR_MODAL =FACT(statut='f',min=01,max=01,
6372 MODE_MECA =SIMP(statut='f',typ=mode_meca),
6373 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**' ),
6374 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
6375 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6377 COMP_INCR =FACT(statut='f',min=01,max='**',
6378 RELATION =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_LINE",
6379 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_ISOT_META",
6380 "VMIS_ECMI_TRAC","VMIS_ECMI_LINE","ENDO_FRAGILE","META_EP",
6381 "META_EP_PT","META_EP_RE","META_EP_PT_RE","META_EVP",
6382 "META_EVP_PT","META_EVP_RE","META_EVP_PT_RE","VMIS_CINE_LINE",
6383 "TAHERI","VISC_TAHERI","CHABOCHE","VISCOCHAB",
6384 "VMIS_CIN1_CHAB","VMIS_CIN2_CHAB","POLY_CFC",
6385 "LMARC","ROUSSELIER","VMIS_POU_LINE","VMIS_POU_FLEJOU",
6386 "COULOMB","ARME","ASSE_CORN","NORTON_HOFF","LEMAITRE",
6387 "ZIRC_CYRA2","ZIRC_EPRI","ASSE_COMBU","VENDOCHAB","NADAI_B",
6388 "DIS_CONTACT","DIS_CHOC","DIS_GOUJ2E_PLAS","DIS_GOUJ2E_ELAS",
6389 "GRILLE_ISOT_LINE","GRILLE_CINE_LINE","GRILLE_PINTO_MEN",
6390 "PINTO_MENEGOTTO","CJS","OHNO","GRANGER_FP","GRANGER_FP_V",
6391 "BETON_DOUBLE_DP","VMIS_ASYM_LINE") ),
6392 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
6393 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6394 VMIS_ISOT_LINE =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6395 VMIS_ISOT_META =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6396 VMIS_CINE_LINE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6397 VMIS_ECMI_TRAC =SIMP(statut='c',typ='I',defaut=8,into=(8,) ),
6398 VMIS_ECMI_LINE =SIMP(statut='c',typ='I',defaut=8,into=(8,) ),
6399 ENDO_FRAGILE =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6400 META_EP =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6401 META_EP_PT =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6402 META_EP_RE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6403 META_EP_PT_RE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6404 META_EVP =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6405 META_EVP_PT =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6406 META_EVP_RE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6407 META_EVP_PT_RE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6408 CHABOCHE =SIMP(statut='c',typ='I',defaut=14,into=(14,) ),
6409 VISCOCHAB =SIMP(statut='c',typ='I',defaut=28,into=(28,) ),
6410 VMIS_CIN1_CHAB =SIMP(statut='c',typ='I',defaut=8,into=(8,) ),
6411 VMIS_CIN2_CHAB =SIMP(statut='c',typ='I',defaut=14,into=(14,) ),
6412 POLY_CFC =SIMP(statut='c',typ='I',defaut=1688,into=(1688,) ),
6413 LMARC =SIMP(statut='c',typ='I',defaut=20,into=(20,) ),
6414 TAHERI =SIMP(statut='c',typ='I',defaut=15,into=(15,) ),
6415 VISC_TAHERI =SIMP(statut='c',typ='I',defaut=9,into=(9,) ),
6416 ROUSSELIER =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
6417 VMIS_POU_LINE =SIMP(statut='c',typ='I',defaut=9,into=(9,) ),
6418 VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9,into=(9,) ),
6419 COULOMB =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6420 ASSE_CORN =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6421 ARME =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
6422 NORTON_HOFF =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
6423 LEMAITRE =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6424 ZIRC_CYRA2 =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6425 ZIRC_EPRI =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6426 ASSE_COMBU =SIMP(statut='c',typ='I',defaut=5,into=(5,) ),
6427 NADAI_B =SIMP(statut='c',typ='I',defaut=34,into=(34,) ),
6428 VENDOCHAB =SIMP(statut='c',typ='I',defaut=10,into=(10,) ),
6429 GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6430 GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6431 GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,) ),
6432 DIS_CONTACT =SIMP(statut='c',typ='I',defaut=6,into=(6,) ),
6433 DIS_CHOC =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6434 DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6435 DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
6436 PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,) ),
6437 CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,) ),
6438 OHNO =SIMP(statut='c',typ='I',defaut=32,into=(32,) ),
6439 GRANGER_FP =SIMP(statut='c',typ='I',defaut=55,into=(55,) ),
6440 GRANGER_FP_V =SIMP(statut='c',typ='I',defaut=55,into=(55,) ),
6441 BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6442 VMIS_ASYM_LINE =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6444 COQUE_NCOU =SIMP(statut='f',typ='I'),
6445 TUYAU_NCOU =SIMP(statut='f',typ='I'),
6446 TUYAU_NSEC =SIMP(statut='f',typ='I'),
6447 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC",) ),
6448 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6449 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6450 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6452 COMP_ELAS =FACT(statut='f',min=01,max='**',
6453 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
6454 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC","ELAS_POUTRE_GR","CABLE") ),
6455 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
6456 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
6457 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
6458 ELAS_POUTRE_GR =SIMP(statut='f',typ='I',defaut=3,into=(3,) ),
6459 CABLE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
6461 COQUE_NCOU =SIMP(statut='f',typ='I'),
6462 TUYAU_NCOU =SIMP(statut='f',typ='I'),
6463 TUYAU_NSEC =SIMP(statut='f',typ='I'),
6464 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN","GREEN_GR") ),
6465 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6466 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6467 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6469 ETAT_INIT =FACT(statut='f',min=01,max=01,
6470 regles=(EXCLUS('EVOL_NOLI','DEPL_INIT',),
6471 EXCLUS('EVOL_NOLI','VITE_INIT', ),),
6472 INST_INIT =SIMP(statut='f',typ='R' ),
6473 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
6474 DEPL_INIT =SIMP(statut='f',typ=cham_no_depl_r),
6475 VITE_INIT =SIMP(statut='f',typ=cham_no_depl_r),
6477 INCREMENT =FACT(statut='o',min=01,max=01,
6478 LIST_INST =SIMP(statut='o',typ=listr8),
6479 INST_INIT =SIMP(statut='f',typ='R'),
6481 NEWMARK =FACT(statut='f',min=01,max=01,
6482 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25),
6483 DELTA =SIMP(statut='f',typ='R',defaut= 0.5),
6485 HHT =FACT(statut='f',min=01,max=01,
6486 ALPHA =SIMP(statut='f',typ='R'
6487 ,defaut= -0.29999999999999999 ),
6489 NEWTON =FACT(statut='d',min=01,max=01,
6490 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
6491 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
6492 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
6493 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
6495 SOLVEUR =FACT(statut='d',min=01,max=01,
6496 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
6497 b_mult_front =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
6498 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
6500 b_ldlt =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
6501 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
6502 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
6504 b_ldlt_mult =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
6505 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
6506 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
6507 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6509 b_gcpc =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
6510 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
6511 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
6512 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
6513 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
6514 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
6516 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6517 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6519 CONVERGENCE =FACT(statut='d',min=01,max=01,
6520 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
6521 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
6522 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
6523 INCO_GLOB_RELA =SIMP(statut='f',typ='R'),
6524 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
6525 RESI_INTE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6),
6526 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10),
6527 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT","TANG_INC") ),
6528 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
6529 into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE") ),
6531 OPTION =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
6532 into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
6533 ARCHIVAGE =FACT(statut='f',min=01,max=01,
6534 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
6535 LIST_ARCH =SIMP(statut='f',typ=(listis) ),
6536 LIST_INST =SIMP(statut='f',typ=(listr8) ),
6537 INST =SIMP(statut='f',typ='R',max='**' ),
6538 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6539 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6540 PAS_ARCH =SIMP(statut='f',typ='I'),
6541 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
6543 OBSERVATION =FACT(statut='f',min=01,max='**',
6544 regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
6545 PRESENT_PRESENT('MAILLE','POINT'),),
6546 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
6547 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA") ),
6548 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
6549 LIST_ARCH =SIMP(statut='f',typ=listis),
6550 LIST_INST =SIMP(statut='f',typ=listr8),
6551 INST =SIMP(statut='f',typ='R',max='**' ),
6552 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6553 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6554 PAS_OBSE =SIMP(statut='f',typ='I'),
6555 NOEUD =SIMP(statut='f',typ=no,max='**'),
6556 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6557 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6558 POINT =SIMP(statut='f',typ='I',max='**'),
6560 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6561 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6563 #& MODIF COMMANDE DATE 16/12/97 AUTEUR CIBHHLV L.VIVAN
6564 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
6565 fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
6566 docu="U4.53.23-C",reentrant='n',
6567 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
6568 EXCIT =FACT(statut='o',min=00,max=01,
6569 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
6571 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
6572 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6574 #& MODIF COMMANDE DATE 29/08/2000 AUTEUR ACBHHCD G.DEVESA
6575 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op= 74,sd_prod=tran_gene,
6576 fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
6577 docu="U4.53.21-E",reentrant='f',
6578 regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
6579 PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
6580 METHODE =SIMP(statut='f',typ='TXM',defaut="EULER",
6581 into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
6582 MASS_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
6583 RIGI_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
6584 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
6585 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
6586 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
6587 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
6588 MODE_CORR =SIMP(statut='f',typ=mult_elas ),
6590 ETAT_INIT =FACT(statut='f',min=01,max=01,
6591 regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
6592 EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
6593 RESU_GENE =SIMP(statut='f',typ=tran_gene ),
6594 b_resu_gene =BLOC(condition = "RESU_GENE != None",
6595 INST_INIT =SIMP(statut='f',typ='R' ),
6596 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6597 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6599 DEPL_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
6600 VITE_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
6602 INCREMENT =FACT(statut='o',min=01,max='**',
6603 INST_INIT =SIMP(statut='f',typ='R' ),
6604 INST_FIN =SIMP(statut='o',typ='R' ),
6605 PAS =SIMP(statut='f',typ='R' ),
6606 VERI_PAS =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6607 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
6608 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
6609 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
6610 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
6611 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
6612 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
6614 ARCHIVAGE =FACT(statut='f',min=01,max=01,
6615 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
6616 LIST_ARCH =SIMP(statut='f',typ=listis ),
6617 PAS_ARCH =SIMP(statut='f',typ='I' ),
6620 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 20 ),
6621 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6622 LAMBDA =SIMP(statut='f',typ='R',defaut= 10. ),
6624 EXCIT =FACT(statut='f',min=01,max='**',
6625 regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
6626 PRESENT_PRESENT('ACCE','VITE','DEPL'),
6627 PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
6628 PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
6629 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
6630 PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
6631 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
6632 VECT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
6633 NUME_MODE =SIMP(statut='f',typ='I' ),
6634 FONC_MULT =SIMP(statut='f',typ=fonction ),
6635 COEF_MULT =SIMP(statut='f',typ='R' ),
6636 ACCE =SIMP(statut='f',typ=fonction ),
6637 VITE =SIMP(statut='f',typ=fonction ),
6638 DEPL =SIMP(statut='f',typ=fonction ),
6639 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6640 DIRECTION =SIMP(statut='f',typ='R',max='**'),
6641 b_loca =BLOC(condition= "DIRECTION != None",
6642 regles=(EXCLUS('NOEUD','GROUP_NO'),),
6643 NOEUD =SIMP(statut='f',typ=no,max='**'),
6644 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6646 CORR_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6647 D_FONC_DT =SIMP(statut='f',typ=fonction ),
6648 D_FONC_DT2 =SIMP(statut='f',typ=fonction ),
6650 CHOC =FACT(statut='f',min=01,max='**',
6651 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
6652 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
6653 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
6654 INTITULE =SIMP(statut='f',typ='TXM' ),
6655 NOEUD_1 =SIMP(statut='f',typ=no),
6656 NOEUD_2 =SIMP(statut='f',typ=no),
6657 GROUP_NO_1 =SIMP(statut='f',typ=grno),
6658 GROUP_NO_2 =SIMP(statut='f',typ=grno),
6659 OBSTACLE =SIMP(statut='o',typ=obstacle ),
6660 ORIG_OBST =SIMP(statut='f',typ='R',max='**'),
6661 NORM_OBST =SIMP(statut='o',typ='R',max='**'),
6662 ANGL_VRIL =SIMP(statut='f',typ='R' ),
6663 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
6664 DIST_1 =SIMP(statut='f',typ='R' ),
6665 DIST_2 =SIMP(statut='f',typ='R' ),
6666 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
6667 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
6668 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
6669 RIGI_NOR =SIMP(statut='f',typ='R' ),
6670 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6671 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6672 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6673 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6675 LAME_FLUIDE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6676 b_lame =BLOC(condition="LAME_FLUIDE=='OUI'",
6677 ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6678 BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6679 CHI =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6680 DELTA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6683 VERI_CHOC =FACT(statut='f',min=01,max='**',
6684 STOP_CRITERE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6685 SEUIL =SIMP(statut='f',typ='R',defaut= 0.5 ),
6687 FLAMBAGE =FACT(statut='f',min=01,max='**',
6688 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
6689 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
6690 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
6691 NOEUD_1 =SIMP(statut='f',typ=no),
6692 NOEUD_2 =SIMP(statut='f',typ=no),
6693 GROUP_NO_1 =SIMP(statut='f',typ=grno),
6694 GROUP_NO_2 =SIMP(statut='f',typ=grno),
6695 OBSTACLE =SIMP(statut='o',typ=obstacle ),
6696 ORIG_OBST =SIMP(statut='f',typ='R',max='**'),
6697 NORM_OBST =SIMP(statut='o',typ='R',max='**'),
6698 ANGL_VRIL =SIMP(statut='f',typ='R' ),
6699 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
6700 DIST_1 =SIMP(statut='f',typ='R' ),
6701 DIST_2 =SIMP(statut='f',typ='R' ),
6702 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
6703 RIGI_NOR =SIMP(statut='f',typ='R' ),
6704 FNOR_CRIT =SIMP(statut='f',typ='R' ),
6705 FNOR_POST_FL =SIMP(statut='f',typ='R' ),
6706 RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
6708 ANTI_SISM =FACT(statut='f',min=01,max='**',
6709 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
6710 UN_PARMI('NOEUD_2','GROUP_NO_2'),
6711 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
6712 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
6713 NOEUD_1 =SIMP(statut='f',typ=no),
6714 NOEUD_2 =SIMP(statut='f',typ=no),
6715 GROUP_NO_1 =SIMP(statut='f',typ=grno),
6716 GROUP_NO_2 =SIMP(statut='f',typ=grno),
6717 RIGI_K1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6718 RIGI_K2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6719 SEUIL_FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6720 C =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6721 PUIS_ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6722 DX_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
6724 RELA_EFFO_DEPL =FACT(statut='f',min=01,max='**',
6725 NOEUD =SIMP(statut='o',typ=no),
6726 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
6727 NOM_CMP =SIMP(statut='f',typ='TXM' ),
6728 RELATION =SIMP(statut='o',typ=fonction ),
6730 RELA_TRANSIS =FACT(statut='f',min=01,max='**',
6731 NOEUD =SIMP(statut='o',typ=no),
6732 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
6733 NOM_CMP =SIMP(statut='f',typ='TXM' ),
6734 RELATION =SIMP(statut='o',typ=fonction ),
6736 RELA_EFFO_VITE =FACT(statut='f',min=01,max='**',
6737 NOEUD =SIMP(statut='o',typ=no),
6738 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
6739 NOM_CMP =SIMP(statut='f',typ='TXM' ),
6740 RELATION =SIMP(statut='o',typ=fonction ),
6742 b_itmi =BLOC(condition = "METHODE=='ITMI'",
6743 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
6744 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
6745 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
6746 ETAT_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6747 PREC_DUREE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
6748 CHOC_FLUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6749 NB_MODE =SIMP(statut='f',typ='I' ),
6750 NB_MODE_FLUI =SIMP(statut='f',typ='I' ),
6751 NB_MODE_DIAG =SIMP(statut='f',typ='I' ),
6752 TS_REG_ETAB =SIMP(statut='f',typ='R' ),
6754 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6755 IMPRESSION =FACT(statut='f',min=01,max='**',
6756 regles=(EXCLUS('TOUT','NIVEAU'),),
6757 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6758 NIVEAU =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
6759 INST_INIT =SIMP(statut='f',typ='R' ),
6760 INST_FIN =SIMP(statut='f',typ='R' ),
6762 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6764 #& MODIF COMMANDE DATE 30/09/97 AUTEUR VABHHTS J.PELLET
6765 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-B",
6766 fr="Ecriture dans le fichier RESULTAT des lignes que l'on peut insérer dans la commande TEST_RESU pour tester la non-régression du contenu des objets JEVEUX composant les concepts créés au cours d'une exécution",
6767 regles=(UN_PARMI('TOUT','CO'),),
6768 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
6769 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6770 CO =SIMP(statut='f',typ=assd,max='**'),
6771 TYPE_TEST =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
6772 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
6773 PREC_R =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
6775 #& MODIF COMMANDE DATE 17/06/98 AUTEUR D6BHHJP J.P.LEFEBVRE
6776 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-A",
6777 LOGICIEL =SIMP(statut='f',typ='TXM' ),
6778 ARGUMENT =FACT(statut='f',min=01,max='**',
6779 NOM_PARA =SIMP(statut='f',typ='TXM' ),
6782 #& MODIF COMMANDE DATE 02/04/96 AUTEUR ACBHHCD G.DEVESA
6783 #def extr_mode_prod(FILTRE_MODE,TITRE,IMPRESSION ):
6785 def extr_mode_prod(FILTRE_MODE,**args):
6786 vale=FILTRE_MODE[0]['MODE']
6787 if AsType(vale) == mode_meca : return mode_meca
6788 if AsType(vale) == mode_meca_c : return mode_meca_c
6789 if AsType(vale) == mode_gene : return mode_gene
6790 raise AsException("type de concept resultat non prevu")
6792 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
6793 fr="Extraction dans une structure de données de type mode_meca_* ou mode_gene des modes qui vérifient un certain critère et concaténation de plusieurs structures de données de même type",
6794 docu="U4.52.12-C",reentrant='n',
6795 FILTRE_MODE =FACT(statut='o',min=01,max='**',
6796 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
6797 MODE =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
6798 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
6799 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
6800 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
6801 NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
6802 FREQ_MIN =SIMP(statut='f',typ='R' ),
6803 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN"
6804 ,into=("MASS_EFFE_UN","MASS_GENE") ),
6805 b_freq_min =BLOC(condition = "FREQ_MIN != None",
6806 FREQ_MAX =SIMP(statut='o',typ='R' ),
6807 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6809 b_crit_extr =BLOC(condition = "CRIT_EXTR != None",
6810 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6813 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6814 IMPRESSION =FACT(statut='f',min=01,max=01,
6815 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6816 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
6819 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
6820 def extr_resu_prod(RESULTAT,**args):
6821 if AsType(RESULTAT) == evol_elas : return evol_elas
6822 if AsType(RESULTAT) == evol_noli : return evol_noli
6823 if AsType(RESULTAT) == evol_ther : return evol_ther
6824 if AsType(RESULTAT) == dyna_trans : return dyna_trans
6825 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
6826 if AsType(RESULTAT) == acou_harmo : return acou_harmo
6827 if AsType(RESULTAT) == mode_meca : return mode_meca
6828 if AsType(RESULTAT) == mode_acou : return mode_acou
6829 if AsType(RESULTAT) == mode_stat : return mode_stat
6830 if AsType(RESULTAT) == mult_elas : return mult_elas
6831 if AsType(RESULTAT) == fourier_elas : return fourier_elas
6832 raise AsException("type de concept resultat non prevu")
6834 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-B",reentrant='f',
6835 fr="Extraction de champs pour des numéros d ordre donnés et réduction de l encombrement d une Structure de Données de type resultat",
6836 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
6837 mode_acou,mode_stat,evol_ther,evol_noli,
6838 mult_elas,fourier_elas ) ),
6839 ARCHIVAGE =FACT(statut='f',min=01,max=01,
6840 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
6841 LIST_ARCH =SIMP(statut='f',typ=listis),
6842 PAS_ARCH =SIMP(statut='f',typ='I'),
6843 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("VARI",) ),
6845 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
6847 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR VABHHTS J.PELLET
6848 def fact_grad_prod(MATR_ASSE,**args):
6849 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
6850 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
6851 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
6852 raise AsException("type de concept resultat non prevu")
6854 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-E",
6855 fr="Préconditionnement pour résolution par gradient conjugué",
6857 MATR_ASSE =SIMP(statut='o',
6858 typ=(matr_asse_depl_r,matr_asse_temp_r,
6859 matr_asse_pres_r) ),
6860 PRE_COND =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
6861 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
6862 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
6864 #& MODIF COMMANDE DATE 16/12/97 AUTEUR CIBHHLV L.VIVAN
6865 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
6866 fr="Factorisation d une matrice interspectrale hermitienne",
6867 docu="U4.36.04-E",reentrant='n',
6868 regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
6869 # regle non indiquée dans la doc U
6870 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
6871 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
6872 FREQ_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6873 FREQ_FIN =SIMP(statut='f',typ='R' ),
6874 NB_POIN =SIMP(statut='f',typ='I',defaut= 0 ),
6875 SUR_ECHAN =SIMP(statut='f',typ='R',defaut= 1. ),
6876 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6878 #& MODIF COMMANDE DATE 25/11/97 AUTEUR VABHHTS J.PELLET
6879 def fact_ldlt_prod(MATR_ASSE,**args):
6880 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
6881 if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
6882 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
6883 if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
6884 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
6885 if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
6886 raise AsException("type de concept resultat non prevu")
6888 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
6889 docu="U4.55.01-F",reentrant='f',
6890 regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
6891 EXCLUS('BLOC_FIN','DDL_FIN'),),
6892 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
6893 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
6894 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6895 NPREC =SIMP(statut='f',typ='I',defaut=8),
6896 PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
6897 BLOC_DEBUT =SIMP(statut='f',typ='I'),
6898 DDL_DEBUT =SIMP(statut='f',typ='I'),
6899 BLOC_FIN =SIMP(statut='f',typ='I'),
6900 DDL_FIN =SIMP(statut='f',typ='I'),
6902 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6904 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6905 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
6907 #& MODIF COMMANDE DATE 23/02/99 AUTEUR D6BHHJP J.P.LEFEBVRE
6909 FERMER=PROC(nom="FERMER",op= 10,fr=" ",
6911 UNITE =SIMP(statut='o',typ='I',max='**' ),
6913 #& MODIF COMMANDE DATE 17/11/97 AUTEUR CIBHHLV L.VIVAN
6914 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
6916 RETASSAGE =SIMP(fr="provoque le retassage de la base GLOBALE",
6917 statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
6918 PERFORMANCE =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
6919 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
6920 INFO_RESU =SIMP(fr="provoque l'impression des informations sur les structures de données",
6921 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
6922 FICHIER =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
6924 #& MODIF COMMANDE DATE 06/05/96 AUTEUR KXBADNG T.FRIOU
6925 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
6926 fr="Création d'une fonction constante (concept de type fonction), paramétrée par l'abscisse curviligne et donnant la valeur du coefficient de masse ajoutée pour une configuration du type faisceau de tubes sous écoulement transverse",
6927 docu="U4.35.02-C",reentrant='n',
6928 TYPE_FLUI_STRU =SIMP(statut='o',typ=(type_flui_stru) ),
6930 #& MODIF COMMANDE DATE 12/09/2001 AUTEUR MCOURTOI M.COURTOIS
6931 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
6932 fr="Définition d une fonction",reentrant = 'n',
6933 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
6934 REEL = SIMP(typ = 'shell',max=1),
6935 ENTIER = SIMP(typ = 'shell',max=1),
6936 COMPLEXE = SIMP(typ = 'shell',max=1),
6938 #& MODIF COMMANDE DATE 04/02/98 AUTEUR CIBHHLV L.VIVAN
6939 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
6940 fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
6941 docu="U4.36.05-E",reentrant='n',
6942 INTE_SPEC_FACT =SIMP(statut='o',typ=interspfact ),
6943 INIT_ALEA =SIMP(statut='f',typ='I',defaut= 12312745 ),
6944 NB_TIRAGE =SIMP(statut='f',typ='I',defaut= 1 ),
6945 NB_POIN =SIMP(statut='f',typ='I' ),
6946 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6948 #& MODIF COMMANDE DATE 17/10/95 AUTEUR ACBHHLB L.VIVAN
6949 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
6950 fr="Impression des charges mécaniques de type degrés de liberté imposés et relations linéaires entre les degrés de liberté au format fichier universel IDEAS",
6952 FICHIER =SIMP(statut='f',typ='TXM' ),
6953 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
6954 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
6955 CHARGE =SIMP(statut='o',typ=char_meca,max='**', ),
6957 #& MODIF COMMANDE DATE 30/09/98 AUTEUR SABJLMA P.LATRUBESSE
6958 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-A",
6959 fr="Ecriture sur fichier, du rèsultat d une analyse modale au format du code CLASSI (interaction sol structure) utilisè au SEPTEN",
6960 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
6962 UNITE_CLASSI =SIMP(statut='o',typ='I' ),
6963 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
6964 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6965 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
6966 LIST_ORDRE =SIMP(statut='f',typ=listis ),
6967 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
6968 FREQ =SIMP(statut='f',typ='R',max='**'),
6969 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
6970 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
6971 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6972 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
6973 into=("RELATIF","ABSOLU") ),
6975 IMPRESSION =FACT(statut='f',min=01,max='**',
6976 regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
6977 NOEUD =SIMP(statut='f',typ=no,max='**'),
6978 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6979 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
6981 AMOR =SIMP(statut='o',typ='R',max='**'),
6983 #& MODIF COMMANDE DATE 12/05/98 AUTEUR CIBHHLV L.VIVAN
6984 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-F",
6985 fr="Impression du contenu d un concept utilisateur (pour développeur)",
6986 regles=(UN_PARMI('CO','CHAINE', ),),
6987 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
6988 NIVEAU =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
6989 ATTRIBUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
6990 CONTENU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
6991 BASE =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
6992 CO =SIMP(statut='f',typ=assd),
6993 CHAINE =SIMP(statut='f',typ='TXM'),
6994 POSITION =SIMP(statut='f',typ='I',defaut=1),
6996 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
6997 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers, sous formats appropriés, de concepts de type fonction ou de fonctions extraites de listes, de tables et de concepts résultats",
6999 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
7000 FORMAT =SIMP(statut='f',typ='TXM',position='global'
7001 ,into=("AGRAF","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
7002 b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
7003 BORNE_X =SIMP(statut='f',typ='R',max=02,fr="Intervalles de variation des abcisses"),
7004 ECHELLE_X =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
7005 BORNE_Y =SIMP(statut='f',typ='R',max=02,fr="Intervalles de variation des ordonnées"),
7006 ECHELLE_Y =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
7008 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
7009 TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
7010 COMMENTAIRE =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
7011 LEGENDE_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
7012 LEGENDE_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
7013 FREQ_GRILLE_X =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
7014 FREQ_GRILLE_Y =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
7016 b_post = BLOC ( condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
7017 TITRE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
7018 LABEL_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
7019 LABEL_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
7020 SORTIE =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
7021 DATE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
7022 GRILLE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
7023 AXE_ZERO_X =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
7024 AXE_ZERO_Y =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
7025 PRESENTATION =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),fr="Disposition du graphique sur la feuille" ),
7026 FENETRE =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),fr="Forme de la fenêtre contenant le graphique" ),
7028 COURBE =FACT(statut='o',min=01,max='**',fr="Définition de la courbe à tracer",
7029 regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
7030 FONCTION =SIMP(statut='f',typ=(fonction, fonction_c),
7031 fr="Fonction réelle ou complexe", ),
7032 LIST_RESU =SIMP(statut='f',typ=listr8,
7033 fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
7034 # creer le type table
7035 TABLE =SIMP(statut='f',typ=table,
7036 fr="Nom de la table dont 2 colonnes définissent la fonction",),
7037 FONC_X =SIMP(statut='f',typ=fonction,
7038 fr="Fonction abscisses d une fonction paramétrique",),
7039 RESU_GENE =SIMP(statut='f',typ=tran_gene,
7040 fr="Nom du RESU_GENE qui contient les informations liées à des noeuds de choc et qui seront tracées sous forme de fonction", ),
7041 b_fonction =BLOC(condition = "FONCTION != None",
7042 LIST_PARA =SIMP(statut='f',typ=listr8 ),
7043 b_fonction_c =BLOC(condition = "AsType(FONCTION) == fonction_c",
7044 fr="Fonction complexe définie par le mot-clé fonction",
7045 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
7048 b_list_resu =BLOC(condition = "LIST_RESU != None",
7049 LIST_PARA =SIMP(statut='o',typ=listr8 ),
7051 b_table =BLOC(condition = "TABLE != None",
7052 PARA_X =SIMP(statut='o',typ='TXM',fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
7053 PARA_Y =SIMP(statut='o',typ='TXM',fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
7055 b_fonc_x =BLOC(condition = "FONC_X != None",
7056 FONC_Y =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
7057 PARA =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),fr="Permutation des rôles des deux fonctions" ),
7058 LIST_PARA =SIMP(statut='f',typ=listr8 ),
7060 b_resu_gene =BLOC(condition = "RESU_GENE != None",
7061 regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
7062 NOEUD_CHOC =SIMP(statut='f',typ=no),
7063 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
7064 PARA_X =SIMP(statut='o',typ='TXM',fr="Paramètre associé aux abcisses de la fonction à tracer de la table information sur les chocs " ),
7065 PARA_Y =SIMP(statut='o',typ='TXM',fr="Paramètre associé aux ordonnées de la fonction à tracer de la table information sur les chocs " ),
7066 LIST_PARA =SIMP(statut='f',typ=listr8 ),
7067 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
7068 INTITULE =SIMP(statut='f',typ='TXM' ),
7072 LEGENDE =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
7073 STYLE =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
7074 into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
7075 COULEUR =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
7076 into=("NOIR","ROUGE","VERT_FONCE","BLEU",
7077 "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
7078 "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
7079 "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
7080 MARQUEUR =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
7081 into=("POINT_F","CARRE_F","TRIANGLE_F",
7082 "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
7083 "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
7084 "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
7085 "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
7086 "CERCLE_X","CARRE_X","LOSANGE_X") ),
7087 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
7088 TRI =SIMP(statut='f',typ='TXM',defaut="N",fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
7089 into=("N","X","Y","XY","YX") ),
7090 FREQ_MARQUEUR =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence d impression du marqueur associé à la courbe", ),
7094 #& MODIF COMMANDE DATE 02/02/2000 AUTEUR UFBHHGN G.NICOLAS
7095 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-A",
7096 fr="Imprimer le fichier de configurations de HOMARD",
7097 TRAITEMENT =FACT(statut='o',min=01,max=01,
7098 regles=( UN_PARMI('ADAPTATION','UNIFORME','MAJSOLUTION','INFORMATION'),),
7099 ADAPTATION =SIMP(statut='f',typ='TXM',
7100 fr="Adaptation libre",
7101 into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
7102 UNIFORME =SIMP(statut='f',typ='TXM',
7103 into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
7104 MAJSOLUTION =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7105 INFORMATION =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7106 b_adaptation =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or ( MAJSOLUTION != None ) ",
7108 NITER =SIMP(statut='o',typ='I' ),
7109 MAJ_CHAMP =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7111 b_adaptation_libre =BLOC(condition = "ADAPTATION != None",
7112 fr="Adaptation libre",
7113 NOM_MED_INDICA =SIMP(statut='o',typ='TXM' ),
7114 NOM_CMP_INDICA =SIMP(statut='f',typ='TXM',defaut="ERREST",
7115 into=("ERREST","NUEST") ),
7116 NOM_MED_SUPPOR =SIMP(statut='o',typ='TXM' ),
7118 b_raffinement_libre =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
7119 fr="Critère de raffinement.",
7120 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
7121 CRIT_RAFF_ABS =SIMP(statut='f',typ='R' ),
7122 CRIT_RAFF_REL =SIMP(statut='f',typ='R' ),
7123 CRIT_RAFF_PE =SIMP(statut='f',typ='R' ),
7125 b_deraffinement_libre =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
7126 fr="Critère de déraffinement.",
7127 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
7128 CRIT_DERA_ABS =SIMP(statut='f',typ='R' ),
7129 CRIT_DERA_REL =SIMP(statut='f',typ='R' ),
7130 CRIT_DERA_PE =SIMP(statut='f',typ='R' ),
7132 b_raffinement =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or ( UNIFORME == 'RAFFINEMENT' )" ,
7133 NIVE_MAX =SIMP(statut='f',typ='I' ),
7135 b_deraffinement =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or ( UNIFORME == 'DERAFFINEMENT' )" ,
7136 NIVE_MIN =SIMP(statut='f',typ='I' ),
7139 ANALYSE =FACT(statut='f',min=01,max=01,
7140 regles=(AU_MOINS_UN('QUALITE','INTERPENETRATION'),),
7141 QUALITE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7142 INTERPENETRATION=SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7144 UNITE =SIMP(statut='f',typ='I',defaut= 71 ),
7145 REP =SIMP(statut='f',typ='TXM' ),
7146 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7148 #& MODIF COMMANDE DATE 27/04/98 AUTEUR CIBHHLV L.VIVAN
7149 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire fichier, au format 'RESULTAT'",
7151 GENE =FACT(statut='o',min=01,max='**',
7152 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
7153 'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
7154 EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
7155 'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
7156 EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
7157 'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
7158 EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
7159 EXCLUS('TOUT_CHAM','NOM_CHAM'),
7160 EXCLUS('TOUT_PARA','NOM_PARA'),),
7161 # faut-il faire des blocs selon le type de RESU_GENE
7162 RESU_GENE =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
7163 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
7164 FICHIER =SIMP(statut='f',typ='TXM' ),
7165 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7166 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
7167 LIST_ORDRE =SIMP(statut='f',typ=listis ),
7168 TOUT_MODE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7169 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
7170 INST =SIMP(statut='f',typ='R',max='**'),
7171 LIST_INST =SIMP(statut='f',typ=listr8 ),
7172 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7173 FREQ =SIMP(statut='f',typ='R',max='**'),
7174 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
7175 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
7176 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7177 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
7178 into=("RELATIF","ABSOLU") ),
7180 TOUT_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7181 NUME_CMP_GENE =SIMP(statut='f',typ='I',max='**'),
7182 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7183 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
7184 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7185 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
7186 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
7187 INFO_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7188 INFO_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7191 #& MODIF COMMANDE DATE 16/10/90 AUTEUR INCONNU INCONNU
7192 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-F",
7193 fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
7194 ENTITE =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
7195 into=("DISQUE","MEMOIRE","REPERTOIRE",
7196 "OBJET","ATTRIBUT","SYSTEME") ),
7197 b_objet =BLOC(condition = "(ENTITE=='OBJET')",
7198 NOMOBJ =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
7199 NUMOC =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
7200 NOMOC =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
7202 b_attribut =BLOC(condition = "(ENTITE=='ATTRIBUT')",
7203 NOMOBJ =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
7204 NOMATR =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
7205 into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
7206 '$$LONO','$$LUTI','$$NUM') ),
7208 b_systeme =BLOC(condition = "(ENTITE=='SYSTEME')",
7209 CLASSE =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
7210 NOMATR =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
7211 into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
7212 '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
7213 '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
7214 '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
7216 b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
7217 CLASSE =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
7219 b_disque =BLOC(condition = "(ENTITE=='DISQUE')",
7220 CLASSE =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
7222 IMPRESSION =FACT(statut='f',min=01,max=01,
7223 NOM =SIMP(statut='f',typ='TXM' ),
7224 UNITE =SIMP(statut='f',typ='I'),
7226 COMMENTAIRE =SIMP(statut='f',typ='TXM' ),
7228 #& MODIF COMMANDE DATE 09/09/98 AUTEUR ACBHHCD G.DEVESA
7229 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,fr="Impression au format fichier universel IDEAS ou au format MISS3D ou au format RESULTAT d un concept de type macr_elem_dyna",
7231 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
7232 FICHIER =SIMP(statut='f',typ='TXM' ),
7233 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
7234 into=("MISS_3D","IDEAS","CADYRO",) ),
7235 b_ideas =BLOC(condition = "FORMAT == 'IDEAS'",
7236 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
7238 b_miss_3d =BLOC(condition = "FORMAT == 'MISS_3D'",
7239 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
7240 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
7241 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
7242 GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
7243 # Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
7244 GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
7245 GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
7246 GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
7247 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7248 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7250 b_cadyro =BLOC(condition = "FORMAT == 'CADYRO'",
7251 SQUELETTE =SIMP(statut='f',typ=squelette ),
7252 UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
7253 UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
7254 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 28 ),
7255 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7256 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7260 #& MODIF COMMANDE DATE 07/04/98 AUTEUR CIBHHGB G.BERTRAND
7261 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,fr="Impression au format universel IDEAS ou au format RESULTAT des matrices élémentaires et des matrices assemblées",
7263 regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
7265 MATR_ELEM =FACT(statut='f',min=01,max='**',
7266 FICHIER =SIMP(statut='f',typ='TXM' ),
7267 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
7268 into=("IDEAS","RESULTAT") ),
7269 b_format =BLOC(condition = "FORMAT == 'IDEAS'",
7270 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
7272 # créer les types matr_elem et vect_elem
7273 MATRICE =SIMP(statut='o',typ=(matr_elem, vect_elem)),
7274 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
7275 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7276 NOEUD =SIMP(statut='f',typ=no,max='**'),
7277 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
7278 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7279 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7280 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
7281 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
7282 into=("VALEUR","NOEUD","MAILLE") ),
7283 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
7285 MATR_ASSE =FACT(statut='f',min=01,max='**',
7286 FICHIER =SIMP(statut='f',typ='TXM' ),
7287 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
7288 into=("IDEAS","RESULTAT") ),
7289 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
7290 # créer le type matr_elem
7291 MATRICE =SIMP(statut='o',typ=matr_asse),
7292 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
7293 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7294 NOEUD =SIMP(statut='f',typ=no,max='**'),
7295 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
7296 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7297 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7298 OPTION =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
7299 into=("SOUS_MATRICE","LIGNE","COLONNE") ),
7300 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
7301 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
7302 into=("VALEUR","NOEUD") ),
7303 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
7304 VALE_ZERO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7307 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
7308 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,fr="Permet de transmettre au format MISS3D la contribution des charges internes à une superstructure sous forme d un second membre projeté sur la base modale (modes propres ou contraints), les signaux d excitation harmonique ou transitoire",
7310 regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
7311 PRESENT_PRESENT('INST_INIT','INST_FIN'),
7312 PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
7313 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
7314 EXCIT =FACT(statut='f',min=01,max='**',
7315 regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
7316 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
7317 FONC_MULT =SIMP(statut='f',typ=fonction ),
7318 COEF_MULT =SIMP(statut='f',typ='R' ),
7320 EXCIT_SOL =FACT(statut='f',min=01,max='**',
7321 DIRECTION =SIMP(statut='o',typ='R',max='**'),
7322 FONC_SIGNAL =SIMP(statut='f',typ=fonction ),
7323 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",
7324 into=("DEPL","VITE","ACCE","FORC",) ),
7326 INST_INIT =SIMP(statut='f',typ='R' ),
7327 INST_FIN =SIMP(statut='f',typ='R' ),
7328 FREQ_INIT =SIMP(statut='f',typ='R' ),
7329 FREQ_FIN =SIMP(statut='f',typ='R' ),
7330 PAS =SIMP(statut='o',typ='R' ),
7331 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
7332 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
7333 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7335 #& MODIF COMMANDE DATE 19/06/2000 AUTEUR DURAND C.DURAND
7336 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-E",
7337 fr="Impression du résultat d un calcul (différents formats)",
7338 MODELE =SIMP(statut='f',typ=modele),
7339 RESU =FACT(statut='o',min=01,max='**',
7340 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
7341 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED") ),
7343 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
7344 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
7347 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
7348 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
7351 regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
7352 EXCLUS('CHAM_GD','RESULTAT'),),
7353 MAILLAGE =SIMP(statut='f',typ=(maillage,squelette)),
7354 INFO_MAILLAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7355 CHAM_GD =SIMP(statut='f',typ=cham_gd),
7356 RESULTAT =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
7358 b_extrac =BLOC(condition="RESULTAT != None",
7359 fr="extraction d un champ de grandeur",
7360 regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
7361 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
7362 'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
7363 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7364 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
7366 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7367 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
7368 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
7369 LIST_ORDRE =SIMP(statut='f',typ=listis),
7370 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
7371 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
7372 ANGL =SIMP(statut='f',typ='R',max='**'),
7373 FREQ =SIMP(statut='f',typ='R',max='**'),
7374 LIST_FREQ =SIMP(statut='f',typ=listr8),
7375 INST =SIMP(statut='f',typ='R',max='**'),
7376 LIST_INST =SIMP(statut='f',typ=listr8),
7378 b_acce_reel =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
7379 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
7380 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7384 b_parametres =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
7385 regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
7386 INFO_RESU =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7387 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
7388 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
7389 FORM_TABL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7392 b_cmp =BLOC(condition="""(RESULTAT != None)and((FORMAT == 'RESULTAT')or(FORMAT == 'ENSIGHT'))""",
7393 fr="sélection des composantes",
7394 regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
7395 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7396 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
7399 b_topologie =BLOC(condition="""(RESULTAT != None)and((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS'))""",
7400 fr="sélection des entités toplogiques",
7401 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7402 NOEUD =SIMP(statut='f',typ=no,max='**'),
7403 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
7404 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7405 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7408 b_valeurs =BLOC(condition="(FORMAT == 'RESULTAT')",
7409 fr="sélection sur les valeurs",
7410 VALE_MAX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7411 VALE_MIN =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7412 BORNE_SUP =SIMP(statut='f',typ='R'),
7413 BORNE_INF =SIMP(statut='f',typ='R'),
7414 IMPR_COOR =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7415 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
7418 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
7419 FICHIER =SIMP(statut='f',typ='TXM'),
7421 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7423 #& MODIF COMMANDE DATE 18/04/2000 AUTEUR D6BHHBQ B.QUINNEZ
7424 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
7426 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
7427 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
7428 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
7429 fr="Type d analyse" ),
7430 b_dynamique =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
7431 fr="Recheche du nombre de fréquences propres",
7432 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
7433 FREQ_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
7435 b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
7436 fr="Recherche du nombre de charges critiques",
7437 CHAR_CRIT_MIN =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
7438 CHAR_CRIT_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
7440 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
7441 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
7442 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
7443 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
7444 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
7446 #& MODIF COMMANDE DATE 22/07/99 AUTEUR CIBHHLV L.VIVAN
7447 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-C",
7448 fr="Impression d un concept de type table",
7449 TABLE =SIMP(statut='o',typ=table),
7450 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
7451 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",
7452 into=("EXCEL","AGRAF","MOT_CLE","TABLEAU") ),
7453 FILTRE =FACT(statut='f',min=01,max='**',
7454 NOM_PARA =SIMP(statut='o',typ='TXM'),
7455 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
7456 into=("EQ","LT","GT","NE","LE","GE","VIDE",
7457 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
7458 VALE =SIMP(statut='f',typ='R'),
7459 VALE_I =SIMP(statut='f',typ='I'),
7460 VALE_C =SIMP(statut='f',typ='C'),
7461 VALE_K =SIMP(statut='f',typ='TXM'),
7462 VALE_CO =SIMP(statut='f',typ=geom),
7463 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7464 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7466 TRI =FACT(statut='f',min=01,max=01,
7467 NOM_PARA =SIMP(statut='o',typ='TXM',max='**'),
7468 ORDRE =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
7469 into=("CROISSANT","DECROISSANT") ),
7471 PAGINATION =SIMP(statut='f',typ='TXM',max='**'),
7472 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
7473 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
7474 into=("MODULE_PHASE","REEL_IMAG") ),
7475 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
7476 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",)),
7477 IMPR_FONCTION =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7479 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
7480 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-e",
7481 fr="Débranchement vers un fichier de commandes secondaires",
7482 sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
7483 UNITE = SIMP(statut='o',typ='I'),
7484 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
7486 #& MODIF COMMANDE DATE 07/02/2001 AUTEUR DURAND C.DURAND
7487 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
7489 sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
7490 NOM_AFNOR =SIMP(statut='o',typ='TXM' ),
7491 TYPE_MODELE =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
7492 VARIANTE =SIMP(statut='o',typ='TXM',
7493 into=("A","B","C","D","E","F","G","H","I","J",
7494 "K","L","M","N","O","P","Q","R","S","T","U","V",
7495 "W","X","Y","Z",) ),
7496 TYPE_VALE =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
7497 NOM_MATER =SIMP(statut='o',typ='TXM' ),
7498 UNITE =SIMP(statut='f',typ='I',defaut= 32 ),
7499 EXTRACTION =FACT(statut='f',min=01,max=99,
7500 COMPOR =SIMP(statut='o',typ='TXM' ),
7501 TEMP_EVAL =SIMP(statut='o',typ='R' ),
7503 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7505 #& MODIF COMMANDE DATE 08/03/2000 AUTEUR CIBHHPD P.DAVID
7506 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-E",
7507 fr="Définition d une courbe sur un maillage 2D",reentrant='n',
7508 regles=(EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
7509 EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
7510 EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
7511 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
7512 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7513 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7514 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7515 DEFI_SEGMENT =FACT(statut='f',min=01,max='**',
7516 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
7517 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
7518 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2 ),
7519 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
7520 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
7521 EXTREMITE =SIMP(statut='f',typ='R',max='**'),
7522 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
7523 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
7525 DEFI_ARC =FACT(statut='f',min=01,max='**',
7526 regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
7527 UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
7528 UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
7529 PRESENT_PRESENT('RAYON','SECTEUR'),),
7530 CENTRE =SIMP(statut='f',typ='R',max='**' ),
7531 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
7532 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
7533 RAYON =SIMP(statut='f',typ='R',max=1),
7534 SECTEUR =SIMP(statut='f',typ='R',min=2,max=2),
7535 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2),
7536 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
7537 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
7538 EXTREMITE =SIMP(statut='f',typ='R',min=2,max=2),
7539 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
7540 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
7541 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7542 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
7543 into=("RELATIF","ABSOLU",) ),
7545 DEFI_CHEMIN =FACT(statut='f',min=01,max='**',
7546 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
7547 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7548 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7550 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
7551 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
7552 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
7553 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
7555 #& MODIF COMMANDE DATE 08/03/2000 AUTEUR CIBHHPD P.DAVID
7556 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-E",
7557 fr="Définition d un chemin sur un maillage 3D",reentrant='n',
7558 MAILLAGE =SIMP(statut='o',typ=maillage),
7559 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7560 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7561 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7562 DEFI_SEGMENT =FACT(statut='o',min=01,max='**',
7563 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
7564 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
7565 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
7566 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
7567 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
7568 EXTREMITE =SIMP(statut='f',typ='R',min=3,max=3),
7569 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
7570 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
7572 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
7573 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
7575 #& MODIF COMMANDE DATE 02/02/2000 AUTEUR UFBHHGN G.NICOLAS
7576 def lire_champ_prod(TYPE=None,**args):
7577 if TYPE == "CHAM_NO_TEMP_R" : return cham_no_temp_r
7578 if TYPE == "CHAM_NO_DEPL_R" : return cham_no_depl_r
7579 raise AsException("type de concept resultat non prevu")
7581 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
7582 fr="Lire un champ dans un fichier et le stocker dans un concept.",
7583 docu="U7.02.02-A",reentrant='n',
7585 # 1. Le maillage support du champ
7587 MAILLAGE =SIMP(statut='o',typ=maillage ),
7589 # 2. Format de lecture
7590 # Remarque : seul MED est operationnel dans cette version.
7592 FORMAT =SIMP(statut='o',typ='TXM',defaut="MED",into=("MED",) ),
7594 # 3. L'unite logique du fichier.
7596 UNITE =SIMP(statut='f',typ='I',defaut= 81 ),
7598 # 3. Pour le format MED, il faut preciser le nom sous lequel le champ est connu dans le fichier
7600 b_format =BLOC(condition = "FORMAT == 'MED'",
7601 fr="Nom du champ dans le fichier MED",
7602 NOM_MED =SIMP(statut='o',typ='TXM' ),),
7604 # 4. Le type du concept lu
7606 TYPE =SIMP(statut='o',typ='TXM',into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R") ),
7608 # 5. Le niveau d'information
7610 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7612 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
7613 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op= 83,sd_prod=fonction,
7614 fr="Lecture d une fonction dans un fichier ",
7615 docu="U4.32.02-E",reentrant='n',
7616 UNITE =SIMP(statut='o',typ='I' ),
7617 NOM_PARA =SIMP(statut='f',typ='TXM',
7618 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
7619 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
7620 NOM_RESU =SIMP(statut='f',typ='TXM' ),
7621 INTERPOL =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
7622 PROL_DROIT =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7623 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7624 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',
7625 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
7626 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
7627 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
7628 PROL_DROIT_FONC =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7629 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7630 INFO =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
7631 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7633 #& MODIF COMMANDE DATE 11/02/98 AUTEUR SABJLMA P.LATRUBESSE
7634 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
7635 fr="Lecture sur un fichier externe de fonctions complexes pour créer une matrice interspectrale",
7636 docu="U4.36.01-E",reentrant='n',
7637 UNITE =SIMP(statut='o',typ='I' ),
7638 FORMAT =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
7639 NOM_PARA =SIMP(statut='f',typ='TXM',
7640 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
7641 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
7642 NOM_RESU =SIMP(statut='f',typ='TXM' ),
7643 INTERPOL =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
7644 PROL_DROIT =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7645 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7646 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7647 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7649 #& MODIF COMMANDE DATE 19/06/2000 AUTEUR DURAND C.DURAND
7650 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op= 1,sd_prod=maillage,
7651 fr="Lecture d un fichier de maillage",
7652 docu="U4.21.01-F",reentrant='n',
7653 UNITE =SIMP(statut='f',typ='I',defaut= 20 ),
7654 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED") ),
7655 ABSC_CURV =FACT(statut='f',min=00,max=01,
7656 TOUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7658 VERI_MAIL =FACT(statut='d',min=01,max=01,
7659 APLAT =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7661 INFO_MED =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7662 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7664 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
7665 def lire_miss_3d_prod(TYPE_RESU,**args):
7666 if TYPE_RESU == "TRANS" : return dyna_trans
7667 if TYPE_RESU == "HARMO" : return dyna_harmo
7668 raise AsException("type de concept resultat non prevu")
7670 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
7671 fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
7672 docu="U7.02.31-C",reentrant='n',
7673 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
7674 UNITE =SIMP(statut='f',typ='I',defaut= 27 ),
7675 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
7676 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7678 #& MODIF COMMANDE DATE 08/09/98 AUTEUR CIBHHLV L.VIVAN
7679 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
7681 docu="U7.02.11-A",reentrant='n',
7682 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
7683 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
7684 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
7685 MAIL_PLEXUS =SIMP(statut='o',typ=maillage ),
7686 MAILLAGE =SIMP(statut='o',typ=maillage ),
7687 MODELE =SIMP(statut='o',typ=modele ),
7688 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7689 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
7690 LIST_ORDRE =SIMP(statut='f',typ=listis ),
7691 INST =SIMP(statut='f',typ='R',max='**'),
7692 LIST_INST =SIMP(statut='f',typ=listr8 ),
7693 b_prec_crit =BLOC(condition = "LIST_INST != None or INST != None",
7694 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7695 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
7696 into=("RELATIF","ABSOLU") ),
7698 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7700 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
7701 def lire_resu_prod(TYPE_RESU,**args):
7702 if TYPE_RESU == "EVOL_CHAR" : return evol_char
7703 if TYPE_RESU == "EVOL_THER" : return evol_ther
7704 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
7705 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
7706 if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
7707 if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
7708 if TYPE_RESU == "HARM_GENE" : return harm_gene
7709 raise AsException("type de concept resultat non prevu")
7711 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-C",reentrant='n',
7712 fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier au format universel DEAS ou au format EnSight",
7713 regles=(UN_PARMI('MAILLAGE','MODELE'),),
7714 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS","ENSIGHT","MED") ),
7715 b_unite =BLOC(condition="FORMAT=='IDEAS'",
7716 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
7718 b_nom_fichier =BLOC(condition="FORMAT=='ENSIGHT'",
7719 NOM_FICHIER =SIMP(statut='f',typ='TXM'),
7721 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI",
7722 "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
7723 b_evol_elas =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
7724 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("DEPL",) ),
7726 b_evol_ther =BLOC(condition="TYPE_RESU=='EVOL_THER'",
7727 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","TEMP_PEAU") ),
7729 b_evol_char =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
7730 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("PRES",) ),
7732 b_evol_noli =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
7733 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","VARI_ELNO","SIEF_ELNO","EPSA_ELNO") ),
7735 b_dyna =BLOC(condition="(TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or(TYPE_RESU=='HARM_GENE')",
7736 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE",) ),
7738 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
7739 MAILLAGE =SIMP(statut='f',typ=maillage),
7740 MODELE =SIMP(statut='f',typ=modele),
7741 NB_VARI =SIMP(statut='f',typ='I' ),
7742 FORMAT_IDEAS =FACT(statut='f',min=01,max='**',
7743 regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
7744 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
7745 "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU") ),
7746 NUME_DATASET =SIMP(statut='f',typ='I',into=(55,57,2414) ),
7747 RECORD_3 =SIMP(statut='f',typ='I',max='**'),
7748 RECORD_6 =SIMP(statut='f',typ='I',max='**'),
7749 RECORD_9 =SIMP(statut='f',typ='I',max='**'),
7750 POSI_ORDRE =SIMP(statut='o',typ='I',max='**'),
7751 POSI_INST =SIMP(statut='f',typ='I',max='**'),
7752 POSI_FREQ =SIMP(statut='f',typ='I',max='**'),
7753 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
7755 b_extrac =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
7756 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
7757 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7758 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
7759 INST =SIMP(statut='f',typ='R',max='**'),
7760 LIST_INST =SIMP(statut='f',typ=listr8),
7761 LIST_ORDRE =SIMP(statut='f',typ=listis),
7762 FREQ =SIMP(statut='f',typ='R',max='**'),
7763 LIST_FREQ =SIMP(statut='f',typ=listr8),
7765 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
7766 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
7767 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7770 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7772 #& MODIF COMMANDE DATE 19/06/2000 AUTEUR DURAND C.DURAND
7773 def macr_adap_mail_prod(self,MAJ_CHAMP,ADAPTATION,**args):
7774 mail1=ADAPTATION['MAILLAGE_N']
7775 self.type_sdprod(mail1,maillage)
7776 mail2=ADAPTATION['MAILLAGE_NP1']
7777 self.type_sdprod(mail2,maillage)
7778 if MAJ_CHAMP == None:return None
7779 for ch in MAJ_CHAMP:
7781 if t == 'CHAM_NO_TEMP_R':self.type_sdprod(ch['CHAMP_MAJ'],cham_no_temp_r)
7782 if t == 'CHAM_NO_DEPL_R':self.type_sdprod(ch['CHAMP_MAJ'],cham_no_depl_r)
7785 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
7786 fr="Adapter un maillage avec le logiciel HOMARD.",
7788 VERSION_HOMARD =SIMP(statut='f',typ='TXM',defaut="V3_15",
7789 into=("V3_15","V3_N","V3_N_PERSO",) ),
7790 ADAPTATION =FACT(statut='o',min=01,max=01,
7792 UN_PARMI('LIBRE','UNIFORME'),
7794 LIBRE =SIMP(statut='f',typ='TXM',
7795 into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT") ),
7796 UNIFORME =SIMP(statut='f',typ='TXM',
7797 into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
7798 MAILLAGE_N =SIMP(statut='o',typ=(CO,maillage) ),
7799 MAILLAGE_NP1 =SIMP(statut='o',typ=(CO,maillage) ),
7800 b_adaptation_libre =BLOC( condition = " LIBRE != None " ,
7801 fr="Indicateur d erreur",
7802 RESULTAT_N =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther ) ),
7803 INDICATEUR =SIMP(statut='o',typ='TXM',
7804 into=("ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2","ERRE_ELGA_NORE") ),
7805 NOM_CMP_INDICA =SIMP(statut='f',typ='TXM',defaut="ERREST",
7806 into=("ERREST","NUEST") ),
7807 NUME_ORDRE =SIMP(statut='f',typ='I' ),
7809 b_raffinement_libre =BLOC( condition = "( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' )" ,
7810 fr="Critère de raffinement.",
7811 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
7812 CRIT_RAFF_ABS =SIMP(statut='f',typ='R' ),
7813 CRIT_RAFF_REL =SIMP(statut='f',typ='R' ),
7814 CRIT_RAFF_PE =SIMP(statut='f',typ='R' ),
7816 b_deraffinement_libre =BLOC ( condition = "( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' )" ,
7817 fr="Crit\350re de déraffinement.",
7818 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
7819 CRIT_DERA_ABS =SIMP(statut='f',typ='R' ),
7820 CRIT_DERA_REL =SIMP(statut='f',typ='R' ),
7821 CRIT_DERA_PE =SIMP(statut='f',typ='R' ),
7823 b_raffinement =BLOC ( condition = " ( ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) ) or ( ( UNIFORME != None ) and ( UNIFORME == 'RAFFINEMENT' ) ) " ,
7824 NIVE_MAX =SIMP(statut='f',typ='I' ),
7826 b_deraffinement =BLOC ( condition = " ( ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) ) or ( ( UNIFORME != None ) and ( UNIFORME == 'DERAFFINEMENT' ) ) " ,
7827 NIVE_MIN =SIMP(statut='f',typ='I' ),
7830 MAJ_CHAMP =FACT(statut='f',min=01,max='**',
7831 RESULTAT =SIMP(statut='o',
7832 typ=(evol_elas,evol_noli,evol_ther) ),
7833 NOM_CHAM =SIMP(statut='o',typ='TXM' ),
7834 NUME_ORDRE =SIMP(statut='f',typ='I' ),
7835 CHAMP_MAJ =SIMP(statut='o',typ=(CO,cham_gd)),
7836 TYPE_CHAMP =SIMP(statut='o',typ='TXM',
7837 into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R") ),
7839 QUALITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7840 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7841 MENAGE =SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
7842 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7844 #& MODIF COMMANDE DATE 20/10/2000 AUTEUR F1BHHAJ J.ANGLES
7845 def macr_ascouf_calc_prod(self,MODELE,**args):
7846 self.type_sdprod(MODELE,modele)
7849 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
7851 docu="U4.CF.20-A",reentrant='n',
7852 regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
7853 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
7858 CL_BOL_P2_GV =FACT(statut='f',min=01,max=01,
7859 ANGLE =SIMP(statut='o',typ='R' ),
7860 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
7862 MAILLAGE =SIMP(statut='o',typ=maillage ),
7863 MODELE =SIMP(statut='o',typ=(CO,modele)),
7864 AFFE_MATERIAU =FACT(statut='o',min=01,max=03,
7865 regles=(UN_PARMI('TOUT','GROUP_MA'),),
7866 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7867 GROUP_MA =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
7868 MATER =SIMP(statut='o',typ=mater ),
7869 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7871 PRES_REP =FACT(statut='f',min=01,max=01,
7872 PRES =SIMP(statut='o',typ='R' ),
7873 EFFE_FOND_P1 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7874 FONC_MULT =SIMP(statut='f',typ=fonction ),
7876 ECHANGE =FACT(statut='f',min=01,max=01,
7877 COEF_H =SIMP(statut='f',typ=fonction ),
7878 TEMP_EXT =SIMP(statut='f',typ=fonction ),
7880 TORS_P1 =FACT(statut='f',min=01,max=06,
7881 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
7882 FX =SIMP(statut='f',typ='R' ),
7883 FY =SIMP(statut='f',typ='R' ),
7884 FZ =SIMP(statut='f',typ='R' ),
7885 MX =SIMP(statut='f',typ='R' ),
7886 MY =SIMP(statut='f',typ='R' ),
7887 MZ =SIMP(statut='f',typ='R' ),
7888 FONC_MULT =SIMP(statut='f',typ=fonction ),
7890 COMP_INCR =FACT(statut='f',min=01,max=01,
7891 RELATION =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
7892 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
7894 COMP_ELAS =FACT(statut='f',min=01,max=01,
7895 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
7896 ELAS =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
7897 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
7899 SOLVEUR =FACT(statut='d',min=01,max=01,
7900 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
7901 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
7902 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
7904 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
7905 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
7906 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
7908 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
7909 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
7910 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
7911 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7913 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
7914 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
7915 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
7916 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
7917 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
7918 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
7921 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7922 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7924 CONVERGENCE =FACT(statut='d',min=01,max=01,
7925 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
7926 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
7927 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
7928 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
7929 RESI_INTE_RELA =SIMP(statut='f',typ='R'
7931 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
7932 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
7933 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
7934 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
7936 NEWTON =FACT(statut='d',min=01,max=01,
7937 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
7938 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
7939 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
7940 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
7941 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
7943 RECH_LINEAIRE =FACT(statut='f',min=01,max=01,
7944 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7945 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
7947 INCREMENT =FACT(statut='o',min=01,max=01,
7948 LIST_INST =SIMP(statut='o',typ=listr8 ),
7949 NUME_INST_INIT =SIMP(statut='f',typ='I' ),
7950 NUME_INST_FIN =SIMP(statut='f',typ='I' ),
7952 THETA_3D =FACT(statut='f',min=01,max='**',
7953 R_INF =SIMP(statut='o',typ='R' ),
7954 R_SUP =SIMP(statut='o',typ='R' ),
7956 IMPR_TABLE =FACT(statut='f',min=01,max=01,
7957 regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
7958 PRESENT_PRESENT('TOUT_PARA','ANGLE', ),
7959 UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
7960 NOM_PARA =SIMP(statut='f',typ='TXM',max=04,
7961 into=("TRESCA_MEMBRANE",
7966 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7967 ANGLE =SIMP(statut='f',typ='R',max='**' ),
7968 R_CINTR =SIMP(statut='f',typ='R',max='**' ),
7969 POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
7970 POSI_ANGUL =SIMP(statut='f',typ='R',max='**' ),
7972 IMPRESSION =FACT(statut='f',min=01,max=01,
7973 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
7974 into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
7975 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=(4,5) ),
7977 TITRE =SIMP(statut='f',typ='TXM' ),
7978 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7980 #& MODIF COMMANDE DATE 02/10/2000 AUTEUR F1BHHAJ J.ANGLES
7981 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
7982 fr=" ",docu="U4.CF.10-A",reentrant='n',
7983 regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
7984 EXEC_MAILLAGE =FACT(statut='o',min=01,max=01,
7985 LOGICIEL =SIMP(statut='o',typ='TXM',into=("GIBI",) ),
7986 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
7987 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
7988 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
7990 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
7991 COUDE =FACT(statut='o',min=01,max=01,
7992 regles=( UN_PARMI('DEXT', 'DEXT_T1'),
7993 ENSEMBLE('DEXT', 'EPAIS'),
7994 ENSEMBLE('DEXT_T1', 'EPAIS_T1', 'EPAIS_T2',
7996 ENSEMBLE('EPAIS_TI', 'ANGL_TETA2'),
7997 PRESENT_ABSENT('ABSC_CURV_TRAN', 'POSI_ANGU_TRAN'),
7998 PRESENT_PRESENT('ABSC_CURV_TRAN', 'DEXT_T1'),
7999 PRESENT_PRESENT('POSI_ANGU_TRAN', 'DEXT_T1'),
8000 PRESENT_PRESENT('EPAIS_TI', 'DEXT_T1'),
8001 PRESENT_ABSENT('DEXT_T1', 'SUR_EPAIS'),
8002 PRESENT_ABSENT('DEXT_T1', 'BOL_P2'),),
8003 ANGLE =SIMP(statut='o',typ='R' ),
8004 R_CINTR =SIMP(statut='o',typ='R' ),
8005 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
8006 L_TUBE_P2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8007 SUR_EPAIS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8008 BOL_P2 =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
8009 NB_ELEM_EPAIS =SIMP(statut='f',typ='I',defaut= 3 ),
8010 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8011 TRANSFORMEE =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
8012 TRAN_EPAIS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8013 DEXT =SIMP(statut='f',typ='R' ),
8014 EPAIS =SIMP(statut='f',typ='R' ),
8015 DEXT_T1 =SIMP(statut='f',typ='R' ),
8016 EPAIS_T1 =SIMP(statut='f',typ='R' ),
8017 EPAIS_T2 =SIMP(statut='f',typ='R' ),
8018 EPAIS_TI =SIMP(statut='f',typ='R' ),
8019 ANGL_TETA1 =SIMP(statut='f',typ='R' ),
8020 ANGL_TETA2 =SIMP(statut='f',typ='R' ),
8021 ABSC_CURV_TRAN =SIMP(statut='f',typ='R' ),
8022 POSI_ANGU_TRAN =SIMP(statut='f',typ='R' ),
8024 SOUS_EPAIS_COUDE=FACT(statut='f',min=01,max=01,
8025 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
8026 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
8027 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
8028 AXE_CIRC =SIMP(statut='f',typ='R' ),
8029 AXE_LONGI =SIMP(statut='o',typ='R' ),
8030 PROFONDEUR =SIMP(statut='o',typ='R' ),
8031 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
8032 POSI_ANGUL =SIMP(statut='f',typ='R' ),
8033 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
8034 AZIMUT =SIMP(statut='f',typ='R' ),
8035 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
8036 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
8037 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
8038 NB_ELEM_RADI =SIMP(statut='f',typ='I',defaut= 3 ),
8039 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8041 SOUS_EPAIS_MULTI=FACT(statut='f',min=01,max='**',
8042 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
8043 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
8044 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
8045 AXE_CIRC =SIMP(statut='f',typ='R' ),
8046 AXE_LONGI =SIMP(statut='o',typ='R' ),
8047 PROFONDEUR =SIMP(statut='o',typ='R' ),
8048 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
8049 POSI_ANGUL =SIMP(statut='f',typ='R' ),
8050 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
8051 AZIMUT =SIMP(statut='f',typ='R' ),
8052 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
8053 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
8054 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
8055 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8057 FISS_COUDE =FACT(statut='f',min=01,max=01,
8058 regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
8059 AXIS =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
8060 PROFONDEUR =SIMP(statut='o',typ='R' ),
8061 LONGUEUR =SIMP(statut='o',typ='R' ),
8062 ABSC_CURV =SIMP(statut='f',typ='R' ),
8063 POSI_ANGUL =SIMP(statut='f',typ='R' ),
8064 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
8065 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
8066 ORIEN =SIMP(statut='o',typ='R',
8067 into=(45.,-45.,90.,0.E+0) ),
8068 NB_TRANCHE =SIMP(statut='o',typ='I' ),
8069 NB_SECTEUR =SIMP(statut='o',typ='I' ),
8070 NB_COURONNE =SIMP(statut='o',typ='I' ),
8071 RAYON_TORE =SIMP(statut='f',typ='R' ),
8072 COEF_MULT_RC2 =SIMP(statut='f',typ='R',defaut= 1. ),
8073 COEF_MULT_RC3 =SIMP(statut='f',typ='R' ),
8074 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.5 ),
8076 IMPRESSION =FACT(statut='f',min=01,max='**',
8077 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
8078 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",
8079 into=("ASTER","IDEAS","CASTEM") ),
8080 FICHIER =SIMP(statut='f',typ='TXM' ),
8081 UNITE =SIMP(statut='f',typ='I' ),
8082 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=(4,5) ),
8083 NIVE_GIBI =SIMP(statut='f',typ='I',defaut= 10,into=(3,10) ),
8085 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
8087 #& MODIF COMMANDE DATE 20/10/2000 AUTEUR F1BHHAJ J.ANGLES
8088 def macr_aspic_calc_prod(self,RESU_THER,MODELE,**args):
8089 if MODELE != None:self.type_sdprod(MODELE,modele)
8090 if RESU_THER != None:self.type_sdprod(RESU_THER,evol_ther)
8093 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
8094 fr=" ",docu="U4.PC.20-A",reentrant='n',
8095 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
8096 into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
8097 "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
8098 TUBULURE =FACT(statut='f',min=01,max=01,
8099 TYPE =SIMP(statut='f',typ='TXM',defaut="TYPE_1",into=("TYPE_1","TYPE_2") ),
8101 MAILLAGE =SIMP(statut='o',typ=maillage),
8102 MODELE =SIMP(statut='f',typ=(CO,modele)),
8103 RESU_THER =SIMP(statut='f',typ=(CO,evol_ther)),
8104 AFFE_MATERIAU =FACT(statut='o',min=01,max=03,
8105 regles=(UN_PARMI('TOUT','GROUP_MA'),),
8106 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
8107 GROUP_MA =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
8108 MATER =SIMP(statut='o',typ=mater),
8109 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8111 EQUILIBRE =FACT(statut='o',min=01,max=01,
8112 NOEUD =SIMP(statut='o',typ=no),
8114 PRES_REP =FACT(statut='o',min=01,max=01,
8115 PRES =SIMP(statut='o',typ='R'),
8116 NOEUD =SIMP(statut='f',typ=no),
8117 EFFE_FOND =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
8118 FONC_MULT =SIMP(statut='f',typ=fonction),
8120 ECHANGE =FACT(statut='f',min=01,max=01,
8121 COEF_H_TUBU =SIMP(statut='o',typ=fonction),
8122 COEF_H_CORP =SIMP(statut='o',typ=fonction),
8123 TEMP_EXT =SIMP(statut='o',typ=fonction),
8125 TORS_CORP =FACT(statut='f',min=01,max=06,
8126 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
8127 NOEUD =SIMP(statut='o',typ=no),
8128 FX =SIMP(statut='f',typ='R'),
8129 FY =SIMP(statut='f',typ='R'),
8130 FZ =SIMP(statut='f',typ='R'),
8131 MX =SIMP(statut='f',typ='R'),
8132 MY =SIMP(statut='f',typ='R'),
8133 MZ =SIMP(statut='f',typ='R'),
8134 FONC_MULT =SIMP(statut='f',typ=fonction),
8136 TORS_TUBU =FACT(statut='f',min=01,max=06,
8137 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
8138 FX =SIMP(statut='f',typ='R'),
8139 FY =SIMP(statut='f',typ='R'),
8140 FZ =SIMP(statut='f',typ='R'),
8141 MX =SIMP(statut='f',typ='R'),
8142 MY =SIMP(statut='f',typ='R'),
8143 MZ =SIMP(statut='f',typ='R'),
8144 FONC_MULT =SIMP(statut='f',typ=fonction),
8146 COMP_ELAS =FACT(statut='o',min=01,max=01,
8147 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC")),
8148 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8149 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8151 THETA_3D =FACT(statut='f',min=01,max='**',
8152 R_INF =SIMP(statut='o',typ='R'),
8153 R_SUP =SIMP(statut='o',typ='R'),
8155 OPTION =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX",) ),
8156 BORNES =FACT(statut='f',min=01,max='**',
8157 NUME_ORDRE =SIMP(statut='o',typ='I'),
8158 VALE_MIN =SIMP(statut='o',typ='R'),
8159 VALE_MAX =SIMP(statut='o',typ='R'),
8161 SOLVEUR =FACT(statut='d',min=01,max=01,
8162 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8163 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8164 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
8166 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8167 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8168 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
8170 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8171 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
8172 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8173 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8175 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8176 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8177 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8178 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8179 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8180 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8181 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8184 CONVERGENCE =FACT(statut='d',min=01,max=01,
8185 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
8186 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
8187 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
8188 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
8189 RESI_INTE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-6),
8190 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut=10),
8191 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut=0),
8192 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
8193 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
8195 NEWTON =FACT(statut='d',min=01,max=01,
8196 REAC_INCR =SIMP(statut='f',typ='I',defaut=1),
8197 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
8198 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
8199 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
8201 RECH_LINEAIRE =FACT(statut='d',min=01,max=01,
8202 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-3),
8203 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut=3),
8205 INCREMENT =FACT(statut='o',min=01,max=01,
8206 LIST_INST =SIMP(statut='o',typ=listr8),
8207 NUME_INST_INIT =SIMP(statut='f',typ='I'),
8208 NUME_INST_FIN =SIMP(statut='f',typ='I'),
8210 PAS_AZIMUT =SIMP(statut='f',typ='I',defaut=1),
8211 IMPRESSION =FACT(statut='f',min=01,max=01,
8212 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT","ASTER","CASTEM","IDEAS")),
8213 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
8214 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
8216 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8217 TITRE =SIMP(statut='f',typ='TXM'),
8219 #& MODIF COMMANDE DATE 01/02/2000 AUTEUR CIBHHBC B.CIREE
8220 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
8221 fr=" ",docu="U4.PC.10-A",
8222 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
8223 RAFF_MAIL =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
8224 EXEC_MAILLAGE =FACT(statut='o',min=01,max=01,
8225 LOGICIEL =SIMP(statut='o',typ='TXM',into=("GIBI",)),
8226 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
8227 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
8228 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
8230 TUBULURE =FACT(statut='o',min=01,max=01,
8231 E_BASE =SIMP(statut='o',typ='R'),
8232 DEXT_BASE =SIMP(statut='o',typ='R'),
8233 L_BASE =SIMP(statut='o',typ='R'),
8234 L_CHANF =SIMP(statut='o',typ='R'),
8235 E_TUBU =SIMP(statut='o',typ='R'),
8236 DEXT_TUBU =SIMP(statut='o',typ='R'),
8237 Z_MAX =SIMP(statut='o',typ='R'),
8238 TYPE =SIMP(statut='f',typ='TXM',defaut="TYPE_1",into=("TYPE_1","TYPE_2")),
8239 L_PENETR =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8241 SOUDURE =FACT(statut='o',min=01,max=01,
8242 H_SOUD =SIMP(statut='o',typ='R'),
8243 ANGL_SOUD =SIMP(statut='o',typ='R'),
8244 JEU_SOUD =SIMP(statut='o',typ='R'),
8246 CORPS =FACT(statut='o',min=01,max=01,
8247 E_CORP =SIMP(statut='o',typ='R'),
8248 DEXT_CORP =SIMP(statut='o',typ='R'),
8249 X_MAX =SIMP(statut='o',typ='R'),
8251 FISS_SOUDURE =FACT(statut='f',min=01,max=01,
8252 TYPE =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
8253 AXIS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8254 PROFONDEUR =SIMP(statut='o',typ='R'),
8255 LONGUEUR =SIMP(statut='f',typ='R'),
8256 AZIMUT =SIMP(statut='o',typ='R'),
8257 RAYON_TORE =SIMP(statut='f',typ='R'),
8258 POSITION =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
8259 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
8260 LIGA_INT =SIMP(statut='f',typ='R'),
8261 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8262 COEF_MULT_RC1 =SIMP(statut='f',typ='R'),
8263 COEF_MULT_RC2 =SIMP(statut='f',typ='R'),
8264 COEF_MULT_RC3 =SIMP(statut='f',typ='R'),
8265 NB_TRANCHE =SIMP(statut='f',typ='I'),
8266 NB_SECTEUR =SIMP(statut='f',typ='I'),
8267 NB_COURONNE =SIMP(statut='f',typ='I'),
8269 IMPRESSION =FACT(statut='f',min=01,max='**',
8270 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
8271 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
8272 FICHIER =SIMP(statut='f',typ='TXM'),
8273 UNITE =SIMP(statut='f',typ='I'),
8274 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
8275 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
8277 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8279 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
8280 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op= 81,sd_prod=macr_elem_dyna,
8281 fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
8282 docu="U4.65.01-D",reentrant='n',
8283 regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
8284 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
8285 MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r ),
8286 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
8287 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
8288 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8289 OPTION =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ") ),
8291 #& MODIF COMMANDE DATE 08/03/94 AUTEUR VABHHT2 G.BERTRAND
8292 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-E",reentrant='f',
8293 fr="Définition d un macro-élément pour l analyse statique par sous structuration",
8294 regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
8295 ENSEMBLE('DEFINITION','EXTERIEUR'),),
8296 DEFINITION =FACT(statut='f',min=1,max=1,
8297 MODELE =SIMP(statut='o',typ=modele),
8298 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
8299 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8300 CHAR_MACR_ELEM =SIMP(statut='f',typ=char_meca),
8301 INST =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
8302 NMAX_CAS =SIMP(statut='f',typ='I',defaut=10),
8303 NMAX_CHAR =SIMP(statut='f',typ='I',defaut=10),
8305 EXTERIEUR =FACT(statut='f',min=1,max=1,
8306 regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
8307 NOEUD =SIMP(statut='f',typ=no,max='**'),
8308 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8310 RIGI_MECA =FACT(statut='f',min=1,max=1,
8311 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
8313 MASS_MECA =FACT(statut='f',min=1,max=1,
8314 BIDO1 =SIMP(statut='f',typ='I',defaut=0),
8316 CAS_CHARGE =FACT(statut='f',min=1,max='**',
8317 NOM_CAS =SIMP(statut='o',typ='TXM'),
8318 SUIV =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
8319 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
8320 INST =SIMP(statut='f',typ='R',defaut=0.E+0),
8323 #& MODIF COMMANDE DATE 15/09/1999 AUTEUR F1BHHAJ J.ANGLES
8324 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
8325 fr=" ",docu="U4.GJ.20-A",reentrant='n',
8326 MAILLAGE =SIMP(statut='o',typ=maillage),
8327 DEFI_GOUJ =FACT(statut='o',min=01,max=01,
8328 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
8329 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
8330 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
8331 FILET_TRONQUE =SIMP(statut='f',typ='I',max='**'),
8332 FILET_TRONQA =SIMP(statut='f',typ='I',max='**'),
8333 FILET_TRONQB =SIMP(statut='f',typ='I',max='**'),
8334 FILET_JEU_HT =SIMP(statut='f',typ='I',max='**'),
8335 FILET_JEU_HTA =SIMP(statut='f',typ='I',max='**'),
8336 FILET_JEU_HTB =SIMP(statut='f',typ='I',max='**'),
8338 EXCIT =FACT(statut='o',min=01,max=01,
8339 TYPE_BLOCAGE =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
8340 FORCE_GOUJ =SIMP(statut='o',typ='R'),
8342 CALCUL =FACT(statut='o',min=01,max=01,
8343 TYPE_CALCUL =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
8344 NB_INCR =SIMP(statut='o',typ='I'),
8346 IMPRESSION =FACT(statut='f',min=01,max=01,
8347 FORMAT =SIMP(statut='f',typ='TXM',defaut="TABLE",
8348 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
8349 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
8351 TITRE =SIMP(statut='f',typ='TXM'),
8352 INFO =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
8354 #& MODIF COMMANDE DATE 02/02/2000 AUTEUR F1BHHAJ J.ANGLES
8355 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
8356 fr=" ",docu="U4.GJ.10-A",reentrant='n',
8357 EXEC_MAILLAGE =FACT(statut='o',min=01,max=01,
8358 LOGICIEL =SIMP(statut='o',typ='TXM',into=("GIBI",) ),
8359 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
8360 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
8361 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
8363 DEFI_GOUJ =FACT(statut='o',min=01,max=01,
8364 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
8365 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
8366 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
8368 GEOM_GOUJ_BRID =FACT(statut='o',min=01,max=01,
8369 NB_FILET =SIMP(statut='o',typ='I'),
8370 H_CORP_BRID =SIMP(statut='o',typ='R'),
8371 R_EXT_BRID =SIMP(statut='o',typ='R'),
8372 H_HAUT_BRID =SIMP(statut='f',typ='R',defaut=0.0E+0),
8373 H_BAS_BRID =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8374 FILET_ABST =SIMP(statut='f',typ='I',max='**'),
8376 IMPRESSION =FACT(statut='f',min=01,max=01,
8377 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
8378 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
8379 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
8380 FICHIER =SIMP(statut='f',typ='TXM'),
8381 UNITE =SIMP(statut='f',typ='I'),
8382 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
8383 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
8385 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8387 #& MODIF COMMANDE DATE 19/06/2000 AUTEUR DURAND C.DURAND
8388 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-A",
8389 fr="Donner des informations sur un maillage.",
8391 # 1. Le nom du maillage a analyser
8393 MAILLAGE =SIMP(statut='o',typ=maillage),
8395 # 2. Determination de la qualite des elements du maillage
8396 # Par defaut, rien ne se fait
8398 QUALITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8400 # 3. Controle de la non-interpenetration des elements
8401 # Par defaut, rien ne se fait
8403 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8407 VERSION_HOMARD =SIMP(statut='f',typ='TXM',defaut="V3_15",into=("V3_15","V3_N","V3_N_PERSO")),
8409 # 5. Le niveau d'information
8411 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8413 #& MODIF COMMANDE DATE 02/06/99 AUTEUR CIBHHLV L.VIVAN
8414 MACR_PRE_SYRTHES=MACRO(nom="MACR_PRE_SYRTHES",op=-21,fr=" ",docu="U7.02.21-A",
8415 MAILLAGE =FACT(statut='d',min=01,max=01,
8416 UNITE_SYRTHES =SIMP(statut='f',typ='I',defaut=13),
8417 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
8419 RESULTAT =FACT(statut='d',min=01,max=01,
8420 UNITE_SYRTHES =SIMP(statut='f',typ='I',defaut=31),
8421 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut= 91 ),
8424 #& MODIF COMMANDE DATE 17/11/1999 AUTEUR CIBHHGB G.BERTRAND
8425 MACRO_CARA_POUTRE=MACRO(nom="MACRO_CARA_POUTRE",op=-11,sd_prod=tabl_cara_geom,
8426 docu="U4.42.02-C",reentrant='n',
8427 fr="Détermination des caractéristiques d'une section transversale de poutre à partir d'un maillage 2D de la section",
8428 regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
8429 EXCLUS('SYME_Y','GROUP_MA_BORD'),
8430 ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
8431 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 20 ),
8432 SYME_X =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8433 SYME_Y =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8434 GROUP_MA_BORD =SIMP(statut='f',typ=grma,max='**'),
8435 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8436 ORIG_INER =SIMP(statut='f',typ='R',max='**'),
8437 NOEUD =SIMP(statut='f',typ=no,max='**'),
8438 GROUP_MA_INTE =SIMP(statut='f',typ=grma,max='**'),
8439 LONGUEUR =SIMP(statut='f',typ='R'),
8440 MATERIAU =SIMP(statut='f',typ=mater),
8441 LIAISON =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
8442 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8444 #& MODIF COMMANDE DATE 30/06/98 AUTEUR CIBHHGB G.BERTRAND
8445 MACRO_CHAR_F_U=MACRO(nom="MACRO_CHAR_F_U",op=-15,sd_prod=char_meca,
8446 fr=" ",docu="U4.72.07-A",reentrant='n',
8447 MODELE =SIMP(statut='o',typ=modele),
8448 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
8449 CHARGE =SIMP(statut='o',typ=char_meca),
8450 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8451 COEF_IMPO =SIMP(statut='f',typ='R',defaut=1.0E+0),
8452 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="APRES",into=("NORMAL","APRES")),
8453 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8455 #& MODIF COMMANDE DATE 05/06/2000 AUTEUR CIBHHLV L.VIVAN
8456 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
8457 self.type_sdprod(NUME_DDL,nume_ddl)
8458 if CAS_CHARGE[0]['NOM_CAS'] != None : return mult_elas
8459 if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
8460 raise AsException("type de concept resultat non prevu")
8462 MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=-10,sd_prod=macro_elas_mult_prod,docu="U4.51.02-C",reentrant='f',
8463 fr="Permet la réalisation d une analyse statique linéaire multi cas de charges ou la réalisation des calculs de plusieurs modes de Fourier sur un modèle axisymétrique",
8464 regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
8465 MODELE =SIMP(statut='o',typ=modele),
8466 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
8467 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8468 NUME_DDL =SIMP(statut='f',typ=(CO,nume_ddl)),# CO()
8469 CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
8470 CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
8471 LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
8472 CAS_CHARGE =FACT(statut='o',min=01,max='**',
8473 regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
8474 UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
8475 NOM_CAS =SIMP(statut='f',typ='TXM' ),
8476 MODE_FOURIER =SIMP(statut='f',typ='I' ),
8477 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
8478 CHAR_MECA =SIMP(statut='f',typ=char_meca,max='**'),
8479 CHAR_CINE =SIMP(statut='f',typ=char_meca,max='**'),
8480 OPTION =SIMP(statut='f',typ='TXM',max='**',
8481 into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
8482 "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
8483 "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
8484 "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
8485 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
8486 "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
8487 "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
8488 "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
8489 "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
8490 "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
8491 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
8492 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
8493 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
8494 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
8497 # attention d après la documentation U4-02-04B (solveur), PRE_COND figure uniquement avec la méthode GCPC
8499 SOLVEUR =FACT(statut='d',min=01,max=01,
8500 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
8501 PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
8502 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8503 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
8505 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8506 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8507 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
8509 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8510 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8511 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8512 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8515 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
8516 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8518 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
8519 MACRO_MADMACS=MACRO(nom="MACRO_MADMACS",op=-9,docu="U7.03.21-C",
8520 fr="Impression au format fichier universel IDEAS des données nécessaires au chaînage entre Code_Aster et MADMACS",
8521 regles=(UN_PARMI('MATR_ELEM_RIGI','MATR_RIGI'),
8522 UN_PARMI('MATR_ELEM_MASS','MATR_MASS'),
8523 PRESENT_ABSENT('MATR_ELEM_AMOR','MATR_AMOR'),),
8524 FICHIER =SIMP(statut='f',typ='TXM' ),
8525 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
8526 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(5,)),
8527 MAILLAGE =SIMP(statut='o',typ=maillage),
8528 NUME_DDL =SIMP(statut='o',typ=nume_ddl),
8529 CHARGE =SIMP(statut='o',typ=char_meca,max='**'),
8530 MATR_ELEM_RIGI =SIMP(statut='f',typ=matr_elem_depl_r),
8531 MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r),
8532 MATR_ELEM_MASS =SIMP(statut='f',typ=matr_elem_depl_r),
8533 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r),
8534 MATR_ELEM_AMOR =SIMP(statut='f',typ=matr_elem_depl_r),
8535 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r),
8536 MODE_MECA =SIMP(statut='o',typ=mode_meca),
8537 NMAX_MODE =SIMP(statut='f',typ='I',defaut=10),
8538 INTERFACE =FACT(statut='f',min=01,max='**',
8539 regles=(UN_PARMI('NOEUD','GROUP_NO'),
8540 UN_PARMI('DDL_ACTIF','MASQUE'),),
8541 NOM =SIMP(statut='o',typ='TXM'),
8542 NOEUD =SIMP(statut='f',typ=no,max='**'),
8543 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8544 DDL_ACTIF =SIMP(statut='f',typ='TXM',max='**'),
8545 MASQUE =SIMP(statut='f',typ='TXM',max='**'),
8547 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8549 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
8550 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,**args):
8551 self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
8552 self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
8553 self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
8556 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-B",sd_prod=macro_matr_ajou_prod,
8557 fr="Calcul les matrices de masse, d amortissement ou de rigidité ajoutées qu induit un fluide parfait, incompressible, au repos ou en écoulement potentiel, sur une structure en 2D, 2D axisymétrique ou en 3D",
8558 regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
8559 AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
8560 EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),),
8561 MAILLAGE =SIMP(statut='o',typ=maillage),
8562 GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
8563 GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
8564 MODELISATION =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
8565 FLUIDE =FACT(statut='o',min=01,max='**',
8566 RHO =SIMP(statut='o',typ='R'),
8567 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
8568 GROUP_MA =SIMP(statut='f',typ=grma),
8569 MAILLE =SIMP(statut='f',typ=ma),
8571 DDL_IMPO =FACT(statut='o',min=01,max='**',
8572 regles=(UN_PARMI('NOEUD','GROUP_NO'),
8573 UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
8574 NOEUD =SIMP(statut='f',typ=no),
8575 GROUP_NO =SIMP(statut='f',typ=grno),
8576 PRES_FLUIDE =SIMP(statut='f',typ='R'),
8577 PRES_SORTIE =SIMP(statut='f',typ='R'),
8579 ECOULEMENT =FACT(statut='f',min=01,max='**',
8580 GROUP_MA_1 =SIMP(statut='o',typ=grma),
8581 GROUP_MA_2 =SIMP(statut='o',typ=grma),
8582 VNOR_1 =SIMP(statut='o',typ='R'),
8583 VNOR_2 =SIMP(statut='f',typ='R'),
8584 POTENTIEL =SIMP(statut='f',typ=evol_ther),
8586 MODE_MECA =SIMP(statut='f',typ=mode_meca),
8587 DEPL_IMPO =SIMP(statut='f',typ=cham_no_depl_r),
8588 MODELE_GENE =SIMP(statut='f',typ=modele_gene),
8589 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene),
8590 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.0E-2),
8591 MATR_MASS_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
8592 MATR_RIGI_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
8593 MATR_AMOR_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
8594 SOLVEUR =FACT(statut='d',min=01,max=01,
8595 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8596 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8597 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
8599 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8600 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8601 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
8603 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8604 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
8605 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8606 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8608 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8609 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8610 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8611 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8612 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8613 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8616 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8618 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8619 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8620 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
8622 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
8623 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
8624 if not MATR_ASSE: raise AsException("Impossible de typer les concepts resultats")
8625 if not NUME_DDL: raise AsException("Impossible de typer les concepts resultats")
8626 self.type_sdprod(NUME_DDL,nume_ddl)
8629 if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
8630 "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
8631 "AMOR_MECA","IMPE_MECA" ,
8632 "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
8633 if opti == "RIGI_MECA_HYST" : t= matr_asse_depl_c
8634 if opti == "RIGI_THER" : t= matr_asse_temp_r
8635 if opti == "MASS_THER" : t= matr_asse_temp_r
8636 if opti == "RIGI_THER_CONV" : t= matr_asse_temp_r
8637 if opti == "RIGI_THER_CONV_D" : t= matr_asse_temp_r
8638 if opti == "RIGI_ACOU" : t= matr_asse_pres_c
8639 if opti == "MASS_ACOU" : t= matr_asse_pres_c
8640 if opti == "AMOR_ACOU" : t= matr_asse_pres_c
8641 self.type_sdprod(m['MATRICE'],t)
8644 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=-6,docu="U4.61.21-C",
8645 sd_prod=macro_matr_asse_prod,
8646 fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
8647 MODELE =SIMP(statut='o',typ=modele),
8648 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
8649 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8650 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou)),
8651 INST =SIMP(statut='f',typ='R'),
8652 NUME_DDL =SIMP(statut='o',typ=(nume_ddl,CO)),
8653 SOLVEUR =FACT(statut='d',min=01,max=01,
8654 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
8655 into=("LDLT","MULT_FRONT","GCPC")),
8656 TAILLE_BLOC =SIMP(statut='f',typ='R'),
8657 RENUM =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
8659 MATR_ASSE =FACT(statut='o',min=01,max='**',
8660 MATRICE =SIMP(statut='o',typ=(matr_asse,CO)),
8661 OPTION =SIMP(statut='o',typ='TXM',
8662 into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
8663 "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
8664 "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
8665 "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
8666 "RIGI_THER","MASS_THER","RIGI_ACOU","MASS_ACOU",
8668 SIEF_ELGA =SIMP(statut='f',typ=cham_elem_sief_r),
8669 MODE_FOURIER =SIMP(statut='f',typ='I'),
8670 THETA =SIMP(statut='f',typ=theta_geom),
8671 PROPAGATION =SIMP(statut='f',typ='R'),
8673 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8674 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8676 #& MODIF COMMANDE DATE 02/02/99 AUTEUR ACBHHCD G.DEVESA
8677 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=-18,fr=" ",docu="U7.03.11-A",
8678 OPTION =FACT(statut='o',min=01,max=01,
8679 regles=(UN_PARMI('TOUT','MODULE'),),
8680 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
8681 MODULE =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
8683 PROJET =SIMP(statut='o',typ='TXM'),
8684 REPERTOIRE =SIMP(statut='f',typ='TXM'),
8685 UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
8686 UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
8687 UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
8688 UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
8690 #& MODIF COMMANDE DATE 04/04/2000 AUTEUR D6BHHBQ B.QUINNEZ
8691 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
8692 self.type_sdprod(MATR_A,matr_asse_depl_r)
8693 self.type_sdprod(MATR_B,matr_asse_depl_r)
8696 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op= -12,sd_prod=macro_mode_meca_prod,
8697 fr="Permet d alléger le calcul d une structure de données de type mode_meca par le découpage d un intervalle de fréquences global en sous-intervalles",
8698 docu="U4.52.02-C",reentrant='n',
8699 MATR_A =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
8700 MATR_B =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
8701 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
8702 # ce mot cle ne devrait il pas etre dans calc_freq
8703 METHODE =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
8704 into=("TRI_DIAG","JACOBI","SORENSEN",) ),
8705 OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",
8706 into=("MODE_RIGIDE","SANS") ),
8707 CALC_FREQ =FACT(statut='d',min=00,max=01,
8708 regles=(UN_PARMI('FREQ','FREQ_MAX'),
8709 PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
8710 PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),),
8711 FREQ =SIMP(statut='f',typ='R',max='**' ),
8712 FREQ_MIN =SIMP(statut='f',typ='R' ),
8713 FREQ_MAX =SIMP(statut='f',typ='R' ),
8714 NB_BLOC_FREQ =SIMP(statut='f',typ='I' ),
8715 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
8716 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I',defaut= 0 ),
8717 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
8718 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
8719 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
8720 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
8721 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
8722 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
8723 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30 ),
8724 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.4E-10 ),
8725 NMAX_ITER_BATHE =SIMP(statut='f',typ='I' ,defaut= 12 ),
8726 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
8727 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
8728 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E0 ),
8729 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
8730 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
8731 SEUIL_FREQ =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
8732 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
8734 VERI_MODE =FACT(statut='d',min=00,max=01,
8735 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8736 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8737 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
8738 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8740 NORM_MODE =FACT(statut='o',min=01,max='**',
8741 MASS_INER =SIMP(statut='o',typ=tabl_mass_iner ),
8742 NORME =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
8743 into=("MASS_GENE","RIGI_GENE","EUCL",
8744 "EUCL_TRAN","TRAN","TRAN_ROTA") ),
8745 INFO =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
8747 FILTRE_MODE =FACT(statut='f',min=01,max=01,
8748 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
8749 into=("MASS_EFFE_UN","MASS_GENE") ),
8750 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8752 IMPRESSION =FACT(statut='d',min=01,max=01,
8753 TOUT_PARA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8754 CUMUL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8755 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
8756 into=("MASS_EFFE_UN","MASS_GENE",) ),
8759 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
8760 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
8761 if MATR_ASSE_GENE != None:
8762 for m in MATR_ASSE_GENE:
8763 self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
8764 self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
8765 if VECT_ASSE_GENE != None:
8766 for m in VECT_ASSE_GENE:
8767 self.type_sdprod(m['VECTEUR'],vect_asse_gene)
8770 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=-8,docu="U4.63.11-C",
8771 sd_prod=macro_proj_base_prod,
8772 fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
8773 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
8774 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999),
8775 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
8776 MATR_ASSE_GENE =FACT(statut='f',min=01,max='**',
8777 MATRICE =SIMP(statut='o',typ=(CO,matr_asse)),
8778 MATR_ASSE =SIMP(statut='f',typ=(CO,matr_asse_depl_r)),
8779 MATR_ASSE_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
8780 PROFIL =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
8782 VECT_ASSE_GENE =FACT(statut='f',min=01,max='**',
8783 VECTEUR =SIMP(statut='o',typ=(CO,vect_asse)),
8784 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
8785 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
8786 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene),
8788 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8790 #& MODIF COMMANDE DATE 08/09/97 AUTEUR VABHHTS J.PELLET
8791 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-D",
8792 fr="Compilation des catalogues de commandes et d éléments",
8793 regles=(UN_PARMI('COMMANDE','ELEMENT','VALIDATION'),),
8794 COMMANDE =FACT(statut='f',min=01,max=01,
8795 UNITE =SIMP(statut='o',typ='I' ),
8797 ELEMENT =FACT(statut='f',min=01,max=01,),
8798 VALIDATION =FACT(statut='f',min=01,max=01,
8799 UNITE =SIMP(statut='o',typ='I' ),
8800 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
8803 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
8804 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
8805 fr="Analyse mécanique statique linéaire",docu="U4.51.01-F",reentrant='n',
8806 regles=(EXCLUS("INST","LIST_INST"),),
8807 MODELE =SIMP(statut='o',typ=modele),
8808 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
8809 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8810 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8811 EXCIT =FACT(statut='o',min=1,max='**',
8812 CHARGE =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
8813 FONC_MULT =SIMP(statut='f',typ=fonction),
8814 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8816 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8817 LIST_INST =SIMP(statut='f',typ=listr8),
8818 OPTION =SIMP(statut='f',typ='TXM',max='**',
8819 into=("SIEF_ELGA_DEPL","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
8820 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
8821 "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
8822 "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
8823 "ENEL_ELGA","ENEL_ELNO_ELGA") ),
8824 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
8825 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
8826 ANGLE =SIMP(statut='f',typ='I',defaut=0),
8827 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
8828 SENSIBILITE =FACT(statut='f',min=1,max=1,
8829 THETA =SIMP(statut='o',typ=theta_geom),
8831 SOLVEUR =FACT(statut='d',min=01,max=01,
8832 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8833 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8834 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
8836 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8837 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8838 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
8840 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8841 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8842 NPREC =SIMP(statut='f',typ='I',defaut=8),
8843 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8845 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8846 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8847 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8848 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8849 RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
8850 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8853 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8855 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8857 #& MODIF COMMANDE DATE 09/09/98 AUTEUR SABJLMA P.LATRUBESSE
8858 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op= 80,sd_prod=mode_cycl,
8859 fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
8860 docu="U4.52.05-E",reentrant='n',
8861 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
8862 NB_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
8863 NB_SECTEUR =SIMP(statut='o',typ='I' ),
8864 LIAISON =FACT(statut='o',min=01,max=01,
8865 DROITE =SIMP(statut='o',typ='TXM' ),
8866 GAUCHE =SIMP(statut='o',typ='TXM' ),
8867 AXE =SIMP(statut='f',typ='TXM' ),
8869 VERI_CYCL =FACT(statut='f',min=01,max=01,
8870 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8871 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
8872 DIST_REFE =SIMP(statut='f',typ='R' ),
8874 CALCUL =FACT(statut='o',min=01,max=01,
8875 TOUT_DIAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8876 NB_DIAM =SIMP(statut='f',typ='I',max='**'),
8877 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
8878 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
8879 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
8880 FREQ =SIMP(statut='o',typ='R',min=01,max=01),
8882 b_bande =BLOC(condition = "OPTION == 'BANDE'",
8883 FREQ =SIMP(statut='o',typ='R',min=02,max=02),
8885 # NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
8886 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
8887 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 100. ),
8888 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8889 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 50 ),
8891 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8893 #& MODIF COMMANDE DATE 24/05/2000 AUTEUR D6BHHBQ B.QUINNEZ
8894 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
8895 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
8896 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
8897 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
8898 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
8899 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
8900 raise AsException("type de concept resultat non prevu")
8902 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op= 44,sd_prod=mode_iter_inv_prod
8903 ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
8904 docu="U4.52.04-F",reentrant='n',
8905 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
8906 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
8907 MATR_C =SIMP(statut='f',typ=matr_asse_depl_r ),
8908 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
8909 into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
8910 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
8911 CALC_FREQ =FACT(statut='o',min=01,max=01,fr="Choix des paramètres pour le calcul des valeurs propres",
8913 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
8914 fr="Choix de l option pour estimer les valeurs propres" ),
8915 FREQ =SIMP(statut='o',typ='R',max='**'),
8916 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8917 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0 ),
8918 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30 ),
8919 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
8920 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
8921 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
8923 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
8924 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
8925 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
8926 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
8929 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
8930 CALC_FREQ =FACT(statut='o',min=01,max=01,fr="Choix des paramètres pour le calcul des valeurs propres",
8932 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
8933 fr="Choix de l option pour estimer les valeurs propres" ),
8934 CHAR_CRIT =SIMP(statut='o',typ='R',max='**' ),
8935 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0 ),
8936 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30 ),
8937 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
8938 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
8939 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
8941 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
8942 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
8943 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
8944 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
8947 CALC_MODE =FACT(statut='d',min=00,max=01,fr="Choix des paramètres pour le calcul des vecteurs propres",
8948 OPTION =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
8949 PREC =SIMP(statut='f',typ='R',defaut= 1.E-5,fr="Précision de convergence" ),
8950 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 30 ),
8952 VERI_MODE =FACT(statut='d',min=00,max=01,
8953 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8954 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-2,fr="Valeur limite admise pour l ereur a posteriori des modes" ),
8956 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8957 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8959 #& MODIF COMMANDE DATE 24/05/2000 AUTEUR D6BHHBQ B.QUINNEZ
8960 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
8961 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
8962 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
8963 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
8964 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
8965 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
8966 raise AsException("type de concept resultat non prevu")
8968 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op= 45,sd_prod=mode_iter_simult_prod,
8969 fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
8970 docu="U4.52.03-E",reentrant='n',
8971 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
8972 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
8973 MATR_C =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
8974 METHODE =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",into=("TRI_DIAG","JACOBI","SORENSEN") ),
8975 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
8976 fr="Type d analyse" ),
8977 OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
8979 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
8980 CALC_FREQ =FACT(statut='d',min=00,max=01,
8981 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
8982 fr="Choix de l option et par conséquent du shift du problème modal" ),
8983 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
8984 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
8986 b_centre =BLOC(condition = "OPTION == 'CENTRE'",fr="Recherche des valeurs propres les plus proches d une valeur donnée",
8987 CHAR_CRIT =SIMP(statut='o',typ='R',min=01,max=01,fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
8989 b_bande =BLOC(condition = "(OPTION == 'BANDE')",fr="Recherche des valeurs propres dans une bande donnée",
8990 CHAR_CRIT =SIMP(statut='o',typ='R',min=02,max=02,fr="Valeur des deux charges critiques délimitant la bande de recherche"),
8992 APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
8993 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
8994 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
8995 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
8996 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
8997 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8 ),
8998 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30 ),
9000 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
9001 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
9002 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40 ),
9003 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9004 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
9006 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
9007 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9008 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
9009 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
9011 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
9012 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
9013 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
9014 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9018 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
9019 CALC_FREQ =FACT(statut='d',min=00,max=01,
9020 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
9021 fr="Choix de l option et par conséquent du shift du problème modal" ),
9022 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
9023 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
9025 b_centre =BLOC(condition = "OPTION == 'CENTRE'",fr="Recherche des valeurs propres les plus proches d une valeur donnée",
9026 FREQ =SIMP(statut='o',typ='R',min=01,max=01,fr="Fréquence autour de laquelle on cherche les fréquences propres"),
9027 AMOR_REDUIT =SIMP(statut='f',typ='R',max=01),
9028 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
9030 b_bande =BLOC(condition = "(OPTION == 'BANDE')",fr="Recherche des valeurs propres dans une bande donnée",
9031 FREQ =SIMP(statut='o',typ='R',min=02,max=02,fr="Valeur des deux fréquences délimitant la bande de recherche"),
9033 APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
9034 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
9035 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
9036 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
9037 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
9038 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8 ),
9039 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30 ),
9041 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
9042 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
9043 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40 ),
9044 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9045 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
9047 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
9048 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9049 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
9050 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
9052 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
9053 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
9054 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
9055 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9059 VERI_MODE =FACT(statut='d',min=00,max=01,
9060 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9061 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
9062 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6,fr="Valeur limite admise pour l ereur a posteriori des modes" ),
9063 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9065 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9066 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9067 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9069 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
9070 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat,
9071 fr="Calcul de modes statiques",
9072 docu="U4.52.14-E",reentrant='n',
9073 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
9074 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
9075 DDL_IMPO =FACT(statut='f',min=01,max='**',
9076 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
9077 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
9078 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9079 NOEUD =SIMP(statut='f',typ=no,max='**'),
9080 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9081 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9082 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
9083 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
9085 FORCE_NODALE =FACT(statut='f',min=01,max='**',
9086 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
9087 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
9088 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9089 NOEUD =SIMP(statut='f',typ=no,max='**'),
9090 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9091 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9092 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
9093 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
9095 ACCE_UNIF =FACT(statut='f',min=01,max='**',
9096 regles=(UN_PARMI('AXE','DIRECTION', ),),
9097 AXE =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=03),
9098 DIRECTION =SIMP(statut='f',typ='R',max=03),
9099 b_dir =BLOC(condition = "DIRECTION != None",
9100 NOM_DIR =SIMP(statut='f',typ='TXM' ),
9103 ACCE_IMPO =FACT(statut='f',min=01,max='**',
9104 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
9105 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
9106 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9107 NOEUD =SIMP(statut='f',typ=no,max='**'),
9108 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9109 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9110 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
9111 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
9113 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9114 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
9116 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
9117 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
9118 fr="Modélisation d une base modale pour tenir compte du couplage fluidélastique (mêmes déformées modales, modification des valeurs des fréquences et amortissements)",
9119 docu="U4.66.21-C",reentrant='f',
9120 # la commande modi_base _modale : reentrant = f ou o
9121 regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
9122 BASE =SIMP(statut='o',typ=mode_meca ),
9123 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
9124 NUME_VITE_FLUI =SIMP(statut='o',typ='I' ),
9125 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9126 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
9127 AMOR_UNIF =SIMP(statut='f',typ='R' ),
9128 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9129 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9131 #& MODIF COMMANDE DATE 22/05/2000 AUTEUR AUBHHMB M.BONNAMY
9132 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
9133 fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
9134 docu="U4.23.04-C",reentrant='o',
9135 regles=(UN_PARMI('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
9136 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE'),
9137 EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
9138 EXCLUS('EQUE_PIQUA','TUBE_COUDE'),),
9139 MAILLAGE =SIMP(statut='o',typ=maillage ),
9141 ORIE_CONTACT =FACT(statut='f',min=01,max=01,
9142 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
9145 DEFORME =FACT(statut='f',min=01,max=01,
9146 OPTION =SIMP(statut='o',typ='TXM',into=("TRAN",) ),
9147 DEPL =SIMP(statut='o',typ=cham_no_depl_r ),
9150 EQUE_PIQUA =FACT(statut='f',min=01,max=01,
9151 GROUP_NO =SIMP(statut='o',typ=grno),
9152 E_BASE =SIMP(statut='o',typ='R' ),
9153 DEXT_BASE =SIMP(statut='o',typ='R' ),
9154 L_BASE =SIMP(statut='o',typ='R' ),
9155 L_CHANF =SIMP(statut='o',typ='R' ),
9156 H_SOUD =SIMP(statut='o',typ='R' ),
9157 ANGL_SOUD =SIMP(statut='o',typ='R' ),
9158 JEU_SOUD =SIMP(statut='o',typ='R' ),
9159 E_CORP =SIMP(statut='o',typ='R' ),
9160 DEXT_CORP =SIMP(statut='o',typ='R' ),
9161 AZIMUT =SIMP(statut='o',typ='R' ),
9162 RAFF_MAIL =SIMP(statut='o',typ='TXM' ),
9163 X_MAX =SIMP(statut='o',typ='R' ),
9165 ORIE_PEAU_2D =FACT(statut='f',min=01,max='**',
9166 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
9168 ORIE_PEAU_3D =FACT(statut='f',min=01,max='**',
9169 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
9171 ORIE_NORM_COQUE =FACT(statut='f',min=01,max='**',
9172 regles=(EXCLUS('NOEUD','GROUP_NO'),
9173 PRESENT_PRESENT('NOEUD','VECT_NORM'),
9174 PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
9175 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
9176 VECT_NORM =SIMP(statut='f',typ='R',max=03),
9177 NOEUD =SIMP(statut='f',typ=no),
9178 GROUP_NO =SIMP(statut='f',typ=grno),
9180 b_modele =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
9181 MODELE =SIMP(statut='o',typ=modele ),
9183 PLAQ_TUBE =FACT(statut='f',min=01,max=01,
9184 DEXT =SIMP(statut='o',typ='R' ),
9185 EPAIS =SIMP(statut='o',typ='R' ),
9186 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
9187 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
9188 COUTURE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9190 TUBE_COUDE =FACT(statut='f',min=01,max=01,
9191 ANGLE =SIMP(statut='o',typ='R' ),
9192 R_CINTR =SIMP(statut='o',typ='R' ),
9193 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
9195 MODI_MAILLE =FACT(statut='f',min=01,max=01,
9196 regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
9197 OPTION =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
9198 GROUP_MA_FOND =SIMP(statut='f',typ=grma,max='**'),
9199 MAILLE_FOND =SIMP(statut='f',typ=ma,max='**'),
9200 GROUP_NO_FOND =SIMP(statut='f',typ=grno,max='**'),
9201 NOEUD_FOND =SIMP(statut='f',typ=no,max='**'),
9203 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9205 #& MODIF COMMANDE DATE 07/04/98 AUTEUR ACBHHCD G.DEVESA
9206 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
9207 fr=" ",docu="U4.44.22-A",reentrant='f',
9208 regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),),
9209 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
9210 INST =SIMP(statut='f',typ='R'),
9211 OBSTACLE =SIMP(statut='f',typ=obstacle),
9212 GUIDE =SIMP(statut='o',typ=obstacle),
9213 CRAYON =SIMP(statut='f',typ=obstacle),
9214 R_MOBILE =SIMP(statut='f',typ='R'),
9215 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9217 #& MODIF COMMANDE DATE 05/09/2000 AUTEUR CIBHHLV L.VIVAN
9218 def norm_mode_prod(MODE,**args ):
9219 if AsType(MODE) == mode_meca : return mode_meca
9220 if AsType(MODE) == mode_meca_c : return mode_meca_c
9221 if AsType(MODE) == mode_flamb : return mode_flamb
9222 raise AsException("type de concept resultat non prevu")
9224 NORM_MODE=OPER(nom="NORM_MODE",op= 37,sd_prod=norm_mode_prod,
9225 fr="Normalisation de modes propres",
9226 docu="U4.52.11-E",reentrant='f',
9227 regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
9228 MODE =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
9229 NORME =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
9230 into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
9231 NOEUD =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
9232 b_noeud =BLOC(condition = "NOEUD != None",
9233 NOM_CMP =SIMP(statut='o',typ='TXM' ),
9235 AVEC_CMP =SIMP(statut='f',typ='TXM',fr="Norme plus grande composante = 1 en prenant seulement en compte les degrés de libertés suivant",max='**'),
9236 SANS_CMP =SIMP(statut='f',typ='TXM',fr="Norme plus grande composante = 1 en ne prenant pas en compte les degrés de libertés suivant",max='**'),
9237 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
9238 MODE_SIGNE =FACT(statut='f',min=00,max=01,fr="Imposer un signe sur une des composantes des modes",
9239 NOEUD =SIMP(statut='o',typ=no,fr="Noeud où sera imposé le signe"),
9240 NOM_CMP =SIMP(statut='o',typ='TXM',fr="Composante du noeud où sera imposé le signe" ),
9241 SIGNE =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),fr="Choix du signe" ),
9243 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9244 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9246 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
9247 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-F",reentrant='n',
9248 fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
9249 MATR_RIGI =SIMP(statut='o',typ=(matr_elem_depl_r ,matr_elem_depl_c,
9250 matr_elem_temp_r,matr_elem_pres_c),max='**' ),
9251 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
9252 b_mult_front =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
9253 RENUM =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS") ),
9255 b_ldlt =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
9256 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS") ),
9257 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9259 b_gcpc =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
9260 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS") ),
9262 INFO =SIMP(statut='f',typ='I',into=(1,2)),
9264 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
9265 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
9266 fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
9267 docu="U4.65.03-D",reentrant='n',
9268 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
9269 BASE =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
9270 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
9271 STOCKAGE =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("PLEIN","DIAG","LIGN_CIEL") ),
9272 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
9274 #& MODIF COMMANDE DATE 04/08/98 AUTEUR SABJLMA P.LATRUBESSE
9275 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
9276 fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
9277 docu="U4.84.04-D",reentrant='n',
9278 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
9279 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
9280 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
9281 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9282 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**' ),
9283 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
9284 OPTION =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
9285 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
9286 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**' ),
9288 b_noeud_i =BLOC(condition = "NOEUD_I != None",
9289 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
9290 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**' ),
9291 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**' ),
9293 DEPASSEMENT =FACT(statut='f',min=01,max='**',
9294 fr="Loi de dépassement d un seuil pendant une durée donnée",
9295 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
9296 VALE_MIN =SIMP(statut='f',typ='R' ),
9297 VALE_MAX =SIMP(statut='f',typ='R' ),
9298 PAS =SIMP(statut='f',typ='R' ),
9299 DUREE =SIMP(statut='f',typ='R',defaut= 1. ),
9301 RAYLEIGH =FACT(statut='f',min=01,max='**',
9302 fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
9303 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
9304 VALE_MIN =SIMP(statut='f',typ='R' ),
9305 VALE_MAX =SIMP(statut='f',typ='R' ),
9306 PAS =SIMP(statut='f',typ='R' ),
9308 GAUSS =FACT(statut='f',min=01,max='**',
9309 fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
9310 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
9311 VALE_MIN =SIMP(statut='f',typ='R' ),
9312 VALE_MAX =SIMP(statut='f',typ='R' ),
9313 PAS =SIMP(statut='f',typ='R' ),
9315 VANMARCKE =FACT(statut='f',min=01,max='**',
9316 fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
9317 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
9318 VALE_MIN =SIMP(statut='f',typ='R' ),
9319 VALE_MAX =SIMP(statut='f',typ='R' ),
9320 PAS =SIMP(statut='f',typ='R' ),
9321 DUREE =SIMP(statut='f',typ='R',defaut= 10. ),
9323 MOMENT =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
9324 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9325 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9327 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
9328 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
9329 fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
9330 docu="U4.84.02-D",reentrant='n',
9331 regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
9332 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
9333 CHOC =FACT(statut='f',min=01,max='**',
9334 fr="Analyse des non linéarités de choc",
9335 INST_INIT =SIMP(statut='f',typ='R',defaut= -1. ),
9336 INST_FIN =SIMP(statut='f',typ='R',defaut= 999. ),
9337 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
9338 SEUIL_FORCE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9339 DUREE_REPOS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9340 OPTION =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
9341 NB_CLASSE =SIMP(statut='f',typ='I',defaut= 10 ),
9343 RELA_EFFO_DEPL =FACT(statut='f',min=01,max=01,
9344 fr="Analyse des relationsnon linéaires effort-déplacement",
9345 NOEUD =SIMP(statut='o',typ=no),
9346 NOM_CMP =SIMP(statut='o',typ='TXM' ),
9348 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9349 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9351 #& MODIF COMMANDE DATE 05/12/2000 AUTEUR G8BHHXD X.DESROCHES
9352 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,INDU_MUTU,WEIBULL,
9353 CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
9354 INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
9355 AIRE_INTERNE,**args ):
9356 if MASS_INER != None : return tabl_mass_iner
9357 if ENER_POT != None : return tabl_ener_pot
9358 if ENER_CIN != None : return tabl_ener_cin
9359 if INDU_MUTU != None : return tabl_indu_mutu
9360 if WEIBULL != None : return tabl_weibull
9361 if CARA_GEOM != None : return tabl_cara_geom
9362 if CARA_POUTRE != None : return tabl_cara_geom
9363 if RICE_TRACEY != None : return tabl_rice_tracey
9364 if CHAR_LIMITE != None : return tabl_char_limite
9365 if INDIC_ENER != None : return tabl_indic_ener
9366 if INDIC_SEUIL != None : return tabl_indic_seuil
9367 if ENER_ELAS != None : return tabl_ener_elas
9368 if ENER_TOTALE != None : return tabl_ener_totale
9369 if AIRE_INTERNE != None : return tabl_aire_int
9370 raise AsException("type de concept resultat non prevu")
9372 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-D",reentrant='f',
9373 fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
9374 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
9375 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),
9376 EXCLUS('CHAM_GD','RESULTAT'),
9377 UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN', 'INDU_MUTU',
9378 'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
9379 'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
9380 'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
9381 PRESENT_PRESENT( 'MASS_INER', 'MODELE' ),
9382 PRESENT_PRESENT( 'CARA_GEOM', 'MODELE' ),
9383 PRESENT_PRESENT( 'AIRE_INTERNE', 'MODELE' ),
9384 PRESENT_PRESENT( 'CARA_POUTRE', 'MODELE' ),
9385 PRESENT_PRESENT( 'ENER_POT', 'MODELE', 'CHAM_MATER' ),
9386 PRESENT_PRESENT( 'ENER_CIN', 'MODELE', 'CHAM_MATER' ),
9387 PRESENT_PRESENT( 'INDU_MUTU', 'MODELE','CHARGE' ),
9388 PRESENT_PRESENT( 'WEIBULL', 'MODELE', 'CHAM_MATER' ),
9389 PRESENT_PRESENT( 'RICE_TRACEY', 'MODELE', 'CHAM_MATER' ),
9390 PRESENT_PRESENT( 'INDIC_ENER', 'MODELE', 'CHAM_MATER' ),
9391 PRESENT_PRESENT( 'INDIC_SEUIL', 'MODELE', 'CHAM_MATER' ),
9392 PRESENT_PRESENT( 'ENER_ELAS', 'MODELE', 'CHAM_MATER' ),
9393 PRESENT_PRESENT( 'ENER_TOTALE', 'MODELE', 'CHAM_MATER' ),
9394 PRESENT_PRESENT( 'CHAR_LIMITE', 'MODELE', 'CHAM_MATER' ),
9396 MODELE =SIMP(statut='o',typ=modele),
9397 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
9398 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
9399 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
9400 MODE_FOURIER =SIMP(statut='f',typ='I',defaut=0),
9401 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
9402 NIVE_COUCHE =SIMP(statut='f',typ='TXM',into=("INF","SUP","MOY"),defaut="MOY"),
9403 ANGLE =SIMP(statut='f',typ='I',defaut=0),
9404 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9405 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9406 GEOMETRIE =SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
9407 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
9408 RESULTAT =SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,mult_elas,fourier_elas) ),
9409 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9410 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9411 LIST_ORDRE =SIMP(statut='f',typ=listis),
9412 INST =SIMP(statut='f',typ='R',max='**'),
9413 LIST_INST =SIMP(statut='f',typ=listr8),
9414 FREQ =SIMP(statut='f',typ='R',max='**'),
9415 LIST_FREQ =SIMP(statut='f',typ=listr8),
9416 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9417 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
9418 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
9419 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
9420 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
9422 MASS_INER =FACT(statut='f',min=1,max='**',
9423 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9424 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9425 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9426 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9427 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9428 ORIG_INER =SIMP(statut='f',typ='R',min=3,max=3 ),
9431 ENER_POT =FACT(statut='f',min=1,max='**',
9432 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9433 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9434 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9435 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9436 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9439 ENER_CIN =FACT(statut='f',min=1,max='**',
9440 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9441 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9442 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9443 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9444 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9447 INDU_MUTU =FACT(statut='f',min=1,max='**',
9448 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9449 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9450 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9451 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9452 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9455 WEIBULL =FACT(statut='f',min=1,max='**',
9456 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9457 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9458 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9459 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9460 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9461 OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY")),
9462 CORR_PLAST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
9463 COEF_MULT =SIMP(statut='f',typ='R',defaut=1.),
9466 RICE_TRACEY =FACT(statut='f',min=1,max='**',
9467 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9468 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9469 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9470 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9471 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9472 OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY")),
9473 LOCAL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
9476 INDIC_ENER =FACT(statut='f',min=1,max='**',
9477 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9478 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9479 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9480 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9481 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9484 ENER_ELAS =FACT(statut='f',min=1,max='**',
9485 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9486 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9487 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9488 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9489 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9492 ENER_TOTALE =FACT(statut='f',min=1,max='**',
9493 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9494 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9495 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9496 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9497 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9500 CHAR_LIMITE =FACT(statut='f',min=00,max=01,
9501 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9502 TOUT =SIMP(statut='o',typ='TXM',into=("OUI",)),
9503 N =SIMP(statut='f',typ='R',max=1),
9506 INDIC_SEUIL =FACT(statut='f',min=1,max='**',
9507 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9508 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9509 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9510 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9511 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9514 CARA_GEOM =FACT(statut='f',min=1,max='**',
9515 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9516 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9517 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9518 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9519 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9520 SYME_X =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9521 SYME_Y =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9522 ORIG_INER =SIMP(statut='f',typ='R',min=2,max=2),
9525 CARA_POUTRE =FACT(statut='f',min=1,max='**',
9526 regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
9527 ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
9528 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9529 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9530 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9531 GROUP_MA_INTE =SIMP(statut='f',typ=grma,max='**'),
9532 CARA_GEOM =SIMP(statut='f',typ=tabl_cara_geom),
9533 LAPL_PHI =SIMP(statut='f',typ=evol_ther),
9534 LAPL_PHI_Y =SIMP(statut='f',typ=evol_ther),
9535 LAPL_PHI_Z =SIMP(statut='f',typ=evol_ther),
9536 LIAISON =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
9537 LONGUEUR =SIMP(statut='f',typ='R'),
9538 MATERIAU =SIMP(statut='f',typ=mater),
9539 OPTION =SIMP(statut='f',typ='TXM',into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
9542 AIRE_INTERNE =FACT(statut='f',min=1,max='**',
9543 GROUP_MA_BORD =SIMP(statut='o',typ=grma,max='**'),
9546 #& MODIF COMMANDE DATE 16/12/97 AUTEUR CIBHHLV L.VIVAN
9547 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-C",reentrant='n',
9548 fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
9549 regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
9550 PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
9551 UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
9552 MOMENT_SPEC_0 =SIMP(statut='f',typ='R'),
9553 MOMENT_SPEC_2 =SIMP(statut='f',typ='R'),
9554 MOMENT_SPEC_4 =SIMP(statut='f',typ='R'),
9555 TABL_POST_ALEA =SIMP(statut='f',typ=tabl_post_alea),
9556 COMPTAGE =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
9557 DUREE =SIMP(statut='f',typ='R',defaut= 1.),
9558 CORR_KE =SIMP(statut='f',typ='TXM',into=("RCCM",)),
9559 DOMMAGE =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
9560 MATER =SIMP(statut='o',typ=mater),
9561 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9563 #& MODIF COMMANDE DATE 01/10/97 AUTEUR CIBHHLV L.VIVAN
9564 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-C",reentrant='n',
9565 fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
9566 regles=(PRESENT_PRESENT('CORR_KE','MATER'),
9567 PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
9568 PRESENT_PRESENT('CRITERE','MATER'),
9569 PRESENT_PRESENT('DOMMAGE','MATER'),),
9570 HISTOIRE =FACT(statut='o',min=1,max=1,
9571 regles=(EXCLUS('SIGM','EPSI'),
9572 EXCLUS('SIGM','SIGM_XX'),
9573 EXCLUS('SIGM','SIGM_XZ'),
9574 EXCLUS('SIGM','SIGM_YZ'),
9575 EXCLUS('SIGM','EPSP'),
9576 EXCLUS('SIGM','TEMP',),
9577 EXCLUS('EPSI','SIGM_XX'),
9578 EXCLUS('EPSI','SIGM_XZ'),
9579 EXCLUS('EPSI','SIGM_YZ'),
9580 EXCLUS('EPSI','EPSP'),
9581 EXCLUS('EPSI','TEMP'),
9582 ENSEMBLE('SIGM_XX','SIGM_YY','SIGM_ZZ','SIGM_XY'),
9583 ENSEMBLE('SIGM_XZ','SIGM_YZ'),
9584 ENSEMBLE('EPSP','TEMP'),),
9585 SIGM =SIMP(statut='f',typ=fonction),
9586 EPSI =SIMP(statut='f',typ=fonction),
9587 SIGM_XX =SIMP(statut='f',typ=fonction),
9588 SIGM_YY =SIMP(statut='f',typ=fonction),
9589 SIGM_ZZ =SIMP(statut='f',typ=fonction),
9590 SIGM_XY =SIMP(statut='f',typ=fonction),
9591 SIGM_XZ =SIMP(statut='f',typ=fonction),
9592 SIGM_YZ =SIMP(statut='f',typ=fonction),
9593 EPSP =SIMP(statut='f',typ=fonction),
9594 TEMP =SIMP(statut='f',typ=fonction),
9596 COMPTAGE =SIMP(statut='f',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
9597 DELTA_OSCI =SIMP(statut='f',typ='R',defaut= 0.0E+0),
9598 COEF_MULT =FACT(statut='f',min=1,max=1,
9599 KT =SIMP(statut='f',typ='R'),
9601 CORR_KE =SIMP(statut='f',typ='TXM',into=("RCCM",)),
9602 CORR_SIGM_MOYE =SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
9603 TAHERI_NAPPE =SIMP(statut='f',typ=fonction),
9604 TAHERI_FONC =SIMP(statut='f',typ=fonction),
9605 CRITERE =SIMP(statut='f',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
9606 COEF_CORR =SIMP(statut='f',typ='R'),
9607 DOMMAGE =SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
9608 "TAHERI_MIXTE","LEMAITRE")),
9609 MATER =SIMP(statut='f',typ=mater),
9610 CUMUL =SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
9611 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9612 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9614 #& MODIF COMMANDE DATE 15/09/1999 AUTEUR F1BHHAJ J.ANGLES
9615 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
9616 fr=" ",docu="U4.GJ.30-A",
9617 TABLE =SIMP(statut='o',typ=tabl_post_rele),
9619 #& MODIF COMMANDE DATE 31/05/2000 AUTEUR CIBHHLV L.VIVAN
9620 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
9621 fr="Calcul des facteurs d intensité des contraintes par extrapolation du champ de déplacements sur les lèvres de la fissure",
9622 docu="U4.82.05-A",reentrant='n',
9623 regles=(PRESENT_PRESENT('REPERE','VECT_Y', ),),
9624 MODELISATION =SIMP(statut='o',typ='TXM',into=("3D",
9629 fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
9630 FOND_3D =SIMP(statut='f',typ=fond_fiss,fr="Fond de fissure issu de DEFI_FOND_FISS"),
9631 b_fond_3d =BLOC (condition="(FOND_3D != None)",
9632 MAILLAGE = SIMP(statut='o',typ=maillage),
9633 PRECISION = SIMP(statut='f',typ='R',defaut=0.001)
9635 MATER =SIMP(statut='o',typ=mater,fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
9636 TABL_DEPL_SUP =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
9637 TABL_DEPL_INF =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
9638 ABSC_CURV_MAXI =SIMP(statut='f',typ='R',fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
9639 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9640 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL",),fr="Les déplacements sont transportés dans le repère local à la fissure"),
9641 VECT_Y =SIMP(statut='f',typ='R',max='**',fr="Vecteur dont la projection sur le plan normal au segment de calcul défini l axe Y local"),
9642 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9644 #& MODIF COMMANDE DATE 27/04/98 AUTEUR CIBHHLV L.VIVAN
9645 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
9646 fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
9647 docu="U4.83.11-C",reentrant='n',
9648 MATER =SIMP(statut='o',typ=mater ),
9649 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
9650 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9651 OPTION =SIMP(statut='o',typ='TXM',max='**',
9657 SEGMENT =FACT(statut='o',min=01,max='**',fr="Segment sur lequel s effectue le depouillement",
9658 INTITULE =SIMP(statut='f',typ='TXM' ),
9659 CHEMIN =SIMP(statut='o',typ=(courbe,surface) ),
9661 TRANSITOIRE =FACT(statut='o',min=01,max='**',fr="transitoire à dépouiller",
9662 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
9663 INTITULE =SIMP(statut='f',typ='TXM' ),
9664 RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
9665 RESU_SIGM_THER =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
9666 NB_OCCUR =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
9667 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
9668 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9669 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9670 LIST_ORDRE =SIMP(statut='f',typ=listis ),
9671 INST =SIMP(statut='f',typ='R',max='**'),
9672 LIST_INST =SIMP(statut='f',typ=listr8 ),
9673 b_inst =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
9674 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9675 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
9679 #& MODIF COMMANDE DATE 11/10/2000 AUTEUR CIBHHLV L.VIVAN
9680 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-D",reentrant='n',
9681 fr="Relevé de valeurs et calculs d invariants avec stockage et organisation du relevé dans un concept de type table",
9682 ACTION =FACT(statut='o',min=01,max='**',
9683 regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
9684 EXCLUS('CHEMIN','GROUP_NO'),
9685 EXCLUS('CHEMIN','NOEUD'),
9686 PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
9687 UN_PARMI('RESULTAT','CHAM_GD'),
9688 UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
9689 PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
9690 PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
9691 ENSEMBLE('MOMENT','POINT'),
9692 PRESENT_PRESENT('MOMENT','RESULTANTE'),
9693 PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
9694 PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
9695 PRESENT_PRESENT('ORIGINE','AXE_Z'),),
9696 INTITULE =SIMP(statut='o',typ='TXM'),
9697 CHEMIN =SIMP(statut='f',typ=(courbe,surface) ),
9698 NOEUD =SIMP(statut='f',typ=no,max='**'),
9699 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9700 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9701 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9702 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9703 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
9704 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
9705 cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
9706 cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
9707 cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
9708 cham_elem_sief_c,cham_elem_epsi_c)),
9709 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
9710 mode_meca,mode_flamb,mode_acou,base_modale,
9711 mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
9712 b_extrac =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
9713 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
9714 'INST','LIST_INST','FREQ','LIST_FREQ','NOM_CAS'), ),
9715 NOM_CHAM =SIMP(statut='o',typ='TXM' ),
9716 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9717 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9718 LIST_ORDRE =SIMP(statut='f',typ=listis),
9719 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9720 LIST_MODE =SIMP(statut='f',typ=listis),
9721 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
9722 FREQ =SIMP(statut='f',typ='R',max='**'),
9723 LIST_FREQ =SIMP(statut='f',typ=listr8),
9724 INST =SIMP(statut='f',typ='R',max='**'),
9725 LIST_INST =SIMP(statut='f',typ=listr8),
9726 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
9727 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
9729 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",)),
9730 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
9731 INVARIANT =SIMP(statut='f',typ='TXM',into=("OUI",)),
9732 ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9733 RESULTANTE =SIMP(statut='f',typ='TXM',max='**'),
9734 MOMENT =SIMP(statut='f',typ='TXM',max='**'),
9735 POINT =SIMP(statut='f',typ='R',max='**'),
9737 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
9738 into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
9739 ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
9740 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
9741 AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
9743 TRAC_NOR =SIMP(statut='f',typ='TXM',into=("OUI",)),
9744 TRAC_DIR =SIMP(statut='f',typ='TXM',into=("OUI",)),
9745 DIRECTION =SIMP(statut='f',typ='R',max='**'),
9746 TRAC_DIRECTION =SIMP(statut='f',typ='TXM',into=("OUI",)),
9747 TRAC_NORMALE =SIMP(statut='f',typ='TXM',into=("OUI",)),
9749 VECT_Y =SIMP(statut='f',typ='R',max='**'),
9750 MOYE_NOEUD =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
9751 OPERATION =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE","MOYENNE_RCCM")),
9753 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9754 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9756 #& MODIF COMMANDE DATE 18/01/99 AUTEUR CIBHHBC B.CIREE
9757 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
9758 fr=" ",docu="U4.PS.10-A",reentrant='n',
9759 MATER =SIMP(statut='o',typ=(mater) ),
9760 DEF_EQUI =FACT(statut='f',min=01,max=01,
9761 METHODE =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
9762 into=("UTO_2_3",) ),
9763 EPAIS =SIMP(statut='o',typ='R'),
9764 LONG_FISS =SIMP(statut='o',typ='R'),
9765 LONG_LIGA_INT =SIMP(statut='o',typ='R'),
9766 DEXT =SIMP(statut='o',typ='R'),
9767 TEMP_ANALYSE =SIMP(statut='f',typ='R'),
9770 #& MODIF COMMANDE DATE 07/04/98 AUTEUR ACBHHCD G.DEVESA
9771 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-C",reentrant='f',
9772 fr="Calcul des volumes d'usure et des profondeurs d'usure",
9773 regles=(UN_PARMI('RESU_GENE','PUIS_USURE'),
9774 PRESENT_PRESENT('RESU_GENE','NOEUD'),
9775 UN_PARMI('INST','LIST_INST'),),
9776 ETAT_INIT =FACT(statut='f',min=01,max=01,
9777 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
9778 INST_INIT =SIMP(statut='f',typ='R'),
9780 RESU_GENE =SIMP(statut='f',typ=tran_gene),
9781 NOEUD =SIMP(statut='f',typ=no,max=1),
9782 INST_INIT =SIMP(statut='f',typ='R',defaut=-1.0E+0),
9783 INST_FIN =SIMP(statut='f',typ='R'),
9784 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
9785 PUIS_USURE =SIMP(statut='f',typ='R'),
9786 LOI_USURE =SIMP(statut='o',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
9787 b_archard =BLOC(condition = "LOI_USURE == 'ARCHARD'",
9788 regles=(EXCLUS('MATER_USURE','OBSTACLE'),
9789 EXCLUS('MOBILE','USURE_OBST'),),
9790 MOBILE =FACT(statut='f',min=01,max=01,
9791 COEF_USURE =SIMP(statut='o',typ='R'),
9793 OBSTACLE =FACT(statut='f',min=01,max=01,
9794 COEF_USURE =SIMP(statut='o',typ='R'),
9796 MATER_USURE =SIMP(statut='f',typ='TXM'),
9797 USURE_OBST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
9799 b_kwu_epri =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
9800 regles=(UN_PARMI('MOBILE','MATER_USURE'),
9801 EXCLUS('MATER_USURE','OBSTACLE'),
9802 EXCLUS('MOBILE','USURE_OBST'),),
9803 MOBILE =FACT(statut='f',min=01,max=01,
9804 COEF_FNOR =SIMP(statut='f',typ='R'),
9805 COEF_VTAN =SIMP(statut='f',typ='R'),
9806 COEF_USURE =SIMP(statut='f',typ='R'),
9807 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
9808 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
9810 OBSTACLE =FACT(statut='f',min=01,max=01,
9811 COEF_FNOR =SIMP(statut='f',typ='R' ),
9812 COEF_VTAN =SIMP(statut='f',typ='R' ),
9813 COEF_USURE =SIMP(statut='o',typ='R'),
9814 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
9815 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
9817 MATER_USURE =SIMP(statut='f',typ='TXM'),
9818 USURE_OBST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
9819 FNOR_MAXI =SIMP(statut='f',typ='R' ),
9820 VTAN_MAXI =SIMP(statut='f',typ='R' ),
9822 b_edf_mz =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
9823 regles=(UN_PARMI('MOBILE','MATER_USURE'),
9824 EXCLUS('MATER_USURE','OBSTACLE'),
9825 EXCLUS('MOBILE','USURE_OBST'),),
9826 MOBILE =FACT(statut='f',min=01,max=01,
9827 COEF_USURE =SIMP(statut='f',typ='R',defaut=1.0E-13),
9828 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
9829 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
9830 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
9832 OBSTACLE =FACT(statut='f',min=01,max=01,
9833 COEF_USURE =SIMP(statut='o',typ='R',defaut=1.0E-13),
9834 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
9835 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
9836 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
9838 MATER_USURE =SIMP(statut='f',typ='TXM'),
9839 USURE_OBST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
9841 SECTEUR =FACT(statut='f',min=01,max='**',
9842 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
9843 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
9844 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
9845 COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
9846 COEF_USUR_OBST =SIMP(statut='f',typ='R'),
9847 ANGL_INIT =SIMP(statut='f',typ='R'),
9848 ANGL_FIN =SIMP(statut='f',typ='R'),
9850 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
9851 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
9852 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
9853 LARGEUR_OBST =SIMP(statut='f',typ='R'),
9854 ANGL_INCLI =SIMP(statut='f',typ='R'),
9855 ANGL_ISTHME =SIMP(statut='f',typ='R'),
9856 ANGL_IMPACT =SIMP(statut='f',typ='R'),
9857 INST =SIMP(statut='f',typ='R',max='**'),
9858 LIST_INST =SIMP(statut='f',typ=listr8),
9859 COEF_INST =SIMP(statut='f',typ='R',defaut=1.0E+0),
9860 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9861 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9863 #& MODIF COMMANDE DATE 31/08/1999 AUTEUR G8BHHXD X.DESROCHES
9864 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-B",reentrant='n',
9865 fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
9866 MODELE =SIMP(statut='o',typ=modele),
9867 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
9868 EXCIT =FACT(statut='o',min=01,max='**',
9869 CHARGE =SIMP(statut='o',typ=char_meca),
9870 FONC_MULT =SIMP(statut='f',typ=fonction),
9871 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
9873 EVOL_ELAS =SIMP(statut='o',typ=evol_elas),
9874 b_evol_elas =BLOC(condition="EVOL_ELAS != None",
9875 regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
9876 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9877 LIST_INST =SIMP(statut='f',typ=listr8),
9878 INST =SIMP(statut='f',typ='R',max='**'),
9880 TEMP_ZAC =SIMP(statut='f',typ='R',defaut=0.0E+0),
9881 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
9882 b_evol_noli =BLOC(condition="EVOL_NOLI != None",
9883 INST_MAX =SIMP(statut='o',typ='R'),
9885 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
9886 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
9890 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
9891 docu="U4.11.03-f",sd_prod = ops.POURSUITE,
9892 op_init = ops.POURSUITE_context,fichier_ini = 1,
9893 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM' ),
9894 BASE =FACT(fr="définition des parmètres associés aux bases JEVEUX",
9895 statut='f',min=01,max=03,
9896 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM'),
9897 TITRE =SIMP(statut='f',typ='TXM'),
9898 CAS =SIMP(statut='f',typ='TXM'),
9899 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
9900 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
9901 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
9903 IMPRESSION =FACT(statut='f',min=01,max=03,
9904 FICHIER =SIMP(statut='o',typ='TXM'),
9905 UNITE =SIMP(statut='o',typ='I'),
9907 CATALOGUE =FACT(statut='f',min=01,max=10,
9908 FICHIER =SIMP(statut='o',typ='TXM'),
9909 TITRE =SIMP(statut='f',typ='TXM'),
9910 UNITE =SIMP(statut='f',typ='I'),
9912 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
9913 statut='f',min=01,max=01,
9914 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
9915 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
9916 JEVEUX =SIMP(fr="force les déchargement sur disque",
9917 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
9918 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
9919 statut='f',typ='TXM',into=('TES',)),
9921 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=01,max=01,
9922 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
9923 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
9924 TAILLE =SIMP(statut='f',typ='I'),
9925 PARTITION =SIMP(statut='f',typ='R' ),
9928 #& MODIF COMMANDE DATE 01/04/92 AUTEUR INCONNU INCONNU
9929 PRE_CHAR_IDEAS=PROC(nom="PRE_CHAR_IDEAS",op=100,docu="U7.01.02-E",
9930 fr="Conversion de conditions aux limites et chargements IDEAS en commandes Aster",
9931 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
9932 UNITE_ASTER =SIMP(statut='f',typ='I',defaut=21),
9933 MODELE =SIMP(statut='o',typ=modele),
9935 #& MODIF COMMANDE DATE 28/11/90 AUTEUR INCONNU INCONNU
9936 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-F",
9937 fr="Conversion d un fichier de maillage GIBI",
9938 UNITE_GIBI =SIMP(statut='f',typ='I',defaut=19),
9939 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
9941 #& MODIF COMMANDE DATE 23/04/92 AUTEUR INCONNU INCONNU
9942 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-F",
9943 fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
9944 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
9945 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
9947 #& MODIF COMMANDE DATE 16/06/2000 AUTEUR D6BHHJP J.P.LEFEBVRE
9948 PROCEDURE=PROC(nom="PROCEDURE",op=-3, docu="U4.13.03-E",
9949 fr="Nommer le fichier de commandes secondaires",
9950 NOM =SIMP(statut='f',typ='TXM',defaut=" "),
9952 #& MODIF COMMANDE DATE 11/07/95 AUTEUR CIBHHLV L.VIVAN
9953 def prod_matr_cham_prod(MATR_ASSE,**args):
9954 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
9955 if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
9956 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
9957 if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
9958 raise AsException("type de concept resultat non prevu")
9960 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
9961 fr="Effectuer le produit d une matrice par un vecteur",
9962 docu="U4.72.06-B",reentrant='n',
9963 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
9964 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
9965 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9967 #& MODIF COMMANDE DATE 12/05/99 AUTEUR VABHHTS J.PELLET
9968 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
9969 if AsType(RESULTAT) == evol_ther : return evol_ther
9970 if AsType(RESULTAT) == evol_elas : return evol_elas
9971 if AsType(RESULTAT) == evol_noli : return evol_noli
9972 if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
9973 if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
9974 if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
9975 if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
9976 if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
9977 if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
9978 if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
9979 raise AsException("type de concept resultat non prevu")
9981 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-C",reentrant='n',
9982 fr="Projection d un champ aux noeuds sur les noeuds d un autre maillage",
9984 METHODE =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
9985 into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
9986 b_nuage =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
9987 fr="Lissage d un nuage de points",
9988 CHAM_NO =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
9989 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
9990 CHAM_NO_REFE =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
9991 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
9993 b_elem =BLOC(condition="METHODE=='ELEM'",
9994 fr="Utilisation des fonctions de forme",
9995 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'), ),
9996 RESULTAT =SIMP(statut='f',typ=(evol_ther,evol_elas,evol_noli) ),
9997 MODELE_1 =SIMP(statut='f',typ=modele),
9998 MODELE_2 =SIMP(statut='f',typ=modele),
9999 TOUT_ORDRE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
10000 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
10001 LIST_ORDRE =SIMP(statut='f',typ=listis),
10002 INST =SIMP(statut='f',typ='R',max='**' ),
10003 LIST_INST =SIMP(statut='f',typ=listr8),
10004 FREQ =SIMP(statut='f',typ='R',max='**' ),
10005 LIST_FREQ =SIMP(statut='f',typ=listr8),
10008 VIS_A_VIS =FACT(statut='f',min=01,max='**',
10009 regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
10010 AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
10011 TOUT_1 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10012 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
10013 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
10014 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
10015 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
10016 TOUT_2 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10017 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
10018 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
10019 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
10020 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
10023 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10025 #& MODIF COMMANDE DATE 29/06/95 AUTEUR ACBHHJA G.JACQUART
10026 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op= 71,sd_prod=matr_asse_gene_r,
10027 fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
10028 docu="U4.63.12-E",reentrant='n',
10029 regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
10030 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
10031 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
10032 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
10033 MATR_ASSE =SIMP(statut='f',typ=matr_asse_depl_r ),
10034 MATR_ASSE_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
10037 #& MODIF COMMANDE DATE 27/06/2000 AUTEUR CIBHHBC B.CIREE
10038 def proj_mesu_modal_prod(MESURE,**args):
10039 vale=MESURE['NOM_PARA']
10040 if vale == 'INST' : return tran_gene
10041 raise AsException("type de concept resultat non prevu")
10043 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
10044 sd_prod=proj_mesu_modal_prod,
10045 docu="U4.73.01-A",reentrant='n',
10046 fr="Extrapolation de resultats experimentaux sur un modele numerique en dynamique",
10048 # commentaire C. Durand-13/10/2000 :
10049 #le mot cle NOM_PARA, par construction, vaut tjs INST : donc on retourne TRAN_GENE a chaque fois
10050 #def proj_mesu_modal_prod(**args):
10051 # vale=args['MESURE'].get_child('NOM_PARA').get_valeur()
10052 # if vale == 'INST' : return tran_gene
10053 # raise AsException("type de concept resultat non prevu")
10054 #PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,sd_prod=proj_mesu_modal_prod,)
10056 MODELE =SIMP(statut='f',typ=(modele) ),
10057 MASS_GENE =SIMP(statut='o',typ=(matr_asse_gene_r) ),
10058 RIGI_GENE =SIMP(statut='o',typ=(matr_asse_gene_r) ),
10059 MESURE =FACT(statut='o',min=01,max=01,
10060 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
10061 CARA_ELEM =SIMP(statut='o',typ=(cara_elem) ),
10062 UNITE =SIMP(statut='f',typ='I',defaut= 33 ),
10063 NOM_PARA =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST",) ),
10064 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10065 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
10066 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","SIGM_NOEU_DEPL","EPSI_NOEU_DEPL",) ),
10068 REGULARISATION =FACT(statut='f',min=01,max=01,
10069 regles=(UN_PARMI('COEF_PONDER','COEF_PONDER_F', ),),
10070 METHODE =SIMP(statut='f',typ='TXM',defaut="TIKHONOV",into=("TIKHONOV",) ),
10071 NORM_MIN =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
10072 COEF_PONDER =SIMP(statut='f',typ='R',max='**' ),
10073 COEF_PONDER_F =SIMP(statut='f',typ=(fonction),max='**' ),
10076 #& MODIF COMMANDE DATE 11/02/98 AUTEUR SABJLMA P.LATRUBESSE
10077 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-C",reentrant='n',
10078 fr="Projection d un ou plusieurs spectres de turbulence, définis par DEFI_SPEC_TURB, sur un ensemble de bases modales ",
10079 regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
10080 ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
10081 SPEC_TURB =SIMP(statut='o',typ=spectre,max='**' ),
10082 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
10083 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
10084 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
10085 FREQ_INIT =SIMP(statut='f',typ='R' ),
10086 FREQ_FIN =SIMP(statut='f',typ='R' ),
10087 NB_POIN =SIMP(statut='f',typ='I' ),
10088 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
10089 GROUP_MA =SIMP(statut='f',typ=grma),
10090 # Quel est le type attendu derriere MODELE_INTERFACE
10091 MODELE_INTERFACE=SIMP(statut='f',typ=modele),
10092 VECT_X =SIMP(statut='f',typ='R',min=03,max=03 ),
10093 VECT_Y =SIMP(statut='f',typ='R',min=03,max=03 ),
10094 ORIG_AXE =SIMP(statut='f',typ='R',min=03,max=03 ),
10095 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10097 #& MODIF COMMANDE DATE 29/06/95 AUTEUR ACBHHJA G.JACQUART
10098 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op= 72,sd_prod=vect_asse_gene,
10099 fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
10100 docu="U4.63.13-E",reentrant='n',
10101 regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
10102 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
10103 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
10104 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
10105 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
10106 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
10107 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene ),
10109 #& MODIF COMMANDE DATE 25/09/2000 AUTEUR T2BAXJM R.MASSON
10110 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
10111 fr=" ",docu="U4.82.06-A",reentrant='n',
10112 LIST_PARA =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
10113 RESU =FACT(statut='o',min=01,max='**',
10114 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
10115 AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
10116 EVOL_NOLI =SIMP(statut='o',typ=(evol_noli) ),
10117 MODELE =SIMP(statut='o',typ=(modele) ),
10118 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
10119 TEMPE =SIMP(statut='f',typ='R' ),
10120 LIST_INST_RUPT =SIMP(statut='o',typ='R',max='**' ),
10121 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10122 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
10123 INST =SIMP(statut='f',typ='R',max='**' ),
10124 LIST_INST =SIMP(statut='f',typ=(listr8) ),
10125 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.E0 ),
10126 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10127 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10128 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10129 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.E0 ),
10131 OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
10132 CORR_PLAST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
10133 METHODE =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
10134 INCO_GLOB_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10135 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
10136 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
10138 #& MODIF COMMANDE DATE 07/06/2000 AUTEUR VABHHTS J.PELLET
10139 def recu_champ_prod(NOM_CHAM,RESULTAT,**args ):
10140 if AsType(RESULTAT) == dyna_harmo : return cham_no_depl_c
10141 if NOM_CHAM == "GEOMETRIE" : return cham_no_geom_r
10142 if NOM_CHAM == "DEPL" : return cham_no_depl_r
10143 if NOM_CHAM == "DEPL_ABSOLU" : return cham_no_depl_r
10144 if NOM_CHAM == "VITE" : return cham_no_depl_r
10145 if NOM_CHAM == "VITE_ABSOLU" : return cham_no_depl_r
10146 if NOM_CHAM == "ACCE" : return cham_no_depl_r
10147 if NOM_CHAM == "ACCE_ABSOLU" : return cham_no_depl_r
10148 if NOM_CHAM == "TEMP" : return cham_no_temp_r
10149 if NOM_CHAM == "FORC_NODA" : return cham_no_depl_r
10150 if NOM_CHAM == "REAC_NODA" : return cham_no_depl_r
10151 if NOM_CHAM == "EPSI_NOEU_DEPL" : return cham_no_sief_r
10152 if NOM_CHAM == "SIGM_NOEU_CART" : return cham_no_sief_r
10153 if NOM_CHAM == "SIGM_NOEU_DEPL" : return cham_no_sief_r
10154 if NOM_CHAM == "SIGM_NOEU_VARI" : return cham_no_sief_r
10155 if NOM_CHAM == "SIGM_NOEU_SIEF" : return cham_no_sief_r
10156 if NOM_CHAM == "SIPO_NOEU_SIEF" : return cham_no_sief_r
10157 if NOM_CHAM == "EFGE_NOEU_CART" : return cham_no_sief_r
10158 if NOM_CHAM == "EFGE_NOEU_DEPL" : return cham_no_sief_r
10159 if NOM_CHAM == "EQUI_NOEU_SIGM" : return cham_no_sief_r
10160 if NOM_CHAM == "EQUI_NOEU_EPSI" : return cham_no_sief_r
10161 if NOM_CHAM == "FLUX_NOEU_TEMP" : return cham_no_flux_r
10162 if NOM_CHAM == "SIGM_NOZ1_ELGA" : return cham_no_sief_r
10163 if NOM_CHAM == "SIGM_NOZ2_ELGA" : return cham_no_sief_r
10164 if NOM_CHAM == "INTE_NOEU_ACTI" : return cham_no_inte_r
10165 if NOM_CHAM == "INTE_NOEU_REAC" : return cham_no_inte_r
10166 if NOM_CHAM == "PRES_NOEU_DBEL" : return cham_no_dbel_r
10167 if NOM_CHAM == "PRES_NOEU_IMAG" : return cham_no_pres_r
10168 if NOM_CHAM == "PRES_NOEU_REEL" : return cham_no_pres_r
10169 if NOM_CHAM == "VARI_NOEU_ELGA" : return cham_no_var2_r
10170 if NOM_CHAM == "META_NOEU_TEMP" : return cham_no_var2_r
10171 if NOM_CHAM == "GRAD_NOEU_THETA": return cham_no_var2_r
10172 if NOM_CHAM == "PHASMETA" : return cham_elem_meta_r
10173 if NOM_CHAM == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
10174 if NOM_CHAM == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
10175 if NOM_CHAM == "EFGE_ELNO_CART" : return cham_elem_sief_r
10176 if NOM_CHAM == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
10177 if NOM_CHAM == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
10178 if NOM_CHAM == "EPSG_ELGA_DEPL" : return cham_elem_epsi_r
10179 if NOM_CHAM == "EPSG_ELNO_DEPL" : return cham_elem_epsi_r
10180 if NOM_CHAM == "EPSP_ELGA" : return cham_elem_epsi_r
10181 if NOM_CHAM == "EPSP_ELNO" : return cham_elem_epsi_r
10182 if NOM_CHAM == "EPSI_ELGA_DEPL" : return cham_elem_epsi_r
10183 if NOM_CHAM == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
10184 if NOM_CHAM == "EPSA_ELNO" : return cham_elem_epsi_r
10185 if NOM_CHAM == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
10186 if NOM_CHAM == "EQUI_ELGA_EPSI" : return cham_elem_sief_r
10187 if NOM_CHAM == "EQUI_ELNO_EPSI" : return cham_elem_sief_r
10188 if NOM_CHAM == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
10189 if NOM_CHAM == "ERRE_ELEM_NOZ1" : return cham_elem_erreur
10190 if NOM_CHAM == "ERRE_ELEM_NOZ2" : return cham_elem_erreur
10191 if NOM_CHAM == "ERRE_ELGA_NORE" : return cham_elem_erreur
10192 if NOM_CHAM == "ERRE_ELNO_ELGA" : return cham_elem_erreur
10193 if NOM_CHAM == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
10194 if NOM_CHAM == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
10195 if NOM_CHAM == "INTE_ELNO_ACTI" : return cham_elem_inte_r
10196 if NOM_CHAM == "INTE_ELNO_REAC" : return cham_elem_inte_r
10197 if NOM_CHAM == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
10198 if NOM_CHAM == "PRES_ELNO_IMAG" : return cham_elem_pres_r
10199 if NOM_CHAM == "PRES_ELNO_REEL" : return cham_elem_pres_r
10200 if NOM_CHAM == "SIEF_ELGA" : return cham_elem_sief_r
10201 if NOM_CHAM == "SIEF_ELNO" : return cham_elem_sief_r
10202 if NOM_CHAM == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
10203 if NOM_CHAM == "SIGM_ELNO_CART" : return cham_elem_sief_r
10204 if NOM_CHAM == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
10205 if NOM_CHAM == "SIGM_ELNO_VARI" : return cham_elem_sief_r
10206 if NOM_CHAM == "SIGM_ELNO_SIEF" : return cham_elem_sief_r
10207 if NOM_CHAM == "SIPO_ELNO_SIEF" : return cham_elem_sief_r
10208 if NOM_CHAM == "SIEF_ELNO_ELGA" : return cham_elem_sief_r
10209 if NOM_CHAM == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
10210 if NOM_CHAM == "SIRE_ELNO_DEPL" : return cham_elem_sief_r
10211 if NOM_CHAM == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
10212 if NOM_CHAM == "VARI_ELGA" : return cham_elem_vari_r
10213 if NOM_CHAM == "VARI_ELNO" : return cham_elem_vari_r
10214 if NOM_CHAM == "VARI_ELNO_ELGA" : return cham_elem_vari_r
10215 if NOM_CHAM == "VNOR_ELEM_DEPL" : return cham_elem_vnor_c
10216 if NOM_CHAM == "DCHA_ELGA_SIGM" : return cham_elem_vari_r
10217 if NOM_CHAM == "DCHA_ELNO_SIGM" : return cham_elem_vari_r
10218 if NOM_CHAM == "RADI_ELGA_SIGM" : return cham_elem_vari_r
10219 if NOM_CHAM == "RADI_ELNO_SIGM" : return cham_elem_vari_r
10220 if NOM_CHAM == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
10221 if NOM_CHAM == "ENDO_ELNO_SIGA" : return cham_elem_sief_r
10222 if NOM_CHAM == "ENDO_ELNO_SINO" : return cham_elem_sief_r
10223 if NOM_CHAM == "EPME_ELNO_DEPL" : return cham_elem_epsi_r
10224 if NOM_CHAM == "EPME_ELGA_DEPL" : return cham_elem_epsi_r
10225 if NOM_CHAM == "EPME_ELNO_DPGE" : return cham_elem_epsi_r
10226 if NOM_CHAM == "EPMG_ELNO_DEPL" : return cham_elem_epsi_r
10227 if NOM_CHAM == "EPMG_ELGA_DEPL" : return cham_elem_epsi_r
10228 if NOM_CHAM == "THETA" : return cham_no_depl_r
10229 if NOM_CHAM == "GRAD_ELGA_THETA" : return cham_elem_g_depl
10230 if NOM_CHAM == "GRAD_ELNO_ELGA" : return cham_elem_g_depl
10231 if NOM_CHAM == "HYDR_ELGA" : return cham_elem_hydr_r
10232 raise AsException("type de concept resultat non prevu")
10234 RECU_CHAMP=OPER(nom="RECU_CHAMP",op= 59,sd_prod=recu_champ_prod,
10235 fr="Récupération dans un résultat composé d un seul champ aux noeuds ou par éléments",
10236 docu="U4.71.01-F",reentrant='n',
10237 regles=(UN_PARMI('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL', ),
10238 UN_PARMI('RESULTAT','MAILLAGE'),),
10239 # creer une structure de donnees RESULTAT global
10240 RESULTAT =SIMP(statut='f',typ=resultat),
10241 MAILLAGE =SIMP(statut='f',typ=maillage),
10242 NOM_CHAM =SIMP(statut='o',typ='TXM',
10243 into=( "DEPL","VITE","ACCE","DEPL_ABSOLU",
10244 "VITE_ABSOLU","TEMP","ACCE_ABSOLU","FORC_NODA",
10245 "REAC_NODA","EFGE_NOEU_DEPL","EFGE_NOEU_CART",
10246 "EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
10247 "SIGM_NOEU_CART","SIPO_NOEU_DEPL",
10248 "EQUI_NOEU_SIGM","EQUI_NOEU_EPSI",
10249 "FLUX_NOEU_TEMP","FLUX_ELGA_TEMP",
10250 "FLUX_ELNO_TEMP","META_ELGA_TEMP",
10251 "META_ELNO_TEMP","META_NOEU_TEMP",
10252 "DURT_ELGA_META","DURT_ELNO_META",
10253 "DURT_NOEU_META","SIEF_ELGA","SIEF_ELNO_ELGA",
10254 "SIEF_ELGA_DEPL","VARI_ELNO_ELGA","VARI_ELGA",
10255 "EPOT_ELEM_DEPL","ECIN_ELEM_DEPL",
10256 "SOUR_ELGA_ELEC","PRES_ELNO_REEL",
10257 "PRES_ELNO_IMAG","PRES_ELNO_DBEL",
10258 "INTE_ELNO_ACTI","INTE_ELNO_REAC",
10259 "EFGE_ELNO_DEPL","SIGM_ELNO_DEPL",
10260 "EFGE_ELNO_CART","SIGM_ELNO_CART",
10261 "SIPO_ELNO_DEPL","EPSI_ELNO_DEPL",
10262 "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL",
10263 "EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
10264 "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
10265 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
10266 "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
10267 "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
10268 "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
10269 "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
10270 "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
10271 "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
10272 "PRES_NOEU_DBEL","PRES_NOEU_REEL",
10273 "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
10274 "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
10275 "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
10276 "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
10277 "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
10278 "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
10279 "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
10280 "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
10281 "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
10282 "GTHE_ELNO_ELGA","GRAD_NOEU_THETA","HYDR_ELGA",
10283 "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",) ),
10284 TYPE_MAXI =SIMP(statut='f',typ='TXM',
10285 into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN") ),
10286 NUME_ORDRE =SIMP(statut='f',typ='I' ),
10287 INST =SIMP(statut='f',typ='R' ),
10288 FREQ =SIMP(statut='f',typ='R' ),
10289 NUME_MODE =SIMP(statut='f',typ='I' ),
10290 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**' ),
10291 NOM_CAS =SIMP(statut='f',typ='TXM' ),
10292 ANGL =SIMP(statut='f',typ='R' ),
10293 b_prec_crit =BLOC(condition = "(INST != None) or (FREQ != None)",
10294 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10295 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10296 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
10298 b_type_maxi =BLOC(condition = "TYPE_MAXI != None",
10299 regles=(EXCLUS('TOUT_ORDRE','LIST_INST' ),),
10300 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST") ),
10301 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10302 LIST_INST =SIMP(statut='f',typ=listr8 ),
10303 b_prec_crit =BLOC(condition = "(INST != None) or (FREQ != None)",
10304 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10305 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10308 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10310 #& MODIF COMMANDE DATE 28/06/2000 AUTEUR CIBHHLV L.VIVAN
10311 def recu_fonction_prod(RESULTAT=None,OBSTACLE=None,TABLE=None,RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,TYPE_RESU=None,**args):
10312 if AsType(RESULTAT) == dyna_harmo : return fonction_c
10313 # On ne sait pas interpreter les deux conditions suivantes
10315 if TYPE_RESU != None :
10316 if TYPE_RESU == "FONCTION_C" : return fonction_c
10317 if TYPE_RESU == "FONCTION" : return fonction
10320 if RESU_GENE != None : return fonction
10321 if BASE_ELAS_FLUI != None : return fonction
10322 if RESULTAT != None : return fonction
10323 if CHAM_GD != None : return fonction
10324 if OBSTACLE != None : return fonction
10325 raise AsException("type de concept resultat non prevu")
10327 RECU_FONCTION=OPER(nom="RECU_FONCTION",op= 90,sd_prod=recu_fonction_prod,
10328 fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
10329 docu="U4.32.03-E",reentrant='n',
10330 regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
10332 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
10333 cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
10334 cham_elem_pres_r,cham_elem_meta_r ) ),
10335 RESULTAT =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
10336 RESU_GENE =SIMP(statut='f',typ=tran_gene),
10337 # concept table à créer
10338 TABLE =SIMP(statut='f',typ=table),
10339 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu),
10340 REPERE =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
10341 OBSTACLE =SIMP(statut='f',typ=obstacle),
10343 b_tran_gene = BLOC ( condition = "RESU_GENE != None",fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
10344 regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
10345 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),),
10346 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
10347 CORR_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10348 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
10349 PARA_X =SIMP(statut='f',typ='TXM' ),
10350 PARA_Y =SIMP(statut='f',typ='TXM' ),
10351 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
10352 LIST_PARA =SIMP(statut='f',typ=listr8 ),
10353 INTITULE =SIMP(statut='f',typ='TXM' ),
10355 b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",fr="Récupération de la fonction à partir d un concept melasflu",
10356 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
10357 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10358 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10359 NUME_MODE =SIMP(statut='o',typ='I' ),
10360 PARA_X =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
10361 PARA_Y =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
10363 b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
10364 regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
10365 PRESENT_PRESENT('PARA_X','PARA_Y'),),
10366 PARA_X =SIMP(statut='f',typ='TXM',
10367 fr="1ère colonne de la table qui définit la fonction à récupérer", ),
10368 PARA_Y =SIMP(statut='f',typ='TXM',
10369 fr="2ème colonne de la table qui définit la fonction à récupérer", ),
10370 NOM_PARA_TABL =SIMP(statut='f',typ='TXM',into=("FONCTION",),
10371 fr="Nom du paramètre de la table à qui est associé la fonction" ),
10372 b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
10373 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
10375 FILTRE =FACT(statut='f',min=01,max='**',
10376 regles=(UN_PARMI('VALE','VALE_I','VALE_C','VALE_K','VALE_CO'),),
10377 NOM_PARA =SIMP(statut='o',typ='TXM' ),
10378 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
10379 into=("EQ","LT","GT",
10381 "VIDE","NON_VIDE",) ),
10382 VALE =SIMP(statut='f',typ='R' ),
10383 VALE_I =SIMP(statut='f',typ='I' ),
10384 VALE_C =SIMP(statut='f',typ='C' ),
10385 VALE_K =SIMP(statut='f',typ='TXM' ),
10386 VALE_CO =SIMP(statut='f',typ=geom),
10387 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10388 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10392 b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
10394 # A voir par Matthieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
10395 # UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
10396 AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
10397 PRESENT_PRESENT('MAILLE','NOM_CMP'),
10398 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
10399 PRESENT_PRESENT('NOEUD','NOM_CMP'),
10400 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
10401 PRESENT_PRESENT('POINT','NOM_CMP'),
10402 EXCLUS('POINT','NOEUD'),
10403 EXCLUS('GROUP_MA','MAILLE'),
10404 EXCLUS('GROUP_NO','NOEUD'),
10405 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
10406 # A voir par Matthieu Courtois : les champs INTO de NOM_CHAM
10407 # NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
10408 NOM_CHAM =SIMP(statut='f',typ='TXM' ),
10409 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10410 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10411 LIST_ORDRE =SIMP(statut='f',typ=listis ),
10412 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10413 INST =SIMP(statut='f',typ='R',max='**'),
10414 LIST_INST =SIMP(statut='f',typ=listr8 ),
10415 FREQ =SIMP(statut='f',typ='R',max='**'),
10416 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
10417 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
10418 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10419 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10420 INTERP_NUME =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN") ),
10422 NOM_CMP =SIMP(statut='f',typ='TXM' ),
10424 MAILLE =SIMP(statut='f',typ=ma),
10425 GROUP_MA =SIMP(statut='f',typ=grma),
10426 NOEUD =SIMP(statut='f',typ=no),
10427 GROUP_NO =SIMP(statut='f',typ=grno),
10428 POINT =SIMP(statut='f',typ='I' ),
10429 NOEUD_CHOC =SIMP(statut='f',typ=no),
10430 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
10433 b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
10434 # A voir par Matthieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
10435 # regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
10436 # A voir par Matthieu Courtois : les champs INTO de NOM_CHAM
10437 # A voir par Matthieu Courtois : NOM_CHAM facultatif et non obligatoire
10438 # NOM_CHAM =SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
10439 NOM_CHAM =SIMP(statut='f',typ='TXM' ),
10440 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10441 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10442 LIST_ORDRE =SIMP(statut='f',typ=listis ),
10443 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10444 INST =SIMP(statut='f',typ='R',max='**'),
10445 LIST_INST =SIMP(statut='f',typ=listr8 ),
10446 FREQ =SIMP(statut='f',typ='R',max='**'),
10447 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
10448 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
10449 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10450 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10451 INTERP_NUME =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN") ),
10453 b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
10454 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
10455 PRESENT_PRESENT('MAILLE','NOM_CMP'),
10456 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
10457 PRESENT_PRESENT('NOEUD','NOM_CMP'),
10458 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
10459 PRESENT_PRESENT('POINT','NOM_CMP'),
10460 EXCLUS('POINT','NOEUD'),
10461 EXCLUS('GROUP_MA','MAILLE'),
10462 EXCLUS('GROUP_NO','NOEUD'),
10463 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
10464 NOM_CMP =SIMP(statut='f',typ='TXM' ),
10466 MAILLE =SIMP(statut='f',typ=ma),
10467 GROUP_MA =SIMP(statut='f',typ=grma),
10468 NOEUD =SIMP(statut='f',typ=no),
10469 GROUP_NO =SIMP(statut='f',typ=grno),
10470 POINT =SIMP(statut='f',typ='I' ),
10471 NOEUD_CHOC =SIMP(statut='f',typ=no),
10472 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
10476 b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
10477 # A voir par Matthieu Courtois : les champs INTO de NOM_CHAM
10478 # A voir par Matthieu Courtois : NOM_CHAM facultatif et non obligatoire
10479 # NOM_CHAM =SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
10480 NOM_CHAM =SIMP(statut='f',typ='TXM' ),
10481 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
10482 PRESENT_PRESENT('MAILLE','NOM_CMP'),
10483 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
10484 PRESENT_PRESENT('NOEUD','NOM_CMP'),
10485 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
10486 PRESENT_PRESENT('POINT','NOM_CMP'),
10487 EXCLUS('POINT','NOEUD'),
10488 EXCLUS('GROUP_MA','MAILLE'),
10489 EXCLUS('GROUP_NO','NOEUD'),
10490 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
10491 NOM_CMP =SIMP(statut='f',typ='TXM' ),
10493 MAILLE =SIMP(statut='f',typ=ma),
10494 GROUP_MA =SIMP(statut='f',typ=grma),
10495 NOEUD =SIMP(statut='f',typ=no),
10496 GROUP_NO =SIMP(statut='f',typ=grno),
10497 POINT =SIMP(statut='f',typ='I' ),
10498 NOEUD_CHOC =SIMP(statut='f',typ=no),
10499 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
10502 NOM_PARA =SIMP(statut='f',typ='TXM',
10503 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10504 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
10505 NOM_RESU =SIMP(statut='f',typ='TXM' ),
10506 INTERPOL =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
10507 PROL_DROIT =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10508 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10510 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10511 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
10513 #& MODIF COMMANDE DATE 03/03/97 AUTEUR A2BHHWS A.C.LEGER
10514 RECU_GENE=OPER(nom="RECU_GENE",op= 76,sd_prod=vect_asse_gene,docu="U4.71.03-E",reentrant='n',
10515 fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
10516 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
10517 INST =SIMP(statut='o',typ='R' ),
10518 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
10519 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
10520 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
10521 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10523 #& MODIF COMMANDE DATE 22/07/99 AUTEUR CIBHHLV L.VIVAN
10524 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
10525 fr=" ",docu="U4.71.02-A",reentrant='n',
10526 CO =SIMP(statut='o',typ=assd),
10527 NOM_TABLE =SIMP(statut='o',typ='TXM' ),
10528 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10530 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR VABHHTS J.PELLET
10531 def reso_grad_prod(MATR_ASSE,**args ):
10532 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
10533 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
10534 if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
10535 raise AsException("type de concept resultat non prevu")
10537 RESO_GRAD=OPER(nom="RESO_GRAD",op= 84,sd_prod=reso_grad_prod,
10538 fr="Résolution par la méthode du gradient conjugué préconditionné",
10539 docu="U4.55.04-E",reentrant='f',
10540 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10541 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
10542 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
10543 MATR_FACT =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10544 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
10545 REPRISE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10546 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1E-6 ),
10547 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
10549 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
10550 def reso_ldlt_prod(CHAM_NO,**args ):
10551 if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
10552 if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
10553 if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
10554 if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
10555 if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
10556 if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
10557 raise AsException("type de concept resultat non prevu")
10559 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
10560 fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-F",
10561 MATR_FACT =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
10562 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
10563 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
10564 cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
10565 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
10566 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10567 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
10569 #& MODIF COMMANDE DATE 31/05/2000 AUTEUR CIBHHLV L.VIVAN
10570 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
10571 if AsType(RESU_GENE) == tran_gene : return dyna_trans
10572 if AsType(RESU_GENE) == mode_gene : return mode_meca
10573 if AsType(RESU_GENE) == mode_cycl : return mode_meca
10574 if AsType(RESU_GENE) == harm_gene : return dyna_harmo
10575 if AsType(RESULTAT) == mode_meca : return mode_meca
10576 raise AsException("type de concept resultat non prevu")
10578 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op= 75,sd_prod=rest_base_phys_prod,
10579 fr="Restituer dans la base physique des résultats en coordonnées généralisées",
10580 docu="U4.63.21-E",reentrant='n',
10581 regles=(UN_PARMI('RESU_GENE','RESULTAT'),
10582 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
10583 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
10585 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
10586 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
10587 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
10588 EXCLUS('NOEUD','GROUP_NO'),
10589 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
10590 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
10591 RESU_GENE =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
10592 RESULTAT =SIMP(statut='f',typ=mode_meca ),
10594 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
10595 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10596 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
10597 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10598 INST =SIMP(statut='f',typ='R',max='**' ),
10599 LIST_INST =SIMP(statut='f',typ=listr8 ),
10600 FREQ =SIMP(statut='f',typ='R',max='**' ),
10601 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
10602 b_prec_crit =BLOC(condition = "INST != None or LIST_INST != None or FREQ != None or LIST_FREQ != None",
10603 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
10604 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10606 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
10608 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10609 CORR_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10610 NOM_CHAM =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
10611 into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
10612 "SIGM_ELNO_DEPL","FORC_NODA",) ),
10613 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10614 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10615 NOEUD =SIMP(statut='f',typ=no,max='**'),
10617 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
10618 DIRECTION =SIMP(statut='f',typ='R',max='**' ),
10620 SQUELETTE =SIMP(statut='f',typ=squelette ),
10621 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
10622 SECTEUR =SIMP(statut='f',typ='I',defaut= 1 ),
10623 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10625 #& MODIF COMMANDE DATE 16/12/97 AUTEUR CIBHHLV L.VIVAN
10626 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
10627 fr="Calcul, à partir d un interspectre de réponse modale, de la réponse d une structure dans la base physique, à certains noeuds sélectionnés du maillage",
10628 docu="U4.63.22-C",reentrant='n',
10629 regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
10630 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
10631 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
10632 BANDE =SIMP(statut='f',typ='R',min=02,max=02 ),
10633 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
10634 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
10635 NOEUD =SIMP(statut='o',typ=no,max='**'),
10636 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
10637 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10638 NOM_CHAM =SIMP(statut='o',typ='TXM',max=07,
10639 into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
10640 "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
10641 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
10642 EXCIT =FACT(statut='f',max=01,
10643 NOEUD =SIMP(statut='o',typ=no,max='**'),
10644 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
10646 MOUVEMENT =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
10647 OPTION =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
10648 into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
10649 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10651 #& MODIF COMMANDE DATE 16/06/2000 AUTEUR D6BHHJP J.P.LEFEBVRE
10652 RETOUR=PROC(nom="RETOUR",op= -2,docu="U4.13.02-E",
10653 fr="Retour au fichier de commandes appelant",
10655 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
10656 # RESPONSABLE GJBHHEL E.LORENTZ
10657 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
10658 fr="Analyse mécanique statique non linéaire",
10659 docu="U4.51.03-E",reentrant='f',
10660 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),
10661 EXCLUS('RECH_LINEAIRE','PILOTAGE'), ),
10662 MODELE =SIMP(statut='o',typ=modele),
10663 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
10664 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
10665 EXCIT =FACT(statut='o',min=01,max='**',
10666 CHARGE =SIMP(statut='o',typ=char_meca),
10667 FONC_MULT =SIMP(statut='f',typ=fonction),
10668 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
10669 into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
10671 COMP_INCR =FACT(statut='f',min=01,max='**',
10672 RELATION =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
10680 "BETON_ENDO_LOCAL",
10726 "GRILLE_ISOT_LINE",
10727 "GRILLE_CINE_LINE",
10728 "GRILLE_PINTO_MEN",
10747 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10748 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10749 VMIS_ISOT_LINE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10750 VMIS_ECMI_TRAC =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
10751 VMIS_ECMI_LINE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
10752 ENDO_LOCAL =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10753 ENDO_FRAGILE =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10754 BETON_ENDO_LOCAL=SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10755 RUPT_FRAG =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10756 PLAS_GRAD =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10757 DURC_GRAD =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10758 META_PL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10759 META_PL_PT =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10760 META_PL_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10761 META_PL_PT_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10762 META_VL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10763 META_VL_PT =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10764 META_VL_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10765 META_VL_PT_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10766 META_PNL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10767 META_PNL_PT =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10768 META_PNL_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10769 META_PNL_PT_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10770 META_VNL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10771 META_VNL_PT =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10772 META_VNL_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10773 META_VNL_PT_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10774 VMIS_CINE_LINE =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
10775 CHABOCHE =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
10776 VISCOCHAB =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
10777 VMIS_CIN1_CHAB =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
10778 VMIS_CIN2_CHAB =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
10779 POLY_CFC =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
10780 LMARC =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
10781 TAHERI =SIMP(statut='c',typ='I',defaut=15,into=(15,)),
10782 VISC_TAHERI =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
10783 ROUSSELIER =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
10784 VMIS_POU_LINE =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
10785 VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
10786 COULOMB =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10787 ASSE_CORN =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10788 ARME =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10789 NORTON_HOFF =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10790 LEMAITRE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10791 ZIRC_CYRA2 =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10792 ZIRC_EPRI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10793 ASSE_COMBU =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10794 NADAI_B =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
10795 VENDOCHAB =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
10796 GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10797 GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10798 GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
10799 DIS_CONTACT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
10800 DIS_CHOC =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
10801 DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10802 DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10803 PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
10804 CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
10805 OHNO =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
10806 GRANGER_FP =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
10807 GRANGER_FP_V =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
10808 BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10809 KIT_HM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10810 KIT_HHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10811 KIT_THH =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10812 KIT_THM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10813 KIT_THHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10814 VMIS_ASYM_LINE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10816 RELATION_KIT =SIMP(statut='f',typ='TXM',max='**',
10854 ELAS_THM =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10855 SURF_ETAT_NSAT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10856 SURF_ETAT_SATU =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10857 CAM_CLAY_THM =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
10858 GAZ =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10859 LIQU_SATU =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10860 LIQU_SATU_GAT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10861 LIQU_GAZ_ATM =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10862 LIQU_VAPE_GAZ =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
10863 LIQU_NSAT_GAT =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
10864 LIQU_GAZ =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10865 THER_HOMO =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10866 THER_POLY =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10867 HYDR_UTIL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10868 HYDR =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10869 ACIER =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
10870 ZIRC =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10872 COQUE_NCOU =SIMP(statut='f',typ='I'),
10873 TUYAU_NCOU =SIMP(statut='f',typ='I' ),
10874 TUYAU_NSEC =SIMP(statut='f',typ='I' ),
10875 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE")),
10876 ALGO_C_PLAN =SIMP(statut='f',typ='TXM',into=("DEBORST",)),
10877 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10878 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10879 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10881 COMP_ELAS =FACT(statut='f',min=01,max='**',
10882 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
10883 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
10884 "ELAS_POUTRE_GR","CABLE")),
10885 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10886 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10887 ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10888 ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
10889 CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10890 COQUE_NCOU =SIMP(statut='f',typ='I'),
10891 TUYAU_NCOU =SIMP(statut='f',typ='I'),
10892 TUYAU_NSEC =SIMP(statut='f',typ='I'),
10893 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
10894 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10895 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10896 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10898 ETAT_INIT =FACT(statut='f',min=01,max=01,
10899 regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
10900 EXCLUS('EVOL_NOLI','DEPL',),
10901 EXCLUS('EVOL_NOLI','SIGM',),
10902 EXCLUS('EVOL_NOLI','VARI',),
10903 EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
10904 EXCLUS('NUME_ORDRE','INST'), ),
10905 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
10906 SIGM =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
10907 VARI =SIMP(statut='f',typ=cham_elem_vari_r),
10908 VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_vanl_r),
10909 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
10910 NUME_ORDRE =SIMP(statut='f',typ='I'),
10911 INST =SIMP(statut='f',typ='R'),
10912 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10913 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10914 NUME_DIDI =SIMP(statut='f',typ='I'),
10915 INST_ETAT_INIT =SIMP(statut='f',typ='R'),
10917 INCREMENT =FACT(statut='o',min=01,max=01,
10918 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
10919 EXCLUS('NUME_INST_FIN','INST_FIN'),),
10920 LIST_INST =SIMP(statut='o',typ=listr8),
10921 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
10922 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
10923 NUME_INST_INIT =SIMP(statut='f',typ='I'),
10924 INST_INIT =SIMP(statut='f',typ='R'),
10925 NUME_INST_FIN =SIMP(statut='f',typ='I'),
10926 INST_FIN =SIMP(statut='f',typ='R'),
10927 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
10928 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
10929 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
10930 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
10932 NEWTON =FACT(statut='d',min=01,max=01,
10933 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
10934 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
10935 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
10936 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
10937 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
10939 RECH_LINEAIRE =FACT(statut='f',min=01,max=01,
10940 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10941 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
10943 PILOTAGE =FACT(statut='f',min=01,max=01,
10944 regles=(EXCLUS('NOEUD','GROUP_NO'),),
10945 TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS") ),
10946 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
10947 ETA_PILO_MAX =SIMP(statut='f',typ='R'),
10948 ETA_PILO_MIN =SIMP(statut='f',typ='R'),
10949 NOEUD =SIMP(statut='f',typ=no,max='**'),
10950 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10951 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
10953 CONVERGENCE =FACT(statut='d',min=01,max=01,
10954 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
10955 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
10956 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
10957 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
10958 RESI_INTE_RELA =SIMP(statut='f',typ='R'
10960 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
10961 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
10962 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
10963 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
10965 PARM_THETA =SIMP(statut='f',typ='R'
10967 SOLVEUR =FACT(statut='d',min=01,max=01,
10968 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
10969 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
10970 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
10972 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
10973 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
10974 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
10976 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
10977 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
10978 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
10979 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10981 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
10982 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
10983 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
10984 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
10985 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
10986 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
10989 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10990 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10992 ARCHIVAGE =FACT(statut='f',min=01,max=01,
10993 regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
10994 EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
10995 LIST_INST =SIMP(statut='f',typ=(listr8) ),
10996 INST =SIMP(statut='f',typ='R',max='**' ),
10997 PAS_ARCH =SIMP(statut='f',typ='I' ),
10998 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
10999 ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
11000 NUME_INIT =SIMP(statut='f',typ='I'),
11001 DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
11002 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
11003 "VARI_NON_LOCAL","LANL_ELGA")),
11005 MODELE_NON_LOCAL=SIMP(statut='f',typ=(modele) ),
11006 SOLV_NON_LOCAL =FACT(statut='d',min=01,max=01,
11007 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11008 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11009 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
11011 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11012 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11013 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
11015 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11016 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11017 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11018 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11020 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11021 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11022 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11023 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11024 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11027 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11029 LAGR_NON_LOCAL =FACT(statut='d',max=01,
11030 ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
11031 RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
11032 RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
11033 RHO =SIMP(statut='f',typ='R',defaut= 1000.),
11034 ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
11036 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
11037 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
11039 #& MODIF COMMANDE DATE 20/09/1999 AUTEUR DURAND C.DURAND
11040 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction pour la comparer à une valeur de référence",
11042 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
11043 TEST_NOOK =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11044 VALEUR =FACT(statut='f',min=01,max='**',
11045 fr="Tester la valeur d une fonction ou d une nappe",
11046 regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
11047 FONCTION =SIMP(statut='o',typ=fonction ),
11048 NOM_PARA =SIMP(statut='f',typ='TXM',max=02),
11049 VALE_PARA =SIMP(statut='o',typ='R',max=02),
11050 VALE_REFE =SIMP(statut='f',typ='R' ),
11051 VALE_REFE_C =SIMP(statut='f',typ='C' ),
11052 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
11053 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11054 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
11056 REFERENCE =SIMP(statut='f',typ='TXM',
11057 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
11058 b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
11059 VERSION =SIMP(statut='f',typ='TXM' ),
11062 ATTRIBUT =FACT(statut='f',min=01,max='**',
11063 fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
11064 FONCTION =SIMP(statut='o',typ=fonction ),
11065 PARA =SIMP(statut='f',typ='R' ),
11066 CRIT_PARA =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11067 PREC_PARA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11068 ATTR =SIMP(statut='o',typ='TXM',
11069 into=("NOM_PARA","NOM_RESU","PROL_DROIT","PROL_GAUCHE","INTERPOL",
11070 "PROL_GAUCHE_FONC","PROL_DROIT_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
11071 ATTR_REFE =SIMP(statut='o',typ='TXM' ),
11072 REFERENCE =SIMP(statut='f',typ='TXM',
11073 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
11074 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
11075 VERSION =SIMP(statut='f',typ='TXM' ),
11078 TABL_INTSP =FACT(statut='f',min=01,max='**',
11079 fr="Tester la valeur d une fonction contenue dans une table interspectrale",
11080 regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
11081 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
11082 NOEUD_I =SIMP(statut='f',typ=no),
11083 NUME_ORDRE_I =SIMP(statut='f',typ='I' ),
11084 b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
11085 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
11087 b_noeud_i = BLOC (condition = "NOEUD_I != None",
11088 NOEUD_J =SIMP(statut='o',typ=no),
11089 NOM_CMP_I =SIMP(statut='o',typ='TXM' ),
11090 NOM_CMP_J =SIMP(statut='o',typ='TXM' ),
11092 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
11093 VALE_PARA =SIMP(statut='o',typ='R' ),
11094 VALE_REFE_C =SIMP(statut='o',typ='C' ),
11095 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
11096 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11097 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
11099 REFERENCE =SIMP(statut='f',typ='TXM',
11100 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
11101 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
11102 VERSION =SIMP(statut='f',typ='TXM' ),
11106 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR VABHHTS J.PELLET
11107 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-F",
11108 fr="Extraction d une valeur et comparaison à une valeur de référence",
11109 regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
11110 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
11111 CHAM_NO =FACT(statut='f',min=01,max='**',
11112 regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
11113 EXCLUS('NOEUD','GROUP_NO'),
11114 PRESENT_PRESENT('NOEUD','NOM_CMP'),
11115 PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
11116 UN_PARMI('VALE','VALE_I','VALE_C'),),
11117 CHAM_GD =SIMP(statut='o',typ=cham_no),
11118 NOEUD =SIMP(statut='f',typ=no,max='**'),
11119 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
11120 NOM_CMP =SIMP(statut='f',typ='TXM' ),
11121 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
11122 VALE =SIMP(statut='f',typ='R'),
11123 VALE_I =SIMP(statut='f',typ='I'),
11124 VALE_C =SIMP(statut='f',typ='C'),
11125 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
11126 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
11127 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
11128 "NON_REGRESSION","AUTRE_ASTER")),
11129 VERSION =SIMP(statut='f',typ='TXM'),
11131 CHAM_ELEM =FACT(statut='f',min=01,max='**',
11132 regles=(UN_PARMI('MAILLE','TYPE_TEST',),
11133 EXCLUS('NOEUD','GROUP_NO','POINT'),
11134 PRESENT_PRESENT('NOEUD','NOM_CMP'),
11135 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
11136 PRESENT_PRESENT('POINT','NOM_CMP'),
11137 UN_PARMI('VALE','VALE_I','VALE_C'), ),
11138 CHAM_GD =SIMP(statut='o',typ=cham_elem),# CO()
11139 MAILLE =SIMP(statut='f',typ=ma),# CO()
11140 POINT =SIMP(statut='f',typ='I' ),
11141 NOEUD =SIMP(statut='f',typ=no),# CO()
11142 GROUP_NO =SIMP(statut='f',typ=grno),# CO()
11143 NOM_CMP =SIMP(statut='f',typ='TXM' ),
11144 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
11145 VALE =SIMP(statut='f',typ='R' ),
11146 VALE_I =SIMP(statut='f',typ='I' ),
11147 VALE_C =SIMP(statut='f',typ='C' ),
11148 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
11149 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11150 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
11151 "NON_REGRESSION","AUTRE_ASTER") ),
11152 VERSION =SIMP(statut='f',typ='TXM' ),
11154 RESU =FACT(statut='f',min=01,max='**',
11155 regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
11156 UN_PARMI('NOM_CHAM','PARA'),
11157 PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
11158 PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
11159 EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
11160 PRESENT_PRESENT('NOEUD','NOM_CMP'),
11161 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
11162 PRESENT_PRESENT('POINT','NOM_CMP'),
11163 UN_PARMI('VALE','VALE_I','VALE_C') ,),
11164 RESULTAT =SIMP(statut='o',typ=resultat),
11165 NUME_ORDRE =SIMP(statut='f',typ='I'),
11166 INST =SIMP(statut='f',typ='R'),
11167 FREQ =SIMP(statut='f',typ='R'),
11168 NUME_MODE =SIMP(statut='f',typ='I'),
11169 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**' ),
11170 NOM_CAS =SIMP(statut='f',typ='TXM'),
11171 ANGL =SIMP(statut='f',typ='R'),
11172 PARA =SIMP(statut='f',typ='TXM'),
11173 NOM_CHAM =SIMP(statut='f',typ='TXM'),
11174 NOM_CMP =SIMP(statut='f',typ='TXM'),
11175 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11176 NOEUD =SIMP(statut='f',typ=no,max='**'),
11177 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
11178 POINT =SIMP(statut='f',typ='I'),
11179 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
11180 VALE =SIMP(statut='f',typ='R'),
11181 VALE_I =SIMP(statut='f',typ='I'),
11182 VALE_C =SIMP(statut='f',typ='C'),
11183 CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=02),
11184 PRECISION =SIMP(statut='f',typ='R',max=02),
11185 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
11186 "NON_REGRESSION","AUTRE_ASTER",) ),
11187 VERSION =SIMP(statut='f',typ='TXM' ),
11189 OBJET =FACT(statut='f',max='**',
11190 regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
11191 UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
11192 NOM =SIMP(statut='o',typ='TXM'),
11193 INDICE =SIMP(statut='f',typ='I'),
11194 NUM_OBJ =SIMP(statut='f',typ='I'),
11195 S_R =SIMP(statut='f',typ='R'),
11196 S_I =SIMP(statut='f',typ='I'),
11197 RESUME =SIMP(statut='f',typ='I'),
11198 VALE =SIMP(statut='f',typ='R'),
11199 VALE_I =SIMP(statut='f',typ='I'),
11200 VALE_C =SIMP(statut='f',typ='C'),
11201 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
11202 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11203 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
11204 "NON_REGRESSION","AUTRE_ASTER",) ),
11205 VERSION =SIMP(statut='f',typ='TXM' ),
11208 #& MODIF COMMANDE DATE 20/09/1999 AUTEUR DURAND C.DURAND
11209 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,fr="Tester une 'cellule' d un concept de type table.Imprime dans le fichier 'RESULTAT' : OK si la valeur trouvée est identique à la valeur donnée en référence, NOOK sinon",
11211 regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
11212 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
11213 # concept table à créer
11214 TABLE =SIMP(statut='o',typ=table),
11215 FILTRE =FACT(statut='f',min=01,max='**',
11216 regles=(UN_PARMI('VALE','VALE_I','VALE_C','VALE_K','VALE_CO', ),),
11217 NOM_PARA =SIMP(statut='o',typ='TXM' ),
11218 VALE =SIMP(statut='f',typ='R' ),
11219 VALE_I =SIMP(statut='f',typ='I' ),
11220 VALE_C =SIMP(statut='f',typ='C' ),
11221 VALE_K =SIMP(statut='f',typ='TXM' ),
11222 VALE_CO =SIMP(statut='f',typ=geom),
11223 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11224 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11226 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
11227 NOM_PARA =SIMP(statut='o',typ='TXM' ),
11228 VALE =SIMP(statut='f',typ='R' ),
11229 VALE_I =SIMP(statut='f',typ='I' ),
11230 VALE_C =SIMP(statut='f',typ='C' ),
11231 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11232 PRECISION =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
11233 REFERENCE =SIMP(statut='f',typ='TXM',
11234 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
11235 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
11236 VERSION =SIMP(statut='f',typ='TXM' ),
11239 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
11240 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-F",reentrant='f',
11241 fr="Analyse thermique linéaire stationnaire ou transitoire",
11242 MODELE =SIMP(statut='o',typ=modele),
11243 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
11244 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
11245 EXCIT =FACT(statut='o',min=01,max='**',
11246 CHARGE =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
11247 FONC_MULT =SIMP(statut='f',typ=fonction),
11249 INCREMENT =FACT(statut='f',min=01,max=01,
11250 LIST_INST =SIMP(statut='o',typ=listr8 ),
11251 NUME_INIT =SIMP(statut='f',typ='I'),
11252 NUME_FIN =SIMP(statut='f',typ='I'),
11254 TEMP_INIT =FACT(statut='f',min=01,max=01,
11255 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
11256 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11257 EVOL_THER =SIMP(statut='f',typ=evol_ther),
11258 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
11259 VALE =SIMP(statut='f',typ='R'),
11260 NUME_INIT =SIMP(statut='f',typ='I'),
11262 SENSIBILITE =FACT(statut='f',min=01,max=01,
11263 THETA =SIMP(statut='o',typ=theta_geom),
11265 DEUL_INIT =FACT(statut='f',min=01,max=01,
11266 regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
11267 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11268 EVOL_THER =SIMP(statut='f',typ=evol_ther),
11269 NUME_INIT =SIMP(statut='f',typ='I'),
11271 SOLVEUR =FACT(statut='d',min=01,max=01,
11272 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11273 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11274 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
11276 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11277 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11278 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
11280 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11281 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11282 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11283 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11285 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11286 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11287 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11288 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11289 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11290 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11293 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11295 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57),
11296 ARCHIVAGE =FACT(statut='f',min=01,max=01,
11297 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
11298 LIST_ARCH =SIMP(statut='f',typ=listis),
11299 LIST_INST =SIMP(statut='f',typ=listr8),
11300 INST =SIMP(statut='f',typ='R',max='**'),
11301 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11302 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
11303 into=("RELATIF","ABSOLU")),
11304 PAS_ARCH =SIMP(statut='f',typ='I'),
11305 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("VARI",)),
11307 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11308 OPTION =SIMP(statut='f',typ='TXM',max='**',
11309 into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP")),
11310 INFO =SIMP(statut='f',typ='I',into=(1,2)),
11312 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
11313 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-D",reentrant='f',
11314 fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
11315 MODELE =SIMP(statut='o',typ=(modele) ),
11316 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
11317 CARA_ELEM =SIMP(statut='c',typ=(cara_elem) ),
11318 COMP_THER_NL =FACT(statut='d',min=01,max='**',
11319 RELATION =SIMP(statut='f',typ='TXM',defaut="THER_NL",
11327 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11328 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
11329 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11331 EVOL_THER_SECH =SIMP(statut='f',typ=evol_ther),
11332 EXCIT =FACT(statut='o',min=01,max='**',
11333 CHARGE =SIMP(statut='o',typ=char_ther),
11334 FONC_MULT =SIMP(statut='f',typ=fonction),
11336 INCREMENT =FACT(statut='f',min=01,max=01,
11337 LIST_INST =SIMP(statut='o',typ=listr8),
11338 NUME_INIT =SIMP(statut='f',typ='I'),
11339 NUME_FIN =SIMP(statut='f',typ='I'),
11341 TEMP_INIT =FACT(statut='f',min=01,max=01,
11342 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
11343 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
11344 EVOL_THER =SIMP(statut='f',typ=evol_ther),
11345 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
11346 VALE =SIMP(statut='f',typ='R'),
11347 NUME_INIT =SIMP(statut='f',typ='I'),
11349 NEWTON =FACT(statut='d',min=01,max=01,
11350 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11351 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11352 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 0 ),
11354 CONVERGENCE =FACT(statut='d',min=01,max=01,
11355 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
11356 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
11357 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
11359 SOLVEUR =FACT(statut='d',min=01,max=01,
11360 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11361 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11362 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
11364 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11365 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11366 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
11368 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11369 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11370 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11371 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11373 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11374 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11375 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11376 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11377 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11378 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11381 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11382 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
11384 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57 ),
11385 ARCHIVAGE =FACT(statut='f',min=01,max=01,
11386 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
11387 LIST_ARCH =SIMP(statut='f',typ=(listis) ),
11388 LIST_INST =SIMP(statut='f',typ=(listr8) ),
11389 INST =SIMP(statut='f',typ='R',max='**'),
11390 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11391 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
11392 PAS_ARCH =SIMP(statut='f',typ='I'),
11393 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("VARI",)),
11395 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11396 OPTION =SIMP(statut='f',typ='TXM',max='**',
11397 into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
11398 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
11400 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
11401 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
11402 fr="Thermique non lineaire en repere mobile",
11403 docu="U4.54.03-B",reentrant='f',
11404 MODELE =SIMP(statut='o',typ=modele ),
11405 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
11406 CARA_ELEM =SIMP(statut='c',typ=cara_elem ),
11407 EXCIT =FACT(statut='o',min=01,max='**',
11408 CHARGE =SIMP(statut='o',typ=char_ther ),
11409 FONC_MULT =SIMP(statut='c',typ=fonction ),
11411 TEMP_INIT =FACT(statut='f',min=01,max=01,
11412 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
11413 NUME_INIT =SIMP(statut='f',typ='I',defaut= 0 ),
11415 CONVERGENCE =FACT(statut='d',min=01,max=01,
11416 CRIT_TEMP_RELA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11417 CRIT_ENTH_RELA =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
11418 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
11419 ARRET =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11421 SOLVEUR =FACT(statut='d',min=01,max=01,
11422 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11423 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11424 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
11426 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11427 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11428 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
11430 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11431 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11432 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11433 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11435 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11436 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11437 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11438 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11439 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11440 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11442 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11443 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11445 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
11446 INFO =SIMP(statut='f',typ='I',into=(1,2) ),