Tests/testcomm9/cabri02a.comm

   1 # MODIF  DATE 07/03/2005   AUTEUR CIBHHLV L.VIVAN
   2 # RESPONSABLE MABBAS M.ABBAS
   3 #
   4 # TITRE TEST DE REFERENCE POUR LA MACRO DE CALCUL DE BRIDES CABRI
   5 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   6 # ======================================================================
   7 # COPYRIGHT (C) 1991 - 2003  EDF R&D                  WWW.CODE-ASTER.ORG
   8 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   9 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
  10 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
  11 # (AT YOUR OPTION) ANY LATER VERSION.
  12 #
  13 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
  14 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  15 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  16 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  17 #
  18 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
  19 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
  20 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
  21 # ======================================================================
  22
  23 DEBUT(CODE=_F(  NOM = 'CABRI02A',NIV_PUB_WEB='INTRANET'));
  24
  25 # DEFINITION DES DONNEES MATERIAUX
  26
  27 # Temperature initiale, assemblage libre de contraintes
  28 TEMP_INI=25.0;
  29
  30 # Temperature moyenne du transitoire pour calcul de lambda et rhoCp
  31 TEMP_MOY = 170.0;
  32
  33 INCLUDE_MATERIAU(NOM_AFNOR='Z2CN1810',
  34                  TYPE_MODELE='REF',
  35                  VARIANTE='A',
  36                  TYPE_VALE='NOMI',
  37                  NOM_MATER='MA_BRI',
  38                  EXTRACTION=_F(COMPOR='THER',
  39                                TEMP_EVAL= TEMP_MOY,),
  40                  UNITE_LONGUEUR='MM');
  41
  42 INCLUDE_MATERIAU(NOM_AFNOR='Z12CN13',
  43                  TYPE_MODELE='REF',
  44                  VARIANTE='A',
  45                  TYPE_VALE='NOMI',
  46                  NOM_MATER='MA_ECR',
  47                  EXTRACTION=_F(COMPOR='THER',
  48                                TEMP_EVAL= TEMP_MOY,),
  49                  UNITE_LONGUEUR='MM',);
  50
  51 INCLUDE_MATERIAU(NOM_AFNOR='Z12CN13',
  52                  TYPE_MODELE='REF',
  53                  VARIANTE='A',
  54                  TYPE_VALE='NOMI',
  55                  NOM_MATER='MA_RON',
  56                  EXTRACTION=_F(COMPOR='THER',
  57                                TEMP_EVAL= TEMP_MOY,),
  58                  UNITE_LONGUEUR='MM',);
  59
  60 INCLUDE_MATERIAU(NOM_AFNOR='Z2CN1810',
  61                  TYPE_MODELE='REF',
  62                  VARIANTE='A',
  63                  TYPE_VALE='NOMI',
  64                  NOM_MATER='MA_GOU',
  65                  EXTRACTION=_F(COMPOR='THER',
  66                                TEMP_EVAL= TEMP_MOY,),
  67                  UNITE_LONGUEUR='MM',);
  68
  69 INCLUDE_MATERIAU(NOM_AFNOR='Z6CND1712',
  70                  TYPE_MODELE='REF',
  71                  VARIANTE='A',
  72                  TYPE_VALE='NOMI',
  73                  NOM_MATER='MA_LIM',
  74                  EXTRACTION=_F(COMPOR='THER',
  75                                TEMP_EVAL= TEMP_MOY,),
  76                  UNITE_LONGUEUR='MM',);
  77
  78 FIN();