OPTI ECHO 1; OPTION DIME 2 ; OPTION ELEM SEG2 MODE PLAN CONT ; * * ---------- DEFINITION DE LA SURFACE TOP DU JOINT ---------- * A1 = 0.00 0.00 ; B1 = 1.00 0.00 ; NELG =100; * * ---------- MAILLAGE ---------- * H1 = A1 DROIT NELG B1 ; L1 = H1 ; * * ---------- DEFINITION DE LA SURFACE BOT DU JOINT ---------- * IA1 = 0.00 0.00 ; IB1 = 1.00 0.00 ; * * ---------- MAILLAGE ---------- * IH1 = IA1 DROIT NELG IB1 ; * IL1 = IH1 ; * * ---------- CREATION DU JOINT JOI2 ---------- * OPTION ELEM RAC2 ; VOL = RACCORD 0.00001 L1 IL1 ; * * * ---------- DEFINITION DES CONDITIONS LIMITES ---------- * CL11 = BLOQ IL1 UX ; CL12 = BLOQ IL1 UY ; CL = CL11 ET CL12 ; * * ---------- DEFINITION DU MODELE DU JOINT ---------- * KSV = 3.0E04 ; KNV = 3.0E04 ; * * ---------- VARIATION DES PARAMETRE EN FONCTION DE LA LONGEUR ---------- * MOD1 = MODL VOL 'MECANIQUE' 'ELASTIQUE' 'ISOTROPE' 'PLASTIQUE' 'HINTE' JOI2 ; MA1 = MATR MOD1 KS KSV KN KNV 'RHO ' 99 'ALPN' 98 'GAM1' 0.1 'AL ' 1.6 'DCRI' 1. 'NN ' 0.5 'YO ' 0.0 'YC ' 0.075 ; * * ---------- DEPLACEMENT ---------- * UFIN = 1. ; CLD = BLOQUE UX L1 ; * FO1 = DEPI CLD UFIN ; * *++++++++++++++++++ NON LINEAIRE ++++++++++++++ CLTOT = CL ET CLD ; *Pas du calcul L1R = PROG 0.0 PAS 0.0005 0.02; L2R = L1R; L2R = L1R ; EV1 = EVOL MANU T L1R F L2R ; CHA1 = CHAR 'DIMP' FO1 EV1 ; *dess ev1; *opti donn 5; *******************TEST NON LOCAL**************** CHAM1 =CONN MOD1 0.1 'NORMAL' ; *YDBP EST VARIABLE INTERNE POUR CALCULE MOYENNE EN NON LOCALE LIMOT = MOTS 'YDBP'; *INITIALIZATION A VALEUR 0 VAR_UT =MANU CHML MOD1 'YDBP' 0.0 'STRESSES' 'TYPE' 'VARINTER' ; LIST VAR_UT; VAR_UT = NLOC VAR_UT CHAM1 LIMOT; LIST VAR_UT; OPTI DONN 5;