Aster/Cata/cataSTA8/materiau/Z2CND1712_REF_A.NOMI

   1 # MODIF  DATE 24/10/2006   AUTEUR DURAND C.DURAND
   2 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   3 # ======================================================================
   4 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
   5 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   6 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
   7 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
   8 # (AT YOUR OPTION) ANY LATER VERSION.
   9 #
  10 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
  11 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  12 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  13 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  14 #
  15 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
  16 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
  17 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
  18 # ======================================================================
  19 #
  20 # Catalogue MATERIAU de l'acier inoxydable austenitique 316L
  21 #   - Denomination AFNOR   : Z2CND1712
  22 #   - Denomination usuelle : A316L
  23 #
  24 # LAMBDA EN FONCTION DE LA TEMPERATURE
  25 #
  26 coef0=1.E ## UNIT -3
  27
  28 _A0=DEFI_FONCTION(      NOM_PARA='TEMP',
  29                             PROL_DROITE='EXCLU',
  30                             PROL_GAUCHE='EXCLU',
  31                                    VALE=(
  32           20.            ,14.0         *coef0,
  33           50.            ,14.4         *coef0,
  34           100.           ,15.2         *coef0,
  35           150.           ,15.8         *coef0,
  36           200.           ,16.6         *coef0,
  37           250.           ,17.3         *coef0,
  38           300.           ,17.9         *coef0,
  39           350.           ,18.6         *coef0,
  40           400.           ,19.2         *coef0,
  41           450.           ,19.9         *coef0,
  42           500.           ,20.6         *coef0,
  43           550.           ,21.2         *coef0,
  44           600.           ,21.8         *coef0,
  45           650.           ,22.4         *coef0,
  46           700.           ,23.1         *coef0,
  47           750.           ,23.7         *coef0,
  48           800.           ,24.3         *coef0,
  49           900.           ,26.0         *coef0,
  50           1000.          ,27.3         *coef0,
  51           1200.          ,29.9         *coef0,
  52           1500.          ,34.0         *coef0,
  53                ))
  54
  55 #
  56 # RHO_CP EN FONCTION DE LA TEMPERATURE
  57 #
  58 coef1=1.E ## UNIT -9
  59 _A1=DEFI_FONCTION(      NOM_PARA='TEMP',
  60                             PROL_DROITE='EXCLU',
  61                             PROL_GAUCHE='EXCLU',
  62                               VALE=(
  63           20.            ,3598972.     *coef1,
  64           50.            ,3701799.     *coef1,
  65           100.           ,3907455.     *coef1,
  66           150.           ,4010152.     *coef1,
  67           200.           ,4160401.     *coef1,
  68           250.           ,4261084.     *coef1,
  69           300.           ,4292566.     *coef1,
  70           350.           ,4366197.     *coef1,
  71           400.           ,4393593.     *coef1,
  72           450.           ,4422222.     *coef1,
  73           500.           ,4439655.     *coef1,
  74           550.           ,4463158.     *coef1,
  75           600.           ,4494845.     *coef1,
  76           650.           ,4525252.     *coef1,
  77           700.           ,4583333.     *coef1,
  78           750.           ,4637965.     *coef1,
  79           800.           ,4700193.     *coef1,
  80           900.           ,4946500.     *coef1,
  81           1000.          ,4989600.     *coef1,
  82           1200.          ,5043650.     *coef1,
  83           1500.          ,5037000.     *coef1,
  84           ))
  85
  86 #
  87 # E EN FONCTION DE LA TEMPERATURE
  88 #
  89 coef2=1.E ## UNIT -6
  90 _A2=DEFI_FONCTION(      NOM_PARA='TEMP',
  91                             PROL_DROITE='EXCLU',
  92                             PROL_GAUCHE='EXCLU',
  93                               VALE=(
  94           0.             ,198500.E+6     *coef2,
  95           20.            ,197000.E+6     *coef2,
  96           50.            ,195000.E+6     *coef2,
  97           100.           ,191500.E+6     *coef2,
  98           150.           ,187500.E+6     *coef2,
  99           200.           ,184000.E+6     *coef2,
 100           250.           ,180000.E+6     *coef2,
 101           300.           ,176500.E+6     *coef2,
 102           350.           ,172000.E+6     *coef2,
 103           400.           ,168000.E+6     *coef2,
 104           450.           ,164000.E+6     *coef2,
 105           500.           ,160000.E+6     *coef2,
 106           550.           ,155500.E+6     *coef2,
 107           600.           ,151500.E+6     *coef2,
 108           700.           ,142500.E+6     *coef2,
 109           800.           ,130000.E+6     *coef2,
 110           900.           ,108000.E+6     *coef2,
 111           1000.          ,81500.E+6      *coef2,
 112           1100.          ,32000.E+6      *coef2,
 113           1200.          ,7400.E+6       *coef2,
 114           1300.          ,3000.E+6       *coef2,
 115           1400.          ,5.E+6          *coef2,
 116           ))
 117 #
 118 # NU EN FONCTION DE LA TEMPERATURE
 119 #
 120 _A3=DEFI_FONCTION(      NOM_PARA='TEMP',
 121                             PROL_DROITE='CONSTANT',
 122                             PROL_GAUCHE='CONSTANT',
 123                                    VALE=(   0.,    0.3,
 124                                         ))
 125
 126 #
 127 # ALPHA EN FONCTION DE LA TEMPERATURE
 128 #
 129
 130 _A4=DEFI_FONCTION(      NOM_PARA='TEMP',
 131                             PROL_DROITE='EXCLU',
 132                             PROL_GAUCHE='EXCLU',
 133                               VALE=(
 134            0.0          ,15.4E-6   ,
 135            20.0         ,15.54E-6   ,
 136            50.0         ,15.72E-6   ,
 137            100.0        ,16.0E-6   ,
 138            150.0        ,16.3E-6   ,
 139            200.0        ,16.6E-6   ,
 140            250.0        ,16.86E-6   ,
 141            300.0        ,17.1E-6   ,
 142            350.0        ,17.36E-6   ,
 143            400.0        ,17.6E-6   ,
 144            450.0        ,17.82E-6   ,
 145            500.0        ,18.0E-6   ,
 146            600.0        ,18.4E-6   ,
 147            700.0        ,18.7E-6   ,
 148            800.0        ,19.0E-6   ,
 149            900.0        ,19.2E-6   ,
 150            1000.0       ,19.4E-6   ,
 151            1400.0       ,19.6E-6   ,
 152            1600.0       ,19.7E-6   ,
 153            ))
 154
 155
 156 #
 157 # COURBE DE TRACTION A LA TEMPERATURE 20C
 158 #
 159
 160 coef5=1.E ## UNIT -6
 161 _TR20=DEFI_FONCTION(      NOM_PARA='EPSI',
 162                            PROL_DROITE='EXCLU',
 163                            PROL_GAUCHE='EXCLU',
 164                                    VALE=(
 165            0.08446701E-2      ,166.4E+6         *coef5,
 166            0.09221476E-2      ,177.72307E+6     *coef5,
 167            0.09675755E-2      ,184.702374E+6    *coef5,
 168            0.10035526E-2      ,189.819863E+6    *coef5,
 169            0.10341966E-2      ,193.88674E+6     *coef5,
 170            0.10613920E-2      ,197.274216E+6    *coef5,
 171            0.11091372E-2      ,202.74003E+6     *coef5,
 172            0.11294416E-2      ,202.8E+6         *coef5,
 173            0.13218274E-2      ,221.E+6          *coef5,
 174            0.17010152E-2      ,236.6E+6         *coef5,
 175            0.22670051E-2      ,249.6E+6         *coef5,
 176            0.33197970E-2      ,260.E+6          *coef5,
 177            0.53857868E-2      ,273.E+6          *coef5,
 178            0.74253807E-2      ,280.8E+6         *coef5,
 179            0.94517766E-2      ,286.E+6          *coef5,
 180            1.14913706E-2      ,293.8E+6         *coef5,
 181            1.65573604E-2      ,306.8E+6         *coef5,
 182            2.16101523E-2      ,317.2E+6         *coef5,
 183            3.17289340E-2      ,340.6E+6         *coef5,
 184             ))
 185
 186 #
 187 # COURBE DE TRACTION A LA TEMPERATURE 100C
 188 #
 189 coef6=1.E ## UNIT -6
 190 _TR100=DEFI_FONCTION(      NOM_PARA='EPSI',
 191                            PROL_DROITE='EXCLU',
 192                            PROL_GAUCHE='EXCLU',
 193                                    VALE=(
 194            0.07268930E-2      ,139.2E+6         *coef6,
 195            0.10049608E-2      ,173.3E+6         *coef6,
 196            0.20003864E-2      ,200.E+6          *coef6,
 197            0.30757180E-2      ,206.E+6          *coef6,
 198            1.11994778E-2      ,229.7E+6         *coef6,
 199            2.13211488E-2      ,253.E+6          *coef6,
 200            4.15456919E-2      ,296.E+6          *coef6,
 201            6.17545692E-2      ,336.E+6          *coef6,
 202            8.19582245E-2      ,375.E+6          *coef6,
 203            10.2151436E-2      ,412.E+6          *coef6,
 204            15.2647520E-2      ,507.E+6          *coef6,
 205            20.3143603E-2      ,602.E+6          *coef6,
 206       ))
 207 #
 208 # COURBE DE TRACTION A LA TEMPERATURE 200C
 209 #
 210 coef7=1.E ## UNIT -6
 211 _TR200=DEFI_FONCTION(      NOM_PARA='EPSI',
 212                            PROL_DROITE='EXCLU',
 213                            PROL_GAUCHE='EXCLU',
 214                                    VALE=(
 215            0.06271740E-2      ,115.4E+6         *coef7,
 216            0.10631555E-2      ,153.4E+6         *coef7,
 217            0.19565609E-2      ,170.E+6          *coef7,
 218            0.29734414E-2      ,173.E+6          *coef7,
 219            1.11084853E-2      ,197.E+6          *coef7,
 220            2.12435291E-2      ,221.E+6          *coef7,
 221            4.14854828E-2      ,264.E+6          *coef7,
 222            6.17133693E-2      ,304.5E+6         *coef7,
 223            8.19300023E-2      ,343.E+6          *coef7,
 224            10.2149449E-2      ,382.E+6          *coef7,
 225            15.2689624E-2      ,478.E+6          *coef7,
 226            20.3224173E-2      ,573.E+6          *coef7,
 227      ))
 228 #
 229 # COURBE DE TRACTION A LA TEMPERATURE 300C
 230 #
 231 coef8=1.E ## UNIT -6
 232 _TR300=DEFI_FONCTION(      NOM_PARA='EPSI',
 233                            PROL_DROITE='EXCLU',
 234                            PROL_GAUCHE='EXCLU',
 235                                    VALE=(
 236            0.05694051E-2      ,100.5E+6 *coef8,
 237            0.09563739E-2      ,133.5E+6 *coef8,
 238            0.19998584E-2      ,150.E+6  *coef8,
 239            0.28781870E-2      ,155.E+6  *coef8,
 240            1.10254958E-2      ,181.E+6  *coef8,
 241            2.11614731E-2      ,205.E+6  *coef8,
 242            4.14164306E-2      ,250.E+6  *coef8,
 243            6.16430595E-2      ,290.E+6  *coef8,
 244            8.18696884E-2      ,330.E+6  *coef8,
 245            10.2096317E-2      ,370.E+6  *coef8,
 246            15.2623229E-2      ,463.E+6  *coef8,
 247            20.3161473E-2      ,558.E+6  *coef8,
 248     ))
 249 #
 250 # COURBE DE TRACTION A LA TEMPERATURE 350C
 251 #
 252 coef9=1.E ## UNIT -6
 253 _TR350=DEFI_FONCTION(      NOM_PARA='EPSI',
 254                            PROL_DROITE='EXCLU',
 255                            PROL_GAUCHE='EXCLU',
 256                                    VALE=(
 257            0.05558140E-2     ,95.6E+6         *coef9,
 258            0.06134823E-2     ,102.078952E+6   *coef9,
 259            0.06467887E-2     ,106.087661E+6   *coef9,
 260            0.06738779E-2     ,109.026998E+6   *coef9,
 261            0.06974587E-2     ,111.362893E+6   *coef9,
 262            0.07187707E-2     ,113.308561E+6   *coef9,
 263            0.07570231E-2     ,116.447965E+6   *coef9,
 264            0.08008140E-2     ,120.54E+6       *coef9,
 265            0.09520930E-2     ,129.36E+6       *coef9,
 266            0.12862791E-2     ,135.24E+6       *coef9,
 267            0.18204651E-2     ,141.12E+6       *coef9,
 268            0.28546512E-2     ,147.E+6         *coef9,
 269            0.48973837E-2     ,154.35E+6       *coef9,
 270            0.69315698E-2     ,160.23E+6       *coef9,
 271            0.89657558E-2     ,166.11E+6       *coef9,
 272            1.09913953E-2     ,170.52E+6       *coef9,
 273            1.60597674E-2     ,182.28E+6       *coef9,
 274            2.11195930E-2     ,192.57E+6       *coef9,
 275            3.12477907E-2     ,214.62E+6       *coef9,
 276              ))
 277 #
 278 # COURBE DE TRACTION
 279 #
 280
 281 _A5=DEFI_NAPPE(
 282                    NOM_PARA='TEMP',
 283                PROL_DROITE='EXCLU',
 284                PROL_GAUCHE='EXCLU',
 285                  PARA=(20.,100.,200.,300.,350., ),
 286                  FONCTION=(_TR20,_TR100,_TR200,_TR300,_TR350))
 287
 288 # COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
 289
 290 _AZ=DEFI_FONCTION(NOM_PARA='SIGM',
 291                      INTERPOL='LOG',
 292                      VALE=(
 293                      180.0E6,   1000000.0  ,
 294                      200.0E6,   500000.0  ,
 295                      230.0E6,   200000.0  ,
 296                      260.0E6,   100000.0  ,
 297                      295.0E6,   50000.0  ,
 298                      350.0E6,   20000.0  ,
 299                      405.0E6,   10000.0  ,
 300                      485.0E6,   5000.0  ,
 301                      615.0E6,   2000.0  ,
 302                      750.0E6,   1000.0  ,
 303                      940.0E6,   500.0  ,
 304                      1275.0E6,   200.0  ,
 305                      1655.0E6,   100.0  ,
 306                      2190.0E6,   50.0  ,
 307                      3240.0E6,   20.0  ,
 308                      4480.0E6,   10.0,
 309                           ),);
 310 _BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
 311 _CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
 312                          COEF     =  1.E ## UNIT -6
 313                          ),);
 314 DETRUIRE( CONCEPT =_F( NOM=_AZ), )
 315 _AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
 316
 317
 318 MAT=DEFI_MATERIAU(
 319               THER_NL=_F(                ## SUBST THER
 320                RHO_CP = _A1,             ## EVAL _A1
 321                LAMBDA = _A0,             ## EVAL _A0
 322                ),
 323               ELAS_FO=_F(                ## SUBST ELAS
 324                E = _A2,                  ## EVAL _A2
 325                NU = _A3,                 ## EVAL _A3
 326                ALPHA = _A4,              ## EVAL _A4
 327                TEMP_DEF_ALPHA = 20.,     ## SUPPR
 328                ),
 329               TRACTION=_F( SIGM = _A5,    ),
 330
 331               FATIGUE=_F(WOHLER=_AZ,
 332                          E_REFE=2.07E11*1.E ## UNIT -6
 333                         ),
 334                 )
 335
 336 #
 337