Aster/Cata/cataSTA7/materiau/Z6CND1712_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.            ,14.0            *coef0,
  29           50.            ,14.4            *coef0,
  30           100.           ,15.2            *coef0,
  31           150.           ,15.8            *coef0,
  32           200.           ,16.6            *coef0,
  33           250.           ,17.3            *coef0,
  34           300.           ,17.9            *coef0,
  35           350.           ,18.6            *coef0,
  36           400.           ,19.2            *coef0,
  37           450.           ,19.9            *coef0,
  38           500.           ,20.6            *coef0,
  39           550.           ,21.2            *coef0,
  40           600.           ,21.8            *coef0,
  41           650.           ,22.4            *coef0,
  42           700.           ,23.1            *coef0,
  43           750.           ,23.7            *coef0,
  44           800.           ,24.3            *coef0,
  45           ))
  46
  47 #
  48 # RHO_CP EN FONCTION DE LA TEMPéRATURE
  49 #
  50 coef1=1.E ## UNIT -9
  51 _A1=DEFI_FONCTION(
  52            NOM_PARA='TEMP',
  53         PROL_DROITE='EXCLU',
  54         PROL_GAUCHE='EXCLU',
  55                VALE=(
  56           20.            ,3.60E+6         *coef1,
  57           50.            ,3.70E+6         *coef1,
  58           100.           ,3.91E+6         *coef1,
  59           150.           ,4.01E+6         *coef1,
  60           200.           ,4.16E+6         *coef1,
  61           250.           ,4.26E+6         *coef1,
  62           300.           ,4.29E+6         *coef1,
  63           350.           ,4.37E+6         *coef1,
  64           400.           ,4.39E+6         *coef1,
  65           450.           ,4.42E+6         *coef1,
  66           500.           ,4.44E+6         *coef1,
  67           550.           ,4.46E+6         *coef1,
  68           600.           ,4.49E+6         *coef1,
  69           650.           ,4.53E+6         *coef1,
  70           700.           ,4.58E+6         *coef1,
  71           750.           ,4.64E+6         *coef1,
  72           800.           ,4.70E+6         *coef1,
  73           ))
  74
  75 #
  76 # E EN FONCTION DE LA TEMPéRATURE
  77 #
  78 coef2=1.E ## UNIT -6
  79 _A2=DEFI_FONCTION(
  80             NOM_PARA='TEMP',
  81          PROL_DROITE='EXCLU',
  82          PROL_GAUCHE='EXCLU',
  83                 VALE=(
  84           0.             ,198.5E+9        *coef2,
  85           20.            ,197.0E+9        *coef2,
  86           50.            ,195.0E+9        *coef2,
  87           100.           ,191.5E+9        *coef2,
  88           150.           ,187.5E+9        *coef2,
  89           200.           ,184.0E+9        *coef2,
  90           250.           ,180.0E+9        *coef2,
  91           300.           ,176.5E+9        *coef2,
  92           350.           ,172.0E+9        *coef2,
  93           400.           ,168.0E+9        *coef2,
  94           450.           ,164.0E+9        *coef2,
  95           500.           ,160.0E+9        *coef2,
  96           550.           ,155.5E+9        *coef2,
  97           600.           ,151.5E+9        *coef2,
  98           ))
  99
 100 #
 101 # NU EN FONCTION DE LA TEMPéRATURE
 102 #
 103
 104 _A3=DEFI_FONCTION(
 105             NOM_PARA='TEMP',
 106          PROL_DROITE='CONSTANT',
 107          PROL_GAUCHE='CONSTANT',
 108                 VALE=(   0.,    0.3,
 109                      ))
 110
 111 #
 112 # ALPHA EN FONCTION DE LA TEMPéRATURE
 113 #
 114
 115 _A4=DEFI_FONCTION(
 116             NOM_PARA='TEMP',
 117          PROL_DROITE='EXCLU',
 118          PROL_GAUCHE='EXCLU',
 119                 VALE=(   20., 15.54E-6,     50.,  15.72E-6,
 120                         100., 16.00E-6,    150.,  16.30E-6,
 121                         200., 16.60E-6,    250.,  16.86E-6,
 122                         300., 17.10E-6,    350.,  17.36E-6,
 123                         400., 17.60E-6,    450.,  17.82E-6,
 124                      ))
 125
 126
 127 # COURBE DE FATIGUE DE WOHLER RCCM Z1.4.2
 128
 129 _AZ=DEFI_FONCTION(NOM_PARA='SIGM',
 130                      INTERPOL='LOG',
 131                      VALE=(
 132                      180.0E6,   1000000.0  ,
 133                      200.0E6,   500000.0  ,
 134                      230.0E6,   200000.0  ,
 135                      260.0E6,   100000.0  ,
 136                      295.0E6,   50000.0  ,
 137                      350.0E6,   20000.0  ,
 138                      405.0E6,   10000.0  ,
 139                      485.0E6,   5000.0  ,
 140                      615.0E6,   2000.0  ,
 141                      750.0E6,   1000.0  ,
 142                      940.0E6,   500.0  ,
 143                      1275.0E6,   200.0  ,
 144                      1655.0E6,   100.0  ,
 145                      2190.0E6,   50.0  ,
 146                      3240.0E6,   20.0  ,
 147                      4480.0E6,   10.0,
 148                           ),);
 149 _BZ=CALC_FONCTION(INVERSE=_F(FONCTION=_AZ,),);
 150 _CZ=CALC_FONCTION(COMB=_F(FONCTION = _BZ,
 151                          COEF     =  1.E ## UNIT -6
 152                          ),);
 153 DETRUIRE( CONCEPT =_F( NOM=_AZ), )
 154 _AZ=CALC_FONCTION(INVERSE=_F(FONCTION=_CZ,),);
 155
 156
 157
 158
 159 MAT=DEFI_MATERIAU(
 160               THER_NL=_F(                ## SUBST THER
 161                RHO_CP = _A1,             ## EVAL _A1
 162                LAMBDA = _A0,             ## EVAL _A0
 163                ),
 164               ELAS_FO=_F(                ## SUBST ELAS
 165                E = _A2,                  ## EVAL _A2
 166                NU = _A3,                 ## EVAL _A3
 167                ALPHA = _A4,              ## EVAL _A4
 168                TEMP_DEF_ALPHA = 20.,     ## SUPPR
 169                ),
 170
 171              FATIGUE=_F(WOHLER=_AZ,
 172                          E_REFE=1.79E11*1.E ## UNIT -6
 173                         ),
 174
 175           )
 176
 177 #
 178