MESH=DEFI_GROUP(reuse =MESH,
MAILLAGE=MESH,
CREA_GROUP_NO=_F(TOUT_GROUP_MA='OUI',),);
TRAC=LIRE_FONCTION(UNITE=38,
NOM_PARA='EPSI',
PROL_DROITE='LINEAIRE',);
rho=2.7E-3
MAT1=DEFI_MATERIAU(ELAS=_F(E=70500.0,
NU=0.342,
RHO=rho,),
TRACTION=_F(SIGM=TRAC,),);
MAT=AFFE_MATERIAU(MAILLAGE=MESH,
AFFE=_F(GROUP_MA='Sheet',
MATER=MAT1,),);
Tmax=1000
FONC=DEFI_FONCTION(NOM_PARA='INST',
VALE=(0.0, 0.0,
Tmax*0.9, 1.0,
Tmax*1.0, 0.9,
),
PROL_DROITE='EXCLU',PROL_GAUCHE='EXCLU',);
Npas1=900
Npas2=200
L_INST=DEFI_LIST_REEL(DEBUT=0.0,
INTERVALLE=(_F(JUSQU_A=0.9*Tmax,
NOMBRE=Npas1,),
_F(JUSQU_A=1.0*Tmax,
NOMBRE=Npas2,),),);
LINST=DEFI_LIST_INST(DEFI_LIST=_F(METHODE='MANUEL',
LIST_INST=L_INST,),
ECHEC=_F(SUBD_PAS=4,
SUBD_NIVEAU=10,),);
MO=AFFE_MODELE(MAILLAGE=MESH,
AFFE=(_F(GROUP_MA='Sheet',
PHENOMENE='MECANIQUE',
MODELISATION=('D_PLAN_SI',),),
_F(GROUP_MA=('Arc','Top_di',),
PHENOMENE='MECANIQUE',
MODELISATION=('D_PLAN',),),),);
CL=AFFE_CHAR_CINE(MODELE=MO,
MECA_IMPO=(_F(GROUP_MA='Axe',
DX=0.0,),
_F(GROUP_MA='Arc',
DX=0.0,),
_F(GROUP_MA='Top_di',
DX=0.0,
DY=0.0,),
),);
CH=AFFE_CHAR_CINE(MODELE=MO,
MECA_IMPO=_F(GROUP_MA='Arc',
DY=-28.5,),);
algo='LAGRANGIEN'
COND=DEFI_CONTACT(MODELE=MO,
FORMULATION='DISCRETE',
ITER_GEOM_MAXI=50,
ZONE=(
_F(GROUP_MA_MAIT='Arc',
GROUP_MA_ESCL='Top_sh',
ALGO_CONT=algo,
),
_F(GROUP_MA_MAIT='Top_di',
GROUP_MA_ESCL='Bot_sh',
ALGO_CONT=algo,
),),);
RESU=DYNA_NON_LINE(MODELE=MO,
CHAM_MATER=MAT,
EXCIT=(_F(CHARGE=CL,),
_F(CHARGE=CH,
FONC_MULT=FONC,),),
CONTACT=COND,
COMP_INCR=(_F(RELATION='VMIS_ISOT_TRAC',
DEFORMATION='PETIT_REAC',
GROUP_MA='Sheet',),
),
INCREMENT=_F(LIST_INST=LINST,),
SCHEMA_TEMPS=_F(SCHEMA='HHT',
FORMULATION='DEPLACEMENT',),
NEWTON=_F(PREDICTION='TANGENTE',
MATRICE='TANGENTE',
REAC_ITER=1,),
SOLVEUR=_F(SYME='OUI',
),
ARCHIVAGE=_F(LIST_INST=L_INST,),
CONVERGENCE=_F(ITER_GLOB_MAXI=100,
),
);
RESU=CALC_CHAMP(reuse=RESU,RESULTAT=RESU,CRITERES=('SIEQ_ELGA','SIEQ_ELNO'))
RESU=CALC_CHAMP(reuse =RESU,
RESULTAT=RESU,
FORCE=('FORC_NODA','REAC_NODA'),CRITERES='SIEQ_NOEU');
T_RELEV=POST_RELEVE_T(ACTION=_F(OPERATION='EXTRACTION',
INTITULE='Forces nodales sur la plaque',
RESULTAT=RESU,
NOM_CHAM='REAC_NODA',
GROUP_NO='Bot_sh',
RESULTANTE='DY',
),);
F_RELEV=RECU_FONCTION(TABLE=T_RELEV,
PARA_X='INST',
PARA_Y='DY',);
#
#t_node='N1097'
#t_node='N1505'
#t_node='N3336'
t_node='N1211'
#t_node='N7920'
DEPLA=RECU_FONCTION(RESULTAT=RESU,
NOM_CHAM='DEPL',
NOM_CMP='DY',
# NOEUD='N3216',
# NOEUD='N1097',
NOEUD=t_node,
);
DEPL=CALC_FONCTION(COMB=_F(FONCTION=DEPLA,
COEF=-1.0,),);
FORC=CALC_FONCTION(COMB=_F(FONCTION=F_RELEV,
COEF=60.0,),);
IMPR_FONCTION(FORMAT='XMGRACE',
UNITE=29,
COURBE=_F(FONC_X=DEPL,FONC_Y=FORC,LEGENDE='--',MARQUEUR=0,),
TITRE='Reponse force - deplacement',
BORNE_X=(0.0,30.0,),
BORNE_Y=(0,250.0,),
ECHELLE_X='LIN',
ECHELLE_Y='LIN',
GRILLE_X=5,
GRILLE_Y=50,
LEGENDE_X='Deplacement (mm)',
LEGENDE_Y='Force (N)',);
L_IMPR=DEFI_LIST_REEL(DEBUT=0.0,
INTERVALLE=(_F(JUSQU_A=900.0,
NOMBRE=225,),
_F(JUSQU_A=1000.0,
NOMBRE=20,),),);
IMPR_RESU(FORMAT='MED',
UNITE=80,
RESU=_F(RESULTAT=RESU,
#NOM_CHAM=('DEPL','SIEQ_ELGA','SIEQ_ELNO','VALE_CONT','FORC_NODA',),
NOM_CHAM=('DEPL','VARI_ELGA','SIEQ_ELGA','VALE_CONT','FORC_NODA',),
LIST_INST=L_IMPR,
#NOM_CMP=('DX','DY',),
),);
# ===========================================
# Tests