Aster/Cata/cataSTA8/materiau/Z12CN13_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 # LAMBDA EN FONCTION DE LA TEMPéRATURE
  21 #
  22 coef0=1.E ## UNIT -3
  23 _A0=DEFI_FONCTION(
  24           NOM_PARA='TEMP',
  25        PROL_DROITE='EXCLU',
  26        PROL_GAUCHE='EXCLU',
  27               VALE=(
  28           20.            ,22.7            *coef0,
  29           50.            ,23.1            *coef0,
  30           100.           ,23.9            *coef0,
  31           150.           ,24.7            *coef0,
  32           200.           ,25.5            *coef0,
  33           250.           ,26.3            *coef0,
  34           300.           ,27.1            *coef0,
  35           350.           ,27.9            *coef0,
  36           400.           ,28.7            *coef0,
  37           450.           ,29.5            *coef0,
  38           500.           ,30.3            *coef0,
  39           550.           ,31.1            *coef0,
  40           600.           ,31.9            *coef0,
  41           650.           ,32.7            *coef0,
  42           ))
  43
  44 #
  45 # RHO_CP EN FONCTION DE LA TEMPéRATURE
  46 #
  47 coef1=1.E ## UNIT -9
  48 _A1=DEFI_FONCTION(
  49            NOM_PARA='TEMP',
  50         PROL_DROITE='EXCLU',
  51         PROL_GAUCHE='EXCLU',
  52                VALE=(
  53           20.            ,3.64E+6         *coef1,
  54           50.            ,3.73E+6         *coef1,
  55           100.           ,3.90E+6         *coef1,
  56           150.           ,4.06E+6         *coef1,
  57           200.           ,4.22E+6         *coef1,
  58           250.           ,4.39E+6         *coef1,
  59           300.           ,4.55E+6         *coef1,
  60           350.           ,4.70E+6         *coef1,
  61           400.           ,4.86E+6         *coef1,
  62           450.           ,5.04E+6         *coef1,
  63           500.           ,5.21E+6         *coef1,
  64           550.           ,5.32E+6         *coef1,
  65           600.           ,5.39E+6         *coef1,
  66           650.           ,5.37E+6         *coef1,
  67           ))
  68
  69 #
  70 # E EN FONCTION DE LA TEMPéRATURE
  71 #
  72 coef2=1.E ## UNIT -6
  73 _A2=DEFI_FONCTION(
  74             NOM_PARA='TEMP',
  75          PROL_DROITE='EXCLU',
  76          PROL_GAUCHE='EXCLU',
  77                 VALE=(
  78           0.             ,216.5E+9        *coef2,
  79           20.            ,215.4E+9        *coef2,
  80           50.            ,213.0E+9        *coef2,
  81           100.           ,209.4E+9        *coef2,
  82           150.           ,206.0E+9        *coef2,
  83           200.           ,201.8E+9        *coef2,
  84           250.           ,197.5E+9        *coef2,
  85           300.           ,193.5E+9        *coef2,
  86           350.           ,189.0E+9        *coef2,
  87           400.           ,184.5E+9        *coef2,
  88           450.           ,179.0E+9        *coef2,
  89           500.           ,173.5E+9        *coef2,
  90           550.           ,167.0E+9        *coef2,
  91           ))
  92
  93 #
  94 # NU EN FONCTION DE LA TEMPéRATURE
  95 #
  96
  97 _A3=DEFI_FONCTION(
  98             NOM_PARA='TEMP',
  99          PROL_DROITE='CONSTANT',
 100          PROL_GAUCHE='CONSTANT',
 101                 VALE=(   0.,    0.3,
 102                      ))
 103
 104 #
 105 # ALPHA EN FONCTION DE LA TEMPéRATURE
 106 #
 107
 108 _A4=DEFI_FONCTION(
 109             NOM_PARA='TEMP',
 110          PROL_DROITE='EXCLU',
 111          PROL_GAUCHE='EXCLU',
 112                 VALE=(   20.,  9.42E-6,     50.,   9.60E-6,
 113                         100.,  9.96E-6,    150.,  10.20E-6,
 114                         200., 10.44E-6,    250.,  10.69E-6,
 115                         300., 10.95E-6,    350.,  11.19E-6,
 116                         400., 11.40E-6,    450.,  11.59E-6,
 117                      ))
 118
 119
 120 MAT=DEFI_MATERIAU(
 121               THER_NL=_F(                ## SUBST THER
 122                RHO_CP = _A1,             ## EVAL _A1
 123                LAMBDA = _A0,             ## EVAL _A0
 124                ),
 125               ELAS_FO=_F(                ## SUBST ELAS
 126                E = _A2,                  ## EVAL _A2
 127                NU = _A3,                 ## EVAL _A3
 128                ALPHA = _A4,              ## EVAL _A4
 129                TEMP_DEF_ALPHA = 20.,     ## SUPPR
 130                )
 131           )
 132
 133 #
 134