except:
pass
-__version__="$Name: BR_dev_mars_06 $"
-__Id__="$Id: cata.py,v 1.3.6.3 2006/05/29 07:47:37 cchris Exp $"
+__version__="$Name: $"
+__Id__="$Id: cata_aster_v6.py,v 1.12 2001/01/16 15:55:05 iliade Exp $"
EnumTypes = (ListType, TupleType)
"VITE_ABSOLU",
"VITE_VENT",
)
-#& MODIF COMMUN DATE 27/06/2005 AUTEUR D6BHHJP J.P.LEFEBVRE
-# 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.
-# ======================================================================
-#
-# ce fichier contient la liste des "into" possibles pour le mot cle TYPE_CHAM
-def C_TYPE_CHAM_INTO() : #COMMUN#
- l=[]
- for gd in C_NOM_GRANDEUR() :
- for typ in ("ELEM","ELNO","ELGA","CART","NOEU") :
- l.append(typ+"_"+gd)
- return tuple(l)
-
-#& MODIF COMMUN DATE 27/06/2005 AUTEUR D6BHHJP J.P.LEFEBVRE
-# 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.
-# ======================================================================
-# ce fichier contient la liste des PARA possibles pour les fonctions et les nappes
-def C_PARA_FONCTION() : return ( #COMMUN#
- "DX","DY","DZ","DRX","DRY","DRZ","TEMP","TSEC",
- "INST","X","Y","Z","EPSI","META","FREQ","PULS","DSP",
- "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
- "PGAZ","PCAP","VITE","ENDO","NORM","EPAIS",
- "NEUT1","NEUT2",)
#& MODIF COMMUN DATE 04/04/2006 AUTEUR CIBHHLV L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
"WEIBULL",
"XCONTAC",
)
+#& MODIF COMMUN DATE 27/06/2005 AUTEUR D6BHHJP J.P.LEFEBVRE
+# 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.
+# ======================================================================
+# ce fichier contient la liste des PARA possibles pour les fonctions et les nappes
+def C_PARA_FONCTION() : return ( #COMMUN#
+ "DX","DY","DZ","DRX","DRY","DRZ","TEMP","TSEC",
+ "INST","X","Y","Z","EPSI","META","FREQ","PULS","DSP",
+ "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
+ "PGAZ","PCAP","VITE","ENDO","NORM","EPAIS",
+ "NEUT1","NEUT2",)
+#& MODIF COMMUN DATE 27/06/2005 AUTEUR D6BHHJP J.P.LEFEBVRE
+# 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.
+# ======================================================================
+#
+# ce fichier contient la liste des "into" possibles pour le mot cle TYPE_CHAM
+def C_TYPE_CHAM_INTO() : #COMMUN#
+ l=[]
+ for gd in C_NOM_GRANDEUR() :
+ for typ in ("ELEM","ELNO","ELGA","CART","NOEU") :
+ l.append(typ+"_"+gd)
+ return tuple(l)
+
#& MODIF COMMANDE DATE 09/05/2006 AUTEUR JMBHH01 J.M.PROIX
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
) ;
-#& 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.
-# ======================================================================
-AIDE=PROC(nom="AIDE",op=42,
- UIinfo={"groupes":("Modélisation",)},
- fr="Interroger et imprimer une documentation partielle sur les noms des concepts déjà définis et sur les couples"
- +" (type d'éléments, option) disponibles dans la version.",
- regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
- UNITE =SIMP(statut='f',typ='I',defaut=8),
- TYPE_ELEM =FACT(fr="couple type_elem option",statut='f',
- INITEL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
- ),
- CONCEPT =FACT(statut='f',max='**',
- NOM =SIMP(fr="liste des noms de concept",statut='f',typ='TXM',validators=NoRepeat(),max='**',defaut="*"),
- OPTION =SIMP(fr="option d'édition de concept",statut='f',typ='TXM',defaut="TOUT_TYPE",
- into=("TOUT_TYPE","CREER","A_CREER",) ),
- ),
-) ;
-#& MODIF COMMANDE DATE 16/01/2006 AUTEUR D6BHHJP J.P.LEFEBVRE
-# 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.
-# ======================================================================
-DEBUT=MACRO(nom="DEBUT",op=ops.build_debut ,repetable='n',
- UIinfo={"groupes":("Gestion du travail",)},
- fr="Ouverture d'une étude. Allocation des ressources mémoire et disque et fichiers",
- sd_prod=ops.DEBUT,
-
- PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
- into=("OUI","NON"),defaut="OUI"),
- IMPR_MACRO =SIMP(fr="affichage des sous-commandes produites par les macros dans le fichier mess",
- statut='f',typ='TXM',into=("OUI","NON"),defaut="NON"),
-# FORMAT_HDF =SIMP(fr="sauvegarde de la base GLOBALE au format HDF",statut='f',
-# typ='TXM',defaut="NON",into=("OUI","NON",) ),
- BASE =FACT(fr="définition des paramètres associés aux bases JEVEUX",
- statut='f',min=1,max=2,
- FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM',
- into=('GLOBALE','VOLATILE'),),
- TITRE =SIMP(statut='f',typ='TXM'),
- CAS =SIMP(statut='f',typ='TXM'),
- NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
- LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
- LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
- ),
- IMPRESSION =FACT(statut='f',min=1,max=3,
- FICHIER =SIMP(statut='o',typ='TXM'),
- UNITE =SIMP(statut='o',typ='I'),
- ),
- CATALOGUE =FACT(statut='f',min=1,max=10,
- FICHIER =SIMP(statut='o',typ='TXM'),
- TITRE =SIMP(statut='f',typ='TXM'),
- UNITE =SIMP(statut='f',typ='I'),
- ),
- CODE =FACT(fr="définition d un nom pour l'ensemble d'une étude",
- statut='f',min=1,max=1,
- NOM =SIMP(statut='o',typ='TXM'),
- NIV_PUB_WEB =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
- VISU_EFICAS =SIMP(statut='f',typ='TXM',into=('OUI','NON'),defaut='OUI'),
- UNITE =SIMP(statut='f',typ='I',defaut=15),
- ),
- ERREUR =FACT(fr="comportement en cas d'erreur",statut='f',min=1,max=1,
- ERREUR_F =SIMP(statut='f',typ='TXM',into=('ABORT','EXCEPTION'),defaut='ABORT'),
- ),
- DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
- statut='f',min=1,max=1,
- JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
- statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
- JEVEUX =SIMP(fr="force les déchargement sur disque",
- statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
- ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
- statut='f',typ='TXM',into=('TEST',)),
- ),
- MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
- GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
- TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
- TAILLE =SIMP(statut='f',typ='I'),
- TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
- PARTITION =SIMP(statut='f',typ='R'),
- ),
- RESERVE_CPU =FACT(fr="reserve de temps pour terminer une execution",statut='f',max=1,
- regles=(EXCLUS('VALE','POURCENTAGE'),),
- VALE =SIMP(statut='f',typ='I',val_min=0),
- POURCENTAGE =SIMP(statut='f',typ='R',val_min=0.,val_max=1.0),
-# valeur en pourcentage du temps maximum bornée à 180 secondes
- BORNE =SIMP(statut='f',typ='I',val_min=0,defaut=180)
- ),
- );
#& MODIF COMMANDE DATE 09/05/2006 AUTEUR JMBHH01 J.M.PROIX
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
+AIDE=PROC(nom="AIDE",op=42,
+ UIinfo={"groupes":("Modélisation",)},
+ fr="Interroger et imprimer une documentation partielle sur les noms des concepts déjà définis et sur les couples"
+ +" (type d'éléments, option) disponibles dans la version.",
+ regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
+ UNITE =SIMP(statut='f',typ='I',defaut=8),
+ TYPE_ELEM =FACT(fr="couple type_elem option",statut='f',
+ INITEL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ ),
+ CONCEPT =FACT(statut='f',max='**',
+ NOM =SIMP(fr="liste des noms de concept",statut='f',typ='TXM',validators=NoRepeat(),max='**',defaut="*"),
+ OPTION =SIMP(fr="option d'édition de concept",statut='f',typ='TXM',defaut="TOUT_TYPE",
+ into=("TOUT_TYPE","CREER","A_CREER",) ),
+ ),
+) ;
+#& 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
ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage_sdaster,
fr="Assembler deux maillages pour en former un nouveau",
),
) ;
-#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 29/05/2006 AUTEUR GALENNE E.GALENNE
# 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
+# COPYRIGHT (C) 1991 - 2006 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.
+# ======================================================================
+CALC_G=OPER(nom="CALC_G",op=100,sd_prod=table_sdaster,
+ fr="Calcul du taux de restitution d'énergie par la méthode theta en thermo-élasticité"
+ +" et les facteurs d'intensité de contraintes.",
+ reentrant='f',
+ UIinfo={"groupes":("Post traitements",)},
+ regles=(UN_PARMI('RESULTAT','DEPL'),
+ PRESENT_PRESENT('VITE','ACCE'),
+ EXCLUS('COMP_ELAS','COMP_INCR'),
+ CONCEPT_SENSIBLE("ENSEMBLE"),
+ REUSE_SENSIBLE(),
+ DERIVABLE('RESULTAT'),),
+ MODELE =SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='f',typ=cham_mater),
+
+ THETA =FACT(statut='o',
+ THETA =SIMP(statut='f',typ=(theta_geom,cham_no_sdaster),),
+ FOND_FISS =SIMP(statut='f',typ=fond_fiss,max=1),
+ FISSURE =SIMP(statut='f',typ=fiss_xfem,max=1),
+ regles=(EXCLUS('FOND_FISS','FISSURE'),),
+ b_theta =BLOC(condition="THETA == None",fr="calcul de theta",
+ regles=(UN_PARMI('R_INF','R_INF_FO'),
+ EXCLUS('MODULE','MODULE_FO'),
+ PRESENT_PRESENT('R_INF','R_SUP'),
+ PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
+ R_INF =SIMP(statut='f',typ='R'),
+ R_SUP =SIMP(statut='f',typ='R'),
+ MODULE =SIMP(statut='f',typ='R'),
+ DIRE_THETA =SIMP(statut='f',typ=cham_no_sdaster ),
+ DIRECTION =SIMP(statut='f',typ='R',max='**'),
+ R_INF_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ R_SUP_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ MODULE_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ ),
+ ),
+
+ DEPL =SIMP(statut='f',typ=cham_no_sdaster),
+ VITE =SIMP(statut='f',typ=cham_no_sdaster),
+ ACCE =SIMP(statut='f',typ=cham_no_sdaster),
+ RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli,dyna_trans,mode_meca),),
+
+ b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST',
+ 'TOUT_MODE','NUME_MODE','LIST_MODE','FREQ','LIST_FREQ',),),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ TOUT_MODE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_MODE =SIMP(statut='f',typ=listis_sdaster),
+ LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster),
+ FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+
+ b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ ),
+ ),
+ EXCIT =FACT(statut='f',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",into=("FIXE",) ),
+ ),
+ SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
+
+ COMP_ELAS =FACT(statut='f',
+ RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
+ 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",) ),
+ GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
+ ),
+ 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 =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,) ),
+ DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
+ 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='**'),
+ MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
+ ),
+ ETAT_INIT =FACT(statut='f',
+ SIGM =SIMP(statut='f',typ=cham_elem),
+ DEPL =SIMP(statut='f',typ=cham_no_sdaster),
+ ),
+
+ LISSAGE =FACT(statut='d',
+ DEGRE =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
+ LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE"),),
+ LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO"),),
+ ),
+
+ OPTION =SIMP(statut='o',typ='TXM',max=1,defaut='CALC_G',
+ into=("CALC_G","CALC_G_GLOB","CALC_K_G","K_G_MODA","G_MAX","G_MAX_GLOB","G_BILI",
+ "G_BILI_GLOB","G_LAGR","G_LAGR_GLOB"),),
+
+ b_g_max =BLOC(condition="(OPTION=='G_MAX') or (OPTION=='G_MAX_GLOB')",
+ BORNES =FACT(statut='o',max='**',
+ NUME_ORDRE =SIMP(statut='o',typ='I'),
+ VALE_MIN =SIMP(statut='o',typ='R'),
+ VALE_MAX =SIMP(statut='o',typ='R'),
+ ),
+ ),
+ PROPAGATION =SIMP(statut='f',typ='R'),
+ THETA_LAGR =SIMP(statut='f',typ=theta_geom),
+ DIRE_THETA_LAGR =SIMP(statut='f',typ=cham_no_sdaster),
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
+ fr="Liste des paramètres de sensibilité.",
+ ang="List of sensitivity parameters"),
+
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
+);
+#& MODIF COMMANDE DATE 03/01/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.
#
GROUP_NO_RESU =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
NOEUD_RESU =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
) ;
-#& 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.
-# ======================================================================
-CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- fr="Définir un champ theta pour le calcul du taux de restitution d'énergie"
- +" ou des facteurs d'intensité de contraintes",
- regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
- PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
- EXCLUS('DIRECTION','DIRE_THETA'),),
- OPTION =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
- MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
- THETA_3D =FACT(statut='f',max='**',
- regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
- UN_PARMI('MODULE','MODULE_FO'),
- ENSEMBLE('MODULE','R_INF','R_SUP'),
- ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- MODULE =SIMP(statut='f',typ='R'),
- R_INF =SIMP(statut='f',typ='R'),
- R_SUP =SIMP(statut='f',typ='R'),
- MODULE_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- R_INF_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- R_SUP_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- ),
- b_theta_3d =BLOC(condition="THETA_3D != None",
- FOND_FISS =SIMP(statut='f',typ=fond_fiss),),
- DIRE_THETA =SIMP(statut='f',typ=cham_no_sdaster ),
- DIRECTION =SIMP(statut='f',typ='R',max='**'),
- THETA_2D =FACT(statut='f',max='**',
- regles=(UN_PARMI('GROUP_NO','NOEUD'),),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- MODULE =SIMP(statut='o',typ='R'),
- R_INF =SIMP(statut='o',typ='R'),
- R_SUP =SIMP(statut='o',typ='R'),
- ),
- THETA_BANDE =FACT(statut='f',max='**',
- MODULE =SIMP(statut='o',typ='R'),
- R_INF =SIMP(statut='o',typ='R'),
- R_SUP =SIMP(statut='o',typ='R'),
- ),
- GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- IMPRESSION =FACT(statut='f',
- UNITE =SIMP(statut='f',typ='I',defaut=8),
- FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
- ),
-) ;
#& MODIF COMMANDE DATE 16/05/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.
+# COPYRIGHT (C) 1991 - 2003 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 calc_vect_elem_prod(OPTION,**args):
- if OPTION == "CHAR_MECA" : return vect_elem_depl_r
- if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
- if OPTION == "CHAR_THER" : return vect_elem_temp_r
- if OPTION == "CHAR_ACOU" : return vect_elem_pres_c
- if OPTION == "FORC_NODA" : return vect_elem_depl_r
- raise AsException("type de concept resultat non prevu")
+# RESPONSABLE ASSIRE A.ASSIRE
-CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- fr="Calcul des seconds membres élémentaires",
- OPTION =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
- "FORC_NODA","CHAR_MECA_LAGR") ),
- b_char_meca =BLOC(condition = "OPTION=='CHAR_MECA'",
- regles=(AU_MOINS_UN('CHARGE','MODELE'),),
- CHARGE =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
- MODELE =SIMP(statut='f',typ=modele_sdaster),
- b_charge =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
- CHAM_MATER =SIMP(statut='f',typ=cham_mater),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- b_modele =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
- SOUS_STRUC =FACT(statut='o',min=01,
- regles=(UN_PARMI('TOUT','MAILLE'),),
- CAS_CHARGE =SIMP(statut='o',typ='TXM' ),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**',),
- ),
- ),
- ),
- b_char_ther =BLOC(condition = "OPTION=='CHAR_THER'",
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- CHARGE =SIMP(statut='o',typ=char_ther,validators=NoRepeat(),max='**'),
- INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- ),
-
- b_char_acou =BLOC(condition = "OPTION=='CHAR_ACOU'",
- CHAM_MATER =SIMP(statut='o',typ=cham_mater),
- CHARGE =SIMP(statut='o',typ=char_acou,validators=NoRepeat(),max='**'),
- ),
-
- b_forc_noda =BLOC(condition = "OPTION=='FORC_NODA'",
- SIEF_ELGA =SIMP(statut='o',typ=cham_elem),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- MODELE =SIMP(statut='f',typ=modele_sdaster),
+from Macro.calc_precont_ops import calc_precont_ops
+
+
+# ===========================================================================
+# CATALOGUE DE LA MACRO "CALC_PRECONT"
+# -----------------------------------------
+# USAGE :
+#
+#
+# ===========================================================================
+
+CALC_PRECONT=MACRO(nom="CALC_PRECONT",op=calc_precont_ops,sd_prod=evol_noli,
+ fr="Imposer la tension définie par le BPEL dans les cables",
+ reentrant='f',UIinfo={"groupe":("Modélisation",)},
+ reuse =SIMP(statut='f',typ='evol_noli'),
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater),
+ CARA_ELEM =SIMP(statut='o',typ=cara_elem),
+ CABLE_BP =SIMP(statut='o',typ=cabl_precont,validators=NoRepeat(),max='**'),
+ CABLE_BP_INACTIF =SIMP(statut='f',typ=cabl_precont,validators=NoRepeat(),max='**'),
+ INCREMENT =FACT(statut='o',
+ LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
+ INST_INIT =SIMP(statut='f',typ='R'),
+ INST_FIN =SIMP(statut='f',typ='R'),
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
+ SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
+ SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
+ COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
),
-
- b_meca_lagr =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
- CHAM_MATER =SIMP(statut='o',typ=cham_mater),
- THETA =SIMP(statut='o',typ=theta_geom),
- PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- CHARGE =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
- INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+
+ NEWTON =FACT(statut='d',
+ REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
+ PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
+ MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
+ PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
+ REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
+ EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
+ ),
+ RECH_LINEAIRE =FACT(statut='f',
+ RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
+ ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
),
-) ;
-#& MODIF COMMANDE DATE 16/05/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 G8BHHXD X.DESROCHES
+ CONVERGENCE =FACT(statut='d',
+ RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
+ RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
+ ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
+ ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
+ ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
+ ),
+ ETAT_INIT =FACT(statut='f',
+ 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'),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ NUME_DIDI =SIMP(statut='f',typ='I'),
+ INST_ETAT_INIT =SIMP(statut='f',typ='R'),
+ ),
+ SOLVEUR =FACT(statut='d',
+ 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","DECOUPE") ),
+ ),
+ 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 ),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ 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),
+ ),
+ PARM_THETA =SIMP(statut='f',typ='R'
+ ,defaut= 1. ),
+ INFO =SIMP(statut='f',typ='I',into=(1,2) ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
-COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=cham_elem,reentrant='f',
- fr="Effectuer la combinaison linéaire de champs par éléments",
- UIinfo={"groupes":("Résultats et champs",)},
- regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
- PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
- COMB_R =FACT(statut='f',max='**',
- PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
- COEF_R =SIMP(statut='o',typ='R'),
- CHAM_ELEM =SIMP(statut='o',typ=cham_elem),
- ),
- COMB_C =FACT(statut='f',max='**',
- regles=(UN_PARMI('COEF_R','COEF_C', ),),
- COEF_R =SIMP(statut='f',typ='R'),
- COEF_C =SIMP(statut='f',typ='C'),
- CHAM_ELEM =SIMP(statut='o',typ=cham_elem),
- ),
- COMB_FOURIER =FACT(statut='f',max='**',
- COEF_R =SIMP(statut='f',typ='R',defaut= 1.),
- NUME_MODE =SIMP(statut='o',typ='I'),
- TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
- CHAM_ELEM =SIMP(statut='o',typ=cham_elem),
- ),
- ANGL =SIMP(statut='f',typ='R' ),
-) ;
+ EXCIT =FACT(statut='o',max='**',
+ CHARGE =SIMP(statut='o',typ=char_meca),
+ ),
-#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
+ COMP_INCR =C_COMP_INCR(),
+ ) ;
+#& 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
-# 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 - 2005 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 G8BHHXD X.DESROCHES
-def comb_cham_no_prod(COMB_R,**args):
- typ=cham_no_sdaster
- if COMB_R != None:
- type_mat = AsType(COMB_R[0]['CHAM_NO'])
- if type_mat == matr_asse_gene_r : typ= matr_asse_gene_r
- return typ
+# -*- coding: iso-8859-1 -*-
-COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op= 30,sd_prod=comb_cham_no_prod
- ,fr="Effectuer la combinaison linéaire de champs aux noeuds",
+# RESPONSABLE MCOURTOI M.COURTOIS
+
+def calc_table_prod(self, TABLE, **kargs):
+ """Typage du concept produit.
+ """
+ typ_table = AsType(TABLE)
+ if issubclass(typ_table, table_sdaster):
+ return typ_table
+ raise AsException("type de concept resultat non prevu")
+
+from Macro.calc_table_ops import calc_table_ops
+
+CALC_TABLE=MACRO(nom="CALC_TABLE",op=calc_table_ops, sd_prod=calc_table_prod,
+ fr="Opérations sur une table",
reentrant='f',
- UIinfo={"groupes":("Résultats et champs",)},
- regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
- COMB_R =FACT(statut='f',max='**',
- PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
- CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
- COEF_R =SIMP(statut='o',typ='R' ),
- ),
- COMB_C =FACT(statut='f',max='**',
- regles=(UN_PARMI('COEF_R','COEF_C' ),),
- CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
- COEF_R =SIMP(statut='f',typ='R' ),
- COEF_C =SIMP(statut='f',typ='C' ),
+ regles=(DERIVABLE('TABLE'),),
+ TABLE = SIMP(statut='o',typ=table_sdaster),
+ ACTION = FACT(statut='o', max='**',
+ fr = "Suite des opérations à effectuer sur la table",
+ OPERATION = SIMP(statut='o', typ='TXM',
+ into=('FILTRE', 'EXTR', 'RENOMME', 'TRI', 'COMB', 'OPER',)),
+
+ b_filtre = BLOC(condition="OPERATION == 'FILTRE'",
+ fr="Sélectionne les lignes de la table vérifiant un critère",
+ NOM_PARA = SIMP(statut='o',typ='TXM'),
+ CRIT_COMP = SIMP(statut='f',typ='TXM',defaut="EQ",
+ into=('EQ','NE','GT','LT','GE','LE','REGEXP',
+ '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'),
+ VALE_I = SIMP(statut='f',typ='I'),
+ VALE_C = SIMP(statut='f',typ='C'),
+ VALE_K = SIMP(statut='f',typ='TXM'),
),
- COMB_FOURIER =FACT(statut='f',max='**',
- CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
- COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
- NUME_MODE =SIMP(statut='o',typ='I' ),
- TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
+ b_regexp = BLOC(condition = "CRIT_COMP == 'REGEXP'",
+ VALE_K = SIMP(statut='f',typ='TXM'),
),
- b_angl = BLOC ( condition = "COMB_FOURIER != None",
- ANGL =SIMP(statut='o',typ='R' ),
+ b_crit = BLOC(condition = "CRIT_COMP in ('EQ','NE')",
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
),
-) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+ ),
+
+ b_extr = BLOC(condition="OPERATION == 'EXTR'",
+ fr="Extrait une ou plusieurs colonnes de la table",
+ NOM_PARA = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
+ fr="Noms des colonnes à extraire"),
+ ),
+
+ b_renomme = BLOC(condition="OPERATION == 'RENOMME'",
+ fr="Renomme un ou plusieurs paramètres de la table",
+ NOM_PARA = SIMP(statut='o', typ='TXM', validators=NoRepeat(), min=2, max=2,
+ fr="Couple (ancien nom du paramètre, nouveau nom du paramètre)",),
+ ),
+
+ b_tri = BLOC(condition="OPERATION == 'TRI'",
+ fr="Ordonne les lignes de la table selon les valeurs d'un ou plusieurs paramètres",
+ NOM_PARA = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**'),
+ ORDRE = SIMP(statut='f',typ='TXM',defaut="CROISSANT",
+ into=("CROISSANT","DECROISSANT") ),
+ ),
+
+ b_comb = BLOC(condition="OPERATION == 'COMB'",
+ fr="Combine deux tables ayant éventuellement des paramètres communs",
+ TABLE = SIMP(statut='o',typ=table_sdaster,
+ fr="Table dont les colonnes vont venir surcharger la table initiale"),
+ NOM_PARA = SIMP(statut='f',typ='TXM',max='**',
+ fr="Noms des paramètres dont les valeurs doivent etre identiques dans les deux tables "\
+ "pour que les colonnes soient combinées"),
+ ),
+
+ b_oper = BLOC(condition="OPERATION == 'OPER'",
+ fr="Applique une formule dans laquelle les variables sont les paramètres de la table",
+ FORMULE = SIMP(statut='o',typ=formule,
+ fr="Formule à appliquer aux colonnes de la table"),
+ NOM_PARA = SIMP(statut='o',typ='TXM',
+ fr="Nom de la nouvelle colonne"),
+ ),
+ ),
+
+ SENSIBILITE = SIMP(statut='f',typ=(para_sensi,theta_geom),max=1,
+ fr="Paramètre de sensibilité",
+ ang="Sensitivity parameter"),
+ TITRE = SIMP(statut='f',typ='TXM',max='**',
+ fr="Titre de la table produite"),
+ INFO = SIMP(statut='f',typ='I',defaut=1,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
# 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
-COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
- reentrant='n',fr="Recombiner les modes de Fourier d'une SD Résultat dans des directions particulières",
+CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,reentrant='n',
UIinfo={"groupes":("Post traitements",)},
- RESULTAT =SIMP(statut='o',typ=fourier_elas ),
- ANGL =SIMP(statut='o',typ='R',max='**'),
- NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=5,
- into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
+ fr="Définir un champ theta pour le calcul du taux de restitution d'énergie"
+ +" ou des facteurs d'intensité de contraintes",
+ regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
+ PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
+ EXCLUS('DIRECTION','DIRE_THETA'),),
+ OPTION =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
+ MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
+ THETA_3D =FACT(statut='f',max='**',
+ regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
+ UN_PARMI('MODULE','MODULE_FO'),
+ ENSEMBLE('MODULE','R_INF','R_SUP'),
+ ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ MODULE =SIMP(statut='f',typ='R'),
+ R_INF =SIMP(statut='f',typ='R'),
+ R_SUP =SIMP(statut='f',typ='R'),
+ MODULE_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ R_INF_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ R_SUP_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ ),
+ b_theta_3d =BLOC(condition="THETA_3D != None",
+ FOND_FISS =SIMP(statut='f',typ=fond_fiss),),
+ DIRE_THETA =SIMP(statut='f',typ=cham_no_sdaster ),
+ DIRECTION =SIMP(statut='f',typ='R',max='**'),
+ THETA_2D =FACT(statut='f',max='**',
+ regles=(UN_PARMI('GROUP_NO','NOEUD'),),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ MODULE =SIMP(statut='o',typ='R'),
+ R_INF =SIMP(statut='o',typ='R'),
+ R_SUP =SIMP(statut='o',typ='R'),
+ ),
+ THETA_BANDE =FACT(statut='f',max='**',
+ MODULE =SIMP(statut='o',typ='R'),
+ R_INF =SIMP(statut='o',typ='R'),
+ R_SUP =SIMP(statut='o',typ='R'),
+ ),
+ GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ IMPRESSION =FACT(statut='f',
+ UNITE =SIMP(statut='f',typ='I',defaut=8),
+ FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
+ ),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 16/05/2006 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 VABHHTS J.PELLET
-def comb_matr_asse_prod(COMB_R,COMB_C,CALC_AMOR_GENE,**args):
- if COMB_C != None:
- type_mat = AsType(COMB_C[0]['MATR_ASSE'])
- if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
- if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
- if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
- if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
- elif COMB_R != None:
- type_mat = AsType(COMB_R[0]['MATR_ASSE'])
- if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
- if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
- if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
- if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
- elif CALC_AMOR_GENE != None: return matr_asse_gene_r
+def calc_vect_elem_prod(OPTION,**args):
+ if OPTION == "CHAR_MECA" : return vect_elem_depl_r
+ if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
+ if OPTION == "CHAR_THER" : return vect_elem_temp_r
+ if OPTION == "CHAR_ACOU" : return vect_elem_pres_c
+ if OPTION == "FORC_NODA" : return vect_elem_depl_r
raise AsException("type de concept resultat non prevu")
-COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op= 31,sd_prod=comb_matr_asse_prod,
- fr="Effectuer la combinaison linéaire de matrices assemblées",
- reentrant='f',
- UIinfo={"groupes":("Résultats et champs",)},
- regles=(UN_PARMI('COMB_R','COMB_C','CALC_AMOR_GENE' ),),
- COMB_R =FACT(statut='f',max='**',
- PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
- 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,matr_asse_gene_r,matr_asse_gene_c ) ),
- COEF_R =SIMP(statut='o',typ='R' ),
+CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,reentrant='n',
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ fr="Calcul des seconds membres élémentaires",
+ OPTION =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
+ "FORC_NODA","CHAR_MECA_LAGR") ),
+ b_char_meca =BLOC(condition = "OPTION=='CHAR_MECA'",
+ regles=(AU_MOINS_UN('CHARGE','MODELE'),),
+ CHARGE =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
+ MODELE =SIMP(statut='f',typ=modele_sdaster),
+ b_charge =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
+ CHAM_MATER =SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ b_modele =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
+ SOUS_STRUC =FACT(statut='o',min=01,
+ regles=(UN_PARMI('TOUT','MAILLE'),),
+ CAS_CHARGE =SIMP(statut='o',typ='TXM' ),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**',),
+ ),
+ ),
),
- COMB_C =FACT(statut='f',max='**',
- regles=(UN_PARMI('COEF_R','COEF_C' ),),
- 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,matr_asse_gene_r,matr_asse_gene_c ) ),
- COEF_R =SIMP(statut='f',typ='R' ),
- COEF_C =SIMP(statut='f',typ='C' ),
+ b_char_ther =BLOC(condition = "OPTION=='CHAR_THER'",
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ CHARGE =SIMP(statut='o',typ=char_ther,validators=NoRepeat(),max='**'),
+ INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
),
- CALC_AMOR_GENE =FACT(statut='f',
- regles=(UN_PARMI('AMOR_REDUIT','LIST_AMOR' ),),
- MASS_GENE = SIMP(statut='f', typ=matr_asse_gene_r),
- RIGI_GENE = SIMP(statut='f', typ=matr_asse_gene_r),
- AMOR_REDUIT = SIMP(statut='f',typ='R',max='**'),
- LIST_AMOR = SIMP(statut='f',typ=listr8_sdaster ),
- ),
- SANS_CMP =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
-) ;
-#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
+
+ b_char_acou =BLOC(condition = "OPTION=='CHAR_ACOU'",
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater),
+ CHARGE =SIMP(statut='o',typ=char_acou,validators=NoRepeat(),max='**'),
+ ),
+
+ b_forc_noda =BLOC(condition = "OPTION=='FORC_NODA'",
+ SIEF_ELGA =SIMP(statut='o',typ=cham_elem),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ MODELE =SIMP(statut='f',typ=modele_sdaster),
+ ),
+
+ b_meca_lagr =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater),
+ THETA =SIMP(statut='o',typ=theta_geom),
+ PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ CHARGE =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
+ INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ ),
+) ;
+#& MODIF COMMANDE DATE 16/05/2006 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.
# ======================================================================
-COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
- fr="Réponse sismique par recombinaison modale par une méthode spectrale",
- reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
- UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
- MODE_MECA =SIMP(statut='o',typ=mode_meca ),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster ),
- NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster ),
- b_freq =BLOC(condition = "FREQ != None or LIST_FREQ != None",
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- ),
- MODE_CORR =SIMP(statut='f',typ=mode_stat_acce ),
+# RESPONSABLE G8BHHXD X.DESROCHES
+
+COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=cham_elem,reentrant='f',
+ fr="Effectuer la combinaison linéaire de champs par éléments",
+ UIinfo={"groupes":("Résultats et champs",)},
+ regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
+ PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
+ COMB_R =FACT(statut='f',max='**',
+ PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
+ COEF_R =SIMP(statut='o',typ='R'),
+ CHAM_ELEM =SIMP(statut='o',typ=cham_elem),
+ ),
+ COMB_C =FACT(statut='f',max='**',
+ regles=(UN_PARMI('COEF_R','COEF_C', ),),
+ COEF_R =SIMP(statut='f',typ='R'),
+ COEF_C =SIMP(statut='f',typ='C'),
+ CHAM_ELEM =SIMP(statut='o',typ=cham_elem),
+ ),
+ COMB_FOURIER =FACT(statut='f',max='**',
+ COEF_R =SIMP(statut='f',typ='R',defaut= 1.),
+ NUME_MODE =SIMP(statut='o',typ='I'),
+ TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
+ CHAM_ELEM =SIMP(statut='o',typ=cham_elem),
+ ),
+ ANGL =SIMP(statut='f',typ='R' ),
+) ;
+
+#& 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 G8BHHXD X.DESROCHES
+def comb_cham_no_prod(COMB_R,**args):
+ typ=cham_no_sdaster
+ if COMB_R != None:
+ type_mat = AsType(COMB_R[0]['CHAM_NO'])
+ if type_mat == matr_asse_gene_r : typ= matr_asse_gene_r
+ return typ
+
+COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op= 30,sd_prod=comb_cham_no_prod
+ ,fr="Effectuer la combinaison linéaire de champs aux noeuds",
+ reentrant='f',
+ UIinfo={"groupes":("Résultats et champs",)},
+ regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
+ COMB_R =FACT(statut='f',max='**',
+ PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
+ CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
+ COEF_R =SIMP(statut='o',typ='R' ),
+ ),
+ COMB_C =FACT(statut='f',max='**',
+ regles=(UN_PARMI('COEF_R','COEF_C' ),),
+ CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
+ COEF_R =SIMP(statut='f',typ='R' ),
+ COEF_C =SIMP(statut='f',typ='C' ),
+ ),
+ COMB_FOURIER =FACT(statut='f',max='**',
+ CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
+ COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
+ NUME_MODE =SIMP(statut='o',typ='I' ),
+ TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
+ ),
+ b_angl = BLOC ( condition = "COMB_FOURIER != None",
+ ANGL =SIMP(statut='o',typ='R' ),
+ ),
+) ;
+#& 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 G8BHHXD X.DESROCHES
+COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
+ reentrant='n',fr="Recombiner les modes de Fourier d'une SD Résultat dans des directions particulières",
+ UIinfo={"groupes":("Post traitements",)},
+ RESULTAT =SIMP(statut='o',typ=fourier_elas ),
+ ANGL =SIMP(statut='o',typ='R',max='**'),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=5,
+ into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
+) ;
+#& 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 comb_matr_asse_prod(COMB_R,COMB_C,CALC_AMOR_GENE,**args):
+ if COMB_C != None:
+ type_mat = AsType(COMB_C[0]['MATR_ASSE'])
+ if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
+ if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
+ if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
+ if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
+ elif COMB_R != None:
+ type_mat = AsType(COMB_R[0]['MATR_ASSE'])
+ if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
+ if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
+ if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
+ if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
+ elif CALC_AMOR_GENE != None: return matr_asse_gene_r
+ raise AsException("type de concept resultat non prevu")
+
+COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op= 31,sd_prod=comb_matr_asse_prod,
+ fr="Effectuer la combinaison linéaire de matrices assemblées",
+ reentrant='f',
+ UIinfo={"groupes":("Résultats et champs",)},
+ regles=(UN_PARMI('COMB_R','COMB_C','CALC_AMOR_GENE' ),),
+ COMB_R =FACT(statut='f',max='**',
+ PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
+ 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,matr_asse_gene_r,matr_asse_gene_c ) ),
+ COEF_R =SIMP(statut='o',typ='R' ),
+ ),
+ COMB_C =FACT(statut='f',max='**',
+ regles=(UN_PARMI('COEF_R','COEF_C' ),),
+ 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,matr_asse_gene_r,matr_asse_gene_c ) ),
+ COEF_R =SIMP(statut='f',typ='R' ),
+ COEF_C =SIMP(statut='f',typ='C' ),
+ ),
+ CALC_AMOR_GENE =FACT(statut='f',
+ regles=(UN_PARMI('AMOR_REDUIT','LIST_AMOR' ),),
+ MASS_GENE = SIMP(statut='f', typ=matr_asse_gene_r),
+ RIGI_GENE = SIMP(statut='f', typ=matr_asse_gene_r),
+ AMOR_REDUIT = SIMP(statut='f',typ='R',max='**'),
+ LIST_AMOR = SIMP(statut='f',typ=listr8_sdaster ),
+ ),
+ SANS_CMP =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
+) ;
+#& MODIF COMMANDE DATE 03/01/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.
+# ======================================================================
+COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
+ fr="Réponse sismique par recombinaison modale par une méthode spectrale",
+ reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
+ UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
+ MODE_MECA =SIMP(statut='o',typ=mode_meca ),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster ),
+ NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster ),
+ b_freq =BLOC(condition = "FREQ != None or LIST_FREQ != None",
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ ),
+ MODE_CORR =SIMP(statut='f',typ=mode_stat_acce ),
AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
LIST_AMOR =SIMP(statut='f',typ=listr8_sdaster ),
),
) ;
-#& MODIF COMMANDE DATE 03/10/2005 AUTEUR NICOLAS O.NICOLAS
+#& 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
-# 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 - 2003 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.
# ======================================================================
-DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op= 99,sd_prod=base_modale,
- reentrant='f',
- fr="Définit la base d'une sous-structuration dynamique ou d'une recombinaison modale",
- UIinfo={"groupes":("Matrices/vecteurs",)},
- regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS','ORTHO_BASE'),),
- CLASSIQUE =FACT(statut='f',
- INTERF_DYNA =SIMP(statut='o',typ=interf_dyna_clas ),
- MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
- NMAX_MODE =SIMP(statut='f',typ='I',defaut= 10 ),
- ),
- RITZ =FACT(statut='f',max='**',
- regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
- MODE_MECA =SIMP(statut='f',typ=mode_meca,max='**' ),
- NMAX_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
- MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
- MULT_ELAS =SIMP(statut='f',typ=mult_elas ),
- BASE_MODALE =SIMP(statut='f',typ=base_modale ),
- ),
- b_ritz =BLOC(condition = "RITZ != None",
- INTERF_DYNA =SIMP(statut='f',typ=interf_dyna_clas ),
- NUME_REF =SIMP(statut='o',typ=nume_ddl_sdaster ),
- ORTHO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
+CREA_TABLE=OPER(nom="CREA_TABLE",op= 36,sd_prod=table_sdaster,
+ fr="Création d'une table à partir d'une fonction ou de deux listes",
+ reentrant='f',UIinfo={"groupes":("Table",)},
+
+ regles=(EXCLUS('FONCTION','LISTE'),),
+
+ LISTE=FACT(statut='f',max='**',
+ fr="Creation d'une table a partir de listes",
+ regles=(UN_PARMI('LISTE_I','LISTE_R','LISTE_K')),
+ PARA =SIMP(statut='o',typ='TXM'),
+ TYPE_K =SIMP(statut='f',typ='TXM',defaut='K8',
+ into=('K8','K16','K24')),
+ NUME_LIGN=SIMP(statut='f',typ='I',max='**'),
+ LISTE_I =SIMP(statut='f',typ='I',max='**'),
+ LISTE_R =SIMP(statut='f',typ='R',max='**'),
+ LISTE_K =SIMP(statut='f',typ='TXM', max='**'),
+ ),
+ FONCTION=FACT(statut='f',
+ fr="Creation d'une table a partir d'une fonction",
+ FONCTION=SIMP(statut='o',typ=(fonction_c,fonction_sdaster)),
+ PARA=SIMP(statut='f',typ='TXM',min=2,max=2),
+ ),
+ b_fonction = BLOC(condition='FONCTION != None',
+ regles=(CONCEPT_SENSIBLE('SEPARE'), REUSE_SENSIBLE(),
+ DERIVABLE('FONCTION'),),
+ SENSIBILITE = SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
+ fr="Liste des paramètres de sensibilité.",
+ ang="List of sensitivity parameters"),
+ ),
+ TITRE=SIMP(statut='f',typ='TXM',max='**'),
+) ;
+
+
+
+#& MODIF COMMANDE DATE 16/01/2006 AUTEUR D6BHHJP J.P.LEFEBVRE
+# 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.
+# ======================================================================
+DEBUT=MACRO(nom="DEBUT",op=ops.build_debut ,repetable='n',
+ UIinfo={"groupes":("Gestion du travail",)},
+ fr="Ouverture d'une étude. Allocation des ressources mémoire et disque et fichiers",
+ sd_prod=ops.DEBUT,
+
+ PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
+ into=("OUI","NON"),defaut="OUI"),
+ IMPR_MACRO =SIMP(fr="affichage des sous-commandes produites par les macros dans le fichier mess",
+ statut='f',typ='TXM',into=("OUI","NON"),defaut="NON"),
+# FORMAT_HDF =SIMP(fr="sauvegarde de la base GLOBALE au format HDF",statut='f',
+# typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ BASE =FACT(fr="définition des paramètres associés aux bases JEVEUX",
+ statut='f',min=1,max=2,
+ FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM',
+ into=('GLOBALE','VOLATILE'),),
+ TITRE =SIMP(statut='f',typ='TXM'),
+ CAS =SIMP(statut='f',typ='TXM'),
+ NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
+ LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
+ LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
+ ),
+ IMPRESSION =FACT(statut='f',min=1,max=3,
+ FICHIER =SIMP(statut='o',typ='TXM'),
+ UNITE =SIMP(statut='o',typ='I'),
+ ),
+ CATALOGUE =FACT(statut='f',min=1,max=10,
+ FICHIER =SIMP(statut='o',typ='TXM'),
+ TITRE =SIMP(statut='f',typ='TXM'),
+ UNITE =SIMP(statut='f',typ='I'),
+ ),
+ CODE =FACT(fr="définition d un nom pour l'ensemble d'une étude",
+ statut='f',min=1,max=1,
+ NOM =SIMP(statut='o',typ='TXM'),
+ NIV_PUB_WEB =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
+ VISU_EFICAS =SIMP(statut='f',typ='TXM',into=('OUI','NON'),defaut='OUI'),
+ UNITE =SIMP(statut='f',typ='I',defaut=15),
+ ),
+ ERREUR =FACT(fr="comportement en cas d'erreur",statut='f',min=1,max=1,
+ ERREUR_F =SIMP(statut='f',typ='TXM',into=('ABORT','EXCEPTION'),defaut='ABORT'),
+ ),
+ DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
+ statut='f',min=1,max=1,
+ JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
+ statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
+ JEVEUX =SIMP(fr="force les déchargement sur disque",
+ statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
+ ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
+ statut='f',typ='TXM',into=('TEST',)),
+ ),
+ MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
+ GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
+ TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
+ TAILLE =SIMP(statut='f',typ='I'),
+ TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
+ PARTITION =SIMP(statut='f',typ='R'),
+ ),
+ RESERVE_CPU =FACT(fr="reserve de temps pour terminer une execution",statut='f',max=1,
+ regles=(EXCLUS('VALE','POURCENTAGE'),),
+ VALE =SIMP(statut='f',typ='I',val_min=0),
+ POURCENTAGE =SIMP(statut='f',typ='R',val_min=0.,val_max=1.0),
+# valeur en pourcentage du temps maximum bornée à 180 secondes
+ BORNE =SIMP(statut='f',typ='I',val_min=0,defaut=180)
+ ),
+ );
+#& MODIF COMMANDE DATE 03/10/2005 AUTEUR NICOLAS O.NICOLAS
+# 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.
+# ======================================================================
+DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op= 99,sd_prod=base_modale,
+ reentrant='f',
+ fr="Définit la base d'une sous-structuration dynamique ou d'une recombinaison modale",
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS','ORTHO_BASE'),),
+ CLASSIQUE =FACT(statut='f',
+ INTERF_DYNA =SIMP(statut='o',typ=interf_dyna_clas ),
+ MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
+ NMAX_MODE =SIMP(statut='f',typ='I',defaut= 10 ),
+ ),
+ RITZ =FACT(statut='f',max='**',
+ regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
+ MODE_MECA =SIMP(statut='f',typ=mode_meca,max='**' ),
+ NMAX_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
+ MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
+ MULT_ELAS =SIMP(statut='f',typ=mult_elas ),
+ BASE_MODALE =SIMP(statut='f',typ=base_modale ),
+ ),
+ b_ritz =BLOC(condition = "RITZ != None",
+ INTERF_DYNA =SIMP(statut='f',typ=interf_dyna_clas ),
+ NUME_REF =SIMP(statut='o',typ=nume_ddl_sdaster ),
+ ORTHO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
fr="Reorthonormalisation de la base de Ritz" ),
b_ortho =BLOC(condition = "ORTHO == 'OUI' ",
MATRICE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_gene_r,matr_asse_pres_r ) ),
#& 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.
-# ======================================================================
-DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op= 2,sd_prod=fonction_sdaster,
- fr="Définir la valeur d'une grandeur invariante",
- reentrant='n',
- UIinfo={"groupes":("Fonction",)},
- NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
- VALE =SIMP(statut='o',typ='R',),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
-) ;
-#& 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.
+# COPYRIGHT (C) 1991 - 2003 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.
# ======================================================================
-DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater_sdaster,reentrant='n',
+
+DEFI_CABLE_OP=OPER(nom="DEFI_CABLE_OP",op= 180,sd_prod=cabl_precont,reentrant='n',
+ fr="Définit les profils initiaux de tension d'une structure en béton le long des cables de précontrainte"
+ +" (utilisée par la macro DEFI_CABLE_BP)",
UIinfo={"groupes":("Modélisation",)},
- fr="Déterminer les caractéristiques matériaux homogénéisées d'une coque multicouche à partir"
- +" des caractéristiques de chaque couche",
- COUCHE =FACT(statut='o',max='**',
- EPAIS =SIMP(statut='o',typ='R',val_min=0.E+0 ),
- MATER =SIMP(statut='o',typ=(mater_sdaster) ),
- ORIENTATION =SIMP(statut='f',typ='R',defaut= 0.E+0,
- val_min=-90.E+0,val_max=90.E+0 ),
+ MODELE =SIMP(statut='o',typ=modele_sdaster ),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
+ CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
+ GROUP_MA_BETON =SIMP(statut='o',typ=grma,max='**'),
+ DEFI_CABLE =FACT(statut='o',max='**',
+ regles=(UN_PARMI('MAILLE','GROUP_MA'),
+ UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
+ MAILLE =SIMP(statut='f',typ=ma,min=2,validators=NoRepeat(),max='**'),
+ GROUP_MA =SIMP(statut='f',typ=grma),
+ NOEUD_ANCRAGE =SIMP(statut='f',typ=no ,validators=NoRepeat(),max=2),
+ GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,validators=NoRepeat(),max=2),
+ GROUP_NO_FUT =SIMP(statut='f',typ=grno,validators=NoRepeat(),max=2),
),
- IMPRESSION =FACT(statut='f',
- UNITE =SIMP(statut='f',typ='I',defaut=8),
+ TYPE_ANCRAGE =SIMP(statut='o',typ='TXM',min=2,max=2,into=("ACTIF","PASSIF") ),
+ TENSION_INIT =SIMP(statut='o',typ='R',val_min=0.E+0 ),
+ RECUL_ANCRAGE =SIMP(statut='o',typ='R',val_min=0.E+0 ),
+ RELAXATION =FACT(statut='f',min=0,
+ R_J =SIMP(statut='o',typ='R',val_min=0.E+0 ),
+ ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
+ CONE =FACT(statut='f',min=0,
+ RAYON =SIMP(statut='o',typ='R',val_min=0.E+0 ),
+ LONGUEUR =SIMP(statut='o',typ='R',val_min=0.E+0, defaut=0.E+0 ),
+ PRESENT =SIMP(statut='o',typ='TXM',min=2,max=2,into=("OUI","NON") ),
),
) ;
#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+# RESPONSABLE JMBHH01 J.M.PROIX
# 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
+# 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.
+# ======================================================================
+DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
+ fr="Définir le comportement d'un monocristal ou d'un polycristal",
+ reentrant='n',
+ UIinfo={"groupes":("Modélisation",)},
+ regles=(EXCLUS('MONOCRISTAL','POLYCRISTAL'),),
+
+ MONOCRISTAL =FACT(statut='f', max='**',
+ MATER =SIMP(statut='o', typ=mater_sdaster, max=1),
+ ECOULEMENT =SIMP(statut='o', typ='TXM', max=1,
+ fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écoulement viscoplastique"),
+ ECRO_ISOT =SIMP(statut='o', typ='TXM', max=1,
+ fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écrouissage isotrope"),
+ ECRO_CINE =SIMP(statut='o', typ='TXM', max=1,
+ 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,
+ into=('BASAL', 'PRISMATIQUE', 'OCTAEDRIQUE', 'PYRAMIDAL1',
+ 'PYRAMIDAL2', 'CUBIQUE1', 'CUBIQUE2', 'MACLAGE', 'JOINT_GRAIN', 'RL', 'UNIAXIAL'),),
+ ),
+
+
+ POLYCRISTAL =FACT(statut='f', max='**',
+ MONOCRISTAL =SIMP(statut='o', typ=compor_sdaster, max=1),
+ FRAC_VOL =SIMP(statut='o', typ='R', max=1,fr="fraction volumique de la phase correspondant au monocristal"),
+ ANGL_REP =SIMP(statut='o',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),
+ ),
+ ),
+
+ );
+
+#& 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.
+# ======================================================================
+DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op= 2,sd_prod=fonction_sdaster,
+ fr="Définir la valeur d'une grandeur invariante",
+ reentrant='n',
+ UIinfo={"groupes":("Fonction",)},
+ NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
+ VALE =SIMP(statut='o',typ='R',),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+) ;
+#& 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.
+# ======================================================================
+DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater_sdaster,reentrant='n',
+ UIinfo={"groupes":("Modélisation",)},
+ fr="Déterminer les caractéristiques matériaux homogénéisées d'une coque multicouche à partir"
+ +" des caractéristiques de chaque couche",
+ COUCHE =FACT(statut='o',max='**',
+ EPAIS =SIMP(statut='o',typ='R',val_min=0.E+0 ),
+ MATER =SIMP(statut='o',typ=(mater_sdaster) ),
+ ORIENTATION =SIMP(statut='f',typ='R',defaut= 0.E+0,
+ val_min=-90.E+0,val_max=90.E+0 ),
+ ),
+ IMPRESSION =FACT(statut='f',
+ UNITE =SIMP(statut='f',typ='I',defaut=8),
+ ),
+) ;
+#& 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
+# 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 D6BHHJP J.P.LEFEBVRE
+def DEFIC_prod(self,ACTION,UNITE,**args):
+ if ACTION == "ASSOCIER" or ACTION == "RESERVER":
+ if UNITE != None :
+ return
+ else :
+ return entier
+ elif ACTION == "LIBERER" :
+ return
+ else :
+ raise AsException("ACTION non prevue : %s" % ACTION)
+
+DEFI_FICHIER=MACRO(nom="DEFI_FICHIER",op=ops.build_DEFI_FICHIER,sd_prod=DEFIC_prod,reentrant='n',
+ UIinfo={"groupes":("Gestion du travail",)},
+ fr="Ouvre ou ferme un fichier associé à un numéro d'unité logique",
+
+ ACTION =SIMP(statut='f',typ='TXM',into=("ASSOCIER","LIBERER","RESERVER"),defaut="ASSOCIER"),
+
+ b_associer =BLOC(condition = "ACTION == 'ASSOCIER'",
+ fr="Paramètres pour l'ouverture du fichier",
+ regles=(AU_MOINS_UN('FICHIER','UNITE'),),
+ UNITE =SIMP(statut='f',typ='I' ,val_min=1),
+ FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,255)),
+ TYPE =SIMP(statut='f',typ='TXM',into=("ASCII","BINARY","LIBRE"),defaut="ASCII"),
+
+ b_type_ascii =BLOC(condition = "TYPE == 'ASCII'",fr="Paramètres pour le type ASCII",
+ ACCES =SIMP(statut='f',typ='TXM',into=("NEW","APPEND","OLD"),defaut="NEW"),
+ ),
+ b_type_autre =BLOC(condition = "TYPE != 'ASCII'",fr="Paramètres pour les types BINARY et LIBRE",
+ ACCES =SIMP(statut='f',typ='TXM',into=("NEW","OLD"),defaut="NEW"),
+ ),
+ ),
+
+ b_reserver =BLOC(condition = "ACTION == 'RESERVER'",
+ fr="Paramètres pour la réservation de l'unité du fichier",
+ regles=(AU_MOINS_UN('FICHIER','UNITE'),),
+ UNITE =SIMP(statut='f',typ='I' ,val_min=1),
+ FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,255)),
+ TYPE =SIMP(statut='f',typ='TXM',into=("ASCII",),defaut="ASCII"),
+ ACCES =SIMP(statut='f',typ='TXM',into=("APPEND",),defaut="APPEND"),
+ ),
+
+ b_liberer =BLOC(condition = "ACTION == 'LIBERER'",
+ fr="Paramètres pour la fermeture du fichier",
+ regles=(UN_PARMI('FICHIER','UNITE'),),
+ UNITE =SIMP(statut='f',typ='I' ,val_min=1),
+ FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,255)),
+ ),
+
+ INFO =SIMP(statut='f',typ='I',into=(1,2) ),
+ )
+#& MODIF COMMANDE DATE 25/04/2006 AUTEUR CIBHHPD L.SALMONA
+# 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.
+# ======================================================================
+
+DEFI_FISS_XFEM=OPER(nom="DEFI_FISS_XFEM",op= 41,sd_prod=fiss_xfem,reentrant='n',
+ UIinfo={"groupes":("Modélisation",)},
+ fr="Définition des caratéristiques d'une fissure avec X-FEM",
+
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ DEFI_FISS =FACT(statut='o',max=01,
+ regles =(UN_PARMI('GROUP_MA_FISS','FONC_LT'),
+ ENSEMBLE('FONC_LT','FONC_LN'),
+ ENSEMBLE('GROUP_MA_FISS','GROUP_MA_FOND')),
+ FONC_LT =SIMP(statut='f',typ=(fonction_sdaster,formule) ),
+ FONC_LN =SIMP(statut='f',typ=(fonction_sdaster,formule) ),
+ GROUP_MA_FISS =SIMP(statut='f',typ=grma,max=01),
+ GROUP_MA_FOND =SIMP(statut='f',typ=grma),
+ ),
+ GROUP_MA_ENRI =SIMP(statut='o',typ=grma,max=01),
+ RAYON_ENRI =SIMP(statut='f',typ='R',defaut=0.E+0),
+ ORIE_FOND =FACT(statut='f',max=01,
+ PFON_INI =SIMP(statut='o',typ='R',max=03),
+ VECT_ORIE =SIMP(statut='o',typ='R',max=03),
+ PT_ORIGIN =SIMP(statut='o',typ='R',max=03),
+ ),
+ CONTACT =FACT(statut='f',max=01,
+ NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",) ),
+ FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
+ 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),
+ MODL_AXIS =SIMP(statut='f',typ='TXM',into=("NON",)),
+ ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
+ 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),
+ b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramères du frottement de Coulomb",
+ COULOMB =SIMP(statut='o',typ='R',),
+ 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),),
+ ),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,3,) ),
+) ;
+#& 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.
GROUP_NO_FIN =SIMP(statut='f',typ=grno),
),
) ;
-#& MODIF COMMANDE DATE 09/05/2006 AUTEUR JMBHH01 J.M.PROIX
+#& MODIF COMMANDE DATE 29/05/2006 AUTEUR MJBHHPE J.L.FLEJOU
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
),
IRRAD3M=FACT(statut='f',
R02 =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- EPSILON_U=SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ EPSI_U =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
RM =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- AI0 =SIMP(statut='o',typ='R',val_min=0.),
- ETAI_S =SIMP(statut='o',typ='R',val_min=0.),
- R =SIMP(statut='o',typ='R',val_min=0.),
- ALPHA =SIMP(statut='o',typ='R',val_min=0.),
- PHI0 =SIMP(statut='o',typ='R',val_min=0.),
- KAPPA =SIMP(statut='f',typ='R',val_min=0.,defaut=0.8),
+ AI0 =SIMP(statut='o',typ='R',val_min=0.0),
+ ZETA =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ ETAI_S =SIMP(statut='o',typ='R',val_min=0.0),
+ R =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ ALPHA =SIMP(statut='o',typ='R',val_min=0.0),
+ 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),
VERI_P =SIMP(statut='c',typ='TXM',max='**',defaut=("TEMP","IRRA") ),
),
ZIRC_EPRI =FACT(statut='f',
ang="Value of the parameter"),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 30/08/2005 AUTEUR ASSIRE A.ASSIRE
# 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
+# 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.
+# ======================================================================
+# RESPONSABLE ASSIRE A.ASSIRE
+
+from Macro.defi_part_feti_ops import defi_part_feti_ops
+
+DEFI_PART_FETI=MACRO(nom="DEFI_PART_FETI",op=defi_part_feti_ops,sd_prod=sd_feti_sdaster,
+ reentrant='n',UIinfo={"groupe":("Maillage",)},
+ fr="Creation partitionnement en sous-domaines pour FETI",
+ regles=(UN_PARMI('MAILLAGE','MODELE'),),
+ MAILLAGE =SIMP(statut='f',typ=maillage_sdaster),
+ MODELE =SIMP(statut='f',typ=modele_sdaster),
+ NB_PART =SIMP(statut='o',typ='I',val_min=2),
+ EXCIT =FACT(statut='f',max='**',
+ CHARGE =SIMP(statut='f',typ=(char_meca,char_cine_meca)),),
+
+ # Methode de partitionnement
+ METHODE =SIMP(statut='f',typ='TXM',into=("PMETIS","SCOTCH","KMETIS",), defaut="SCOTCH" ),
+
+ LOGICIEL =SIMP(statut='f',typ='TXM'),
+
+ # Corrige les problemes possibles de non-connexite des sous-domaines
+ CORRECTION_CONNEX =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON')),
+
+ # Permet de grouper des mailles dans un meme sous-doamine
+ GROUPAGE =FACT(statut='f',max='**',
+ GROUP_MA =SIMP(statut='o',typ=grma,),
+ ),
+ # Permet d'appliquer des poids sur certaines mailles
+ POIDS_MAILLES =FACT(statut='f',max='**',
+ GROUP_MA =SIMP(statut='o',typ=grma,),
+ POIDS =SIMP(statut='f',typ='I',val_min=2),
+ ),
+ # Prefixe pour le nom des group_ma definissant les sous-domaines
+ NOM_GROUP_MA =SIMP(statut='f',typ='TXM',defaut='SD' ),
+
+ # Traiter les mailles de bords (elles sont enlevees du graphe puis reinjectees)
+ TRAITER_BORDS =SIMP(statut='f',typ='TXM',defaut='OUI',into=('OUI','NON') ),
+
+ # Si le mot-clé suivant est renseigné, crée de nouveau group_ma a partir des bords
+ # Note : le calcul FETI sera impossible
+ b_traiter_bords =BLOC(condition="TRAITER_BORDS == 'OUI'", fr="Crée t on des nouveaux group_ma",
+ NOM_GROUP_MA_BORD =SIMP(statut='f',typ='TXM'),
+ ),
+
+ INFO =SIMP(statut='f',typ='I',into=(1, 2), defaut=1),
+);
+#& MODIF COMMANDE DATE 22/02/2005 AUTEUR DURAND C.DURAND
+# 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.
+# ======================================================================
+# RESPONSABLE ASSIRE A.ASSIRE
+
+DEFI_PART_OPS=OPER(nom="DEFI_PART_OPS",op=21,sd_prod=sd_feti_sdaster,
+ fr="Creation partitionnement en sous-domaines pour FETI",
+ docu="U4.23.05",reentrant='n',
+ UIinfo={"groupes":("Résolution",)},
+ MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
+ MAILLAGE =SIMP(statut='f',typ=(maillage_sdaster) ),
+ NOM =SIMP(statut='f',typ='TXM',defaut='SD'),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2,3,4) ),
+ DEFI =FACT(statut='f',max='**',
+ GROUP_MA =SIMP(statut='o',typ=grma),
+ GROUP_MA_BORD =SIMP(statut='f',typ=grma),
+ ),
+ EXCIT =FACT(statut='f',max='**',
+ CHARGE =SIMP(statut='f',typ=(char_meca,char_cine_meca)),
+ ),
+);
+#& MODIF COMMANDE DATE 30/08/2005 AUTEUR ASSIRE A.ASSIRE
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2005 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 ASSIRE A.ASSIRE
+
+DEFI_PART_PA_OPS=OPER(nom="DEFI_PART_PA_OPS",op=29,sd_prod=sd_feti_sdaster,
+ fr="Creation partitionnement en sous-domaines pour FETI",
+ docu="U4.00.00",reentrant='n',
+ UIinfo={"groupes":("Résolution",)},
+ MAILLAGE =SIMP(statut='o',typ=(maillage_sdaster,squelette) ),
+ MODELE =SIMP(statut='f',typ=(modele_sdaster)),
+ NB_PART =SIMP(statut='o',typ='I',),
+
+ # Methode de partitionnement
+ METHODE =SIMP(statut='f',typ='TXM',into=("PMETIS","SCOTCH","KMETIS",), defaut="SCOTCH" ),
+
+ LOGICIEL =SIMP(statut='f',typ='TXM'),
+
+ # Corrige les problemes possibles de non-connexite des sous-domaines
+ CORRECTION_CONNEX =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON')),
+
+ # Permet de grouper des mailles dans un meme sous-doamine
+ GROUPAGE =FACT(statut='f',max='**',
+ GROUP_MA =SIMP(statut='o',typ=grma,),
+ ),
+ # Permet d'appliquer des poids sur certaines mailles
+ POIDS_MAILLES =FACT(statut='f',max='**',
+ GROUP_MA =SIMP(statut='o',typ=grma,),
+ POIDS =SIMP(statut='f',typ='I'),
+ ),
+ # Prefixe pour le nom des group_ma definissant les sous-domaines
+ NOM_GROUP_MA =SIMP(statut='f',typ='TXM',defaut='SD' ),
+
+ # Traiter les mailles de bords (elles sont enlevees du graphe puis reinjectees)
+ TRAITER_BORDS =SIMP(statut='f',typ='TXM',defaut='OUI',into=('OUI','NON') ),
+
+ # Si le mot-clé suivant est renseigné, crée de nouveau group_ma a partir des bords
+ # Note : le calcul FETI sera impossible
+ b_traiter_bords =BLOC(condition="TRAITER_BORDS == 'OUI'", fr="Crée t on des nouveaux group_ma",
+ NOM_GROUP_MA_BORD =SIMP(statut='f',typ='TXM'),
+ ),
+
+ INFO =SIMP(statut='f',typ='I',into=(1, 2), defaut=1),
+
+);
+#& MODIF COMMANDE DATE 03/01/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.
A =SIMP(statut='f',typ='R'),
),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
-# 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.
-# ======================================================================
-
-
-from Macro.macr_ecla_pg_ops import macr_ecla_pg_ops
-
-def macr_ecla_pg_prod(self,RESULTAT,MAILLAGE,RESU_INIT,**args):
- self.type_sdprod(RESULTAT,AsType(RESU_INIT))
- self.type_sdprod(MAILLAGE,maillage_sdaster)
- return None
-
-
-MACR_ECLA_PG=MACRO(nom="MACR_ECLA_PG",op=macr_ecla_pg_ops,sd_prod=macr_ecla_pg_prod, reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- fr="Permettre la visualisation des champs aux points de Gauss d'une SD_RESULTAT sans lissage ni interpolation",
-
-
- # SD résultat ,modèle et champs à "éclater" :
- RESU_INIT =SIMP(statut='o',typ=resultat_sdaster,fr="RESULTAT à éclater",),
- MODELE_INIT =SIMP(statut='o',typ=modele_sdaster,fr="MODELE à éclater"),
- NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
- into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
-
- # paramètres numériques de la commande :
- SHRINK =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
- TAILLE_MIN =SIMP(statut='f',typ='R',defaut= 0.0, fr="Taille minimale d'un coté" ),
-
- # concepts produits par la commande :
- RESULTAT =SIMP(statut='o',typ=CO,fr="SD_RESULTAT résultat de la commande"),
- MAILLAGE =SIMP(statut='o',typ=CO,fr="MAILLAGE associé aux cham_no de la SD_RESULTAT"),
-
- # Sélection éventuelle d'un sous-ensemble des éléments à visualiser :
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-
- # Sélection des numéros d'ordre :
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
- )
#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 16/05/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.
+# COPYRIGHT (C) 1991 - 2003 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.
# ======================================================================
-DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op= 74,sd_prod=tran_gene,
- fr="Calcul de la réponse dynamique transitoire d'un système amorti ou non en coordonées généralisées"
- +" par superposition modale ou par sous structuration",
- reentrant='f',
- UIinfo={"groupes":("Résolution",)},
- regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
- PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
- METHODE =SIMP(statut='f',typ='TXM',defaut="EULER",
- into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
- MASS_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
- RIGI_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
- AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
- AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
- LIST_AMOR =SIMP(statut='f',typ=listr8_sdaster ),
- MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
- MODE_CORR =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
-
- ETAT_INIT =FACT(statut='f',
- regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
- EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
- RESU_GENE =SIMP(statut='f',typ=tran_gene ),
- b_resu_gene =BLOC(condition = "RESU_GENE != None",
- INST_INIT =SIMP(statut='f',typ='R' ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- ),
- DEPL_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
- VITE_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
+#& RESPONSABLE
+DYNA_TRAN_EXPLI=OPER(nom="DYNA_TRAN_EXPLI",op= 70,sd_prod=evol_noli,reentrant='f',UIinfo={"groupe":("Résolution",)},
+ fr="Calcul de l'évolution dynamique d'une structure dont la géométrie ou le matériau ont un comportement"
+ +" non linéaire, par une méthode explicite sur les accélérations ",
+ regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),UN_PARMI('DIFF_CENT','TCHAMWA'),),
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater),
+ MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ MASS_DIAG =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ EXCIT =FACT(statut='o',max='**',
+ regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
+ PRESENT_PRESENT('ACCE','VITE','DEPL'),
+ # PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),
+ ),
+ TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
+ into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
+ CHARGE =SIMP(statut='o',typ=char_meca),
+ FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ DEPL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ ACCE =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ VITE =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ DIRECTION =SIMP(statut='f',typ='R',max=3),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
),
- INCREMENT =FACT(statut='o',max='**',
- INST_INIT =SIMP(statut='f',typ='R' ),
- INST_FIN =SIMP(statut='o',typ='R' ),
- PAS =SIMP(statut='f',typ='R' ),
- VERI_PAS =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
- COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
- COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
- PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
- NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
- NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
+ AMOR_MODAL =FACT(statut='f',
+ MODE_MECA =SIMP(statut='o',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="OUI",into=("OUI","NON") ),
),
- ARCHIVAGE =FACT(statut='f',
- regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
- LIST_ARCH =SIMP(statut='f',typ=listis_sdaster ),
- PAS_ARCH =SIMP(statut='f',typ='I' ),
+ PROJ_MODAL =FACT(statut='f',max='**',
+ MODE_MECA =SIMP(statut='o',typ=mode_meca),
+ NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
+ regles=(PRESENT_PRESENT('MASS_GENE','RIGI_GENE'),),
+ MASS_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
+ RIGI_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
+ AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
),
-
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 20 ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- LAMBDA =SIMP(statut='f',typ='R',defaut= 10. ),
-
- EXCIT =FACT(statut='f',max='**',
- regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
- PRESENT_PRESENT('ACCE','VITE','DEPL'),
- PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
- PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
- EXCLUS('MULT_APPUI','CORR_STAT'),
- PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
- PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
- VECT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
- NUME_MODE =SIMP(statut='f',typ='I' ),
- FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- COEF_MULT =SIMP(statut='f',typ='R' ),
- ACCE =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- VITE =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- DEPL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- DIRECTION =SIMP(statut='f',typ='R',max='**'),
- b_loca =BLOC(condition= "DIRECTION != None",
- regles=(EXCLUS('NOEUD','GROUP_NO'),),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- ),
- CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- D_FONC_DT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- D_FONC_DT2 =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ EXCIT_GENE =FACT(statut='f',
+ FONC_MULT =SIMP(statut='f',typ=fonction_sdaster,max='**' ),
+ VECT_GENE =SIMP(statut='f',typ=vect_asse_gene,max='**' ),
),
- CHOC =FACT(statut='f',max='**',
- regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD_1','GROUP_NO_1' ),
- EXCLUS('NOEUD_2','GROUP_NO_2'),
- PRESENT_ABSENT('GROUP_MA','NOEUD_2','GROUP_NO_2'),
- PRESENT_ABSENT('MAILLE','NOEUD_2','GROUP_NO_2'),),
- INTITULE =SIMP(statut='f',typ='TXM' ),
- GROUP_MA =SIMP(statut='f',typ=grma),
- MAILLE =SIMP(statut='f',typ=ma),
- NOEUD_1 =SIMP(statut='f',typ=no),
- NOEUD_2 =SIMP(statut='f',typ=no),
- GROUP_NO_1 =SIMP(statut='f',typ=grno),
- GROUP_NO_2 =SIMP(statut='f',typ=grno),
- OBSTACLE =SIMP(statut='o',typ=obstacle_sdaster ),
- ORIG_OBST =SIMP(statut='f',typ='R',min=3,max=3),
- NORM_OBST =SIMP(statut='o',typ='R',min=3,max=3),
- ANGL_VRIL =SIMP(statut='f',typ='R' ),
- JEU =SIMP(statut='f',typ='R',defaut= 1. ),
- DIST_1 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
- DIST_2 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
- SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
- SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
- REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
- RIGI_NOR =SIMP(statut='f',typ='R' ),
- AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-
- LAME_FLUIDE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- b_lame =BLOC(condition="LAME_FLUIDE=='OUI'",
- ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- CHI =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- DELTA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- ),
+ 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_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",) ),
+ 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='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),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")),
),
- VERI_CHOC =FACT(statut='f',max='**',
- STOP_CRITERE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- SEUIL =SIMP(statut='f',typ='R',defaut= 0.5 ),
+#-------------------------------------------------------------------
+ ETAT_INIT =FACT(statut='f',
+ 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'),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ NUME_DIDI =SIMP(statut='f',typ='I'),
+ INST_ETAT_INIT =SIMP(statut='f',typ='R'),
),
- FLAMBAGE =FACT(statut='f',max='**',
- regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
- EXCLUS('NOEUD_2','GROUP_NO_2'),),
- NOEUD_1 =SIMP(statut='f',typ=no),
- NOEUD_2 =SIMP(statut='f',typ=no),
- GROUP_NO_1 =SIMP(statut='f',typ=grno),
- GROUP_NO_2 =SIMP(statut='f',typ=grno),
- OBSTACLE =SIMP(statut='o',typ=obstacle_sdaster ),
- ORIG_OBST =SIMP(statut='f',typ='R',max='**'),
- NORM_OBST =SIMP(statut='o',typ='R',max='**'),
- ANGL_VRIL =SIMP(statut='f',typ='R' ),
- JEU =SIMP(statut='f',typ='R',defaut= 1. ),
- DIST_1 =SIMP(statut='f',typ='R' ),
- DIST_2 =SIMP(statut='f',typ='R' ),
- REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
- RIGI_NOR =SIMP(statut='f',typ='R' ),
- FNOR_CRIT =SIMP(statut='f',typ='R' ),
- FNOR_POST_FL =SIMP(statut='f',typ='R' ),
- RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
+#-------------------------------------------------------------------
+ INCREMENT =FACT(statut='o',
+ regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
+ EXCLUS('NUME_INST_FIN','INST_FIN'),),
+ LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
+ EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
+ into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
+ NUME_INST_INIT =SIMP(statut='f',typ='I'),
+ INST_INIT =SIMP(statut='f',typ='R'),
+ NUME_INST_FIN =SIMP(statut='f',typ='I'),
+ INST_FIN =SIMP(statut='f',typ='R'),
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
+ SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
+ SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
+ COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
+ OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',),
+ NOM_CMP =SIMP(statut='f',typ='TXM',),
+ VALE =SIMP(statut='f',typ='R'),
),
- ANTI_SISM =FACT(statut='f',max='**',
- regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
- UN_PARMI('NOEUD_2','GROUP_NO_2'),),
- NOEUD_1 =SIMP(statut='f',typ=no),
- NOEUD_2 =SIMP(statut='f',typ=no),
- GROUP_NO_1 =SIMP(statut='f',typ=grno),
- GROUP_NO_2 =SIMP(statut='f',typ=grno),
- RIGI_K1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- RIGI_K2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- SEUIL_FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- C =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- PUIS_ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- DX_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
+#-------------------------------------------------------------------
+ DIFF_CENT =FACT(statut='f',
),
- RELA_EFFO_DEPL =FACT(statut='f',max='**',
- NOEUD =SIMP(statut='o',typ=no),
- SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
- NOM_CMP =SIMP(statut='f',typ='TXM' ),
- RELATION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ TCHAMWA =FACT(statut='f',
+ PHI =SIMP(statut='f',typ='R',defaut= 1.05),
),
- RELA_TRANSIS =FACT(statut='f',max='**',
- NOEUD =SIMP(statut='o',typ=no),
- SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
- NOM_CMP =SIMP(statut='f',typ='TXM' ),
- RELATION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ STOP_CFL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ NEWTON =FACT(statut='c',
+ REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
+ PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
+ MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
+ REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
+ REAC_ITER_ELAS =SIMP(statut='f',typ='I',defaut=0),
+ PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
),
- RELA_EFFO_VITE =FACT(statut='f',max='**',
- NOEUD =SIMP(statut='o',typ=no),
- SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
- NOM_CMP =SIMP(statut='f',typ='TXM' ),
- RELATION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ PARM_THETA =SIMP(statut='f',typ='R',defaut= 1. ),
+ SOLVEUR =FACT(statut='d',
+ 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","DECOUPE") ),
+ ),
+ 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),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
),
- b_itmi =BLOC(condition = "METHODE=='ITMI'",
- regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
- BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu_sdaster ),
- NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
- ETAT_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- PREC_DUREE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
- 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' ),
+#-------------------------------------------------------------------
+ RECH_LINEAIRE =FACT(statut='c',
+ RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
+ ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
+ ITER_LINE_CRIT =SIMP(statut='f',typ='I',defaut= 20),
+ PAS_MINI_CRIT =SIMP(statut='f',typ='R',defaut=0.0E+0),
+ RHO_MIN =SIMP(statut='f',typ='R',defaut=1.0E-2),
+ RHO_MAX =SIMP(statut='f',typ='R',defaut=1.0E+1),
+ RHO_EXCL =SIMP(statut='f',typ='R',defaut=0.9E-2),
),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
- IMPRESSION =FACT(statut='f',max='**',
- regles=(EXCLUS('TOUT','NIVEAU'),),
+ PILOTAGE =FACT(statut='c',
+ regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
+ TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
+ COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
+ ETA_PILO_MAX =SIMP(statut='f',typ='R'),
+ ETA_PILO_MIN =SIMP(statut='f',typ='R'),
+ ETA_PILO_R_MAX =SIMP(statut='f',typ='R'),
+ ETA_PILO_R_MIN =SIMP(statut='f',typ='R'),
+ PROJ_BORNES =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ SELECTION =SIMP(statut='f',typ='TXM',defaut="NORM_INCR_DEPL", into=("RESIDU","ANGL_INCR_DEPL","NORM_INCR_DEPL") ),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NIVEAU =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
- INST_INIT =SIMP(statut='f',typ='R' ),
- INST_FIN =SIMP(statut='f',typ='R' ),
+ GROUP_MA =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
+ NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
+ ),
+ CONVERGENCE =FACT(statut='d',
+ regles=(PRESENT_ABSENT('RESI_REFE_RELA','RESI_GLOB_MAXI','RESI_GLOB_RELA'),),
+ SIGM_REFE =SIMP(statut='f',typ='R'),
+ EPSI_REFE =SIMP(statut='f',typ='R'),
+ FLUX_THER_REFE =SIMP(statut='f',typ='R'),
+ FLUX_HYD1_REFE =SIMP(statut='f',typ='R'),
+ FLUX_HYD2_REFE =SIMP(statut='f',typ='R'),
+ RESI_REFE_RELA =SIMP(statut='f',typ='R'),
+ RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
+ RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
+ ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
+ ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
+ ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
+ 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")),
),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- ) ;
-#& 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
-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)",
- regles=(UN_PARMI('TOUT','CO'),),
- UNITE =SIMP(statut='f',typ='I',defaut=8),
- 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","RESUME") ),
- FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
- PREC_R =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
-) ;
-#& 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.
-# ======================================================================
-EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,
- fr="Exécute un logiciel ou une commande système depuis Aster",
- UIinfo={"groupes":("Impression",)},
- LOGICIEL =SIMP(statut='f',typ='TXM' ),
- ARGUMENT =FACT(statut='f',max='**',
- NOM_PARA =SIMP(statut='f',typ='TXM' ),
+#-------------------------------------------------------------------
+ AFFICHAGE = FACT(statut='f',max=16,
+
+ UNITE = SIMP(statut='f',typ='I',val_min=1),
+
+ LONG_R = SIMP(statut='f',typ='I',defaut=12,val_min=1,val_max=12),
+ PREC_R = SIMP(statut='f',typ='I',defaut=5, val_min=1,val_max=8),
+ LONG_I = SIMP(statut='f',typ='I',defaut=6, val_min=1,val_max=12),
+
+ NOM_COLONNE = SIMP(statut='o',typ='TXM',defaut="STANDARD",
+ into=("STANDARD","MINIMUM",
+ "ITER_NEWT",
+ "INCR_TPS",
+ "RESI_RELA","RELA_NOEU",
+ "RESI_MAXI","MAXI_NOEU",
+ "RESI_REFE","REFE_NOEU",
+ "RELI_ITER","RELI_COEF",
+ "PILO_PARA",
+ "LAGR_ECAR","LAGR_INCR","LAGR_ITER",
+ "MATR_ASSE",
+ "ITER_DEBO",
+ "CTCD_ITER","CTCD_INFO","CTCD_GEOM","CTCD_NOEU",
+ "CTCC_GEOM","CTCC_FROT","CTCC_CONT",
+ "SUIV_1","SUIV_2","SUIV_3","SUIV_4",
+ ),
+ ),
+ b_residu = BLOC(condition = " NOM_COLONNE == 'RESI_RELA' or \
+ NOM_COLONNE == 'RESI_MAXI' or\
+ NOM_COLONNE == 'RESI_REFE' or\
+ NOM_COLONNE == 'CTCD_GEOM' or\
+ NOM_COLONNE == 'STANDARD' ",
+ INFO_RESIDU = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
+ ),
+ ),
+#-------------------------------------------------------------------
+ ARCHIVAGE =FACT(statut='f',
+ regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
+ EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
+ LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ PAS_ARCH =SIMP(statut='f',typ='I' ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ 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","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
+ ),
+ OBSERVATION =FACT(statut='f',max='**',
+ regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
+ PRESENT_PRESENT('MAILLE','POINT'),),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
+
+into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
+ NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
+ LIST_ARCH =SIMP(statut='f',typ=listis_sdaster),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PAS_OBSE =SIMP(statut='f',typ='I'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ POINT =SIMP(statut='f',typ='I' ,max='**'),
),
+#-------------------------------------------------------------------
+ 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 ),
+ ),
+ ),
+ 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='**'),
) ;
-#& MODIF COMMANDE DATE 14/10/2005 AUTEUR CIBHHLV L.VIVAN
+#& 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
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-def extr_mode_prod(FILTRE_MODE,**args):
- vale=FILTRE_MODE[0]['MODE']
- if AsType(vale) == mode_meca : return mode_meca
- if AsType(vale) == mode_meca_c : return mode_meca_c
- if AsType(vale) == mode_gene : return mode_gene
- raise AsException("type de concept resultat non prevu")
-
-EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
- reentrant='n',fr="Extraire séléctivement des modes des structures de données modales",
+DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op= 74,sd_prod=tran_gene,
+ fr="Calcul de la réponse dynamique transitoire d'un système amorti ou non en coordonées généralisées"
+ +" par superposition modale ou par sous structuration",
+ reentrant='f',
UIinfo={"groupes":("Résolution",)},
- FILTRE_MODE =FACT(statut='o',max='**',
- regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
- MODE =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- NUME_MODE_EXCLU =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- FREQ_MIN =SIMP(statut='f',typ='R' ),
- CRIT_EXTR =SIMP(statut='f',typ='TXM',into=("MASS_EFFE_UN","MASS_GENE") ),
- b_freq_min =BLOC(condition = "FREQ_MIN != None",
- FREQ_MAX =SIMP(statut='o',typ='R' ),
+ regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
+ PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
+ METHODE =SIMP(statut='f',typ='TXM',defaut="EULER",
+ into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
+ MASS_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
+ RIGI_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
+ AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
+ AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
+ LIST_AMOR =SIMP(statut='f',typ=listr8_sdaster ),
+ MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
+ MODE_CORR =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
+
+ ETAT_INIT =FACT(statut='f',
+ regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
+ EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
+ RESU_GENE =SIMP(statut='f',typ=tran_gene ),
+ b_resu_gene =BLOC(condition = "RESU_GENE != None",
+ INST_INIT =SIMP(statut='f',typ='R' ),
PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
),
- b_crit_extr =BLOC(condition = "CRIT_EXTR != None",
- regles=(AU_MOINS_UN('SEUIL','SEUIL_X','SEUIL_Y','SEUIL_Z'),),
- SEUIL =SIMP(statut='f',typ='R'),
- SEUIL_X =SIMP(statut='f',typ='R'),
- SEUIL_Y =SIMP(statut='f',typ='R'),
- SEUIL_Z =SIMP(statut='f',typ='R'),
- ),
+ DEPL_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
+ VITE_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- IMPRESSION =FACT(statut='f',
- CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
+ INCREMENT =FACT(statut='o',max='**',
+ INST_INIT =SIMP(statut='f',typ='R' ),
+ INST_FIN =SIMP(statut='o',typ='R' ),
+ PAS =SIMP(statut='f',typ='R' ),
+ VERI_PAS =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
+ COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
+ COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
+ PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
+ NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
+ NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
),
-) ;
-#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
+ ARCHIVAGE =FACT(statut='f',
+ regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
+ LIST_ARCH =SIMP(statut='f',typ=listis_sdaster ),
+ PAS_ARCH =SIMP(statut='f',typ='I' ),
+ ),
+
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 20 ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ LAMBDA =SIMP(statut='f',typ='R',defaut= 10. ),
+
+ EXCIT =FACT(statut='f',max='**',
+ regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
+ PRESENT_PRESENT('ACCE','VITE','DEPL'),
+ PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
+ PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
+ EXCLUS('MULT_APPUI','CORR_STAT'),
+ PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
+ PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
+ VECT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
+ NUME_MODE =SIMP(statut='f',typ='I' ),
+ FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ COEF_MULT =SIMP(statut='f',typ='R' ),
+ ACCE =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ VITE =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ DEPL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ DIRECTION =SIMP(statut='f',typ='R',max='**'),
+ b_loca =BLOC(condition= "DIRECTION != None",
+ regles=(EXCLUS('NOEUD','GROUP_NO'),),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ ),
+ CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ D_FONC_DT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ D_FONC_DT2 =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ ),
+ CHOC =FACT(statut='f',max='**',
+ regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD_1','GROUP_NO_1' ),
+ EXCLUS('NOEUD_2','GROUP_NO_2'),
+ PRESENT_ABSENT('GROUP_MA','NOEUD_2','GROUP_NO_2'),
+ PRESENT_ABSENT('MAILLE','NOEUD_2','GROUP_NO_2'),),
+ INTITULE =SIMP(statut='f',typ='TXM' ),
+ GROUP_MA =SIMP(statut='f',typ=grma),
+ MAILLE =SIMP(statut='f',typ=ma),
+ NOEUD_1 =SIMP(statut='f',typ=no),
+ NOEUD_2 =SIMP(statut='f',typ=no),
+ GROUP_NO_1 =SIMP(statut='f',typ=grno),
+ GROUP_NO_2 =SIMP(statut='f',typ=grno),
+ OBSTACLE =SIMP(statut='o',typ=obstacle_sdaster ),
+ ORIG_OBST =SIMP(statut='f',typ='R',min=3,max=3),
+ NORM_OBST =SIMP(statut='o',typ='R',min=3,max=3),
+ ANGL_VRIL =SIMP(statut='f',typ='R' ),
+ JEU =SIMP(statut='f',typ='R',defaut= 1. ),
+ DIST_1 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
+ DIST_2 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
+ SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
+ SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
+ REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
+ RIGI_NOR =SIMP(statut='f',typ='R' ),
+ AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+
+ LAME_FLUIDE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ b_lame =BLOC(condition="LAME_FLUIDE=='OUI'",
+ ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ CHI =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ DELTA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ ),
+ ),
+ VERI_CHOC =FACT(statut='f',max='**',
+ STOP_CRITERE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ SEUIL =SIMP(statut='f',typ='R',defaut= 0.5 ),
+ ),
+ FLAMBAGE =FACT(statut='f',max='**',
+ regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
+ EXCLUS('NOEUD_2','GROUP_NO_2'),),
+ NOEUD_1 =SIMP(statut='f',typ=no),
+ NOEUD_2 =SIMP(statut='f',typ=no),
+ GROUP_NO_1 =SIMP(statut='f',typ=grno),
+ GROUP_NO_2 =SIMP(statut='f',typ=grno),
+ OBSTACLE =SIMP(statut='o',typ=obstacle_sdaster ),
+ ORIG_OBST =SIMP(statut='f',typ='R',max='**'),
+ NORM_OBST =SIMP(statut='o',typ='R',max='**'),
+ ANGL_VRIL =SIMP(statut='f',typ='R' ),
+ JEU =SIMP(statut='f',typ='R',defaut= 1. ),
+ DIST_1 =SIMP(statut='f',typ='R' ),
+ DIST_2 =SIMP(statut='f',typ='R' ),
+ REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
+ RIGI_NOR =SIMP(statut='f',typ='R' ),
+ FNOR_CRIT =SIMP(statut='f',typ='R' ),
+ FNOR_POST_FL =SIMP(statut='f',typ='R' ),
+ RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
+ ),
+ ANTI_SISM =FACT(statut='f',max='**',
+ regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
+ UN_PARMI('NOEUD_2','GROUP_NO_2'),),
+ NOEUD_1 =SIMP(statut='f',typ=no),
+ NOEUD_2 =SIMP(statut='f',typ=no),
+ GROUP_NO_1 =SIMP(statut='f',typ=grno),
+ GROUP_NO_2 =SIMP(statut='f',typ=grno),
+ RIGI_K1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ RIGI_K2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ SEUIL_FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ C =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ PUIS_ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ DX_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
+ ),
+ RELA_EFFO_DEPL =FACT(statut='f',max='**',
+ NOEUD =SIMP(statut='o',typ=no),
+ SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
+ NOM_CMP =SIMP(statut='f',typ='TXM' ),
+ RELATION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ ),
+ RELA_TRANSIS =FACT(statut='f',max='**',
+ NOEUD =SIMP(statut='o',typ=no),
+ SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
+ NOM_CMP =SIMP(statut='f',typ='TXM' ),
+ RELATION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ ),
+ RELA_EFFO_VITE =FACT(statut='f',max='**',
+ NOEUD =SIMP(statut='o',typ=no),
+ SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
+ NOM_CMP =SIMP(statut='f',typ='TXM' ),
+ RELATION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ ),
+ b_itmi =BLOC(condition = "METHODE=='ITMI'",
+ regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
+ BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu_sdaster ),
+ NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
+ ETAT_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ PREC_DUREE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
+ 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) ),
+ IMPRESSION =FACT(statut='f',max='**',
+ regles=(EXCLUS('TOUT','NIVEAU'),),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NIVEAU =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
+ INST_INIT =SIMP(statut='f',typ='R' ),
+ INST_FIN =SIMP(statut='f',typ='R' ),
+ ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ ) ;
+#& 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.
+# 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.
# ======================================================================
-def extr_resu_prod(RESULTAT,**args):
- if AsType(RESULTAT) == evol_elas : return evol_elas
- if AsType(RESULTAT) == evol_noli : return evol_noli
- if AsType(RESULTAT) == evol_ther : return evol_ther
- if AsType(RESULTAT) == dyna_trans : return dyna_trans
- if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
- if AsType(RESULTAT) == acou_harmo : return acou_harmo
- if AsType(RESULTAT) == mode_meca : return mode_meca
- if AsType(RESULTAT) == mode_acou : return mode_acou
- if AsType(RESULTAT) == mode_stat : return mode_stat
- if AsType(mode_stat) == mode_stat_depl : return mode_stat_depl
- if AsType(mode_stat) == mode_stat_acce : return mode_stat_acce
- if AsType(mode_stat) == mode_stat_forc : return mode_stat_forc
- if AsType(RESULTAT) == mult_elas : return mult_elas
- if AsType(RESULTAT) == fourier_elas : return fourier_elas
- raise AsException("type de concept resultat non prevu")
-
-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(),
- DERIVABLE('RESULTAT'),),
+# 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)",
+ regles=(UN_PARMI('TOUT','CO'),),
+ UNITE =SIMP(statut='f',typ='I',defaut=8),
+ 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","RESUME") ),
+ FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
+ PREC_R =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
+) ;
+#& 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.
+# ======================================================================
+EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,
+ fr="Exécute un logiciel ou une commande système depuis Aster",
+ UIinfo={"groupes":("Impression",)},
+ LOGICIEL =SIMP(statut='f',typ='TXM' ),
+ ARGUMENT =FACT(statut='f',max='**',
+ NOM_PARA =SIMP(statut='f',typ='TXM' ),
+ ),
+) ;
+#& MODIF COMMANDE DATE 14/10/2005 AUTEUR CIBHHLV 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.
+#
+# 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 extr_mode_prod(FILTRE_MODE,**args):
+ vale=FILTRE_MODE[0]['MODE']
+ if AsType(vale) == mode_meca : return mode_meca
+ if AsType(vale) == mode_meca_c : return mode_meca_c
+ if AsType(vale) == mode_gene : return mode_gene
+ raise AsException("type de concept resultat non prevu")
+
+EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
+ reentrant='n',fr="Extraire séléctivement des modes des structures de données modales",
+ UIinfo={"groupes":("Résolution",)},
+ FILTRE_MODE =FACT(statut='o',max='**',
+ regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
+ MODE =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ NUME_MODE_EXCLU =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ FREQ_MIN =SIMP(statut='f',typ='R' ),
+ CRIT_EXTR =SIMP(statut='f',typ='TXM',into=("MASS_EFFE_UN","MASS_GENE") ),
+ b_freq_min =BLOC(condition = "FREQ_MIN != None",
+ FREQ_MAX =SIMP(statut='o',typ='R' ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ ),
+ b_crit_extr =BLOC(condition = "CRIT_EXTR != None",
+ regles=(AU_MOINS_UN('SEUIL','SEUIL_X','SEUIL_Y','SEUIL_Z'),),
+ SEUIL =SIMP(statut='f',typ='R'),
+ SEUIL_X =SIMP(statut='f',typ='R'),
+ SEUIL_Y =SIMP(statut='f',typ='R'),
+ SEUIL_Z =SIMP(statut='f',typ='R'),
+ ),
+ ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ IMPRESSION =FACT(statut='f',
+ CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
+ ),
+) ;
+#& 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
+# 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 extr_resu_prod(RESULTAT,**args):
+ if AsType(RESULTAT) == evol_elas : return evol_elas
+ if AsType(RESULTAT) == evol_noli : return evol_noli
+ if AsType(RESULTAT) == evol_ther : return evol_ther
+ if AsType(RESULTAT) == dyna_trans : return dyna_trans
+ if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
+ if AsType(RESULTAT) == acou_harmo : return acou_harmo
+ if AsType(RESULTAT) == mode_meca : return mode_meca
+ if AsType(RESULTAT) == mode_acou : return mode_acou
+ if AsType(RESULTAT) == mode_stat : return mode_stat
+ if AsType(mode_stat) == mode_stat_depl : return mode_stat_depl
+ if AsType(mode_stat) == mode_stat_acce : return mode_stat_acce
+ if AsType(mode_stat) == mode_stat_forc : return mode_stat_forc
+ if AsType(RESULTAT) == mult_elas : return mult_elas
+ if AsType(RESULTAT) == fourier_elas : return fourier_elas
+ raise AsException("type de concept resultat non prevu")
+
+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(),
+ 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,
mult_elas,fourier_elas ) ),
#& 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
+# 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 extr_table_prod(TYPE_RESU,**args):
+ 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 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),
+
+ NOM_PARA =SIMP(statut='o',typ='TXM'),
+
+ FILTRE =FACT(statut='f',min=1,max='**',
+ NOM_PARA =SIMP(statut='o',typ='TXM'),
+ CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
+ into=("EQ","LT","GT","NE","LE","GE","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'),
+ VALE_I =SIMP(statut='f',typ='I'),
+ VALE_C =SIMP(statut='f',typ='C'),
+ VALE_K =SIMP(statut='f',typ='TXM'),),
+
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ ),
+
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+) ;
+#& 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
#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# 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.
-# ======================================================================
-# RESPONSABLE GNICOLAS G.NICOLAS
-
-from Macro.macr_fiab_impr_ops import macr_fiab_impr_ops
-
-MACR_FIAB_IMPR=MACRO(nom="MACR_FIAB_IMPR",op=macr_fiab_impr_ops,
- docu="U7.04.41",UIinfo={"groupe":("Impression",)},
- fr="Imprimer les valeurs à transmettre au logiciel de fiabilité.",
- ang="Print values for the fiability software",
-#
-# 1. Le niveau d'information
-#
- INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
-#
-# 2. Impression de la valeur de la cible
-#
-# 2.1. ==> La table contenant la valeur à imprimer
-#
- TABLE_CIBLE = SIMP(statut='o',typ=table_sdaster,
- fr="Table contenant la valeur cible.",
- ang="Table which includes the target value."),
-#
-# 2.2. ==> Le nom du paramètre associé à la valeur cible dans cette table
-#
- NOM_PARA_CIBLE = SIMP(statut='o',typ='TXM',
- fr="Nom du paramètre associé à la valeur cible.",
- ang="Name of the parameter connected to the target value."),
-#
-# 3. Impressions des valeurs des éventuels gradients
-#
- GRADIENTS = FACT(statut='f',min=1,max='**',
-#
-# 3.1. ==> La table contenant la valeur à imprimer
-#
- TABLE = SIMP(statut='o',typ=table_sdaster,
- fr="Table contenant le gradient.",
- ang="Table which includes the gradient."),
-#
-# 3.2. ==> Le paramètre sensible
-#
- PARA_SENSI = SIMP(statut='o',typ=(para_sensi,theta_geom),
- fr="Paramètre sensible associé au gradient.",
- ang="Sensitivity parameter connected to the gradient."),
-#
-# 3.3. ==> Le nom du paramètre associé au gradient dans cette table
-#
- NOM_PARA = SIMP(statut='o',typ='TXM',
- fr="Nom du paramètre associé au gradient.",
- ang="Name of the parameter connected to the gradient."),
-#
- ),
-#
-);
-#& 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
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 23/08/2004 AUTEUR CIBHHLV L.VIVAN
+#& MODIF COMMANDE DATE 11/07/2005 AUTEUR CAMBIER S.CAMBIER
# 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
+# COPYRIGHT (C) 1991 - 2002 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 CAMBIER S.CAMBIER
+def gene_matr_alea_prod(MATR_MOYEN,**args ):
+ if (AsType(MATR_MOYEN) == matr_asse_gene_r ) : return matr_asse_gene_r
+ if (AsType(MATR_MOYEN) == macr_elem_dyna) : return macr_elem_dyna
+ raise AsException("type de concept resultat non prevu")
+
+GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op= 27,
+#sd_prod=matr_asse_gene_r,
+sd_prod=gene_matr_alea_prod,
+ fr="Générer une réalisation d'une matrice aléatoire réelle sym. déf. positive ou d'un macro élément dynamique",
+ reentrant='n',
+ UIinfo={"groupes":("Matrice",)},
+ MATR_MOYEN = SIMP(statut='o', typ=(matr_asse_gene_r,macr_elem_dyna)),
+
+# cas matrice generalisee
+ b_matr =BLOC( condition = "AsType(MATR_MOYEN) in (matr_asse_gene_r,)",
+ COEF_VAR = SIMP(statut='f', typ='R', defaut=0.1, val_min=0.E+0 ,
+ fr="coefficient de variation de la matrice a generer" ),
+ ),
+# cas macr_elem_dyna
+ b_macr =BLOC( condition = "AsType(MATR_MOYEN) in (macr_elem_dyna,)",
+ fr="cas macr_elem_dyna (sous-structuratio)",
+ COEF_VAR_RIGI = SIMP(statut='f', typ='R', defaut=0.1, val_min=0.E+0 ,
+ fr="coefficient de variation de la matrice de raideur" ),
+ COEF_VAR_MASS = SIMP(statut='f', typ='R', defaut=0., val_min=0.E+0 ,
+ fr="coefficient de variation de la matrice de masse" ),
+ COEF_VAR_AMOR = SIMP(statut='f', typ='R', defaut=0., val_min=0.E+0 ,
+ fr="coefficient de variation de la matrice d'amortissement" ),),
+
+ INIT_ALEA =SIMP(statut='f',typ='I'),
+) ;
+
+#& MODIF COMMANDE DATE 28/02/2006 AUTEUR VABHHTS J.PELLET
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2002 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 CAMBIER S.CAMBIER
+from Macro.gene_vari_alea_ops import gene_vari_alea_ops,gene_vari_alea_init
+GENE_VARI_ALEA=MACRO(nom="GENE_VARI_ALEA",
+ op_init=gene_vari_alea_init,op=gene_vari_alea_ops,
+ sd_prod=reel,reentrant='n',
+ fr="Générer une réalisation d'une variable aléatoire réelle de loi de probabilité donnée (Gamma ou Exponentielle)",
+ UIinfo={"groupes":("Fonction",)},
+ TYPE = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="GAMMA"),
+ b_gamma =BLOC(condition = "TYPE == 'GAMMA' ",fr="Parametres loi gamma",
+ VALE_MOY = SIMP(statut='f', typ='R', defaut=1.),
+ BORNE_INF = SIMP(statut='f', typ='R', defaut=0.),
+ COEF_VAR = SIMP(statut='f', typ='R', defaut=0.1),
+ ),
+ b_expo =BLOC(condition = "TYPE == 'EXPONENTIELLE' ",fr="Parametres loi exponentielle",
+ VALE_MOY = SIMP(statut='f', typ='R', defaut=0.),
+ BORNE_INF = SIMP(statut='f', typ='R', defaut=-1.),
+ ),
+ b_expo_tronq =BLOC(condition = "TYPE == 'EXP_TRONQUEE' ",fr="Parametres loi exponentielle tronquee",
+ VALE_MOY = SIMP(statut='f', typ='R', defaut=0.),
+ BORNE_INF = SIMP(statut='f', typ='R', defaut=-1.),
+ BORNE_SUP = SIMP(statut='f', typ='R', defaut=1.),
+ COEF_VAR = SIMP(statut='f', typ='R', defaut=0.1,val_min=0.),
+ ),
+ INIT_ALEA =SIMP(statut='f',typ='I'),
+)
+#& MODIF COMMANDE DATE 23/08/2004 AUTEUR CIBHHLV 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.
POSITION =SIMP(statut='f',typ='I',defaut=1),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
) ;
+#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+# 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.
+# ======================================================================
+# RESPONSABLE MCOURTOI M.COURTOIS
+from Macro.impr_fonction_ops import impr_fonction_ops
+
+IMPR_FONCTION=MACRO(nom="IMPR_FONCTION",op=impr_fonction_ops,sd_prod=None,
+ fr="Imprime le contenu d'objets de type fonction ou liste de réels dans un fichier destiné à un traceur de courbe",
+ UIinfo={"groupes":("Fonction",)},
+ FORMAT =SIMP(statut='o',typ='TXM',position='global',defaut='TABLEAU',
+ into=("TABLEAU","AGRAF","XMGRACE",),),
+ b_pilote = BLOC(condition = "FORMAT == 'XMGRACE'",
+ fr="Mots-clés propres à XMGRACE",
+ PILOTE =SIMP(statut='f',typ='TXM',defaut='',
+ into=('','POSTSCRIPT','EPS','MIF','SVG','PNM','PNG','JPEG','PDF','INTERACTIF'),
+ fr="Pilote de sortie, PNG/JPEG/PDF ne sont pas disponibles sur toutes les installations de xmgrace"),
+ UNITE =SIMP(statut='f',typ='I',val_min=10,val_max=90,defaut=29,
+ fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+ ),
+ b_agraf = BLOC(condition = "FORMAT == 'AGRAF'",
+ fr="Mots-clés propres à AGRAF",
+ UNITE =SIMP(statut='o',typ='I',defaut=25,
+ fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+ UNITE_DIGR =SIMP(statut='o',typ='I',defaut=26,
+ fr="Unité logique définissant le fichier dans lequel on écrit les directives Agraf"),
+ ),
+ # unite pour TABLEAU dans le bloc de mise en forme spécifique
+
+ COURBE =FACT(statut='o',max='**',fr="Définition de la fonction à tracer",
+ regles=(UN_PARMI('FONCTION','LIST_RESU','FONC_X','ABSCISSE'),),
+ FONCTION =SIMP(statut='f',typ=(fonction_sdaster, formule, fonction_c, nappe_sdaster),
+ fr="Fonction réelle ou complexe", ),
+ LIST_RESU =SIMP(statut='f',typ=listr8_sdaster,
+ fr="Liste des ordonnees d'une fonction réelle définie par deux listes", ),
+ FONC_X =SIMP(statut='f',typ=(fonction_sdaster,formule),
+ fr="Fonction abscisses d'une fonction paramétrique",),
+ ABSCISSE =SIMP(statut='f',typ='R',max='**',
+ fr="Valeurs des abscisses", ),
+ b_fonction =BLOC(condition = "FONCTION != None",
+ LIST_PARA =SIMP(statut='f',typ=listr8_sdaster ),
+ ),
+ b_fonction_c =BLOC(condition = "AsType(FONCTION) == fonction_c",
+ fr="Fonction complexe définie par le mot-clé fonction",
+ PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
+ ),
+ b_list_resu =BLOC(condition = "LIST_RESU != None",
+ LIST_PARA =SIMP(statut='o',typ=listr8_sdaster ),
+ ),
+ b_fonc_x =BLOC(condition = "FONC_X != None",
+ FONC_Y =SIMP(statut='o',typ=(fonction_sdaster,formule),fr="Fonction ordonnées d une fonction paramétrique" ),
+ LIST_PARA =SIMP(statut='f',typ=listr8_sdaster ),
+ ),
+ b_vale_resu =BLOC(condition = "ABSCISSE != None",
+ ORDONNEE =SIMP(statut='o',typ='R',max='**',
+ fr="Valeurs des ordonnées"),
+ ),
+
+ # le bloc n'est pas activé (vide) car position n'est pas pris en compte
+ b_forme =BLOC(condition = "FORMAT != 'TABLEAU'",
+ fr="Données de mise en forme de la fonction (cf. doc)",
+ ),
+ LEGENDE =SIMP(statut='f',typ='TXM',
+ fr="Légende associée à la fonction" ),
+ STYLE =SIMP(statut='f',typ='I',val_min=0,
+ fr="Style de la ligne représentant la fonction",),
+ COULEUR =SIMP(statut='f',typ='I',val_min=0,
+ fr="Couleur associée à la fonction",),
+ MARQUEUR =SIMP(statut='f',typ='I',val_min=0,
+ fr="Type du marqueur associé à la fonction",),
+ FREQ_MARQUEUR =SIMP(statut='f',typ='I',defaut=0,
+ fr="Fréquence d impression du marqueur associé à la fonction", ),
+ # fin bloc b_forme
+ TRI =SIMP(statut='f',typ='TXM',defaut="N",
+ fr="Choix du tri effectué sur les abscisses ou sur les ordonnées",
+ into=("N","X","Y","XY","YX") ),
+ ),
+ # Mise en page du tableau ou du graphique
+ b_tableau = BLOC(condition = "FORMAT == 'TABLEAU'",
+ fr="Mots-clés propres au format Tableau",
+ UNITE =SIMP(statut='o',typ='I',defaut=8,
+ fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+ TITRE =SIMP(statut='f',typ='TXM',
+ fr="Titre associé au graphique" ),
+ SOUS_TITRE =SIMP(statut='f',typ='TXM',
+ fr="Sous-titre du graphique" ),
+ SEPARATEUR =SIMP(statut='f',typ='TXM',defaut=' ',
+ fr="Séparateur des colonnes du tableau (ex : ' ', ';'...)"),
+ COMMENTAIRE =SIMP(statut='f',typ='TXM',defaut='#',
+ fr="Caractère indiquant au traceur de fonction que la ligne peut etre ignorée"),
+ DEBUT_LIGNE =SIMP(statut='f',typ='TXM',defaut='',
+ fr="Caractère de debut de ligne"),
+ FIN_LIGNE =SIMP(statut='f',typ='TXM',defaut='\n',
+ fr="Caractère de fin de ligne"),
+ ),
+ b_graphique = BLOC(condition = "FORMAT != 'TABLEAU'",
+ fr="Mise en page du graphique",
+ TITRE =SIMP(statut='f',typ='TXM',
+ fr="Titre associé au graphique" ),
+ SOUS_TITRE =SIMP(statut='f',typ='TXM',
+ fr="Sous-titre du graphique" ),
+ BORNE_X =SIMP(statut='f',typ='R',min=2,max=2,
+ fr="Intervalles de variation des abscisses"),
+ BORNE_Y =SIMP(statut='f',typ='R',min=2,max=2,
+ fr="Intervalles de variation des ordonnées"),
+ ECHELLE_X =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),
+ fr="Type d'échelle pour les abscisses" ),
+ ECHELLE_Y =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),
+ fr="Type d'échelle pour les ordonnées" ),
+ GRILLE_X =SIMP(statut='f',typ='R',max=1,val_min=0.,
+ fr="Pas du quadrillage vertical" ),
+ GRILLE_Y =SIMP(statut='f',typ='R',max=1,val_min=0.,
+ fr="Pas du quadrillage horizontal" ),
+ LEGENDE_X =SIMP(statut='f',typ='TXM',
+ fr="Légende associée à l'axe des abscisses" ),
+ LEGENDE_Y =SIMP(statut='f',typ='TXM',
+ fr="Légende associée à l'axe des ordonnées" ),
+ ),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
+) ;
#& MODIF COMMANDE DATE 21/02/2006 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 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
+#& MODIF COMMANDE DATE 16/06/2004 AUTEUR DURAND C.DURAND
# 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.
+# 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.
+# ======================================================================
+# RESPONSABLE D6BHHAM A.M.DONORE
#
-# 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.
+IMPR_OAR =PROC(nom="IMPR_OAR",op= 40,
+ fr="Impression au format OAR",
+ UIinfo={"groupes":("Impression",)},
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
+ MAILLAGE =SIMP(statut='o',typ=maillage_sdaster ),
+ MODELE =SIMP(statut='o',typ=modele_sdaster ),
+ MAILLE =SIMP(statut='o',typ=ma ,validators=NoRepeat(),max=2 ),
+ NOEUD =SIMP(statut='o',typ=no ,validators=NoRepeat() ),
+
+ CHARGE =FACT(statut='o',max='**',
+
+ NUM_CHAR =SIMP(statut='o',typ='I'),
+ TEMP_NOEUD =SIMP(statut='f',typ='R',defaut=20.),
+ TYPE =SIMP(statut='f',typ='TXM',defaut="DILA",
+ into=("POIDS","DILA","SEISME","DEPL","EFFO","STRATIF","CONDITIONNEL","COMBINAISON") ),
+ NATURE =SIMP(statut='f',typ='TXM',defaut="PRIMAIRE",
+ into=("PRIMAIRE","SECONDAIRE","TOTAL") ),
+ SIGNE =SIMP(statut='f',typ='TXM',defaut="S",
+ into=("S","NS") ),
+ RESULTAT =SIMP(statut='o',typ=resultat_sdaster),# CO() sd a creer !!!
+ ),
+
+
+ UNITE =SIMP(statut='f',typ='I',defaut=38),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
+) ;
+#& 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
+# 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,
UNITE_LONGUEUR =SIMP(statut='f',typ='TXM',into=("M","MM"),defaut="M" ),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
) ;
+#& MODIF COMMANDE DATE 14/09/2004 AUTEUR MCOURTOI M.COURTOIS
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2002 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 D6BHHJP J.P.LEFEBVRE
+INFO_EXEC_ASTER=OPER(nom="INFO_EXEC_ASTER",op=35,sd_prod=table_sdaster,
+ fr="Récupère différentes informations propres à l'exécution en cours",
+ reentrant='n',
+ UIinfo={"groupes":("Gestion du travail",)},
+
+ regles=(),
+ LISTE_INFO =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=3,
+ into=("CPU_RESTANT","UNITE_LIBRE","ETAT_UNITE"),),
+ b_etat_unite =BLOC(condition = "'ETAT_UNITE' in LISTE_INFO",
+ regles=(UN_PARMI('UNITE','FICHIER'),),
+ UNITE =SIMP(statut='f',typ='I',val_min=1,val_max=99,max=1,
+ fr="Unité logique dont on veut obtenir l'état",),
+ FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,255),
+ fr="Nom du fichier dont on veut obtenir l'état",),
+ ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
+) ;
+#& MODIF COMMANDE DATE 24/05/2005 AUTEUR MCOURTOI M.COURTOIS
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2005 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.
+# ======================================================================
+from Macro.info_fonction_ops import info_fonction_ops
+def info_fonction_prod(self,ECART_TYPE,RMS,NOCI_SEISME,MAX,NORME, **args):
+ if (RMS != None): return table_sdaster
+ if (MAX != None): return table_sdaster
+ if (NOCI_SEISME != None): return table_sdaster
+ if (ECART_TYPE != None): return table_sdaster
+ if (NORME != None): return table_sdaster
+ raise AsException("type de concept resultat non prevu")
+
+INFO_FONCTION=MACRO(nom="INFO_FONCTION",op=info_fonction_ops,sd_prod=info_fonction_prod
+ ,fr="Opérations mathématiques sur des concepts de type fonction, fonction_c ou nappe",
+ reentrant='n',
+ UIinfo={"groupes":("Fonction",)},
+ regles=(UN_PARMI('MAX','RMS','NOCI_SEISME','NORME','ECART_TYPE',),),
+ RMS =FACT(statut='f',fr="Valeur RMS d'une fonction",max='**',
+ METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
+ FONCTION =SIMP(statut='o',typ=fonction_sdaster ),
+ INST_INIT =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
+ INST_FIN =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3,val_min=0.E+0 ),
+ ),
+ NOCI_SEISME =FACT(statut='f',
+ regles=(UN_PARMI('FONCTION','SPEC_OSCI',),),
+ FONCTION =SIMP(statut='f',typ=fonction_sdaster ),
+ SPEC_OSCI =SIMP(statut='f',typ=nappe_sdaster ),
+ b_option_f =BLOC(condition="""FONCTION !=None""",
+ OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",validators=NoRepeat(),max='**',
+ into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
+ "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",), ),
+ b_amor =BLOC(condition="""OPTION=="TOUT" or OPTION=="INTE_SPEC" """,
+ AMOR_REDUIT =SIMP(statut='o',typ='R'), ),),
+ b_option_n =BLOC(condition="""SPEC_OSCI !=None""",
+ OPTION =SIMP(statut='f',typ='TXM',defaut="INTE_SPEC",into=("INTE_SPEC",), ),
+ NATURE =SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE") ),
+ AMOR_REDUIT =SIMP(statut='o',typ='R'), ),
+ INST_INIT =SIMP(statut='f',typ='R'),
+ INST_FIN =SIMP(statut='f',typ='R'),
+ COEF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ PESANTEUR =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
+ FREQ_INIT =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
+ FREQ_FIN =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
+ LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster ),
+ FREQ =SIMP(statut='f',typ='R',max='**'),
+ NORME =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
+ BORNE_INF =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
+ BORNE_SUP =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
+ b_acce_reel =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3,val_min=0.E+0),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ ),
+ ),
+ MAX =FACT(statut='f',fr="Extrémas locaux d'une fonction",
+ FONCTION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster) ),
+ ),
+ NORME =FACT(statut='f',fr="Norme L2 d'une fonction",
+ FONCTION =SIMP(statut='o', typ=nappe_sdaster),
+ ),
+ ECART_TYPE =FACT(statut='f',fr="Ecart-type d'une fonction",
+ METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
+ FONCTION =SIMP(statut='o',typ=fonction_sdaster),
+ INST_INIT =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
+ INST_FIN =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3,val_min=0.E+0 ),
+ ),
+ 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
# ======================================================================
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
+#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2005 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.
+# ======================================================================
+LIRE_FORC_MISS=OPER(nom="LIRE_FORC_MISS",op= 179,sd_prod=vect_asse_gene,
+ fr="Création d un vecteur assemblé à partir de base modale",
+ reentrant='n',
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ BASE =SIMP(statut='o',typ=base_modale ),
+ NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
+ FREQ_EXTR =SIMP(statut='o',typ='R',max=1),
+ NOM_CMP =SIMP(statut='o',typ='TXM',into=("DX","DY","DZ") ),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE"),defaut="DEPL"),
+ UNITE_RESU_FORC =SIMP(statut='f',typ='I',defaut=30),
+) ;
+
+#& MODIF COMMANDE DATE 08/11/2005 AUTEUR ACBHHCD G.DEVESA
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2005 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.
+# ======================================================================
+LIRE_IMPE_MISS=OPER(nom="LIRE_IMPE_MISS",op= 164,sd_prod=matr_asse_gene_c,
+ fr="Création d une matrice assemblée à partir de base modale",
+ reentrant='n',
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ BASE =SIMP(statut='o',typ=base_modale ),
+ NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
+ FREQ_EXTR =SIMP(statut='o',typ='R',max=1),
+ UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
+) ;
+
#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
),
),
) ;
-#& MODIF COMMANDE DATE 22/05/2006 AUTEUR MCOURTOI M.COURTOIS
+#& MODIF COMMANDE DATE 03/04/2006 AUTEUR MCOURTOI M.COURTOIS
# 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.
+# COPYRIGHT (C) 1991 - 2002 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 GNICOLAS G.NICOLAS
-
-from Macro.macr_adap_mail_ops import macr_adap_mail_ops
+from Macro.lire_table_ops import lire_table_ops
-def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
-#
+LIRE_TABLE=MACRO(nom="LIRE_TABLE",op=lire_table_ops,sd_prod=table_sdaster,
+ fr="Lecture d'un fichier contenant une table",
+ UIinfo={"groupes":("Table",)},
+ UNITE =SIMP(statut='o',typ='I' ),
+ FORMAT =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
+ NUME_TABLE =SIMP(statut='f',typ='I',defaut=1),
+ SEPARATEUR =SIMP(statut='f',typ='TXM',defaut=' '),
+ PARA =SIMP(statut='f',typ='TXM',max='**'),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ ) ;
+
+#& MODIF COMMANDE DATE 13/02/2006 AUTEUR DURAND C.DURAND
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2005 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.
+# ======================================================================
+# ======================================================================
+
+MAC_MODES=OPER(nom="MAC_MODES",op= 141,sd_prod=table_sdaster,
+ fr="Normalisation de modes propres",
+ reentrant='n',
+ UIinfo={"groupes":("Résolution",)},
+ BASE_1 =SIMP(statut='o',typ=(mode_meca,mode_flamb,base_modale) ),
+ BASE_2 =SIMP(statut='o',typ=(mode_meca,mode_flamb,base_modale) ),
+ MATR_ASSE =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
+) ;
+#& MODIF COMMANDE DATE 02/06/2006 AUTEUR MCOURTOI M.COURTOIS
+# 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 GNICOLAS G.NICOLAS
+
+
+from Macro.macr_adap_mail_ops import macr_adap_mail_ops
+
+def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
+#
# 0. Typage des structures produites
#
maillage_np1=args['MAILLAGE_NP1']
# . Raffinement et deraffinement, selon un champ d'indicateurs d'erreur
# . Raffinement seul, selon un champ d'indicateurs d'erreur
# . Deraffinement seul, selon un champ d'indicateurs d'erreur
+# . Raffinement seul, selon des zones geometriques
# . Raffinement uniforme : toutes les mailles sont divisées
# . Deraffinement uniforme : toutes les mailles sont regroupées
# . Rien : le maillage est le meme a la sortie et a l'entree
#
- ADAPTATION = SIMP(statut='f',typ='TXM',
+ ADAPTATION = SIMP(statut='o',typ='TXM',
into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT","RAFFINEMENT_ZONE", \
"RAFFINEMENT_UNIFORME","DERAFFINEMENT_UNIFORME","RIEN"),
fr="Pilotage de l'adaptation : selon un indicateur d'erreur ou uniforme.",
fr="Resultat contenant le champ à mettre à jour",
ang="Result with field to be updated" ),
#
- NOM_CHAM = SIMP(statut='f',typ='TXM',
- fr="Nom du champ à mettre à jour",
- ang="Name of the field to be updated" ),
+ b_nom_du_champ = BLOC(condition="(RESULTAT != None)",
+ fr="Choix éventuel du nom du champ à interpoler",
+ ang="Selection for the name of the field (option)",
+#
+ NOM_CHAM = SIMP(statut='o',typ='TXM',
+ fr="Nom du champ à mettre à jour",
+ ang="Name of the field to be updated" ),
+#
+ ),
#
# 11.4. Le paramètre temporel pour le champ a interpoler
#
b_parametre_temporel = BLOC(condition="(RESULTAT != None)",
- fr="Choix éventuel du paramètre temporel pour l'indicateur",
- ang="Time selection for error indicator (option)",
+ fr="Choix éventuel du paramètre temporel pour le champ à interpoler",
+ ang="Time selection for the field (option)",
#
regles=(EXCLUS('NUME_ORDRE','INST'),),
#
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
-# ======================================================================
-# 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.
-# ======================================================================
-MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op= 81,sd_prod=macr_elem_dyna,
- fr="Définition d'un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
- reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
- BASE_MODALE =SIMP(statut='o',typ=base_modale ),
- MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r ),
- MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
- MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
- AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
- OPTION =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
- "DIAG_MASS") ),
-) ;
-#& 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.
-# ======================================================================
-MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,reentrant='f',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- fr="Définition d'un macro-élément pour l'analyse statique par sous-structuration",
- regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
- ENSEMBLE('DEFINITION','EXTERIEUR'),),
- DEFINITION =FACT(statut='f',
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='f',typ=cham_mater),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- CHAR_MACR_ELEM =SIMP(statut='f',typ=char_meca),
- INST =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
- NMAX_CAS =SIMP(statut='f',typ='I',defaut=10),
- NMAX_CHAR =SIMP(statut='f',typ='I',defaut=10),
- ),
- EXTERIEUR =FACT(statut='f',
- regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- ),
- RIGI_MECA =FACT(statut='f',
- ),
- MASS_MECA =FACT(statut='f',
- ),
- CAS_CHARGE =FACT(statut='f',max='**',
- NOM_CAS =SIMP(statut='o',typ='TXM'),
- SUIV =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
- CHARGE =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
- INST =SIMP(statut='f',typ='R',defaut=0.E+0),
- ),
-) ;
-#& MODIF COMMANDE DATE 16/06/2004 AUTEUR DURAND C.DURAND
+#& MODIF COMMANDE DATE 07/10/2005 AUTEUR CIBHHPD L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2004 EDF R&D WWW.CODE-ASTER.ORG
+# COPYRIGHT (C) 1991 - 2003 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
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-# RESPONSABLE D6BHHAM A.M.DONORE
-#
-IMPR_OAR =PROC(nom="IMPR_OAR",op= 40,
- fr="Impression au format OAR",
- UIinfo={"groupes":("Impression",)},
- CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
- MAILLAGE =SIMP(statut='o',typ=maillage_sdaster ),
- MODELE =SIMP(statut='o',typ=modele_sdaster ),
- MAILLE =SIMP(statut='o',typ=ma ,validators=NoRepeat(),max=2 ),
- NOEUD =SIMP(statut='o',typ=no ,validators=NoRepeat() ),
-
- CHARGE =FACT(statut='o',max='**',
- NUM_CHAR =SIMP(statut='o',typ='I'),
- TEMP_NOEUD =SIMP(statut='f',typ='R',defaut=20.),
- TYPE =SIMP(statut='f',typ='TXM',defaut="DILA",
- into=("POIDS","DILA","SEISME","DEPL","EFFO","STRATIF","CONDITIONNEL","COMBINAISON") ),
- NATURE =SIMP(statut='f',typ='TXM',defaut="PRIMAIRE",
- into=("PRIMAIRE","SECONDAIRE","TOTAL") ),
- SIGNE =SIMP(statut='f',typ='TXM',defaut="S",
- into=("S","NS") ),
- RESULTAT =SIMP(statut='o',typ=resultat_sdaster),# CO() sd a creer !!!
- ),
+from Macro.macr_cabri_calc_ops import macr_cabri_calc_ops
+
+def macr_cabri_calc_prod(self,MODELE_THER,MODELE_MECA,CHAM_MATER,
+ CHAR_THER,CHAR_MECA,RESU_THER,**args):
+ if MODELE_THER != None:
+ self.type_sdprod(MODELE_THER,modele_sdaster)
+ if MODELE_MECA != None:
+ self.type_sdprod(MODELE_MECA,modele_sdaster)
+ if RESU_THER != None:
+ self.type_sdprod(RESU_THER,evol_ther)
+ if CHAM_MATER != None:
+ self.type_sdprod(CHAM_MATER,cham_mater)
+ if CHAR_THER != None:
+ for m in CHAR_THER:
+ self.type_sdprod(m['CHARGE'],char_ther)
+ if CHAR_MECA != None:
+ for m in CHAR_MECA:
+ self.type_sdprod(m['CHARGE'],char_meca)
+ return evol_noli
- UNITE =SIMP(statut='f',typ='I',defaut=38),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
-) ;
-#& MODIF COMMANDE DATE 25/04/2006 AUTEUR CIBHHPD L.SALMONA
-# 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.
-# ======================================================================
+MACR_CABRI_CALC=MACRO(nom="MACR_CABRI_CALC",
+ op=macr_cabri_calc_ops,
+ sd_prod=macr_cabri_calc_prod,
+ fr="Calcul thermo-mécanique d'une jonction boulonnée de tuyauterie",
+ reentrant='n',
+ UIinfo={"groupes":("Outils métier",)},
+ MAILLAGE = SIMP(statut='o',typ=maillage_sdaster,),
+ AFFE_MATERIAU = FACT(statut='o',max='**',
+ regles=(UN_PARMI('TOUT','GROUP_MA',),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ GROUP_MA = SIMP(statut='f',typ='TXM',into=(
+ "BRIDE",
+ "GOUJON",
+ "ROND",
+ "ECROU",
+ "JOINT",) ),
+ MATER = SIMP(statut='o',typ=mater_sdaster),
+ TEMP_REF = SIMP(statut='d',typ='R',defaut= 25. ),
+ ),
+ CHAM_MATER = SIMP(statut = 'f',typ=CO,),
+ MODELE_THER= SIMP(statut = 'f',typ=CO,),
+
+ DEFI_CHAR_THER = FACT(statut ='d',
+ TEMP_INIT = SIMP(statut='d',typ='R',defaut= 25.,),
+ COEF_H_FLUI = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
+ TEMP_EXT_FLUI = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
+ COEF_H_AIR = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
+ TEMP_EXT_AIR = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
+ ),
+
+ CHAR_THER = FACT(statut = 'f',max=4,
+ CHARGE = SIMP(statut='o',typ=CO),
+ TYPE = SIMP(statut='o',typ='TXM',
+ into=("BRIDE_FLUIDE","BRIDE_AIR","ECROU_GOUJON",
+ "BRIDE_JOINT"),)
+ ),
-DEFI_FISS_XFEM=OPER(nom="DEFI_FISS_XFEM",op= 41,sd_prod=fiss_xfem,reentrant='n',
- UIinfo={"groupes":("Modélisation",)},
- fr="Définition des caratéristiques d'une fissure avec X-FEM",
+ RESU_THER = SIMP(statut = 'f',typ=CO,),
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- DEFI_FISS =FACT(statut='o',max=01,
- regles =(UN_PARMI('GROUP_MA_FISS','FONC_LT'),
- ENSEMBLE('FONC_LT','FONC_LN'),
- ENSEMBLE('GROUP_MA_FISS','GROUP_MA_FOND')),
- FONC_LT =SIMP(statut='f',typ=(fonction_sdaster,formule) ),
- FONC_LN =SIMP(statut='f',typ=(fonction_sdaster,formule) ),
- GROUP_MA_FISS =SIMP(statut='f',typ=grma,max=01),
- GROUP_MA_FOND =SIMP(statut='f',typ=grma),
- ),
- GROUP_MA_ENRI =SIMP(statut='o',typ=grma,max=01),
- RAYON_ENRI =SIMP(statut='f',typ='R',defaut=0.E+0),
- ORIE_FOND =FACT(statut='f',max=01,
- PFON_INI =SIMP(statut='o',typ='R',max=03),
- VECT_ORIE =SIMP(statut='o',typ='R',max=03),
- PT_ORIGIN =SIMP(statut='o',typ='R',max=03),
- ),
- CONTACT =FACT(statut='f',max=01,
- NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",) ),
- FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
- 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),
- MODL_AXIS =SIMP(statut='f',typ='TXM',into=("NON",)),
- ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
- 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),
- b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramères du frottement de Coulomb",
- COULOMB =SIMP(statut='o',typ='R',),
- 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),),
- ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,3,) ),
-) ;
-#& MODIF COMMANDE DATE 22/05/2006 AUTEUR MCOURTOI M.COURTOIS
-# 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 GNICOLAS G.NICOLAS
+
+ MODELE_MECA= SIMP(statut = 'f',typ=CO,),
-from Macro.macr_adap_mail_ops import macr_adap_mail_ops
+ DEFI_CHAR_MECA = FACT(statut='o',
+ PRETENS = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
+ PRES_REP = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
+ EFFE_FOND = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
+ ),
-MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=macr_adap_mail_ops,
- docu="U7.03.02-b",UIinfo={"groupe":("Maillage",)},
- fr="Donner des informations sur un maillage.",
- ang="To give information about a mesh.",
-#
-# 1. Le niveau d'information
-#
- INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
-#
-# 2. Version de HOMARD
-#
- VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V8_2",
- into=("V8_2", "V8_N", "V8_N_PERSO"),
- fr="Version de HOMARD",
- ang="HOMARD release"),
-#
-# 3. Langue des messages issus de HOMARD
-#
- LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
- into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
- fr="Langue des messages issus de HOMARD.",
- ang="Language for HOMARD messages." ),
-#
-# 4. Le nom du maillage a analyser
-#
- MAILLAGE = SIMP(statut='o',typ=maillage_sdaster,
- fr="Maillage à analyser.",
- ang="Mesh to be checked." ),
-#
-# 5. Suivi d'une frontiere
-#
- MAILLAGE_FRONTIERE = SIMP(statut='f',typ=maillage_sdaster,
- fr="Maillage de la frontiere à suivre",
- ang="Boundary mesh" ),
-#
- b_frontiere = BLOC( condition = " MAILLAGE_FRONTIERE != None " ,
- fr="Information complémentaire sur la frontière",
- ang="Further information about boundary",
-#
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
- fr="Groupes de mailles définissant la frontière",
- ang="Mesh groups which define the boundary" ),
-#
- ) ,
-#
-# 6. Les options ; par defaut, on controle tout
-# 6.1. Nombre de noeuds et elements
-#
- NOMBRE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
- fr="Nombre de noeuds et éléments du maillage",
- ang="Number of nodes and elements in the mesh" ),
-#
-# 6.2. Determination de la qualite des elements du maillage
-#
- QUALITE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
- fr="Qualité du maillage",
- ang="Mesh quality" ),
-#
-# 6.3. Connexite du maillage
-#
- CONNEXITE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
- fr="Connexité du maillage.",
- ang="Mesh connexity." ),
-#
-# 6.4. Taille des sous-domaines du maillage
-#
- TAILLE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
- fr="Tailles des sous-domaines du maillage.",
- ang="Sizes of mesh sub-domains." ),
-#
-# 6.5. Controle de la non-interpenetration des elements
-#
- INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
- fr="Controle de la non interpénétration des éléments.",
- ang="Overlapping checking." ),
-#
-# 7. Gestion des éléments autres que ceux compatibles avec HOMARD
-# "REFUSER" : ils sont refuses (defaut)
-# "IGNORER" : ils sont ignorés
-#
- ELEMENTS_NON_HOMARD = SIMP(statut='f',typ='TXM',defaut="REFUSER",into=("REFUSER","IGNORER"),
- fr="Acceptation d'éléments incompatibles avec HOMARD",
- ang="Incompatible elements for HOMARD" ),
-) ;
-#& MODIF COMMANDE DATE 16/05/2006 AUTEUR REZETTE C.REZETTE
+ CHAR_MECA = FACT(statut = 'f',max=11,
+ CHARGE = SIMP(statut='o',typ=CO),
+ TYPE = SIMP(statut='o',typ='TXM',
+ into=("BLOC_BAS_GOUJ","BLOC_BAS_JOINT",
+ "BLOC_LAT_ALES","BLOC_LAT_NALES",
+ "PLAN_TUBE",
+ "PRES_FLU","EFFET_FOND",
+ "CONT_JOINT",
+ "DEFO_THER",
+ "SERR_ECROU_1","SERR_ECROU_2",),)
+ ),
+
+ RELATION = SIMP(statut='f',typ='TXM',
+ into=('VMIS_ISOT_TRAC','ELAS','ELAS_VMIS_TRAC',),),
+
+ SOLVEUR = FACT(statut='d',
+ METHODE = SIMP(statut='d',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT",) ),
+ b_mult_front = BLOC(condition = "METHODE == 'MULT_FRONT' ",
+ fr="Paramètres de la méthode multi frontale",
+ RENUM = SIMP(statut='d',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
+ NPREC = SIMP(statut='d',typ='I',defaut=8),
+ STOP_SINGULIER = SIMP(statut='d',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ ),
+ ),
+ INCREMENT = FACT(statut='f',
+ regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
+ EXCLUS('NUME_INST_FIN','INST_FIN'),),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
+ into=("CHRONOLOGIQUE",) ),
+ NUME_INST_INIT =SIMP(statut='f',typ='I'),
+ INST_INIT =SIMP(statut='f',typ='R'),
+ NUME_INST_FIN =SIMP(statut='f',typ='I'),
+ INST_FIN =SIMP(statut='f',typ='R'),
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
+ SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
+ SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
+ COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
+ OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',),
+ NOM_CMP =SIMP(statut='f',typ='TXM',),
+ VALE =SIMP(statut='f',typ='R'),
+ ),
+ NEWTON =FACT(statut='d',
+ REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
+ PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL") ),
+ MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
+ PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
+ REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
+ EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
+ ),
+ RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
+ into=("IMPLICITE",)),
+ CONVERGENCE =FACT(statut='d',
+ regles=(PRESENT_ABSENT('RESI_REFE_RELA','RESI_GLOB_MAXI','RESI_GLOB_RELA'),),
+ SIGM_REFE =SIMP(statut='f',typ='R'),
+ EPSI_REFE =SIMP(statut='f',typ='R'),
+ FLUX_THER_REFE =SIMP(statut='f',typ='R'),
+ RESI_REFE_RELA =SIMP(statut='f',typ='R'),
+ RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
+ RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
+ ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
+ ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
+ ),
+ );
+
+#& MODIF COMMANDE DATE 07/02/2005 AUTEUR MABBAS M.ABBAS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 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.
# ======================================================================
-# RESPONSABLE ASSIRE A.ASSIRE
-
-from Macro.calc_precont_ops import calc_precont_ops
-
-
-# ===========================================================================
-# CATALOGUE DE LA MACRO "CALC_PRECONT"
-# -----------------------------------------
-# USAGE :
-#
-#
-# ===========================================================================
-CALC_PRECONT=MACRO(nom="CALC_PRECONT",op=calc_precont_ops,sd_prod=evol_noli,
- fr="Imposer la tension définie par le BPEL dans les cables",
- reentrant='f',UIinfo={"groupe":("Modélisation",)},
- reuse =SIMP(statut='f',typ='evol_noli'),
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='o',typ=cham_mater),
- CARA_ELEM =SIMP(statut='o',typ=cara_elem),
- CABLE_BP =SIMP(statut='o',typ=cabl_precont,validators=NoRepeat(),max='**'),
- CABLE_BP_INACTIF =SIMP(statut='f',typ=cabl_precont,validators=NoRepeat(),max='**'),
- INCREMENT =FACT(statut='o',
- LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
- INST_INIT =SIMP(statut='f',typ='R'),
- INST_FIN =SIMP(statut='f',typ='R'),
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
- SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
- SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
- COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
- ),
+from Macro.macr_cabri_mail_ops import macr_cabri_mail_ops
- NEWTON =FACT(statut='d',
- REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
- PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
- MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
- PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
- REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
- EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
- ),
- RECH_LINEAIRE =FACT(statut='f',
- RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
- ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
- ),
- CONVERGENCE =FACT(statut='d',
- RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
- RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
- ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
- ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
- ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
- ),
- ETAT_INIT =FACT(statut='f',
- 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'),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- NUME_DIDI =SIMP(statut='f',typ='I'),
- INST_ETAT_INIT =SIMP(statut='f',typ='R'),
- ),
- SOLVEUR =FACT(statut='d',
- 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","DECOUPE") ),
- ),
- 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 ),
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- 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),
- ),
- PARM_THETA =SIMP(statut='f',typ='R'
- ,defaut= 1. ),
- INFO =SIMP(statut='f',typ='I',into=(1,2) ),
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
-
- EXCIT =FACT(statut='o',max='**',
- CHARGE =SIMP(statut='o',typ=char_meca),
- ),
+MACR_CABRI_MAIL=MACRO(nom="MACR_CABRI_MAIL",
+ op=macr_cabri_mail_ops,
+ sd_prod=maillage_sdaster,
+ fr="maillage d'une jonction boulonnée de tuyauterie",
+ reentrant='n',
+ UIinfo={"groupes":("Outils métier",)},
+ EXEC_MAILLAGE = FACT(statut='o',
+ LOGICIEL = SIMP(statut = 'o',typ='TXM',into=("GIBI2000",),),
+ UNITE_DATG = SIMP(statut = 'f',typ='I',defaut=70,),
+ UNITE_MGIB = SIMP(statut = 'f',typ='I',defaut=19,),
+ NIVE_GIBI = SIMP(statut = 'f',typ='I',defaut=10,
+ into = (3,4,5,6,7,8,9,10,11),
+ ),
+ ),
+ RAFF_MAILLAGE = FACT(statut = 'd',
+ NB_RADIAL = SIMP(statut = 'f',typ='I',defaut=2,),
+ NB_CIRCONF = SIMP(statut = 'f',typ='I',defaut=3,),
+ NB_VERTICAL = SIMP(statut = 'f',typ='I',defaut=6,),
+ NB_ALESAGE = SIMP(statut = 'f',typ='I',defaut=5,),
+ ),
+ VERI_MAIL = FACT(statut='d',
+ VERIF = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ APLAT = SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ ),
+ GEOM_BRID = FACT(statut = 'o',
+ NORME = SIMP(statut = 'o',typ='TXM',into=("OUI","NON"),),
+ b_bride_iso = BLOC(condition = "NORME == 'OUI'",
+ TYPE = SIMP(statut='o',typ='TXM',
+ into=('A','AA','B','B1','C','D','D1','E','F',
+ 'FF','G','GG','H','H1','I','J','J1',
+ 'K','L','L1','M','N','O','P','S','T','W'),
+ ),
+ ),
+ b_bride_niso = BLOC(condition = "NORME == 'NON'",
+ TUBU_D_EXT = SIMP(statut='o',typ='R',),
+ TUBU_H = SIMP(statut='o',typ='R',),
+ BRID_D_EXT = SIMP(statut='o',typ='R',),
+ BRID_D_INT = SIMP(statut='o',typ='R',),
+ BRID_H = SIMP(statut='o',typ='R',),
+ BRID_D_CONGE = SIMP(statut='o',typ='R',),
+ BRID_R_CONGE = SIMP(statut='o',typ='R',),
+ BRID_D_EPAUL = SIMP(statut='o',typ='R',),
+ BRID_H_EPAUL = SIMP(statut='o',typ='R',),
+ BRID_D_ALESAG = SIMP(statut='o',typ='R',),
+ BRID_P_ALESAG = SIMP(statut='o',typ='R',),
+ BRID_H_ALESAG = SIMP(statut='o',typ='R',),
+ GOUJ_N_GOUJON = SIMP(statut='o',typ='I',),
+ GOUJ_D_GOUJON = SIMP(statut='o',typ='R',),
+ GOUJ_E_FILET = SIMP(statut='o',typ='R',),
+ GOUJ_D_RONDEL = SIMP(statut='o',typ='R',),
+ GOUJ_E_RONDEL = SIMP(statut='o',typ='R',),
+ GOUJ_D_ECROU = SIMP(statut='o',typ='R',),
+ GOUJ_E_ECROU = SIMP(statut='o',typ='R',),
+ ETAN_E_JOINT = SIMP(statut='o',typ='R',),
+ ),
+ ),
+ IMPRESSION = FACT(statut='d',
+ UNITE = SIMP(statut='f',typ='I'),
+ FORMAT = SIMP(statut='f',typ='TXM',defaut="ASTER",
+ into=("ASTER","CASTEM","IDEAS"),
+ ),
+ b_impr_castem = BLOC(condition = "FORMAT == 'CASTEM'",
+ NIVE_GIBI = SIMP(statut='f',typ='I',defaut=10,into=(3,10),),
+ ),
+ b_impr_ideas = BLOC(condition = "FORMAT == 'IDEAS'",
+ VERSION = SIMP(statut='f',typ='I',defaut=5,into=(4,5),),
+ ),
+ ),
+ );
- COMP_INCR =C_COMP_INCR(),
- ) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& 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
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
+# RESPONSABLE JMBHH01 J.M.PROIX
-DEFI_CABLE_OP=OPER(nom="DEFI_CABLE_OP",op= 180,sd_prod=cabl_precont,reentrant='n',
- fr="Définit les profils initiaux de tension d'une structure en béton le long des cables de précontrainte"
- +" (utilisée par la macro DEFI_CABLE_BP)",
- UIinfo={"groupes":("Modélisation",)},
- MODELE =SIMP(statut='o',typ=modele_sdaster ),
- CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
- CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
- GROUP_MA_BETON =SIMP(statut='o',typ=grma,max='**'),
- DEFI_CABLE =FACT(statut='o',max='**',
- regles=(UN_PARMI('MAILLE','GROUP_MA'),
- UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
- MAILLE =SIMP(statut='f',typ=ma,min=2,validators=NoRepeat(),max='**'),
- GROUP_MA =SIMP(statut='f',typ=grma),
- NOEUD_ANCRAGE =SIMP(statut='f',typ=no ,validators=NoRepeat(),max=2),
- GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,validators=NoRepeat(),max=2),
- GROUP_NO_FUT =SIMP(statut='f',typ=grno,validators=NoRepeat(),max=2),
- ),
- TYPE_ANCRAGE =SIMP(statut='o',typ='TXM',min=2,max=2,into=("ACTIF","PASSIF") ),
- TENSION_INIT =SIMP(statut='o',typ='R',val_min=0.E+0 ),
- RECUL_ANCRAGE =SIMP(statut='o',typ='R',val_min=0.E+0 ),
- RELAXATION =FACT(statut='f',min=0,
- R_J =SIMP(statut='o',typ='R',val_min=0.E+0 ),
- ),
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
- CONE =FACT(statut='f',min=0,
- RAYON =SIMP(statut='o',typ='R',val_min=0.E+0 ),
- LONGUEUR =SIMP(statut='o',typ='R',val_min=0.E+0, defaut=0.E+0 ),
- PRESENT =SIMP(statut='o',typ='TXM',min=2,max=2,into=("OUI","NON") ),
- ),
-) ;
-#& MODIF COMMANDE DATE 04/04/2006 AUTEUR CIBHHLV 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.
-#
-# 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 G8BHHXD X.DESROCHES
-
-from Macro.macro_elas_mult_ops import macro_elas_mult_ops
+from Macro.macr_cara_poutre_ops import macr_cara_poutre_ops
-def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
- if isinstance(NUME_DDL,CO) :
- self.type_sdprod(NUME_DDL,nume_ddl_sdaster)
- else:
- self.type_sdprod(NUME_DDL,NUME_DDL.__class__)
- if CAS_CHARGE[0]['NOM_CAS'] != None : return mult_elas
- if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
- raise AsException("type de concept resultat non prevu")
+MACR_CARA_POUTRE=MACRO(nom="MACR_CARA_POUTRE",op=macr_cara_poutre_ops,sd_prod=table_sdaster,
+ reentrant='n',
+ UIinfo={"groupes":("Modélisation",)},
+ fr="Calculer les caractéristiques d'une section transversale de poutre à partir d'un maillage 2D de la section",
+ regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
+ EXCLUS('SYME_Y','GROUP_MA_BORD'),),
+
+ UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 20 ),
+ ORIG_INER =SIMP(statut='f',typ='R',max=3,defaut=(0.E+0,0.E+0),
+ fr="Point par rapport auquel sont calculées les inerties"),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+
+ SYME_X =SIMP(statut='f',typ='TXM',into=("OUI",),fr="demi maillage par rapport a x=0"),
+ SYME_Y =SIMP(statut='f',typ='TXM',into=("OUI",),fr="demi maillage par rapport a y=0"),
+
+ GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
+ fr="Calcul des caractéristiques équivalentes a plusieurs sections disjointes"),
+
+ GROUP_MA_BORD =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
+ fr="Groupe(s) de mailles linéiques, bord(s) de(s) section(s)"),
+
+ b_gma_bord = BLOC( condition = "GROUP_MA_BORD != None",
+ fr=" calcul des carac. mecaniques",
-MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=macro_elas_mult_ops,sd_prod=macro_elas_mult_prod,reentrant='f',
- UIinfo={"groupes":("Résolution",)},
- fr="Calculer les réponses statiques linéaires pour différents cas de charges ou modes de Fourier",
- regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='f',typ=cham_mater),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- NUME_DDL =SIMP(statut='f',typ=(nume_ddl_sdaster,CO)),
- CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
- CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
- LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
- CAS_CHARGE =FACT(statut='o',max='**',
- regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
- UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
- NOM_CAS =SIMP(statut='f',typ='TXM' ),
- MODE_FOURIER =SIMP(statut='f',typ='I' ),
- TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
- CHAR_MECA =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
- CHAR_CINE =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
- OPTION =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
- into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
- "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
- "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
- "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
- "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
- "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERZ1_ELEM_SIGM","SIGM_NOZ2_ELGA",
- "ERZ2_ELEM_SIGM","VNOR_ELEM_DEPL","ERRE_ELNO_ELEM","SIRE_ELNO_DEPL",
- "ERRE_ELEM_SIGM","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
- "QIRE_ELEM_SIGM","QIRE_ELNO_ELEM","QIZ1_ELEM_SIGM","QIZ2_ELEM_SIGM",
- "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
- "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
- NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
- NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
- SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
- VECT_ASSE =SIMP(statut='f',typ=cham_no_sdaster),
- ),
- SOLVEUR =FACT(statut='d',
- METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
- 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") ),
- ),
- ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
- TITRE =SIMP(statut='f',typ='TXM',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"),
+ ),
+
+ b_reseau = BLOC( condition ="""(GROUP_MA_BORD != None) and (GROUP_MA != None)""",
+ fr=" calcul des coef de cisaillement équivalents a un reseau de poutres",
+ regles=(ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
+ LONGUEUR =SIMP(statut='f',typ='R',fr="Longueur du réseau de poutres"),
+ MATERIAU =SIMP(statut='f',typ=mater_sdaster,fr="Materiau elastique lineaire du reseau"),
+ LIAISON =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT"),
+ fr="type de conditions aux limites sur le plancher supérieur" ),
+ ),
+ )
#& 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
+# 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
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-# RESPONSABLE D6BHHJP J.P.LEFEBVRE
-def DEFIC_prod(self,ACTION,UNITE,**args):
- if ACTION == "ASSOCIER" or ACTION == "RESERVER":
- if UNITE != None :
- return
- else :
- return entier
- elif ACTION == "LIBERER" :
- return
- else :
- raise AsException("ACTION non prevue : %s" % ACTION)
-
-DEFI_FICHIER=MACRO(nom="DEFI_FICHIER",op=ops.build_DEFI_FICHIER,sd_prod=DEFIC_prod,reentrant='n',
- UIinfo={"groupes":("Gestion du travail",)},
- fr="Ouvre ou ferme un fichier associé à un numéro d'unité logique",
- ACTION =SIMP(statut='f',typ='TXM',into=("ASSOCIER","LIBERER","RESERVER"),defaut="ASSOCIER"),
- b_associer =BLOC(condition = "ACTION == 'ASSOCIER'",
- fr="Paramètres pour l'ouverture du fichier",
- regles=(AU_MOINS_UN('FICHIER','UNITE'),),
- UNITE =SIMP(statut='f',typ='I' ,val_min=1),
- FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,255)),
- TYPE =SIMP(statut='f',typ='TXM',into=("ASCII","BINARY","LIBRE"),defaut="ASCII"),
+from Macro.macr_ecla_pg_ops import macr_ecla_pg_ops
- b_type_ascii =BLOC(condition = "TYPE == 'ASCII'",fr="Paramètres pour le type ASCII",
- ACCES =SIMP(statut='f',typ='TXM',into=("NEW","APPEND","OLD"),defaut="NEW"),
- ),
- b_type_autre =BLOC(condition = "TYPE != 'ASCII'",fr="Paramètres pour les types BINARY et LIBRE",
- ACCES =SIMP(statut='f',typ='TXM',into=("NEW","OLD"),defaut="NEW"),
- ),
- ),
+def macr_ecla_pg_prod(self,RESULTAT,MAILLAGE,RESU_INIT,**args):
+ self.type_sdprod(RESULTAT,AsType(RESU_INIT))
+ self.type_sdprod(MAILLAGE,maillage_sdaster)
+ return None
- b_reserver =BLOC(condition = "ACTION == 'RESERVER'",
- fr="Paramètres pour la réservation de l'unité du fichier",
- regles=(AU_MOINS_UN('FICHIER','UNITE'),),
- UNITE =SIMP(statut='f',typ='I' ,val_min=1),
- FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,255)),
- TYPE =SIMP(statut='f',typ='TXM',into=("ASCII",),defaut="ASCII"),
- ACCES =SIMP(statut='f',typ='TXM',into=("APPEND",),defaut="APPEND"),
- ),
- b_liberer =BLOC(condition = "ACTION == 'LIBERER'",
- fr="Paramètres pour la fermeture du fichier",
- regles=(UN_PARMI('FICHIER','UNITE'),),
- UNITE =SIMP(statut='f',typ='I' ,val_min=1),
- FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,255)),
- ),
+MACR_ECLA_PG=MACRO(nom="MACR_ECLA_PG",op=macr_ecla_pg_ops,sd_prod=macr_ecla_pg_prod, reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ fr="Permettre la visualisation des champs aux points de Gauss d'une SD_RESULTAT sans lissage ni interpolation",
+
- INFO =SIMP(statut='f',typ='I',into=(1,2) ),
- )
-#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
+ # SD résultat ,modèle et champs à "éclater" :
+ RESU_INIT =SIMP(statut='o',typ=resultat_sdaster,fr="RESULTAT à éclater",),
+ MODELE_INIT =SIMP(statut='o',typ=modele_sdaster,fr="MODELE à éclater"),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
+ into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
+
+ # paramètres numériques de la commande :
+ SHRINK =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
+ TAILLE_MIN =SIMP(statut='f',typ='R',defaut= 0.0, fr="Taille minimale d'un coté" ),
+
+ # concepts produits par la commande :
+ RESULTAT =SIMP(statut='o',typ=CO,fr="SD_RESULTAT résultat de la commande"),
+ MAILLAGE =SIMP(statut='o',typ=CO,fr="MAILLAGE associé aux cham_no de la SD_RESULTAT"),
+
+ # Sélection éventuelle d'un sous-ensemble des éléments à visualiser :
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+
+ # Sélection des numéros d'ordre :
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
+ )
+#& 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.
# ======================================================================
-
-from Macro.macro_matr_ajou_ops import macro_matr_ajou_ops
-
-def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
- self.type_sdprod(MATR_AMOR_AJOU,matr_asse_gene_r)
- self.type_sdprod(MATR_MASS_AJOU,matr_asse_gene_r)
- self.type_sdprod(MATR_RIGI_AJOU,matr_asse_gene_r)
- if FORC_AJOU != None:
- for m in FORC_AJOU:
- self.type_sdprod(m['VECTEUR'],vect_asse_gene)
-
- return None
-
-MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=macro_matr_ajou_ops,sd_prod=macro_matr_ajou_prod,
+MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op= 81,sd_prod=macr_elem_dyna,
+ fr="Définition d'un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
+ reentrant='n',
UIinfo={"groupes":("Matrices/vecteurs",)},
- fr="Calculer de facon plus condensée qu'avec CALC_MATR_AJOU des matrices de masse, d'amortissement"
- +" ou de rigidité ajoutés",
- regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
- AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
- EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
- EXCLUS('MONO_APPUI','MODE_STAT',),
- ),
- MAILLAGE =SIMP(statut='o',typ=maillage_sdaster),
- GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
- GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
- MODELISATION =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
- FLUIDE =FACT(statut='o',max='**',
- RHO =SIMP(statut='o',typ='R'),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
- GROUP_MA =SIMP(statut='f',typ=grma),
- MAILLE =SIMP(statut='f',typ=ma),
- ),
- DDL_IMPO =FACT(statut='o',max='**',
- regles=(UN_PARMI('NOEUD','GROUP_NO'),
- UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
- NOEUD =SIMP(statut='f',typ=no),
- GROUP_NO =SIMP(statut='f',typ=grno),
- PRES_FLUIDE =SIMP(statut='f',typ='R'),
- PRES_SORTIE =SIMP(statut='f',typ='R'),
- ),
- ECOULEMENT =FACT(statut='f',
- GROUP_MA_1 =SIMP(statut='o',typ=grma),
- GROUP_MA_2 =SIMP(statut='o',typ=grma),
- VNOR_1 =SIMP(statut='o',typ='R'),
- VNOR_2 =SIMP(statut='f',typ='R'),
- POTENTIEL =SIMP(statut='f',typ=evol_ther),
- ),
- MODE_MECA =SIMP(statut='f',typ=mode_meca),
- DEPL_IMPO =SIMP(statut='f',typ=cham_no_sdaster),
- MODELE_GENE =SIMP(statut='f',typ=modele_gene),
- NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene),
- DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.0E-2),
- MATR_MASS_AJOU =SIMP(statut='f',typ=CO,),
- MATR_RIGI_AJOU =SIMP(statut='f',typ=CO,),
- MATR_AMOR_AJOU =SIMP(statut='f',typ=CO,),
- MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",),),
- MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
- FORC_AJOU =FACT(statut='f',max='**',
- DIRECTION =SIMP(statut='o',typ='R',max=3),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- VECTEUR =SIMP(statut='o',typ=CO),
- ),
- SOLVEUR =FACT(statut='d',
- 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 iversibilité 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 ),
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- ),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
- NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
- AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
-)
-#& MODIF COMMANDE DATE 16/05/2006 AUTEUR REZETTE C.REZETTE
+ regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
+ BASE_MODALE =SIMP(statut='o',typ=base_modale ),
+ MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r ),
+ MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
+ MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
+ AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
+ OPTION =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
+ "DIAG_MASS") ),
+) ;
+#& 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.
+# 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.
-# ======================================================================
-
-from Macro.macro_matr_asse_ops import macro_matr_asse_ops
-
-def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
- if not MATR_ASSE: raise AsException("Impossible de typer les concepts resultats")
- if not NUME_DDL : raise AsException("Impossible de typer les concepts resultats")
- if isinstance(NUME_DDL,CO) :
- self.type_sdprod(NUME_DDL,nume_ddl_sdaster)
- else:
- self.type_sdprod(NUME_DDL,NUME_DDL.__class__)
- for m in MATR_ASSE:
- opti=m['OPTION']
-
- if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
- "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
- "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
- "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
-
- if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
-
- if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
- "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
-
- if opti == "RIGI_MECA_HYST" : t= matr_asse_depl_c
-
- self.type_sdprod(m['MATRICE'],t)
- return None
-
-MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,
- UIinfo={"groupes":("Matrices/vecteurs",)},
- sd_prod=macro_matr_asse_prod,
- fr="Calcul des matrices assemblées (rigidité, masse, amortissement,...) ",
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='f',typ=cham_mater),
- INST =SIMP(statut='f',typ='R',defaut=0.),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**'),
- NUME_DDL =SIMP(statut='o',typ=(nume_ddl_sdaster,CO)),
- SOLVEUR =FACT(statut='d',
- METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
- into=("LDLT","MULT_FRONT","GCPC","MUMPS")),
- RENUM =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
- ),
-
- MATR_ASSE =FACT(statut='o',max='**',
- MATRICE =SIMP(statut='o',typ=CO),
- OPTION =SIMP(statut='o',typ='TXM',
- into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
- "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
- "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
- "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
- "RIGI_THER","MASS_THER",
- "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
- "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
- ),
-
- b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
- MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0),
- ),
-
- b_rigi_geom = BLOC( condition = "OPTION=='RIGI_GEOM'",
- SIEF_ELGA =SIMP(statut='o',typ=cham_elem),
- MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0),
- ),
-
- b_rigi_meca_lagr = BLOC( condition = "OPTION=='RIGI_MECA_LAGR'",
- THETA =SIMP(statut='o',typ=theta_geom),
- PROPAGATION =SIMP(statut='f',typ='R'),
- ),
-
- b_rigi_ther = BLOC( condition = "OPTION=='RIGI_THER'",
- MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0),
- ),
-
- ), # fin MATR_ASSE
-
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
-) ;
-#& MODIF COMMANDE DATE 20/03/2006 AUTEUR ACBHHCD G.DEVESA
-# 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.
+# 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.
# ======================================================================
-
-from Macro.macro_miss_3d_ops import macro_miss_3d_ops
-
-MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,
- fr="Préparation des données puis exécution du logiciel MISS3D",
+MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,reentrant='f',
UIinfo={"groupes":("Matrices/vecteurs",)},
- OPTION =FACT(statut='o',
- regles=(UN_PARMI('TOUT','MODULE'),),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
- MODULE =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
- ),
- PROJET =SIMP(statut='o',typ='TXM'),
- REPERTOIRE =SIMP(statut='f',typ='TXM'),
- VERSION =SIMP(statut='f',typ='TXM',into=("V1_2","V1_3",),defaut="V1_2"),
- UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
- UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
- UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
- UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
- UNITE_RESU_FORC =SIMP(statut='f',typ='I',defaut=0),
- PARAMETRE =FACT(statut='f',
- regles=(PRESENT_PRESENT('FREQ_MIN','FREQ_MAX','FREQ_PAS'),
- PRESENT_PRESENT('CONTR_NB','CONTR_LISTE'),
- PRESENT_PRESENT('LFREQ_NB','LFREQ_LISTE'),
- PRESENT_PRESENT('OFFSET_MAX','OFFSET_NB'),
- PRESENT_PRESENT('SPEC_MAX','SPEC_NB'),),
- FREQ_MIN =SIMP(statut='f',typ='R'),
- FREQ_MAX =SIMP(statut='f',typ='R'),
- FREQ_PAS =SIMP(statut='f',typ='R'),
- Z0 =SIMP(statut='f',typ='R'),
- SURF =SIMP(statut='f',typ='TXM',into=("OUI","NON",),defaut="NON"),
- RFIC =SIMP(statut='f',typ='R'),
- FICH_RESU_IMPE =SIMP(statut='f',typ='TXM'),
- FICH_RESU_FORC =SIMP(statut='f',typ='TXM'),
- DREF =SIMP(statut='f',typ='R'),
- ALGO =SIMP(statut='f',typ='TXM',into=("DEPL","REGU")),
- OFFSET_MAX =SIMP(statut='f',typ='R'),
- OFFSET_NB =SIMP(statut='f',typ='I'),
- SPEC_MAX =SIMP(statut='f',typ='R'),
- SPEC_NB =SIMP(statut='f',typ='I'),
- ISSF =SIMP(statut='f',typ='TXM',into=("OUI","NON",),defaut="NON"),
- FICH_POST_TRAI =SIMP(statut='f',typ='TXM'),
- CONTR_NB =SIMP(statut='f',typ='I'),
- CONTR_LISTE =SIMP(statut='f',typ='R',max='**'),
- LFREQ_NB =SIMP(statut='f',typ='I'),
- LFREQ_LISTE =SIMP(statut='f',typ='R',max='**'),
- ),
-) ;
-#& MODIF COMMANDE DATE 03/01/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.
-# ======================================================================
-
-from Macro.macro_mode_meca_ops import macro_mode_meca_ops
-
-MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=mode_meca,
- reentrant='n',fr="Lancer une succession de calculs de modes propres réels",
- UIinfo={"groupes":("Résolution",)},
- MATR_A =SIMP(statut='o',typ=matr_asse_depl_r ),
- MATR_B =SIMP(statut='o',typ=matr_asse_depl_r ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
-# ce mot cle ne devrait il pas etre dans calc_freq
- METHODE =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
- into=("TRI_DIAG","JACOBI","SORENSEN",) ),
- b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
- PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
- NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
- PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
- NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
- ),
- b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
- PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
- NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
- PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
- NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
- ),
- b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
- PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
- NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
- PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
- ),
- OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",
- into=("MODE_RIGIDE","SANS") ),
- CALC_FREQ =FACT(statut='d',min=0,
- regles=(UN_PARMI('FREQ','FREQ_MAX'),
- PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
- PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
- EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
- FREQ =SIMP(statut='f',typ='R',min=2,validators=NoRepeat(),max='**',val_min=0.E+0 ),
- FREQ_MIN =SIMP(statut='f',typ='R' ),
- FREQ_MAX =SIMP(statut='f',typ='R' ),
- NB_BLOC_FREQ =SIMP(statut='f',typ='I' ),
- DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
- COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
- NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
- NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
- PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
- SEUIL_FREQ =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
- STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
+ fr="Définition d'un macro-élément pour l'analyse statique par sous-structuration",
+ regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
+ ENSEMBLE('DEFINITION','EXTERIEUR'),),
+ DEFINITION =FACT(statut='f',
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ CHAR_MACR_ELEM =SIMP(statut='f',typ=char_meca),
+ INST =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
+ NMAX_CAS =SIMP(statut='f',typ='I',defaut=10),
+ NMAX_CHAR =SIMP(statut='f',typ='I',defaut=10),
),
- VERI_MODE =FACT(statut='d',min=0,
- STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
- STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ EXTERIEUR =FACT(statut='f',
+ regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
),
- NORM_MODE =FACT(statut='o',max='**',
- MASS_INER =SIMP(statut='o',typ=table_sdaster),
- NORME =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
- into=("MASS_GENE","RIGI_GENE","EUCL",
- "EUCL_TRAN","TRAN","TRAN_ROTA") ),
- INFO =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
+ RIGI_MECA =FACT(statut='f',
),
- FILTRE_MODE =FACT(statut='f',
- CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
- into=("MASS_EFFE_UN","MASS_GENE") ),
- SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ MASS_MECA =FACT(statut='f',
),
- IMPRESSION =FACT(statut='d',
- TOUT_PARA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- CUMUL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
- into=("MASS_EFFE_UN","MASS_GENE",) ),
+ CAS_CHARGE =FACT(statut='f',max='**',
+ NOM_CAS =SIMP(statut='o',typ='TXM'),
+ SUIV =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ CHARGE =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
+ INST =SIMP(statut='f',typ='R',defaut=0.E+0),
),
) ;
-#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
+#& 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.
+# 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.
# ======================================================================
+# RESPONSABLE GNICOLAS G.NICOLAS
-from Macro.macro_proj_base_ops import macro_proj_base_ops
-
-def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,PROFIL,**args ):
- if MATR_ASSE_GENE != None:
- for m in MATR_ASSE_GENE:
- self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
- if VECT_ASSE_GENE != None:
- for v in VECT_ASSE_GENE:
- self.type_sdprod(v['VECTEUR'],vect_asse_gene)
- return None
+from Macro.macr_fiab_impr_ops import macr_fiab_impr_ops
-MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,
- regles=(AU_MOINS_UN('MATR_ASSE_GENE','VECT_ASSE_GENE')),
- UIinfo={"groupes":("Matrices/vecteurs",)},
- sd_prod=macro_proj_base_prod,
- fr="Projection des matrices et/ou vecteurs assemblés sur une base (modale ou de RITZ)",
- BASE =SIMP(statut='o',typ=(mode_meca,mode_stat,base_modale,mode_gene) ),
- NB_VECT =SIMP(statut='f',typ='I',defaut= 9999),
- PROFIL =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
- MATR_ASSE_GENE =FACT(statut='f',max='**',
- MATRICE =SIMP(statut='o',typ=CO,),
- regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE',),),
- MATR_ASSE =SIMP(statut='f',typ=matr_asse_depl_r),
- MATR_ASSE_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
- ),
- VECT_ASSE_GENE =FACT(statut='f',max='**',
- VECTEUR =SIMP(statut='o',typ=CO,),
- regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE',),),
- TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
- VECT_ASSE =SIMP(statut='f',typ=cham_no_sdaster),
- VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene),
- ),
- 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
-# ======================================================================
-# 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.
+MACR_FIAB_IMPR=MACRO(nom="MACR_FIAB_IMPR",op=macr_fiab_impr_ops,
+ docu="U7.04.41",UIinfo={"groupe":("Impression",)},
+ fr="Imprimer les valeurs à transmettre au logiciel de fiabilité.",
+ ang="Print values for the fiability software",
#
-# 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.
+# 1. Le niveau d'information
#
-# 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.
-# ======================================================================
-MAJ_CATA=PROC(nom="MAJ_CATA",op=20,
- UIinfo={"groupes":("Gestion du travail",)},
- fr="Compilation des catalogues de commandes et d'éléments",
-
- ELEMENT =FACT(statut='f',),
-
-) ;
-#& 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
-# 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.
+ INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
#
-# 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.
+# 2. Impression de la valeur de la cible
+#
+# 2.1. ==> La table contenant la valeur à imprimer
+#
+ TABLE_CIBLE = SIMP(statut='o',typ=table_sdaster,
+ fr="Table contenant la valeur cible.",
+ ang="Table which includes the target value."),
+#
+# 2.2. ==> Le nom du paramètre associé à la valeur cible dans cette table
+#
+ NOM_PARA_CIBLE = SIMP(statut='o',typ='TXM',
+ fr="Nom du paramètre associé à la valeur cible.",
+ ang="Name of the parameter connected to the target value."),
+#
+# 3. Impressions des valeurs des éventuels gradients
+#
+ GRADIENTS = FACT(statut='f',min=1,max='**',
+#
+# 3.1. ==> La table contenant la valeur à imprimer
+#
+ TABLE = SIMP(statut='o',typ=table_sdaster,
+ fr="Table contenant le gradient.",
+ ang="Table which includes the gradient."),
+#
+# 3.2. ==> Le paramètre sensible
+#
+ PARA_SENSI = SIMP(statut='o',typ=(para_sensi,theta_geom),
+ fr="Paramètre sensible associé au gradient.",
+ ang="Sensitivity parameter connected to the gradient."),
+#
+# 3.3. ==> Le nom du paramètre associé au gradient dans cette table
+#
+ NOM_PARA = SIMP(statut='o',typ='TXM',
+ fr="Nom du paramètre associé au gradient.",
+ ang="Name of the parameter connected to the gradient."),
#
-# 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
-MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
- fr="Résoudre un problème de mécanique statique linéaire",reentrant='f',
- UIinfo={"groupes":("Résolution",)},
- regles=(EXCLUS("INST","LIST_INST"),
- AU_MOINS_UN('CHAM_MATER','CARA_ELEM',),
- CONCEPT_SENSIBLE('ENSEMBLE'),),
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='f',typ=cham_mater,
- fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
- ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem,
- fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
- ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- 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",into=("FIXE",) ),
- ),
- INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- INST_FIN =SIMP(statut='f',typ='R'),
- OPTION =SIMP(statut='f',typ='TXM',into=("SIEF_ELGA_DEPL","SANS"),defaut="SIEF_ELGA_DEPL",max=1,
- fr="seule option : contraintes aux points de Gauss. Utiliser CALC_ELEM pour les autres.",
- ),
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des paramètres de sensibilité.",
- ang="List of sensitivity parameters"),
-
- SOLVEUR =FACT(statut='d',
- METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","FETI","MUMPS") ),
-
- b_feti =BLOC(condition = "METHODE == 'FETI' ",fr="Paramètres de la méthode FETI 1",
- PARTITION =SIMP(statut='o',typ=sd_feti_sdaster),
- RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,val_min=0.),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut=0,val_min=0),
- TYPE_REORTHO_DD =SIMP(statut='f',typ='TXM',defaut="GSM",into=("SANS","GS","GSM","IGSM") ),
- NB_REORTHO_DD =SIMP(statut='f',typ='I',defaut=0,val_min=0),
- NB_REORTHO_INST =SIMP(statut='f',typ='I',defaut=0,val_min=0),
- PRE_COND =SIMP(statut='f',typ='TXM',defaut="LUMPE",into=("LUMPE","SANS") ),
- SCALING =SIMP(statut='f',typ='TXM',defaut="MULT",into=("SANS","MULT") ),
- VERIF_SDFETI =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- TEST_CONTINU =SIMP(statut='f',typ='R',defaut=1.E-8,val_min=0.),
- INFO_FETI =SIMP(statut='f',typ='TXM',defaut='FFFFFFFFFFFFFFFFFFFFFFFF'),
- STOCKAGE_GI =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","CAL") ),
- NB_SD_PROC0 =SIMP(statut='f',typ='I',defaut=0,val_min=0),
- ACCELERATION_SM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- ),
-
- 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' or METHODE == 'FETI' ",
- 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 ),
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
-
- 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')),
- PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
- ),
),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
-) ;
-#& MODIF COMMANDE DATE 10/06/2004 AUTEUR REZETTE C.REZETTE
+#
+);
+#& MODIF COMMANDE DATE 04/10/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.
+# 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.
# ======================================================================
# RESPONSABLE GNICOLAS G.NICOLAS
-MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,
- UIinfo={"groupes":("Fonction",)},
- fr="Mémorisation des noms des concepts dérivés.",
- ang="Memorisation of the names of the sensitive concepts.",
- regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
-
- NOM=FACT(statut='f',max='**',
- regles=(PRESENT_PRESENT('MOT_CLE','VALEUR','MOT_FACT' ),),
-
- NOM_SD=SIMP(statut='o',typ='TXM',
- fr="Nom de la structure de base",
- ang="Name of the basic structure"),
-
- PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
- fr="Nom du paramètre sensible",
- ang="Name of the sensitive parameter"),
-
- NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
- fr="Nom de la structure composée",
- ang="Name of the built structure"),
-
- 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"),
-
- MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
- fr="Liste des mots clés concernés par la dérivation",
- ang="Keyword list involved in derivation"),
-
- VALEUR=SIMP(statut='f',typ='TXM',max='**',
- fr="Liste des objets concernés par la dérivation",
- ang="Object list involved in derivation"),
-
- ),
-
- NOM_ZERO=SIMP(statut='f',typ=fonction_sdaster,
- fr="Nom de la fonction nulle",
- ang="Name of the zero fonction"),
-
- NOM_UN =SIMP(statut='f',typ=fonction_sdaster,
- fr="Nom de la fonction unité",
- ang="Name of the one fonction"),
+from Macro.macr_fiabilite_ops import macr_fiabilite_ops
-) ;
-#& 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.
+#====
+# 1. Le retour : une liste de rééls.
+#====
#
-# 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.
-# ======================================================================
-MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op= 80,sd_prod=mode_cycl,
- fr="Calcul des modes propres d'une structure à répétitivité cyclique à partir"
- +" d'une base de modes propres réels",
- reentrant='n',
- UIinfo={"groupes":("Résolution",)},
- BASE_MODALE =SIMP(statut='o',typ=base_modale ),
- NB_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
- NB_SECTEUR =SIMP(statut='o',typ='I' ),
- LIAISON =FACT(statut='o',
- DROITE =SIMP(statut='o',typ='TXM' ),
- GAUCHE =SIMP(statut='o',typ='TXM' ),
- AXE =SIMP(statut='f',typ='TXM' ),
- ),
- VERI_CYCL =FACT(statut='f',
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
- DIST_REFE =SIMP(statut='f',typ='R' ),
- ),
- CALCUL =FACT(statut='o',
- 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"
- ,into=("PLUS_PETITE","CENTRE","BANDE") ),
- b_centre =BLOC(condition = "OPTION == 'CENTRE'",
- FREQ =SIMP(statut='o',typ='R',),
- ),
- b_bande =BLOC(condition = "OPTION == 'BANDE'",
- FREQ =SIMP(statut='o',typ='R',min=2,validators=NoRepeat(),max=2),
- ),
-# NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
- NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
- PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 100. ),
- PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 50 ),
- ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
-) ;
-#& 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
-# 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.
+def macr_fiabilite_prod ( self , **args ):
+ return listr8_sdaster
#
-# 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.
+#====
+# 2. L'entete
+#====
#
-# 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 mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
- if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
- if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
- if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
- if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
- if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
- raise AsException("type de concept resultat non prevu")
-
-MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op= 44,sd_prod=mode_iter_inv_prod
- ,fr="Calcul des modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
- reentrant='n',
- UIinfo={"groupes":("Résolution",)},
- regles=(CONCEPT_SENSIBLE('ENSEMBLE'),),
- MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
- MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
- MATR_C =SIMP(statut='f',typ=matr_asse_depl_r ),
- TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",
- into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
- b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
- CALC_FREQ =FACT(statut='o',fr="Choix des paramètres pour le calcul des valeurs propres",
-
- OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
- fr="Choix de l option pour estimer les valeurs propres" ),
- FREQ =SIMP(statut='o',typ='R',max='**'),
- AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
- NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
- NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
- PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
- NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
- PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
-
- NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
- NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
- PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
- SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
- ),
- ),
- b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
- CALC_FREQ =FACT(statut='o',fr="Choix des paramètres pour le calcul des valeurs propres",
-
- OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
- fr="Choix de l option pour estimer les valeurs propres" ),
- CHAR_CRIT =SIMP(statut='o',typ='R',validators=NoRepeat(),max='**' ),
- NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
- NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
- PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
- NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
- PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
-
- NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
- NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
- PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
- SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
- ),
- ),
- CALC_MODE =FACT(statut='d',min=0,fr="Choix des paramètres pour le calcul des vecteurs propres",
- OPTION =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
- PREC =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
- ),
- VERI_MODE =FACT(statut='d',min=0,
- STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
- fr="Valeur limite admise pour l ereur a posteriori des modes" ),
- ),
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des param\350tres de sensibilit\351.",
- ang="List of sensitivity parameters",
- ),
- b_sensibilite =BLOC(condition = "SENSIBILITE != None",
- CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
- EXCIT =FACT(statut='f',max='**',), # que pour NMDOME
- ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
- TITRE =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
-) ;
-#& 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
-# 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.
+MACR_FIABILITE = MACRO ( nom="MACR_FIABILITE",op=macr_fiabilite_ops,
+ docu="U7.03.31",UIinfo={"groupe":("Post traitements",)},
+ sd_prod=macr_fiabilite_prod,
+ fr="Calcule les probabiltés de dépassement de seuil (mécanique de fiabilité).",
+ ang="Fiability mechanics.",
#
-# 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.
+#====
+# 3. Le niveau d'information
+#====
#
-# 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 mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
- if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
- if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
- if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
- if AsType(MATR_A) == matr_asse_depl_c : return mode_meca_c
- if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
- if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
- raise AsException("type de concept resultat non prevu")
-
-MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op= 45,sd_prod=mode_iter_simult_prod,
- fr="Calcul des modes propres par itérations simultanées ; valeurs propres et"
- +" modes propres réels ou complexes",
- reentrant='n',
- UIinfo={"groupes":("Résolution",)},
- regles=(CONCEPT_SENSIBLE('ENSEMBLE'),),
- MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_gene_r,matr_asse_pres_r ) ),
- MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
- MATR_C =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
- METHODE =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
- into=("TRI_DIAG","JACOBI","SORENSEN") ),
- b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
- PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
- NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
- PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
- NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
- ),
- b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
- PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
- NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
- PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
- NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
- ),
- b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
- PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
- NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
- PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
- ),
- TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",
- into=("MODE_FLAMB","DYNAMIQUE"),
- fr="Type d analyse" ),
- OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
- fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
-
- b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
- CALC_FREQ =FACT(statut='d',min=0,
- OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
- fr="Choix de l option et par conséquent du shift du problème modal" ),
- b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
- NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
- ),
- b_centre =BLOC(condition = "OPTION == 'CENTRE'",
- fr="Recherche des valeurs propres les plus proches d une valeur donnée",
- CHAR_CRIT =SIMP(statut='o',typ='R',
- fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
- NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
- ),
- b_bande =BLOC(condition = "(OPTION == 'BANDE')",
- fr="Recherche des valeurs propres dans une bande donnée",
- CHAR_CRIT =SIMP(statut='o',typ='R',min=2,validators=NoRepeat(),max=2,
- fr="Valeur des deux charges critiques délimitant la bande de recherche"),
- ),
- APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
- fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
- regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
- DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
- COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
- NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
- NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
- PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
- SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
- ),
- ),
-
- b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
- CALC_FREQ =FACT(statut='d',min=0,
- OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
- fr="Choix de l option et par conséquent du shift du problème modal" ),
- b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
- NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
- ),
- b_centre =BLOC(condition = "OPTION == 'CENTRE'",
- fr="Recherche des valeurs propres les plus proches d une valeur donnée",
- FREQ =SIMP(statut='o',typ='R',
- fr="Fréquence autour de laquelle on cherche les fréquences propres"),
- AMOR_REDUIT =SIMP(statut='f',typ='R',),
- NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
- ),
- b_bande =BLOC(condition = "(OPTION == 'BANDE')",
- fr="Recherche des valeurs propres dans une bande donnée",
- FREQ =SIMP(statut='o',typ='R',min=2,validators=NoRepeat(),max=2,
- fr="Valeur des deux fréquences délimitant la bande de recherche"),
- ),
- APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG","COMPLEXE"),
- fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
- regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
- DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
- COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
- NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
- NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
- PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
- SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
- ),
- ),
-
- VERI_MODE =FACT(statut='d',min=0,
- STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
- SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
- fr="Valeur limite admise pour l ereur a posteriori des modes" ),
- STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- ),
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des param\350tres de sensibilit\351.",
- ang="List of sensitivity parameters",
- ),
- b_sensibilite =BLOC(condition = "SENSIBILITE != None",
- CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
- EXCIT =FACT(statut='f',max='**',), # que pour NMDOME
- ),
- STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
-) ;
-#& 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.
+ INFO = SIMP(statut="f",typ="I",defaut=1,into=(1,2)),
#
-# 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.
+#====
+# 4. Nom et Version du logiciel de fiabilité
+#====
#
-# 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 mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
- if (MODE_STAT != None) : return mode_stat_depl
- if (PSEUDO_MODE !=None) : return mode_stat_acce
- if (FORCE_NODALE != None) : return mode_stat_forc
- raise AsException("type de concept resultat non prevu")
-MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
- fr="Calcul de modes statiques pour un déplacement, une force ou une accélération unitaire imposé",
- reentrant='n',
- UIinfo={"groupes":("Résolution",)},
- MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
- MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
- regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
- MODE_STAT =FACT(statut='f',max='**',
- regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
- UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
- NOEUD =SIMP(statut='f',typ=no ,max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno ,max='**'),
- TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
- AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
- SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
- ),
- FORCE_NODALE =FACT(statut='f',max='**',
- regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
- UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",), ),
- NOEUD =SIMP(statut='f',typ=no ,max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno ,max='**'),
- TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",), ),
- AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
- SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
- ),
- PSEUDO_MODE =FACT(statut='f',max='**',
- regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
- AXE =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
- DIRECTION =SIMP(statut='f',typ='R',min=3,max=3),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
- NOEUD =SIMP(statut='f',typ=no ,max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno ,max='**'),
- b_dir =BLOC(condition = "DIRECTION != None",
- NOM_DIR =SIMP(statut='f',typ='TXM' ),),
- b_cmp =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
- regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
- TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
- SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
- ),
- ),
- 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
-# ======================================================================
-# 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.
+ LOGICIEL = SIMP(statut="f",typ="TXM",defaut="MEFISTO",
+ into=("MEFISTO",),
+ fr="Nom du logiciel de fiabilité.",
+ ang="Fiability software name."),
#
-# 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.
+ VERSION = SIMP(statut="f",typ="TXM",defaut="V3_2",
+ into=("V3_2", "V3_N"),
+ fr="Version du logiciel de fiabilité.",
+ ang="Fiability software release."),
#
-# 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.
-# ======================================================================
-MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
- reentrant='f',
- fr="Définir la base modale d'une structure sous écoulement",
- UIinfo={"groupes":("Matrices/vecteurs",)},
-# la commande modi_base _modale : reentrant = f ou o
- regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
- BASE =SIMP(statut='o',typ=mode_meca ),
- BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu_sdaster ),
- NUME_VITE_FLUI =SIMP(statut='o',typ='I' ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
- AMOR_UNIF =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 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.
+#====
+# 5. Les entrees-sorties du calcul ASTER déterministe
+#====
#
-# 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.
+# 5.1. ==> Le jeu de commandes déterministe
#
-# 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
-MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage_sdaster,
- fr="Effectuer des modifications sur un maillage existant: réorienter des mailles servant,"
- +" à l'application d'une pression, à la modélisation du contact,...",
- reentrant='o',
- UIinfo={"groupes":("Maillage",)},
- regles=(AU_MOINS_UN('ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
- 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',
- 'TRANSLATION','ROTATION','MODI_BASE','ECHELLE','ORIE_SHB8','SYMETRIE',
- ),
- PRESENT_ABSENT('ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
- 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
- PRESENT_ABSENT('DEFORME','ORIE_FISSURE','EQUE_PIQUA','ORIE_PEAU_2D',
- 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
- PRESENT_ABSENT('EQUE_PIQUA','ORIE_FISSURE','DEFORME','ORIE_PEAU_2D',
- 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
- PRESENT_ABSENT('ORIE_PEAU_2D','ORIE_FISSURE','DEFORME','EQUE_PIQUA',
- 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
- PRESENT_ABSENT('ORIE_PEAU_3D','ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
- 'PLAQ_TUBE','MODI_MAILLE',),
- PRESENT_ABSENT('ORIE_NORM_COQUE','ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
- 'PLAQ_TUBE','MODI_MAILLE',),
- PRESENT_ABSENT('PLAQ_TUBE','ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
- 'ORIE_PEAU_3D','ORIE_NORM_COQUE','MODI_MAILLE',),
- PRESENT_ABSENT('MODI_MAILLE','ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
- 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE',),
- EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
- EXCLUS('EQUE_PIQUA','TUBE_COUDE'),
- EXCLUS('ROTATION','MODI_BASE'),
- EXCLUS('SYMETRIE','ROTATION'),
- EXCLUS('SYMETRIE','TRANSLATION'),
- EXCLUS('SYMETRIE','MODI_BASE'),
- EXCLUS('SYMETRIE','ECHELLE'),
- ),
- MAILLAGE =SIMP(statut='o',typ=maillage_sdaster ),
-
- ORIE_FISSURE =FACT(statut='f',
- GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
- ),
-
- DEFORME =FACT(statut='f',
- OPTION =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
- DEPL =SIMP(statut='o',typ=cham_no_sdaster ),
- b_deform =BLOC(condition = "OPTION=='TRAN_APPUI'",
- GROUP_NO_APPUI = SIMP(statut='o',typ=grno,validators=NoRepeat(),max='**' ),
- GROUP_NO_STRU = SIMP(statut='o',typ=grno,validators=NoRepeat(),max='**' ),),
- ),
-
- EQUE_PIQUA =FACT(statut='f',
- GROUP_NO =SIMP(statut='o',typ=grno),
- E_BASE =SIMP(statut='o',typ='R' ),
- DEXT_BASE =SIMP(statut='o',typ='R' ),
- L_BASE =SIMP(statut='o',typ='R' ),
- L_CHANF =SIMP(statut='o',typ='R' ),
- TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
- H_SOUD =SIMP(statut='o',typ='R' ),
- ANGL_SOUD =SIMP(statut='o',typ='R' ),
- JEU_SOUD =SIMP(statut='o',typ='R' ),
- E_CORP =SIMP(statut='o',typ='R' ),
- DEXT_CORP =SIMP(statut='o',typ='R' ),
- AZIMUT =SIMP(statut='o',typ='R' ),
- RAFF_MAIL =SIMP(statut='o',typ='TXM' ),
- X_MAX =SIMP(statut='o',typ='R' ),
- ),
- ORIE_PEAU_2D =FACT(statut='f',max='**',
- GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
- ),
- ORIE_PEAU_3D =FACT(statut='f',max='**',
- GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
- ),
- ORIE_SHB8 =FACT(statut='f',max=1,
- GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
- ),
- ORIE_NORM_COQUE =FACT(statut='f',max='**',
- regles=(EXCLUS('NOEUD','GROUP_NO'),
- PRESENT_PRESENT('NOEUD','VECT_NORM'),
- PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
- GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
- VECT_NORM =SIMP(statut='f',typ='R',max=3),
- NOEUD =SIMP(statut='f',typ=no),
- GROUP_NO =SIMP(statut='f',typ=grno),
- ),
- b_modele =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
- MODELE =SIMP(statut='o',typ=modele_sdaster ),
- ),
- PLAQ_TUBE =FACT(statut='f',
- DEXT =SIMP(statut='o',typ='R' ),
- EPAIS =SIMP(statut='o',typ='R' ),
- L_TUBE_P1 =SIMP(statut='o',typ='R' ),
- AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
- COUTURE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
- ),
- TUBE_COUDE =FACT(statut='f',
- ANGLE =SIMP(statut='o',typ='R' ),
- R_CINTR =SIMP(statut='o',typ='R' ),
- L_TUBE_P1 =SIMP(statut='o',typ='R' ),
- ),
- MODI_MAILLE =FACT(statut='f',max=1,
- regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
- OPTION =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
- GROUP_MA_FOND =SIMP(statut='f',typ=grma,validators=NoRepeat(),max=1),
- MAILLE_FOND =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max=1),
- GROUP_NO_FOND =SIMP(statut='f',typ=grno,validators=NoRepeat(),max=1),
- NOEUD_FOND =SIMP(statut='f',typ=no ,validators=NoRepeat(),max=1),
- ),
- MODI_BASE =FACT(statut='f',
- VECT_X =SIMP(statut='o',typ='R',min=2,max=3),
- VECT_Y =SIMP(statut='f',typ='R',min=2,max=3),
- ),
- ECHELLE =SIMP(statut='f',typ='R',),
- TRANSLATION =SIMP(statut='f',typ='R',min=2,max=3),
- ROTATION =FACT(statut='f',max='**',
- POIN_1 =SIMP(statut='o',typ='R',min=2,max=3),
- ANGL =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
- regles=(EXCLUS('DIR','POIN_2'),),
- POIN_2 =SIMP(statut='f',typ='R',min=2,max=3),
- DIR =SIMP(statut='f',typ='R',min=2,max=3),
- ),
- SYMETRIE =FACT(statut='f',max='**',
- fr = "Symétrie du maillage par rapport à un plan en 3D ou à une droite en 2D.",
- POINT =SIMP(statut='o',typ='R',min=2,max=3,
- fr="Point appartenant à la droite ou au plan."),
- AXE_1 =SIMP(statut='o',typ='R',min=2,max=3,
- fr="Vecteur directeur de la droite ou 1er vecteur appartenant au plan."),
- AXE_2 =SIMP(statut='f',typ='R',min=3,max=3,
- fr="2nd vecteur appartenant du plan."),
- ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
-) ;
-#& MODIF COMMANDE DATE 03/01/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.
+ UNITE_ESCL = SIMP(statut="o",typ="I",
+ fr="Unité logique associée aux commandes du calcul ASTER déterministe.",
+ ang="Logical unit for the commands of the ASTER deterministic calculation."),
#
-# 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.
+# 5.2. ==> Le destin des messages produits par ASTER
#
-# 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.
-# ======================================================================
-MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle_sdaster,
- fr="Calculer les obstacles dans les systèmes guidage-tube après usure",reentrant='f',
- UIinfo={"groupes":("Modélisation",)},
- regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
- PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
- V_USUR_TUBE =SIMP(statut='f',typ='R',max='**'),
- V_USUR_OBST =SIMP(statut='f',typ='R',max='**'),
- TABL_USURE =SIMP(statut='f',typ=table_sdaster),
- INST =SIMP(statut='f',typ='R'),
- OBSTACLE =SIMP(statut='f',typ=obstacle_sdaster),
- GUIDE =SIMP(statut='o',typ=obstacle_sdaster),
- CRAYON =SIMP(statut='f',typ=obstacle_sdaster),
- R_MOBILE =SIMP(statut='f',typ='R'),
- PERCEMENT =SIMP(statut='f',typ='R',defaut=1),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
-) ;
-#& MODIF COMMANDE DATE 12/09/2005 AUTEUR CIBHHLV 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.
+ MESS_ASTER = SIMP(statut="f",typ="TXM",defaut="DERNIER",
+ into=("AUCUN", "DERNIER", "TOUS"),
+ fr="Quels messages ASTER récupérer.",
+ ang="Which ASTER messages must be kept."),
#
-# 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.
+#====
+# 6. Options
+#====
+# 6.1. ==> Générales
#
-# 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 JMBHH01 J.M.PROIX
-def modi_repere_prod(RESULTAT,**args):
- if AsType(RESULTAT) == evol_elas : return evol_elas
- if AsType(RESULTAT) == evol_noli : return evol_noli
- if AsType(RESULTAT) == evol_ther : return evol_ther
- if AsType(RESULTAT) == dyna_trans : return dyna_trans
- if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
- if AsType(RESULTAT) == mode_meca : return mode_meca
- if AsType(RESULTAT) == mode_flamb : return mode_flamb
- if AsType(RESULTAT) == mult_elas : return mult_elas
- if AsType(RESULTAT) == base_modale : return base_modale
- raise AsException("type de concept resultat non prevu")
-
-MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,reentrant='n',
- UIinfo={"groupes":("Résultats et champs",)},
- fr="Calcule des résultats dans le repère cylindrique",
- RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
- evol_noli,mult_elas,
- evol_ther,base_modale,mode_flamb) ),
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
- 'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- NOM_CAS =SIMP(statut='f',typ='TXM' ),
-
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster),
-
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
-
- MODI_CHAM =FACT(statut='o',max='**',
- GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- TYPE_CHAM =SIMP(statut='o',typ='TXM',
- into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
- NOM_CHAM =SIMP(statut='o',typ='TXM',into=C_NOM_CHAM_INTO()),
- 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_tors_3d =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
- NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
- 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 ),),
- ),
- DEFI_REPERE =FACT(statut='o',
- regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
- REPERE =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
- into=("UTILISATEUR","CYLINDRIQUE"),),
- ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
- ORIGINE =SIMP(statut='f',typ='R',min=2,max=3),
- AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
- ),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
-) ;
-#& 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
-# 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.
+# 6.1.1. ==> La valeur du seuil
#
-# 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.
+ SEUIL = SIMP(statut="o",typ="R",max=1,
+ fr="Le seuil de défaillance.",
+ ang="Failure threshold."),
#
-# 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 norm_mode_prod(MODE,**args ):
- if AsType(MODE) == mode_meca : return mode_meca
- if AsType(MODE) == mode_meca_c : return mode_meca_c
- if AsType(MODE) == mode_flamb : return mode_flamb
- raise AsException("type de concept resultat non prevu")
-
-NORM_MODE=OPER(nom="NORM_MODE",op= 37,sd_prod=norm_mode_prod,
- fr="Normer des modes propres en fonction d'un critère choisi par l'utilisateur",
- reentrant='f',
- UIinfo={"groupes":("Résolution",)},
- regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),
- CONCEPT_SENSIBLE('SEPARE'),
- DERIVABLE('MODE'),),
- MODE =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
- NORME =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
- into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
- NOEUD =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
- b_noeud =BLOC(condition = "NOEUD != None",
- NOM_CMP =SIMP(statut='o',typ='TXM' ),
- ),
- AVEC_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- SANS_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- MASS_INER =SIMP(statut='f',typ=table_sdaster),
- MODE_SIGNE =FACT(statut='f',fr="Imposer un signe sur une des composantes des modes",
- NOEUD =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
- NOM_CMP =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
- SIGNE =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
- fr="Choix du signe" ),
- ),
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des param\350tres de sensibilit\351.",
- ang="List of sensitivity parameters",
- ),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
-) ;
-#& MODIF COMMANDE DATE 01/04/2005 AUTEUR VABHHTS J.PELLET
-# 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.
+# 6.1.2. ==> Le type du seuil : on a deux cas de figure selon que
+# la défaillance a lieu au dessus d'un seuil maximum ou
+# en dessous d'un seuil minimum
#
-# 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.
+ SEUIL_TYPE = SIMP(statut="o",typ="TXM",max=1,
+ into=("MINIMUM","MAXIMUM"),
+ fr="Que faut-il ne pas dépasser : un maximum ou un minimum.",
+ ang="What is the failure threshold : maximum or minimum."),
#
-# 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
-NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl_sdaster,reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
- regles=(UN_PARMI('MATR_RIGI','MODELE'),),
- MATR_RIGI =SIMP(statut='f',validators=NoRepeat(),max=100,
- typ=(matr_elem_depl_r ,matr_elem_depl_c,matr_elem_temp_r ,matr_elem_pres_c) ),
- MODELE =SIMP(statut='f',typ=modele_sdaster ),
- b_modele =BLOC(condition = "MODELE != None",
- CHARGE =SIMP(statut='f',validators=NoRepeat(),max='**',typ=(char_meca,char_ther,char_acou, ),),
- ),
- 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 associés à la méthode multifrontale",
- RENUM =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
- ),
- b_ldlt =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
- RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
- ),
- b_mumps =BLOC(condition="METHODE=='MUMPS'",fr="paramètres associés à la méthode MUMPS",
- RENUM =SIMP(statut='f',typ='TXM',into=("SANS",),defaut="SANS" ),
- ),
- 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" ),
- ),
- 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.
+# 6.2. ==> Pour MEFISTO
#
-# 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.
+### en attente de résolution de AL 2004-006 (1/2) b_mefisto=BLOC( condition = "LOGICIEL=='MEFISTO'",
#
-# 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.
-# ======================================================================
-NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
- fr="Etablissement de la numérotation des ddl d'un modèle établi en coordonnées généralisées",
- reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- regles=UN_PARMI('MODELE_GENE','BASE'),
- MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
- b_modele_gene =BLOC(condition = "MODELE_GENE != None",
- STOCKAGE =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
- METHODE =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("INITIAL","CLASSIQUE") ),
- ),
- BASE =SIMP(statut='f',typ=(mode_meca,mode_stat,base_modale,mode_gene ) ),
- b_base =BLOC(condition = "BASE != None",
- STOCKAGE =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
- NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
- ),
-) ;
-#& MODIF COMMANDE DATE 03/01/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.
+# 6.2.1. ==> Pilotage de la recherche du point de conception
#
-# 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.
+ RECH_PT_CONCEPT = SIMP(statut="f",typ="TXM",defaut="OUI",
+ into=("OUI","NON"),
+ fr="Pour trouver le point de conception.",
+ ang="To find the design point."),
#
-# 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.
-# ======================================================================
-POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=table_sdaster,
- fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
- reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
- INTE_SPEC =SIMP(statut='o',typ=table_sdaster),
- NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**' ),
- NOEUD_I =SIMP(statut='f',typ=no,max='**'),
- OPTION =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
- b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
- NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**' ),
- ),
- b_noeud_i =BLOC(condition = "NOEUD_I != None",
- NOEUD_J =SIMP(statut='o',typ=no,max='**'),
- NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**' ),
- NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**' ),
- ),
- DEPASSEMENT =FACT(statut='f',max='**',
- fr="Loi de dépassement d un seuil pendant une durée donnée",
- regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
- VALE_MIN =SIMP(statut='f',typ='R' ),
- VALE_MAX =SIMP(statut='f',typ='R' ),
- PAS =SIMP(statut='f',typ='R' ),
- DUREE =SIMP(statut='f',typ='R',defaut= 1. ),
- ),
- RAYLEIGH =FACT(statut='f',max='**',
- fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
- regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
- VALE_MIN =SIMP(statut='f',typ='R' ),
- VALE_MAX =SIMP(statut='f',typ='R' ),
- PAS =SIMP(statut='f',typ='R' ),
- ),
- GAUSS =FACT(statut='f',max='**',
- fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
- regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
- VALE_MIN =SIMP(statut='f',typ='R' ),
- VALE_MAX =SIMP(statut='f',typ='R' ),
- PAS =SIMP(statut='f',typ='R' ),
- ),
- VANMARCKE =FACT(statut='f',max='**',
- fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
- regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
- VALE_MIN =SIMP(statut='f',typ='R' ),
- VALE_MAX =SIMP(statut='f',typ='R' ),
- PAS =SIMP(statut='f',typ='R' ),
- DUREE =SIMP(statut='f',typ='R',defaut= 10. ),
- ),
- MOMENT =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
-) ;
-#& MODIF COMMANDE DATE 03/01/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.
+ b_rech_pt_concept=BLOC( condition = "RECH_PT_CONCEPT=='OUI'",
#
-# 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.
+ EPSILON_U = SIMP(statut="f",typ="R",defaut=1.0E-2,
+ fr="Précision du test d'arret sur les points itératifs dans l'espace standard.",
+ ang="Precision of stop test for iterative points in standard space."),
#
-# 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.
-# ======================================================================
-POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=table_sdaster,
- fr="Post-traiter les résultats en coordonnées généralisées produit par DYNA_TRAN_MODAL",
- reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
- RESU_GENE =SIMP(statut='o',typ=tran_gene ),
- CHOC =FACT(statut='f',max='**',
- fr="Analyse des non linéarités de choc",
- INST_INIT =SIMP(statut='f',typ='R',defaut= -1. ),
- INST_FIN =SIMP(statut='f',typ='R',defaut= 999. ),
- NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
- SEUIL_FORCE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- DUREE_REPOS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- OPTION =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
- NB_CLASSE =SIMP(statut='f',typ='I',defaut= 10 ),
- ),
- RELA_EFFO_DEPL =FACT(statut='f',
- fr="Analyse des relationsnon linéaires effort-déplacement",
- NOEUD =SIMP(statut='o',typ=no),
- NOM_CMP =SIMP(statut='o',typ='TXM' ),
- ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
-) ;
-#& MODIF COMMANDE DATE 16/05/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.
+ EPSILON_G = SIMP(statut="f",typ="R",defaut=1.0E-2,
+ fr="Précision du test d'arret sur la proximité de la surface d'état limite.",
+ ang="Precision of stop test for limit state surface."),
#
-# 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.
+ TAU = SIMP(statut="f",typ="R",defaut=5.0E-1,
+ fr="Paramètre de la méthode de minimisation.",
+ ang="Parameter for the minimization method."),
#
-# 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
-POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
-
- regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
- 'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
- 'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
- 'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE','INTEGRALE'),
- ),
-
- MASS_INER = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- ORIG_INER = SIMP(statut='f',typ='R',min=3,max=3 ),
- ),
- b_mass_iner = BLOC(condition = "( MASS_INER != None )",
- fr="calcul de la masse, les inerties et le centre de gravité",
- regles=(EXCLUS('CHAM_GD','RESULTAT'),
- EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
- 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CARA_ELEM = SIMP(statut='f',typ=cara_elem),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
- NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- GEOMETRIE = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
- CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
- RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
- fourier_elas,dyna_trans) ),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- FREQ = SIMP(statut='f',typ='R',),
- LIST_FREQ = SIMP(statut='f',typ=listr8_sdaster),
- NUME_MODE = SIMP(statut='f',typ='I',),
- NOEUD_CMP = SIMP(statut='f',typ='TXM',min=2,validators=NoRepeat(),max=2),
- NOM_CAS = SIMP(statut='f',typ='TXM',),
- ),
-
- ENER_POT = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- ),
- b_ener_pot = BLOC(condition = "( ENER_POT != None )",
- fr="calcul de l'énergie potentielle de déformation",
- regles=(UN_PARMI('CHAM_GD','RESULTAT'),
- EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
- 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CARA_ELEM = SIMP(statut='f',typ=cara_elem),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
- NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
- ANGLE = SIMP(statut='f',typ='I',defaut=0),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
- RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans,mult_elas) ),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- FREQ = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_FREQ = SIMP(statut='f',typ=listr8_sdaster),
- NUME_MODE = SIMP(statut='f',typ='I' ,validators=NoRepeat(),max='**'),
- NOEUD_CMP = SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- NOM_CAS = SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- ),
-
- ENER_CIN = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- OPTION = SIMP(statut='f',typ='TXM',
- into=("MASS_MECA","MASS_MECA_DIAG"),
- defaut="MASS_MECA" ),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- ),
- b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
- fr="calcul de l'énergie cinétique",
- regles=(UN_PARMI('CHAM_GD','RESULTAT'),
- EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
- 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CARA_ELEM = SIMP(statut='f',typ=cara_elem),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
- NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
- ANGLE = SIMP(statut='f',typ='I',defaut=0),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
- RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- FREQ = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_FREQ = SIMP(statut='f',typ=listr8_sdaster),
- NUME_MODE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- NOEUD_CMP = SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- NOM_CAS = SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- ),
-
- ENER_ELAS = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- ),
- b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
- fr="calcul de l'énergie de déformation élastique",
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CARA_ELEM = SIMP(statut='f',typ=cara_elem),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
- NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- ),
-
- ENER_TOTALE = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- ),
- b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
- fr="calcul de l'énergie de déformation totale",
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CARA_ELEM = SIMP(statut='f',typ=cara_elem),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
- NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- ),
-
- INTEGRALE = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- NOM_CHAM = SIMP(statut='o',typ='TXM',into=C_NOM_CHAM_INTO()),
- NOM_CMP = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**'),
- ),
- b_integrale = BLOC(condition = "( INTEGRALE != None )",
- fr="calcul de la moyenne d'une composante",
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- RESULTAT = SIMP(statut='o',typ=(evol_noli,evol_ther,evol_elas) ),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- ),
-
- WEIBULL = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- OPTION = SIMP(statut='f',typ='TXM',
- into=("SIGM_ELGA","SIGM_ELMOY"),
- defaut="SIGM_ELGA"),
- CORR_PLAST = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
- COEF_MULT = SIMP(statut='f',typ='R',defaut=1.),
- ),
- b_weibull = BLOC(condition = "( WEIBULL != None )",
- fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
- regles=(UN_PARMI('CHAM_GD','RESULTAT'),
- EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CARA_ELEM = SIMP(statut='f',typ=cara_elem),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
- NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
- RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- ),
-
- RICE_TRACEY = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- OPTION = SIMP(statut='f',typ='TXM',
- into=("SIGM_ELGA","SIGM_ELMOY"),
- defaut="SIGM_ELGA"),
- LOCAL = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
- ),
- b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
- fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
- regles=(UN_PARMI('CHAM_GD','RESULTAT'),
- EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CARA_ELEM = SIMP(statut='f',typ=cara_elem),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
- NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
- RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- ),
-
- INDIC_ENER = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- ),
- b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
- fr="calcul un indicateur global de perte de proportionnalité du chargement",
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- ),
-
- INDIC_SEUIL = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- ),
- b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
- fr="calcul un indicateur global de perte de proportionnalité du chargement",
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- ),
-
- CHAR_LIMITE = FACT(statut='f',min=0,
- CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
- ),
- b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
- fr="post-traitement du calcul de la charge limite",
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CARA_ELEM = SIMP(statut='f',typ=cara_elem),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
- INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- ),
-
- CARA_GEOM = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- SYME_X = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- SYME_Y = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- ORIG_INER = SIMP(statut='f',typ='R',min=2,max=2),
- ),
- b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
- fr="calcul des caractéristiques géométriques d'un section de poutre",
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- ),
-
- CARA_POUTRE = FACT(statut='f',max='**',
- regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
- ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- GROUP_MA_INTE = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- CARA_GEOM = SIMP(statut='o',typ=table_sdaster),
- RT = SIMP(statut='f',typ='R'),
- LAPL_PHI = SIMP(statut='f',typ=evol_ther),
- LAPL_PHI_Y = SIMP(statut='f',typ=evol_ther),
- LAPL_PHI_Z = SIMP(statut='f',typ=evol_ther),
- LIAISON = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
- LONGUEUR = SIMP(statut='f',typ='R'),
- MATERIAU = SIMP(statut='f',typ=mater_sdaster),
- OPTION = SIMP(statut='f',typ='TXM',
- into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
- ),
- b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
- fr="calcul des caractéristiques mécaniques d'un section de poutre",
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER = SIMP(statut='f',typ=cham_mater),
- CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
- MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
- ),
-
- AIRE_INTERNE = FACT(statut='f',max='**',
- GROUP_MA_BORD = SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
- ),
- b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
- fr="calcul de l'aire d'un trou dans un maillage 2D",
- MODELE = SIMP(statut='f',typ=modele_sdaster),
- ),
-
- TRAV_EXT = FACT(statut='f',),
- b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
- fr="calcul du travail des efforts extérieurs",
- RESULTAT = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- ),
-
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
-
- ) ;
-#& MODIF COMMANDE DATE 03/01/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.
-# ======================================================================
-POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=table_sdaster,reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- fr="Calculer le dommage de fatigue subi par une structure soumise à une sollicitation de type aléatoire",
- regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
- PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
- UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
- MOMENT_SPEC_0 =SIMP(statut='f',typ='R'),
- MOMENT_SPEC_2 =SIMP(statut='f',typ='R'),
- MOMENT_SPEC_4 =SIMP(statut='f',typ='R'),
- TABL_POST_ALEA =SIMP(statut='f',typ=table_sdaster),
- COMPTAGE =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
- DUREE =SIMP(statut='f',typ='R',defaut= 1.),
- CORR_KE =SIMP(statut='f',typ='TXM',into=("RCCM",)),
- DOMMAGE =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
- MATER =SIMP(statut='o',typ=mater_sdaster),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
-) ;
-#& MODIF COMMANDE DATE 03/01/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.
-# ======================================================================
-POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=table_sdaster,reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- fr="Calculer en un point, le dommage de fatigue subi par une structure soumise à une histoire de chargement",
-
- CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
-
- b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
- regles=(PRESENT_PRESENT('CORR_KE','MATER'),
- PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
- PRESENT_PRESENT('DOMMAGE','MATER'),),
- HISTOIRE = FACT(statut='o',
- regles=(UN_PARMI('SIGM','EPSI'),),
- SIGM = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- EPSI = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),),
- COMPTAGE = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
- DELTA_OSCI = SIMP(statut='f',typ='R',defaut= 0.0E+0),
- COEF_MULT = FACT(statut='f',
- KT = SIMP(statut='o',typ='R'),),
- CORR_KE = SIMP(statut='f',typ='TXM',into=("RCCM",)),
- DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
- "TAHERI_MANSON","TAHERI_MIXTE")),
- MATER = SIMP(statut='f',typ=mater_sdaster),
- CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
- TAHERI_NAPPE = SIMP(statut='f',typ=(nappe_sdaster,formule)),
- TAHERI_FONC = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
- ),
-
- b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
- HISTOIRE = FACT(statut='o',
- SIGM_XX = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_YY = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_ZZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_XY = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_XZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_YZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),),
- CRITERE = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
- DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
- MATER = SIMP(statut='o',typ=mater_sdaster),
- COEF_CORR = SIMP(statut='f',typ='R'),
- ),
-
- b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
- HISTOIRE = FACT(statut='o',
- SIGM_XX = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_YY = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_ZZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_XY = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_XZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- SIGM_YZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- EPSP = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- TEMP = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),),
- DOMMAGE = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),),
- MATER = SIMP(statut='o',typ=mater_sdaster),
- CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
- ),
-
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
-) ;
-#& MODIF COMMANDE DATE 09/05/2006 AUTEUR GALENNE E.GALENNE
-# 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 GALENNE E.GALENNE
-from Macro.post_k1_k2_k3_ops import post_k1_k2_k3_ops
-POST_K1_K2_K3=MACRO(nom="POST_K1_K2_K3",op=post_k1_k2_k3_ops,sd_prod=table_sdaster,
- fr="Calcul des facteurs d'intensité de contraintes en 2D et en 3D par extrapolation des sauts de déplacements"
- +" sur les lèvres de la fissure",
- reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
-
- regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
- PRESENT_PRESENT('RESULTAT','FOND_FISS'),),
-
- MODELISATION =SIMP(statut='o',typ='TXM',
- into=("3D","AXIS","D_PLAN","C_PLAN"),
- fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
- FOND_FISS =SIMP(statut='f',typ=fond_fiss),
- b_fond_fiss =BLOC (condition="(FOND_FISS!= None)",
- MAILLAGE = SIMP(statut='o',typ=maillage_sdaster),
- TYPE_MAILLAGE = SIMP(statut='f',typ='TXM',into=("LIBRE","REGLE"),defaut="REGLE"),
- NB_NOEUD_COUPE= SIMP(statut='f',typ='I' ,defaut=5 ),
- NOEUD = SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- SANS_NOEUD = SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- SANS_GROUP_NO = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) )
- ),
- MATER =SIMP(statut='o',typ=mater_sdaster,
- fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
- RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),
- fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
- TABL_DEPL_SUP =SIMP(statut='f',typ=table_sdaster,
- fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
- TABL_DEPL_INF =SIMP(statut='f',typ=table_sdaster,
- fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
- ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
- fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
- PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- ),
- SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","SANS") ),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
- VECT_K1 =SIMP(statut='o',typ='R',max=3,
- fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
-) ;
-#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2002 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.
-#
-#
-# ======================================================================
-#
-POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=table_sdaster,
- fr="Calcul des facteurs d'intensité de contraintes par la méthode K_BETA",
- reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- MAILLAGE = SIMP(statut='o',typ=maillage_sdaster),
- MATER_REV = SIMP(statut='o',typ=mater_sdaster),
- EPAIS_REV = SIMP(statut='o',typ='R'),
- FISSURE = FACT(statut='o',
- DECALAGE = SIMP(statut='f',typ='R',defaut=-2.e-04),
- PROFONDEUR = SIMP(statut='o',typ='R'),
- LONGUEUR = SIMP(statut='o',typ='R'),
- ORIENTATION = SIMP(statut='o',typ='TXM',
- into=("CIRC","LONGI"),),
- ),
- K1D = FACT(statut='o',max='**',
- TABL_MECA_REV = SIMP(statut='o',typ=(table_sdaster)),
- TABL_MECA_MDB = SIMP(statut='o',typ=(table_sdaster)),
- TABL_THER = SIMP(statut='o',typ=(table_sdaster)),
- INTITULE = SIMP(statut='o',typ='TXM' ),
- ),
- TITRE = SIMP(statut='f',typ='TXM',max='**'),
-);
-#& MODIF COMMANDE DATE 13/03/2006 AUTEUR CIBHHLV 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.
-#
-# 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 PARTIC
-#
-# 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 JMBHH01 J.M.PROIX
-POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
- fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
- reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","DETAILS") ),
- INFO =SIMP(statut='f',typ='I',into=(1,2) ),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- TYPE_RESU_MECA =SIMP(statut='o',typ='TXM',into=("EVOLUTION","UNITAIRE","TUYAUTERIE") ),
-
-# ======================================================================
- b_evolution =BLOC(condition="(TYPE_RESU_MECA == 'EVOLUTION')",
-
- OPTION =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
- into=("PM_PB","SN","FATIGUE_ZH210") ),
- MATER =SIMP(statut='o',typ=mater_sdaster ),
-
- TRANSITOIRE =FACT(statut='o',max='**',fr="transitoire à dépouiller",
- regles=(EXCLUS('TOUT_ORDRE','INST','LIST_INST'),),
- NB_OCCUR =SIMP(statut='f',typ='I',defaut= 1,
- fr="nombre d occurences réelles de ce transitoire" ),
- TABL_RESU_MECA =SIMP(statut='o',typ=table_sdaster,
- fr="relevé des contraintes sur le chemin"),
- TABL_SIGM_THER =SIMP(statut='f',typ=table_sdaster,
- fr="résultat sous chargement thermique seul" ),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster ),
- b_inst =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
- ),
- ),
- ),
-
-# ======================================================================
- b_unitaire =BLOC(condition="(TYPE_RESU_MECA == 'UNITAIRE')",
-
- OPTION =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
- into=("PM_PB","SN","FATIGUE") ),
- MATER =SIMP(statut='o',typ=mater_sdaster ),
- TYPE_KE =SIMP(statut='f',typ='TXM',defaut="KE_MECA",into=("KE_MECA","KE_MIXTE"),
- fr="Ke meca seul ou partition mecanique + thermique" ),
- CHAR_MECA =FACT(statut='o',max='**',fr="Chargements mécaniques",
- regles=(UN_PARMI('MX','MX_TUBU'),),
- NUME_CHAR =SIMP(statut='o',typ='I',fr="numéro du chargement" ),
- NOM_CHAR =SIMP(statut='f',typ='TXM',fr="nom du chargement" ),
- TYPE_CHAR =SIMP(statut='f',typ='TXM',fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
- MX =SIMP(statut='f',typ='R',fr="moment suivant x", ),
- MX_TUBU =SIMP(statut='f',typ='R',fr="moment suivant x, tubulure", ),
- b_1_tenseur =BLOC( condition = "MX != None",
- FX =SIMP(statut='f',typ='R',fr="effort suivant x", ),
- FY =SIMP(statut='f',typ='R',fr="effort suivant y", ),
- FZ =SIMP(statut='f',typ='R',fr="effort suivant z", ),
- MY =SIMP(statut='o',typ='R',fr="moment suivant y", ),
- MZ =SIMP(statut='o',typ='R',fr="moment suivant z", ),
- ),
- b_2_tenseurs =BLOC( condition = "MX_TUBU != None",
- FX_TUBU =SIMP(statut='f',typ='R',fr="effort suivant x, tubulure", ),
- FY_TUBU =SIMP(statut='f',typ='R',fr="effort suivant y, tubulure", ),
- FZ_TUBU =SIMP(statut='f',typ='R',fr="effort suivant z, tubulure", ),
- MY_TUBU =SIMP(statut='o',typ='R',fr="moment suivant y, tubulure", ),
- MZ_TUBU =SIMP(statut='o',typ='R',fr="moment suivant z, tubulure", ),
- FX_CORP =SIMP(statut='f',typ='R',fr="effort suivant x, corps du piquage", ),
- FY_CORP =SIMP(statut='f',typ='R',fr="effort suivant y, corps du piquage", ),
- FZ_CORP =SIMP(statut='f',typ='R',fr="effort suivant z, corps du piquage", ),
- MX_CORP =SIMP(statut='o',typ='R',fr="moment suivant x, corps du piquage", ),
- MY_CORP =SIMP(statut='o',typ='R',fr="moment suivant y, corps du piquage", ),
- MZ_CORP =SIMP(statut='o',typ='R',fr="moment suivant z, corps du piquage", ),
- ),
-
- ),
- RESU_MECA_UNIT =FACT(statut='o',fr="resultats mécaniques unitaires",
- regles=(UN_PARMI('TABL_MX','TABL_MX_TUBU'),),
- TABL_MX =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire MX"),
- TABL_MX_TUBU =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire MX_TUBU"),
- b_1_tenseur =BLOC( condition = "TABL_MX != None",
- TABL_FX =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire FX"),
- TABL_FY =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire FY"),
- TABL_FZ =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire FZ"),
- TABL_MY =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire MY"),
- TABL_MZ =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire MZ"),
- ),
- b_2_tenseurs =BLOC( condition = "TABL_MX_TUBU != None",
- TABL_FX_TUBU =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire FX_TUBU"),
- TABL_FY_TUBU =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire FY_TUBU"),
- TABL_FZ_TUBU =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire FZ_TUBU"),
- TABL_MY_TUBU =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire MY_TUBU"),
- TABL_MZ_TUBU =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire MZ_TUBU"),
- TABL_FX_CORP =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire FX_CORP"),
- TABL_FY_CORP =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire FY_CORP"),
- TABL_FZ_CORP =SIMP(statut='f',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire FZ_CORP"),
- TABL_MX_CORP =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire MX_CORP"),
- TABL_MY_CORP =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire MY_CORP"),
- TABL_MZ_CORP =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire MZ_CORP"),
- ),
- TABL_PRES =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des contraintes pour chargement unitaire de pression"),
- ),
-
- RESU_THER =FACT(statut='f',max='**',fr="resultats thermiques",
- NUME_RESU_THER =SIMP(statut='o',typ='I',fr="numéro de la table de résultat thermique" ),
- TABL_RESU_THER =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des contraintes sous chargement thermique seul" ),
- ),
- SITUATION =FACT(statut='o',max='**',fr="Situation",ang="situation_ang",
- NB_OCCUR =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
- NB_CYCL_SEISME =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
- NUME_SITU =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
- NOM_SITU =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
- COMBINABLE =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
- NUME_GROUPE =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
- NUME_PASSAGE =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
- NUME_RESU_THER =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
- CHAR_ETAT_A =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
- CHAR_ETAT_B =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
- PRES_A =SIMP(statut='o',typ='R',fr="pression etat A"),
- PRES_B =SIMP(statut='o',typ='R',fr="pression etat B"),
- TEMP_REF_A =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
- TEMP_REF_B =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
- ),
- ),
-# ======================================================================
- b_tuyauterie =BLOC(condition="(TYPE_RESU_MECA == 'TUYAUTERIE')",
-
- OPTION =SIMP(statut='o',typ='TXM',into=("FATIGUE",) ),
- CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
- TYPE_KE =SIMP(statut='f',typ='TXM',defaut="KE_MECA",into=("KE_MECA","KE_MIXTE"),
- fr="Ke meca seul ou partition mecanique + thermique" ),
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CARA_ELEM =SIMP(statut='o',typ=cara_elem),
- ZONE_ANALYSE =FACT(statut='o',fr="liste des mailles ou des noeuds analysés",
- regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- 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='**'),
- ),
- RESU_MECA =FACT(statut='o',max='**',fr="Chargements mécaniques",
- regles=(UN_PARMI('CHAM_GD','RESULTAT'),),
- NUME_CHAR =SIMP(statut='o',typ='I',fr="numéro du chargement" ),
- NOM_CHAR =SIMP(statut='f',typ='TXM',fr="nom du chargement" ),
- TYPE_CHAR =SIMP(statut='f',typ='TXM',fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
- CHAM_GD =SIMP(statut='f',typ=cham_gd_sdaster),
- RESULTAT =SIMP(statut='f',typ=resultat_sdaster),
- b_extrac =BLOC(condition="RESULTAT != None",
- fr="extraction d un champ de grandeur",
- regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','NOEUD_CMP'),),
- NOM_CHAM =SIMP(statut='o',typ='TXM',into=("EFGE_ELNO_DEPL","SIEF_ELNO_ELGA"),),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',),
- INST =SIMP(statut='f',typ='R',),
- NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- b_acce_reel =BLOC(condition="(INST != None)",
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU"), ),
- ),
- ),
- ),
- INDI_SIGM =FACT(statut='o',max='**',fr="indices de contraintes",
- regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- C1 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes C1 du RCCM"),
- K1 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes K1 du RCCM"),
- C2 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes C2 du RCCM"),
- K2 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes K2 du RCCM"),
- C3 =SIMP(statut='f',typ='R',defaut=0.5,fr="indice de contraintes C3 du RCCM"),
- K3 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes K3 du RCCM"),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),),
- GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
- fr="groupe(s) de mailles ou sont affectés les indices de contraintes"),
- MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**',
- fr="liste des mailles ou sont affectés les indices de contraintes"),
- b_grma =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- ),
- TYPE_ELEM_STANDARD =SIMP(statut='f',typ='TXM',into=("DRO","COU","TRN","TEE"),
- fr="type d'élément de tuyauterie ou sont affectés les indices de contraintes"),
- ),
- RESU_THER =FACT(statut='f',max='**',fr="resultats thermiques",
- regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
- NUME_RESU_THER =SIMP(statut='o',typ='I',fr="numéro de la table de résultat thermique" ),
- TABL_RESU_THER =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des températures sur la section"),
- TABL_MOYE_THER =SIMP(statut='o',typ=table_sdaster,
- fr="table relevé des moyennes sur la section"),
- 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='**'),
- b_grma =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- ),
- ),
- SITUATION =FACT(statut='o',max='**',fr="Situation",ang="situation_ang",
- NB_OCCUR =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
- NB_CYCL_SEISME =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
- NUME_SITU =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
- NOM_SITU =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
- COMBINABLE =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
- NUME_GROUPE =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
- NUME_PASSAGE =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
- NUME_RESU_THER =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
- CHAR_ETAT_A =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
- CHAR_ETAT_B =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
- PRES_A =SIMP(statut='o',typ='R',fr="pression etat A"),
- PRES_B =SIMP(statut='o',typ='R',fr="pression etat B"),
- TEMP_REF_A =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
- TEMP_REF_B =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
- ),
- ),
-) ;
-#& MODIF COMMANDE DATE 16/05/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 G8BHHXD X.DESROCHES
-POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=table_sdaster,reentrant='f',
- fr="Extraire des valeurs de composantes de champs de grandeurs pour y effectuer des calculs (moyenne,invariants,..)"
- +" ou pour les exprimer dans d'autres repères",
- UIinfo={"groupes":("Post traitements",)},
-
- ACTION =FACT(statut='o',max='**',
- regles=(UN_PARMI('RESULTAT','CHAM_GD'),),
-
- OPERATION =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE","EXTREMA"),validators=NoRepeat(),max=2),
- INTITULE =SIMP(statut='o',typ='TXM'),
-
- CHAM_GD =SIMP(statut='f',typ=(cham_no_sdaster,
- cham_elem,),),
- RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
- mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
- mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
-
- b_sensibilite =BLOC(condition="RESULTAT != None",
- fr="Définition des paramètres de sensibilité",
- ang="Definition of sensitivity parameters",
- regles=(CONCEPT_SENSIBLE("SEPARE"), REUSE_SENSIBLE(),
- DERIVABLE('RESULTAT'),),
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des paramètres de sensibilité.",
- ang="List of sensitivity parameters"),
- ),
-
- b_extrac =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
- 'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
- NOM_CHAM =SIMP(statut='o',typ='TXM' ),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
- NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_MODE =SIMP(statut='f',typ=listis_sdaster),
- NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- NOM_CAS =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- ),
-
- b_extrema =BLOC(condition="OPERATION == 'EXTREMA'",
- fr="recherche de MIN MAX",
- regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
- 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='**'),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",)),
- NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
- ),
-
- b_autre =BLOC(condition="OPERATION != 'EXTREMA'",
- fr="extraction et moyenne",
- regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
- EXCLUS('CHEMIN','GROUP_NO'),
- EXCLUS('CHEMIN','NOEUD'),
- PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
- UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
- PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
- ENSEMBLE('MOMENT','POINT'),
- PRESENT_PRESENT('MOMENT','RESULTANTE'),
- PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
- EXCLUS('TRAC_DIR','TRAC_NOR'),
- PRESENT_PRESENT('ORIGINE','AXE_Z'),),
-
- CHEMIN =SIMP(statut='f',typ=(courbe_sdaster,surface_sdaster) ),
- 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='**'),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
-
- TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",)),
- NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
- INVARIANT =SIMP(statut='f',typ='TXM',into=("OUI",)),
- ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- RESULTANTE =SIMP(statut='f',typ='TXM',max='**'),
-
- MOMENT =SIMP(statut='f',typ='TXM',max='**'),
- POINT =SIMP(statut='f',typ='R',max='**'),
-
- REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
- into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
- ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
- ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
- AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
-
- TRAC_NOR =SIMP(statut='f',typ='TXM',into=("OUI",)),
- TRAC_DIR =SIMP(statut='f',typ='TXM',into=("OUI",)),
- DIRECTION =SIMP(statut='f',typ='R',max='**'),
-
- VECT_Y =SIMP(statut='f',typ='R',max='**'),
- MOYE_NOEUD =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
- ),
-
- FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
-
- ),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
-) ;
-#& MODIF COMMANDE DATE 03/01/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.
-# ======================================================================
-POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=table_sdaster,reentrant='f',
- UIinfo={"groupes":("Post traitements",)},
- fr="Calcul des volumes d'usure et des profondeurs d'usure d'après la puissance d'usure",
- regles=(UN_PARMI('TUBE_NEUF','RESU_GENE','PUIS_USURE'),
- PRESENT_PRESENT('RESU_GENE','NOEUD','LOI_USURE'),
- PRESENT_PRESENT('PUIS_USURE','LOI_USURE'),),
- TUBE_NEUF =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- ETAT_INIT =FACT(statut='f',
- TABL_USURE =SIMP(statut='f',typ=table_sdaster),
- INST_INIT =SIMP(statut='f',typ='R'),
- ),
- RESU_GENE =SIMP(statut='f',typ=tran_gene),
- NOEUD =SIMP(statut='f',typ=no,),
- INST_INIT =SIMP(statut='f',typ='R',defaut=-1.0E+0),
- INST_FIN =SIMP(statut='f',typ='R'),
- NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
- PUIS_USURE =SIMP(statut='f',typ='R'),
- LOI_USURE =SIMP(statut='f',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
- b_archard =BLOC(condition = "LOI_USURE == 'ARCHARD'",
- regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
- EXCLUS('MATER_USURE','OBSTACLE'),
- EXCLUS('MOBILE','USURE_OBST'),),
- MOBILE =FACT(statut='f',
- COEF_USURE =SIMP(statut='o',typ='R'),
- ),
- OBSTACLE =FACT(statut='f',
- COEF_USURE =SIMP(statut='o',typ='R'),
- ),
- SECTEUR =FACT(statut='f',max='**',
- CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
- "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
- "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
- COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
- COEF_USUR_OBST =SIMP(statut='f',typ='R'),
- ANGL_INIT =SIMP(statut='f',typ='R'),
- ANGL_FIN =SIMP(statut='f',typ='R'),
- ),
- MATER_USURE =SIMP(statut='f',typ='TXM'),
- USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
- ),
- b_kwu_epri =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
- regles=(UN_PARMI('MOBILE','MATER_USURE'),
- EXCLUS('MATER_USURE','OBSTACLE'),
- EXCLUS('MOBILE','USURE_OBST'),),
- MOBILE =FACT(statut='f',
- COEF_FNOR =SIMP(statut='f',typ='R'),
- COEF_VTAN =SIMP(statut='f',typ='R'),
- COEF_USURE =SIMP(statut='f',typ='R'),
- COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
- COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
- ),
- OBSTACLE =FACT(statut='f',
- COEF_FNOR =SIMP(statut='f',typ='R' ),
- COEF_VTAN =SIMP(statut='f',typ='R' ),
- COEF_USURE =SIMP(statut='o',typ='R'),
- COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
- COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
- ),
- MATER_USURE =SIMP(statut='f',typ='TXM'),
- USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
- FNOR_MAXI =SIMP(statut='f',typ='R' ),
- VTAN_MAXI =SIMP(statut='f',typ='R' ),
- ),
- b_edf_mz =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
- regles=(UN_PARMI('MOBILE','MATER_USURE'),
- EXCLUS('MATER_USURE','OBSTACLE'),
- EXCLUS('MOBILE','USURE_OBST'),),
- MOBILE =FACT(statut='f',
- COEF_USURE =SIMP(statut='f',typ='R',defaut=1.0E-13),
- COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
- COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
- COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
- ),
- OBSTACLE =FACT(statut='f',
- COEF_USURE =SIMP(statut='o',typ='R',defaut=1.0E-13),
- COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
- COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
- COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
- ),
- MATER_USURE =SIMP(statut='f',typ='TXM'),
- USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
- ),
- b_tube_neuf =BLOC(condition = "TUBE_NEUF == 'OUI'",
- TABL_USURE =SIMP(statut='o',typ=table_sdaster),
- INST =SIMP(statut='f',typ='R'),
- ),
- CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
- "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
- "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
- RAYON_MOBILE =SIMP(statut='f',typ='R'),
- RAYON_OBST =SIMP(statut='f',typ='R'),
- LARGEUR_OBST =SIMP(statut='f',typ='R'),
- ANGL_INCLI =SIMP(statut='f',typ='R'),
- ANGL_ISTHME =SIMP(statut='f',typ='R'),
- ANGL_IMPACT =SIMP(statut='f',typ='R'),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- COEF_INST =SIMP(statut='f',typ='R',defaut=1.0E+0),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
-) ;
-#& 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.
+ OMEGA = SIMP(statut="f",typ="R",defaut=1.0E-4,
+ fr="Paramètre de la méthode de minimisation.",
+ ang="Parameter for the minimization method."),
#
-# 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.
+ ITER_MAX = SIMP(statut="f",typ="I",defaut=50,
+ fr="Nombre maximum d'itérations.",
+ ang="Maximum number of iterations."),
+ ),
#
-# 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.
-# ======================================================================
-POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- fr="Déterminer l'état adapté ou accommodé par la méthode de Zarka-Casier d'une structure sous"
- +" chargement cyclique élastique affine ou non",
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='o',typ=cham_mater),
- EXCIT =FACT(statut='o',max='**',
- CHARGE =SIMP(statut='o',typ=char_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",)),
- ),
- EVOL_ELAS =SIMP(statut='o',typ=evol_elas),
- b_evol_elas =BLOC(condition="EVOL_ELAS != None",
- regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- ),
- TEMP_ZAC =SIMP(statut='f',typ='R',defaut=0.0E+0),
- EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
- b_evol_noli =BLOC(condition="EVOL_NOLI != None",
- INST_MAX =SIMP(statut='o',typ='R'),
- ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
-
-) ;
-#& MODIF COMMANDE DATE 16/01/2006 AUTEUR D6BHHJP J.P.LEFEBVRE
-# 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.
+# 6.2.2. ==> Méthode(s) employée(s) pour la probabilité de défaillance
#
-# 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.
+ METHODE_FORM = SIMP(statut="f",typ="TXM",defaut="OUI",
+ into=("OUI","NON"),
+ fr="Recherche de la probabilité de défaillance avec la méthode FORM.",
+ ang="Research of failure probability with FORM method."),
#
-# 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.
-# ======================================================================
-POURSUITE=MACRO(nom="POURSUITE",op=ops.build_poursuite,repetable='n',
- fr="Poursuite d'une étude à partir de la sauvegarde au format JEVEUX ou HDF de sa base globale",
- sd_prod = ops.POURSUITE,
- UIinfo={"groupes":("Gestion du travail",)},
- op_init = ops.POURSUITE_context,fichier_ini = 1,
- FORMAT_HDF =SIMP(fr="sauvegarde de la base GLOBALE au format HDF",statut='f',
- typ='TXM',defaut="NON",into=("OUI","NON",) ),
- PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
- into=("OUI","NON"),defaut="OUI"),
- IMPR_MACRO =SIMP(fr="affichage des sous-commandes produites par les macros dans le fichier mess",
- statut='f',typ='TXM',into=("OUI","NON"),defaut="NON"),
- BASE =FACT(fr="définition des paramètres associés aux bases JEVEUX",
- statut='f',min=1,max=2,
- FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM'),
- TITRE =SIMP(statut='f',typ='TXM'),
- CAS =SIMP(statut='f',typ='TXM'),
- NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
- LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
- LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
- ),
- IMPRESSION =FACT(statut='f',min=1,max=3,
- FICHIER =SIMP(statut='o',typ='TXM'),
- UNITE =SIMP(statut='o',typ='I'),
- ),
- CATALOGUE =FACT(statut='f',min=1,max=10,
- FICHIER =SIMP(statut='o',typ='TXM'),
- TITRE =SIMP(statut='f',typ='TXM'),
- UNITE =SIMP(statut='f',typ='I'),
- ),
- ERREUR =FACT(fr="comportement en cas d'erreur",statut='f',min=1,max=1,
- ERREUR_F =SIMP(statut='f',typ='TXM',into=('ABORT','EXCEPTION'),defaut='ABORT'),
- ),
- DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
- statut='f',min=1,max=1,
- JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
- statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
- JEVEUX =SIMP(fr="force les déchargement sur disque",
- statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
- ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
- statut='f',typ='TXM',into=('TEST',)),
- ),
- MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
- GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
- TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
- TAILLE =SIMP(statut='f',typ='I'),
- TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
- PARTITION =SIMP(statut='f',typ='R' ),
- ),
- RESERVE_CPU =FACT(fr="reserve de temps pour terminer une execution",statut='f',max=1,
- regles=(EXCLUS('VALE','POURCENTAGE'),),
- VALE =SIMP(statut='f',typ='I',val_min=0),
- POURCENTAGE =SIMP(statut='f',typ='R',val_min=0.,val_max=1.0),
-# valeur en pourcentage du temps maximum bornée à 180 secondes
- BORNE =SIMP(statut='f',typ='I',val_min=0,defaut=180)
- ),
- CODE =FACT("définition d un nom pour l'esemble d'une étude",
- statut='f',min=1,max=1,
- NOM =SIMP(statut='o',typ='TXM'),
- UNITE =SIMP(statut='f',typ='I',defaut=15),
- ),
-) ;
-#& MODIF COMMANDE DATE 22/05/2006 AUTEUR MCOURTOI M.COURTOIS
-# 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.
-# ======================================================================
-
-# RESPONSABLE MCOURTOI M.COURTOIS
-
-from Macro.test_fichier_ops import test_fichier_ops
-
-TEST_FICHIER=MACRO(nom="TEST_FICHIER", op=test_fichier_ops,
- UIinfo={"groupes":("Impression",)},
- fr="Tester la non régression de fichiers produits par des commandes aster",
- FICHIER =SIMP(statut='o',typ='TXM',validators=LongStr(1,255)),
- NB_CHIFFRE =SIMP(statut='o',typ='I',), # defaut=6 pas de defaut, il faut
- EPSILON =SIMP(statut='o',typ='R',), # defaut=1.E-12 se poser la question !
- EXPR_IGNORE =SIMP(statut='f',typ='TXM',max='**',
- fr="Liste d'expressions régulières permettant d'ignorer certaines lignes"),
- VALE_K =SIMP(statut='o',typ='TXM' ),
- REFERENCE =SIMP(statut='f',typ='TXM',
- into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
-
- b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
- VERSION =SIMP(statut='f',typ='TXM' ),
- ),
-
- 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
-# ======================================================================
-# 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.
+ METHODE_SORM = SIMP(statut="f",typ="TXM",defaut="NON",
+ into=("OUI","NON"),
+ fr="Recherche de la probabilité de défaillance avec la méthode SORM.",
+ ang="Research of failure probability with SORM method."),
#
-# 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.
+ TIRAGE_IMPORTANCE = SIMP(statut="f",typ="TXM",defaut="NON",
+ into=("OUI","NON"),
+ fr="Recherche de la probabilité de défaillance avec le tirage d'importance.",
+ ang="Research of failure probability with ."),
+#
+ b_tirage_importance=BLOC( condition = "TIRAGE_IMPORTANCE=='OUI'",
+#
+ NB_SIMULATION = SIMP(statut="f",typ="I",defaut=3,
+ fr="Nombre de simulations pour le tirage d'importance.",
+ ang="Number of simulation for."),
+#
+ ),
+#
+# 6.2.3. ==> Création d'une surface de réponse polynomiale
+#
+ POLYNOME_TAYLOR = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),),
+ HGRAD = SIMP(statut="f",typ="R",defaut=1.0E-2,
+ fr="Pas incrémental pour le calcul des gradients.",
+ ang="Step for calculation of gradients."),
+ HHESS = SIMP(statut="f",typ="R",defaut=1.0E-2,
+ fr="Pas incrémental pour le calcul des dérivées secondes.",
+ ang="Step for calculation of second derivatives."),
#
-# 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.
-# ======================================================================
-PRE_GIBI=PROC(nom="PRE_GIBI",op=49,
- UIinfo={"groupes":("Gestion du travail",)},
- fr="Conversion d'un fichier de maillage GIBI au format Aster",
- UNITE_GIBI =SIMP(statut='f',typ='I',defaut=19),
- UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
-) ;
-#& 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.
+# 6.2.4. ==> Recherche d'un plan d'expérience
#
-# 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.
+ PLAN_EXPERIENCE = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),
+ fr="Construction d'un plan d'expérience.",
+ ang="Construction of an experiment plan."),
#
-# 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.
-# ======================================================================
-
-PRE_GMSH=PROC(nom="PRE_GMSH",op=47,
- UIinfo={"groupes":("Gestion du travail",)},
- fr="Conversion d'un fichier de maillage GMSH au format Aster",
- UNITE_GMSH =SIMP(statut='f',typ='I',defaut=19),
- UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
-) ;
-#& 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.
+ b_plan_experience=BLOC( condition = "PLAN_EXPERIENCE=='OUI'",
#
-# 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.
+ ALPHA = SIMP(statut="f",typ="R",defaut=2.0E-1,
+ fr="Plan d'expérience : maille du plan de type composite centré.",
+ ang="Experiment plane : mesh centered composite."),
#
-# 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.
-# ======================================================================
-PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,
- UIinfo={"groupes":("Gestion du travail",)},
- fr="Conversion d'un fichier universel IDEAS-SUPERTAB au format Aster",
- UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
- UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
- CREA_GROUP_COUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
-) ;
-#& MODIF COMMANDE DATE 15/05/2006 AUTEUR ASSIRE A.ASSIRE
-# 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.
-# ======================================================================
-
-from Macro.stanley_ops import stanley_ops
-
-STANLEY=MACRO(nom="STANLEY",op=stanley_ops,sd_prod=None,
- reentrant='n',
- UIinfo={"groupes":("Outils métier",)},
- fr="Outil de post-traitement interactif Stanley ",
- RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli,evol_ther,mode_meca,mode_stat,dyna_harmo,dyna_trans) ),
- MODELE =SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='f',typ=cham_mater),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- DISPLAY =SIMP(statut='f',typ='TXM'),
- UNITE_VALIDATION=SIMP(statut='c',typ='I',val_min=10,val_max=90,
- fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit les md5"),
-
-) ;
-#& 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.
+ BETA = SIMP(statut="f",typ="R",defaut=4.0E-1,
+ fr="Plan d'expérience : maille du plan de type factoriel.",
+ ang="Experiment plane : mesh factor."),
#
-# 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.
-# ======================================================================
-
-PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=cham_no_sdaster,
- fr="Effectuer le produit d'une matrice par un vecteur",
- reentrant='n',
- UIinfo={"groupes":("Résultats et champs",)},
- MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
- CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
-) ;
-#& 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
-# 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.
+# 6.2.5. ==> Les tests
+# 6.2.5.1. ==> Test de la sphere
#
-# 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.
+ T_SPHERE = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),
+ fr="Test de la sphère.",
+ ang="Sphere test."),
#
-# 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 proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
- if AsType(RESULTAT) == evol_ther : return evol_ther
- if AsType(RESULTAT) == evol_elas : return evol_elas
- if AsType(RESULTAT) == evol_noli : return evol_noli
- if AsType(RESULTAT) == evol_char : return evol_char
- if AsType(RESULTAT) == dyna_trans : return dyna_trans
- if AsType(RESULTAT) == mode_meca : return mode_meca
- if AsType(RESULTAT) == mode_stat_depl : return mode_stat_depl
- if AsType(RESULTAT) == base_modale : return base_modale
- 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",
+ b_test_de_la_sphere=BLOC( condition = "T_SPHERE=='OUI'",
#
- METHODE =SIMP(statut='f',typ='TXM',defaut="ELEM",
- into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
- 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),
- ),
- 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'),
- EXCLUS('TOUT_CHAM','NOM_CHAM',),
- CONCEPT_SENSIBLE('SEPARE'),
- REUSE_SENSIBLE(),
- DERIVABLE('RESULTAT'),),
- RESULTAT =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,dyna_trans,evol_char,
- mode_meca,mode_stat_depl,base_modale) ),
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des paramètres de sensibilité.",
- ang="List of sensitivity parameters",),
- MODELE_1 =SIMP(statut='o',typ=modele_sdaster),
- MODELE_2 =SIMP(statut='o',typ=modele_sdaster),
-
- TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NOM_CHAM =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
-
-# POUR IMPOSER LA NUMEROTATION DES DDLS :
-# ------------------------------------------------------------------
- NUME_DDL =SIMP(statut='f',typ=(nume_ddl_sdaster) ),
-
-
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
- LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
- LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster),
- NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
- NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
-
- 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."),
- ALARME =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
-
- TYPE_CHAM =SIMP(statut='f',typ='TXM',into=("NOEU",),
- 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="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."),
-
- ),
-
- 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'),),
- TOUT_1 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- GROUP_MA_1 =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- MAILLE_1 =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_NO_1 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD_1 =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- TOUT_2 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- GROUP_MA_2 =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- MAILLE_2 =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_NO_2 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD_2 =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- CAS_FIGURE =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",) ),
- ),
-
- 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
-# ======================================================================
-# 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.
+ METHODE_TEST = SIMP(statut="f",typ="TXM",defaut="GAUSSIENNE",
+ into=("GAUSSIENNE","PARAMETRIQUE","REJECTION"),
+ fr="Type de méthode.",
+ ang="Method."),
#
-# 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.
+ NB_POINT = SIMP(statut="f",typ="I",max=1,defaut=60,
+ fr="Nombre de points de la sphere.",
+ ang="Number of points over the sphere.")
+ ),
#
-# 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 matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
- if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_gene_r
- if AsType(MATR_ASSE_GENE) == matr_asse_gene_r : return matr_asse_gene_r
- if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_gene_c
- if AsType(MATR_ASSE_GENE) == matr_asse_gene_c : return matr_asse_gene_c
- raise AsException("type de concept resultat non prevu")
-
-PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op= 71,sd_prod=matr_asse_gene_prod,
- fr="Projection d'une matrice assemblée sur une base (modale ou de RITZ)",
- reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
- BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene,mode_stat ) ),
- NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
- MATR_ASSE =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
- MATR_ASSE_GENE =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
-) ;
-
-#& 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.
+# 6.2.5.2. ==> Test du maximum fort
#
-# 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.
+ T_MAXIMUM_FORT = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),
+ fr="Test du maximum fort.",
+ ang="Strong maximum test."),
#
-# 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 proj_mesu_modal_prod(MODELE_MESURE,**args):
- vale=MODELE_MESURE['MESURE']
- if AsType(vale) == dyna_trans : return tran_gene
- if AsType(vale) == dyna_harmo : return harm_gene
- if AsType(vale) == mode_meca : return mode_gene
-# if AsType(vale) == mode_meca_c : return mode_gene_c
- if AsType(vale) == base_modale : return mode_gene
- raise AsException("type de concept resultat non prevu")
-
-PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
- sd_prod=proj_mesu_modal_prod,
- reentrant='n',
- UIinfo={"groupes":("Résultats et champs",)},
- fr="Calcul des coordonnees généralisees de mesure experimentale relatives a une base de projection",
-
- MODELE_CALCUL =FACT(statut='o',
- MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
- BASE =SIMP(statut='o',typ=(mode_meca,base_modale,) ),
- ),
- MODELE_MESURE =FACT(statut='o',
- MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
- MESURE =SIMP(statut='o',typ=(dyna_trans,dyna_harmo,base_modale,mode_meca,mode_meca_c,) ),
- NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","SIEF_NOEU","EPSI_NOEU_DEPL",) ),
- ),
- CORR_MANU =FACT(statut='f',max='**',
- regles=(PRESENT_PRESENT('NOEU_CALCUL','NOEU_MESURE'),),
- NOEU_CALCUL =SIMP(statut='f',typ=no),
- NOEU_MESURE =SIMP(statut='f',typ=no),
- ),
- RESOLUTION =FACT(statut='f',
- METHODE =SIMP(statut='f',typ='TXM',defaut="LU",into=("LU","SVD",) ),
- b_svd =BLOC(condition="METHODE=='SVD'",
- EPS=SIMP(statut='f',typ='R',defaut=0. ),
- ),
- REGUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","NORM_MIN","TIK_RELA",) ),
- b_regul =BLOC(condition="REGUL!='NON'",
- regles=(PRESENT_ABSENT('COEF_PONDER','COEF_PONDER_F', ),),
- COEF_PONDER =SIMP(statut='f',typ='R',defaut=0. ,max='**' ),
- COEF_PONDER_F =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),max='**' ),
- ),
- ),
-
- );
-#& 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.
+ b_test_du_maximum_fort=BLOC( condition = "T_MAXIMUM_FORT=='OUI'",
#
-# 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.
+ COS_LIM = SIMP(statut="f",typ="R",max=1,defaut=1.0,
+ fr="Cosinus de l'angle d'exclusion.",
+ ang="Cosine of angle of exclusion."),
#
-# 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.
-# ======================================================================
-PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=table_sdaster,reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- fr="Projecter un ou plusieurs spectres de turbulence sur une (ou plusieurs) base(s) modale(s) ",
- regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
- ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
- SPEC_TURB =SIMP(statut='o',typ=spectre_sdaster,validators=NoRepeat(),max='**' ),
- BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu_sdaster ),
- MODE_MECA =SIMP(statut='f',typ=mode_meca ),
- CHAM_NO =SIMP(statut='f',typ=cham_no_sdaster),
- FREQ_INIT =SIMP(statut='f',typ='R',val_min=0.E+0 ),
- FREQ_FIN =SIMP(statut='f',typ='R',val_min=0.E+0 ),
- NB_POIN =SIMP(statut='f',typ='I' ),
- OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
- GROUP_MA =SIMP(statut='f',typ=grma),
-# Quel est le type attendu derriere MODELE_INTERFACE
- MODELE_INTERFACE=SIMP(statut='f',typ=modele_sdaster),
- VECT_X =SIMP(statut='f',typ='R',min=3,max=3 ),
- VECT_Y =SIMP(statut='f',typ='R',min=3,max=3 ),
- ORIG_AXE =SIMP(statut='f',typ='R',min=3,max=3 ),
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
-) ;
-#& 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.
+ DPROB = SIMP(statut="f",typ="R",max=1,defaut=4.3E-1,
+ fr="Fraction d'iso-densité de probabilité de défaillance.",
+ ang="Fraction.")
#
-# 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.
-# ======================================================================
-
-PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op= 72,sd_prod=vect_asse_gene,
- fr="Projection d'un vecteur assemblé sur une base (modale ou de RITZ)",
- reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
- BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene,mode_stat ) ),
- NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
- TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
- VECT_ASSE =SIMP(statut='f',typ=cham_no_sdaster),
- VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene ),
-) ;
-#& MODIF COMMANDE DATE 03/01/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.
+# 6.2.5.3. ==> Test du hessien
#
-# 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.
+ T_HESSIEN = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),
+ fr="Test du hessien.",
+ ang="Hessian test."),
#
-# 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.
-# ======================================================================
-RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=table_sdaster,
- fr="Recaler les paramètres du modèle de WEIBULL sur des données expérimentales",reentrant='n',
- UIinfo={"groupes":("Post traitements",)},
- LIST_PARA =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=2,into=("SIGM_REFE","M",) ),
- RESU =FACT(statut='o',max='**',
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
- AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
- EVOL_NOLI =SIMP(statut='o',typ=(evol_noli) ),
- MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
- CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
- TEMPE =SIMP(statut='f',typ='R' ),
- LIST_INST_RUPT =SIMP(statut='o',typ='R',validators=NoRepeat(),max='**' ),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
- LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
- 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='**'),
- COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.E0 ),
- ),
- OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
- CORR_PLAST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
- METHODE =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
- INCO_GLOB_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
- ) ;
-#& MODIF COMMANDE DATE 16/05/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.
+# 6.2.6. ==> Les correlations entre les variables
+#
+ MATRICE = SIMP(statut="f",typ="R",max="**",
+ fr="Matrice de corrélation entre les variables.",
+ ang="Correlation matrix."),
+#
+### en attente de résolution de AL 2004-006 (2/2) ),
+#
+#====
+# 7. Definition des paramètres
+#====
+#
+ VARIABLE = FACT(statut="o",min=1,max="**",
+#
+# 7.1. ==> Nom de la variable
+#
+ NOM = SIMP(statut="o",typ="TXM",
+ fr="Nom de la variable, identique au nom de concept PARA_SENSI.",
+ ang="Name of the variable, identical to the name of the PARA_SENSI conceipt."),
+#
+# 7.2. ==> Loi de distribution
+#
+ LOI = SIMP(statut="o",typ="TXM",
+ into=("UNIFORME","NORMALE","LOGNORMALE","NORMALE_TRONQUEE"),
+ fr="Choix de la loi",
+ ang="Law."),
+#
+# 7.2.1. ==> Loi normale
+#
+ b_normale=BLOC(condition="LOI=='NORMALE'",
+#
+ VALE_MOY = SIMP(statut="o",typ="R",max=1,
+ fr="Valeur moyenne.",
+ ang="Mean value."),
#
-# 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.
+ ECART_TYPE = SIMP(statut="o",typ="R",max=1,
+ fr="Ecart type.",
+ ang="Standard deviation."),
#
-# 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 MCOURTOI M.COURTOIS
-def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
- RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
- TYPE_RESU=None,**args):
- if AsType(RESULTAT) == dyna_harmo : return fonction_c
- if AsType(RESU_GENE) == harm_gene : return fonction_c
-# On ne sait pas interpreter les deux conditions suivantes
- if TABLE != None :
- if TYPE_RESU != None :
- if TYPE_RESU == "FONCTION_C" : return fonction_c
- if TYPE_RESU == "FONCTION" : return fonction_sdaster
- else:
- return fonction_sdaster
- if RESU_GENE != None : return fonction_sdaster
- if BASE_ELAS_FLUI != None : return fonction_sdaster
- if RESULTAT != None : return fonction_sdaster
- if CHAM_GD != None : return fonction_sdaster
- if OBSTACLE != None : return fonction_sdaster
- raise AsException("type de concept resultat non prevu")
-
-RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
- fr="Extraire sous forme d'une fonction, l'évolution d'une grandeur en fonction d'une autre",
- reentrant='f',
- UIinfo={"groupes":("Fonction",)},
- regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
-
- CHAM_GD =SIMP(statut='f',typ=(cham_no_sdaster,
- cham_elem,),),
- RESULTAT =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
- RESU_GENE =SIMP(statut='f',typ=(tran_gene, mode_gene, harm_gene)),
- TABLE =SIMP(statut='f',typ=table_sdaster),
- BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu_sdaster),
- OBSTACLE =SIMP(statut='f',typ=obstacle_sdaster),
-
-# ======= SENSIBILITE =================================================
- b_sensibilite =BLOC(condition="RESULTAT != None",
- fr="Définition des paramètres de sensibilité",
- ang="Definition of sensitivity parameters",
- regles=(CONCEPT_SENSIBLE('SEPARE'), REUSE_SENSIBLE(),
- DERIVABLE('RESULTAT'),),
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des paramètres de sensibilité.",
- ang="List of sensitivity parameters"),),
-# ======= ACCES A LA SD RESULTAT =================================================
- b_acces = BLOC ( condition = "(RESULTAT != None) or (RESU_GENE != None)",
- fr="acces a une SD résultat",
-# on ne peut pas mettre de regles, le défaut TOUT_ORDRE est pris en compte dans le fortran
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster ),
- TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster ),
- FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster ),
- NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- INTERP_NUME =SIMP(statut='f',typ='TXM',into=("NON","LIN") ),
- ),
- ),
-# ======= BASE_ELAS_FLUI =================================================
- b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
- fr="Récupération de la fonction à partir d un concept melasflu",
- regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- NUME_MODE =SIMP(statut='o',typ='I' ),
- PARA_X =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
- PARA_Y =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
- ),
-
-# ======= TABLE =================================================
- b_table = BLOC ( condition = "TABLE != None",
- fr="Récupération de la fonction à partir d un concept table",
- regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
- PRESENT_PRESENT('PARA_X','PARA_Y'),),
- PARA_X =SIMP(statut='f',typ='TXM',
- fr="1ère colonne de la table qui définit la fonction à récupérer", ),
- PARA_Y =SIMP(statut='f',typ='TXM',
- fr="2ème colonne de la table qui définit la fonction à récupérer", ),
- NOM_PARA_TABL =SIMP(statut='f',typ='TXM',into=("FONCTION",),
- fr="Nom du paramètre de la table à qui est associé la fonction" ),
- b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
- TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
- ),
-
- FILTRE =FACT(statut='f',max='**',
- NOM_PARA =SIMP(statut='o',typ='TXM' ),
- CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
- into=("EQ","LT","GT","NE","LE","GE","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' ),
- VALE_I =SIMP(statut='f',typ='I' ),
- VALE_C =SIMP(statut='f',typ='C' ),
- VALE_K =SIMP(statut='f',typ='TXM' ),),
-
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
- ),
- ),
-
-# ======= RESULTAT =================================================
- b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
- regles=(UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
- NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
- NOM_PARA_RESU =SIMP(statut='f',typ='TXM' ),
- b_cham = BLOC ( condition = "NOM_CHAM != None",
- regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD'),
- PRESENT_ABSENT('POINT','NOEUD','GROUP_NO'),
- PRESENT_ABSENT('SOUS_POINT','NOEUD','GROUP_NO'),
- EXCLUS('GROUP_MA','MAILLE'),
- EXCLUS('GROUP_NO','NOEUD'),),
- NOM_CMP =SIMP(statut='o',typ='TXM' ),
- MAILLE =SIMP(statut='f',typ=ma),
- GROUP_MA =SIMP(statut='f',typ=grma),
- NOEUD =SIMP(statut='f',typ=no),
- GROUP_NO =SIMP(statut='f',typ=grno),
- POINT =SIMP(statut='f',typ='I' ),
- SOUS_POINT =SIMP(statut='f',typ='I' ),
- ),
- ),
-
-# ======= RESU_GENE =================================================
- b_tran_gene = BLOC ( condition = "AsType(RESU_GENE) == tran_gene",
- fr="Récupération d'une fonction à partir d un concept TRAN_GENE",
- regles=(UN_PARMI('NOM_CHAM','NOEUD_CHOC','GROUP_NO_CHOC'),),
- NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
- NOEUD_CHOC =SIMP(statut='f',typ=no),
- GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
- b_cham = BLOC ( condition = "(NOM_CHAM=='DEPL') or (NOM_CHAM=='VITE') or (NOM_CHAM=='ACCE')",
- regles=(UN_PARMI('GROUP_NO','NOEUD'),
- EXCLUS('MULT_APPUI','CORR_STAT'),),
- NOM_CMP =SIMP(statut='o',typ='TXM' ),
- NOEUD =SIMP(statut='f',typ=no),
- GROUP_NO =SIMP(statut='f',typ=grno),
- MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- ACCE_MONO_APPUI =SIMP(statut='f',typ=(fonction_sdaster,formule)),
- ),
- b_choc = BLOC ( condition = "(NOEUD_CHOC != None) or (GROUP_NO_CHOC != None)",
- regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),),
- PARA_X =SIMP(statut='o',typ='TXM',
- into=("INST","FN","FT1","FT2","VN","VT1","VT2","DXLOC","DYLOC","DZLOC") ),
- PARA_Y =SIMP(statut='o',typ='TXM',
- into=("INST","FN","FT1","FT2","VN","VT1","VT2","DXLOC","DYLOC","DZLOC") ),
- LIST_PARA =SIMP(statut='f',typ=listr8_sdaster ),
- INTITULE =SIMP(statut='f',typ='TXM' ),
- SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
- ),
- ),
- b_harm_gene = BLOC ( condition = "AsType(RESU_GENE)==harm_gene",
- fr="Récupération d'une fonction à partir d un concept HARM_GENE",
- regles=(UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
- NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
- NOM_PARA_RESU =SIMP(statut='f',typ='TXM' ),
- b_cham = BLOC ( condition = "NOM_CHAM != None",
- regles=(UN_PARMI('NUME_CMP_GENE','NOM_CMP'),),
- NUME_CMP_GENE =SIMP(statut='f',typ='I' ),
- NOM_CMP =SIMP(statut='f',typ='TXM' ),
- b_cmp = BLOC ( condition = "NOM_CMP != None",
- regles=(UN_PARMI('NOEUD','GROUP_NO'),),
- NOEUD =SIMP(statut='f',typ=no),
- GROUP_NO =SIMP(statut='f',typ=grno),
- ),
- ),
- ),
- b_mode_gene = BLOC ( condition = "AsType(RESU_GENE)==mode_gene",
- fr="Récupération d'une fonction à partir d un concept MODE_GENE",
- regles=(UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
- NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
- NOM_PARA_RESU =SIMP(statut='f',typ='TXM' ),
- b_cham = BLOC ( condition = "NOM_CHAM != None",
- regles=(UN_PARMI('NUME_CMP_GENE','NOM_CMP'),),
- NUME_CMP_GENE =SIMP(statut='f',typ='I' ),
- NOM_CMP =SIMP(statut='f',typ='TXM' ),
- b_cmp = BLOC ( condition = "NOM_CMP != None",
- regles=(UN_PARMI('NOEUD','GROUP_NO'),
- UN_PARMI('SQUELETTE','SOUS_STRUC'),),
- NOEUD =SIMP(statut='f',typ=no),
- GROUP_NO =SIMP(statut='f',typ=grno),
- SQUELETTE =SIMP(statut='f',typ=squelette ),
- SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
- ),
- ),
- ),
-
-# ======= CHAM_GD =================================================
- b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
- regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD'),
- PRESENT_ABSENT('POINT','NOEUD','GROUP_NO'),
- PRESENT_ABSENT('SOUS_POINT','NOEUD','GROUP_NO'),
- EXCLUS('GROUP_MA','MAILLE'),
- EXCLUS('GROUP_NO','NOEUD'),),
- NOM_CMP =SIMP(statut='o',typ='TXM' ),
- MAILLE =SIMP(statut='f',typ=ma),
- GROUP_MA =SIMP(statut='f',typ=grma),
- NOEUD =SIMP(statut='f',typ=no),
- GROUP_NO =SIMP(statut='f',typ=grno),
- POINT =SIMP(statut='f',typ='I' ),
- SOUS_POINT =SIMP(statut='f',typ='I' ),
- ),
-
-# ======= OBSTACLE =================================================
- b_obstacle = BLOC ( condition = "OBSTACLE != None",
- fr="Choix du repère",
- REPERE =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
- ),
+ ),
+#
+# 7.2.2. ==> Loi lognormale
+#
+ b_lognormale=BLOC(condition="LOI=='LOGNORMALE'",
+#
+ VALE_MIN = SIMP(statut="o",typ="R",max=1,
+ fr="Valeur minimale.",
+ ang="Minimal value."),
+#
+ VALE_MOY = SIMP(statut="f",typ="R",max=1,
+ fr="Valeur moyenne dans l'espace de la loi normale.",
+ ang="Mean value in the space of the normal law."),
+#
+ ECART_TYPE = SIMP(statut="f",typ="R",max=1,
+ fr="Ecart type dans l'espace de la loi normale.",
+ ang="Standard deviation in the space of the normal law."),
+#
+ VALE_MOY_PHY = SIMP(statut="f",typ="R",max=1,
+ fr="Valeur moyenne dans l'espace physique.",
+ ang="Mean value in the physical space."),
+#
+ ECART_TYPE_PHY = SIMP(statut="f",typ="R",max=1,
+ fr="Ecart type dans l'espace physique.",
+ ang="Standard deviation in the physical space."),
+#
+ regles=(AU_MOINS_UN("VALE_MOY" ,"VALE_MOY_PHY"),
+ AU_MOINS_UN("ECART_TYPE","ECART_TYPE_PHY"),
+ EXCLUS ("VALE_MOY" ,"VALE_MOY_PHY"),
+ EXCLUS ("VALE_MOY" ,"ECART_TYPE_PHY"),
+ EXCLUS ("ECART_TYPE","VALE_MOY_PHY"),
+ EXCLUS ("ECART_TYPE","ECART_TYPE_PHY")),
+#
+ ),
+#
+# 7.2.3. ==> Loi uniforme
+#
+ b_uniforme=BLOC(condition="LOI=='UNIFORME'",
+#
+ VALE_MIN = SIMP(statut="o",typ="R",max=1,
+ fr="Valeur minimale.",
+ ang="Minimal value."),
+#
+ VALE_MAX = SIMP(statut="o",typ="R",max=1,
+ fr="Valeur maximale.",
+ ang="Maximal value."),
+#
+ ),
+#
+# 7.2.4. ==> Loi normale tronquée
+#
+ b_normale_tronquee=BLOC(condition="LOI=='NORMALE_TRONQUEE'",
+#
+ VALE_MOY = SIMP(statut="o",typ="R",max=1,
+ fr="Valeur moyenne de la loi normale complète.",
+ ang="Mean value for the entire normal law."),
+#
+ ECART_TYPE = SIMP(statut="o",typ="R",max=1,
+ fr="Ecart type de la loi normale complète.",
+ ang="Standard deviation for the entire normal law."),
+#
+ VALE_MIN = SIMP(statut="o",typ="R",max=1,
+ fr="Valeur minimale.",
+ ang="Minimal value."),
+#
+ VALE_MAX = SIMP(statut="o",typ="R.",max=1,
+ fr="Valeur maximale.",
+ ang="Maximal value."),
+#
+ ),
+#
+# 7.3. ==> Paramètres de calcul
+# 7.3.1. ==> Soit on cherche le point de conception, soit on le connait deja
+#
+ regles=(EXCLUS("POINT_INI","POINT_CONCEPT"),
+ EXCLUS("POINT_REF","POINT_CONCEPT"),),
+#
+# 7.3.2. ==> Quand on cherche le point de conception, on peut préciser le départ de l'algorithme.
+# Si on ne le fait pas, le programme prendra la valeur moyenne.
+#
+ POINT_INI = SIMP(statut="f",typ="R",max=1,
+ fr="Point de démarrage de l'algorithme itératif.",
+ ang="Initial point for iterative process."),
+#
+# 7.3.3. ==> Quand on cherche le point de conception, on peut préciser un point de référence pour normaliser.
+# Si on ne le fait pas, le programme prendra la valeur moyenne.
+#
+ POINT_REF = SIMP(statut="f",typ="R",max=1,
+ fr="Point de référence de l'algorithme itératif.",
+ ang="Reference point for iterative process."),
+#
+# 7.3.4. ==> Quand on cherche uniquement la probabilité de défaillance, il faut donner le point de conception
+#
+ POINT_CONCEPT = SIMP(statut="f",typ="R",max=1,
+ fr="Point de conception.",
+ ang="Design point."),
+#
+# 7.4. ==> Mode d'obtention du gradient par rapport à ce paramètre
+#
+ GRADIENT = SIMP(statut="o",typ="TXM",max=1,
+ into=("OUI","NON"),
+ fr="ASTER calcule directement le gradient.",
+ ang="ASTER computes the gradient for this parameter."),
-# ======= SURCHARGE DES ATTRIBUTS =================================================
- NOM_PARA =SIMP(statut='f',typ='TXM', into=C_PARA_FONCTION() ),
- NOM_RESU =SIMP(statut='f',typ='TXM' ),
- INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
- PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
- PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
+ b_gradient=BLOC(condition="GRADIENT=='NON'",
+ INCREMENT = SIMP(statut="o",typ="R",max=1,
+ fr="Incrément dans la direction.",
+ ang="Direction increment."),
+ ),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
-) ;
-#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
+ ),
+#
+);
+#& MODIF COMMANDE DATE 22/05/2006 AUTEUR MCOURTOI M.COURTOIS
# 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.
# ======================================================================
-RECU_GENE=OPER(nom="RECU_GENE",op= 76,sd_prod=vect_asse_gene,reentrant='n',
- UIinfo={"groupes":("Résultats et champs",)},
- fr="Extraire d'un champ de grandeur (déplacements, vitesses ou accélérations) à partir de résultats"
- +" en coordonnées généralisées",
- RESU_GENE =SIMP(statut='o',typ=tran_gene ),
- INST =SIMP(statut='o',typ='R' ),
- NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
- INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+# RESPONSABLE GNICOLAS G.NICOLAS
+
+from Macro.macr_adap_mail_ops import macr_adap_mail_ops
+
+MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=macr_adap_mail_ops,
+ docu="U7.03.02-b",UIinfo={"groupe":("Maillage",)},
+ fr="Donner des informations sur un maillage.",
+ ang="To give information about a mesh.",
+#
+# 1. Le niveau d'information
+#
+ INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+#
+# 2. Version de HOMARD
+#
+ VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V8_2",
+ into=("V8_2", "V8_N", "V8_N_PERSO"),
+ fr="Version de HOMARD",
+ ang="HOMARD release"),
+#
+# 3. Langue des messages issus de HOMARD
+#
+ LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
+ into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
+ fr="Langue des messages issus de HOMARD.",
+ ang="Language for HOMARD messages." ),
+#
+# 4. Le nom du maillage a analyser
+#
+ MAILLAGE = SIMP(statut='o',typ=maillage_sdaster,
+ fr="Maillage à analyser.",
+ ang="Mesh to be checked." ),
+#
+# 5. Suivi d'une frontiere
+#
+ MAILLAGE_FRONTIERE = SIMP(statut='f',typ=maillage_sdaster,
+ fr="Maillage de la frontiere à suivre",
+ ang="Boundary mesh" ),
+#
+ b_frontiere = BLOC( condition = " MAILLAGE_FRONTIERE != None " ,
+ fr="Information complémentaire sur la frontière",
+ ang="Further information about boundary",
+#
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
+ fr="Groupes de mailles définissant la frontière",
+ ang="Mesh groups which define the boundary" ),
+#
+ ) ,
+#
+# 6. Les options ; par defaut, on controle tout
+# 6.1. Nombre de noeuds et elements
+#
+ NOMBRE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
+ fr="Nombre de noeuds et éléments du maillage",
+ ang="Number of nodes and elements in the mesh" ),
+#
+# 6.2. Determination de la qualite des elements du maillage
+#
+ QUALITE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
+ fr="Qualité du maillage",
+ ang="Mesh quality" ),
+#
+# 6.3. Connexite du maillage
+#
+ CONNEXITE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
+ fr="Connexité du maillage.",
+ ang="Mesh connexity." ),
+#
+# 6.4. Taille des sous-domaines du maillage
+#
+ TAILLE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
+ fr="Tailles des sous-domaines du maillage.",
+ ang="Sizes of mesh sub-domains." ),
+#
+# 6.5. Controle de la non-interpenetration des elements
+#
+ INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
+ fr="Controle de la non interpénétration des éléments.",
+ ang="Overlapping checking." ),
+#
+# 7. Gestion des éléments autres que ceux compatibles avec HOMARD
+# "REFUSER" : ils sont refuses (defaut)
+# "IGNORER" : ils sont ignorés
+#
+ ELEMENTS_NON_HOMARD = SIMP(statut='f',typ='TXM',defaut="REFUSER",into=("REFUSER","IGNORER"),
+ fr="Acceptation d'éléments incompatibles avec HOMARD",
+ ang="Incompatible elements for HOMARD" ),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 09/05/2006 AUTEUR GALENNE E.GALENNE
# 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.
+# COPYRIGHT (C) 1991 - 2002 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
-RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table_sdaster,
- fr="Récupérer dans une table les valeurs d'un paramètre d'une SD Résultat ou d'extraire une table contenue"
- +" dans une autre SD pour celles qui le permettent",
- UIinfo={"groupes":("Résultats et champs",)},reentrant='n',
- CO =SIMP(statut='o',typ=assd),
- regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
- NOM_TABLE =SIMP(statut='f',typ='TXM' ),
- NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
+
+from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
+
+MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=table_sdaster,
+ reentrant='n',
+ UIinfo={"groupes":("Outils métier",)},
+ fr="Extraction des valeurs d'un résultat dans une ou plusieurs tables sur des lignes de coupe définies"
+ +" par deux points et un intervalle",
+ RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
+# extraction des résultats
+ b_meca =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
+ NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
+ ),
+ b_ther =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
+ NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
+ ),
+ UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=25),
+ MODELE =SIMP(statut='f',typ=modele_sdaster ),
+ GROUP_MA =SIMP(statut='f',typ=grma),
+ MAILLE =SIMP(statut='f',typ=ma,max='**'),
+ regles=(EXCLUS('GROUP_MA','MAILLE'),),
+ LIGN_COUPE =FACT(statut='o',max='**',
+ regles=(UN_PARMI('NB_POINTS','GROUP_NO'),),
+ INTITULE =SIMP(statut='f',typ='TXM',),
+ GROUP_NO =SIMP(statut='f',typ=grno),
+ NB_POINTS =SIMP(statut='f',typ='I'),
+ b_nbpts = BLOC(condition = "NB_POINTS != None",
+ COOR_ORIG =SIMP(statut='o',typ='R',min=2,max=3),
+ COOR_EXTR =SIMP(statut='o',typ='R',min=2,max=3),
+ VECT_Y =SIMP(statut='f',typ='R',min=2,max=3),),
+ ),
) ;
-#& 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.
-# ======================================================================
-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),
- 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
+
+#& MODIF COMMANDE DATE 08/11/2005 AUTEUR ASSIRE A.ASSIRE
# 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.
+# COPYRIGHT (C) 1991 - 2002 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
+
+from Macro.macr_recal_ops import macr_recal_ops
-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) ),
+def macr_recal_prod(self,**args ):
+ return listr8_sdaster
+
+MACR_RECAL = MACRO(nom="MACR_RECAL",op=macr_recal_ops,
+ UIinfo={"groupes":("Résultats et champs",)},
+ sd_prod=macr_recal_prod,
+ fr="Réalise le recalage des calculs Aster sur des résultats expérimentaux"
+ +" ou sur d'autres résultats de calculs",
+ UNITE_ESCL =SIMP(statut='o',typ='I'),
+ RESU_EXP =SIMP(statut='o',typ=assd,max='**'),
+ POIDS =SIMP(statut='f',typ=assd,max='**'),
+ RESU_CALC =SIMP(statut='o',typ=assd,max='**'),
+ LIST_PARA =SIMP(statut='o',typ=assd,max='**'),
+ ITER_MAXI =SIMP(statut='f',typ='I',defaut=10),
+ RESI_GLOB_RELA =SIMP(statut='f',typ='R',defaut=1.E-3),
+ UNITE_RESU =SIMP(statut='f',typ='I',defaut=91),
+ PARA_DIFF_FINI =SIMP(statut='f',typ='R',defaut=0.001),
+ GRAPHIQUE =FACT(statut='d',
+ UNITE =SIMP(statut='f',typ='I',defaut=90),
+ FORMAT =SIMP(statut='f',typ='TXM',defaut='XMGRACE',into=("XMGRACE","GNUPLOT")),
+ INTERACTIF =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON")),),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=( 1, 2 ) ),
) ;
-#& MODIF COMMANDE DATE 20/03/2006 AUTEUR ACBHHCD G.DEVESA
+#& MODIF COMMANDE DATE 04/04/2006 AUTEUR CIBHHLV L.VIVAN
# 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.
# ======================================================================
-# RESPONSABLE BOYERE E.BOYERE
-def rest_base_phys_prod(RESU_GENE,RESU_PHYS,RESULTAT,**args ):
- if AsType(RESU_GENE) == tran_gene : return dyna_trans
- if AsType(RESU_GENE) == mode_gene : return mode_meca
- if AsType(RESU_GENE) == mode_cycl : return mode_meca
- if AsType(RESU_GENE) == harm_gene : return dyna_harmo
- if AsType(RESU_PHYS) == evol_noli : return dyna_trans
- if AsType(RESULTAT) == evol_elas : return evol_elas
- if AsType(RESULTAT) == evol_noli : return evol_noli
- if AsType(RESULTAT) == evol_char : return evol_char
- if AsType(RESULTAT) == dyna_trans : return dyna_trans
- if AsType(RESULTAT) == mode_meca : return mode_meca
- if AsType(RESULTAT) == mode_stat_depl : return mode_stat_depl
- if AsType(RESULTAT) == base_modale : return base_modale
- raise AsException("type de concept resultat non prevu")
+# RESPONSABLE G8BHHXD X.DESROCHES
-REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op= 75,sd_prod=rest_base_phys_prod,
- fr="Restituer dans la base physique des résultats en coordonnées généralisées",
- reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- regles=(UN_PARMI('RESU_GENE','RESU_PHYS','RESULTAT'),
- EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
- EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
-# Doc U à revoir
- EXCLUS('MULT_APPUI','CORR_STAT'),
- EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
- EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
- EXCLUS('NOEUD','GROUP_NO'),
- PRESENT_PRESENT('RESU_PHYS','BASE_MODALE'),
- PRESENT_PRESENT('RESULTAT','SQUELETTE'),
- PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
- RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli,dyna_trans,evol_char,
- mode_meca,mode_stat_depl,base_modale) ),
-
- RESU_GENE =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene) ),
- RESU_PHYS =SIMP(statut='f',typ=evol_noli ),
- BASE_MODALE =SIMP(statut='f',typ=(base_modale,mode_meca) ),
- NUME_DDL =SIMP(statut='f',typ=nume_ddl_sdaster ),
- MODE_MECA =SIMP(statut='f',typ=mode_meca ),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
- NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
- TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster ),
- FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
- LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
- INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
- MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NOM_CHAM =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max=8,defaut="ACCE",
- into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
- "SIGM_ELNO_DEPL","FORC_NODA",) ),
- TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
-
- ACCE_MONO_APPUI =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- DIRECTION =SIMP(statut='f',typ='R',min=3,max=3 ),
+from Macro.macro_elas_mult_ops import macro_elas_mult_ops
- CYCLIQUE =FACT(statut='f',max='**',
- NB_SECTEUR =SIMP(statut='f',typ='I',validators=NoRepeat(),max=1 ),
- NUME_DIAMETRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max=1 ),
- RESULTAT2 =SIMP(statut='f',typ=(evol_elas,evol_noli,dyna_trans,evol_char,
- mode_meca,mode_stat_depl,base_modale) ),
- ),
+def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
+ if isinstance(NUME_DDL,CO) :
+ self.type_sdprod(NUME_DDL,nume_ddl_sdaster)
+ else:
+ self.type_sdprod(NUME_DDL,NUME_DDL.__class__)
+ if CAS_CHARGE[0]['NOM_CAS'] != None : return mult_elas
+ if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
+ raise AsException("type de concept resultat non prevu")
- SQUELETTE =SIMP(statut='f',typ=squelette ),
- SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
- SECTEUR =SIMP(statut='f',typ='I',defaut= 1 ),
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
-) ;
-#& MODIF COMMANDE DATE 03/01/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.
-# ======================================================================
-REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=table_sdaster,
- reentrant='n',
- fr="Calculer la réponse d'une structure dans la base physique",
- UIinfo={"groupes":("Matrices/vecteurs",)},
- regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
- BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu_sdaster ),
- MODE_MECA =SIMP(statut='f',typ=mode_meca ),
- BANDE =SIMP(statut='f',typ='R',min=2,validators=NoRepeat(),max=2 ),
- NUME_ORDRE =SIMP(statut='f',typ='I' ,validators=NoRepeat(),max='**' ),
- INTE_SPEC_GENE =SIMP(statut='o',typ=table_sdaster),
- NOEUD =SIMP(statut='o',typ=no ,max='**'),
- MAILLE =SIMP(statut='f',typ=ma ,max='**'),
- NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
- NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=7,
- into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
- "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
- MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
- EXCIT =FACT(statut='f',
- NOEUD =SIMP(statut='o',typ=no ,max='**'),
- NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
+MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=macro_elas_mult_ops,sd_prod=macro_elas_mult_prod,reentrant='f',
+ UIinfo={"groupes":("Résolution",)},
+ fr="Calculer les réponses statiques linéaires pour différents cas de charges ou modes de Fourier",
+ regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ NUME_DDL =SIMP(statut='f',typ=(nume_ddl_sdaster,CO)),
+ CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
+ CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
+ LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ CAS_CHARGE =FACT(statut='o',max='**',
+ regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
+ UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
+ NOM_CAS =SIMP(statut='f',typ='TXM' ),
+ MODE_FOURIER =SIMP(statut='f',typ='I' ),
+ TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
+ CHAR_MECA =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
+ CHAR_CINE =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
+ OPTION =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
+ into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
+ "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
+ "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
+ "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
+ "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
+ "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERZ1_ELEM_SIGM","SIGM_NOZ2_ELGA",
+ "ERZ2_ELEM_SIGM","VNOR_ELEM_DEPL","ERRE_ELNO_ELEM","SIRE_ELNO_DEPL",
+ "ERRE_ELEM_SIGM","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
+ "QIRE_ELEM_SIGM","QIRE_ELNO_ELEM","QIZ1_ELEM_SIGM","QIZ2_ELEM_SIGM",
+ "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
+ "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
+ NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
+ NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
+ SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ VECT_ASSE =SIMP(statut='f',typ=cham_no_sdaster),
+ ),
+ SOLVEUR =FACT(statut='d',
+ METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
+ 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") ),
+ ),
),
- MOUVEMENT =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
- OPTION =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
- into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 16/05/2006 AUTEUR REZETTE C.REZETTE
+#& 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.
+# 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 MABBAS M.ABBAS
-STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
- fr="Calcul de l'évolution mécanique ou thermo-hydro-mécanique couplée, en quasi-statique,"
- +" d'une structure en non linéaire",
- reentrant='f',
- UIinfo={"groupes":("Résolution",)},
- regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),
- CONCEPT_SENSIBLE('ENSEMBLE'),),
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='o',typ=cham_mater),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- 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")),
- ),
- SOUS_STRUC =FACT(statut='f',min=01,max='**',
- regles=(UN_PARMI('TOUT','MAILLE'),),
- CAS_CHARGE =SIMP(statut='o',typ='TXM' ),
- TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**',),
- ),
- 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",) ),
- 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='**'),
- MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- ),
- 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','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'),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- NUME_DIDI =SIMP(statut='f',typ='I'),
- INST_ETAT_INIT =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','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'),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- NUME_DIDI =SIMP(statut='f',typ='I'),
- INST_ETAT_INIT =SIMP(statut='f',typ='R'),
- ),),
- INCREMENT =FACT(statut='o',
- regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
- EXCLUS('NUME_INST_FIN','INST_FIN'),),
- LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
- EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
- into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
- NUME_INST_INIT =SIMP(statut='f',typ='I'),
- INST_INIT =SIMP(statut='f',typ='R'),
- NUME_INST_FIN =SIMP(statut='f',typ='I'),
- INST_FIN =SIMP(statut='f',typ='R'),
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
- SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
- SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
- COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
- OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
- NOM_CHAM =SIMP(statut='f',typ='TXM',),
- NOM_CMP =SIMP(statut='f',typ='TXM',),
- VALE =SIMP(statut='f',typ='R'),
+
+from Macro.macro_matr_ajou_ops import macro_matr_ajou_ops
+
+def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
+ self.type_sdprod(MATR_AMOR_AJOU,matr_asse_gene_r)
+ self.type_sdprod(MATR_MASS_AJOU,matr_asse_gene_r)
+ self.type_sdprod(MATR_RIGI_AJOU,matr_asse_gene_r)
+ if FORC_AJOU != None:
+ for m in FORC_AJOU:
+ self.type_sdprod(m['VECTEUR'],vect_asse_gene)
+
+ return None
+
+MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=macro_matr_ajou_ops,sd_prod=macro_matr_ajou_prod,
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ fr="Calculer de facon plus condensée qu'avec CALC_MATR_AJOU des matrices de masse, d'amortissement"
+ +" ou de rigidité ajoutés",
+ regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
+ AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
+ EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
+ EXCLUS('MONO_APPUI','MODE_STAT',),
+ ),
+ MAILLAGE =SIMP(statut='o',typ=maillage_sdaster),
+ GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
+ GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
+ MODELISATION =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
+ FLUIDE =FACT(statut='o',max='**',
+ RHO =SIMP(statut='o',typ='R'),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ GROUP_MA =SIMP(statut='f',typ=grma),
+ MAILLE =SIMP(statut='f',typ=ma),
),
- NEWTON =FACT(statut='d',
- REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
- PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
- MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
- PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
- REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
- REAC_ITER_ELAS =SIMP(statut='f',typ='I',defaut=0),
- EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
+ DDL_IMPO =FACT(statut='o',max='**',
+ regles=(UN_PARMI('NOEUD','GROUP_NO'),
+ UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
+ NOEUD =SIMP(statut='f',typ=no),
+ GROUP_NO =SIMP(statut='f',typ=grno),
+ PRES_FLUIDE =SIMP(statut='f',typ='R'),
+ PRES_SORTIE =SIMP(statut='f',typ='R'),
),
- RECH_LINEAIRE =FACT(statut='f',
- RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
- ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
- ITER_LINE_CRIT =SIMP(statut='f',typ='I',defaut= 20),
- PAS_MINI_CRIT =SIMP(statut='f',typ='R',defaut=0.0E+0),
- RHO_MIN =SIMP(statut='f',typ='R',defaut=1.0E-2),
- RHO_MAX =SIMP(statut='f',typ='R',defaut=1.0E+1),
- RHO_EXCL =SIMP(statut='f',typ='R',defaut=0.9E-2),
+ ECOULEMENT =FACT(statut='f',
+ GROUP_MA_1 =SIMP(statut='o',typ=grma),
+ GROUP_MA_2 =SIMP(statut='o',typ=grma),
+ VNOR_1 =SIMP(statut='o',typ='R'),
+ VNOR_2 =SIMP(statut='f',typ='R'),
+ POTENTIEL =SIMP(statut='f',typ=evol_ther),
),
- PILOTAGE =FACT(statut='f',
- regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
- TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
- COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
- ETA_PILO_MAX =SIMP(statut='f',typ='R'),
- ETA_PILO_MIN =SIMP(statut='f',typ='R'),
- ETA_PILO_R_MAX =SIMP(statut='f',typ='R'),
- ETA_PILO_R_MIN =SIMP(statut='f',typ='R'),
- PROJ_BORNES =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
- SELECTION =SIMP(statut='f',typ='TXM',defaut="NORM_INCR_DEPL", into=("RESIDU","ANGL_INCR_DEPL","NORM_INCR_DEPL") ),
- 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='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
- NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
- ),
- CONVERGENCE =FACT(statut='d',
- regles=(PRESENT_ABSENT('RESI_REFE_RELA','RESI_GLOB_MAXI','RESI_GLOB_RELA'),),
- SIGM_REFE =SIMP(statut='f',typ='R'),
- EPSI_REFE =SIMP(statut='f',typ='R'),
- FLUX_THER_REFE =SIMP(statut='f',typ='R'),
- FLUX_HYD1_REFE =SIMP(statut='f',typ='R'),
- FLUX_HYD2_REFE =SIMP(statut='f',typ='R'),
- RESI_REFE_RELA =SIMP(statut='f',typ='R'),
- RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
- RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
- ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
- ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
- ARRET =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ MODE_MECA =SIMP(statut='f',typ=mode_meca),
+ DEPL_IMPO =SIMP(statut='f',typ=cham_no_sdaster),
+ MODELE_GENE =SIMP(statut='f',typ=modele_gene),
+ NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene),
+ DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.0E-2),
+ MATR_MASS_AJOU =SIMP(statut='f',typ=CO,),
+ MATR_RIGI_AJOU =SIMP(statut='f',typ=CO,),
+ MATR_AMOR_AJOU =SIMP(statut='f',typ=CO,),
+ MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",),),
+ MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
+ FORC_AJOU =FACT(statut='f',max='**',
+ DIRECTION =SIMP(statut='o',typ='R',max=3),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ VECTEUR =SIMP(statut='o',typ=CO),
),
- PARM_THETA =SIMP(statut='f',typ='R',defaut= 1. ),
SOLVEUR =FACT(statut='d',
- METHODE=SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","MUMPS","FETI") ),
+ 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") ),
),
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",
+ fr="Paramètres relatifs à la non iversibilité 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") ),
+ 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é",
+ 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 ),
RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
),
- 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')),
- PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.,),
- ),
- b_feti =BLOC(condition = "METHODE == 'FETI' ",fr="Paramètres de la méthode FETI 1",
- PARTITION =SIMP(statut='o',typ=sd_feti_sdaster),
- RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,val_min=0.),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut=0,val_min=0),
- TYPE_REORTHO_DD =SIMP(statut='f',typ='TXM',defaut="GSM",into=("SANS","GS","GSM","IGSM") ),
- NB_REORTHO_DD =SIMP(statut='f',typ='I',defaut=0,val_min=0),
- NB_REORTHO_INST =SIMP(statut='f',typ='I',defaut=0,val_min=0),
- PRE_COND =SIMP(statut='f',typ='TXM',defaut="LUMPE",into=("LUMPE","SANS") ),
- SCALING =SIMP(statut='f',typ='TXM',defaut="MULT",into=("SANS","MULT") ),
- VERIF_SDFETI =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- TEST_CONTINU =SIMP(statut='f',typ='R',defaut=1.E-8,val_min=0.),
- INFO_FETI =SIMP(statut='f',typ='TXM',defaut='FFFFFFFFFFFFFFFFFFFFFFFF'),
- STOCKAGE_GI =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","CAL") ),
- NB_SD_PROC0 =SIMP(statut='f',typ='I',defaut=0,val_min=0),
- ACCELERATION_SM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- ),
- SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
),
- ARCHIVAGE =FACT(statut='f',
- regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
- EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
- LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
- PAS_ARCH =SIMP(statut='f',typ='I' ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
- 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",
- "VARI_NON_LOCAL","LANL_ELGA")),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+ NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
+ AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+)
+#& MODIF COMMANDE DATE 16/05/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.
+# ======================================================================
+
+from Macro.macro_matr_asse_ops import macro_matr_asse_ops
+
+def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
+ if not MATR_ASSE: raise AsException("Impossible de typer les concepts resultats")
+ if not NUME_DDL : raise AsException("Impossible de typer les concepts resultats")
+ if isinstance(NUME_DDL,CO) :
+ self.type_sdprod(NUME_DDL,nume_ddl_sdaster)
+ else:
+ self.type_sdprod(NUME_DDL,NUME_DDL.__class__)
+ for m in MATR_ASSE:
+ opti=m['OPTION']
+
+ if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
+ "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
+ "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
+ "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
+
+ if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
+
+ if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
+ "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
+
+ if opti == "RIGI_MECA_HYST" : t= matr_asse_depl_c
+
+ self.type_sdprod(m['MATRICE'],t)
+ return None
+
+MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ sd_prod=macro_matr_asse_prod,
+ fr="Calcul des matrices assemblées (rigidité, masse, amortissement,...) ",
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='f',typ=cham_mater),
+ INST =SIMP(statut='f',typ='R',defaut=0.),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**'),
+ NUME_DDL =SIMP(statut='o',typ=(nume_ddl_sdaster,CO)),
+ SOLVEUR =FACT(statut='d',
+ METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
+ into=("LDLT","MULT_FRONT","GCPC","MUMPS")),
+ RENUM =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
+ ),
+
+ MATR_ASSE =FACT(statut='o',max='**',
+ MATRICE =SIMP(statut='o',typ=CO),
+ OPTION =SIMP(statut='o',typ='TXM',
+ into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
+ "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
+ "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
+ "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
+ "RIGI_THER","MASS_THER",
+ "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
+ "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
+ ),
+
+ b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
+ MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0),
+ ),
+
+ b_rigi_geom = BLOC( condition = "OPTION=='RIGI_GEOM'",
+ SIEF_ELGA =SIMP(statut='o',typ=cham_elem),
+ MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0),
+ ),
+
+ b_rigi_meca_lagr = BLOC( condition = "OPTION=='RIGI_MECA_LAGR'",
+ THETA =SIMP(statut='o',typ=theta_geom),
+ PROPAGATION =SIMP(statut='f',typ='R'),
+ ),
+
+ b_rigi_ther = BLOC( condition = "OPTION=='RIGI_THER'",
+ MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0),
+ ),
+
+ ), # fin MATR_ASSE
+
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+) ;
+#& MODIF COMMANDE DATE 20/03/2006 AUTEUR ACBHHCD G.DEVESA
+# 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.
+# ======================================================================
+
+from Macro.macro_miss_3d_ops import macro_miss_3d_ops
+
+MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,
+ fr="Préparation des données puis exécution du logiciel MISS3D",
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ OPTION =FACT(statut='o',
+ regles=(UN_PARMI('TOUT','MODULE'),),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ MODULE =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
+ ),
+ PROJET =SIMP(statut='o',typ='TXM'),
+ REPERTOIRE =SIMP(statut='f',typ='TXM'),
+ VERSION =SIMP(statut='f',typ='TXM',into=("V1_2","V1_3",),defaut="V1_2"),
+ UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
+ UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
+ UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
+ UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
+ UNITE_RESU_FORC =SIMP(statut='f',typ='I',defaut=0),
+ PARAMETRE =FACT(statut='f',
+ regles=(PRESENT_PRESENT('FREQ_MIN','FREQ_MAX','FREQ_PAS'),
+ PRESENT_PRESENT('CONTR_NB','CONTR_LISTE'),
+ PRESENT_PRESENT('LFREQ_NB','LFREQ_LISTE'),
+ PRESENT_PRESENT('OFFSET_MAX','OFFSET_NB'),
+ PRESENT_PRESENT('SPEC_MAX','SPEC_NB'),),
+ FREQ_MIN =SIMP(statut='f',typ='R'),
+ FREQ_MAX =SIMP(statut='f',typ='R'),
+ FREQ_PAS =SIMP(statut='f',typ='R'),
+ Z0 =SIMP(statut='f',typ='R'),
+ SURF =SIMP(statut='f',typ='TXM',into=("OUI","NON",),defaut="NON"),
+ RFIC =SIMP(statut='f',typ='R'),
+ FICH_RESU_IMPE =SIMP(statut='f',typ='TXM'),
+ FICH_RESU_FORC =SIMP(statut='f',typ='TXM'),
+ DREF =SIMP(statut='f',typ='R'),
+ ALGO =SIMP(statut='f',typ='TXM',into=("DEPL","REGU")),
+ OFFSET_MAX =SIMP(statut='f',typ='R'),
+ OFFSET_NB =SIMP(statut='f',typ='I'),
+ SPEC_MAX =SIMP(statut='f',typ='R'),
+ SPEC_NB =SIMP(statut='f',typ='I'),
+ ISSF =SIMP(statut='f',typ='TXM',into=("OUI","NON",),defaut="NON"),
+ FICH_POST_TRAI =SIMP(statut='f',typ='TXM'),
+ CONTR_NB =SIMP(statut='f',typ='I'),
+ CONTR_LISTE =SIMP(statut='f',typ='R',max='**'),
+ LFREQ_NB =SIMP(statut='f',typ='I'),
+ LFREQ_LISTE =SIMP(statut='f',typ='R',max='**'),
+ ),
+) ;
+#& MODIF COMMANDE DATE 03/01/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.
+# ======================================================================
+
+from Macro.macro_mode_meca_ops import macro_mode_meca_ops
+
+MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=mode_meca,
+ reentrant='n',fr="Lancer une succession de calculs de modes propres réels",
+ UIinfo={"groupes":("Résolution",)},
+ MATR_A =SIMP(statut='o',typ=matr_asse_depl_r ),
+ MATR_B =SIMP(statut='o',typ=matr_asse_depl_r ),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
+# ce mot cle ne devrait il pas etre dans calc_freq
+ METHODE =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
+ into=("TRI_DIAG","JACOBI","SORENSEN",) ),
+ b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
+ PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
+ NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
+ PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
+ NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
+ ),
+ b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
+ PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
+ NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
+ PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
+ NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
+ ),
+ b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
+ PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
+ NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
+ PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
+ ),
+ OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",
+ into=("MODE_RIGIDE","SANS") ),
+ CALC_FREQ =FACT(statut='d',min=0,
+ regles=(UN_PARMI('FREQ','FREQ_MAX'),
+ PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
+ PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
+ EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
+ FREQ =SIMP(statut='f',typ='R',min=2,validators=NoRepeat(),max='**',val_min=0.E+0 ),
+ FREQ_MIN =SIMP(statut='f',typ='R' ),
+ FREQ_MAX =SIMP(statut='f',typ='R' ),
+ NB_BLOC_FREQ =SIMP(statut='f',typ='I' ),
+ DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
+ COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
+ NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
+ NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
+ PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
+ SEUIL_FREQ =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
+ STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
),
- OBSERVATION =FACT(statut='f',max='**',
- regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
- PRESENT_PRESENT('MAILLE','POINT'),),
- NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
- "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU","VALE_CONT")),
- NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
- LIST_ARCH =SIMP(statut='f',typ=listis_sdaster),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PAS_OBSE =SIMP(statut='f',typ='I'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- POINT =SIMP(statut='f',typ='I' ,validators=NoRepeat(),max='**'),
+ VERI_MODE =FACT(statut='d',min=0,
+ STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
+ STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
),
-
- SUIVI_DDL = FACT(statut='f',max=4,
- regles=(UN_PARMI('NOEUD','MAILLE'),
- PRESENT_PRESENT('MAILLE','POINT'),),
- NUME_SUIVI =SIMP(statut='o',typ='I' ,min=1,max=4),
- NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=1,
- into=("DEPL","VITE","ACCE","SIEF_ELGA",
- "VARI_ELGA","FORC_NODA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU",)),
- NOM_CMP =SIMP(statut='o',typ='TXM',max=1 ),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max=1),
- MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max=1),
- POINT =SIMP(statut='f',typ='I' ,validators=NoRepeat(),max=1),
+ NORM_MODE =FACT(statut='o',max='**',
+ MASS_INER =SIMP(statut='o',typ=table_sdaster),
+ NORME =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
+ into=("MASS_GENE","RIGI_GENE","EUCL",
+ "EUCL_TRAN","TRAN","TRAN_ROTA") ),
+ INFO =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
),
-
- AFFICHAGE = FACT(statut='f',max=16,
-
- UNITE = SIMP(statut='f',typ='I',val_min=1),
-
- LONG_R = SIMP(statut='f',typ='I',defaut=12,val_min=1,val_max=12),
- PREC_R = SIMP(statut='f',typ='I',defaut=5, val_min=1,val_max=8),
- LONG_I = SIMP(statut='f',typ='I',defaut=6, val_min=1,val_max=12),
-
- NOM_COLONNE = SIMP(statut='o',typ='TXM',defaut="STANDARD",
- into=("STANDARD","MINIMUM",
- "ITER_NEWT",
- "INCR_TPS",
- "RESI_RELA","RELA_NOEU",
- "RESI_MAXI","MAXI_NOEU",
- "RESI_REFE","REFE_NOEU",
- "RELI_ITER","RELI_COEF",
- "PILO_PARA",
- "LAGR_ECAR","LAGR_INCR","LAGR_ITER",
- "MATR_ASSE",
- "ITER_DEBO",
- "CTCD_ITER","CTCD_INFO","CTCD_GEOM","CTCD_NOEU",
- "CTCC_GEOM","CTCC_FROT","CTCC_CONT",
- "SUIV_1","SUIV_2","SUIV_3","SUIV_4","ITER_FETI",
- ),
- ),
- b_residu = BLOC(condition = " NOM_COLONNE == 'RESI_RELA' or \
- NOM_COLONNE == 'RESI_MAXI' or\
- NOM_COLONNE == 'RESI_REFE' or\
- NOM_COLONNE == 'CTCD_GEOM' or\
- NOM_COLONNE == 'STANDARD' ",
- INFO_RESIDU = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
- ),
+ FILTRE_MODE =FACT(statut='f',
+ CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
+ into=("MASS_EFFE_UN","MASS_GENE") ),
+ SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
),
-
-
-
- CRIT_FLAMB =FACT(statut='f',min=1,max=1,
- NB_FREQ =SIMP(statut='f',typ='I',max=1,defaut=3),
- CHAR_CRIT =SIMP(statut='f',typ='R',min=2,max=2,defaut=(-10.0,10),
- fr="Valeur des deux charges critiques délimitant la bande de recherche en HPP"),
+ IMPRESSION =FACT(statut='d',
+ TOUT_PARA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ CUMUL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
+ into=("MASS_EFFE_UN","MASS_GENE",) ),
),
- 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')),
- PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,),
- ),
- 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 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
+) ;
+#& 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
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-# RESPONSABLE MCOURTOI M.COURTOIS
-TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,
- fr="Extraction d'une valeur numérique ou d'un attribut de fonction pour comparaison à une valeur de référence",
- UIinfo={"groupes":("Impression",)},
- TEST_NOOK =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- VALEUR =FACT(statut='f',max='**',
- fr="Tester la valeur d une fonction ou d une nappe",
- regles=(UN_PARMI('VALE_REFE','VALE_REFE_C',),
- DERIVABLE('FONCTION'),),
- FONCTION =SIMP(statut='o',typ=(fonction_sdaster,fonction_c,nappe_sdaster,formule) ),
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),
- fr="Paramètre de sensibilité.",
- ang="Sensitivity parameter"),
- NOM_PARA =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max=2),
- VALE_PARA =SIMP(statut='o',typ='R' ,validators=NoRepeat(),max=2),
- VALE_REFE =SIMP(statut='f',typ='R' ),
- VALE_REFE_C =SIMP(statut='f',typ='C' ),
- VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
- defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
- defaut= 1.E-3 ),
- REFERENCE =SIMP(statut='f',typ='TXM',
- into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
- b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
- VERSION =SIMP(statut='f',typ='TXM' ),
- ),
- ),
- ATTRIBUT =FACT(statut='f',max='**',
- fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
- FONCTION =SIMP(statut='o',typ=(fonction_sdaster,fonction_c,nappe_sdaster,formule) ),
- PARA =SIMP(statut='f',typ='R' ),
- CRIT_PARA =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PREC_PARA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
- ATTR =SIMP(statut='o',typ='TXM',
- into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
- "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
- ATTR_REFE =SIMP(statut='o',typ='TXM' ),
- REFERENCE =SIMP(statut='f',typ='TXM',
- into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
- b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
- VERSION =SIMP(statut='f',typ='TXM' ),
- ),
+
+from Macro.macro_proj_base_ops import macro_proj_base_ops
+
+def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,PROFIL,**args ):
+ if MATR_ASSE_GENE != None:
+ for m in MATR_ASSE_GENE:
+ self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
+ if VECT_ASSE_GENE != None:
+ for v in VECT_ASSE_GENE:
+ self.type_sdprod(v['VECTEUR'],vect_asse_gene)
+ return None
+
+MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,
+ regles=(AU_MOINS_UN('MATR_ASSE_GENE','VECT_ASSE_GENE')),
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ sd_prod=macro_proj_base_prod,
+ fr="Projection des matrices et/ou vecteurs assemblés sur une base (modale ou de RITZ)",
+ BASE =SIMP(statut='o',typ=(mode_meca,mode_stat,base_modale,mode_gene) ),
+ NB_VECT =SIMP(statut='f',typ='I',defaut= 9999),
+ PROFIL =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
+ MATR_ASSE_GENE =FACT(statut='f',max='**',
+ MATRICE =SIMP(statut='o',typ=CO,),
+ regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE',),),
+ MATR_ASSE =SIMP(statut='f',typ=matr_asse_depl_r),
+ MATR_ASSE_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
),
- TABL_INTSP =FACT(statut='f',max='**',
- fr="Tester la valeur d une fonction contenue dans une table interspectrale",
- regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
- INTE_SPEC =SIMP(statut='o',typ=table_sdaster),
- NOEUD_I =SIMP(statut='f',typ=no),
- NUME_ORDRE_I =SIMP(statut='f',typ='I' ),
- b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
- NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
- ),
- b_noeud_i = BLOC (condition = "NOEUD_I != None",
- NOEUD_J =SIMP(statut='o',typ=no),
- NOM_CMP_I =SIMP(statut='o',typ='TXM' ),
- NOM_CMP_J =SIMP(statut='o',typ='TXM' ),
- ),
- NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
- VALE_PARA =SIMP(statut='o',typ='R' ),
- VALE_REFE_C =SIMP(statut='o',typ='C' ),
- CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
- defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
- defaut= 1.E-3 ),
- REFERENCE =SIMP(statut='f',typ='TXM',
- into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
- b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
- VERSION =SIMP(statut='f',typ='TXM' ),
- ),
+ VECT_ASSE_GENE =FACT(statut='f',max='**',
+ VECTEUR =SIMP(statut='o',typ=CO,),
+ regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE',),),
+ TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
+ VECT_ASSE =SIMP(statut='f',typ=cham_no_sdaster),
+ VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene),
),
+ 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
+# ======================================================================
+# 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.
+# ======================================================================
+MAJ_CATA=PROC(nom="MAJ_CATA",op=20,
+ UIinfo={"groupes":("Gestion du travail",)},
+ fr="Compilation des catalogues de commandes et d'éléments",
+
+ ELEMENT =FACT(statut='f',),
+
) ;
-#& MODIF COMMANDE DATE 16/05/2006 AUTEUR REZETTE C.REZETTE
-# RESPONSABLE VABHHTS 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
# 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.
-#
-#
# ======================================================================
-TEST_RESU=PROC(nom="TEST_RESU",op=23,
- UIinfo={"groupes":("Impression",)},
- fr="Extraction d'une valeur d'une structure de donnée et comparaison à une valeur de référence",
- regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','GENE','OBJET')),
-
- CHAM_NO =FACT(statut='f',max='**',
- regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
- EXCLUS('NOEUD','GROUP_NO'),
- PRESENT_PRESENT('NOEUD','NOM_CMP'),
- PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
- UN_PARMI('VALE','VALE_I','VALE_C'),),
- CHAM_GD =SIMP(statut='o',typ=cham_no_sdaster),
- NOEUD =SIMP(statut='f',typ=no ),
- GROUP_NO =SIMP(statut='f',typ=grno ),
- NOM_CMP =SIMP(statut='f',typ='TXM'),
- TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
- VALE =SIMP(statut='f',typ='R'),
- VALE_I =SIMP(statut='f',typ='I'),
- VALE_C =SIMP(statut='f',typ='C'),
- VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
- REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
- "NON_REGRESSION","AUTRE_ASTER")),
- VERSION =SIMP(statut='f',typ='TXM'),
+# RESPONSABLE VABHHTS J.PELLET
+MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
+ fr="Résoudre un problème de mécanique statique linéaire",reentrant='f',
+ UIinfo={"groupes":("Résolution",)},
+ regles=(EXCLUS("INST","LIST_INST"),
+ AU_MOINS_UN('CHAM_MATER','CARA_ELEM',),
+ CONCEPT_SENSIBLE('ENSEMBLE'),),
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='f',typ=cham_mater,
+ fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
+ ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem,
+ fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
+ ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ 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",into=("FIXE",) ),
),
+ INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ INST_FIN =SIMP(statut='f',typ='R'),
+ OPTION =SIMP(statut='f',typ='TXM',into=("SIEF_ELGA_DEPL","SANS"),defaut="SIEF_ELGA_DEPL",max=1,
+ fr="seule option : contraintes aux points de Gauss. Utiliser CALC_ELEM pour les autres.",
+ ),
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
+ fr="Liste des paramètres de sensibilité.",
+ ang="List of sensitivity parameters"),
- CHAM_ELEM =FACT(statut='f',max='**',
- regles=(UN_PARMI('MAILLE','TYPE_TEST',),
- EXCLUS('NOEUD','GROUP_NO','POINT'),
- PRESENT_PRESENT('NOEUD','NOM_CMP'),
- PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
- PRESENT_PRESENT('POINT','NOM_CMP'),
- UN_PARMI('VALE','VALE_I','VALE_C'), ),
- CHAM_GD =SIMP(statut='o',typ=cham_elem),
- MAILLE =SIMP(statut='f',typ=ma),
- POINT =SIMP(statut='f',typ='I' ),
- SOUS_POINT =SIMP(statut='f',typ='I'),
- NOEUD =SIMP(statut='f',typ=no),
- GROUP_NO =SIMP(statut='f',typ=grno),
- NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
- TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
- VALE =SIMP(statut='f',typ='R' ),
- VALE_I =SIMP(statut='f',typ='I' ),
- VALE_C =SIMP(statut='f',typ='C' ),
- VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
- "NON_REGRESSION","AUTRE_ASTER") ),
- VERSION =SIMP(statut='f',typ='TXM' ),
- ),
+ SOLVEUR =FACT(statut='d',
+ METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","FETI","MUMPS") ),
- RESU =FACT(statut='f',max='**',
- regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
- UN_PARMI('NOM_CHAM','PARA'),
- PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
- PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
- EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
- PRESENT_PRESENT('NOEUD','NOM_CMP'),
- PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
- PRESENT_PRESENT('POINT','NOM_CMP'),
- UN_PARMI('VALE','VALE_I','VALE_C'),
- DERIVABLE('RESULTAT'),),
- RESULTAT =SIMP(statut='o',typ=resultat_sdaster),
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),
- fr="Paramètre de sensibilité.",
- ang="Sensitivity parameter"),
- NUME_ORDRE =SIMP(statut='f',typ='I'),
- INST =SIMP(statut='f',typ='R'),
- FREQ =SIMP(statut='f',typ='R'),
- NUME_MODE =SIMP(statut='f',typ='I'),
- NOEUD_CMP =SIMP(statut='f',typ='TXM',min=2,max=2),
- NOM_CAS =SIMP(statut='f',typ='TXM'),
- ANGL =SIMP(statut='f',typ='R'),
- PARA =SIMP(statut='f',typ='TXM'),
- NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
- NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
- MAILLE =SIMP(statut='f',typ=ma ,max='**'),
- NOEUD =SIMP(statut='f',typ=no ,max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno ,max='**'),
- POINT =SIMP(statut='f',typ='I'),
- SOUS_POINT =SIMP(statut='f',typ='I'),
- TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
- VALE =SIMP(statut='f',typ='R'),
- VALE_I =SIMP(statut='f',typ='I'),
- VALE_C =SIMP(statut='f',typ='C'),
- VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=2),
- PRECISION =SIMP(statut='f',typ='R',max=2),
- REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
- "NON_REGRESSION","AUTRE_ASTER",) ),
- VERSION =SIMP(statut='f',typ='TXM' ),
- ),
+ b_feti =BLOC(condition = "METHODE == 'FETI' ",fr="Paramètres de la méthode FETI 1",
+ PARTITION =SIMP(statut='o',typ=sd_feti_sdaster),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,val_min=0.),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut=0,val_min=0),
+ TYPE_REORTHO_DD =SIMP(statut='f',typ='TXM',defaut="GSM",into=("SANS","GS","GSM","IGSM") ),
+ NB_REORTHO_DD =SIMP(statut='f',typ='I',defaut=0,val_min=0),
+ NB_REORTHO_INST =SIMP(statut='f',typ='I',defaut=0,val_min=0),
+ PRE_COND =SIMP(statut='f',typ='TXM',defaut="LUMPE",into=("LUMPE","SANS") ),
+ SCALING =SIMP(statut='f',typ='TXM',defaut="MULT",into=("SANS","MULT") ),
+ VERIF_SDFETI =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ TEST_CONTINU =SIMP(statut='f',typ='R',defaut=1.E-8,val_min=0.),
+ INFO_FETI =SIMP(statut='f',typ='TXM',defaut='FFFFFFFFFFFFFFFFFFFFFFFF'),
+ STOCKAGE_GI =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","CAL") ),
+ NB_SD_PROC0 =SIMP(statut='f',typ='I',defaut=0,val_min=0),
+ ACCELERATION_SM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ ),
- GENE =FACT(statut='f',max='**',
- regles=(UN_PARMI('VALE','VALE_I','VALE_C') ,),
- RESU_GENE =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
- b_vect_asse =BLOC(condition = "AsType(RESU_GENE) == vect_asse_gene",
- NUME_CMP_GENE =SIMP(statut='o',typ='I'),
+ 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_mode =BLOC(condition = "(AsType(RESU_GENE) == harm_gene) or (AsType(RESU_GENE) == mode_gene)",
- regles=(UN_PARMI('NUME_ORDRE','FREQ','NUME_MODE'),
- UN_PARMI('NOM_CHAM','PARA'),
- PRESENT_PRESENT('NOM_CHAM','NUME_CMP_GENE'),),
- NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
- NUME_CMP_GENE =SIMP(statut='f',typ='I'),
- PARA =SIMP(statut='f',typ='TXM'),
- NUME_ORDRE =SIMP(statut='f',typ='I'),
- NUME_MODE =SIMP(statut='f',typ='I'),
- FREQ =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_tran =BLOC(condition = "AsType(RESU_GENE) == tran_gene",
- regles=(UN_PARMI('NUME_ORDRE','INST') ,),
- NOM_CHAM =SIMP(statut='o',typ='TXM',into=C_NOM_CHAM_INTO()),
- NUME_CMP_GENE =SIMP(statut='o',typ='I'),
- NUME_ORDRE =SIMP(statut='f',typ='I'),
- INST =SIMP(statut='f',typ='R'),
+
+ b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' or METHODE == 'FETI' ",
+ 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 ),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+
+ 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')),
+ PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
),
- VALE =SIMP(statut='f',typ='R'),
- VALE_I =SIMP(statut='f',typ='I'),
- VALE_C =SIMP(statut='f',typ='C'),
- VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=2),
- PRECISION =SIMP(statut='f',typ='R',max=2),
- REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
- "NON_REGRESSION","AUTRE_ASTER",) ),
- VERSION =SIMP(statut='f',typ='TXM' ),
),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
+) ;
+#& MODIF COMMANDE DATE 10/06/2004 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 GNICOLAS G.NICOLAS
+MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,
+ UIinfo={"groupes":("Fonction",)},
+ fr="Mémorisation des noms des concepts dérivés.",
+ ang="Memorisation of the names of the sensitive concepts.",
+
+ regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
+
+ NOM=FACT(statut='f',max='**',
+ regles=(PRESENT_PRESENT('MOT_CLE','VALEUR','MOT_FACT' ),),
+
+ NOM_SD=SIMP(statut='o',typ='TXM',
+ fr="Nom de la structure de base",
+ ang="Name of the basic structure"),
+
+ PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
+ fr="Nom du paramètre sensible",
+ ang="Name of the sensitive parameter"),
+
+ NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
+ fr="Nom de la structure composée",
+ ang="Name of the built structure"),
+
+ 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"),
+
+ MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
+ fr="Liste des mots clés concernés par la dérivation",
+ ang="Keyword list involved in derivation"),
+
+ VALEUR=SIMP(statut='f',typ='TXM',max='**',
+ fr="Liste des objets concernés par la dérivation",
+ ang="Object list involved in derivation"),
+
+ ),
+
+ NOM_ZERO=SIMP(statut='f',typ=fonction_sdaster,
+ fr="Nom de la fonction nulle",
+ ang="Name of the zero fonction"),
+
+ NOM_UN =SIMP(statut='f',typ=fonction_sdaster,
+ fr="Nom de la fonction unité",
+ ang="Name of the one fonction"),
- OBJET =FACT(statut='f',max='**',
- 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'),
- VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
- REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
- "NON_REGRESSION","AUTRE_ASTER",) ),
- VERSION =SIMP(statut='f',typ='TXM' ),
- ),
) ;
-#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
+#& 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.
# ======================================================================
-# RESPONSABLE VABHHTS J.PELLET
-TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
- UIinfo={"groupes":("Impression",)},
- fr="Tester une cellule ou une colonne d'une table",
- regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),
- DERIVABLE('TABLE'),),
-# concept table_sdaster à tester
- TABLE =SIMP(statut='o',typ=table_sdaster),
-
- SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),
- fr="Paramètre de sensibilité.",
- ang="Sensitivity parameter"),
- FILTRE =FACT(statut='f',max='**',
- NOM_PARA =SIMP(statut='o',typ='TXM' ),
- CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
- into=("EQ","LT","GT","NE","LE","GE","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' ),
- VALE_I =SIMP(statut='f',typ='I' ),
- VALE_C =SIMP(statut='f',typ='C' ),
- VALE_K =SIMP(statut='f',typ='TXM' ),),
-
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op= 80,sd_prod=mode_cycl,
+ fr="Calcul des modes propres d'une structure à répétitivité cyclique à partir"
+ +" d'une base de modes propres réels",
+ reentrant='n',
+ UIinfo={"groupes":("Résolution",)},
+ BASE_MODALE =SIMP(statut='o',typ=base_modale ),
+ NB_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
+ NB_SECTEUR =SIMP(statut='o',typ='I' ),
+ LIAISON =FACT(statut='o',
+ DROITE =SIMP(statut='o',typ='TXM' ),
+ GAUCHE =SIMP(statut='o',typ='TXM' ),
+ AXE =SIMP(statut='f',typ='TXM' ),
+ ),
+ VERI_CYCL =FACT(statut='f',
PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
+ DIST_REFE =SIMP(statut='f',typ='R' ),
),
- TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
- NOM_PARA =SIMP(statut='o',typ='TXM' ),
- VALE =SIMP(statut='f',typ='R' ),
- VALE_I =SIMP(statut='f',typ='I' ),
- VALE_C =SIMP(statut='f',typ='C' ),
- VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
- REFERENCE =SIMP(statut='f',typ='TXM',
- into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
- b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
- VERSION =SIMP(statut='f',typ='TXM' ),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
+ CALCUL =FACT(statut='o',
+ 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"
+ ,into=("PLUS_PETITE","CENTRE","BANDE") ),
+ b_centre =BLOC(condition = "OPTION == 'CENTRE'",
+ FREQ =SIMP(statut='o',typ='R',),
+ ),
+ b_bande =BLOC(condition = "OPTION == 'BANDE'",
+ FREQ =SIMP(statut='o',typ='R',min=2,validators=NoRepeat(),max=2),
+ ),
+# NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
+ NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
+ PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 100. ),
+ PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 50 ),
),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
#& 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
# 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.
# ======================================================================
-THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,reentrant='f',
+def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
+ if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
+ if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
+ if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
+ if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
+ if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
+ raise AsException("type de concept resultat non prevu")
+
+MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op= 44,sd_prod=mode_iter_inv_prod
+ ,fr="Calcul des modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
+ reentrant='n',
UIinfo={"groupes":("Résolution",)},
- fr="Résoudre un problème thermique linéaire stationnaire ou transitoire",
regles=(CONCEPT_SENSIBLE('ENSEMBLE'),),
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='o',typ=cham_mater),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- EXCIT =FACT(statut='o',max='**',
- CHARGE =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
- FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
+ MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
+ MATR_C =SIMP(statut='f',typ=matr_asse_depl_r ),
+ TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",
+ into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
+ b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
+ CALC_FREQ =FACT(statut='o',fr="Choix des paramètres pour le calcul des valeurs propres",
+
+ OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
+ fr="Choix de l option pour estimer les valeurs propres" ),
+ FREQ =SIMP(statut='o',typ='R',max='**'),
+ AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
+ NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
+ NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
+ PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
+ NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
+ PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
+
+ NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
+ NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
+ PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
+ SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
+ ),
),
- INCREMENT =FACT(statut='f',
- LIST_INST =SIMP(statut='o',typ=listr8_sdaster ),
- NUME_INIT =SIMP(statut='f',typ='I'),
- NUME_FIN =SIMP(statut='f',typ='I'),
+ b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
+ CALC_FREQ =FACT(statut='o',fr="Choix des paramètres pour le calcul des valeurs propres",
+
+ OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
+ fr="Choix de l option pour estimer les valeurs propres" ),
+ CHAR_CRIT =SIMP(statut='o',typ='R',validators=NoRepeat(),max='**' ),
+ NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
+ NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
+ PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
+ NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
+ PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
+
+ NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
+ NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
+ PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
+ SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
+ ),
),
- TEMP_INIT =FACT(statut='f',
- regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
- STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- EVOL_THER =SIMP(statut='f',typ=evol_ther),
- CHAM_NO =SIMP(statut='f',typ=cham_no_sdaster),
- VALE =SIMP(statut='f',typ='R'),
- NUME_INIT =SIMP(statut='f',typ='I'),
+ CALC_MODE =FACT(statut='d',min=0,fr="Choix des paramètres pour le calcul des vecteurs propres",
+ OPTION =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
+ PREC =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
+ ),
+ VERI_MODE =FACT(statut='d',min=0,
+ STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
+ fr="Valeur limite admise pour l ereur a posteriori des modes" ),
),
SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des paramètres de sensibilité.",
+ fr="Liste des param\350tres de sensibilit\351.",
ang="List of sensitivity parameters",
),
- SENS_INIT =FACT(statut='f',
- regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
- STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- EVOL_THER =SIMP(statut='f',typ=evol_ther),
- NUME_INIT =SIMP(statut='f',typ='I'),
- ),
- SOLVEUR =FACT(statut='d',
- 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_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 ),
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- 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')),
- PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,),
- ),
- ),
- PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57),
- ARCHIVAGE =FACT(statut='f',
- regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
- LIST_ARCH =SIMP(statut='f',typ=listis_sdaster),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
- into=("RELATIF","ABSOLU")),
- PAS_ARCH =SIMP(statut='f',typ='I'),
- CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
+ b_sensibilite =BLOC(condition = "SENSIBILITE != None",
+ CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
+ EXCIT =FACT(statut='f',max='**',), # que pour NMDOME
),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- INFO =SIMP(statut='f',typ='I',into=(1,2)),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
+ TITRE =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
) ;
#& 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
# 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.
# ======================================================================
-THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,reentrant='f',
+def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
+ if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
+ if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
+ if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
+ if AsType(MATR_A) == matr_asse_depl_c : return mode_meca_c
+ if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
+ if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
+ raise AsException("type de concept resultat non prevu")
+
+MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op= 45,sd_prod=mode_iter_simult_prod,
+ fr="Calcul des modes propres par itérations simultanées ; valeurs propres et"
+ +" modes propres réels ou complexes",
+ reentrant='n',
UIinfo={"groupes":("Résolution",)},
- fr="Résoudre un problème thermique non linéaire (conditions limites ou comportement matériau)"
- +" stationnaire ou transitoire" ,
regles=(CONCEPT_SENSIBLE('ENSEMBLE'),),
- MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
- CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
- CARA_ELEM =SIMP(statut='c',typ=(cara_elem) ),
- COMP_THER_NL =FACT(statut='d',max='**',
- RELATION =SIMP(statut='f',typ='TXM',defaut="THER_NL",
- into=("THER_NL",
- "THER_HYDR",
- "SECH_GRANGER",
- "SECH_MENSI",
- "SECH_BAZANT",
- "SECH_NAPPE"
- ) ),
- 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='**'),
- MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_gene_r,matr_asse_pres_r ) ),
+ MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
+ MATR_C =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
+ METHODE =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
+ into=("TRI_DIAG","JACOBI","SORENSEN") ),
+ b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
+ PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
+ NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
+ PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
+ NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
),
- EVOL_THER_SECH =SIMP(statut='f',typ=evol_ther),
- EXCIT =FACT(statut='o',max='**',
- CHARGE =SIMP(statut='o',typ=char_ther),
- FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
+ PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
+ NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
+ PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
+ NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
),
- INCREMENT =FACT(statut='f',
- LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
- NUME_INIT =SIMP(statut='f',typ='I'),
- NUME_FIN =SIMP(statut='f',typ='I'),
+ b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
+ PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
+ NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
+ PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
),
- TEMP_INIT =FACT(statut='f',
- regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
- STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
- EVOL_THER =SIMP(statut='f',typ=evol_ther),
- CHAM_NO =SIMP(statut='f',typ=cham_no_sdaster),
- VALE =SIMP(statut='f',typ='R'),
- NUME_INIT =SIMP(statut='f',typ='I'),
+ TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",
+ into=("MODE_FLAMB","DYNAMIQUE"),
+ fr="Type d analyse" ),
+ OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
+ fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
+
+ b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
+ CALC_FREQ =FACT(statut='d',min=0,
+ OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
+ fr="Choix de l option et par conséquent du shift du problème modal" ),
+ b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
+ NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
+ ),
+ b_centre =BLOC(condition = "OPTION == 'CENTRE'",
+ fr="Recherche des valeurs propres les plus proches d une valeur donnée",
+ CHAR_CRIT =SIMP(statut='o',typ='R',
+ fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
+ NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
+ ),
+ b_bande =BLOC(condition = "(OPTION == 'BANDE')",
+ fr="Recherche des valeurs propres dans une bande donnée",
+ CHAR_CRIT =SIMP(statut='o',typ='R',min=2,validators=NoRepeat(),max=2,
+ fr="Valeur des deux charges critiques délimitant la bande de recherche"),
+ ),
+ APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
+ fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
+ regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
+ DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
+ COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
+ NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
+ NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
+ PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
+ SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
+ ),
),
- NEWTON =FACT(statut='d',
- REAC_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 0 ),
+
+ b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
+ CALC_FREQ =FACT(statut='d',min=0,
+ OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
+ fr="Choix de l option et par conséquent du shift du problème modal" ),
+ b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
+ NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
+ ),
+ b_centre =BLOC(condition = "OPTION == 'CENTRE'",
+ fr="Recherche des valeurs propres les plus proches d une valeur donnée",
+ FREQ =SIMP(statut='o',typ='R',
+ fr="Fréquence autour de laquelle on cherche les fréquences propres"),
+ AMOR_REDUIT =SIMP(statut='f',typ='R',),
+ NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
+ ),
+ b_bande =BLOC(condition = "(OPTION == 'BANDE')",
+ fr="Recherche des valeurs propres dans une bande donnée",
+ FREQ =SIMP(statut='o',typ='R',min=2,validators=NoRepeat(),max=2,
+ fr="Valeur des deux fréquences délimitant la bande de recherche"),
+ ),
+ APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG","COMPLEXE"),
+ fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
+ regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
+ DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
+ COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
+ NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
+ NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
+ PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
+ SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
+ ),
),
- CONVERGENCE =FACT(statut='d',
- RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
- RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
- ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
+
+ VERI_MODE =FACT(statut='d',min=0,
+ STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
+ SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
+ fr="Valeur limite admise pour l ereur a posteriori des modes" ),
+ STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
),
SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des paramètres de sensibilité.",
+ fr="Liste des param\350tres de sensibilit\351.",
ang="List of sensitivity parameters",
),
- SOLVEUR =FACT(statut='d',
- METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","MUMPS") ),
- b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres 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="Parametres 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="Parametres relatifs a la non inversibilité de la matrice a 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="Parametres 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 ),
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
- RESI_RELA =SIMP(statut='f',typ='R' ,defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I' ,defaut= 0 ),
- ),
- 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')),
- PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.,),
- ),
- SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ b_sensibilite =BLOC(condition = "SENSIBILITE != None",
+ CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
+ EXCIT =FACT(statut='f',max='**',), # que pour NMDOME
),
- PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57 ),
- ARCHIVAGE =FACT(statut='f',
- regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
- LIST_ARCH =SIMP(statut='f',typ=(listis_sdaster) ),
- LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
- PAS_ARCH =SIMP(statut='f',typ='I'),
- CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
+ STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+) ;
+#& 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.
+# ======================================================================
+def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
+ if (MODE_STAT != None) : return mode_stat_depl
+ if (PSEUDO_MODE !=None) : return mode_stat_acce
+ if (FORCE_NODALE != None) : return mode_stat_forc
+ raise AsException("type de concept resultat non prevu")
+MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
+ fr="Calcul de modes statiques pour un déplacement, une force ou une accélération unitaire imposé",
+ reentrant='n',
+ UIinfo={"groupes":("Résolution",)},
+ MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
+ MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
+ regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
+ MODE_STAT =FACT(statut='f',max='**',
+ regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
+ UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
+ NOEUD =SIMP(statut='f',typ=no ,max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno ,max='**'),
+ TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
+ AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ ),
+ FORCE_NODALE =FACT(statut='f',max='**',
+ regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
+ UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",), ),
+ NOEUD =SIMP(statut='f',typ=no ,max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno ,max='**'),
+ TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",), ),
+ AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ ),
+ PSEUDO_MODE =FACT(statut='f',max='**',
+ regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
+ AXE =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
+ DIRECTION =SIMP(statut='f',typ='R',min=3,max=3),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ NOEUD =SIMP(statut='f',typ=no ,max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno ,max='**'),
+ b_dir =BLOC(condition = "DIRECTION != None",
+ NOM_DIR =SIMP(statut='f',typ='TXM' ),),
+ b_cmp =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
+ regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
+ TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ ),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
- OPTION =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max=2,
- into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
- INFO =SIMP(statut='f',typ='I',into=(1,2) ),
-
+ 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
# 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.
# ======================================================================
-THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
- fr="Résoudre un problème thermique non linéaire (conditions limites ou comportement matériau)"
- +" stationnaire avec chargement mobile",
- reentrant='n',
- UIinfo={"groupes":("Résolution",)},
- MODELE =SIMP(statut='o',typ=modele_sdaster ),
- CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
- CARA_ELEM =SIMP(statut='c',typ=cara_elem ),
- EXCIT =FACT(statut='o',max='**',
- CHARGE =SIMP(statut='o',typ=char_ther ),
- FONC_MULT =SIMP(statut='c',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- ),
- TEMP_INIT =FACT(statut='f',
- EVOL_THER =SIMP(statut='f',typ=evol_ther ),
- NUME_INIT =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- CONVERGENCE =FACT(statut='d',
- CRIT_TEMP_RELA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
- CRIT_ENTH_RELA =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
- ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
- ARRET =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- ),
- SOLVEUR =FACT(statut='d',
- 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 ),
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- ),
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
- INFO =SIMP(statut='f',typ='I',into=(1,2) ),
+MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
+ reentrant='f',
+ fr="Définir la base modale d'une structure sous écoulement",
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+# la commande modi_base _modale : reentrant = f ou o
+ regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
+ BASE =SIMP(statut='o',typ=mode_meca ),
+ BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu_sdaster ),
+ NUME_VITE_FLUI =SIMP(statut='o',typ='I' ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
+ AMOR_UNIF =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 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2003 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 extr_table_prod(TYPE_RESU,**args):
- 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 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),
+# RESPONSABLE G8BHHXD X.DESROCHES
+MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage_sdaster,
+ fr="Effectuer des modifications sur un maillage existant: réorienter des mailles servant,"
+ +" à l'application d'une pression, à la modélisation du contact,...",
+ reentrant='o',
+ UIinfo={"groupes":("Maillage",)},
+ regles=(AU_MOINS_UN('ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
+ 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',
+ 'TRANSLATION','ROTATION','MODI_BASE','ECHELLE','ORIE_SHB8','SYMETRIE',
+ ),
+ PRESENT_ABSENT('ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
+ 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
+ PRESENT_ABSENT('DEFORME','ORIE_FISSURE','EQUE_PIQUA','ORIE_PEAU_2D',
+ 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
+ PRESENT_ABSENT('EQUE_PIQUA','ORIE_FISSURE','DEFORME','ORIE_PEAU_2D',
+ 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
+ PRESENT_ABSENT('ORIE_PEAU_2D','ORIE_FISSURE','DEFORME','EQUE_PIQUA',
+ 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
+ PRESENT_ABSENT('ORIE_PEAU_3D','ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
+ 'PLAQ_TUBE','MODI_MAILLE',),
+ PRESENT_ABSENT('ORIE_NORM_COQUE','ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
+ 'PLAQ_TUBE','MODI_MAILLE',),
+ PRESENT_ABSENT('PLAQ_TUBE','ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
+ 'ORIE_PEAU_3D','ORIE_NORM_COQUE','MODI_MAILLE',),
+ PRESENT_ABSENT('MODI_MAILLE','ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
+ 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE',),
+ EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
+ EXCLUS('EQUE_PIQUA','TUBE_COUDE'),
+ EXCLUS('ROTATION','MODI_BASE'),
+ EXCLUS('SYMETRIE','ROTATION'),
+ EXCLUS('SYMETRIE','TRANSLATION'),
+ EXCLUS('SYMETRIE','MODI_BASE'),
+ EXCLUS('SYMETRIE','ECHELLE'),
+ ),
+ MAILLAGE =SIMP(statut='o',typ=maillage_sdaster ),
- NOM_PARA =SIMP(statut='o',typ='TXM'),
+ ORIE_FISSURE =FACT(statut='f',
+ GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
+ ),
- FILTRE =FACT(statut='f',min=1,max='**',
- NOM_PARA =SIMP(statut='o',typ='TXM'),
- CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
- into=("EQ","LT","GT","NE","LE","GE","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'),
- VALE_I =SIMP(statut='f',typ='I'),
- VALE_C =SIMP(statut='f',typ='C'),
- VALE_K =SIMP(statut='f',typ='TXM'),),
+ DEFORME =FACT(statut='f',
+ OPTION =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
+ DEPL =SIMP(statut='o',typ=cham_no_sdaster ),
+ b_deform =BLOC(condition = "OPTION=='TRAN_APPUI'",
+ GROUP_NO_APPUI = SIMP(statut='o',typ=grno,validators=NoRepeat(),max='**' ),
+ GROUP_NO_STRU = SIMP(statut='o',typ=grno,validators=NoRepeat(),max='**' ),),
+ ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ EQUE_PIQUA =FACT(statut='f',
+ GROUP_NO =SIMP(statut='o',typ=grno),
+ E_BASE =SIMP(statut='o',typ='R' ),
+ DEXT_BASE =SIMP(statut='o',typ='R' ),
+ L_BASE =SIMP(statut='o',typ='R' ),
+ L_CHANF =SIMP(statut='o',typ='R' ),
+ TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
+ H_SOUD =SIMP(statut='o',typ='R' ),
+ ANGL_SOUD =SIMP(statut='o',typ='R' ),
+ JEU_SOUD =SIMP(statut='o',typ='R' ),
+ E_CORP =SIMP(statut='o',typ='R' ),
+ DEXT_CORP =SIMP(statut='o',typ='R' ),
+ AZIMUT =SIMP(statut='o',typ='R' ),
+ RAFF_MAIL =SIMP(statut='o',typ='TXM' ),
+ X_MAX =SIMP(statut='o',typ='R' ),
+ ),
+ ORIE_PEAU_2D =FACT(statut='f',max='**',
+ GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
+ ),
+ ORIE_PEAU_3D =FACT(statut='f',max='**',
+ GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
+ ),
+ ORIE_SHB8 =FACT(statut='f',max=1,
+ GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
+ ),
+ ORIE_NORM_COQUE =FACT(statut='f',max='**',
+ regles=(EXCLUS('NOEUD','GROUP_NO'),
+ PRESENT_PRESENT('NOEUD','VECT_NORM'),
+ PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
+ GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
+ VECT_NORM =SIMP(statut='f',typ='R',max=3),
+ NOEUD =SIMP(statut='f',typ=no),
+ GROUP_NO =SIMP(statut='f',typ=grno),
+ ),
+ b_modele =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
+ MODELE =SIMP(statut='o',typ=modele_sdaster ),
+ ),
+ PLAQ_TUBE =FACT(statut='f',
+ DEXT =SIMP(statut='o',typ='R' ),
+ EPAIS =SIMP(statut='o',typ='R' ),
+ L_TUBE_P1 =SIMP(statut='o',typ='R' ),
+ AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
+ COUTURE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
+ ),
+ TUBE_COUDE =FACT(statut='f',
+ ANGLE =SIMP(statut='o',typ='R' ),
+ R_CINTR =SIMP(statut='o',typ='R' ),
+ L_TUBE_P1 =SIMP(statut='o',typ='R' ),
+ ),
+ MODI_MAILLE =FACT(statut='f',max=1,
+ regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
+ OPTION =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
+ GROUP_MA_FOND =SIMP(statut='f',typ=grma,validators=NoRepeat(),max=1),
+ MAILLE_FOND =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max=1),
+ GROUP_NO_FOND =SIMP(statut='f',typ=grno,validators=NoRepeat(),max=1),
+ NOEUD_FOND =SIMP(statut='f',typ=no ,validators=NoRepeat(),max=1),
),
-
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+ MODI_BASE =FACT(statut='f',
+ VECT_X =SIMP(statut='o',typ='R',min=2,max=3),
+ VECT_Y =SIMP(statut='f',typ='R',min=2,max=3),
+ ),
+ ECHELLE =SIMP(statut='f',typ='R',),
+ TRANSLATION =SIMP(statut='f',typ='R',min=2,max=3),
+ ROTATION =FACT(statut='f',max='**',
+ POIN_1 =SIMP(statut='o',typ='R',min=2,max=3),
+ ANGL =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
+ regles=(EXCLUS('DIR','POIN_2'),),
+ POIN_2 =SIMP(statut='f',typ='R',min=2,max=3),
+ DIR =SIMP(statut='f',typ='R',min=2,max=3),
+ ),
+ SYMETRIE =FACT(statut='f',max='**',
+ fr = "Symétrie du maillage par rapport à un plan en 3D ou à une droite en 2D.",
+ POINT =SIMP(statut='o',typ='R',min=2,max=3,
+ fr="Point appartenant à la droite ou au plan."),
+ AXE_1 =SIMP(statut='o',typ='R',min=2,max=3,
+ fr="Vecteur directeur de la droite ou 1er vecteur appartenant au plan."),
+ AXE_2 =SIMP(statut='f',typ='R',min=3,max=3,
+ fr="2nd vecteur appartenant du plan."),
+ ),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 28/02/2006 AUTEUR VABHHTS J.PELLET
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2002 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 CAMBIER S.CAMBIER
-from Macro.gene_vari_alea_ops import gene_vari_alea_ops,gene_vari_alea_init
-GENE_VARI_ALEA=MACRO(nom="GENE_VARI_ALEA",
- op_init=gene_vari_alea_init,op=gene_vari_alea_ops,
- sd_prod=reel,reentrant='n',
- fr="Générer une réalisation d'une variable aléatoire réelle de loi de probabilité donnée (Gamma ou Exponentielle)",
- UIinfo={"groupes":("Fonction",)},
- TYPE = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="GAMMA"),
- b_gamma =BLOC(condition = "TYPE == 'GAMMA' ",fr="Parametres loi gamma",
- VALE_MOY = SIMP(statut='f', typ='R', defaut=1.),
- BORNE_INF = SIMP(statut='f', typ='R', defaut=0.),
- COEF_VAR = SIMP(statut='f', typ='R', defaut=0.1),
- ),
- b_expo =BLOC(condition = "TYPE == 'EXPONENTIELLE' ",fr="Parametres loi exponentielle",
- VALE_MOY = SIMP(statut='f', typ='R', defaut=0.),
- BORNE_INF = SIMP(statut='f', typ='R', defaut=-1.),
- ),
- b_expo_tronq =BLOC(condition = "TYPE == 'EXP_TRONQUEE' ",fr="Parametres loi exponentielle tronquee",
- VALE_MOY = SIMP(statut='f', typ='R', defaut=0.),
- BORNE_INF = SIMP(statut='f', typ='R', defaut=-1.),
- BORNE_SUP = SIMP(statut='f', typ='R', defaut=1.),
- COEF_VAR = SIMP(statut='f', typ='R', defaut=0.1,val_min=0.),
- ),
- INIT_ALEA =SIMP(statut='f',typ='I'),
-)
-#& MODIF COMMANDE DATE 11/07/2005 AUTEUR CAMBIER S.CAMBIER
+#& MODIF COMMANDE DATE 06/07/2005 AUTEUR GENIAUT S.GENIAUT
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
+# 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
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-# RESPONSABLE CAMBIER S.CAMBIER
-def gene_matr_alea_prod(MATR_MOYEN,**args ):
- if (AsType(MATR_MOYEN) == matr_asse_gene_r ) : return matr_asse_gene_r
- if (AsType(MATR_MOYEN) == macr_elem_dyna) : return macr_elem_dyna
- raise AsException("type de concept resultat non prevu")
-GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op= 27,
-#sd_prod=matr_asse_gene_r,
-sd_prod=gene_matr_alea_prod,
- fr="Générer une réalisation d'une matrice aléatoire réelle sym. déf. positive ou d'un macro élément dynamique",
- reentrant='n',
- UIinfo={"groupes":("Matrice",)},
- MATR_MOYEN = SIMP(statut='o', typ=(matr_asse_gene_r,macr_elem_dyna)),
+MODI_MODELE_XFEM=OPER(nom="MODI_MODELE_XFEM",op= 113,sd_prod=modele_sdaster,docu="U4.44.12-e",reentrant='f',
+ UIinfo={"groupes":("Modélisation",)},
+ fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
-# cas matrice generalisee
- b_matr =BLOC( condition = "AsType(MATR_MOYEN) in (matr_asse_gene_r,)",
- COEF_VAR = SIMP(statut='f', typ='R', defaut=0.1, val_min=0.E+0 ,
- fr="coefficient de variation de la matrice a generer" ),
- ),
-# cas macr_elem_dyna
- b_macr =BLOC( condition = "AsType(MATR_MOYEN) in (macr_elem_dyna,)",
- fr="cas macr_elem_dyna (sous-structuratio)",
- COEF_VAR_RIGI = SIMP(statut='f', typ='R', defaut=0.1, val_min=0.E+0 ,
- fr="coefficient de variation de la matrice de raideur" ),
- COEF_VAR_MASS = SIMP(statut='f', typ='R', defaut=0., val_min=0.E+0 ,
- fr="coefficient de variation de la matrice de masse" ),
- COEF_VAR_AMOR = SIMP(statut='f', typ='R', defaut=0., val_min=0.E+0 ,
- fr="coefficient de variation de la matrice d'amortissement" ),),
+ MODELE_IN =SIMP(statut='o',typ=modele_sdaster,min=01,max=01,),
+ FISSURE =SIMP(statut='o',typ=fiss_xfem,min=01,max=01,),
+ CRITERE =SIMP(statut='f',typ='R',defaut=1.1E-4),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,)),
- INIT_ALEA =SIMP(statut='f',typ='I'),
-) ;
-
-#& MODIF COMMANDE DATE 03/04/2006 AUTEUR MCOURTOI M.COURTOIS
+) ;
+#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2002 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.
# ======================================================================
-
-from Macro.lire_table_ops import lire_table_ops
-
-LIRE_TABLE=MACRO(nom="LIRE_TABLE",op=lire_table_ops,sd_prod=table_sdaster,
- fr="Lecture d'un fichier contenant une table",
- UIinfo={"groupes":("Table",)},
- UNITE =SIMP(statut='o',typ='I' ),
- FORMAT =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
- NUME_TABLE =SIMP(statut='f',typ='I',defaut=1),
- SEPARATEUR =SIMP(statut='f',typ='TXM',defaut=' '),
- PARA =SIMP(statut='f',typ='TXM',max='**'),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- ) ;
-
-#& MODIF COMMANDE DATE 09/05/2006 AUTEUR GALENNE E.GALENNE
+MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle_sdaster,
+ fr="Calculer les obstacles dans les systèmes guidage-tube après usure",reentrant='f',
+ UIinfo={"groupes":("Modélisation",)},
+ regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
+ PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
+ V_USUR_TUBE =SIMP(statut='f',typ='R',max='**'),
+ V_USUR_OBST =SIMP(statut='f',typ='R',max='**'),
+ TABL_USURE =SIMP(statut='f',typ=table_sdaster),
+ INST =SIMP(statut='f',typ='R'),
+ OBSTACLE =SIMP(statut='f',typ=obstacle_sdaster),
+ GUIDE =SIMP(statut='o',typ=obstacle_sdaster),
+ CRAYON =SIMP(statut='f',typ=obstacle_sdaster),
+ R_MOBILE =SIMP(statut='f',typ='R'),
+ PERCEMENT =SIMP(statut='f',typ='R',defaut=1),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+) ;
+#& MODIF COMMANDE DATE 12/09/2005 AUTEUR CIBHHLV L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2002 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.
# ======================================================================
+# RESPONSABLE JMBHH01 J.M.PROIX
+def modi_repere_prod(RESULTAT,**args):
+ if AsType(RESULTAT) == evol_elas : return evol_elas
+ if AsType(RESULTAT) == evol_noli : return evol_noli
+ if AsType(RESULTAT) == evol_ther : return evol_ther
+ if AsType(RESULTAT) == dyna_trans : return dyna_trans
+ if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
+ if AsType(RESULTAT) == mode_meca : return mode_meca
+ if AsType(RESULTAT) == mode_flamb : return mode_flamb
+ if AsType(RESULTAT) == mult_elas : return mult_elas
+ if AsType(RESULTAT) == base_modale : return base_modale
+ raise AsException("type de concept resultat non prevu")
-from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
+MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,reentrant='n',
+ UIinfo={"groupes":("Résultats et champs",)},
+ fr="Calcule des résultats dans le repère cylindrique",
+ RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
+ evol_noli,mult_elas,
+ evol_ther,base_modale,mode_flamb) ),
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
+ 'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+ NOM_CAS =SIMP(statut='f',typ='TXM' ),
-MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=table_sdaster,
- reentrant='n',
- UIinfo={"groupes":("Outils métier",)},
- fr="Extraction des valeurs d'un résultat dans une ou plusieurs tables sur des lignes de coupe définies"
- +" par deux points et un intervalle",
- RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
-# extraction des résultats
- b_meca =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
- NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
- ),
- b_ther =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
- NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster),
+
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
+
+ MODI_CHAM =FACT(statut='o',max='**',
+ GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ TYPE_CHAM =SIMP(statut='o',typ='TXM',
+ into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',into=C_NOM_CHAM_INTO()),
+ 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_tors_3d =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
+ NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
+ 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 ),),
),
- UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=25),
- MODELE =SIMP(statut='f',typ=modele_sdaster ),
- GROUP_MA =SIMP(statut='f',typ=grma),
- MAILLE =SIMP(statut='f',typ=ma,max='**'),
- regles=(EXCLUS('GROUP_MA','MAILLE'),),
- LIGN_COUPE =FACT(statut='o',max='**',
- regles=(UN_PARMI('NB_POINTS','GROUP_NO'),),
- INTITULE =SIMP(statut='f',typ='TXM',),
- GROUP_NO =SIMP(statut='f',typ=grno),
- NB_POINTS =SIMP(statut='f',typ='I'),
- b_nbpts = BLOC(condition = "NB_POINTS != None",
- COOR_ORIG =SIMP(statut='o',typ='R',min=2,max=3),
- COOR_EXTR =SIMP(statut='o',typ='R',min=2,max=3),
- VECT_Y =SIMP(statut='f',typ='R',min=2,max=3),),
+ DEFI_REPERE =FACT(statut='o',
+ regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
+ REPERE =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
+ into=("UTILISATEUR","CYLINDRIQUE"),),
+ ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
+ ORIGINE =SIMP(statut='f',typ='R',min=2,max=3),
+ AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
) ;
-
-
-#& MODIF COMMANDE DATE 08/11/2005 AUTEUR ASSIRE A.ASSIRE
+#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2002 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.
# ======================================================================
-
-from Macro.macr_recal_ops import macr_recal_ops
-
-def macr_recal_prod(self,**args ):
- return listr8_sdaster
+def norm_mode_prod(MODE,**args ):
+ if AsType(MODE) == mode_meca : return mode_meca
+ if AsType(MODE) == mode_meca_c : return mode_meca_c
+ if AsType(MODE) == mode_flamb : return mode_flamb
+ raise AsException("type de concept resultat non prevu")
-MACR_RECAL = MACRO(nom="MACR_RECAL",op=macr_recal_ops,
- UIinfo={"groupes":("Résultats et champs",)},
- sd_prod=macr_recal_prod,
- fr="Réalise le recalage des calculs Aster sur des résultats expérimentaux"
- +" ou sur d'autres résultats de calculs",
- UNITE_ESCL =SIMP(statut='o',typ='I'),
- RESU_EXP =SIMP(statut='o',typ=assd,max='**'),
- POIDS =SIMP(statut='f',typ=assd,max='**'),
- RESU_CALC =SIMP(statut='o',typ=assd,max='**'),
- LIST_PARA =SIMP(statut='o',typ=assd,max='**'),
- ITER_MAXI =SIMP(statut='f',typ='I',defaut=10),
- RESI_GLOB_RELA =SIMP(statut='f',typ='R',defaut=1.E-3),
- UNITE_RESU =SIMP(statut='f',typ='I',defaut=91),
- PARA_DIFF_FINI =SIMP(statut='f',typ='R',defaut=0.001),
- GRAPHIQUE =FACT(statut='d',
- UNITE =SIMP(statut='f',typ='I',defaut=90),
- FORMAT =SIMP(statut='f',typ='TXM',defaut='XMGRACE',into=("XMGRACE","GNUPLOT")),
- INTERACTIF =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON")),),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=( 1, 2 ) ),
+NORM_MODE=OPER(nom="NORM_MODE",op= 37,sd_prod=norm_mode_prod,
+ fr="Normer des modes propres en fonction d'un critère choisi par l'utilisateur",
+ reentrant='f',
+ UIinfo={"groupes":("Résolution",)},
+ regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),
+ CONCEPT_SENSIBLE('SEPARE'),
+ DERIVABLE('MODE'),),
+ MODE =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
+ NORME =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
+ into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
+ NOEUD =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
+ b_noeud =BLOC(condition = "NOEUD != None",
+ NOM_CMP =SIMP(statut='o',typ='TXM' ),
+ ),
+ AVEC_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+ SANS_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+ MASS_INER =SIMP(statut='f',typ=table_sdaster),
+ MODE_SIGNE =FACT(statut='f',fr="Imposer un signe sur une des composantes des modes",
+ NOEUD =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
+ NOM_CMP =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
+ SIGNE =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
+ fr="Choix du signe" ),
+ ),
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
+ fr="Liste des param\350tres de sensibilit\351.",
+ ang="List of sensitivity parameters",
+ ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 14/09/2004 AUTEUR MCOURTOI M.COURTOIS
+#& MODIF COMMANDE DATE 01/04/2005 AUTEUR VABHHTS J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2002 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.
# ======================================================================
-# RESPONSABLE D6BHHJP J.P.LEFEBVRE
-INFO_EXEC_ASTER=OPER(nom="INFO_EXEC_ASTER",op=35,sd_prod=table_sdaster,
- fr="Récupère différentes informations propres à l'exécution en cours",
- reentrant='n',
- UIinfo={"groupes":("Gestion du travail",)},
-
- regles=(),
- LISTE_INFO =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=3,
- into=("CPU_RESTANT","UNITE_LIBRE","ETAT_UNITE"),),
- b_etat_unite =BLOC(condition = "'ETAT_UNITE' in LISTE_INFO",
- regles=(UN_PARMI('UNITE','FICHIER'),),
- UNITE =SIMP(statut='f',typ='I',val_min=1,val_max=99,max=1,
- fr="Unité logique dont on veut obtenir l'état",),
- FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,255),
- fr="Nom du fichier dont on veut obtenir l'état",),
+# RESPONSABLE VABHHTS J.PELLET
+NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl_sdaster,reentrant='n',
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
+ regles=(UN_PARMI('MATR_RIGI','MODELE'),),
+ MATR_RIGI =SIMP(statut='f',validators=NoRepeat(),max=100,
+ typ=(matr_elem_depl_r ,matr_elem_depl_c,matr_elem_temp_r ,matr_elem_pres_c) ),
+ MODELE =SIMP(statut='f',typ=modele_sdaster ),
+ b_modele =BLOC(condition = "MODELE != None",
+ CHARGE =SIMP(statut='f',validators=NoRepeat(),max='**',typ=(char_meca,char_ther,char_acou, ),),
),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
+ 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 associés à la méthode multifrontale",
+ RENUM =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
+ ),
+ b_ldlt =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
+ RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
+ ),
+ b_mumps =BLOC(condition="METHODE=='MUMPS'",fr="paramètres associés à la méthode MUMPS",
+ RENUM =SIMP(statut='f',typ='TXM',into=("SANS",),defaut="SANS" ),
+ ),
+ 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" ),
+ ),
+ INFO =SIMP(statut='f',typ='I',into=(1,2)),
) ;
-#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
+#& 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
-# 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 JMBHH01 J.M.PROIX
-
-from Macro.macr_cara_poutre_ops import macr_cara_poutre_ops
-
-MACR_CARA_POUTRE=MACRO(nom="MACR_CARA_POUTRE",op=macr_cara_poutre_ops,sd_prod=table_sdaster,
- reentrant='n',
- UIinfo={"groupes":("Modélisation",)},
- fr="Calculer les caractéristiques d'une section transversale de poutre à partir d'un maillage 2D de la section",
- regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
- EXCLUS('SYME_Y','GROUP_MA_BORD'),),
-
- UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 20 ),
- ORIG_INER =SIMP(statut='f',typ='R',max=3,defaut=(0.E+0,0.E+0),
- fr="Point par rapport auquel sont calculées les inerties"),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
-
- SYME_X =SIMP(statut='f',typ='TXM',into=("OUI",),fr="demi maillage par rapport a x=0"),
- SYME_Y =SIMP(statut='f',typ='TXM',into=("OUI",),fr="demi maillage par rapport a y=0"),
-
- GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
- fr="Calcul des caractéristiques équivalentes a plusieurs sections disjointes"),
-
- GROUP_MA_BORD =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
- fr="Groupe(s) de mailles linéiques, bord(s) de(s) section(s)"),
-
- b_gma_bord = BLOC( condition = "GROUP_MA_BORD != None",
- fr=" calcul des carac. mecaniques",
-
- 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"),
- ),
-
- b_reseau = BLOC( condition ="""(GROUP_MA_BORD != None) and (GROUP_MA != None)""",
- fr=" calcul des coef de cisaillement équivalents a un reseau de poutres",
- regles=(ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
- LONGUEUR =SIMP(statut='f',typ='R',fr="Longueur du réseau de poutres"),
- MATERIAU =SIMP(statut='f',typ=mater_sdaster,fr="Materiau elastique lineaire du reseau"),
- LIAISON =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT"),
- fr="type de conditions aux limites sur le plancher supérieur" ),
- ),
- )
-#& MODIF COMMANDE DATE 07/02/2005 AUTEUR MABBAS M.ABBAS
+# ======================================================================
+# 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.
+# ======================================================================
+NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
+ fr="Etablissement de la numérotation des ddl d'un modèle établi en coordonnées généralisées",
+ reentrant='n',
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ regles=UN_PARMI('MODELE_GENE','BASE'),
+ MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
+ b_modele_gene =BLOC(condition = "MODELE_GENE != None",
+ STOCKAGE =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
+ METHODE =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("INITIAL","CLASSIQUE") ),
+ ),
+ BASE =SIMP(statut='f',typ=(mode_meca,mode_stat,base_modale,mode_gene ) ),
+ b_base =BLOC(condition = "BASE != None",
+ STOCKAGE =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
+ NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
+ ),
+) ;
+#& 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
+# COPYRIGHT (C) 1991 - 2005 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
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-
-from Macro.macr_cabri_mail_ops import macr_cabri_mail_ops
-
-MACR_CABRI_MAIL=MACRO(nom="MACR_CABRI_MAIL",
- op=macr_cabri_mail_ops,
- sd_prod=maillage_sdaster,
- fr="maillage d'une jonction boulonnée de tuyauterie",
- reentrant='n',
- UIinfo={"groupes":("Outils métier",)},
- EXEC_MAILLAGE = FACT(statut='o',
- LOGICIEL = SIMP(statut = 'o',typ='TXM',into=("GIBI2000",),),
- UNITE_DATG = SIMP(statut = 'f',typ='I',defaut=70,),
- UNITE_MGIB = SIMP(statut = 'f',typ='I',defaut=19,),
- NIVE_GIBI = SIMP(statut = 'f',typ='I',defaut=10,
- into = (3,4,5,6,7,8,9,10,11),
- ),
- ),
- RAFF_MAILLAGE = FACT(statut = 'd',
- NB_RADIAL = SIMP(statut = 'f',typ='I',defaut=2,),
- NB_CIRCONF = SIMP(statut = 'f',typ='I',defaut=3,),
- NB_VERTICAL = SIMP(statut = 'f',typ='I',defaut=6,),
- NB_ALESAGE = SIMP(statut = 'f',typ='I',defaut=5,),
- ),
- VERI_MAIL = FACT(statut='d',
- VERIF = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- APLAT = SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- ),
- GEOM_BRID = FACT(statut = 'o',
- NORME = SIMP(statut = 'o',typ='TXM',into=("OUI","NON"),),
- b_bride_iso = BLOC(condition = "NORME == 'OUI'",
- TYPE = SIMP(statut='o',typ='TXM',
- into=('A','AA','B','B1','C','D','D1','E','F',
- 'FF','G','GG','H','H1','I','J','J1',
- 'K','L','L1','M','N','O','P','S','T','W'),
- ),
- ),
- b_bride_niso = BLOC(condition = "NORME == 'NON'",
- TUBU_D_EXT = SIMP(statut='o',typ='R',),
- TUBU_H = SIMP(statut='o',typ='R',),
- BRID_D_EXT = SIMP(statut='o',typ='R',),
- BRID_D_INT = SIMP(statut='o',typ='R',),
- BRID_H = SIMP(statut='o',typ='R',),
- BRID_D_CONGE = SIMP(statut='o',typ='R',),
- BRID_R_CONGE = SIMP(statut='o',typ='R',),
- BRID_D_EPAUL = SIMP(statut='o',typ='R',),
- BRID_H_EPAUL = SIMP(statut='o',typ='R',),
- BRID_D_ALESAG = SIMP(statut='o',typ='R',),
- BRID_P_ALESAG = SIMP(statut='o',typ='R',),
- BRID_H_ALESAG = SIMP(statut='o',typ='R',),
- GOUJ_N_GOUJON = SIMP(statut='o',typ='I',),
- GOUJ_D_GOUJON = SIMP(statut='o',typ='R',),
- GOUJ_E_FILET = SIMP(statut='o',typ='R',),
- GOUJ_D_RONDEL = SIMP(statut='o',typ='R',),
- GOUJ_E_RONDEL = SIMP(statut='o',typ='R',),
- GOUJ_D_ECROU = SIMP(statut='o',typ='R',),
- GOUJ_E_ECROU = SIMP(statut='o',typ='R',),
- ETAN_E_JOINT = SIMP(statut='o',typ='R',),
- ),
- ),
- IMPRESSION = FACT(statut='d',
- UNITE = SIMP(statut='f',typ='I'),
- FORMAT = SIMP(statut='f',typ='TXM',defaut="ASTER",
- into=("ASTER","CASTEM","IDEAS"),
- ),
- b_impr_castem = BLOC(condition = "FORMAT == 'CASTEM'",
- NIVE_GIBI = SIMP(statut='f',typ='I',defaut=10,into=(3,10),),
- ),
- b_impr_ideas = BLOC(condition = "FORMAT == 'IDEAS'",
- VERSION = SIMP(statut='f',typ='I',defaut=5,into=(4,5),),
- ),
- ),
- );
-
-#& MODIF COMMANDE DATE 16/05/2006 AUTEUR REZETTE C.REZETTE
+POST_CHAM_XFEM=OPER(nom="POST_CHAM_XFEM",op= 196,sd_prod=resultat_sdaster,
+ reentrant='n',UIinfo={"groupes":("Post traitements",)},
+ fr="Calcul des champs DEPL et SIEF_ELGA sur le maillage fissuré",
+ MAILLAGE = SIMP(statut='o',typ=maillage_sdaster),
+ MODELE = SIMP(statut='o',typ=modele_sdaster,),
+ RESULTAT = SIMP(statut='o',typ=resultat_sdaster),
+ NOM_CHAM = SIMP(statut='o',typ='TXM',into=("DEPL","SIEF_ELGA"),)
+);
+#& 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
-# 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.
# ======================================================================
-#& RESPONSABLE
-DYNA_TRAN_EXPLI=OPER(nom="DYNA_TRAN_EXPLI",op= 70,sd_prod=evol_noli,reentrant='f',UIinfo={"groupe":("Résolution",)},
- fr="Calcul de l'évolution dynamique d'une structure dont la géométrie ou le matériau ont un comportement"
- +" non linéaire, par une méthode explicite sur les accélérations ",
- regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),UN_PARMI('DIFF_CENT','TCHAMWA'),),
- MODELE =SIMP(statut='o',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='o',typ=cham_mater),
- MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
- CARA_ELEM =SIMP(statut='f',typ=cara_elem),
- MASS_DIAG =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- EXCIT =FACT(statut='o',max='**',
- regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
- PRESENT_PRESENT('ACCE','VITE','DEPL'),
- # PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),
- ),
- TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
- into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
- CHARGE =SIMP(statut='o',typ=char_meca),
- FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- DEPL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- ACCE =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- VITE =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- DIRECTION =SIMP(statut='f',typ='R',max=3),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=table_sdaster,
+ fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
+ reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
+ INTE_SPEC =SIMP(statut='o',typ=table_sdaster),
+ NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**' ),
+ NOEUD_I =SIMP(statut='f',typ=no,max='**'),
+ OPTION =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
+ b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
+ NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**' ),
+ ),
+ b_noeud_i =BLOC(condition = "NOEUD_I != None",
+ NOEUD_J =SIMP(statut='o',typ=no,max='**'),
+ NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**' ),
+ NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**' ),
+ ),
+ DEPASSEMENT =FACT(statut='f',max='**',
+ fr="Loi de dépassement d un seuil pendant une durée donnée",
+ regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
+ VALE_MIN =SIMP(statut='f',typ='R' ),
+ VALE_MAX =SIMP(statut='f',typ='R' ),
+ PAS =SIMP(statut='f',typ='R' ),
+ DUREE =SIMP(statut='f',typ='R',defaut= 1. ),
+ ),
+ RAYLEIGH =FACT(statut='f',max='**',
+ fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
+ regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
+ VALE_MIN =SIMP(statut='f',typ='R' ),
+ VALE_MAX =SIMP(statut='f',typ='R' ),
+ PAS =SIMP(statut='f',typ='R' ),
+ ),
+ GAUSS =FACT(statut='f',max='**',
+ fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
+ regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
+ VALE_MIN =SIMP(statut='f',typ='R' ),
+ VALE_MAX =SIMP(statut='f',typ='R' ),
+ PAS =SIMP(statut='f',typ='R' ),
+ ),
+ VANMARCKE =FACT(statut='f',max='**',
+ fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
+ regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
+ VALE_MIN =SIMP(statut='f',typ='R' ),
+ VALE_MAX =SIMP(statut='f',typ='R' ),
+ PAS =SIMP(statut='f',typ='R' ),
+ DUREE =SIMP(statut='f',typ='R',defaut= 10. ),
+ ),
+ MOMENT =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
+) ;
+#& MODIF COMMANDE DATE 03/01/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.
+# ======================================================================
+POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=table_sdaster,
+ fr="Post-traiter les résultats en coordonnées généralisées produit par DYNA_TRAN_MODAL",
+ reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
+ RESU_GENE =SIMP(statut='o',typ=tran_gene ),
+ CHOC =FACT(statut='f',max='**',
+ fr="Analyse des non linéarités de choc",
+ INST_INIT =SIMP(statut='f',typ='R',defaut= -1. ),
+ INST_FIN =SIMP(statut='f',typ='R',defaut= 999. ),
+ NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
+ SEUIL_FORCE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ DUREE_REPOS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ OPTION =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
+ NB_CLASSE =SIMP(statut='f',typ='I',defaut= 10 ),
),
- AMOR_MODAL =FACT(statut='f',
- MODE_MECA =SIMP(statut='o',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="OUI",into=("OUI","NON") ),
+ RELA_EFFO_DEPL =FACT(statut='f',
+ fr="Analyse des relationsnon linéaires effort-déplacement",
+ NOEUD =SIMP(statut='o',typ=no),
+ NOM_CMP =SIMP(statut='o',typ='TXM' ),
),
- PROJ_MODAL =FACT(statut='f',max='**',
- MODE_MECA =SIMP(statut='o',typ=mode_meca),
- NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
- regles=(PRESENT_PRESENT('MASS_GENE','RIGI_GENE'),),
- MASS_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
- RIGI_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
- AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+) ;
+#& MODIF COMMANDE DATE 16/05/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 G8BHHXD X.DESROCHES
+POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
+
+ regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
+ 'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
+ 'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
+ 'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE','INTEGRALE'),
+ ),
+
+ MASS_INER = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ ORIG_INER = SIMP(statut='f',typ='R',min=3,max=3 ),
+ ),
+ b_mass_iner = BLOC(condition = "( MASS_INER != None )",
+ fr="calcul de la masse, les inerties et le centre de gravité",
+ regles=(EXCLUS('CHAM_GD','RESULTAT'),
+ EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
+ 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM = SIMP(statut='f',typ=cara_elem),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
+ NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ GEOMETRIE = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
+ CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
+ RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
+ fourier_elas,dyna_trans) ),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
+ FREQ = SIMP(statut='f',typ='R',),
+ LIST_FREQ = SIMP(statut='f',typ=listr8_sdaster),
+ NUME_MODE = SIMP(statut='f',typ='I',),
+ NOEUD_CMP = SIMP(statut='f',typ='TXM',min=2,validators=NoRepeat(),max=2),
+ NOM_CAS = SIMP(statut='f',typ='TXM',),
),
- EXCIT_GENE =FACT(statut='f',
- FONC_MULT =SIMP(statut='f',typ=fonction_sdaster,max='**' ),
- VECT_GENE =SIMP(statut='f',typ=vect_asse_gene,max='**' ),
+
+ ENER_POT = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ ),
+ b_ener_pot = BLOC(condition = "( ENER_POT != None )",
+ fr="calcul de l'énergie potentielle de déformation",
+ regles=(UN_PARMI('CHAM_GD','RESULTAT'),
+ EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
+ 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM = SIMP(statut='f',typ=cara_elem),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
+ NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
+ ANGLE = SIMP(statut='f',typ='I',defaut=0),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
+ RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans,mult_elas) ),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
+ FREQ = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_FREQ = SIMP(statut='f',typ=listr8_sdaster),
+ NUME_MODE = SIMP(statut='f',typ='I' ,validators=NoRepeat(),max='**'),
+ NOEUD_CMP = SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+ NOM_CAS = SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
),
- 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_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",) ),
- 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='**'),
- MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),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")),
+
+ ENER_CIN = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ OPTION = SIMP(statut='f',typ='TXM',
+ into=("MASS_MECA","MASS_MECA_DIAG"),
+ defaut="MASS_MECA" ),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ ),
+ b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
+ fr="calcul de l'énergie cinétique",
+ regles=(UN_PARMI('CHAM_GD','RESULTAT'),
+ EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
+ 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM = SIMP(statut='f',typ=cara_elem),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
+ NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
+ ANGLE = SIMP(statut='f',typ='I',defaut=0),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
+ RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
+ FREQ = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_FREQ = SIMP(statut='f',typ=listr8_sdaster),
+ NUME_MODE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ NOEUD_CMP = SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+ NOM_CAS = SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
),
-#-------------------------------------------------------------------
- ETAT_INIT =FACT(statut='f',
- 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'),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- NUME_DIDI =SIMP(statut='f',typ='I'),
- INST_ETAT_INIT =SIMP(statut='f',typ='R'),
+
+ ENER_ELAS = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ ),
+ b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
+ fr="calcul de l'énergie de déformation élastique",
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM = SIMP(statut='f',typ=cara_elem),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
+ NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
),
-#-------------------------------------------------------------------
- INCREMENT =FACT(statut='o',
- regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
- EXCLUS('NUME_INST_FIN','INST_FIN'),),
- LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
- EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
- into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
- NUME_INST_INIT =SIMP(statut='f',typ='I'),
- INST_INIT =SIMP(statut='f',typ='R'),
- NUME_INST_FIN =SIMP(statut='f',typ='I'),
- INST_FIN =SIMP(statut='f',typ='R'),
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
- SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
- SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
- COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
- OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
- NOM_CHAM =SIMP(statut='f',typ='TXM',),
- NOM_CMP =SIMP(statut='f',typ='TXM',),
- VALE =SIMP(statut='f',typ='R'),
+
+ ENER_TOTALE = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ ),
+ b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
+ fr="calcul de l'énergie de déformation totale",
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM = SIMP(statut='f',typ=cara_elem),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
+ NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
),
-#-------------------------------------------------------------------
- DIFF_CENT =FACT(statut='f',
+
+ INTEGRALE = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ NOM_CHAM = SIMP(statut='o',typ='TXM',into=C_NOM_CHAM_INTO()),
+ NOM_CMP = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**'),
+ ),
+ b_integrale = BLOC(condition = "( INTEGRALE != None )",
+ fr="calcul de la moyenne d'une composante",
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ RESULTAT = SIMP(statut='o',typ=(evol_noli,evol_ther,evol_elas) ),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
),
- TCHAMWA =FACT(statut='f',
- PHI =SIMP(statut='f',typ='R',defaut= 1.05),
+
+ WEIBULL = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ OPTION = SIMP(statut='f',typ='TXM',
+ into=("SIGM_ELGA","SIGM_ELMOY"),
+ defaut="SIGM_ELGA"),
+ CORR_PLAST = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
+ COEF_MULT = SIMP(statut='f',typ='R',defaut=1.),
+ ),
+ b_weibull = BLOC(condition = "( WEIBULL != None )",
+ fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
+ regles=(UN_PARMI('CHAM_GD','RESULTAT'),
+ EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM = SIMP(statut='f',typ=cara_elem),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
+ NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
+ RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
),
- STOP_CFL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
- NEWTON =FACT(statut='c',
- REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
- PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
- MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
- REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
- REAC_ITER_ELAS =SIMP(statut='f',typ='I',defaut=0),
- PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
+
+ RICE_TRACEY = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ OPTION = SIMP(statut='f',typ='TXM',
+ into=("SIGM_ELGA","SIGM_ELMOY"),
+ defaut="SIGM_ELGA"),
+ LOCAL = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ ),
+ b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
+ fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
+ regles=(UN_PARMI('CHAM_GD','RESULTAT'),
+ EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM = SIMP(statut='f',typ=cara_elem),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
+ NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
+ RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
),
- PARM_THETA =SIMP(statut='f',typ='R',defaut= 1. ),
- SOLVEUR =FACT(statut='d',
- 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","DECOUPE") ),
- ),
- 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),
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+
+ INDIC_ENER = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ ),
+ b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
+ fr="calcul un indicateur global de perte de proportionnalité du chargement",
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
),
-#-------------------------------------------------------------------
- RECH_LINEAIRE =FACT(statut='c',
- RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
- ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
- ITER_LINE_CRIT =SIMP(statut='f',typ='I',defaut= 20),
- PAS_MINI_CRIT =SIMP(statut='f',typ='R',defaut=0.0E+0),
- RHO_MIN =SIMP(statut='f',typ='R',defaut=1.0E-2),
- RHO_MAX =SIMP(statut='f',typ='R',defaut=1.0E+1),
- RHO_EXCL =SIMP(statut='f',typ='R',defaut=0.9E-2),
+
+ INDIC_SEUIL = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ ),
+ b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
+ fr="calcul un indicateur global de perte de proportionnalité du chargement",
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
),
- PILOTAGE =FACT(statut='c',
- regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
- TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
- COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
- ETA_PILO_MAX =SIMP(statut='f',typ='R'),
- ETA_PILO_MIN =SIMP(statut='f',typ='R'),
- ETA_PILO_R_MAX =SIMP(statut='f',typ='R'),
- ETA_PILO_R_MIN =SIMP(statut='f',typ='R'),
- PROJ_BORNES =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
- SELECTION =SIMP(statut='f',typ='TXM',defaut="NORM_INCR_DEPL", into=("RESIDU","ANGL_INCR_DEPL","NORM_INCR_DEPL") ),
- 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='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
- NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
- ),
- CONVERGENCE =FACT(statut='d',
- regles=(PRESENT_ABSENT('RESI_REFE_RELA','RESI_GLOB_MAXI','RESI_GLOB_RELA'),),
- SIGM_REFE =SIMP(statut='f',typ='R'),
- EPSI_REFE =SIMP(statut='f',typ='R'),
- FLUX_THER_REFE =SIMP(statut='f',typ='R'),
- FLUX_HYD1_REFE =SIMP(statut='f',typ='R'),
- FLUX_HYD2_REFE =SIMP(statut='f',typ='R'),
- RESI_REFE_RELA =SIMP(statut='f',typ='R'),
- RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
- RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
- ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
- ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
- ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
- 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")),
+
+ CHAR_LIMITE = FACT(statut='f',min=0,
+ CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
+ ),
+ b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
+ fr="post-traitement du calcul de la charge limite",
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM = SIMP(statut='f',typ=cara_elem),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
+ ),
+
+ CARA_GEOM = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE = SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ SYME_X = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ SYME_Y = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ ORIG_INER = SIMP(statut='f',typ='R',min=2,max=2),
+ ),
+ b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
+ fr="calcul des caractéristiques géométriques d'un section de poutre",
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
),
-#-------------------------------------------------------------------
- AFFICHAGE = FACT(statut='f',max=16,
- UNITE = SIMP(statut='f',typ='I',val_min=1),
+ CARA_POUTRE = FACT(statut='f',max='**',
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
+ ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ GROUP_MA_INTE = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ CARA_GEOM = SIMP(statut='o',typ=table_sdaster),
+ RT = SIMP(statut='f',typ='R'),
+ LAPL_PHI = SIMP(statut='f',typ=evol_ther),
+ LAPL_PHI_Y = SIMP(statut='f',typ=evol_ther),
+ LAPL_PHI_Z = SIMP(statut='f',typ=evol_ther),
+ LIAISON = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
+ LONGUEUR = SIMP(statut='f',typ='R'),
+ MATERIAU = SIMP(statut='f',typ=mater_sdaster),
+ OPTION = SIMP(statut='f',typ='TXM',
+ into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
+ ),
+ b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
+ fr="calcul des caractéristiques mécaniques d'un section de poutre",
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ CHAM_MATER = SIMP(statut='f',typ=cham_mater),
+ CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),validators=NoRepeat(),max='**' ),
+ MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
+ ),
- LONG_R = SIMP(statut='f',typ='I',defaut=12,val_min=1,val_max=12),
- PREC_R = SIMP(statut='f',typ='I',defaut=5, val_min=1,val_max=8),
- LONG_I = SIMP(statut='f',typ='I',defaut=6, val_min=1,val_max=12),
-
- NOM_COLONNE = SIMP(statut='o',typ='TXM',defaut="STANDARD",
- into=("STANDARD","MINIMUM",
- "ITER_NEWT",
- "INCR_TPS",
- "RESI_RELA","RELA_NOEU",
- "RESI_MAXI","MAXI_NOEU",
- "RESI_REFE","REFE_NOEU",
- "RELI_ITER","RELI_COEF",
- "PILO_PARA",
- "LAGR_ECAR","LAGR_INCR","LAGR_ITER",
- "MATR_ASSE",
- "ITER_DEBO",
- "CTCD_ITER","CTCD_INFO","CTCD_GEOM","CTCD_NOEU",
- "CTCC_GEOM","CTCC_FROT","CTCC_CONT",
- "SUIV_1","SUIV_2","SUIV_3","SUIV_4",
- ),
+ AIRE_INTERNE = FACT(statut='f',max='**',
+ GROUP_MA_BORD = SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
),
- b_residu = BLOC(condition = " NOM_COLONNE == 'RESI_RELA' or \
- NOM_COLONNE == 'RESI_MAXI' or\
- NOM_COLONNE == 'RESI_REFE' or\
- NOM_COLONNE == 'CTCD_GEOM' or\
- NOM_COLONNE == 'STANDARD' ",
- INFO_RESIDU = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
- ),
- ),
-#-------------------------------------------------------------------
- ARCHIVAGE =FACT(statut='f',
- regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
- EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
- LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
- PAS_ARCH =SIMP(statut='f',typ='I' ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
- 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","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
+ b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
+ fr="calcul de l'aire d'un trou dans un maillage 2D",
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
),
- OBSERVATION =FACT(statut='f',max='**',
- regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
- PRESENT_PRESENT('MAILLE','POINT'),),
- NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
-into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
- NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
- LIST_ARCH =SIMP(statut='f',typ=listis_sdaster),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PAS_OBSE =SIMP(statut='f',typ='I'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- POINT =SIMP(statut='f',typ='I' ,max='**'),
+ TRAV_EXT = FACT(statut='f',),
+ b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
+ fr="calcul du travail des efforts extérieurs",
+ RESULTAT = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
),
-#-------------------------------------------------------------------
- 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 ),
- ),
- ),
- 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='**'),
-) ;
-#& MODIF COMMANDE DATE 07/10/2005 AUTEUR CIBHHPD L.SALMONA
+
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+
+ ) ;
+#& 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
-# 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.
# ======================================================================
+POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=table_sdaster,reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ fr="Calculer le dommage de fatigue subi par une structure soumise à une sollicitation de type aléatoire",
+ regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
+ PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
+ UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
+ MOMENT_SPEC_0 =SIMP(statut='f',typ='R'),
+ MOMENT_SPEC_2 =SIMP(statut='f',typ='R'),
+ MOMENT_SPEC_4 =SIMP(statut='f',typ='R'),
+ TABL_POST_ALEA =SIMP(statut='f',typ=table_sdaster),
+ COMPTAGE =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
+ DUREE =SIMP(statut='f',typ='R',defaut= 1.),
+ CORR_KE =SIMP(statut='f',typ='TXM',into=("RCCM",)),
+ DOMMAGE =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
+ MATER =SIMP(statut='o',typ=mater_sdaster),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+) ;
+#& MODIF COMMANDE DATE 03/01/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.
+# ======================================================================
+POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=table_sdaster,reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ fr="Calculer en un point, le dommage de fatigue subi par une structure soumise à une histoire de chargement",
-from Macro.macr_cabri_calc_ops import macr_cabri_calc_ops
-
-def macr_cabri_calc_prod(self,MODELE_THER,MODELE_MECA,CHAM_MATER,
- CHAR_THER,CHAR_MECA,RESU_THER,**args):
- if MODELE_THER != None:
- self.type_sdprod(MODELE_THER,modele_sdaster)
- if MODELE_MECA != None:
- self.type_sdprod(MODELE_MECA,modele_sdaster)
- if RESU_THER != None:
- self.type_sdprod(RESU_THER,evol_ther)
- if CHAM_MATER != None:
- self.type_sdprod(CHAM_MATER,cham_mater)
- if CHAR_THER != None:
- for m in CHAR_THER:
- self.type_sdprod(m['CHARGE'],char_ther)
- if CHAR_MECA != None:
- for m in CHAR_MECA:
- self.type_sdprod(m['CHARGE'],char_meca)
- return evol_noli
-
-
-MACR_CABRI_CALC=MACRO(nom="MACR_CABRI_CALC",
- op=macr_cabri_calc_ops,
- sd_prod=macr_cabri_calc_prod,
- fr="Calcul thermo-mécanique d'une jonction boulonnée de tuyauterie",
- reentrant='n',
- UIinfo={"groupes":("Outils métier",)},
- MAILLAGE = SIMP(statut='o',typ=maillage_sdaster,),
- AFFE_MATERIAU = FACT(statut='o',max='**',
- regles=(UN_PARMI('TOUT','GROUP_MA',),),
- TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
- GROUP_MA = SIMP(statut='f',typ='TXM',into=(
- "BRIDE",
- "GOUJON",
- "ROND",
- "ECROU",
- "JOINT",) ),
- MATER = SIMP(statut='o',typ=mater_sdaster),
- TEMP_REF = SIMP(statut='d',typ='R',defaut= 25. ),
- ),
- CHAM_MATER = SIMP(statut = 'f',typ=CO,),
- MODELE_THER= SIMP(statut = 'f',typ=CO,),
-
- DEFI_CHAR_THER = FACT(statut ='d',
- TEMP_INIT = SIMP(statut='d',typ='R',defaut= 25.,),
- COEF_H_FLUI = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
- TEMP_EXT_FLUI = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
- COEF_H_AIR = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
- TEMP_EXT_AIR = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
- LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
- ),
-
- CHAR_THER = FACT(statut = 'f',max=4,
- CHARGE = SIMP(statut='o',typ=CO),
- TYPE = SIMP(statut='o',typ='TXM',
- into=("BRIDE_FLUIDE","BRIDE_AIR","ECROU_GOUJON",
- "BRIDE_JOINT"),)
- ),
-
- RESU_THER = SIMP(statut = 'f',typ=CO,),
+ CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
-
- MODELE_MECA= SIMP(statut = 'f',typ=CO,),
+ b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
+ regles=(PRESENT_PRESENT('CORR_KE','MATER'),
+ PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
+ PRESENT_PRESENT('DOMMAGE','MATER'),),
+ HISTOIRE = FACT(statut='o',
+ regles=(UN_PARMI('SIGM','EPSI'),),
+ SIGM = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ EPSI = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),),
+ COMPTAGE = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
+ DELTA_OSCI = SIMP(statut='f',typ='R',defaut= 0.0E+0),
+ COEF_MULT = FACT(statut='f',
+ KT = SIMP(statut='o',typ='R'),),
+ CORR_KE = SIMP(statut='f',typ='TXM',into=("RCCM",)),
+ DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
+ "TAHERI_MANSON","TAHERI_MIXTE")),
+ MATER = SIMP(statut='f',typ=mater_sdaster),
+ CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
+ TAHERI_NAPPE = SIMP(statut='f',typ=(nappe_sdaster,formule)),
+ TAHERI_FONC = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
+ ),
- DEFI_CHAR_MECA = FACT(statut='o',
- PRETENS = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
- PRES_REP = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
- EFFE_FOND = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster),),
- ),
+ b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
+ HISTOIRE = FACT(statut='o',
+ SIGM_XX = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_YY = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_ZZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_XY = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_XZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_YZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),),
+ CRITERE = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
+ DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
+ MATER = SIMP(statut='o',typ=mater_sdaster),
+ COEF_CORR = SIMP(statut='f',typ='R'),
+ ),
- CHAR_MECA = FACT(statut = 'f',max=11,
- CHARGE = SIMP(statut='o',typ=CO),
- TYPE = SIMP(statut='o',typ='TXM',
- into=("BLOC_BAS_GOUJ","BLOC_BAS_JOINT",
- "BLOC_LAT_ALES","BLOC_LAT_NALES",
- "PLAN_TUBE",
- "PRES_FLU","EFFET_FOND",
- "CONT_JOINT",
- "DEFO_THER",
- "SERR_ECROU_1","SERR_ECROU_2",),)
- ),
-
- RELATION = SIMP(statut='f',typ='TXM',
- into=('VMIS_ISOT_TRAC','ELAS','ELAS_VMIS_TRAC',),),
-
- SOLVEUR = FACT(statut='d',
- METHODE = SIMP(statut='d',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT",) ),
- b_mult_front = BLOC(condition = "METHODE == 'MULT_FRONT' ",
- fr="Paramètres de la méthode multi frontale",
- RENUM = SIMP(statut='d',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
- NPREC = SIMP(statut='d',typ='I',defaut=8),
- STOP_SINGULIER = SIMP(statut='d',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- ),
- ),
- INCREMENT = FACT(statut='f',
- regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
- EXCLUS('NUME_INST_FIN','INST_FIN'),),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
- into=("CHRONOLOGIQUE",) ),
- NUME_INST_INIT =SIMP(statut='f',typ='I'),
- INST_INIT =SIMP(statut='f',typ='R'),
- NUME_INST_FIN =SIMP(statut='f',typ='I'),
- INST_FIN =SIMP(statut='f',typ='R'),
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
- SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
- SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
- COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
- OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
- NOM_CHAM =SIMP(statut='f',typ='TXM',),
- NOM_CMP =SIMP(statut='f',typ='TXM',),
- VALE =SIMP(statut='f',typ='R'),
- ),
- NEWTON =FACT(statut='d',
- REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
- PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL") ),
- MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
- PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
- REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
- EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
- ),
- RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
- into=("IMPLICITE",)),
- CONVERGENCE =FACT(statut='d',
- regles=(PRESENT_ABSENT('RESI_REFE_RELA','RESI_GLOB_MAXI','RESI_GLOB_RELA'),),
- SIGM_REFE =SIMP(statut='f',typ='R'),
- EPSI_REFE =SIMP(statut='f',typ='R'),
- FLUX_THER_REFE =SIMP(statut='f',typ='R'),
- RESI_REFE_RELA =SIMP(statut='f',typ='R'),
- RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
- RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
- ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
- ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
- ),
- );
+ b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
+ HISTOIRE = FACT(statut='o',
+ SIGM_XX = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_YY = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_ZZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_XY = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_XZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SIGM_YZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ EPSP = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ TEMP = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),),
+ DOMMAGE = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),),
+ MATER = SIMP(statut='o',typ=mater_sdaster),
+ CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
+ ),
-#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+) ;
+#& MODIF COMMANDE DATE 09/05/2006 AUTEUR GALENNE E.GALENNE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2003 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.
# ======================================================================
-CREA_TABLE=OPER(nom="CREA_TABLE",op= 36,sd_prod=table_sdaster,
- fr="Création d'une table à partir d'une fonction ou de deux listes",
- reentrant='f',UIinfo={"groupes":("Table",)},
+# RESPONSABLE GALENNE E.GALENNE
+from Macro.post_k1_k2_k3_ops import post_k1_k2_k3_ops
+POST_K1_K2_K3=MACRO(nom="POST_K1_K2_K3",op=post_k1_k2_k3_ops,sd_prod=table_sdaster,
+ fr="Calcul des facteurs d'intensité de contraintes en 2D et en 3D par extrapolation des sauts de déplacements"
+ +" sur les lèvres de la fissure",
+ reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
- regles=(EXCLUS('FONCTION','LISTE'),),
+ regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
+ PRESENT_PRESENT('RESULTAT','FOND_FISS'),),
- LISTE=FACT(statut='f',max='**',
- fr="Creation d'une table a partir de listes",
- regles=(UN_PARMI('LISTE_I','LISTE_R','LISTE_K')),
- PARA =SIMP(statut='o',typ='TXM'),
- TYPE_K =SIMP(statut='f',typ='TXM',defaut='K8',
- into=('K8','K16','K24')),
- NUME_LIGN=SIMP(statut='f',typ='I',max='**'),
- LISTE_I =SIMP(statut='f',typ='I',max='**'),
- LISTE_R =SIMP(statut='f',typ='R',max='**'),
- LISTE_K =SIMP(statut='f',typ='TXM', max='**'),
- ),
- FONCTION=FACT(statut='f',
- fr="Creation d'une table a partir d'une fonction",
- FONCTION=SIMP(statut='o',typ=(fonction_c,fonction_sdaster)),
- PARA=SIMP(statut='f',typ='TXM',min=2,max=2),
- ),
- b_fonction = BLOC(condition='FONCTION != None',
- regles=(CONCEPT_SENSIBLE('SEPARE'), REUSE_SENSIBLE(),
- DERIVABLE('FONCTION'),),
- SENSIBILITE = SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des paramètres de sensibilité.",
- ang="List of sensitivity parameters"),
- ),
- TITRE=SIMP(statut='f',typ='TXM',max='**'),
+ MODELISATION =SIMP(statut='o',typ='TXM',
+ into=("3D","AXIS","D_PLAN","C_PLAN"),
+ fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
+ FOND_FISS =SIMP(statut='f',typ=fond_fiss),
+ b_fond_fiss =BLOC (condition="(FOND_FISS!= None)",
+ MAILLAGE = SIMP(statut='o',typ=maillage_sdaster),
+ TYPE_MAILLAGE = SIMP(statut='f',typ='TXM',into=("LIBRE","REGLE"),defaut="REGLE"),
+ NB_NOEUD_COUPE= SIMP(statut='f',typ='I' ,defaut=5 ),
+ NOEUD = SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ SANS_NOEUD = SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ SANS_GROUP_NO = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) )
+ ),
+ MATER =SIMP(statut='o',typ=mater_sdaster,
+ fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
+ RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),
+ fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
+ TABL_DEPL_SUP =SIMP(statut='f',typ=table_sdaster,
+ fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
+ TABL_DEPL_INF =SIMP(statut='f',typ=table_sdaster,
+ fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
+ ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
+ fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
+ PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ ),
+ SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","SANS") ),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+ VECT_K1 =SIMP(statut='o',typ='R',max=3,
+ fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-
-
-
-#& MODIF COMMANDE DATE 04/10/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2002 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.
+#
+#
+# ======================================================================
+#
+POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=table_sdaster,
+ fr="Calcul des facteurs d'intensité de contraintes par la méthode K_BETA",
+ reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ MAILLAGE = SIMP(statut='o',typ=maillage_sdaster),
+ MATER_REV = SIMP(statut='o',typ=mater_sdaster),
+ EPAIS_REV = SIMP(statut='o',typ='R'),
+ FISSURE = FACT(statut='o',
+ DECALAGE = SIMP(statut='f',typ='R',defaut=-2.e-04),
+ PROFONDEUR = SIMP(statut='o',typ='R'),
+ LONGUEUR = SIMP(statut='o',typ='R'),
+ ORIENTATION = SIMP(statut='o',typ='TXM',
+ into=("CIRC","LONGI"),),
+ ),
+ K1D = FACT(statut='o',max='**',
+ TABL_MECA_REV = SIMP(statut='o',typ=(table_sdaster)),
+ TABL_MECA_MDB = SIMP(statut='o',typ=(table_sdaster)),
+ TABL_THER = SIMP(statut='o',typ=(table_sdaster)),
+ INTITULE = SIMP(statut='o',typ='TXM' ),
+ ),
+ TITRE = SIMP(statut='f',typ='TXM',max='**'),
+);
+#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2004 EDF R&D WWW.CODE-ASTER.ORG
+# COPYRIGHT (C) 1991 - 2005 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
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-# RESPONSABLE GNICOLAS G.NICOLAS
-
-from Macro.macr_fiabilite_ops import macr_fiabilite_ops
-
-#
-#====
-# 1. Le retour : une liste de rééls.
-#====
-#
-def macr_fiabilite_prod ( self , **args ):
- return listr8_sdaster
-#
-#====
-# 2. L'entete
-#====
-#
-MACR_FIABILITE = MACRO ( nom="MACR_FIABILITE",op=macr_fiabilite_ops,
- docu="U7.03.31",UIinfo={"groupe":("Post traitements",)},
- sd_prod=macr_fiabilite_prod,
- fr="Calcule les probabiltés de dépassement de seuil (mécanique de fiabilité).",
- ang="Fiability mechanics.",
-#
-#====
-# 3. Le niveau d'information
-#====
-#
- INFO = SIMP(statut="f",typ="I",defaut=1,into=(1,2)),
-#
-#====
-# 4. Nom et Version du logiciel de fiabilité
-#====
-#
- LOGICIEL = SIMP(statut="f",typ="TXM",defaut="MEFISTO",
- into=("MEFISTO",),
- fr="Nom du logiciel de fiabilité.",
- ang="Fiability software name."),
-#
- VERSION = SIMP(statut="f",typ="TXM",defaut="V3_2",
- into=("V3_2", "V3_N"),
- fr="Version du logiciel de fiabilité.",
- ang="Fiability software release."),
-#
-#====
-# 5. Les entrees-sorties du calcul ASTER déterministe
-#====
-#
-# 5.1. ==> Le jeu de commandes déterministe
-#
- UNITE_ESCL = SIMP(statut="o",typ="I",
- fr="Unité logique associée aux commandes du calcul ASTER déterministe.",
- ang="Logical unit for the commands of the ASTER deterministic calculation."),
-#
-# 5.2. ==> Le destin des messages produits par ASTER
-#
- MESS_ASTER = SIMP(statut="f",typ="TXM",defaut="DERNIER",
- into=("AUCUN", "DERNIER", "TOUS"),
- fr="Quels messages ASTER récupérer.",
- ang="Which ASTER messages must be kept."),
-#
-#====
-# 6. Options
-#====
-# 6.1. ==> Générales
-#
-# 6.1.1. ==> La valeur du seuil
-#
- SEUIL = SIMP(statut="o",typ="R",max=1,
- fr="Le seuil de défaillance.",
- ang="Failure threshold."),
-#
-# 6.1.2. ==> Le type du seuil : on a deux cas de figure selon que
-# la défaillance a lieu au dessus d'un seuil maximum ou
-# en dessous d'un seuil minimum
-#
- SEUIL_TYPE = SIMP(statut="o",typ="TXM",max=1,
- into=("MINIMUM","MAXIMUM"),
- fr="Que faut-il ne pas dépasser : un maximum ou un minimum.",
- ang="What is the failure threshold : maximum or minimum."),
-#
-# 6.2. ==> Pour MEFISTO
-#
-### en attente de résolution de AL 2004-006 (1/2) b_mefisto=BLOC( condition = "LOGICIEL=='MEFISTO'",
-#
-# 6.2.1. ==> Pilotage de la recherche du point de conception
-#
- RECH_PT_CONCEPT = SIMP(statut="f",typ="TXM",defaut="OUI",
- into=("OUI","NON"),
- fr="Pour trouver le point de conception.",
- ang="To find the design point."),
-#
- b_rech_pt_concept=BLOC( condition = "RECH_PT_CONCEPT=='OUI'",
-#
- EPSILON_U = SIMP(statut="f",typ="R",defaut=1.0E-2,
- fr="Précision du test d'arret sur les points itératifs dans l'espace standard.",
- ang="Precision of stop test for iterative points in standard space."),
-#
- EPSILON_G = SIMP(statut="f",typ="R",defaut=1.0E-2,
- fr="Précision du test d'arret sur la proximité de la surface d'état limite.",
- ang="Precision of stop test for limit state surface."),
-#
- TAU = SIMP(statut="f",typ="R",defaut=5.0E-1,
- fr="Paramètre de la méthode de minimisation.",
- ang="Parameter for the minimization method."),
-#
- OMEGA = SIMP(statut="f",typ="R",defaut=1.0E-4,
- fr="Paramètre de la méthode de minimisation.",
- ang="Parameter for the minimization method."),
-#
- ITER_MAX = SIMP(statut="f",typ="I",defaut=50,
- fr="Nombre maximum d'itérations.",
- ang="Maximum number of iterations."),
- ),
-#
-# 6.2.2. ==> Méthode(s) employée(s) pour la probabilité de défaillance
-#
- METHODE_FORM = SIMP(statut="f",typ="TXM",defaut="OUI",
- into=("OUI","NON"),
- fr="Recherche de la probabilité de défaillance avec la méthode FORM.",
- ang="Research of failure probability with FORM method."),
-#
- METHODE_SORM = SIMP(statut="f",typ="TXM",defaut="NON",
- into=("OUI","NON"),
- fr="Recherche de la probabilité de défaillance avec la méthode SORM.",
- ang="Research of failure probability with SORM method."),
-#
- TIRAGE_IMPORTANCE = SIMP(statut="f",typ="TXM",defaut="NON",
- into=("OUI","NON"),
- fr="Recherche de la probabilité de défaillance avec le tirage d'importance.",
- ang="Research of failure probability with ."),
-#
- b_tirage_importance=BLOC( condition = "TIRAGE_IMPORTANCE=='OUI'",
-#
- NB_SIMULATION = SIMP(statut="f",typ="I",defaut=3,
- fr="Nombre de simulations pour le tirage d'importance.",
- ang="Number of simulation for."),
-#
- ),
-#
-# 6.2.3. ==> Création d'une surface de réponse polynomiale
-#
- POLYNOME_TAYLOR = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),),
- HGRAD = SIMP(statut="f",typ="R",defaut=1.0E-2,
- fr="Pas incrémental pour le calcul des gradients.",
- ang="Step for calculation of gradients."),
- HHESS = SIMP(statut="f",typ="R",defaut=1.0E-2,
- fr="Pas incrémental pour le calcul des dérivées secondes.",
- ang="Step for calculation of second derivatives."),
-#
-# 6.2.4. ==> Recherche d'un plan d'expérience
-#
- PLAN_EXPERIENCE = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),
- fr="Construction d'un plan d'expérience.",
- ang="Construction of an experiment plan."),
-#
- b_plan_experience=BLOC( condition = "PLAN_EXPERIENCE=='OUI'",
-#
- ALPHA = SIMP(statut="f",typ="R",defaut=2.0E-1,
- fr="Plan d'expérience : maille du plan de type composite centré.",
- ang="Experiment plane : mesh centered composite."),
-#
- BETA = SIMP(statut="f",typ="R",defaut=4.0E-1,
- fr="Plan d'expérience : maille du plan de type factoriel.",
- ang="Experiment plane : mesh factor."),
-#
- ),
-#
-# 6.2.5. ==> Les tests
-# 6.2.5.1. ==> Test de la sphere
-#
- T_SPHERE = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),
- fr="Test de la sphère.",
- ang="Sphere test."),
-#
- b_test_de_la_sphere=BLOC( condition = "T_SPHERE=='OUI'",
-#
- METHODE_TEST = SIMP(statut="f",typ="TXM",defaut="GAUSSIENNE",
- into=("GAUSSIENNE","PARAMETRIQUE","REJECTION"),
- fr="Type de méthode.",
- ang="Method."),
-#
- NB_POINT = SIMP(statut="f",typ="I",max=1,defaut=60,
- fr="Nombre de points de la sphere.",
- ang="Number of points over the sphere.")
- ),
-#
-# 6.2.5.2. ==> Test du maximum fort
-#
- T_MAXIMUM_FORT = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),
- fr="Test du maximum fort.",
- ang="Strong maximum test."),
-#
- b_test_du_maximum_fort=BLOC( condition = "T_MAXIMUM_FORT=='OUI'",
-#
- COS_LIM = SIMP(statut="f",typ="R",max=1,defaut=1.0,
- fr="Cosinus de l'angle d'exclusion.",
- ang="Cosine of angle of exclusion."),
-#
- DPROB = SIMP(statut="f",typ="R",max=1,defaut=4.3E-1,
- fr="Fraction d'iso-densité de probabilité de défaillance.",
- ang="Fraction.")
-#
- ),
-#
-# 6.2.5.3. ==> Test du hessien
-#
- T_HESSIEN = SIMP(statut="f",typ="TXM",defaut="NON",into=("OUI","NON"),
- fr="Test du hessien.",
- ang="Hessian test."),
-#
-# 6.2.6. ==> Les correlations entre les variables
-#
- MATRICE = SIMP(statut="f",typ="R",max="**",
- fr="Matrice de corrélation entre les variables.",
- ang="Correlation matrix."),
+POST_MAIL_XFEM=OPER(nom="POST_MAIL_XFEM",op= 187,sd_prod=maillage_sdaster,
+ reentrant='n',UIinfo={"groupes":("Maillage",)},
+ fr="Crée un maillage se conformant à la fissure pour le post-traitement des éléments XFEM",
+ MODELE = SIMP(statut='o',typ=modele_sdaster),
+ TITRE = SIMP(statut='f',typ='TXM',max='**'),
+);
+#& MODIF COMMANDE DATE 13/03/2006 AUTEUR CIBHHLV 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.
#
-### en attente de résolution de AL 2004-006 (2/2) ),
+# 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 PARTIC
#
-#====
-# 7. Definition des paramètres
-#====
+# 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 JMBHH01 J.M.PROIX
+POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
+ fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
+ reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","DETAILS") ),
+ INFO =SIMP(statut='f',typ='I',into=(1,2) ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ TYPE_RESU_MECA =SIMP(statut='o',typ='TXM',into=("EVOLUTION","UNITAIRE","TUYAUTERIE") ),
+
+# ======================================================================
+ b_evolution =BLOC(condition="(TYPE_RESU_MECA == 'EVOLUTION')",
+
+ OPTION =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
+ into=("PM_PB","SN","FATIGUE_ZH210") ),
+ MATER =SIMP(statut='o',typ=mater_sdaster ),
+
+ TRANSITOIRE =FACT(statut='o',max='**',fr="transitoire à dépouiller",
+ regles=(EXCLUS('TOUT_ORDRE','INST','LIST_INST'),),
+ NB_OCCUR =SIMP(statut='f',typ='I',defaut= 1,
+ fr="nombre d occurences réelles de ce transitoire" ),
+ TABL_RESU_MECA =SIMP(statut='o',typ=table_sdaster,
+ fr="relevé des contraintes sur le chemin"),
+ TABL_SIGM_THER =SIMP(statut='f',typ=table_sdaster,
+ fr="résultat sous chargement thermique seul" ),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster ),
+ b_inst =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
+ ),
+ ),
+ ),
+
+# ======================================================================
+ b_unitaire =BLOC(condition="(TYPE_RESU_MECA == 'UNITAIRE')",
+
+ OPTION =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
+ into=("PM_PB","SN","FATIGUE") ),
+ MATER =SIMP(statut='o',typ=mater_sdaster ),
+ TYPE_KE =SIMP(statut='f',typ='TXM',defaut="KE_MECA",into=("KE_MECA","KE_MIXTE"),
+ fr="Ke meca seul ou partition mecanique + thermique" ),
+ CHAR_MECA =FACT(statut='o',max='**',fr="Chargements mécaniques",
+ regles=(UN_PARMI('MX','MX_TUBU'),),
+ NUME_CHAR =SIMP(statut='o',typ='I',fr="numéro du chargement" ),
+ NOM_CHAR =SIMP(statut='f',typ='TXM',fr="nom du chargement" ),
+ TYPE_CHAR =SIMP(statut='f',typ='TXM',fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
+ MX =SIMP(statut='f',typ='R',fr="moment suivant x", ),
+ MX_TUBU =SIMP(statut='f',typ='R',fr="moment suivant x, tubulure", ),
+ b_1_tenseur =BLOC( condition = "MX != None",
+ FX =SIMP(statut='f',typ='R',fr="effort suivant x", ),
+ FY =SIMP(statut='f',typ='R',fr="effort suivant y", ),
+ FZ =SIMP(statut='f',typ='R',fr="effort suivant z", ),
+ MY =SIMP(statut='o',typ='R',fr="moment suivant y", ),
+ MZ =SIMP(statut='o',typ='R',fr="moment suivant z", ),
+ ),
+ b_2_tenseurs =BLOC( condition = "MX_TUBU != None",
+ FX_TUBU =SIMP(statut='f',typ='R',fr="effort suivant x, tubulure", ),
+ FY_TUBU =SIMP(statut='f',typ='R',fr="effort suivant y, tubulure", ),
+ FZ_TUBU =SIMP(statut='f',typ='R',fr="effort suivant z, tubulure", ),
+ MY_TUBU =SIMP(statut='o',typ='R',fr="moment suivant y, tubulure", ),
+ MZ_TUBU =SIMP(statut='o',typ='R',fr="moment suivant z, tubulure", ),
+ FX_CORP =SIMP(statut='f',typ='R',fr="effort suivant x, corps du piquage", ),
+ FY_CORP =SIMP(statut='f',typ='R',fr="effort suivant y, corps du piquage", ),
+ FZ_CORP =SIMP(statut='f',typ='R',fr="effort suivant z, corps du piquage", ),
+ MX_CORP =SIMP(statut='o',typ='R',fr="moment suivant x, corps du piquage", ),
+ MY_CORP =SIMP(statut='o',typ='R',fr="moment suivant y, corps du piquage", ),
+ MZ_CORP =SIMP(statut='o',typ='R',fr="moment suivant z, corps du piquage", ),
+ ),
+
+ ),
+ RESU_MECA_UNIT =FACT(statut='o',fr="resultats mécaniques unitaires",
+ regles=(UN_PARMI('TABL_MX','TABL_MX_TUBU'),),
+ TABL_MX =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire MX"),
+ TABL_MX_TUBU =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire MX_TUBU"),
+ b_1_tenseur =BLOC( condition = "TABL_MX != None",
+ TABL_FX =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire FX"),
+ TABL_FY =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire FY"),
+ TABL_FZ =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire FZ"),
+ TABL_MY =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire MY"),
+ TABL_MZ =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire MZ"),
+ ),
+ b_2_tenseurs =BLOC( condition = "TABL_MX_TUBU != None",
+ TABL_FX_TUBU =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire FX_TUBU"),
+ TABL_FY_TUBU =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire FY_TUBU"),
+ TABL_FZ_TUBU =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire FZ_TUBU"),
+ TABL_MY_TUBU =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire MY_TUBU"),
+ TABL_MZ_TUBU =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire MZ_TUBU"),
+ TABL_FX_CORP =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire FX_CORP"),
+ TABL_FY_CORP =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire FY_CORP"),
+ TABL_FZ_CORP =SIMP(statut='f',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire FZ_CORP"),
+ TABL_MX_CORP =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire MX_CORP"),
+ TABL_MY_CORP =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire MY_CORP"),
+ TABL_MZ_CORP =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire MZ_CORP"),
+ ),
+ TABL_PRES =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des contraintes pour chargement unitaire de pression"),
+ ),
+
+ RESU_THER =FACT(statut='f',max='**',fr="resultats thermiques",
+ NUME_RESU_THER =SIMP(statut='o',typ='I',fr="numéro de la table de résultat thermique" ),
+ TABL_RESU_THER =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des contraintes sous chargement thermique seul" ),
+ ),
+ SITUATION =FACT(statut='o',max='**',fr="Situation",ang="situation_ang",
+ NB_OCCUR =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
+ NB_CYCL_SEISME =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
+ NUME_SITU =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
+ NOM_SITU =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
+ COMBINABLE =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
+ NUME_GROUPE =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
+ NUME_PASSAGE =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
+ NUME_RESU_THER =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
+ CHAR_ETAT_A =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
+ CHAR_ETAT_B =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
+ PRES_A =SIMP(statut='o',typ='R',fr="pression etat A"),
+ PRES_B =SIMP(statut='o',typ='R',fr="pression etat B"),
+ TEMP_REF_A =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
+ TEMP_REF_B =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
+ ),
+ ),
+# ======================================================================
+ b_tuyauterie =BLOC(condition="(TYPE_RESU_MECA == 'TUYAUTERIE')",
+
+ OPTION =SIMP(statut='o',typ='TXM',into=("FATIGUE",) ),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
+ TYPE_KE =SIMP(statut='f',typ='TXM',defaut="KE_MECA",into=("KE_MECA","KE_MIXTE"),
+ fr="Ke meca seul ou partition mecanique + thermique" ),
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CARA_ELEM =SIMP(statut='o',typ=cara_elem),
+ ZONE_ANALYSE =FACT(statut='o',fr="liste des mailles ou des noeuds analysés",
+ regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ 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='**'),
+ ),
+ RESU_MECA =FACT(statut='o',max='**',fr="Chargements mécaniques",
+ regles=(UN_PARMI('CHAM_GD','RESULTAT'),),
+ NUME_CHAR =SIMP(statut='o',typ='I',fr="numéro du chargement" ),
+ NOM_CHAR =SIMP(statut='f',typ='TXM',fr="nom du chargement" ),
+ TYPE_CHAR =SIMP(statut='f',typ='TXM',fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
+ CHAM_GD =SIMP(statut='f',typ=cham_gd_sdaster),
+ RESULTAT =SIMP(statut='f',typ=resultat_sdaster),
+ b_extrac =BLOC(condition="RESULTAT != None",
+ fr="extraction d un champ de grandeur",
+ regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','NOEUD_CMP'),),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',into=("EFGE_ELNO_DEPL","SIEF_ELNO_ELGA"),),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',),
+ INST =SIMP(statut='f',typ='R',),
+ NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+ b_acce_reel =BLOC(condition="(INST != None)",
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU"), ),
+ ),
+ ),
+ ),
+ INDI_SIGM =FACT(statut='o',max='**',fr="indices de contraintes",
+ regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ C1 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes C1 du RCCM"),
+ K1 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes K1 du RCCM"),
+ C2 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes C2 du RCCM"),
+ K2 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes K2 du RCCM"),
+ C3 =SIMP(statut='f',typ='R',defaut=0.5,fr="indice de contraintes C3 du RCCM"),
+ K3 =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes K3 du RCCM"),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),),
+ GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
+ fr="groupe(s) de mailles ou sont affectés les indices de contraintes"),
+ MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**',
+ fr="liste des mailles ou sont affectés les indices de contraintes"),
+ b_grma =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ ),
+ TYPE_ELEM_STANDARD =SIMP(statut='f',typ='TXM',into=("DRO","COU","TRN","TEE"),
+ fr="type d'élément de tuyauterie ou sont affectés les indices de contraintes"),
+ ),
+ RESU_THER =FACT(statut='f',max='**',fr="resultats thermiques",
+ regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
+ NUME_RESU_THER =SIMP(statut='o',typ='I',fr="numéro de la table de résultat thermique" ),
+ TABL_RESU_THER =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des températures sur la section"),
+ TABL_MOYE_THER =SIMP(statut='o',typ=table_sdaster,
+ fr="table relevé des moyennes sur la section"),
+ 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='**'),
+ b_grma =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ ),
+ ),
+ SITUATION =FACT(statut='o',max='**',fr="Situation",ang="situation_ang",
+ NB_OCCUR =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
+ NB_CYCL_SEISME =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
+ NUME_SITU =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
+ NOM_SITU =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
+ COMBINABLE =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
+ NUME_GROUPE =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
+ NUME_PASSAGE =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
+ NUME_RESU_THER =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
+ CHAR_ETAT_A =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
+ CHAR_ETAT_B =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
+ PRES_A =SIMP(statut='o',typ='R',fr="pression etat A"),
+ PRES_B =SIMP(statut='o',typ='R',fr="pression etat B"),
+ TEMP_REF_A =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
+ TEMP_REF_B =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
+ ),
+ ),
+) ;
+#& MODIF COMMANDE DATE 16/05/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.
#
- VARIABLE = FACT(statut="o",min=1,max="**",
+# 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.
#
-# 7.1. ==> Nom de la variable
+# 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
+POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=table_sdaster,reentrant='f',
+ fr="Extraire des valeurs de composantes de champs de grandeurs pour y effectuer des calculs (moyenne,invariants,..)"
+ +" ou pour les exprimer dans d'autres repères",
+ UIinfo={"groupes":("Post traitements",)},
+
+ ACTION =FACT(statut='o',max='**',
+ regles=(UN_PARMI('RESULTAT','CHAM_GD'),),
+
+ OPERATION =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE","EXTREMA"),validators=NoRepeat(),max=2),
+ INTITULE =SIMP(statut='o',typ='TXM'),
+
+ CHAM_GD =SIMP(statut='f',typ=(cham_no_sdaster,
+ cham_elem,),),
+ RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
+ mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
+ mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
+
+ b_sensibilite =BLOC(condition="RESULTAT != None",
+ fr="Définition des paramètres de sensibilité",
+ ang="Definition of sensitivity parameters",
+ regles=(CONCEPT_SENSIBLE("SEPARE"), REUSE_SENSIBLE(),
+ DERIVABLE('RESULTAT'),),
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
+ fr="Liste des paramètres de sensibilité.",
+ ang="List of sensitivity parameters"),
+ ),
+
+ b_extrac =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
+ 'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
+ NOM_CHAM =SIMP(statut='o',typ='TXM' ),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
+ NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_MODE =SIMP(statut='f',typ=listis_sdaster),
+ NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+ NOM_CAS =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+ FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ ),
+
+ b_extrema =BLOC(condition="OPERATION == 'EXTREMA'",
+ fr="recherche de MIN MAX",
+ regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
+ 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='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ ),
+
+ b_autre =BLOC(condition="OPERATION != 'EXTREMA'",
+ fr="extraction et moyenne",
+ regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
+ EXCLUS('CHEMIN','GROUP_NO'),
+ EXCLUS('CHEMIN','NOEUD'),
+ PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
+ UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
+ PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
+ ENSEMBLE('MOMENT','POINT'),
+ PRESENT_PRESENT('MOMENT','RESULTANTE'),
+ PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
+ EXCLUS('TRAC_DIR','TRAC_NOR'),
+ PRESENT_PRESENT('ORIGINE','AXE_Z'),),
+
+ CHEMIN =SIMP(statut='f',typ=(courbe_sdaster,surface_sdaster) ),
+ 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='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+
+ TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ INVARIANT =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ RESULTANTE =SIMP(statut='f',typ='TXM',max='**'),
+
+ MOMENT =SIMP(statut='f',typ='TXM',max='**'),
+ POINT =SIMP(statut='f',typ='R',max='**'),
+
+ REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
+ into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
+ ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
+ ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
+ AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
+
+ TRAC_NOR =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ TRAC_DIR =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ DIRECTION =SIMP(statut='f',typ='R',max='**'),
+
+ VECT_Y =SIMP(statut='f',typ='R',max='**'),
+ MOYE_NOEUD =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ ),
+
+ FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
+
+ ),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+) ;
+#& MODIF COMMANDE DATE 03/01/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.
#
- NOM = SIMP(statut="o",typ="TXM",
- fr="Nom de la variable, identique au nom de concept PARA_SENSI.",
- ang="Name of the variable, identical to the name of the PARA_SENSI conceipt."),
+# 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.
#
-# 7.2. ==> Loi de distribution
+# 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.
+# ======================================================================
+POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=table_sdaster,reentrant='f',
+ UIinfo={"groupes":("Post traitements",)},
+ fr="Calcul des volumes d'usure et des profondeurs d'usure d'après la puissance d'usure",
+ regles=(UN_PARMI('TUBE_NEUF','RESU_GENE','PUIS_USURE'),
+ PRESENT_PRESENT('RESU_GENE','NOEUD','LOI_USURE'),
+ PRESENT_PRESENT('PUIS_USURE','LOI_USURE'),),
+ TUBE_NEUF =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ ETAT_INIT =FACT(statut='f',
+ TABL_USURE =SIMP(statut='f',typ=table_sdaster),
+ INST_INIT =SIMP(statut='f',typ='R'),
+ ),
+ RESU_GENE =SIMP(statut='f',typ=tran_gene),
+ NOEUD =SIMP(statut='f',typ=no,),
+ INST_INIT =SIMP(statut='f',typ='R',defaut=-1.0E+0),
+ INST_FIN =SIMP(statut='f',typ='R'),
+ NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
+ PUIS_USURE =SIMP(statut='f',typ='R'),
+ LOI_USURE =SIMP(statut='f',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
+ b_archard =BLOC(condition = "LOI_USURE == 'ARCHARD'",
+ regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
+ EXCLUS('MATER_USURE','OBSTACLE'),
+ EXCLUS('MOBILE','USURE_OBST'),),
+ MOBILE =FACT(statut='f',
+ COEF_USURE =SIMP(statut='o',typ='R'),
+ ),
+ OBSTACLE =FACT(statut='f',
+ COEF_USURE =SIMP(statut='o',typ='R'),
+ ),
+ SECTEUR =FACT(statut='f',max='**',
+ CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
+ "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
+ "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
+ COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
+ COEF_USUR_OBST =SIMP(statut='f',typ='R'),
+ ANGL_INIT =SIMP(statut='f',typ='R'),
+ ANGL_FIN =SIMP(statut='f',typ='R'),
+ ),
+ MATER_USURE =SIMP(statut='f',typ='TXM'),
+ USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ ),
+ b_kwu_epri =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
+ regles=(UN_PARMI('MOBILE','MATER_USURE'),
+ EXCLUS('MATER_USURE','OBSTACLE'),
+ EXCLUS('MOBILE','USURE_OBST'),),
+ MOBILE =FACT(statut='f',
+ COEF_FNOR =SIMP(statut='f',typ='R'),
+ COEF_VTAN =SIMP(statut='f',typ='R'),
+ COEF_USURE =SIMP(statut='f',typ='R'),
+ COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
+ COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
+ ),
+ OBSTACLE =FACT(statut='f',
+ COEF_FNOR =SIMP(statut='f',typ='R' ),
+ COEF_VTAN =SIMP(statut='f',typ='R' ),
+ COEF_USURE =SIMP(statut='o',typ='R'),
+ COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
+ COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
+ ),
+ MATER_USURE =SIMP(statut='f',typ='TXM'),
+ USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ FNOR_MAXI =SIMP(statut='f',typ='R' ),
+ VTAN_MAXI =SIMP(statut='f',typ='R' ),
+ ),
+ b_edf_mz =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
+ regles=(UN_PARMI('MOBILE','MATER_USURE'),
+ EXCLUS('MATER_USURE','OBSTACLE'),
+ EXCLUS('MOBILE','USURE_OBST'),),
+ MOBILE =FACT(statut='f',
+ COEF_USURE =SIMP(statut='f',typ='R',defaut=1.0E-13),
+ COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
+ COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
+ COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
+ ),
+ OBSTACLE =FACT(statut='f',
+ COEF_USURE =SIMP(statut='o',typ='R',defaut=1.0E-13),
+ COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
+ COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
+ COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
+ ),
+ MATER_USURE =SIMP(statut='f',typ='TXM'),
+ USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ ),
+ b_tube_neuf =BLOC(condition = "TUBE_NEUF == 'OUI'",
+ TABL_USURE =SIMP(statut='o',typ=table_sdaster),
+ INST =SIMP(statut='f',typ='R'),
+ ),
+ CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
+ "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
+ "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
+ RAYON_MOBILE =SIMP(statut='f',typ='R'),
+ RAYON_OBST =SIMP(statut='f',typ='R'),
+ LARGEUR_OBST =SIMP(statut='f',typ='R'),
+ ANGL_INCLI =SIMP(statut='f',typ='R'),
+ ANGL_ISTHME =SIMP(statut='f',typ='R'),
+ ANGL_IMPACT =SIMP(statut='f',typ='R'),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ COEF_INST =SIMP(statut='f',typ='R',defaut=1.0E+0),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+) ;
+#& 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.
#
- LOI = SIMP(statut="o",typ="TXM",
- into=("UNIFORME","NORMALE","LOGNORMALE","NORMALE_TRONQUEE"),
- fr="Choix de la loi",
- ang="Law."),
+# 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.
#
-# 7.2.1. ==> Loi normale
+# 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.
+# ======================================================================
+POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ fr="Déterminer l'état adapté ou accommodé par la méthode de Zarka-Casier d'une structure sous"
+ +" chargement cyclique élastique affine ou non",
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater),
+ EXCIT =FACT(statut='o',max='**',
+ CHARGE =SIMP(statut='o',typ=char_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",)),
+ ),
+ EVOL_ELAS =SIMP(statut='o',typ=evol_elas),
+ b_evol_elas =BLOC(condition="EVOL_ELAS != None",
+ regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ ),
+ TEMP_ZAC =SIMP(statut='f',typ='R',defaut=0.0E+0),
+ EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
+ b_evol_noli =BLOC(condition="EVOL_NOLI != None",
+ INST_MAX =SIMP(statut='o',typ='R'),
+ ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+
+) ;
+#& MODIF COMMANDE DATE 16/01/2006 AUTEUR D6BHHJP J.P.LEFEBVRE
+# 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.
#
- b_normale=BLOC(condition="LOI=='NORMALE'",
+# 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.
#
- VALE_MOY = SIMP(statut="o",typ="R",max=1,
- fr="Valeur moyenne.",
- ang="Mean value."),
+# 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.
+# ======================================================================
+POURSUITE=MACRO(nom="POURSUITE",op=ops.build_poursuite,repetable='n',
+ fr="Poursuite d'une étude à partir de la sauvegarde au format JEVEUX ou HDF de sa base globale",
+ sd_prod = ops.POURSUITE,
+ UIinfo={"groupes":("Gestion du travail",)},
+ op_init = ops.POURSUITE_context,fichier_ini = 1,
+ FORMAT_HDF =SIMP(fr="sauvegarde de la base GLOBALE au format HDF",statut='f',
+ typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
+ into=("OUI","NON"),defaut="OUI"),
+ IMPR_MACRO =SIMP(fr="affichage des sous-commandes produites par les macros dans le fichier mess",
+ statut='f',typ='TXM',into=("OUI","NON"),defaut="NON"),
+ BASE =FACT(fr="définition des paramètres associés aux bases JEVEUX",
+ statut='f',min=1,max=2,
+ FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM'),
+ TITRE =SIMP(statut='f',typ='TXM'),
+ CAS =SIMP(statut='f',typ='TXM'),
+ NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
+ LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
+ LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
+ ),
+ IMPRESSION =FACT(statut='f',min=1,max=3,
+ FICHIER =SIMP(statut='o',typ='TXM'),
+ UNITE =SIMP(statut='o',typ='I'),
+ ),
+ CATALOGUE =FACT(statut='f',min=1,max=10,
+ FICHIER =SIMP(statut='o',typ='TXM'),
+ TITRE =SIMP(statut='f',typ='TXM'),
+ UNITE =SIMP(statut='f',typ='I'),
+ ),
+ ERREUR =FACT(fr="comportement en cas d'erreur",statut='f',min=1,max=1,
+ ERREUR_F =SIMP(statut='f',typ='TXM',into=('ABORT','EXCEPTION'),defaut='ABORT'),
+ ),
+ DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
+ statut='f',min=1,max=1,
+ JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
+ statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
+ JEVEUX =SIMP(fr="force les déchargement sur disque",
+ statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
+ ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
+ statut='f',typ='TXM',into=('TEST',)),
+ ),
+ MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
+ GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
+ TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
+ TAILLE =SIMP(statut='f',typ='I'),
+ TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
+ PARTITION =SIMP(statut='f',typ='R' ),
+ ),
+ RESERVE_CPU =FACT(fr="reserve de temps pour terminer une execution",statut='f',max=1,
+ regles=(EXCLUS('VALE','POURCENTAGE'),),
+ VALE =SIMP(statut='f',typ='I',val_min=0),
+ POURCENTAGE =SIMP(statut='f',typ='R',val_min=0.,val_max=1.0),
+# valeur en pourcentage du temps maximum bornée à 180 secondes
+ BORNE =SIMP(statut='f',typ='I',val_min=0,defaut=180)
+ ),
+ CODE =FACT("définition d un nom pour l'esemble d'une étude",
+ statut='f',min=1,max=1,
+ NOM =SIMP(statut='o',typ='TXM'),
+ UNITE =SIMP(statut='f',typ='I',defaut=15),
+ ),
+) ;
+#& 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.
#
- ECART_TYPE = SIMP(statut="o",typ="R",max=1,
- fr="Ecart type.",
- ang="Standard deviation."),
+# 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.
+# ======================================================================
+PRE_GIBI=PROC(nom="PRE_GIBI",op=49,
+ UIinfo={"groupes":("Gestion du travail",)},
+ fr="Conversion d'un fichier de maillage GIBI au format Aster",
+ UNITE_GIBI =SIMP(statut='f',typ='I',defaut=19),
+ UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
+) ;
+#& 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.
#
-# 7.2.2. ==> Loi lognormale
+# 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.
#
- b_lognormale=BLOC(condition="LOI=='LOGNORMALE'",
+# 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.
+# ======================================================================
+
+PRE_GMSH=PROC(nom="PRE_GMSH",op=47,
+ UIinfo={"groupes":("Gestion du travail",)},
+ fr="Conversion d'un fichier de maillage GMSH au format Aster",
+ UNITE_GMSH =SIMP(statut='f',typ='I',defaut=19),
+ UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
+) ;
+#& 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.
#
- VALE_MIN = SIMP(statut="o",typ="R",max=1,
- fr="Valeur minimale.",
- ang="Minimal value."),
+# 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.
#
- VALE_MOY = SIMP(statut="f",typ="R",max=1,
- fr="Valeur moyenne dans l'espace de la loi normale.",
- ang="Mean value in the space of the normal law."),
+# 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.
+# ======================================================================
+PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,
+ UIinfo={"groupes":("Gestion du travail",)},
+ fr="Conversion d'un fichier universel IDEAS-SUPERTAB au format Aster",
+ UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
+ UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
+ CREA_GROUP_COUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+) ;
+#& 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.
#
- ECART_TYPE = SIMP(statut="f",typ="R",max=1,
- fr="Ecart type dans l'espace de la loi normale.",
- ang="Standard deviation in the space of the normal law."),
+# 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.
#
- VALE_MOY_PHY = SIMP(statut="f",typ="R",max=1,
- fr="Valeur moyenne dans l'espace physique.",
- ang="Mean value in the physical space."),
+# 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.
+# ======================================================================
+
+PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=cham_no_sdaster,
+ fr="Effectuer le produit d'une matrice par un vecteur",
+ reentrant='n',
+ UIinfo={"groupes":("Résultats et champs",)},
+ MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
+ CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+) ;
+#& 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
+# 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.
#
- ECART_TYPE_PHY = SIMP(statut="f",typ="R",max=1,
- fr="Ecart type dans l'espace physique.",
- ang="Standard deviation in the physical space."),
+# 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.
#
- regles=(AU_MOINS_UN("VALE_MOY" ,"VALE_MOY_PHY"),
- AU_MOINS_UN("ECART_TYPE","ECART_TYPE_PHY"),
- EXCLUS ("VALE_MOY" ,"VALE_MOY_PHY"),
- EXCLUS ("VALE_MOY" ,"ECART_TYPE_PHY"),
- EXCLUS ("ECART_TYPE","VALE_MOY_PHY"),
- EXCLUS ("ECART_TYPE","ECART_TYPE_PHY")),
+# 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 proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
+ if AsType(RESULTAT) == evol_ther : return evol_ther
+ if AsType(RESULTAT) == evol_elas : return evol_elas
+ if AsType(RESULTAT) == evol_noli : return evol_noli
+ if AsType(RESULTAT) == evol_char : return evol_char
+ if AsType(RESULTAT) == dyna_trans : return dyna_trans
+ if AsType(RESULTAT) == mode_meca : return mode_meca
+ if AsType(RESULTAT) == mode_stat_depl : return mode_stat_depl
+ if AsType(RESULTAT) == base_modale : return base_modale
+ 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",) ),
+ 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),
+ ),
+ 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'),
+ EXCLUS('TOUT_CHAM','NOM_CHAM',),
+ CONCEPT_SENSIBLE('SEPARE'),
+ REUSE_SENSIBLE(),
+ DERIVABLE('RESULTAT'),),
+ RESULTAT =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,dyna_trans,evol_char,
+ mode_meca,mode_stat_depl,base_modale) ),
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
+ fr="Liste des paramètres de sensibilité.",
+ ang="List of sensitivity parameters",),
+ MODELE_1 =SIMP(statut='o',typ=modele_sdaster),
+ MODELE_2 =SIMP(statut='o',typ=modele_sdaster),
+
+ TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+
+# POUR IMPOSER LA NUMEROTATION DES DDLS :
+# ------------------------------------------------------------------
+ NUME_DDL =SIMP(statut='f',typ=(nume_ddl_sdaster) ),
+
+
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
+ LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster),
+ NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
+ NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
+
+ 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."),
+ ALARME =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+
+ TYPE_CHAM =SIMP(statut='f',typ='TXM',into=("NOEU",),
+ 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="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."),
+
+ ),
+
+ 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'),),
+ TOUT_1 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ GROUP_MA_1 =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ MAILLE_1 =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_NO_1 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD_1 =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ TOUT_2 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ GROUP_MA_2 =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ MAILLE_2 =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_NO_2 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD_2 =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ CAS_FIGURE =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",) ),
+ ),
+
+ 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
+# ======================================================================
+# 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.
#
-# 7.2.3. ==> Loi uniforme
+# 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.
#
- b_uniforme=BLOC(condition="LOI=='UNIFORME'",
+# 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 matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
+ if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_gene_r
+ if AsType(MATR_ASSE_GENE) == matr_asse_gene_r : return matr_asse_gene_r
+ if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_gene_c
+ if AsType(MATR_ASSE_GENE) == matr_asse_gene_c : return matr_asse_gene_c
+ raise AsException("type de concept resultat non prevu")
+
+PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op= 71,sd_prod=matr_asse_gene_prod,
+ fr="Projection d'une matrice assemblée sur une base (modale ou de RITZ)",
+ reentrant='n',
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
+ BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene,mode_stat ) ),
+ NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
+ MATR_ASSE =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
+ MATR_ASSE_GENE =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
+) ;
+
+#& 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.
#
- VALE_MIN = SIMP(statut="o",typ="R",max=1,
- fr="Valeur minimale.",
- ang="Minimal value."),
+# 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.
#
- VALE_MAX = SIMP(statut="o",typ="R",max=1,
- fr="Valeur maximale.",
- ang="Maximal value."),
+# 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 proj_mesu_modal_prod(MODELE_MESURE,**args):
+ vale=MODELE_MESURE['MESURE']
+ if AsType(vale) == dyna_trans : return tran_gene
+ if AsType(vale) == dyna_harmo : return harm_gene
+ if AsType(vale) == mode_meca : return mode_gene
+# if AsType(vale) == mode_meca_c : return mode_gene_c
+ if AsType(vale) == base_modale : return mode_gene
+ raise AsException("type de concept resultat non prevu")
+
+PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
+ sd_prod=proj_mesu_modal_prod,
+ reentrant='n',
+ UIinfo={"groupes":("Résultats et champs",)},
+ fr="Calcul des coordonnees généralisees de mesure experimentale relatives a une base de projection",
+
+ MODELE_CALCUL =FACT(statut='o',
+ MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
+ BASE =SIMP(statut='o',typ=(mode_meca,base_modale,) ),
+ ),
+ MODELE_MESURE =FACT(statut='o',
+ MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
+ MESURE =SIMP(statut='o',typ=(dyna_trans,dyna_harmo,base_modale,mode_meca,mode_meca_c,) ),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","SIEF_NOEU","EPSI_NOEU_DEPL",) ),
+ ),
+ CORR_MANU =FACT(statut='f',max='**',
+ regles=(PRESENT_PRESENT('NOEU_CALCUL','NOEU_MESURE'),),
+ NOEU_CALCUL =SIMP(statut='f',typ=no),
+ NOEU_MESURE =SIMP(statut='f',typ=no),
+ ),
+ RESOLUTION =FACT(statut='f',
+ METHODE =SIMP(statut='f',typ='TXM',defaut="LU",into=("LU","SVD",) ),
+ b_svd =BLOC(condition="METHODE=='SVD'",
+ EPS=SIMP(statut='f',typ='R',defaut=0. ),
+ ),
+ REGUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","NORM_MIN","TIK_RELA",) ),
+ b_regul =BLOC(condition="REGUL!='NON'",
+ regles=(PRESENT_ABSENT('COEF_PONDER','COEF_PONDER_F', ),),
+ COEF_PONDER =SIMP(statut='f',typ='R',defaut=0. ,max='**' ),
+ COEF_PONDER_F =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),max='**' ),
+ ),
+ ),
+
+ );
+#& 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.
#
-# 7.2.4. ==> Loi normale tronquée
+# 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.
+# ======================================================================
+PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=table_sdaster,reentrant='n',
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ fr="Projecter un ou plusieurs spectres de turbulence sur une (ou plusieurs) base(s) modale(s) ",
+ regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
+ ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
+ SPEC_TURB =SIMP(statut='o',typ=spectre_sdaster,validators=NoRepeat(),max='**' ),
+ BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu_sdaster ),
+ MODE_MECA =SIMP(statut='f',typ=mode_meca ),
+ CHAM_NO =SIMP(statut='f',typ=cham_no_sdaster),
+ FREQ_INIT =SIMP(statut='f',typ='R',val_min=0.E+0 ),
+ FREQ_FIN =SIMP(statut='f',typ='R',val_min=0.E+0 ),
+ NB_POIN =SIMP(statut='f',typ='I' ),
+ OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
+ GROUP_MA =SIMP(statut='f',typ=grma),
+# Quel est le type attendu derriere MODELE_INTERFACE
+ MODELE_INTERFACE=SIMP(statut='f',typ=modele_sdaster),
+ VECT_X =SIMP(statut='f',typ='R',min=3,max=3 ),
+ VECT_Y =SIMP(statut='f',typ='R',min=3,max=3 ),
+ ORIG_AXE =SIMP(statut='f',typ='R',min=3,max=3 ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+) ;
+#& 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.
#
- b_normale_tronquee=BLOC(condition="LOI=='NORMALE_TRONQUEE'",
+# 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.
#
- VALE_MOY = SIMP(statut="o",typ="R",max=1,
- fr="Valeur moyenne de la loi normale complète.",
- ang="Mean value for the entire normal law."),
+# 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.
+# ======================================================================
+
+PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op= 72,sd_prod=vect_asse_gene,
+ fr="Projection d'un vecteur assemblé sur une base (modale ou de RITZ)",
+ reentrant='n',
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
+ BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene,mode_stat ) ),
+ NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
+ TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
+ VECT_ASSE =SIMP(statut='f',typ=cham_no_sdaster),
+ VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene ),
+) ;
+#& MODIF COMMANDE DATE 09/05/2006 AUTEUR MASSIN P.MASSIN
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2006 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.
+# ======================================================================
+
+PROPA_XFEM=OPER(nom="PROPA_XFEM",op=10,sd_prod=fiss_xfem,reentrant='n',
+ UIinfo={"groupes":("Modélisation",)},
+ fr="Propagation de fissure avec X-FEM",
+
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+
+ TABLE =SIMP(statut='o',typ=table_sdaster),
+
+ LOI_PROPA =FACT(statut='o',max=01,
+ LOI =SIMP(statut='o',typ='TXM',into=("PARIS",),defaut="PARIS"),
+ b_paris =BLOC( condition = "LOI=='PARIS'",
+ C =SIMP(statut='o',typ='R',),
+ M =SIMP(statut='o',typ='R',),),
+ ),
+ GROUP_MA_ENRI =SIMP(statut='o',typ=grma,max=01),
+
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
+) ;
+#& MODIF COMMANDE DATE 03/01/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.
#
- ECART_TYPE = SIMP(statut="o",typ="R",max=1,
- fr="Ecart type de la loi normale complète.",
- ang="Standard deviation for the entire normal law."),
+# 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.
#
- VALE_MIN = SIMP(statut="o",typ="R",max=1,
- fr="Valeur minimale.",
- ang="Minimal value."),
+# 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.
+# ======================================================================
+RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=table_sdaster,
+ fr="Recaler les paramètres du modèle de WEIBULL sur des données expérimentales",reentrant='n',
+ UIinfo={"groupes":("Post traitements",)},
+ LIST_PARA =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=2,into=("SIGM_REFE","M",) ),
+ RESU =FACT(statut='o',max='**',
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
+ AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
+ EVOL_NOLI =SIMP(statut='o',typ=(evol_noli) ),
+ MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
+ CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
+ TEMPE =SIMP(statut='f',typ='R' ),
+ LIST_INST_RUPT =SIMP(statut='o',typ='R',validators=NoRepeat(),max='**' ),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
+ 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='**'),
+ COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.E0 ),
+ ),
+ OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
+ CORR_PLAST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ METHODE =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
+ INCO_GLOB_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
+ ) ;
+#& MODIF COMMANDE DATE 16/05/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.
#
- VALE_MAX = SIMP(statut="o",typ="R.",max=1,
- fr="Valeur maximale.",
- ang="Maximal value."),
+# 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 MCOURTOI M.COURTOIS
+def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
+ RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
+ TYPE_RESU=None,**args):
+ if AsType(RESULTAT) == dyna_harmo : return fonction_c
+ if AsType(RESU_GENE) == harm_gene : return fonction_c
+# On ne sait pas interpreter les deux conditions suivantes
+ if TABLE != None :
+ if TYPE_RESU != None :
+ if TYPE_RESU == "FONCTION_C" : return fonction_c
+ if TYPE_RESU == "FONCTION" : return fonction_sdaster
+ else:
+ return fonction_sdaster
+ if RESU_GENE != None : return fonction_sdaster
+ if BASE_ELAS_FLUI != None : return fonction_sdaster
+ if RESULTAT != None : return fonction_sdaster
+ if CHAM_GD != None : return fonction_sdaster
+ if OBSTACLE != None : return fonction_sdaster
+ raise AsException("type de concept resultat non prevu")
+
+RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
+ fr="Extraire sous forme d'une fonction, l'évolution d'une grandeur en fonction d'une autre",
+ reentrant='f',
+ UIinfo={"groupes":("Fonction",)},
+ regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
+
+ CHAM_GD =SIMP(statut='f',typ=(cham_no_sdaster,
+ cham_elem,),),
+ RESULTAT =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
+ RESU_GENE =SIMP(statut='f',typ=(tran_gene, mode_gene, harm_gene)),
+ TABLE =SIMP(statut='f',typ=table_sdaster),
+ BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu_sdaster),
+ OBSTACLE =SIMP(statut='f',typ=obstacle_sdaster),
+
+# ======= SENSIBILITE =================================================
+ b_sensibilite =BLOC(condition="RESULTAT != None",
+ fr="Définition des paramètres de sensibilité",
+ ang="Definition of sensitivity parameters",
+ regles=(CONCEPT_SENSIBLE('SEPARE'), REUSE_SENSIBLE(),
+ DERIVABLE('RESULTAT'),),
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
+ fr="Liste des paramètres de sensibilité.",
+ ang="List of sensitivity parameters"),),
+# ======= ACCES A LA SD RESULTAT =================================================
+ b_acces = BLOC ( condition = "(RESULTAT != None) or (RESU_GENE != None)",
+ fr="acces a une SD résultat",
+# on ne peut pas mettre de regles, le défaut TOUT_ORDRE est pris en compte dans le fortran
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster ),
+ TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster ),
+ FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster ),
+ NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ INTERP_NUME =SIMP(statut='f',typ='TXM',into=("NON","LIN") ),
+ ),
+ ),
+# ======= BASE_ELAS_FLUI =================================================
+ b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
+ fr="Récupération de la fonction à partir d un concept melasflu",
+ regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ NUME_MODE =SIMP(statut='o',typ='I' ),
+ PARA_X =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
+ PARA_Y =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
+ ),
+
+# ======= TABLE =================================================
+ b_table = BLOC ( condition = "TABLE != None",
+ fr="Récupération de la fonction à partir d un concept table",
+ regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
+ PRESENT_PRESENT('PARA_X','PARA_Y'),),
+ PARA_X =SIMP(statut='f',typ='TXM',
+ fr="1ère colonne de la table qui définit la fonction à récupérer", ),
+ PARA_Y =SIMP(statut='f',typ='TXM',
+ fr="2ème colonne de la table qui définit la fonction à récupérer", ),
+ NOM_PARA_TABL =SIMP(statut='f',typ='TXM',into=("FONCTION",),
+ fr="Nom du paramètre de la table à qui est associé la fonction" ),
+ b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
+ TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
+ ),
+
+ FILTRE =FACT(statut='f',max='**',
+ NOM_PARA =SIMP(statut='o',typ='TXM' ),
+ CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
+ into=("EQ","LT","GT","NE","LE","GE","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' ),
+ VALE_I =SIMP(statut='f',typ='I' ),
+ VALE_C =SIMP(statut='f',typ='C' ),
+ VALE_K =SIMP(statut='f',typ='TXM' ),),
+
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ ),
+ ),
+
+# ======= RESULTAT =================================================
+ b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
+ regles=(UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
+ NOM_PARA_RESU =SIMP(statut='f',typ='TXM' ),
+ b_cham = BLOC ( condition = "NOM_CHAM != None",
+ regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD'),
+ PRESENT_ABSENT('POINT','NOEUD','GROUP_NO'),
+ PRESENT_ABSENT('SOUS_POINT','NOEUD','GROUP_NO'),
+ EXCLUS('GROUP_MA','MAILLE'),
+ EXCLUS('GROUP_NO','NOEUD'),),
+ NOM_CMP =SIMP(statut='o',typ='TXM' ),
+ MAILLE =SIMP(statut='f',typ=ma),
+ GROUP_MA =SIMP(statut='f',typ=grma),
+ NOEUD =SIMP(statut='f',typ=no),
+ GROUP_NO =SIMP(statut='f',typ=grno),
+ POINT =SIMP(statut='f',typ='I' ),
+ SOUS_POINT =SIMP(statut='f',typ='I' ),
+ ),
+ ),
+
+# ======= RESU_GENE =================================================
+ b_tran_gene = BLOC ( condition = "AsType(RESU_GENE) == tran_gene",
+ fr="Récupération d'une fonction à partir d un concept TRAN_GENE",
+ regles=(UN_PARMI('NOM_CHAM','NOEUD_CHOC','GROUP_NO_CHOC'),),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
+ NOEUD_CHOC =SIMP(statut='f',typ=no),
+ GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
+ b_cham = BLOC ( condition = "(NOM_CHAM=='DEPL') or (NOM_CHAM=='VITE') or (NOM_CHAM=='ACCE')",
+ regles=(UN_PARMI('GROUP_NO','NOEUD'),
+ EXCLUS('MULT_APPUI','CORR_STAT'),),
+ NOM_CMP =SIMP(statut='o',typ='TXM' ),
+ NOEUD =SIMP(statut='f',typ=no),
+ GROUP_NO =SIMP(statut='f',typ=grno),
+ MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ ACCE_MONO_APPUI =SIMP(statut='f',typ=(fonction_sdaster,formule)),
+ ),
+ b_choc = BLOC ( condition = "(NOEUD_CHOC != None) or (GROUP_NO_CHOC != None)",
+ regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),),
+ PARA_X =SIMP(statut='o',typ='TXM',
+ into=("INST","FN","FT1","FT2","VN","VT1","VT2","DXLOC","DYLOC","DZLOC") ),
+ PARA_Y =SIMP(statut='o',typ='TXM',
+ into=("INST","FN","FT1","FT2","VN","VT1","VT2","DXLOC","DYLOC","DZLOC") ),
+ LIST_PARA =SIMP(statut='f',typ=listr8_sdaster ),
+ INTITULE =SIMP(statut='f',typ='TXM' ),
+ SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
+ ),
+ ),
+ b_harm_gene = BLOC ( condition = "AsType(RESU_GENE)==harm_gene",
+ fr="Récupération d'une fonction à partir d un concept HARM_GENE",
+ regles=(UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
+ NOM_PARA_RESU =SIMP(statut='f',typ='TXM' ),
+ b_cham = BLOC ( condition = "NOM_CHAM != None",
+ regles=(UN_PARMI('NUME_CMP_GENE','NOM_CMP'),),
+ NUME_CMP_GENE =SIMP(statut='f',typ='I' ),
+ NOM_CMP =SIMP(statut='f',typ='TXM' ),
+ b_cmp = BLOC ( condition = "NOM_CMP != None",
+ regles=(UN_PARMI('NOEUD','GROUP_NO'),),
+ NOEUD =SIMP(statut='f',typ=no),
+ GROUP_NO =SIMP(statut='f',typ=grno),
+ ),
+ ),
+ ),
+ b_mode_gene = BLOC ( condition = "AsType(RESU_GENE)==mode_gene",
+ fr="Récupération d'une fonction à partir d un concept MODE_GENE",
+ regles=(UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
+ NOM_PARA_RESU =SIMP(statut='f',typ='TXM' ),
+ b_cham = BLOC ( condition = "NOM_CHAM != None",
+ regles=(UN_PARMI('NUME_CMP_GENE','NOM_CMP'),),
+ NUME_CMP_GENE =SIMP(statut='f',typ='I' ),
+ NOM_CMP =SIMP(statut='f',typ='TXM' ),
+ b_cmp = BLOC ( condition = "NOM_CMP != None",
+ regles=(UN_PARMI('NOEUD','GROUP_NO'),
+ UN_PARMI('SQUELETTE','SOUS_STRUC'),),
+ NOEUD =SIMP(statut='f',typ=no),
+ GROUP_NO =SIMP(statut='f',typ=grno),
+ SQUELETTE =SIMP(statut='f',typ=squelette ),
+ SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
+ ),
+ ),
+ ),
+
+# ======= CHAM_GD =================================================
+ b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
+ regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD'),
+ PRESENT_ABSENT('POINT','NOEUD','GROUP_NO'),
+ PRESENT_ABSENT('SOUS_POINT','NOEUD','GROUP_NO'),
+ EXCLUS('GROUP_MA','MAILLE'),
+ EXCLUS('GROUP_NO','NOEUD'),),
+ NOM_CMP =SIMP(statut='o',typ='TXM' ),
+ MAILLE =SIMP(statut='f',typ=ma),
+ GROUP_MA =SIMP(statut='f',typ=grma),
+ NOEUD =SIMP(statut='f',typ=no),
+ GROUP_NO =SIMP(statut='f',typ=grno),
+ POINT =SIMP(statut='f',typ='I' ),
+ SOUS_POINT =SIMP(statut='f',typ='I' ),
+ ),
+
+# ======= OBSTACLE =================================================
+ b_obstacle = BLOC ( condition = "OBSTACLE != None",
+ fr="Choix du repère",
+ REPERE =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
+ ),
+
+# ======= SURCHARGE DES ATTRIBUTS =================================================
+ NOM_PARA =SIMP(statut='f',typ='TXM', into=C_PARA_FONCTION() ),
+ NOM_RESU =SIMP(statut='f',typ='TXM' ),
+ INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
+ PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
+ PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
+
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,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.
#
-# 7.3. ==> Paramètres de calcul
-# 7.3.1. ==> Soit on cherche le point de conception, soit on le connait deja
+# 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.
#
- regles=(EXCLUS("POINT_INI","POINT_CONCEPT"),
- EXCLUS("POINT_REF","POINT_CONCEPT"),),
+# 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.
+# ======================================================================
+RECU_GENE=OPER(nom="RECU_GENE",op= 76,sd_prod=vect_asse_gene,reentrant='n',
+ UIinfo={"groupes":("Résultats et champs",)},
+ fr="Extraire d'un champ de grandeur (déplacements, vitesses ou accélérations) à partir de résultats"
+ +" en coordonnées généralisées",
+ RESU_GENE =SIMP(statut='o',typ=tran_gene ),
+ INST =SIMP(statut='o',typ='R' ),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
+ INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+) ;
+#& 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.
#
-# 7.3.2. ==> Quand on cherche le point de conception, on peut préciser le départ de l'algorithme.
-# Si on ne le fait pas, le programme prendra la valeur moyenne.
+# 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.
#
- POINT_INI = SIMP(statut="f",typ="R",max=1,
- fr="Point de démarrage de l'algorithme itératif.",
- ang="Initial point for iterative process."),
+# 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
+RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table_sdaster,
+ fr="Récupérer dans une table les valeurs d'un paramètre d'une SD Résultat ou d'extraire une table contenue"
+ +" dans une autre SD pour celles qui le permettent",
+ UIinfo={"groupes":("Résultats et champs",)},reentrant='n',
+ CO =SIMP(statut='o',typ=assd),
+ regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
+ NOM_TABLE =SIMP(statut='f',typ='TXM' ),
+ NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+) ;
+#& 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.
#
-# 7.3.3. ==> Quand on cherche le point de conception, on peut préciser un point de référence pour normaliser.
-# Si on ne le fait pas, le programme prendra la valeur moyenne.
+# 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.
#
- POINT_REF = SIMP(statut="f",typ="R",max=1,
- fr="Point de référence de l'algorithme itératif.",
- ang="Reference point for iterative process."),
+# 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.
+# ======================================================================
+
+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),
+ 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.
#
-# 7.3.4. ==> Quand on cherche uniquement la probabilité de défaillance, il faut donner le point de conception
+# 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.
#
- POINT_CONCEPT = SIMP(statut="f",typ="R",max=1,
- fr="Point de conception.",
- ang="Design point."),
+# 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) ),
+) ;
+#& MODIF COMMANDE DATE 20/03/2006 AUTEUR ACBHHCD G.DEVESA
+# 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.
#
-# 7.4. ==> Mode d'obtention du gradient par rapport à ce paramètre
+# 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.
#
- GRADIENT = SIMP(statut="o",typ="TXM",max=1,
- into=("OUI","NON"),
- fr="ASTER calcule directement le gradient.",
- ang="ASTER computes the gradient for this parameter."),
+# 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 BOYERE E.BOYERE
+def rest_base_phys_prod(RESU_GENE,RESU_PHYS,RESULTAT,**args ):
+ if AsType(RESU_GENE) == tran_gene : return dyna_trans
+ if AsType(RESU_GENE) == mode_gene : return mode_meca
+ if AsType(RESU_GENE) == mode_cycl : return mode_meca
+ if AsType(RESU_GENE) == harm_gene : return dyna_harmo
+ if AsType(RESU_PHYS) == evol_noli : return dyna_trans
+ if AsType(RESULTAT) == evol_elas : return evol_elas
+ if AsType(RESULTAT) == evol_noli : return evol_noli
+ if AsType(RESULTAT) == evol_char : return evol_char
+ if AsType(RESULTAT) == dyna_trans : return dyna_trans
+ if AsType(RESULTAT) == mode_meca : return mode_meca
+ if AsType(RESULTAT) == mode_stat_depl : return mode_stat_depl
+ if AsType(RESULTAT) == base_modale : return base_modale
+ raise AsException("type de concept resultat non prevu")
+
+REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op= 75,sd_prod=rest_base_phys_prod,
+ fr="Restituer dans la base physique des résultats en coordonnées généralisées",
+ reentrant='n',
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ regles=(UN_PARMI('RESU_GENE','RESU_PHYS','RESULTAT'),
+ EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
+ EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
+# Doc U à revoir
+ EXCLUS('MULT_APPUI','CORR_STAT'),
+ EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
+ EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
+ EXCLUS('NOEUD','GROUP_NO'),
+ PRESENT_PRESENT('RESU_PHYS','BASE_MODALE'),
+ PRESENT_PRESENT('RESULTAT','SQUELETTE'),
+ PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
+ RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli,dyna_trans,evol_char,
+ mode_meca,mode_stat_depl,base_modale) ),
+
+ RESU_GENE =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene) ),
+ RESU_PHYS =SIMP(statut='f',typ=evol_noli ),
+ BASE_MODALE =SIMP(statut='f',typ=(base_modale,mode_meca) ),
+ NUME_DDL =SIMP(statut='f',typ=nume_ddl_sdaster ),
+ MODE_MECA =SIMP(statut='f',typ=mode_meca ),
+ TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
+ NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
+ TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster ),
+ FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
+ MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max=8,defaut="ACCE",
+ into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
+ "SIGM_ELNO_DEPL","FORC_NODA",) ),
+ TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+
+ ACCE_MONO_APPUI =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ DIRECTION =SIMP(statut='f',typ='R',min=3,max=3 ),
- b_gradient=BLOC(condition="GRADIENT=='NON'",
- INCREMENT = SIMP(statut="o",typ="R",max=1,
- fr="Incrément dans la direction.",
- ang="Direction increment."),
- ),
+ CYCLIQUE =FACT(statut='f',max='**',
+ NB_SECTEUR =SIMP(statut='f',typ='I',validators=NoRepeat(),max=1 ),
+ NUME_DIAMETRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max=1 ),
+ RESULTAT2 =SIMP(statut='f',typ=(evol_elas,evol_noli,dyna_trans,evol_char,
+ mode_meca,mode_stat_depl,base_modale) ),
+ ),
- ),
-#
-);
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
-# RESPONSABLE JMBHH01 J.M.PROIX
+ SQUELETTE =SIMP(statut='f',typ=squelette ),
+ SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
+ SECTEUR =SIMP(statut='f',typ='I',defaut= 1 ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+) ;
+#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
# 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.
+# 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.
# ======================================================================
-DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
- fr="Définir le comportement d'un monocristal ou d'un polycristal",
- reentrant='n',
- UIinfo={"groupes":("Modélisation",)},
- regles=(EXCLUS('MONOCRISTAL','POLYCRISTAL'),),
-
- MONOCRISTAL =FACT(statut='f', max='**',
- MATER =SIMP(statut='o', typ=mater_sdaster, max=1),
- ECOULEMENT =SIMP(statut='o', typ='TXM', max=1,
- fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écoulement viscoplastique"),
- ECRO_ISOT =SIMP(statut='o', typ='TXM', max=1,
- fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écrouissage isotrope"),
- ECRO_CINE =SIMP(statut='o', typ='TXM', max=1,
- 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,
- into=('BASAL', 'PRISMATIQUE', 'OCTAEDRIQUE', 'PYRAMIDAL1',
- 'PYRAMIDAL2', 'CUBIQUE1', 'CUBIQUE2', 'MACLAGE', 'JOINT_GRAIN', 'RL', 'UNIAXIAL'),),
- ),
-
-
- POLYCRISTAL =FACT(statut='f', max='**',
- MONOCRISTAL =SIMP(statut='o', typ=compor_sdaster, max=1),
- FRAC_VOL =SIMP(statut='o', typ='R', max=1,fr="fraction volumique de la phase correspondant au monocristal"),
- ANGL_REP =SIMP(statut='o',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),
- ),
- ),
-
- );
-
-#& MODIF COMMANDE DATE 30/08/2005 AUTEUR ASSIRE A.ASSIRE
+REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=table_sdaster,
+ reentrant='n',
+ fr="Calculer la réponse d'une structure dans la base physique",
+ UIinfo={"groupes":("Matrices/vecteurs",)},
+ regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
+ BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu_sdaster ),
+ MODE_MECA =SIMP(statut='f',typ=mode_meca ),
+ BANDE =SIMP(statut='f',typ='R',min=2,validators=NoRepeat(),max=2 ),
+ NUME_ORDRE =SIMP(statut='f',typ='I' ,validators=NoRepeat(),max='**' ),
+ INTE_SPEC_GENE =SIMP(statut='o',typ=table_sdaster),
+ NOEUD =SIMP(statut='o',typ=no ,max='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,max='**'),
+ NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=7,
+ into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
+ "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
+ MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
+ EXCIT =FACT(statut='f',
+ NOEUD =SIMP(statut='o',typ=no ,max='**'),
+ NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
+ ),
+ MOUVEMENT =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
+ OPTION =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
+ into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+) ;
+#& MODIF COMMANDE DATE 15/05/2006 AUTEUR ASSIRE A.ASSIRE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2004 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.
# ======================================================================
-# RESPONSABLE ASSIRE A.ASSIRE
-from Macro.defi_part_feti_ops import defi_part_feti_ops
+from Macro.stanley_ops import stanley_ops
-DEFI_PART_FETI=MACRO(nom="DEFI_PART_FETI",op=defi_part_feti_ops,sd_prod=sd_feti_sdaster,
- reentrant='n',UIinfo={"groupe":("Maillage",)},
- fr="Creation partitionnement en sous-domaines pour FETI",
- regles=(UN_PARMI('MAILLAGE','MODELE'),),
- MAILLAGE =SIMP(statut='f',typ=maillage_sdaster),
+STANLEY=MACRO(nom="STANLEY",op=stanley_ops,sd_prod=None,
+ reentrant='n',
+ UIinfo={"groupes":("Outils métier",)},
+ fr="Outil de post-traitement interactif Stanley ",
+ RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli,evol_ther,mode_meca,mode_stat,dyna_harmo,dyna_trans) ),
MODELE =SIMP(statut='f',typ=modele_sdaster),
- NB_PART =SIMP(statut='o',typ='I',val_min=2),
- EXCIT =FACT(statut='f',max='**',
- CHARGE =SIMP(statut='f',typ=(char_meca,char_cine_meca)),),
-
- # Methode de partitionnement
- METHODE =SIMP(statut='f',typ='TXM',into=("PMETIS","SCOTCH","KMETIS",), defaut="SCOTCH" ),
-
- LOGICIEL =SIMP(statut='f',typ='TXM'),
-
- # Corrige les problemes possibles de non-connexite des sous-domaines
- CORRECTION_CONNEX =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON')),
-
- # Permet de grouper des mailles dans un meme sous-doamine
- GROUPAGE =FACT(statut='f',max='**',
- GROUP_MA =SIMP(statut='o',typ=grma,),
- ),
- # Permet d'appliquer des poids sur certaines mailles
- POIDS_MAILLES =FACT(statut='f',max='**',
- GROUP_MA =SIMP(statut='o',typ=grma,),
- POIDS =SIMP(statut='f',typ='I',val_min=2),
- ),
- # Prefixe pour le nom des group_ma definissant les sous-domaines
- NOM_GROUP_MA =SIMP(statut='f',typ='TXM',defaut='SD' ),
-
- # Traiter les mailles de bords (elles sont enlevees du graphe puis reinjectees)
- TRAITER_BORDS =SIMP(statut='f',typ='TXM',defaut='OUI',into=('OUI','NON') ),
-
- # Si le mot-clé suivant est renseigné, crée de nouveau group_ma a partir des bords
- # Note : le calcul FETI sera impossible
- b_traiter_bords =BLOC(condition="TRAITER_BORDS == 'OUI'", fr="Crée t on des nouveaux group_ma",
- NOM_GROUP_MA_BORD =SIMP(statut='f',typ='TXM'),
- ),
+ CHAM_MATER =SIMP(statut='f',typ=cham_mater),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ DISPLAY =SIMP(statut='f',typ='TXM'),
+ UNITE_VALIDATION=SIMP(statut='c',typ='I',val_min=10,val_max=90,
+ fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit les md5"),
- INFO =SIMP(statut='f',typ='I',into=(1, 2), defaut=1),
-);
-#& MODIF COMMANDE DATE 22/02/2005 AUTEUR DURAND C.DURAND
+) ;
+#& MODIF COMMANDE DATE 16/05/2006 AUTEUR REZETTE C.REZETTE
# 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.
+# 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 ASSIRE A.ASSIRE
-
-DEFI_PART_OPS=OPER(nom="DEFI_PART_OPS",op=21,sd_prod=sd_feti_sdaster,
- fr="Creation partitionnement en sous-domaines pour FETI",
- docu="U4.23.05",reentrant='n',
- UIinfo={"groupes":("Résolution",)},
- MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
- MAILLAGE =SIMP(statut='f',typ=(maillage_sdaster) ),
- NOM =SIMP(statut='f',typ='TXM',defaut='SD'),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2,3,4) ),
- DEFI =FACT(statut='f',max='**',
- GROUP_MA =SIMP(statut='o',typ=grma),
- GROUP_MA_BORD =SIMP(statut='f',typ=grma),
+# RESPONSABLE MABBAS M.ABBAS
+STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
+ fr="Calcul de l'évolution mécanique ou thermo-hydro-mécanique couplée, en quasi-statique,"
+ +" d'une structure en non linéaire",
+ reentrant='f',
+ UIinfo={"groupes":("Résolution",)},
+ regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),
+ CONCEPT_SENSIBLE('ENSEMBLE'),),
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ 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")),
),
- EXCIT =FACT(statut='f',max='**',
- CHARGE =SIMP(statut='f',typ=(char_meca,char_cine_meca)),
+ SOUS_STRUC =FACT(statut='f',min=01,max='**',
+ regles=(UN_PARMI('TOUT','MAILLE'),),
+ CAS_CHARGE =SIMP(statut='o',typ='TXM' ),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**',),
+ ),
+ 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",) ),
+ 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='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
),
-);
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
-# 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.
-# ======================================================================
-# RESPONSABLE MCOURTOI M.COURTOIS
-from Macro.impr_fonction_ops import impr_fonction_ops
-
-IMPR_FONCTION=MACRO(nom="IMPR_FONCTION",op=impr_fonction_ops,sd_prod=None,
- fr="Imprime le contenu d'objets de type fonction ou liste de réels dans un fichier destiné à un traceur de courbe",
- UIinfo={"groupes":("Fonction",)},
- FORMAT =SIMP(statut='o',typ='TXM',position='global',defaut='TABLEAU',
- into=("TABLEAU","AGRAF","XMGRACE",),),
- b_pilote = BLOC(condition = "FORMAT == 'XMGRACE'",
- fr="Mots-clés propres à XMGRACE",
- PILOTE =SIMP(statut='f',typ='TXM',defaut='',
- into=('','POSTSCRIPT','EPS','MIF','SVG','PNM','PNG','JPEG','PDF','INTERACTIF'),
- fr="Pilote de sortie, PNG/JPEG/PDF ne sont pas disponibles sur toutes les installations de xmgrace"),
- UNITE =SIMP(statut='f',typ='I',val_min=10,val_max=90,defaut=29,
- fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+ 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','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'),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ NUME_DIDI =SIMP(statut='f',typ='I'),
+ INST_ETAT_INIT =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','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'),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ NUME_DIDI =SIMP(statut='f',typ='I'),
+ INST_ETAT_INIT =SIMP(statut='f',typ='R'),
+ ),),
+ INCREMENT =FACT(statut='o',
+ regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
+ EXCLUS('NUME_INST_FIN','INST_FIN'),),
+ LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
+ EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
+ into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
+ NUME_INST_INIT =SIMP(statut='f',typ='I'),
+ INST_INIT =SIMP(statut='f',typ='R'),
+ NUME_INST_FIN =SIMP(statut='f',typ='I'),
+ INST_FIN =SIMP(statut='f',typ='R'),
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
+ SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
+ SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
+ COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
+ OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',),
+ NOM_CMP =SIMP(statut='f',typ='TXM',),
+ VALE =SIMP(statut='f',typ='R'),
),
- b_agraf = BLOC(condition = "FORMAT == 'AGRAF'",
- fr="Mots-clés propres à AGRAF",
- UNITE =SIMP(statut='o',typ='I',defaut=25,
- fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
- UNITE_DIGR =SIMP(statut='o',typ='I',defaut=26,
- fr="Unité logique définissant le fichier dans lequel on écrit les directives Agraf"),
+ NEWTON =FACT(statut='d',
+ REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
+ PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
+ MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
+ PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
+ REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
+ REAC_ITER_ELAS =SIMP(statut='f',typ='I',defaut=0),
+ EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
),
- # unite pour TABLEAU dans le bloc de mise en forme spécifique
-
- COURBE =FACT(statut='o',max='**',fr="Définition de la fonction à tracer",
- regles=(UN_PARMI('FONCTION','LIST_RESU','FONC_X','ABSCISSE'),),
- FONCTION =SIMP(statut='f',typ=(fonction_sdaster, formule, fonction_c, nappe_sdaster),
- fr="Fonction réelle ou complexe", ),
- LIST_RESU =SIMP(statut='f',typ=listr8_sdaster,
- fr="Liste des ordonnees d'une fonction réelle définie par deux listes", ),
- FONC_X =SIMP(statut='f',typ=(fonction_sdaster,formule),
- fr="Fonction abscisses d'une fonction paramétrique",),
- ABSCISSE =SIMP(statut='f',typ='R',max='**',
- fr="Valeurs des abscisses", ),
- b_fonction =BLOC(condition = "FONCTION != None",
- LIST_PARA =SIMP(statut='f',typ=listr8_sdaster ),
- ),
- b_fonction_c =BLOC(condition = "AsType(FONCTION) == fonction_c",
- fr="Fonction complexe définie par le mot-clé fonction",
- PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
+ RECH_LINEAIRE =FACT(statut='f',
+ RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
+ ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
+ ITER_LINE_CRIT =SIMP(statut='f',typ='I',defaut= 20),
+ PAS_MINI_CRIT =SIMP(statut='f',typ='R',defaut=0.0E+0),
+ RHO_MIN =SIMP(statut='f',typ='R',defaut=1.0E-2),
+ RHO_MAX =SIMP(statut='f',typ='R',defaut=1.0E+1),
+ RHO_EXCL =SIMP(statut='f',typ='R',defaut=0.9E-2),
+ ),
+ PILOTAGE =FACT(statut='f',
+ regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
+ TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
+ COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
+ ETA_PILO_MAX =SIMP(statut='f',typ='R'),
+ ETA_PILO_MIN =SIMP(statut='f',typ='R'),
+ ETA_PILO_R_MAX =SIMP(statut='f',typ='R'),
+ ETA_PILO_R_MIN =SIMP(statut='f',typ='R'),
+ PROJ_BORNES =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ SELECTION =SIMP(statut='f',typ='TXM',defaut="NORM_INCR_DEPL", into=("RESIDU","ANGL_INCR_DEPL","NORM_INCR_DEPL") ),
+ 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='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
+ NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ ),
+ CONVERGENCE =FACT(statut='d',
+ regles=(PRESENT_ABSENT('RESI_REFE_RELA','RESI_GLOB_MAXI','RESI_GLOB_RELA'),),
+ SIGM_REFE =SIMP(statut='f',typ='R'),
+ EPSI_REFE =SIMP(statut='f',typ='R'),
+ FLUX_THER_REFE =SIMP(statut='f',typ='R'),
+ FLUX_HYD1_REFE =SIMP(statut='f',typ='R'),
+ FLUX_HYD2_REFE =SIMP(statut='f',typ='R'),
+ RESI_REFE_RELA =SIMP(statut='f',typ='R'),
+ RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
+ RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
+ ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
+ ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
+ ARRET =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+ ),
+ PARM_THETA =SIMP(statut='f',typ='R',defaut= 1. ),
+ SOLVEUR =FACT(statut='d',
+ METHODE=SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","MUMPS","FETI") ),
+ 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_list_resu =BLOC(condition = "LIST_RESU != None",
- LIST_PARA =SIMP(statut='o',typ=listr8_sdaster ),
+ 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_fonc_x =BLOC(condition = "FONC_X != None",
- FONC_Y =SIMP(statut='o',typ=(fonction_sdaster,formule),fr="Fonction ordonnées d une fonction paramétrique" ),
- LIST_PARA =SIMP(statut='f',typ=listr8_sdaster ),
+ 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") ),
),
- b_vale_resu =BLOC(condition = "ABSCISSE != None",
- ORDONNEE =SIMP(statut='o',typ='R',max='**',
- fr="Valeurs des ordonnées"),
+ 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 ),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
),
-
- # le bloc n'est pas activé (vide) car position n'est pas pris en compte
- b_forme =BLOC(condition = "FORMAT != 'TABLEAU'",
- fr="Données de mise en forme de la fonction (cf. doc)",
+ 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')),
+ PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.,),
),
- LEGENDE =SIMP(statut='f',typ='TXM',
- fr="Légende associée à la fonction" ),
- STYLE =SIMP(statut='f',typ='I',val_min=0,
- fr="Style de la ligne représentant la fonction",),
- COULEUR =SIMP(statut='f',typ='I',val_min=0,
- fr="Couleur associée à la fonction",),
- MARQUEUR =SIMP(statut='f',typ='I',val_min=0,
- fr="Type du marqueur associé à la fonction",),
- FREQ_MARQUEUR =SIMP(statut='f',typ='I',defaut=0,
- fr="Fréquence d impression du marqueur associé à la fonction", ),
- # fin bloc b_forme
- TRI =SIMP(statut='f',typ='TXM',defaut="N",
- fr="Choix du tri effectué sur les abscisses ou sur les ordonnées",
- into=("N","X","Y","XY","YX") ),
+ b_feti =BLOC(condition = "METHODE == 'FETI' ",fr="Paramètres de la méthode FETI 1",
+ PARTITION =SIMP(statut='o',typ=sd_feti_sdaster),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,val_min=0.),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut=0,val_min=0),
+ TYPE_REORTHO_DD =SIMP(statut='f',typ='TXM',defaut="GSM",into=("SANS","GS","GSM","IGSM") ),
+ NB_REORTHO_DD =SIMP(statut='f',typ='I',defaut=0,val_min=0),
+ NB_REORTHO_INST =SIMP(statut='f',typ='I',defaut=0,val_min=0),
+ PRE_COND =SIMP(statut='f',typ='TXM',defaut="LUMPE",into=("LUMPE","SANS") ),
+ SCALING =SIMP(statut='f',typ='TXM',defaut="MULT",into=("SANS","MULT") ),
+ VERIF_SDFETI =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ TEST_CONTINU =SIMP(statut='f',typ='R',defaut=1.E-8,val_min=0.),
+ INFO_FETI =SIMP(statut='f',typ='TXM',defaut='FFFFFFFFFFFFFFFFFFFFFFFF'),
+ STOCKAGE_GI =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","CAL") ),
+ NB_SD_PROC0 =SIMP(statut='f',typ='I',defaut=0,val_min=0),
+ ACCELERATION_SM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ ),
+ SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
),
- # Mise en page du tableau ou du graphique
- b_tableau = BLOC(condition = "FORMAT == 'TABLEAU'",
- fr="Mots-clés propres au format Tableau",
- UNITE =SIMP(statut='o',typ='I',defaut=8,
- fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
- TITRE =SIMP(statut='f',typ='TXM',
- fr="Titre associé au graphique" ),
- SOUS_TITRE =SIMP(statut='f',typ='TXM',
- fr="Sous-titre du graphique" ),
- SEPARATEUR =SIMP(statut='f',typ='TXM',defaut=' ',
- fr="Séparateur des colonnes du tableau (ex : ' ', ';'...)"),
- COMMENTAIRE =SIMP(statut='f',typ='TXM',defaut='#',
- fr="Caractère indiquant au traceur de fonction que la ligne peut etre ignorée"),
- DEBUT_LIGNE =SIMP(statut='f',typ='TXM',defaut='',
- fr="Caractère de debut de ligne"),
- FIN_LIGNE =SIMP(statut='f',typ='TXM',defaut='\n',
- fr="Caractère de fin de ligne"),
+ ARCHIVAGE =FACT(statut='f',
+ regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
+ EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
+ LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ PAS_ARCH =SIMP(statut='f',typ='I' ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ 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",
+ "VARI_NON_LOCAL","LANL_ELGA")),
),
- b_graphique = BLOC(condition = "FORMAT != 'TABLEAU'",
- fr="Mise en page du graphique",
- TITRE =SIMP(statut='f',typ='TXM',
- fr="Titre associé au graphique" ),
- SOUS_TITRE =SIMP(statut='f',typ='TXM',
- fr="Sous-titre du graphique" ),
- BORNE_X =SIMP(statut='f',typ='R',min=2,max=2,
- fr="Intervalles de variation des abscisses"),
- BORNE_Y =SIMP(statut='f',typ='R',min=2,max=2,
- fr="Intervalles de variation des ordonnées"),
- ECHELLE_X =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),
- fr="Type d'échelle pour les abscisses" ),
- ECHELLE_Y =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),
- fr="Type d'échelle pour les ordonnées" ),
- GRILLE_X =SIMP(statut='f',typ='R',max=1,val_min=0.,
- fr="Pas du quadrillage vertical" ),
- GRILLE_Y =SIMP(statut='f',typ='R',max=1,val_min=0.,
- fr="Pas du quadrillage horizontal" ),
- LEGENDE_X =SIMP(statut='f',typ='TXM',
- fr="Légende associée à l'axe des abscisses" ),
- LEGENDE_Y =SIMP(statut='f',typ='TXM',
- fr="Légende associée à l'axe des ordonnées" ),
+ OBSERVATION =FACT(statut='f',max='**',
+ regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
+ PRESENT_PRESENT('MAILLE','POINT'),),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
+ "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU","VALE_CONT")),
+ NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
+ LIST_ARCH =SIMP(statut='f',typ=listis_sdaster),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PAS_OBSE =SIMP(statut='f',typ='I'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ POINT =SIMP(statut='f',typ='I' ,validators=NoRepeat(),max='**'),
),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
-) ;
-#& MODIF COMMANDE DATE 06/07/2005 AUTEUR GENIAUT S.GENIAUT
-# 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.
-# ======================================================================
-MODI_MODELE_XFEM=OPER(nom="MODI_MODELE_XFEM",op= 113,sd_prod=modele_sdaster,docu="U4.44.12-e",reentrant='f',
- UIinfo={"groupes":("Modélisation",)},
- fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
+ SUIVI_DDL = FACT(statut='f',max=4,
+ regles=(UN_PARMI('NOEUD','MAILLE'),
+ PRESENT_PRESENT('MAILLE','POINT'),),
+ NUME_SUIVI =SIMP(statut='o',typ='I' ,min=1,max=4),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=1,
+ into=("DEPL","VITE","ACCE","SIEF_ELGA",
+ "VARI_ELGA","FORC_NODA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU",)),
+ NOM_CMP =SIMP(statut='o',typ='TXM',max=1 ),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max=1),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max=1),
+ POINT =SIMP(statut='f',typ='I' ,validators=NoRepeat(),max=1),
+ ),
- MODELE_IN =SIMP(statut='o',typ=modele_sdaster,min=01,max=01,),
- FISSURE =SIMP(statut='o',typ=fiss_xfem,min=01,max=01,),
- CRITERE =SIMP(statut='f',typ='R',defaut=1.1E-4),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,)),
+ AFFICHAGE = FACT(statut='f',max=16,
-) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2005 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.
-# ======================================================================
-POST_CHAM_XFEM=OPER(nom="POST_CHAM_XFEM",op= 196,sd_prod=resultat_sdaster,
- reentrant='n',UIinfo={"groupes":("Post traitements",)},
- fr="Calcul des champs DEPL et SIEF_ELGA sur le maillage fissuré",
- MAILLAGE = SIMP(statut='o',typ=maillage_sdaster),
- MODELE = SIMP(statut='o',typ=modele_sdaster,),
- RESULTAT = SIMP(statut='o',typ=resultat_sdaster),
- NOM_CHAM = SIMP(statut='o',typ='TXM',into=("DEPL","SIEF_ELGA"),)
-);
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2005 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.
-# ======================================================================
-POST_MAIL_XFEM=OPER(nom="POST_MAIL_XFEM",op= 187,sd_prod=maillage_sdaster,
- reentrant='n',UIinfo={"groupes":("Maillage",)},
- fr="Crée un maillage se conformant à la fissure pour le post-traitement des éléments XFEM",
- MODELE = SIMP(statut='o',typ=modele_sdaster),
- TITRE = SIMP(statut='f',typ='TXM',max='**'),
-);
-#& MODIF COMMANDE DATE 24/05/2005 AUTEUR MCOURTOI M.COURTOIS
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2005 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.
-# ======================================================================
-from Macro.info_fonction_ops import info_fonction_ops
-def info_fonction_prod(self,ECART_TYPE,RMS,NOCI_SEISME,MAX,NORME, **args):
- if (RMS != None): return table_sdaster
- if (MAX != None): return table_sdaster
- if (NOCI_SEISME != None): return table_sdaster
- if (ECART_TYPE != None): return table_sdaster
- if (NORME != None): return table_sdaster
- raise AsException("type de concept resultat non prevu")
+ UNITE = SIMP(statut='f',typ='I',val_min=1),
-INFO_FONCTION=MACRO(nom="INFO_FONCTION",op=info_fonction_ops,sd_prod=info_fonction_prod
- ,fr="Opérations mathématiques sur des concepts de type fonction, fonction_c ou nappe",
- reentrant='n',
- UIinfo={"groupes":("Fonction",)},
- regles=(UN_PARMI('MAX','RMS','NOCI_SEISME','NORME','ECART_TYPE',),),
- RMS =FACT(statut='f',fr="Valeur RMS d'une fonction",max='**',
- METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
- FONCTION =SIMP(statut='o',typ=fonction_sdaster ),
- INST_INIT =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
- INST_FIN =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3,val_min=0.E+0 ),
- ),
- NOCI_SEISME =FACT(statut='f',
- regles=(UN_PARMI('FONCTION','SPEC_OSCI',),),
- FONCTION =SIMP(statut='f',typ=fonction_sdaster ),
- SPEC_OSCI =SIMP(statut='f',typ=nappe_sdaster ),
- b_option_f =BLOC(condition="""FONCTION !=None""",
- OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",validators=NoRepeat(),max='**',
- into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
- "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",), ),
- b_amor =BLOC(condition="""OPTION=="TOUT" or OPTION=="INTE_SPEC" """,
- AMOR_REDUIT =SIMP(statut='o',typ='R'), ),),
- b_option_n =BLOC(condition="""SPEC_OSCI !=None""",
- OPTION =SIMP(statut='f',typ='TXM',defaut="INTE_SPEC",into=("INTE_SPEC",), ),
- NATURE =SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE") ),
- AMOR_REDUIT =SIMP(statut='o',typ='R'), ),
- INST_INIT =SIMP(statut='f',typ='R'),
- INST_FIN =SIMP(statut='f',typ='R'),
- COEF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- PESANTEUR =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
- FREQ_INIT =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
- FREQ_FIN =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
- LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster ),
- FREQ =SIMP(statut='f',typ='R',max='**'),
- NORME =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
- BORNE_INF =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
- BORNE_SUP =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
- b_acce_reel =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3,val_min=0.E+0),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- ),
+ LONG_R = SIMP(statut='f',typ='I',defaut=12,val_min=1,val_max=12),
+ PREC_R = SIMP(statut='f',typ='I',defaut=5, val_min=1,val_max=8),
+ LONG_I = SIMP(statut='f',typ='I',defaut=6, val_min=1,val_max=12),
+
+ NOM_COLONNE = SIMP(statut='o',typ='TXM',defaut="STANDARD",
+ into=("STANDARD","MINIMUM",
+ "ITER_NEWT",
+ "INCR_TPS",
+ "RESI_RELA","RELA_NOEU",
+ "RESI_MAXI","MAXI_NOEU",
+ "RESI_REFE","REFE_NOEU",
+ "RELI_ITER","RELI_COEF",
+ "PILO_PARA",
+ "LAGR_ECAR","LAGR_INCR","LAGR_ITER",
+ "MATR_ASSE",
+ "ITER_DEBO",
+ "CTCD_ITER","CTCD_INFO","CTCD_GEOM","CTCD_NOEU",
+ "CTCC_GEOM","CTCC_FROT","CTCC_CONT",
+ "SUIV_1","SUIV_2","SUIV_3","SUIV_4","ITER_FETI",
+ ),
+ ),
+ b_residu = BLOC(condition = " NOM_COLONNE == 'RESI_RELA' or \
+ NOM_COLONNE == 'RESI_MAXI' or\
+ NOM_COLONNE == 'RESI_REFE' or\
+ NOM_COLONNE == 'CTCD_GEOM' or\
+ NOM_COLONNE == 'STANDARD' ",
+ INFO_RESIDU = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
+ ),
),
- MAX =FACT(statut='f',fr="Extrémas locaux d'une fonction",
- FONCTION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster) ),
+
+
+
+ CRIT_FLAMB =FACT(statut='f',min=1,max=1,
+ NB_FREQ =SIMP(statut='f',typ='I',max=1,defaut=3),
+ CHAR_CRIT =SIMP(statut='f',typ='R',min=2,max=2,defaut=(-10.0,10),
+ fr="Valeur des deux charges critiques délimitant la bande de recherche en HPP"),
),
- NORME =FACT(statut='f',fr="Norme L2 d'une fonction",
- FONCTION =SIMP(statut='o', typ=nappe_sdaster),
- ),
- ECART_TYPE =FACT(statut='f',fr="Ecart-type d'une fonction",
- METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
- FONCTION =SIMP(statut='o',typ=fonction_sdaster),
- INST_INIT =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
- INST_FIN =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3,val_min=0.E+0 ),
- ),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
-)
-#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
+ 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')),
+ PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,),
+ ),
+ 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 22/05/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2005 EDF R&D WWW.CODE-ASTER.ORG
+# 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
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-# -*- coding: iso-8859-1 -*-
# RESPONSABLE MCOURTOI M.COURTOIS
-def calc_table_prod(self, TABLE, **kargs):
- """Typage du concept produit.
- """
- typ_table = AsType(TABLE)
- if issubclass(typ_table, table_sdaster):
- return typ_table
- raise AsException("type de concept resultat non prevu")
+from Macro.test_fichier_ops import test_fichier_ops
-from Macro.calc_table_ops import calc_table_ops
+TEST_FICHIER=MACRO(nom="TEST_FICHIER", op=test_fichier_ops,
+ UIinfo={"groupes":("Impression",)},
+ fr="Tester la non régression de fichiers produits par des commandes aster",
+ FICHIER =SIMP(statut='o',typ='TXM',validators=LongStr(1,255)),
+ NB_CHIFFRE =SIMP(statut='o',typ='I',), # defaut=6 pas de defaut, il faut
+ EPSILON =SIMP(statut='o',typ='R',), # defaut=1.E-12 se poser la question !
+ EXPR_IGNORE =SIMP(statut='f',typ='TXM',max='**',
+ fr="Liste d'expressions régulières permettant d'ignorer certaines lignes"),
+ VALE_K =SIMP(statut='o',typ='TXM' ),
+ REFERENCE =SIMP(statut='f',typ='TXM',
+ into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
-CALC_TABLE=MACRO(nom="CALC_TABLE",op=calc_table_ops, sd_prod=calc_table_prod,
- fr="Opérations sur une table",
- reentrant='f',
- regles=(DERIVABLE('TABLE'),),
- TABLE = SIMP(statut='o',typ=table_sdaster),
- ACTION = FACT(statut='o', max='**',
- fr = "Suite des opérations à effectuer sur la table",
- OPERATION = SIMP(statut='o', typ='TXM',
- into=('FILTRE', 'EXTR', 'RENOMME', 'TRI', 'COMB', 'OPER',)),
-
- b_filtre = BLOC(condition="OPERATION == 'FILTRE'",
- fr="Sélectionne les lignes de la table vérifiant un critère",
- NOM_PARA = SIMP(statut='o',typ='TXM'),
- CRIT_COMP = SIMP(statut='f',typ='TXM',defaut="EQ",
- into=('EQ','NE','GT','LT','GE','LE','REGEXP',
- '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'),
- VALE_I = SIMP(statut='f',typ='I'),
- VALE_C = SIMP(statut='f',typ='C'),
- VALE_K = SIMP(statut='f',typ='TXM'),
+ b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
+ VERSION =SIMP(statut='f',typ='TXM' ),
+ ),
+
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
+)
+#& 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
+# 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 MCOURTOI M.COURTOIS
+TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,
+ fr="Extraction d'une valeur numérique ou d'un attribut de fonction pour comparaison à une valeur de référence",
+ UIinfo={"groupes":("Impression",)},
+ TEST_NOOK =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ VALEUR =FACT(statut='f',max='**',
+ fr="Tester la valeur d une fonction ou d une nappe",
+ regles=(UN_PARMI('VALE_REFE','VALE_REFE_C',),
+ DERIVABLE('FONCTION'),),
+ FONCTION =SIMP(statut='o',typ=(fonction_sdaster,fonction_c,nappe_sdaster,formule) ),
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),
+ fr="Paramètre de sensibilité.",
+ ang="Sensitivity parameter"),
+ NOM_PARA =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max=2),
+ VALE_PARA =SIMP(statut='o',typ='R' ,validators=NoRepeat(),max=2),
+ VALE_REFE =SIMP(statut='f',typ='R' ),
+ VALE_REFE_C =SIMP(statut='f',typ='C' ),
+ VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
+ defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
+ defaut= 1.E-3 ),
+ REFERENCE =SIMP(statut='f',typ='TXM',
+ into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
+ b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
+ VERSION =SIMP(statut='f',typ='TXM' ),
+ ),
),
- b_regexp = BLOC(condition = "CRIT_COMP == 'REGEXP'",
- VALE_K = SIMP(statut='f',typ='TXM'),
+ ATTRIBUT =FACT(statut='f',max='**',
+ fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
+ FONCTION =SIMP(statut='o',typ=(fonction_sdaster,fonction_c,nappe_sdaster,formule) ),
+ PARA =SIMP(statut='f',typ='R' ),
+ CRIT_PARA =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PREC_PARA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ ATTR =SIMP(statut='o',typ='TXM',
+ into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
+ "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
+ ATTR_REFE =SIMP(statut='o',typ='TXM' ),
+ REFERENCE =SIMP(statut='f',typ='TXM',
+ into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
+ b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
+ VERSION =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") ),
- PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ TABL_INTSP =FACT(statut='f',max='**',
+ fr="Tester la valeur d une fonction contenue dans une table interspectrale",
+ regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
+ INTE_SPEC =SIMP(statut='o',typ=table_sdaster),
+ NOEUD_I =SIMP(statut='f',typ=no),
+ NUME_ORDRE_I =SIMP(statut='f',typ='I' ),
+ b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
+ NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
+ ),
+ b_noeud_i = BLOC (condition = "NOEUD_I != None",
+ NOEUD_J =SIMP(statut='o',typ=no),
+ NOM_CMP_I =SIMP(statut='o',typ='TXM' ),
+ NOM_CMP_J =SIMP(statut='o',typ='TXM' ),
+ ),
+ NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
+ VALE_PARA =SIMP(statut='o',typ='R' ),
+ VALE_REFE_C =SIMP(statut='o',typ='C' ),
+ CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
+ defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
+ defaut= 1.E-3 ),
+ REFERENCE =SIMP(statut='f',typ='TXM',
+ into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
+ b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
+ VERSION =SIMP(statut='f',typ='TXM' ),
+ ),
),
- ),
-
- b_extr = BLOC(condition="OPERATION == 'EXTR'",
- fr="Extrait une ou plusieurs colonnes de la table",
- NOM_PARA = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
- fr="Noms des colonnes à extraire"),
- ),
-
- b_renomme = BLOC(condition="OPERATION == 'RENOMME'",
- fr="Renomme un ou plusieurs paramètres de la table",
- NOM_PARA = SIMP(statut='o', typ='TXM', validators=NoRepeat(), min=2, max=2,
- fr="Couple (ancien nom du paramètre, nouveau nom du paramètre)",),
- ),
-
- b_tri = BLOC(condition="OPERATION == 'TRI'",
- fr="Ordonne les lignes de la table selon les valeurs d'un ou plusieurs paramètres",
- NOM_PARA = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**'),
- ORDRE = SIMP(statut='f',typ='TXM',defaut="CROISSANT",
- into=("CROISSANT","DECROISSANT") ),
- ),
-
- b_comb = BLOC(condition="OPERATION == 'COMB'",
- fr="Combine deux tables ayant éventuellement des paramètres communs",
- TABLE = SIMP(statut='o',typ=table_sdaster,
- fr="Table dont les colonnes vont venir surcharger la table initiale"),
- NOM_PARA = SIMP(statut='f',typ='TXM',max='**',
- fr="Noms des paramètres dont les valeurs doivent etre identiques dans les deux tables "\
- "pour que les colonnes soient combinées"),
- ),
-
- b_oper = BLOC(condition="OPERATION == 'OPER'",
- fr="Applique une formule dans laquelle les variables sont les paramètres de la table",
- FORMULE = SIMP(statut='o',typ=formule,
- fr="Formule à appliquer aux colonnes de la table"),
- NOM_PARA = SIMP(statut='o',typ='TXM',
- fr="Nom de la nouvelle colonne"),
- ),
- ),
-
- SENSIBILITE = SIMP(statut='f',typ=(para_sensi,theta_geom),max=1,
- fr="Paramètre de sensibilité",
- ang="Sensitivity parameter"),
- TITRE = SIMP(statut='f',typ='TXM',max='**',
- fr="Titre de la table produite"),
- INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
-)
-#& MODIF COMMANDE DATE 30/08/2005 AUTEUR ASSIRE A.ASSIRE
+) ;
+#& MODIF COMMANDE DATE 16/05/2006 AUTEUR REZETTE C.REZETTE
+# RESPONSABLE VABHHTS J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2005 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.
+#
+#
# ======================================================================
-# RESPONSABLE ASSIRE A.ASSIRE
-
-DEFI_PART_PA_OPS=OPER(nom="DEFI_PART_PA_OPS",op=29,sd_prod=sd_feti_sdaster,
- fr="Creation partitionnement en sous-domaines pour FETI",
- docu="U4.00.00",reentrant='n',
- UIinfo={"groupes":("Résolution",)},
- MAILLAGE =SIMP(statut='o',typ=(maillage_sdaster,squelette) ),
- MODELE =SIMP(statut='f',typ=(modele_sdaster)),
- NB_PART =SIMP(statut='o',typ='I',),
-
- # Methode de partitionnement
- METHODE =SIMP(statut='f',typ='TXM',into=("PMETIS","SCOTCH","KMETIS",), defaut="SCOTCH" ),
-
- LOGICIEL =SIMP(statut='f',typ='TXM'),
-
- # Corrige les problemes possibles de non-connexite des sous-domaines
- CORRECTION_CONNEX =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON')),
-
- # Permet de grouper des mailles dans un meme sous-doamine
- GROUPAGE =FACT(statut='f',max='**',
- GROUP_MA =SIMP(statut='o',typ=grma,),
- ),
- # Permet d'appliquer des poids sur certaines mailles
- POIDS_MAILLES =FACT(statut='f',max='**',
- GROUP_MA =SIMP(statut='o',typ=grma,),
- POIDS =SIMP(statut='f',typ='I'),
- ),
- # Prefixe pour le nom des group_ma definissant les sous-domaines
- NOM_GROUP_MA =SIMP(statut='f',typ='TXM',defaut='SD' ),
+TEST_RESU=PROC(nom="TEST_RESU",op=23,
+ UIinfo={"groupes":("Impression",)},
+ fr="Extraction d'une valeur d'une structure de donnée et comparaison à une valeur de référence",
+ regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','GENE','OBJET')),
- # Traiter les mailles de bords (elles sont enlevees du graphe puis reinjectees)
- TRAITER_BORDS =SIMP(statut='f',typ='TXM',defaut='OUI',into=('OUI','NON') ),
+ CHAM_NO =FACT(statut='f',max='**',
+ regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
+ EXCLUS('NOEUD','GROUP_NO'),
+ PRESENT_PRESENT('NOEUD','NOM_CMP'),
+ PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
+ UN_PARMI('VALE','VALE_I','VALE_C'),),
+ CHAM_GD =SIMP(statut='o',typ=cham_no_sdaster),
+ NOEUD =SIMP(statut='f',typ=no ),
+ GROUP_NO =SIMP(statut='f',typ=grno ),
+ NOM_CMP =SIMP(statut='f',typ='TXM'),
+ TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
+ VALE =SIMP(statut='f',typ='R'),
+ VALE_I =SIMP(statut='f',typ='I'),
+ VALE_C =SIMP(statut='f',typ='C'),
+ VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
+ "NON_REGRESSION","AUTRE_ASTER")),
+ VERSION =SIMP(statut='f',typ='TXM'),
+ ),
- # Si le mot-clé suivant est renseigné, crée de nouveau group_ma a partir des bords
- # Note : le calcul FETI sera impossible
- b_traiter_bords =BLOC(condition="TRAITER_BORDS == 'OUI'", fr="Crée t on des nouveaux group_ma",
- NOM_GROUP_MA_BORD =SIMP(statut='f',typ='TXM'),
- ),
+ CHAM_ELEM =FACT(statut='f',max='**',
+ regles=(UN_PARMI('MAILLE','TYPE_TEST',),
+ EXCLUS('NOEUD','GROUP_NO','POINT'),
+ PRESENT_PRESENT('NOEUD','NOM_CMP'),
+ PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
+ PRESENT_PRESENT('POINT','NOM_CMP'),
+ UN_PARMI('VALE','VALE_I','VALE_C'), ),
+ CHAM_GD =SIMP(statut='o',typ=cham_elem),
+ MAILLE =SIMP(statut='f',typ=ma),
+ POINT =SIMP(statut='f',typ='I' ),
+ SOUS_POINT =SIMP(statut='f',typ='I'),
+ NOEUD =SIMP(statut='f',typ=no),
+ GROUP_NO =SIMP(statut='f',typ=grno),
+ NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
+ VALE =SIMP(statut='f',typ='R' ),
+ VALE_I =SIMP(statut='f',typ='I' ),
+ VALE_C =SIMP(statut='f',typ='C' ),
+ VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
+ "NON_REGRESSION","AUTRE_ASTER") ),
+ VERSION =SIMP(statut='f',typ='TXM' ),
+ ),
- INFO =SIMP(statut='f',typ='I',into=(1, 2), defaut=1),
+ RESU =FACT(statut='f',max='**',
+ regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
+ UN_PARMI('NOM_CHAM','PARA'),
+ PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
+ PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
+ EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
+ PRESENT_PRESENT('NOEUD','NOM_CMP'),
+ PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
+ PRESENT_PRESENT('POINT','NOM_CMP'),
+ UN_PARMI('VALE','VALE_I','VALE_C'),
+ DERIVABLE('RESULTAT'),),
+ RESULTAT =SIMP(statut='o',typ=resultat_sdaster),
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),
+ fr="Paramètre de sensibilité.",
+ ang="Sensitivity parameter"),
+ NUME_ORDRE =SIMP(statut='f',typ='I'),
+ INST =SIMP(statut='f',typ='R'),
+ FREQ =SIMP(statut='f',typ='R'),
+ NUME_MODE =SIMP(statut='f',typ='I'),
+ NOEUD_CMP =SIMP(statut='f',typ='TXM',min=2,max=2),
+ NOM_CAS =SIMP(statut='f',typ='TXM'),
+ ANGL =SIMP(statut='f',typ='R'),
+ PARA =SIMP(statut='f',typ='TXM'),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
+ NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno ,max='**'),
+ POINT =SIMP(statut='f',typ='I'),
+ SOUS_POINT =SIMP(statut='f',typ='I'),
+ TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
+ VALE =SIMP(statut='f',typ='R'),
+ VALE_I =SIMP(statut='f',typ='I'),
+ VALE_C =SIMP(statut='f',typ='C'),
+ VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=2),
+ PRECISION =SIMP(statut='f',typ='R',max=2),
+ REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
+ "NON_REGRESSION","AUTRE_ASTER",) ),
+ VERSION =SIMP(statut='f',typ='TXM' ),
+ ),
-);
-#& MODIF COMMANDE DATE 13/02/2006 AUTEUR DURAND C.DURAND
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2005 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.
-# ======================================================================
-# ======================================================================
+ GENE =FACT(statut='f',max='**',
+ regles=(UN_PARMI('VALE','VALE_I','VALE_C') ,),
+ RESU_GENE =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
+ b_vect_asse =BLOC(condition = "AsType(RESU_GENE) == vect_asse_gene",
+ NUME_CMP_GENE =SIMP(statut='o',typ='I'),
+ ),
+ b_mode =BLOC(condition = "(AsType(RESU_GENE) == harm_gene) or (AsType(RESU_GENE) == mode_gene)",
+ regles=(UN_PARMI('NUME_ORDRE','FREQ','NUME_MODE'),
+ UN_PARMI('NOM_CHAM','PARA'),
+ PRESENT_PRESENT('NOM_CHAM','NUME_CMP_GENE'),),
+ NOM_CHAM =SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
+ NUME_CMP_GENE =SIMP(statut='f',typ='I'),
+ PARA =SIMP(statut='f',typ='TXM'),
+ NUME_ORDRE =SIMP(statut='f',typ='I'),
+ NUME_MODE =SIMP(statut='f',typ='I'),
+ FREQ =SIMP(statut='f',typ='R'),
+ ),
+ b_tran =BLOC(condition = "AsType(RESU_GENE) == tran_gene",
+ regles=(UN_PARMI('NUME_ORDRE','INST') ,),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',into=C_NOM_CHAM_INTO()),
+ NUME_CMP_GENE =SIMP(statut='o',typ='I'),
+ NUME_ORDRE =SIMP(statut='f',typ='I'),
+ INST =SIMP(statut='f',typ='R'),
+ ),
+ VALE =SIMP(statut='f',typ='R'),
+ VALE_I =SIMP(statut='f',typ='I'),
+ VALE_C =SIMP(statut='f',typ='C'),
+ VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=2),
+ PRECISION =SIMP(statut='f',typ='R',max=2),
+ REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
+ "NON_REGRESSION","AUTRE_ASTER",) ),
+ VERSION =SIMP(statut='f',typ='TXM' ),
+ ),
-MAC_MODES=OPER(nom="MAC_MODES",op= 141,sd_prod=table_sdaster,
- fr="Normalisation de modes propres",
- reentrant='n',
- UIinfo={"groupes":("Résolution",)},
- BASE_1 =SIMP(statut='o',typ=(mode_meca,mode_flamb,base_modale) ),
- BASE_2 =SIMP(statut='o',typ=(mode_meca,mode_flamb,base_modale) ),
- MATR_ASSE =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
- TITRE =SIMP(statut='f',typ='TXM',max='**'),
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
-) ;
-#& MODIF COMMANDE DATE 08/11/2005 AUTEUR ACBHHCD G.DEVESA
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2005 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.
-# ======================================================================
-LIRE_IMPE_MISS=OPER(nom="LIRE_IMPE_MISS",op= 164,sd_prod=matr_asse_gene_c,
- fr="Création d une matrice assemblée à partir de base modale",
- reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- BASE =SIMP(statut='o',typ=base_modale ),
- NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
- FREQ_EXTR =SIMP(statut='o',typ='R',max=1),
- UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
+ OBJET =FACT(statut='f',max='**',
+ 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'),
+ VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
+ REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
+ "NON_REGRESSION","AUTRE_ASTER",) ),
+ VERSION =SIMP(statut='f',typ='TXM' ),
+ ),
) ;
-
-#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2005 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.
# ======================================================================
-LIRE_FORC_MISS=OPER(nom="LIRE_FORC_MISS",op= 179,sd_prod=vect_asse_gene,
- fr="Création d un vecteur assemblé à partir de base modale",
- reentrant='n',
- UIinfo={"groupes":("Matrices/vecteurs",)},
- BASE =SIMP(statut='o',typ=base_modale ),
- NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
- FREQ_EXTR =SIMP(statut='o',typ='R',max=1),
- NOM_CMP =SIMP(statut='o',typ='TXM',into=("DX","DY","DZ") ),
- NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE"),defaut="DEPL"),
- UNITE_RESU_FORC =SIMP(statut='f',typ='I',defaut=30),
-) ;
+# RESPONSABLE VABHHTS J.PELLET
+TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
+ UIinfo={"groupes":("Impression",)},
+ fr="Tester une cellule ou une colonne d'une table",
+ regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),
+ DERIVABLE('TABLE'),),
+# concept table_sdaster à tester
+ TABLE =SIMP(statut='o',typ=table_sdaster),
+
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),
+ fr="Paramètre de sensibilité.",
+ ang="Sensitivity parameter"),
+ FILTRE =FACT(statut='f',max='**',
+ NOM_PARA =SIMP(statut='o',typ='TXM' ),
+ CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
+ into=("EQ","LT","GT","NE","LE","GE","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' ),
+ VALE_I =SIMP(statut='f',typ='I' ),
+ VALE_C =SIMP(statut='f',typ='C' ),
+ VALE_K =SIMP(statut='f',typ='TXM' ),),
-#& MODIF COMMANDE DATE 22/05/2006 AUTEUR REZETTE C.REZETTE
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ ),
+ TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
+ NOM_PARA =SIMP(statut='o',typ='TXM' ),
+ VALE =SIMP(statut='f',typ='R' ),
+ VALE_I =SIMP(statut='f',typ='I' ),
+ VALE_C =SIMP(statut='f',typ='C' ),
+ VALE_ABS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
+ REFERENCE =SIMP(statut='f',typ='TXM',
+ into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
+ b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
+ VERSION =SIMP(statut='f',typ='TXM' ),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
+ ),
+) ;
+#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2006 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.
# ======================================================================
-CALC_G=OPER(nom="CALC_G",op=100,sd_prod=table_sdaster,
- fr="Calcul du taux de restitution d'énergie par la méthode theta en thermo-élasticité"
- +" et les facteurs d'intensité de contraintes.",
- reentrant='f',
- UIinfo={"groupes":("Post traitements",)},
- regles=(UN_PARMI('RESULTAT','DEPL'),
- PRESENT_PRESENT('VITE','ACCE'),
- EXCLUS('COMP_ELAS','COMP_INCR'),
- CONCEPT_SENSIBLE("ENSEMBLE"),
- REUSE_SENSIBLE(),
- DERIVABLE('RESULTAT'),),
- MODELE =SIMP(statut='f',typ=modele_sdaster),
- CHAM_MATER =SIMP(statut='f',typ=cham_mater),
-
- THETA =FACT(statut='o',
- THETA =SIMP(statut='f',typ=(theta_geom,cham_no_sdaster),),
-
- b_theta =BLOC(condition="THETA == None",fr="calcul de theta",
- regles=(UN_PARMI('R_INF','R_INF_FO'),
- EXCLUS('MODULE','MODULE_FO'),
- UN_PARMI('FOND_FISS','FISSURE'),
- PRESENT_PRESENT('R_INF','R_SUP'),
- PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
- R_INF =SIMP(statut='f',typ='R'),
- R_SUP =SIMP(statut='f',typ='R'),
- MODULE =SIMP(statut='f',typ='R'),
- DIRE_THETA =SIMP(statut='f',typ=cham_no_sdaster ),
- DIRECTION =SIMP(statut='f',typ='R',max='**'),
- R_INF_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- R_SUP_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- MODULE_FO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- FOND_FISS =SIMP(statut='f',typ=fond_fiss,max=1),
- FISSURE =SIMP(statut='f',typ=fiss_xfem,max=1),),
- ),
-
- DEPL =SIMP(statut='f',typ=cham_no_sdaster),
- VITE =SIMP(statut='f',typ=cham_no_sdaster),
- ACCE =SIMP(statut='f',typ=cham_no_sdaster),
- RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli,dyna_trans,mode_meca),),
-
- b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
- regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST',
- 'TOUT_MODE','NUME_MODE','LIST_MODE','FREQ','LIST_FREQ',),),
- TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_ORDRE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_ORDRE =SIMP(statut='f',typ=listis_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- TOUT_MODE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
- NUME_MODE =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
- LIST_MODE =SIMP(statut='f',typ=listis_sdaster),
- LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster),
- FREQ =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
-
- b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
- PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,reentrant='f',
+ UIinfo={"groupes":("Résolution",)},
+ fr="Résoudre un problème thermique linéaire stationnaire ou transitoire",
+ regles=(CONCEPT_SENSIBLE('ENSEMBLE'),),
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ EXCIT =FACT(statut='o',max='**',
+ CHARGE =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
+ FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ ),
+ INCREMENT =FACT(statut='f',
+ LIST_INST =SIMP(statut='o',typ=listr8_sdaster ),
+ NUME_INIT =SIMP(statut='f',typ='I'),
+ NUME_FIN =SIMP(statut='f',typ='I'),
+ ),
+ TEMP_INIT =FACT(statut='f',
+ regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
+ STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ EVOL_THER =SIMP(statut='f',typ=evol_ther),
+ CHAM_NO =SIMP(statut='f',typ=cham_no_sdaster),
+ VALE =SIMP(statut='f',typ='R'),
+ NUME_INIT =SIMP(statut='f',typ='I'),
+ ),
+ SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
+ fr="Liste des paramètres de sensibilité.",
+ ang="List of sensitivity parameters",
+ ),
+ SENS_INIT =FACT(statut='f',
+ regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
+ STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ EVOL_THER =SIMP(statut='f',typ=evol_ther),
+ NUME_INIT =SIMP(statut='f',typ='I'),
),
- ),
- EXCIT =FACT(statut='f',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",into=("FIXE",) ),
+ SOLVEUR =FACT(statut='d',
+ 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_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 ),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ 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')),
+ PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,),
+ ),
+ ),
+ PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57),
+ ARCHIVAGE =FACT(statut='f',
+ regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
+ LIST_ARCH =SIMP(statut='f',typ=listis_sdaster),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
+ into=("RELATIF","ABSOLU")),
+ PAS_ARCH =SIMP(statut='f',typ='I'),
+ CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
+ ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**'),
+ INFO =SIMP(statut='f',typ='I',into=(1,2)),
+) ;
+#& 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
+# 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.
+# ======================================================================
+THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,reentrant='f',
+ UIinfo={"groupes":("Résolution",)},
+ fr="Résoudre un problème thermique non linéaire (conditions limites ou comportement matériau)"
+ +" stationnaire ou transitoire" ,
+ regles=(CONCEPT_SENSIBLE('ENSEMBLE'),),
+ MODELE =SIMP(statut='o',typ=(modele_sdaster) ),
+ CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
+ CARA_ELEM =SIMP(statut='c',typ=(cara_elem) ),
+ COMP_THER_NL =FACT(statut='d',max='**',
+ RELATION =SIMP(statut='f',typ='TXM',defaut="THER_NL",
+ into=("THER_NL",
+ "THER_HYDR",
+ "SECH_GRANGER",
+ "SECH_MENSI",
+ "SECH_BAZANT",
+ "SECH_NAPPE"
+ ) ),
+ 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='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
),
- SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
-
- COMP_ELAS =FACT(statut='f',
- RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
- 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",) ),
- GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
- ),
- 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 =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,) ),
- DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
- 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='**'),
- MAILLE =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
+ EVOL_THER_SECH =SIMP(statut='f',typ=evol_ther),
+ EXCIT =FACT(statut='o',max='**',
+ CHARGE =SIMP(statut='o',typ=char_ther),
+ FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
),
- ETAT_INIT =FACT(statut='f',
- SIGM =SIMP(statut='f',typ=cham_elem),
- DEPL =SIMP(statut='f',typ=cham_no_sdaster),
+ INCREMENT =FACT(statut='f',
+ LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
+ NUME_INIT =SIMP(statut='f',typ='I'),
+ NUME_FIN =SIMP(statut='f',typ='I'),
),
-
- LISSAGE =FACT(statut='d',
- DEGRE =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
- LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE"),),
- LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO"),),
+ TEMP_INIT =FACT(statut='f',
+ regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
+ STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ EVOL_THER =SIMP(statut='f',typ=evol_ther),
+ CHAM_NO =SIMP(statut='f',typ=cham_no_sdaster),
+ VALE =SIMP(statut='f',typ='R'),
+ NUME_INIT =SIMP(statut='f',typ='I'),
),
-
- OPTION =SIMP(statut='o',typ='TXM',max=1,defaut='CALC_G',
- into=("CALC_G","CALC_G_GLOB","CALC_K_G","K_G_MODA","G_MAX","G_MAX_GLOB","G_BILI",
- "G_BILI_GLOB","G_LAGR","G_LAGR_GLOB"),),
-
- b_g_max =BLOC(condition="(OPTION=='G_MAX') or (OPTION=='G_MAX_GLOB')",
- BORNES =FACT(statut='o',max='**',
- NUME_ORDRE =SIMP(statut='o',typ='I'),
- VALE_MIN =SIMP(statut='o',typ='R'),
- VALE_MAX =SIMP(statut='o',typ='R'),
- ),
+ NEWTON =FACT(statut='d',
+ REAC_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
+ RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ CONVERGENCE =FACT(statut='d',
+ RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
+ RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
+ ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
),
- PROPAGATION =SIMP(statut='f',typ='R'),
- THETA_LAGR =SIMP(statut='f',typ=theta_geom),
- DIRE_THETA_LAGR =SIMP(statut='f',typ=cham_no_sdaster),
SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
- fr="Liste des paramètres de sensibilité.",
- ang="List of sensitivity parameters"),
-
+ fr="Liste des paramètres de sensibilité.",
+ ang="List of sensitivity parameters",
+ ),
+ SOLVEUR =FACT(statut='d',
+ METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","MUMPS") ),
+ b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres 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="Parametres 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="Parametres relatifs a la non inversibilité de la matrice a 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="Parametres 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 ),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
+ RESI_RELA =SIMP(statut='f',typ='R' ,defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I' ,defaut= 0 ),
+ ),
+ 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')),
+ PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.,),
+ ),
+ SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ ),
+ PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57 ),
+ ARCHIVAGE =FACT(statut='f',
+ regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
+ LIST_ARCH =SIMP(statut='f',typ=(listis_sdaster) ),
+ LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
+ PAS_ARCH =SIMP(statut='f',typ='I'),
+ CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
+ ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
-);
-#& MODIF COMMANDE DATE 09/05/2006 AUTEUR MASSIN P.MASSIN
+ OPTION =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max=2,
+ into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
+ 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 - 2006 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.
# ======================================================================
+THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
+ fr="Résoudre un problème thermique non linéaire (conditions limites ou comportement matériau)"
+ +" stationnaire avec chargement mobile",
+ reentrant='n',
+ UIinfo={"groupes":("Résolution",)},
+ MODELE =SIMP(statut='o',typ=modele_sdaster ),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
+ CARA_ELEM =SIMP(statut='c',typ=cara_elem ),
+ EXCIT =FACT(statut='o',max='**',
+ CHARGE =SIMP(statut='o',typ=char_ther ),
+ FONC_MULT =SIMP(statut='c',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ ),
+ TEMP_INIT =FACT(statut='f',
+ EVOL_THER =SIMP(statut='f',typ=evol_ther ),
+ NUME_INIT =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ CONVERGENCE =FACT(statut='d',
+ CRIT_TEMP_RELA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+ CRIT_ENTH_RELA =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
+ ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
+ ARRET =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
+ ),
+ SOLVEUR =FACT(statut='d',
+ 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 ),
+ RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
+ NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
+ ),
+ SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ ),
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+ INFO =SIMP(statut='f',typ='I',into=(1,2) ),
+) ;
+
-PROPA_XFEM=OPER(nom="PROPA_XFEM",op=10,sd_prod=fiss_xfem,reentrant='n',
- UIinfo={"groupes":("Modélisation",)},
- fr="Propagation de fissure avec X-FEM",
-
- MODELE =SIMP(statut='o',typ=modele_sdaster),
-
- TABLE =SIMP(statut='o',typ=table_sdaster),
- LOI_PROPA =FACT(statut='o',max=01,
- LOI =SIMP(statut='o',typ='TXM',into=("PARIS",),defaut="PARIS"),
- b_paris =BLOC( condition = "LOI=='PARIS'",
- C =SIMP(statut='o',typ='R',),
- M =SIMP(statut='o',typ='R',),),
- ),
- GROUP_MA_ENRI =SIMP(statut='o',typ=grma,max=01),
-
- INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
-) ;
