avec la version v9. Les concepts doivent avoir des méthodes en plus (classe AsBase)
Les classes ASSD et GEOM sont surchargées dans le fichier __init__.py
des packages cataSTA8 et cataSTA7 au lieu de l'etre directement dans le fichier cata.py
Les tests dans le répertoire Tests ont été mis à jour en conséquence.
Le catalogue NEW8 a été mis à niveau avec la version 8.4.5 mais pas les macros.
Des répertoires materiau ont été créés pour chaque version (uniquement pour tests)
sys.modules["Cata"]=sys.modules[__name__]
rep_macro = os.path.dirname(__file__)
sys.path.insert(0,rep_macro)
+
+#compatibilite avec V9
+import Noyau
+import Accas
+class ASSD(Accas.ASSD,Noyau.AsBase):pass
+class GEOM(Accas.GEOM,Noyau.AsBase):pass
+Accas.ASSD=ASSD
+Accas.GEOM=GEOM
+#fin compatibilite
+
from cata import *
from math import ceil
#
__version__="$Name: $"
-__Id__="$Id: cata.py,v 1.3.8.1 2007-04-26 07:56:01 cchris Exp $"
+__Id__="$Id: cata.py,v 1.3.8.2 2007-05-29 17:08:48 cchris Exp $"
#
JdC = JDC_CATA(code='ASTER',
execmodul=None,
regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
AU_MOINS_UN('FIN'),
A_CLASSER(('DEBUT','POURSUITE'),'FIN')))
-#compatibilite avec V9
-import Noyau
-class ASSD(ASSD,Noyau.AsBase):pass
-class GEOM(GEOM,Noyau.AsBase):pass
-#fin compatibilite
# Type le plus general
class entier (ASSD):
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#------------------------------------------------------
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,37.7 *coef0,
+ 50. ,38.6 *coef0,
+ 100. ,39.9 *coef0,
+ 150. ,40.5 *coef0,
+ 200. ,40.5 *coef0,
+ 250. ,40.2 *coef0,
+ 300. ,39.5 *coef0,
+ 350. ,38.7 *coef0,
+ 400. ,37.7 *coef0,
+ 450. ,36.6 *coef0,
+ 500. ,35.5 *coef0,
+ 550. ,34.3 *coef0,
+ 600. ,33.0 *coef0,
+ 650. ,31.8 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.49E+6 *coef1,
+ 50. ,3.59E+6 *coef1,
+ 100. ,3.77E+6 *coef1,
+ 150. ,3.93E+6 *coef1,
+ 200. ,4.09E+6 *coef1,
+ 250. ,4.27E+6 *coef1,
+ 300. ,4.42E+6 *coef1,
+ 350. ,4.60E+6 *coef1,
+ 400. ,4.80E+6 *coef1,
+ 450. ,5.04E+6 *coef1,
+ 500. ,5.35E+6 *coef1,
+ 550. ,5.69E+6 *coef1,
+ 600. ,6.10E+6 *coef1,
+ 650. ,6.65E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,205.E+9 *coef2,
+ 20. ,204.E+9 *coef2,
+ 50. ,203.E+9 *coef2,
+ 100. ,200.E+9 *coef2,
+ 150. ,197.E+9 *coef2,
+ 200. ,193.E+9 *coef2,
+ 250. ,189.E+9 *coef2,
+ 300. ,185.E+9 *coef2,
+ 350. ,180.E+9 *coef2,
+ 400. ,176.E+9 *coef2,
+ 450. ,171.E+9 *coef2,
+ 500. ,166.E+9 *coef2,
+ 550. ,160.E+9 *coef2,
+ 600. ,155.E+9 *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+
+_A3=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 11.22E-6, 50., 11.45E-6,
+ 100., 11.79E-6, 150., 12.14E-6,
+ 200., 12.47E-6, 250., 12.78E-6,
+ 300., 13.08E-6, 350., 13.40E-6,
+ 400., 13.72E-6, 450., 14.02E-6,
+ ))
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ )
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#------------------------------------------------------
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,22.7 *coef0,
+ 50. ,23.1 *coef0,
+ 100. ,23.9 *coef0,
+ 150. ,24.7 *coef0,
+ 200. ,25.5 *coef0,
+ 250. ,26.3 *coef0,
+ 300. ,27.1 *coef0,
+ 350. ,27.9 *coef0,
+ 400. ,28.7 *coef0,
+ 450. ,29.5 *coef0,
+ 500. ,30.3 *coef0,
+ 550. ,31.1 *coef0,
+ 600. ,31.9 *coef0,
+ 650. ,32.7 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.64E+6 *coef1,
+ 50. ,3.73E+6 *coef1,
+ 100. ,3.90E+6 *coef1,
+ 150. ,4.06E+6 *coef1,
+ 200. ,4.22E+6 *coef1,
+ 250. ,4.39E+6 *coef1,
+ 300. ,4.55E+6 *coef1,
+ 350. ,4.70E+6 *coef1,
+ 400. ,4.86E+6 *coef1,
+ 450. ,5.04E+6 *coef1,
+ 500. ,5.21E+6 *coef1,
+ 550. ,5.32E+6 *coef1,
+ 600. ,5.39E+6 *coef1,
+ 650. ,5.37E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,216.5E+9 *coef2,
+ 20. ,215.4E+9 *coef2,
+ 50. ,213.0E+9 *coef2,
+ 100. ,209.4E+9 *coef2,
+ 150. ,206.0E+9 *coef2,
+ 200. ,201.8E+9 *coef2,
+ 250. ,197.5E+9 *coef2,
+ 300. ,193.5E+9 *coef2,
+ 350. ,189.0E+9 *coef2,
+ 400. ,184.5E+9 *coef2,
+ 450. ,179.0E+9 *coef2,
+ 500. ,173.5E+9 *coef2,
+ 550. ,167.0E+9 *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+
+_A3=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 9.42E-6, 50., 9.60E-6,
+ 100., 9.96E-6, 150., 10.20E-6,
+ 200., 10.44E-6, 250., 10.69E-6,
+ 300., 10.95E-6, 350., 11.19E-6,
+ 400., 11.40E-6, 450., 11.59E-6,
+ ))
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ )
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,14.7 *coef0,
+ 50. ,15.2 *coef0,
+ 100. ,15.8 *coef0,
+ 150. ,16.7 *coef0,
+ 200. ,17.2 *coef0,
+ 250. ,18. *coef0,
+ 300. ,18.6 *coef0,
+ 350. ,19.3 *coef0,
+ 400. ,20. *coef0,
+ 450. ,20.5 *coef0,
+ 500. ,21.1 *coef0,
+ 550. ,21.7 *coef0,
+ 600. ,22.2 *coef0,
+ 650. ,22.7 *coef0,
+ 700. ,23.2 *coef0,
+ 750. ,23.7 *coef0,
+ 800. ,24.1 *coef0,
+ 950. ,26.67 *coef0,
+ 1150. ,29.24 *coef0,
+ 1370. ,32.06 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.60E+6 *coef1,
+ 50. ,3.74E+6 *coef1,
+ 100. ,3.90E+6 *coef1,
+ 150. ,4.10E+6 *coef1,
+ 200. ,4.16E+6 *coef1,
+ 250. ,4.27E+6 *coef1,
+ 300. ,4.30E+6 *coef1,
+ 350. ,4.35E+6 *coef1,
+ 400. ,4.39E+6 *coef1,
+ 450. ,4.39E+6 *coef1,
+ 500. ,4.44E+6 *coef1,
+ 550. ,4.47E+6 *coef1,
+ 600. ,4.49E+6 *coef1,
+ 650. ,4.53E+6 *coef1,
+ 700. ,4.58E+6 *coef1,
+ 750. ,4.61E+6 *coef1,
+ 800. ,4.72E+6 *coef1,
+ 1000. ,4.99E+6 *coef1,
+ 1200. ,5.04E+6 *coef1,
+ 1500. ,5.04E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,198.5E+9 *coef2,
+ 20. ,197.E+9 *coef2,
+ 50. ,195.E+9 *coef2,
+ 100. ,191.5E+9 *coef2,
+ 150. ,187.5E+9 *coef2,
+ 200. ,184.E+9 *coef2,
+ 250. ,180.E+9 *coef2,
+ 300. ,176.5E+9 *coef2,
+ 350. ,172.E+9 *coef2,
+ 400. ,168.E+9 *coef2,
+ 450. ,164.E+9 *coef2,
+ 500. ,160.E+9 *coef2,
+ 550. ,155.5E+9 *coef2,
+ 600. ,151.5E+9 *coef2,
+ 700. ,142.5E+9 *coef2,
+ 800. ,130.E+9 *coef2,
+ 1000. ,81.5E+9 *coef2,
+ 1200. ,7.4E+9 *coef2,
+ 1400. ,0. *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+_A3=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 16.4E-6,
+ 50., 16.54E-6, 100., 16.8E-6,
+ 150., 17.04E-6, 200., 17.2E-6,
+ 250., 17.5E-6, 300., 17.7E-6,
+ 350., 17.9E-6, 400., 18.1E-6,
+ 450., 18.24E-6, 500., 18.4E-6,
+ 600., 18.7E-6, 700., 18.9E-6,
+ 800., 19.1E-6, 900., 19.3E-6,
+ 1000., 19.5E-6, 1400., 20.E-6,
+ 1600., 20.2E-6,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 20°C
+#
+
+coef5=1.E ## UNIT -6
+_A5=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 9.39E-4, 185.E+6 *coef5,
+ 1.07E-3, 190.53E+6 *coef5,
+ 1.64E-3, 225.E+6 *coef5,
+ 3.32E-3, 261.E+6 *coef5,
+ 7.45E-3, 287.E+6 *coef5,
+ 0.011, 300.E+6 *coef5,
+ 0.032, 360.E+6 *coef5,
+ 0.05, 404.E+6 *coef5,
+ 0.1, 491.E+6 *coef5,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 200°C
+#
+coef6=1.E ## UNIT -6
+_A6=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 7.61E-4 ,140.E+6 *coef6,
+ 1.E-3 ,150.E+6 *coef6,
+ 2.9E-3 ,168.E+6 *coef6,
+ 4.E-3 ,181.E+6 *coef6,
+ 7.E-3 ,195.E+6 *coef6,
+ 1.E-2 ,205.E+6 *coef6,
+ 0.034 ,276.E+6 *coef6,
+ 0.05 ,303.E+6 *coef6,
+ 0.15 ,450.E+6 *coef6,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 350°C
+#
+coef7=1.E ## UNIT -6
+_A7=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 7.56E-4 ,130.E+6 *coef7,
+ 8.9E-4 ,136.E+6 *coef7,
+ 1.84E-3 ,145.E+6 *coef7,
+ 2.9E-3 ,151.E+6 *coef7,
+ 4.9E-3 ,160.E+6 *coef7,
+ 8.9E-3 ,174.E+6 *coef7,
+ 0.011 ,180.E+6 *coef7,
+ 0.051 ,261.E+6 *coef7,
+ #0.01 ,353.E+6 *coef7,
+ 0.1 ,353.E+6 *coef7,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 400°C
+#
+coef8=1.E ## UNIT -6
+_A8=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 7.14E-4 ,120.E+6 *coef8,
+ 1.E-3 ,125.E+6 *coef8,
+ 2.E-3 ,134.E+6 *coef8,
+ 3.E-3 ,141.E+6 *coef8,
+ 8.E-3 ,157.E+6 *coef8,
+ 19.E-3 ,185.E+6 *coef8,
+ 25.E-3 ,200.E+6 *coef8,
+ 0.05 ,240.E+6 *coef8,
+ 0.1 ,320.E+6 *coef8,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 600°C
+#
+coef9=1.E ## UNIT -6
+_A9=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 5.94E-4 ,90.E+6 *coef9,
+ 1.E-3 ,104.E+6 *coef9,
+ 2.E-3 ,112.E+6 *coef9,
+ 3.E-3 ,119.E+6 *coef9,
+ 6.5E-3 ,131.E+6 *coef9,
+ 1.E-2 ,141.E+6 *coef9,
+ 2.14E-2 ,174.E+6 *coef9,
+ 0.05 ,224.E+6 *coef9,
+ 0.15 ,350.E+6 *coef9,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 800°C
+#
+coefA=1.E ## UNIT -6
+_AA=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 5.77E-4 ,75.E+6 *coefA,
+ 1.5E-3 ,81.E+6 *coefA,
+ 3.E-3 ,92.5E+6 *coefA,
+ 4.E-3 ,95.5E+6 *coefA,
+ 6.E-3 ,104.E+6 *coefA,
+ 0.01 ,115.E+6 *coefA,
+ 0.0278 ,141.E+6 *coefA,
+ 0.05 ,159.E+6 *coefA,
+ 0.1 ,170.E+6 *coefA,
+ ))
+
+#
+# COURBE DE TRACTION
+#
+
+_AB=DEFI_NAPPE(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ PARA=(20.,200.,350.,400.,600.,800., ),
+ FONCTION=(_A5,_A6,_A7,_A8,_A9,_AA, ))
+
+# COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
+
+_AZ=DEFI_FONCTION(NOM_PARA='SIGM',
+ INTERPOL='LOG',
+ VALE=(
+ 180.0E6, 1000000.0 ,
+ 200.0E6, 500000.0 ,
+ 230.0E6, 200000.0 ,
+ 260.0E6, 100000.0 ,
+ 295.0E6, 50000.0 ,
+ 350.0E6, 20000.0 ,
+ 405.0E6, 10000.0 ,
+ 485.0E6, 5000.0 ,
+ 615.0E6, 2000.0 ,
+ 750.0E6, 1000.0 ,
+ 940.0E6, 500.0 ,
+ 1275.0E6, 200.0 ,
+ 1655.0E6, 100.0 ,
+ 2190.0E6, 50.0 ,
+ 3240.0E6, 20.0 ,
+ 4480.0E6, 10.0,
+ ),);
+_BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
+_CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
+ COEF = 1.E ## UNIT -6
+ ),);
+DETRUIRE( CONCEPT =_F( NOM=_AZ), )
+_AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
+
+
+
+# SM EN FONCTION DE LA TEMPERATURE
+
+_BD=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='CONSTANT',
+ VALE=(
+ 20.0,115.0E6,
+ 50.0,115.0E6,
+ 100.0,115.0E6,
+ 150.0,115.0E6,
+ 200.0,109.0E6,
+ 250.0,103.0E6,
+ 300.0,96.0E6,
+ 340.0,94.0E6,
+ 350.0,94.0E6,
+ ))
+_AD=CALC_FONCTION(COMB=_F(FONCTION = _BD,
+ COEF = 1.E ## UNIT -6
+ ),);
+
+# N_KE CONSTANTE EN FAIT
+_AE=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',VALE=(20.,0.3,100.,0.3),)
+
+# M_KE CONSTANTE EN FAIT
+_AF=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',VALE=(20.,1.7,100.,1.7),)
+
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ ),
+ TRACTION=_F( SIGM = _AB, ),
+
+ FATIGUE=_F(WOHLER=_AZ,
+ E_REFE=1.79E11*1.E ## UNIT -6
+ ),
+
+ RCCM_FO=_F( ## SUBST RCCM
+ SM=_AD, ## EVAL _AD
+ N_KE=_AE, ## EVAL _AE
+ M_KE=_AF, ## EVAL _AF
+ )
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#
+# Catalogue MATERIAU de l'acier inoxydable austenitique 316L
+# - Denomination AFNOR : Z2CND1712
+# - Denomination usuelle : A316L
+#
+# LAMBDA EN FONCTION DE LA TEMPERATURE
+#
+coef0=1.E ## UNIT -3
+
+_A0=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,14.0 *coef0,
+ 50. ,14.4 *coef0,
+ 100. ,15.2 *coef0,
+ 150. ,15.8 *coef0,
+ 200. ,16.6 *coef0,
+ 250. ,17.3 *coef0,
+ 300. ,17.9 *coef0,
+ 350. ,18.6 *coef0,
+ 400. ,19.2 *coef0,
+ 450. ,19.9 *coef0,
+ 500. ,20.6 *coef0,
+ 550. ,21.2 *coef0,
+ 600. ,21.8 *coef0,
+ 650. ,22.4 *coef0,
+ 700. ,23.1 *coef0,
+ 750. ,23.7 *coef0,
+ 800. ,24.3 *coef0,
+ 900. ,26.0 *coef0,
+ 1000. ,27.3 *coef0,
+ 1200. ,29.9 *coef0,
+ 1500. ,34.0 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPERATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3598972. *coef1,
+ 50. ,3701799. *coef1,
+ 100. ,3907455. *coef1,
+ 150. ,4010152. *coef1,
+ 200. ,4160401. *coef1,
+ 250. ,4261084. *coef1,
+ 300. ,4292566. *coef1,
+ 350. ,4366197. *coef1,
+ 400. ,4393593. *coef1,
+ 450. ,4422222. *coef1,
+ 500. ,4439655. *coef1,
+ 550. ,4463158. *coef1,
+ 600. ,4494845. *coef1,
+ 650. ,4525252. *coef1,
+ 700. ,4583333. *coef1,
+ 750. ,4637965. *coef1,
+ 800. ,4700193. *coef1,
+ 900. ,4946500. *coef1,
+ 1000. ,4989600. *coef1,
+ 1200. ,5043650. *coef1,
+ 1500. ,5037000. *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPERATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,198500.E+6 *coef2,
+ 20. ,197000.E+6 *coef2,
+ 50. ,195000.E+6 *coef2,
+ 100. ,191500.E+6 *coef2,
+ 150. ,187500.E+6 *coef2,
+ 200. ,184000.E+6 *coef2,
+ 250. ,180000.E+6 *coef2,
+ 300. ,176500.E+6 *coef2,
+ 350. ,172000.E+6 *coef2,
+ 400. ,168000.E+6 *coef2,
+ 450. ,164000.E+6 *coef2,
+ 500. ,160000.E+6 *coef2,
+ 550. ,155500.E+6 *coef2,
+ 600. ,151500.E+6 *coef2,
+ 700. ,142500.E+6 *coef2,
+ 800. ,130000.E+6 *coef2,
+ 900. ,108000.E+6 *coef2,
+ 1000. ,81500.E+6 *coef2,
+ 1100. ,32000.E+6 *coef2,
+ 1200. ,7400.E+6 *coef2,
+ 1300. ,3000.E+6 *coef2,
+ 1400. ,5.E+6 *coef2,
+ ))
+#
+# NU EN FONCTION DE LA TEMPERATURE
+#
+_A3=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPERATURE
+#
+
+_A4=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.0 ,15.4E-6 ,
+ 20.0 ,15.54E-6 ,
+ 50.0 ,15.72E-6 ,
+ 100.0 ,16.0E-6 ,
+ 150.0 ,16.3E-6 ,
+ 200.0 ,16.6E-6 ,
+ 250.0 ,16.86E-6 ,
+ 300.0 ,17.1E-6 ,
+ 350.0 ,17.36E-6 ,
+ 400.0 ,17.6E-6 ,
+ 450.0 ,17.82E-6 ,
+ 500.0 ,18.0E-6 ,
+ 600.0 ,18.4E-6 ,
+ 700.0 ,18.7E-6 ,
+ 800.0 ,19.0E-6 ,
+ 900.0 ,19.2E-6 ,
+ 1000.0 ,19.4E-6 ,
+ 1400.0 ,19.6E-6 ,
+ 1600.0 ,19.7E-6 ,
+ ))
+
+
+#
+# COURBE DE TRACTION A LA TEMPERATURE 20C
+#
+
+coef5=1.E ## UNIT -6
+_TR20=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.08446701E-2 ,166.4E+6 *coef5,
+ 0.09221476E-2 ,177.72307E+6 *coef5,
+ 0.09675755E-2 ,184.702374E+6 *coef5,
+ 0.10035526E-2 ,189.819863E+6 *coef5,
+ 0.10341966E-2 ,193.88674E+6 *coef5,
+ 0.10613920E-2 ,197.274216E+6 *coef5,
+ 0.11091372E-2 ,202.74003E+6 *coef5,
+ 0.11294416E-2 ,202.8E+6 *coef5,
+ 0.13218274E-2 ,221.E+6 *coef5,
+ 0.17010152E-2 ,236.6E+6 *coef5,
+ 0.22670051E-2 ,249.6E+6 *coef5,
+ 0.33197970E-2 ,260.E+6 *coef5,
+ 0.53857868E-2 ,273.E+6 *coef5,
+ 0.74253807E-2 ,280.8E+6 *coef5,
+ 0.94517766E-2 ,286.E+6 *coef5,
+ 1.14913706E-2 ,293.8E+6 *coef5,
+ 1.65573604E-2 ,306.8E+6 *coef5,
+ 2.16101523E-2 ,317.2E+6 *coef5,
+ 3.17289340E-2 ,340.6E+6 *coef5,
+ ))
+
+#
+# COURBE DE TRACTION A LA TEMPERATURE 100C
+#
+coef6=1.E ## UNIT -6
+_TR100=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.07268930E-2 ,139.2E+6 *coef6,
+ 0.10049608E-2 ,173.3E+6 *coef6,
+ 0.20003864E-2 ,200.E+6 *coef6,
+ 0.30757180E-2 ,206.E+6 *coef6,
+ 1.11994778E-2 ,229.7E+6 *coef6,
+ 2.13211488E-2 ,253.E+6 *coef6,
+ 4.15456919E-2 ,296.E+6 *coef6,
+ 6.17545692E-2 ,336.E+6 *coef6,
+ 8.19582245E-2 ,375.E+6 *coef6,
+ 10.2151436E-2 ,412.E+6 *coef6,
+ 15.2647520E-2 ,507.E+6 *coef6,
+ 20.3143603E-2 ,602.E+6 *coef6,
+ ))
+#
+# COURBE DE TRACTION A LA TEMPERATURE 200C
+#
+coef7=1.E ## UNIT -6
+_TR200=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.06271740E-2 ,115.4E+6 *coef7,
+ 0.10631555E-2 ,153.4E+6 *coef7,
+ 0.19565609E-2 ,170.E+6 *coef7,
+ 0.29734414E-2 ,173.E+6 *coef7,
+ 1.11084853E-2 ,197.E+6 *coef7,
+ 2.12435291E-2 ,221.E+6 *coef7,
+ 4.14854828E-2 ,264.E+6 *coef7,
+ 6.17133693E-2 ,304.5E+6 *coef7,
+ 8.19300023E-2 ,343.E+6 *coef7,
+ 10.2149449E-2 ,382.E+6 *coef7,
+ 15.2689624E-2 ,478.E+6 *coef7,
+ 20.3224173E-2 ,573.E+6 *coef7,
+ ))
+#
+# COURBE DE TRACTION A LA TEMPERATURE 300C
+#
+coef8=1.E ## UNIT -6
+_TR300=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.05694051E-2 ,100.5E+6 *coef8,
+ 0.09563739E-2 ,133.5E+6 *coef8,
+ 0.19998584E-2 ,150.E+6 *coef8,
+ 0.28781870E-2 ,155.E+6 *coef8,
+ 1.10254958E-2 ,181.E+6 *coef8,
+ 2.11614731E-2 ,205.E+6 *coef8,
+ 4.14164306E-2 ,250.E+6 *coef8,
+ 6.16430595E-2 ,290.E+6 *coef8,
+ 8.18696884E-2 ,330.E+6 *coef8,
+ 10.2096317E-2 ,370.E+6 *coef8,
+ 15.2623229E-2 ,463.E+6 *coef8,
+ 20.3161473E-2 ,558.E+6 *coef8,
+ ))
+#
+# COURBE DE TRACTION A LA TEMPERATURE 350C
+#
+coef9=1.E ## UNIT -6
+_TR350=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.05558140E-2 ,95.6E+6 *coef9,
+ 0.06134823E-2 ,102.078952E+6 *coef9,
+ 0.06467887E-2 ,106.087661E+6 *coef9,
+ 0.06738779E-2 ,109.026998E+6 *coef9,
+ 0.06974587E-2 ,111.362893E+6 *coef9,
+ 0.07187707E-2 ,113.308561E+6 *coef9,
+ 0.07570231E-2 ,116.447965E+6 *coef9,
+ 0.08008140E-2 ,120.54E+6 *coef9,
+ 0.09520930E-2 ,129.36E+6 *coef9,
+ 0.12862791E-2 ,135.24E+6 *coef9,
+ 0.18204651E-2 ,141.12E+6 *coef9,
+ 0.28546512E-2 ,147.E+6 *coef9,
+ 0.48973837E-2 ,154.35E+6 *coef9,
+ 0.69315698E-2 ,160.23E+6 *coef9,
+ 0.89657558E-2 ,166.11E+6 *coef9,
+ 1.09913953E-2 ,170.52E+6 *coef9,
+ 1.60597674E-2 ,182.28E+6 *coef9,
+ 2.11195930E-2 ,192.57E+6 *coef9,
+ 3.12477907E-2 ,214.62E+6 *coef9,
+ ))
+#
+# COURBE DE TRACTION
+#
+
+_A5=DEFI_NAPPE(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ PARA=(20.,100.,200.,300.,350., ),
+ FONCTION=(_TR20,_TR100,_TR200,_TR300,_TR350))
+
+# COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
+
+_AZ=DEFI_FONCTION(NOM_PARA='SIGM',
+ INTERPOL='LOG',
+ VALE=(
+ 180.0E6, 1000000.0 ,
+ 200.0E6, 500000.0 ,
+ 230.0E6, 200000.0 ,
+ 260.0E6, 100000.0 ,
+ 295.0E6, 50000.0 ,
+ 350.0E6, 20000.0 ,
+ 405.0E6, 10000.0 ,
+ 485.0E6, 5000.0 ,
+ 615.0E6, 2000.0 ,
+ 750.0E6, 1000.0 ,
+ 940.0E6, 500.0 ,
+ 1275.0E6, 200.0 ,
+ 1655.0E6, 100.0 ,
+ 2190.0E6, 50.0 ,
+ 3240.0E6, 20.0 ,
+ 4480.0E6, 10.0,
+ ),);
+_BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
+_CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
+ COEF = 1.E ## UNIT -6
+ ),);
+DETRUIRE( CONCEPT =_F( NOM=_AZ), )
+_AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ ),
+ TRACTION=_F( SIGM = _A5, ),
+
+ FATIGUE=_F(WOHLER=_AZ,
+ E_REFE=2.07E11*1.E ## UNIT -6
+ ),
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#------------------------------------------------------
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,14.0 *coef0,
+ 50. ,14.4 *coef0,
+ 100. ,15.2 *coef0,
+ 150. ,15.8 *coef0,
+ 200. ,16.6 *coef0,
+ 250. ,17.3 *coef0,
+ 300. ,17.9 *coef0,
+ 350. ,18.6 *coef0,
+ 400. ,19.2 *coef0,
+ 450. ,19.9 *coef0,
+ 500. ,20.6 *coef0,
+ 550. ,21.2 *coef0,
+ 600. ,21.8 *coef0,
+ 650. ,22.4 *coef0,
+ 700. ,23.1 *coef0,
+ 750. ,23.7 *coef0,
+ 800. ,24.3 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.60E+6 *coef1,
+ 50. ,3.70E+6 *coef1,
+ 100. ,3.91E+6 *coef1,
+ 150. ,4.01E+6 *coef1,
+ 200. ,4.16E+6 *coef1,
+ 250. ,4.26E+6 *coef1,
+ 300. ,4.29E+6 *coef1,
+ 350. ,4.37E+6 *coef1,
+ 400. ,4.39E+6 *coef1,
+ 450. ,4.42E+6 *coef1,
+ 500. ,4.44E+6 *coef1,
+ 550. ,4.46E+6 *coef1,
+ 600. ,4.49E+6 *coef1,
+ 650. ,4.53E+6 *coef1,
+ 700. ,4.58E+6 *coef1,
+ 750. ,4.64E+6 *coef1,
+ 800. ,4.70E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,198.5E+9 *coef2,
+ 20. ,197.0E+9 *coef2,
+ 50. ,195.0E+9 *coef2,
+ 100. ,191.5E+9 *coef2,
+ 150. ,187.5E+9 *coef2,
+ 200. ,184.0E+9 *coef2,
+ 250. ,180.0E+9 *coef2,
+ 300. ,176.5E+9 *coef2,
+ 350. ,172.0E+9 *coef2,
+ 400. ,168.0E+9 *coef2,
+ 450. ,164.0E+9 *coef2,
+ 500. ,160.0E+9 *coef2,
+ 550. ,155.5E+9 *coef2,
+ 600. ,151.5E+9 *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+
+_A3=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 15.54E-6, 50., 15.72E-6,
+ 100., 16.00E-6, 150., 16.30E-6,
+ 200., 16.60E-6, 250., 16.86E-6,
+ 300., 17.10E-6, 350., 17.36E-6,
+ 400., 17.60E-6, 450., 17.82E-6,
+ ))
+
+
+# COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
+
+_AZ=DEFI_FONCTION(NOM_PARA='SIGM',
+ INTERPOL='LOG',
+ VALE=(
+ 180.0E6, 1000000.0 ,
+ 200.0E6, 500000.0 ,
+ 230.0E6, 200000.0 ,
+ 260.0E6, 100000.0 ,
+ 295.0E6, 50000.0 ,
+ 350.0E6, 20000.0 ,
+ 405.0E6, 10000.0 ,
+ 485.0E6, 5000.0 ,
+ 615.0E6, 2000.0 ,
+ 750.0E6, 1000.0 ,
+ 940.0E6, 500.0 ,
+ 1275.0E6, 200.0 ,
+ 1655.0E6, 100.0 ,
+ 2190.0E6, 50.0 ,
+ 3240.0E6, 20.0 ,
+ 4480.0E6, 10.0,
+ ),);
+_BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
+_CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
+ COEF = 1.E ## UNIT -6
+ ),);
+DETRUIRE( CONCEPT =_F( NOM=_AZ), )
+_AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
+
+
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ ),
+
+ FATIGUE=_F(WOHLER=_AZ,
+ E_REFE=1.79E11*1.E ## UNIT -6
+ ),
+
+ )
+
+#
+
rep_macro = os.path.dirname(__file__)
sys.path.insert(0,rep_macro)
+#compatibilite avec V9
+import Noyau
+import Accas
+class ASSD(Accas.ASSD,Noyau.AsBase):pass
+class GEOM(Accas.GEOM,Noyau.AsBase):pass
+Accas.ASSD=ASSD
+Accas.GEOM=GEOM
+#fin compatibilite
+
from cata import *
from math import ceil
from Extensions import param2
pass
__version__="$Name: $"
-__Id__="$Id: cata.py,v 1.3.8.1 2007-04-26 07:56:01 cchris Exp $"
+__Id__="$Id: cata_aster_v6.py,v 1.12 2001/01/16 15:55:05 iliade Exp $"
EnumTypes = (ListType, TupleType)
regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
AU_MOINS_UN('FIN'),
A_CLASSER(('DEBUT','POURSUITE'),'FIN')))
-#compatibilite avec V9
-import Noyau
-class ASSD(ASSD,Noyau.AsBase):pass
-class GEOM(GEOM,Noyau.AsBase):pass
-#fin compatibilite
-
# Type le plus general
class entier (ASSD):
def __init__(self,valeur=None,**args):
l.append(typ+"_"+gd)
return tuple(l)
-#& MODIF COMMANDE DATE 19/09/2006 AUTEUR A3BHHAE H.ANDRIAMBOLOLONA
+#& MODIF COMMANDE DATE 09/05/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
#============================================================================
COQUE =FACT(statut='f',max='**',
regles=(UN_PARMI('MAILLE','GROUP_MA' ),
- PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
+ PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),
+ EXCLUS('ANGL_REP','VECTEUR'),),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
EPAIS =SIMP(statut='o',typ='R' ),
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
+#& MODIF COMMANDE DATE 08/03/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
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),),
+ FOND_FISS =SIMP(statut='o',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='**',
NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=6,
into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL","TEMP","FLUX_ELNO_TEMP"),),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 05/02/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
),
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),
+ MASS_GENE = SIMP(statut='o', typ=matr_asse_gene_r),
+ RIGI_GENE = SIMP(statut='o', typ=matr_asse_gene_r),
AMOR_REDUIT = SIMP(statut='f',typ='R',max='**'),
LIST_AMOR = SIMP(statut='f',typ=listr8_sdaster ),
),
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
+#& MODIF COMMANDE DATE 04/04/2007 AUTEUR VIVAN L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
#
# USAGE :
# Entrée :
-# - MAILLAGE
# - MODELE
# - CABLE
# - CHAM_MATER
DEFI_CABLE_BP=MACRO(nom="DEFI_CABLE_BP",op=defi_cable_bp_ops,sd_prod=cabl_precont,
fr="Calculer les profils initiaux de tension le long des cables de précontrainte d'une structure en béton",
reentrant='n',UIinfo={"groupe":("Modélisation",)},
- regles=(ENSEMBLE('MAILLAGE','CONE'),),
- MAILLAGE =SIMP(statut='f',typ=maillage_sdaster),
MODELE =SIMP(statut='o',typ=modele_sdaster ),
CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
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
+#& MODIF COMMANDE DATE 08/03/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
NOEUD_ORIG =SIMP(statut='f',typ=no,),
GROUP_NO_ORIG =SIMP(statut='f',typ=grno,),
- MAILLE_ORIG =SIMP(statut='f',typ=ma,),
- GROUP_MA_ORIG =SIMP(statut='f',typ=ma,),
+ NOEUD_EXTR =SIMP(statut='f',typ=no,),
+ GROUP_NO_EXTR =SIMP(statut='f',typ=grno,),
),
FOND_SUP =FACT(statut='f',
GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
NOEUD_ORIG =SIMP(statut='f',typ=no,),
GROUP_NO_ORIG =SIMP(statut='f',typ=grno,),
- MAILLE_ORIG =SIMP(statut='f',typ=ma,),
- GROUP_MA_ORIG =SIMP(statut='f',typ=ma,),
+ NOEUD_EXTR =SIMP(statut='f',typ=no,),
+ GROUP_NO_EXTR =SIMP(statut='f',typ=grno,),
),
LEVRE_SUP =FACT(statut='f',
regles=(UN_PARMI('GROUP_MA','MAILLE'),),
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
+#& MODIF COMMANDE DATE 09/05/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2004 EDF R&D WWW.CODE-ASTER.ORG
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)",
- ),
+ # mots-clés utilisant uniquement aux formats autres que TABLEAU
+ # mais ce serait trop pénible de devoir les supprimer quand on change de format
+ # donc on ne les met pas dans un bloc
+ # "pseudo" bloc mise en forme :
+
LEGENDE =SIMP(statut='f',typ='TXM',
fr="Légende associée à la fonction" ),
STYLE =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
+ # fin bloc mise en 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") ),
UNITE = SIMP(statut='f',typ='I',defaut=38),
AJOUT = SIMP(statut='f', typ='TXM', defaut='NON', into=('OUI', 'NON')),
);
-#& MODIF COMMANDE DATE 06/11/2006 AUTEUR MCOURTOI M.COURTOIS
+#& MODIF COMMANDE DATE 09/05/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
EXCLUS('CHAM_GD','RESULTAT'),),
MAILLAGE =SIMP(statut='f',typ=(maillage_sdaster,squelette)),
- INFO_MAILLAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
CHAM_GD =SIMP(statut='f',typ=cham_gd_sdaster),
RESULTAT =SIMP(statut='f',typ=resultat_sdaster),# CO() sd a creer !!!
+ b_info_med =BLOC(condition="FORMAT=='MED'",
+ INFO_MAILLAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+ ),
+
b_sensibilite =BLOC(condition="RESULTAT != None",
fr="Définition des paramètres de sensibilité",
ang="Definition of sensitivity parameters",
INFO =SIMP(statut='f',typ='I',defaut=2,into=( 1, 2 ) ),
);
-#& MODIF COMMANDE DATE 07/11/2006 AUTEUR DURAND C.DURAND
+#& MODIF COMMANDE DATE 09/01/2007 AUTEUR VIVAN L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2006 EDF R&D WWW.CODE-ASTER.ORG
LIST_INST =SIMP(statut='f',typ=listr8_sdaster ),
LIST_FREQ =SIMP(statut='f',typ=listr8_sdaster ),
FREQ =SIMP(statut='f',typ='R',max='**'),
- NORME =SIMP(statut='f',typ='R',defaut=9.81),
+ NORME =SIMP(statut='o',typ='R'),
RESU =FACT(statut='o',max='**',
regles=(UN_PARMI('RESU_GENE','RESULTAT'),),
RESU_GENE =SIMP(statut='f',typ=tran_gene),
VERSION =SIMP(statut='f',typ='TXM' ),
),
) ;
-#& MODIF COMMANDE DATE 10/10/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 09/05/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
VALE_C =SIMP(statut='f',typ='C',max='**' ),
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 ),
+ PRECISION =SIMP(statut='f',typ='R',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'",
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#------------------------------------------------------
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,37.7 *coef0,
+ 50. ,38.6 *coef0,
+ 100. ,39.9 *coef0,
+ 150. ,40.5 *coef0,
+ 200. ,40.5 *coef0,
+ 250. ,40.2 *coef0,
+ 300. ,39.5 *coef0,
+ 350. ,38.7 *coef0,
+ 400. ,37.7 *coef0,
+ 450. ,36.6 *coef0,
+ 500. ,35.5 *coef0,
+ 550. ,34.3 *coef0,
+ 600. ,33.0 *coef0,
+ 650. ,31.8 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.49E+6 *coef1,
+ 50. ,3.59E+6 *coef1,
+ 100. ,3.77E+6 *coef1,
+ 150. ,3.93E+6 *coef1,
+ 200. ,4.09E+6 *coef1,
+ 250. ,4.27E+6 *coef1,
+ 300. ,4.42E+6 *coef1,
+ 350. ,4.60E+6 *coef1,
+ 400. ,4.80E+6 *coef1,
+ 450. ,5.04E+6 *coef1,
+ 500. ,5.35E+6 *coef1,
+ 550. ,5.69E+6 *coef1,
+ 600. ,6.10E+6 *coef1,
+ 650. ,6.65E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,205.E+9 *coef2,
+ 20. ,204.E+9 *coef2,
+ 50. ,203.E+9 *coef2,
+ 100. ,200.E+9 *coef2,
+ 150. ,197.E+9 *coef2,
+ 200. ,193.E+9 *coef2,
+ 250. ,189.E+9 *coef2,
+ 300. ,185.E+9 *coef2,
+ 350. ,180.E+9 *coef2,
+ 400. ,176.E+9 *coef2,
+ 450. ,171.E+9 *coef2,
+ 500. ,166.E+9 *coef2,
+ 550. ,160.E+9 *coef2,
+ 600. ,155.E+9 *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+
+_A3=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 11.22E-6, 50., 11.45E-6,
+ 100., 11.79E-6, 150., 12.14E-6,
+ 200., 12.47E-6, 250., 12.78E-6,
+ 300., 13.08E-6, 350., 13.40E-6,
+ 400., 13.72E-6, 450., 14.02E-6,
+ ))
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ )
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#------------------------------------------------------
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,22.7 *coef0,
+ 50. ,23.1 *coef0,
+ 100. ,23.9 *coef0,
+ 150. ,24.7 *coef0,
+ 200. ,25.5 *coef0,
+ 250. ,26.3 *coef0,
+ 300. ,27.1 *coef0,
+ 350. ,27.9 *coef0,
+ 400. ,28.7 *coef0,
+ 450. ,29.5 *coef0,
+ 500. ,30.3 *coef0,
+ 550. ,31.1 *coef0,
+ 600. ,31.9 *coef0,
+ 650. ,32.7 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.64E+6 *coef1,
+ 50. ,3.73E+6 *coef1,
+ 100. ,3.90E+6 *coef1,
+ 150. ,4.06E+6 *coef1,
+ 200. ,4.22E+6 *coef1,
+ 250. ,4.39E+6 *coef1,
+ 300. ,4.55E+6 *coef1,
+ 350. ,4.70E+6 *coef1,
+ 400. ,4.86E+6 *coef1,
+ 450. ,5.04E+6 *coef1,
+ 500. ,5.21E+6 *coef1,
+ 550. ,5.32E+6 *coef1,
+ 600. ,5.39E+6 *coef1,
+ 650. ,5.37E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,216.5E+9 *coef2,
+ 20. ,215.4E+9 *coef2,
+ 50. ,213.0E+9 *coef2,
+ 100. ,209.4E+9 *coef2,
+ 150. ,206.0E+9 *coef2,
+ 200. ,201.8E+9 *coef2,
+ 250. ,197.5E+9 *coef2,
+ 300. ,193.5E+9 *coef2,
+ 350. ,189.0E+9 *coef2,
+ 400. ,184.5E+9 *coef2,
+ 450. ,179.0E+9 *coef2,
+ 500. ,173.5E+9 *coef2,
+ 550. ,167.0E+9 *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+
+_A3=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 9.42E-6, 50., 9.60E-6,
+ 100., 9.96E-6, 150., 10.20E-6,
+ 200., 10.44E-6, 250., 10.69E-6,
+ 300., 10.95E-6, 350., 11.19E-6,
+ 400., 11.40E-6, 450., 11.59E-6,
+ ))
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ )
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,14.7 *coef0,
+ 50. ,15.2 *coef0,
+ 100. ,15.8 *coef0,
+ 150. ,16.7 *coef0,
+ 200. ,17.2 *coef0,
+ 250. ,18. *coef0,
+ 300. ,18.6 *coef0,
+ 350. ,19.3 *coef0,
+ 400. ,20. *coef0,
+ 450. ,20.5 *coef0,
+ 500. ,21.1 *coef0,
+ 550. ,21.7 *coef0,
+ 600. ,22.2 *coef0,
+ 650. ,22.7 *coef0,
+ 700. ,23.2 *coef0,
+ 750. ,23.7 *coef0,
+ 800. ,24.1 *coef0,
+ 950. ,26.67 *coef0,
+ 1150. ,29.24 *coef0,
+ 1370. ,32.06 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.60E+6 *coef1,
+ 50. ,3.74E+6 *coef1,
+ 100. ,3.90E+6 *coef1,
+ 150. ,4.10E+6 *coef1,
+ 200. ,4.16E+6 *coef1,
+ 250. ,4.27E+6 *coef1,
+ 300. ,4.30E+6 *coef1,
+ 350. ,4.35E+6 *coef1,
+ 400. ,4.39E+6 *coef1,
+ 450. ,4.39E+6 *coef1,
+ 500. ,4.44E+6 *coef1,
+ 550. ,4.47E+6 *coef1,
+ 600. ,4.49E+6 *coef1,
+ 650. ,4.53E+6 *coef1,
+ 700. ,4.58E+6 *coef1,
+ 750. ,4.61E+6 *coef1,
+ 800. ,4.72E+6 *coef1,
+ 1000. ,4.99E+6 *coef1,
+ 1200. ,5.04E+6 *coef1,
+ 1500. ,5.04E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,198.5E+9 *coef2,
+ 20. ,197.E+9 *coef2,
+ 50. ,195.E+9 *coef2,
+ 100. ,191.5E+9 *coef2,
+ 150. ,187.5E+9 *coef2,
+ 200. ,184.E+9 *coef2,
+ 250. ,180.E+9 *coef2,
+ 300. ,176.5E+9 *coef2,
+ 350. ,172.E+9 *coef2,
+ 400. ,168.E+9 *coef2,
+ 450. ,164.E+9 *coef2,
+ 500. ,160.E+9 *coef2,
+ 550. ,155.5E+9 *coef2,
+ 600. ,151.5E+9 *coef2,
+ 700. ,142.5E+9 *coef2,
+ 800. ,130.E+9 *coef2,
+ 1000. ,81.5E+9 *coef2,
+ 1200. ,7.4E+9 *coef2,
+ 1400. ,0. *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+_A3=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 16.4E-6,
+ 50., 16.54E-6, 100., 16.8E-6,
+ 150., 17.04E-6, 200., 17.2E-6,
+ 250., 17.5E-6, 300., 17.7E-6,
+ 350., 17.9E-6, 400., 18.1E-6,
+ 450., 18.24E-6, 500., 18.4E-6,
+ 600., 18.7E-6, 700., 18.9E-6,
+ 800., 19.1E-6, 900., 19.3E-6,
+ 1000., 19.5E-6, 1400., 20.E-6,
+ 1600., 20.2E-6,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 20°C
+#
+
+coef5=1.E ## UNIT -6
+_A5=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 9.39E-4, 185.E+6 *coef5,
+ 1.07E-3, 190.53E+6 *coef5,
+ 1.64E-3, 225.E+6 *coef5,
+ 3.32E-3, 261.E+6 *coef5,
+ 7.45E-3, 287.E+6 *coef5,
+ 0.011, 300.E+6 *coef5,
+ 0.032, 360.E+6 *coef5,
+ 0.05, 404.E+6 *coef5,
+ 0.1, 491.E+6 *coef5,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 200°C
+#
+coef6=1.E ## UNIT -6
+_A6=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 7.61E-4 ,140.E+6 *coef6,
+ 1.E-3 ,150.E+6 *coef6,
+ 2.9E-3 ,168.E+6 *coef6,
+ 4.E-3 ,181.E+6 *coef6,
+ 7.E-3 ,195.E+6 *coef6,
+ 1.E-2 ,205.E+6 *coef6,
+ 0.034 ,276.E+6 *coef6,
+ 0.05 ,303.E+6 *coef6,
+ 0.15 ,450.E+6 *coef6,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 350°C
+#
+coef7=1.E ## UNIT -6
+_A7=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 7.56E-4 ,130.E+6 *coef7,
+ 8.9E-4 ,136.E+6 *coef7,
+ 1.84E-3 ,145.E+6 *coef7,
+ 2.9E-3 ,151.E+6 *coef7,
+ 4.9E-3 ,160.E+6 *coef7,
+ 8.9E-3 ,174.E+6 *coef7,
+ 0.011 ,180.E+6 *coef7,
+ 0.051 ,261.E+6 *coef7,
+ #0.01 ,353.E+6 *coef7,
+ 0.1 ,353.E+6 *coef7,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 400°C
+#
+coef8=1.E ## UNIT -6
+_A8=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 7.14E-4 ,120.E+6 *coef8,
+ 1.E-3 ,125.E+6 *coef8,
+ 2.E-3 ,134.E+6 *coef8,
+ 3.E-3 ,141.E+6 *coef8,
+ 8.E-3 ,157.E+6 *coef8,
+ 19.E-3 ,185.E+6 *coef8,
+ 25.E-3 ,200.E+6 *coef8,
+ 0.05 ,240.E+6 *coef8,
+ 0.1 ,320.E+6 *coef8,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 600°C
+#
+coef9=1.E ## UNIT -6
+_A9=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 5.94E-4 ,90.E+6 *coef9,
+ 1.E-3 ,104.E+6 *coef9,
+ 2.E-3 ,112.E+6 *coef9,
+ 3.E-3 ,119.E+6 *coef9,
+ 6.5E-3 ,131.E+6 *coef9,
+ 1.E-2 ,141.E+6 *coef9,
+ 2.14E-2 ,174.E+6 *coef9,
+ 0.05 ,224.E+6 *coef9,
+ 0.15 ,350.E+6 *coef9,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 800°C
+#
+coefA=1.E ## UNIT -6
+_AA=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 5.77E-4 ,75.E+6 *coefA,
+ 1.5E-3 ,81.E+6 *coefA,
+ 3.E-3 ,92.5E+6 *coefA,
+ 4.E-3 ,95.5E+6 *coefA,
+ 6.E-3 ,104.E+6 *coefA,
+ 0.01 ,115.E+6 *coefA,
+ 0.0278 ,141.E+6 *coefA,
+ 0.05 ,159.E+6 *coefA,
+ 0.1 ,170.E+6 *coefA,
+ ))
+
+#
+# COURBE DE TRACTION
+#
+
+_AB=DEFI_NAPPE(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ PARA=(20.,200.,350.,400.,600.,800., ),
+ FONCTION=(_A5,_A6,_A7,_A8,_A9,_AA, ))
+
+# COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
+
+_AZ=DEFI_FONCTION(NOM_PARA='SIGM',
+ INTERPOL='LOG',
+ VALE=(
+ 180.0E6, 1000000.0 ,
+ 200.0E6, 500000.0 ,
+ 230.0E6, 200000.0 ,
+ 260.0E6, 100000.0 ,
+ 295.0E6, 50000.0 ,
+ 350.0E6, 20000.0 ,
+ 405.0E6, 10000.0 ,
+ 485.0E6, 5000.0 ,
+ 615.0E6, 2000.0 ,
+ 750.0E6, 1000.0 ,
+ 940.0E6, 500.0 ,
+ 1275.0E6, 200.0 ,
+ 1655.0E6, 100.0 ,
+ 2190.0E6, 50.0 ,
+ 3240.0E6, 20.0 ,
+ 4480.0E6, 10.0,
+ ),);
+_BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
+_CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
+ COEF = 1.E ## UNIT -6
+ ),);
+DETRUIRE( CONCEPT =_F( NOM=_AZ), )
+_AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
+
+
+
+# SM EN FONCTION DE LA TEMPERATURE
+
+_BD=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='CONSTANT',
+ VALE=(
+ 20.0,115.0E6,
+ 50.0,115.0E6,
+ 100.0,115.0E6,
+ 150.0,115.0E6,
+ 200.0,109.0E6,
+ 250.0,103.0E6,
+ 300.0,96.0E6,
+ 340.0,94.0E6,
+ 350.0,94.0E6,
+ ))
+_AD=CALC_FONCTION(COMB=_F(FONCTION = _BD,
+ COEF = 1.E ## UNIT -6
+ ),);
+
+# N_KE CONSTANTE EN FAIT
+_AE=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',VALE=(20.,0.3,100.,0.3),)
+
+# M_KE CONSTANTE EN FAIT
+_AF=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',VALE=(20.,1.7,100.,1.7),)
+
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ ),
+ TRACTION=_F( SIGM = _AB, ),
+
+ FATIGUE=_F(WOHLER=_AZ,
+ E_REFE=1.79E11*1.E ## UNIT -6
+ ),
+
+ RCCM_FO=_F( ## SUBST RCCM
+ SM=_AD, ## EVAL _AD
+ N_KE=_AE, ## EVAL _AE
+ M_KE=_AF, ## EVAL _AF
+ )
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#
+# Catalogue MATERIAU de l'acier inoxydable austenitique 316L
+# - Denomination AFNOR : Z2CND1712
+# - Denomination usuelle : A316L
+#
+# LAMBDA EN FONCTION DE LA TEMPERATURE
+#
+coef0=1.E ## UNIT -3
+
+_A0=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,14.0 *coef0,
+ 50. ,14.4 *coef0,
+ 100. ,15.2 *coef0,
+ 150. ,15.8 *coef0,
+ 200. ,16.6 *coef0,
+ 250. ,17.3 *coef0,
+ 300. ,17.9 *coef0,
+ 350. ,18.6 *coef0,
+ 400. ,19.2 *coef0,
+ 450. ,19.9 *coef0,
+ 500. ,20.6 *coef0,
+ 550. ,21.2 *coef0,
+ 600. ,21.8 *coef0,
+ 650. ,22.4 *coef0,
+ 700. ,23.1 *coef0,
+ 750. ,23.7 *coef0,
+ 800. ,24.3 *coef0,
+ 900. ,26.0 *coef0,
+ 1000. ,27.3 *coef0,
+ 1200. ,29.9 *coef0,
+ 1500. ,34.0 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPERATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3598972. *coef1,
+ 50. ,3701799. *coef1,
+ 100. ,3907455. *coef1,
+ 150. ,4010152. *coef1,
+ 200. ,4160401. *coef1,
+ 250. ,4261084. *coef1,
+ 300. ,4292566. *coef1,
+ 350. ,4366197. *coef1,
+ 400. ,4393593. *coef1,
+ 450. ,4422222. *coef1,
+ 500. ,4439655. *coef1,
+ 550. ,4463158. *coef1,
+ 600. ,4494845. *coef1,
+ 650. ,4525252. *coef1,
+ 700. ,4583333. *coef1,
+ 750. ,4637965. *coef1,
+ 800. ,4700193. *coef1,
+ 900. ,4946500. *coef1,
+ 1000. ,4989600. *coef1,
+ 1200. ,5043650. *coef1,
+ 1500. ,5037000. *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPERATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,198500.E+6 *coef2,
+ 20. ,197000.E+6 *coef2,
+ 50. ,195000.E+6 *coef2,
+ 100. ,191500.E+6 *coef2,
+ 150. ,187500.E+6 *coef2,
+ 200. ,184000.E+6 *coef2,
+ 250. ,180000.E+6 *coef2,
+ 300. ,176500.E+6 *coef2,
+ 350. ,172000.E+6 *coef2,
+ 400. ,168000.E+6 *coef2,
+ 450. ,164000.E+6 *coef2,
+ 500. ,160000.E+6 *coef2,
+ 550. ,155500.E+6 *coef2,
+ 600. ,151500.E+6 *coef2,
+ 700. ,142500.E+6 *coef2,
+ 800. ,130000.E+6 *coef2,
+ 900. ,108000.E+6 *coef2,
+ 1000. ,81500.E+6 *coef2,
+ 1100. ,32000.E+6 *coef2,
+ 1200. ,7400.E+6 *coef2,
+ 1300. ,3000.E+6 *coef2,
+ 1400. ,5.E+6 *coef2,
+ ))
+#
+# NU EN FONCTION DE LA TEMPERATURE
+#
+_A3=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPERATURE
+#
+
+_A4=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.0 ,15.4E-6 ,
+ 20.0 ,15.54E-6 ,
+ 50.0 ,15.72E-6 ,
+ 100.0 ,16.0E-6 ,
+ 150.0 ,16.3E-6 ,
+ 200.0 ,16.6E-6 ,
+ 250.0 ,16.86E-6 ,
+ 300.0 ,17.1E-6 ,
+ 350.0 ,17.36E-6 ,
+ 400.0 ,17.6E-6 ,
+ 450.0 ,17.82E-6 ,
+ 500.0 ,18.0E-6 ,
+ 600.0 ,18.4E-6 ,
+ 700.0 ,18.7E-6 ,
+ 800.0 ,19.0E-6 ,
+ 900.0 ,19.2E-6 ,
+ 1000.0 ,19.4E-6 ,
+ 1400.0 ,19.6E-6 ,
+ 1600.0 ,19.7E-6 ,
+ ))
+
+
+#
+# COURBE DE TRACTION A LA TEMPERATURE 20C
+#
+
+coef5=1.E ## UNIT -6
+_TR20=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.08446701E-2 ,166.4E+6 *coef5,
+ 0.09221476E-2 ,177.72307E+6 *coef5,
+ 0.09675755E-2 ,184.702374E+6 *coef5,
+ 0.10035526E-2 ,189.819863E+6 *coef5,
+ 0.10341966E-2 ,193.88674E+6 *coef5,
+ 0.10613920E-2 ,197.274216E+6 *coef5,
+ 0.11091372E-2 ,202.74003E+6 *coef5,
+ 0.11294416E-2 ,202.8E+6 *coef5,
+ 0.13218274E-2 ,221.E+6 *coef5,
+ 0.17010152E-2 ,236.6E+6 *coef5,
+ 0.22670051E-2 ,249.6E+6 *coef5,
+ 0.33197970E-2 ,260.E+6 *coef5,
+ 0.53857868E-2 ,273.E+6 *coef5,
+ 0.74253807E-2 ,280.8E+6 *coef5,
+ 0.94517766E-2 ,286.E+6 *coef5,
+ 1.14913706E-2 ,293.8E+6 *coef5,
+ 1.65573604E-2 ,306.8E+6 *coef5,
+ 2.16101523E-2 ,317.2E+6 *coef5,
+ 3.17289340E-2 ,340.6E+6 *coef5,
+ ))
+
+#
+# COURBE DE TRACTION A LA TEMPERATURE 100C
+#
+coef6=1.E ## UNIT -6
+_TR100=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.07268930E-2 ,139.2E+6 *coef6,
+ 0.10049608E-2 ,173.3E+6 *coef6,
+ 0.20003864E-2 ,200.E+6 *coef6,
+ 0.30757180E-2 ,206.E+6 *coef6,
+ 1.11994778E-2 ,229.7E+6 *coef6,
+ 2.13211488E-2 ,253.E+6 *coef6,
+ 4.15456919E-2 ,296.E+6 *coef6,
+ 6.17545692E-2 ,336.E+6 *coef6,
+ 8.19582245E-2 ,375.E+6 *coef6,
+ 10.2151436E-2 ,412.E+6 *coef6,
+ 15.2647520E-2 ,507.E+6 *coef6,
+ 20.3143603E-2 ,602.E+6 *coef6,
+ ))
+#
+# COURBE DE TRACTION A LA TEMPERATURE 200C
+#
+coef7=1.E ## UNIT -6
+_TR200=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.06271740E-2 ,115.4E+6 *coef7,
+ 0.10631555E-2 ,153.4E+6 *coef7,
+ 0.19565609E-2 ,170.E+6 *coef7,
+ 0.29734414E-2 ,173.E+6 *coef7,
+ 1.11084853E-2 ,197.E+6 *coef7,
+ 2.12435291E-2 ,221.E+6 *coef7,
+ 4.14854828E-2 ,264.E+6 *coef7,
+ 6.17133693E-2 ,304.5E+6 *coef7,
+ 8.19300023E-2 ,343.E+6 *coef7,
+ 10.2149449E-2 ,382.E+6 *coef7,
+ 15.2689624E-2 ,478.E+6 *coef7,
+ 20.3224173E-2 ,573.E+6 *coef7,
+ ))
+#
+# COURBE DE TRACTION A LA TEMPERATURE 300C
+#
+coef8=1.E ## UNIT -6
+_TR300=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.05694051E-2 ,100.5E+6 *coef8,
+ 0.09563739E-2 ,133.5E+6 *coef8,
+ 0.19998584E-2 ,150.E+6 *coef8,
+ 0.28781870E-2 ,155.E+6 *coef8,
+ 1.10254958E-2 ,181.E+6 *coef8,
+ 2.11614731E-2 ,205.E+6 *coef8,
+ 4.14164306E-2 ,250.E+6 *coef8,
+ 6.16430595E-2 ,290.E+6 *coef8,
+ 8.18696884E-2 ,330.E+6 *coef8,
+ 10.2096317E-2 ,370.E+6 *coef8,
+ 15.2623229E-2 ,463.E+6 *coef8,
+ 20.3161473E-2 ,558.E+6 *coef8,
+ ))
+#
+# COURBE DE TRACTION A LA TEMPERATURE 350C
+#
+coef9=1.E ## UNIT -6
+_TR350=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.05558140E-2 ,95.6E+6 *coef9,
+ 0.06134823E-2 ,102.078952E+6 *coef9,
+ 0.06467887E-2 ,106.087661E+6 *coef9,
+ 0.06738779E-2 ,109.026998E+6 *coef9,
+ 0.06974587E-2 ,111.362893E+6 *coef9,
+ 0.07187707E-2 ,113.308561E+6 *coef9,
+ 0.07570231E-2 ,116.447965E+6 *coef9,
+ 0.08008140E-2 ,120.54E+6 *coef9,
+ 0.09520930E-2 ,129.36E+6 *coef9,
+ 0.12862791E-2 ,135.24E+6 *coef9,
+ 0.18204651E-2 ,141.12E+6 *coef9,
+ 0.28546512E-2 ,147.E+6 *coef9,
+ 0.48973837E-2 ,154.35E+6 *coef9,
+ 0.69315698E-2 ,160.23E+6 *coef9,
+ 0.89657558E-2 ,166.11E+6 *coef9,
+ 1.09913953E-2 ,170.52E+6 *coef9,
+ 1.60597674E-2 ,182.28E+6 *coef9,
+ 2.11195930E-2 ,192.57E+6 *coef9,
+ 3.12477907E-2 ,214.62E+6 *coef9,
+ ))
+#
+# COURBE DE TRACTION
+#
+
+_A5=DEFI_NAPPE(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ PARA=(20.,100.,200.,300.,350., ),
+ FONCTION=(_TR20,_TR100,_TR200,_TR300,_TR350))
+
+# COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
+
+_AZ=DEFI_FONCTION(NOM_PARA='SIGM',
+ INTERPOL='LOG',
+ VALE=(
+ 180.0E6, 1000000.0 ,
+ 200.0E6, 500000.0 ,
+ 230.0E6, 200000.0 ,
+ 260.0E6, 100000.0 ,
+ 295.0E6, 50000.0 ,
+ 350.0E6, 20000.0 ,
+ 405.0E6, 10000.0 ,
+ 485.0E6, 5000.0 ,
+ 615.0E6, 2000.0 ,
+ 750.0E6, 1000.0 ,
+ 940.0E6, 500.0 ,
+ 1275.0E6, 200.0 ,
+ 1655.0E6, 100.0 ,
+ 2190.0E6, 50.0 ,
+ 3240.0E6, 20.0 ,
+ 4480.0E6, 10.0,
+ ),);
+_BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
+_CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
+ COEF = 1.E ## UNIT -6
+ ),);
+DETRUIRE( CONCEPT =_F( NOM=_AZ), )
+_AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ ),
+ TRACTION=_F( SIGM = _A5, ),
+
+ FATIGUE=_F(WOHLER=_AZ,
+ E_REFE=2.07E11*1.E ## UNIT -6
+ ),
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#------------------------------------------------------
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,14.0 *coef0,
+ 50. ,14.4 *coef0,
+ 100. ,15.2 *coef0,
+ 150. ,15.8 *coef0,
+ 200. ,16.6 *coef0,
+ 250. ,17.3 *coef0,
+ 300. ,17.9 *coef0,
+ 350. ,18.6 *coef0,
+ 400. ,19.2 *coef0,
+ 450. ,19.9 *coef0,
+ 500. ,20.6 *coef0,
+ 550. ,21.2 *coef0,
+ 600. ,21.8 *coef0,
+ 650. ,22.4 *coef0,
+ 700. ,23.1 *coef0,
+ 750. ,23.7 *coef0,
+ 800. ,24.3 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.60E+6 *coef1,
+ 50. ,3.70E+6 *coef1,
+ 100. ,3.91E+6 *coef1,
+ 150. ,4.01E+6 *coef1,
+ 200. ,4.16E+6 *coef1,
+ 250. ,4.26E+6 *coef1,
+ 300. ,4.29E+6 *coef1,
+ 350. ,4.37E+6 *coef1,
+ 400. ,4.39E+6 *coef1,
+ 450. ,4.42E+6 *coef1,
+ 500. ,4.44E+6 *coef1,
+ 550. ,4.46E+6 *coef1,
+ 600. ,4.49E+6 *coef1,
+ 650. ,4.53E+6 *coef1,
+ 700. ,4.58E+6 *coef1,
+ 750. ,4.64E+6 *coef1,
+ 800. ,4.70E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,198.5E+9 *coef2,
+ 20. ,197.0E+9 *coef2,
+ 50. ,195.0E+9 *coef2,
+ 100. ,191.5E+9 *coef2,
+ 150. ,187.5E+9 *coef2,
+ 200. ,184.0E+9 *coef2,
+ 250. ,180.0E+9 *coef2,
+ 300. ,176.5E+9 *coef2,
+ 350. ,172.0E+9 *coef2,
+ 400. ,168.0E+9 *coef2,
+ 450. ,164.0E+9 *coef2,
+ 500. ,160.0E+9 *coef2,
+ 550. ,155.5E+9 *coef2,
+ 600. ,151.5E+9 *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+
+_A3=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 15.54E-6, 50., 15.72E-6,
+ 100., 16.00E-6, 150., 16.30E-6,
+ 200., 16.60E-6, 250., 16.86E-6,
+ 300., 17.10E-6, 350., 17.36E-6,
+ 400., 17.60E-6, 450., 17.82E-6,
+ ))
+
+
+# COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
+
+_AZ=DEFI_FONCTION(NOM_PARA='SIGM',
+ INTERPOL='LOG',
+ VALE=(
+ 180.0E6, 1000000.0 ,
+ 200.0E6, 500000.0 ,
+ 230.0E6, 200000.0 ,
+ 260.0E6, 100000.0 ,
+ 295.0E6, 50000.0 ,
+ 350.0E6, 20000.0 ,
+ 405.0E6, 10000.0 ,
+ 485.0E6, 5000.0 ,
+ 615.0E6, 2000.0 ,
+ 750.0E6, 1000.0 ,
+ 940.0E6, 500.0 ,
+ 1275.0E6, 200.0 ,
+ 1655.0E6, 100.0 ,
+ 2190.0E6, 50.0 ,
+ 3240.0E6, 20.0 ,
+ 4480.0E6, 10.0,
+ ),);
+_BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
+_CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
+ COEF = 1.E ## UNIT -6
+ ),);
+DETRUIRE( CONCEPT =_F( NOM=_AZ), )
+_AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
+
+
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ ),
+
+ FATIGUE=_F(WOHLER=_AZ,
+ E_REFE=1.79E11*1.E ## UNIT -6
+ ),
+
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#------------------------------------------------------
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,37.7 *coef0,
+ 50. ,38.6 *coef0,
+ 100. ,39.9 *coef0,
+ 150. ,40.5 *coef0,
+ 200. ,40.5 *coef0,
+ 250. ,40.2 *coef0,
+ 300. ,39.5 *coef0,
+ 350. ,38.7 *coef0,
+ 400. ,37.7 *coef0,
+ 450. ,36.6 *coef0,
+ 500. ,35.5 *coef0,
+ 550. ,34.3 *coef0,
+ 600. ,33.0 *coef0,
+ 650. ,31.8 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.49E+6 *coef1,
+ 50. ,3.59E+6 *coef1,
+ 100. ,3.77E+6 *coef1,
+ 150. ,3.93E+6 *coef1,
+ 200. ,4.09E+6 *coef1,
+ 250. ,4.27E+6 *coef1,
+ 300. ,4.42E+6 *coef1,
+ 350. ,4.60E+6 *coef1,
+ 400. ,4.80E+6 *coef1,
+ 450. ,5.04E+6 *coef1,
+ 500. ,5.35E+6 *coef1,
+ 550. ,5.69E+6 *coef1,
+ 600. ,6.10E+6 *coef1,
+ 650. ,6.65E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,205.E+9 *coef2,
+ 20. ,204.E+9 *coef2,
+ 50. ,203.E+9 *coef2,
+ 100. ,200.E+9 *coef2,
+ 150. ,197.E+9 *coef2,
+ 200. ,193.E+9 *coef2,
+ 250. ,189.E+9 *coef2,
+ 300. ,185.E+9 *coef2,
+ 350. ,180.E+9 *coef2,
+ 400. ,176.E+9 *coef2,
+ 450. ,171.E+9 *coef2,
+ 500. ,166.E+9 *coef2,
+ 550. ,160.E+9 *coef2,
+ 600. ,155.E+9 *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+
+_A3=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 11.22E-6, 50., 11.45E-6,
+ 100., 11.79E-6, 150., 12.14E-6,
+ 200., 12.47E-6, 250., 12.78E-6,
+ 300., 13.08E-6, 350., 13.40E-6,
+ 400., 13.72E-6, 450., 14.02E-6,
+ ))
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ )
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#------------------------------------------------------
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,22.7 *coef0,
+ 50. ,23.1 *coef0,
+ 100. ,23.9 *coef0,
+ 150. ,24.7 *coef0,
+ 200. ,25.5 *coef0,
+ 250. ,26.3 *coef0,
+ 300. ,27.1 *coef0,
+ 350. ,27.9 *coef0,
+ 400. ,28.7 *coef0,
+ 450. ,29.5 *coef0,
+ 500. ,30.3 *coef0,
+ 550. ,31.1 *coef0,
+ 600. ,31.9 *coef0,
+ 650. ,32.7 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.64E+6 *coef1,
+ 50. ,3.73E+6 *coef1,
+ 100. ,3.90E+6 *coef1,
+ 150. ,4.06E+6 *coef1,
+ 200. ,4.22E+6 *coef1,
+ 250. ,4.39E+6 *coef1,
+ 300. ,4.55E+6 *coef1,
+ 350. ,4.70E+6 *coef1,
+ 400. ,4.86E+6 *coef1,
+ 450. ,5.04E+6 *coef1,
+ 500. ,5.21E+6 *coef1,
+ 550. ,5.32E+6 *coef1,
+ 600. ,5.39E+6 *coef1,
+ 650. ,5.37E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,216.5E+9 *coef2,
+ 20. ,215.4E+9 *coef2,
+ 50. ,213.0E+9 *coef2,
+ 100. ,209.4E+9 *coef2,
+ 150. ,206.0E+9 *coef2,
+ 200. ,201.8E+9 *coef2,
+ 250. ,197.5E+9 *coef2,
+ 300. ,193.5E+9 *coef2,
+ 350. ,189.0E+9 *coef2,
+ 400. ,184.5E+9 *coef2,
+ 450. ,179.0E+9 *coef2,
+ 500. ,173.5E+9 *coef2,
+ 550. ,167.0E+9 *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+
+_A3=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 9.42E-6, 50., 9.60E-6,
+ 100., 9.96E-6, 150., 10.20E-6,
+ 200., 10.44E-6, 250., 10.69E-6,
+ 300., 10.95E-6, 350., 11.19E-6,
+ 400., 11.40E-6, 450., 11.59E-6,
+ ))
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ )
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,14.7 *coef0,
+ 50. ,15.2 *coef0,
+ 100. ,15.8 *coef0,
+ 150. ,16.7 *coef0,
+ 200. ,17.2 *coef0,
+ 250. ,18. *coef0,
+ 300. ,18.6 *coef0,
+ 350. ,19.3 *coef0,
+ 400. ,20. *coef0,
+ 450. ,20.5 *coef0,
+ 500. ,21.1 *coef0,
+ 550. ,21.7 *coef0,
+ 600. ,22.2 *coef0,
+ 650. ,22.7 *coef0,
+ 700. ,23.2 *coef0,
+ 750. ,23.7 *coef0,
+ 800. ,24.1 *coef0,
+ 950. ,26.67 *coef0,
+ 1150. ,29.24 *coef0,
+ 1370. ,32.06 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.60E+6 *coef1,
+ 50. ,3.74E+6 *coef1,
+ 100. ,3.90E+6 *coef1,
+ 150. ,4.10E+6 *coef1,
+ 200. ,4.16E+6 *coef1,
+ 250. ,4.27E+6 *coef1,
+ 300. ,4.30E+6 *coef1,
+ 350. ,4.35E+6 *coef1,
+ 400. ,4.39E+6 *coef1,
+ 450. ,4.39E+6 *coef1,
+ 500. ,4.44E+6 *coef1,
+ 550. ,4.47E+6 *coef1,
+ 600. ,4.49E+6 *coef1,
+ 650. ,4.53E+6 *coef1,
+ 700. ,4.58E+6 *coef1,
+ 750. ,4.61E+6 *coef1,
+ 800. ,4.72E+6 *coef1,
+ 1000. ,4.99E+6 *coef1,
+ 1200. ,5.04E+6 *coef1,
+ 1500. ,5.04E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,198.5E+9 *coef2,
+ 20. ,197.E+9 *coef2,
+ 50. ,195.E+9 *coef2,
+ 100. ,191.5E+9 *coef2,
+ 150. ,187.5E+9 *coef2,
+ 200. ,184.E+9 *coef2,
+ 250. ,180.E+9 *coef2,
+ 300. ,176.5E+9 *coef2,
+ 350. ,172.E+9 *coef2,
+ 400. ,168.E+9 *coef2,
+ 450. ,164.E+9 *coef2,
+ 500. ,160.E+9 *coef2,
+ 550. ,155.5E+9 *coef2,
+ 600. ,151.5E+9 *coef2,
+ 700. ,142.5E+9 *coef2,
+ 800. ,130.E+9 *coef2,
+ 1000. ,81.5E+9 *coef2,
+ 1200. ,7.4E+9 *coef2,
+ 1400. ,0. *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+_A3=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 16.4E-6,
+ 50., 16.54E-6, 100., 16.8E-6,
+ 150., 17.04E-6, 200., 17.2E-6,
+ 250., 17.5E-6, 300., 17.7E-6,
+ 350., 17.9E-6, 400., 18.1E-6,
+ 450., 18.24E-6, 500., 18.4E-6,
+ 600., 18.7E-6, 700., 18.9E-6,
+ 800., 19.1E-6, 900., 19.3E-6,
+ 1000., 19.5E-6, 1400., 20.E-6,
+ 1600., 20.2E-6,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 20°C
+#
+
+coef5=1.E ## UNIT -6
+_A5=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 9.39E-4, 185.E+6 *coef5,
+ 1.07E-3, 190.53E+6 *coef5,
+ 1.64E-3, 225.E+6 *coef5,
+ 3.32E-3, 261.E+6 *coef5,
+ 7.45E-3, 287.E+6 *coef5,
+ 0.011, 300.E+6 *coef5,
+ 0.032, 360.E+6 *coef5,
+ 0.05, 404.E+6 *coef5,
+ 0.1, 491.E+6 *coef5,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 200°C
+#
+coef6=1.E ## UNIT -6
+_A6=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 7.61E-4 ,140.E+6 *coef6,
+ 1.E-3 ,150.E+6 *coef6,
+ 2.9E-3 ,168.E+6 *coef6,
+ 4.E-3 ,181.E+6 *coef6,
+ 7.E-3 ,195.E+6 *coef6,
+ 1.E-2 ,205.E+6 *coef6,
+ 0.034 ,276.E+6 *coef6,
+ 0.05 ,303.E+6 *coef6,
+ 0.15 ,450.E+6 *coef6,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 350°C
+#
+coef7=1.E ## UNIT -6
+_A7=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 7.56E-4 ,130.E+6 *coef7,
+ 8.9E-4 ,136.E+6 *coef7,
+ 1.84E-3 ,145.E+6 *coef7,
+ 2.9E-3 ,151.E+6 *coef7,
+ 4.9E-3 ,160.E+6 *coef7,
+ 8.9E-3 ,174.E+6 *coef7,
+ 0.011 ,180.E+6 *coef7,
+ 0.051 ,261.E+6 *coef7,
+ #0.01 ,353.E+6 *coef7,
+ 0.1 ,353.E+6 *coef7,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 400°C
+#
+coef8=1.E ## UNIT -6
+_A8=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 7.14E-4 ,120.E+6 *coef8,
+ 1.E-3 ,125.E+6 *coef8,
+ 2.E-3 ,134.E+6 *coef8,
+ 3.E-3 ,141.E+6 *coef8,
+ 8.E-3 ,157.E+6 *coef8,
+ 19.E-3 ,185.E+6 *coef8,
+ 25.E-3 ,200.E+6 *coef8,
+ 0.05 ,240.E+6 *coef8,
+ 0.1 ,320.E+6 *coef8,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 600°C
+#
+coef9=1.E ## UNIT -6
+_A9=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 5.94E-4 ,90.E+6 *coef9,
+ 1.E-3 ,104.E+6 *coef9,
+ 2.E-3 ,112.E+6 *coef9,
+ 3.E-3 ,119.E+6 *coef9,
+ 6.5E-3 ,131.E+6 *coef9,
+ 1.E-2 ,141.E+6 *coef9,
+ 2.14E-2 ,174.E+6 *coef9,
+ 0.05 ,224.E+6 *coef9,
+ 0.15 ,350.E+6 *coef9,
+ ))
+
+#
+# COURBE DE TRACTION à LA TEMPéRATURE 800°C
+#
+coefA=1.E ## UNIT -6
+_AA=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 5.77E-4 ,75.E+6 *coefA,
+ 1.5E-3 ,81.E+6 *coefA,
+ 3.E-3 ,92.5E+6 *coefA,
+ 4.E-3 ,95.5E+6 *coefA,
+ 6.E-3 ,104.E+6 *coefA,
+ 0.01 ,115.E+6 *coefA,
+ 0.0278 ,141.E+6 *coefA,
+ 0.05 ,159.E+6 *coefA,
+ 0.1 ,170.E+6 *coefA,
+ ))
+
+#
+# COURBE DE TRACTION
+#
+
+_AB=DEFI_NAPPE(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ PARA=(20.,200.,350.,400.,600.,800., ),
+ FONCTION=(_A5,_A6,_A7,_A8,_A9,_AA, ))
+
+# COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
+
+_AZ=DEFI_FONCTION(NOM_PARA='SIGM',
+ INTERPOL='LOG',
+ VALE=(
+ 180.0E6, 1000000.0 ,
+ 200.0E6, 500000.0 ,
+ 230.0E6, 200000.0 ,
+ 260.0E6, 100000.0 ,
+ 295.0E6, 50000.0 ,
+ 350.0E6, 20000.0 ,
+ 405.0E6, 10000.0 ,
+ 485.0E6, 5000.0 ,
+ 615.0E6, 2000.0 ,
+ 750.0E6, 1000.0 ,
+ 940.0E6, 500.0 ,
+ 1275.0E6, 200.0 ,
+ 1655.0E6, 100.0 ,
+ 2190.0E6, 50.0 ,
+ 3240.0E6, 20.0 ,
+ 4480.0E6, 10.0,
+ ),);
+_BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
+_CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
+ COEF = 1.E ## UNIT -6
+ ),);
+DETRUIRE( CONCEPT =_F( NOM=_AZ), )
+_AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
+
+
+
+# SM EN FONCTION DE LA TEMPERATURE
+
+_BD=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='CONSTANT',
+ VALE=(
+ 20.0,115.0E6,
+ 50.0,115.0E6,
+ 100.0,115.0E6,
+ 150.0,115.0E6,
+ 200.0,109.0E6,
+ 250.0,103.0E6,
+ 300.0,96.0E6,
+ 340.0,94.0E6,
+ 350.0,94.0E6,
+ ))
+_AD=CALC_FONCTION(COMB=_F(FONCTION = _BD,
+ COEF = 1.E ## UNIT -6
+ ),);
+
+# N_KE CONSTANTE EN FAIT
+_AE=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',VALE=(20.,0.3,100.,0.3),)
+
+# M_KE CONSTANTE EN FAIT
+_AF=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',VALE=(20.,1.7,100.,1.7),)
+
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ ),
+ TRACTION=_F( SIGM = _AB, ),
+
+ FATIGUE=_F(WOHLER=_AZ,
+ E_REFE=1.79E11*1.E ## UNIT -6
+ ),
+
+ RCCM_FO=_F( ## SUBST RCCM
+ SM=_AD, ## EVAL _AD
+ N_KE=_AE, ## EVAL _AE
+ M_KE=_AF, ## EVAL _AF
+ )
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#
+# Catalogue MATERIAU de l'acier inoxydable austenitique 316L
+# - Denomination AFNOR : Z2CND1712
+# - Denomination usuelle : A316L
+#
+# LAMBDA EN FONCTION DE LA TEMPERATURE
+#
+coef0=1.E ## UNIT -3
+
+_A0=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,14.0 *coef0,
+ 50. ,14.4 *coef0,
+ 100. ,15.2 *coef0,
+ 150. ,15.8 *coef0,
+ 200. ,16.6 *coef0,
+ 250. ,17.3 *coef0,
+ 300. ,17.9 *coef0,
+ 350. ,18.6 *coef0,
+ 400. ,19.2 *coef0,
+ 450. ,19.9 *coef0,
+ 500. ,20.6 *coef0,
+ 550. ,21.2 *coef0,
+ 600. ,21.8 *coef0,
+ 650. ,22.4 *coef0,
+ 700. ,23.1 *coef0,
+ 750. ,23.7 *coef0,
+ 800. ,24.3 *coef0,
+ 900. ,26.0 *coef0,
+ 1000. ,27.3 *coef0,
+ 1200. ,29.9 *coef0,
+ 1500. ,34.0 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPERATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3598972. *coef1,
+ 50. ,3701799. *coef1,
+ 100. ,3907455. *coef1,
+ 150. ,4010152. *coef1,
+ 200. ,4160401. *coef1,
+ 250. ,4261084. *coef1,
+ 300. ,4292566. *coef1,
+ 350. ,4366197. *coef1,
+ 400. ,4393593. *coef1,
+ 450. ,4422222. *coef1,
+ 500. ,4439655. *coef1,
+ 550. ,4463158. *coef1,
+ 600. ,4494845. *coef1,
+ 650. ,4525252. *coef1,
+ 700. ,4583333. *coef1,
+ 750. ,4637965. *coef1,
+ 800. ,4700193. *coef1,
+ 900. ,4946500. *coef1,
+ 1000. ,4989600. *coef1,
+ 1200. ,5043650. *coef1,
+ 1500. ,5037000. *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPERATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,198500.E+6 *coef2,
+ 20. ,197000.E+6 *coef2,
+ 50. ,195000.E+6 *coef2,
+ 100. ,191500.E+6 *coef2,
+ 150. ,187500.E+6 *coef2,
+ 200. ,184000.E+6 *coef2,
+ 250. ,180000.E+6 *coef2,
+ 300. ,176500.E+6 *coef2,
+ 350. ,172000.E+6 *coef2,
+ 400. ,168000.E+6 *coef2,
+ 450. ,164000.E+6 *coef2,
+ 500. ,160000.E+6 *coef2,
+ 550. ,155500.E+6 *coef2,
+ 600. ,151500.E+6 *coef2,
+ 700. ,142500.E+6 *coef2,
+ 800. ,130000.E+6 *coef2,
+ 900. ,108000.E+6 *coef2,
+ 1000. ,81500.E+6 *coef2,
+ 1100. ,32000.E+6 *coef2,
+ 1200. ,7400.E+6 *coef2,
+ 1300. ,3000.E+6 *coef2,
+ 1400. ,5.E+6 *coef2,
+ ))
+#
+# NU EN FONCTION DE LA TEMPERATURE
+#
+_A3=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPERATURE
+#
+
+_A4=DEFI_FONCTION( NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.0 ,15.4E-6 ,
+ 20.0 ,15.54E-6 ,
+ 50.0 ,15.72E-6 ,
+ 100.0 ,16.0E-6 ,
+ 150.0 ,16.3E-6 ,
+ 200.0 ,16.6E-6 ,
+ 250.0 ,16.86E-6 ,
+ 300.0 ,17.1E-6 ,
+ 350.0 ,17.36E-6 ,
+ 400.0 ,17.6E-6 ,
+ 450.0 ,17.82E-6 ,
+ 500.0 ,18.0E-6 ,
+ 600.0 ,18.4E-6 ,
+ 700.0 ,18.7E-6 ,
+ 800.0 ,19.0E-6 ,
+ 900.0 ,19.2E-6 ,
+ 1000.0 ,19.4E-6 ,
+ 1400.0 ,19.6E-6 ,
+ 1600.0 ,19.7E-6 ,
+ ))
+
+
+#
+# COURBE DE TRACTION A LA TEMPERATURE 20C
+#
+
+coef5=1.E ## UNIT -6
+_TR20=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.08446701E-2 ,166.4E+6 *coef5,
+ 0.09221476E-2 ,177.72307E+6 *coef5,
+ 0.09675755E-2 ,184.702374E+6 *coef5,
+ 0.10035526E-2 ,189.819863E+6 *coef5,
+ 0.10341966E-2 ,193.88674E+6 *coef5,
+ 0.10613920E-2 ,197.274216E+6 *coef5,
+ 0.11091372E-2 ,202.74003E+6 *coef5,
+ 0.11294416E-2 ,202.8E+6 *coef5,
+ 0.13218274E-2 ,221.E+6 *coef5,
+ 0.17010152E-2 ,236.6E+6 *coef5,
+ 0.22670051E-2 ,249.6E+6 *coef5,
+ 0.33197970E-2 ,260.E+6 *coef5,
+ 0.53857868E-2 ,273.E+6 *coef5,
+ 0.74253807E-2 ,280.8E+6 *coef5,
+ 0.94517766E-2 ,286.E+6 *coef5,
+ 1.14913706E-2 ,293.8E+6 *coef5,
+ 1.65573604E-2 ,306.8E+6 *coef5,
+ 2.16101523E-2 ,317.2E+6 *coef5,
+ 3.17289340E-2 ,340.6E+6 *coef5,
+ ))
+
+#
+# COURBE DE TRACTION A LA TEMPERATURE 100C
+#
+coef6=1.E ## UNIT -6
+_TR100=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.07268930E-2 ,139.2E+6 *coef6,
+ 0.10049608E-2 ,173.3E+6 *coef6,
+ 0.20003864E-2 ,200.E+6 *coef6,
+ 0.30757180E-2 ,206.E+6 *coef6,
+ 1.11994778E-2 ,229.7E+6 *coef6,
+ 2.13211488E-2 ,253.E+6 *coef6,
+ 4.15456919E-2 ,296.E+6 *coef6,
+ 6.17545692E-2 ,336.E+6 *coef6,
+ 8.19582245E-2 ,375.E+6 *coef6,
+ 10.2151436E-2 ,412.E+6 *coef6,
+ 15.2647520E-2 ,507.E+6 *coef6,
+ 20.3143603E-2 ,602.E+6 *coef6,
+ ))
+#
+# COURBE DE TRACTION A LA TEMPERATURE 200C
+#
+coef7=1.E ## UNIT -6
+_TR200=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.06271740E-2 ,115.4E+6 *coef7,
+ 0.10631555E-2 ,153.4E+6 *coef7,
+ 0.19565609E-2 ,170.E+6 *coef7,
+ 0.29734414E-2 ,173.E+6 *coef7,
+ 1.11084853E-2 ,197.E+6 *coef7,
+ 2.12435291E-2 ,221.E+6 *coef7,
+ 4.14854828E-2 ,264.E+6 *coef7,
+ 6.17133693E-2 ,304.5E+6 *coef7,
+ 8.19300023E-2 ,343.E+6 *coef7,
+ 10.2149449E-2 ,382.E+6 *coef7,
+ 15.2689624E-2 ,478.E+6 *coef7,
+ 20.3224173E-2 ,573.E+6 *coef7,
+ ))
+#
+# COURBE DE TRACTION A LA TEMPERATURE 300C
+#
+coef8=1.E ## UNIT -6
+_TR300=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.05694051E-2 ,100.5E+6 *coef8,
+ 0.09563739E-2 ,133.5E+6 *coef8,
+ 0.19998584E-2 ,150.E+6 *coef8,
+ 0.28781870E-2 ,155.E+6 *coef8,
+ 1.10254958E-2 ,181.E+6 *coef8,
+ 2.11614731E-2 ,205.E+6 *coef8,
+ 4.14164306E-2 ,250.E+6 *coef8,
+ 6.16430595E-2 ,290.E+6 *coef8,
+ 8.18696884E-2 ,330.E+6 *coef8,
+ 10.2096317E-2 ,370.E+6 *coef8,
+ 15.2623229E-2 ,463.E+6 *coef8,
+ 20.3161473E-2 ,558.E+6 *coef8,
+ ))
+#
+# COURBE DE TRACTION A LA TEMPERATURE 350C
+#
+coef9=1.E ## UNIT -6
+_TR350=DEFI_FONCTION( NOM_PARA='EPSI',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0.05558140E-2 ,95.6E+6 *coef9,
+ 0.06134823E-2 ,102.078952E+6 *coef9,
+ 0.06467887E-2 ,106.087661E+6 *coef9,
+ 0.06738779E-2 ,109.026998E+6 *coef9,
+ 0.06974587E-2 ,111.362893E+6 *coef9,
+ 0.07187707E-2 ,113.308561E+6 *coef9,
+ 0.07570231E-2 ,116.447965E+6 *coef9,
+ 0.08008140E-2 ,120.54E+6 *coef9,
+ 0.09520930E-2 ,129.36E+6 *coef9,
+ 0.12862791E-2 ,135.24E+6 *coef9,
+ 0.18204651E-2 ,141.12E+6 *coef9,
+ 0.28546512E-2 ,147.E+6 *coef9,
+ 0.48973837E-2 ,154.35E+6 *coef9,
+ 0.69315698E-2 ,160.23E+6 *coef9,
+ 0.89657558E-2 ,166.11E+6 *coef9,
+ 1.09913953E-2 ,170.52E+6 *coef9,
+ 1.60597674E-2 ,182.28E+6 *coef9,
+ 2.11195930E-2 ,192.57E+6 *coef9,
+ 3.12477907E-2 ,214.62E+6 *coef9,
+ ))
+#
+# COURBE DE TRACTION
+#
+
+_A5=DEFI_NAPPE(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ PARA=(20.,100.,200.,300.,350., ),
+ FONCTION=(_TR20,_TR100,_TR200,_TR300,_TR350))
+
+# COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
+
+_AZ=DEFI_FONCTION(NOM_PARA='SIGM',
+ INTERPOL='LOG',
+ VALE=(
+ 180.0E6, 1000000.0 ,
+ 200.0E6, 500000.0 ,
+ 230.0E6, 200000.0 ,
+ 260.0E6, 100000.0 ,
+ 295.0E6, 50000.0 ,
+ 350.0E6, 20000.0 ,
+ 405.0E6, 10000.0 ,
+ 485.0E6, 5000.0 ,
+ 615.0E6, 2000.0 ,
+ 750.0E6, 1000.0 ,
+ 940.0E6, 500.0 ,
+ 1275.0E6, 200.0 ,
+ 1655.0E6, 100.0 ,
+ 2190.0E6, 50.0 ,
+ 3240.0E6, 20.0 ,
+ 4480.0E6, 10.0,
+ ),);
+_BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
+_CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
+ COEF = 1.E ## UNIT -6
+ ),);
+DETRUIRE( CONCEPT =_F( NOM=_AZ), )
+_AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ ),
+ TRACTION=_F( SIGM = _A5, ),
+
+ FATIGUE=_F(WOHLER=_AZ,
+ E_REFE=2.07E11*1.E ## UNIT -6
+ ),
+ )
+
+#
+
--- /dev/null
+# MODIF DATE 24/10/2006 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.
+#
+# 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.
+# ======================================================================
+#------------------------------------------------------
+# LAMBDA EN FONCTION DE LA TEMPéRATURE
+#
+coef0=1.E ## UNIT -3
+_A0=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,14.0 *coef0,
+ 50. ,14.4 *coef0,
+ 100. ,15.2 *coef0,
+ 150. ,15.8 *coef0,
+ 200. ,16.6 *coef0,
+ 250. ,17.3 *coef0,
+ 300. ,17.9 *coef0,
+ 350. ,18.6 *coef0,
+ 400. ,19.2 *coef0,
+ 450. ,19.9 *coef0,
+ 500. ,20.6 *coef0,
+ 550. ,21.2 *coef0,
+ 600. ,21.8 *coef0,
+ 650. ,22.4 *coef0,
+ 700. ,23.1 *coef0,
+ 750. ,23.7 *coef0,
+ 800. ,24.3 *coef0,
+ ))
+
+#
+# RHO_CP EN FONCTION DE LA TEMPéRATURE
+#
+coef1=1.E ## UNIT -9
+_A1=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 20. ,3.60E+6 *coef1,
+ 50. ,3.70E+6 *coef1,
+ 100. ,3.91E+6 *coef1,
+ 150. ,4.01E+6 *coef1,
+ 200. ,4.16E+6 *coef1,
+ 250. ,4.26E+6 *coef1,
+ 300. ,4.29E+6 *coef1,
+ 350. ,4.37E+6 *coef1,
+ 400. ,4.39E+6 *coef1,
+ 450. ,4.42E+6 *coef1,
+ 500. ,4.44E+6 *coef1,
+ 550. ,4.46E+6 *coef1,
+ 600. ,4.49E+6 *coef1,
+ 650. ,4.53E+6 *coef1,
+ 700. ,4.58E+6 *coef1,
+ 750. ,4.64E+6 *coef1,
+ 800. ,4.70E+6 *coef1,
+ ))
+
+#
+# E EN FONCTION DE LA TEMPéRATURE
+#
+coef2=1.E ## UNIT -6
+_A2=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=(
+ 0. ,198.5E+9 *coef2,
+ 20. ,197.0E+9 *coef2,
+ 50. ,195.0E+9 *coef2,
+ 100. ,191.5E+9 *coef2,
+ 150. ,187.5E+9 *coef2,
+ 200. ,184.0E+9 *coef2,
+ 250. ,180.0E+9 *coef2,
+ 300. ,176.5E+9 *coef2,
+ 350. ,172.0E+9 *coef2,
+ 400. ,168.0E+9 *coef2,
+ 450. ,164.0E+9 *coef2,
+ 500. ,160.0E+9 *coef2,
+ 550. ,155.5E+9 *coef2,
+ 600. ,151.5E+9 *coef2,
+ ))
+
+#
+# NU EN FONCTION DE LA TEMPéRATURE
+#
+
+_A3=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='CONSTANT',
+ PROL_GAUCHE='CONSTANT',
+ VALE=( 0., 0.3,
+ ))
+
+#
+# ALPHA EN FONCTION DE LA TEMPéRATURE
+#
+
+_A4=DEFI_FONCTION(
+ NOM_PARA='TEMP',
+ PROL_DROITE='EXCLU',
+ PROL_GAUCHE='EXCLU',
+ VALE=( 20., 15.54E-6, 50., 15.72E-6,
+ 100., 16.00E-6, 150., 16.30E-6,
+ 200., 16.60E-6, 250., 16.86E-6,
+ 300., 17.10E-6, 350., 17.36E-6,
+ 400., 17.60E-6, 450., 17.82E-6,
+ ))
+
+
+# COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
+
+_AZ=DEFI_FONCTION(NOM_PARA='SIGM',
+ INTERPOL='LOG',
+ VALE=(
+ 180.0E6, 1000000.0 ,
+ 200.0E6, 500000.0 ,
+ 230.0E6, 200000.0 ,
+ 260.0E6, 100000.0 ,
+ 295.0E6, 50000.0 ,
+ 350.0E6, 20000.0 ,
+ 405.0E6, 10000.0 ,
+ 485.0E6, 5000.0 ,
+ 615.0E6, 2000.0 ,
+ 750.0E6, 1000.0 ,
+ 940.0E6, 500.0 ,
+ 1275.0E6, 200.0 ,
+ 1655.0E6, 100.0 ,
+ 2190.0E6, 50.0 ,
+ 3240.0E6, 20.0 ,
+ 4480.0E6, 10.0,
+ ),);
+_BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
+_CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
+ COEF = 1.E ## UNIT -6
+ ),);
+DETRUIRE( CONCEPT =_F( NOM=_AZ), )
+_AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
+
+
+
+
+MAT=DEFI_MATERIAU(
+ THER_NL=_F( ## SUBST THER
+ RHO_CP = _A1, ## EVAL _A1
+ LAMBDA = _A0, ## EVAL _A0
+ ),
+ ELAS_FO=_F( ## SUBST ELAS
+ E = _A2, ## EVAL _A2
+ NU = _A3, ## EVAL _A3
+ ALPHA = _A4, ## EVAL _A4
+ TEMP_DEF_ALPHA = 20., ## SUPPR
+ ),
+
+ FATIGUE=_F(WOHLER=_AZ,
+ E_REFE=1.79E11*1.E ## UNIT -6
+ ),
+
+ )
+
+#
+
i=0
files= os.path.join(os.path.dirname(__file__),"*.comm")
- for f in glob.glob(os.path.join(prefs.INSTALLDIR,files)):
+ for f in glob.glob(files):
for o in ('3','2','1','0','m'):
f=f[:-1]+o
if os.path.isfile(f):break
i=0
files= os.path.join(os.path.dirname(__file__),"*.comm")
- for f in glob.glob(os.path.join(prefs.INSTALLDIR,files)):
+ for f in glob.glob(files):
for o in ('3','2','1','0','m'):
f=f[:-1]+o
if os.path.isfile(f):break
+++ /dev/null
-# coding=utf-8
-
-import os
-import unittest
-import difflib
-import compare
-
-import prefs
-from Editeur import appli
-
-def add_param(j,pos,nom,valeur):
- co=j.addentite("PARAMETRE",pos)
- co.set_nom(nom)
- co.set_valeur(valeur)
- return co
-
-def add_mcsimp(obj,nom,valeur):
- mcs=obj.get_child(nom,restreint='oui')
- if mcs is None:
- pos=obj.get_index_child(nom)
- mcs=obj.addentite(nom,pos)
- mcs.set_valeur(mcs.eval_val(valeur))
- return mcs
-
-def cdiff(text1,text2):
- return " ".join(difflib.context_diff(text1.splitlines(1),text2.splitlines(1)))
-
-class TestCase(unittest.TestCase):
- def setUp(self):
- pass
-
- def tearDown(self):
- CONTEXT.unset_current_step()
-
- def test000(self):
- """ Test de construction du fichier de commandes az.comm de zero"""
-
- app=appli.STANDALONE(version='v7')
- j=app.newJDC()
-# commande DEBUT
- co=j.addentite("DEBUT",0)
-# commande FIN
- co=j.addentite("FIN",1)
-# parametres
- pos=0
- pos=pos+1
- co=add_param(j,pos,"P1","9.8")
- pos=pos+1
- co=add_param(j,pos,"P2","8.8")
- pos=pos+1
- co=add_param(j,pos,"P3","7")
- pos=pos+1
- co=add_param(j,pos,"P5","P3*P1")
- pos=pos+1
- co=add_param(j,pos,"P6","P1-3")
- pos=pos+1
- co=add_param(j,pos,"P4","[2,3,4]")
-# commentaire
- pos=pos+1
- co=j.addentite("COMMENTAIRE",pos)
- co.set_valeur("Pas trouve shellpanel")
-# commande LIRE_MAILLAGE
- pos=pos+1
- co=j.addentite("LIRE_MAILLAGE",pos)
- test,mess=co.nomme_sd("MAILLA2")
- mcs=co.addentite("UNITE")
- valeur=mcs.eval_val("P4[1]")
- test=mcs.set_valeur(valeur)
-# formule
- pos=pos+1
- co=j.addentite("FORMULE",pos)
- co.update_formule_python(("aaa","REEL","a+z","(a,z)"))
-# commande LIRE_MAILLAGE
- pos=pos+1
- ma=co=j.addentite("LIRE_MAILLAGE",pos)
- test,mess=co.nomme_sd("MAIL")
- mcs=co.addentite("UNITE")
- valeur,validite=mcs.eval_valeur("P3")
- test=mcs.set_valeur(valeur)
-#
- pos=pos+1
- co=j.addentite("COMMENTAIRE",pos)
- co.set_valeur(" 'LIRE_MAILLAGE', 'UNITE' --> uniquebasepanel")
-# formule
- pos=pos+1
- co=j.addentite("FORMULE",pos)
- co.update_formule_python(("az","REEL","aaaaa","(ae,inst)"))
-# commande AFFE_MODELE
- pos=pos+1
- co=j.addentite("AFFE_MODELE",pos)
- mcs=co.get_child("MAILLAGE")
- valeur,validite=mcs.eval_valeur("MAIL")
- assert valeur == ma.sd
- test=mcs.set_valeur(valeur)
- assert valeur == co["MAILLAGE"]
- mcf=co.addentite("AFFE")
- mcs=mcf[0].get_child("PHENOMENE")
- valeur=mcs.eval_val_item('MECANIQUE')
- assert valeur=='MECANIQUE',str(valeur)
- test=mcs.set_valeur(valeur)
- assert mcf["PHENOMENE"] == 'MECANIQUE'
- mcs=mcf[0].get_child("b_mecanique").get_child("MODELISATION")
- mcs.set_valeur(mcs.eval_val_item('DIS_T'))
- assert mcf["MODELISATION"] == 'DIS_T'
- mcs=add_mcsimp(mcf[0],"GROUP_MA",('RESSORT','eee',))
-
- mcf=co.addentite("AFFE")
- mcs=mcf[1].get_child("PHENOMENE")
- mcs.set_valeur(mcs.eval_val_item('MECANIQUE'))
- mcs=mcf[1].get_child("b_mecanique").get_child("MODELISATION")
- mcs.set_valeur(mcs.eval_val_item('DIS_T'))
- mcs=add_mcsimp(mcf[1],"GROUP_MA",'MASSES')
-
- mcf=co.addentite("AFFE")
- mcs=mcf[2].get_child("PHENOMENE")
- mcs.set_valeur(mcs.eval_val_item('ACOUSTIQUE'))
- mcs=mcf[2].get_child("b_acoustique").get_child("MODELISATION")
- mcs.set_valeur(mcs.eval_val_item('PLAN'))
- #mcs=add_mcsimp(mcf[2],"GROUP_NO",'GNP3,GNP5,GNP6,GNP7,GNP8,GNP9,GNP10,GNP11,GNP12')
- mcs=add_mcsimp(mcf[2],"GROUP_NO","'GNP3','GNP5','GNP6','GNP7','GNP8','GNP9','GNP10','GNP11','GNP12'")
-
- co.nomme_sd("AFFE1")
-# commande AFFE_MODELE
- pos=pos+1
- co=j.addentite("AFFE_MODELE",pos)
- mcs=co.get_child("MAILLAGE")
- mcs.set_valeur(mcs.eval_val("MAIL"))
-
- mcf=co.addentite("AFFE")
- mcs=mcf[0].get_child("PHENOMENE")
- valeur=mcs.eval_val_item('MECANIQUE')
- test=mcs.set_valeur(valeur)
- mcs=mcf[0].get_child("b_mecanique").get_child("MODELISATION")
- mcs.set_valeur(mcs.eval_val_item('DIS_T'))
- mcs=add_mcsimp(mcf[0],"GROUP_MA",'RESSORT')
-
- mcf=co.addentite("AFFE")
- mcs=mcf[1].get_child("PHENOMENE")
- mcs.set_valeur(mcs.eval_val_item('MECANIQUE'))
- mcs=mcf[1].get_child("b_mecanique").get_child("MODELISATION")
- mcs.set_valeur(mcs.eval_val_item('DIS_T'))
- mcs=add_mcsimp(mcf[1],"GROUP_MA",'MASSES')
-
- mcf=co.addentite("AFFE")
- mcs=mcf[2].get_child("PHENOMENE")
- mcs.set_valeur(mcs.eval_val_item('THERMIQUE'))
- mcs=mcf[2].get_child("b_thermique").get_child("MODELISATION")
- mcs.set_valeur(mcs.eval_val_item('COQUE'))
- mcs=add_mcsimp(mcf[2],"TOUT",'OUI')
-
- co.nomme_sd("MOD")
-#CARA=AFFE_CARA_ELEM(MODELE=MOD,
-# POUTRE=_F(GROUP_MA='MA',
-# SECTION='CERCLE',
-# CARA='R',
-# VALE=(3.0,P6,),),);
- pos=pos+1
- co=j.addentite("AFFE_CARA_ELEM",pos)
- mcs=co.get_child("MODELE")
- mcs.set_valeur(mcs.eval_val("MOD"))
- mcf=co.addentite("POUTRE")
- mcs=mcf[0].get_child("SECTION")
- mcs.set_valeur(mcs.eval_val('CERCLE'))
- assert mcf[0]["SECTION"] == 'CERCLE'
- mcs=add_mcsimp(mcf[0],"GROUP_MA",'MA')
- mcs=mcf[0].get_child("b_cercle").get_child("b_constant").get_child("CARA")
- mcs.set_valeur(mcs.eval_val('R'))
- mcs=mcf[0].get_child("b_cercle").get_child("b_constant").get_child("VALE")
- mcs.set_valeur(mcs.eval_val('3.0,P6'))
- co.nomme_sd("CARA")
-# commentaire
- pos=pos+1
- co=j.addentite("COMMENTAIRE",pos)
- text=""" 'AFFE_MODELE', 'MAILLAGE' --> uniqueassdpanel
- AFFE_MODELE', 'AFFE', 'GROUP_MA' --> plusieursbasepanel
- 'AFFE_MODELE', 'AFFE', 'PHENOMENE' --> uniqueintopanel
- 'AFFE_MODELE', 'AFFE', 'b_mecanique'--> plusieursintopanel"""
- co.set_valeur(text)
-#F1=DEFI_FONCTION(NOM_PARA='DX',
-# VALE=(5.0,3.0,P4[1],P3,),);
- pos=pos+1
- co=j.addentite("DEFI_FONCTION",pos)
- mcs=co.get_child("NOM_PARA")
- mcs.set_valeur(mcs.eval_val("DX"))
- mcs=co.addentite("VALE")
- mcs.set_valeur(mcs.eval_val("5.0,3.0,P4[1],P3"))
- co.nomme_sd("F1")
-#F3=DEFI_FONCTION(NOM_PARA='DRX',
-# VALE_C=(5.0,7.0,9.0,9.0,8.0,7.0,),);
- pos=pos+1
- co=j.addentite("DEFI_FONCTION",pos)
- mcs=co.get_child("NOM_PARA")
- mcs.set_valeur(mcs.eval_val("DRX"))
- mcs=co.addentite("VALE_C")
- mcs.set_valeur(mcs.eval_val("5.0,7.0,9.0,9.0,8.0,7.0"))
- co.nomme_sd("F3")
-# commentaire
- pos=pos+1
- co=j.addentite("COMMENTAIRE",pos)
- co.set_valeur(" 'DEFI_FONCTION', 'VALE' --> fonctionpanel ")
-#MATER2=DEFI_MATERIAU(ELAS=_F(E=100000000000.0,
-# NU=0.0,),
-# ECRO_ASYM_LINE=_F(DC_SIGM_EPSI=0.0,
-# SY_C=200000000.0,
-# DT_SIGM_EPSI=0.0,
-# SY_T=50000000.0,),);
- pos=pos+1
- co=j.addentite("DEFI_MATERIAU",pos)
- mcf=co.addentite("ELAS")
- mcs=mcf[0].get_child("E")
- mcs.set_valeur(mcs.eval_val("100000000000.0"))
- mcs=mcf[0].get_child("NU")
- mcs.set_valeur(mcs.eval_val("0.0"))
- mcf=co.addentite("ECRO_ASYM_LINE")
- mcs=mcf[0].get_child("DC_SIGM_EPSI")
- mcs.set_valeur(mcs.eval_val("0.0"))
- mcs=mcf[0].get_child("DT_SIGM_EPSI")
- mcs.set_valeur(mcs.eval_val("0.0"))
- mcs=mcf[0].get_child("SY_C")
- mcs.set_valeur(mcs.eval_val("200000000.0"))
- mcs=mcf[0].get_child("SY_T")
- mcs.set_valeur(mcs.eval_val("50000000.0"))
- co.nomme_sd("MATER2")
-#PS1=DEFI_PARA_SENSI(VALE=1.0,);
-#PS2=DEFI_PARA_SENSI(VALE=1.0,);
-#PS3=DEFI_PARA_SENSI(VALE=1.0,);
- pos=pos+1
- co=j.addentite("DEFI_PARA_SENSI",pos)
- mcs=co.get_child("VALE")
- mcs.set_valeur(mcs.eval_val("1.0"))
- co.nomme_sd("PS1")
- pos=pos+1
- co=j.addentite("DEFI_PARA_SENSI",pos)
- mcs=co.get_child("VALE")
- mcs.set_valeur(mcs.eval_val("1.0"))
- co.nomme_sd("PS2")
- pos=pos+1
- co=j.addentite("DEFI_PARA_SENSI",pos)
- mcs=co.get_child("VALE")
- mcs.set_valeur(mcs.eval_val("1.0"))
- co.nomme_sd("PS3")
-#CHMAT2=AFFE_MATERIAU(MAILLAGE=MAIL,
-# AFFE=_F(TOUT='OUI',
-# MATER=MATER2,),);
- pos=pos+1
- co=j.addentite("AFFE_MATERIAU",pos)
- add_mcsimp(co,"MAILLAGE","MAIL")
- mcf=co.get_child("AFFE")
- add_mcsimp(mcf[0],"TOUT","OUI")
- add_mcsimp(mcf[0],"MATER","MATER2")
- co.nomme_sd("CHMAT2")
-#AAAZ=AFFE_CHAR_THER(MODELE=AFFE1,
-# TEMP_IMPO=_F(TOUT='OUI',
-# TEMP=0.0,),);
- pos=pos+1
- co=j.addentite("AFFE_CHAR_THER",pos)
- add_mcsimp(co,"MODELE","AFFE1")
- mcf=co.addentite("TEMP_IMPO")
- add_mcsimp(mcf[0],"TOUT","OUI")
- add_mcsimp(mcf[0],"TEMP","0.0")
- co.nomme_sd("AAAZ")
-#TH1=THER_LINEAIRE(MODELE=AFFE1,
-# CHAM_MATER=CHMAT2,
-# EXCIT=_F(CHARGE=AAAZ,),
-# SENSIBILITE=(PS1,PS2,),);
- pos=pos+1
- co=j.addentite("THER_LINEAIRE",pos)
- add_mcsimp(co,"MODELE","AFFE1")
- add_mcsimp(co,"CHAM_MATER","CHMAT2")
- mcf=co.get_child("EXCIT")
- add_mcsimp(mcf[0],"CHARGE","AAAZ")
- add_mcsimp(co,"SENSIBILITE","PS1,PS2")
- co.nomme_sd("TH1")
-# commentaire
- pos=pos+1
- co=j.addentite("COMMENTAIRE",pos)
- co.set_valeur(" 'THER_LINEAIRE', 'SENSIBILITE' --> plusieursassdpanel")
-#ACA1=AFFE_CHAR_ACOU(MODELE=AFFE1,
-# PRES_IMPO=_F(TOUT='OUI',
-# PRES=('RI',3.0,3.0,),),);
- pos=pos+1
- co=j.addentite("AFFE_CHAR_ACOU",pos)
- add_mcsimp(co,"MODELE","AFFE1")
- mcf=co.addentite("PRES_IMPO")
- add_mcsimp(mcf[0],"TOUT","OUI")
- add_mcsimp(mcf[0],"PRES","'RI',3.0,3.0")
- co.nomme_sd("ACA1")
-# commentaire
- pos=pos+1
- co=j.addentite("COMMENTAIRE",pos)
- co.set_valeur(" 'AFFE_CHAR_ACOU', 'PRES_IMPO', 'PRES' --> uniquecomppanel")
-
-# 'AFFE_CHAR_ACOU', 'PRES_IMPO', 'PRES' --> uniquecomppanel
-
-#MACRO_MATR_ASSE(MODELE=AFFE1,
-# NUME_DDL=CO('DDL1'),
-# MATR_ASSE=_F(MATRICE=CO('MAT1'),
-# OPTION='RIGI_THER',),);
- pos=pos+1
- co=j.addentite("MACRO_MATR_ASSE",pos)
- add_mcsimp(co,"MODELE","AFFE1")
- mcs=co.get_child("NUME_DDL")
- mcs.set_valeur_co('DDL1')
- mcf=co.get_child("MATR_ASSE")
- add_mcsimp(mcf[0],"OPTION","RIGI_THER")
- mcs=mcf[0].get_child("MATRICE")
- mcs.set_valeur_co('MAT1')
-# commentaire
- pos=pos+1
- co=j.addentite("COMMENTAIRE",pos)
- co.set_valeur(" 'MACRO_MATR_ASSE', 'MATR_ASSE', 'MATRICE' --> uniquesdcopanel")
-
- assert j.isvalid(),j.report()
-
- text1=app.get_text_JDC(j,'python')
- file=os.path.join(prefs.INSTALLDIR,"Tests/testelem/az.comm")
- f=open(file)
- text2=f.read()
- f.close()
- assert text1 == text2 , cdiff(text1,text2)
-
- def test001(self):
- """ Test de construction d'un fichier de commandes avec DEFI_LIST_REEL, fonction et parametre de zero"""
-
- app=appli.STANDALONE(version='v7')
- j=app.newJDC()
-# commande DEBUT
- co=j.addentite("DEBUT",0)
-# commande FIN
- co=j.addentite("FIN",1)
-#parametre
- pos=0
- pos=pos+1
- co=add_param(j,pos,"P1","9.8")
- pos=pos+1
- co=add_param(j,pos,"P2","sin(P1)")
-# formule
- pos=pos+1
- co=j.addentite("FORMULE",pos)
- co.update_formule_python(("aaa","REEL","a+z","(a,z)"))
-#parametre de formule
- pos=pos+1
- co=add_param(j,pos,"P3","aaa(P1,2.)")
-#commande defi_list_reel
- pos=pos+1
- co=j.addentite("DEFI_LIST_REEL",pos)
- add_mcsimp(co,"VALE","1.,2.,3.")
- co.nomme_sd("LI1")
-#commande defi_list_reel
- pos=pos+1
- co=j.addentite("DEFI_LIST_REEL",pos)
- add_mcsimp(co,"VALE","sin(1.)")
- co.nomme_sd("LI2")
-#commande defi_list_reel
- pos=pos+1
- co=j.addentite("DEFI_LIST_REEL",pos)
- add_mcsimp(co,"VALE","aaa(1.,2.)")
- co.nomme_sd("LI3")
-#commande defi_list_reel
- pos=pos+1
- co=j.addentite("DEFI_LIST_REEL",pos)
- add_mcsimp(co,"VALE","sin(1.,2)")
- co.nomme_sd("LI4")
-#commande defi_list_reel
- pos=pos+1
- co=j.addentite("DEFI_LIST_REEL",pos)
- add_mcsimp(co,"VALE","aaa(1.)")
- co.nomme_sd("LI5")
-#commande defi_list_reel
- pos=pos+1
- co=j.addentite("DEFI_LIST_REEL",pos)
- add_mcsimp(co,"VALE","1,sin(1.),2")
- co.nomme_sd("LI6")
-
- expected="""DEBUT CR validation : SansNom
- Etape : DEFI_LIST_REEL ligne : ...
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- ! Concept retourné non défini !
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- Mot-clé simple : VALE
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- ! 'sin(1.,2)' n'est pas d'un type autorisé: ('R',) !
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- Fin Mot-clé simple : VALE
- Fin Etape : DEFI_LIST_REEL
- Etape : DEFI_LIST_REEL ligne : ...
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- ! Concept retourné non défini !
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- Mot-clé simple : VALE
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- ! 'aaa(1.)' n'est pas d'un type autorisé: ('R',) !
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- Fin Mot-clé simple : VALE
- Fin Etape : DEFI_LIST_REEL
-FIN CR validation :SansNom
-"""
- msg=str( j.report())
- assert compare.check(expected,msg),cdiff(expected,msg)
def cdiff(text1,text2):
return " ".join(difflib.context_diff(text1.splitlines(1),text2.splitlines(1)))
-version='v8'
+version='v9'
class TestCase(unittest.TestCase):
def setUp(self):
def cdiff(text1,text2):
return " ".join(difflib.context_diff(text1.splitlines(1),text2.splitlines(1)))
-version='v8'
+version='v9'
class TestCase(unittest.TestCase):
def setUp(self):
--- /dev/null
+# coding=utf-8
+
+import os
+import unittest
+import difflib
+import compare
+
+import prefs
+from Editeur import appli
+
+def add_param(j,pos,nom,valeur):
+ co=j.addentite("PARAMETRE",pos)
+ co.set_nom(nom)
+ co.set_valeur(valeur)
+ return co
+
+def add_mcsimp(obj,nom,valeur):
+ mcs=obj.get_child(nom,restreint='oui')
+ if mcs is None:
+ pos=obj.get_index_child(nom)
+ mcs=obj.addentite(nom,pos)
+ mcs.set_valeur(mcs.eval_val(valeur))
+ return mcs
+
+def cdiff(text1,text2):
+ return " ".join(difflib.context_diff(text1.splitlines(1),text2.splitlines(1)))
+
+class TestCase(unittest.TestCase):
+ def setUp(self):
+ pass
+
+ def tearDown(self):
+ CONTEXT.unset_current_step()
+
+ def test000(self):
+ """ Test de construction du fichier de commandes az.comm de zero"""
+
+ app=appli.STANDALONE(version='v7')
+ j=app.newJDC()
+# commande DEBUT
+ co=j.addentite("DEBUT",0)
+# commande FIN
+ co=j.addentite("FIN",1)
+# parametres
+ pos=0
+ pos=pos+1
+ co=add_param(j,pos,"P1","9.8")
+ pos=pos+1
+ co=add_param(j,pos,"P2","8.8")
+ pos=pos+1
+ co=add_param(j,pos,"P3","7")
+ pos=pos+1
+ co=add_param(j,pos,"P5","P3*P1")
+ pos=pos+1
+ co=add_param(j,pos,"P6","P1-3")
+ pos=pos+1
+ co=add_param(j,pos,"P4","[2,3,4]")
+# commentaire
+ pos=pos+1
+ co=j.addentite("COMMENTAIRE",pos)
+ co.set_valeur("Pas trouve shellpanel")
+# commande LIRE_MAILLAGE
+ pos=pos+1
+ co=j.addentite("LIRE_MAILLAGE",pos)
+ test,mess=co.nomme_sd("MAILLA2")
+ mcs=co.addentite("UNITE")
+ valeur=mcs.eval_val("P4[1]")
+ test=mcs.set_valeur(valeur)
+# formule
+ pos=pos+1
+ co=j.addentite("FORMULE",pos)
+ co.update_formule_python(("aaa","REEL","a+z","(a,z)"))
+# commande LIRE_MAILLAGE
+ pos=pos+1
+ ma=co=j.addentite("LIRE_MAILLAGE",pos)
+ test,mess=co.nomme_sd("MAIL")
+ mcs=co.addentite("UNITE")
+ valeur,validite=mcs.eval_valeur("P3")
+ test=mcs.set_valeur(valeur)
+#
+ pos=pos+1
+ co=j.addentite("COMMENTAIRE",pos)
+ co.set_valeur(" 'LIRE_MAILLAGE', 'UNITE' --> uniquebasepanel")
+# formule
+ pos=pos+1
+ co=j.addentite("FORMULE",pos)
+ co.update_formule_python(("az","REEL","aaaaa","(ae,inst)"))
+# commande AFFE_MODELE
+ pos=pos+1
+ co=j.addentite("AFFE_MODELE",pos)
+ mcs=co.get_child("MAILLAGE")
+ valeur,validite=mcs.eval_valeur("MAIL")
+ assert valeur == ma.sd
+ test=mcs.set_valeur(valeur)
+ assert valeur == co["MAILLAGE"]
+ mcf=co.addentite("AFFE")
+ mcs=mcf[0].get_child("PHENOMENE")
+ valeur=mcs.eval_val_item('MECANIQUE')
+ assert valeur=='MECANIQUE',str(valeur)
+ test=mcs.set_valeur(valeur)
+ assert mcf["PHENOMENE"] == 'MECANIQUE'
+ mcs=mcf[0].get_child("b_mecanique").get_child("MODELISATION")
+ mcs.set_valeur(mcs.eval_val_item('DIS_T'))
+ assert mcf["MODELISATION"] == 'DIS_T'
+ mcs=add_mcsimp(mcf[0],"GROUP_MA",('RESSORT','eee',))
+
+ mcf=co.addentite("AFFE")
+ mcs=mcf[1].get_child("PHENOMENE")
+ mcs.set_valeur(mcs.eval_val_item('MECANIQUE'))
+ mcs=mcf[1].get_child("b_mecanique").get_child("MODELISATION")
+ mcs.set_valeur(mcs.eval_val_item('DIS_T'))
+ mcs=add_mcsimp(mcf[1],"GROUP_MA",'MASSES')
+
+ mcf=co.addentite("AFFE")
+ mcs=mcf[2].get_child("PHENOMENE")
+ mcs.set_valeur(mcs.eval_val_item('ACOUSTIQUE'))
+ mcs=mcf[2].get_child("b_acoustique").get_child("MODELISATION")
+ mcs.set_valeur(mcs.eval_val_item('PLAN'))
+ #mcs=add_mcsimp(mcf[2],"GROUP_NO",'GNP3,GNP5,GNP6,GNP7,GNP8,GNP9,GNP10,GNP11,GNP12')
+ mcs=add_mcsimp(mcf[2],"GROUP_NO","'GNP3','GNP5','GNP6','GNP7','GNP8','GNP9','GNP10','GNP11','GNP12'")
+
+ co.nomme_sd("AFFE1")
+# commande AFFE_MODELE
+ pos=pos+1
+ co=j.addentite("AFFE_MODELE",pos)
+ mcs=co.get_child("MAILLAGE")
+ mcs.set_valeur(mcs.eval_val("MAIL"))
+
+ mcf=co.addentite("AFFE")
+ mcs=mcf[0].get_child("PHENOMENE")
+ valeur=mcs.eval_val_item('MECANIQUE')
+ test=mcs.set_valeur(valeur)
+ mcs=mcf[0].get_child("b_mecanique").get_child("MODELISATION")
+ mcs.set_valeur(mcs.eval_val_item('DIS_T'))
+ mcs=add_mcsimp(mcf[0],"GROUP_MA",'RESSORT')
+
+ mcf=co.addentite("AFFE")
+ mcs=mcf[1].get_child("PHENOMENE")
+ mcs.set_valeur(mcs.eval_val_item('MECANIQUE'))
+ mcs=mcf[1].get_child("b_mecanique").get_child("MODELISATION")
+ mcs.set_valeur(mcs.eval_val_item('DIS_T'))
+ mcs=add_mcsimp(mcf[1],"GROUP_MA",'MASSES')
+
+ mcf=co.addentite("AFFE")
+ mcs=mcf[2].get_child("PHENOMENE")
+ mcs.set_valeur(mcs.eval_val_item('THERMIQUE'))
+ mcs=mcf[2].get_child("b_thermique").get_child("MODELISATION")
+ mcs.set_valeur(mcs.eval_val_item('COQUE'))
+ mcs=add_mcsimp(mcf[2],"TOUT",'OUI')
+
+ co.nomme_sd("MOD")
+#CARA=AFFE_CARA_ELEM(MODELE=MOD,
+# POUTRE=_F(GROUP_MA='MA',
+# SECTION='CERCLE',
+# CARA='R',
+# VALE=(3.0,P6,),),);
+ pos=pos+1
+ co=j.addentite("AFFE_CARA_ELEM",pos)
+ mcs=co.get_child("MODELE")
+ mcs.set_valeur(mcs.eval_val("MOD"))
+ mcf=co.addentite("POUTRE")
+ mcs=mcf[0].get_child("SECTION")
+ mcs.set_valeur(mcs.eval_val('CERCLE'))
+ assert mcf[0]["SECTION"] == 'CERCLE'
+ mcs=add_mcsimp(mcf[0],"GROUP_MA",'MA')
+ mcs=mcf[0].get_child("b_cercle").get_child("b_constant").get_child("CARA")
+ mcs.set_valeur(mcs.eval_val('R'))
+ mcs=mcf[0].get_child("b_cercle").get_child("b_constant").get_child("VALE")
+ mcs.set_valeur(mcs.eval_val('3.0,P6'))
+ co.nomme_sd("CARA")
+# commentaire
+ pos=pos+1
+ co=j.addentite("COMMENTAIRE",pos)
+ text=""" 'AFFE_MODELE', 'MAILLAGE' --> uniqueassdpanel
+ AFFE_MODELE', 'AFFE', 'GROUP_MA' --> plusieursbasepanel
+ 'AFFE_MODELE', 'AFFE', 'PHENOMENE' --> uniqueintopanel
+ 'AFFE_MODELE', 'AFFE', 'b_mecanique'--> plusieursintopanel"""
+ co.set_valeur(text)
+#F1=DEFI_FONCTION(NOM_PARA='DX',
+# VALE=(5.0,3.0,P4[1],P3,),);
+ pos=pos+1
+ co=j.addentite("DEFI_FONCTION",pos)
+ mcs=co.get_child("NOM_PARA")
+ mcs.set_valeur(mcs.eval_val("DX"))
+ mcs=co.addentite("VALE")
+ mcs.set_valeur(mcs.eval_val("5.0,3.0,P4[1],P3"))
+ co.nomme_sd("F1")
+#F3=DEFI_FONCTION(NOM_PARA='DRX',
+# VALE_C=(5.0,7.0,9.0,9.0,8.0,7.0,),);
+ pos=pos+1
+ co=j.addentite("DEFI_FONCTION",pos)
+ mcs=co.get_child("NOM_PARA")
+ mcs.set_valeur(mcs.eval_val("DRX"))
+ mcs=co.addentite("VALE_C")
+ mcs.set_valeur(mcs.eval_val("5.0,7.0,9.0,9.0,8.0,7.0"))
+ co.nomme_sd("F3")
+# commentaire
+ pos=pos+1
+ co=j.addentite("COMMENTAIRE",pos)
+ co.set_valeur(" 'DEFI_FONCTION', 'VALE' --> fonctionpanel ")
+#MATER2=DEFI_MATERIAU(ELAS=_F(E=100000000000.0,
+# NU=0.0,),
+# ECRO_ASYM_LINE=_F(DC_SIGM_EPSI=0.0,
+# SY_C=200000000.0,
+# DT_SIGM_EPSI=0.0,
+# SY_T=50000000.0,),);
+ pos=pos+1
+ co=j.addentite("DEFI_MATERIAU",pos)
+ mcf=co.addentite("ELAS")
+ mcs=mcf[0].get_child("E")
+ mcs.set_valeur(mcs.eval_val("100000000000.0"))
+ mcs=mcf[0].get_child("NU")
+ mcs.set_valeur(mcs.eval_val("0.0"))
+ mcf=co.addentite("ECRO_ASYM_LINE")
+ mcs=mcf[0].get_child("DC_SIGM_EPSI")
+ mcs.set_valeur(mcs.eval_val("0.0"))
+ mcs=mcf[0].get_child("DT_SIGM_EPSI")
+ mcs.set_valeur(mcs.eval_val("0.0"))
+ mcs=mcf[0].get_child("SY_C")
+ mcs.set_valeur(mcs.eval_val("200000000.0"))
+ mcs=mcf[0].get_child("SY_T")
+ mcs.set_valeur(mcs.eval_val("50000000.0"))
+ co.nomme_sd("MATER2")
+#PS1=DEFI_PARA_SENSI(VALE=1.0,);
+#PS2=DEFI_PARA_SENSI(VALE=1.0,);
+#PS3=DEFI_PARA_SENSI(VALE=1.0,);
+ pos=pos+1
+ co=j.addentite("DEFI_PARA_SENSI",pos)
+ mcs=co.get_child("VALE")
+ mcs.set_valeur(mcs.eval_val("1.0"))
+ co.nomme_sd("PS1")
+ pos=pos+1
+ co=j.addentite("DEFI_PARA_SENSI",pos)
+ mcs=co.get_child("VALE")
+ mcs.set_valeur(mcs.eval_val("1.0"))
+ co.nomme_sd("PS2")
+ pos=pos+1
+ co=j.addentite("DEFI_PARA_SENSI",pos)
+ mcs=co.get_child("VALE")
+ mcs.set_valeur(mcs.eval_val("1.0"))
+ co.nomme_sd("PS3")
+#CHMAT2=AFFE_MATERIAU(MAILLAGE=MAIL,
+# AFFE=_F(TOUT='OUI',
+# MATER=MATER2,),);
+ pos=pos+1
+ co=j.addentite("AFFE_MATERIAU",pos)
+ add_mcsimp(co,"MAILLAGE","MAIL")
+ mcf=co.get_child("AFFE")
+ add_mcsimp(mcf[0],"TOUT","OUI")
+ add_mcsimp(mcf[0],"MATER","MATER2")
+ co.nomme_sd("CHMAT2")
+#AAAZ=AFFE_CHAR_THER(MODELE=AFFE1,
+# TEMP_IMPO=_F(TOUT='OUI',
+# TEMP=0.0,),);
+ pos=pos+1
+ co=j.addentite("AFFE_CHAR_THER",pos)
+ add_mcsimp(co,"MODELE","AFFE1")
+ mcf=co.addentite("TEMP_IMPO")
+ add_mcsimp(mcf[0],"TOUT","OUI")
+ add_mcsimp(mcf[0],"TEMP","0.0")
+ co.nomme_sd("AAAZ")
+#TH1=THER_LINEAIRE(MODELE=AFFE1,
+# CHAM_MATER=CHMAT2,
+# EXCIT=_F(CHARGE=AAAZ,),
+# SENSIBILITE=(PS1,PS2,),);
+ pos=pos+1
+ co=j.addentite("THER_LINEAIRE",pos)
+ add_mcsimp(co,"MODELE","AFFE1")
+ add_mcsimp(co,"CHAM_MATER","CHMAT2")
+ mcf=co.get_child("EXCIT")
+ add_mcsimp(mcf[0],"CHARGE","AAAZ")
+ add_mcsimp(co,"SENSIBILITE","PS1,PS2")
+ co.nomme_sd("TH1")
+# commentaire
+ pos=pos+1
+ co=j.addentite("COMMENTAIRE",pos)
+ co.set_valeur(" 'THER_LINEAIRE', 'SENSIBILITE' --> plusieursassdpanel")
+#ACA1=AFFE_CHAR_ACOU(MODELE=AFFE1,
+# PRES_IMPO=_F(TOUT='OUI',
+# PRES=('RI',3.0,3.0,),),);
+ pos=pos+1
+ co=j.addentite("AFFE_CHAR_ACOU",pos)
+ add_mcsimp(co,"MODELE","AFFE1")
+ mcf=co.addentite("PRES_IMPO")
+ add_mcsimp(mcf[0],"TOUT","OUI")
+ add_mcsimp(mcf[0],"PRES","'RI',3.0,3.0")
+ co.nomme_sd("ACA1")
+# commentaire
+ pos=pos+1
+ co=j.addentite("COMMENTAIRE",pos)
+ co.set_valeur(" 'AFFE_CHAR_ACOU', 'PRES_IMPO', 'PRES' --> uniquecomppanel")
+
+# 'AFFE_CHAR_ACOU', 'PRES_IMPO', 'PRES' --> uniquecomppanel
+
+#MACRO_MATR_ASSE(MODELE=AFFE1,
+# NUME_DDL=CO('DDL1'),
+# MATR_ASSE=_F(MATRICE=CO('MAT1'),
+# OPTION='RIGI_THER',),);
+ pos=pos+1
+ co=j.addentite("MACRO_MATR_ASSE",pos)
+ add_mcsimp(co,"MODELE","AFFE1")
+ mcs=co.get_child("NUME_DDL")
+ mcs.set_valeur_co('DDL1')
+ mcf=co.get_child("MATR_ASSE")
+ add_mcsimp(mcf[0],"OPTION","RIGI_THER")
+ mcs=mcf[0].get_child("MATRICE")
+ mcs.set_valeur_co('MAT1')
+# commentaire
+ pos=pos+1
+ co=j.addentite("COMMENTAIRE",pos)
+ co.set_valeur(" 'MACRO_MATR_ASSE', 'MATR_ASSE', 'MATRICE' --> uniquesdcopanel")
+
+ assert j.isvalid(),j.report()
+
+ text1=app.get_text_JDC(j,'python')
+ file=os.path.join(prefs.INSTALLDIR,"Tests/testelem/az.comm")
+ f=open(file)
+ text2=f.read()
+ f.close()
+ assert text1 == text2 , cdiff(text1,text2)
+
+ def test001(self):
+ """ Test de construction d'un fichier de commandes avec DEFI_LIST_REEL, fonction et parametre de zero"""
+
+ app=appli.STANDALONE(version='v7')
+ j=app.newJDC()
+# commande DEBUT
+ co=j.addentite("DEBUT",0)
+# commande FIN
+ co=j.addentite("FIN",1)
+#parametre
+ pos=0
+ pos=pos+1
+ co=add_param(j,pos,"P1","9.8")
+ pos=pos+1
+ co=add_param(j,pos,"P2","sin(P1)")
+# formule
+ pos=pos+1
+ co=j.addentite("FORMULE",pos)
+ co.update_formule_python(("aaa","REEL","a+z","(a,z)"))
+#parametre de formule
+ pos=pos+1
+ co=add_param(j,pos,"P3","aaa(P1,2.)")
+#commande defi_list_reel
+ pos=pos+1
+ co=j.addentite("DEFI_LIST_REEL",pos)
+ add_mcsimp(co,"VALE","1.,2.,3.")
+ co.nomme_sd("LI1")
+#commande defi_list_reel
+ pos=pos+1
+ co=j.addentite("DEFI_LIST_REEL",pos)
+ add_mcsimp(co,"VALE","sin(1.)")
+ co.nomme_sd("LI2")
+#commande defi_list_reel
+ pos=pos+1
+ co=j.addentite("DEFI_LIST_REEL",pos)
+ add_mcsimp(co,"VALE","aaa(1.,2.)")
+ co.nomme_sd("LI3")
+#commande defi_list_reel
+ pos=pos+1
+ co=j.addentite("DEFI_LIST_REEL",pos)
+ add_mcsimp(co,"VALE","sin(1.,2)")
+ co.nomme_sd("LI4")
+#commande defi_list_reel
+ pos=pos+1
+ co=j.addentite("DEFI_LIST_REEL",pos)
+ add_mcsimp(co,"VALE","aaa(1.)")
+ co.nomme_sd("LI5")
+#commande defi_list_reel
+ pos=pos+1
+ co=j.addentite("DEFI_LIST_REEL",pos)
+ add_mcsimp(co,"VALE","1,sin(1.),2")
+ co.nomme_sd("LI6")
+
+ expected="""DEBUT CR validation : SansNom
+ Etape : DEFI_LIST_REEL ligne : ...
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ ! Concept retourné non défini !
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ Mot-clé simple : VALE
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ ! 'sin(1.,2)' n'est pas d'un type autorisé: ('R',) !
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ Fin Mot-clé simple : VALE
+ Fin Etape : DEFI_LIST_REEL
+ Etape : DEFI_LIST_REEL ligne : ...
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ ! Concept retourné non défini !
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ Mot-clé simple : VALE
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ ! 'aaa(1.)' n'est pas d'un type autorisé: ('R',) !
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ Fin Mot-clé simple : VALE
+ Fin Etape : DEFI_LIST_REEL
+FIN CR validation :SansNom
+"""
+ msg=str( j.report())
+ assert compare.check(expected,msg),cdiff(expected,msg)
