1 # -*- coding: utf-8 -*-
2 #& MODIF COMMANDE DATE 10/07/2001 AUTEUR ACBHHCD G.DEVESA
3 # CONFIGURATION MANAGEMENT OF EDF VERSION
4 # ======================================================================
5 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7 # REDISTRIBUTION OF THIS FILE.
8 # ======================================================================
22 JdC = JDC_CATA(code='ASTER',
24 regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
26 A_CLASSER(('DEBUT','POURSUITE'),'FIN')),
29 # Type le plus general
30 class entier(ASSD):pass
32 class complexe(ASSD):pass
33 class liste(ASSD):pass
34 class chaine(ASSD):pass
43 def __getitem__(self,key):
44 return aster.getpara(self.get_name(),"TABLE",key[0],key[1])
47 def __getitem__(self,key):
48 return aster.getpara(self.get_name(),"RESULTAT",key[0],key[1])
51 class affe_carte(ASSD):pass
52 class affe_cham_no(ASSD):pass
53 class affe_char_cine(ASSD):pass
54 class affe_char_cine_f(ASSD):pass
55 class asse_matrice(ASSD):pass
56 class asse_vecteur(ASSD):pass
57 class base_modale(ASSD):pass
58 class cabl_precont(ASSD):pass
59 class calc_cham_elem(ASSD):pass
60 class calc_char_cine(ASSD):pass
61 class calc_char_seisme(ASSD):pass
63 class calc_elem(resultat):pass
65 class calc_matr_elem(ASSD):pass
67 class calc_no(resultat):pass
69 class calc_vect_elem(ASSD):pass
70 class cara_elem(ASSD):pass
71 class cara_pout(ASSD):pass
73 class carte(ASSD):pass
74 class carte_depl_r(carte):pass
75 class carte_epsi_r(carte):pass
76 class carte_flux_r(carte):pass
77 class carte_geom_r(carte):pass
78 class carte_inst_r(carte):pass
79 class carte_meta_r(carte):pass
80 class carte_neut_f(carte):pass
81 class carte_neut_r(carte):pass
82 class carte_sief_r(carte):pass
83 class carte_temp_f(carte):pass
84 class carte_temp_r(carte):pass
85 class carte_var2_r(carte):pass
87 class cham_gd(ASSD):pass
88 #class cham_elem(ASSD):pass
89 class cham_elem(cham_gd):pass
90 class cham_elem_crit_r(cham_elem):pass
91 class cham_elem_dbel_r(cham_elem):pass
92 class cham_elem_dommag(cham_elem):pass
93 class cham_elem_ener_r(cham_elem):pass
94 class cham_elem_epsi_c(cham_elem):pass
95 class cham_elem_epsi_r(cham_elem):pass
96 class cham_elem_erreur(cham_elem):pass
97 class cham_elem_flux_r(cham_elem):pass
98 class cham_elem_geom_r(cham_elem):pass
99 class cham_elem_hydr_r(cham_elem):pass
100 class cham_elem_meta_r(cham_elem):pass
101 class cham_elem_neut_r(cham_elem):pass
102 class cham_elem_neut_f(cham_elem):pass
103 class cham_elem_pres_r(cham_elem):pass
104 class cham_elem_sief_c(cham_elem):pass
105 class cham_elem_depl_r(cham_elem):pass
106 class cham_elem_temp_r(cham_elem):pass
107 class cham_elem_sief_r(cham_elem):pass
108 class cham_elem_sour_r(cham_elem):pass
109 class cham_elem_vari_r(cham_elem):pass
111 #class cham_gd(ASSD):pass
112 class cham_mater(ASSD):pass
114 #class cham_no(ASSD):pass
115 class cham_no(cham_gd):pass
116 class cham_no_depl_c(cham_no):pass
117 class cham_no_depl_f(cham_no):pass
118 class cham_no_depl_r(cham_no):pass
119 class cham_no_epsi_r(cham_no):pass
120 class cham_no_flux_r(cham_no):pass
121 class cham_no_geom_r(cham_no):pass
122 class cham_no_inst_r(cham_no):pass
123 class cham_no_meta_r(cham_no):pass
124 class cham_no_pres_c(cham_no):pass
125 class cham_no_pres_r(cham_no):pass
126 class cham_no_sief_r(cham_no):pass
127 class cham_no_neut_r(cham_no):pass
128 class cham_no_neut_f(cham_no):pass
129 class cham_no_temp_c(cham_no):pass
130 class cham_no_temp_f(cham_no):pass
131 class cham_no_temp_r(cham_no):pass
132 class cham_no_vanl_r(cham_no):pass
133 class cham_no_var2_r(cham_no):pass
135 class char_acou(ASSD):pass
136 class char_cine_acou(ASSD):pass
137 class char_cine_meca(ASSD):pass
138 class char_cine_ther(ASSD):pass
139 class char_meca(ASSD):pass
140 class char_ther(ASSD):pass
141 class comb_cham_elem(ASSD):pass
142 class comb_cham_no(ASSD):pass
143 class comb_fourier(resultat):pass
144 class comb_matr_asse(ASSD):pass
145 class courbe(ASSD):pass
146 class crea_resu(ASSD):pass
147 class acou_harmo(resultat):pass
148 class dyna_harmo(resultat):pass
149 class dyna_line_harm(resultat):pass
150 class dyna_trans(resultat):pass
152 class evol(resultat):pass
154 class evol_char(evol):pass
155 class evol_elas(evol):pass
156 class evol_noli(evol):pass
157 class evol_ther(evol):pass
159 class extr_mode(ASSD):pass
160 class extr_resu(ASSD):pass
161 class fact_grad(ASSD):pass
162 class fact_ldlt(ASSD):pass
163 class fonction_c(fonction):pass
164 class fond_fiss(ASSD):pass
165 class fourier_elas(resultat):pass
166 class harm_gene(resultat):pass
167 class interf_dyna_clas(ASSD):pass
168 class interspfact(ASSD):pass
169 class lire_miss_3d(ASSD):pass
170 class lire_resu(ASSD):pass
171 class listis(ASSD):pass
172 class listr8(ASSD):pass
173 class macr_elem_dyna(ASSD):pass
174 class macr_elem_stat(ASSD):pass
175 class macro_elas_mult(ASSD):pass
176 class maillage(ASSD):pass
177 class mater(ASSD):pass
179 class matr_asse(ASSD):pass
180 class matr_asse_depl_c(matr_asse):pass
181 class matr_asse_depl_r(matr_asse):pass
182 class matr_asse_gene_c(matr_asse):pass
183 class matr_asse_gene_r(matr_asse):pass
184 class matr_asse_pres_c(matr_asse):pass
185 class matr_asse_pres_r(matr_asse):pass
186 class matr_asse_temp_c(matr_asse):pass
187 class matr_asse_temp_r(matr_asse):pass
189 class matr_elem(ASSD):pass
190 class matr_elem_depl_c(matr_elem):pass
191 class matr_elem_depl_r(matr_elem):pass
192 class matr_elem_pres_c(matr_elem):pass
193 class matr_elem_temp_r(matr_elem):pass
195 class melasflu(ASSD):pass
197 class mode_acou(resultat):pass
198 class mode_cycl(resultat):pass
199 class mode_flamb(resultat):pass
200 class mode_gene(resultat):pass
201 class mode_iter_inv(resultat):pass
202 class mode_meca(resultat):pass
203 class mode_meca_c(mode_meca):pass
204 class mode_stat(resultat):pass
206 class modele(ASSD):pass
207 class modele_gene(ASSD):pass
208 class mult_elas(resultat):pass
209 class norm_mode(ASSD):pass
210 class nume_ddl(ASSD):pass
211 class nume_ddl_gene(ASSD):pass
212 class obstacle(ASSD):pass
213 class post_elem(ASSD):pass
214 class prod_matr_cham(ASSD):pass
215 class proj_champ(ASSD):pass
216 class recu_champ(ASSD):pass
217 class reso_grad(ASSD):pass
218 class reso_ldlt(ASSD):pass
219 class rest_base_phys(ASSD):pass
220 class spectre(ASSD):pass
221 class squelette(maillage):pass
222 class surface(ASSD):pass
224 class tabl_aire_int(table):pass
225 class tabl_calc_g_loca(table):pass
226 class tabl_calc_g_th(table):pass
227 class tabl_cara_geom(table):pass
228 class tabl_char_limite(table):pass
229 class tabl_ener_elas(table):pass
230 class tabl_ener_pot(table):pass
231 class tabl_ener_cin(table):pass
232 class tabl_ener_totale(table):pass
233 class tabl_fonc(table):pass
234 class tabl_fonc_max(tabl_fonc):pass
235 class tabl_fonc_rms(tabl_fonc):pass
236 class tabl_indic_ener(table):pass
237 class tabl_indic_seuil(table):pass
238 class tabl_intsp(table):pass
239 class tabl_mass_iner(table):pass
240 class tabl_post_alea(table):pass
241 class tabl_post_dyna(table):pass
242 class tabl_post_f_alea(table):pass
243 class tabl_post_fatig(table):pass
244 class tabl_post_gouj2e(table):pass
245 class tabl_post_k(table):pass
246 class tabl_post_rccm(table):pass
247 class tabl_post_rele(table):pass
248 class tabl_post_simpli(table):pass
249 class tabl_post_usur(table):pass
250 class tabl_reca_weib(table):pass
251 class tabl_rice_tracey(table):pass
252 class tabl_texture(table):pass
253 class tabl_trc(table):pass
254 class tabl_weibull(table):pass
256 class theta_geom(ASSD):pass
257 class tran_gene(ASSD):pass
258 class type_flui_stru(ASSD):pass
259 class valeur(ASSD):pass
260 class vect_asse(ASSD):pass
261 class vect_asse_gene(vect_asse):pass
262 class vect_elem(ASSD):pass
263 class vect_elem_depl_r(vect_elem):pass
264 class vect_elem_pres_c(vect_elem):pass
265 class vect_elem_pres_r(vect_elem):pass
266 class vect_elem_temp_r(vect_elem):pass
268 #& MODIF COMMANDE DATE 11/09/2000 AUTEUR JMBHH01 J.M.PROIX
269 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op= 19,sd_prod=cara_elem,
270 fr="Affectation de caractéristiques à des éléments de structure (barre, cable, poutre, tuyau, plaque, coque, discret)",
271 docu="U4.42.01-F",reentrant='n',
272 regles=(AU_MOINS_UN('POUTRE','COQUE','DISCRET','CABLE','BARRE','MASSIF','ASSE_GRIL','GRILLE'),),
273 MODELE =SIMP(statut='o',typ=modele ),
274 INFO =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
275 VERIF =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
276 POUTRE =FACT(statut='f',min=01,max='**',
277 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
278 MAILLE =SIMP(statut='f',typ=ma,max='**'),
279 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
280 SECTION =SIMP(statut='f',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
281 CARA_SECT =SIMP(statut='f',typ=(cara_pout) ),
282 b_generale =BLOC( condition = "SECTION=='GENERALE'",
283 CARA =SIMP(statut='f',typ='TXM',max='**',
284 into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
285 "AI","JG","IYR2","IZR2","A1",
286 "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
287 "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
288 "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
289 "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
290 "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
291 "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
292 "EPY2","EPZ2","R","R1","R2") ),
293 VALE =SIMP(statut='o',typ='R',max='**'),
294 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
296 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
297 CARA =SIMP(statut='f',typ='TXM',max='**',
298 into=("H","EP","HY","HZ","EPY","EPZ",
299 "H1","HZ1","HY1","EP1","EPY1","EPZ1",
300 "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
301 VALE =SIMP(statut='o',typ='R',max='**'),
302 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
304 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
305 CARA =SIMP(statut='f',typ='TXM',max='**',
306 into=("R","EP","R1","R2","EP1","EP2") ),
307 VALE =SIMP(statut='o',typ='R',max='**'),
308 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
309 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
312 BARRE =FACT(statut='f',min=01,max='**',
313 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
314 MAILLE =SIMP(statut='f',typ=ma,max='**'),
315 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
316 SECTION =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
317 b_generale =BLOC( condition = "SECTION=='GENERALE'",
318 CARA =SIMP(statut='f',typ='TXM',into=("A",) ),
319 VALE =SIMP(statut='o',typ='R' ),
321 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
322 CARA =SIMP(statut='f',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
323 VALE =SIMP(statut='o',typ='R',max=6 ),
325 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
326 CARA =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
327 VALE =SIMP(statut='o',typ='R',max=2 ),
330 COQUE =FACT(statut='f',min=01,max='**',
331 regles=(UN_PARMI('MAILLE','GROUP_MA' ),
332 PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
333 MAILLE =SIMP(statut='f',typ=ma,max='**'),
334 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
335 EPAIS =SIMP(statut='f',typ='R' ),
336 ANGL_REP =SIMP(statut='f',typ='R',min=2,max=2),
337 A_CIS =SIMP(statut='f',typ='R',defaut= 0.8333333),
338 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
339 EXCENTREMENT =SIMP(statut='f',typ='R' ),
340 INER_ROTA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
341 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
343 CABLE =FACT(statut='f',min=01,max='**',
344 regles=(UN_PARMI('MAILLE','GROUP_MA'),
345 UN_PARMI('A','SECTION') ),
346 MAILLE =SIMP(statut='f',typ=ma,max='**'),
347 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
348 N_INIT =SIMP(statut='f',typ='R',defaut= 5000. ),
349 A =SIMP(statut='f',typ='R' ),
350 SECTION =SIMP(statut='f',typ='R' ),
352 DISCRET =FACT(statut='f',min=01,max='**',
353 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
354 NOEUD =SIMP(statut='f',typ=no,max='**'),
355 MAILLE =SIMP(statut='f',typ=ma,max='**'),
356 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
357 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
358 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
359 AMOR_HYST =SIMP(statut='f',typ='R' ),
360 CARA =SIMP(statut='f',typ='TXM',max='**',
361 into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
362 "K_T_N", "K_T_L", "K_TR_N", "K_TR_L",
363 "M_T_D_N","M_TR_D_N","M_T_N",
364 "M_T_L", "M_TR_N", "M_TR_L",
365 "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
366 "A_T_N", "A_T_L", "A_TR_N", "A_TR_L") ),
367 VALE =SIMP(statut='f',typ='R',max='**'),
369 ORIENTATION =FACT(statut='f',min=01,max='**',
370 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
371 MAILLE =SIMP(statut='f',typ=ma,max='**'),
372 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
373 NOEUD =SIMP(statut='f',typ=no,max='**'),
374 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
375 CARA =SIMP(statut='f',typ='TXM',
376 into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
377 VALE =SIMP(statut='f',typ='R',max='**'),
378 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
379 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
381 DEFI_ARC =FACT(statut='f',min=01,max='**',
382 regles=(UN_PARMI('MAILLE','GROUP_MA'),
383 UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
384 'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
385 PRESENT_PRESENT('ORIE_ARC','RAYON'),
386 EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
387 EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
388 EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
389 EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
390 PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
391 PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
392 MAILLE =SIMP(statut='f',typ=ma,max='**'),
393 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
394 ORIE_ARC =SIMP(statut='f',typ='R'),
395 CENTRE =SIMP(statut='f',typ='R',max='**'),
396 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
397 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
398 POIN_TANG =SIMP(statut='f',typ='R',max='**'),
399 NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
400 GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
401 RAYON =SIMP(statut='f',typ='R'),
402 COEF_FLEX =SIMP(statut='f',typ='R'),
403 INDI_SIGM =SIMP(statut='f',typ='R'),
404 COEF_FLEX_XY =SIMP(statut='f',typ='R'),
405 INDI_SIGM_XY =SIMP(statut='f',typ='R'),
406 COEF_FLEX_XZ =SIMP(statut='f',typ='R'),
407 INDI_SIGM_XZ =SIMP(statut='f',typ='R'),
408 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
409 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
411 MASSIF =FACT(statut='f',min=01,max='**',
412 regles=(UN_PARMI('MAILLE','GROUP_MA'),
413 EXCLUS('ANGL_REP','ANGL_AXE'),
414 EXCLUS('ANGL_REP','ORIG_AXE'),
415 PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
416 MAILLE =SIMP(statut='f',typ=ma,max='**'),
417 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
418 ANGL_REP =SIMP(statut='f',typ='R',max=3),
419 ANGL_AXE =SIMP(statut='f',typ='R',max=2),
420 ORIG_AXE =SIMP(statut='f',typ='R',max=3),
422 POUTRE_FLUI =FACT(statut='f',min=01,max='**',
423 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
424 MAILLE =SIMP(statut='f',typ=ma,max='**'),
425 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
426 B_T =SIMP(statut='o',typ='R'),
427 B_N =SIMP(statut='o',typ='R'),
428 B_TN =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
429 A_FLUI =SIMP(statut='o',typ='R'),
430 A_CELL =SIMP(statut='o',typ='R'),
431 COEF_ECHELLE =SIMP(statut='o',typ='R'),
433 GRILLE =FACT(statut='f',min=01,max='**',
434 regles=(UN_PARMI('MAILLE','GROUP_MA'),
435 EXCLUS('ANGL_REP','ORIG_AXE'),
436 ENSEMBLE('ORIG_AXE','AXE')),
437 MAILLE =SIMP(statut='f',typ=ma,max='**'),
438 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
439 SECTION_L =SIMP(statut='o',typ='R'),
440 ANGL_REP =SIMP(statut='f',typ='R',max=2),
441 ANGL_L =SIMP(statut='f',typ='R'),
442 POUR_CENT_L =SIMP(statut='f',typ='R'),
443 POUR_CENT_T =SIMP(statut='f',typ='R'),
444 DIST_N =SIMP(statut='f',typ='R'),
445 ORIG_AXE =SIMP(statut='f',typ='R',max='**'),
446 AXE =SIMP(statut='f',typ='R',max='**'),
447 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
449 RIGI_PARASOL =FACT(statut='f',min=01,max='**',
450 regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
451 UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
452 GROUP_MA =SIMP(statut='o',typ=ma,max='**'),
453 FONC_GROUP =SIMP(statut='f',typ=(fonction) ),
454 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
455 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
456 CARA =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
457 VALE =SIMP(statut='o',typ='R',max='**'),
458 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
459 NOEUD_CENTRE =SIMP(statut='f',typ=no),
460 COOR_CENTRE =SIMP(statut='f',typ='R',max='**'),
462 ASSE_GRIL =FACT(statut='f',min=01,max='**',
463 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
464 MAILLE =SIMP(statut='f',typ=ma,max='**'),
465 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
466 CARA =SIMP(statut='o',typ='TXM',max='**',
467 into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
468 VALE =SIMP(statut='o',typ='R',max='**'),
469 PAS_T =SIMP(statut='o',typ='R'),
470 PAS_N =SIMP(statut='o',typ='R'),
471 ANGL_REP =SIMP(statut='o',typ='R',max='**'),
472 COEF_ECHELLE =SIMP(statut='o',typ='R'),
475 #& MODIF COMMANDE DATE 24/05/2000 AUTEUR VABHHTS J.PELLET
476 def affe_carte_prod(GRANDEUR,**args):
477 if GRANDEUR == "TEMP_R" : return carte_temp_r
478 if GRANDEUR == "FLUX_R" : return carte_flux_r
479 if GRANDEUR == "DEPL_R" : return carte_depl_r
480 if GRANDEUR == "EPSI_R" : return carte_epsi_r
481 if GRANDEUR == "SIEF_R" : return carte_sief_r
482 if GRANDEUR == "META_R" : return carte_meta_r
483 if GRANDEUR == "NEUT_R" : return carte_neut_r
484 if GRANDEUR == "VAR2_R" : return carte_var2_r
485 if GRANDEUR == "TEMP_F" : return carte_temp_f
486 if GRANDEUR == "NEUT_F" : return carte_neut_f
487 if GRANDEUR == "INST_R" : return carte_inst_r
488 if GRANDEUR == "GEOM_R" : return carte_geom_r
489 raise AsException("type de concept resultat non prevu")
491 AFFE_CARTE=OPER(nom="AFFE_CARTE",op= 36,sd_prod=affe_carte_prod,
492 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)",
493 docu="U4.44.13-C",reentrant='n',
494 MAILLAGE =SIMP(statut='o',typ=maillage ),
495 GRANDEUR =SIMP(statut='o',typ='TXM',
496 into=("DEPL_R","EPSI_R","SIEF_R","VAR2_R",
497 "TEMP_R","META_R","TEMP_F","FLUX_R",
498 "NEUT_R","NEUT_F","INST_R","GEOM_R",) ),
499 AFFE =FACT(statut='o',min=01,max='**',
500 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
501 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
502 GROUP_MA =SIMP(statut='f',typ=grma),
503 MAILLE =SIMP(statut='f',typ=ma ),
504 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
505 VALE =SIMP(statut='f',typ='R',max='**' ),
506 VALE_I =SIMP(statut='f',typ='I',max='**' ),
507 VALE_C =SIMP(statut='f',typ='C',max='**' ),
508 VALE_F =SIMP(statut='f',typ=fonction),
511 #& MODIF COMMANDE DATE 31/05/2000 AUTEUR CIBHHLV L.VIVAN
513 def affe_cham_no_prod(CHAM_NO_AFFE,GRANDEUR,**args):
514 if GRANDEUR == "TEMP_R" : return cham_no_temp_r
515 if GRANDEUR == "TEMP_F" : return cham_no_temp_f
516 if GRANDEUR == "DEPL_R" : return cham_no_depl_r
517 if GRANDEUR == "DEPL_F" : return cham_no_depl_f
518 if GRANDEUR == "SIEF_R" : return cham_no_sief_r
519 if GRANDEUR == "NEUT_R" : return cham_no_neut_r
520 if GRANDEUR == "NEUT_F" : return cham_no_neut_f
521 if GRANDEUR == "INST_R" : return cham_no_inst_r
522 if GRANDEUR == "GEOM_R" : return cham_no_geom_r
523 if GRANDEUR == "VAR2_R" : return cham_no_var2_r
524 if AsType(CHAM_NO_AFFE) == cham_no_temp_r : return cham_no_temp_r
525 if AsType(CHAM_NO_AFFE) == cham_no_depl_r : return cham_no_depl_r
526 if AsType(CHAM_NO_AFFE) == cham_no_sief_r : return cham_no_sief_r
527 raise AsException("type de concept resultat non prevu")
529 AFFE_CHAM_NO=OPER(nom="AFFE_CHAM_NO",op= 52,sd_prod=affe_cham_no_prod
530 ,fr="Affectation de grandeurs réelles pour créer un cham_no_*",
531 docu="U4.44.11-F",reentrant='n',
532 regles=(UN_PARMI('MAILLAGE','CHAM_NO_AFFE'),
533 PRESENT_PRESENT('MAILLAGE','GRANDEUR','AFFE'),
534 EXCLUS('NUME_DDL','CHAM_NO'),),
535 CHAM_NO_AFFE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_temp_f,cham_no_depl_r,
536 cham_no_depl_f,cham_no_sief_r ) ),
537 MAILLAGE =SIMP(statut='f',typ=maillage ),
538 GRANDEUR =SIMP(statut='f',typ='TXM',into=("TEMP_R","DEPL_R","SIEF_R","VAR2_R",
539 "TEMP_F","DEPL_F","INST_R","GEOM_R",
540 "NEUT_R","NEUT_F") ),
541 AFFE =FACT(statut='f',min=01,max='**',
542 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
543 UN_PARMI('VALE','VALE_F','VALE_R','FONCTION'),),
544 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
545 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
546 NOEUD =SIMP(statut='f',typ=no,max='**'),
547 # NOM_CMP est il obligatoire
548 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
549 VALE_R =SIMP(statut='f',typ='R',max='**',defaut= 0.E+0 ),
550 VALE =SIMP(statut='f',typ='R',max='**'),
551 VALE_F =SIMP(statut='f',typ=fonction,max='**'),
552 FONCTION =SIMP(statut='f',typ=fonction,max='**'),
554 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
555 NUME_DDL =SIMP(statut='f',typ=nume_ddl ),
556 CHAM_NO =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_temp_f,cham_no_depl_r,
557 cham_no_depl_f,cham_no_sief_r ) ),
559 #& MODIF COMMANDE DATE 12/05/99 AUTEUR VABHHTS J.PELLET
560 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op= 68,sd_prod=char_acou,
561 fr="Affectation de charges et conditions aux limites acoustiques constantes",
562 docu="U4.44.04-E",reentrant='n',
563 regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
564 MODELE =SIMP(statut='o',typ=modele ),
565 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
566 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.,),
567 PRES_IMPO =FACT(statut='f',min=01,max='**',
568 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
569 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
570 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
571 MAILLE =SIMP(statut='f',typ=ma,max='**'),
572 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
573 NOEUD =SIMP(statut='f',typ=no,max='**'),
574 PRES =SIMP(statut='o',typ='C' ),
576 VITE_FACE =FACT(statut='f',min=01,max='**',
577 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE' ),),
578 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
579 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
580 MAILLE =SIMP(statut='f',typ=ma,max='**'),
581 VNOR =SIMP(statut='o',typ='C' ),
583 IMPE_FACE =FACT(statut='f',min=01,max='**',
584 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE' ),),
585 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
586 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
587 MAILLE =SIMP(statut='f',typ=ma,max='**'),
588 IMPE =SIMP(statut='o',typ='C' ),
590 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
591 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
592 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
593 NOEUD =SIMP(statut='f',typ=no,max='**'),
594 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
595 MAILLE =SIMP(statut='f',typ=ma,max='**'),
596 DDL =SIMP(statut='o',typ='TXM',max='**'),
599 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
600 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
601 if MECA_IMPO != None : return char_cine_meca
602 if THER_IMPO != None : return char_cine_ther
603 if ACOU_IMPO != None : return char_cine_acou
604 raise AsException("type de concept resultat non prevu")
606 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
607 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
608 docu="U4.44.03-E",reentrant='n',
609 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
610 EXCLUS('MECA_IMPO','THER_IMPO'),
611 EXCLUS('MECA_IMPO','ACOU_IMPO'),
612 EXCLUS('THER_IMPO','ACOU_IMPO'),),
613 MODELE =SIMP(statut='o',typ=modele ),
614 MECA_IMPO =FACT(statut='f',min=01,max='**',
615 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
616 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
617 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
618 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
619 NOEUD =SIMP(statut='f',typ=no,max='**'),
620 DX =SIMP(statut='f',typ='R' ),
621 DY =SIMP(statut='f',typ='R' ),
622 DZ =SIMP(statut='f',typ='R' ),
623 DRX =SIMP(statut='f',typ='R' ),
624 DRY =SIMP(statut='f',typ='R' ),
625 DRZ =SIMP(statut='f',typ='R' ),
626 GRX =SIMP(statut='f',typ='R' ),
627 PRES =SIMP(statut='f',typ='R' ),
628 TEMP =SIMP(statut='f',typ='R' ),
629 PHI =SIMP(statut='f',typ='R' ),
631 THER_IMPO =FACT(statut='f',min=01,max='**',
632 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
633 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
634 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
635 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
636 NOEUD =SIMP(statut='f',typ=no,max='**'),
637 TEMP_SUP =SIMP(statut='f',typ='R' ),
638 TEMP =SIMP(statut='f',typ='R' ),
639 TEMP_INF =SIMP(statut='f',typ='R' ),
641 ACOU_IMPO =FACT(statut='f',min=01,max='**',
642 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
643 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
644 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
645 NOEUD =SIMP(statut='f',typ=no,max='**'),
646 PRES =SIMP(statut='o',typ='C' ),
648 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
650 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
651 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
652 if MECA_IMPO != None : return char_cine_meca
653 if THER_IMPO != None : return char_cine_ther
654 raise AsException("type de concept resultat non prevu")
656 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
657 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
658 docu="U4.44.03-E",reentrant='n',
659 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
660 EXCLUS('MECA_IMPO','THER_IMPO'),),
661 MODELE =SIMP(statut='o',typ=modele ),
662 MECA_IMPO =FACT(statut='f',min=01,max='**',
663 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
664 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
665 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
666 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
667 NOEUD =SIMP(statut='f',typ=no,max='**'),
668 DX =SIMP(statut='f',typ=fonction ),
669 DY =SIMP(statut='f',typ=fonction ),
670 DZ =SIMP(statut='f',typ=fonction ),
671 DRX =SIMP(statut='f',typ=fonction ),
672 DRY =SIMP(statut='f',typ=fonction ),
673 DRZ =SIMP(statut='f',typ=fonction ),
674 GRX =SIMP(statut='f',typ=fonction ),
675 PRES =SIMP(statut='f',typ=fonction ),
676 TEMP =SIMP(statut='f',typ=fonction ),
677 PHI =SIMP(statut='f',typ=fonction ),
679 THER_IMPO =FACT(statut='f',min=01,max='**',
680 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
681 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
682 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
683 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
684 NOEUD =SIMP(statut='f',typ=no,max='**'),
685 TEMP_SUP =SIMP(statut='f',typ=fonction ),
686 TEMP =SIMP(statut='f',typ=fonction ),
687 TEMP_INF =SIMP(statut='f',typ=fonction ),
689 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
691 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR UFBHHLL C.CHAVANT
692 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op= 7,sd_prod=char_meca
693 ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
694 docu="U4.44.01-F",reentrant='n',
695 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
696 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
697 'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
698 'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
699 'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
700 'LIAISON_UNIL_NO','LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
701 'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
702 'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
703 'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
705 EXCLUS('LIAISON_UNIL_NO','CONTACT'),),
707 MODELE =SIMP(statut='o',typ=(modele) ),
708 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
709 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
710 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
711 PESANTEUR =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=04,max=04),
712 ROTATION =SIMP(statut='f',typ='R',fr="Champ de rotation",min=04,max=04),
713 b_rotation =BLOC ( condition = "ROTATION != None",
714 CENTRE =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=03),
716 PRES_CALCULEE =SIMP(statut='f',fr="Champ de pression issu d un autre calcul",typ=evol_char ),
717 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 ) ),
718 HYDR_CALCULEE =SIMP(statut='f',fr="Champ d hydratation issu d un autre calcul",typ=evol_ther ),
719 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 ) ),
720 EPSA_CALCULEE =SIMP(statut='f',fr="Champ de déformation anélastique issu d un autre calcul",typ=evol_noli ),
721 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
723 DDL_IMPO =FACT(statut='f',min=01,max='**',
724 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
725 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
726 'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
727 'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
728 'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
729 'VO6','WI6','WO6','WO','WI1','WO1'),),
730 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
731 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
732 NOEUD =SIMP(statut='f',typ=no,max='**'),
733 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
734 MAILLE =SIMP(statut='f',typ=ma,max='**'),
735 DX =SIMP(statut='f',typ='R' ),
736 DY =SIMP(statut='f',typ='R' ),
737 DZ =SIMP(statut='f',typ='R' ),
738 DRX =SIMP(statut='f',typ='R' ),
739 DRY =SIMP(statut='f',typ='R' ),
740 DRZ =SIMP(statut='f',typ='R' ),
741 GRX =SIMP(statut='f',typ='R' ),
742 PRES =SIMP(statut='f',typ='R' ),
743 PHI =SIMP(statut='f',typ='R' ),
744 TEMP =SIMP(statut='f',typ='R' ),
745 PRE1 =SIMP(statut='f',typ='R' ),
746 PRE2 =SIMP(statut='f',typ='R' ),
747 UI2 =SIMP(statut='f',typ='R' ),
748 UI3 =SIMP(statut='f',typ='R' ),
749 UI4 =SIMP(statut='f',typ='R' ),
750 UI5 =SIMP(statut='f',typ='R' ),
751 UI6 =SIMP(statut='f',typ='R' ),
752 UO2 =SIMP(statut='f',typ='R' ),
753 UO3 =SIMP(statut='f',typ='R' ),
754 UO4 =SIMP(statut='f',typ='R' ),
755 UO5 =SIMP(statut='f',typ='R' ),
756 UO6 =SIMP(statut='f',typ='R' ),
757 VI2 =SIMP(statut='f',typ='R' ),
758 VI3 =SIMP(statut='f',typ='R' ),
759 VI4 =SIMP(statut='f',typ='R' ),
760 VI5 =SIMP(statut='f',typ='R' ),
761 VI6 =SIMP(statut='f',typ='R' ),
762 VO2 =SIMP(statut='f',typ='R' ),
763 VO3 =SIMP(statut='f',typ='R' ),
764 VO4 =SIMP(statut='f',typ='R' ),
765 VO5 =SIMP(statut='f',typ='R' ),
766 VO6 =SIMP(statut='f',typ='R' ),
767 WI2 =SIMP(statut='f',typ='R' ),
768 WI3 =SIMP(statut='f',typ='R' ),
769 WI4 =SIMP(statut='f',typ='R' ),
770 WI5 =SIMP(statut='f',typ='R' ),
771 WI6 =SIMP(statut='f',typ='R' ),
772 WO2 =SIMP(statut='f',typ='R' ),
773 WO3 =SIMP(statut='f',typ='R' ),
774 WO4 =SIMP(statut='f',typ='R' ),
775 WO5 =SIMP(statut='f',typ='R' ),
776 WO6 =SIMP(statut='f',typ='R' ),
777 WO =SIMP(statut='f',typ='R' ),
778 WI1 =SIMP(statut='f',typ='R' ),
779 WO1 =SIMP(statut='f',typ='R' ),
781 FACE_IMPO =FACT(statut='f',min=01,max='**',
782 regles=(UN_PARMI('GROUP_MA','MAILLE',),
783 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
784 'TEMP','PRE1','PRE2','DNOR','DTAN'),
788 EXCLUS('DNOR','DRX'),
789 EXCLUS('DNOR','DRY'),
790 EXCLUS('DNOR','DRZ'),
794 EXCLUS('DTAN','DRX'),
795 EXCLUS('DTAN','DRY'),
796 EXCLUS('DTAN','DRZ'),),
797 # rajout d un mot clé REPERE :/ LOCAL /GLOBAL
798 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
799 MAILLE =SIMP(statut='f',typ=ma,max='**'),
800 DX =SIMP(statut='f',typ='R' ),
801 DY =SIMP(statut='f',typ='R' ),
802 DZ =SIMP(statut='f',typ='R' ),
803 DRX =SIMP(statut='f',typ='R' ),
804 DRY =SIMP(statut='f',typ='R' ),
805 DRZ =SIMP(statut='f',typ='R' ),
806 DNOR =SIMP(statut='f',typ='R' ),
807 DTAN =SIMP(statut='f',typ='R' ),
808 GRX =SIMP(statut='f',typ='R' ),
809 PRES =SIMP(statut='f',typ='R' ),
810 PHI =SIMP(statut='f',typ='R' ),
811 TEMP =SIMP(statut='f',typ='R' ),
812 PRE1 =SIMP(statut='f',typ='R' ),
813 PRE2 =SIMP(statut='f',typ='R' ),
815 LIAISON_DDL =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",min=01,max='**',
816 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
817 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
818 NOEUD =SIMP(statut='f',typ=no,max='**'),
819 DDL =SIMP(statut='o',typ='TXM',max='**'),
820 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
821 COEF_IMPO =SIMP(statut='o',typ='R' ),
823 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='**',
824 regles=(UN_PARMI('GROUP_NO','NOEUD'),
825 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
826 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
827 NOEUD =SIMP(statut='f',typ=no,max='**'),
828 ANGL_NAUT =SIMP(statut='o',typ='R',max=03),
829 DX =SIMP(statut='f',typ='R' ),
830 DY =SIMP(statut='f',typ='R' ),
831 DZ =SIMP(statut='f',typ='R' ),
832 DRX =SIMP(statut='f',typ='R' ),
833 DRY =SIMP(statut='f',typ='R' ),
834 DRZ =SIMP(statut='f',typ='R' ),
836 LIAISON_GROUP =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",min=01,max='**',
837 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
838 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
839 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
840 EXCLUS('GROUP_MA_1','NOEUD_2'),
841 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
842 EXCLUS('GROUP_NO_1','MAILLE_2'),
843 EXCLUS('MAILLE_1','GROUP_NO_2'),
844 EXCLUS('MAILLE_1','NOEUD_2'),
845 EXCLUS('NOEUD_1','GROUP_MA_2'),
846 EXCLUS('NOEUD_1','MAILLE_2'),
847 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
849 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
850 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
851 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
852 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
853 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
854 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
855 GROUP_NO_2 =SIMP(statut='f',typ=no,max='**'),
856 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
858 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
859 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
860 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
861 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
862 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
863 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
864 COEF_IMPO =SIMP(statut='o',typ='R' ),
865 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
866 TRAN =SIMP(statut='f',typ='R',max=03),
867 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
868 CENTRE =SIMP(statut='f',typ='R',max=03),
870 LIAISON_SOLIDE =FACT(statut='f',fr="Modéliser une partie indéformable d une structure",min=01,max='**',
871 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
872 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
873 NOEUD =SIMP(statut='f',typ=no,max='**'),
874 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
875 MAILLE =SIMP(statut='f',typ=ma,max='**'),
876 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
878 LIAISON_UNIF =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d un emsemble de noeuds",min=01,max='**',
879 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
880 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
881 NOEUD =SIMP(statut='f',typ=no,max='**'),
882 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
883 MAILLE =SIMP(statut='f',typ=ma,max='**'),
884 DDL =SIMP(statut='o',typ='TXM',max='**'),
886 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='**',
887 # type de cham_no CO()
888 CHAM_NO =SIMP(statut='o',typ=cham_no), #CO()
889 COEF_IMPO =SIMP(statut='o',typ='R' ),
890 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
892 LIAISON_ELEM =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=01,max='**',
893 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
894 UN_PARMI('GROUP_NO_2','NOEUD_2'),),
895 OPTION =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
896 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
897 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
898 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
899 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
900 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
901 CARA_ELEM =SIMP(statut='f',typ=(cara_elem) ),
902 AXE_POUTRE =SIMP(statut='f',typ='R',max=03),
903 ANGL_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
905 LIAISON_COQUE =FACT(statut='f',min=01,max='**',
906 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
907 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
908 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
909 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
910 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
911 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
912 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
913 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
914 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
916 LIAISON_MAIL =FACT(statut='f',min=01,max='**',
917 regles=(PRESENT_ABSENT('GROUP_MA_1','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
918 PRESENT_ABSENT('MAILLE_1','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL',),
919 PRESENT_ABSENT('GROUP_MA_2','GROUP_MA_MAIT','MAILLE_MAIT'),
920 PRESENT_ABSENT('MAILLE_2','GROUP_MA_MAIT','MAILLE_MAIT'),
921 PRESENT_ABSENT('GROUP_NO_2','GROUP_MA_MAIT','MAILLE_MAIT'),
922 PRESENT_ABSENT('NOEUD_2','GROUP_MA_MAIT','MAILLE_MAIT'),
923 AU_MOINS_UN('GROUP_MA_1','MAILLE_1','GROUP_MA_MAIT','MAILLE_MAIT'),
924 AU_MOINS_UN('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
925 PRESENT_ABSENT('DDL_1','DDL_MAIT','DDL_ESCL'),
926 PRESENT_ABSENT('DDL_2','DDL_MAIT','DDL_ESCL'),
927 PRESENT_PRESENT('DDL_1','DDL_2'),
928 PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
929 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
930 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
931 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
932 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
933 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
934 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
935 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
936 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
937 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
938 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
939 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
940 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
941 TRAN =SIMP(statut='f',typ='R',max=03 ),
942 ANGL_NAUT =SIMP(statut='f',typ='R',max=03 ),
943 CENTRE =SIMP(statut='f',typ='R',max=03 ),
944 DDL_1 =SIMP(statut='f',typ='TXM',max='**',into=("DNOR",) ),
945 DDL_2 =SIMP(statut='f',typ='TXM',max='**',into=("DNOR",) ),
946 DDL_MAIT =SIMP(statut='f',typ='TXM',max='**',into=("DNOR",) ),
947 DDL_ESCL =SIMP(statut='f',typ='TXM',max='**',into=("DNOR",) ),
950 FORCE_NODALE =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=01,max='**',
951 regles=(UN_PARMI('GROUP_NO','NOEUD'),
952 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
953 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
954 NOEUD =SIMP(statut='f',typ=no,max='**'),
955 FX =SIMP(statut='f',typ='R' ),
956 FY =SIMP(statut='f',typ='R' ),
957 FZ =SIMP(statut='f',typ='R' ),
958 MX =SIMP(statut='f',typ='R' ),
959 MY =SIMP(statut='f',typ='R' ),
960 MZ =SIMP(statut='f',typ='R' ),
961 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
964 FORCE_FACE =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d éléments volumiques",min=01,max='**',
965 regles=(UN_PARMI('GROUP_MA','MAILLE'),
966 AU_MOINS_UN('FX','FY','FZ'),),
967 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
968 MAILLE =SIMP(statut='f',typ=ma,max='**'),
969 FX =SIMP(statut='f',typ='R' ),
970 FY =SIMP(statut='f',typ='R' ),
971 FZ =SIMP(statut='f',typ='R' ),
973 FORCE_ARETE =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",min=01,max='**',
974 regles=(UN_PARMI('GROUP_MA','MAILLE',),
975 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
976 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
977 MAILLE =SIMP(statut='f',typ=ma,max='**'),
978 FX =SIMP(statut='f',typ='R' ),
979 FY =SIMP(statut='f',typ='R' ),
980 FZ =SIMP(statut='f',typ='R' ),
981 MX =SIMP(statut='f',typ='R' ),
982 MY =SIMP(statut='f',typ='R' ),
983 MZ =SIMP(statut='f',typ='R' ),
985 FORCE_CONTOUR =FACT(statut='f',fr="Appliquer des forces linéiques au bord d un domaine 2D ou AXIS_FOURIER",min=01,max='**',
986 regles=(UN_PARMI('GROUP_MA','MAILLE'),
987 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
988 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
989 MAILLE =SIMP(statut='f',typ=ma,max='**'),
990 FX =SIMP(statut='f',typ='R' ),
991 FY =SIMP(statut='f',typ='R' ),
992 FZ =SIMP(statut='f',typ='R' ),
993 MX =SIMP(statut='f',typ='R' ),
994 MY =SIMP(statut='f',typ='R' ),
995 MZ =SIMP(statut='f',typ='R' ),
997 FORCE_INTERNE =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",min=01,max='**',
998 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
999 AU_MOINS_UN('FX','FY','FZ' ),),
1000 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1001 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1002 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1003 FX =SIMP(statut='f',typ='R' ),
1004 FY =SIMP(statut='f',typ='R' ),
1005 FZ =SIMP(statut='f',typ='R' ),
1007 PRES_REP =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",min=01,max='**',
1008 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1009 AU_MOINS_UN('PRES','CISA_2D' ),),
1010 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1011 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1012 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1013 PRES =SIMP(statut='f',typ='R' ),
1014 CISA_2D =SIMP(statut='f',typ='R' ),
1016 EPSI_INIT =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",min=01,max='**',
1017 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1018 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1019 'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1020 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1021 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1022 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1023 EPXX =SIMP(statut='f',typ='R' ),
1024 EPYY =SIMP(statut='f',typ='R' ),
1025 EPZZ =SIMP(statut='f',typ='R' ),
1026 EPXY =SIMP(statut='f',typ='R' ),
1027 EPXZ =SIMP(statut='f',typ='R' ),
1028 EPYZ =SIMP(statut='f',typ='R' ),
1029 EPX =SIMP(statut='f',typ='R' ),
1030 KY =SIMP(statut='f',typ='R' ),
1031 KZ =SIMP(statut='f',typ='R' ),
1032 EXX =SIMP(statut='f',typ='R' ),
1033 EYY =SIMP(statut='f',typ='R' ),
1034 EXY =SIMP(statut='f',typ='R' ),
1035 KXX =SIMP(statut='f',typ='R' ),
1036 KYY =SIMP(statut='f',typ='R' ),
1037 KXY =SIMP(statut='f',typ='R' ),
1041 FORCE_COQUE =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=01,max='**',
1042 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1043 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1044 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1045 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1046 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1047 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1048 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1049 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1050 PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1051 PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1052 PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1053 PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1054 PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1055 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1056 # rajour d un mot clé REPERE :/ LOCAL /GLOBAL
1057 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1058 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1059 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1061 FX =SIMP(statut='f',typ='R' ),
1062 FY =SIMP(statut='f',typ='R' ),
1063 FZ =SIMP(statut='f',typ='R' ),
1064 MX =SIMP(statut='f',typ='R' ),
1065 MY =SIMP(statut='f',typ='R' ),
1066 MZ =SIMP(statut='f',typ='R' ),
1068 F1 =SIMP(statut='f',typ='R' ),
1069 F2 =SIMP(statut='f',typ='R' ),
1070 F3 =SIMP(statut='f',typ='R' ),
1071 MF1 =SIMP(statut='f',typ='R' ),
1072 MF2 =SIMP(statut='f',typ='R' ),
1074 PRES =SIMP(statut='f',typ='R' ),
1075 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1077 FORCE_POUTRE =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=01,max='**',
1078 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1079 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1080 PRESENT_ABSENT('FX','N','VY','VZ'),
1081 PRESENT_ABSENT('FY','N','VY','VZ'),
1082 PRESENT_ABSENT('FZ','N','VY','VZ'),
1083 PRESENT_ABSENT('N','FX','FY','FZ'),
1084 PRESENT_ABSENT('VY','FX','FY','FZ'),
1085 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1086 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1087 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1088 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1089 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1090 # rajour d un mot clé REPERE :/ LOCAL /GLOBAL
1091 FX =SIMP(statut='f',typ='R' ),
1092 FY =SIMP(statut='f',typ='R' ),
1093 FZ =SIMP(statut='f',typ='R' ),
1095 N =SIMP(statut='f',typ='R' ),
1096 VY =SIMP(statut='f',typ='R' ),
1097 VZ =SIMP(statut='f',typ='R' ),
1100 FORCE_TUYAU =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=01,max='**',
1101 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
1102 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1103 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1104 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1105 PRES =SIMP(statut='f',typ='R' ),
1109 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='**',
1110 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1111 AU_MOINS_UN('FX','FY','FZ','POSITION'),
1112 EXCLUS('FX','POSITION'),
1113 EXCLUS('FY','POSITION'),
1114 EXCLUS('FZ','POSITION'),),
1115 # trop de règles : les blocs conditionnels permettent d en suprimer
1116 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1117 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1118 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1120 FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1121 FY =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1122 FZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1124 POSITION =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1125 b_para =BLOC ( condition = "POSITION == 'PARA'",
1126 regles=(UN_PARMI('TRANS','DIST'),),
1127 TRANS =SIMP(statut='f',typ='R',max=03),
1128 DIST =SIMP(statut='f',typ='R' ),
1129 b_point2 =BLOC ( condition = "DIST != None",
1130 POINT2 =SIMP(statut='o',typ='R',max=03),
1133 b_fini_infi =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1134 POINT1 =SIMP(statut='o',typ='R',max=03),
1135 POINT2 =SIMP(statut='o',typ='R',max=03),
1138 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='**',
1139 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1140 AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1141 EXCLUS('TRANS','SYME'),),
1142 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1143 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1144 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1145 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1146 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1147 TRANS =SIMP(statut='f',typ='R',max='**'),
1148 SYME =SIMP(statut='f',typ='R',max='**'),
1152 VITE_FACE =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=01,max='**',
1153 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1154 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1155 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1156 VNOR =SIMP(statut='o',typ='R' ),
1158 ONDE_FLUI =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=01,max='**',
1159 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1160 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1161 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1162 PRES =SIMP(statut='o',typ='R' ),
1164 IMPE_FACE =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=01,max='**',
1165 regles=(UN_PARMI('GROUP_MA','MAILLE' ),),
1166 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1167 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1168 IMPE =SIMP(statut='o',typ='R' ),
1172 FLUX_THM_REP =FACT(statut='f',min=01,max='**',
1173 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1174 AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1175 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1176 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1177 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1178 FLUN =SIMP(statut='f',typ='R' ),
1179 FLUN_HYDR1 =SIMP(statut='f',typ='R' ),
1180 FLUN_HYDR2 =SIMP(statut='f',typ='R' ),
1183 EFFE_FOND =FACT(statut='f',fr="Imposer un effet de fond",min=01,max='**',
1184 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1185 GROUP_MA_INT =SIMP(statut='o',typ=grma,max='**'),
1186 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1187 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1188 PRES =SIMP(statut='o',typ='R' ),
1191 LIAISON_UNIL_NO =FACT(statut='f',min=01,max='**',
1192 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1193 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1194 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),# CO()
1195 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),# CO()
1196 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),# CO()
1197 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),# CO()
1198 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1199 TRAN =SIMP(statut='f',typ='R',max=03 ),
1200 ANGL_NAUT =SIMP(statut='f',typ='R',max=03 ),
1201 CENTRE =SIMP(statut='f',typ='R',max=03 ),
1202 ANGLE_MAX =SIMP(statut='f',typ='R' ),
1203 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",
1204 into=("SANS","TRESCA","COULOMB") ),
1205 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1206 into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1207 COULOMB =SIMP(statut='f',typ='R' ),
1208 TRESCA =SIMP(statut='f',typ='R' ),
1209 E_T =SIMP(statut='f',typ='R' ),
1210 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1211 CONTACT =SIMP(statut='f',typ='TXM',into=("MAINTENU",) ),
1212 JEU =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1215 CONTACT =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=01,max='**',
1216 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),
1217 ENSEMBLE('FROTTEMENT','COULOMB'),
1218 EXCLUS('DIST_2','COEF_IMPO'),
1219 EXCLUS('DIST_1','COEF_IMPO'),
1220 EXCLUS('COEF_MULT_2','GROUP_MA_1'),
1221 EXCLUS('COEF_MULT_2','MAILLE_1'),
1222 EXCLUS('COEF_IMPO','GROUP_MA_1'),
1223 EXCLUS('COEF_IMPO','MAILLE_1'),),
1224 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1225 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1226 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1227 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1228 REAC_GEOM_INTE =SIMP(statut='f',typ='I',defaut= 2),
1229 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1230 into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1231 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1232 COULOMB =SIMP(statut='f',typ='R',max=1),
1233 E_T =SIMP(statut='f',typ='R' ),
1234 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1235 VECT_NORM_2 =SIMP(statut='f',typ='R',max=03),
1236 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE",) ),
1237 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1238 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1239 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1240 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1241 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1242 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1243 DIST_1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1244 DIST_2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1245 COEF_IMPO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1246 COEF_MULT_2 =SIMP(statut='f',typ='R',defaut= 1. ),
1249 RELA_CINE_BP =FACT(statut='f',min=01,max='**',
1250 CABLE_BP =SIMP(statut='o',typ=cabl_precont ),
1251 SIGM_BPEL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1252 RELA_CINE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1254 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1256 #& MODIF COMMANDE DATE 17/05/2000 AUTEUR CIBHHLV L.VIVAN
1257 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op= 7,sd_prod=char_meca,
1258 fr="Affectation de charges et conditions aux limites mécaniques complexes",
1259 docu="U4.44.05-C",reentrant='n',
1260 regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1261 MODELE =SIMP(statut='o',typ=modele ),
1262 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1263 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1264 DDL_IMPO =FACT(statut='f',min=01,max='**',
1265 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1266 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1267 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1268 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1269 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1270 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1271 NOEUD =SIMP(statut='f',typ=no,max='**'),
1272 DX =SIMP(statut='f',typ='C' ),
1273 DY =SIMP(statut='f',typ='C' ),
1274 DZ =SIMP(statut='f',typ='C' ),
1275 DRX =SIMP(statut='f',typ='C' ),
1276 DRY =SIMP(statut='f',typ='C' ),
1277 DRZ =SIMP(statut='f',typ='C' ),
1278 GRX =SIMP(statut='f',typ='C' ),
1279 PRES =SIMP(statut='f',typ='C' ),
1280 PHI =SIMP(statut='f',typ='C' ),
1282 FORCE_POUTRE =FACT(statut='f',min=01,max='**',
1283 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE',),
1284 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1285 PRESENT_ABSENT('FX','N','VY','VZ',),
1286 PRESENT_ABSENT('FY','N','VY','VZ',),
1287 PRESENT_ABSENT('FZ','N','VY','VZ',),
1288 PRESENT_ABSENT('N','FX','FY','FZ',),
1289 PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1290 PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1291 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1292 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1293 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1294 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1295 FX =SIMP(statut='f',typ='C' ),
1296 FY =SIMP(statut='f',typ='C' ),
1297 FZ =SIMP(statut='f',typ='C' ),
1298 N =SIMP(statut='f',typ='C' ),
1299 VY =SIMP(statut='f',typ='C' ),
1300 VZ =SIMP(statut='f',typ='C' ),
1302 LIAISON_DDL =FACT(statut='f',min=01,max='**',
1303 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1304 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1305 NOEUD =SIMP(statut='f',typ=no,max='**'),
1306 DDL =SIMP(statut='o',typ='TXM',max='**'),
1307 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1308 COEF_IMPO =SIMP(statut='o',typ='C' ),
1310 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1312 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR UFBHHLL C.CHAVANT
1313 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1314 fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur (temps, ...)",
1315 docu="U4.44.01-F",reentrant='n',
1316 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1317 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1318 'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1319 'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1320 'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1322 MODELE =SIMP(statut='o',typ=modele ),
1323 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1324 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1325 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1327 DDL_IMPO =FACT(statut='f',min=01,max='**',
1328 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1329 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1330 'TEMP','PRE1','PRE2'),),
1331 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1332 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1333 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1334 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1335 NOEUD =SIMP(statut='f',typ=no,max='**'),
1336 DX =SIMP(statut='f',typ=(fonction) ),
1337 DY =SIMP(statut='f',typ=(fonction) ),
1338 DZ =SIMP(statut='f',typ=(fonction) ),
1339 DRX =SIMP(statut='f',typ=(fonction) ),
1340 DRY =SIMP(statut='f',typ=(fonction) ),
1341 DRZ =SIMP(statut='f',typ=(fonction) ),
1342 GRX =SIMP(statut='f',typ=(fonction) ),
1343 PRES =SIMP(statut='f',typ=(fonction) ),
1344 PHI =SIMP(statut='f',typ=(fonction) ),
1345 TEMP =SIMP(statut='f',typ=(fonction) ),
1346 PRE1 =SIMP(statut='f',typ=(fonction) ),
1347 PRE2 =SIMP(statut='f',typ=(fonction) ),
1349 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
1350 fr="Imposer une meme valeur (inconnue) à des ddls d un emsemble de noeuds",
1351 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1352 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1353 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1354 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1355 NOEUD =SIMP(statut='f',typ=no,max='**'),
1356 DDL =SIMP(statut='o',typ='TXM',max='**'),
1358 LIAISON_SOLIDE =FACT(statut='f',min=01,max='**',
1359 fr="Modéliser une partie indéformable d une structure",
1360 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1361 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1362 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1363 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1364 NOEUD =SIMP(statut='f',typ=no,max='**'),
1365 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1367 LIAISON_OBLIQUE =FACT(statut='f',min=01,max='**',
1368 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1369 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1370 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1371 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1372 NOEUD =SIMP(statut='f',typ=no,max='**'),
1373 ANGL_NAUT =SIMP(statut='o',typ='R',max=03),
1374 DX =SIMP(statut='f',typ=(fonction) ),
1375 DY =SIMP(statut='f',typ=(fonction) ),
1376 DZ =SIMP(statut='f',typ=(fonction) ),
1377 DRX =SIMP(statut='f',typ=(fonction) ),
1378 DRY =SIMP(statut='f',typ=(fonction) ),
1379 DRZ =SIMP(statut='f',typ=(fonction) ),
1381 LIAISON_COQUE =FACT(statut='f',min=01,max='**',
1382 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1383 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1384 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1385 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1386 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1387 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1388 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1389 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1390 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1392 FACE_IMPO =FACT(statut='f',min=01,max='**',
1393 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1394 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1395 EXCLUS('DNOR','DX'),
1396 EXCLUS('DNOR','DY'),
1397 EXCLUS('DNOR','DZ'),
1398 EXCLUS('DNOR','DRX'),
1399 EXCLUS('DNOR','DRY'),
1400 EXCLUS('DNOR','DRZ'),
1401 EXCLUS('DTAN','DX'),
1402 EXCLUS('DTAN','DY'),
1403 EXCLUS('DTAN','DZ'),
1404 EXCLUS('DTAN','DRX'),
1405 EXCLUS('DTAN','DRY'),
1406 EXCLUS('DTAN','DRZ'),),
1407 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1408 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1409 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1410 DX =SIMP(statut='f',typ=(fonction) ),
1411 DY =SIMP(statut='f',typ=(fonction) ),
1412 DZ =SIMP(statut='f',typ=(fonction) ),
1413 DRX =SIMP(statut='f',typ=(fonction) ),
1414 DRY =SIMP(statut='f',typ=(fonction) ),
1415 DRZ =SIMP(statut='f',typ=(fonction) ),
1416 GRX =SIMP(statut='f',typ=(fonction) ),
1417 PRES =SIMP(statut='f',typ=(fonction) ),
1418 PHI =SIMP(statut='f',typ=(fonction) ),
1419 TEMP =SIMP(statut='f',typ=(fonction) ),
1420 PRE1 =SIMP(statut='f',typ=(fonction) ),
1421 PRE2 =SIMP(statut='f',typ=(fonction) ),
1422 DNOR =SIMP(statut='f',typ=(fonction) ),
1423 DTAN =SIMP(statut='f',typ=(fonction) ),
1425 LIAISON_DDL =FACT(statut='f',min=01,max='**',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1426 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1427 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1428 NOEUD =SIMP(statut='f',typ=no,max='**'),
1429 DDL =SIMP(statut='o',typ='TXM',max='**'),
1430 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1431 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1433 LIAISON_GROUP =FACT(statut='f',min=01,max='**',
1434 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1435 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1436 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1437 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1438 EXCLUS('GROUP_MA_1','NOEUD_2'),
1439 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1440 EXCLUS('GROUP_NO_1','MAILLE_2'),
1441 EXCLUS('MAILLE_1','GROUP_NO_2'),
1442 EXCLUS('MAILLE_1','NOEUD_2'),
1443 EXCLUS('NOEUD_1','GROUP_MA_2'),
1444 EXCLUS('NOEUD_1','MAILLE_2'),
1445 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1446 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1447 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1448 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1449 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1450 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1451 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1452 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1453 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1454 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1455 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1456 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
1457 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
1458 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
1459 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
1460 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1461 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1462 TRAN =SIMP(statut='f',typ='R',max=03),
1463 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
1464 CENTRE =SIMP(statut='f',typ='R',max=03),
1467 FORCE_NODALE =FACT(statut='f',min=01,max='**',
1468 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1469 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1470 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1471 NOEUD =SIMP(statut='f',typ=no,max='**'),
1472 FX =SIMP(statut='f',typ=(fonction) ),
1473 FY =SIMP(statut='f',typ=(fonction) ),
1474 FZ =SIMP(statut='f',typ=(fonction) ),
1475 MX =SIMP(statut='f',typ=(fonction) ),
1476 MY =SIMP(statut='f',typ=(fonction) ),
1477 MZ =SIMP(statut='f',typ=(fonction) ),
1478 ANGL_NAUT =SIMP(statut='f',typ=(fonction),max=03 ),
1480 FORCE_INTERNE =FACT(statut='f',min=01,max='**',
1481 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1482 AU_MOINS_UN('FX','FY','FZ'),),
1483 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1484 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1485 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1486 FX =SIMP(statut='f',typ=(fonction) ),
1487 FY =SIMP(statut='f',typ=(fonction) ),
1488 FZ =SIMP(statut='f',typ=(fonction) ),
1490 FORCE_FACE =FACT(statut='f',min=01,max='**',
1491 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1492 AU_MOINS_UN('FX','FY','FZ'),),
1493 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1494 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1495 FX =SIMP(statut='f',typ=(fonction) ),
1496 FY =SIMP(statut='f',typ=(fonction) ),
1497 FZ =SIMP(statut='f',typ=(fonction) ),
1499 FORCE_ARETE =FACT(statut='f',min=01,max='**',
1500 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1501 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1502 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1503 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1504 FX =SIMP(statut='f',typ=(fonction) ),
1505 FY =SIMP(statut='f',typ=(fonction) ),
1506 FZ =SIMP(statut='f',typ=(fonction) ),
1507 MX =SIMP(statut='f',typ=(fonction) ),
1508 MY =SIMP(statut='f',typ=(fonction) ),
1509 MZ =SIMP(statut='f',typ=(fonction) ),
1511 FORCE_CONTOUR =FACT(statut='f',min=01,max='**',
1512 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1513 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1514 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1515 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1516 FX =SIMP(statut='f',typ=(fonction) ),
1517 FY =SIMP(statut='f',typ=(fonction) ),
1518 FZ =SIMP(statut='f',typ=(fonction) ),
1519 MX =SIMP(statut='f',typ=(fonction) ),
1520 MY =SIMP(statut='f',typ=(fonction) ),
1521 MZ =SIMP(statut='f',typ=(fonction) ),
1523 PRES_REP =FACT(statut='f',min=01,max='**',
1524 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1525 AU_MOINS_UN('PRES','CISA_2D'),),
1526 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1527 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1528 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1529 PRES =SIMP(statut='f',typ=(fonction) ),
1530 CISA_2D =SIMP(statut='f',typ=(fonction) ),
1533 FORCE_COQUE =FACT(statut='f',min=01,max='**',
1534 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1535 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1536 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1537 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1538 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1539 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1540 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1541 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1542 PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
1543 PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
1544 PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
1545 PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
1546 PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
1547 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1548 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1549 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1550 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1551 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1552 FX =SIMP(statut='f',typ=(fonction) ),
1553 FY =SIMP(statut='f',typ=(fonction) ),
1554 FZ =SIMP(statut='f',typ=(fonction) ),
1555 MX =SIMP(statut='f',typ=(fonction) ),
1556 MY =SIMP(statut='f',typ=(fonction) ),
1557 MZ =SIMP(statut='f',typ=(fonction) ),
1558 F1 =SIMP(statut='f',typ=(fonction) ),
1559 F2 =SIMP(statut='f',typ=(fonction) ),
1560 F3 =SIMP(statut='f',typ=(fonction) ),
1561 MF1 =SIMP(statut='f',typ=(fonction) ),
1562 MF2 =SIMP(statut='f',typ=(fonction) ),
1563 PRES =SIMP(statut='f',typ=(fonction) ),
1564 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",
1565 into=("SUP","INF","MOY","MAIL") ),
1567 FORCE_POUTRE =FACT(statut='f',min=01,max='**',
1568 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1569 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1570 PRESENT_ABSENT('FX','N','VY','VZ'),
1571 PRESENT_ABSENT('FY','N','VY','VZ'),
1572 PRESENT_ABSENT('FZ','N','VY','VZ'),
1573 PRESENT_ABSENT('N','FX','FY','FZ'),
1574 PRESENT_ABSENT('VY','FX','FY','FZ'),
1575 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1576 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1577 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1578 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1579 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1580 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1581 FX =SIMP(statut='f',typ=(fonction) ),
1582 FY =SIMP(statut='f',typ=(fonction) ),
1583 FZ =SIMP(statut='f',typ=(fonction) ),
1584 N =SIMP(statut='f',typ=(fonction) ),
1585 VY =SIMP(statut='f',typ=(fonction) ),
1586 VZ =SIMP(statut='f',typ=(fonction) ),
1588 FORCE_TUYAU =FACT(statut='f',min=01,max='**',
1589 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
1590 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1591 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1592 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1593 PRES =SIMP(statut='f',typ=(fonction) ),
1595 VITE_FACE =FACT(statut='f',min=01,max='**',
1596 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1597 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1598 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1599 VNOR =SIMP(statut='o',typ=(fonction) ),
1601 IMPE_FACE =FACT(statut='f',min=01,max='**',
1602 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
1603 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1604 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1605 IMPE =SIMP(statut='o',typ=(fonction) ),
1607 ONDE_PLANE =FACT(statut='f',min=01,max='**',
1608 DIRECTION =SIMP(statut='o',typ='R',max='**'),
1609 TYPE_ONDE =SIMP(statut='o',typ='TXM' ),
1610 FONC_SIGNAL =SIMP(statut='o',typ=(fonction) ),
1611 DIST_ORIG =SIMP(statut='o',typ='R' ),
1613 EPSI_INIT =FACT(statut='f',min=01,max='**',
1614 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1615 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
1616 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1617 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1618 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1619 EPXX =SIMP(statut='f',typ=(fonction) ),
1620 EPYY =SIMP(statut='f',typ=(fonction) ),
1621 EPZZ =SIMP(statut='f',typ=(fonction) ),
1622 EPXY =SIMP(statut='f',typ=(fonction) ),
1623 EPXZ =SIMP(statut='f',typ=(fonction) ),
1624 EPYZ =SIMP(statut='f',typ=(fonction) ),
1627 CONTACT =FACT(statut='f',min=01,max='**',
1628 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),
1629 ENSEMBLE('FROTTEMENT','COULOMB'),
1630 EXCLUS('DIST_2','COEF_IMPO'),
1631 EXCLUS('DIST_1','COEF_IMPO'),
1632 EXCLUS('COEF_MULT_2','GROUP_MA_1'),
1633 EXCLUS('COEF_MULT_2','MAILLE_1'),
1634 EXCLUS('COEF_IMPO','GROUP_MA_1'),
1635 EXCLUS('COEF_IMPO','MAILLE_1'),),
1636 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP") ),
1637 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1638 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME") ),
1639 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",
1640 into=("NOEUD_BOUCLE","NOEUD_VOISIN") ),
1641 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1642 into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1643 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1644 COULOMB =SIMP(statut='f',typ='R',max=1),
1645 E_T =SIMP(statut='f',typ='R' ),
1646 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1647 VECT_NORM_2 =SIMP(statut='f',typ='R',max=03),
1648 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE",) ),
1649 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1650 MAILLE_1 =SIMP(statut='f',typ=ma,max='**' ),
1651 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1652 MAILLE_2 =SIMP(statut='f',typ=ma,max='**' ),
1653 SANS_NOEUD =SIMP(statut='f',typ=no,max='**' ),
1654 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1655 DIST_1 =SIMP(statut='f',typ=(fonction) ),
1656 DIST_2 =SIMP(statut='f',typ=(fonction) ),
1657 COEF_IMPO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1658 COEF_MULT_2 =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
1660 FLUX_THM_REP =FACT(statut='f',min=01,max='**',
1661 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1662 AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1663 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1664 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1665 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1666 FLUN =SIMP(statut='f',typ=(fonction) ),
1667 FLUN_HYDR1 =SIMP(statut='f',typ=(fonction) ),
1668 FLUN_HYDR2 =SIMP(statut='f',typ=(fonction) ),
1671 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1673 #& MODIF COMMANDE DATE 17/11/1999 AUTEUR CIBHHGB G.BERTRAND
1674 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
1676 docu=" ",reentrant='n',
1677 regles=(AU_MOINS_UN('CARA_TORSION', ),),
1678 MODELE =SIMP(statut='o',typ=modele ),
1679 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",
1680 into=("OUI","NON") ),
1681 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1682 CARA_TORSION =FACT(statut='f',min=01,max='**',
1683 regles=(UN_PARMI('TOUT','GROUP_MA'),),
1684 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1685 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1687 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
1689 #& MODIF COMMANDE DATE 28/11/2000 AUTEUR CIBHHLV L.VIVAN
1690 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
1691 ,fr="Affectation de charges et conditions aux limites thermiques constantes",
1692 docu="U4.44.02-F",reentrant='n',
1693 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
1694 'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
1695 'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
1696 MODELE =SIMP(statut='o',typ=(modele) ),
1697 VERI_DDL =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
1698 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1699 LIAISON_DDL =FACT(statut='f',min=01,max='**',
1700 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1701 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1702 NOEUD =SIMP(statut='f',typ=no,max='**'),
1703 DDL =SIMP(statut='f',typ='TXM',max='**',
1704 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1705 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1706 COEF_IMPO =SIMP(statut='o',typ='R' ),
1708 TEMP_IMPO =FACT(statut='f',min=01,max='**',
1709 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1710 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
1711 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1712 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1713 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1714 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1715 NOEUD =SIMP(statut='f',typ=no,max='**'),
1716 TEMP =SIMP(statut='f',typ='R'),
1717 TEMP_INF =SIMP(statut='f',typ='R'),
1718 TEMP_SUP =SIMP(statut='f',typ='R'), ),
1719 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
1720 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1721 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1722 NOEUD =SIMP(statut='f',typ=no,max='**'),
1723 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1724 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1725 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1726 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1728 LIAISON_CHAMNO =FACT(statut='f',min=01,max='**',
1729 CHAM_NO =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
1730 COEF_IMPO =SIMP(statut='o',typ='R' ),
1731 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1733 SOURCE =FACT(statut='f',min=01,max='**',
1734 regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
1735 PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
1736 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1737 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1738 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1739 SOUR =SIMP(statut='f',typ='R'),
1740 SOUR_CALCULEE =SIMP(statut='f',typ=(cham_elem_sour_r) ),
1742 FLUX_REP =FACT(statut='f',min=01,max='**',
1743 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1744 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
1745 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1746 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1747 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1748 FLUN =SIMP(statut='f',typ='R'),
1749 FLUN_INF =SIMP(statut='f',typ='R'),
1750 FLUN_SUP =SIMP(statut='f',typ='R'),
1751 CARA_TORSION =SIMP(statut='f',typ=tabl_aire_int ),
1753 ECHANGE =FACT(statut='f',min=01,max='**',
1754 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1755 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
1756 ENSEMBLE('COEF_H','TEMP_EXT',),
1757 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
1758 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
1759 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1760 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1761 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1762 COEF_H =SIMP(statut='f',typ='R'),
1763 TEMP_EXT =SIMP(statut='f',typ='R'),
1764 COEF_H_INF =SIMP(statut='f',typ='R'),
1765 TEMP_EXT_INF =SIMP(statut='f',typ='R'),
1766 COEF_H_SUP =SIMP(statut='f',typ='R'),
1767 TEMP_EXT_SUP =SIMP(statut='f',typ='R'),
1769 ECHANGE_PAROI =FACT(statut='f',min=01,max='**',
1770 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1771 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1772 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1773 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1774 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1775 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1776 COEF_H =SIMP(statut='o',typ='R'),
1777 TRAN =SIMP(statut='f',typ='R',max='**'),
1778 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
1779 CENTRE =SIMP(statut='f',typ='R',max='**'),
1781 GRAD_TEMP_INIT =FACT(statut='f',min=01,max='**',
1782 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1783 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
1784 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1785 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1786 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1787 FLUX_X =SIMP(statut='f',typ='R' ),
1788 FLUX_Y =SIMP(statut='f',typ='R' ),
1789 FLUX_Z =SIMP(statut='f',typ='R' ),
1791 LIAISON_GROUP =FACT(statut='f',min=01,max='**',
1792 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1793 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1794 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1795 EXCLUS('GROUP_MA_1','NOEUD_2'),
1796 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1797 EXCLUS('GROUP_NO_1','MAILLE_2'),
1798 EXCLUS('MAILLE_1','GROUP_NO_2'),
1799 EXCLUS('MAILLE_1','NOEUD_2'),
1800 EXCLUS('NOEUD_1','GROUP_MA_2'),
1801 EXCLUS('NOEUD_1','MAILLE_2'),
1802 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1803 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1804 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1805 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1806 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1807 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1808 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1809 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1810 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1811 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1812 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1813 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1814 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1815 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
1816 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1817 into=("TEMP","TEMP_INF","TEMP_SUP",) ),
1818 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
1819 COEF_IMPO =SIMP(statut='o',typ='R' ),
1820 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1821 TRAN =SIMP(statut='f',typ='R',max='**'),
1822 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
1823 CENTRE =SIMP(statut='f',typ='R',max='**'),
1825 CONVECTION =FACT(statut='f',min=01,max='**',
1826 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
1828 RAYONNEMENT =FACT(statut='f',min=01,max='**',
1829 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE',),
1830 ENSEMBLE('SIGMA','EPSILON','TEMP_EXT'),),
1831 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1832 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1833 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1834 SIGMA =SIMP(statut='o',typ='R'),
1835 EPSILON =SIMP(statut='o',typ='R'),
1836 TEMP_EXT =SIMP(statut='o',typ='R'),
1838 LIAISON_MAIL =FACT(statut='f',min=01,max='**',
1839 regles=(PRESENT_ABSENT('GROUP_MA_1','GROUP_MA_ESCL','MAILLE_ESCL',
1840 'GROUP_NO_ESCL','NOEUD_ESCL'),
1841 PRESENT_ABSENT('MAILLE_1','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1842 PRESENT_ABSENT('GROUP_MA_2','GROUP_MA_MAIT','MAILLE_MAIT'),
1843 PRESENT_ABSENT('MAILLE_2','GROUP_MA_MAIT','MAILLE_MAIT'),
1844 PRESENT_ABSENT('GROUP_NO_2','GROUP_MA_MAIT','MAILLE_MAIT'),
1845 PRESENT_ABSENT('NOEUD_2','GROUP_MA_MAIT','MAILLE_MAIT'),
1846 AU_MOINS_UN('GROUP_MA_1','MAILLE_1','GROUP_MA_MAIT','MAILLE_MAIT'),
1847 AU_MOINS_UN('GROUP_MA_2','MAILLE_2','GROUP_NO_2',
1848 'NOEUD_2','GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
1850 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1851 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1852 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
1853 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
1854 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1855 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1856 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1857 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1858 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
1859 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
1860 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
1861 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
1862 TRAN =SIMP(statut='f',typ='R',max='**' ),
1863 ANGL_NAUT =SIMP(statut='f',typ='R',max='**' ),
1864 CENTRE =SIMP(statut='f',typ='R',max='**' ),
1866 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
1868 #& MODIF COMMANDE DATE 12/05/99 AUTEUR VABHHTS J.PELLET
1869 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
1870 fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
1871 docu="U4.44.02-F",reentrant='n',
1872 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
1873 'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
1874 'GRAD_TEMP_INIT','RAYONNEMENT'),),
1875 MODELE =SIMP(statut='o',typ=(modele) ),
1876 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1877 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
1878 LIAISON_DDL =FACT(statut='f',min=01,max='**',
1879 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1880 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1881 NOEUD =SIMP(statut='f',typ=no,max='**'),
1882 DDL =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
1883 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1884 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1886 TEMP_IMPO =FACT(statut='f',min=01,max='**',
1887 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1888 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
1889 PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
1890 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1891 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1892 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1893 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1894 NOEUD =SIMP(statut='f',typ=no,max='**'),
1895 EVOL_THER =SIMP(statut='f',typ=(evol_ther) ),
1896 DDL =SIMP(statut='f',typ='TXM',max='**',into=("TEMP",) ),
1897 TEMP =SIMP(statut='f',typ=(fonction) ),
1898 TEMP_INF =SIMP(statut='f',typ=(fonction) ),
1899 TEMP_SUP =SIMP(statut='f',typ=(fonction) ),
1901 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
1902 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1903 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1904 NOEUD =SIMP(statut='f',typ=no,max='**'),
1905 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1906 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1907 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1908 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1910 SOURCE =FACT(statut='f',min=01,max='**',
1911 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
1912 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1913 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1914 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1915 SOUR =SIMP(statut='o',typ=(fonction) ),
1917 FLUX_REP =FACT(statut='f',min=01,max='**',
1918 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE',),
1919 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
1920 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1921 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1922 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1923 FLUN =SIMP(statut='f',typ=(fonction) ),
1924 FLUN_INF =SIMP(statut='f',typ=(fonction) ),
1925 FLUN_SUP =SIMP(statut='f',typ=(fonction) ),
1926 FLUX_X =SIMP(statut='f',typ=(fonction) ),
1927 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
1928 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
1930 FLUX_NL =FACT(statut='f',min=01,max='**',
1931 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
1932 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1933 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1934 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1935 FLUN =SIMP(statut='o',typ=(fonction) ),
1937 ECHANGE =FACT(statut='f',min=01,max='**',
1938 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE',),
1939 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
1940 ENSEMBLE('COEF_H','TEMP_EXT'),
1941 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
1942 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
1943 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1944 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1945 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1946 COEF_H =SIMP(statut='f',typ=(fonction) ),
1947 TEMP_EXT =SIMP(statut='f',typ=(fonction) ),
1948 COEF_H_INF =SIMP(statut='f',typ=(fonction) ),
1949 TEMP_EXT_INF =SIMP(statut='f',typ=(fonction) ),
1950 COEF_H_SUP =SIMP(statut='f',typ=(fonction) ),
1951 TEMP_EXT_SUP =SIMP(statut='f',typ=(fonction) ),
1953 ECHANGE_PAROI =FACT(statut='f',min=01,max='**',
1954 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1955 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1956 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1957 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1958 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1959 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1960 COEF_H =SIMP(statut='o',typ=(fonction) ),
1961 TRAN =SIMP(statut='f',typ='R',max='**'),
1962 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
1963 CENTRE =SIMP(statut='f',typ='R',max='**'),
1965 GRAD_TEMP_INIT =FACT(statut='f',min=01,max='**',
1966 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
1967 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
1968 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1969 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1970 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1971 FLUX_X =SIMP(statut='f',typ=(fonction) ),
1972 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
1973 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
1975 LIAISON_GROUP =FACT(statut='f',min=01,max='**',
1976 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1977 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1978 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1979 EXCLUS('GROUP_MA_1','NOEUD_2'),
1980 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1981 EXCLUS('GROUP_NO_1','MAILLE_2'),
1982 EXCLUS('MAILLE_1','GROUP_NO_2'),
1983 EXCLUS('MAILLE_1','NOEUD_2'),
1984 EXCLUS('NOEUD_1','GROUP_MA_2'),
1985 EXCLUS('NOEUD_1','MAILLE_2'),
1986 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1987 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1988 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1989 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1990 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1991 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1992 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1993 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1994 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1995 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1996 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1997 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1998 into=("TEMP","TEMP_INF","TEMP_SUP") ),
1999 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
2000 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2001 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2002 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
2003 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
2004 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2005 TRAN =SIMP(statut='f',typ='R',max='**'),
2006 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
2007 CENTRE =SIMP(statut='f',typ='R',max='**'),
2009 CONVECTION =FACT(statut='f',min=01,max='**',
2010 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
2012 RAYONNEMENT =FACT(statut='f',min=01,max='**',
2013 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),
2014 ENSEMBLE('SIGMA','EPSILON','TEMP_EXT'),),
2015 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2016 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2017 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2018 SIGMA =SIMP(statut='o',typ=(fonction) ),
2019 EPSILON =SIMP(statut='o',typ=(fonction) ),
2020 TEMP_EXT =SIMP(statut='o',typ=(fonction) ),
2022 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2024 #& MODIF COMMANDE DATE 24/09/97 AUTEUR CIBHHLV L.VIVAN
2025 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2026 fr="Affectation de caractéristiques de matériaux à un maillage",
2027 docu="U4.43.03-F",reentrant='n',
2028 MAILLAGE =SIMP(statut='o',typ=maillage),
2029 MODELE =SIMP(statut='f',typ=modele),
2030 AFFE =FACT(statut='o',min=01,max='**',
2031 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2032 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2033 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2034 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2035 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2036 NOEUD =SIMP(statut='f',typ=no,max='**'),
2037 MATER =SIMP(statut='o',typ=mater),
2038 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2041 #& MODIF COMMANDE DATE 26/09/2000 AUTEUR CIBHHLV L.VIVAN
2042 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-F",
2043 fr="Affectation des éléments finis sur le maillage",reentrant='n',
2044 regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2045 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
2046 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
2047 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2048 VERIF =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
2049 AFFE_SOUS_STRUC =FACT(statut='f',min=01,max=01,
2050 regles=(UN_PARMI('TOUT','MAILLE'),),
2051 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2052 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2053 PHENOMENE =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2055 AFFE =FACT(statut='f',min=01,max='**',
2056 regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2057 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2058 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2059 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2060 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2061 NOEUD =SIMP(statut='f',typ=no,max='**'),
2062 PHENOMENE =SIMP(statut='o',typ='TXM',
2063 into=("MECANIQUE","THERMIQUE","ACOUSTIQUE","NON_LOCAL") ),
2064 b_mecanique =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2065 fr="modelisations mécaniques",
2066 MODELISATION =SIMP(statut='o',typ='TXM', into=(
2134 b_thermique =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2135 fr="modelisations thermiques",
2136 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2149 b_acoustique =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2150 fr="modelisations acoustiques",
2151 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2156 b_non_local =BLOC( condition = "PHENOMENE=='NON_LOCAL'",
2157 fr="modelisations non locales",
2158 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2166 #& MODIF COMMANDE DATE 25/10/93 AUTEUR VABHHTS J.PELLET
2167 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-F",
2168 fr="Interrogation sur le catalogue des commandes et les concepts produits",
2169 regles=(AU_MOINS_UN('COMMANDE','CONCEPT','TYPE_ELEM', ),),
2170 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2171 TYPE_ELEM =FACT(fr="couple type_elem option",
2172 statut='f',min=01,max=01,
2173 INITEL =SIMP(statut='f',typ='TXM',defaut="NON",
2174 into=("OUI","NON",) ),
2176 COMMANDE =FACT(statut='f',min=01,max='**',
2177 NOM =SIMP(fr="liste des noms de commande",
2178 statut='f',typ='TXM',max='**',defaut="*"),
2179 OPTION =SIMP(fr="option d'édition de commande",
2180 statut='f',typ='TXM',defaut="CATALOGUE",
2181 into=("CATALOGUE","A_REMPLIR","NUMERO",) ),
2183 CONCEPT =FACT(statut='f',min=01,max='**',
2184 NOM =SIMP(fr="liste des noms de concept",
2185 statut='f',typ='TXM',max='**',defaut="*"),
2186 OPTION =SIMP(fr="option d'édition de concept",
2187 statut='f',typ='TXM',defaut="TOUT_TYPE",
2188 into=("TOUT_TYPE","CREER","A_CREER",) ),
2191 #& MODIF COMMANDE DATE 18/03/92 AUTEUR INCONNU INCONNU
2192 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
2193 fr="Assembler deux maillages sous un seul nom",
2194 docu="U4.23.03-E",reentrant='n',
2195 MAILLAGE =SIMP(statut='o',typ=maillage,min=02,max=02 ),
2197 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
2198 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
2199 fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
2200 docu="U4.65.04-D",reentrant='n',
2201 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
2202 OPTION =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
2204 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
2205 def asse_matrice_prod(MATR_ELEM,**args):
2206 if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
2207 if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
2208 if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
2209 if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
2210 raise AsException("type de concept resultat non prevu")
2212 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
2213 fr="Construction d une matrice assemblée",docu="U4.61.22-F",reentrant='n',
2214 MATR_ELEM =SIMP(statut='o',
2215 typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
2216 NUME_DDL =SIMP(statut='o',typ=nume_ddl),
2217 CHAR_CINE =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
2218 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
2220 #& MODIF COMMANDE DATE 30/06/93 AUTEUR T8BHHTK T.KERBER
2221 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
2222 fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
2223 docu="U4.65.05-D",reentrant='n',
2224 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
2225 CHAR_SOUS_STRUC =FACT(statut='o',min=01,max='**',
2226 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
2227 VECT_ASSE =SIMP(statut='o',typ=cham_no_depl_r ),
2230 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
2231 def asse_vecteur_prod(VECT_ELEM,**args):
2232 if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
2233 if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
2234 if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
2235 if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
2236 raise AsException("type de concept resultat non prevu : %s" %`AsType(VECT_ELEM)`)
2238 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
2239 fr="Assemblage d un second membre",docu="U4.61.23-F",reentrant='n',
2240 VECT_ELEM =SIMP(statut='o',typ=vect_elem,max='**'),
2241 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
2242 INFO =SIMP(statut='f',typ='I',into=(1,2,) ),
2244 #& MODIF COMMANDE DATE 28/09/98 AUTEUR ACBHHCD G.DEVESA
2245 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
2246 fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
2247 docu="U4.52.13-C",reentrant='n',
2248 ENER_SOL =FACT(statut='o',min=01,max=01,
2249 regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
2250 PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
2251 # Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
2252 PRESENT_PRESENT('KRX','KRY'),
2253 PRESENT_PRESENT('KRX','KRZ'),
2254 PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
2255 PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
2256 PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
2257 METHODE =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
2258 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
2259 GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
2260 GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
2261 FONC_GROUP =SIMP(statut='f',typ=fonction ),
2262 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
2263 KX =SIMP(statut='o',typ='R' ),
2264 KY =SIMP(statut='o',typ='R' ),
2265 KZ =SIMP(statut='o',typ='R' ),
2266 KRX =SIMP(statut='f',typ='R' ),
2267 KRY =SIMP(statut='f',typ='R' ),
2268 KRZ =SIMP(statut='f',typ='R' ),
2269 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
2270 NOEUD_CENTRE =SIMP(statut='f',typ=no),
2271 COOR_CENTRE =SIMP(statut='f',typ='R',max=03),
2273 AMOR_INTERNE =FACT(statut='o',min=01,max=01,
2274 ENER_POT =SIMP(statut='o',typ=tabl_ener_pot ),
2275 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
2276 AMOR_REDUIT =SIMP(statut='o',typ='R',max='**'),
2278 AMOR_SOL =FACT(statut='o',min=01,max=01,
2279 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2280 FONC_AMOR_GEO =SIMP(statut='o',typ=fonction,max='**' ),
2281 HOMOGENE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2282 SEUIL =SIMP(statut='f',typ='R',defaut= 0.3 ),
2285 #& MODIF COMMANDE DATE 29/08/2000 AUTEUR ADBHHPM P.MASSIN
2286 def calc_cham_elem_prod(OPTION,**args):
2287 if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
2288 if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
2289 if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
2290 if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
2291 if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
2292 if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
2293 if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
2294 if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
2295 if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
2296 if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
2297 if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
2298 if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
2299 if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
2300 if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
2301 if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
2302 if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
2303 if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
2304 if OPTION == "ENEL_ELGA" : return cham_elem_ener_r
2305 if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
2306 if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
2307 if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
2308 if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
2309 if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
2310 if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
2311 if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
2312 if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
2313 if OPTION == "COOR_ELGA" : return cham_elem_geom_r
2314 raise AsException("type de concept resultat non prevu")
2316 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
2317 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",
2318 docu="U4.81.03-F",reentrant='n',
2319 MODELE =SIMP(statut='o',typ=modele),
2320 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
2321 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
2323 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2324 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2325 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2329 # introduire un mot cle de type modelisation : mécanique,thermique,...
2332 OPTION =SIMP(statut='o',typ='TXM',
2333 into=("DEGE_ELNO_DEPL","EFGE_ELNO_DEPL","EPOT_ELEM_DEPL",
2334 "EPSI_ELNO_DEPL","PRES_DBEL_DEPL","SIGM_ELNO_DEPL",
2335 "SIEF_ELGA_DEPL","SIEF_ELGA_LAGR","SIGM_ELNO_LAGR",
2336 "EFGE_ELNO_CART","ENDO_ELNO_SIGM","EQUI_ELGA_EPSI",
2337 "EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELNO_SIGM",
2338 "SIGM_ELNO_CART","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
2339 "FLUX_ELNO_TEMP","FLUX_ELGA_TEMP","SOUR_ELGA_ELEC",
2340 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2341 "COOR_ELGA","ENEL_ELGA","ENEL_ELNO_ELGA"), ),
2342 DEPL =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
2343 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0),
2344 CHAM_ELEM =SIMP(statut='f',typ=(cham_elem_sief_r,cham_elem_epsi_r) ),
2345 FREQ =SIMP(statut='f',typ='R'),
2346 VITE =SIMP(statut='f',typ=cham_no_depl_r),
2347 EXCIT =FACT(statut='f',min=01,max='**',
2348 regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
2349 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
2350 FONC_MULT =SIMP(statut='f',typ=fonction),
2351 COEF_MULT =SIMP(statut='f',typ='R'),
2353 INST =SIMP(statut='f',typ='R',defaut= 0.E+0),
2354 ACCE =SIMP(statut='f',typ=cham_no_depl_r),
2355 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1),
2356 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
2357 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
2359 TEMP =SIMP(statut='f',typ=(cham_no_temp_r) ),
2361 PRES =SIMP(statut='f',typ=(cham_no_pres_c) ),
2363 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
2364 ANGLE =SIMP(statut='f',typ='I',defaut= 0),
2365 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",
2366 into=("SUP","INF","MOY","MAIL"), ),
2368 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
2369 def calc_char_cine_prod(CHAR_CINE,**args):
2370 if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
2371 if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
2372 if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
2373 raise AsException("type de concept resultat non prevu")
2375 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
2376 fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
2377 docu="U4.61.03-E",reentrant='n',
2378 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
2379 CHAR_CINE =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
2380 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2381 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2383 #& MODIF COMMANDE DATE 08/03/94 AUTEUR VABHHT2 G.BERTRAND
2384 def calc_char_seisme_prod(MATR_MASS,**args ):
2385 if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
2386 raise AsException("type de concept resultat non prevu")
2388 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op= 92,sd_prod=calc_char_seisme_prod,
2389 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",
2390 docu="U4.63.01-E",reentrant='n',
2391 regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
2392 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
2393 DIRECTION =SIMP(statut='o',typ='R',max=06,fr="Directions du séisme imposé"),
2394 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2395 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
2396 b_mode_stat =BLOC ( condition = "MODE_STAT != None",
2397 regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
2398 NOEUD =SIMP(statut='f',typ=no,max='**'),
2399 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2401 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2403 #& MODIF COMMANDE DATE 29/08/2000 AUTEUR ADBHHPM P.MASSIN
2404 def calc_elem_prod(RESULTAT,**args):
2405 if AsType(RESULTAT) == evol_elas : return evol_elas
2406 if AsType(RESULTAT) == evol_noli : return evol_noli
2407 if AsType(RESULTAT) == evol_ther : return evol_ther
2408 if AsType(RESULTAT) == dyna_trans : return dyna_trans
2409 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
2410 if AsType(RESULTAT) == acou_harmo : return acou_harmo
2411 if AsType(RESULTAT) == mode_meca : return mode_meca
2412 if AsType(RESULTAT) == mode_flamb : return mode_flamb
2413 if AsType(RESULTAT) == mode_acou : return mode_acou
2414 if AsType(RESULTAT) == mode_stat : return mode_stat
2415 if AsType(RESULTAT) == mult_elas : return mult_elas
2416 if AsType(RESULTAT) == fourier_elas : return fourier_elas
2417 if AsType(RESULTAT) == base_modale : return base_modale
2418 raise AsException("type de concept resultat non prevu")
2420 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-F",reentrant='f',
2421 fr="Compléter un résultat en calculant des champs par éléments (contraintes, déformations,... )",
2422 MODELE =SIMP(statut='o',typ=modele),
2423 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
2424 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
2426 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2427 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2428 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2430 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
2431 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
2432 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2433 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
2434 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
2435 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
2436 NOM_CAS =SIMP(statut='f',typ='TXM' ),
2438 INST =SIMP(statut='f',typ='R',max='**'),
2439 FREQ =SIMP(statut='f',typ='R',max='**'),
2440 LIST_INST =SIMP(statut='f',typ=listr8),
2441 LIST_FREQ =SIMP(statut='f',typ=listr8),
2442 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
2443 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
2445 LIST_ORDRE =SIMP(statut='f',typ=listis),
2447 OPTION =SIMP(statut='o',typ='TXM',max='**',
2448 into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
2449 "SIGM_ELNO_TUYO","SIGM_ELNO_CART","DEGE_ELNO_DEPL","EFGE_ELNO_CART",
2450 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
2451 "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
2452 "EPSP_ELNO","EPSP_ELGA","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
2453 "EPGR_ELNO","EPGR_ELGA","DURT_ELGA_META","DURT_ELNO_META",
2454 "SIGM_ELNO_COQU","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
2455 "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
2456 "VNOR_ELEM_DEPL","SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
2457 "VARI_ELNO_ELGA","VARI_ELNO_TUYO","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
2458 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
2459 "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
2460 "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","ENEL_ELGA","ENEL_ELNO_ELGA","SIEF_ELNO_ELGA",
2461 "DEUL_ELGA_TEMP","DETE_ELNO_DLTE","DEUL_ELGA_DEPL","DEDE_ELNO_DLDE",
2462 "DLSI_ELGA_DEPL","DESI_ELNO_DLSI","PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
2463 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
2465 "PRES_ELNO_DBEL","PRES_DBEL_DEPL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2466 "INTE_ELNO_ACTI","INTE_ELNO_REAC",
2468 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
2469 mode_stat,evol_noli,mult_elas,fourier_elas,
2470 evol_ther,base_modale,
2471 acou_harmo,mode_acou,mode_flamb) ),
2472 EXCIT =FACT(statut='f',min=01,max='**',
2473 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
2474 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),
2475 FONC_MULT =SIMP(statut='f',typ=fonction),
2476 FONC_MULT_C =SIMP(statut='f',typ=fonction_c),
2477 COEF_MULT =SIMP(statut='f',typ='R'),
2478 COEF_MULT_C =SIMP(statut='f',typ='C'),
2479 PHAS_DEG =SIMP(statut='f',typ='R'),
2480 PUIS_PULS =SIMP(statut='f',typ='I'),
2481 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
2483 NORME =SIMP(statut='f',typ='TXM',defaut="VMIS",
2484 into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
2485 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1 ),
2486 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
2488 ANGLE =SIMP(statut='f',typ='I',defaut= 0 ),
2489 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
2490 SENSIBILITE =FACT(statut='f',min=01,max=01,
2491 THETA =SIMP(statut='f',typ=(theta_geom) ),
2493 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
2494 EFGE_REPERE =FACT(statut='f',min=01,max=01,
2495 regles=(UN_PARMI('ANGL_REP','VECT_X_Y','VECT_X_Z'),),
2496 ANGL_REP =SIMP(statut='f',typ='R',max='**'),
2497 VECT_X_Y =SIMP(statut='f',typ='R',max='**'),
2498 VECT_X_Z =SIMP(statut='f',typ='R',max='**'),
2501 TEMP_INIT =FACT(statut='f',min=01,max='**',
2502 regles=(EXCLUS('META_INIT','EVOL_THER'),),
2503 META_INIT =SIMP(statut='f',typ=carte_meta_r),
2504 EVOL_THER =SIMP(statut='f',typ=evol_ther,),
2505 NUME_INIT =SIMP(statut='f',typ='I'),
2508 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2510 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
2511 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=cham_elem_dommag,reentrant='n',
2512 fr="Calcul d un champ de dommage subi par une structure",
2514 regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
2515 OPTION =SIMP(statut='o',typ='TXM',
2516 into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
2517 "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
2518 "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
2519 HISTOIRE =FACT(statut='o',min=01,max=01,
2520 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
2521 EQUI_GD =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",into=("VMIS_SG","INVA_2_SG") ),
2523 DOMMAGE =SIMP(statut='o',typ='TXM',
2524 into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON","TAHERI_MIXTE",) ),
2525 MATER =SIMP(statut='o',typ=(mater) ),
2526 TAHERI_NAPPE =SIMP(statut='f',typ=(fonction) ),
2527 TAHERI_FONC =SIMP(statut='f',typ=(fonction) ),
2528 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2530 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
2531 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
2532 fr="Calcul des paramètres modaux d une structure soumise à un écoulement, en prenant en compte les forces fluidélastiques",
2533 docu="U4.66.02-C",reentrant='n',
2534 VITE_FLUI =FACT(statut='o',min=01,max=01,
2535 fr="Définir la plage de vitesse fluide étudiée",
2536 VITE_MIN =SIMP(statut='o',typ='R' ),
2537 VITE_MAX =SIMP(statut='o',typ='R' ),
2538 NB_POIN =SIMP(statut='o',typ='I' ),
2540 BASE_MODALE =FACT(statut='o',min=01,max=01,
2542 regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
2543 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
2544 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
2545 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
2546 AMOR_UNIF =SIMP(statut='f',typ='R' ),
2548 TYPE_FLUI_STRU =SIMP(statut='o',typ=type_flui_stru ),
2549 IMPRESSION =FACT(statut='f',min=01,max=01,
2550 fr="Choix des informations à imprimer dans le fichier RESULTAT",
2551 PARA_COUPLAGE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2552 DEFORMEE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
2555 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
2556 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
2557 fr="Construire un concept de type fonction à partir d une fonction réelle de la variable réelle définie par une FORMULE",
2558 docu="U4.32.01-D",reentrant='f',
2559 regles=(UN_PARMI('VALE_R','LIST_PARA'),),
2560 FONCTION =SIMP(statut='o',typ=fonction ),
2561 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
2562 VALE_R =SIMP(statut='f',typ='R',max='**'),
2563 LIST_PARA =SIMP(statut='f',typ=listr8 ),
2564 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG","INT") ),
2565 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
2566 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
2567 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2568 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2570 #& MODIF COMMANDE DATE 20/06/2000 AUTEUR ACBHHCD G.DEVESA
2571 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,MAX,COMB,COMB_C,ENVELOPPE,SPEC_OSCI,FFT,COMPOSE,**args):
2572 if (RMS != None) : return tabl_fonc_rms
2573 if (MAX != None) : return tabl_fonc_max
2574 if (INTEGRE != None) : return fonction
2575 if (DERIVE != None) : return fonction
2576 if (COMB != None) : return fonction
2577 if (ENVELOPPE != None) : return fonction
2578 if (EXTRACTION != None) : return fonction
2579 if (SPEC_OSCI != None) : return fonction
2580 if (COMB_C != None) : return fonction_c
2581 if (COMPOSE != None) : return fonction
2583 vale=FFT.get_child('FONCTION').get_valeur()
2584 if (AsType(vale) == fonction ) : return fonction_c
2585 if (AsType(vale) == fonction_c) : return fonction
2586 raise AsException("type de concept resultat non prevu")
2588 CALC_FONCTION=OPER(nom="CALC_FONCTION",op= 91,sd_prod=calc_fonction_prod
2589 ,fr="Opérations mathématiques sur des concepts de type fonction",
2590 docu="U4.32.04-E",reentrant='n',
2591 regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','ENVELOPPE','RMS',
2592 'COMB_C','COMPOSE','EXTRACTION','ASSE','FFT' ),),
2593 FFT =FACT(statut='f',min=01,max=01,fr="Calcul de la transformee de Fourier ou de son inverse",
2594 FONCTION =SIMP(statut='o',typ=(fonction,fonction_c) )
2596 DERIVE =FACT(statut='f',min=01,max=01,fr="Calcul de la dérivée d une fonction",
2597 METHODE =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
2598 FONCTION =SIMP(statut='o',typ=fonction ),
2600 INTEGRE =FACT(statut='f',min=01,max=01,fr="Calcul de l intégrale d une fonction",
2601 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
2602 FONCTION =SIMP(statut='o',typ=fonction),
2603 COEF =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
2605 RMS =FACT(statut='f',min=01,max=01,fr="Calcul de la valeur RMS d une fonction",
2606 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
2607 FONCTION =SIMP(statut='o',typ=fonction ),
2608 INST_INIT =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
2609 INST_FIN =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
2610 b_inst =BLOC ( condition = "(INST_INIT != None) or (INST_FIN != None)",
2611 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
2612 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
2615 SPEC_OSCI =FACT(statut='f',min=01,max=01,fr="Calcul du spectre d oscillateur",
2616 METHODE =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
2617 FONCTION =SIMP(statut='o',typ=fonction ),
2618 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
2619 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
2620 FREQ =SIMP(statut='f',typ='R',max='**'),
2621 NORME =SIMP(statut='f',typ='R',defaut= 9.81,fr="Valeur de la norme du spectre d oscillateur" ),
2622 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
2623 NATURE_FONC =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
2625 MAX =FACT(statut='f',min=01,max=01,fr="Calcul des extrémas locaux d une fonction",
2626 FONCTION =SIMP(statut='o',typ=fonction ),
2628 COMB =FACT(statut='f',min=01,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
2629 FONCTION =SIMP(statut='o',typ=fonction ),
2630 COEF =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
2632 COMB_C =FACT(statut='f',min=01,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
2633 regles=(UN_PARMI('COEF_R','COEF_C'),),
2634 FONCTION =SIMP(statut='o',typ=(fonction, fonction_c) ),
2635 COEF_R =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
2636 COEF_C =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
2638 b_comb =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
2639 LIST_PARA =SIMP(statut='f',typ=listr8 ),
2641 COMPOSE =FACT(statut='f',min=01,max=01,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
2642 FONC_RESU =SIMP(statut='o',typ=fonction),
2643 FONC_PARA =SIMP(statut='o',typ=fonction),
2645 EXTRACTION =FACT(statut='f',min=01,max=01,fr="Opération d extraction sur une fonction complexe",
2646 FONCTION =SIMP(statut='o',typ=fonction_c),
2647 PARTIE =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
2649 ENVELOPPE =FACT(statut='f',min=01,max=01,fr="Calcul de l enveloppe d une famille de fonctions",
2650 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
2651 CRITERE =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
2653 ASSE =FACT(statut='f',min=01,max=01,fr="Création à partir de la concatenation de fonctions",
2654 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
2655 SURCHARGE =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
2657 NOM_PARA =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
2658 "INST","X","Y","Z","EPSI","FREQ","PULS",
2660 NOM_RESU =SIMP(statut='f',typ='TXM' ),
2661 INTERPOL =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
2662 PROL_DROIT =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
2663 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
2664 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
2665 "INST","X","Y","Z","EPSI","FREQ","PULS",
2667 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
2668 PROL_DROIT_FONC =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
2669 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
2670 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2671 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2673 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
2674 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
2675 fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-E",reentrant='n',
2676 MODELE =SIMP(statut='o',typ=modele),
2677 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
2678 FOND =SIMP(statut='o',typ=fond_fiss),
2679 regles=(UN_PARMI('RESULTAT','DEPL'),
2680 UN_PARMI('R_INF','R_INF_FO'),
2681 PRESENT_PRESENT('R_INF','R_SUP'),
2682 PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
2684 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
2685 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
2686 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
2687 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
2688 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2689 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
2690 LIST_ORDRE =SIMP(statut='f',typ=listis),
2691 INST =SIMP(statut='f',typ='R',max='**'),
2692 LIST_INST =SIMP(statut='f',typ=listr8),
2694 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
2695 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
2696 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
2700 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
2701 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
2703 COMP_ELAS =FACT(statut='f',min=01,max=01,
2704 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
2705 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
2706 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2707 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2708 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2709 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
2710 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2711 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2712 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2715 COMP_INCR =FACT(statut='f',min=01,max=01,
2716 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
2717 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
2718 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2719 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
2720 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
2721 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
2722 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
2723 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2724 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2725 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2728 ETAT_INIT =FACT(statut='f',min=01,max=01,
2729 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
2730 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
2733 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",into=("CALC_G","CALC_G_LGLO") ),
2734 b_g_lglo =BLOC(condition="OPTION=='CALC_G_LGLO'",
2735 PROPAGATION =SIMP(statut='o',typ='R'),
2736 THETA =SIMP(statut='o',typ=theta_geom),
2737 DIRE_THETA =SIMP(statut='f',typ=cham_no_depl_r),
2740 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
2741 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
2743 DEGRE =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
2745 R_INF =SIMP(statut='f',typ='R'),
2746 R_SUP =SIMP(statut='f',typ='R'),
2747 R_INF_FO =SIMP(statut='f',typ=fonction),
2748 R_SUP_FO =SIMP(statut='f',typ=fonction),
2750 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2751 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2753 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
2754 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
2755 fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
2756 docu="U4.82.03-E",reentrant='n',
2757 regles=(UN_PARMI('RESULTAT','DEPL'),
2758 EXCLUS('COMP_ELAS','COMP_INCR'),),
2759 MODELE =SIMP(statut='o',typ=modele),
2760 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
2761 THETA =SIMP(statut='o',typ=theta_geom),
2762 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
2763 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
2765 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
2766 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
2767 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2768 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
2769 LIST_ORDRE =SIMP(statut='f',typ=listis),
2770 INST =SIMP(statut='f',typ='R',max='**'),
2771 LIST_INST =SIMP(statut='f',typ=listr8),
2773 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
2774 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
2775 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
2779 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
2780 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
2782 COMP_ELAS =FACT(statut='f',min=01,max=01,
2783 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
2784 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
2785 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2786 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2787 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2788 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
2789 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2790 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2791 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2793 COMP_INCR =FACT(statut='f',min=01,max=01,
2794 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
2795 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
2796 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
2797 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
2798 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
2799 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
2800 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
2801 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2802 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2803 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2805 ETAT_INIT =FACT(statut='f',min=01,max=01,
2806 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
2807 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
2809 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",
2810 into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX") ),
2811 b_calc_g_max =BLOC(condition="OPTION=='CALC_G_MAX'",
2812 BORNES =FACT(statut='o',min=01,max='**',
2813 NUME_ORDRE =SIMP(statut='o',typ='I'),
2814 VALE_MIN =SIMP(statut='o',typ='R'),
2815 VALE_MAX =SIMP(statut='o',typ='R'),
2818 b_calc_k_g =BLOC(condition="OPTION=='CALC_K_G'",
2819 FOND =SIMP(statut='o',typ=fond_fiss),
2821 b_calc_g_lagr =BLOC(condition="OPTION=='CALC_G_LAGR'",
2822 PROPAGATION =SIMP(statut='o',typ='R'),
2824 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2825 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2827 #& MODIF COMMANDE DATE 04/02/98 AUTEUR CIBHHLV L.VIVAN
2828 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
2829 fr="Calcul d une matrice interspectrale d une fonction du temps",
2830 docu="U4.36.03-E",reentrant='n',
2831 INST_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2832 INST_FIN =SIMP(statut='o',typ='R' ),
2833 DUREE_ANALYSE =SIMP(statut='f',typ='R' ),
2834 DUREE_DECALAGE =SIMP(statut='f',typ='R' ),
2835 NB_POIN =SIMP(statut='o',typ='I' ),
2836 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
2837 TITRE =SIMP(statut='f',typ='TXM',max='**'),
2838 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
2840 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
2841 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
2842 fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
2843 docu="U4.66.01-C",reentrant='n',
2844 regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
2845 PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
2846 PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
2847 MODELE_FLUIDE =SIMP(statut='o',typ=modele ),
2848 MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
2849 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
2850 CHARGE =SIMP(statut='o',typ=char_ther ),
2851 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
2852 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
2853 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
2854 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene ),
2855 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
2856 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2857 NUME_MODE_MECA =SIMP(statut='f',typ='I',max='**'),
2858 OPTION =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
2859 POTENTIEL =SIMP(statut='f',typ=evol_ther ),
2860 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
2861 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2863 SOLVEUR =FACT(statut='d',min=01,max=01,
2864 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
2865 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
2866 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
2868 b_ldlt =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
2869 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
2870 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
2872 b_ldlt_mult =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
2873 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
2874 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
2875 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2877 b_gcpc =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
2878 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
2879 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
2880 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
2881 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
2884 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2887 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
2888 def calc_matr_elem_prod(OPTION,**args):
2889 if OPTION == "RIGI_MECA" : return matr_elem_depl_r
2890 if OPTION == "RIGI_FLUI_STRU" : return matr_elem_depl_r
2891 if OPTION == "RIGI_MECA_LAGR" : return matr_elem_depl_r
2892 if OPTION == "MASS_MECA" : return matr_elem_depl_r
2893 if OPTION == "MASS_FLUI_STRU" : return matr_elem_depl_r
2894 if OPTION == "RIGI_GEOM" : return matr_elem_depl_r
2895 if OPTION == "RIGI_ROTA" : return matr_elem_depl_r
2896 if OPTION == "AMOR_MECA" : return matr_elem_depl_r
2897 if OPTION == "IMPE_MECA" : return matr_elem_depl_r
2898 if OPTION == "ONDE_FLUI" : return matr_elem_depl_r
2899 if OPTION == "RIGI_MECA_HYST" : return matr_elem_depl_c
2900 if OPTION == "RIGI_THER" : return matr_elem_temp_r
2901 if OPTION == "MASS_THER" : return matr_elem_temp_r
2902 if OPTION == "MASS_MECA_DIAG" : return matr_elem_depl_r
2903 if OPTION == "RIGI_ACOU" : return matr_elem_pres_c
2904 if OPTION == "MASS_ACOU" : return matr_elem_pres_c
2905 if OPTION == "AMOR_ACOU" : return matr_elem_pres_c
2906 raise AsException("type de concept resultat non prevu")
2908 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op= 9,sd_prod=calc_matr_elem_prod
2909 ,fr="Calcul des matrices élémentaires",docu="U4.61.01-F",reentrant='n',
2910 OPTION =SIMP(statut='o',typ='TXM',
2911 into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
2912 "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
2913 "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
2914 "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
2915 "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
2916 "RIGI_MECA_LAGR") ),
2918 b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
2919 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
2920 MODELE =SIMP(statut='f',typ=modele ),
2921 b_modele =BLOC(condition = "MODELE != None",
2922 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
2923 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2924 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
2926 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
2927 b_charge =BLOC (condition = "CHARGE != None",
2928 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2932 b_rigi_meca_lagr =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
2933 MODELE =SIMP(statut='o',typ=modele ),
2934 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
2935 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
2936 b_charge =BLOC(condition = "CHARGE != None",
2937 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2939 THETA =SIMP(statut='o',typ=theta_geom ),
2940 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2943 b_mass_meca =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
2944 regles=(AU_MOINS_UN('MODELE','CHARGE'),),
2945 MODELE =SIMP(statut='f',typ=modele ),
2946 b_modele =BLOC(condition = "MODELE != None",
2947 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
2948 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2950 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
2951 b_charge =BLOC(condition = "CHARGE != None",
2952 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2956 b_rigi_geom =BLOC(condition = "OPTION=='RIGI_GEOM'",
2957 MODELE =SIMP(statut='o',typ=modele ),
2958 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2959 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r ),
2960 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
2963 b_rigi_rota =BLOC(condition = "OPTION=='RIGI_ROTA'",
2964 MODELE =SIMP(statut='o',typ=modele ),
2965 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
2966 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
2967 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2970 b_amor_meca =BLOC(condition = "OPTION=='AMOR_MECA'",
2971 regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
2972 ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
2973 MODELE =SIMP(statut='o',typ=modele ),
2974 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2975 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
2976 RIGI_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
2977 MASS_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
2978 CHARGE =SIMP(statut='f',typ=char_meca ,max='**' ),
2981 b_rigi_meca_hyst =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
2982 MODELE =SIMP(statut='o',typ=modele ),
2983 CHARGE =SIMP(statut='o',typ=char_meca ,max='**' ),
2984 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
2985 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2986 RIGI_MECA =SIMP(statut='o',typ=matr_elem_depl_r ),
2989 b_rigi_ther =BLOC(condition = "OPTION=='RIGI_THER'",
2990 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
2991 MODELE =SIMP(statut='f',typ=modele ),
2992 b_modele =BLOC(condition = "MODELE != None",
2993 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
2994 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
2995 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
2997 CHARGE =SIMP(statut='f',typ=char_ther,max='**' ),
3000 b_mass_ther =BLOC(condition = "OPTION=='MASS_THER'",
3001 MODELE =SIMP(statut='o',typ=modele ),
3002 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3003 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3006 b_rigi_acou =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
3007 MODELE =SIMP(statut='o',typ=modele ),
3008 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3009 CHARGE =SIMP(statut='f',typ=char_acou ,max='**' ),
3012 b_rigi_flui =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
3013 MODELE =SIMP(statut='o',typ=modele ),
3014 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
3015 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3016 CHARGE =SIMP(statut='o',typ=char_meca ,max='**' ),
3017 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3020 b_impe_meca =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
3021 MODELE =SIMP(statut='o',typ=modele ),
3022 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
3023 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3026 b_rigi_conv =BLOC( condition = "(OPTION=='RIGI_THER_CONV') or (OPTION=='RIGI_THER_CONV_D')",
3027 MODELE =SIMP(statut='o',typ=modele ),
3028 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3029 CHARGE =SIMP(statut='o',typ=char_ther,max='**' ),
3033 #& MODIF COMMANDE DATE 04/07/2000 AUTEUR JMBHH01 J.M.PROIX
3034 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-A",reentrant='o',
3035 fr="Calcule la métallurgie à partir du résultat du calcul thermique",
3036 MODELE =SIMP(statut='o',typ=modele ),
3037 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3038 RESULTAT =SIMP(statut='o',typ=evol_ther ),
3039 ETAT_INIT =FACT(statut='o',min=01,max=01,
3040 regles=(UN_PARMI('NUME_INIT','META_INIT',),),
3041 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
3042 NUME_INIT =SIMP(statut='f',typ='I' ),
3043 META_INIT =SIMP(statut='f',typ=carte_var2_r ),
3045 COMP_INCR =FACT(statut='o',min=01,max='**',
3046 RELATION =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
3047 ACIER =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
3048 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
3049 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3050 GROUP_MA =SIMP(statut='f',typ=grma),
3051 MAILLE =SIMP(statut='f',typ=ma),
3053 OPTION =SIMP(statut='f',typ='TXM'
3054 ,into=("META_ELNO_TEMP",) ),
3056 #& MODIF COMMANDE DATE 12/05/2000 AUTEUR CIBHHAB N.RAHNI
3057 def calc_no_prod(RESULTAT,**args):
3058 if AsType(RESULTAT) == evol_elas : return evol_elas
3059 if AsType(RESULTAT) == evol_noli : return evol_noli
3060 if AsType(RESULTAT) == evol_ther : return evol_ther
3061 if AsType(RESULTAT) == mode_meca : return mode_meca
3062 if AsType(RESULTAT) == mode_stat : return mode_stat
3063 if AsType(RESULTAT) == mode_acou : return mode_acou
3064 if AsType(RESULTAT) == mult_elas : return mult_elas
3065 if AsType(RESULTAT) == dyna_trans : return dyna_trans
3066 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
3067 if AsType(RESULTAT) == acou_harmo : return acou_harmo
3068 if AsType(RESULTAT) == fourier_elas : return fourier_elas
3069 if AsType(RESULTAT) == mode_flamb : return mode_flamb
3070 if AsType(RESULTAT) == base_modale : return base_modale
3071 raise AsException("type de concept resultat non prevu")
3073 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-E",reentrant='o',
3074 fr="Compléter un résultat en calculant un champ aux noeuds (forces nodales à partir d un champ de contraintes aux points de GAUSS)",
3075 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
3076 mode_acou,mode_stat,evol_ther,evol_noli,base_modale,
3077 mult_elas,fourier_elas,mode_flamb ) ),
3079 MODELE =SIMP(statut='f',typ=modele),
3080 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3081 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3082 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3083 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3084 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
3085 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
3086 NOM_CAS =SIMP(statut='f',typ='TXM' ),
3087 INST =SIMP(statut='f',typ='R',max='**'),
3088 FREQ =SIMP(statut='f',typ='R',max='**'),
3089 LIST_INST =SIMP(statut='f',typ=listr8),
3090 LIST_FREQ =SIMP(statut='f',typ=listr8),
3091 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3092 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3093 LIST_ORDRE =SIMP(statut='f',typ=listis),
3095 OPTION =SIMP(statut='o',typ='TXM',max='**'),
3097 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
3098 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3099 GEOMETRIE =SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE") ),
3100 EXCIT =FACT(statut='f',min=01,max='**',
3101 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
3102 FONC_MULT =SIMP(statut='f',typ=fonction),
3103 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
3104 into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
3106 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3107 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3108 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3109 TAILLE_BLOC =SIMP(statut='f',typ='R' ,defaut= 400. ),
3111 #& MODIF COMMANDE DATE 20/10/1999 AUTEUR DURAND C.DURAND
3112 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-D",reentrant='n',
3113 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
3114 regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
3115 PRESENT_PRESENT('THETA_3D','FOND_3D'),
3116 PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
3117 EXCLUS('DIRECTION','DIRE_THETA'),),
3118 OPTION =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
3119 MODELE =SIMP(statut='o',typ=(modele) ),
3120 FOND_3D =SIMP(statut='f',typ=(fond_fiss) ),
3121 THETA_3D =FACT(statut='f',min=01,max='**',
3122 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
3123 UN_PARMI('MODULE','MODULE_FO'),
3124 ENSEMBLE('MODULE','R_INF','R_SUP'),
3125 ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
3126 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3127 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3128 NOEUD =SIMP(statut='f',typ=no,max='**'),
3129 MODULE =SIMP(statut='f',typ='R'),
3130 R_INF =SIMP(statut='f',typ='R'),
3131 R_SUP =SIMP(statut='f',typ='R'),
3132 MODULE_FO =SIMP(statut='f',typ=fonction),
3133 R_INF_FO =SIMP(statut='f',typ=fonction),
3134 R_SUP_FO =SIMP(statut='f',typ=fonction),
3136 DIRE_THETA =SIMP(statut='f',typ=(cham_no_depl_r) ),
3137 DIRECTION =SIMP(statut='f',typ='R',max='**'),
3138 THETA_2D =FACT(statut='f',min=01,max='**',
3139 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
3140 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3141 NOEUD =SIMP(statut='f',typ=no,max='**'),
3142 MODULE =SIMP(statut='o',typ='R'),
3143 R_INF =SIMP(statut='o',typ='R'),
3144 R_SUP =SIMP(statut='o',typ='R'),
3146 THETA_BANDE =FACT(statut='f',min=01,max='**',
3147 MODULE =SIMP(statut='o',typ='R'),
3148 R_INF =SIMP(statut='o',typ='R'),
3149 R_SUP =SIMP(statut='o',typ='R'),
3151 GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3152 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3153 IMPRESSION =FACT(statut='f',min=01,max=01,
3154 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
3155 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
3158 #& MODIF COMMANDE DATE 11/01/99 AUTEUR VABHHTS J.PELLET
3159 def calc_vect_elem_prod(OPTION,**args):
3160 if OPTION == "CHAR_MECA" : return vect_elem_depl_r
3161 if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
3162 if OPTION == "CHAR_THER" : return vect_elem_temp_r
3163 if OPTION == "CHAR_ACOU" : return vect_elem_pres_c
3164 if OPTION == "FORC_NODA" : return vect_elem_depl_r
3165 raise AsException("type de concept resultat non prevu")
3167 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-F",reentrant='n',
3168 fr="Calcul des seconds membres élémentaires",
3169 OPTION =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
3170 "FORC_NODA","CHAR_MECA_LAGR") ),
3171 b_char_meca =BLOC(condition = "OPTION=='CHAR_MECA'",
3172 regles=(AU_MOINS_UN('CHARGE','MODELE'),),
3173 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
3174 MODELE =SIMP(statut='f',typ=modele),
3175 b_charge =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
3176 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
3177 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3178 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3179 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
3181 b_modele =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
3182 SOUS_STRUC =FACT(statut='o',min=01,
3183 regles=(UN_PARMI('TOUT','MAILLE'),),
3184 CAS_CHARGE =SIMP(statut='o',typ='TXM' ),
3185 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3186 MAILLE =SIMP(statut='f',typ=ma,max='**',),
3190 b_char_ther =BLOC(condition = "OPTION=='CHAR_THER'",
3191 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3192 CHARGE =SIMP(statut='o',typ=char_ther,max='**'),
3193 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3196 b_char_acou =BLOC(condition = "OPTION=='CHAR_ACOU'",
3197 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3198 CHARGE =SIMP(statut='o',typ=char_acou,max='**'),
3201 b_forc_noda =BLOC(condition = "OPTION=='FORC_NODA'",
3202 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r),
3203 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3204 MODELE =SIMP(statut='f',typ=modele),
3207 b_meca_lagr =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
3208 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3209 THETA =SIMP(statut='o',typ=theta_geom),
3210 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3211 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
3212 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3215 #& MODIF COMMANDE DATE 31/10/2000 AUTEUR VABHHTS J.PELLET
3216 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
3219 vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
3220 elif COMB_C != None:
3221 vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
3222 elif COMB_FOURIER != None:
3223 vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
3225 raise AsException("type de concept resultat non prevu")
3227 if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
3228 if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
3229 if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
3230 if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
3231 if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
3232 if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
3233 if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
3234 if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
3235 raise AsException("type de concept resultat non prevu")
3237 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
3238 fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-E",
3239 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
3240 PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
3241 COMB_R =FACT(statut='f',min=01,max='**',
3242 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
3243 COEF_R =SIMP(statut='o',typ='R'),
3244 CHAM_ELEM =SIMP(statut='o',
3245 typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
3246 cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
3247 cham_elem_pres_r,cham_elem_sief_c ) ),
3249 COMB_C =FACT(statut='f',min=01,max='**',
3250 regles=(UN_PARMI('COEF_R','COEF_C', ),),
3251 COEF_R =SIMP(statut='f',typ='R'),
3252 COEF_C =SIMP(statut='f',typ='C'),
3253 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r) ),
3255 COMB_FOURIER =FACT(statut='f',min=01,max='**',
3256 COEF_R =SIMP(statut='f',typ='R',defaut= 1.),
3257 NUME_MODE =SIMP(statut='o',typ='I'),
3258 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
3259 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
3261 ANGL =SIMP(statut='f',typ='R' ),
3264 #& MODIF COMMANDE DATE 08/03/94 AUTEUR VABHHT2 G.BERTRAND
3265 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
3267 type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
3268 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
3269 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
3270 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
3271 elif COMB_R != None:
3272 type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
3273 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
3274 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
3275 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
3276 if type_mat == matr_asse_gene_r : return matr_asse_gene_r
3277 elif COMB_FOURIER != None:
3278 type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
3279 if type_mat == cham_no_temp_r : return cham_no_temp_r
3280 if type_mat == cham_no_depl_r : return cham_no_depl_r
3281 raise AsException("type de concept resultat non prevu")
3284 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op= 30,sd_prod=comb_cham_no_prod
3285 ,fr="Combinaison linéaire de champs aux noeuds",
3286 docu="U4.72.02-F",reentrant='f',
3287 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
3288 COMB_R =FACT(statut='f',min=01,max='**',
3289 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
3290 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
3291 ,cham_no_pres_r,cham_no_pres_c ) ),
3292 COEF_R =SIMP(statut='o',typ='R' ),
3294 COMB_C =FACT(statut='f',min=01,max='**',
3295 regles=(UN_PARMI('COEF_R','COEF_C' ),),
3296 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
3297 ,cham_no_depl_c,cham_no_pres_c ) ),
3298 COEF_R =SIMP(statut='f',typ='R' ),
3299 COEF_C =SIMP(statut='f',typ='C' ),
3301 COMB_FOURIER =FACT(statut='f',min=01,max='**',
3302 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
3303 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
3304 NUME_MODE =SIMP(statut='o',typ='I' ),
3305 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
3307 b_angl = BLOC ( condition = "COMB_FOURIER != None",
3308 ANGL =SIMP(statut='o',typ='R' ),
3311 #& MODIF COMMANDE DATE 08/11/95 AUTEUR CIBHHLV L.VIVAN
3312 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
3313 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",
3314 docu="U4.83.31-C",reentrant='n',
3315 RESULTAT =SIMP(statut='o',typ=fourier_elas ),
3316 ANGL =SIMP(statut='o',typ='R',max='**'),
3317 NOM_CHAM =SIMP(statut='o',typ='TXM',max=05,
3318 into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
3320 #& MODIF COMMANDE DATE 06/10/94 AUTEUR BIBERON G.ROUSSEAU
3321 def comb_matr_asse_prod(COMB_R,COMB_C,**args):
3323 type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
3324 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
3325 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
3326 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
3327 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
3328 elif COMB_R != None:
3329 type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
3330 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
3331 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
3332 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
3333 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
3334 raise AsException("type de concept resultat non prevu")
3336 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op= 31,sd_prod=comb_matr_asse_prod,
3337 fr="Combinaison linéaire de matrices assemblées",
3338 docu="U4.72.01-F",reentrant='f',
3339 regles=(UN_PARMI('COMB_R','COMB_C' ),),
3340 COMB_R =FACT(statut='f',min=01,max='**',
3341 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
3342 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,
3343 matr_asse_temp_r,matr_asse_temp_c,
3344 matr_asse_pres_r,matr_asse_pres_c,
3345 matr_asse_gene_r,matr_asse_gene_c ) ),
3346 COEF_R =SIMP(statut='o',typ='R' ),
3348 COMB_C =FACT(statut='f',min=01,max='**',
3349 regles=(UN_PARMI('COEF_R','COEF_C' ),),
3350 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,
3351 matr_asse_temp_r,matr_asse_temp_c,
3352 matr_asse_pres_r,matr_asse_pres_c,
3353 matr_asse_gene_r,matr_asse_gene_c ) ),
3354 COEF_R =SIMP(statut='f',typ='R' ),
3355 COEF_C =SIMP(statut='f',typ='C' ),
3357 SANS_CMP =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
3359 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
3360 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
3361 fr="Réponse sismique par recombinaison modale par une méthode spectrale",
3362 docu="U4.84.01-D",reentrant='n',
3363 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
3364 UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
3365 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
3366 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3367 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3368 LIST_ORDRE =SIMP(statut='f',typ=listis ),
3369 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
3370 FREQ =SIMP(statut='f',typ='R',max='**'),
3371 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
3372 b_freq =BLOC(condition = "FREQ != None or LIST_FREQ != None",
3373 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
3374 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3376 ACCE_UNIF =SIMP(statut='f',typ=mode_stat ),
3378 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
3379 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
3380 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
3382 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
3383 CORR_FREQ =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3385 EXCIT =FACT(statut='o',min=01,max='**',
3386 regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
3387 UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
3389 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3390 NOEUD =SIMP(statut='f',typ=no,max='**'),
3391 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3392 AXE =SIMP(statut='f',fr="Excitation suivant un seul axe",
3394 TRI_AXE =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
3396 TRI_SPEC =SIMP(statut='f',fr="Excitation suivant les trois axes avec trois spectres",
3397 typ='TXM',into=("OUI",) ),
3398 b_axe =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
3399 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=01 ),
3400 ECHELLE =SIMP(statut='f',typ='R',max=01),
3402 b_tri_axe =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
3403 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=01 ),
3404 ECHELLE =SIMP(statut='f',typ='R',max=01),
3406 b_tri_spec =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes avec trois spectres",
3407 SPEC_OSCI =SIMP(statut='o',typ=fonction,min=03,max=03 ),
3408 ECHELLE =SIMP(statut='f',typ='R',min=03,max=03),
3410 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
3412 COMB_MODE =FACT(statut='o',min=01,max=01,
3413 TYPE =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
3414 DUREE =SIMP(statut='f',typ='R' ),
3416 COMB_DIRECTION =FACT(statut='f',min=01,max=01,
3417 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
3419 COMB_MULT_APPUI =FACT(statut='f',min=01,max='**',
3420 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),),
3421 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3422 NOEUD =SIMP(statut='f',typ=no,max='**'),
3423 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3424 TYPE =SIMP(statut='o',typ='TXM',into=("QUAD","LINE","ABS") ),
3426 DEPL_MULT_APPUI =FACT(statut='f',min=01,max='**',
3427 regles=(UN_PARMI('NOEUD','GROUP_NO'),
3428 AU_MOINS_UN('DX','DY','DZ' ),),
3429 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
3430 NOEUD_REFE =SIMP(statut='f',typ=no),
3431 NOEUD =SIMP(statut='f',typ=no,max='**'),
3432 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3433 DX =SIMP(statut='f',typ='R' ),
3434 DY =SIMP(statut='f',typ='R' ),
3435 DZ =SIMP(statut='f',typ='R' ),
3437 OPTION =SIMP(statut='o',typ='TXM',max=10,
3438 into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3439 "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
3440 "SIPO_ELNO_DEPL",) ),
3441 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3442 IMPRESSION =FACT(statut='f',min=01,max='**',
3443 regles=(EXCLUS('TOUT','NIVEAU'),),
3444 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3445 NIVEAU =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=03 ),
3447 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3449 #& MODIF COMMANDE DATE 04/12/2000 AUTEUR VABHHTS J.PELLET
3450 def crea_champ_prod(TYPE_CHAM,**args):
3451 if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
3452 if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
3453 if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
3454 if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
3455 if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
3456 if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
3457 if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
3458 if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
3459 if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
3460 if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
3461 if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
3462 if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
3463 if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
3464 if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
3465 if TYPE_CHAM == "CART_META_R" : return carte_meta_r
3466 if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
3467 if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
3468 if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
3469 if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
3470 if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
3471 if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
3472 if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
3473 if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
3474 if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
3475 if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
3476 if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
3477 if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
3478 if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
3479 if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
3480 if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
3481 if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
3482 if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
3483 if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
3484 if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
3485 if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
3486 if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
3487 if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
3488 if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
3489 if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
3490 if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
3491 if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
3492 if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
3493 if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
3494 if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
3495 if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
3496 if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
3497 if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
3498 if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
3499 if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
3500 if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
3501 if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
3502 if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
3503 if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
3504 if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
3505 if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
3506 if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
3507 if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
3508 if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
3509 if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
3510 if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
3511 if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
3512 if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
3513 if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
3514 if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
3515 if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
3516 if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
3517 if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
3518 if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
3519 if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
3520 if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
3521 if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
3522 if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
3523 if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
3524 if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
3525 if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
3526 if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
3527 if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
3528 if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
3529 if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
3530 if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
3531 if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
3532 if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
3533 if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
3534 if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
3535 if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
3536 if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
3537 if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
3538 if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
3539 if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
3540 if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
3541 if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
3542 if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
3543 if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
3544 if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
3545 if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
3546 if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
3547 if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
3548 if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
3549 if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
3550 if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
3551 if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
3552 if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
3553 if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
3554 if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
3555 if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
3556 if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
3557 if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
3558 if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
3559 if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
3560 if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
3561 if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
3562 if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
3563 if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
3564 if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
3565 if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
3566 if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
3567 if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
3568 if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
3569 if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
3570 if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
3571 raise AsException("type de concept resultat non prevu")
3573 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
3574 fr=" ",docu="U4.72.04-A",reentrant='n',
3575 regles=(EXCLUS('NUME_DDL','CHAM_NO',),ENSEMBLE('CHAM_F','CHAM_PARA',),
3576 EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
3577 'NOEUD_CMP','NOM_CAS','ANGL', ),),
3578 TYPE_CHAM =SIMP(statut='o',typ='TXM',
3579 into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
3580 "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
3581 "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
3582 "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
3583 "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
3584 "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
3585 "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
3586 "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
3587 "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
3588 "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
3589 "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
3590 "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
3591 "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
3592 "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
3593 "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
3594 "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
3595 "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
3596 "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
3597 "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
3598 "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
3599 "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
3600 "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
3601 "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
3602 "ELGA_INTE_R","CART_META_R","NOEU_META_R",
3603 "ELEM_META_R","ELNO_META_R","ELGA_META_R",
3604 "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
3605 "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
3606 "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
3607 "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
3608 "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
3609 "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
3610 "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
3611 "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
3612 "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
3613 "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
3614 "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
3615 "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
3616 "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
3617 "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
3618 "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",) ),
3619 OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
3620 MODELE =SIMP(statut='f',typ=(modele) ),
3621 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
3622 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
3623 AFFE =FACT(statut='f',min=01,max='**',
3624 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
3625 UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
3626 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3627 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3628 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3629 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3630 NOEUD =SIMP(statut='f',typ=no,max='**'),
3631 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
3632 VALE =SIMP(statut='f',typ='R',max='**' ),
3633 VALE_R =SIMP(statut='f',typ='R',max='**' ),
3634 VALE_I =SIMP(statut='f',typ='I',max='**' ),
3635 VALE_C =SIMP(statut='f',typ='C',max='**' ),
3636 VALE_F =SIMP(statut='f',typ=fonction,max='**'),
3637 FONCTION =SIMP(statut='f',typ=fonction),
3639 NUME_DDL =SIMP(statut='f',typ=(nume_ddl) ),
3640 CHAM_NO =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_temp_f,cham_no_depl_r,
3641 cham_no_depl_f,cham_no_sief_r ) ),
3642 ASSE =FACT(statut='f',min=01,max='**',
3643 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
3644 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
3645 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3646 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3647 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3648 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3649 NOEUD =SIMP(statut='f',typ=no,max='**'),
3650 CHAM_GD =SIMP(statut='f',typ=(cham_elem,cham_no,carte)),
3651 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
3652 NOM_CMP_RESU =SIMP(statut='f',typ='TXM',max='**' ),
3653 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
3654 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
3656 CHAM_F =SIMP(statut='f',typ=(cham_elem,cham_no,carte)),
3657 CHAM_PARA =SIMP(statut='f',typ=(cham_elem,cham_no,carte),max='**'),
3658 CHAM_GD =SIMP(statut='f',typ=(cham_elem,cham_no,carte)),
3659 RESULTAT =SIMP(statut='f',typ=resultat ),
3660 NOM_CHAM =SIMP(statut='f',typ='TXM',
3661 into=("DEPL","VITE","ACCE","GEOMETRIE",
3662 "DEPL_ABSOLU","VITE_ABSOLU","TEMP","ACCE_ABSOLU",
3663 "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
3664 "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
3665 "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
3666 "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
3667 "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
3668 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
3669 "META_ELGA_TEMP","META_ELNO_TEMP",
3670 "META_NOEU_TEMP","DURT_ELGA_META",
3671 "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
3672 "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
3673 "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
3674 "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
3675 "PRES_ELNO_REEL","PRES_ELNO_IMAG",
3676 "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
3677 "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
3678 "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
3679 "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
3680 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
3681 "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
3682 "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3683 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
3684 "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
3685 "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
3686 "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
3687 "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
3688 "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
3689 "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
3690 "PRES_NOEU_DBEL","PRES_NOEU_REEL",
3691 "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
3692 "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
3693 "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
3694 "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
3695 "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
3696 "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
3697 "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
3698 "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
3699 "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
3700 "GTHE_ELNO_ELGA","GRAD_NOEU_THETA","HYDR_ELGA",
3701 "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",) ),
3702 TYPE_MAXI =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
3703 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
3704 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3705 LIST_INST =SIMP(statut='f',typ=(listr8) ),
3706 NUME_ORDRE =SIMP(statut='f',typ='I'),
3707 INST =SIMP(statut='f',typ='R'),
3708 FREQ =SIMP(statut='f',typ='R'),
3709 NUME_MODE =SIMP(statut='f',typ='I'),
3710 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
3711 NOM_CAS =SIMP(statut='f',typ='TXM'),
3712 ANGL =SIMP(statut='f',typ='R'),
3713 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
3714 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3715 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
3716 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
3717 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
3719 #& MODIF COMMANDE DATE 30/11/1999 AUTEUR JMBHH01 J.M.PROIX
3720 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage
3721 ,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é)",
3722 docu="U4.23.02-C",reentrant='n',
3723 regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
3724 EXCLUS('ECLA_PG','CREA_GROUP_MA'),
3725 EXCLUS('ECLA_PG','DETR_GROUP_MA'),
3726 EXCLUS('ECLA_PG','MODI_MAILLE'),),
3727 MAILLAGE =SIMP(statut='o',typ=maillage ),
3728 CREA_POI1 =FACT(statut='f',min=01,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
3729 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
3730 NOM_GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3731 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3732 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3733 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3734 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3735 NOEUD =SIMP(statut='f',typ=no,max='**'),
3737 CREA_MAILLE =FACT(statut='f',min=01,max='**',fr="Duplication de mailles",
3738 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
3739 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3740 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3741 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3742 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
3743 PREF_NUME =SIMP(statut='f',typ='I' ),
3745 CREA_GROUP_MA =FACT(statut='f',min=01,max='**',fr="Duplication de mailles et création de groupes de mailles",
3746 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
3747 NOM =SIMP(statut='o',typ='TXM'),
3748 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3749 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3750 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3751 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
3752 PREF_NUME =SIMP(statut='f',typ='I' ),
3754 DETR_GROUP_MA =FACT(statut='f',min=01,max=01,fr="Destruction de groupes de mailles",
3755 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3756 NB_MAILLE =SIMP(statut='f',typ='I',defaut= 0,fr="Nombre minimal de mailles que doit contenir le groupe pour être détruit", ),
3758 MODI_MAILLE =FACT(statut='f',min=01,max='**',fr="Modification du type de mailles",
3759 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
3760 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3761 MAILLE =SIMP(statut='f',typ=grma,max='**'),
3762 GROUP_MA =SIMP(statut='f',typ=ma,max='**'),
3763 OPTION =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
3764 PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
3765 PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
3767 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",
3768 TABLE =SIMP(statut='o',typ=tabl_cara_geom,fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
3769 NOM_ORIG =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
3770 NOM_ROTA =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére" ),
3771 b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
3772 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"),
3775 ECLA_PG =FACT(statut='f',min=01,max=01,fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
3776 MODELE =SIMP(statut='o',typ=modele ),
3777 SHRINK =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
3779 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3781 #& MODIF COMMANDE DATE 21/06/2000 AUTEUR CIBHHLV L.VIVAN
3782 def crea_resu_prod(TYPE_RESU,**args):
3783 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
3784 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
3785 if TYPE_RESU == "EVOL_THER" : return evol_ther
3786 if TYPE_RESU == "MULT_ELAS" : return mult_elas
3787 if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
3788 raise AsException("type de concept resultat non prevu")
3790 # commentaire C. DURAND : J'ai supprimé tous les blocs.
3791 # Ce qui avait été fait était faux (plantage EFICAS de nombreux tests et ingérable)
3792 # il faudra réfléchir à la manière de les réintroduire proprement
3793 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-D",reentrant='f',
3794 fr="Engendrer ou enrichir une structure de données de type evol_ther en affectant les cham_no associés",
3795 regles=(EXCLUS('CHAM_GD','ECLA_PG','PERM_CHAMP',),),
3796 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER","FOURIER_ELAS","MULT_ELAS",
3797 "EVOL_ELAS","EVOL_NOLI") ),
3798 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","SIEF_ELGA","VARI_ELGA",),max='**' ),
3799 CHAM_GD =FACT(statut='f',min=01,max='**',
3800 regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
3801 CHAM_NO =SIMP(statut='o',typ=(cham_no)),
3802 NUME_ORDRE_INIT =SIMP(statut='f',typ='I'),
3803 NOM_CAS =SIMP(statut='f',typ='TXM' ),
3804 NUME_MODE =SIMP(statut='f',typ='I'),
3805 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
3806 INST =SIMP(statut='f',typ='R',max='**'),
3807 LIST_INST =SIMP(statut='f',typ=listr8),
3808 NUME_INIT =SIMP(statut='f',typ='I'),
3809 NUME_FIN =SIMP(statut='f',typ='I'),
3812 ECLA_PG =FACT(statut='f',min=01,max=01,
3813 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),),
3814 MODELE_INIT =SIMP(statut='o',typ=modele),
3815 RESU_INIT =SIMP(statut='o',typ=resultat),
3816 MAILLAGE =SIMP(statut='o',typ=maillage),
3817 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
3818 into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
3819 TOUT_ORDRE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
3820 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3821 LIST_ORDRE =SIMP(statut='f',typ=listis),
3822 INST =SIMP(statut='f',typ='R',max='**'),
3823 LIST_INST =SIMP(statut='f',typ=listr8),
3824 FREQ =SIMP(statut='f',typ='R',max='**'),
3825 LIST_FREQ =SIMP(statut='f',typ=listr8),
3826 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
3827 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3831 RESU_INIT =SIMP(statut='f',typ=evol_noli),
3832 INST_INIT =SIMP(statut='f',typ='R'),
3833 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
3834 CRITERE =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
3835 MAILLAGE_INIT =SIMP(statut='f',typ=maillage,),
3836 RESU_FINAL =SIMP(statut='f',typ=evol_noli,),
3837 MAILLAGE_FINAL =SIMP(statut='f',typ=maillage,),
3838 PERM_CHAMP =FACT(statut='f',min=01,max=01,
3839 GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
3840 GROUP_MA_INIT =SIMP(statut='o',typ=grma),
3841 TRAN =SIMP(statut='o',typ='R',max='**'),
3842 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
3846 DEBUT=PROC(nom="DEBUT",op=0 ,docu="U4.11.01-F",repetable='n',
3847 fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
3849 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM'),
3850 BASE =FACT(fr="définition des paramètres associés aux bases JEVEUX",
3851 statut='f',min=01,max=03,
3852 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM',
3853 into=('GLOBALE','VOLATILE','LOCALE'),),
3854 TITRE =SIMP(statut='f',typ='TXM'),
3855 CAS =SIMP(statut='f',typ='TXM'),
3856 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
3857 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
3858 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
3860 IMPRESSION =FACT(statut='f',min=01,max=03,
3861 FICHIER =SIMP(statut='o',typ='TXM'),
3862 UNITE =SIMP(statut='o',typ='I'),
3864 CATALOGUE =FACT(statut='f',min=01,max=10,
3865 FICHIER =SIMP(statut='o',typ='TXM'),
3866 TITRE =SIMP(statut='f',typ='TXM'),
3867 UNITE =SIMP(statut='f',typ='I'),
3869 CODE =FACT("définition d un nom pour l'esemble d'une étude",
3870 statut='f',min=01,max=01,
3871 NOM =SIMP(statut='o',typ='TXM'),
3872 UNITE =SIMP(statut='f',typ='I',defaut=15),
3874 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
3875 statut='f',min=01,max=01,
3876 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
3877 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
3878 JEVEUX =SIMP(fr="force les déchargement sur disque",
3879 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
3880 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
3881 statut='f',typ='TXM',into=('TEST',)),
3883 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=01,max=01,
3884 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
3885 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
3886 TAILLE =SIMP(statut='f',typ='I'),
3887 PARTITION =SIMP(statut='f',typ='R'),
3890 #& MODIF COMMANDE DATE 09/09/98 AUTEUR ACBHHCD G.DEVESA
3891 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op= 99,sd_prod=base_modale
3892 ,fr="Définition d une base modale pour analyse dynamique par superposition modale ou sous structuration dynamique par synthèse modale",
3893 docu="U4.64.02-E",reentrant='f',
3894 regles=(UN_PARMI('CLASSIQUE','RITZ'),),
3895 CLASSIQUE =FACT(statut='f',min=01,max=01,
3896 INTERF_DYNA =SIMP(statut='o',typ=interf_dyna_clas ),
3897 MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
3898 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 10 ),
3900 RITZ =FACT(statut='f',min=01,max='**',
3901 regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
3902 MODE_MECA =SIMP(statut='f',typ=mode_meca,max='**' ),
3903 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
3904 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
3905 MULT_ELAS =SIMP(statut='f',typ=mult_elas ),
3906 BASE_MODALE =SIMP(statut='f',typ=base_modale ),
3908 # le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
3909 # PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
3910 b_ritz =BLOC(condition = "RITZ != None",
3911 INTERF_DYNA =SIMP(statut='f',typ=interf_dyna_clas ),
3912 NUME_REF =SIMP(statut='o',typ=nume_ddl ),
3914 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3915 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3917 #& MODIF COMMANDE DATE 06/11/98 AUTEUR CIBHHLV L.VIVAN
3918 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
3920 docu="U4.42.04-A",reentrant='n',
3921 MODELE =SIMP(statut='o',typ=modele ),
3922 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3923 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
3924 GROUP_MA_BETON =SIMP(statut='o',typ=grma),
3925 DEFI_CABLE =FACT(statut='o',min=01,max='**',
3926 regles=(UN_PARMI('MAILLE','GROUP_MA'),
3927 UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
3928 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3929 GROUP_MA =SIMP(statut='f',typ=grma),
3930 NOEUD_ANCRAGE =SIMP(statut='f',typ=no,max='**'),
3931 GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max='**'),
3932 TYPE_ANCRAGE =SIMP(statut='o',typ='TXM',max='**',
3933 into=("ACTIF","PASSIF") ),
3935 TENSION_INIT =SIMP(statut='o',typ='R' ),
3936 RECUL_ANCRAGE =SIMP(statut='o',typ='R' ),
3937 RELAXATION =FACT(statut='f',min=0,max=1,
3938 R_J =SIMP(statut='o',typ='R' ),
3940 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
3942 #& MODIF COMMANDE DATE 16/07/96 AUTEUR CIBHHRA R.MEDDOURI
3943 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op= 2,sd_prod=fonction,
3944 fr="Définition d une fonction constante",
3945 docu="U4.31.01-F",reentrant='n',
3946 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
3947 VALE =SIMP(statut='o',typ='R',max=01 ),
3948 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3950 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
3951 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-E",reentrant='n',
3952 fr="Définition d une coque composite couche par couche",
3953 COUCHE =FACT(statut='o',min=01,max='**',
3954 EPAIS =SIMP(statut='o',typ='R' ),
3955 MATER =SIMP(statut='o',typ=(mater) ),
3956 ORIENTATION =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
3958 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3959 IMPRESSION =FACT(statut='f',min=01,max=01,
3960 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
3961 into=("RESULTAT",) ),
3964 #& MODIF COMMANDE DATE 28/06/2000 AUTEUR CIBHHLV L.VIVAN
3965 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
3966 fr="Définition des caractéristiques nécessaires à l'étude du comportement dynamique d'une structure sous écoulement",
3967 docu="U4.25.01-C",reentrant='n',
3968 regles=(EXCLUS('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),
3969 AU_MOINS_UN('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX', ),),
3970 FAISCEAU_TRANS =FACT(statut='f',min=01,max='**',
3971 COUPLAGE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
3972 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3973 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
3974 PROF_RHO_F_INT =SIMP(statut='f',typ=fonction ),
3975 PROF_RHO_F_EXT =SIMP(statut='f',typ=fonction ),
3976 NOM_CMP =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
3977 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
3978 TYPE_PAS =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
3979 TYPE_RESEAU =SIMP(statut='f',typ='I' ),
3980 UNITE_CD =SIMP(statut='f',typ='I',defaut=70),
3981 UNITE_CK =SIMP(statut='f',typ='I',defaut=71),
3982 PAS =SIMP(statut='f',typ='R' ),
3984 GRAPPE =FACT(statut='f',min=00,max=01,
3985 regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
3986 PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
3987 # peut on créer un bloc a partir de la valeur de couplage
3988 COUPLAGE =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
3989 GRAPPE_2 =SIMP(statut='f',typ='TXM',
3990 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
3991 NOEUD =SIMP(statut='f',typ=no),
3992 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3993 MODELE =SIMP(statut='f',typ=modele ),
3994 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
3995 RHO_FLUI =SIMP(statut='f',typ='R' ),
3996 UNITE_CA =SIMP(statut='f',typ='I',defaut=70),
3997 UNITE_KA =SIMP(statut='f',typ='I',defaut=71),
3999 FAISCEAU_AXIAL =FACT(statut='f',min=01,max='**',
4000 regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
4001 UN_PARMI('CARA_ELEM','RAYON_TUBE'),
4002 ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
4003 PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
4004 ENSEMBLE('CARA_PAROI','VALE_PAROI'),
4005 ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
4006 'COOR_GRILLE','TYPE_GRILLE', ),),
4007 # on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
4008 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4009 TRI_GROUP_MA =SIMP(statut='f',typ='TXM' ),
4010 VECT_X =SIMP(statut='f',typ='R',max=03),
4011 PROF_RHO_FLUI =SIMP(statut='f',typ=fonction ),
4012 PROF_VISC_CINE =SIMP(statut='f',typ=fonction ),
4013 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4014 RAYON_TUBE =SIMP(statut='f',typ='R' ),
4015 COOR_TUBE =SIMP(statut='f',typ='R',max='**'),
4016 PESANTEUR =SIMP(statut='f',typ='R',min=04,max=04),
4017 RUGO_TUBE =SIMP(statut='f',typ='R' ),
4018 CARA_PAROI =SIMP(statut='f',typ='TXM',max=05,
4019 into=("YC","ZC","R","HY","HZ") ),
4020 VALE_PAROI =SIMP(statut='f',typ='R',max=05),
4021 ANGL_VRIL =SIMP(statut='f',typ='R' ),
4022 LONG_TYPG =SIMP(statut='f',typ='R',max='**'),
4023 LARG_TYPG =SIMP(statut='f',typ='R',max='**'),
4024 EPAI_TYPG =SIMP(statut='f',typ='R',max='**'),
4025 RUGO_TYPG =SIMP(statut='f',typ='R',max='**'),
4026 COEF_TRAI_TYPG =SIMP(statut='f',typ='R',max='**'),
4027 COEF_DPOR_TYPG =SIMP(statut='f',typ='R',max='**'),
4028 COOR_GRILLE =SIMP(statut='f',typ='R',max='**'),
4029 TYPE_GRILLE =SIMP(statut='f',typ='I',max='**'),
4031 COQUE_COAX =FACT(statut='f',min=00,max=01,
4032 MASS_AJOU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4033 GROUP_MA_INT =SIMP(statut='o',typ=grma),
4034 GROUP_MA_EXT =SIMP(statut='o',typ=grma),
4035 VECT_X =SIMP(statut='o',typ='R',max='**'),
4036 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
4037 MATER_INT =SIMP(statut='o',typ=mater ),
4038 MATER_EXT =SIMP(statut='o',typ=mater ),
4039 RHO_FLUI =SIMP(statut='o',typ='R' ),
4040 VISC_CINE =SIMP(statut='o',typ='R' ),
4041 RUGOSITE =SIMP(statut='o',typ='R' ),
4042 PDC_MOY_1 =SIMP(statut='o',typ='R' ),
4043 PDC_DYN_1 =SIMP(statut='o',typ='R' ),
4044 PDC_MOY_2 =SIMP(statut='o',typ='R' ),
4045 PDC_DYN_2 =SIMP(statut='o',typ='R' ),
4047 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4049 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4050 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.MK.10-A",reentrant='n',
4051 fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
4052 regles=(UN_PARMI('COUR_PRIN','COUR'),
4053 EXCLUS('COUR','COUR_SECO'), ),
4054 FREQ =SIMP(statut='f',typ='R',defaut= 50.),
4055 SIGNAL =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
4056 COUR =FACT(statut='f',min=01,max='**',
4057 fr="Définition du courant de court-circuit",
4058 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
4059 UN_PARMI('PHI_CC_2','INTC_CC_2'),),
4060 INTE_CC_1 =SIMP(statut='o',typ='R'),
4061 TAU_CC_1 =SIMP(statut='o',typ='R'),
4062 PHI_CC_1 =SIMP(statut='f',typ='R'),
4063 INTC_CC_1 =SIMP(statut='f',typ='R'),
4064 INTE_CC_2 =SIMP(statut='o',typ='R'),
4065 TAU_CC_2 =SIMP(statut='o',typ='R'),
4066 PHI_CC_2 =SIMP(statut='f',typ='R'),
4067 INTC_CC_2 =SIMP(statut='f',typ='R'),
4068 INST_CC_INIT =SIMP(statut='f',typ='R'),
4069 INST_CC_FIN =SIMP(statut='o',typ='R'),
4071 COUR_PRIN =FACT(statut='f',min=01,max=01,
4072 fr="Définition du courant de court-circuit avec réenclenchement",
4073 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
4074 INTE_CC_1 =SIMP(statut='o',typ='R'),
4075 TAU_CC_1 =SIMP(statut='o',typ='R'),
4076 PHI_CC_1 =SIMP(statut='f',typ='R'),
4077 INTC_CC_1 =SIMP(statut='f',typ='R'),
4078 INTE_RENC_1 =SIMP(statut='f',typ='R'),
4079 TAU_RENC_1 =SIMP(statut='f',typ='R'),
4080 PHI_RENC_1 =SIMP(statut='f',typ='R'),
4081 INST_CC_INIT =SIMP(statut='o',typ='R'),
4082 INST_CC_FIN =SIMP(statut='o',typ='R'),
4083 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4084 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4086 COUR_SECO =FACT(statut='f',min=01,max='**',
4087 fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
4088 regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
4089 INTE_CC_2 =SIMP(statut='o',typ='R'),
4090 TAU_CC_2 =SIMP(statut='o',typ='R'),
4091 PHI_CC_2 =SIMP(statut='f',typ='R'),
4092 INTC_CC_2 =SIMP(statut='f',typ='R'),
4093 INTE_RENC_2 =SIMP(statut='f',typ='R'),
4094 TAU_RENC_2 =SIMP(statut='f',typ='R'),
4095 PHI_RENC_2 =SIMP(statut='f',typ='R'),
4096 DIST =SIMP(statut='f',typ='R',defaut=1.0E+0),
4098 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4100 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4101 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
4102 fr="Définition des fonctions caractéristiques du fluide le long de la structure (profil de vitesse, profil de masse volumique)",
4103 docu="U4.35.01-C",reentrant='n',
4104 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
4105 NOEUD_INIT =SIMP(statut='o',typ=no),
4106 NOEUD_FIN =SIMP(statut='o',typ=no),
4107 VITE =FACT(statut='o',min=01,max=01,
4108 VALE =SIMP(statut='f',typ='R',defaut= 1. ),
4109 PROFIL =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
4110 NB_BAV =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
4112 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",
4113 into=("NON","LIN","LOG") ),
4114 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",
4115 into=("CONSTANT","LINEAIRE","EXCLU") ),
4116 PROL_GAUCHE =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
4117 into=("CONSTANT","LINEAIRE","EXCLU") ),
4118 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4119 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4121 #& MODIF COMMANDE DATE 06/09/1999 AUTEUR UFBHHLL C.CHAVANT
4122 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
4123 if VALE != None : return fonction
4124 if VALE_C != None : return fonction_c
4125 if VALE_PARA != None : return fonction
4126 if NOEUD_PARA != None : return fonction
4127 raise AsException("type de concept resultat non prevu")
4129 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
4130 ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
4131 docu="U4.31.02-F",reentrant='n',
4132 regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
4133 NOM_PARA =SIMP(statut='o',typ='TXM',
4134 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
4135 "INST","X","Y","Z","EPSI","META","FREQ","PULS",
4136 "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
4138 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
4139 VALE =SIMP(statut='f',typ='R',max='**',
4140 fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
4141 VALE_C =SIMP(statut='f',typ='R',max='**',
4142 fr ="Fonction complexe définie par une liste de couples (abscisse,ordonnée partie réelle, ordonnée partie imaginaire)"),
4143 VALE_PARA =SIMP(statut='f',typ=listr8,
4144 fr ="Fonction réelle définie par deux concepts de type listr8" ),
4145 b_vale_para =BLOC(condition = "VALE_PARA != None",
4146 VALE_FONC =SIMP(statut='o',typ=listr8 ),
4148 NOEUD_PARA =SIMP(statut='f',typ=no,max='**',
4149 fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
4150 b_noeud_para =BLOC(condition = "NOEUD_PARA != None",
4151 MAILLAGE =SIMP(statut='o',typ=maillage ),
4152 VALE_Y =SIMP(statut='o',typ='R',max='**'),
4155 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
4156 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4157 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4158 VERIF =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
4159 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4160 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4162 #& MODIF COMMANDE DATE 17/11/1999 AUTEUR CIBHHLV L.VIVAN
4163 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-E",reentrant='n',
4164 fr="Définition de lèvres et d un fond de fissure en 3D",
4165 regles=(UN_PARMI('FOND','FOND_FERME'),
4166 EXCLUS('FOND_FERME','DTAN_ORIG'),
4167 EXCLUS('FOND_FERME','DTAN_EXTR'),
4168 EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
4169 EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
4170 UN_PARMI('LEVRE_SUP','NORMALE'),
4171 EXCLUS('LEVRE_INF','NORMALE'),
4172 ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
4173 ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
4174 EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
4175 EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
4176 MAILLAGE =SIMP(statut='o',typ=maillage ),
4177 FOND =FACT(statut='f',min=01,max=01,
4178 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
4179 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
4180 EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
4181 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4182 NOEUD =SIMP(statut='f',typ=no,max='**'),
4183 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4184 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4185 # à mettre à jour le max vaut-il 1
4186 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
4187 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
4188 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
4189 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
4191 FOND_FERME =FACT(statut='f',min=01,max=01,
4192 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
4193 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
4194 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4195 NOEUD =SIMP(statut='f',typ=no,max='**'),
4196 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4197 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4198 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
4199 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
4200 MAILLE_ORIG =SIMP(statut='f',typ=ma,max=1),
4201 GROUP_MA_ORIG =SIMP(statut='f',typ=ma,max=1),
4203 LEVRE_SUP =FACT(statut='f',min=01,max=01,
4204 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
4205 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4206 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4208 LEVRE_INF =FACT(statut='f',min=01,max=01,
4209 regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
4210 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4211 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4213 NORMALE =SIMP(statut='f',typ='R',max='**'),
4214 DTAN_ORIG =SIMP(statut='f',typ='R',max='**'),
4215 DTAN_EXTR =SIMP(statut='f',typ='R',max='**'),
4216 VECT_GRNO_ORIG =SIMP(statut='f',typ=grno,max=2),
4217 VECT_GRNO_EXTR =SIMP(statut='f',typ=grno,max=2),
4218 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4220 #& MODIF COMMANDE DATE 27/09/2000 AUTEUR DURAND C.DURAND
4221 def defi_group_prod(MAILLAGE,**args):
4222 if AsType(MAILLAGE) == maillage : return maillage
4223 if AsType(MAILLAGE) == squelette : return squelette
4224 raise AsException("type de concept resultat non prevu")
4226 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
4227 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
4228 docu="U4.22.01-E",reentrant='o',
4229 regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
4230 MAILLAGE =SIMP(statut='o',typ=(maillage,squelette) ),
4232 CREA_GROUP_MA =FACT(statut='f',min=01,max='**',
4233 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
4234 # quel est le concept attendu deriere NOM
4235 NOM =SIMP(statut='o',typ=grma),
4236 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4237 GROUP_MA =SIMP(statut='f',typ=grma),
4238 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4239 INTERSEC =SIMP(statut='f',typ=grma,max='**'),
4240 UNION =SIMP(statut='f',typ=grma,max='**'),
4241 DIFFE =SIMP(statut='f',typ=grma,max='**'),
4242 OPTION =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
4243 b_group_ma =BLOC(condition = "GROUP_MA != None",
4244 regles=(EXCLUS('POSITION','NUME_INIT'),),
4245 NUME_INIT =SIMP(statut='f',typ='I',defaut= 1 ),
4246 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
4247 b_nume_init =BLOC(condition = "NUME_INIT != None",
4248 NUME_FIN =SIMP(statut='f',typ='I' ),
4251 b_face_normale =BLOC(condition = "OPTION == 'FACE_NORMALE'",
4252 regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4253 ANGL_NAUT =SIMP(statut='f',typ='R',max=02),
4254 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4255 ANGL_PREC =SIMP(statut='f',typ='R',defaut= 0.5 ),
4256 VERI_SIGNE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4258 b_sphere =BLOC(condition = "OPTION == 'SPHERE'",
4259 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
4260 POINT =SIMP(statut='f',typ='R',max=03),
4261 NOEUD_CENTRE =SIMP(statut='f',typ=no),
4262 RAYON =SIMP(statut='o',typ='R' ),
4264 b_cylindre =BLOC(condition = "OPTION == 'CYLINDRE'",
4265 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
4266 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4267 POINT =SIMP(statut='f',typ='R',max=03),
4268 NOEUD_CENTRE =SIMP(statut='f',typ=no),
4269 RAYON =SIMP(statut='o',typ='R' ),
4270 ANGL_NAUT =SIMP(statut='f',typ='R',max=02),
4271 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4273 b_bande =BLOC(condition = "OPTION == 'BANDE'",
4274 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
4275 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4276 POINT =SIMP(statut='f',typ='R',max=03),
4277 NOEUD_CENTRE =SIMP(statut='f',typ=no),
4278 DIST =SIMP(statut='o',typ='R' ),
4279 ANGL_NAUT =SIMP(statut='f',typ='R',max=02),
4280 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4283 CREA_GROUP_NO =FACT(statut='f',min=01,max='**',
4284 regles=(AU_MOINS_UN('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE',
4285 'GROUP_NO','OPTION'),),
4287 TOUT_GROUP_MA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4288 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4290 NOEUD =SIMP(statut='f',typ=no,max='**'),
4291 INTERSEC =SIMP(statut='f',typ=grno,max='**'),
4292 UNION =SIMP(statut='f',typ=grno,max='**'),
4293 DIFFE =SIMP(statut='f',typ=grno,max='**'),
4294 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4295 OPTION =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
4296 "SEGM_DROI_ORDO","NOEUD_ORDO") ),
4297 b_nom_group_ma =BLOC(condition = "GROUP_MA != None",
4298 NOM =SIMP(statut='f',typ=grma,max='**'),
4300 b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
4301 NOM =SIMP(statut='o',typ=geom),
4304 b_group_no =BLOC(condition = "GROUP_NO != None",
4305 regles=(EXCLUS('POSITION','NUME_INIT'),),
4306 NUME_INIT =SIMP(statut='f',typ='I',defaut= 1 ),
4307 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
4308 b_nume_init =BLOC(condition = "NUME_INIT != None",
4309 NUME_FIN =SIMP(statut='f',typ='I' ),
4312 b_env_sphere =BLOC(condition = "OPTION == 'ENV_SPHERE'",
4313 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
4314 POINT =SIMP(statut='f',typ='R',max=03),
4315 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=01),
4316 RAYON =SIMP(statut='o',typ='R' ),
4317 PRECISION =SIMP(statut='f',typ='R' ),
4318 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4320 b_env_cylindre =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
4321 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
4322 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4323 POINT =SIMP(statut='f',typ='R',max=03),
4324 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=01),
4325 RAYON =SIMP(statut='o',typ='R' ),
4326 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
4327 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4328 PRECISION =SIMP(statut='f',typ='R' ),
4329 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4331 b_env_plan =BLOC(condition = "OPTION == 'PLAN'",
4332 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
4333 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
4334 POINT =SIMP(statut='f',typ='R',max=03),
4335 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=01),
4336 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
4337 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
4338 PRECISION =SIMP(statut='f',typ='R' ),
4339 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4341 b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
4342 regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
4343 UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
4344 NOEUD_ORIG =SIMP(statut='f',typ=no),
4345 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
4346 NOEUD_EXTR =SIMP(statut='f',typ=no),
4347 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
4348 PRECISION =SIMP(statut='f',typ='R' ),
4349 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4351 b_noeud_ordo =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
4352 regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
4353 UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
4354 NOEUD_ORIG =SIMP(statut='f',typ=no),
4355 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
4356 NOEUD_EXTR =SIMP(statut='f',typ=no),
4357 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
4358 PRECISION =SIMP(statut='f',typ='R' ),
4359 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
4362 INFO =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
4364 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
4365 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
4366 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",
4367 docu="U4.36.02-E",reentrant='n',
4369 DIMENSION =SIMP(statut='f',typ='I',defaut= 1 ),
4371 PAR_FONCTION =FACT(statut='f',min=01,max='**',
4372 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
4373 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
4374 FONCTION =SIMP(statut='o',typ=fonction_c ),
4376 KANAI_TAJIMI =FACT(statut='f',min=01,max='**',
4377 regles=(EXCLUS('VALE_R','VALE_C'),),
4378 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
4379 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
4380 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4381 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
4382 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
4383 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.6 ),
4384 FREQ_MOY =SIMP(statut='f',typ='R',defaut= 5. ),
4385 VALE_R =SIMP(statut='f',typ='R' ),
4386 VALE_C =SIMP(statut='f',typ='C' ),
4387 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
4388 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4389 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4391 CONSTANT =FACT(statut='f',min=01,max='**',
4392 regles=(EXCLUS('VALE_R','VALE_C'),),
4393 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
4394 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
4395 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4396 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
4397 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
4398 VALE_R =SIMP(statut='f',typ='R' ),
4399 VALE_C =SIMP(statut='f',typ='C' ),
4400 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
4401 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4402 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4404 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4405 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4407 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4408 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op= 98,sd_prod=interf_dyna_clas,
4409 fr="Définition des interfaces d une structure pour analyse dynamique par superposition modale ou sous structuration dynamique par synthèse modale",
4410 docu="U4.64.01-E",reentrant='n',
4411 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
4412 INTERFACE =FACT(statut='o',min=01,max='**',
4413 regles=(ENSEMBLE('NOM','TYPE'),
4414 # erreur doc U sur la condition qui suit
4415 UN_PARMI('NOEUD','GROUP_NO'),),
4416 NOM =SIMP(statut='f',typ='TXM' ),
4417 TYPE =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
4418 NOEUD =SIMP(statut='f',typ=no,max='**'),
4419 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4420 DDL_ACTIF =SIMP(statut='f',typ='TXM',max='**'),
4421 MASQUE =SIMP(statut='f',typ='TXM',max='**'),
4423 FREQ =SIMP(statut='f',typ='R',defaut= 1.),
4424 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4426 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4427 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
4428 fr="Définition d une suite croissante d entiers",
4429 docu="U4.34.02-F",reentrant='n',
4430 regles=(UN_PARMI('VALE','DEBUT'),
4431 EXCLUS('VALE','INTERVALLE'),),
4432 VALE =SIMP(statut='f',typ='I',max='**'),
4433 DEBUT =SIMP(statut='f',typ='I'),
4434 INTERVALLE =FACT(statut='f',min=01,max='**',
4435 regles=(UN_PARMI('NOMBRE','PAS'),),
4436 JUSQU_A =SIMP(statut='o',typ='I'),
4437 NOMBRE =SIMP(statut='f',typ='I'),
4438 PAS =SIMP(statut='f',typ='I'),
4440 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
4441 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4443 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
4444 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
4445 fr="Définition d une suite croissante de réels",
4446 docu="U4.34.01-F",reentrant='n',
4447 regles=(UN_PARMI('VALE','DEBUT',),
4448 EXCLUS('VALE','INTERVALLE'),
4449 ENSEMBLE('DEBUT','INTERVALLE'),
4451 VALE =SIMP(statut='f',typ='R',max='**'),
4452 DEBUT =SIMP(statut='f',typ='R'),
4453 INTERVALLE =FACT(statut='f',min=01,max='**',
4454 regles=(UN_PARMI('NOMBRE','PAS'),),
4455 JUSQU_A =SIMP(statut='o',typ='R'),
4456 NOMBRE =SIMP(statut='f',typ='I'),
4457 PAS =SIMP(statut='f',typ='R'),
4459 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
4460 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4462 #& MODIF COMMANDE DATE 20/12/94 AUTEUR B7BHHLV L.VIVAN
4463 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op= 88,sd_prod=maillage,
4464 fr="Définition d un nouveau maillage à partir de macro éléments",
4465 docu="U4.23.01-E",reentrant='n',
4466 DEFI_MAILLE =FACT(statut='o',min=01,max='**',
4467 MACR_ELEM_STAT =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
4468 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4469 TRAN =SIMP(statut='f',typ='R',max=03),
4470 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
4471 b_angl_naut =BLOC(condition = "ANGL_NAUT != None",
4472 CENTRE =SIMP(statut='f',typ='R',max=03),
4475 RECO_GLOBAL =FACT(statut='f',min=01,max='**',
4476 regles=(UN_PARMI('TOUT','MAILLE'),),
4477 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4478 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4479 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4480 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4482 RECO_MAILLE =FACT(statut='f',min=01,max='**',
4483 MAILLE =SIMP(statut='o',typ=ma,max='**'),
4484 GROUP_NO =SIMP(statut='o',typ=grno,max='**'),
4485 OPTION =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
4486 geometrique =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
4487 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4488 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4491 DEFI_NOEUD =FACT(statut='f',min=01,max='**',
4492 regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
4493 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
4494 fr="Renommage de tous les noeuds" ),
4495 NOEUD_INIT =SIMP(statut='f',typ=no,
4496 fr="Renommage d un seul noeud"),
4497 b_tout =BLOC(condition = "TOUT != None",
4498 PREFIXE =SIMP(statut='f',typ='TXM' ),
4499 INDEX =SIMP(statut='o',typ='I',max='**'),
4501 b_noeud_init =BLOC(condition = "NOEUD_INIT != None",
4502 MAILLE =SIMP(statut='o',typ=ma),
4503 NOEUD_FIN =SIMP(statut='o',typ=no),
4506 DEFI_GROUP_NO =FACT(statut='f',min=01,max='**',
4507 regles=(UN_PARMI('TOUT','MAILLE'),
4508 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
4509 ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
4510 # la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
4511 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
4512 fr="Création de plusieurs groupes de noeuds" ),
4513 MAILLE =SIMP(statut='f',typ=ma,
4514 fr="Création de plusieurs groupes de noeuds"),
4515 GROUP_NO_INIT =SIMP(statut='f',typ=grno,
4516 fr="Création d un seul groupe de noeuds"),
4517 PREFIXE =SIMP(statut='f',typ='TXM' ),
4518 INDEX =SIMP(statut='f',typ='I',max='**'),
4519 GROUP_NO_FIN =SIMP(statut='f',typ=grno),
4522 #& MODIF COMMANDE DATE 28/11/2000 AUTEUR CIBHHLV L.VIVAN
4523 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
4524 fr="Définition des paramètres décrivant le comportement d un matériau",
4525 docu="U4.43.01-F",reentrant='n',
4526 regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
4527 'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
4528 'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
4529 EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
4530 EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
4531 EXCLUS('TAHERI','TAHERI_FO'),
4532 EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
4533 PRESENT_PRESENT('ROUSSELIER','TRACTION'),
4534 PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
4535 EXCLUS('VMIS_CIN1_CHAB','VMIS_CIN1_CHAB_F'),
4536 EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
4537 EXCLUS('POLY_CFC','POLY_CFC_FO'),
4538 PRESENT_PRESENT('NORTON_HOFF','ELAS'),
4539 EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
4540 EXCLUS('OHNO','OHNO_FO'),
4541 EXCLUS('LMARC','LMARC_FO'),
4542 EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
4543 EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
4544 PRESENT_PRESENT('BPEL_BETON','ELAS'),
4545 PRESENT_PRESENT('BPEL_ACIER','ELAS'),
4546 EXCLUS('RCCM','RCCM_FO'),),
4548 # comportement élastique
4550 ELAS =FACT(statut='f',min=00,max=01,
4551 E =SIMP(statut='o',typ='R'),
4552 NU =SIMP(statut='o',typ='R'),
4553 RHO =SIMP(statut='f',typ='R'),
4554 ALPHA =SIMP(statut='f',typ='R'),
4555 AMOR_ALPHA =SIMP(statut='f',typ='R'),
4556 AMOR_BETA =SIMP(statut='f',typ='R'),
4557 AMOR_HYST =SIMP(statut='f',typ='R'),
4559 ELAS_FO =FACT(statut='f',min=00,max=01,
4560 E =SIMP(statut='o',typ=fonction),
4561 NU =SIMP(statut='o',typ=fonction),
4562 RHO =SIMP(statut='f',typ='R'),
4563 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
4564 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
4565 ALPHA =SIMP(statut='f',typ=fonction),
4566 AMOR_ALPHA =SIMP(statut='f',typ=fonction),
4567 AMOR_BETA =SIMP(statut='f',typ=fonction),
4568 AMOR_HYST =SIMP(statut='f',typ=fonction),
4569 K_DESSIC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4570 B_ENDOGE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4571 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
4572 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
4573 VERI_P3 =SIMP(statut='f',typ='TXM',defaut="HYDR",into=("HYDR",) ),
4574 VERI_P4 =SIMP(statut='f',typ='TXM',defaut="SECH",into=("SECH",) ),
4576 ELAS_FLUI =FACT(statut='f',min=00,max=01,
4577 E =SIMP(statut='o',typ='R'),
4578 NU =SIMP(statut='o',typ='R'),
4579 RHO =SIMP(statut='o',typ='R'),
4580 PROF_RHO_F_INT =SIMP(statut='o',typ=fonction),
4581 PROF_RHO_F_EXT =SIMP(statut='o',typ=fonction),
4582 COEF_MASS_AJOU =SIMP(statut='o',typ=fonction),
4583 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
4585 ELAS_ISTR =FACT(statut='f',min=00,max=01,
4586 E_L =SIMP(statut='o',typ='R'),
4587 E_N =SIMP(statut='o',typ='R'),
4588 NU_LT =SIMP(statut='o',typ='R'),
4589 NU_LN =SIMP(statut='o',typ='R'),
4590 G_LN =SIMP(statut='o',typ='R'),
4591 RHO =SIMP(statut='f',typ='R'),
4592 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4593 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4595 ELAS_ISTR_FO =FACT(statut='f',min=00,max=01,
4596 E_L =SIMP(statut='o',typ=fonction),
4597 E_N =SIMP(statut='o',typ=fonction),
4598 NU_LT =SIMP(statut='o',typ=fonction),
4599 NU_LN =SIMP(statut='o',typ=fonction),
4600 G_LN =SIMP(statut='o',typ=fonction),
4601 RHO =SIMP(statut='f',typ='R'),
4602 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
4603 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
4604 ALPHA_L =SIMP(statut='f',typ=fonction),
4605 ALPHA_N =SIMP(statut='f',typ=fonction),
4606 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
4608 ELAS_ORTH =FACT(statut='f',min=00,max=01,
4609 E_L =SIMP(statut='o',typ='R'),
4610 E_T =SIMP(statut='o',typ='R'),
4611 E_N =SIMP(statut='f',typ='R'),
4612 NU_LT =SIMP(statut='o',typ='R'),
4613 NU_LN =SIMP(statut='f',typ='R'),
4614 NU_TN =SIMP(statut='f',typ='R'),
4615 G_LT =SIMP(statut='o',typ='R'),
4616 G_LN =SIMP(statut='f',typ='R'),
4617 G_TN =SIMP(statut='f',typ='R'),
4618 RHO =SIMP(statut='f',typ='R'),
4619 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4620 ALPHA_T =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4621 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4622 XT =SIMP(statut='f',typ='R',defaut= 1. ),
4623 XC =SIMP(statut='f',typ='R',defaut= 1. ),
4624 YT =SIMP(statut='f',typ='R',defaut= 1. ),
4625 YC =SIMP(statut='f',typ='R',defaut= 1. ),
4626 S_LT =SIMP(statut='f',typ='R',defaut= 1. ),
4628 ELAS_ORTH_FO =FACT(statut='f',min=00,max=01,
4629 E_L =SIMP(statut='o',typ=fonction),
4630 E_T =SIMP(statut='o',typ=fonction),
4631 E_N =SIMP(statut='o',typ=fonction),
4632 NU_LT =SIMP(statut='o',typ=fonction),
4633 NU_LN =SIMP(statut='o',typ=fonction),
4634 NU_TN =SIMP(statut='o',typ=fonction),
4635 G_LT =SIMP(statut='o',typ=fonction),
4636 G_LN =SIMP(statut='o',typ=fonction),
4637 G_TN =SIMP(statut='o',typ=fonction),
4638 RHO =SIMP(statut='f',typ='R'),
4639 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
4640 PRECISION =SIMP(statut='f',typ='R',defaut= 1. ),
4641 ALPHA_L =SIMP(statut='f',typ=fonction),
4642 ALPHA_T =SIMP(statut='f',typ=fonction),
4643 ALPHA_N =SIMP(statut='f',typ=fonction),
4644 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
4646 ELAS_THM =FACT(statut='f',min=00,max=01,
4647 RHO_S =SIMP(statut='o',typ='R'),
4648 UN_SUR_KS =SIMP(statut='o',typ='R'),
4649 E =SIMP(statut='f',typ='R'),
4650 KB =SIMP(statut='f',typ='R'),
4651 D_KB_T =SIMP(statut='f',typ='R'),
4652 ALPHA_S =SIMP(statut='f',typ='R'),
4653 ALPHA_D =SIMP(statut='f',typ='R'),
4655 SURF_ETAT_SATU =FACT(statut='f',min=00,max=01,
4656 E_CHAR =SIMP(statut='o',typ='R'),
4657 E_DECHAR =SIMP(statut='o',typ='R'),
4658 XN =SIMP(statut='f',typ='R'),
4659 RF =SIMP(statut='f',typ='R'),
4660 EV_KB =SIMP(statut='f',typ='R'),
4661 EV_XM =SIMP(statut='f',typ='R'),
4662 D_E_T =SIMP(statut='f',typ='R'),
4663 ALPHA0 =SIMP(statut='f',typ='R'),
4664 ALPHA1 =SIMP(statut='f',typ='R'),
4665 ALPHA2 =SIMP(statut='f',typ='R'),
4666 ALPHA3 =SIMP(statut='f',typ='R'),
4667 ALPHA_S =SIMP(statut='f',typ='R'),
4668 ANG_FRT =SIMP(statut='o',typ='R'),
4669 COHE =SIMP(statut='o',typ='R'),
4670 RESI_TRAC =SIMP(statut='o',typ='R'),
4672 CAM_CLAY_THM =FACT(statut='f',min=00,max=01,
4673 NU =SIMP(statut='f',typ='R'),
4674 LAMBDA =SIMP(statut='o',typ='R'),
4675 KAPA =SIMP(statut='o',typ='R'),
4676 M =SIMP(statut='f',typ='R'),
4677 PRES_CRIT =SIMP(statut='f',typ='R'),
4678 GAMA =SIMP(statut='o',typ='R'),
4679 A0_PC =SIMP(statut='o',typ='R'),
4680 A1_PC =SIMP(statut='f',typ='R'),
4681 A2_PC =SIMP(statut='f',typ='R'),
4682 ALPHA0_PC =SIMP(statut='f',typ='R'),
4683 ALPHA1_PC =SIMP(statut='f',typ='R'),
4684 ALPHA2_PC =SIMP(statut='f',typ='R'),
4685 ALPHA3_PC =SIMP(statut='f',typ='R'),
4686 ALPHA_S =SIMP(statut='f',typ='R'),
4688 SURF_ETAT_NSAT =FACT(statut='f',min=00,max=01,
4689 E_CHAR =SIMP(statut='o',typ='R'),
4690 E_DECHAR =SIMP(statut='o',typ='R'),
4691 XN =SIMP(statut='f',typ='R'),
4692 RF =SIMP(statut='f',typ='R'),
4693 EV_KB =SIMP(statut='f',typ='R'),
4694 EV_XM =SIMP(statut='f',typ='R'),
4695 EV_A =SIMP(statut='f',typ='R'),
4696 EV_B =SIMP(statut='f',typ='R'),
4697 EV_CT =SIMP(statut='f',typ='R'),
4698 EV_SIGB =SIMP(statut='f',typ='R'),
4699 D_E_T =SIMP(statut='f',typ='R'),
4700 D_E_SUCC =SIMP(statut='f',typ='R'),
4701 ANG_FRT =SIMP(statut='o',typ='R'),
4702 COHE =SIMP(statut='o',typ='R'),
4703 D_COEH_SUCC =SIMP(statut='f',typ='R'),
4704 ANG_FRT_ULT =SIMP(statut='f',typ='R'),
4705 SUCC_ULTM =SIMP(statut='f',typ='R'),
4706 RESI_TRAC =SIMP(statut='f',typ='R'),
4707 A_SURF_SATU =SIMP(statut='f',typ='R'),
4708 B_SURF_SATU =SIMP(statut='f',typ='R'),
4709 C_SURF_SATU =SIMP(statut='f',typ='R'),
4710 D_SURF_SATU =SIMP(statut='f',typ='R'),
4712 ELAS_COQUE =FACT(statut='f',min=00,max=01,
4713 regles=(EXCLUS('MEMB_L','M_LLLL',),
4714 PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
4715 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
4716 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
4717 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
4718 'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
4719 'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
4720 'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
4721 'C_LZTZ','C_TZTZ'),),
4722 MEMB_L =SIMP(statut='f',typ='R'),
4723 MEMB_LT =SIMP(statut='f',typ='R'),
4724 MEMB_T =SIMP(statut='f',typ='R'),
4725 MEMB_G_LT =SIMP(statut='f',typ='R'),
4726 FLEX_L =SIMP(statut='f',typ='R'),
4727 FLEX_LT =SIMP(statut='f',typ='R'),
4728 FLEX_T =SIMP(statut='f',typ='R'),
4729 FLEX_G_LT =SIMP(statut='f',typ='R'),
4730 CISA_L =SIMP(statut='f',typ='R'),
4731 CISA_T =SIMP(statut='f',typ='R'),
4732 M_LLLL =SIMP(statut='f',typ='R'),
4733 M_LLTT =SIMP(statut='f',typ='R'),
4734 M_LLLT =SIMP(statut='f',typ='R'),
4735 M_TTTT =SIMP(statut='f',typ='R'),
4736 M_TTLT =SIMP(statut='f',typ='R'),
4737 M_LTLT =SIMP(statut='f',typ='R'),
4738 F_LLLL =SIMP(statut='f',typ='R'),
4739 F_LLTT =SIMP(statut='f',typ='R'),
4740 F_LLLT =SIMP(statut='f',typ='R'),
4741 F_TTTT =SIMP(statut='f',typ='R'),
4742 F_TTLT =SIMP(statut='f',typ='R'),
4743 F_LTLT =SIMP(statut='f',typ='R'),
4744 MF_LLLL =SIMP(statut='f',typ='R'),
4745 MF_LLTT =SIMP(statut='f',typ='R'),
4746 MF_LLLT =SIMP(statut='f',typ='R'),
4747 MF_TTTT =SIMP(statut='f',typ='R'),
4748 MF_TTLT =SIMP(statut='f',typ='R'),
4749 MF_LTLT =SIMP(statut='f',typ='R'),
4750 MC_LLLZ =SIMP(statut='f',typ='R'),
4751 MC_LLTZ =SIMP(statut='f',typ='R'),
4752 MC_TTLZ =SIMP(statut='f',typ='R'),
4753 MC_TTTZ =SIMP(statut='f',typ='R'),
4754 MC_LTLZ =SIMP(statut='f',typ='R'),
4755 MC_LTTZ =SIMP(statut='f',typ='R'),
4756 FC_LLLZ =SIMP(statut='f',typ='R'),
4757 FC_LLTZ =SIMP(statut='f',typ='R'),
4758 FC_TTLZ =SIMP(statut='f',typ='R'),
4759 FC_TTTZ =SIMP(statut='f',typ='R'),
4760 FC_LTLZ =SIMP(statut='f',typ='R'),
4761 FC_LTTZ =SIMP(statut='f',typ='R'),
4762 C_LZLZ =SIMP(statut='f',typ='R'),
4763 C_LZTZ =SIMP(statut='f',typ='R'),
4764 C_TZTZ =SIMP(statut='f',typ='R'),
4765 RHO =SIMP(statut='f',typ='R'),
4766 ALPHA =SIMP(statut='f',typ='R'),
4768 ELAS_COQUE_FO =FACT(statut='f',min=00,max=01,
4769 regles=(EXCLUS('MEMB_L','M_LLLL',),
4770 PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
4771 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
4772 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
4773 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
4774 'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
4775 'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
4776 'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
4777 MEMB_L =SIMP(statut='f',typ=fonction),
4778 MEMB_LT =SIMP(statut='f',typ=fonction),
4779 MEMB_T =SIMP(statut='f',typ=fonction),
4780 MEMB_G_LT =SIMP(statut='f',typ=fonction),
4781 FLEX_L =SIMP(statut='f',typ=fonction),
4782 FLEX_LT =SIMP(statut='f',typ=fonction),
4783 FLEX_T =SIMP(statut='f',typ=fonction),
4784 FLEX_G_LT =SIMP(statut='f',typ=fonction),
4785 CISA_L =SIMP(statut='f',typ=fonction),
4786 CISA_T =SIMP(statut='f',typ=fonction),
4787 M_LLLL =SIMP(statut='f',typ=fonction),
4788 M_LLTT =SIMP(statut='f',typ=fonction),
4789 M_LLLT =SIMP(statut='f',typ=fonction),
4790 M_TTTT =SIMP(statut='f',typ=fonction),
4791 M_TTLT =SIMP(statut='f',typ=fonction),
4792 M_LTLT =SIMP(statut='f',typ=fonction),
4793 F_LLLL =SIMP(statut='f',typ=fonction),
4794 F_LLTT =SIMP(statut='f',typ=fonction),
4795 F_LLLT =SIMP(statut='f',typ=fonction),
4796 F_TTTT =SIMP(statut='f',typ=fonction),
4797 F_TTLT =SIMP(statut='f',typ=fonction),
4798 F_LTLT =SIMP(statut='f',typ=fonction),
4799 MF_LLLL =SIMP(statut='f',typ=fonction),
4800 MF_LLTT =SIMP(statut='f',typ=fonction),
4801 MF_LLLT =SIMP(statut='f',typ=fonction),
4802 MF_TTTT =SIMP(statut='f',typ=fonction),
4803 MF_TTLT =SIMP(statut='f',typ=fonction),
4804 MF_LTLT =SIMP(statut='f',typ=fonction),
4805 MC_LLLZ =SIMP(statut='f',typ=fonction),
4806 MC_LLTZ =SIMP(statut='f',typ=fonction),
4807 MC_TTLZ =SIMP(statut='f',typ=fonction),
4808 MC_TTTZ =SIMP(statut='f',typ=fonction),
4809 MC_LTLZ =SIMP(statut='f',typ=fonction),
4810 MC_LTTZ =SIMP(statut='f',typ=fonction),
4811 FC_LLLZ =SIMP(statut='f',typ=fonction),
4812 FC_LLTZ =SIMP(statut='f',typ=fonction),
4813 FC_TTLZ =SIMP(statut='f',typ=fonction),
4814 FC_TTTZ =SIMP(statut='f',typ=fonction),
4815 FC_LTLZ =SIMP(statut='f',typ=fonction),
4816 FC_LTTZ =SIMP(statut='f',typ=fonction),
4817 C_LZLZ =SIMP(statut='f',typ=fonction),
4818 C_LZTZ =SIMP(statut='f',typ=fonction),
4819 C_TZTZ =SIMP(statut='f',typ=fonction),
4820 RHO =SIMP(statut='f',typ='R'),
4821 ALPHA =SIMP(statut='f',typ=fonction),
4822 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
4824 APPUI_ELAS =FACT(statut='f',min=00,max=01,
4825 E_N =SIMP(statut='o',typ='R'),
4826 E_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0),
4828 CABLE =FACT(statut='f',min=00,max=01,
4829 E =SIMP(statut='o',typ='R'),
4830 EC_SUR_E =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
4831 RHO =SIMP(statut='f',typ='R'),
4832 ALPHA =SIMP(statut='f',typ='R'),
4833 AMOR_ALPHA =SIMP(statut='f',typ='R'),
4834 AMOR_BETA =SIMP(statut='f',typ='R'),
4837 # comportement mécanique non linéaire
4839 TRACTION =FACT(statut='f',min=00,max=01,
4840 SIGM =SIMP(statut='o',typ=fonction),
4841 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
4842 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4843 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
4844 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
4846 ECRO_LINE =FACT(statut='f',min=00,max=01,
4847 D_SIGM_EPSI =SIMP(statut='o',typ='R'),
4848 SY =SIMP(statut='o',typ='R'),
4850 ECRO_LINE_FO =FACT(statut='f',min=00,max=01,
4851 D_SIGM_EPSI =SIMP(statut='o',typ=fonction),
4852 SY =SIMP(statut='o',typ=fonction),
4853 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4855 PRAGER =FACT(statut='f',min=00,max=01,
4856 C =SIMP(statut='o',typ='R'),
4858 PRAGER_FO =FACT(statut='f',min=00,max=01,
4859 C =SIMP(statut='o',typ=fonction),
4860 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4862 ECRO_FLEJOU =FACT(statut='f',min=00,max=01,
4863 EP =SIMP(statut='o',typ='R'),
4864 SY =SIMP(statut='o',typ='R'),
4865 SU =SIMP(statut='o',typ='R'),
4866 PUISS =SIMP(statut='o',typ='R'),
4868 TAHERI =FACT(statut='f',min=00,max=01,
4869 R_0 =SIMP(statut='o',typ='R'),
4870 ALPHA =SIMP(statut='o',typ='R'),
4871 M =SIMP(statut='o',typ='R'),
4872 A =SIMP(statut='o',typ='R'),
4873 B =SIMP(statut='o',typ='R'),
4874 C1 =SIMP(statut='o',typ='R'),
4875 C_INF =SIMP(statut='o',typ='R'),
4876 S =SIMP(statut='o',typ='R'),
4878 TAHERI_FO =FACT(statut='f',min=00,max=01,
4879 R_0 =SIMP(statut='o',typ=fonction),
4880 ALPHA =SIMP(statut='o',typ=fonction),
4881 M =SIMP(statut='o',typ=fonction),
4882 A =SIMP(statut='o',typ=fonction),
4883 B =SIMP(statut='o',typ=fonction),
4884 C1 =SIMP(statut='o',typ=fonction),
4885 C_INF =SIMP(statut='o',typ=fonction),
4886 S =SIMP(statut='o',typ=fonction),
4887 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4889 ROUSSELIER =FACT(statut='f',min=00,max=01,
4890 D =SIMP(statut='o',typ='R'),
4891 SIGM_1 =SIMP(statut='o',typ='R'),
4892 PORO_INIT =SIMP(statut='o',typ='R'),
4893 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
4894 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
4895 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 1. ),
4896 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
4898 ROUSSELIER_FO =FACT(statut='f',min=00,max=01,
4899 D =SIMP(statut='o',typ=fonction),
4900 SIGM_1 =SIMP(statut='o',typ=fonction),
4901 PORO_INIT =SIMP(statut='o',typ=fonction),
4902 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
4903 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
4904 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 1. ),
4905 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
4906 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4908 CHABOCHE =FACT(statut='f',min=00,max=01,
4909 R_I =SIMP(statut='o',typ='R'),
4910 R_0 =SIMP(statut='o',typ='R'),
4911 B =SIMP(statut='o',typ='R'),
4912 K =SIMP(statut='o',typ='R'),
4913 W =SIMP(statut='o',typ='R'),
4914 A1 =SIMP(statut='o',typ='R'),
4915 A2 =SIMP(statut='o',typ='R'),
4916 C1 =SIMP(statut='o',typ='R'),
4917 C2 =SIMP(statut='o',typ='R'),
4919 VMIS_CIN1_CHAB =FACT(statut='f',min=00,max=01,
4920 R_0 =SIMP(statut='o',typ='R'),
4921 R_I =SIMP(statut='f',typ='R'),
4922 B =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4923 C_I =SIMP(statut='o',typ='R'),
4924 K =SIMP(statut='f',typ='R',defaut= 1.0E+0),
4925 W =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4926 G_0 =SIMP(statut='o',typ='R'),
4927 A_I =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4929 VMIS_CIN1_CHAB_F =FACT(statut='f',min=00,max=01,
4930 R_0 =SIMP(statut='o',typ=fonction),
4931 R_I =SIMP(statut='o',typ=fonction),
4932 B =SIMP(statut='o',typ=fonction),
4933 C_I =SIMP(statut='o',typ=fonction),
4934 K =SIMP(statut='o',typ=fonction),
4935 W =SIMP(statut='o',typ=fonction),
4936 G_0 =SIMP(statut='o',typ=fonction),
4937 A_I =SIMP(statut='o',typ=fonction),
4938 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
4940 VMIS_CIN2_CHAB =FACT(statut='f',min=00,max=01,
4941 R_0 =SIMP(statut='o',typ='R'),
4942 R_I =SIMP(statut='f',typ='R'),
4943 B =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4944 C1_I =SIMP(statut='o',typ='R'),
4945 C2_I =SIMP(statut='o',typ='R'),
4946 K =SIMP(statut='f',typ='R',defaut= 1.),
4947 W =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4948 G1_0 =SIMP(statut='o',typ='R'),
4949 G2_0 =SIMP(statut='o',typ='R'),
4950 A_I =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
4952 VMIS_CIN2_CHAB_F =FACT(statut='f',min=00,max=01,
4953 R_0 =SIMP(statut='o',typ=fonction),
4954 R_I =SIMP(statut='o',typ=fonction),
4955 B =SIMP(statut='o',typ=fonction),
4956 C1_I =SIMP(statut='o',typ=fonction),
4957 C2_I =SIMP(statut='o',typ=fonction),
4958 K =SIMP(statut='o',typ=fonction),
4959 W =SIMP(statut='o',typ=fonction),
4960 G1_0 =SIMP(statut='o',typ=fonction),
4961 G2_0 =SIMP(statut='o',typ=fonction),
4962 A_I =SIMP(statut='o',typ=fonction),
4963 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
4965 VISCOCHAB =FACT(statut='f',min=00,max=01,
4966 K_0 =SIMP(statut='o',typ='R'),
4967 A_K =SIMP(statut='o',typ='R'),
4968 A_R =SIMP(statut='o',typ='R'),
4969 K =SIMP(statut='o',typ='R'),
4970 N =SIMP(statut='o',typ='R'),
4971 ALP =SIMP(statut='o',typ='R'),
4972 B =SIMP(statut='o',typ='R'),
4973 M_R =SIMP(statut='o',typ='R'),
4974 G_R =SIMP(statut='o',typ='R'),
4975 MU =SIMP(statut='o',typ='R'),
4976 Q_M =SIMP(statut='o',typ='R'),
4977 Q_0 =SIMP(statut='o',typ='R'),
4978 QR_0 =SIMP(statut='o',typ='R'),
4979 ETA =SIMP(statut='o',typ='R'),
4980 C1 =SIMP(statut='o',typ='R'),
4981 M_1 =SIMP(statut='o',typ='R'),
4982 D1 =SIMP(statut='o',typ='R'),
4983 G_X1 =SIMP(statut='o',typ='R'),
4984 G1_0 =SIMP(statut='o',typ='R'),
4985 C2 =SIMP(statut='o',typ='R'),
4986 M_2 =SIMP(statut='o',typ='R'),
4987 D2 =SIMP(statut='o',typ='R'),
4988 G_X2 =SIMP(statut='o',typ='R'),
4989 G2_0 =SIMP(statut='o',typ='R'),
4990 A_I =SIMP(statut='o',typ='R'),
4992 VISCOCHAB_FO =FACT(statut='f',min=00,max=01,
4993 K_0 =SIMP(statut='o',typ=fonction),
4994 A_K =SIMP(statut='o',typ=fonction),
4995 A_R =SIMP(statut='o',typ=fonction),
4996 K =SIMP(statut='o',typ=fonction),
4997 N =SIMP(statut='o',typ=fonction),
4998 ALP =SIMP(statut='o',typ=fonction),
4999 B =SIMP(statut='o',typ=fonction),
5000 M_R =SIMP(statut='o',typ=fonction),
5001 G_R =SIMP(statut='o',typ=fonction),
5002 MU =SIMP(statut='o',typ=fonction),
5003 Q_M =SIMP(statut='o',typ=fonction),
5004 Q_0 =SIMP(statut='o',typ=fonction),
5005 QR_0 =SIMP(statut='o',typ=fonction),
5006 ETA =SIMP(statut='o',typ=fonction),
5007 C1 =SIMP(statut='o',typ=fonction),
5008 M_1 =SIMP(statut='o',typ=fonction),
5009 D1 =SIMP(statut='o',typ=fonction),
5010 G_X1 =SIMP(statut='o',typ=fonction),
5011 G1_0 =SIMP(statut='o',typ=fonction),
5012 C2 =SIMP(statut='o',typ=fonction),
5013 M_2 =SIMP(statut='o',typ=fonction),
5014 D2 =SIMP(statut='o',typ=fonction),
5015 G_X2 =SIMP(statut='o',typ=fonction),
5016 G2_0 =SIMP(statut='o',typ=fonction),
5017 A_I =SIMP(statut='o',typ=fonction),
5018 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5020 POLY_CFC =FACT(statut='f',min=00,max=01,
5021 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
5022 DL =SIMP(statut='f',typ='R'),
5023 DA =SIMP(statut='f',typ='R'),
5024 N =SIMP(statut='o',typ='R'),
5025 K =SIMP(statut='o',typ='R'),
5026 TAU_0 =SIMP(statut='o',typ='R'),
5027 Q1 =SIMP(statut='o',typ='R'),
5028 B1 =SIMP(statut='o',typ='R'),
5029 HL =SIMP(statut='o',typ='R'),
5030 Q2 =SIMP(statut='o',typ='R'),
5031 B2 =SIMP(statut='o',typ='R'),
5032 C1 =SIMP(statut='o',typ='R'),
5033 D1 =SIMP(statut='o',typ='R'),
5034 C2 =SIMP(statut='o',typ='R'),
5036 POLY_CFC_FO =FACT(statut='f',min=00,max=01,
5037 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
5038 DL =SIMP(statut='o',typ=fonction),
5039 DA =SIMP(statut='o',typ=fonction),
5040 N =SIMP(statut='o',typ=fonction),
5041 K =SIMP(statut='o',typ=fonction),
5042 TAU_0 =SIMP(statut='o',typ=fonction),
5043 Q1 =SIMP(statut='o',typ=fonction),
5044 B1 =SIMP(statut='o',typ=fonction),
5045 HL =SIMP(statut='o',typ=fonction),
5046 Q2 =SIMP(statut='o',typ=fonction),
5047 B2 =SIMP(statut='o',typ=fonction),
5048 C1 =SIMP(statut='o',typ=fonction),
5049 D1 =SIMP(statut='o',typ=fonction),
5050 C2 =SIMP(statut='o',typ=fonction),
5051 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5053 NORTON_HOFF =FACT(statut='f',min=00,max=01,
5054 N =SIMP(statut='o',typ='R'),
5055 SY =SIMP(statut='o',typ='R'),
5057 LEMAITRE =FACT(statut='f',min=00,max=01,
5058 N =SIMP(statut='o',typ='R'),
5059 UN_SUR_K =SIMP(statut='o',typ='R'),
5060 UN_SUR_M =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5061 QSR_K =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5063 ZIRC_CYRA2 =FACT(statut='f',min=00,max=01,
5064 EPSI_FAB =SIMP(statut='o',typ=fonction),
5065 TEMP_RECUIT =SIMP(statut='o',typ=fonction),
5066 FLUX_PHI =SIMP(statut='o',typ=fonction),
5067 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
5069 ZIRC_EPRI =FACT(statut='f',min=00,max=01,
5070 FLUX_PHI =SIMP(statut='o',typ='R'),
5071 R_P =SIMP(statut='o',typ='R'),
5072 THETA_MAX =SIMP(statut='o',typ='R'),
5074 LEMAITRE_FO =FACT(statut='f',min=00,max=01,
5075 N =SIMP(statut='o',typ=fonction),
5076 UN_SUR_K =SIMP(statut='o',typ=fonction),
5077 UN_SUR_M =SIMP(statut='f',typ=fonction),
5078 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5080 GRAN_IRRA =FACT(statut='f',min=00,max=01,
5081 FLUX_L =SIMP(statut='o',typ=fonction),
5082 FLUX_TN =SIMP(statut='o',typ=fonction),
5083 FONC_MULT =SIMP(statut='f',typ=fonction),
5084 A =SIMP(statut='o',typ='R'),
5085 S =SIMP(statut='f',typ='R'),
5086 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="X",into=("X",) ),
5087 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="Y",into=("Y",) ),
5088 VERI_P3 =SIMP(statut='f',typ='TXM',defaut="Z",into=("Z",) ),
5089 VERI_P4 =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST",) ),
5091 OHNO =FACT(statut='f',min=00,max=01,
5092 R_I =SIMP(statut='o',typ='R'),
5093 R_0 =SIMP(statut='o',typ='R'),
5094 B =SIMP(statut='o',typ='R'),
5095 PHI =SIMP(statut='o',typ='R'),
5096 A1 =SIMP(statut='o',typ='R'),
5097 A2 =SIMP(statut='o',typ='R'),
5098 A3 =SIMP(statut='o',typ='R'),
5099 A4 =SIMP(statut='o',typ='R'),
5100 A5 =SIMP(statut='o',typ='R'),
5101 GAMMA1 =SIMP(statut='o',typ='R'),
5102 GAMMA2 =SIMP(statut='o',typ='R'),
5103 GAMMA3 =SIMP(statut='o',typ='R'),
5104 GAMMA4 =SIMP(statut='o',typ='R'),
5105 GAMMA5 =SIMP(statut='o',typ='R'),
5106 M1 =SIMP(statut='o',typ='R'),
5107 M2 =SIMP(statut='o',typ='R'),
5108 M3 =SIMP(statut='o',typ='R'),
5109 M4 =SIMP(statut='o',typ='R'),
5110 M5 =SIMP(statut='o',typ='R'),
5112 OHNO_FO =FACT(statut='f',min=00,max=01,
5113 R_I =SIMP(statut='o',typ=fonction),
5114 R_0 =SIMP(statut='o',typ=fonction),
5115 B =SIMP(statut='o',typ=fonction),
5116 PHI =SIMP(statut='o',typ=fonction),
5117 A1 =SIMP(statut='o',typ=fonction),
5118 A2 =SIMP(statut='o',typ=fonction),
5119 A3 =SIMP(statut='o',typ=fonction),
5120 A4 =SIMP(statut='o',typ=fonction),
5121 A5 =SIMP(statut='o',typ=fonction),
5122 GAMMA1 =SIMP(statut='o',typ=fonction),
5123 GAMMA2 =SIMP(statut='o',typ=fonction),
5124 GAMMA3 =SIMP(statut='o',typ=fonction),
5125 GAMMA4 =SIMP(statut='o',typ=fonction),
5126 GAMMA5 =SIMP(statut='o',typ=fonction),
5127 M1 =SIMP(statut='o',typ=fonction),
5128 M2 =SIMP(statut='o',typ=fonction),
5129 M3 =SIMP(statut='o',typ=fonction),
5130 M4 =SIMP(statut='o',typ=fonction),
5131 M5 =SIMP(statut='o',typ=fonction),
5132 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5134 LMARC =FACT(statut='f',min=00,max=01,
5135 DE_0 =SIMP(statut='o',typ='R'),
5136 R_0 =SIMP(statut='o',typ='R'),
5137 N =SIMP(statut='o',typ='R'),
5138 K =SIMP(statut='o',typ='R'),
5139 Y_I =SIMP(statut='o',typ='R'),
5140 Y_0 =SIMP(statut='o',typ='R'),
5141 B =SIMP(statut='o',typ='R'),
5142 A_0 =SIMP(statut='o',typ='R'),
5143 RM =SIMP(statut='o',typ='R'),
5144 M =SIMP(statut='o',typ='R'),
5145 P =SIMP(statut='o',typ='R'),
5146 P1 =SIMP(statut='o',typ='R'),
5147 P2 =SIMP(statut='o',typ='R'),
5148 M11 =SIMP(statut='o',typ='R'),
5149 M22 =SIMP(statut='o',typ='R'),
5150 M33 =SIMP(statut='o',typ='R'),
5151 M66 =SIMP(statut='o',typ='R'),
5152 N11 =SIMP(statut='o',typ='R'),
5153 N22 =SIMP(statut='o',typ='R'),
5154 N33 =SIMP(statut='o',typ='R'),
5155 N66 =SIMP(statut='o',typ='R'),
5156 Q11 =SIMP(statut='o',typ='R'),
5157 Q22 =SIMP(statut='o',typ='R'),
5158 Q33 =SIMP(statut='o',typ='R'),
5159 Q66 =SIMP(statut='o',typ='R'),
5160 R11 =SIMP(statut='o',typ='R'),
5161 R22 =SIMP(statut='o',typ='R'),
5162 R33 =SIMP(statut='o',typ='R'),
5163 R66 =SIMP(statut='o',typ='R'),
5165 LMARC_FO =FACT(statut='f',min=00,max=01,
5166 DE_0 =SIMP(statut='o',typ=fonction),
5167 R_0 =SIMP(statut='o',typ=fonction),
5168 N =SIMP(statut='o',typ=fonction),
5169 K =SIMP(statut='o',typ=fonction),
5170 Y_I =SIMP(statut='o',typ=fonction),
5171 Y_0 =SIMP(statut='o',typ=fonction),
5172 B =SIMP(statut='o',typ=fonction),
5173 A_0 =SIMP(statut='o',typ=fonction),
5174 RM =SIMP(statut='o',typ=fonction),
5175 M =SIMP(statut='o',typ=fonction),
5176 P =SIMP(statut='o',typ=fonction),
5177 P1 =SIMP(statut='o',typ=fonction),
5178 P2 =SIMP(statut='o',typ=fonction),
5179 M11 =SIMP(statut='o',typ=fonction),
5180 M22 =SIMP(statut='o',typ=fonction),
5181 M33 =SIMP(statut='o',typ=fonction),
5182 M66 =SIMP(statut='o',typ=fonction),
5183 N11 =SIMP(statut='o',typ=fonction),
5184 N22 =SIMP(statut='o',typ=fonction),
5185 N33 =SIMP(statut='o',typ=fonction),
5186 N66 =SIMP(statut='o',typ=fonction),
5187 Q11 =SIMP(statut='o',typ=fonction),
5188 Q22 =SIMP(statut='o',typ=fonction),
5189 Q33 =SIMP(statut='o',typ=fonction),
5190 Q66 =SIMP(statut='o',typ=fonction),
5191 R11 =SIMP(statut='o',typ=fonction),
5192 R22 =SIMP(statut='o',typ=fonction),
5193 R33 =SIMP(statut='o',typ=fonction),
5194 R66 =SIMP(statut='o',typ=fonction),
5195 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5197 VMIS_POUTRE =FACT(statut='f',min=00,max=01,
5198 NP =SIMP(statut='o',typ='R'),
5199 MEY =SIMP(statut='o',typ='R'),
5200 MPY =SIMP(statut='o',typ='R'),
5201 CAY =SIMP(statut='o',typ='R'),
5202 CBY =SIMP(statut='o',typ='R'),
5203 MEZ =SIMP(statut='o',typ='R'),
5204 MPZ =SIMP(statut='o',typ='R'),
5205 CAZ =SIMP(statut='o',typ='R'),
5206 CBZ =SIMP(statut='o',typ='R'),
5207 MPX =SIMP(statut='o',typ='R'),
5209 VMIS_POUTRE_FO =FACT(statut='f',min=00,max=01,
5210 NP =SIMP(statut='o',typ=fonction),
5211 MEY =SIMP(statut='o',typ=fonction),
5212 MPY =SIMP(statut='o',typ=fonction),
5213 CAY =SIMP(statut='o',typ=fonction),
5214 CBY =SIMP(statut='o',typ=fonction),
5215 MEZ =SIMP(statut='o',typ=fonction),
5216 MPZ =SIMP(statut='o',typ=fonction),
5217 CAZ =SIMP(statut='o',typ=fonction),
5218 CBZ =SIMP(statut='o',typ=fonction),
5219 MPX =SIMP(statut='o',typ=fonction),
5220 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5222 ARME =FACT(statut='f',min=00,max=01,
5223 KYE =SIMP(statut='o',typ='R'),
5224 DLE =SIMP(statut='o',typ='R'),
5225 KYP =SIMP(statut='o',typ='R'),
5226 DLP =SIMP(statut='o',typ='R'),
5227 KYG =SIMP(statut='o',typ='R'),
5229 ASSE_CORN =FACT(statut='f',min=00,max=01,
5230 NU_1 =SIMP(statut='o',typ='R'),
5231 MU_1 =SIMP(statut='o',typ='R'),
5232 DXU_1 =SIMP(statut='o',typ='R'),
5233 DRYU_1 =SIMP(statut='o',typ='R'),
5234 C_1 =SIMP(statut='o',typ='R'),
5235 NU_2 =SIMP(statut='o',typ='R'),
5236 MU_2 =SIMP(statut='o',typ='R'),
5237 DXU_2 =SIMP(statut='o',typ='R'),
5238 DRYU_2 =SIMP(statut='o',typ='R'),
5239 C_2 =SIMP(statut='o',typ='R'),
5240 KY =SIMP(statut='o',typ='R'),
5241 KZ =SIMP(statut='o',typ='R'),
5242 KRX =SIMP(statut='o',typ='R'),
5243 KRZ =SIMP(statut='o',typ='R'),
5245 DIS_CONTACT =FACT(statut='f',min=00,max=01,
5246 regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA'),),
5247 RIGI_NOR =SIMP(statut='f',typ='R' ),
5248 DIST_1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5249 DIST_2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5250 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5251 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5252 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5253 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5254 JEU =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5255 KT_ULTM =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5256 EFFO_N_INIT =SIMP(statut='f',typ='R'),
5257 RIGI_N_FO =SIMP(statut='f',typ=fonction),
5258 RIGI_N_IRRA =SIMP(statut='f',typ=fonction),
5259 RELA_MZ =SIMP(statut='f',typ=fonction),
5260 C_PRAGER_MZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5261 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
5262 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
5264 NADAI_B =FACT(statut='f',min=00,max=01,
5265 F_C =SIMP(statut='o',typ='R'),
5266 F_T =SIMP(statut='o',typ='R'),
5267 CRIT_E_C =SIMP(statut='o',typ='R'),
5268 EPSP_P_C =SIMP(statut='o',typ='R'),
5269 EPSP_R_C =SIMP(statut='o',typ='R'),
5270 EPSI_R_T =SIMP(statut='o',typ='R'),
5271 FAC_T_C =SIMP(statut='o',typ='R'),
5273 BETON_DOUBLE_DP =FACT(statut='f',min=00,max=01,
5274 F_C =SIMP(statut='o',typ=fonction),
5275 F_T =SIMP(statut='o',typ=fonction),
5276 COEF_BIAX =SIMP(statut='o',typ=fonction),
5277 ENER_COMP_RUPT =SIMP(statut='o',typ=fonction),
5278 ENER_TRAC_RUPT =SIMP(statut='o',typ=fonction),
5279 COEF_ELAS_COMP =SIMP(statut='o',typ='R'),
5280 ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
5281 ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
5282 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
5283 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
5284 VERI_P3 =SIMP(statut='f',typ='TXM',defaut="HYDR",into=("HYDR",) ),
5285 VERI_P4 =SIMP(statut='f',typ='TXM',defaut="SECH",into=("SECH",) ),
5287 VENDOCHAB =FACT(statut='f',min=00,max=01,
5288 S_VP =SIMP(statut='o',typ='R'),
5289 SEDVP1 =SIMP(statut='o',typ='R'),
5290 SEDVP2 =SIMP(statut='o',typ='R'),
5291 N_VP =SIMP(statut='o',typ='R'),
5292 M_VP =SIMP(statut='o',typ='R'),
5293 K_VP =SIMP(statut='o',typ='R'),
5294 R_D =SIMP(statut='o',typ='R'),
5295 A_D =SIMP(statut='o',typ='R'),
5296 K_D =SIMP(statut='o',typ='R'),
5298 VENDOCHAB_FO =FACT(statut='f',min=00,max=01,
5299 S_VP =SIMP(statut='o',typ=fonction),
5300 SEDVP1 =SIMP(statut='o',typ=fonction),
5301 SEDVP2 =SIMP(statut='o',typ=fonction),
5302 N_VP =SIMP(statut='o',typ=fonction),
5303 M_VP =SIMP(statut='o',typ=fonction),
5304 K_VP =SIMP(statut='o',typ=fonction),
5305 R_D =SIMP(statut='o',typ=fonction),
5306 A_D =SIMP(statut='o',typ=fonction),
5307 K_D =SIMP(statut='o',typ=fonction),
5308 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5309 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="X",into=("X",) ),
5311 PINTO_MENEGOTTO =FACT(statut='f',min=00,max=01,
5312 SY =SIMP(statut='o',typ='R'),
5313 EPSI_ULTM =SIMP(statut='o',typ='R'),
5314 SIGM_ULTM =SIMP(statut='o',typ='R'),
5315 ELAN =SIMP(statut='f',typ='R',defaut= 4. ),
5316 EPSP_HARD =SIMP(statut='o',typ='R'),
5317 R_PM =SIMP(statut='f',typ='R',defaut= 20. ),
5318 EP_SUR_E =SIMP(statut='f',typ='R'),
5319 A1_PM =SIMP(statut='f',typ='R',defaut= 18.5 ),
5320 A2_PM =SIMP(statut='f',typ='R',defaut= 0.15 ),
5321 A6_PM =SIMP(statut='f',typ='R',defaut= 620. ),
5322 C_PM =SIMP(statut='f',typ='R',defaut= 0.5 ),
5323 A_PM =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
5325 BPEL_BETON =FACT(statut='f',min=00,max=01,
5326 PERT_FLUA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5327 PERT_RETR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5329 BPEL_ACIER =FACT(statut='f',min=00,max=01,
5330 RELAX_1000 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5331 MU0_RELAX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5332 SY =SIMP(statut='o',typ='R'),
5333 FROT_COURB =SIMP(statut='o',typ='R'),
5334 FROT_LINE =SIMP(statut='o',typ='R'),
5336 CJS =FACT(statut='f',min=00,max=01,
5337 regles=(ENSEMBLE('B_CJS','C_CJS','MU_CJS','PCO',),
5338 ENSEMBLE('N_CJS','KP','RC',),
5339 PRESENT_ABSENT('A_CJS','B_CJS',),
5340 PRESENT_PRESENT('A_CJS','N_CJS',),
5341 PRESENT_PRESENT('B_CJS','N_CJS', ),),
5342 BETA_CJS =SIMP(statut='o',typ='R'),
5343 RM =SIMP(statut='o',typ='R'),
5344 N_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5345 KP =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5346 RC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5347 A_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5348 B_CJS =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
5349 C_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5350 GAMMA_CJS =SIMP(statut='o',typ='R'),
5351 MU_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5352 PCO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5353 PA =SIMP(statut='o',typ='R'),
5354 Q_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5355 R_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5357 ECRO_ASYM_LINE =FACT(statut='f',min=00,max=01,
5358 DC_SIGM_EPSI =SIMP(statut='o',typ='R'),
5359 SY_C =SIMP(statut='o',typ='R'),
5360 DT_SIGM_EPSI =SIMP(statut='o',typ='R'),
5361 SY_T =SIMP(statut='o',typ='R'),
5363 GRANGER_FP =FACT(statut='f',min=00,max=01,
5364 J1 =SIMP(statut='f',typ='R'),
5365 J2 =SIMP(statut='f',typ='R'),
5366 J3 =SIMP(statut='f',typ='R'),
5367 J4 =SIMP(statut='f',typ='R'),
5368 J5 =SIMP(statut='f',typ='R'),
5369 J6 =SIMP(statut='f',typ='R'),
5370 J7 =SIMP(statut='f',typ='R'),
5371 J8 =SIMP(statut='f',typ='R'),
5372 TAUX_1 =SIMP(statut='f',typ='R'),
5373 TAUX_2 =SIMP(statut='f',typ='R'),
5374 TAUX_3 =SIMP(statut='f',typ='R'),
5375 TAUX_4 =SIMP(statut='f',typ='R'),
5376 TAUX_5 =SIMP(statut='f',typ='R'),
5377 TAUX_6 =SIMP(statut='f',typ='R'),
5378 TAUX_7 =SIMP(statut='f',typ='R'),
5379 TAUX_8 =SIMP(statut='f',typ='R'),
5380 FONC_DESORP =SIMP(statut='f',typ=fonction),
5381 QSR_K =SIMP(statut='f',typ='R'),
5382 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
5384 V_GRANGER_FP =FACT(statut='f',min=00,max=01,
5385 QSR_VEIL =SIMP(statut='f',typ='R'),
5386 FONC_V =SIMP(statut='f',typ=fonction),
5387 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
5390 # comportement thermique
5392 THER_NL =FACT(statut='f',min=00,max=01,
5393 regles=(UN_PARMI('BETA','RHO_CP', ),),
5394 LAMBDA =SIMP(statut='o',typ=fonction),
5395 BETA =SIMP(statut='f',typ=fonction),
5396 RHO_CP =SIMP(statut='f',typ=fonction),
5397 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5399 THER_HYDR =FACT(statut='f',min=00,max=01,
5400 LAMBDA =SIMP(statut='o',typ=fonction),
5401 BETA =SIMP(statut='f',typ=fonction),
5402 AFFINITE =SIMP(statut='o',typ=fonction),
5403 CHALHYDR =SIMP(statut='o',typ='R'),
5404 QSR_K =SIMP(statut='o',typ='R'),
5405 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
5406 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
5408 THER =FACT(statut='f',min=00,max=01,
5409 LAMBDA =SIMP(statut='o',typ='R'),
5410 RHO_CP =SIMP(statut='f',typ='R'),
5412 THER_FO =FACT(statut='f',min=00,max=01,
5413 LAMBDA =SIMP(statut='o',typ=fonction),
5414 RHO_CP =SIMP(statut='f',typ=fonction),
5415 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
5417 THER_ORTH =FACT(statut='f',min=00,max=01,
5418 LAMBDA_L =SIMP(statut='o',typ='R'),
5419 LAMBDA_T =SIMP(statut='o',typ='R'),
5420 LAMBDA_N =SIMP(statut='f',typ='R'),
5421 RHO_CP =SIMP(statut='f',typ='R'),
5423 THER_COQUE =FACT(statut='f',min=00,max=01,
5424 COND_LMM =SIMP(statut='o',typ='R'),
5425 COND_TMM =SIMP(statut='o',typ='R'),
5426 COND_LMP =SIMP(statut='o',typ='R'),
5427 COND_TMP =SIMP(statut='o',typ='R'),
5428 COND_LPP =SIMP(statut='o',typ='R'),
5429 COND_TPP =SIMP(statut='o',typ='R'),
5430 COND_LSI =SIMP(statut='o',typ='R'),
5431 COND_TSI =SIMP(statut='o',typ='R'),
5432 COND_NMM =SIMP(statut='o',typ='R'),
5433 COND_NMP =SIMP(statut='o',typ='R'),
5434 COND_NPP =SIMP(statut='o',typ='R'),
5435 COND_NSI =SIMP(statut='o',typ='R'),
5436 CMAS_MM =SIMP(statut='f',typ='R'),
5437 CMAS_MP =SIMP(statut='f',typ='R'),
5438 CMAS_PP =SIMP(statut='f',typ='R'),
5439 CMAS_SI =SIMP(statut='f',typ='R'),
5441 THER_COQUE_FO =FACT(statut='f',min=00,max=01,
5442 COND_LMM =SIMP(statut='o',typ=fonction),
5443 COND_TMM =SIMP(statut='o',typ=fonction),
5444 COND_LMP =SIMP(statut='o',typ=fonction),
5445 COND_TMP =SIMP(statut='o',typ=fonction),
5446 COND_LPP =SIMP(statut='o',typ=fonction),
5447 COND_TPP =SIMP(statut='o',typ=fonction),
5448 COND_LSI =SIMP(statut='o',typ=fonction),
5449 COND_TSI =SIMP(statut='o',typ=fonction),
5450 COND_NMM =SIMP(statut='o',typ=fonction),
5451 COND_NMP =SIMP(statut='o',typ=fonction),
5452 COND_NPP =SIMP(statut='o',typ=fonction),
5453 COND_NSI =SIMP(statut='o',typ=fonction),
5454 CMAS_MM =SIMP(statut='f',typ=fonction),
5455 CMAS_MP =SIMP(statut='f',typ=fonction),
5456 CMAS_PP =SIMP(statut='f',typ=fonction),
5457 CMAS_SI =SIMP(statut='f',typ=fonction),
5459 SECH_GRANGER =FACT(statut='f',min=00,max=01,
5460 A =SIMP(statut='o',typ='R'),
5461 B =SIMP(statut='o',typ='R'),
5462 QSR_K =SIMP(statut='o',typ='R'),
5463 TEMP_0_C =SIMP(statut='o',typ='R'),
5465 SECH_MENSI =FACT(statut='f',min=00,max=01,
5466 A =SIMP(statut='o',typ='R'),
5467 B =SIMP(statut='o',typ='R'),
5469 SECH_BAZANT =FACT(statut='f',min=00,max=01,
5470 D1 =SIMP(statut='o',typ='R'),
5471 ALPHA_BAZANT =SIMP(statut='o',typ='R'),
5472 N =SIMP(statut='o',typ='R'),
5473 FONC_DESORP =SIMP(statut='o',typ=fonction),
5474 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5476 SECH_NAPPE =FACT(statut='f',min=00,max=01,
5477 FONCTION =SIMP(statut='o',typ=fonction),
5478 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5479 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
5482 # comportement métallurgique
5484 META_ACIER =FACT(statut='f',min=00,max=01,
5485 TRC =SIMP(statut='o',typ=(tabl_trc) ),
5486 AR3 =SIMP(statut='o',typ='R'),
5487 ALPHA =SIMP(statut='o',typ='R'),
5488 MS0 =SIMP(statut='o',typ='R'),
5489 AC1 =SIMP(statut='o',typ='R'),
5490 AC3 =SIMP(statut='o',typ='R'),
5491 TAUX_1 =SIMP(statut='o',typ='R'),
5492 TAUX_3 =SIMP(statut='o',typ='R'),
5493 LAMBDA0 =SIMP(statut='f',typ='R'),
5494 QSR_K =SIMP(statut='f',typ='R'),
5495 D10 =SIMP(statut='f',typ='R'),
5496 WSR_K =SIMP(statut='f',typ='R'),
5498 META_ZIRC =FACT(statut='f',min=00,max=01,
5499 TDEQ =SIMP(statut='o',typ='R'),
5500 N =SIMP(statut='o',typ='R'),
5501 K =SIMP(statut='o',typ='R'),
5502 TDC =SIMP(statut='o',typ='R'),
5503 AC =SIMP(statut='o',typ='R'),
5504 M =SIMP(statut='o',typ='R'),
5505 QSR_K =SIMP(statut='f',typ='R'),
5506 TDR =SIMP(statut='o',typ='R'),
5507 AR =SIMP(statut='o',typ='R'),
5508 BR =SIMP(statut='o',typ='R'),
5510 DURT_META =FACT(statut='f',min=00,max=01,
5511 F1_DURT =SIMP(statut='o',typ='R'),
5512 F2_DURT =SIMP(statut='o',typ='R'),
5513 F3_DURT =SIMP(statut='o',typ='R'),
5514 F4_DURT =SIMP(statut='o',typ='R'),
5515 C_DURT =SIMP(statut='o',typ='R'),
5517 ELAS_META =FACT(statut='f',min=00,max=01,
5518 E =SIMP(statut='o',typ='R'),
5519 NU =SIMP(statut='o',typ='R'),
5520 F_ALPHA =SIMP(statut='o',typ='R'),
5521 C_ALPHA =SIMP(statut='o',typ='R'),
5522 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
5523 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
5524 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
5525 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
5526 F1_SY =SIMP(statut='f',typ='R'),
5527 F2_SY =SIMP(statut='f',typ='R'),
5528 F3_SY =SIMP(statut='f',typ='R'),
5529 F4_SY =SIMP(statut='f',typ='R'),
5530 C_SY =SIMP(statut='f',typ='R'),
5531 SY_MELANGE =SIMP(statut='f',typ=fonction),
5532 F1_S_VP =SIMP(statut='f',typ='R'),
5533 F2_S_VP =SIMP(statut='f',typ='R'),
5534 F3_S_VP =SIMP(statut='f',typ='R'),
5535 F4_S_VP =SIMP(statut='f',typ='R'),
5536 C_S_VP =SIMP(statut='f',typ='R' ),
5537 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
5538 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
5540 ELAS_META_FO =FACT(statut='f',min=00,max=01,
5541 E =SIMP(statut='o',typ=fonction),
5542 NU =SIMP(statut='o',typ=fonction),
5543 F_ALPHA =SIMP(statut='o',typ=fonction),
5544 C_ALPHA =SIMP(statut='o',typ=fonction),
5545 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
5546 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
5547 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
5548 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
5549 F1_SY =SIMP(statut='f',typ=fonction),
5550 F2_SY =SIMP(statut='f',typ=fonction),
5551 F3_SY =SIMP(statut='f',typ=fonction),
5552 F4_SY =SIMP(statut='f',typ=fonction),
5553 C_SY =SIMP(statut='f',typ=fonction),
5554 SY_MELANGE =SIMP(statut='f',typ=fonction),
5555 F1_S_VP =SIMP(statut='f',typ=fonction),
5556 F2_S_VP =SIMP(statut='f',typ=fonction),
5557 F3_S_VP =SIMP(statut='f',typ=fonction),
5558 F4_S_VP =SIMP(statut='f',typ=fonction),
5559 C_S_VP =SIMP(statut='f',typ=fonction),
5560 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
5561 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
5562 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
5564 META_ECRO_LINE =FACT(statut='f',min=00,max=01,
5565 F1_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5566 F2_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5567 F3_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5568 F4_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5569 C_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
5570 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
5572 META_TRACTION =FACT(statut='f',min=00,max=01,
5573 SIGM_F1 =SIMP(statut='f',typ=fonction),
5574 SIGM_F2 =SIMP(statut='f',typ=fonction),
5575 SIGM_F3 =SIMP(statut='f',typ=fonction),
5576 SIGM_F4 =SIMP(statut='f',typ=fonction),
5577 SIGM_C =SIMP(statut='f',typ=fonction),
5578 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
5579 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
5581 META_VISC_FO =FACT(statut='f',min=00,max=01,
5582 F1_ETA =SIMP(statut='f',typ=fonction),
5583 F1_N =SIMP(statut='f',typ=fonction),
5584 F1_C =SIMP(statut='f',typ=fonction),
5585 F1_M =SIMP(statut='f',typ=fonction),
5586 F2_ETA =SIMP(statut='f',typ=fonction),
5587 F2_N =SIMP(statut='f',typ=fonction),
5588 F2_C =SIMP(statut='f',typ=fonction),
5589 F2_M =SIMP(statut='f',typ=fonction),
5590 F3_ETA =SIMP(statut='f',typ=fonction),
5591 F3_N =SIMP(statut='f',typ=fonction),
5592 F3_C =SIMP(statut='f',typ=fonction),
5593 F3_M =SIMP(statut='f',typ=fonction),
5594 F4_ETA =SIMP(statut='f',typ=fonction),
5595 F4_N =SIMP(statut='f',typ=fonction),
5596 F4_C =SIMP(statut='f',typ=fonction),
5597 F4_M =SIMP(statut='f',typ=fonction),
5598 C_ETA =SIMP(statut='f',typ=fonction),
5599 C_N =SIMP(statut='f',typ=fonction),
5600 C_C =SIMP(statut='f',typ=fonction),
5601 C_M =SIMP(statut='f',typ=fonction),
5602 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5604 META_PT =FACT(statut='f',min=00,max=01,
5605 F1_K =SIMP(statut='f',typ='R'),
5606 F2_K =SIMP(statut='f',typ='R'),
5607 F3_K =SIMP(statut='f',typ='R'),
5608 F4_K =SIMP(statut='f',typ='R'),
5609 F1_D_F_META =SIMP(statut='f',typ=fonction),
5610 F2_D_F_META =SIMP(statut='f',typ=fonction),
5611 F3_D_F_META =SIMP(statut='f',typ=fonction),
5612 F4_D_F_META =SIMP(statut='f',typ=fonction),
5613 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5614 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
5616 META_RE =FACT(statut='f',min=00,max=01,
5617 C_F1_THETA =SIMP(statut='f',typ='R'),
5618 C_F2_THETA =SIMP(statut='f',typ='R'),
5619 C_F3_THETA =SIMP(statut='f',typ='R'),
5620 C_F4_THETA =SIMP(statut='f',typ='R'),
5621 F1_C_THETA =SIMP(statut='f',typ='R'),
5622 F2_C_THETA =SIMP(statut='f',typ='R'),
5623 F3_C_THETA =SIMP(statut='f',typ='R'),
5624 F4_C_THETA =SIMP(statut='f',typ='R'),
5627 # comportement fluide
5629 FLUIDE =FACT(statut='f',min=00,max=01,
5630 regles=(EXCLUS('CELE_C','CELE_R'),),
5631 RHO =SIMP(statut='o',typ='R'),
5632 CELE_C =SIMP(statut='f',typ='C'),
5633 CELE_R =SIMP(statut='f',typ='R'),
5635 PORO_JOINT =FACT(statut='f',min=00,max=01,
5636 RHO_FLUI =SIMP(statut='o',typ='R'),
5637 ENTRO_FLUI =SIMP(statut='o',typ='R'),
5638 BIOT_M =SIMP(statut='o',typ='R'),
5639 C_0 =SIMP(statut='o',typ='R'),
5640 T_R =SIMP(statut='o',typ='R'),
5641 ALPHA_M =SIMP(statut='o',typ='R'),
5642 LAMBDA_T =SIMP(statut='o',typ='R'),
5643 LAMBDA_H =SIMP(statut='o',typ='R'),
5644 SOURCE_INIT =SIMP(statut='o',typ='R'),
5645 OMEGA_0 =SIMP(statut='o',typ='R'),
5647 THM_LIQU =FACT(statut='f',min=00,max=01,
5648 RHO =SIMP(statut='o',typ='R'),
5649 UN_SUR_K =SIMP(statut='f',typ='R'),
5650 ALPHA =SIMP(statut='f',typ='R'),
5651 CP =SIMP(statut='f',typ='R'),
5652 VISC =SIMP(statut='f',typ=fonction),
5653 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
5654 LAMBDA =SIMP(statut='f',typ=fonction),
5655 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
5656 COEF_HENRY =SIMP(statut='f',typ='R'),
5657 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",)),
5659 THM_GAZ =FACT(statut='f',min=00,max=01,
5660 MASS_MOL =SIMP(statut='f',typ='R'),
5661 CP =SIMP(statut='f',typ='R'),
5662 VISC =SIMP(statut='f',typ=fonction),
5663 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
5664 LAMBDA =SIMP(statut='f',typ=fonction),
5665 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
5666 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",)),
5668 THM_VAPE_GAZ =FACT(statut='f',min=00,max=01,
5669 MASS_MOL =SIMP(statut='f',typ='R'),
5670 CP =SIMP(statut='f',typ='R'),
5671 VISC =SIMP(statut='f',typ=fonction),
5672 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
5673 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",)),
5675 THM_INIT =FACT(statut='f',min=00,max=01,
5676 TEMP =SIMP(statut='o',typ='R'),
5677 PRE1 =SIMP(statut='o',typ='R'),
5678 PRE2 =SIMP(statut='o',typ='R'),
5679 PORO =SIMP(statut='o',typ='R'),
5680 PRES_VAPE =SIMP(statut='o',typ='R'),
5681 DEGR_SATU =SIMP(statut='f',typ='R'),
5682 PRES_ATMO =SIMP(statut='f',typ='R'),
5684 THM_DIFFU =FACT(statut='f',min=00,max=01,
5685 R_GAZ =SIMP(statut='o',typ='R'),
5686 RHO =SIMP(statut='f',typ='R'),
5687 CP =SIMP(statut='f',typ='R'),
5688 BIOT_COEF =SIMP(statut='f',typ='R'),
5689 SATU_PRES =SIMP(statut='f',typ=fonction),
5690 D_SATU_PRES =SIMP(statut='f',typ=fonction),
5691 PESA_X =SIMP(statut='f',typ='R'),
5692 PESA_Y =SIMP(statut='f',typ='R'),
5693 PESA_Z =SIMP(statut='f',typ='R'),
5694 PERM_IN =SIMP(statut='f',typ=fonction),
5695 PERM_LIQU =SIMP(statut='f',typ=fonction),
5696 D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
5697 PERM_GAZ =SIMP(statut='f',typ=fonction),
5698 D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
5699 D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
5700 FICK =SIMP(statut='f',typ=fonction),
5701 D_FICK_TEMP =SIMP(statut='f',typ=fonction),
5702 D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
5703 LAMBDA =SIMP(statut='f',typ=fonction),
5704 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
5705 SIGMA_T =SIMP(statut='f',typ=fonction),
5706 D_SIGMA_T =SIMP(statut='f',typ=fonction),
5707 PERM_G_INTR =SIMP(statut='f',typ=fonction),
5708 CHAL_VAPO =SIMP(statut='f',typ=fonction),
5709 VERI_P1 =SIMP(statut='f',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5710 VERI_P2 =SIMP(statut='f',typ='TXM',defaut="SAT",into=("SAT",) ),
5711 VERI_P3 =SIMP(statut='f',typ='TXM',defaut="PORO",into=("PORO",) ),
5712 VERI_P4 =SIMP(statut='f',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
5713 VERI_P5 =SIMP(statut='f',typ='TXM',defaut="PGAP",into=("PGAP",) ),
5716 # courbes et coefficients associés à la fatigue et au dommage
5718 FATIGUE =FACT(statut='f',min=00,max=01,
5719 regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
5720 PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
5721 PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
5722 ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
5723 ENSEMBLE('A0','A1','A2','A3','SL'),
5724 PRESENT_PRESENT('A0','E_REFE'),
5725 ENSEMBLE('D0','TAU0'),),
5726 WOHLER =SIMP(statut='f',typ=fonction),
5727 A_BASQUIN =SIMP(statut='f',typ='R'),
5728 BETA_BASQUIN =SIMP(statut='f',typ='R'),
5729 A0 =SIMP(statut='f',typ='R'),
5730 A1 =SIMP(statut='f',typ='R'),
5731 A2 =SIMP(statut='f',typ='R'),
5732 A3 =SIMP(statut='f',typ='R'),
5733 SL =SIMP(statut='f',typ='R'),
5734 MANSON_COFFIN =SIMP(statut='f',typ=fonction),
5735 E_REFE =SIMP(statut='f',typ='R'),
5736 D0 =SIMP(statut='f',typ='R'),
5737 TAU0 =SIMP(statut='f',typ='R'),
5738 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
5739 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
5741 DOMMA_LEMAITRE =FACT(statut='f',min=00,max=01,
5742 S =SIMP(statut='o',typ=fonction),
5743 EPSP_SEUIL =SIMP(statut='o',typ='R'),
5744 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5747 # autres comportements ...
5749 WEIBULL =FACT(statut='f',min=00,max=01,
5750 M =SIMP(statut='o',typ='R'),
5751 VOLU_REFE =SIMP(statut='o',typ='R'),
5752 SIGM_REFE =SIMP(statut='o',typ='R'),
5753 SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
5755 CONTACT =FACT(statut='f',min=00,max=01,
5756 E_N =SIMP(statut='o',typ='R'),
5757 E_T =SIMP(statut='f',typ='R',defaut= 0.E+0),
5758 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0),
5760 NON_LOCAL =FACT(statut='f',min=00,max=01,
5761 LONG_CARA =SIMP(statut='o',typ='R'),
5762 COEF_RIGI_MINI =SIMP(statut='f',typ='R'),
5764 RUPT_FRAG =FACT(statut='f',min=00,max=01,
5765 GC =SIMP(statut='o',typ='R'),
5767 RCCM =FACT(statut='f',min=00,max=01,
5768 SY_02 =SIMP(statut='f',typ='R'),
5769 SM =SIMP(statut='f',typ='R'),
5770 SU =SIMP(statut='f',typ='R'),
5771 SC =SIMP(statut='f',typ='R'),
5772 SH =SIMP(statut='f',typ='R'),
5773 N_KE =SIMP(statut='f',typ='R'),
5774 M_KE =SIMP(statut='f',typ='R'),
5776 RCCM_FO =FACT(statut='f',min=00,max=01,
5777 SY_02 =SIMP(statut='f',typ=fonction),
5778 SM =SIMP(statut='f',typ=fonction),
5779 SU =SIMP(statut='f',typ=fonction),
5780 S =SIMP(statut='f',typ=fonction),
5781 N_KE =SIMP(statut='f',typ=fonction),
5782 M_KE =SIMP(statut='f',typ=fonction),
5784 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5786 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
5787 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
5788 fr="Définition d un modèle structure global à partir de macro éléments pour analyse modale ou harmonique par sous structuration",
5789 docu="U4.65.02-D",reentrant='n',
5790 SOUS_STRUC =FACT(statut='o',min=01,max='**',
5791 NOM =SIMP(statut='o',typ='TXM' ),
5792 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
5793 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
5794 TRANS =SIMP(statut='f',typ='R',max=03),
5796 LIAISON =FACT(statut='o',min=01,max='**',
5797 SOUS_STRUC_1 =SIMP(statut='o',typ='TXM' ),
5798 INTERFACE_1 =SIMP(statut='o',typ='TXM' ),
5799 SOUS_STRUC_2 =SIMP(statut='o',typ='TXM' ),
5800 INTERFACE_2 =SIMP(statut='o',typ='TXM' ),
5802 VERIF =FACT(statut='f',min=01,max='**',
5803 # dans la doc U stop_erreur est obligatoire
5804 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5805 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5806 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5809 #& MODIF COMMANDE DATE 18/01/99 AUTEUR CIBHHBC B.CIREE
5810 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op= 4,sd_prod=fonction,
5811 fr="Définition des valeurs d une fonction de deux variables réelles",
5812 docu="U4.31.03-F",reentrant='n',
5813 regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
5814 EXCLUS('FONCTION','NOM_PARA_FONC',),
5815 ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
5816 NOM_PARA =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
5817 "AMOR","EPAIS","TSEC","HYDR","SECH") ),
5818 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5819 PARA =SIMP(statut='o',typ='R',max='**'),
5820 FONCTION =SIMP(statut='f',typ=fonction,max='**' ),
5821 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
5822 "PULS","AMOR","EPAIS") ),
5823 DEFI_FONCTION =FACT(statut='f',min=00,max='**',
5824 VALE =SIMP(statut='o',typ='R',max='**'),
5825 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
5826 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5827 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5829 INTERPOL =SIMP(statut='f',typ='TXM',max=02,defaut="LIN",into=("NON","LIN","LOG") ),
5830 PROL_DROIT =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5831 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5832 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5833 VERIF =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
5834 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5836 #& MODIF COMMANDE DATE 06/10/1999 AUTEUR SABJLMA P.LATRUBESSE
5837 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op= 73,sd_prod=obstacle
5838 ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
5839 docu="U4.44.21-E",reentrant='n',
5840 TYPE =SIMP(statut='o',typ='TXM',defaut="CERCLE",
5841 into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
5842 "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
5843 "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
5844 "GUID_B_CARTE_900","GUID_C_CARTE_900",
5845 "GUID_D_CARTE_900","GUID_E_CARTE_900",
5846 "GUID_F_CARTE_900","GUID_A_CARTE_1300",
5847 "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
5848 "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
5849 "GUID_F_CARTE_1300","GUID_A_CARSP_900",
5850 "GUID_B_CARSP_900","GUID_C_CARSP_900",
5851 "GUID_D_CARSP_900","GUID_E_CARSP_900",
5852 "GUID_F_CARSP_900","GUID_A_CARSP_1300",
5853 "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
5854 "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
5855 "GUID_F_CARSP_1300","GUID_A_GCONT_900",
5856 "GUID_B_GCONT_900","GUID_C_GCONT_900",
5857 "GUID_D_GCONT_900","GUID_E_GCONT_900",
5858 "GUID_F_GCONT_900","GUID_A_GCONT_1300",
5859 "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
5860 "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
5861 "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
5862 "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
5863 "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
5864 "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
5865 "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
5866 "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
5867 "GUID_F_GCOMB_1300",) ),
5868 VALE =SIMP(statut='f',typ='R',max='**'),
5869 VERIF =SIMP(statut='f',typ='TXM',defaut="FERME"),
5871 #& MODIF COMMANDE DATE 04/03/98 AUTEUR BIBERON G.ROUSSEAU
5872 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
5873 fr="Définition d'un spectre d'excitation turbulente",
5874 docu="U4.44.31-C",reentrant='n',
5875 regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
5876 'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
5877 'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
5878 SPEC_LONG_COR_1 =FACT(statut='f',min=00,max=01,
5879 LONG_COR =SIMP(statut='o',typ='R' ),
5880 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5881 VISC_CINE =SIMP(statut='o',typ='R' ),
5883 SPEC_LONG_COR_2 =FACT(statut='f',min=00,max=01,
5884 regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
5885 LONG_COR =SIMP(statut='o',typ='R' ),
5886 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5887 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.1 ),
5888 PHI0 =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
5889 BETA =SIMP(statut='f',typ='R',defaut= 2.7 ),
5891 SPEC_LONG_COR_3 =FACT(statut='f',min=00,max=01,
5892 regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
5893 LONG_COR =SIMP(statut='o',typ='R' ),
5894 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5895 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.2 ),
5896 PHI0_1 =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
5897 BETA_1 =SIMP(statut='f',typ='R',defaut= 0.5 ),
5898 PHI0_2 =SIMP(statut='f',typ='R',defaut= 4.0E-5 ),
5899 BETA_2 =SIMP(statut='f',typ='R',defaut= 3.5 ),
5901 SPEC_LONG_COR_4 =FACT(statut='f',min=00,max=01,
5902 regles=(ENSEMBLE('BETA','GAMMA'),),
5903 LONG_COR =SIMP(statut='o',typ='R' ),
5904 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5905 TAUX_VIDE =SIMP(statut='o',typ='R' ),
5906 BETA =SIMP(statut='f',typ='R',defaut= 2. ),
5907 GAMMA =SIMP(statut='f',typ='R',defaut= 4. ),
5909 SPEC_CORR_CONV_1=FACT(statut='f',min=00,max=01,
5910 LONG_COR_1 =SIMP(statut='o',typ='R' ),
5911 LONG_COR_2 =SIMP(statut='f',typ='R' ),
5912 VITE_FLUI =SIMP(statut='o',typ='R' ),
5913 RHO_FLUI =SIMP(statut='o',typ='R' ),
5914 FREQ_COUP =SIMP(statut='f',typ='R' ),
5915 K =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
5916 D_FLUI =SIMP(statut='o',typ='R' ),
5917 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
5918 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
5919 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
5920 into=("AU_YANG","GENERALE","CORCOS") ),
5922 SPEC_CORR_CONV_2=FACT(statut='f',min=00,max=01,
5923 FONCTION =SIMP(statut='o',typ=fonction ),
5924 VITE_FLUI =SIMP(statut='o',typ='R' ),
5925 FREQ_COUP =SIMP(statut='f',typ='R' ),
5926 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
5927 into=("AU_YANG","GENERALE","CORCOS",) ),
5928 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
5929 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
5931 SPEC_FONC_FORME =FACT(statut='f',min=00,max=01,
5932 regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
5933 ENSEMBLE('INTE_SPEC','FONCTION'),),
5934 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
5935 FONCTION =SIMP(statut='f',typ=fonction,max='**'),
5936 GRAPPE_1 =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
5937 NOEUD =SIMP(statut='o',typ=no),
5938 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
5939 MODELE =SIMP(statut='o',typ=modele ),
5941 SPEC_EXCI_POINT =FACT(statut='f',min=00,max=01,
5942 regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
5943 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
5944 GRAPPE_2 =SIMP(statut='f',typ='TXM',
5945 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
5946 # Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
5947 b_inte_spec =BLOC(condition = "INTE_SPEC != None",
5948 NATURE =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
5949 ANGL =SIMP(statut='o',typ='R',max='**'),
5950 NOEUD =SIMP(statut='o',typ=no,max='**'),
5952 b_grappe_2 =BLOC(condition = "GRAPPE_2 != None",
5953 RHO_FLUI =SIMP(statut='o',typ='R' ),
5954 NOEUD =SIMP(statut='o',typ=no),
5956 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
5957 MODELE =SIMP(statut='o',typ=modele ),
5959 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5961 #& MODIF COMMANDE DATE 02/03/99 AUTEUR SABJLMA P.LATRUBESSE
5962 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
5963 fr="Définition d un maillage de visualisation",
5964 docu="U4.24.01-E",reentrant='n',
5965 regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
5966 PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
5967 EXCLUS('SOUS_STRUC','SECTEUR'),
5968 PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
5969 PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
5970 MODE_CYCL =SIMP(statut='f',typ=mode_cycl ),
5971 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
5972 SQUELETTE =SIMP(statut='f',typ=squelette ),
5973 RECO_GLOBAL =FACT(statut='f',min=01,max='**',
5974 regles=(EXCLUS('TOUT','GROUP_NO_1'),
5975 PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
5976 PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
5977 PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
5978 PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
5979 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
5980 GROUP_NO_1 =SIMP(statut='f',typ=grno),
5981 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
5982 GROUP_NO_2 =SIMP(statut='f',typ=grno),
5983 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
5984 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5985 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5986 DIST_REFE =SIMP(statut='f',typ='R' ),
5988 NOM_GROUP_MA =FACT(statut='f',min=01,max='**',
5989 NOM =SIMP(statut='o',typ='TXM' ),
5990 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
5991 GROUP_MA =SIMP(statut='o',typ=grma),
5993 EXCLUSIF =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
5994 MAILLAGE =SIMP(statut='f',typ=maillage ),
5995 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5996 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5997 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5998 TRANS =SIMP(statut='f',typ='R',max='**'),
5999 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
6000 SOUS_STRUC =FACT(statut='f',min=01,max='**',
6001 NOM =SIMP(statut='f',typ='TXM' ),
6002 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6003 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6004 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6006 SECTEUR =FACT(statut='f',min=01,max='**',
6007 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6008 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6009 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6011 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6013 #& MODIF COMMANDE DATE 09/06/98 AUTEUR CIBHHLV L.VIVAN
6014 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
6015 fr=" ",docu="U4.43.05-A",reentrant='n',
6016 SYST_GLISSEMENT =FACT(statut='o',min=01,max='**',
6017 N =SIMP(statut='o',typ='R',max='**' ),
6018 L =SIMP(statut='o',typ='R',max='**' ),
6020 PLAN =FACT(statut='o',min=01,max='**',
6021 ANGL_NAUT =SIMP(statut='o',typ='R',max='**' ),
6022 PROPORTION =SIMP(statut='o',typ='R' ),
6024 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
6026 #& MODIF COMMANDE DATE 16/07/96 AUTEUR CIBHHRA R.MEDDOURI
6027 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.MK.20-A",reentrant='n',
6028 fr="Calculer la fonction d évolution temporelle de la température due à l effet JOULE dans un câble",
6029 LIST_INST =SIMP(statut='o',typ=listr8),
6030 INST_CC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
6031 INST_CC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
6032 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 1.0E+10),
6033 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
6034 TEMP_EXT_POSE =SIMP(statut='f',typ='R',defaut= 15.0E+0),
6035 TEMP_EXT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
6036 TEMP_RESI_REF =SIMP(statut='f',typ='R',defaut= 20.0E+0),
6037 PARA_COND_1D =FACT(statut='f',min=01,max='**',
6038 INTE_CC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6039 INTE_RENC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6040 A =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6041 SECTION =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
6042 RESI_R0 =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6043 RESI_R1 =SIMP(statut='f',typ='R',defaut= 0.E+0),
6044 RHO_CP =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6045 COEF_H =SIMP(statut='f',typ='R',defaut= 40.0E+0),
6046 TEMP_INIT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
6050 #& MODIF COMMANDE DATE 04/07/2000 AUTEUR JMBHH01 J.M.PROIX
6051 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-E",reentrant='n',
6052 fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
6053 HIST_EXP =FACT(statut='o',min=01,max='**',
6054 VALE =SIMP(statut='o',typ='R',max='**'),
6056 TEMP_MS =FACT(statut='o',min=01,max='**',
6057 SEUIL =SIMP(statut='o',typ='R'),
6058 AKM =SIMP(statut='o',typ='R'),
6059 BKM =SIMP(statut='o',typ='R'),
6060 TPLM =SIMP(statut='o',typ='R'),
6062 GRAIN_AUST =FACT(statut='f',min=01,max='**',
6063 DREF =SIMP(statut='f',typ='R'),
6064 A =SIMP(statut='f',typ='R'),
6067 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
6068 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
6069 if IS != None : return entier
6070 if R8 != None : return reel
6071 if TX != None : return chaine
6072 if C8 != None : return complexe
6073 if LS != None : return liste
6074 raise AsException("type de concept resultat non prevu")
6076 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
6077 fr="Affectation d une valeur à une variable Superviseur",
6078 docu="U4.31.04-e",reentrant='f',
6079 regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
6080 IS =SIMP(statut='f',typ='I',max='**'),
6081 R8 =SIMP(statut='f',typ='R',max='**'),
6082 TX =SIMP(statut='f',typ='TXM',max='**'),
6083 C8 =SIMP(statut='f',typ='C',max='**'),
6084 LS =SIMP(statut='f',typ='L',max='**'),
6086 #& MODIF COMMANDE DATE 04/10/90 AUTEUR INCONNU INCONNU
6087 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-D",
6088 fr="Modification / ajoût d une unité logique en sortie en complément de celles définies dans DEBUT",
6089 IMPRESSION =FACT(statut='o',min=01,max='**',
6090 NOM =SIMP(statut='o',typ='TXM',max='**'),
6091 UNITE =SIMP(statut='o',typ='I' ),
6094 #& MODIF COMMANDE DATE 16/01/92 AUTEUR INCONNU INCONNU
6095 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-E",reentrant='n',
6096 fr="Récupération du champ de déplacement interne à une sous-structure",
6097 DEPL_GLOBAL =SIMP(statut='o',typ=cham_no_depl_r),
6098 MAILLE =SIMP(statut='o',typ=ma,max=1),
6099 NOM_CAS =SIMP(statut='f',typ='TXM',defaut=" "),
6101 #& MODIF COMMANDE DATE 23/03/93 AUTEUR GJBHHDU G.DUMONT
6102 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-D",
6103 fr="Destruction d un concept utilisateur dans la base GLOBALE",
6104 op_init=ops.detruire,
6105 CONCEPT =FACT(statut='o',min=01,
6106 NOM =SIMP(statut='o',typ=assd,max='**'),
6109 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
6110 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.MK.30-A",reentrant='n',
6111 fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
6112 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
6113 UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
6114 MODELE =SIMP(statut='o',typ=modele),
6115 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
6116 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
6117 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
6118 INST =SIMP(statut='f',typ='R',max='**'),
6119 LIST_INST =SIMP(statut='f',typ=listr8),
6120 LIST_ORDRE =SIMP(statut='f',typ=listis),
6121 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6122 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6123 GROUP_MA_1 =SIMP(statut='o',typ=grma,max='**'),
6124 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
6125 POIN_FIXE =SIMP(statut='f',typ='R',min=3,max=3),
6126 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6128 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
6129 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
6130 ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
6131 docu="U4.53.22-D",reentrant='n',
6132 BASE_MODALE =FACT(statut='o',min=01,max=01,
6133 regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
6134 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
6135 BANDE =SIMP(statut='f',typ='R',max=02),
6136 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
6137 b_bande =BLOC(condition = "BANDE != None",
6138 AMOR_UNIF =SIMP(statut='o',typ='R' ),
6140 b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
6141 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
6144 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
6145 EXCIT =FACT(statut='o',min=01,max=01,
6146 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
6147 EXCLUS('CHAM_NO','NOEUD'),),
6148 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
6149 MODAL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6150 # dans la doc U il y a plus de choix pour GRANDEUR
6151 GRANDEUR =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
6152 into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
6153 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
6154 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
6155 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
6156 # Toutes les regles ne semblent pas avoir été ecrites dans la doc U
6157 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**'),
6158 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
6159 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
6160 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**'),
6162 b_noeud_i =BLOC(condition = "NOEUD_I != None",
6163 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
6164 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**'),
6165 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**'),
6167 CHAM_NO =SIMP(statut='f',typ=cham_no),
6168 NOEUD =SIMP(statut='f',typ=no,max='**'),
6169 b_noeud =BLOC(condition = "NOEUD != None",
6170 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
6173 REPONSE =FACT(statut='f',min=01,max=01,
6174 regles=(EXCLUS('FREQ_MIN','NB_POIN_MODE'),
6175 EXCLUS('FREQ_MIN','FREQ_EXCIT'),
6176 ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
6177 # Toutes les regles ne semblent pas avoir été ecrites dans la doc U
6178 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
6179 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
6180 FREQ_MIN =SIMP(statut='f',typ='R' ),
6181 FREQ_MAX =SIMP(statut='f',typ='R' ),
6182 PAS =SIMP(statut='f',typ='R' ),
6183 FREQ_EXCIT =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
6184 NB_POIN_MODE =SIMP(statut='f',typ='I',defaut= 50 ),
6186 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6187 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6189 #& MODIF COMMANDE DATE 08/03/2000 AUTEUR CIBHHPD P.DAVID
6190 def dyna_line_harm_prod(MATR_MASS,**args):
6191 if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
6192 if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
6193 if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
6194 if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
6195 raise AsException("type de concept resultat non prevu")
6197 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op= 60,sd_prod=dyna_line_harm_prod,
6198 fr="Réponse dynamique complexe d un système à une excitation harmonique",
6199 docu="U4.53.11-E",reentrant='n',
6200 regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
6201 PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
6202 PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
6203 UN_PARMI('FREQ','LIST_FREQ'),),
6204 MODELE =SIMP(statut='f',typ=modele ),
6205 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
6206 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
6207 MATR_MASS =SIMP(statut='o',typ=(matr_asse_depl_r,
6209 matr_asse_gene_r ) ),
6210 MATR_RIGI =SIMP(statut='o',typ=(matr_asse_depl_r,
6214 matr_asse_gene_c ) ),
6215 MATR_AMOR =SIMP(statut='f',typ=(matr_asse_depl_r,
6217 matr_asse_gene_r ) ),
6218 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
6219 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
6220 MATR_IMPE_PHI =SIMP(statut='f',typ=(matr_asse_depl_r,
6221 matr_asse_gene_r) ),
6222 FREQ =SIMP(statut='f',typ='R',max='**'),
6223 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
6224 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",)),
6225 NOM_CHAM =SIMP(statut='f',typ='TXM',max=03,into=("DEPL","VITE","ACCE") ),
6226 EXCIT =FACT(statut='o',min=01,max='**',
6227 regles=(UN_PARMI('VECT_ASSE','CHARGE'),
6228 UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
6229 VECT_ASSE =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
6230 CHARGE =SIMP(statut='f',typ=char_meca ),
6231 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
6232 FONC_MULT_C =SIMP(statut='f',typ=fonction_c ),
6233 COEF_MULT_C =SIMP(statut='f',typ='C' ),
6234 FONC_MULT =SIMP(statut='f',typ=fonction ),
6235 COEF_MULT =SIMP(statut='f',typ='R' ),
6236 PHAS_DEG =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6237 PUIS_PULS =SIMP(statut='f',typ='I',defaut= 0 ),
6239 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6241 #& MODIF COMMANDE DATE 08/06/99 AUTEUR ACBHHCD G.DEVESA
6242 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op= 48,sd_prod=dyna_trans,
6243 fr="Réponse temporelle d un système à une excitation transitoire",
6244 docu="U4.53.02-F",reentrant='f',
6245 regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
6246 MODELE =SIMP(statut='f',typ=modele ),
6247 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
6248 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
6249 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r ),
6250 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
6251 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
6252 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
6253 NEWMARK =FACT(statut='f',min=01,max=01,
6254 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25 ),
6255 DELTA =SIMP(statut='f',typ='R',defaut= 0.5 ),
6257 WILSON =FACT(statut='f',min=01,max=01,
6258 THETA =SIMP(statut='f',typ='R',defaut= 1.4 ),
6260 DIFF_CENTRE =FACT(statut='f',min=01,max=01,
6262 ADAPT =FACT(statut='f',min=01,max=01,
6264 ETAT_INIT =FACT(statut='f',min=01,max=01,
6265 regles=(EXCLUS('DYNA_TRANS','DEPL_INIT'),
6266 EXCLUS('DYNA_TRANS','VITE_INIT'),),
6267 DYNA_TRANS =SIMP(statut='f',typ=dyna_trans ),
6268 # j ai interprete la doc U : est-ce bon
6269 b_dyna_trans =BLOC(condition = "DYNA_TRANS != None",
6270 regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
6271 NUME_INIT =SIMP(statut='f',typ='I' ),
6272 INST_INIT =SIMP(statut='f',typ='R' ),
6273 b_inst_init =BLOC(condition = "INST_INIT != None",
6274 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6275 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6278 DEPL_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
6279 VITE_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
6281 EXCIT =FACT(statut='f',min=01,max='**',
6282 regles=(UN_PARMI('CHARGE','VECT_ASSE'),
6283 EXCLUS('CHARGE','COEF_MULT'),
6284 EXCLUS('FONC_MULT','COEF_MULT'),
6285 EXCLUS('ACCE','COEF_MULT'),
6286 PRESENT_ABSENT('ACCE','FONC_MULT'),
6287 PRESENT_PRESENT('ACCE','VITE','DEPL'),
6288 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
6289 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
6290 CHARGE =SIMP(statut='f',typ=char_meca ),
6291 FONC_MULT =SIMP(statut='f',typ=fonction ),
6292 COEF_MULT =SIMP(statut='f',typ='R' ),
6293 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
6294 ACCE =SIMP(statut='f',typ=fonction ),
6295 VITE =SIMP(statut='f',typ=fonction ),
6296 DEPL =SIMP(statut='f',typ=fonction ),
6297 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
6298 DIRECTION =SIMP(statut='f',typ='R',max='**'),
6299 NOEUD =SIMP(statut='f',typ=no,max='**'),
6300 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6302 AMOR_MODAL =FACT(statut='f',min=01,max=01,
6303 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
6304 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
6305 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
6306 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6308 # ce n est pas le mot clesolveur standard
6309 SOLVEUR =FACT(statut='d',min=01,max=01,
6310 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6311 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
6312 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6313 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
6314 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
6316 INCREMENT =FACT(statut='o',min=01,max='**',
6317 regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
6318 LIST_INST =SIMP(statut='f',typ=listr8 ),
6319 FONC_INST =SIMP(statut='f',typ=fonction ),
6320 PAS =SIMP(statut='f',typ='R' ),
6321 b_pas =BLOC(condition = "PAS != None",
6322 INST_INIT =SIMP(statut='f',typ='R' ),
6323 INST_FIN =SIMP(statut='f',typ='R' ),
6325 b_list_fonc =BLOC(condition = "LIST_INST != None or FONC_INST != None",
6326 regles=(EXCLUS('INST_FIN','NUME_FIN'),),
6327 NUME_FIN =SIMP(statut='f',typ='I' ),
6328 INST_FIN =SIMP(statut='f',typ='R' ),
6330 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
6331 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
6332 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.33334 ),
6333 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
6334 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
6335 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
6336 PAS_CALCUL =SIMP(statut='f',typ='I',defaut= 1 ),
6338 ARCHIVAGE =FACT(statut='f',min=01,max=01,
6339 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
6340 LIST_ARCH =SIMP(statut='f',typ=listis ),
6341 PAS_ARCH =SIMP(statut='f',typ='I' ),
6342 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
6344 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6345 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
6347 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
6348 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 95,sd_prod=evol_noli,reentrant='f',
6349 fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-E",
6350 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
6351 UN_PARMI('NEWMARK','HHT', ),),
6352 MODELE =SIMP(statut='o',typ=modele),
6353 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
6354 MODE_STAT =SIMP(statut='f',typ=mode_stat),
6355 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
6357 EXCIT =FACT(statut='o',min=01,max='**',
6358 regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
6359 PRESENT_PRESENT('ACCE','VITE','DEPL'),
6360 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
6361 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("SUIV","FIXE") ),
6362 CHARGE =SIMP(statut='o',typ=char_meca),
6363 FONC_MULT =SIMP(statut='f',typ=fonction),
6364 DEPL =SIMP(statut='f',typ=fonction),
6365 ACCE =SIMP(statut='f',typ=fonction),
6366 VITE =SIMP(statut='f',typ=fonction),
6367 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6368 DIRECTION =SIMP(statut='f',typ='R',max='**'),
6369 NOEUD =SIMP(statut='f',typ=no,max='**'),
6370 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6372 AMOR_MODAL =FACT(statut='f',min=01,max=01,
6373 MODE_MECA =SIMP(statut='f',typ=mode_meca),
6374 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**' ),
6375 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
6376 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6378 COMP_INCR =FACT(statut='f',min=01,max='**',
6379 RELATION =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_LINE",
6380 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_ISOT_META",
6381 "VMIS_ECMI_TRAC","VMIS_ECMI_LINE","ENDO_FRAGILE","META_EP",
6382 "META_EP_PT","META_EP_RE","META_EP_PT_RE","META_EVP",
6383 "META_EVP_PT","META_EVP_RE","META_EVP_PT_RE","VMIS_CINE_LINE",
6384 "TAHERI","VISC_TAHERI","CHABOCHE","VISCOCHAB",
6385 "VMIS_CIN1_CHAB","VMIS_CIN2_CHAB","POLY_CFC",
6386 "LMARC","ROUSSELIER","VMIS_POU_LINE","VMIS_POU_FLEJOU",
6387 "COULOMB","ARME","ASSE_CORN","NORTON_HOFF","LEMAITRE",
6388 "ZIRC_CYRA2","ZIRC_EPRI","ASSE_COMBU","VENDOCHAB","NADAI_B",
6389 "DIS_CONTACT","DIS_CHOC","DIS_GOUJ2E_PLAS","DIS_GOUJ2E_ELAS",
6390 "GRILLE_ISOT_LINE","GRILLE_CINE_LINE","GRILLE_PINTO_MEN",
6391 "PINTO_MENEGOTTO","CJS","OHNO","GRANGER_FP","GRANGER_FP_V",
6392 "BETON_DOUBLE_DP","VMIS_ASYM_LINE") ),
6393 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
6394 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6395 VMIS_ISOT_LINE =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6396 VMIS_ISOT_META =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6397 VMIS_CINE_LINE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6398 VMIS_ECMI_TRAC =SIMP(statut='c',typ='I',defaut=8,into=(8,) ),
6399 VMIS_ECMI_LINE =SIMP(statut='c',typ='I',defaut=8,into=(8,) ),
6400 ENDO_FRAGILE =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6401 META_EP =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6402 META_EP_PT =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6403 META_EP_RE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6404 META_EP_PT_RE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6405 META_EVP =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6406 META_EVP_PT =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6407 META_EVP_RE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6408 META_EVP_PT_RE =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6409 CHABOCHE =SIMP(statut='c',typ='I',defaut=14,into=(14,) ),
6410 VISCOCHAB =SIMP(statut='c',typ='I',defaut=28,into=(28,) ),
6411 VMIS_CIN1_CHAB =SIMP(statut='c',typ='I',defaut=8,into=(8,) ),
6412 VMIS_CIN2_CHAB =SIMP(statut='c',typ='I',defaut=14,into=(14,) ),
6413 POLY_CFC =SIMP(statut='c',typ='I',defaut=1688,into=(1688,) ),
6414 LMARC =SIMP(statut='c',typ='I',defaut=20,into=(20,) ),
6415 TAHERI =SIMP(statut='c',typ='I',defaut=15,into=(15,) ),
6416 VISC_TAHERI =SIMP(statut='c',typ='I',defaut=9,into=(9,) ),
6417 ROUSSELIER =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
6418 VMIS_POU_LINE =SIMP(statut='c',typ='I',defaut=9,into=(9,) ),
6419 VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9,into=(9,) ),
6420 COULOMB =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6421 ASSE_CORN =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6422 ARME =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
6423 NORTON_HOFF =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
6424 LEMAITRE =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6425 ZIRC_CYRA2 =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6426 ZIRC_EPRI =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6427 ASSE_COMBU =SIMP(statut='c',typ='I',defaut=5,into=(5,) ),
6428 NADAI_B =SIMP(statut='c',typ='I',defaut=34,into=(34,) ),
6429 VENDOCHAB =SIMP(statut='c',typ='I',defaut=10,into=(10,) ),
6430 GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6431 GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6432 GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,) ),
6433 DIS_CONTACT =SIMP(statut='c',typ='I',defaut=6,into=(6,) ),
6434 DIS_CHOC =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
6435 DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,) ),
6436 DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
6437 PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,) ),
6438 CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,) ),
6439 OHNO =SIMP(statut='c',typ='I',defaut=32,into=(32,) ),
6440 GRANGER_FP =SIMP(statut='c',typ='I',defaut=55,into=(55,) ),
6441 GRANGER_FP_V =SIMP(statut='c',typ='I',defaut=55,into=(55,) ),
6442 BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6443 VMIS_ASYM_LINE =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
6445 COQUE_NCOU =SIMP(statut='f',typ='I'),
6446 TUYAU_NCOU =SIMP(statut='f',typ='I'),
6447 TUYAU_NSEC =SIMP(statut='f',typ='I'),
6448 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC",) ),
6449 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6450 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6451 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6453 COMP_ELAS =FACT(statut='f',min=01,max='**',
6454 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
6455 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC","ELAS_POUTRE_GR","CABLE") ),
6456 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
6457 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
6458 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
6459 ELAS_POUTRE_GR =SIMP(statut='f',typ='I',defaut=3,into=(3,) ),
6460 CABLE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
6462 COQUE_NCOU =SIMP(statut='f',typ='I'),
6463 TUYAU_NCOU =SIMP(statut='f',typ='I'),
6464 TUYAU_NSEC =SIMP(statut='f',typ='I'),
6465 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN","GREEN_GR") ),
6466 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6467 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6468 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6470 ETAT_INIT =FACT(statut='f',min=01,max=01,
6471 regles=(EXCLUS('EVOL_NOLI','DEPL_INIT',),
6472 EXCLUS('EVOL_NOLI','VITE_INIT', ),),
6473 INST_INIT =SIMP(statut='f',typ='R' ),
6474 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
6475 DEPL_INIT =SIMP(statut='f',typ=cham_no_depl_r),
6476 VITE_INIT =SIMP(statut='f',typ=cham_no_depl_r),
6478 INCREMENT =FACT(statut='o',min=01,max=01,
6479 LIST_INST =SIMP(statut='o',typ=listr8),
6480 INST_INIT =SIMP(statut='f',typ='R'),
6482 NEWMARK =FACT(statut='f',min=01,max=01,
6483 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25),
6484 DELTA =SIMP(statut='f',typ='R',defaut= 0.5),
6486 HHT =FACT(statut='f',min=01,max=01,
6487 ALPHA =SIMP(statut='f',typ='R'
6488 ,defaut= -0.29999999999999999 ),
6490 NEWTON =FACT(statut='d',min=01,max=01,
6491 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
6492 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
6493 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
6494 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
6496 SOLVEUR =FACT(statut='d',min=01,max=01,
6497 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
6498 b_mult_front =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
6499 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
6501 b_ldlt =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
6502 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
6503 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
6505 b_ldlt_mult =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
6506 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
6507 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
6508 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6510 b_gcpc =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
6511 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
6512 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
6513 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
6514 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
6515 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
6517 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6518 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6520 CONVERGENCE =FACT(statut='d',min=01,max=01,
6521 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
6522 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
6523 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
6524 INCO_GLOB_RELA =SIMP(statut='f',typ='R'),
6525 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
6526 RESI_INTE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6),
6527 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10),
6528 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT","TANG_INC") ),
6529 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
6530 into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE") ),
6532 OPTION =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
6533 into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
6534 ARCHIVAGE =FACT(statut='f',min=01,max=01,
6535 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
6536 LIST_ARCH =SIMP(statut='f',typ=(listis) ),
6537 LIST_INST =SIMP(statut='f',typ=(listr8) ),
6538 INST =SIMP(statut='f',typ='R',max='**' ),
6539 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6540 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6541 PAS_ARCH =SIMP(statut='f',typ='I'),
6542 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
6544 OBSERVATION =FACT(statut='f',min=01,max='**',
6545 regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
6546 PRESENT_PRESENT('MAILLE','POINT'),),
6547 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
6548 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA") ),
6549 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
6550 LIST_ARCH =SIMP(statut='f',typ=listis),
6551 LIST_INST =SIMP(statut='f',typ=listr8),
6552 INST =SIMP(statut='f',typ='R',max='**' ),
6553 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6554 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6555 PAS_OBSE =SIMP(statut='f',typ='I'),
6556 NOEUD =SIMP(statut='f',typ=no,max='**'),
6557 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6558 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6559 POINT =SIMP(statut='f',typ='I',max='**'),
6561 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6562 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6564 #& MODIF COMMANDE DATE 16/12/97 AUTEUR CIBHHLV L.VIVAN
6565 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
6566 fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
6567 docu="U4.53.23-C",reentrant='n',
6568 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
6569 EXCIT =FACT(statut='o',min=00,max=01,
6570 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
6572 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
6573 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6575 #& MODIF COMMANDE DATE 29/08/2000 AUTEUR ACBHHCD G.DEVESA
6576 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op= 74,sd_prod=tran_gene,
6577 fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
6578 docu="U4.53.21-E",reentrant='f',
6579 regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
6580 PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
6581 METHODE =SIMP(statut='f',typ='TXM',defaut="EULER",
6582 into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
6583 MASS_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
6584 RIGI_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
6585 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
6586 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
6587 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
6588 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
6589 MODE_CORR =SIMP(statut='f',typ=mult_elas ),
6591 ETAT_INIT =FACT(statut='f',min=01,max=01,
6592 regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
6593 EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
6594 RESU_GENE =SIMP(statut='f',typ=tran_gene ),
6595 b_resu_gene =BLOC(condition = "RESU_GENE != None",
6596 INST_INIT =SIMP(statut='f',typ='R' ),
6597 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6598 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6600 DEPL_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
6601 VITE_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
6603 INCREMENT =FACT(statut='o',min=01,max='**',
6604 INST_INIT =SIMP(statut='f',typ='R' ),
6605 INST_FIN =SIMP(statut='o',typ='R' ),
6606 PAS =SIMP(statut='f',typ='R' ),
6607 VERI_PAS =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6608 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
6609 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
6610 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
6611 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
6612 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
6613 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
6615 ARCHIVAGE =FACT(statut='f',min=01,max=01,
6616 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
6617 LIST_ARCH =SIMP(statut='f',typ=listis ),
6618 PAS_ARCH =SIMP(statut='f',typ='I' ),
6621 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 20 ),
6622 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6623 LAMBDA =SIMP(statut='f',typ='R',defaut= 10. ),
6625 EXCIT =FACT(statut='f',min=01,max='**',
6626 regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
6627 PRESENT_PRESENT('ACCE','VITE','DEPL'),
6628 PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
6629 PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
6630 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
6631 PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
6632 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
6633 VECT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
6634 NUME_MODE =SIMP(statut='f',typ='I' ),
6635 FONC_MULT =SIMP(statut='f',typ=fonction ),
6636 COEF_MULT =SIMP(statut='f',typ='R' ),
6637 ACCE =SIMP(statut='f',typ=fonction ),
6638 VITE =SIMP(statut='f',typ=fonction ),
6639 DEPL =SIMP(statut='f',typ=fonction ),
6640 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6641 DIRECTION =SIMP(statut='f',typ='R',max='**'),
6642 b_loca =BLOC(condition= "DIRECTION != None",
6643 regles=(EXCLUS('NOEUD','GROUP_NO'),),
6644 NOEUD =SIMP(statut='f',typ=no,max='**'),
6645 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6647 CORR_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6648 D_FONC_DT =SIMP(statut='f',typ=fonction ),
6649 D_FONC_DT2 =SIMP(statut='f',typ=fonction ),
6651 CHOC =FACT(statut='f',min=01,max='**',
6652 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
6653 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
6654 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
6655 INTITULE =SIMP(statut='f',typ='TXM' ),
6656 NOEUD_1 =SIMP(statut='f',typ=no),
6657 NOEUD_2 =SIMP(statut='f',typ=no),
6658 GROUP_NO_1 =SIMP(statut='f',typ=grno),
6659 GROUP_NO_2 =SIMP(statut='f',typ=grno),
6660 OBSTACLE =SIMP(statut='o',typ=obstacle ),
6661 ORIG_OBST =SIMP(statut='f',typ='R',max='**'),
6662 NORM_OBST =SIMP(statut='o',typ='R',max='**'),
6663 ANGL_VRIL =SIMP(statut='f',typ='R' ),
6664 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
6665 DIST_1 =SIMP(statut='f',typ='R' ),
6666 DIST_2 =SIMP(statut='f',typ='R' ),
6667 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
6668 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
6669 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
6670 RIGI_NOR =SIMP(statut='f',typ='R' ),
6671 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6672 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6673 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6674 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6676 LAME_FLUIDE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6677 b_lame =BLOC(condition="LAME_FLUIDE=='OUI'",
6678 ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6679 BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6680 CHI =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6681 DELTA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6684 VERI_CHOC =FACT(statut='f',min=01,max='**',
6685 STOP_CRITERE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6686 SEUIL =SIMP(statut='f',typ='R',defaut= 0.5 ),
6688 FLAMBAGE =FACT(statut='f',min=01,max='**',
6689 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
6690 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
6691 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
6692 NOEUD_1 =SIMP(statut='f',typ=no),
6693 NOEUD_2 =SIMP(statut='f',typ=no),
6694 GROUP_NO_1 =SIMP(statut='f',typ=grno),
6695 GROUP_NO_2 =SIMP(statut='f',typ=grno),
6696 OBSTACLE =SIMP(statut='o',typ=obstacle ),
6697 ORIG_OBST =SIMP(statut='f',typ='R',max='**'),
6698 NORM_OBST =SIMP(statut='o',typ='R',max='**'),
6699 ANGL_VRIL =SIMP(statut='f',typ='R' ),
6700 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
6701 DIST_1 =SIMP(statut='f',typ='R' ),
6702 DIST_2 =SIMP(statut='f',typ='R' ),
6703 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
6704 RIGI_NOR =SIMP(statut='f',typ='R' ),
6705 FNOR_CRIT =SIMP(statut='f',typ='R' ),
6706 FNOR_POST_FL =SIMP(statut='f',typ='R' ),
6707 RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
6709 ANTI_SISM =FACT(statut='f',min=01,max='**',
6710 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
6711 UN_PARMI('NOEUD_2','GROUP_NO_2'),
6712 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
6713 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
6714 NOEUD_1 =SIMP(statut='f',typ=no),
6715 NOEUD_2 =SIMP(statut='f',typ=no),
6716 GROUP_NO_1 =SIMP(statut='f',typ=grno),
6717 GROUP_NO_2 =SIMP(statut='f',typ=grno),
6718 RIGI_K1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6719 RIGI_K2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6720 SEUIL_FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6721 C =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6722 PUIS_ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6723 DX_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
6725 RELA_EFFO_DEPL =FACT(statut='f',min=01,max='**',
6726 NOEUD =SIMP(statut='o',typ=no),
6727 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
6728 NOM_CMP =SIMP(statut='f',typ='TXM' ),
6729 RELATION =SIMP(statut='o',typ=fonction ),
6731 RELA_TRANSIS =FACT(statut='f',min=01,max='**',
6732 NOEUD =SIMP(statut='o',typ=no),
6733 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
6734 NOM_CMP =SIMP(statut='f',typ='TXM' ),
6735 RELATION =SIMP(statut='o',typ=fonction ),
6737 RELA_EFFO_VITE =FACT(statut='f',min=01,max='**',
6738 NOEUD =SIMP(statut='o',typ=no),
6739 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
6740 NOM_CMP =SIMP(statut='f',typ='TXM' ),
6741 RELATION =SIMP(statut='o',typ=fonction ),
6743 b_itmi =BLOC(condition = "METHODE=='ITMI'",
6744 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
6745 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
6746 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
6747 ETAT_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6748 PREC_DUREE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
6749 CHOC_FLUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6750 NB_MODE =SIMP(statut='f',typ='I' ),
6751 NB_MODE_FLUI =SIMP(statut='f',typ='I' ),
6752 NB_MODE_DIAG =SIMP(statut='f',typ='I' ),
6753 TS_REG_ETAB =SIMP(statut='f',typ='R' ),
6755 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6756 IMPRESSION =FACT(statut='f',min=01,max='**',
6757 regles=(EXCLUS('TOUT','NIVEAU'),),
6758 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6759 NIVEAU =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
6760 INST_INIT =SIMP(statut='f',typ='R' ),
6761 INST_FIN =SIMP(statut='f',typ='R' ),
6763 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6765 #& MODIF COMMANDE DATE 30/09/97 AUTEUR VABHHTS J.PELLET
6766 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-B",
6767 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",
6768 regles=(UN_PARMI('TOUT','CO'),),
6769 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
6770 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6771 CO =SIMP(statut='f',typ=assd,max='**'),
6772 TYPE_TEST =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
6773 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
6774 PREC_R =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
6776 #& MODIF COMMANDE DATE 17/06/98 AUTEUR D6BHHJP J.P.LEFEBVRE
6777 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-A",
6778 LOGICIEL =SIMP(statut='f',typ='TXM' ),
6779 ARGUMENT =FACT(statut='f',min=01,max='**',
6780 NOM_PARA =SIMP(statut='f',typ='TXM' ),
6783 #& MODIF COMMANDE DATE 02/04/96 AUTEUR ACBHHCD G.DEVESA
6784 #def extr_mode_prod(FILTRE_MODE,TITRE,IMPRESSION ):
6786 def extr_mode_prod(FILTRE_MODE,**args):
6787 vale=FILTRE_MODE[0]['MODE']
6788 if AsType(vale) == mode_meca : return mode_meca
6789 if AsType(vale) == mode_meca_c : return mode_meca_c
6790 if AsType(vale) == mode_gene : return mode_gene
6791 raise AsException("type de concept resultat non prevu")
6793 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
6794 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",
6795 docu="U4.52.12-C",reentrant='n',
6796 FILTRE_MODE =FACT(statut='o',min=01,max='**',
6797 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
6798 MODE =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
6799 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
6800 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
6801 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
6802 NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
6803 FREQ_MIN =SIMP(statut='f',typ='R' ),
6804 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN"
6805 ,into=("MASS_EFFE_UN","MASS_GENE") ),
6806 b_freq_min =BLOC(condition = "FREQ_MIN != None",
6807 FREQ_MAX =SIMP(statut='o',typ='R' ),
6808 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6810 b_crit_extr =BLOC(condition = "CRIT_EXTR != None",
6811 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6814 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6815 IMPRESSION =FACT(statut='f',min=01,max=01,
6816 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6817 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
6820 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
6821 def extr_resu_prod(RESULTAT,**args):
6822 if AsType(RESULTAT) == evol_elas : return evol_elas
6823 if AsType(RESULTAT) == evol_noli : return evol_noli
6824 if AsType(RESULTAT) == evol_ther : return evol_ther
6825 if AsType(RESULTAT) == dyna_trans : return dyna_trans
6826 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
6827 if AsType(RESULTAT) == acou_harmo : return acou_harmo
6828 if AsType(RESULTAT) == mode_meca : return mode_meca
6829 if AsType(RESULTAT) == mode_acou : return mode_acou
6830 if AsType(RESULTAT) == mode_stat : return mode_stat
6831 if AsType(RESULTAT) == mult_elas : return mult_elas
6832 if AsType(RESULTAT) == fourier_elas : return fourier_elas
6833 raise AsException("type de concept resultat non prevu")
6835 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-B",reentrant='f',
6836 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",
6837 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
6838 mode_acou,mode_stat,evol_ther,evol_noli,
6839 mult_elas,fourier_elas ) ),
6840 ARCHIVAGE =FACT(statut='f',min=01,max=01,
6841 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
6842 LIST_ARCH =SIMP(statut='f',typ=listis),
6843 PAS_ARCH =SIMP(statut='f',typ='I'),
6844 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("VARI",) ),
6846 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
6848 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR VABHHTS J.PELLET
6849 def fact_grad_prod(MATR_ASSE,**args):
6850 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
6851 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
6852 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
6853 raise AsException("type de concept resultat non prevu")
6855 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-E",
6856 fr="Préconditionnement pour résolution par gradient conjugué",
6858 MATR_ASSE =SIMP(statut='o',
6859 typ=(matr_asse_depl_r,matr_asse_temp_r,
6860 matr_asse_pres_r) ),
6861 PRE_COND =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
6862 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
6863 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
6865 #& MODIF COMMANDE DATE 16/12/97 AUTEUR CIBHHLV L.VIVAN
6866 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
6867 fr="Factorisation d une matrice interspectrale hermitienne",
6868 docu="U4.36.04-E",reentrant='n',
6869 regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
6870 # regle non indiquée dans la doc U
6871 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
6872 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
6873 FREQ_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6874 FREQ_FIN =SIMP(statut='f',typ='R' ),
6875 NB_POIN =SIMP(statut='f',typ='I',defaut= 0 ),
6876 SUR_ECHAN =SIMP(statut='f',typ='R',defaut= 1. ),
6877 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6879 #& MODIF COMMANDE DATE 25/11/97 AUTEUR VABHHTS J.PELLET
6880 def fact_ldlt_prod(MATR_ASSE,**args):
6881 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
6882 if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
6883 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
6884 if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
6885 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
6886 if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
6887 raise AsException("type de concept resultat non prevu")
6889 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
6890 docu="U4.55.01-F",reentrant='f',
6891 regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
6892 EXCLUS('BLOC_FIN','DDL_FIN'),),
6893 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
6894 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
6895 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6896 NPREC =SIMP(statut='f',typ='I',defaut=8),
6897 PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
6898 BLOC_DEBUT =SIMP(statut='f',typ='I'),
6899 DDL_DEBUT =SIMP(statut='f',typ='I'),
6900 BLOC_FIN =SIMP(statut='f',typ='I'),
6901 DDL_FIN =SIMP(statut='f',typ='I'),
6903 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6905 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6906 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
6908 #& MODIF COMMANDE DATE 23/02/99 AUTEUR D6BHHJP J.P.LEFEBVRE
6910 FERMER=PROC(nom="FERMER",op= 10,fr=" ",
6912 UNITE =SIMP(statut='o',typ='I',max='**' ),
6914 #& MODIF COMMANDE DATE 17/11/97 AUTEUR CIBHHLV L.VIVAN
6915 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
6917 RETASSAGE =SIMP(fr="provoque le retassage de la base GLOBALE",
6918 statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
6919 PERFORMANCE =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
6920 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
6921 INFO_RESU =SIMP(fr="provoque l'impression des informations sur les structures de données",
6922 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
6923 FICHIER =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
6925 #& MODIF COMMANDE DATE 06/05/96 AUTEUR KXBADNG T.FRIOU
6926 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
6927 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",
6928 docu="U4.35.02-C",reentrant='n',
6929 TYPE_FLUI_STRU =SIMP(statut='o',typ=(type_flui_stru) ),
6931 #& MODIF COMMANDE DATE 12/09/2001 AUTEUR MCOURTOI M.COURTOIS
6932 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
6933 fr="Définition d une fonction",reentrant = 'n',
6934 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
6935 REEL = SIMP(typ = 'shell',max=1),
6936 ENTIER = SIMP(typ = 'shell',max=1),
6937 COMPLEXE = SIMP(typ = 'shell',max=1),
6939 #& MODIF COMMANDE DATE 04/02/98 AUTEUR CIBHHLV L.VIVAN
6940 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
6941 fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
6942 docu="U4.36.05-E",reentrant='n',
6943 INTE_SPEC_FACT =SIMP(statut='o',typ=interspfact ),
6944 INIT_ALEA =SIMP(statut='f',typ='I',defaut= 12312745 ),
6945 NB_TIRAGE =SIMP(statut='f',typ='I',defaut= 1 ),
6946 NB_POIN =SIMP(statut='f',typ='I' ),
6947 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6949 #& MODIF COMMANDE DATE 17/10/95 AUTEUR ACBHHLB L.VIVAN
6950 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
6951 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",
6953 FICHIER =SIMP(statut='f',typ='TXM' ),
6954 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
6955 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
6956 CHARGE =SIMP(statut='o',typ=char_meca,max='**', ),
6958 #& MODIF COMMANDE DATE 30/09/98 AUTEUR SABJLMA P.LATRUBESSE
6959 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-A",
6960 fr="Ecriture sur fichier, du rèsultat d une analyse modale au format du code CLASSI (interaction sol structure) utilisè au SEPTEN",
6961 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
6963 UNITE_CLASSI =SIMP(statut='o',typ='I' ),
6964 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
6965 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6966 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
6967 LIST_ORDRE =SIMP(statut='f',typ=listis ),
6968 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
6969 FREQ =SIMP(statut='f',typ='R',max='**'),
6970 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
6971 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
6972 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6973 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
6974 into=("RELATIF","ABSOLU") ),
6976 IMPRESSION =FACT(statut='f',min=01,max='**',
6977 regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
6978 NOEUD =SIMP(statut='f',typ=no,max='**'),
6979 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6980 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
6982 AMOR =SIMP(statut='o',typ='R',max='**'),
6984 #& MODIF COMMANDE DATE 12/05/98 AUTEUR CIBHHLV L.VIVAN
6985 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-F",
6986 fr="Impression du contenu d un concept utilisateur (pour développeur)",
6987 regles=(UN_PARMI('CO','CHAINE', ),),
6988 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
6989 NIVEAU =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
6990 ATTRIBUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
6991 CONTENU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
6992 BASE =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
6993 CO =SIMP(statut='f',typ=assd),
6994 CHAINE =SIMP(statut='f',typ='TXM'),
6995 POSITION =SIMP(statut='f',typ='I',defaut=1),
6997 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
6998 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",
7000 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
7001 FORMAT =SIMP(statut='f',typ='TXM',position='global'
7002 ,into=("AGRAF","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
7003 b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
7004 BORNE_X =SIMP(statut='f',typ='R',max=02,fr="Intervalles de variation des abcisses"),
7005 ECHELLE_X =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
7006 BORNE_Y =SIMP(statut='f',typ='R',max=02,fr="Intervalles de variation des ordonnées"),
7007 ECHELLE_Y =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
7009 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
7010 TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
7011 COMMENTAIRE =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
7012 LEGENDE_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
7013 LEGENDE_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
7014 FREQ_GRILLE_X =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
7015 FREQ_GRILLE_Y =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
7017 b_post = BLOC ( condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
7018 TITRE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
7019 LABEL_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
7020 LABEL_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
7021 SORTIE =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
7022 DATE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
7023 GRILLE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
7024 AXE_ZERO_X =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
7025 AXE_ZERO_Y =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
7026 PRESENTATION =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),fr="Disposition du graphique sur la feuille" ),
7027 FENETRE =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),fr="Forme de la fenêtre contenant le graphique" ),
7029 COURBE =FACT(statut='o',min=01,max='**',fr="Définition de la courbe à tracer",
7030 regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
7031 FONCTION =SIMP(statut='f',typ=(fonction, fonction_c),
7032 fr="Fonction réelle ou complexe", ),
7033 LIST_RESU =SIMP(statut='f',typ=listr8,
7034 fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
7035 # creer le type table
7036 TABLE =SIMP(statut='f',typ=table,
7037 fr="Nom de la table dont 2 colonnes définissent la fonction",),
7038 FONC_X =SIMP(statut='f',typ=fonction,
7039 fr="Fonction abscisses d une fonction paramétrique",),
7040 RESU_GENE =SIMP(statut='f',typ=tran_gene,
7041 fr="Nom du RESU_GENE qui contient les informations liées à des noeuds de choc et qui seront tracées sous forme de fonction", ),
7042 b_fonction =BLOC(condition = "FONCTION != None",
7043 LIST_PARA =SIMP(statut='f',typ=listr8 ),
7044 b_fonction_c =BLOC(condition = "AsType(FONCTION) == fonction_c",
7045 fr="Fonction complexe définie par le mot-clé fonction",
7046 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
7049 b_list_resu =BLOC(condition = "LIST_RESU != None",
7050 LIST_PARA =SIMP(statut='o',typ=listr8 ),
7052 b_table =BLOC(condition = "TABLE != None",
7053 PARA_X =SIMP(statut='o',typ='TXM',fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
7054 PARA_Y =SIMP(statut='o',typ='TXM',fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
7056 b_fonc_x =BLOC(condition = "FONC_X != None",
7057 FONC_Y =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
7058 PARA =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),fr="Permutation des rôles des deux fonctions" ),
7059 LIST_PARA =SIMP(statut='f',typ=listr8 ),
7061 b_resu_gene =BLOC(condition = "RESU_GENE != None",
7062 regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
7063 NOEUD_CHOC =SIMP(statut='f',typ=no),
7064 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
7065 PARA_X =SIMP(statut='o',typ='TXM',fr="Paramètre associé aux abcisses de la fonction à tracer de la table information sur les chocs " ),
7066 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 " ),
7067 LIST_PARA =SIMP(statut='f',typ=listr8 ),
7068 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
7069 INTITULE =SIMP(statut='f',typ='TXM' ),
7073 LEGENDE =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
7074 STYLE =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
7075 into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
7076 COULEUR =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
7077 into=("NOIR","ROUGE","VERT_FONCE","BLEU",
7078 "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
7079 "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
7080 "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
7081 MARQUEUR =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
7082 into=("POINT_F","CARRE_F","TRIANGLE_F",
7083 "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
7084 "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
7085 "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
7086 "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
7087 "CERCLE_X","CARRE_X","LOSANGE_X") ),
7088 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
7089 TRI =SIMP(statut='f',typ='TXM',defaut="N",fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
7090 into=("N","X","Y","XY","YX") ),
7091 FREQ_MARQUEUR =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence d impression du marqueur associé à la courbe", ),
7095 #& MODIF COMMANDE DATE 02/02/2000 AUTEUR UFBHHGN G.NICOLAS
7096 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-A",
7097 fr="Imprimer le fichier de configurations de HOMARD",
7098 TRAITEMENT =FACT(statut='o',min=01,max=01,
7099 regles=( UN_PARMI('ADAPTATION','UNIFORME','MAJSOLUTION','INFORMATION'),),
7100 ADAPTATION =SIMP(statut='f',typ='TXM',
7101 fr="Adaptation libre",
7102 into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
7103 UNIFORME =SIMP(statut='f',typ='TXM',
7104 into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
7105 MAJSOLUTION =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7106 INFORMATION =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7107 b_adaptation =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or ( MAJSOLUTION != None ) ",
7109 NITER =SIMP(statut='o',typ='I' ),
7110 MAJ_CHAMP =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7112 b_adaptation_libre =BLOC(condition = "ADAPTATION != None",
7113 fr="Adaptation libre",
7114 NOM_MED_INDICA =SIMP(statut='o',typ='TXM' ),
7115 NOM_CMP_INDICA =SIMP(statut='f',typ='TXM',defaut="ERREST",
7116 into=("ERREST","NUEST") ),
7117 NOM_MED_SUPPOR =SIMP(statut='o',typ='TXM' ),
7119 b_raffinement_libre =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
7120 fr="Critère de raffinement.",
7121 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
7122 CRIT_RAFF_ABS =SIMP(statut='f',typ='R' ),
7123 CRIT_RAFF_REL =SIMP(statut='f',typ='R' ),
7124 CRIT_RAFF_PE =SIMP(statut='f',typ='R' ),
7126 b_deraffinement_libre =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
7127 fr="Critère de déraffinement.",
7128 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
7129 CRIT_DERA_ABS =SIMP(statut='f',typ='R' ),
7130 CRIT_DERA_REL =SIMP(statut='f',typ='R' ),
7131 CRIT_DERA_PE =SIMP(statut='f',typ='R' ),
7133 b_raffinement =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or ( UNIFORME == 'RAFFINEMENT' )" ,
7134 NIVE_MAX =SIMP(statut='f',typ='I' ),
7136 b_deraffinement =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or ( UNIFORME == 'DERAFFINEMENT' )" ,
7137 NIVE_MIN =SIMP(statut='f',typ='I' ),
7140 ANALYSE =FACT(statut='f',min=01,max=01,
7141 regles=(AU_MOINS_UN('QUALITE','INTERPENETRATION'),),
7142 QUALITE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7143 INTERPENETRATION=SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7145 UNITE =SIMP(statut='f',typ='I',defaut= 71 ),
7146 REP =SIMP(statut='f',typ='TXM' ),
7147 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7149 #& MODIF COMMANDE DATE 27/04/98 AUTEUR CIBHHLV L.VIVAN
7150 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'",
7152 GENE =FACT(statut='o',min=01,max='**',
7153 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
7154 'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
7155 EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
7156 'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
7157 EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
7158 'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
7159 EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
7160 EXCLUS('TOUT_CHAM','NOM_CHAM'),
7161 EXCLUS('TOUT_PARA','NOM_PARA'),),
7162 # faut-il faire des blocs selon le type de RESU_GENE
7163 RESU_GENE =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
7164 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
7165 FICHIER =SIMP(statut='f',typ='TXM' ),
7166 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7167 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
7168 LIST_ORDRE =SIMP(statut='f',typ=listis ),
7169 TOUT_MODE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7170 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
7171 INST =SIMP(statut='f',typ='R',max='**'),
7172 LIST_INST =SIMP(statut='f',typ=listr8 ),
7173 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7174 FREQ =SIMP(statut='f',typ='R',max='**'),
7175 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
7176 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
7177 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7178 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
7179 into=("RELATIF","ABSOLU") ),
7181 TOUT_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7182 NUME_CMP_GENE =SIMP(statut='f',typ='I',max='**'),
7183 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7184 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
7185 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7186 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
7187 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
7188 INFO_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7189 INFO_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7192 #& MODIF COMMANDE DATE 16/10/90 AUTEUR INCONNU INCONNU
7193 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-F",
7194 fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
7195 ENTITE =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
7196 into=("DISQUE","MEMOIRE","REPERTOIRE",
7197 "OBJET","ATTRIBUT","SYSTEME") ),
7198 b_objet =BLOC(condition = "(ENTITE=='OBJET')",
7199 NOMOBJ =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
7200 NUMOC =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
7201 NOMOC =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
7203 b_attribut =BLOC(condition = "(ENTITE=='ATTRIBUT')",
7204 NOMOBJ =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
7205 NOMATR =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
7206 into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
7207 '$$LONO','$$LUTI','$$NUM') ),
7209 b_systeme =BLOC(condition = "(ENTITE=='SYSTEME')",
7210 CLASSE =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
7211 NOMATR =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
7212 into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
7213 '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
7214 '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
7215 '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
7217 b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
7218 CLASSE =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
7220 b_disque =BLOC(condition = "(ENTITE=='DISQUE')",
7221 CLASSE =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
7223 IMPRESSION =FACT(statut='f',min=01,max=01,
7224 NOM =SIMP(statut='f',typ='TXM' ),
7225 UNITE =SIMP(statut='f',typ='I'),
7227 COMMENTAIRE =SIMP(statut='f',typ='TXM' ),
7229 #& MODIF COMMANDE DATE 09/09/98 AUTEUR ACBHHCD G.DEVESA
7230 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",
7232 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
7233 FICHIER =SIMP(statut='f',typ='TXM' ),
7234 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
7235 into=("MISS_3D","IDEAS","CADYRO",) ),
7236 b_ideas =BLOC(condition = "FORMAT == 'IDEAS'",
7237 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
7239 b_miss_3d =BLOC(condition = "FORMAT == 'MISS_3D'",
7240 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
7241 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
7242 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
7243 GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
7244 # Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
7245 GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
7246 GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
7247 GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
7248 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7249 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7251 b_cadyro =BLOC(condition = "FORMAT == 'CADYRO'",
7252 SQUELETTE =SIMP(statut='f',typ=squelette ),
7253 UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
7254 UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
7255 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 28 ),
7256 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7257 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7261 #& MODIF COMMANDE DATE 07/04/98 AUTEUR CIBHHGB G.BERTRAND
7262 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",
7264 regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
7266 MATR_ELEM =FACT(statut='f',min=01,max='**',
7267 FICHIER =SIMP(statut='f',typ='TXM' ),
7268 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
7269 into=("IDEAS","RESULTAT") ),
7270 b_format =BLOC(condition = "FORMAT == 'IDEAS'",
7271 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
7273 # créer les types matr_elem et vect_elem
7274 MATRICE =SIMP(statut='o',typ=(matr_elem, vect_elem)),
7275 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
7276 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7277 NOEUD =SIMP(statut='f',typ=no,max='**'),
7278 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
7279 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7280 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7281 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
7282 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
7283 into=("VALEUR","NOEUD","MAILLE") ),
7284 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
7286 MATR_ASSE =FACT(statut='f',min=01,max='**',
7287 FICHIER =SIMP(statut='f',typ='TXM' ),
7288 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
7289 into=("IDEAS","RESULTAT") ),
7290 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
7291 # créer le type matr_elem
7292 MATRICE =SIMP(statut='o',typ=matr_asse),
7293 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
7294 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7295 NOEUD =SIMP(statut='f',typ=no,max='**'),
7296 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
7297 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7298 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7299 OPTION =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
7300 into=("SOUS_MATRICE","LIGNE","COLONNE") ),
7301 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
7302 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
7303 into=("VALEUR","NOEUD") ),
7304 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
7305 VALE_ZERO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7308 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
7309 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",
7311 regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
7312 PRESENT_PRESENT('INST_INIT','INST_FIN'),
7313 PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
7314 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
7315 EXCIT =FACT(statut='f',min=01,max='**',
7316 regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
7317 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
7318 FONC_MULT =SIMP(statut='f',typ=fonction ),
7319 COEF_MULT =SIMP(statut='f',typ='R' ),
7321 EXCIT_SOL =FACT(statut='f',min=01,max='**',
7322 DIRECTION =SIMP(statut='o',typ='R',max='**'),
7323 FONC_SIGNAL =SIMP(statut='f',typ=fonction ),
7324 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",
7325 into=("DEPL","VITE","ACCE","FORC",) ),
7327 INST_INIT =SIMP(statut='f',typ='R' ),
7328 INST_FIN =SIMP(statut='f',typ='R' ),
7329 FREQ_INIT =SIMP(statut='f',typ='R' ),
7330 FREQ_FIN =SIMP(statut='f',typ='R' ),
7331 PAS =SIMP(statut='o',typ='R' ),
7332 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
7333 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
7334 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7336 #& MODIF COMMANDE DATE 19/06/2000 AUTEUR DURAND C.DURAND
7337 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-E",
7338 fr="Impression du résultat d un calcul (différents formats)",
7339 MODELE =SIMP(statut='f',typ=modele),
7340 RESU =FACT(statut='o',min=01,max='**',
7341 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
7342 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED") ),
7344 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
7345 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
7348 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
7349 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
7352 regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
7353 EXCLUS('CHAM_GD','RESULTAT'),),
7354 MAILLAGE =SIMP(statut='f',typ=(maillage,squelette)),
7355 INFO_MAILLAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7356 CHAM_GD =SIMP(statut='f',typ=cham_gd),
7357 RESULTAT =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
7359 b_extrac =BLOC(condition="RESULTAT != None",
7360 fr="extraction d un champ de grandeur",
7361 regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
7362 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
7363 'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
7364 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
7365 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
7367 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7368 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
7369 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
7370 LIST_ORDRE =SIMP(statut='f',typ=listis),
7371 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
7372 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
7373 ANGL =SIMP(statut='f',typ='R',max='**'),
7374 FREQ =SIMP(statut='f',typ='R',max='**'),
7375 LIST_FREQ =SIMP(statut='f',typ=listr8),
7376 INST =SIMP(statut='f',typ='R',max='**'),
7377 LIST_INST =SIMP(statut='f',typ=listr8),
7379 b_acce_reel =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
7380 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
7381 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7385 b_parametres =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
7386 regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
7387 INFO_RESU =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7388 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
7389 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
7390 FORM_TABL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7393 b_cmp =BLOC(condition="""(RESULTAT != None)and((FORMAT == 'RESULTAT')or(FORMAT == 'ENSIGHT'))""",
7394 fr="sélection des composantes",
7395 regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
7396 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7397 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
7400 b_topologie =BLOC(condition="""(RESULTAT != None)and((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS'))""",
7401 fr="sélection des entités toplogiques",
7402 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7403 NOEUD =SIMP(statut='f',typ=no,max='**'),
7404 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
7405 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7406 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7409 b_valeurs =BLOC(condition="(FORMAT == 'RESULTAT')",
7410 fr="sélection sur les valeurs",
7411 VALE_MAX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7412 VALE_MIN =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7413 BORNE_SUP =SIMP(statut='f',typ='R'),
7414 BORNE_INF =SIMP(statut='f',typ='R'),
7415 IMPR_COOR =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7416 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
7419 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
7420 FICHIER =SIMP(statut='f',typ='TXM'),
7422 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7424 #& MODIF COMMANDE DATE 18/04/2000 AUTEUR D6BHHBQ B.QUINNEZ
7425 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
7427 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
7428 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
7429 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
7430 fr="Type d analyse" ),
7431 b_dynamique =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
7432 fr="Recheche du nombre de fréquences propres",
7433 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
7434 FREQ_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
7436 b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
7437 fr="Recherche du nombre de charges critiques",
7438 CHAR_CRIT_MIN =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
7439 CHAR_CRIT_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
7441 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
7442 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
7443 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
7444 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
7445 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
7447 #& MODIF COMMANDE DATE 22/07/99 AUTEUR CIBHHLV L.VIVAN
7448 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-C",
7449 fr="Impression d un concept de type table",
7450 TABLE =SIMP(statut='o',typ=table),
7451 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
7452 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",
7453 into=("EXCEL","AGRAF","MOT_CLE","TABLEAU") ),
7454 FILTRE =FACT(statut='f',min=01,max='**',
7455 NOM_PARA =SIMP(statut='o',typ='TXM'),
7456 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
7457 into=("EQ","LT","GT","NE","LE","GE","VIDE",
7458 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
7459 VALE =SIMP(statut='f',typ='R'),
7460 VALE_I =SIMP(statut='f',typ='I'),
7461 VALE_C =SIMP(statut='f',typ='C'),
7462 VALE_K =SIMP(statut='f',typ='TXM'),
7463 VALE_CO =SIMP(statut='f',typ=geom),
7464 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7465 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7467 TRI =FACT(statut='f',min=01,max=01,
7468 NOM_PARA =SIMP(statut='o',typ='TXM',max='**'),
7469 ORDRE =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
7470 into=("CROISSANT","DECROISSANT") ),
7472 PAGINATION =SIMP(statut='f',typ='TXM',max='**'),
7473 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
7474 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
7475 into=("MODULE_PHASE","REEL_IMAG") ),
7476 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
7477 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",)),
7478 IMPR_FONCTION =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7480 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
7481 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-e",
7482 fr="Débranchement vers un fichier de commandes secondaires",
7483 sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
7484 UNITE = SIMP(statut='o',typ='I'),
7485 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
7487 #& MODIF COMMANDE DATE 07/02/2001 AUTEUR DURAND C.DURAND
7488 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
7490 sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
7491 NOM_AFNOR =SIMP(statut='o',typ='TXM' ),
7492 TYPE_MODELE =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
7493 VARIANTE =SIMP(statut='o',typ='TXM',
7494 into=("A","B","C","D","E","F","G","H","I","J",
7495 "K","L","M","N","O","P","Q","R","S","T","U","V",
7496 "W","X","Y","Z",) ),
7497 TYPE_VALE =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
7498 NOM_MATER =SIMP(statut='o',typ='TXM' ),
7499 UNITE =SIMP(statut='f',typ='I',defaut= 32 ),
7500 EXTRACTION =FACT(statut='f',min=01,max=99,
7501 COMPOR =SIMP(statut='o',typ='TXM' ),
7502 TEMP_EVAL =SIMP(statut='o',typ='R' ),
7504 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7506 #& MODIF COMMANDE DATE 08/03/2000 AUTEUR CIBHHPD P.DAVID
7507 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-E",
7508 fr="Définition d une courbe sur un maillage 2D",reentrant='n',
7509 regles=(EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
7510 EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
7511 EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
7512 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
7513 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7514 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7515 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7516 DEFI_SEGMENT =FACT(statut='f',min=01,max='**',
7517 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
7518 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
7519 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2 ),
7520 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
7521 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
7522 EXTREMITE =SIMP(statut='f',typ='R',max='**'),
7523 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
7524 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
7526 DEFI_ARC =FACT(statut='f',min=01,max='**',
7527 regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
7528 UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
7529 UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
7530 PRESENT_PRESENT('RAYON','SECTEUR'),),
7531 CENTRE =SIMP(statut='f',typ='R',max='**' ),
7532 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
7533 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
7534 RAYON =SIMP(statut='f',typ='R',max=1),
7535 SECTEUR =SIMP(statut='f',typ='R',min=2,max=2),
7536 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2),
7537 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
7538 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
7539 EXTREMITE =SIMP(statut='f',typ='R',min=2,max=2),
7540 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
7541 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
7542 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7543 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
7544 into=("RELATIF","ABSOLU",) ),
7546 DEFI_CHEMIN =FACT(statut='f',min=01,max='**',
7547 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
7548 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7549 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7551 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
7552 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
7553 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
7554 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
7556 #& MODIF COMMANDE DATE 08/03/2000 AUTEUR CIBHHPD P.DAVID
7557 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-E",
7558 fr="Définition d un chemin sur un maillage 3D",reentrant='n',
7559 MAILLAGE =SIMP(statut='o',typ=maillage),
7560 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7561 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7562 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7563 DEFI_SEGMENT =FACT(statut='o',min=01,max='**',
7564 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
7565 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
7566 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
7567 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
7568 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
7569 EXTREMITE =SIMP(statut='f',typ='R',min=3,max=3),
7570 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
7571 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
7573 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
7574 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
7576 #& MODIF COMMANDE DATE 02/02/2000 AUTEUR UFBHHGN G.NICOLAS
7577 def lire_champ_prod(TYPE=None,**args):
7578 if TYPE == "CHAM_NO_TEMP_R" : return cham_no_temp_r
7579 if TYPE == "CHAM_NO_DEPL_R" : return cham_no_depl_r
7580 raise AsException("type de concept resultat non prevu")
7582 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
7583 fr="Lire un champ dans un fichier et le stocker dans un concept.",
7584 docu="U7.02.02-A",reentrant='n',
7586 # 1. Le maillage support du champ
7588 MAILLAGE =SIMP(statut='o',typ=maillage ),
7590 # 2. Format de lecture
7591 # Remarque : seul MED est operationnel dans cette version.
7593 FORMAT =SIMP(statut='o',typ='TXM',defaut="MED",into=("MED",) ),
7595 # 3. L'unite logique du fichier.
7597 UNITE =SIMP(statut='f',typ='I',defaut= 81 ),
7599 # 3. Pour le format MED, il faut preciser le nom sous lequel le champ est connu dans le fichier
7601 b_format =BLOC(condition = "FORMAT == 'MED'",
7602 fr="Nom du champ dans le fichier MED",
7603 NOM_MED =SIMP(statut='o',typ='TXM' ),),
7605 # 4. Le type du concept lu
7607 TYPE =SIMP(statut='o',typ='TXM',into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R") ),
7609 # 5. Le niveau d'information
7611 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7613 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
7614 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op= 83,sd_prod=fonction,
7615 fr="Lecture d une fonction dans un fichier ",
7616 docu="U4.32.02-E",reentrant='n',
7617 UNITE =SIMP(statut='o',typ='I' ),
7618 NOM_PARA =SIMP(statut='f',typ='TXM',
7619 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
7620 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
7621 NOM_RESU =SIMP(statut='f',typ='TXM' ),
7622 INTERPOL =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
7623 PROL_DROIT =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7624 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7625 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',
7626 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
7627 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
7628 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
7629 PROL_DROIT_FONC =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7630 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7631 INFO =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
7632 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7634 #& MODIF COMMANDE DATE 11/02/98 AUTEUR SABJLMA P.LATRUBESSE
7635 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
7636 fr="Lecture sur un fichier externe de fonctions complexes pour créer une matrice interspectrale",
7637 docu="U4.36.01-E",reentrant='n',
7638 UNITE =SIMP(statut='o',typ='I' ),
7639 FORMAT =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
7640 NOM_PARA =SIMP(statut='f',typ='TXM',
7641 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
7642 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
7643 NOM_RESU =SIMP(statut='f',typ='TXM' ),
7644 INTERPOL =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
7645 PROL_DROIT =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7646 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
7647 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7648 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7650 #& MODIF COMMANDE DATE 19/06/2000 AUTEUR DURAND C.DURAND
7651 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op= 1,sd_prod=maillage,
7652 fr="Lecture d un fichier de maillage",
7653 docu="U4.21.01-F",reentrant='n',
7654 UNITE =SIMP(statut='f',typ='I',defaut= 20 ),
7655 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED") ),
7656 ABSC_CURV =FACT(statut='f',min=00,max=01,
7657 TOUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7659 VERI_MAIL =FACT(statut='d',min=01,max=01,
7660 APLAT =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7662 INFO_MED =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7663 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7665 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
7666 def lire_miss_3d_prod(TYPE_RESU,**args):
7667 if TYPE_RESU == "TRANS" : return dyna_trans
7668 if TYPE_RESU == "HARMO" : return dyna_harmo
7669 raise AsException("type de concept resultat non prevu")
7671 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
7672 fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
7673 docu="U7.02.31-C",reentrant='n',
7674 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
7675 UNITE =SIMP(statut='f',typ='I',defaut= 27 ),
7676 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
7677 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7679 #& MODIF COMMANDE DATE 08/09/98 AUTEUR CIBHHLV L.VIVAN
7680 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
7682 docu="U7.02.11-A",reentrant='n',
7683 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
7684 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
7685 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
7686 MAIL_PLEXUS =SIMP(statut='o',typ=maillage ),
7687 MAILLAGE =SIMP(statut='o',typ=maillage ),
7688 MODELE =SIMP(statut='o',typ=modele ),
7689 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7690 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
7691 LIST_ORDRE =SIMP(statut='f',typ=listis ),
7692 INST =SIMP(statut='f',typ='R',max='**'),
7693 LIST_INST =SIMP(statut='f',typ=listr8 ),
7694 b_prec_crit =BLOC(condition = "LIST_INST != None or INST != None",
7695 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7696 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
7697 into=("RELATIF","ABSOLU") ),
7699 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7701 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHLV L.VIVAN
7702 def lire_resu_prod(TYPE_RESU,**args):
7703 if TYPE_RESU == "EVOL_CHAR" : return evol_char
7704 if TYPE_RESU == "EVOL_THER" : return evol_ther
7705 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
7706 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
7707 if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
7708 if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
7709 if TYPE_RESU == "HARM_GENE" : return harm_gene
7710 raise AsException("type de concept resultat non prevu")
7712 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-C",reentrant='n',
7713 fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier au format universel DEAS ou au format EnSight",
7714 regles=(UN_PARMI('MAILLAGE','MODELE'),),
7715 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS","ENSIGHT","MED") ),
7716 b_unite =BLOC(condition="FORMAT=='IDEAS'",
7717 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
7719 b_nom_fichier =BLOC(condition="FORMAT=='ENSIGHT'",
7720 NOM_FICHIER =SIMP(statut='f',typ='TXM'),
7722 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI",
7723 "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
7724 b_evol_elas =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
7725 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("DEPL",) ),
7727 b_evol_ther =BLOC(condition="TYPE_RESU=='EVOL_THER'",
7728 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","TEMP_PEAU") ),
7730 b_evol_char =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
7731 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("PRES",) ),
7733 b_evol_noli =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
7734 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","VARI_ELNO","SIEF_ELNO","EPSA_ELNO") ),
7736 b_dyna =BLOC(condition="(TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or(TYPE_RESU=='HARM_GENE')",
7737 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE",) ),
7739 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
7740 MAILLAGE =SIMP(statut='f',typ=maillage),
7741 MODELE =SIMP(statut='f',typ=modele),
7742 NB_VARI =SIMP(statut='f',typ='I' ),
7743 FORMAT_IDEAS =FACT(statut='f',min=01,max='**',
7744 regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
7745 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
7746 "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU") ),
7747 NUME_DATASET =SIMP(statut='f',typ='I',into=(55,57,2414) ),
7748 RECORD_3 =SIMP(statut='f',typ='I',max='**'),
7749 RECORD_6 =SIMP(statut='f',typ='I',max='**'),
7750 RECORD_9 =SIMP(statut='f',typ='I',max='**'),
7751 POSI_ORDRE =SIMP(statut='o',typ='I',max='**'),
7752 POSI_INST =SIMP(statut='f',typ='I',max='**'),
7753 POSI_FREQ =SIMP(statut='f',typ='I',max='**'),
7754 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
7756 b_extrac =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
7757 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
7758 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7759 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
7760 INST =SIMP(statut='f',typ='R',max='**'),
7761 LIST_INST =SIMP(statut='f',typ=listr8),
7762 LIST_ORDRE =SIMP(statut='f',typ=listis),
7763 FREQ =SIMP(statut='f',typ='R',max='**'),
7764 LIST_FREQ =SIMP(statut='f',typ=listr8),
7766 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
7767 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
7768 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7771 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7773 #& MODIF COMMANDE DATE 19/06/2000 AUTEUR DURAND C.DURAND
7774 def macr_adap_mail_prod(self,MAJ_CHAMP,ADAPTATION,**args):
7775 mail1=ADAPTATION['MAILLAGE_N']
7776 self.type_sdprod(mail1,maillage)
7777 mail2=ADAPTATION['MAILLAGE_NP1']
7778 self.type_sdprod(mail2,maillage)
7779 if MAJ_CHAMP == None:return None
7780 for ch in MAJ_CHAMP:
7782 if t == 'CHAM_NO_TEMP_R':self.type_sdprod(ch['CHAMP_MAJ'],cham_no_temp_r)
7783 if t == 'CHAM_NO_DEPL_R':self.type_sdprod(ch['CHAMP_MAJ'],cham_no_depl_r)
7786 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
7787 fr="Adapter un maillage avec le logiciel HOMARD.",
7789 VERSION_HOMARD =SIMP(statut='f',typ='TXM',defaut="V3_15",
7790 into=("V3_15","V3_N","V3_N_PERSO",) ),
7791 ADAPTATION =FACT(statut='o',min=01,max=01,
7793 UN_PARMI('LIBRE','UNIFORME'),
7795 LIBRE =SIMP(statut='f',typ='TXM',
7796 into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT") ),
7797 UNIFORME =SIMP(statut='f',typ='TXM',
7798 into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
7799 MAILLAGE_N =SIMP(statut='o',typ=(CO,maillage) ),
7800 MAILLAGE_NP1 =SIMP(statut='o',typ=(CO,maillage) ),
7801 b_adaptation_libre =BLOC( condition = " LIBRE != None " ,
7802 fr="Indicateur d erreur",
7803 RESULTAT_N =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther ) ),
7804 INDICATEUR =SIMP(statut='o',typ='TXM',
7805 into=("ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2","ERRE_ELGA_NORE") ),
7806 NOM_CMP_INDICA =SIMP(statut='f',typ='TXM',defaut="ERREST",
7807 into=("ERREST","NUEST") ),
7808 NUME_ORDRE =SIMP(statut='f',typ='I' ),
7810 b_raffinement_libre =BLOC( condition = "( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' )" ,
7811 fr="Critère de raffinement.",
7812 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
7813 CRIT_RAFF_ABS =SIMP(statut='f',typ='R' ),
7814 CRIT_RAFF_REL =SIMP(statut='f',typ='R' ),
7815 CRIT_RAFF_PE =SIMP(statut='f',typ='R' ),
7817 b_deraffinement_libre =BLOC ( condition = "( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' )" ,
7818 fr="Crit\350re de déraffinement.",
7819 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
7820 CRIT_DERA_ABS =SIMP(statut='f',typ='R' ),
7821 CRIT_DERA_REL =SIMP(statut='f',typ='R' ),
7822 CRIT_DERA_PE =SIMP(statut='f',typ='R' ),
7824 b_raffinement =BLOC ( condition = " ( ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) ) or ( ( UNIFORME != None ) and ( UNIFORME == 'RAFFINEMENT' ) ) " ,
7825 NIVE_MAX =SIMP(statut='f',typ='I' ),
7827 b_deraffinement =BLOC ( condition = " ( ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) ) or ( ( UNIFORME != None ) and ( UNIFORME == 'DERAFFINEMENT' ) ) " ,
7828 NIVE_MIN =SIMP(statut='f',typ='I' ),
7831 MAJ_CHAMP =FACT(statut='f',min=01,max='**',
7832 RESULTAT =SIMP(statut='o',
7833 typ=(evol_elas,evol_noli,evol_ther) ),
7834 NOM_CHAM =SIMP(statut='o',typ='TXM' ),
7835 NUME_ORDRE =SIMP(statut='f',typ='I' ),
7836 CHAMP_MAJ =SIMP(statut='o',typ=(CO,cham_gd)),
7837 TYPE_CHAMP =SIMP(statut='o',typ='TXM',
7838 into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R") ),
7840 QUALITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7841 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7842 MENAGE =SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
7843 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7845 #& MODIF COMMANDE DATE 20/10/2000 AUTEUR F1BHHAJ J.ANGLES
7846 def macr_ascouf_calc_prod(self,MODELE,**args):
7847 self.type_sdprod(MODELE,modele)
7850 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
7852 docu="U4.CF.20-A",reentrant='n',
7853 regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
7854 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
7859 CL_BOL_P2_GV =FACT(statut='f',min=01,max=01,
7860 ANGLE =SIMP(statut='o',typ='R' ),
7861 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
7863 MAILLAGE =SIMP(statut='o',typ=maillage ),
7864 MODELE =SIMP(statut='o',typ=(CO,modele)),
7865 AFFE_MATERIAU =FACT(statut='o',min=01,max=03,
7866 regles=(UN_PARMI('TOUT','GROUP_MA'),),
7867 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7868 GROUP_MA =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
7869 MATER =SIMP(statut='o',typ=mater ),
7870 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7872 PRES_REP =FACT(statut='f',min=01,max=01,
7873 PRES =SIMP(statut='o',typ='R' ),
7874 EFFE_FOND_P1 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7875 FONC_MULT =SIMP(statut='f',typ=fonction ),
7877 ECHANGE =FACT(statut='f',min=01,max=01,
7878 COEF_H =SIMP(statut='f',typ=fonction ),
7879 TEMP_EXT =SIMP(statut='f',typ=fonction ),
7881 TORS_P1 =FACT(statut='f',min=01,max=06,
7882 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
7883 FX =SIMP(statut='f',typ='R' ),
7884 FY =SIMP(statut='f',typ='R' ),
7885 FZ =SIMP(statut='f',typ='R' ),
7886 MX =SIMP(statut='f',typ='R' ),
7887 MY =SIMP(statut='f',typ='R' ),
7888 MZ =SIMP(statut='f',typ='R' ),
7889 FONC_MULT =SIMP(statut='f',typ=fonction ),
7891 COMP_INCR =FACT(statut='f',min=01,max=01,
7892 RELATION =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
7893 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
7895 COMP_ELAS =FACT(statut='f',min=01,max=01,
7896 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
7897 ELAS =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
7898 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
7900 SOLVEUR =FACT(statut='d',min=01,max=01,
7901 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
7902 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
7903 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
7905 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
7906 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
7907 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
7909 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
7910 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
7911 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
7912 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7914 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
7915 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
7916 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
7917 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
7918 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
7919 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
7922 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7923 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7925 CONVERGENCE =FACT(statut='d',min=01,max=01,
7926 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
7927 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
7928 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
7929 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
7930 RESI_INTE_RELA =SIMP(statut='f',typ='R'
7932 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
7933 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
7934 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
7935 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
7937 NEWTON =FACT(statut='d',min=01,max=01,
7938 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
7939 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
7940 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
7941 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
7942 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
7944 RECH_LINEAIRE =FACT(statut='f',min=01,max=01,
7945 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7946 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
7948 INCREMENT =FACT(statut='o',min=01,max=01,
7949 LIST_INST =SIMP(statut='o',typ=listr8 ),
7950 NUME_INST_INIT =SIMP(statut='f',typ='I' ),
7951 NUME_INST_FIN =SIMP(statut='f',typ='I' ),
7953 THETA_3D =FACT(statut='f',min=01,max='**',
7954 R_INF =SIMP(statut='o',typ='R' ),
7955 R_SUP =SIMP(statut='o',typ='R' ),
7957 IMPR_TABLE =FACT(statut='f',min=01,max=01,
7958 regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
7959 PRESENT_PRESENT('TOUT_PARA','ANGLE', ),
7960 UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
7961 NOM_PARA =SIMP(statut='f',typ='TXM',max=04,
7962 into=("TRESCA_MEMBRANE",
7967 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7968 ANGLE =SIMP(statut='f',typ='R',max='**' ),
7969 R_CINTR =SIMP(statut='f',typ='R',max='**' ),
7970 POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
7971 POSI_ANGUL =SIMP(statut='f',typ='R',max='**' ),
7973 IMPRESSION =FACT(statut='f',min=01,max=01,
7974 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
7975 into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
7976 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=(4,5) ),
7978 TITRE =SIMP(statut='f',typ='TXM' ),
7979 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
7981 #& MODIF COMMANDE DATE 02/10/2000 AUTEUR F1BHHAJ J.ANGLES
7982 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
7983 fr=" ",docu="U4.CF.10-A",reentrant='n',
7984 regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
7985 EXEC_MAILLAGE =FACT(statut='o',min=01,max=01,
7986 LOGICIEL =SIMP(statut='o',typ='TXM',into=("GIBI",) ),
7987 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
7988 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
7989 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
7991 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
7992 COUDE =FACT(statut='o',min=01,max=01,
7993 regles=( UN_PARMI('DEXT', 'DEXT_T1'),
7994 ENSEMBLE('DEXT', 'EPAIS'),
7995 ENSEMBLE('DEXT_T1', 'EPAIS_T1', 'EPAIS_T2',
7997 ENSEMBLE('EPAIS_TI', 'ANGL_TETA2'),
7998 PRESENT_ABSENT('ABSC_CURV_TRAN', 'POSI_ANGU_TRAN'),
7999 PRESENT_PRESENT('ABSC_CURV_TRAN', 'DEXT_T1'),
8000 PRESENT_PRESENT('POSI_ANGU_TRAN', 'DEXT_T1'),
8001 PRESENT_PRESENT('EPAIS_TI', 'DEXT_T1'),
8002 PRESENT_ABSENT('DEXT_T1', 'SUR_EPAIS'),
8003 PRESENT_ABSENT('DEXT_T1', 'BOL_P2'),),
8004 ANGLE =SIMP(statut='o',typ='R' ),
8005 R_CINTR =SIMP(statut='o',typ='R' ),
8006 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
8007 L_TUBE_P2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8008 SUR_EPAIS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8009 BOL_P2 =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
8010 NB_ELEM_EPAIS =SIMP(statut='f',typ='I',defaut= 3 ),
8011 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8012 TRANSFORMEE =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
8013 TRAN_EPAIS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8014 DEXT =SIMP(statut='f',typ='R' ),
8015 EPAIS =SIMP(statut='f',typ='R' ),
8016 DEXT_T1 =SIMP(statut='f',typ='R' ),
8017 EPAIS_T1 =SIMP(statut='f',typ='R' ),
8018 EPAIS_T2 =SIMP(statut='f',typ='R' ),
8019 EPAIS_TI =SIMP(statut='f',typ='R' ),
8020 ANGL_TETA1 =SIMP(statut='f',typ='R' ),
8021 ANGL_TETA2 =SIMP(statut='f',typ='R' ),
8022 ABSC_CURV_TRAN =SIMP(statut='f',typ='R' ),
8023 POSI_ANGU_TRAN =SIMP(statut='f',typ='R' ),
8025 SOUS_EPAIS_COUDE=FACT(statut='f',min=01,max=01,
8026 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
8027 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
8028 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
8029 AXE_CIRC =SIMP(statut='f',typ='R' ),
8030 AXE_LONGI =SIMP(statut='o',typ='R' ),
8031 PROFONDEUR =SIMP(statut='o',typ='R' ),
8032 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
8033 POSI_ANGUL =SIMP(statut='f',typ='R' ),
8034 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
8035 AZIMUT =SIMP(statut='f',typ='R' ),
8036 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
8037 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
8038 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
8039 NB_ELEM_RADI =SIMP(statut='f',typ='I',defaut= 3 ),
8040 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8042 SOUS_EPAIS_MULTI=FACT(statut='f',min=01,max='**',
8043 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
8044 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
8045 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
8046 AXE_CIRC =SIMP(statut='f',typ='R' ),
8047 AXE_LONGI =SIMP(statut='o',typ='R' ),
8048 PROFONDEUR =SIMP(statut='o',typ='R' ),
8049 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
8050 POSI_ANGUL =SIMP(statut='f',typ='R' ),
8051 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
8052 AZIMUT =SIMP(statut='f',typ='R' ),
8053 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
8054 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
8055 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
8056 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8058 FISS_COUDE =FACT(statut='f',min=01,max=01,
8059 regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
8060 AXIS =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
8061 PROFONDEUR =SIMP(statut='o',typ='R' ),
8062 LONGUEUR =SIMP(statut='o',typ='R' ),
8063 ABSC_CURV =SIMP(statut='f',typ='R' ),
8064 POSI_ANGUL =SIMP(statut='f',typ='R' ),
8065 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
8066 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
8067 ORIEN =SIMP(statut='o',typ='R',
8068 into=(45.,-45.,90.,0.E+0) ),
8069 NB_TRANCHE =SIMP(statut='o',typ='I' ),
8070 NB_SECTEUR =SIMP(statut='o',typ='I' ),
8071 NB_COURONNE =SIMP(statut='o',typ='I' ),
8072 RAYON_TORE =SIMP(statut='f',typ='R' ),
8073 COEF_MULT_RC2 =SIMP(statut='f',typ='R',defaut= 1. ),
8074 COEF_MULT_RC3 =SIMP(statut='f',typ='R' ),
8075 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.5 ),
8077 IMPRESSION =FACT(statut='f',min=01,max='**',
8078 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
8079 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",
8080 into=("ASTER","IDEAS","CASTEM") ),
8081 FICHIER =SIMP(statut='f',typ='TXM' ),
8082 UNITE =SIMP(statut='f',typ='I' ),
8083 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=(4,5) ),
8084 NIVE_GIBI =SIMP(statut='f',typ='I',defaut= 10,into=(3,10) ),
8086 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
8088 #& MODIF COMMANDE DATE 20/10/2000 AUTEUR F1BHHAJ J.ANGLES
8089 def macr_aspic_calc_prod(self,RESU_THER,MODELE,**args):
8090 if MODELE != None:self.type_sdprod(MODELE,modele)
8091 if RESU_THER != None:self.type_sdprod(RESU_THER,evol_ther)
8094 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
8095 fr=" ",docu="U4.PC.20-A",reentrant='n',
8096 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
8097 into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
8098 "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
8099 TUBULURE =FACT(statut='f',min=01,max=01,
8100 TYPE =SIMP(statut='f',typ='TXM',defaut="TYPE_1",into=("TYPE_1","TYPE_2") ),
8102 MAILLAGE =SIMP(statut='o',typ=maillage),
8103 MODELE =SIMP(statut='f',typ=(CO,modele)),
8104 RESU_THER =SIMP(statut='f',typ=(CO,evol_ther)),
8105 AFFE_MATERIAU =FACT(statut='o',min=01,max=03,
8106 regles=(UN_PARMI('TOUT','GROUP_MA'),),
8107 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
8108 GROUP_MA =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
8109 MATER =SIMP(statut='o',typ=mater),
8110 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8112 EQUILIBRE =FACT(statut='o',min=01,max=01,
8113 NOEUD =SIMP(statut='o',typ=no),
8115 PRES_REP =FACT(statut='o',min=01,max=01,
8116 PRES =SIMP(statut='o',typ='R'),
8117 NOEUD =SIMP(statut='f',typ=no),
8118 EFFE_FOND =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
8119 FONC_MULT =SIMP(statut='f',typ=fonction),
8121 ECHANGE =FACT(statut='f',min=01,max=01,
8122 COEF_H_TUBU =SIMP(statut='o',typ=fonction),
8123 COEF_H_CORP =SIMP(statut='o',typ=fonction),
8124 TEMP_EXT =SIMP(statut='o',typ=fonction),
8126 TORS_CORP =FACT(statut='f',min=01,max=06,
8127 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
8128 NOEUD =SIMP(statut='o',typ=no),
8129 FX =SIMP(statut='f',typ='R'),
8130 FY =SIMP(statut='f',typ='R'),
8131 FZ =SIMP(statut='f',typ='R'),
8132 MX =SIMP(statut='f',typ='R'),
8133 MY =SIMP(statut='f',typ='R'),
8134 MZ =SIMP(statut='f',typ='R'),
8135 FONC_MULT =SIMP(statut='f',typ=fonction),
8137 TORS_TUBU =FACT(statut='f',min=01,max=06,
8138 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
8139 FX =SIMP(statut='f',typ='R'),
8140 FY =SIMP(statut='f',typ='R'),
8141 FZ =SIMP(statut='f',typ='R'),
8142 MX =SIMP(statut='f',typ='R'),
8143 MY =SIMP(statut='f',typ='R'),
8144 MZ =SIMP(statut='f',typ='R'),
8145 FONC_MULT =SIMP(statut='f',typ=fonction),
8147 COMP_ELAS =FACT(statut='o',min=01,max=01,
8148 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC")),
8149 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8150 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8152 THETA_3D =FACT(statut='f',min=01,max='**',
8153 R_INF =SIMP(statut='o',typ='R'),
8154 R_SUP =SIMP(statut='o',typ='R'),
8156 OPTION =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX",) ),
8157 BORNES =FACT(statut='f',min=01,max='**',
8158 NUME_ORDRE =SIMP(statut='o',typ='I'),
8159 VALE_MIN =SIMP(statut='o',typ='R'),
8160 VALE_MAX =SIMP(statut='o',typ='R'),
8162 SOLVEUR =FACT(statut='d',min=01,max=01,
8163 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8164 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8165 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
8167 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8168 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8169 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
8171 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8172 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
8173 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8174 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8176 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8177 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8178 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8179 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8180 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8181 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8182 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8185 CONVERGENCE =FACT(statut='d',min=01,max=01,
8186 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
8187 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
8188 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
8189 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
8190 RESI_INTE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-6),
8191 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut=10),
8192 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut=0),
8193 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
8194 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
8196 NEWTON =FACT(statut='d',min=01,max=01,
8197 REAC_INCR =SIMP(statut='f',typ='I',defaut=1),
8198 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
8199 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
8200 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
8202 RECH_LINEAIRE =FACT(statut='d',min=01,max=01,
8203 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-3),
8204 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut=3),
8206 INCREMENT =FACT(statut='o',min=01,max=01,
8207 LIST_INST =SIMP(statut='o',typ=listr8),
8208 NUME_INST_INIT =SIMP(statut='f',typ='I'),
8209 NUME_INST_FIN =SIMP(statut='f',typ='I'),
8211 PAS_AZIMUT =SIMP(statut='f',typ='I',defaut=1),
8212 IMPRESSION =FACT(statut='f',min=01,max=01,
8213 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT","ASTER","CASTEM","IDEAS")),
8214 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
8215 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
8217 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8218 TITRE =SIMP(statut='f',typ='TXM'),
8220 #& MODIF COMMANDE DATE 01/02/2000 AUTEUR CIBHHBC B.CIREE
8221 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
8222 fr=" ",docu="U4.PC.10-A",
8223 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
8224 RAFF_MAIL =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
8225 EXEC_MAILLAGE =FACT(statut='o',min=01,max=01,
8226 LOGICIEL =SIMP(statut='o',typ='TXM',into=("GIBI",)),
8227 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
8228 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
8229 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
8231 TUBULURE =FACT(statut='o',min=01,max=01,
8232 E_BASE =SIMP(statut='o',typ='R'),
8233 DEXT_BASE =SIMP(statut='o',typ='R'),
8234 L_BASE =SIMP(statut='o',typ='R'),
8235 L_CHANF =SIMP(statut='o',typ='R'),
8236 E_TUBU =SIMP(statut='o',typ='R'),
8237 DEXT_TUBU =SIMP(statut='o',typ='R'),
8238 Z_MAX =SIMP(statut='o',typ='R'),
8239 TYPE =SIMP(statut='f',typ='TXM',defaut="TYPE_1",into=("TYPE_1","TYPE_2")),
8240 L_PENETR =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8242 SOUDURE =FACT(statut='o',min=01,max=01,
8243 H_SOUD =SIMP(statut='o',typ='R'),
8244 ANGL_SOUD =SIMP(statut='o',typ='R'),
8245 JEU_SOUD =SIMP(statut='o',typ='R'),
8247 CORPS =FACT(statut='o',min=01,max=01,
8248 E_CORP =SIMP(statut='o',typ='R'),
8249 DEXT_CORP =SIMP(statut='o',typ='R'),
8250 X_MAX =SIMP(statut='o',typ='R'),
8252 FISS_SOUDURE =FACT(statut='f',min=01,max=01,
8253 TYPE =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
8254 AXIS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8255 PROFONDEUR =SIMP(statut='o',typ='R'),
8256 LONGUEUR =SIMP(statut='f',typ='R'),
8257 AZIMUT =SIMP(statut='o',typ='R'),
8258 RAYON_TORE =SIMP(statut='f',typ='R'),
8259 POSITION =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
8260 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
8261 LIGA_INT =SIMP(statut='f',typ='R'),
8262 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8263 COEF_MULT_RC1 =SIMP(statut='f',typ='R'),
8264 COEF_MULT_RC2 =SIMP(statut='f',typ='R'),
8265 COEF_MULT_RC3 =SIMP(statut='f',typ='R'),
8266 NB_TRANCHE =SIMP(statut='f',typ='I'),
8267 NB_SECTEUR =SIMP(statut='f',typ='I'),
8268 NB_COURONNE =SIMP(statut='f',typ='I'),
8270 IMPRESSION =FACT(statut='f',min=01,max='**',
8271 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
8272 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
8273 FICHIER =SIMP(statut='f',typ='TXM'),
8274 UNITE =SIMP(statut='f',typ='I'),
8275 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
8276 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
8278 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8280 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
8281 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op= 81,sd_prod=macr_elem_dyna,
8282 fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
8283 docu="U4.65.01-D",reentrant='n',
8284 regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
8285 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
8286 MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r ),
8287 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
8288 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
8289 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8290 OPTION =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ") ),
8292 #& MODIF COMMANDE DATE 08/03/94 AUTEUR VABHHT2 G.BERTRAND
8293 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-E",reentrant='f',
8294 fr="Définition d un macro-élément pour l analyse statique par sous structuration",
8295 regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
8296 ENSEMBLE('DEFINITION','EXTERIEUR'),),
8297 DEFINITION =FACT(statut='f',min=1,max=1,
8298 MODELE =SIMP(statut='o',typ=modele),
8299 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
8300 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8301 CHAR_MACR_ELEM =SIMP(statut='f',typ=char_meca),
8302 INST =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
8303 NMAX_CAS =SIMP(statut='f',typ='I',defaut=10),
8304 NMAX_CHAR =SIMP(statut='f',typ='I',defaut=10),
8306 EXTERIEUR =FACT(statut='f',min=1,max=1,
8307 regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
8308 NOEUD =SIMP(statut='f',typ=no,max='**'),
8309 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8311 RIGI_MECA =FACT(statut='f',min=1,max=1,
8312 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
8314 MASS_MECA =FACT(statut='f',min=1,max=1,
8315 BIDO1 =SIMP(statut='f',typ='I',defaut=0),
8317 CAS_CHARGE =FACT(statut='f',min=1,max='**',
8318 NOM_CAS =SIMP(statut='o',typ='TXM'),
8319 SUIV =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
8320 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
8321 INST =SIMP(statut='f',typ='R',defaut=0.E+0),
8324 #& MODIF COMMANDE DATE 15/09/1999 AUTEUR F1BHHAJ J.ANGLES
8325 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
8326 fr=" ",docu="U4.GJ.20-A",reentrant='n',
8327 MAILLAGE =SIMP(statut='o',typ=maillage),
8328 DEFI_GOUJ =FACT(statut='o',min=01,max=01,
8329 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
8330 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
8331 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
8332 FILET_TRONQUE =SIMP(statut='f',typ='I',max='**'),
8333 FILET_TRONQA =SIMP(statut='f',typ='I',max='**'),
8334 FILET_TRONQB =SIMP(statut='f',typ='I',max='**'),
8335 FILET_JEU_HT =SIMP(statut='f',typ='I',max='**'),
8336 FILET_JEU_HTA =SIMP(statut='f',typ='I',max='**'),
8337 FILET_JEU_HTB =SIMP(statut='f',typ='I',max='**'),
8339 EXCIT =FACT(statut='o',min=01,max=01,
8340 TYPE_BLOCAGE =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
8341 FORCE_GOUJ =SIMP(statut='o',typ='R'),
8343 CALCUL =FACT(statut='o',min=01,max=01,
8344 TYPE_CALCUL =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
8345 NB_INCR =SIMP(statut='o',typ='I'),
8347 IMPRESSION =FACT(statut='f',min=01,max=01,
8348 FORMAT =SIMP(statut='f',typ='TXM',defaut="TABLE",
8349 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
8350 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
8352 TITRE =SIMP(statut='f',typ='TXM'),
8353 INFO =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
8355 #& MODIF COMMANDE DATE 02/02/2000 AUTEUR F1BHHAJ J.ANGLES
8356 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
8357 fr=" ",docu="U4.GJ.10-A",reentrant='n',
8358 EXEC_MAILLAGE =FACT(statut='o',min=01,max=01,
8359 LOGICIEL =SIMP(statut='o',typ='TXM',into=("GIBI",) ),
8360 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
8361 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
8362 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
8364 DEFI_GOUJ =FACT(statut='o',min=01,max=01,
8365 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
8366 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
8367 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
8369 GEOM_GOUJ_BRID =FACT(statut='o',min=01,max=01,
8370 NB_FILET =SIMP(statut='o',typ='I'),
8371 H_CORP_BRID =SIMP(statut='o',typ='R'),
8372 R_EXT_BRID =SIMP(statut='o',typ='R'),
8373 H_HAUT_BRID =SIMP(statut='f',typ='R',defaut=0.0E+0),
8374 H_BAS_BRID =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8375 FILET_ABST =SIMP(statut='f',typ='I',max='**'),
8377 IMPRESSION =FACT(statut='f',min=01,max=01,
8378 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
8379 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
8380 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
8381 FICHIER =SIMP(statut='f',typ='TXM'),
8382 UNITE =SIMP(statut='f',typ='I'),
8383 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
8384 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
8386 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8388 #& MODIF COMMANDE DATE 19/06/2000 AUTEUR DURAND C.DURAND
8389 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-A",
8390 fr="Donner des informations sur un maillage.",
8392 # 1. Le nom du maillage a analyser
8394 MAILLAGE =SIMP(statut='o',typ=maillage),
8396 # 2. Determination de la qualite des elements du maillage
8397 # Par defaut, rien ne se fait
8399 QUALITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8401 # 3. Controle de la non-interpenetration des elements
8402 # Par defaut, rien ne se fait
8404 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8408 VERSION_HOMARD =SIMP(statut='f',typ='TXM',defaut="V3_15",into=("V3_15","V3_N","V3_N_PERSO")),
8410 # 5. Le niveau d'information
8412 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8414 #& MODIF COMMANDE DATE 02/06/99 AUTEUR CIBHHLV L.VIVAN
8415 MACR_PRE_SYRTHES=MACRO(nom="MACR_PRE_SYRTHES",op=-21,fr=" ",docu="U7.02.21-A",
8416 MAILLAGE =FACT(statut='d',min=01,max=01,
8417 UNITE_SYRTHES =SIMP(statut='f',typ='I',defaut=13),
8418 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
8420 RESULTAT =FACT(statut='d',min=01,max=01,
8421 UNITE_SYRTHES =SIMP(statut='f',typ='I',defaut=31),
8422 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut= 91 ),
8425 #& MODIF COMMANDE DATE 17/11/1999 AUTEUR CIBHHGB G.BERTRAND
8426 MACRO_CARA_POUTRE=MACRO(nom="MACRO_CARA_POUTRE",op=-11,sd_prod=tabl_cara_geom,
8427 docu="U4.42.02-C",reentrant='n',
8428 fr="Détermination des caractéristiques d'une section transversale de poutre à partir d'un maillage 2D de la section",
8429 regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
8430 EXCLUS('SYME_Y','GROUP_MA_BORD'),
8431 ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
8432 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 20 ),
8433 SYME_X =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8434 SYME_Y =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8435 GROUP_MA_BORD =SIMP(statut='f',typ=grma,max='**'),
8436 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8437 ORIG_INER =SIMP(statut='f',typ='R',max='**'),
8438 NOEUD =SIMP(statut='f',typ=no,max='**'),
8439 GROUP_MA_INTE =SIMP(statut='f',typ=grma,max='**'),
8440 LONGUEUR =SIMP(statut='f',typ='R'),
8441 MATERIAU =SIMP(statut='f',typ=mater),
8442 LIAISON =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
8443 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8445 #& MODIF COMMANDE DATE 30/06/98 AUTEUR CIBHHGB G.BERTRAND
8446 MACRO_CHAR_F_U=MACRO(nom="MACRO_CHAR_F_U",op=-15,sd_prod=char_meca,
8447 fr=" ",docu="U4.72.07-A",reentrant='n',
8448 MODELE =SIMP(statut='o',typ=modele),
8449 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
8450 CHARGE =SIMP(statut='o',typ=char_meca),
8451 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8452 COEF_IMPO =SIMP(statut='f',typ='R',defaut=1.0E+0),
8453 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="APRES",into=("NORMAL","APRES")),
8454 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8456 #& MODIF COMMANDE DATE 05/06/2000 AUTEUR CIBHHLV L.VIVAN
8457 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
8458 self.type_sdprod(NUME_DDL,nume_ddl)
8459 if CAS_CHARGE[0]['NOM_CAS'] != None : return mult_elas
8460 if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
8461 raise AsException("type de concept resultat non prevu")
8463 MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=-10,sd_prod=macro_elas_mult_prod,docu="U4.51.02-C",reentrant='f',
8464 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",
8465 regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
8466 MODELE =SIMP(statut='o',typ=modele),
8467 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
8468 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8469 NUME_DDL =SIMP(statut='f',typ=(CO,nume_ddl)),# CO()
8470 CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
8471 CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
8472 LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
8473 CAS_CHARGE =FACT(statut='o',min=01,max='**',
8474 regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
8475 UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
8476 NOM_CAS =SIMP(statut='f',typ='TXM' ),
8477 MODE_FOURIER =SIMP(statut='f',typ='I' ),
8478 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
8479 CHAR_MECA =SIMP(statut='f',typ=char_meca,max='**'),
8480 CHAR_CINE =SIMP(statut='f',typ=char_meca,max='**'),
8481 OPTION =SIMP(statut='f',typ='TXM',max='**',
8482 into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
8483 "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
8484 "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
8485 "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
8486 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
8487 "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
8488 "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
8489 "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
8490 "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
8491 "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
8492 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
8493 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
8494 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
8495 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
8498 # attention d après la documentation U4-02-04B (solveur), PRE_COND figure uniquement avec la méthode GCPC
8500 SOLVEUR =FACT(statut='d',min=01,max=01,
8501 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
8502 PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
8503 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8504 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
8506 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8507 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8508 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
8510 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8511 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8512 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8513 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8516 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
8517 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8519 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
8520 MACRO_MADMACS=MACRO(nom="MACRO_MADMACS",op=-9,docu="U7.03.21-C",
8521 fr="Impression au format fichier universel IDEAS des données nécessaires au chaînage entre Code_Aster et MADMACS",
8522 regles=(UN_PARMI('MATR_ELEM_RIGI','MATR_RIGI'),
8523 UN_PARMI('MATR_ELEM_MASS','MATR_MASS'),
8524 PRESENT_ABSENT('MATR_ELEM_AMOR','MATR_AMOR'),),
8525 FICHIER =SIMP(statut='f',typ='TXM' ),
8526 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
8527 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(5,)),
8528 MAILLAGE =SIMP(statut='o',typ=maillage),
8529 NUME_DDL =SIMP(statut='o',typ=nume_ddl),
8530 CHARGE =SIMP(statut='o',typ=char_meca,max='**'),
8531 MATR_ELEM_RIGI =SIMP(statut='f',typ=matr_elem_depl_r),
8532 MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r),
8533 MATR_ELEM_MASS =SIMP(statut='f',typ=matr_elem_depl_r),
8534 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r),
8535 MATR_ELEM_AMOR =SIMP(statut='f',typ=matr_elem_depl_r),
8536 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r),
8537 MODE_MECA =SIMP(statut='o',typ=mode_meca),
8538 NMAX_MODE =SIMP(statut='f',typ='I',defaut=10),
8539 INTERFACE =FACT(statut='f',min=01,max='**',
8540 regles=(UN_PARMI('NOEUD','GROUP_NO'),
8541 UN_PARMI('DDL_ACTIF','MASQUE'),),
8542 NOM =SIMP(statut='o',typ='TXM'),
8543 NOEUD =SIMP(statut='f',typ=no,max='**'),
8544 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8545 DDL_ACTIF =SIMP(statut='f',typ='TXM',max='**'),
8546 MASQUE =SIMP(statut='f',typ='TXM',max='**'),
8548 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8550 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
8551 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,**args):
8552 self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
8553 self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
8554 self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
8557 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-B",sd_prod=macro_matr_ajou_prod,
8558 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",
8559 regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
8560 AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
8561 EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),),
8562 MAILLAGE =SIMP(statut='o',typ=maillage),
8563 GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
8564 GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
8565 MODELISATION =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
8566 FLUIDE =FACT(statut='o',min=01,max='**',
8567 RHO =SIMP(statut='o',typ='R'),
8568 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
8569 GROUP_MA =SIMP(statut='f',typ=grma),
8570 MAILLE =SIMP(statut='f',typ=ma),
8572 DDL_IMPO =FACT(statut='o',min=01,max='**',
8573 regles=(UN_PARMI('NOEUD','GROUP_NO'),
8574 UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
8575 NOEUD =SIMP(statut='f',typ=no),
8576 GROUP_NO =SIMP(statut='f',typ=grno),
8577 PRES_FLUIDE =SIMP(statut='f',typ='R'),
8578 PRES_SORTIE =SIMP(statut='f',typ='R'),
8580 ECOULEMENT =FACT(statut='f',min=01,max='**',
8581 GROUP_MA_1 =SIMP(statut='o',typ=grma),
8582 GROUP_MA_2 =SIMP(statut='o',typ=grma),
8583 VNOR_1 =SIMP(statut='o',typ='R'),
8584 VNOR_2 =SIMP(statut='f',typ='R'),
8585 POTENTIEL =SIMP(statut='f',typ=evol_ther),
8587 MODE_MECA =SIMP(statut='f',typ=mode_meca),
8588 DEPL_IMPO =SIMP(statut='f',typ=cham_no_depl_r),
8589 MODELE_GENE =SIMP(statut='f',typ=modele_gene),
8590 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene),
8591 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.0E-2),
8592 MATR_MASS_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
8593 MATR_RIGI_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
8594 MATR_AMOR_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
8595 SOLVEUR =FACT(statut='d',min=01,max=01,
8596 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8597 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8598 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
8600 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8601 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8602 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
8604 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8605 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
8606 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8607 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8609 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8610 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8611 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8612 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8613 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8614 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8617 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8619 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8620 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
8621 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
8623 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
8624 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
8625 if not MATR_ASSE: raise AsException("Impossible de typer les concepts resultats")
8626 if not NUME_DDL: raise AsException("Impossible de typer les concepts resultats")
8627 self.type_sdprod(NUME_DDL,nume_ddl)
8630 if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
8631 "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
8632 "AMOR_MECA","IMPE_MECA" ,
8633 "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
8634 if opti == "RIGI_MECA_HYST" : t= matr_asse_depl_c
8635 if opti == "RIGI_THER" : t= matr_asse_temp_r
8636 if opti == "MASS_THER" : t= matr_asse_temp_r
8637 if opti == "RIGI_THER_CONV" : t= matr_asse_temp_r
8638 if opti == "RIGI_THER_CONV_D" : t= matr_asse_temp_r
8639 if opti == "RIGI_ACOU" : t= matr_asse_pres_c
8640 if opti == "MASS_ACOU" : t= matr_asse_pres_c
8641 if opti == "AMOR_ACOU" : t= matr_asse_pres_c
8642 self.type_sdprod(m['MATRICE'],t)
8645 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=-6,docu="U4.61.21-C",
8646 sd_prod=macro_matr_asse_prod,
8647 fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
8648 MODELE =SIMP(statut='o',typ=modele),
8649 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
8650 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8651 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou)),
8652 INST =SIMP(statut='f',typ='R'),
8653 NUME_DDL =SIMP(statut='o',typ=(nume_ddl,CO)),
8654 SOLVEUR =FACT(statut='d',min=01,max=01,
8655 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
8656 into=("LDLT","MULT_FRONT","GCPC")),
8657 TAILLE_BLOC =SIMP(statut='f',typ='R'),
8658 RENUM =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
8660 MATR_ASSE =FACT(statut='o',min=01,max='**',
8661 MATRICE =SIMP(statut='o',typ=(matr_asse,CO)),
8662 OPTION =SIMP(statut='o',typ='TXM',
8663 into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
8664 "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
8665 "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
8666 "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
8667 "RIGI_THER","MASS_THER","RIGI_ACOU","MASS_ACOU",
8669 SIEF_ELGA =SIMP(statut='f',typ=cham_elem_sief_r),
8670 MODE_FOURIER =SIMP(statut='f',typ='I'),
8671 THETA =SIMP(statut='f',typ=theta_geom),
8672 PROPAGATION =SIMP(statut='f',typ='R'),
8674 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8675 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8677 #& MODIF COMMANDE DATE 02/02/99 AUTEUR ACBHHCD G.DEVESA
8678 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=-18,fr=" ",docu="U7.03.11-A",
8679 OPTION =FACT(statut='o',min=01,max=01,
8680 regles=(UN_PARMI('TOUT','MODULE'),),
8681 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
8682 MODULE =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
8684 PROJET =SIMP(statut='o',typ='TXM'),
8685 REPERTOIRE =SIMP(statut='f',typ='TXM'),
8686 UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
8687 UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
8688 UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
8689 UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
8691 #& MODIF COMMANDE DATE 04/04/2000 AUTEUR D6BHHBQ B.QUINNEZ
8692 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
8693 self.type_sdprod(MATR_A,matr_asse_depl_r)
8694 self.type_sdprod(MATR_B,matr_asse_depl_r)
8697 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op= -12,sd_prod=macro_mode_meca_prod,
8698 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",
8699 docu="U4.52.02-C",reentrant='n',
8700 MATR_A =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
8701 MATR_B =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
8702 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
8703 # ce mot cle ne devrait il pas etre dans calc_freq
8704 METHODE =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
8705 into=("TRI_DIAG","JACOBI","SORENSEN",) ),
8706 OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",
8707 into=("MODE_RIGIDE","SANS") ),
8708 CALC_FREQ =FACT(statut='d',min=00,max=01,
8709 regles=(UN_PARMI('FREQ','FREQ_MAX'),
8710 PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
8711 PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),),
8712 FREQ =SIMP(statut='f',typ='R',max='**' ),
8713 FREQ_MIN =SIMP(statut='f',typ='R' ),
8714 FREQ_MAX =SIMP(statut='f',typ='R' ),
8715 NB_BLOC_FREQ =SIMP(statut='f',typ='I' ),
8716 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
8717 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I',defaut= 0 ),
8718 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
8719 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
8720 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
8721 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
8722 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
8723 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
8724 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30 ),
8725 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.4E-10 ),
8726 NMAX_ITER_BATHE =SIMP(statut='f',typ='I' ,defaut= 12 ),
8727 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
8728 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
8729 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E0 ),
8730 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
8731 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
8732 SEUIL_FREQ =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
8733 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
8735 VERI_MODE =FACT(statut='d',min=00,max=01,
8736 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8737 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8738 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
8739 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8741 NORM_MODE =FACT(statut='o',min=01,max='**',
8742 MASS_INER =SIMP(statut='o',typ=tabl_mass_iner ),
8743 NORME =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
8744 into=("MASS_GENE","RIGI_GENE","EUCL",
8745 "EUCL_TRAN","TRAN","TRAN_ROTA") ),
8746 INFO =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
8748 FILTRE_MODE =FACT(statut='f',min=01,max=01,
8749 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
8750 into=("MASS_EFFE_UN","MASS_GENE") ),
8751 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8753 IMPRESSION =FACT(statut='d',min=01,max=01,
8754 TOUT_PARA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8755 CUMUL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8756 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
8757 into=("MASS_EFFE_UN","MASS_GENE",) ),
8760 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
8761 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
8762 if MATR_ASSE_GENE != None:
8763 for m in MATR_ASSE_GENE:
8764 self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
8765 self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
8766 if VECT_ASSE_GENE != None:
8767 for m in VECT_ASSE_GENE:
8768 self.type_sdprod(m['VECTEUR'],vect_asse_gene)
8771 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=-8,docu="U4.63.11-C",
8772 sd_prod=macro_proj_base_prod,
8773 fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
8774 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
8775 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999),
8776 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
8777 MATR_ASSE_GENE =FACT(statut='f',min=01,max='**',
8778 MATRICE =SIMP(statut='o',typ=(CO,matr_asse)),
8779 MATR_ASSE =SIMP(statut='f',typ=(CO,matr_asse_depl_r)),
8780 MATR_ASSE_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
8781 PROFIL =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
8783 VECT_ASSE_GENE =FACT(statut='f',min=01,max='**',
8784 VECTEUR =SIMP(statut='o',typ=(CO,vect_asse)),
8785 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
8786 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
8787 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene),
8789 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8791 #& MODIF COMMANDE DATE 08/09/97 AUTEUR VABHHTS J.PELLET
8792 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-D",
8793 fr="Compilation des catalogues de commandes et d éléments",
8794 regles=(UN_PARMI('COMMANDE','ELEMENT','VALIDATION'),),
8795 COMMANDE =FACT(statut='f',min=01,max=01,
8796 UNITE =SIMP(statut='o',typ='I' ),
8798 ELEMENT =FACT(statut='f',min=01,max=01,),
8799 VALIDATION =FACT(statut='f',min=01,max=01,
8800 UNITE =SIMP(statut='o',typ='I' ),
8801 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
8804 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
8805 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
8806 fr="Analyse mécanique statique linéaire",docu="U4.51.01-F",reentrant='n',
8807 regles=(EXCLUS("INST","LIST_INST"),),
8808 MODELE =SIMP(statut='o',typ=modele),
8809 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
8810 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8811 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8812 EXCIT =FACT(statut='o',min=1,max='**',
8813 CHARGE =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
8814 FONC_MULT =SIMP(statut='f',typ=fonction),
8815 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8817 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8818 LIST_INST =SIMP(statut='f',typ=listr8),
8819 OPTION =SIMP(statut='f',typ='TXM',max='**',
8820 into=("SIEF_ELGA_DEPL","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
8821 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
8822 "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
8823 "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
8824 "ENEL_ELGA","ENEL_ELNO_ELGA") ),
8825 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
8826 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
8827 ANGLE =SIMP(statut='f',typ='I',defaut=0),
8828 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
8829 SENSIBILITE =FACT(statut='f',min=1,max=1,
8830 THETA =SIMP(statut='o',typ=theta_geom),
8832 SOLVEUR =FACT(statut='d',min=01,max=01,
8833 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8834 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8835 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
8837 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8838 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8839 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
8841 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8842 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8843 NPREC =SIMP(statut='f',typ='I',defaut=8),
8844 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8846 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8847 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8848 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8849 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8850 RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
8851 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8854 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8856 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8858 #& MODIF COMMANDE DATE 09/09/98 AUTEUR SABJLMA P.LATRUBESSE
8859 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op= 80,sd_prod=mode_cycl,
8860 fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
8861 docu="U4.52.05-E",reentrant='n',
8862 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
8863 NB_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
8864 NB_SECTEUR =SIMP(statut='o',typ='I' ),
8865 LIAISON =FACT(statut='o',min=01,max=01,
8866 DROITE =SIMP(statut='o',typ='TXM' ),
8867 GAUCHE =SIMP(statut='o',typ='TXM' ),
8868 AXE =SIMP(statut='f',typ='TXM' ),
8870 VERI_CYCL =FACT(statut='f',min=01,max=01,
8871 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8872 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
8873 DIST_REFE =SIMP(statut='f',typ='R' ),
8875 CALCUL =FACT(statut='o',min=01,max=01,
8876 TOUT_DIAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8877 NB_DIAM =SIMP(statut='f',typ='I',max='**'),
8878 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
8879 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
8880 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
8881 FREQ =SIMP(statut='o',typ='R',min=01,max=01),
8883 b_bande =BLOC(condition = "OPTION == 'BANDE'",
8884 FREQ =SIMP(statut='o',typ='R',min=02,max=02),
8886 # NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
8887 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
8888 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 100. ),
8889 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8890 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 50 ),
8892 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8894 #& MODIF COMMANDE DATE 24/05/2000 AUTEUR D6BHHBQ B.QUINNEZ
8895 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
8896 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
8897 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
8898 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
8899 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
8900 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
8901 raise AsException("type de concept resultat non prevu")
8903 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op= 44,sd_prod=mode_iter_inv_prod
8904 ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
8905 docu="U4.52.04-F",reentrant='n',
8906 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
8907 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
8908 MATR_C =SIMP(statut='f',typ=matr_asse_depl_r ),
8909 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
8910 into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
8911 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
8912 CALC_FREQ =FACT(statut='o',min=01,max=01,fr="Choix des paramètres pour le calcul des valeurs propres",
8914 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
8915 fr="Choix de l option pour estimer les valeurs propres" ),
8916 FREQ =SIMP(statut='o',typ='R',max='**'),
8917 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8918 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0 ),
8919 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30 ),
8920 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
8921 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
8922 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
8924 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
8925 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
8926 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
8927 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
8930 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
8931 CALC_FREQ =FACT(statut='o',min=01,max=01,fr="Choix des paramètres pour le calcul des valeurs propres",
8933 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
8934 fr="Choix de l option pour estimer les valeurs propres" ),
8935 CHAR_CRIT =SIMP(statut='o',typ='R',max='**' ),
8936 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0 ),
8937 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30 ),
8938 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
8939 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
8940 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
8942 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
8943 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
8944 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
8945 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
8948 CALC_MODE =FACT(statut='d',min=00,max=01,fr="Choix des paramètres pour le calcul des vecteurs propres",
8949 OPTION =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
8950 PREC =SIMP(statut='f',typ='R',defaut= 1.E-5,fr="Précision de convergence" ),
8951 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 30 ),
8953 VERI_MODE =FACT(statut='d',min=00,max=01,
8954 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8955 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-2,fr="Valeur limite admise pour l ereur a posteriori des modes" ),
8957 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8958 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8960 #& MODIF COMMANDE DATE 24/05/2000 AUTEUR D6BHHBQ B.QUINNEZ
8961 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
8962 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
8963 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
8964 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
8965 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
8966 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
8967 raise AsException("type de concept resultat non prevu")
8969 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op= 45,sd_prod=mode_iter_simult_prod,
8970 fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
8971 docu="U4.52.03-E",reentrant='n',
8972 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
8973 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
8974 MATR_C =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
8975 METHODE =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",into=("TRI_DIAG","JACOBI","SORENSEN") ),
8976 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
8977 fr="Type d analyse" ),
8978 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" ),
8980 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
8981 CALC_FREQ =FACT(statut='d',min=00,max=01,
8982 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
8983 fr="Choix de l option et par conséquent du shift du problème modal" ),
8984 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
8985 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
8987 b_centre =BLOC(condition = "OPTION == 'CENTRE'",fr="Recherche des valeurs propres les plus proches d une valeur donnée",
8988 CHAR_CRIT =SIMP(statut='o',typ='R',min=01,max=01,fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
8990 b_bande =BLOC(condition = "(OPTION == 'BANDE')",fr="Recherche des valeurs propres dans une bande donnée",
8991 CHAR_CRIT =SIMP(statut='o',typ='R',min=02,max=02,fr="Valeur des deux charges critiques délimitant la bande de recherche"),
8993 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" ),
8994 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
8995 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
8996 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
8997 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
8998 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8 ),
8999 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30 ),
9001 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
9002 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
9003 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40 ),
9004 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9005 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
9007 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
9008 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9009 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
9010 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
9012 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
9013 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
9014 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
9015 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9019 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
9020 CALC_FREQ =FACT(statut='d',min=00,max=01,
9021 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
9022 fr="Choix de l option et par conséquent du shift du problème modal" ),
9023 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
9024 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
9026 b_centre =BLOC(condition = "OPTION == 'CENTRE'",fr="Recherche des valeurs propres les plus proches d une valeur donnée",
9027 FREQ =SIMP(statut='o',typ='R',min=01,max=01,fr="Fréquence autour de laquelle on cherche les fréquences propres"),
9028 AMOR_REDUIT =SIMP(statut='f',typ='R',max=01),
9029 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
9031 b_bande =BLOC(condition = "(OPTION == 'BANDE')",fr="Recherche des valeurs propres dans une bande donnée",
9032 FREQ =SIMP(statut='o',typ='R',min=02,max=02,fr="Valeur des deux fréquences délimitant la bande de recherche"),
9034 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" ),
9035 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
9036 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
9037 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
9038 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
9039 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8 ),
9040 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30 ),
9042 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
9043 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
9044 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40 ),
9045 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9046 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
9048 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
9049 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9050 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
9051 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
9053 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
9054 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
9055 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
9056 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9060 VERI_MODE =FACT(statut='d',min=00,max=01,
9061 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9062 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
9063 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6,fr="Valeur limite admise pour l ereur a posteriori des modes" ),
9064 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9066 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9067 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9068 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9070 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
9071 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat,
9072 fr="Calcul de modes statiques",
9073 docu="U4.52.14-E",reentrant='n',
9074 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
9075 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
9076 DDL_IMPO =FACT(statut='f',min=01,max='**',
9077 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
9078 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
9079 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9080 NOEUD =SIMP(statut='f',typ=no,max='**'),
9081 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9082 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9083 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
9084 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
9086 FORCE_NODALE =FACT(statut='f',min=01,max='**',
9087 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
9088 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
9089 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9090 NOEUD =SIMP(statut='f',typ=no,max='**'),
9091 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9092 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9093 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
9094 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
9096 ACCE_UNIF =FACT(statut='f',min=01,max='**',
9097 regles=(UN_PARMI('AXE','DIRECTION', ),),
9098 AXE =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=03),
9099 DIRECTION =SIMP(statut='f',typ='R',max=03),
9100 b_dir =BLOC(condition = "DIRECTION != None",
9101 NOM_DIR =SIMP(statut='f',typ='TXM' ),
9104 ACCE_IMPO =FACT(statut='f',min=01,max='**',
9105 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
9106 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
9107 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9108 NOEUD =SIMP(statut='f',typ=no,max='**'),
9109 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9110 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9111 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
9112 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
9114 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9115 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
9117 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR CIBHHAB N.RAHNI
9118 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
9119 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)",
9120 docu="U4.66.21-C",reentrant='f',
9121 # la commande modi_base _modale : reentrant = f ou o
9122 regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
9123 BASE =SIMP(statut='o',typ=mode_meca ),
9124 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
9125 NUME_VITE_FLUI =SIMP(statut='o',typ='I' ),
9126 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9127 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
9128 AMOR_UNIF =SIMP(statut='f',typ='R' ),
9129 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9130 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9132 #& MODIF COMMANDE DATE 22/05/2000 AUTEUR AUBHHMB M.BONNAMY
9133 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
9134 fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
9135 docu="U4.23.04-C",reentrant='o',
9136 regles=(UN_PARMI('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
9137 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE'),
9138 EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
9139 EXCLUS('EQUE_PIQUA','TUBE_COUDE'),),
9140 MAILLAGE =SIMP(statut='o',typ=maillage ),
9142 ORIE_CONTACT =FACT(statut='f',min=01,max=01,
9143 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
9146 DEFORME =FACT(statut='f',min=01,max=01,
9147 OPTION =SIMP(statut='o',typ='TXM',into=("TRAN",) ),
9148 DEPL =SIMP(statut='o',typ=cham_no_depl_r ),
9151 EQUE_PIQUA =FACT(statut='f',min=01,max=01,
9152 GROUP_NO =SIMP(statut='o',typ=grno),
9153 E_BASE =SIMP(statut='o',typ='R' ),
9154 DEXT_BASE =SIMP(statut='o',typ='R' ),
9155 L_BASE =SIMP(statut='o',typ='R' ),
9156 L_CHANF =SIMP(statut='o',typ='R' ),
9157 H_SOUD =SIMP(statut='o',typ='R' ),
9158 ANGL_SOUD =SIMP(statut='o',typ='R' ),
9159 JEU_SOUD =SIMP(statut='o',typ='R' ),
9160 E_CORP =SIMP(statut='o',typ='R' ),
9161 DEXT_CORP =SIMP(statut='o',typ='R' ),
9162 AZIMUT =SIMP(statut='o',typ='R' ),
9163 RAFF_MAIL =SIMP(statut='o',typ='TXM' ),
9164 X_MAX =SIMP(statut='o',typ='R' ),
9166 ORIE_PEAU_2D =FACT(statut='f',min=01,max='**',
9167 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
9169 ORIE_PEAU_3D =FACT(statut='f',min=01,max='**',
9170 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
9172 ORIE_NORM_COQUE =FACT(statut='f',min=01,max='**',
9173 regles=(EXCLUS('NOEUD','GROUP_NO'),
9174 PRESENT_PRESENT('NOEUD','VECT_NORM'),
9175 PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
9176 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
9177 VECT_NORM =SIMP(statut='f',typ='R',max=03),
9178 NOEUD =SIMP(statut='f',typ=no),
9179 GROUP_NO =SIMP(statut='f',typ=grno),
9181 b_modele =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
9182 MODELE =SIMP(statut='o',typ=modele ),
9184 PLAQ_TUBE =FACT(statut='f',min=01,max=01,
9185 DEXT =SIMP(statut='o',typ='R' ),
9186 EPAIS =SIMP(statut='o',typ='R' ),
9187 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
9188 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
9189 COUTURE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9191 TUBE_COUDE =FACT(statut='f',min=01,max=01,
9192 ANGLE =SIMP(statut='o',typ='R' ),
9193 R_CINTR =SIMP(statut='o',typ='R' ),
9194 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
9196 MODI_MAILLE =FACT(statut='f',min=01,max=01,
9197 regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
9198 OPTION =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
9199 GROUP_MA_FOND =SIMP(statut='f',typ=grma,max='**'),
9200 MAILLE_FOND =SIMP(statut='f',typ=ma,max='**'),
9201 GROUP_NO_FOND =SIMP(statut='f',typ=grno,max='**'),
9202 NOEUD_FOND =SIMP(statut='f',typ=no,max='**'),
9204 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9206 #& MODIF COMMANDE DATE 07/04/98 AUTEUR ACBHHCD G.DEVESA
9207 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
9208 fr=" ",docu="U4.44.22-A",reentrant='f',
9209 regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),),
9210 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
9211 INST =SIMP(statut='f',typ='R'),
9212 OBSTACLE =SIMP(statut='f',typ=obstacle),
9213 GUIDE =SIMP(statut='o',typ=obstacle),
9214 CRAYON =SIMP(statut='f',typ=obstacle),
9215 R_MOBILE =SIMP(statut='f',typ='R'),
9216 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9218 #& MODIF COMMANDE DATE 05/09/2000 AUTEUR CIBHHLV L.VIVAN
9219 def norm_mode_prod(MODE,**args ):
9220 if AsType(MODE) == mode_meca : return mode_meca
9221 if AsType(MODE) == mode_meca_c : return mode_meca_c
9222 if AsType(MODE) == mode_flamb : return mode_flamb
9223 raise AsException("type de concept resultat non prevu")
9225 NORM_MODE=OPER(nom="NORM_MODE",op= 37,sd_prod=norm_mode_prod,
9226 fr="Normalisation de modes propres",
9227 docu="U4.52.11-E",reentrant='f',
9228 regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
9229 MODE =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
9230 NORME =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
9231 into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
9232 NOEUD =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
9233 b_noeud =BLOC(condition = "NOEUD != None",
9234 NOM_CMP =SIMP(statut='o',typ='TXM' ),
9236 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='**'),
9237 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='**'),
9238 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
9239 MODE_SIGNE =FACT(statut='f',min=00,max=01,fr="Imposer un signe sur une des composantes des modes",
9240 NOEUD =SIMP(statut='o',typ=no,fr="Noeud où sera imposé le signe"),
9241 NOM_CMP =SIMP(statut='o',typ='TXM',fr="Composante du noeud où sera imposé le signe" ),
9242 SIGNE =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),fr="Choix du signe" ),
9244 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9245 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9247 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
9248 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-F",reentrant='n',
9249 fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
9250 MATR_RIGI =SIMP(statut='o',typ=(matr_elem_depl_r ,matr_elem_depl_c,
9251 matr_elem_temp_r,matr_elem_pres_c),max='**' ),
9252 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
9253 b_mult_front =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
9254 RENUM =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS") ),
9256 b_ldlt =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
9257 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS") ),
9258 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9260 b_gcpc =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
9261 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS") ),
9263 INFO =SIMP(statut='f',typ='I',into=(1,2)),
9265 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
9266 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
9267 fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
9268 docu="U4.65.03-D",reentrant='n',
9269 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
9270 BASE =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
9271 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
9272 STOCKAGE =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("PLEIN","DIAG","LIGN_CIEL") ),
9273 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
9275 #& MODIF COMMANDE DATE 04/08/98 AUTEUR SABJLMA P.LATRUBESSE
9276 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
9277 fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
9278 docu="U4.84.04-D",reentrant='n',
9279 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
9280 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
9281 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
9282 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9283 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**' ),
9284 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
9285 OPTION =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
9286 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
9287 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**' ),
9289 b_noeud_i =BLOC(condition = "NOEUD_I != None",
9290 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
9291 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**' ),
9292 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**' ),
9294 DEPASSEMENT =FACT(statut='f',min=01,max='**',
9295 fr="Loi de dépassement d un seuil pendant une durée donnée",
9296 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
9297 VALE_MIN =SIMP(statut='f',typ='R' ),
9298 VALE_MAX =SIMP(statut='f',typ='R' ),
9299 PAS =SIMP(statut='f',typ='R' ),
9300 DUREE =SIMP(statut='f',typ='R',defaut= 1. ),
9302 RAYLEIGH =FACT(statut='f',min=01,max='**',
9303 fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
9304 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
9305 VALE_MIN =SIMP(statut='f',typ='R' ),
9306 VALE_MAX =SIMP(statut='f',typ='R' ),
9307 PAS =SIMP(statut='f',typ='R' ),
9309 GAUSS =FACT(statut='f',min=01,max='**',
9310 fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
9311 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
9312 VALE_MIN =SIMP(statut='f',typ='R' ),
9313 VALE_MAX =SIMP(statut='f',typ='R' ),
9314 PAS =SIMP(statut='f',typ='R' ),
9316 VANMARCKE =FACT(statut='f',min=01,max='**',
9317 fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
9318 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
9319 VALE_MIN =SIMP(statut='f',typ='R' ),
9320 VALE_MAX =SIMP(statut='f',typ='R' ),
9321 PAS =SIMP(statut='f',typ='R' ),
9322 DUREE =SIMP(statut='f',typ='R',defaut= 10. ),
9324 MOMENT =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
9325 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9326 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9328 #& MODIF COMMANDE DATE 11/02/98 AUTEUR CIBHHLV L.VIVAN
9329 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
9330 fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
9331 docu="U4.84.02-D",reentrant='n',
9332 regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
9333 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
9334 CHOC =FACT(statut='f',min=01,max='**',
9335 fr="Analyse des non linéarités de choc",
9336 INST_INIT =SIMP(statut='f',typ='R',defaut= -1. ),
9337 INST_FIN =SIMP(statut='f',typ='R',defaut= 999. ),
9338 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
9339 SEUIL_FORCE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9340 DUREE_REPOS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9341 OPTION =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
9342 NB_CLASSE =SIMP(statut='f',typ='I',defaut= 10 ),
9344 RELA_EFFO_DEPL =FACT(statut='f',min=01,max=01,
9345 fr="Analyse des relationsnon linéaires effort-déplacement",
9346 NOEUD =SIMP(statut='o',typ=no),
9347 NOM_CMP =SIMP(statut='o',typ='TXM' ),
9349 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9350 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9352 #& MODIF COMMANDE DATE 05/12/2000 AUTEUR G8BHHXD X.DESROCHES
9353 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,INDU_MUTU,WEIBULL,
9354 CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
9355 INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
9356 AIRE_INTERNE,**args ):
9357 if MASS_INER != None : return tabl_mass_iner
9358 if ENER_POT != None : return tabl_ener_pot
9359 if ENER_CIN != None : return tabl_ener_cin
9360 if INDU_MUTU != None : return tabl_indu_mutu
9361 if WEIBULL != None : return tabl_weibull
9362 if CARA_GEOM != None : return tabl_cara_geom
9363 if CARA_POUTRE != None : return tabl_cara_geom
9364 if RICE_TRACEY != None : return tabl_rice_tracey
9365 if CHAR_LIMITE != None : return tabl_char_limite
9366 if INDIC_ENER != None : return tabl_indic_ener
9367 if INDIC_SEUIL != None : return tabl_indic_seuil
9368 if ENER_ELAS != None : return tabl_ener_elas
9369 if ENER_TOTALE != None : return tabl_ener_totale
9370 if AIRE_INTERNE != None : return tabl_aire_int
9371 raise AsException("type de concept resultat non prevu")
9373 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-D",reentrant='f',
9374 fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
9375 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
9376 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),
9377 EXCLUS('CHAM_GD','RESULTAT'),
9378 UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN', 'INDU_MUTU',
9379 'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
9380 'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
9381 'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
9382 PRESENT_PRESENT( 'MASS_INER', 'MODELE' ),
9383 PRESENT_PRESENT( 'CARA_GEOM', 'MODELE' ),
9384 PRESENT_PRESENT( 'AIRE_INTERNE', 'MODELE' ),
9385 PRESENT_PRESENT( 'CARA_POUTRE', 'MODELE' ),
9386 PRESENT_PRESENT( 'ENER_POT', 'MODELE', 'CHAM_MATER' ),
9387 PRESENT_PRESENT( 'ENER_CIN', 'MODELE', 'CHAM_MATER' ),
9388 PRESENT_PRESENT( 'INDU_MUTU', 'MODELE','CHARGE' ),
9389 PRESENT_PRESENT( 'WEIBULL', 'MODELE', 'CHAM_MATER' ),
9390 PRESENT_PRESENT( 'RICE_TRACEY', 'MODELE', 'CHAM_MATER' ),
9391 PRESENT_PRESENT( 'INDIC_ENER', 'MODELE', 'CHAM_MATER' ),
9392 PRESENT_PRESENT( 'INDIC_SEUIL', 'MODELE', 'CHAM_MATER' ),
9393 PRESENT_PRESENT( 'ENER_ELAS', 'MODELE', 'CHAM_MATER' ),
9394 PRESENT_PRESENT( 'ENER_TOTALE', 'MODELE', 'CHAM_MATER' ),
9395 PRESENT_PRESENT( 'CHAR_LIMITE', 'MODELE', 'CHAM_MATER' ),
9397 MODELE =SIMP(statut='o',typ=modele),
9398 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
9399 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
9400 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
9401 MODE_FOURIER =SIMP(statut='f',typ='I',defaut=0),
9402 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
9403 NIVE_COUCHE =SIMP(statut='f',typ='TXM',into=("INF","SUP","MOY"),defaut="MOY"),
9404 ANGLE =SIMP(statut='f',typ='I',defaut=0),
9405 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9406 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9407 GEOMETRIE =SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
9408 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
9409 RESULTAT =SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,mult_elas,fourier_elas) ),
9410 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9411 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9412 LIST_ORDRE =SIMP(statut='f',typ=listis),
9413 INST =SIMP(statut='f',typ='R',max='**'),
9414 LIST_INST =SIMP(statut='f',typ=listr8),
9415 FREQ =SIMP(statut='f',typ='R',max='**'),
9416 LIST_FREQ =SIMP(statut='f',typ=listr8),
9417 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9418 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
9419 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
9420 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
9421 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
9423 MASS_INER =FACT(statut='f',min=1,max='**',
9424 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9425 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9426 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9427 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9428 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9429 ORIG_INER =SIMP(statut='f',typ='R',min=3,max=3 ),
9432 ENER_POT =FACT(statut='f',min=1,max='**',
9433 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9434 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9435 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9436 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9437 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9440 ENER_CIN =FACT(statut='f',min=1,max='**',
9441 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9442 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9443 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9444 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9445 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9448 INDU_MUTU =FACT(statut='f',min=1,max='**',
9449 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9450 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9451 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9452 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9453 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9456 WEIBULL =FACT(statut='f',min=1,max='**',
9457 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9458 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9459 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9460 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9461 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9462 OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY")),
9463 CORR_PLAST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
9464 COEF_MULT =SIMP(statut='f',typ='R',defaut=1.),
9467 RICE_TRACEY =FACT(statut='f',min=1,max='**',
9468 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9469 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9470 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9471 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9472 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9473 OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY")),
9474 LOCAL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
9477 INDIC_ENER =FACT(statut='f',min=1,max='**',
9478 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9479 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9480 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9481 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9482 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9485 ENER_ELAS =FACT(statut='f',min=1,max='**',
9486 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9487 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9488 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9489 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9490 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9493 ENER_TOTALE =FACT(statut='f',min=1,max='**',
9494 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9495 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9496 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9497 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9498 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9501 CHAR_LIMITE =FACT(statut='f',min=00,max=01,
9502 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9503 TOUT =SIMP(statut='o',typ='TXM',into=("OUI",)),
9504 N =SIMP(statut='f',typ='R',max=1),
9507 INDIC_SEUIL =FACT(statut='f',min=1,max='**',
9508 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9509 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9510 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9511 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9512 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9515 CARA_GEOM =FACT(statut='f',min=1,max='**',
9516 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
9517 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9518 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9519 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9520 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9521 SYME_X =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9522 SYME_Y =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9523 ORIG_INER =SIMP(statut='f',typ='R',min=2,max=2),
9526 CARA_POUTRE =FACT(statut='f',min=1,max='**',
9527 regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
9528 ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
9529 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.),
9530 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9531 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9532 GROUP_MA_INTE =SIMP(statut='f',typ=grma,max='**'),
9533 CARA_GEOM =SIMP(statut='f',typ=tabl_cara_geom),
9534 LAPL_PHI =SIMP(statut='f',typ=evol_ther),
9535 LAPL_PHI_Y =SIMP(statut='f',typ=evol_ther),
9536 LAPL_PHI_Z =SIMP(statut='f',typ=evol_ther),
9537 LIAISON =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
9538 LONGUEUR =SIMP(statut='f',typ='R'),
9539 MATERIAU =SIMP(statut='f',typ=mater),
9540 OPTION =SIMP(statut='f',typ='TXM',into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
9543 AIRE_INTERNE =FACT(statut='f',min=1,max='**',
9544 GROUP_MA_BORD =SIMP(statut='o',typ=grma,max='**'),
9547 #& MODIF COMMANDE DATE 16/12/97 AUTEUR CIBHHLV L.VIVAN
9548 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-C",reentrant='n',
9549 fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
9550 regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
9551 PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
9552 UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
9553 MOMENT_SPEC_0 =SIMP(statut='f',typ='R'),
9554 MOMENT_SPEC_2 =SIMP(statut='f',typ='R'),
9555 MOMENT_SPEC_4 =SIMP(statut='f',typ='R'),
9556 TABL_POST_ALEA =SIMP(statut='f',typ=tabl_post_alea),
9557 COMPTAGE =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
9558 DUREE =SIMP(statut='f',typ='R',defaut= 1.),
9559 CORR_KE =SIMP(statut='f',typ='TXM',into=("RCCM",)),
9560 DOMMAGE =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
9561 MATER =SIMP(statut='o',typ=mater),
9562 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9564 #& MODIF COMMANDE DATE 01/10/97 AUTEUR CIBHHLV L.VIVAN
9565 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-C",reentrant='n',
9566 fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
9567 regles=(PRESENT_PRESENT('CORR_KE','MATER'),
9568 PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
9569 PRESENT_PRESENT('CRITERE','MATER'),
9570 PRESENT_PRESENT('DOMMAGE','MATER'),),
9571 HISTOIRE =FACT(statut='o',min=1,max=1,
9572 regles=(EXCLUS('SIGM','EPSI'),
9573 EXCLUS('SIGM','SIGM_XX'),
9574 EXCLUS('SIGM','SIGM_XZ'),
9575 EXCLUS('SIGM','SIGM_YZ'),
9576 EXCLUS('SIGM','EPSP'),
9577 EXCLUS('SIGM','TEMP',),
9578 EXCLUS('EPSI','SIGM_XX'),
9579 EXCLUS('EPSI','SIGM_XZ'),
9580 EXCLUS('EPSI','SIGM_YZ'),
9581 EXCLUS('EPSI','EPSP'),
9582 EXCLUS('EPSI','TEMP'),
9583 ENSEMBLE('SIGM_XX','SIGM_YY','SIGM_ZZ','SIGM_XY'),
9584 ENSEMBLE('SIGM_XZ','SIGM_YZ'),
9585 ENSEMBLE('EPSP','TEMP'),),
9586 SIGM =SIMP(statut='f',typ=fonction),
9587 EPSI =SIMP(statut='f',typ=fonction),
9588 SIGM_XX =SIMP(statut='f',typ=fonction),
9589 SIGM_YY =SIMP(statut='f',typ=fonction),
9590 SIGM_ZZ =SIMP(statut='f',typ=fonction),
9591 SIGM_XY =SIMP(statut='f',typ=fonction),
9592 SIGM_XZ =SIMP(statut='f',typ=fonction),
9593 SIGM_YZ =SIMP(statut='f',typ=fonction),
9594 EPSP =SIMP(statut='f',typ=fonction),
9595 TEMP =SIMP(statut='f',typ=fonction),
9597 COMPTAGE =SIMP(statut='f',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
9598 DELTA_OSCI =SIMP(statut='f',typ='R',defaut= 0.0E+0),
9599 COEF_MULT =FACT(statut='f',min=1,max=1,
9600 KT =SIMP(statut='f',typ='R'),
9602 CORR_KE =SIMP(statut='f',typ='TXM',into=("RCCM",)),
9603 CORR_SIGM_MOYE =SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
9604 TAHERI_NAPPE =SIMP(statut='f',typ=fonction),
9605 TAHERI_FONC =SIMP(statut='f',typ=fonction),
9606 CRITERE =SIMP(statut='f',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
9607 COEF_CORR =SIMP(statut='f',typ='R'),
9608 DOMMAGE =SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
9609 "TAHERI_MIXTE","LEMAITRE")),
9610 MATER =SIMP(statut='f',typ=mater),
9611 CUMUL =SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
9612 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9613 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9615 #& MODIF COMMANDE DATE 15/09/1999 AUTEUR F1BHHAJ J.ANGLES
9616 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
9617 fr=" ",docu="U4.GJ.30-A",
9618 TABLE =SIMP(statut='o',typ=tabl_post_rele),
9620 #& MODIF COMMANDE DATE 31/05/2000 AUTEUR CIBHHLV L.VIVAN
9621 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
9622 fr="Calcul des facteurs d intensité des contraintes par extrapolation du champ de déplacements sur les lèvres de la fissure",
9623 docu="U4.82.05-A",reentrant='n',
9624 regles=(PRESENT_PRESENT('REPERE','VECT_Y', ),),
9625 MODELISATION =SIMP(statut='o',typ='TXM',into=("3D",
9630 fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
9631 FOND_3D =SIMP(statut='f',typ=fond_fiss,fr="Fond de fissure issu de DEFI_FOND_FISS"),
9632 b_fond_3d =BLOC (condition="(FOND_3D != None)",
9633 MAILLAGE = SIMP(statut='o',typ=maillage),
9634 PRECISION = SIMP(statut='f',typ='R',defaut=0.001)
9636 MATER =SIMP(statut='o',typ=mater,fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
9637 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"),
9638 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"),
9639 ABSC_CURV_MAXI =SIMP(statut='f',typ='R',fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
9640 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9641 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL",),fr="Les déplacements sont transportés dans le repère local à la fissure"),
9642 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"),
9643 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9645 #& MODIF COMMANDE DATE 27/04/98 AUTEUR CIBHHLV L.VIVAN
9646 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
9647 fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
9648 docu="U4.83.11-C",reentrant='n',
9649 MATER =SIMP(statut='o',typ=mater ),
9650 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
9651 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9652 OPTION =SIMP(statut='o',typ='TXM',max='**',
9658 SEGMENT =FACT(statut='o',min=01,max='**',fr="Segment sur lequel s effectue le depouillement",
9659 INTITULE =SIMP(statut='f',typ='TXM' ),
9660 CHEMIN =SIMP(statut='o',typ=(courbe,surface) ),
9662 TRANSITOIRE =FACT(statut='o',min=01,max='**',fr="transitoire à dépouiller",
9663 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
9664 INTITULE =SIMP(statut='f',typ='TXM' ),
9665 RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
9666 RESU_SIGM_THER =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
9667 NB_OCCUR =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
9668 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
9669 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9670 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9671 LIST_ORDRE =SIMP(statut='f',typ=listis ),
9672 INST =SIMP(statut='f',typ='R',max='**'),
9673 LIST_INST =SIMP(statut='f',typ=listr8 ),
9674 b_inst =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
9675 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9676 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
9680 #& MODIF COMMANDE DATE 11/10/2000 AUTEUR CIBHHLV L.VIVAN
9681 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-D",reentrant='n',
9682 fr="Relevé de valeurs et calculs d invariants avec stockage et organisation du relevé dans un concept de type table",
9683 ACTION =FACT(statut='o',min=01,max='**',
9684 regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
9685 EXCLUS('CHEMIN','GROUP_NO'),
9686 EXCLUS('CHEMIN','NOEUD'),
9687 PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
9688 UN_PARMI('RESULTAT','CHAM_GD'),
9689 UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
9690 PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
9691 PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
9692 ENSEMBLE('MOMENT','POINT'),
9693 PRESENT_PRESENT('MOMENT','RESULTANTE'),
9694 PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
9695 PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
9696 PRESENT_PRESENT('ORIGINE','AXE_Z'),),
9697 INTITULE =SIMP(statut='o',typ='TXM'),
9698 CHEMIN =SIMP(statut='f',typ=(courbe,surface) ),
9699 NOEUD =SIMP(statut='f',typ=no,max='**'),
9700 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9701 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9702 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9703 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9704 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
9705 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
9706 cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
9707 cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
9708 cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
9709 cham_elem_sief_c,cham_elem_epsi_c)),
9710 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
9711 mode_meca,mode_flamb,mode_acou,base_modale,
9712 mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
9713 b_extrac =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
9714 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
9715 'INST','LIST_INST','FREQ','LIST_FREQ','NOM_CAS'), ),
9716 NOM_CHAM =SIMP(statut='o',typ='TXM' ),
9717 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9718 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9719 LIST_ORDRE =SIMP(statut='f',typ=listis),
9720 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9721 LIST_MODE =SIMP(statut='f',typ=listis),
9722 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
9723 FREQ =SIMP(statut='f',typ='R',max='**'),
9724 LIST_FREQ =SIMP(statut='f',typ=listr8),
9725 INST =SIMP(statut='f',typ='R',max='**'),
9726 LIST_INST =SIMP(statut='f',typ=listr8),
9727 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
9728 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
9730 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",)),
9731 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
9732 INVARIANT =SIMP(statut='f',typ='TXM',into=("OUI",)),
9733 ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9734 RESULTANTE =SIMP(statut='f',typ='TXM',max='**'),
9735 MOMENT =SIMP(statut='f',typ='TXM',max='**'),
9736 POINT =SIMP(statut='f',typ='R',max='**'),
9738 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
9739 into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
9740 ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
9741 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
9742 AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
9744 TRAC_NOR =SIMP(statut='f',typ='TXM',into=("OUI",)),
9745 TRAC_DIR =SIMP(statut='f',typ='TXM',into=("OUI",)),
9746 DIRECTION =SIMP(statut='f',typ='R',max='**'),
9747 TRAC_DIRECTION =SIMP(statut='f',typ='TXM',into=("OUI",)),
9748 TRAC_NORMALE =SIMP(statut='f',typ='TXM',into=("OUI",)),
9750 VECT_Y =SIMP(statut='f',typ='R',max='**'),
9751 MOYE_NOEUD =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
9752 OPERATION =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE","MOYENNE_RCCM")),
9754 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9755 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9757 #& MODIF COMMANDE DATE 18/01/99 AUTEUR CIBHHBC B.CIREE
9758 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
9759 fr=" ",docu="U4.PS.10-A",reentrant='n',
9760 MATER =SIMP(statut='o',typ=(mater) ),
9761 DEF_EQUI =FACT(statut='f',min=01,max=01,
9762 METHODE =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
9763 into=("UTO_2_3",) ),
9764 EPAIS =SIMP(statut='o',typ='R'),
9765 LONG_FISS =SIMP(statut='o',typ='R'),
9766 LONG_LIGA_INT =SIMP(statut='o',typ='R'),
9767 DEXT =SIMP(statut='o',typ='R'),
9768 TEMP_ANALYSE =SIMP(statut='f',typ='R'),
9771 #& MODIF COMMANDE DATE 07/04/98 AUTEUR ACBHHCD G.DEVESA
9772 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-C",reentrant='f',
9773 fr="Calcul des volumes d'usure et des profondeurs d'usure",
9774 regles=(UN_PARMI('RESU_GENE','PUIS_USURE'),
9775 PRESENT_PRESENT('RESU_GENE','NOEUD'),
9776 UN_PARMI('INST','LIST_INST'),),
9777 ETAT_INIT =FACT(statut='f',min=01,max=01,
9778 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
9779 INST_INIT =SIMP(statut='f',typ='R'),
9781 RESU_GENE =SIMP(statut='f',typ=tran_gene),
9782 NOEUD =SIMP(statut='f',typ=no,max=1),
9783 INST_INIT =SIMP(statut='f',typ='R',defaut=-1.0E+0),
9784 INST_FIN =SIMP(statut='f',typ='R'),
9785 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
9786 PUIS_USURE =SIMP(statut='f',typ='R'),
9787 LOI_USURE =SIMP(statut='o',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
9788 b_archard =BLOC(condition = "LOI_USURE == 'ARCHARD'",
9789 regles=(EXCLUS('MATER_USURE','OBSTACLE'),
9790 EXCLUS('MOBILE','USURE_OBST'),),
9791 MOBILE =FACT(statut='f',min=01,max=01,
9792 COEF_USURE =SIMP(statut='o',typ='R'),
9794 OBSTACLE =FACT(statut='f',min=01,max=01,
9795 COEF_USURE =SIMP(statut='o',typ='R'),
9797 MATER_USURE =SIMP(statut='f',typ='TXM'),
9798 USURE_OBST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
9800 b_kwu_epri =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
9801 regles=(UN_PARMI('MOBILE','MATER_USURE'),
9802 EXCLUS('MATER_USURE','OBSTACLE'),
9803 EXCLUS('MOBILE','USURE_OBST'),),
9804 MOBILE =FACT(statut='f',min=01,max=01,
9805 COEF_FNOR =SIMP(statut='f',typ='R'),
9806 COEF_VTAN =SIMP(statut='f',typ='R'),
9807 COEF_USURE =SIMP(statut='f',typ='R'),
9808 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
9809 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
9811 OBSTACLE =FACT(statut='f',min=01,max=01,
9812 COEF_FNOR =SIMP(statut='f',typ='R' ),
9813 COEF_VTAN =SIMP(statut='f',typ='R' ),
9814 COEF_USURE =SIMP(statut='o',typ='R'),
9815 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
9816 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
9818 MATER_USURE =SIMP(statut='f',typ='TXM'),
9819 USURE_OBST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
9820 FNOR_MAXI =SIMP(statut='f',typ='R' ),
9821 VTAN_MAXI =SIMP(statut='f',typ='R' ),
9823 b_edf_mz =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
9824 regles=(UN_PARMI('MOBILE','MATER_USURE'),
9825 EXCLUS('MATER_USURE','OBSTACLE'),
9826 EXCLUS('MOBILE','USURE_OBST'),),
9827 MOBILE =FACT(statut='f',min=01,max=01,
9828 COEF_USURE =SIMP(statut='f',typ='R',defaut=1.0E-13),
9829 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
9830 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
9831 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
9833 OBSTACLE =FACT(statut='f',min=01,max=01,
9834 COEF_USURE =SIMP(statut='o',typ='R',defaut=1.0E-13),
9835 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
9836 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
9837 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
9839 MATER_USURE =SIMP(statut='f',typ='TXM'),
9840 USURE_OBST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
9842 SECTEUR =FACT(statut='f',min=01,max='**',
9843 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
9844 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
9845 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
9846 COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
9847 COEF_USUR_OBST =SIMP(statut='f',typ='R'),
9848 ANGL_INIT =SIMP(statut='f',typ='R'),
9849 ANGL_FIN =SIMP(statut='f',typ='R'),
9851 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
9852 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
9853 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
9854 LARGEUR_OBST =SIMP(statut='f',typ='R'),
9855 ANGL_INCLI =SIMP(statut='f',typ='R'),
9856 ANGL_ISTHME =SIMP(statut='f',typ='R'),
9857 ANGL_IMPACT =SIMP(statut='f',typ='R'),
9858 INST =SIMP(statut='f',typ='R',max='**'),
9859 LIST_INST =SIMP(statut='f',typ=listr8),
9860 COEF_INST =SIMP(statut='f',typ='R',defaut=1.0E+0),
9861 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9862 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9864 #& MODIF COMMANDE DATE 31/08/1999 AUTEUR G8BHHXD X.DESROCHES
9865 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-B",reentrant='n',
9866 fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
9867 MODELE =SIMP(statut='o',typ=modele),
9868 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
9869 EXCIT =FACT(statut='o',min=01,max='**',
9870 CHARGE =SIMP(statut='o',typ=char_meca),
9871 FONC_MULT =SIMP(statut='f',typ=fonction),
9872 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
9874 EVOL_ELAS =SIMP(statut='o',typ=evol_elas),
9875 b_evol_elas =BLOC(condition="EVOL_ELAS != None",
9876 regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
9877 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9878 LIST_INST =SIMP(statut='f',typ=listr8),
9879 INST =SIMP(statut='f',typ='R',max='**'),
9881 TEMP_ZAC =SIMP(statut='f',typ='R',defaut=0.0E+0),
9882 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
9883 b_evol_noli =BLOC(condition="EVOL_NOLI != None",
9884 INST_MAX =SIMP(statut='o',typ='R'),
9886 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
9887 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
9891 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
9892 docu="U4.11.03-f",sd_prod = ops.POURSUITE,
9893 op_init = ops.POURSUITE_context,fichier_ini = 1,
9894 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM' ),
9895 BASE =FACT(fr="définition des parmètres associés aux bases JEVEUX",
9896 statut='f',min=01,max=03,
9897 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM'),
9898 TITRE =SIMP(statut='f',typ='TXM'),
9899 CAS =SIMP(statut='f',typ='TXM'),
9900 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
9901 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
9902 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
9904 IMPRESSION =FACT(statut='f',min=01,max=03,
9905 FICHIER =SIMP(statut='o',typ='TXM'),
9906 UNITE =SIMP(statut='o',typ='I'),
9908 CATALOGUE =FACT(statut='f',min=01,max=10,
9909 FICHIER =SIMP(statut='o',typ='TXM'),
9910 TITRE =SIMP(statut='f',typ='TXM'),
9911 UNITE =SIMP(statut='f',typ='I'),
9913 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
9914 statut='f',min=01,max=01,
9915 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
9916 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
9917 JEVEUX =SIMP(fr="force les déchargement sur disque",
9918 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
9919 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
9920 statut='f',typ='TXM',into=('TES',)),
9922 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=01,max=01,
9923 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
9924 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
9925 TAILLE =SIMP(statut='f',typ='I'),
9926 PARTITION =SIMP(statut='f',typ='R' ),
9929 #& MODIF COMMANDE DATE 01/04/92 AUTEUR INCONNU INCONNU
9930 PRE_CHAR_IDEAS=PROC(nom="PRE_CHAR_IDEAS",op=100,docu="U7.01.02-E",
9931 fr="Conversion de conditions aux limites et chargements IDEAS en commandes Aster",
9932 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
9933 UNITE_ASTER =SIMP(statut='f',typ='I',defaut=21),
9934 MODELE =SIMP(statut='o',typ=modele),
9936 #& MODIF COMMANDE DATE 28/11/90 AUTEUR INCONNU INCONNU
9937 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-F",
9938 fr="Conversion d un fichier de maillage GIBI",
9939 UNITE_GIBI =SIMP(statut='f',typ='I',defaut=19),
9940 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
9942 #& MODIF COMMANDE DATE 23/04/92 AUTEUR INCONNU INCONNU
9943 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-F",
9944 fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
9945 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
9946 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
9948 #& MODIF COMMANDE DATE 16/06/2000 AUTEUR D6BHHJP J.P.LEFEBVRE
9949 PROCEDURE=PROC(nom="PROCEDURE",op=-3, docu="U4.13.03-E",
9950 fr="Nommer le fichier de commandes secondaires",
9951 NOM =SIMP(statut='f',typ='TXM',defaut=" "),
9953 #& MODIF COMMANDE DATE 11/07/95 AUTEUR CIBHHLV L.VIVAN
9954 def prod_matr_cham_prod(MATR_ASSE,**args):
9955 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
9956 if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
9957 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
9958 if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
9959 raise AsException("type de concept resultat non prevu")
9961 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
9962 fr="Effectuer le produit d une matrice par un vecteur",
9963 docu="U4.72.06-B",reentrant='n',
9964 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
9965 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
9966 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9968 #& MODIF COMMANDE DATE 12/05/99 AUTEUR VABHHTS J.PELLET
9969 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
9970 if AsType(RESULTAT) == evol_ther : return evol_ther
9971 if AsType(RESULTAT) == evol_elas : return evol_elas
9972 if AsType(RESULTAT) == evol_noli : return evol_noli
9973 if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
9974 if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
9975 if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
9976 if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
9977 if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
9978 if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
9979 if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
9980 raise AsException("type de concept resultat non prevu")
9982 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-C",reentrant='n',
9983 fr="Projection d un champ aux noeuds sur les noeuds d un autre maillage",
9985 METHODE =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
9986 into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
9987 b_nuage =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
9988 fr="Lissage d un nuage de points",
9989 CHAM_NO =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
9990 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
9991 CHAM_NO_REFE =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
9992 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
9994 b_elem =BLOC(condition="METHODE=='ELEM'",
9995 fr="Utilisation des fonctions de forme",
9996 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'), ),
9997 RESULTAT =SIMP(statut='f',typ=(evol_ther,evol_elas,evol_noli) ),
9998 MODELE_1 =SIMP(statut='f',typ=modele),
9999 MODELE_2 =SIMP(statut='f',typ=modele),
10000 TOUT_ORDRE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
10001 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
10002 LIST_ORDRE =SIMP(statut='f',typ=listis),
10003 INST =SIMP(statut='f',typ='R',max='**' ),
10004 LIST_INST =SIMP(statut='f',typ=listr8),
10005 FREQ =SIMP(statut='f',typ='R',max='**' ),
10006 LIST_FREQ =SIMP(statut='f',typ=listr8),
10009 VIS_A_VIS =FACT(statut='f',min=01,max='**',
10010 regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
10011 AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
10012 TOUT_1 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10013 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
10014 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
10015 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
10016 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
10017 TOUT_2 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10018 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
10019 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
10020 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
10021 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
10024 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10026 #& MODIF COMMANDE DATE 29/06/95 AUTEUR ACBHHJA G.JACQUART
10027 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op= 71,sd_prod=matr_asse_gene_r,
10028 fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
10029 docu="U4.63.12-E",reentrant='n',
10030 regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
10031 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
10032 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
10033 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
10034 MATR_ASSE =SIMP(statut='f',typ=matr_asse_depl_r ),
10035 MATR_ASSE_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
10038 #& MODIF COMMANDE DATE 27/06/2000 AUTEUR CIBHHBC B.CIREE
10039 def proj_mesu_modal_prod(MESURE,**args):
10040 vale=MESURE['NOM_PARA']
10041 if vale == 'INST' : return tran_gene
10042 raise AsException("type de concept resultat non prevu")
10044 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
10045 sd_prod=proj_mesu_modal_prod,
10046 docu="U4.73.01-A",reentrant='n',
10047 fr="Extrapolation de resultats experimentaux sur un modele numerique en dynamique",
10049 # commentaire C. Durand-13/10/2000 :
10050 #le mot cle NOM_PARA, par construction, vaut tjs INST : donc on retourne TRAN_GENE a chaque fois
10051 #def proj_mesu_modal_prod(**args):
10052 # vale=args['MESURE'].get_child('NOM_PARA').get_valeur()
10053 # if vale == 'INST' : return tran_gene
10054 # raise AsException("type de concept resultat non prevu")
10055 #PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,sd_prod=proj_mesu_modal_prod,)
10057 MODELE =SIMP(statut='f',typ=(modele) ),
10058 MASS_GENE =SIMP(statut='o',typ=(matr_asse_gene_r) ),
10059 RIGI_GENE =SIMP(statut='o',typ=(matr_asse_gene_r) ),
10060 MESURE =FACT(statut='o',min=01,max=01,
10061 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
10062 CARA_ELEM =SIMP(statut='o',typ=(cara_elem) ),
10063 UNITE =SIMP(statut='f',typ='I',defaut= 33 ),
10064 NOM_PARA =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST",) ),
10065 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10066 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
10067 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","SIGM_NOEU_DEPL","EPSI_NOEU_DEPL",) ),
10069 REGULARISATION =FACT(statut='f',min=01,max=01,
10070 regles=(UN_PARMI('COEF_PONDER','COEF_PONDER_F', ),),
10071 METHODE =SIMP(statut='f',typ='TXM',defaut="TIKHONOV",into=("TIKHONOV",) ),
10072 NORM_MIN =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
10073 COEF_PONDER =SIMP(statut='f',typ='R',max='**' ),
10074 COEF_PONDER_F =SIMP(statut='f',typ=(fonction),max='**' ),
10077 #& MODIF COMMANDE DATE 11/02/98 AUTEUR SABJLMA P.LATRUBESSE
10078 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-C",reentrant='n',
10079 fr="Projection d un ou plusieurs spectres de turbulence, définis par DEFI_SPEC_TURB, sur un ensemble de bases modales ",
10080 regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
10081 ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
10082 SPEC_TURB =SIMP(statut='o',typ=spectre,max='**' ),
10083 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
10084 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
10085 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
10086 FREQ_INIT =SIMP(statut='f',typ='R' ),
10087 FREQ_FIN =SIMP(statut='f',typ='R' ),
10088 NB_POIN =SIMP(statut='f',typ='I' ),
10089 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
10090 GROUP_MA =SIMP(statut='f',typ=grma),
10091 # Quel est le type attendu derriere MODELE_INTERFACE
10092 MODELE_INTERFACE=SIMP(statut='f',typ=modele),
10093 VECT_X =SIMP(statut='f',typ='R',min=03,max=03 ),
10094 VECT_Y =SIMP(statut='f',typ='R',min=03,max=03 ),
10095 ORIG_AXE =SIMP(statut='f',typ='R',min=03,max=03 ),
10096 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10098 #& MODIF COMMANDE DATE 29/06/95 AUTEUR ACBHHJA G.JACQUART
10099 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op= 72,sd_prod=vect_asse_gene,
10100 fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
10101 docu="U4.63.13-E",reentrant='n',
10102 regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
10103 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
10104 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
10105 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
10106 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
10107 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
10108 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene ),
10110 #& MODIF COMMANDE DATE 25/09/2000 AUTEUR T2BAXJM R.MASSON
10111 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
10112 fr=" ",docu="U4.82.06-A",reentrant='n',
10113 LIST_PARA =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
10114 RESU =FACT(statut='o',min=01,max='**',
10115 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
10116 AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
10117 EVOL_NOLI =SIMP(statut='o',typ=(evol_noli) ),
10118 MODELE =SIMP(statut='o',typ=(modele) ),
10119 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
10120 TEMPE =SIMP(statut='f',typ='R' ),
10121 LIST_INST_RUPT =SIMP(statut='o',typ='R',max='**' ),
10122 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10123 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
10124 INST =SIMP(statut='f',typ='R',max='**' ),
10125 LIST_INST =SIMP(statut='f',typ=(listr8) ),
10126 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400.E0 ),
10127 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10128 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10129 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10130 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.E0 ),
10132 OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
10133 CORR_PLAST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
10134 METHODE =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
10135 INCO_GLOB_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10136 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
10137 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
10139 #& MODIF COMMANDE DATE 07/06/2000 AUTEUR VABHHTS J.PELLET
10140 def recu_champ_prod(NOM_CHAM,RESULTAT,**args ):
10141 if AsType(RESULTAT) == dyna_harmo : return cham_no_depl_c
10142 if NOM_CHAM == "GEOMETRIE" : return cham_no_geom_r
10143 if NOM_CHAM == "DEPL" : return cham_no_depl_r
10144 if NOM_CHAM == "DEPL_ABSOLU" : return cham_no_depl_r
10145 if NOM_CHAM == "VITE" : return cham_no_depl_r
10146 if NOM_CHAM == "VITE_ABSOLU" : return cham_no_depl_r
10147 if NOM_CHAM == "ACCE" : return cham_no_depl_r
10148 if NOM_CHAM == "ACCE_ABSOLU" : return cham_no_depl_r
10149 if NOM_CHAM == "TEMP" : return cham_no_temp_r
10150 if NOM_CHAM == "FORC_NODA" : return cham_no_depl_r
10151 if NOM_CHAM == "REAC_NODA" : return cham_no_depl_r
10152 if NOM_CHAM == "EPSI_NOEU_DEPL" : return cham_no_sief_r
10153 if NOM_CHAM == "SIGM_NOEU_CART" : return cham_no_sief_r
10154 if NOM_CHAM == "SIGM_NOEU_DEPL" : return cham_no_sief_r
10155 if NOM_CHAM == "SIGM_NOEU_VARI" : return cham_no_sief_r
10156 if NOM_CHAM == "SIGM_NOEU_SIEF" : return cham_no_sief_r
10157 if NOM_CHAM == "SIPO_NOEU_SIEF" : return cham_no_sief_r
10158 if NOM_CHAM == "EFGE_NOEU_CART" : return cham_no_sief_r
10159 if NOM_CHAM == "EFGE_NOEU_DEPL" : return cham_no_sief_r
10160 if NOM_CHAM == "EQUI_NOEU_SIGM" : return cham_no_sief_r
10161 if NOM_CHAM == "EQUI_NOEU_EPSI" : return cham_no_sief_r
10162 if NOM_CHAM == "FLUX_NOEU_TEMP" : return cham_no_flux_r
10163 if NOM_CHAM == "SIGM_NOZ1_ELGA" : return cham_no_sief_r
10164 if NOM_CHAM == "SIGM_NOZ2_ELGA" : return cham_no_sief_r
10165 if NOM_CHAM == "INTE_NOEU_ACTI" : return cham_no_inte_r
10166 if NOM_CHAM == "INTE_NOEU_REAC" : return cham_no_inte_r
10167 if NOM_CHAM == "PRES_NOEU_DBEL" : return cham_no_dbel_r
10168 if NOM_CHAM == "PRES_NOEU_IMAG" : return cham_no_pres_r
10169 if NOM_CHAM == "PRES_NOEU_REEL" : return cham_no_pres_r
10170 if NOM_CHAM == "VARI_NOEU_ELGA" : return cham_no_var2_r
10171 if NOM_CHAM == "META_NOEU_TEMP" : return cham_no_var2_r
10172 if NOM_CHAM == "GRAD_NOEU_THETA": return cham_no_var2_r
10173 if NOM_CHAM == "PHASMETA" : return cham_elem_meta_r
10174 if NOM_CHAM == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
10175 if NOM_CHAM == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
10176 if NOM_CHAM == "EFGE_ELNO_CART" : return cham_elem_sief_r
10177 if NOM_CHAM == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
10178 if NOM_CHAM == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
10179 if NOM_CHAM == "EPSG_ELGA_DEPL" : return cham_elem_epsi_r
10180 if NOM_CHAM == "EPSG_ELNO_DEPL" : return cham_elem_epsi_r
10181 if NOM_CHAM == "EPSP_ELGA" : return cham_elem_epsi_r
10182 if NOM_CHAM == "EPSP_ELNO" : return cham_elem_epsi_r
10183 if NOM_CHAM == "EPSI_ELGA_DEPL" : return cham_elem_epsi_r
10184 if NOM_CHAM == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
10185 if NOM_CHAM == "EPSA_ELNO" : return cham_elem_epsi_r
10186 if NOM_CHAM == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
10187 if NOM_CHAM == "EQUI_ELGA_EPSI" : return cham_elem_sief_r
10188 if NOM_CHAM == "EQUI_ELNO_EPSI" : return cham_elem_sief_r
10189 if NOM_CHAM == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
10190 if NOM_CHAM == "ERRE_ELEM_NOZ1" : return cham_elem_erreur
10191 if NOM_CHAM == "ERRE_ELEM_NOZ2" : return cham_elem_erreur
10192 if NOM_CHAM == "ERRE_ELGA_NORE" : return cham_elem_erreur
10193 if NOM_CHAM == "ERRE_ELNO_ELGA" : return cham_elem_erreur
10194 if NOM_CHAM == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
10195 if NOM_CHAM == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
10196 if NOM_CHAM == "INTE_ELNO_ACTI" : return cham_elem_inte_r
10197 if NOM_CHAM == "INTE_ELNO_REAC" : return cham_elem_inte_r
10198 if NOM_CHAM == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
10199 if NOM_CHAM == "PRES_ELNO_IMAG" : return cham_elem_pres_r
10200 if NOM_CHAM == "PRES_ELNO_REEL" : return cham_elem_pres_r
10201 if NOM_CHAM == "SIEF_ELGA" : return cham_elem_sief_r
10202 if NOM_CHAM == "SIEF_ELNO" : return cham_elem_sief_r
10203 if NOM_CHAM == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
10204 if NOM_CHAM == "SIGM_ELNO_CART" : return cham_elem_sief_r
10205 if NOM_CHAM == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
10206 if NOM_CHAM == "SIGM_ELNO_VARI" : return cham_elem_sief_r
10207 if NOM_CHAM == "SIGM_ELNO_SIEF" : return cham_elem_sief_r
10208 if NOM_CHAM == "SIPO_ELNO_SIEF" : return cham_elem_sief_r
10209 if NOM_CHAM == "SIEF_ELNO_ELGA" : return cham_elem_sief_r
10210 if NOM_CHAM == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
10211 if NOM_CHAM == "SIRE_ELNO_DEPL" : return cham_elem_sief_r
10212 if NOM_CHAM == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
10213 if NOM_CHAM == "VARI_ELGA" : return cham_elem_vari_r
10214 if NOM_CHAM == "VARI_ELNO" : return cham_elem_vari_r
10215 if NOM_CHAM == "VARI_ELNO_ELGA" : return cham_elem_vari_r
10216 if NOM_CHAM == "VNOR_ELEM_DEPL" : return cham_elem_vnor_c
10217 if NOM_CHAM == "DCHA_ELGA_SIGM" : return cham_elem_vari_r
10218 if NOM_CHAM == "DCHA_ELNO_SIGM" : return cham_elem_vari_r
10219 if NOM_CHAM == "RADI_ELGA_SIGM" : return cham_elem_vari_r
10220 if NOM_CHAM == "RADI_ELNO_SIGM" : return cham_elem_vari_r
10221 if NOM_CHAM == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
10222 if NOM_CHAM == "ENDO_ELNO_SIGA" : return cham_elem_sief_r
10223 if NOM_CHAM == "ENDO_ELNO_SINO" : return cham_elem_sief_r
10224 if NOM_CHAM == "EPME_ELNO_DEPL" : return cham_elem_epsi_r
10225 if NOM_CHAM == "EPME_ELGA_DEPL" : return cham_elem_epsi_r
10226 if NOM_CHAM == "EPME_ELNO_DPGE" : return cham_elem_epsi_r
10227 if NOM_CHAM == "EPMG_ELNO_DEPL" : return cham_elem_epsi_r
10228 if NOM_CHAM == "EPMG_ELGA_DEPL" : return cham_elem_epsi_r
10229 if NOM_CHAM == "THETA" : return cham_no_depl_r
10230 if NOM_CHAM == "GRAD_ELGA_THETA" : return cham_elem_g_depl
10231 if NOM_CHAM == "GRAD_ELNO_ELGA" : return cham_elem_g_depl
10232 if NOM_CHAM == "HYDR_ELGA" : return cham_elem_hydr_r
10233 raise AsException("type de concept resultat non prevu")
10235 RECU_CHAMP=OPER(nom="RECU_CHAMP",op= 59,sd_prod=recu_champ_prod,
10236 fr="Récupération dans un résultat composé d un seul champ aux noeuds ou par éléments",
10237 docu="U4.71.01-F",reentrant='n',
10238 regles=(UN_PARMI('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL', ),
10239 UN_PARMI('RESULTAT','MAILLAGE'),),
10240 # creer une structure de donnees RESULTAT global
10241 RESULTAT =SIMP(statut='f',typ=resultat),
10242 MAILLAGE =SIMP(statut='f',typ=maillage),
10243 NOM_CHAM =SIMP(statut='o',typ='TXM',
10244 into=( "DEPL","VITE","ACCE","DEPL_ABSOLU",
10245 "VITE_ABSOLU","TEMP","ACCE_ABSOLU","FORC_NODA",
10246 "REAC_NODA","EFGE_NOEU_DEPL","EFGE_NOEU_CART",
10247 "EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
10248 "SIGM_NOEU_CART","SIPO_NOEU_DEPL",
10249 "EQUI_NOEU_SIGM","EQUI_NOEU_EPSI",
10250 "FLUX_NOEU_TEMP","FLUX_ELGA_TEMP",
10251 "FLUX_ELNO_TEMP","META_ELGA_TEMP",
10252 "META_ELNO_TEMP","META_NOEU_TEMP",
10253 "DURT_ELGA_META","DURT_ELNO_META",
10254 "DURT_NOEU_META","SIEF_ELGA","SIEF_ELNO_ELGA",
10255 "SIEF_ELGA_DEPL","VARI_ELNO_ELGA","VARI_ELGA",
10256 "EPOT_ELEM_DEPL","ECIN_ELEM_DEPL",
10257 "SOUR_ELGA_ELEC","PRES_ELNO_REEL",
10258 "PRES_ELNO_IMAG","PRES_ELNO_DBEL",
10259 "INTE_ELNO_ACTI","INTE_ELNO_REAC",
10260 "EFGE_ELNO_DEPL","SIGM_ELNO_DEPL",
10261 "EFGE_ELNO_CART","SIGM_ELNO_CART",
10262 "SIPO_ELNO_DEPL","EPSI_ELNO_DEPL",
10263 "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL",
10264 "EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
10265 "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
10266 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
10267 "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
10268 "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
10269 "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
10270 "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
10271 "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
10272 "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
10273 "PRES_NOEU_DBEL","PRES_NOEU_REEL",
10274 "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
10275 "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
10276 "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
10277 "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
10278 "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
10279 "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
10280 "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
10281 "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
10282 "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
10283 "GTHE_ELNO_ELGA","GRAD_NOEU_THETA","HYDR_ELGA",
10284 "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",) ),
10285 TYPE_MAXI =SIMP(statut='f',typ='TXM',
10286 into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN") ),
10287 NUME_ORDRE =SIMP(statut='f',typ='I' ),
10288 INST =SIMP(statut='f',typ='R' ),
10289 FREQ =SIMP(statut='f',typ='R' ),
10290 NUME_MODE =SIMP(statut='f',typ='I' ),
10291 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**' ),
10292 NOM_CAS =SIMP(statut='f',typ='TXM' ),
10293 ANGL =SIMP(statut='f',typ='R' ),
10294 b_prec_crit =BLOC(condition = "(INST != None) or (FREQ != None)",
10295 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10296 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10297 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
10299 b_type_maxi =BLOC(condition = "TYPE_MAXI != None",
10300 regles=(EXCLUS('TOUT_ORDRE','LIST_INST' ),),
10301 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST") ),
10302 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10303 LIST_INST =SIMP(statut='f',typ=listr8 ),
10304 b_prec_crit =BLOC(condition = "(INST != None) or (FREQ != None)",
10305 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10306 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10309 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10311 #& MODIF COMMANDE DATE 28/06/2000 AUTEUR CIBHHLV L.VIVAN
10312 def recu_fonction_prod(RESULTAT=None,OBSTACLE=None,TABLE=None,RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,TYPE_RESU=None,**args):
10313 if AsType(RESULTAT) == dyna_harmo : return fonction_c
10314 # On ne sait pas interpreter les deux conditions suivantes
10316 if TYPE_RESU != None :
10317 if TYPE_RESU == "FONCTION_C" : return fonction_c
10318 if TYPE_RESU == "FONCTION" : return fonction
10321 if RESU_GENE != None : return fonction
10322 if BASE_ELAS_FLUI != None : return fonction
10323 if RESULTAT != None : return fonction
10324 if CHAM_GD != None : return fonction
10325 if OBSTACLE != None : return fonction
10326 raise AsException("type de concept resultat non prevu")
10328 RECU_FONCTION=OPER(nom="RECU_FONCTION",op= 90,sd_prod=recu_fonction_prod,
10329 fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
10330 docu="U4.32.03-E",reentrant='n',
10331 regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
10333 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
10334 cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
10335 cham_elem_pres_r,cham_elem_meta_r ) ),
10336 RESULTAT =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
10337 RESU_GENE =SIMP(statut='f',typ=tran_gene),
10338 # concept table à créer
10339 TABLE =SIMP(statut='f',typ=table),
10340 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu),
10341 REPERE =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
10342 OBSTACLE =SIMP(statut='f',typ=obstacle),
10344 b_tran_gene = BLOC ( condition = "RESU_GENE != None",fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
10345 regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
10346 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),),
10347 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
10348 CORR_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10349 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
10350 PARA_X =SIMP(statut='f',typ='TXM' ),
10351 PARA_Y =SIMP(statut='f',typ='TXM' ),
10352 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
10353 LIST_PARA =SIMP(statut='f',typ=listr8 ),
10354 INTITULE =SIMP(statut='f',typ='TXM' ),
10356 b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",fr="Récupération de la fonction à partir d un concept melasflu",
10357 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
10358 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10359 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10360 NUME_MODE =SIMP(statut='o',typ='I' ),
10361 PARA_X =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
10362 PARA_Y =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
10364 b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
10365 regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
10366 PRESENT_PRESENT('PARA_X','PARA_Y'),),
10367 PARA_X =SIMP(statut='f',typ='TXM',
10368 fr="1ère colonne de la table qui définit la fonction à récupérer", ),
10369 PARA_Y =SIMP(statut='f',typ='TXM',
10370 fr="2ème colonne de la table qui définit la fonction à récupérer", ),
10371 NOM_PARA_TABL =SIMP(statut='f',typ='TXM',into=("FONCTION",),
10372 fr="Nom du paramètre de la table à qui est associé la fonction" ),
10373 b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
10374 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
10376 FILTRE =FACT(statut='f',min=01,max='**',
10377 regles=(UN_PARMI('VALE','VALE_I','VALE_C','VALE_K','VALE_CO'),),
10378 NOM_PARA =SIMP(statut='o',typ='TXM' ),
10379 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
10380 into=("EQ","LT","GT",
10382 "VIDE","NON_VIDE",) ),
10383 VALE =SIMP(statut='f',typ='R' ),
10384 VALE_I =SIMP(statut='f',typ='I' ),
10385 VALE_C =SIMP(statut='f',typ='C' ),
10386 VALE_K =SIMP(statut='f',typ='TXM' ),
10387 VALE_CO =SIMP(statut='f',typ=geom),
10388 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10389 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10393 b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
10395 # A voir par Matthieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
10396 # UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
10397 AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
10398 PRESENT_PRESENT('MAILLE','NOM_CMP'),
10399 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
10400 PRESENT_PRESENT('NOEUD','NOM_CMP'),
10401 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
10402 PRESENT_PRESENT('POINT','NOM_CMP'),
10403 EXCLUS('POINT','NOEUD'),
10404 EXCLUS('GROUP_MA','MAILLE'),
10405 EXCLUS('GROUP_NO','NOEUD'),
10406 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
10407 # A voir par Matthieu Courtois : les champs INTO de NOM_CHAM
10408 # NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
10409 NOM_CHAM =SIMP(statut='f',typ='TXM' ),
10410 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10411 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10412 LIST_ORDRE =SIMP(statut='f',typ=listis ),
10413 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10414 INST =SIMP(statut='f',typ='R',max='**'),
10415 LIST_INST =SIMP(statut='f',typ=listr8 ),
10416 FREQ =SIMP(statut='f',typ='R',max='**'),
10417 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
10418 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
10419 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10420 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10421 INTERP_NUME =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN") ),
10423 NOM_CMP =SIMP(statut='f',typ='TXM' ),
10425 MAILLE =SIMP(statut='f',typ=ma),
10426 GROUP_MA =SIMP(statut='f',typ=grma),
10427 NOEUD =SIMP(statut='f',typ=no),
10428 GROUP_NO =SIMP(statut='f',typ=grno),
10429 POINT =SIMP(statut='f',typ='I' ),
10430 NOEUD_CHOC =SIMP(statut='f',typ=no),
10431 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
10434 b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
10435 # A voir par Matthieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
10436 # regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
10437 # A voir par Matthieu Courtois : les champs INTO de NOM_CHAM
10438 # A voir par Matthieu Courtois : NOM_CHAM facultatif et non obligatoire
10439 # NOM_CHAM =SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
10440 NOM_CHAM =SIMP(statut='f',typ='TXM' ),
10441 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10442 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10443 LIST_ORDRE =SIMP(statut='f',typ=listis ),
10444 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10445 INST =SIMP(statut='f',typ='R',max='**'),
10446 LIST_INST =SIMP(statut='f',typ=listr8 ),
10447 FREQ =SIMP(statut='f',typ='R',max='**'),
10448 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
10449 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
10450 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10451 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10452 INTERP_NUME =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN") ),
10454 b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
10455 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
10456 PRESENT_PRESENT('MAILLE','NOM_CMP'),
10457 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
10458 PRESENT_PRESENT('NOEUD','NOM_CMP'),
10459 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
10460 PRESENT_PRESENT('POINT','NOM_CMP'),
10461 EXCLUS('POINT','NOEUD'),
10462 EXCLUS('GROUP_MA','MAILLE'),
10463 EXCLUS('GROUP_NO','NOEUD'),
10464 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
10465 NOM_CMP =SIMP(statut='f',typ='TXM' ),
10467 MAILLE =SIMP(statut='f',typ=ma),
10468 GROUP_MA =SIMP(statut='f',typ=grma),
10469 NOEUD =SIMP(statut='f',typ=no),
10470 GROUP_NO =SIMP(statut='f',typ=grno),
10471 POINT =SIMP(statut='f',typ='I' ),
10472 NOEUD_CHOC =SIMP(statut='f',typ=no),
10473 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
10477 b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
10478 # A voir par Matthieu Courtois : les champs INTO de NOM_CHAM
10479 # A voir par Matthieu Courtois : NOM_CHAM facultatif et non obligatoire
10480 # NOM_CHAM =SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
10481 NOM_CHAM =SIMP(statut='f',typ='TXM' ),
10482 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
10483 PRESENT_PRESENT('MAILLE','NOM_CMP'),
10484 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
10485 PRESENT_PRESENT('NOEUD','NOM_CMP'),
10486 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
10487 PRESENT_PRESENT('POINT','NOM_CMP'),
10488 EXCLUS('POINT','NOEUD'),
10489 EXCLUS('GROUP_MA','MAILLE'),
10490 EXCLUS('GROUP_NO','NOEUD'),
10491 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
10492 NOM_CMP =SIMP(statut='f',typ='TXM' ),
10494 MAILLE =SIMP(statut='f',typ=ma),
10495 GROUP_MA =SIMP(statut='f',typ=grma),
10496 NOEUD =SIMP(statut='f',typ=no),
10497 GROUP_NO =SIMP(statut='f',typ=grno),
10498 POINT =SIMP(statut='f',typ='I' ),
10499 NOEUD_CHOC =SIMP(statut='f',typ=no),
10500 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
10503 NOM_PARA =SIMP(statut='f',typ='TXM',
10504 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10505 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
10506 NOM_RESU =SIMP(statut='f',typ='TXM' ),
10507 INTERPOL =SIMP(statut='f',typ='TXM',max=02,into=("NON","LIN","LOG") ),
10508 PROL_DROIT =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10509 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10511 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10512 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
10514 #& MODIF COMMANDE DATE 03/03/97 AUTEUR A2BHHWS A.C.LEGER
10515 RECU_GENE=OPER(nom="RECU_GENE",op= 76,sd_prod=vect_asse_gene,docu="U4.71.03-E",reentrant='n',
10516 fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
10517 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
10518 INST =SIMP(statut='o',typ='R' ),
10519 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
10520 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
10521 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
10522 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10524 #& MODIF COMMANDE DATE 22/07/99 AUTEUR CIBHHLV L.VIVAN
10525 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
10526 fr=" ",docu="U4.71.02-A",reentrant='n',
10527 CO =SIMP(statut='o',typ=assd),
10528 NOM_TABLE =SIMP(statut='o',typ='TXM' ),
10529 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10531 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR VABHHTS J.PELLET
10532 def reso_grad_prod(MATR_ASSE,**args ):
10533 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
10534 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
10535 if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
10536 raise AsException("type de concept resultat non prevu")
10538 RESO_GRAD=OPER(nom="RESO_GRAD",op= 84,sd_prod=reso_grad_prod,
10539 fr="Résolution par la méthode du gradient conjugué préconditionné",
10540 docu="U4.55.04-E",reentrant='f',
10541 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10542 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
10543 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
10544 MATR_FACT =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10545 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
10546 REPRISE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10547 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1E-6 ),
10548 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
10550 #& MODIF COMMANDE DATE 02/10/96 AUTEUR CIBHHLV L.VIVAN
10551 def reso_ldlt_prod(CHAM_NO,**args ):
10552 if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
10553 if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
10554 if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
10555 if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
10556 if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
10557 if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
10558 raise AsException("type de concept resultat non prevu")
10560 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
10561 fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-F",
10562 MATR_FACT =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
10563 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
10564 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
10565 cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
10566 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
10567 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10568 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
10570 #& MODIF COMMANDE DATE 31/05/2000 AUTEUR CIBHHLV L.VIVAN
10571 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
10572 if AsType(RESU_GENE) == tran_gene : return dyna_trans
10573 if AsType(RESU_GENE) == mode_gene : return mode_meca
10574 if AsType(RESU_GENE) == mode_cycl : return mode_meca
10575 if AsType(RESU_GENE) == harm_gene : return dyna_harmo
10576 if AsType(RESULTAT) == mode_meca : return mode_meca
10577 raise AsException("type de concept resultat non prevu")
10579 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op= 75,sd_prod=rest_base_phys_prod,
10580 fr="Restituer dans la base physique des résultats en coordonnées généralisées",
10581 docu="U4.63.21-E",reentrant='n',
10582 regles=(UN_PARMI('RESU_GENE','RESULTAT'),
10583 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
10584 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
10586 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
10587 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
10588 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
10589 EXCLUS('NOEUD','GROUP_NO'),
10590 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
10591 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
10592 RESU_GENE =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
10593 RESULTAT =SIMP(statut='f',typ=mode_meca ),
10595 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
10596 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10597 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
10598 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10599 INST =SIMP(statut='f',typ='R',max='**' ),
10600 LIST_INST =SIMP(statut='f',typ=listr8 ),
10601 FREQ =SIMP(statut='f',typ='R',max='**' ),
10602 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
10603 b_prec_crit =BLOC(condition = "INST != None or LIST_INST != None or FREQ != None or LIST_FREQ != None",
10604 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
10605 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10607 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
10609 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10610 CORR_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10611 NOM_CHAM =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
10612 into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
10613 "SIGM_ELNO_DEPL","FORC_NODA",) ),
10614 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10615 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10616 NOEUD =SIMP(statut='f',typ=no,max='**'),
10618 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
10619 DIRECTION =SIMP(statut='f',typ='R',max='**' ),
10621 SQUELETTE =SIMP(statut='f',typ=squelette ),
10622 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
10623 SECTEUR =SIMP(statut='f',typ='I',defaut= 1 ),
10624 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10626 #& MODIF COMMANDE DATE 16/12/97 AUTEUR CIBHHLV L.VIVAN
10627 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
10628 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",
10629 docu="U4.63.22-C",reentrant='n',
10630 regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
10631 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
10632 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
10633 BANDE =SIMP(statut='f',typ='R',min=02,max=02 ),
10634 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
10635 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
10636 NOEUD =SIMP(statut='o',typ=no,max='**'),
10637 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
10638 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10639 NOM_CHAM =SIMP(statut='o',typ='TXM',max=07,
10640 into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
10641 "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
10642 MODE_STAT =SIMP(statut='f',typ=mode_stat ),
10643 EXCIT =FACT(statut='f',max=01,
10644 NOEUD =SIMP(statut='o',typ=no,max='**'),
10645 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
10647 MOUVEMENT =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
10648 OPTION =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
10649 into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
10650 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10652 #& MODIF COMMANDE DATE 16/06/2000 AUTEUR D6BHHJP J.P.LEFEBVRE
10653 RETOUR=PROC(nom="RETOUR",op= -2,docu="U4.13.02-E",
10654 fr="Retour au fichier de commandes appelant",
10656 #& MODIF COMMANDE DATE 03/10/2000 AUTEUR VABHHTS J.PELLET
10657 # RESPONSABLE GJBHHEL E.LORENTZ
10658 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
10659 fr="Analyse mécanique statique non linéaire",
10660 docu="U4.51.03-E",reentrant='f',
10661 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),
10662 EXCLUS('RECH_LINEAIRE','PILOTAGE'), ),
10663 MODELE =SIMP(statut='o',typ=modele),
10664 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
10665 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
10666 EXCIT =FACT(statut='o',min=01,max='**',
10667 CHARGE =SIMP(statut='o',typ=char_meca),
10668 FONC_MULT =SIMP(statut='f',typ=fonction),
10669 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
10670 into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
10672 COMP_INCR =FACT(statut='f',min=01,max='**',
10673 RELATION =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
10681 "BETON_ENDO_LOCAL",
10727 "GRILLE_ISOT_LINE",
10728 "GRILLE_CINE_LINE",
10729 "GRILLE_PINTO_MEN",
10748 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10749 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10750 VMIS_ISOT_LINE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10751 VMIS_ECMI_TRAC =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
10752 VMIS_ECMI_LINE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
10753 ENDO_LOCAL =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10754 ENDO_FRAGILE =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10755 BETON_ENDO_LOCAL=SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10756 RUPT_FRAG =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10757 PLAS_GRAD =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10758 DURC_GRAD =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10759 META_PL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10760 META_PL_PT =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10761 META_PL_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10762 META_PL_PT_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10763 META_VL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10764 META_VL_PT =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10765 META_VL_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10766 META_VL_PT_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10767 META_PNL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10768 META_PNL_PT =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10769 META_PNL_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10770 META_PNL_PT_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10771 META_VNL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10772 META_VNL_PT =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10773 META_VNL_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10774 META_VNL_PT_RE =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10775 VMIS_CINE_LINE =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
10776 CHABOCHE =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
10777 VISCOCHAB =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
10778 VMIS_CIN1_CHAB =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
10779 VMIS_CIN2_CHAB =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
10780 POLY_CFC =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
10781 LMARC =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
10782 TAHERI =SIMP(statut='c',typ='I',defaut=15,into=(15,)),
10783 VISC_TAHERI =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
10784 ROUSSELIER =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
10785 VMIS_POU_LINE =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
10786 VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
10787 COULOMB =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10788 ASSE_CORN =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10789 ARME =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10790 NORTON_HOFF =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10791 LEMAITRE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10792 ZIRC_CYRA2 =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10793 ZIRC_EPRI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10794 ASSE_COMBU =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10795 NADAI_B =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
10796 VENDOCHAB =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
10797 GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10798 GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10799 GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
10800 DIS_CONTACT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
10801 DIS_CHOC =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
10802 DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10803 DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10804 PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
10805 CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
10806 OHNO =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
10807 GRANGER_FP =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
10808 GRANGER_FP_V =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
10809 BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10810 KIT_HM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10811 KIT_HHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10812 KIT_THH =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10813 KIT_THM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10814 KIT_THHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10815 VMIS_ASYM_LINE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
10817 RELATION_KIT =SIMP(statut='f',typ='TXM',max='**',
10855 ELAS_THM =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10856 SURF_ETAT_NSAT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10857 SURF_ETAT_SATU =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10858 CAM_CLAY_THM =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
10859 GAZ =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10860 LIQU_SATU =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10861 LIQU_SATU_GAT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10862 LIQU_GAZ_ATM =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10863 LIQU_VAPE_GAZ =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
10864 LIQU_NSAT_GAT =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
10865 LIQU_GAZ =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
10866 THER_HOMO =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10867 THER_POLY =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10868 HYDR_UTIL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10869 HYDR =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
10870 ACIER =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
10871 ZIRC =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
10873 COQUE_NCOU =SIMP(statut='f',typ='I'),
10874 TUYAU_NCOU =SIMP(statut='f',typ='I' ),
10875 TUYAU_NSEC =SIMP(statut='f',typ='I' ),
10876 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE")),
10877 ALGO_C_PLAN =SIMP(statut='f',typ='TXM',into=("DEBORST",)),
10878 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10879 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10880 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10882 COMP_ELAS =FACT(statut='f',min=01,max='**',
10883 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
10884 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
10885 "ELAS_POUTRE_GR","CABLE")),
10886 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10887 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10888 ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10889 ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
10890 CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
10891 COQUE_NCOU =SIMP(statut='f',typ='I'),
10892 TUYAU_NCOU =SIMP(statut='f',typ='I'),
10893 TUYAU_NSEC =SIMP(statut='f',typ='I'),
10894 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
10895 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10896 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10897 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10899 ETAT_INIT =FACT(statut='f',min=01,max=01,
10900 regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
10901 EXCLUS('EVOL_NOLI','DEPL',),
10902 EXCLUS('EVOL_NOLI','SIGM',),
10903 EXCLUS('EVOL_NOLI','VARI',),
10904 EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
10905 EXCLUS('NUME_ORDRE','INST'), ),
10906 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
10907 SIGM =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
10908 VARI =SIMP(statut='f',typ=cham_elem_vari_r),
10909 VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_vanl_r),
10910 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
10911 NUME_ORDRE =SIMP(statut='f',typ='I'),
10912 INST =SIMP(statut='f',typ='R'),
10913 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10914 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10915 NUME_DIDI =SIMP(statut='f',typ='I'),
10916 INST_ETAT_INIT =SIMP(statut='f',typ='R'),
10918 INCREMENT =FACT(statut='o',min=01,max=01,
10919 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
10920 EXCLUS('NUME_INST_FIN','INST_FIN'),),
10921 LIST_INST =SIMP(statut='o',typ=listr8),
10922 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
10923 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
10924 NUME_INST_INIT =SIMP(statut='f',typ='I'),
10925 INST_INIT =SIMP(statut='f',typ='R'),
10926 NUME_INST_FIN =SIMP(statut='f',typ='I'),
10927 INST_FIN =SIMP(statut='f',typ='R'),
10928 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
10929 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
10930 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
10931 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
10933 NEWTON =FACT(statut='d',min=01,max=01,
10934 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
10935 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
10936 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
10937 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
10938 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
10940 RECH_LINEAIRE =FACT(statut='f',min=01,max=01,
10941 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10942 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
10944 PILOTAGE =FACT(statut='f',min=01,max=01,
10945 regles=(EXCLUS('NOEUD','GROUP_NO'),),
10946 TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS") ),
10947 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
10948 ETA_PILO_MAX =SIMP(statut='f',typ='R'),
10949 ETA_PILO_MIN =SIMP(statut='f',typ='R'),
10950 NOEUD =SIMP(statut='f',typ=no,max='**'),
10951 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10952 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
10954 CONVERGENCE =FACT(statut='d',min=01,max=01,
10955 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
10956 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
10957 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
10958 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
10959 RESI_INTE_RELA =SIMP(statut='f',typ='R'
10961 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
10962 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
10963 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
10964 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
10966 PARM_THETA =SIMP(statut='f',typ='R'
10968 SOLVEUR =FACT(statut='d',min=01,max=01,
10969 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
10970 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
10971 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
10973 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
10974 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
10975 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
10977 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
10978 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
10979 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
10980 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10982 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
10983 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
10984 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
10985 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
10986 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
10987 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
10990 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10991 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10993 ARCHIVAGE =FACT(statut='f',min=01,max=01,
10994 regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
10995 EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
10996 LIST_INST =SIMP(statut='f',typ=(listr8) ),
10997 INST =SIMP(statut='f',typ='R',max='**' ),
10998 PAS_ARCH =SIMP(statut='f',typ='I' ),
10999 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
11000 ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
11001 NUME_INIT =SIMP(statut='f',typ='I'),
11002 DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
11003 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
11004 "VARI_NON_LOCAL","LANL_ELGA")),
11006 MODELE_NON_LOCAL=SIMP(statut='f',typ=(modele) ),
11007 SOLV_NON_LOCAL =FACT(statut='d',min=01,max=01,
11008 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11009 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11010 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
11012 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11013 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11014 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
11016 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11017 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11018 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11019 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11021 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11022 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11023 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11024 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11025 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11028 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11030 LAGR_NON_LOCAL =FACT(statut='d',max=01,
11031 ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
11032 RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
11033 RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
11034 RHO =SIMP(statut='f',typ='R',defaut= 1000.),
11035 ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
11037 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
11038 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
11040 #& MODIF COMMANDE DATE 20/09/1999 AUTEUR DURAND C.DURAND
11041 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",
11043 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
11044 TEST_NOOK =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11045 VALEUR =FACT(statut='f',min=01,max='**',
11046 fr="Tester la valeur d une fonction ou d une nappe",
11047 regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
11048 FONCTION =SIMP(statut='o',typ=fonction ),
11049 NOM_PARA =SIMP(statut='f',typ='TXM',max=02),
11050 VALE_PARA =SIMP(statut='o',typ='R',max=02),
11051 VALE_REFE =SIMP(statut='f',typ='R' ),
11052 VALE_REFE_C =SIMP(statut='f',typ='C' ),
11053 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
11054 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11055 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
11057 REFERENCE =SIMP(statut='f',typ='TXM',
11058 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
11059 b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
11060 VERSION =SIMP(statut='f',typ='TXM' ),
11063 ATTRIBUT =FACT(statut='f',min=01,max='**',
11064 fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
11065 FONCTION =SIMP(statut='o',typ=fonction ),
11066 PARA =SIMP(statut='f',typ='R' ),
11067 CRIT_PARA =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11068 PREC_PARA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11069 ATTR =SIMP(statut='o',typ='TXM',
11070 into=("NOM_PARA","NOM_RESU","PROL_DROIT","PROL_GAUCHE","INTERPOL",
11071 "PROL_GAUCHE_FONC","PROL_DROIT_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
11072 ATTR_REFE =SIMP(statut='o',typ='TXM' ),
11073 REFERENCE =SIMP(statut='f',typ='TXM',
11074 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
11075 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
11076 VERSION =SIMP(statut='f',typ='TXM' ),
11079 TABL_INTSP =FACT(statut='f',min=01,max='**',
11080 fr="Tester la valeur d une fonction contenue dans une table interspectrale",
11081 regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
11082 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
11083 NOEUD_I =SIMP(statut='f',typ=no),
11084 NUME_ORDRE_I =SIMP(statut='f',typ='I' ),
11085 b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
11086 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
11088 b_noeud_i = BLOC (condition = "NOEUD_I != None",
11089 NOEUD_J =SIMP(statut='o',typ=no),
11090 NOM_CMP_I =SIMP(statut='o',typ='TXM' ),
11091 NOM_CMP_J =SIMP(statut='o',typ='TXM' ),
11093 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
11094 VALE_PARA =SIMP(statut='o',typ='R' ),
11095 VALE_REFE_C =SIMP(statut='o',typ='C' ),
11096 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
11097 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11098 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
11100 REFERENCE =SIMP(statut='f',typ='TXM',
11101 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
11102 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
11103 VERSION =SIMP(statut='f',typ='TXM' ),
11107 #& MODIF COMMANDE DATE 03/05/2000 AUTEUR VABHHTS J.PELLET
11108 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-F",
11109 fr="Extraction d une valeur et comparaison à une valeur de référence",
11110 regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
11111 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
11112 CHAM_NO =FACT(statut='f',min=01,max='**',
11113 regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
11114 EXCLUS('NOEUD','GROUP_NO'),
11115 PRESENT_PRESENT('NOEUD','NOM_CMP'),
11116 PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
11117 UN_PARMI('VALE','VALE_I','VALE_C'),),
11118 CHAM_GD =SIMP(statut='o',typ=cham_no),
11119 NOEUD =SIMP(statut='f',typ=no,max='**'),
11120 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
11121 NOM_CMP =SIMP(statut='f',typ='TXM' ),
11122 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
11123 VALE =SIMP(statut='f',typ='R'),
11124 VALE_I =SIMP(statut='f',typ='I'),
11125 VALE_C =SIMP(statut='f',typ='C'),
11126 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
11127 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
11128 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
11129 "NON_REGRESSION","AUTRE_ASTER")),
11130 VERSION =SIMP(statut='f',typ='TXM'),
11132 CHAM_ELEM =FACT(statut='f',min=01,max='**',
11133 regles=(UN_PARMI('MAILLE','TYPE_TEST',),
11134 EXCLUS('NOEUD','GROUP_NO','POINT'),
11135 PRESENT_PRESENT('NOEUD','NOM_CMP'),
11136 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
11137 PRESENT_PRESENT('POINT','NOM_CMP'),
11138 UN_PARMI('VALE','VALE_I','VALE_C'), ),
11139 CHAM_GD =SIMP(statut='o',typ=cham_elem),# CO()
11140 MAILLE =SIMP(statut='f',typ=ma),# CO()
11141 POINT =SIMP(statut='f',typ='I' ),
11142 NOEUD =SIMP(statut='f',typ=no),# CO()
11143 GROUP_NO =SIMP(statut='f',typ=grno),# CO()
11144 NOM_CMP =SIMP(statut='f',typ='TXM' ),
11145 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
11146 VALE =SIMP(statut='f',typ='R' ),
11147 VALE_I =SIMP(statut='f',typ='I' ),
11148 VALE_C =SIMP(statut='f',typ='C' ),
11149 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
11150 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11151 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
11152 "NON_REGRESSION","AUTRE_ASTER") ),
11153 VERSION =SIMP(statut='f',typ='TXM' ),
11155 RESU =FACT(statut='f',min=01,max='**',
11156 regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
11157 UN_PARMI('NOM_CHAM','PARA'),
11158 PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
11159 PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
11160 EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
11161 PRESENT_PRESENT('NOEUD','NOM_CMP'),
11162 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
11163 PRESENT_PRESENT('POINT','NOM_CMP'),
11164 UN_PARMI('VALE','VALE_I','VALE_C') ,),
11165 RESULTAT =SIMP(statut='o',typ=resultat),
11166 NUME_ORDRE =SIMP(statut='f',typ='I'),
11167 INST =SIMP(statut='f',typ='R'),
11168 FREQ =SIMP(statut='f',typ='R'),
11169 NUME_MODE =SIMP(statut='f',typ='I'),
11170 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**' ),
11171 NOM_CAS =SIMP(statut='f',typ='TXM'),
11172 ANGL =SIMP(statut='f',typ='R'),
11173 PARA =SIMP(statut='f',typ='TXM'),
11174 NOM_CHAM =SIMP(statut='f',typ='TXM'),
11175 NOM_CMP =SIMP(statut='f',typ='TXM'),
11176 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11177 NOEUD =SIMP(statut='f',typ=no,max='**'),
11178 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
11179 POINT =SIMP(statut='f',typ='I'),
11180 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
11181 VALE =SIMP(statut='f',typ='R'),
11182 VALE_I =SIMP(statut='f',typ='I'),
11183 VALE_C =SIMP(statut='f',typ='C'),
11184 CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=02),
11185 PRECISION =SIMP(statut='f',typ='R',max=02),
11186 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
11187 "NON_REGRESSION","AUTRE_ASTER",) ),
11188 VERSION =SIMP(statut='f',typ='TXM' ),
11190 OBJET =FACT(statut='f',max='**',
11191 regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
11192 UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
11193 NOM =SIMP(statut='o',typ='TXM'),
11194 INDICE =SIMP(statut='f',typ='I'),
11195 NUM_OBJ =SIMP(statut='f',typ='I'),
11196 S_R =SIMP(statut='f',typ='R'),
11197 S_I =SIMP(statut='f',typ='I'),
11198 RESUME =SIMP(statut='f',typ='I'),
11199 VALE =SIMP(statut='f',typ='R'),
11200 VALE_I =SIMP(statut='f',typ='I'),
11201 VALE_C =SIMP(statut='f',typ='C'),
11202 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
11203 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11204 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
11205 "NON_REGRESSION","AUTRE_ASTER",) ),
11206 VERSION =SIMP(statut='f',typ='TXM' ),
11209 #& MODIF COMMANDE DATE 20/09/1999 AUTEUR DURAND C.DURAND
11210 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",
11212 regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
11213 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
11214 # concept table à créer
11215 TABLE =SIMP(statut='o',typ=table),
11216 FILTRE =FACT(statut='f',min=01,max='**',
11217 regles=(UN_PARMI('VALE','VALE_I','VALE_C','VALE_K','VALE_CO', ),),
11218 NOM_PARA =SIMP(statut='o',typ='TXM' ),
11219 VALE =SIMP(statut='f',typ='R' ),
11220 VALE_I =SIMP(statut='f',typ='I' ),
11221 VALE_C =SIMP(statut='f',typ='C' ),
11222 VALE_K =SIMP(statut='f',typ='TXM' ),
11223 VALE_CO =SIMP(statut='f',typ=geom),
11224 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11225 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11227 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
11228 NOM_PARA =SIMP(statut='o',typ='TXM' ),
11229 VALE =SIMP(statut='f',typ='R' ),
11230 VALE_I =SIMP(statut='f',typ='I' ),
11231 VALE_C =SIMP(statut='f',typ='C' ),
11232 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11233 PRECISION =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
11234 REFERENCE =SIMP(statut='f',typ='TXM',
11235 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
11236 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
11237 VERSION =SIMP(statut='f',typ='TXM' ),
11240 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
11241 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-F",reentrant='f',
11242 fr="Analyse thermique linéaire stationnaire ou transitoire",
11243 MODELE =SIMP(statut='o',typ=modele),
11244 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
11245 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
11246 EXCIT =FACT(statut='o',min=01,max='**',
11247 CHARGE =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
11248 FONC_MULT =SIMP(statut='f',typ=fonction),
11250 INCREMENT =FACT(statut='f',min=01,max=01,
11251 LIST_INST =SIMP(statut='o',typ=listr8 ),
11252 NUME_INIT =SIMP(statut='f',typ='I'),
11253 NUME_FIN =SIMP(statut='f',typ='I'),
11255 TEMP_INIT =FACT(statut='f',min=01,max=01,
11256 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
11257 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11258 EVOL_THER =SIMP(statut='f',typ=evol_ther),
11259 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
11260 VALE =SIMP(statut='f',typ='R'),
11261 NUME_INIT =SIMP(statut='f',typ='I'),
11263 SENSIBILITE =FACT(statut='f',min=01,max=01,
11264 THETA =SIMP(statut='o',typ=theta_geom),
11266 DEUL_INIT =FACT(statut='f',min=01,max=01,
11267 regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
11268 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11269 EVOL_THER =SIMP(statut='f',typ=evol_ther),
11270 NUME_INIT =SIMP(statut='f',typ='I'),
11272 SOLVEUR =FACT(statut='d',min=01,max=01,
11273 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11274 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11275 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
11277 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11278 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11279 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
11281 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11282 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11283 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11284 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11286 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11287 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11288 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11289 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11290 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11291 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11294 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11296 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57),
11297 ARCHIVAGE =FACT(statut='f',min=01,max=01,
11298 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
11299 LIST_ARCH =SIMP(statut='f',typ=listis),
11300 LIST_INST =SIMP(statut='f',typ=listr8),
11301 INST =SIMP(statut='f',typ='R',max='**'),
11302 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11303 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
11304 into=("RELATIF","ABSOLU")),
11305 PAS_ARCH =SIMP(statut='f',typ='I'),
11306 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("VARI",)),
11308 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11309 OPTION =SIMP(statut='f',typ='TXM',max='**',
11310 into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP")),
11311 INFO =SIMP(statut='f',typ='I',into=(1,2)),
11313 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
11314 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-D",reentrant='f',
11315 fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
11316 MODELE =SIMP(statut='o',typ=(modele) ),
11317 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
11318 CARA_ELEM =SIMP(statut='c',typ=(cara_elem) ),
11319 COMP_THER_NL =FACT(statut='d',min=01,max='**',
11320 RELATION =SIMP(statut='f',typ='TXM',defaut="THER_NL",
11328 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11329 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
11330 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11332 EVOL_THER_SECH =SIMP(statut='f',typ=evol_ther),
11333 EXCIT =FACT(statut='o',min=01,max='**',
11334 CHARGE =SIMP(statut='o',typ=char_ther),
11335 FONC_MULT =SIMP(statut='f',typ=fonction),
11337 INCREMENT =FACT(statut='f',min=01,max=01,
11338 LIST_INST =SIMP(statut='o',typ=listr8),
11339 NUME_INIT =SIMP(statut='f',typ='I'),
11340 NUME_FIN =SIMP(statut='f',typ='I'),
11342 TEMP_INIT =FACT(statut='f',min=01,max=01,
11343 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
11344 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
11345 EVOL_THER =SIMP(statut='f',typ=evol_ther),
11346 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
11347 VALE =SIMP(statut='f',typ='R'),
11348 NUME_INIT =SIMP(statut='f',typ='I'),
11350 NEWTON =FACT(statut='d',min=01,max=01,
11351 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11352 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11353 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 0 ),
11355 CONVERGENCE =FACT(statut='d',min=01,max=01,
11356 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
11357 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
11358 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
11360 SOLVEUR =FACT(statut='d',min=01,max=01,
11361 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11362 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11363 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
11365 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11366 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11367 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
11369 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11370 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11371 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11372 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11374 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11375 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11376 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11377 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11378 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11379 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11382 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11383 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
11385 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57 ),
11386 ARCHIVAGE =FACT(statut='f',min=01,max=01,
11387 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
11388 LIST_ARCH =SIMP(statut='f',typ=(listis) ),
11389 LIST_INST =SIMP(statut='f',typ=(listr8) ),
11390 INST =SIMP(statut='f',typ='R',max='**'),
11391 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11392 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
11393 PAS_ARCH =SIMP(statut='f',typ='I'),
11394 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("VARI",)),
11396 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11397 OPTION =SIMP(statut='f',typ='TXM',max='**',
11398 into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
11399 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
11401 #& MODIF COMMANDE DATE 19/05/2000 AUTEUR JFBHHUC C.ROSE
11402 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
11403 fr="Thermique non lineaire en repere mobile",
11404 docu="U4.54.03-B",reentrant='f',
11405 MODELE =SIMP(statut='o',typ=modele ),
11406 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
11407 CARA_ELEM =SIMP(statut='c',typ=cara_elem ),
11408 EXCIT =FACT(statut='o',min=01,max='**',
11409 CHARGE =SIMP(statut='o',typ=char_ther ),
11410 FONC_MULT =SIMP(statut='c',typ=fonction ),
11412 TEMP_INIT =FACT(statut='f',min=01,max=01,
11413 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
11414 NUME_INIT =SIMP(statut='f',typ='I',defaut= 0 ),
11416 CONVERGENCE =FACT(statut='d',min=01,max=01,
11417 CRIT_TEMP_RELA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11418 CRIT_ENTH_RELA =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
11419 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
11420 ARRET =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11422 SOLVEUR =FACT(statut='d',min=01,max=01,
11423 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11424 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11425 RENUM =SIMP(statut='f',typ='TXM',defaut="MDA",into=("MD","MDA","METIS") ),
11427 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11428 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11429 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut= 400. ),
11431 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11432 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11433 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11434 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11436 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11437 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11438 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11439 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11440 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11441 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11443 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11444 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11446 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
11447 INFO =SIMP(statut='f',typ='I',into=(1,2) ),