src/TestsEltsVisu/Nicolas/forma06a.comm

   1 # MODIF  DATE 05/10/2004   AUTEUR CIBHHLV L.VIVAN
   2 # RESPONSABLE PABHHHH N.TARDIEU
   3
   4 # TITRE ENONCE TP POUTRE FORMATION POST TRAITEMENT
   5 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   6 # ======================================================================
   7 # COPYRIGHT (C) 1991 - 2002  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 = 'FORMA06A',NIV_PUB_WEB='INTERNET'));
  24
  25 PRE_GIBI();
  26
  27 MA=LIRE_MAILLAGE();
  28
  29 MO1=AFFE_MODELE(MAILLAGE=MA,
  30                 AFFE=_F(TOUT='OUI',
  31                         PHENOMENE='MECANIQUE',
  32                         MODELISATION='POU_D_T',),);
  33
  34 ACIER=DEFI_MATERIAU(ELAS=_F(E=2.E11,
  35                             NU=0.0,
  36                             RHO=0.0,
  37                             ALPHA=0.0,),);
  38
  39 CHMAT=AFFE_MATERIAU(MAILLAGE=MA,
  40                     AFFE=_F(TOUT='OUI',
  41                             MATER=ACIER,),);
  42
  43 CAREL1=AFFE_CARA_ELEM(MODELE=MO1,
  44                       POUTRE=(_F(GROUP_MA='AB',
  45                                  SECTION='RECTANGLE',
  46                                  CARA='H',
  47                                  VALE=1.E-2,),
  48                               _F(GROUP_MA=('CA','GA','DG',),
  49                                  SECTION='RECTANGLE',
  50                                  CARA='H',
  51                                  VALE=1.E-2,),
  52                               _F(GROUP_MA='AE',
  53                                  SECTION='RECTANGLE', VARI_SECT = 'HOMOTHETIQUE',
  54                                  CARA=('H1','H2',),
  55                                  VALE=(0.01,0.01,),),),);
  56
  57 CH111=AFFE_CHAR_MECA(MODELE=MO1,
  58                      DDL_IMPO=(_F(TOUT='OUI',
  59                                   DZ=0.0,
  60                                   DRX=0.0,
  61                                   DRY=0.0,),
  62                                _F(GROUP_NO=('DD','BB','EE',),
  63                                   DX=0.0,
  64                                   DY=0.0,
  65                                   DRZ=0.0,),
  66                                _F(GROUP_NO='CC',
  67                                   DX=0.0,
  68                                   DY=0.0,),),);
  69
  70 CH121=AFFE_CHAR_MECA(MODELE=MO1,
  71                      FORCE_NODALE=_F(GROUP_NO='GG',
  72                                      FY=-1.0666666666659999E4,),
  73                      FORCE_POUTRE=_F(GROUP_MA='AB',
  74                                      FY=-1000.0,),);
  75
  76 MEST11=MECA_STATIQUE(MODELE=MO1,
  77                      CHAM_MATER=CHMAT,
  78                      CARA_ELEM=CAREL1,
  79                      EXCIT=(_F(CHARGE=CH111,),
  80                             _F(CHARGE=CH121,),),);
  81
  82
  83 IMPR_RESU(MODELE=MO1,FORMAT='RESULTAT',
  84           RESU=_F(RESULTAT =MEST11));
  85
  86
  87 TEST_RESU(RESU=(_F(RESULTAT=MEST11,
  88                    INST=0.0,
  89                    NOM_CHAM='DEPL',
  90                    NOM_CMP='DRZ',
  91                    GROUP_NO='GG',REFERENCE='NON_REGRESSION',
  92                    VALE=-3.32217E-04)));
  93
  94 FIN();