Aster/Cata/cataSTA9/materiau/18MND5_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.            ,37.7            *coef0,
  29           50.            ,38.6            *coef0,
  30           100.           ,39.9            *coef0,
  31           150.           ,40.5            *coef0,
  32           200.           ,40.5            *coef0,
  33           250.           ,40.2            *coef0,
  34           300.           ,39.5            *coef0,
  35           350.           ,38.7            *coef0,
  36           400.           ,37.7            *coef0,
  37           450.           ,36.6            *coef0,
  38           500.           ,35.5            *coef0,
  39           550.           ,34.3            *coef0,
  40           600.           ,33.0            *coef0,
  41           650.           ,31.8            *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.49E+6         *coef1,
  54           50.            ,3.59E+6         *coef1,
  55           100.           ,3.77E+6         *coef1,
  56           150.           ,3.93E+6         *coef1,
  57           200.           ,4.09E+6         *coef1,
  58           250.           ,4.27E+6         *coef1,
  59           300.           ,4.42E+6         *coef1,
  60           350.           ,4.60E+6         *coef1,
  61           400.           ,4.80E+6         *coef1,
  62           450.           ,5.04E+6         *coef1,
  63           500.           ,5.35E+6         *coef1,
  64           550.           ,5.69E+6         *coef1,
  65           600.           ,6.10E+6         *coef1,
  66           650.           ,6.65E+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.             ,205.E+9         *coef2,
  79           20.            ,204.E+9         *coef2,
  80           50.            ,203.E+9         *coef2,
  81           100.           ,200.E+9         *coef2,
  82           150.           ,197.E+9         *coef2,
  83           200.           ,193.E+9         *coef2,
  84           250.           ,189.E+9         *coef2,
  85           300.           ,185.E+9         *coef2,
  86           350.           ,180.E+9         *coef2,
  87           400.           ,176.E+9         *coef2,
  88           450.           ,171.E+9         *coef2,
  89           500.           ,166.E+9         *coef2,
  90           550.           ,160.E+9         *coef2,
  91           600.           ,155.E+9         *coef2,
  92           ))
  93
  94 #
  95 # NU EN FONCTION DE LA TEMPéRATURE
  96 #
  97
  98 _A3=DEFI_FONCTION(
  99             NOM_PARA='TEMP',
 100          PROL_DROITE='CONSTANT',
 101          PROL_GAUCHE='CONSTANT',
 102                 VALE=(   0.,    0.3,
 103                      ))
 104
 105 #
 106 # ALPHA EN FONCTION DE LA TEMPéRATURE
 107 #
 108
 109 _A4=DEFI_FONCTION(
 110             NOM_PARA='TEMP',
 111          PROL_DROITE='EXCLU',
 112          PROL_GAUCHE='EXCLU',
 113                 VALE=(   20., 11.22E-6,     50.,  11.45E-6,
 114                         100., 11.79E-6,    150.,  12.14E-6,
 115                         200., 12.47E-6,    250.,  12.78E-6,
 116                         300., 13.08E-6,    350.,  13.40E-6,
 117                         400., 13.72E-6,    450.,  14.02E-6,
 118                      ))
 119
 120
 121 MAT=DEFI_MATERIAU(
 122               THER_NL=_F(                ## SUBST THER
 123                RHO_CP = _A1,             ## EVAL _A1
 124                LAMBDA = _A0,             ## EVAL _A0
 125                ),
 126               ELAS_FO=_F(                ## SUBST ELAS
 127                E = _A2,                  ## EVAL _A2
 128                NU = _A3,                 ## EVAL _A3
 129                ALPHA = _A4,              ## EVAL _A4
 130                TEMP_DEF_ALPHA = 20.,     ## SUPPR
 131                )
 132           )
 133
 134 #
 135