+++ /dev/null
-# MODIF DATE 05/10/2004 AUTEUR CIBHHLV L.VIVAN
-# RESPONSABLE PABHHHH N.TARDIEU
-
-# TITRE ENONCE TP POUTRE FORMATION POST TRAITEMENT
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
-# ======================================================================
-
-DEBUT(CODE=_F( NOM = 'FORMA06A',NIV_PUB_WEB='INTERNET'));
-
-PRE_GIBI();
-
-MA=LIRE_MAILLAGE();
-
-MO1=AFFE_MODELE(MAILLAGE=MA,
- AFFE=_F(TOUT='OUI',
- PHENOMENE='MECANIQUE',
- MODELISATION='POU_D_T',),);
-
-ACIER=DEFI_MATERIAU(ELAS=_F(E=2.E11,
- NU=0.0,
- RHO=0.0,
- ALPHA=0.0,),);
-
-CHMAT=AFFE_MATERIAU(MAILLAGE=MA,
- AFFE=_F(TOUT='OUI',
- MATER=ACIER,),);
-
-CAREL1=AFFE_CARA_ELEM(MODELE=MO1,
- POUTRE=(_F(GROUP_MA='AB',
- SECTION='RECTANGLE',
- CARA='H',
- VALE=1.E-2,),
- _F(GROUP_MA=('CA','GA','DG',),
- SECTION='RECTANGLE',
- CARA='H',
- VALE=1.E-2,),
- _F(GROUP_MA='AE',
- SECTION='RECTANGLE', VARI_SECT = 'HOMOTHETIQUE',
- CARA=('H1','H2',),
- VALE=(0.01,0.01,),),),);
-
-CH111=AFFE_CHAR_MECA(MODELE=MO1,
- DDL_IMPO=(_F(TOUT='OUI',
- DZ=0.0,
- DRX=0.0,
- DRY=0.0,),
- _F(GROUP_NO=('DD','BB','EE',),
- DX=0.0,
- DY=0.0,
- DRZ=0.0,),
- _F(GROUP_NO='CC',
- DX=0.0,
- DY=0.0,),),);
-
-CH121=AFFE_CHAR_MECA(MODELE=MO1,
- FORCE_NODALE=_F(GROUP_NO='GG',
- FY=-1.0666666666659999E4,),
- FORCE_POUTRE=_F(GROUP_MA='AB',
- FY=-1000.0,),);
-
-MEST11=MECA_STATIQUE(MODELE=MO1,
- CHAM_MATER=CHMAT,
- CARA_ELEM=CAREL1,
- EXCIT=(_F(CHARGE=CH111,),
- _F(CHARGE=CH121,),),);
-
-
-IMPR_RESU(MODELE=MO1,FORMAT='RESULTAT',
- RESU=_F(RESULTAT =MEST11));
-
-
-TEST_RESU(RESU=(_F(RESULTAT=MEST11,
- INST=0.0,
- NOM_CHAM='DEPL',
- NOM_CMP='DRZ',
- GROUP_NO='GG',REFERENCE='NON_REGRESSION',
- VALE=-3.32217E-04)));
-
-FIN();