# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-__version__ = "$Name: $"
-__Id__ = "$Id: cata_aster_v6.py,v 1.12 2001/01/16 15:55:05 iliade Exp $"
+__version__ = "$Name: BR_V1_12qt $"
+__Id__ = "$Id: cata.py,v 1.2 2007-06-15 15:52:00 cchris Exp $"
import Accas
from Accas import *
vect_elem_pres_r, vect_elem_pres_c, \
vect_elem_temp_r
-#& MODIF COMMUN DATE 24/09/2007 AUTEUR MARKOVIC D.MARKOVIC
+#& MODIF COMMUN DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
# CONFIGURATION MANAGEMENT OF EDF VERSION
# RESPONSABLE JMBHH01 J.M.PROIX
# ======================================================================
"LIQU_GAZ",
# HYDR
"HYDR_UTIL",
- "HYDR_VGM",
"HYDR",
"HYDR_ENDO",
# MECA_META
"ACIER",
"ZIRC",
# MECA KIT_DDI
- "VMIS_CINE_LINE",
"VMIS_ISOT_TRAC",
"VMIS_ISOT_LINE",
"VMIS_ISOT_CINE",
"VMIS_ISOT_PUIS",
- "GLRC_DM",
"GRANGER_FP",
"GRANGER_FP_INDT",
"GRANGER_FP_V",
LIQU_VAPE =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
LIQU_GAZ =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
HYDR_UTIL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
- HYDR_VGM =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
HYDR =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
HYDR_ENDO =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ACIER =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",
into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN","COROTATIONNEL","REAC_GEOM")),
ALGO_C_PLAN =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
-# b_deborst = BLOC(condition = " ALGO_C_PLAN == 'DEBORST' ",
-# fr="Tolérance relative sur la verification des contraintes planes",
- RESI_DEBORST =SIMP(statut='f',typ='R',defaut= 1.0E-6),
-# ),
+ b_deborst = BLOC(condition = " ALGO_C_PLAN == 'DEBORST' ",
+ fr="Tolérance relative sur la verification des contraintes planes",
+ RESI_DEBORST =SIMP(statut='f',typ='R',defaut= 1.0E-6),
+ ),
ALGO_1D =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
-# b_dbiter = BLOC(condition = " (ALGO_C_PLAN == 'DEBORST') or (ALGO_1D == 'DEBORST')",
-# fr="Nombre d'iterations maximal pour la boucle pour les contraintes planes",
- ITER_MAXI_DEBORST =SIMP(statut='f',typ='I',defaut= 1),
-# ),
regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
),
PARM_THETA =SIMP(statut='f',typ='R',defaut= 1. ),
) ;
-#& MODIF COMMUN DATE 26/06/2007 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMUN DATE 07/11/2006 AUTEUR CIBHHLV L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
"VARI_ELNO_TUYO",
"VARI_NOEU",
"VARI_NOEU_ELGA",
+ "VARI_NON_LOCAL",
"VITE",
"VITE_ABSOLU",
"VITE_VENT",
DDL =SIMP(statut='o',typ='TXM',max='**'),
),
) ;
-#& MODIF COMMANDE DATE 08/10/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# RESPONSABLE VABHHTS J.PELLET
-def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,EVOL_IMPO,**args):
+def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
if MECA_IMPO != None : return char_cine_meca
if THER_IMPO != None : return char_cine_ther
if ACOU_IMPO != None : return char_cine_acou
- if EVOL_IMPO != None :
- if AsType(EVOL_IMPO) in (evol_elas,evol_noli) :
- return char_cine_meca
- elif AsType(EVOL_IMPO) in (evol_ther,) :
- return char_cine_ther
- else :
- raise AsException("Extension à faire ...")
-
raise AsException("type de concept resultat non prevu")
-
AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
,fr="Affectation de conditions aux limites cinématiques constantes pour un traitement sans dualisation",
reentrant='n',
UIinfo={"groupes":("Modélisation",)},
- regles=(UN_PARMI('MECA_IMPO','THER_IMPO','ACOU_IMPO','EVOL_IMPO'),
- ),
+ regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
+ EXCLUS('MECA_IMPO','THER_IMPO'),
+ EXCLUS('MECA_IMPO','ACOU_IMPO'),
+ EXCLUS('THER_IMPO','ACOU_IMPO'),),
MODELE =SIMP(statut='o',typ=modele_sdaster ),
- EVOL_IMPO =SIMP(statut='f',typ=(evol_noli,evol_elas,evol_ther),fr="Pour imposer tous les ddls d'un evol_xxx"),
MECA_IMPO =FACT(statut='f',max='**',
regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
DCZ =SIMP(statut='f',typ='R' ),
H1X =SIMP(statut='f',typ='R' ),
H1Y =SIMP(statut='f',typ='R' ),
- H1Z =SIMP(statut='f',typ='R' ),
+ H1Z =SIMP(statut='f',typ='R' ),
E1X =SIMP(statut='f',typ='R' ),
E1Y =SIMP(statut='f',typ='R' ),
- E1Z =SIMP(statut='f',typ='R' ),
+ E1Z =SIMP(statut='f',typ='R' ),
E2X =SIMP(statut='f',typ='R' ),
E2Y =SIMP(statut='f',typ='R' ),
- E2Z =SIMP(statut='f',typ='R' ),
+ E2Z =SIMP(statut='f',typ='R' ),
E3X =SIMP(statut='f',typ='R' ),
E3Y =SIMP(statut='f',typ='R' ),
- E3Z =SIMP(statut='f',typ='R' ),
+ E3Z =SIMP(statut='f',typ='R' ),
E4X =SIMP(statut='f',typ='R' ),
E4Y =SIMP(statut='f',typ='R' ),
- E4Z =SIMP(statut='f',typ='R' ),
+ E4Z =SIMP(statut='f',typ='R' ),
V11 =SIMP(statut='f',typ='R' ),
V12 =SIMP(statut='f',typ='R' ),
V13 =SIMP(statut='f',typ='R' ),
PRES23 =SIMP(statut='f',typ='R' ),
PRES31 =SIMP(statut='f',typ='R' ),
PRES32 =SIMP(statut='f',typ='R' ),
- PRES33 =SIMP(statut='f',typ='R' ),
+ PRES33 =SIMP(statut='f',typ='R' ),
),
THER_IMPO =FACT(statut='f',max='**',
regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 08/10/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 05/09/2005 AUTEUR CIBHHLV L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
if THER_IMPO != None : return char_cine_ther
raise AsException("type de concept resultat non prevu")
-AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 101,sd_prod=affe_char_cine_f_prod,
+AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod,
fr="Affectation de conditions aux limites cinématiques fonction d'un (ou plusieurs) paramètres"
+" pour un traitement sans dualisation",
reentrant='n',
UIinfo={"groupes":("Modélisation",)},
- regles=(UN_PARMI('MECA_IMPO','THER_IMPO')),
+ regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
+ EXCLUS('MECA_IMPO','THER_IMPO'),),
MODELE =SIMP(statut='o',typ=modele_sdaster ),
MECA_IMPO =FACT(statut='f',max='**',
regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 08/10/2007 AUTEUR NISTOR I.NISTOR
+#& MODIF COMMANDE DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
DCZ =SIMP(statut='f',typ='R' ),
H1X =SIMP(statut='f',typ='R' ),
H1Y =SIMP(statut='f',typ='R' ),
- H1Z =SIMP(statut='f',typ='R' ),
+ H1Z =SIMP(statut='f',typ='R' ),
E1X =SIMP(statut='f',typ='R' ),
E1Y =SIMP(statut='f',typ='R' ),
- E1Z =SIMP(statut='f',typ='R' ),
+ E1Z =SIMP(statut='f',typ='R' ),
E2X =SIMP(statut='f',typ='R' ),
E2Y =SIMP(statut='f',typ='R' ),
- E2Z =SIMP(statut='f',typ='R' ),
+ E2Z =SIMP(statut='f',typ='R' ),
E3X =SIMP(statut='f',typ='R' ),
E3Y =SIMP(statut='f',typ='R' ),
- E3Z =SIMP(statut='f',typ='R' ),
+ E3Z =SIMP(statut='f',typ='R' ),
E4X =SIMP(statut='f',typ='R' ),
E4Y =SIMP(statut='f',typ='R' ),
- E4Z =SIMP(statut='f',typ='R' ),
+ E4Z =SIMP(statut='f',typ='R' ),
LAGS_C =SIMP(statut='f',typ='R' ),
- V11 =SIMP(statut='f',typ='R' ),
+ V11 =SIMP(statut='f',typ='R' ),
V12 =SIMP(statut='f',typ='R' ),
V13 =SIMP(statut='f',typ='R' ),
V21 =SIMP(statut='f',typ='R' ),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
SANS_GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
SANS_MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
DX =SIMP(statut='f',typ='R' ),
DY =SIMP(statut='f',typ='R' ),
DZ =SIMP(statut='f',typ='R' ),
),
- LIAISON_SOLIDE =FACT(statut='f',max='**',
- fr="Modélise une partie indéformable d'une structure."
- +" Les mots clés TRAN et ANGL_NAUT permettent d'imposer le déplacement de la partie indéformable.",
- regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
- ENSEMBLE('CENTRE','ANGL_NAUT'),),
+ LIAISON_SOLIDE =FACT(statut='f',fr="Modélise une partie indéformable d'une structure",max='**',
+ regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- TRAN =SIMP(statut='f',typ='R',max=3 ),
- ANGL_NAUT =SIMP(statut='f',typ='R',max=3 ),
- CENTRE =SIMP(statut='f',typ='R',max=3 ),
NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
),
),
LIAISON_XFEM =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
-
- CONTACT_XFEM =SIMP(statut='f',typ=char_meca,min=1,max=1,),
-
-
-# SIMP(statut='f',typ='TXM',defaut="NON" ),
+
+ CONTACT_XFEM =SIMP(statut='f',typ='TXM',defaut="NON" ),
VECT_ASSE =SIMP(statut='f',typ=cham_no_sdaster ),
#
# LIAISON UNILATERALE
-#
+#
LIAISON_UNILATER=FACT(statut='f',max='**',
fr="Définit les zones soumises à des conditions de liaison unilaterale (inegalite sur un DDL)",
regles=(UN_PARMI('GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
-
+
GROUP_MA =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_NO =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-
+
NB_RESOL =SIMP(statut='f',typ='I', defaut=10 ),
- NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
-
+ NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
+
COEF_IMPO =SIMP(statut='f',typ='R'),
- COEF_MULT =SIMP(statut='f',typ='R',max='**'),
+ COEF_MULT =SIMP(statut='f',typ='R',max='**'),
METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
into=("CONTRAINTE","GCPC",) ),
-
-
+
+
),
#
# CONTACT
-#
+#
CONTACT =FACT(statut='f',max='**',
fr="Définit les zones soumises à des conditions de contact unilatéral avec ou sans frottement",
-
-
+
+
METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
into=("VERIF","CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE","GCP","XFEM") ),
-
+
APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
into=("RIGIDE","NODAL","MAIT_ESCL","MAIT_ESCL_SYME")),
RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_BOUCLE",
DIST_COQUE =SIMP(statut='f',typ='TXM',defaut="NON", into=("OUI","NON")),
NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",
into=("MAIT","MAIT_ESCL")),
-
+
PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",
into=("LINEAIRE","QUADRATIQUE") ),
-
-
+
+
b_xfem =BLOC(condition = "METHODE == 'XFEM' ",
FISS_MAIT = SIMP(statut='o',typ=fiss_xfem,max=1),
FISS_ESCL = SIMP(statut='f',typ=fiss_xfem,max=1),
- SIGN_MAIT = SIMP(statut='f',typ='TXM',into=("+","-",) ),
- SIGN_ESCL = SIMP(statut='f',typ='TXM',into=("+","-",) ),
+ SIGN_MAIT = SIMP(statut='f',typ='TXM',into=("+","-",) ),
+ SIGN_ESCL = SIMP(statut='f',typ='TXM',into=("+","-",) ),
INTEGRATION = SIMP(statut='f',typ='TXM',defaut="FPG4",into=("GAUSS","FPG4","FPG6","FPG7",) ),
COEF_REGU_CONT = SIMP(statut='f',typ='R',defaut=100.E+0),
ITER_CONT_MAXI = SIMP(statut='f',typ='I',defaut=30),
- ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=0),
- TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
CONTACT_INIT = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
ALGO_LAGR = SIMP(statut='f',typ='TXM',defaut="VERSION1",into=("NON","VERSION1","VERSION2" , ) ),
- COEF_ECHELLE = SIMP(statut='f',typ='R',defaut=1.E+6),
+ COEF_ECHELLE = SIMP(statut='f',typ='R',defaut=1.E+6),
FROTTEMENT = SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
GLISSIERE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
b_frotxfem =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
ITER_FROT_MAXI = SIMP(statut='f',typ='I',defaut=2),
COEF_REGU_FROT = SIMP(statut='f',typ='R',defaut=100.E+0),
SEUIL_INIT = SIMP(statut='f',typ='R',defaut=0.E+0),
- ),
+ ),
),
-
+
b_notxfem =BLOC(condition = "METHODE != 'XFEM' ",
regles=(UN_PARMI('GROUP_MA_ESCL','MAILLE_ESCL'),),
GROUP_MA_MAIT =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
MAILLE_MAIT =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_MA_ESCL =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
MAILLE_ESCL =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- ),
-
+ ),
+
b_cara =BLOC(condition = "DIST_POUTRE == 'OUI' or DIST_COQUE == 'OUI'",
CARA_ELEM =SIMP(statut='o',typ=(cara_elem) ),
),
-
+
b_verif =BLOC(condition = "METHODE == 'VERIF' ",
fr="Paramètres de la méthode sans calcul de contact",
STOP_INTERP =SIMP(statut='f',typ='TXM',defaut="NON",
DIST_ESCL =SIMP(statut='f',typ='R'),
VECT_NORM_ESCL =SIMP(statut='f',typ='R',max=3),
VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
- GROUP_MA_FOND =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
),
b_active =BLOC(condition = "METHODE == 'CONTRAINTE' ",
fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",
into=("OUI","NON")),
- b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
+ b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),
),
TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
),
-
+
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
SANS_NOEUD_QUAD =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
DIST_MAIT =SIMP(statut='f',typ='R'),
DIST_ESCL =SIMP(statut='f',typ='R'),
-
+
regles=(EXCLUS('VECT_Y','VECT_ORIE_POU')),
-
+
VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
COULOMB =SIMP(statut='o',typ='R',),
COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
),),
-
+
b_penalisation =BLOC(condition = "METHODE == 'PENALISATION' ",
fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
E_N =SIMP(statut='f',typ='R'),
into=("OUI","NON")),
NB_RESOL =SIMP(statut='f',typ='I', defaut=10 ),
ITER_MULT_MAXI =SIMP(statut='f',typ='I',defaut=4),
-
+
REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",
into=("AUTOMATIQUE","CONTROLE","SANS")),
regles=(EXCLUS('VECT_Y','VECT_ORIE_POU')),
VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
-
+
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
COULOMB =SIMP(statut='o',typ='R',),
E_T =SIMP(statut='f',typ='R',
b_continue =BLOC(condition = "METHODE == 'CONTINUE' ",
fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
# regles=(UN_PARMI('GLISSIERE','FROTTEMENT'),),
-
-# -------------------------------- CHOIX DE LA FORMULATION DE LA METHODE CONTINUE
- ALGO_CONT =SIMP(statut='f',typ='TXM',defaut="LAGRANGIEN",into=("LAGRANGIEN","AUGMENTE","STABILISE"),),
- b_CONT_LAGR =BLOC(condition = "ALGO_CONT == 'LAGRANGIEN' ",fr="Parametres de la formulation Lagrangienne",
- COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- b_CONT_STAB =BLOC(condition = "ALGO_CONT == 'STABILISE' ",fr="Parametres du Lagrangien stabilisé",
- COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_STAB_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- b_CONT_AUGM =BLOC(condition = "ALGO_CONT == 'AUGMENTE' ",fr="Parametres du Lagrangien augmenté",
- COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_STAB_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_PENA_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
-# --------------------------------
- GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),),
- b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
- ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),),
-# --------------------------------
+ ALGO_CONT =SIMP(statut='f',typ='TXM',defaut="LAGRANGIEN",
+ into=("LAGRANGIEN","AUGMENTE","STABILISE") ),
+ b_CONT_LAGR =BLOC(condition = "ALGO_CONT == 'LAGRANGIEN' ",fr="Parametres de la formulation Lagrangienne",
+ COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ b_CONT_STAB =BLOC(condition = "ALGO_CONT == 'STABILISE' ",fr="Parametres du Lagrangien stabilisé",
+ COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_STAB_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ b_CONT_AUGM =BLOC(condition = "ALGO_CONT == 'AUGMENTE' ",fr="Parametres du Lagrangien augmenté",
+ COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_STAB_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_PENA_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",
+ into=("OUI","NON")),
+ b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
+ ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),
+ ),
+ FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
COMPLIANCE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
- b_compliance =BLOC(condition = "COMPLIANCE == 'OUI' ",fr="Parametres de la compliance",
- ASPERITE =SIMP(statut='o',typ='R',),
- E_N =SIMP(statut='o',typ='R',),
- E_V =SIMP(statut='f',typ='R',defaut=0.E+0),),
-# --------------------------------
FOND_FISSURE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
- b_FOND_FISSURE =BLOC(condition = "FOND_FISSURE == 'OUI' ",fr="TRAITEMENT EN FOND DE FISSURE",
- regles=(UN_PARMI('NOEUD_FOND','GROUP_NO_FOND','MAILLE_FOND','GROUP_MA_FOND'),),
- NOEUD_FOND =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO_FOND =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- MAILLE_FOND =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA_FOND =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),),
-# --------------------------------
RACCORD_LINE_QUAD=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
- b_RACCORD_SURF =BLOC(condition = "RACCORD_LINE_QUAD == 'OUI' ",fr="TRAITEMENT DU RACCORD SURFACIQUE",
- regles=(UN_PARMI('NOEUD_RACC','GROUP_NO_RACC'),),
- NOEUD_RACC =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO_RACC =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),),
-# -------------------------------- MOTS-CLEF CONTACT
- INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",
- into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2",
- "NCOTES","NCOTES1","NCOTES2"),),
- FORMULATION =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE"),),
- DIRE_APPA =SIMP(statut='f',typ='R',max=3,defaut=(0.,0.,0.,),),
- ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
- ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
- DIST_MAIT =SIMP(statut='f',typ='R',defaut=0.),
- DIST_ESCL =SIMP(statut='f',typ='R',defaut=0.),
- VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
- TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
- CONTACT_INIT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",),),
-# -------------------------------- détection automatique et exclusion des noeuds impliqués dans le pivot nul
- EXCLUSION_PIV_NUL=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",),),
-# -------------------------------- exclusion manuelle des noeuds impliqués dans le pivot nul;
-# prévaut sur la fonctionnalité précédente sans pour autant interférer avec elle
- SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- regles =(EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
-# -------------------------------- MOTS-CLEF FROTTEMENT
- FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
+
+ INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2",
+ "NCOTES","NCOTES1","NCOTES2")),
+ FORMULATION =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE")),
+ DIRE_APPA =SIMP(statut='f',typ='R',max=3,defaut=(0.,0.,0.,)),
+ ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
+ ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
+ DIST_MAIT =SIMP(statut='f',typ='R',defaut=0.),
+ DIST_ESCL =SIMP(statut='f',typ='R',defaut=0.),
+ VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
+ TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
+ CONTACT_INIT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ EXCLUSION_PIV_NUL=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ b_FOND_FISSURE =BLOC(condition = "FOND_FISSURE == 'OUI' ",fr="TRAITEMENT EN FOND DE FISSURE",
+ regles=(UN_PARMI('NOEUD_FOND','GROUP_NO_FOND','MAILLE_FOND','GROUP_MA_FOND'),),
+ NOEUD_FOND =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO_FOND =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ MAILLE_FOND =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA_FOND =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),),
+ b_RACCORD_SURF =BLOC(condition = "RACCORD_LINE_QUAD == 'OUI' ",fr="TRAITEMENT DU RACCORD SURFACIQUE",
+ regles=(UN_PARMI('NOEUD_RACC','GROUP_NO_RACC'),),
+ NOEUD_RACC =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO_RACC =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),),
+
+ b_compliance =BLOC(condition = "COMPLIANCE == 'OUI' ",fr="Parametres de la compliance",
+ ASPERITE =SIMP(statut='o',typ='R',),
+ E_N =SIMP(statut='o',typ='R',),
+ E_V =SIMP(statut='f',typ='R',defaut=0.E+0),),
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
ALGO_FROT =SIMP(statut='f',typ='TXM',defaut="LAGRANGIEN",
into=("LAGRANGIEN","AUGMENTE","STABILISE") ),
- b_FROT_LAGR =BLOC(condition = "ALGO_FROT == 'LAGRANGIEN' ",fr="Parametres de la formulation Lagrangienne",
- COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- b_FROT_STAB =BLOC(condition = "ALGO_FROT == 'STABILISE' ",fr="Parametres du Lagrangien stabilisé",
- COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_STAB_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- b_FROT_AUGM =BLOC(condition = "ALGO_FROT == 'AUGMENTE' ",fr="Parametres du Lagrangien augmenté",
- COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_STAB_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_PENA_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- COULOMB =SIMP(statut='o',typ='R',),
- SANS_NOEUD_FR =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- SANS_GROUP_NO_FR =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- regles =(EXCLUS('SANS_NOEUD_FR','SANS_GROUP_NO_FR'),),
- b_sans_group_no_frot =BLOC(condition = "SANS_GROUP_NO_FR != None or SANS_NO_FR != None",
- fr="Direction(s) de frottement à exclure",
- VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
- VECT_Z =SIMP(statut='f',typ='R',min=3,max=3),),
- ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
- SEUIL_INIT =SIMP(statut='f',typ='R',defaut=0.E+0),
- USURE =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","ARCHARD",),),
- b_usure =BLOC(condition = "USURE == 'ARCHARD' ",fr="Parametres de la loi d'usure d'Archard",
- K =SIMP(statut='o',typ='R',),
- H =SIMP(statut='o',typ='R',),),),),
+ b_FROT_LAGR =BLOC(condition = "ALGO_FROT == 'LAGRANGIEN' ",fr="Parametres de la formulation Lagrangienne",
+ COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ b_FROT_STAB =BLOC(condition = "ALGO_FROT == 'STABILISE' ",fr="Parametres du Lagrangien stabilisé",
+ COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_STAB_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ b_FROT_AUGM =BLOC(condition = "ALGO_FROT == 'AUGMENTE' ",fr="Parametres du Lagrangien augmenté",
+ COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_STAB_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_PENA_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ COULOMB =SIMP(statut='o',typ='R',),
+ SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
+ VECT_Z =SIMP(statut='f',typ='R',min=3,max=3),
+ ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
+ SEUIL_INIT =SIMP(statut='f',typ='R',defaut=0.E+0),
+ USURE =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","ARCHARD",),),
+ b_usure =BLOC(condition = "USURE == 'ARCHARD' ",fr="Parametres de la loi d'usure d'Archard",
+ K =SIMP(statut='o',typ='R',),
+ H =SIMP(statut='o',typ='R',),),),),
b_gcp =BLOC(condition = "METHODE == 'GCP' ",
fr="Paramètres de la méthode du gradient conjugué projeté (contact uniquement)",
RESI_ABSO =SIMP(statut='o',typ='R',
fr="Critère de convergence (niveau d'interpénétration autorisé)"),
REAC_ITER =SIMP(statut='f',typ='I',defaut=3, fr="Fréquence de réinitialisation de la conjugaison"),
- ITER_GCP_MAXI =SIMP(statut='f',typ='I',defaut=0, fr="Nombre d'itérations maximal pour le GCP"),
TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
TOLE_PROJ_INT =SIMP(statut='f',typ='R' ,defaut=0.001),
TOLE_REAC_GEOM =SIMP(statut='f',typ='R' ,defaut=0.05),
b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
fr="Paramètre de la réactualisation géométrique",
NB_REAC_GEOM =SIMP(statut='o',typ='I'),
-
+
STOP_REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="ALARME",
into=("OUI","NON")),
),
b_reac_auto =BLOC(condition = "REAC_GEOM == 'AUTOMATIQUE' ",
fr="Paramètre de la réactualisation géométrique auto",
NB_REAC_MAXI =SIMP(statut='o',typ='I',defaut = 10),
- ),
+ ),
PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",
into=("DIRICHLET","SANS"),fr="Choix d'un préconditionneur (accélère la convergence)"),
- ITER_PRE_MAXI =SIMP(statut='f',typ='I',defaut=0, fr="Nombre d'itérations maximal pour le préconditionneur"),
- COEF_RESI =SIMP(statut='f',typ='R',defaut = 1.,
+ COEF_RESI =SIMP(statut='f',typ='R',defaut = 1.,val_min=1.,
fr="Critère_Convergence_Préconditionneur = COEF_RESI*Critère_Convergence_GCP",),
RECH_LINEAIRE=SIMP(statut='f',typ='TXM',defaut="ADMISSIBLE",into=("ADMISSIBLE","NON_ADMISSIBLE"),
fr="Autorise-t-on de sortir du domaine admissible lors de la recherche linéaire",),
PRES_REP =FACT(statut='f',max='**',
fr="Applique une pression à un domaine de milieu continu 2D ou 3D, ou à un domaine de coques et tuyaux",
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','FISSURE'),
- PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE','FISSURE'),
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
+ PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
AU_MOINS_UN('PRES','CISA_2D' ),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- FISSURE =SIMP(statut='f',typ=fiss_xfem,min=1,max=100,),
PRES =SIMP(statut='f',typ='R' ),
CISA_2D =SIMP(statut='f',typ='R' ),
),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 02/10/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 30/04/2007 AUTEUR ABBAS M.ABBAS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# RESPONSABLE G8BHHXD X.DESROCHES
AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
-
+
'CONTACT','EFFE_FOND','FLUX_THM_REP','LIAISON_UNILATER'),),
VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- LIAISON =SIMP(statut='f',typ='TXM',into=('ENCASTRE',)),
+ LIAISON =SIMP(statut='f',typ='TXM',into=('ENCASTRE',)),
DX =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DCZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
H1X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
H1Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- H1Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ H1Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E1X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E1Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- E1Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ E1Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E2X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E2Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- E2Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ E2Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E3X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E3Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- E3Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ E3Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E4X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E4Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- E4Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- LAGS_C =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ E4Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ LAGS_C =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
FACE_IMPO =FACT(statut='f',max='**',
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
SANS_GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
SANS_MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
DX =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DNOR =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DTAN =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
-
+
LIAISON_DDL =FACT(statut='f',max='**',
fr="Définit une relation linéaire entre des DDLs de deux ou plusieurs noeuds, les valeurs sont fournies par"
+" l'intermediaire d'un concept de type fonction",
DRX =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DRY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DRZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- ),
-
+ ),
+
LIAISON_GROUP =FACT(statut='f',max='**',
fr="Définit la meme relation linéaire entre certains DDLs de couples de noeuds, les valeurs sont fournies par"
+" l'intermédiaire de concept fonction",
),
#
# LIAISON UNILATERALE
-#
+#
LIAISON_UNILATER=FACT(statut='f',max='**',
fr="Définit les zones soumises à des conditions de liaison unilaterale (inegalite sur un DDL)",
regles=(UN_PARMI('GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
-
+
GROUP_MA =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_NO =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-
+
NB_RESOL =SIMP(statut='f',typ='I', defaut=10 ),
- NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
-
+ NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
+
COEF_IMPO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- COEF_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),max='**'),
+ COEF_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),max='**'),
METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
into=("CONTRAINTE","GCPC",) ),
-
-
+
+
),
CONTACT =FACT(statut='f',
fr="Définit les zones soumises à des conditions de contact unilatéral avec ou \sans frottement, certaines valeurs"
APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
into=("NODAL","MAIT_ESCL","MAIT_ESCL_SYME")),
RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_BOUCLE",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
- LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
+ LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
DIST_POUTRE =SIMP(statut='f',typ='TXM',defaut="NON", into=("OUI","NON")),
DIST_COQUE =SIMP(statut='f',typ='TXM',defaut="NON", into=("OUI","NON")),
NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
- METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
- into=("CONTRAINTE","VERIF","LAGRANGIEN","PENALISATION","CONTINUE","GCP") ),
+ METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
+ into=("CONTRAINTE","VERIF","LAGRANGIEN","PENALISATION","CONTINUE","GCP") ),
PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
GROUP_MA_MAIT =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE_MAIT =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
b_cara =BLOC(condition = "DIST_POUTRE == 'OUI' or DIST_COQUE == 'OUI'",
CARA_ELEM =SIMP(statut='o',typ=(cara_elem) ),
),
-
+
b_verif =BLOC(condition = "METHODE == 'VERIF' ",
fr="Paramètres de la méthode sans calcul de contact",
STOP_INTERP =SIMP(statut='f',typ='TXM',defaut="NON",
fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",
into=("OUI","NON")),
- b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
+ b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),
),
TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
fr="Parametre de la reactualisation geometrique",
NB_REAC_GEOM =SIMP(statut='o',typ='I'),
-
+
),
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
DIST_ESCL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
regles=(EXCLUS('VECT_Y','VECT_ORIE_POU')),
VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
- VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
+ VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
COULOMB =SIMP(statut='o',typ='R',),
- COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
+ COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
),),
b_penalisation =BLOC(condition = "METHODE == 'PENALISATION' ",
fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
- E_N =SIMP(statut='f',typ='R'),
+ E_N =SIMP(statut='f',typ='R'),
FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
TOLE_PROJ_INT =SIMP(statut='f',typ='R' ,defaut=0.001),
into=("OUI","NON")),
NB_RESOL =SIMP(statut='f',typ='I', defaut=10 ),
ITER_MULT_MAXI =SIMP(statut='f',typ='I',defaut=4),
-
+
REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",
into=("AUTOMATIQUE","CONTROLE","SANS")),
DIST_ESCL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
regles=(EXCLUS('VECT_Y','VECT_ORIE_POU')),
VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
- VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
+ VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
COULOMB =SIMP(statut='o',typ='R',),
E_T =SIMP(statut='f',typ='R',
fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
- COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
+ COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
),),
b_continue =BLOC(condition = "METHODE == 'CONTINUE' ",
fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
# regles=(UN_PARMI('GLISSIERE','FROTTEMENT'),),
GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",
into=("OUI","NON")),
- b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
+ b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),
),
- FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
+ FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
COMPLIANCE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2",
"NCOTES","NCOTES1","NCOTES2")),
into=("AUTOMATIQUE","CONTROLE","SANS")),
b_reac_sans =BLOC(condition = "REAC_GEOM == 'SANS' ",
fr="Paramètre de la réactualisation géométrique",
-
+
STOP_REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="NON",
into=("OUI","NON")),
),
b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
fr="Paramètre de la réactualisation géométrique",
NB_REAC_GEOM =SIMP(statut='o',typ='I'),
-
+
STOP_REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="ALARME",
into=("OUI","NON")),
),
b_reac_auto =BLOC(condition = "REAC_GEOM == 'AUTOMATIQUE' ",
fr="Paramètre de la réactualisation géométrique auto",
NB_REAC_MAXI =SIMP(statut='o',typ='I',defaut = 10),
- ),
+ ),
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
SANS_NOEUD_QUAD =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
DIST_MAIT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
DIST_ESCL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
),
- ),
-
+ ),
+
LIAISON_UNIF =FACT(statut='f',max='**',
fr="Impose une meme valeur (inconnue) à des DDLs d'un ensemble de noeuds",
regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
DDL =SIMP(statut='o',typ='TXM',max='**'),
),
-
LIAISON_SOLIDE =FACT(statut='f',max='**',
- fr="Modélise une partie indéformable d'une structure."
- +" Les mots clés TRAN et ANGL_NAUT permettent d'imposer le déplacement de la partie indéformable.",
- regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
- ENSEMBLE('CENTRE','ANGL_NAUT'),),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ fr="Modélise une partie indéformable d'une structure",
+ regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- TRAN =SIMP(statut='f',typ='R',max=3 ),
- ANGL_NAUT =SIMP(statut='f',typ='R',max=3 ),
- CENTRE =SIMP(statut='f',typ='R',max=3 ),
- NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
),
FY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
FZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
-
+
PRES_REP =FACT(statut='f',max='**',
fr="Applique une pression à un domaine de milieu continu 2D ou 3D ou à un domaine de coques et tuyaux, dont les"
+" valeurs imposées (pression et/ou cisaillement) sont fournies par l'intermédiaire d'un concept fonction",
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','FISSURE'),
- PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE','FISSURE'),
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
+ PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
AU_MOINS_UN('PRES','CISA_2D'),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- FISSURE =SIMP(statut='f',typ=fiss_xfem,min=1,max=100,),
PRES =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
CISA_2D =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
EPXZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
EPYZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
-
+
FORCE_POUTRE =FACT(statut='f',max='**',
fr="Applique des forces linéiques sur des éléments de type poutre dont les valeurs sont fournies par"
+" l'intermédiaire d'un concept fonction",
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
PRES =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
-
+
FORCE_COQUE =FACT(statut='f',max='**',
fr="Applique des forces surfaciques sur des éléments de types coques dont les valeurs sont fournies par"
+" l'intermédiaires d'un concept fonction",
GROUP_NO_2 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
NOEUD_2 =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
- ),
-
+ ),
+
VITE_FACE =FACT(statut='f',max='**',
fr="Impose des vitesses normales à une face (phénomène ACOUSTIQUE) dont les valeurs sont fournies par"
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 16/10/2007 AUTEUR SALMONA L.SALMONA
+#& MODIF COMMANDE DATE 28/03/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
MATER =SIMP(statut='o',typ=mater_sdaster,max=30),
- TEMP_REF =SIMP(statut='f',typ='R'),
+ TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
),
# affectation du nom du matériau (par noeuds):
B_NOM_NEUT2 =BLOC(condition="NOM_VARC=='NEUT2'",NOM_CHAM=SIMP(statut='f',typ='TXM',defaut= 'NEUT',),),
PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
- FONC_INST =SIMP(statut='f',typ=(fonction_sdaster,formule)),
),
VALE_REF =SIMP(statut='f',typ='R'), # defaut=0. pour TEMP (fait dans le fortran : op0006.f)
),
CMP_GD =SIMP(statut='c',typ='TXM',max=3,min=3,defaut=("V1","V2","V3")),
CMP_VARC =SIMP(statut='c',typ='TXM',max=3,min=3,defaut=("ALPHPUR","ALPHBETA","TZIRC",)),
),
-
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 18/09/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
"3D_SI",
"3D_GRAD_EPSI",
"3D_GRAD_VARI",
- "3D_XFEM_CONT",
+ "3D_XFEM",
"3D_JOINT",
"AXIS",
"AXIS_FLUI_STRU",
"BARRE",
"2D_BARRE",
"C_PLAN",
- "C_PLAN_XFEM_CONT",
+ "C_PLAN_XFEM",
"C_PLAN_NS",
"C_PLAN_SI",
"C_PLAN_GRAD_EPSI",
"COQUE_C_PLAN",
"COQUE_D_PLAN",
"D_PLAN",
- "D_PLAN_XFEM_CONT",
+ "D_PLAN_XFEM",
"D_PLAN_GRAD_EPSI",
"D_PLAN_GRAD_VARI",
"D_PLAN_NS",
"DKTG",
"DST",
"FLUI_STRU",
- "GRILLE_EXCENTRE",
+ "GRILLE",
"GRILLE_MEMBRANE",
"POU_C_T",
"POU_D_E",
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 16/07/2007 AUTEUR ANGLES J.ANGLES
+#& MODIF COMMANDE DATE 16/10/2006 AUTEUR JMBHH01 J.M.PROIX
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
OPTION =SIMP(statut='o',typ='TXM',into=("DOMA_ELGA","DOMA_NOEUD") ),
RESULTAT =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
- MAILLAGE =SIMP(statut='o',typ=maillage_sdaster ),
- regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**' ),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**' ),
GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**' ),
DELTA_OSCI =SIMP(statut='f',typ='R',defaut= 0.0E+0),
),
),
+ b_fati_grmano =BLOC(condition = "(GROUP_MA != None or MAILLE != None or GROUP_NO != None or NOEUD != None)",
+ MAILLAGE =SIMP(statut='o',typ=maillage_sdaster ),
+ ),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
DEFORMEE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
),
) ;
-#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 02/05/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
return fonction_sdaster
elif AsType(FONCTION) == fonction_c:
return fonction_c
- elif AsType(FONCTION) == formule_c:
- return fonction_c
elif AsType(FONCTION) == formule:
if NOM_PARA_FONC != None:
return nappe_sdaster
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
) ;
-#& MODIF COMMANDE DATE 04/09/2007 AUTEUR DURAND C.DURAND
+#& MODIF COMMANDE DATE 09/02/2007 AUTEUR GREFFET N.GREFFET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# RESPONSABLE MCOURTOI M.COURTOIS
from Macro.calc_fonction_ops import calc_fonction_ops
def calc_fonction_prod(self,DERIVE,EXTRACTION,INTEGRE,INVERSE,COMB,COMB_C,
- ENVELOPPE,FRACTILE,SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE,
+ ENVELOPPE,SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE,
LISS_ENVELOP,ABS, **args):
if (INTEGRE != None): return fonction_sdaster
raise AsException("CALC_FONCTION/COMB_C : pas de types hétérogènes nappe/fonction")
return fonction_c
if (ENVELOPPE != None): return AsType(ENVELOPPE[0]['FONCTION'])
- if (FRACTILE != None): return AsType(FRACTILE[0] ['FONCTION'])
if (EXTRACTION != None): return fonction_sdaster
if (SPEC_OSCI != None): return nappe_sdaster
if (COMPOSE != None): return fonction_sdaster
UIinfo={"groupes":("Fonction",)},
regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','COMB','COMB_C','ENVELOPPE',
'COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE',
- 'LISS_ENVELOP','INVERSE','ABS','FRACTILE'),),
+ 'LISS_ENVELOP','INVERSE','ABS'),),
FFT =FACT(statut='f',fr="Transformée de Fourier ou de son inverse",
FONCTION =SIMP(statut='o',typ=(fonction_sdaster,fonction_c) ),
METHODE =SIMP(statut='f',typ='TXM',defaut="PROL_ZERO",into=("PROL_ZERO","TRONCATURE","COMPLET") ),
FONCTION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster),max='**' ),
CRITERE =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
),
- FRACTILE =FACT(statut='f',fr="Fractile d une famille de fonctions ou de nappes",
- FONCTION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster),max='**' ),
- FRACT =SIMP(statut='o',typ='R',defaut="SUP",val_min=0.,val_max=1.,fr="Valeur du fractile" ),
- ),
ASSE =FACT(statut='f',fr="Concatenation de fonctions",
FONCTION =SIMP(statut='o',typ=fonction_sdaster,min=2,max=2 ),
SURCHARGE =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
),
- CORR_ACCE =FACT(statut='f',fr="Correction d un accelerogramme reel",
+ CORR_ACCE =FACT(statut='f',fr="Correction d un accelerogramme reel",
CORR_DEPL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
FONCTION =SIMP(statut='o',typ=fonction_sdaster ),
),
PUISSANCE =FACT(statut='f',fr="Fonction élevée à une puissance",
FONCTION =SIMP(statut='o', typ=(fonction_sdaster,nappe_sdaster) ),
- EXPOSANT =SIMP(statut='f', typ='R', defaut=1 ),
+ EXPOSANT =SIMP(statut='f', typ='I', defaut=1 ),
),
INVERSE =FACT(statut='f',fr="Inverse d'une fonction",
FONCTION =SIMP(statut='o', typ=fonction_sdaster),
),
) ;
-#& MODIF COMMANDE DATE 16/10/2007 AUTEUR SALMONA L.SALMONA
+#& MODIF COMMANDE DATE 31/10/2006 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2006 EDF R&D WWW.CODE-ASTER.ORG
COMP_ELAS =FACT(statut='f',
RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
- into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC","ELAS_VMIS_PUIS") ),
- ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
- ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
- ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
- ELAS_VMIS_PUIS =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
+ into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
+ ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
+ ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
+ ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
),
COMP_INCR =FACT(statut='f',
RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
- into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE","ELAS_VMIS_PUIS") ),
+ into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
GROUP_NO_RESU =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
NOEUD_RESU =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
) ;
-#& MODIF COMMANDE DATE 26/06/2007 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 10/10/2006 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
),
ETAT_INIT =FACT(statut='f',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
+ EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(carte_sdaster,cham_elem)),
VARI =SIMP(statut='f',typ=cham_elem),
+ VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
),
SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
),
+ SOLV_NON_LOCAL =FACT(statut='f',
+ METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
+ b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
+ RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
+ ),
+ b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
+ ),
+ b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
+ fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
+ NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
+ STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ ),
+ b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
+ PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC",),defaut="LDLT_INC" ),
+ NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ ),
+ LAGR_NON_LOCAL =FACT(statut='f',
+ ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
+ RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
+ RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
+ R =SIMP(statut='f',typ='R',defaut= 1000.),
+ ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
+ ),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
COMP_INCR =C_COMP_INCR(),
) ;
-#& MODIF COMMANDE DATE 03/07/2007 AUTEUR SALMONA L.SALMONA
+#& MODIF COMMANDE DATE 10/10/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2005 EDF R&D WWW.CODE-ASTER.ORG
'VIDE','NON_VIDE','MAXI','ABS_MAXI','MINI','ABS_MINI'),),
b_vale = BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
- VALE = SIMP(statut='f',typ='R',max='**'),
- VALE_I = SIMP(statut='f',typ='I',max='**'),
- VALE_C = SIMP(statut='f',typ='C',max='**'),
- VALE_K = SIMP(statut='f',typ='TXM',max='**'),
+ VALE = SIMP(statut='f',typ='R'),
+ VALE_I = SIMP(statut='f',typ='I'),
+ VALE_C = SIMP(statut='f',typ='C'),
+ VALE_K = SIMP(statut='f',typ='TXM'),
),
b_regexp = BLOC(condition = "CRIT_COMP == 'REGEXP'",
- VALE_K = SIMP(statut='f',typ='TXM',max='**'),
+ VALE_K = SIMP(statut='f',typ='TXM'),
),
b_crit = BLOC(condition = "CRIT_COMP in ('EQ','NE')",
CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
),
) ;
-#& MODIF COMMANDE DATE 06/08/2007 AUTEUR TARDIEU N.TARDIEU
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2007 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
-# ======================================================================
-#& RESPONSABLE
-
-
-CALCUL=OPER(nom="CALCUL",op=26,sd_prod=table_sdaster,reentrant='n',
- UIinfo={"groupes":("Résolution",)},
- fr="Calculer des objets élémentaires comme une matrice tangente, intégrer une loi de comportement, etc...",
- OPTION =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',defaut="COMPORTEMENT",
- into=( "COMPORTEMENT","MATR_TANG_ELEM","FORC_INT_ELEM"),),
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- CHAM_MATER =SIMP(statut='o',typ=cham_mater),
- EXCIT =FACT(statut='o',max='**',
- CHARGE =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
- FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
- into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
- ),
- DEPL =SIMP(statut='o',typ=cham_no_sdaster ),
- INCR_DEPL =SIMP(statut='o',typ=cham_no_sdaster ),
- SIGM =SIMP(statut='o',typ=cham_elem),
- VARI =SIMP(statut='o',typ=cham_elem),
- INCREMENT =FACT(statut='o',
- LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
- NUME_ORDRE =SIMP(statut='o',typ='I'),),
- COMP_INCR =C_COMP_INCR(),
- COMP_ELAS =FACT(statut='f',max='**',
- RESI_INTE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6),
- ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
- ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
- RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
- into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
- RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
- into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
- "ELAS_POUTRE_GR","CABLE","ELAS_HYPER")),
- ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
- ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
- ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
- ELAS_HYPER =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
- ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
- CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
- DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
-) ;
-
#& MODIF COMMANDE DATE 12/03/2007 AUTEUR DEVESA G.DEVESA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 17/07/2007 AUTEUR MACOCCO K.MACOCCO
+#& MODIF COMMANDE DATE 12/09/2006 AUTEUR REZETTE C.REZETTE
# RESPONSABLE VABHHTS J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
- fr="Création d'un champ ",reentrant='f',
+ fr="Création d'un champ ",reentrant='n',
UIinfo={"groupes":("Résultats et champs",)},
TYPE_CHAM =SIMP(statut='o',typ='TXM',into=C_TYPE_CHAM_INTO()),
# TYPE_CHAM doit etre de la forme : CART_xx, NOEU_xx, ELEM_xx, ELGA_xx ou ELNO_xx
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
) ;
-#& MODIF COMMANDE DATE 23/07/2007 AUTEUR SALMONA L.SALMONA
+#& MODIF COMMANDE DATE 13/12/2006 AUTEUR PELLET J.PELLET
# RESPONSABLE MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
),
- HEXA20_27 =FACT(statut='f',fr="Passage HEXA20 -> HEXA27",
- regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- GROUP_MA =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
- PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
- ),
QUAD_LINE =FACT(statut='f',fr="Passage quadratique -> linéaire",
regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
#
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 17/07/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 28/03/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
UIinfo={"groupes":("Modélisation",)},
fr="Créer ou enrichir une structure de donnees resultat à partir de champs aux noeuds",
- OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","ECLA_PG","PERM_CHAM","PROL_RTZ","PREP_VRC1","PREP_VRC2",),
+ OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ","PREP_VRC1","PREP_VRC2",),
fr="choix de la fonction a activer",),
-
- # Création par affectation de champs :
- #-------------------------------------
b_affe =BLOC(condition = "OPERATION == 'AFFE'",
TYPE_RESU =SIMP(statut='o',position='global',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
),
),
-
- # Création par assemblage d'evol_ther :
- #-----------------------------------------
- b_asse =BLOC(condition = "OPERATION == 'ASSE'",
- TYPE_RESU =SIMP(statut='o',position='global',typ='TXM',into=("EVOL_THER",) ),
- ASSE =FACT(statut='o',max='**',
- RESULTAT =SIMP(statut='o',typ=evol_ther),
- TRANSLATION =SIMP(statut='f',typ='R',defaut= 0. ),
- ),
- ),
-
-
b_ecla_pg =BLOC(condition = "OPERATION == 'ECLA_PG'",
TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
),
),
-
b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
PRESENT =SIMP(statut='o',typ='TXM',min=2,max=2,into=("OUI","NON") ),
),
) ;
-#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 13/02/2007 AUTEUR PELLET J.PELLET
# RESPONSABLE JMBHH01 J.M.PROIX
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2004 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
fr="Définir le comportement d'un monocristal, d'un polycristal ou de groupes de fibres",
reentrant='n',
UIinfo={"groupes":("Modélisation",)},
# on exclut MULTIFBRE de MONOCRISTAL ou POLYCRISTAL car la structure de données n'est pas organisée pareil pour ces cas
- regles=(UN_PARMI('MONOCRISTAL','POLYCRISTAL','MULTIFIBRE'),
+ regles=(EXCLUS('MONOCRISTAL','POLYCRISTAL','MULTIFIBRE'),
PRESENT_PRESENT('MULTIFIBRE','GEOM_FIBRE','MATER_SECT'),
),
MONOCRISTAL =FACT(statut='f', max='**',
fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écrouissage cinématique"),
ELAS =SIMP(statut='f', typ='TXM', max=1,
fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le comportement élastique (un et un seul)"),
- FAMI_SYST_GLIS =SIMP(statut='o',typ='TXM', max=1,
+ FAMI_SYST_GLIS =SIMP(statut='o',typ='TXM', max=1,
into=('BASAL', 'PRISMATIQUE', 'OCTAEDRIQUE', 'PYRAMIDAL1',
'PYRAMIDAL2', 'CUBIQUE1', 'CUBIQUE2', 'MACLAGE', 'JOINT_GRAIN', 'RL', 'UNIAXIAL','BCC24'),),
),
-
-
+
+
POLYCRISTAL =FACT(statut='f', max='**',
regles=(UN_PARMI('ANGL_REP','ANGL_EULER'),),
MONOCRISTAL =SIMP(statut='o', typ=compor_sdaster, max=1),
ANGL_REP =SIMP(statut='f',typ='R',max=3,fr="orientation du monocristal : 3 angles nautiques en degrés"),
ANGL_EULER=SIMP(statut='f',typ='R',max=3,fr="orientation du monocristal : 3 angles d'Euler en degrés"),
),
-
-
+
+
b_poly =BLOC( condition = "POLYCRISTAL!='None'",
LOCALISATION =SIMP(statut='f', typ='TXM', max=1, into=('BZ', 'BETA', 'RL',),
fr="Donner le nom de la règle de localisation"),
-
+
b_beta =BLOC( condition = "LOCALISATION=='BETA'",
DL =SIMP(statut='o',typ='R',max=1),
DA =SIMP(statut='o',typ='R',max=1),
),
),
-
+
#####################################################################################
GEOM_FIBRE = SIMP(statut='f',max=1,typ=gfibre_sdaster,
fr="Donner le nom du concept regroupant tous les groupes de fibres (issu de DEFI_GEOM_FIBRE)"),
BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
BETON_UMLV_FP =SIMP(statut='c',typ='I',defaut=21,into=(21,)),
GRAN_IRRA_LOG =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
-
+
RELATION_KIT =SIMP(statut='f',typ='TXM',max='**',validators=NoRepeat(),
into=(
# MECA KIT_DDI
"BETON_DOUBLE_DP",
),),
-# on pourrait ajouter TOUT_GROUP_FIBRE
+# on pourrait ajouter TOUT_GROUP_FIBRE
) );
-
+
#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 04/09/2007 AUTEUR DURAND C.DURAND
+#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# RESPONSABLE MCOURTOI M.COURTOIS
-def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,ABSCISSE,**args):
+def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
if VALE != None : return fonction_sdaster
if VALE_C != None : return fonction_c
if VALE_PARA != None : return fonction_sdaster
- if ABSCISSE != None : return fonction_sdaster
if NOEUD_PARA != None : return fonction_sdaster
raise AsException("type de concept resultat non prevu")
,fr="Définit une fonction réelle ou complexe d'une variable réelle",
reentrant='n',
UIinfo={"groupes":("Fonction",)},
- regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA','ABSCISSE'),),
+ regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
NOM_PARA =SIMP(statut='o',typ='TXM',into=C_PARA_FONCTION() ),
NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
VALE =SIMP(statut='f',typ='R',min=2,max='**',
fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
- ABSCISSE =SIMP(statut='f',typ='R',min=2,max='**',
- fr ="Liste d abscisses d une fonction réelle"),
VALE_C =SIMP(statut='f',typ='R',min=2,max='**',
fr ="Fonction complexe définie par une liste de couples"),
VALE_PARA =SIMP(statut='f',typ=listr8_sdaster,
b_vale_para =BLOC(condition = "VALE_PARA != None",
VALE_FONC =SIMP(statut='o',typ=listr8_sdaster ),
),
- b_abscisse =BLOC(condition = "ABSCISSE != None",
- ORDONNEE =SIMP(statut='o',typ='R',min=2,max='**',
- fr ="Liste d ordonnées d une fonction réelle"),
- ),
NOEUD_PARA =SIMP(statut='f',typ=no,max='**',
fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
b_noeud_para =BLOC(condition = "NOEUD_PARA != None",
GROUP_NO_FIN =SIMP(statut='f',typ=grno),
),
) ;
-#& MODIF COMMANDE DATE 16/10/2007 AUTEUR SALMONA L.SALMONA
+#& MODIF COMMANDE DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
PHI0 =SIMP(statut='o',typ='R',val_min=0.0),
KAPPA =SIMP(statut='f',typ='R',val_min=0.0,defaut=0.8,val_max=1.0),
ZETA_G =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- TOLER_ET =SIMP(statut='c',typ='R',val_min=0.0,defaut=0.15 ),
+ TOLER_ET =SIMP(statut='c',typ='R',val_min=0.1E-2,val_max=10.0E-02,defaut=1.0E-02 ),
VERI_P =SIMP(statut='c',typ='TXM',max='**',defaut=("TEMP","IRRA") ),
),
ZIRC_EPRI =FACT(statut='f',
PESA_X = SIMP(statut='o',typ='R'),
PESA_Y = SIMP(statut='o',typ='R'),
PESA_Z = SIMP(statut='o',typ='R'),
- SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_LIQU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_LIQU_SATU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_SATU_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_PRES_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-# ---Van Genhuchten et Muallen-----------------------------------------------------------------------------
-
- VG_N = SIMP(statut='f',typ='R'),
- VG_SR = SIMP(statut='f',typ='R'),
- VG_PR = SIMP(statut='f',typ='R'),
- VG_SMAX = SIMP(statut='f',typ='R'),
- VG_SATUR = SIMP(statut='f',typ='R'),
-#
+ SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_LIQU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_LIQU_SATU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_SATU_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_PRES_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES NECESSAIRE SI THERMIQUE -------------------------
# ---------------------------------------------------------------------------------
CP = SIMP(statut='f',typ='R'),
PERM_IN = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERM_END = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
+ PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
PERMIN_X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
D_LB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_CT = SIMP(statut='f',typ='R'),
-#
- regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
- PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
- ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
- 'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
- ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
- UN_PARMI('VG_N','SATU_PRES'),
- ),
-
# ---------------------------------------------------------------------------------
# ------------------- DONNEES INUTILES ----------------------------------------
# ---------------------------------------------------------------------------------
PESA_X = SIMP(statut='o',typ='R'),
PESA_Y = SIMP(statut='o',typ='R'),
PESA_Z = SIMP(statut='o',typ='R'),
- SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_LIQU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_LIQU_SATU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_SATU_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_PRES_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-# ---Van Genhuchten et Muallen-----------------------------------------------------------------------------
-
- VG_N = SIMP(statut='f',typ='R'),
- VG_SR = SIMP(statut='f',typ='R'),
- VG_PR = SIMP(statut='f',typ='R'),
- VG_SMAX = SIMP(statut='f',typ='R'),
- VG_SATUR = SIMP(statut='f',typ='R'),
-#
+ SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_LIQU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_LIQU_SATU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_SATU_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_PRES_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
FICKV_T = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES NECESSAIRE SI THERMIQUE -------------------------
CP = SIMP(statut='f',typ='R'),
PERM_IN = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERM_END = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
+ PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
PERMIN_X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
D_LB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_CT = SIMP(statut='f',typ='R'),
-#
- regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
- PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
- ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
- 'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
- ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
- UN_PARMI('VG_N','SATU_PRES'),
- ),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES FACULTATIVE ----------------------------------
# ---------------------------------------------------------------------------------
PESA_X = SIMP(statut='o',typ='R'),
PESA_Y = SIMP(statut='o',typ='R'),
PESA_Z = SIMP(statut='o',typ='R'),
- SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_LIQU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_LIQU_SATU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_SATU_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_PRES_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-# ---Van Genhuchten et Muallen-----------------------------------------------------------------------------
- VG_N = SIMP(statut='f',typ='R'),
- VG_SR = SIMP(statut='f',typ='R'),
- VG_PR = SIMP(statut='f',typ='R'),
- VG_SMAX = SIMP(statut='f',typ='R'),
- VG_SATUR = SIMP(statut='f',typ='R'),
-#
+ SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_LIQU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_LIQU_SATU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_SATU_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_PRES_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
FICKV_T = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
FICKA_T = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
# ---------------------------------------------------------------------------------
CP = SIMP(statut='f',typ='R'),
PERM_IN = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERM_END = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
+ PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
PERMIN_X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
D_LB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_CT = SIMP(statut='f',typ='R'),
-#
- regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
- PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
- ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
- 'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
- ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
- UN_PARMI('VG_N','SATU_PRES'),
- ),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES FACULTATIVES ------------------------------------
# ---------------------------------------------------------------------------------
PESA_X = SIMP(statut='o',typ='R'),
PESA_Y = SIMP(statut='o',typ='R'),
PESA_Z = SIMP(statut='o',typ='R'),
- SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_LIQU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_LIQU_SATU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_SATU_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_PRES_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-# ---Van Genhuchten et Muallen-----------------------------------------------------------------------------
-
- VG_N = SIMP(statut='f',typ='R'),
- VG_SR = SIMP(statut='f',typ='R'),
- VG_PR = SIMP(statut='f',typ='R'),
- VG_SMAX = SIMP(statut='f',typ='R'),
- VG_SATUR = SIMP(statut='f',typ='R'),
+ SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_LIQU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_LIQU_SATU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_SATU_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_PRES_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES NECESSAIRE SI THERMIQUE -------------------------
# ---------------------------------------------------------------------------------
CP = SIMP(statut='f',typ='R'),
PERM_IN = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERM_END = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
+ PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
PERMIN_X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
D_LB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_CT = SIMP(statut='f',typ='R'),
-#
- regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
- PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
- ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
- 'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
- ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
- UN_PARMI('VG_N','SATU_PRES'),
- ),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES INUTILES ----------------------------------------
# ---------------------------------------------------------------------------------
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 04/09/2007 AUTEUR DURAND C.DURAND
+#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=4,sd_prod=nappe_sdaster,
+DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op= 4,sd_prod=nappe_sdaster,
fr="Définir une fonction réelle de deux variables réelles",
- reentrant='n',UIinfo={"groupes":("Fonction",)},
+ reentrant='n',
+ UIinfo={"groupes":("Fonction",)},
regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
EXCLUS('FONCTION','NOM_PARA_FONC',),
ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
PARA =SIMP(statut='o',typ='R',max='**'),
FONCTION =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),max='**' ),
- NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=C_PARA_FONCTION() ),
+ NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
+ "PULS","AMOR","EPAIS","SAT", "PGAZ","PCAP") ),
DEFI_FONCTION =FACT(statut='f',max='**',
VALE =SIMP(statut='o',typ='R',max='**'),
INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
VECT_ASSE =SIMP(statut='f',typ=(cham_no_sdaster,vect_asse_gene) ),
CHARGE =SIMP(statut='f',typ=char_meca ),
TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
- FONC_MULT_C =SIMP(statut='f',typ=(fonction_c,formule_c) ),
+ FONC_MULT_C =SIMP(statut='f',typ=fonction_c ),
COEF_MULT_C =SIMP(statut='f',typ='C' ),
FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
COEF_MULT =SIMP(statut='f',typ='R' ),
# Rajouter test icompatibilite vect_asse et sensibilite
# Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
# presents dans le Fortran
-#& MODIF COMMANDE DATE 17/09/2007 AUTEUR BOYERE E.BOYERE
+#& MODIF COMMANDE DATE 13/12/2006 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
MODE_MECA =SIMP(statut='f',typ=mode_meca ),
AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
+ REAC_VITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
),
SOLVEUR =FACT(statut='d',
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 16/10/2007 AUTEUR SALMONA L.SALMONA
+#& MODIF COMMANDE DATE 30/05/2007 AUTEUR ABBAS M.ABBAS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
COMP_INCR =C_COMP_INCR(),
COMP_ELAS =FACT(statut='f',max='**',
RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
- into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC","ELAS_VMIS_PUIS",
+ into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
"ELAS_POUTRE_GR","CABLE","ELAS_HYPER")),
ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
- ELAS_VMIS_PUIS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_HYPER =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
#-------------------------------------------------------------------
b_reuse =BLOC(condition = "reuse",fr="en mode concept reentrant : ETAT_INIT obligatoire",
ETAT_INIT =FACT(statut='o',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','ACCE','SIGM','VARI',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','ACCE','SIGM','VARI','VARI_NON_LOCAL',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','VITE'),
EXCLUS('EVOL_NOLI','ACCE'),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
+ EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
VITE =SIMP(statut='f',typ=cham_no_sdaster),
ACCE =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(cham_elem,carte_sdaster)),
VARI =SIMP(statut='f',typ=cham_elem),
+ VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
),),
b_not_reuse =BLOC(condition = "not reuse",fr="en mode concept non reentrant : ETAT_INIT facultatif",
ETAT_INIT =FACT(statut='f',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','ACCE','SIGM','VARI',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','ACCE','SIGM','VARI','VARI_NON_LOCAL',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','VITE'),
EXCLUS('EVOL_NOLI','ACCE'),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
+ EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
VITE =SIMP(statut='f',typ=cham_no_sdaster),
ACCE =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(cham_elem,carte_sdaster)),
VARI =SIMP(statut='f',typ=cham_elem),
+ VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
NUME_INIT =SIMP(statut='f',typ='I'),
DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
- into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","LANL_ELGA")),
+ into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
),
#-------------------------------------------------------------------
SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
fr="Liste des paramètres de sensibilité",
ang="List of sensitivity parameters"),
+#-------------------------------------------------------------------
+ SOLV_NON_LOCAL =FACT(statut='f',
+ METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","MUMPS") ),
+ b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
+ RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
+ ),
+ b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
+ ),
+ b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
+ fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
+ NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
+ STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ ),
+ b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
+ TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
+ SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
+ ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
+ ),
+ b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
+ PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC",),defaut="LDLT_INC" ),
+ NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ ),
+ LAGR_NON_LOCAL =FACT(statut='f',
+ ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
+ RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
+ RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
+ R =SIMP(statut='f',typ='R',defaut= 1000.),
+ ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
+ ),
#-------------------------------------------------------------------
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 11/09/2007 AUTEUR LEBOUVIER F.LEBOUVIER
+#& MODIF COMMANDE DATE 10/10/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
CHOC_FLUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
NB_MODE =SIMP(statut='f',typ='I' ),
NB_MODE_FLUI =SIMP(statut='f',typ='I' ),
+ NB_MODE_DIAG =SIMP(statut='f',typ='I' ),
TS_REG_ETAB =SIMP(statut='f',typ='R' ),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 12/12/2006 AUTEUR VIVAN L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# RESPONSABLE VABHHTS J.PELLET
ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,
UIinfo={"groupes":("Impression",)},
fr="Engendre des tests pour la non régression du code (pour développeurs)",
- UNITE =SIMP(statut='f',typ='I',defaut=8),
+ UNITE =SIMP(statut='f',typ='I',defaut=8),
FORMAT =SIMP(statut='f',typ='TXM',into=("OBJET",) ),
FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE20.13"),
PREC_R =SIMP(statut='f',typ='TXM',defaut="1.E-10"),
regles=(UN_PARMI('TOUT','CO'),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
CO =SIMP(statut='f',typ=assd,validators=NoRepeat(),max='**'),
- TYPE_TEST =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME",) ),
+ TYPE_TEST =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
),
) ;
#& MODIF COMMANDE DATE 29/08/2006 AUTEUR MCOURTOI M.COURTOIS
CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
),
) ;
-#& MODIF COMMANDE DATE 24/09/2007 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 09/05/2007 AUTEUR VIVAN L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,reentrant='f',
UIinfo={"groupes":("Résultats et champs",)},
fr="Extraire des champs au sein d'une SD Résultat",
- regles=(CONCEPT_SENSIBLE('SEPARE'),
- #REUSE_SENSIBLE(),
+ regles=(CONCEPT_SENSIBLE('SEPARE'), REUSE_SENSIBLE(),
DERIVABLE('RESULTAT'),),
RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
) ;
-#& MODIF COMMANDE DATE 06/08/2007 AUTEUR TARDIEU N.TARDIEU
+#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
def extr_table_prod(TYPE_RESU,**args):
- from Cata import cata
- typ = TYPE_RESU.lower()
- if hasattr(cata, typ):
- return getattr(cata, typ)
+ if TYPE_RESU == "MATR_ASSE_GENE_R" : return matr_asse_gene_r
raise AsException("type de concept resultat non prevu")
EXTR_TABLE=OPER(nom="EXTR_TABLE",op=173,sd_prod=extr_table_prod,reentrant='n',
UIinfo={"groupes":("Résultats et champs",)},
- fr="Extraire d'une table des concepts Code_Aster",
- TYPE_RESU =SIMP(statut='o',typ='TXM',),
+ fr="Extraire d'une table la matrice de masse généralisée assemblée",
+ TYPE_RESU =SIMP(statut='o',typ='TXM',into=("MATR_ASSE_GENE_R",) ),
TABLE =SIMP(statut='o',typ=table_sdaster),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
) ;
-#& MODIF COMMANDE DATE 08/10/2007 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2007 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
+def fact_grad_prod(MATR_ASSE,**args):
+ if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
+ if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
+ if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
+ raise AsException("type de concept resultat non prevu")
+FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,
+ UIinfo={"groupes":("Résolution",)},
+ fr="Construire une matrice de préconditionnement pour une résolution par gradient conjugué",
+ reentrant='n',
+ MATR_ASSE =SIMP(statut='o',
+ typ=(matr_asse_depl_r,matr_asse_temp_r,
+ matr_asse_pres_r) ),
+ PRE_COND =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
+ NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
+ INFO =SIMP(statut='f',typ='I',into=(1,2) ),
+) ;
+#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# ======================================================================
+# RESPONSABLE VABHHTS J.PELLET
def fact_ldlt_prod(MATR_ASSE,**args):
if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
raise AsException("type de concept resultat non prevu")
-FACTORISER=OPER(nom="FACTORISER",op=14,sd_prod=fact_ldlt_prod,
- fr="Factoriser une matrice assemblée en un produit de deux matrices triangulaires"+
- "ou construire une matrice de préconditionnement pour une résolution par gradient conjugué",
- reentrant='f', UIinfo={"groupes":("Résolution",)},
+FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,
+ fr="Factoriser une matrice assemblée en un produit de deux matrices triangulaires",
+ reentrant='f',
+ UIinfo={"groupes":("Résolution",)},
regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
EXCLUS('BLOC_FIN','DDL_FIN'),),
MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
-
- # mots clés pour solveur LDLT et MULT_FRONT:
STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
NPREC =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
-
- # mots clés pour solveur LDLT :
+ PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
BLOC_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
DDL_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
BLOC_FIN =SIMP(statut='f',typ='I',val_min=1,),
DDL_FIN =SIMP(statut='f',typ='I',val_min=1,),
+#
+ EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- # mots clés pour solveur MUMPS :
+# mots clés pour solveur MUMPS :
TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut='AUTO',into=('NONSYM','SYMGEN','SYMDEF','AUTO')),
- SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
- PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
- ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
-
- # mots clés pour solveur GCPC :
- PRE_COND =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
- NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
+ PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
UIinfo={"groupes":("Fonction",)},
TYPE_FLUI_STRU =SIMP(statut='o',typ=(type_flui_stru) ),
) ;
-#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-def formule_prod(self,VALE,VALE_C,**args):
- if VALE != None:
- return formule
- elif VALE_C != None:
- return formule_c
-
def form_pyth_ops(self,d):
import types,string
NOM_PARA=self.etape['NOM_PARA']
VALE =self.etape['VALE']
- VALE_C =self.etape['VALE_C']
if type(NOM_PARA) not in (types.ListType,types.TupleType) : NOM_PARA=[NOM_PARA,]
if self.sd==None : return
- if VALE != None :
- texte=string.join(VALE.splitlines())
- elif VALE_C != None :
- texte=string.join(VALE_C.splitlines())
+ texte=string.join(VALE.splitlines())
+
self.sd.setFormule(NOM_PARA,string.strip(texte))
FORMULE=FORM(nom="FORMULE",op_init=form_pyth_ops,op=-5,
- sd_prod=formule_prod,UIinfo={"groupes":("Fonction",)},
- fr="Définit une flyingdformule réelle ou complexe à partir de son expression mathématique",
- regles=(UN_PARMI('VALE','VALE_C',),),
+ sd_prod=formule,UIinfo={"groupes":("Fonction",)},
+ fr="Définit une formule réelle à partir de son expression mathématique",
VALE =SIMP(statut='f',typ='TXM'),
- VALE_C =SIMP(statut='f',typ='TXM'),
NOM_PARA =SIMP(statut='o',typ='TXM',max='**'),
);
#& MODIF COMMANDE DATE 10/10/2006 AUTEUR MCOURTOI M.COURTOIS
UNITE = SIMP(statut='f',typ='I',defaut=38),
AJOUT = SIMP(statut='f', typ='TXM', defaut='NON', into=('OUI', 'NON')),
);
-#& MODIF COMMANDE DATE 11/09/2007 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 09/05/2007 AUTEUR VIVAN L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
fr="Liste des paramètres de sensibilité.",
ang="List of sensitivity parameters"),),
- b_partie =BLOC(condition="""(AsType(RESULTAT) in (dyna_harmo, acou_harmo) or
- AsType(CHAM_GD) != carte_sdaster) and FORMAT in ('CASTEM', 'GMSH', 'MED')""",
+# b_partie =BLOC(condition="""((AsType(RESULTAT)==dyna_harmo) or
+# (AsType(CHAM_GD)!=carte_sdaster)) and ((FORMAT=='CASTEM') or (FORMAT=='GMSH'))""",
PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
- ),
+# ),
b_extrac =BLOC(condition="RESULTAT != None",
fr="extraction d un champ de grandeur",
regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
###
b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
fr="sélection des composantes et des entités toplogiques",
+ NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- TYPE_CHAM =SIMP(statut='f',typ='TXM',defaut="SCALAIRE",
- into=("VECT_2D","VECT_3D","SCALAIRE","TENS_2D","TENS_3D"),),
- b_scal =BLOC(condition = "TYPE_CHAM=='SCALAIRE'",
- NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),),
- b_vect_2d =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
- NOM_CMP =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
- b_vect_3d =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
- NOM_CMP =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
- b_tens_2d =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
- NOM_CMP =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
- b_tens_3d =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
- NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
),
###
b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
) ;
-#& MODIF COMMANDE DATE 03/07/2007 AUTEUR SALMONA L.SALMONA
+#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
"NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI"),),
b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
- VALE =SIMP(statut='f',typ='R',max='**'),
- VALE_I =SIMP(statut='f',typ='I',max='**'),
- VALE_C =SIMP(statut='f',typ='C',max='**'),
- VALE_K =SIMP(statut='f',typ='TXM',max='**'),
+ VALE =SIMP(statut='f',typ='R'),
+ VALE_I =SIMP(statut='f',typ='I'),
+ VALE_C =SIMP(statut='f',typ='C'),
+ VALE_K =SIMP(statut='f',typ='TXM'),
),
b_crit =BLOC(condition = "CRIT_COMP in ('EQ','NE')",
CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 09/10/2007 AUTEUR COURTOIS M.COURTOIS
+#& MODIF COMMANDE DATE 13/02/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
"SIGM_NOZ2_ELGA", "SIPO_ELNO_DEPL", "SIPO_ELNO_SIEF", "SIPO_NOEU_DEPL",
"SIPO_NOEU_SIEF", "SIRE_ELNO_DEPL", "SIRE_NOEU_DEPL", "TEMP", "THETA",
"VALE_CONT", "VALE_NCOU_MAXI", "VARI_ELNO", "VARI_ELNO_COQU",
- "VARI_ELNO_ELGA", "VARI_ELNO_TUYO", "VARI_NOEU", "VARI_NOEU_ELGA",
+ "VARI_ELNO_ELGA", "VARI_ELNO_TUYO", "VARI_NOEU", "VARI_NOEU_ELGA", "VARI_NON_LOCAL",
"VITE", "VITE_ABSOLU", "VITE_VENT",
)
UNITE =SIMP(statut='f',typ='I',defaut= 81, fr="Le fichier est : fort.n.",),
FORMAT_MED =FACT(statut='f',max='**',
regles=(ENSEMBLE('NOM_CMP','NOM_CMP_MED'),),
- NOM_CHAM =SIMP(statut='o',typ='TXM',into=C_NOM_CHAM_INTO(),),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',into=l_nom_cham_pas_elga()),
NOM_CHAM_MED =SIMP(statut='o',typ='TXM', fr="Nom du champ dans le fichier MED.", ),
NOM_CMP =SIMP(statut='f',typ='TXM',max='**', fr="Nom des composantes dans ASTER.", ),
NOM_CMP_MED =SIMP(statut='f',typ='TXM',max='**', fr="Nom des composantes dans MED.", ),
),
);
-#& MODIF COMMANDE DATE 04/09/2007 AUTEUR DURAND C.DURAND
+#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
b_gma_bord = BLOC( condition = "GROUP_MA_BORD != None",
fr=" calcul des carac. mecaniques",
- regles=(UN_PARMI('NOEUD','GROUP_NO')),
- NOEUD =SIMP(statut='f',typ=no, max='**',
- fr="Simplement pour empecher des pivots nuls le cas echeant. Fournir un noeud quelconque"),
- GROUP_NO =SIMP(statut='f',typ=grno,max='**',
+ NOEUD =SIMP(statut='f',typ=no,max='**',
fr="Simplement pour empecher des pivots nuls le cas echeant. Fournir un noeud quelconque"),
GROUP_MA_INTE =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
fr="groupes de mailles linéiques bordant des trous dans la section"),
),
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 10/09/2007 AUTEUR COURTOIS M.COURTOIS
+#& MODIF COMMANDE DATE 16/05/2007 AUTEUR COURTOIS M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# RESPONSABLE GNICOLAS G.NICOLAS
from Macro.Sensibilite import memo_nom_sensi_ops
-def memo_nom_sensi_prod(self, NOM, **kwargs):
- """Typage des concepts sensibles produits par les commandes principales (de calcul)
- """
- TYPE_SD_DERIV = NOM[0]['TYPE_SD_DERIV']
- NOM_COMPOSE = NOM[0]['NOM_COMPOSE']
- if TYPE_SD_DERIV:
- from Cata import cata
- typsd = getattr(cata, TYPE_SD_DERIV)
- self.type_sdprod(NOM_COMPOSE, typsd)
-
-
-MEMO_NOM_SENSI=MACRO(nom="MEMO_NOM_SENSI",op=memo_nom_sensi_ops,sd_prod=memo_nom_sensi_prod,
+MEMO_NOM_SENSI=MACRO(nom="MEMO_NOM_SENSI",op=memo_nom_sensi_ops,
UIinfo={"groupes":("Fonction",)},
fr="Mémorisation des noms des concepts dérivés.",
ang="Memorisation of the names of the sensitive concepts.",
- NOM=FACT(statut='o',
+ NOM=FACT(statut='o',max='**',
regles=(PRESENT_PRESENT('MOT_CLE','VALEUR','MOT_FACT' ),),
NOM_SD=SIMP(statut='o',typ='TXM',
fr="Nom du paramètre sensible",
ang="Name of the sensitive parameter"),
- NOM_COMPOSE=SIMP(statut='f',typ=('TXM', CO),defaut=" ",
+ NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
fr="Nom de la structure composée",
ang="Name of the built structure"),
- TYPE_SD_DERIV=SIMP(statut='f',typ='TXM',
- fr="type de la structure composée (usage interne seulement)",
- ang="Type of the built structure (internal usage only)"),
-
MOT_FACT=SIMP(statut='f',typ='TXM',max='**',
fr="Liste des mots clés facteurs concernés par la dérivation",
ang="Factor keyword list involved in derivation"),
),
)
-#& MODIF COMMANDE DATE 18/09/2007 AUTEUR DURAND C.DURAND
+#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
DIST_REFE =SIMP(statut='f',typ='R' ),
),
CALCUL =FACT(statut='o',
- regles=(UN_PARMI('TOUT_DIAM','NB_DIAM'),),
TOUT_DIAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
NB_DIAM =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 18/09/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 30/04/2007 AUTEUR ABBAS M.ABBAS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2004 EDF R&D WWW.CODE-ASTER.ORG
FISSURE =SIMP(statut='o',typ=fiss_xfem,min=1,max=100,),
CRITERE =SIMP(statut='f',typ='R',defaut=1.67E-8),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,)),
- CONTACT =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON"),min=1,max=1,),
+ CONTACT =SIMP(statut='f',typ=char_meca,min=1,max=1,),
) ;
#& MODIF COMMANDE DATE 10/10/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 10/09/2007 AUTEUR LEFEBVRE J-P.LEFEBVRE
+#& MODIF COMMANDE DATE 13/12/2006 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
),
b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
+ ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
),
b_gcpc =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
) ;
-#& MODIF COMMANDE DATE 10/07/2007 AUTEUR MARKOVIC D.MARKOVIC
+#& MODIF COMMANDE DATE 15/05/2007 AUTEUR GENIAUT S.GENIAUT
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2005 EDF R&D WWW.CODE-ASTER.ORG
fr="Calcul des champs DEPL et SIEF_ELGA sur le maillage fissuré",
MAILLAGE_SAIN = SIMP(statut='o',typ=maillage_sdaster),
MAILLAGE_FISS = SIMP(statut='o',typ=maillage_sdaster),
- NOM_CHAM = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA"),),
+ NOM_CHAM = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=("DEPL","SIEF_ELGA"),),
MODELE = SIMP(statut='o',typ=modele_sdaster,),
RESULTAT = SIMP(statut='o',typ=resultat_sdaster),
- b_elga = BLOC(condition = "NOM_CHAM in ('SIEF_ELGA','VARI_ELGA') or \
- (type(NOM_CHAM)==type(()) and 'SIEF_ELGA' in NOM_CHAM) or \
- (type(NOM_CHAM)==type(()) and 'VARI_ELGA' in NOM_CHAM)",
+ b_elga = BLOC(condition = "NOM_CHAM == 'SIEF_ELGA' or \
+ (type(NOM_CHAM)==type(()) and 'SIEF_ELGA' in NOM_CHAM)",
MODELE_VISU = SIMP(statut='o',typ=modele_sdaster,),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 23/07/2007 AUTEUR COURTOIS M.COURTOIS
+#& MODIF COMMANDE DATE 31/10/2006 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2006 EDF R&D WWW.CODE-ASTER.ORG
fr="Calcul du critère énergétique Gp suite à un calcul thermo-mécanique",
reentrant='n',
UIinfo={"groupes":("Post traitements",)},
- regles=(UN_PARMI('IDENTIFICATION', 'PREDICTION'),),
+ regles=(AU_MOINS_UN('IDENTIFICATION', 'PREDICTION'),),
# Résultat, modèle, comportement, chargement
RESULTAT = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans,mode_meca),),
TITRE =SIMP(statut='f',typ='TXM'),
)
-#& MODIF COMMANDE DATE 17/07/2007 AUTEUR GENIAUT S.GENIAUT
+#& MODIF COMMANDE DATE 15/05/2007 AUTEUR GENIAUT S.GENIAUT
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2005 EDF R&D WWW.CODE-ASTER.ORG
fr="Crée un maillage se conformant à la fissure pour le post-traitement des éléments XFEM",
MODELE = SIMP(statut='o',typ=modele_sdaster),
MAILLAGE_SAIN = SIMP(statut='o',typ=maillage_sdaster),
- PREF_NOEUD_X =SIMP(statut='f',typ='TXM',defaut="NX",validators=LongStr(1,2),),
- PREF_NOEUD_M =SIMP(statut='f',typ='TXM',defaut="NM",validators=LongStr(1,2),),
- PREF_NOEUD_P =SIMP(statut='f',typ='TXM',defaut="NP",validators=LongStr(1,2),),
- PREF_MAILLE_X =SIMP(statut='f',typ='TXM',defaut="MX",validators=LongStr(1,2),),
TITRE = SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 02/10/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 09/05/2007 AUTEUR VIVAN L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
if CHAM_NO_REFE != None : return cham_no_sdaster
raise AsException("type de concept resultat non prevu")
-
PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
UIinfo={"groupes":("Résultats et champs",)},
fr="Projeter les champs aux noeuds d'une SD résultat de type evol_xxx sur un autre maillage",
-
-
+#
METHODE =SIMP(statut='f',typ='TXM',defaut="ELEM",
into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
-
-
- # Méthode NUAGE_xxx :
- #--------------------
b_nuage =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
fr="Lissage d'un nuage de points",
CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
CHAM_NO_REFE =SIMP(statut='o',typ=cham_no_sdaster),
),
-
-
-
- # Méthode ELEM :
- #--------------------
b_elem =BLOC(condition="METHODE=='ELEM'",
fr="Utilisation des fonctions de forme du maillage initial",
regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
NOM_CHAM =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- NUME_DDL =SIMP(statut='f',typ=(nume_ddl_sdaster),
- fr="Utile en dynamique pour pouvoir imoser la numérotation des cham_no."),
+# POUR IMPOSER LA NUMEROTATION DES DDLS :
+# ------------------------------------------------------------------
+ NUME_DDL =SIMP(statut='f',typ=(nume_ddl_sdaster) ),
TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- CAS_FIGURE =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",),
- fr="Pour indiquer au programme le type de projection souhaité"),
+ CAS_FIGURE =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",) ),
DISTANCE_MAX =SIMP(statut='f',typ='R',
fr="Distance maximale entre le noeud et l'élément le plus proche, lorsque le noeud n'est dans aucun élément."),
TRANSF_GEOM_2 =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
fr="Pour forcer le type des champs projetés. NOEU -> cham_no"),
PROL_ZERO =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON",
- fr="Pour prolonger les champs par zéro là ou la projection ne donne pas de valeurs."),
+ fr="Si le résultat est un mode_xxx ou une base_xxx, on peut prolonger"
+ +" les champs par zéro la ou la projection ne donne pas de valeurs."),
),
-
-
- # Mots clés utilisables avec les 2 méthodes :
- #---------------------------------------------
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
-
VIS_A_VIS =FACT(statut='f',max='**',
regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
" aux noeuds du MODELE_2 avant la projection."),
),
+
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
) ;
#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 08/10/2007 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2007 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-RESOUDRE=OPER(nom="RESOUDRE",op=15,sd_prod=cham_no_sdaster,reentrant='f',
- fr="Résolution par méthode directe un système d'équations linéaires préalablement factorisé par FACT_LDLT"+
- "ou Résolution d'un système linéaire par la méthode du gradient conjugué préconditionné",
- UIinfo={"groupes":("Résolution",)},
- MATR =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
- matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
+RESO_GRAD=OPER(nom="RESO_GRAD",op= 84,sd_prod=cham_no_sdaster,
+ fr="Résolution d'un système linéaire par la méthode du gradient conjugué préconditionné",
+ reentrant='f',
+ UIinfo={"groupes":("Résolution",)},
+ MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
CHAM_CINE =SIMP(statut='f',typ=cham_no_sdaster),
-
- # mot-clé commun aux solveurs MUMPS et GCPC:
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
-
- # mots-clés pour solver GCPC:
- MATR_PREC =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
+ MATR_FACT =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
REPRISE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1E-6 ),
+ INFO =SIMP(statut='f',typ='I',into=(1,2) ),
+) ;
+#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# ======================================================================
+# RESPONSABLE VABHHTS J.PELLET
+RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=cham_no_sdaster,reentrant='f',
+ fr="Résoudre par méthode directe un système d'équations linéaires préalablement factorisé par FACT_LDLT",
+ UIinfo={"groupes":("Résolution",)},
+ MATR_FACT =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
+ matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
+ CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
+ CHAM_CINE =SIMP(statut='f',typ=cham_no_sdaster),
+ # RESI_RELA : précision utilisée si SOLVEUR=MUMPS
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=1.e-6),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
) ;
into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
) ;
-#& MODIF COMMANDE DATE 26/06/2007 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 23/04/2007 AUTEUR PROIX J-M.PROIX
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2006 EDF R&D WWW.CODE-ASTER.ORG
NUME_INIT =SIMP(statut='f',typ='I'),
DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
- into=("DEPL","SIEF_ELGA","VARI_ELGA","LANL_ELGA")),
+ into=("DEPL","SIEF_ELGA","VARI_ELGA","VARI_NON_LOCAL","LANL_ELGA")),
),
MODELISATION =SIMP(statut='f',typ='TXM',defaut="3D",validators=NoRepeat(),max=1,
into=("3D","C_PLAN","D_PLAN",)),
fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit les md5"),
) ;
-#& MODIF COMMANDE DATE 16/10/2007 AUTEUR SALMONA L.SALMONA
+#& MODIF COMMANDE DATE 30/05/2007 AUTEUR ABBAS M.ABBAS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
- into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC","ELAS_VMIS_PUIS",
+ into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
"ELAS_POUTRE_GR","CABLE","ELAS_HYPER")),
ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
- ELAS_VMIS_PUIS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_HYPER =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
),
b_reuse =BLOC(condition = "reuse",fr="en mode concept reentrant : ETAT_INIT obligatoire",
ETAT_INIT =FACT(statut='o',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
+ EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(cham_elem,carte_sdaster)),
VARI =SIMP(statut='f',typ=cham_elem),
+ VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
),),
b_not_reuse =BLOC(condition = "not reuse",fr="en mode concept non reentrant : ETAT_INIT facultatif",
ETAT_INIT =FACT(statut='f',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
+ EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(cham_elem,carte_sdaster)),
VARI =SIMP(statut='f',typ=cham_elem),
+ VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
),
- b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' or METHODE == 'FETI'",
+ b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
NUME_INIT =SIMP(statut='f',typ='I'),
DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
- CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
- into=("DEPL","SIEF_ELGA","VARI_ELGA","LANL_ELGA")),
+ CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
+ "VARI_NON_LOCAL","LANL_ELGA")),
),
OBSERVATION =FACT(statut='f',max='**',
NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
fr="Liste des paramètres de sensibilité",
ang="List of sensitivity parameters"),
+ SOLV_NON_LOCAL =FACT(statut='f',
+ METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","MUMPS") ),
+ b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
+ RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
+ ),
+ b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
+ ),
+ b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
+ fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
+ NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
+ STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ ),
+ b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
+ TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
+ SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
+ ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
+ ),
+ b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
+ PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC",),defaut="LDLT_INC" ),
+ NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ ),
+ LAGR_NON_LOCAL =FACT(statut='f',
+ ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
+ RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
+ RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
+ R =SIMP(statut='f',typ='R',defaut= 1000.),
+ ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
+ ),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
)
),
),
) ;
-#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 10/10/2006 AUTEUR REZETTE C.REZETTE
# RESPONSABLE VABHHTS J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
),
OBJET =FACT(statut='f',max='**',
- regles=(UN_PARMI('S_I','S_R',),
- UN_PARMI('VALE','VALE_I','VALE_C','S_R','S_I'),),
+ regles=(UN_PARMI('S_I','S_R','RESUME',),
+ UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
NOM =SIMP(statut='o',typ='TXM'),
S_R =SIMP(statut='f',typ='R'),
S_I =SIMP(statut='f',typ='I'),
+ RESUME =SIMP(statut='f',typ='I'),
VALE =SIMP(statut='f',typ='R'),
VALE_I =SIMP(statut='f',typ='I'),
VALE_C =SIMP(statut='f',typ='C'),
