RDforum.free.fr/Cast3M   Index du Forum
Site Web Cast3M
RDforum.free.fr/Cast3M
Forum d'entraide des utilisateurs de Cast3M
Répondre au sujet
Problème indentation sur multi-couches (PASAPAS) en 2D
CedMIZ


Inscrit le: 28 Aoû 2016
Messages: 1
Localisation: France
Répondre en citant
Bonjour,

Je souhaite, en utilisant la procédure PASAPAS, réaliser une simulation proche d'un essai VICKERS, en imposant le déplacement de l'indenteur (poinçon), vers le bas, afin de déformer les couches de métaux.
Mais je ne parviens pas à imposer un déplacement de plus de 0.003 et même en modifiant la forme du poinçon (de triangulaire à carrée), j'aboutis au même résultat et à la même déformation.

Je joins le programme pour une meilleure compréhension.

Merci d'avance.

*** Jeu de données ***
*
*
*** PROBLEME D’INDENTATION AVEC 2 COUCHES ***
*
OPTI DIME 2 MODE AXIS ELEM QUA4;
****************************
** DEFINITION DU MAILLAGE **
****************************
*** GESTIONNAIRE DES TABLES ***
ALPH = TABLE ;
BRAV = TABLE ;
CHAR = TABLE ;
DELT = TABLE ;
ECHO = TABLE ;
*
*** DIMENSIONS DE LA + PETITE MAILLE ***
A0 = 0.008/2. ;
B0 = -0.008/2. ;
*
*** NB DE MAILLES SUR LE 1ER DOMAINE ***
*
N1 = 15;
N2 = 45 ;
*** NB DE MAILLES SUR LE 2EME DOMAINE ***
M1 = 3 ;
M2 = 2 ;
*** NB DE MAILLES SUR LE 3EME DOMAINE ***
P = 7 ;
*
*** DEFINITION DES VARIABLES ***
*
A = N1 * A0 ;
B = N2 * B0 ;
C = (N1 + 3) * A0 ;
D = (N2 + 3) * B0 ;
E = ((N1 + 3) * A0) + (3 * M1 * A0);
F = ((N2 + 3) * B0) + (3 * M2 * B0);
G = ((N1 + 3) * A0) + (3 * A0 * (M1 + 3));
H = ((N2 + 3) * B0) + (3 * B0 * (M2 + 3));
I = ((N1 + 3) * A0) + (3 * A0 * (M1 + 3)) + (9 * P * A0);
J = ((N2 + 3) * B0) + (3 * B0 * (M2 + 3)) + (18 * P * B0);
K = 9 * B0 ;
X = 27 * B0;
*
*** PARAMETRES GEOMETRIQUES ***
*
A_INI = A0;
B_INI = B0;
X_INI = A;
Y_INI = B;
VEC_X = (3 * A0) 0;
VEC_Y = 0 (3 * B0);
X_FIN = (N1 * A0);
Y_FIN = (N2 * B0);
*
*** CREATION DES BOUCLES ***
*
*** NB DE SCHEMAS SUR LE 1ER BORD ***
NB1 = 4;
NB2 = 14 ;
*
*** MAILLE DE REMPLACEMENT ***
EN1 = X_INI 0.;
EN2 = (X_INI + (3 * A_INI)) 0.;
EN3 = X_INI B_INI;
EN4 = (X_INI + A_INI) B_INI;
EN5 = X_INI (2 * B_INI);
EN6 = (X_INI + A_INI) (2 * B_INI);
EN7 = X_INI (3 * B_INI);
EN8 = (X_INI + (3 * A_INI)) (3 * B_INI);
*
DN1 = DROI 1 EN1 EN2;
DN2 = DROI 1 EN1 EN3;
DN3 = DROI 1 EN2 EN4;
DN4 = DROI 1 EN3 EN4;
DN5 = DROI 1 EN3 EN5;
DN6 = DROI 1 EN4 EN6;
DN7 = DROI 1 EN5 EN6;
DN8 = DROI 1 EN5 EN7;
DN9 = DROI 1 EN6 EN8;
DN10 = DROI 1 EN2 EN8;
DN11 = DROI 1 EN7 EN8;
*
ELN1 = DALL DN1 DN4 DN2 DN3 'PLAN';
ELN2 = DALL DN5 DN6 DN4 DN7 'PLAN';
ELN3 = DALL DN6 DN10 DN3 DN9 'PLAN';
ELN4 = DALL DN8 DN9 DN7 DN11 'PLAN';
*
MAI5 = ELN1 ET ELN2 ET ELN3 ET ELN4;
MA5 = MAI5 ;
ECHO.0 = MA5 ;
*
*TRAC MAI5 ;

REPETER BOUC5 14 ;
VECN_Y = VEC_Y * &BOUC5 ;
M5_PLUS = MA5 PLUS VECN_Y;
MAI5 = MAI5 ET M5_PLUS;
*
ECHO.&BOUC5 = M5_PLUS ;
FIN BOUC5;
MAC = ECHO.1 ET ECHO.2;
*TRAC MAC ;

*
REPETER BOUC1 2 ;
*
*** 1ère MAILLE ELEMENTAIRE DE DERAFFINEMENT ***
*
AB1 = 0 Y_INI ;
AB2 = (A_INI) Y_INI;
AB3 = (2 * A_INI) Y_INI;
AB4 = (3 * A_INI) Y_INI;
AB5 = (A_INI) (Y_INI + B_INI);
AB6 = (2 * A_INI) (Y_INI + B_INI);
AB7 = 0 (Y_INI + (3 * B_INI));
AB8 = (3 * A_INI) (Y_INI + (3 * B_INI));
*
DR1 = DROI 1 AB1 AB2;
DR2 = DROI 1 AB2 AB3;
DR3 = DROI 1 AB3 AB4;
DR4 = DROI 1 AB2 AB5;
DR5 = DROI 1 AB3 AB6;
DR6 = DROI 1 AB1 AB7;
DR7 = DROI 1 AB4 AB8;
DR8 = DROI 1 AB7 AB8;
DR9 = DROI 1 AB5 AB6;
DR10 = DROI 1 AB7 AB5;
DR11 = DROI 1 AB6 AB8;
*
EL2 = DR2 ET DR5 ET DR9 ET DR4;
EL3 = DR3 ET DR5 ET DR11 ET DR7;
EL4 = DR8 ET DR10 ET DR9 ET DR11;
ELM1 = DALL DR6 DR4 DR1 DR10 'PLAN' ;
ELM2 = SURF EL2 'PLAN';
ELM3 = SURF EL3 'PLAN';
ELM4 = SURF EL4 'PLAN';
*
MAI1 = ELM1 ET ELM2 ET ELM3 ET ELM4;
MA1 = MAI1 ;
*TRAC MAI1 ;
*
*** 2ème MAILLE ELEMENTAIRE DE DERAFFINEMENT ***
*
EN1 = X_INI 0.;
EN2 = (X_INI + (3 * A_INI)) 0.;
EN3 = X_INI B_INI;
EN4 = (X_INI + A_INI) B_INI;
EN5 = X_INI (2 * B_INI);
EN6 = (X_INI + A_INI) (2 * B_INI);
EN7 = X_INI (3 * B_INI);
EN8 = (X_INI + (3 * A_INI)) (3 * B_INI);
*
DN1 = DROI 1 EN1 EN2;
DN2 = DROI 1 EN1 EN3;
DN3 = DROI 1 EN2 EN4;
DN4 = DROI 1 EN3 EN4;
DN5 = DROI 1 EN3 EN5;
DN6 = DROI 1 EN4 EN6;
DN7 = DROI 1 EN5 EN6;
DN8 = DROI 1 EN5 EN7;
DN9 = DROI 1 EN6 EN8;
DN10 = DROI 1 EN2 EN8;
DN11 = DROI 1 EN7 EN8;
*
ELN1 = DALL DN1 DN4 DN2 DN3 'PLAN';
ELN2 = DALL DN5 DN6 DN4 DN7 'PLAN';
ELN3 = DALL DN6 DN10 DN3 DN9 'PLAN';
ELN4 = DALL DN8 DN9 DN7 DN11 'PLAN';
*
MAI2 = ELN1 ET ELN2 ET ELN3 ET ELN4;
MA2 = MAI2 ;
*TRAC MAI2 ;
*
*** 3ème MAILLE DE DERAFFINEMENT ***
*
EP1 = X_FIN Y_FIN;
EP2 = (X_FIN + (3 * A_INI)) Y_FIN;
EP3 = X_FIN (Y_FIN + (3 * B_INI));
EP4 = (X_FIN + (3 * A_INI)) (Y_FIN + (3 * B_INI));
*
DP1 = DROI 1 EP1 EP2;
DP2 = DROI 1 EP3 EP2;
DP3 = DROI 1 EP1 EP3;
DP4 = DROI 1 EP2 EP4;
DP5 = DROI 1 EP3 EP4;
*
ELP1 = SURF (DP1 ET DP2 ET DP3) 'PLAN';
ELP2 = SURF (DP2 ET DP4 ET DP5) 'PLAN';
*
MAI3 = ELP1 ET ELP2;
*TRAC MAI3 ;


****TRAC CHAR.1 ;
****TRAC CHAR.2 ;
*
REPETER BOUC2 NB1 ;
VECN_X = VEC_X * &BOUC2 ;
M1_PLUS = MA1 PLUS VECN_X ;
MAI1= MAI1 ET M1_PLUS ;
*
CHAR.&BOUC1 = MAI1 ET MAI3 ;
*
ALPH.&BOUC2 = M1_PLUS ;
FIN BOUC2;
*
REPETER BOUC3 NB2 ;
VECN_Y = VEC_Y * &BOUC3 ;
M2_PLUS = MA2 PLUS VECN_Y;
MAI2 = MAI2 ET M2_PLUS;

BRAV.&BOUC3 = M2_PLUS ;
FIN BOUC3;
DELT.&BOUC1 = MAI2 ET MAI1 ET MAI3 ;


A_INI = 3 * A0;
B_INI = 3 * B0;
X_INI = ((N1 + 3) * A0) + (3 * A0 * M1 );
Y_INI = ((N2 + 3) * B0) + (3 * B0 * M2 );
VEC_X = (9 * A0) 0;
VEC_Y = 0 (9 * B0);
X_FIN = X_INI;
Y_FIN = Y_INI;
NB1 = 2;
NB2 = 5;
*
FIN BOUC1;
*
** SURFACES OBTENUES **
FIG1 = DELT.1 ;
FIG2 = DELT.2 ;
FIG3 = FIG1 ET FIG2 ;
*TRAC FIG1 ;
*TRAC FIG2 ;
*TRAC FIG3 ;

** NOUVELLE MAILLE ELEMENTAIRE DE DERAFFINEMENT **
*
*** PARAMETRES GEOMETRIQUES ***
A_INI = A0 / 3.;
B_INI = B0 / 3.;
X_INI = A / 3.;
Y_INI = 0.;
VEC_X = (3 * A_INI) 0;
*
EL1 = 0. Y_INI ;
EL2 = A_INI Y_INI;
EL3 = (2 * A_INI) Y_INI;
EL4 = (3 * A_INI) Y_INI;
EL5 = A_INI (Y_INI + B_INI ) ;
EL6 = (2 * A_INI) (Y_INI + B_INI) ;
EL7 = 0. (Y_INI + (3 * B_INI)) ;
EL8 = (3 * A_INI) (Y_INI + (3 * B_INI)) ;
*
*** NB DE SCHEMAS SUR LE 1ER BORD ***
N3 = 14;
*
*** MAILLE ELEMENTAIRE DE DERAFFINEMENT ***
*
DR1 = DROI 1 EL1 EL2;
DR2 = DROI 1 EL2 EL3;
DR3 = DROI 1 EL3 EL4;
DR4 = DROI 1 EL2 EL5;
DR5 = DROI 1 EL3 EL6;
DR6 = DROI 1 EL1 EL7;
DR7 = DROI 1 EL4 EL8;
DR8 = DROI 1 EL7 EL8;
DR9 = DROI 1 EL5 EL6;
DR10 = DROI 1 EL7 EL5;
DR11 = DROI 1 EL6 EL8;
*
EL2 = DR2 ET DR5 ET DR9 ET DR4;
EL3 = DR3 ET DR5 ET DR11 ET DR7;
EL4 = DR8 ET DR10 ET DR9 ET DR11;
ELM1 = DALL DR6 DR4 DR1 DR10 'PLAN' ;
ELM2 = SURF EL2 'PLAN' ;
ELM3 = SURF EL3 'PLAN' ;
ELM4 = SURF EL4 'PLAN' ;
MAI4 = ELM1 ET ELM2 ET ELM3 ET ELM4;
*
MAI44 = MAI4;
*
** CREATION DE BOUCLE **
*
REPETER BOUC4 N3;
VECN_X = VEC_X * &BOUC4 ;
M4_SUP = MAI44 PLUS VECN_X ;
MAI4 = MAI4 ET M4_SUP ;
FIN BOUC4 ;
*
FIG4 = MAI4 ;
*TRAC (FIG3 ET FIG4) ;
*
*
*** DEFINTION DES PRINCIPAUX NOEUDS ***
O = 0. 0.;
Q = A B0 ;
A1 = A 0.;
A2 = C 0.;
A3 = E 0.;
A4 = G 0.;
A5 = I 0.;
B1 = 0. B;
B2 = 0. D;
B3 = 0. F;
B4 = 0. H;
B5 = 0. J;
C1 = A B;
C2 = C D;
C3 = E F;
C4 = G H;
C5 = I J;
D3 = E D;
D5 = I H;
E3 = C F;
E5 = G J;
K1 = 0. K;
K2 = A K;
K3 = C K;
K4 = E K;
K5 = G K;
K6 = I K;
X1 = 0. X;
X2 = A X;
X3 = C X;
X4 = E X;
X5 = G X;
X6 = I X;

*
NOEU1 = 2 * M1;
NOEU2 = 4 * M1;
NOEU3 = P-1;
*
*** DEFINITION DES DROITES ***
*
ZZ = DROIT (3*N1) A1 EL1;
ELIM 0.00001 (ZZ ET MAI3);
OA1 = DROIT N1 Q (0. B0);
OK1 = DROIT (N2-37) K1 (0. B0);
QA1 = DROIT 1 Q A1 ;
QK2 = DROIT (N2-37) Q K2 ;
A1A2 = DROIT 1 A1 A2;
A2A3 = DROIT M1 A2 A3;
A2K3 = DROIT M1 A2 K3;
A3A4 = DROIT 1 A3 A4;
A3K4 = DROIT M1 A3 K4 ;
A4A5 = DROIT P A4 A5;
A4K5 = DROIT 1 A4 K5;
A5K6 = DROIT 1 A5 K6;
B1B2 = DROIT 1 B2 B1;
B1C1 = DROIT N1 C1 B1;
B1X1 = DROIT (N2-27) B1 X1;
B2B3 = DROIT M2 B3 B2;
B2C2 = DROIT NOEU1 C2 B2;
B3B4 = DROIT 1 B4 B3;
B3E3 = DROIT NOEU1 E3 B3;
B4B5 = DROIT NOEU3 B5 B4;
B4C4 = DROIT 4 C4 B4;
B5E5 = DROIT 4 E5 B5;
C1X2 = DROIT (N2-27) X2 C1;
C2D3 = DROIT M1 C2 D3;
C2E3 = DROIT M2 C2 E3;
C2X3 = DROIT P X3 C2;
C3D3 = DROIT M2 D3 C3;
C3E3 = DROIT M1 C3 E3;
C4D5 = DROIT P C4 D5;
C4E5 = DROIT NOEU3 C4 E5;
C4X5 = DROIT 4 X5 C4;
C5D5 = DROIT NOEU3 D5 C5;
C5E5 = DROIT P C5 E5;
D3X4 = DROIT P X4 D3;
D5X6 = DROIT 4 X6 D5;
K1K2 = DROIT N1 K1 K2;
K1X1 = DROIT (N2-27) K1 X1;
K2K3 = DROIT 1 K2 K3;
K2X2 = DROIT (N2-27) K2 X2;
K3K4 = DROIT M1 K3 K4;
K3X3 = DROIT NOEU1 K3 X3;
K4K5 = DROIT M1 K4 K5;
K4X4 = DROIT NOEU1 K4 X4;
K5K6 = DROIT P K5 K6;
K5X5 = DROIT 2 K5 X5;
K6X6 = DROIT 2 K6 X6;
X1X2 = DROIT N1 X1 X2;
X2X3 = DROIT 1 X2 X3;
X3X4 = DROIT M1 X3 X4;
X4X5 = DROIT M1 X4 X5;
X5X6 = DROIT P X5 X6;
*
*** DEFINITION DES SURFACES ***
*
LIG1 = OA1 ET QK2 ET K1K2 ET OK1;
ELIM 0.00001 (LIG1);
*TRAC LIG1 ;
S1 = SURF LIG1 PLAN;
*TRAC S1 ;
*
LIG2 =A2A3 ET A3K4 ET K3K4 ET A2K3;
S2 = SURF LIG2 PLAN;
*TRAC S2 ;
*
LIG3 = A4K5 ET K5K6 ET A5K6 ET A4A5;
S3 = SURF LIG3 PLAN;
*TRAC S3 ;
*
S4 = DALL K1K2 K2X2 X1X2 K1X1 ‘PLAN’ ;
*TRAC S4 ;
*
LIG5 = K3K4 ET K4X4 ET X3X4 ET K3X3 ;
S5 = SURF LIG5 PLAN;
*TRAC S5 ;
*
LIG6 = K5K6 ET K6X6 ET X5X6 ET K5X5 ;
S6 = SURF LIG6 PLAN;
*TRAC S6 ;
*
LIG7 = X1X2 ET C1X2 ET B1C1 ET B1X1;
S7 = SURF LIG7 PLAN;
*TRAC S7 ;
*
LIG8 = X3X4 ET D3X4 ET C2D3 ET C2X3;
S8 = SURF LIG8 PLAN;
*TRAC S8 ;
*
LIG9 = B2C2 ET C2E3 ET B3E3 ET B2B3 ;
S9 = SURF LIG9 PLAN;
*TRAC S9 ;
*
S10 = DALL C2D3 C3D3 C3E3 C2E3 ‘PLAN’;
*S10 = SURF LG10 PLAN;
*TRAC S10 ;
*
LG11 = X5X6 ET D5X6 ET C4D5 ET C4X5;
S11 = SURF LG11 PLAN;
*TRAC S11 ;
*
S12 = DALL B4C4 C4E5 B5E5 B4B5 ‘PLAN’ ;
*TRAC S12 ;
*
S13= DALL C4D5 C5D5 C5E5 C4E5 ‘PLAN’;
*TRAC S13 ;
*
CED1 = CHAR.1 ET CHAR.2 ET ECHO.9 ET ECHO.10
ET ECHO.11 ET ECHO.12 ET ECHO.13 ET ECHO.14 ;
*
CED2 = S7 ET S8 ET S9 ET S10 ET S11 ET
S12 ET S13 ET BRAV.4 ET BRAV.5 ET BRAV.3;
*
RESTE = CED1 ET CED2 COUL BLEU;
*
*COU1 = S1 ET S2 ET S3 ;
*
*COU2 = S4 ET S5 ET S6 ;

*TT = COU1 ET COU2 ET RESTE ;

*TRAC (TT ET FIG3 ET FIG4);

MAC = ECHO.1 ET ECHO.2;
*
*
*** 1ère COUCHE ***
COU1= MAC ET S1 ET S2 ET S3 ET MA2 ET ECHO.0 ET FIG4 COUL ROUGE;
TRAC COU1 ;
*
*
*** 2ème COUCHE ***
COU2 = ECHO.3 ET ECHO.4 ET ECHO.5 ET ECHO.6 ET
ECHO.7 ET ECHO.8 ET S4 ET S5 ET S6 ET BRAV.1 ET BRAV.2 COUL VERT;
TRAC COU2 ;
*
*
TRAC RESTE ;
*
TRAC (COU1 ET COU2 ET RESTE) ;
*
*
*
*** DEFINITION DE L’INDENTEUR A 70.3° (Forme Triangulaire) ***
*
*H = N1 * A0;
*BOB = H/2.792892;
*HO = 0. 0.;
*HB = 0. BOB;
*HA = H BOB;
*HOHB = HO DROIT 1 HB ;
*HAHB = DROIT 1 HA HB;
*HOHA = HO DROIT 1 HA ;
*RIGID = SURF (HOHB ET HAHB ET HOHA);
*ELIM 1E-5 RIGID ;
*LIGNE = HOHA;
*
*TRAC RIGID ;
*
*
*** DEFINITION DE L’INDENTEUR (Forme Carrée) ***
*
H = 6 * A0;
BOB = H/2.792892;
HO = 0. 0. ;
HB = 0. BOB;
HA = H BOB;
HC = H 0. ;
HOHB = HO DROIT 1 HB ;
HAHB = DROIT 1 HA HB;
HOHC = HO DROIT 1 HC ;
HAHC = HA DROIT 1 HC ;
RIGID = SURF (HOHB ET HAHB ET HOHC ET HAHC);
ELIM 1E-5 RIGID ;
LIGNE = HOHC;
*
TRAC RIGID ;

*
*** COUCHES PARFAITEMENT COLLEES ***
************************************
ELIM (COU1 ET COU2 ET RESTE) 1E-5 ;
*
*** DEFINITION DES MODELES ET MATÉRIAUX ***
*
MOD1 = MODE COU1 MECANIQUE ELASTIQUE ISOTROPE;
*
MOD2 = MODE COU2 MECANIQUE ELASTIQUE ISOTROPE;
*
MOD3 = MODE RESTE MECANIQUE ELASTIQUE ISOTROPE;
*
MODIND = MODE RIGID MECANIQUE ELASTIQUE ISOTROPE;
*
*** CARACTÉRISTIQUES DES MATÉRIAUX ***
*
** Matériau _ Couche1 = ALUMINIUM **
MAT1 = MATE MOD1 YOUN 7E4 NU 0.33 ;
*
** Matériau _ Couche2 = CUIVRE **
MAT2 = MATE MOD2 YOUN 12E4 NU 0.33 ;
*
** Matériau _ Substrat = ACIER **
MAT3 = MATE MOD3 YOUN 2E5 NU 0.3 ;
*
** Matériau _ Indenteur = DIAMANT **
MATIND = MATE MODIND YOUN 2.1E7 NU 0.3 ;
*
** DEFINITION DES COTÉS **
*
AXE = B4B5 ET HOHB ET DR6 ET OK1 ET K1X1 ET
B1X1 ET B1B2 ET B2B3 ET B3B4 COUL VERT;
ELIM 1E-5 AXE ;
*
BAS = B5E5 ET C5E5 COUL JAUNE;
ELIM 0.00001 BAS ;
*
TRAC (AXE ET BAS) ;
*
ZZ = (DROIT (3*N1) A1 EL1);
ELIM 0.00001 ZZ ;
*
HAUT = ZZ ;
*
*** MAILLAGE DE CONTACT UNILATERAL ***
*
*LIG0 = ORIE LIGNE ;
*HAU0 = ORIE HAUT;
MAICON = IMPO 'MAIL' LIGNE (‘INVE’ HAUT);
ELIM 1E-5 MAICON ;
TRAC MAICON;
*
MODCONT = MODEL MAICON CONTACT UNILATERAL;
*
*** CONDITIONS AUX LIMITES ***
*
CL0 = ‘BLOQ’ BAS ‘DEPL’ ‘ROTA’;
CL1 = BLOQ UR AXE;
*
CLA = (CL0 ET CL1);
*
CL2 = BLOQ UZ LIGNE;
CLB = CL2;
*
CLT = CLA ET CLB;
*
** VALEUR DU DÉPLACEMENT A IMPOSER **
UZ0 = -0.0013/5;
*
*** DÉFINITION DU CHARGEMENT ***
*
LTps = PROG 0. PAS 1. 15.;
LDep = PROG 0. PAS 1. 15.;
*
UMAX = DEPI CLB UZ0;
*
EVO0 = EVOL MANU 'Temps' LTps 'U(t)' LDep;
CHR0 = 'CHAR' 'DIMP' UMAX EVO0;
*
******************
*** RESOLUTION *** ******************
*
*
** Construction de la table PASAPAS ** * *
TAB1 = 'TABL' ;
TAB1 . 'TEMPS_CALCULES' = LTps ;
TAB1 . 'MODELE' = MOD1 ET MOD2 ET MOD3 ET MODIND ET MODCONT;
TAB1 . 'CARACTERISTIQUES' = MAT1 ET MAT2 ET MAT3 ET MATIND;
TAB1 . 'BLOCAGES_MECANIQUES' = CLT ;
TAB1 . 'CHARGEMENT' = CHR0 ;
*TAB1 . 'GRANDS_DEPLACEMENTS' = VRAI ;
*
* ** Résolution **
*
TAB2 = PASAPAS TAB1 ;
* ******************************************************************
********************** Tracée de la déformée *********************
******************************************************************
*
*lt = prog;
*lcont = prog;
DEP1 = (TAB2 . 'DEPLACEMENTS' . 5) 'ENLE' 'LX' ;
DEFO0 = 'DEFO' COU1 DEP1 0. 'VERT' ;
DEFO1 = 'DEFO' COU1 DEP1 10. 'ROUGE' ;
'TRAC' (DEFO0 ET DEFO1) ;

*
A1 = DIME (TAB2.TEMPS);
*
REPETER BOUC6 A1;
B1 = &BOUC6 - 1;
*
SIGT = TAB2.CONTRAINTES.B1;
*Liste SIGT ;
SZZ = EXCO 'SMZZ' SIGT;
*
*
TRAC SZZ TAB2.MODELE;
TITRE 'CONTRAINTES SIGMAZZ';
FIN BOUC6;
*
*
*lt = prog;
*ldep = prog;
*
A2 = DIME (TAB2.TEMPS);
*
REPETER BOUC7 A2;
B2 = &BOUC7 - 1;
*
*lt = lt et (PROG (TAB2.TEMPS.B2));
*
A3 = TAB2.DEPLACEMENTS.B2;
*
DEF0 = DEFO A3 (COU1 ET COU2 ET RESTE) 14. ;
DEF1 = DEFO A3 (RIGID ET COU1 ET COU2 ET RESTE) ROUGE ;
*
TRAC (DEF0 et DEF1);
FIN BOUC7;
*
Voir le profil de l'utilisateurEnvoyer un message privé
Problème indentation sur multi-couches (PASAPAS) en 2D
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum
Vous pouvez joindre des fichiers
Vous pouvez télécharger des fichiers
Toutes les heures sont au format GMT + 2 Heures  
Page 1 sur 1  

  
  
 Répondre au sujet