
DEBUT(PAR_LOT='NON');

sig400=DEFI_FONCTION(
                     NOM_PARA='EPSI',
                     NOM_RESU='SIGM',
                     VALE=(0.1,240000000,
                           0.2,270000000,
                           0.4,290000000,
                           ),
                     PROL_DROITE='LINEAIRE',
                     PROL_GAUCHE='LINEAIRE',);


MA=DEFI_MATERIAU(ELAS=_F(E=700000.0,
                         NU=0.3,),
                 TRACTION=_F(SIGM=sig400,),);

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


MAILf=CREA_MAILLAGE(MAILLAGE=MAIL,
                   MODI_MAILLE=_F(TOUT='OUI',
                                  OPTION='TRIA6_7',),);


MODE=AFFE_MODELE(MAILLAGE=MAILf,
                 AFFE=_F(TOUT='OUI',
                         PHENOMENE='MECANIQUE',
                         MODELISATION='COQUE_3D',),);

cara=AFFE_CARA_ELEM(MODELE=MODE,
                    COQUE=_F(GROUP_MA=('Group_1','Group_2','Group_3','Group_4','Group_5','Group_6','Group_7','Group_8','Group_9','Group_10','Group_11','Group_12',),
                             EPAIS=0.01,
                             COQUE_NCOU=1,),);

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

CHAR=AFFE_CHAR_MECA(MODELE=MODE,
                    DDL_IMPO=(
                        _F(GROUP_NO=('a22','a24','a26','a28','a210','b22','b24','b26','b28','b210','c22','c24','c26','c28','c210','d22','d24','d26','d28','d210','f22','f24','f26','f28','f210','e22','e24','e26','e28','e210','1',),
                           DZ=-60,),
                        _F(GROUP_MA=('s',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_MA=('t',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_MA=('u',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_MA=('v',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_MA=('w',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_MA=('x',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_NO=('aa',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_NO=('ab',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_NO=('ac',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_NO=('ad',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_NO=('ae',),
                           DX=0,
                           DY=0,
                           DZ=0,),
                        _F(GROUP_NO=('af',),
                           DX=0,
                           DY=0,
                           DZ=0,),),

                    LIAISON_UNIF=(
                        _F(GROUP_NO=('f211','a21','6',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('a23','a25','a27','a29','b23','b25','b27','b29','c23','c25','c27','c29','d23','d25','d27','d29','e23','e25','e27','e29','f23','f25','f27','f29','1','2','3','4','5','6',),
                           DDL=('DZ',),),
                        _F(GROUP_NO=('a211','b21','1',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('b211','c21','2',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('c211','d21','3',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('d211','e21','4',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('e211','f21','5',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('g11','g21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('g12','g22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('g13','g23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('g14','g24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('g15','g25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('g16','g26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('g17','g27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('g18','g28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('g19','g29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('i11','i21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('i12','i22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('i13','i23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('i14','i24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('i15','i25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('i16','i26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('i17','i27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('i18','i28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('i19','i29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('k11','k21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('k12','k22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('k13','k23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('k14','k24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('k15','k25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('k16','k26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('k17','k27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('k18','k28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('k19','k29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('m11','m21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('m12','m22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('m13','m23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('m14','m24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('m15','m25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('m16','m26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('m17','m27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('m18','m28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('m19','m29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('o11','o21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('o12','o22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('o13','o23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('o14','o24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('o15','o25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('o16','o26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('o17','o27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('o18','o28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('o19','o29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('q11','q21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('q12','q22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('q13','q23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('q14','q24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('q15','q25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('q16','q26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('q17','q27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('q18','q28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('q19','q29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('h11','h21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('h12','h22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('h13','h23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('h14','h24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('h15','h26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('h16','h25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('h17','h27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('h18','h28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('h19','h29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('j11','j21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('j12','j22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('j13','j23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('j14','j24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('j15','j26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('j16','j25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('j17','j27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('j18','j28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('j19','j29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('l11','l21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('l12','l22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('l13','l23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('l14','l24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('l15','l26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('l16','l25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('l17','l27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('l18','l28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('l19','l29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('n11','n21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('n12','n22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('n13','n23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('n14','n24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('n15','n26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('n16','n25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('n17','n27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('n18','n28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('n19','n29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('p11','p21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('p12','p22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('p13','p23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('p14','p24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('p15','p26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('p16','p25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('p17','p27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('p18','p28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('p19','p29',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('r11','r21',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('r12','r22',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('r13','r23',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('r14','r24',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('r15','r26',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('r16','r25',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('r17','r27',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('r18','r28',),
                           DDL=('DX','DY','DZ',),),
                        _F(GROUP_NO=('r19','r29',),
                           DDL=('DX','DY','DZ',),),
                           ),);



inst=DEFI_LIST_REEL(DEBUT=0,
                    INTERVALLE=_F(JUSQU_A=1,
                                  NOMBRE=10,),);


fonc1=DEFI_FONCTION(
                    NOM_PARA='INST',
                    VALE=(0,0,
                          1,1,
                          ),);

try:
 RESU=STAT_NON_LINE(MODELE=MODE,
                   CHAM_MATER=MATE,
                   CARA_ELEM=cara,
                   EXCIT=_F(CHARGE=CHAR,
                            FONC_MULT=fonc1,),
                   COMP_INCR=_F(RELATION='VMIS_ISOT_TRAC',
                                DEFORMATION='GROT_GDEP',),
                   INCREMENT=_F(LIST_INST=inst,),
                   NEWTON=_F(PREDICTION='TANGENTE',
                             MATRICE='TANGENTE',
                             REAC_ITER=1,),
                   CONVERGENCE=_F(RESI_GLOB_RELA=1e+6,
                                  ITER_GLOB_MAXI=10,),
                   ARCHIVAGE=_F(LIST_INST=inst,
                                CHAM_EXCLU='VARI_ELGA',),);
except:
 pass


RESU=CALC_ELEM(reuse=RESU,
               MODELE=MODE,
               CHAM_MATER=MATE,
               RESULTAT=RESU,
               REPE_COQUE=_F(NIVE_COUCHE='SUP',),
               OPTION=('SIEF_ELNO','SIEQ_ELNO',),
               EXCIT=_F(CHARGE=CHAR,),);

RESU=CALC_NO(reuse=RESU,
             RESULTAT=RESU,
             OPTION=('SIEF_NOEU','SIEQ_NOEU',),);

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

PROJ=PROJ_CHAMP(RESULTAT=RESU,
                MODELE_1=MODE,
                MODELE_2=MODE2,);



IMPR_RESU(FORMAT='MED',
          UNITE=80,
          RESU=_F(RESULTAT=PROJ,),);

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