
DEBUT();

MA=DEFI_MATERIAU(ELAS=_F(E=2.1e+11,
                         NU=0.3,),
                 ECRO_LINE=_F(D_SIGM_EPSI=3283000000.0,
                              SY=155800000.0,),);

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

MAIL=MODI_MAILLAGE(reuse =MAIL,
                   MAILLAGE=MAIL,
                   ORIE_PEAU_3D=_F(GROUP_MA='load',),);

MODE=AFFE_MODELE(MAILLAGE=MAIL,
                 AFFE=_F(TOUT='OUI',
                         PHENOMENE='MECANIQUE',
                         MODELISATION='3D',),);

MATE=AFFE_MATERIAU(MAILLAGE=MAIL,
                   AFFE=_F(TOUT='OUI',
                           MATER=MA,),);

CHAR=AFFE_CHAR_MECA(MODELE=MODE,
                    DDL_IMPO=_F(GROUP_MA='fix',
                                DX=0.0,
                                DY=0.0,
                                DZ=0.0,),);

loadP=AFFE_CHAR_MECA(MODELE=MODE,
                     FORCE_FACE=_F(GROUP_MA='load',
                                   FX=1.6e+08,),);

ramp=DEFI_FONCTION(
                   NOM_PARA='INST',
                   VALE=(0.0,0.0,
                         1.0,1.0,
                         ),
                   INTERPOL='LIN',);

inst=DEFI_LIST_REEL(DEBUT=0.0,
                    INTERVALLE=_F(JUSQU_A=1.0,
                                  NOMBRE=40,),);

RESU=STAT_NON_LINE(MODELE=MODE,
                   CHAM_MATER=MATE,
                   EXCIT=(_F(CHARGE=loadP,
                             FONC_MULT=ramp,),
                          _F(CHARGE=CHAR,),),
                   COMP_INCR=_F(RELATION='VMIS_ISOT_LINE',
                                TOUT='OUI',),
                   INCREMENT=_F(LIST_INST=inst,),
                   METHODE='IMPLEX',
                   CONVERGENCE=_F(RESI_GLOB_RELA=1e-06,
                                  ITER_GLOB_MAXI=10,),
                   ARCHIVAGE=_F(LIST_INST=inst,
                                CHAM_EXCLU='VARI_ELGA',),);

RESU=CALC_CHAMP(reuse =RESU,
                RESULTAT=RESU,
                CONTRAINTE=('SIEF_ELNO','SIEF_NOEU',),
                DEFORMATION=('EPSG_ELNO','EPSI_NOEU',),
                CRITERES=('SIEQ_ELNO','SIEQ_NOEU',),);

reac1=POST_RELEVE_T(ACTION=_F(OPERATION='EXTRACTION',
                              INTITULE='DEPL',
                              RESULTAT=RESU,
                              NOM_CHAM='DEPL',
                              GROUP_NO='Point_1',
                              RESULTANTE='DX',),);

reac2=POST_RELEVE_T(ACTION=_F(OPERATION='EXTRACTION',
                              INTITULE='DEPL',
                              RESULTAT=RESU,
                              NOM_CHAM='DEPL',
                              GROUP_NO='point_2',
                              RESULTANTE='DX',),);

IMPR_TABLE(TABLE=reac1,);

IMPR_TABLE(TABLE=reac2,);

IMPR_RESU(FORMAT='MED',
          UNITE=80,
          RESU=(_F(MAILLAGE=MAIL,
                   RESULTAT=RESU,
                   NOM_CHAM='DEPL',
                   NOM_CMP=('DX','DY','DZ',),),
                _F(MAILLAGE=MAIL,
                   RESULTAT=RESU,
                   NOM_CHAM=('SIEQ_NOEU','SIEF_NOEU',),),
                _F(MAILLAGE=MAIL,
                   RESULTAT=RESU,
                   NOM_CHAM='EPSI_NOEU',),),);

FIN();
#CHECKSUM:ff52bf2ebcc0d0ef05c334119a5ce98e  -:FIN CHECKSUM