DEBUT();

MAIL=LIRE_MAILLAGE(UNITE=20,
                   FORMAT='MED',);

MAIL=DEFI_GROUP(reuse =MAIL,
                MAILLAGE=MAIL,
                CREA_GROUP_MA=_F(NOM='BEAM',
                                 TOUT='OUI',),);

STEEL=DEFI_MATERIAU(ELAS=_F(E=210000000000.0,
                            NU=0.28,),);

MODEL=AFFE_MODELE(MAILLAGE=MAIL,
                  AFFE=_F(TOUT='OUI',
                          PHENOMENE='MECANIQUE',
                          MODELISATION='POU_D_T',),);

MATE=AFFE_MATERIAU(MAILLAGE=MAIL,
                   MODELE=MODEL,
                   AFFE=_F(TOUT='OUI',
                           MATER=STEEL,),);

CARA=AFFE_CARA_ELEM(MODELE=MODEL,
                    POUTRE=_F(GROUP_MA='BEAM',
                              SECTION='RECTANGLE',
                              CARA='H',
                              VALE=0.010,),);

CHAR=AFFE_CHAR_MECA(MODELE=MODEL,
                    DDL_IMPO=_F(GROUP_NO='Support',
                                LIAISON='ENCASTRE',),
                    FORCE_NODALE=_F(GROUP_NO='Force',
                                    FZ=1.0,),);

RESU=MECA_STATIQUE(MODELE=MODEL,
                   CHAM_MATER=MATE,
                   CARA_ELEM=CARA,
                   EXCIT=_F(CHARGE=CHAR,),
                   OPTION='SANS',);

RESU=CALC_ELEM(reuse =RESU,
               RESULTAT=RESU,
               OPTION='SIEF_ELNO',);

IMPR_RESU(MODELE=MODEL,
          FORMAT='RESULTAT',
          UNITE=8,
          RESU=_F(RESULTAT=RESU,
                  TOUT_CMP='OUI',),);

IMPR_RESU(MODELE=MODEL,
          FORMAT='MED',
          UNITE=80,
          RESU=_F(MAILLAGE=MAIL,
                  RESULTAT=RESU,
                  TOUT_CMP='OUI',),);

FIN();
#CHECKSUM:02095fa9d2d22dc18ce3b276f2372d82  -:FIN CHECKSUM