TITR'TP2A’ ;
OPTI DIME 2 ELEM TRI3 MODE PLAN CONT ;
*-DIMONTIONS DE LA PLAQUE ET DU TROU -
w1=200.;
w2=w1/2;
le1=200.;
le2=le1/2;
R1=10.;
de0=1.;
DENS de0;
de1=1.;
de2=(20.*de1);
*** Définition des points
O=0. 0.;
P1=O plus (R1 0.);
P5=O plus (0. R1);
DENS de2;
P2=O plus (le2 0.);
P3=P2 plus (0. w2);
P4=O plus (0. w2);
L1=DROI P1 P2;
L2=DROI P2 P3;
L3=DROI P3 P4;
L4=DROI P4 P5;
L5=CERC P5 O P1;
C1=L1 ET L2 ET L3 ET L4 ET L5;
TRAC C1;
***la surface
S1=SURF C1 PLAN ;
TRAC S1;
***condition limite
cl1=BLOQ UY L1;
cl2=BLOQ UX L4;
CLPLA=cl1 ET cl2;
MOPLA= MODE S1 MECANIQUE ELASTIQUE ISOTROPE ;
MAPLA=MATE MOPLA YOUNG 210000.0 NU 0.28;
PPLA=PRES MASSE MOPLA ((-1) *20.) L2 ;
RIPLA= (RIGI MOPLA MAPLA) ET CLPLA ;
TRAC RIPLA ;
DEPPLA=RESO RIPLA PPLA ;
DEFPLA0=DEFO DEPPLA S1 0. vert;
DEFPLA1=DEFO DEPPLA S1 jaune;
TRAC (DEFPLA0 ET DEFPLA1) ;
CONPLA=SIGM MOPLA MAPLA DEPPLA ;
TRAC MOPLA CONPLA DEFPLA1 ;
*** Fin du programme
fin;