Procedures | Cast3M

   1 : * @CLDH     PROCEDUR  PV        09/12/23    21:15:04     6590           
   2 : ****************************************************
   3 : ****************************************************
   4 : *
   5 : *  PROCEDURE POUR APPLICATION DE DEF HOMOGENES
   6 : *  AU CONTOUR AVEC PILOTAGE EN DEFORMATION
   7 : *
   8 : * L.GELEBART, G.TREGO                         10/06
   9 : ****************************************************
  10 : ****************************************************
  11 : * ATTENTION PRISE EN COMPTE POROSITE DEBOUCHANTE
  12 : DEBPROC @CLDH MAIL0*MAILLAGE DEF0*TABLE;
  13 : EXX = DEF0 . 1; EYY = DEF0 . 2; EZZ = DEF0 . 3;
  14 : EXY = DEF0 . 4; EXZ = DEF0 . 5; EYZ = DEF0 . 6;
  15 : MOD0 = MODE MAIL0 MECANIQUE ELASTIQUE;
  16 : *  Identification des points et surfaces exterieures
  17 : *    pour application des CL
  18 : *=====================================================
  19 : SURF0 = ENVE MAIL0;
  20 : XMAX = MAXI (COOR 1 SURF0);XMIN = MINI (COOR 1 SURF0);
  21 : LX0 = XMAX - XMIN;
  22 : elim SURF0 MAIL0 (LX0 * 1.e-6);
  23 : *
  24 : *  Application des conditions de deformation homogene
  25 : *====================================================
  26 : *deplacements imposes*
  27 : RIGTOTX = BLOQUER UX SURF0;
  28 : RIGTOTY = BLOQUER UY SURF0;
  29 : RIGTOTZ = BLOQUER UZ SURF0;
  30 : DEPX = ((COOR 1 SURF0)*EXX) + ((COOR 2 SURF0)*EXY) +((COOR 3
  31 : SURF0)*EXZ);
  32 : DEPIX = DEPI RIGTOTX DEPX;
  33 : DEPY = ((COOR 1 SURF0)*EXY) + ((COOR 2 SURF0)*EYY) +((COOR 3
  34 : SURF0)*EYZ);
  35 : DEPIY = DEPI RIGTOTY DEPY;
  36 : DEPZ = ((COOR 1 SURF0)*EXZ) + ((COOR 2 SURF0)*EYZ) +((COOR 3
  37 : SURF0)*EZZ);
  38 : DEPIZ = DEPI RIGTOTZ DEPZ;
  39 : RIGCL = RIGTOTX ET (RIGTOTY ET RIGTOTZ);
  40 : DEPTOT=(DEPIX ET (DEPIY ET DEPIZ));
  41 : FINPROC RIGCL DEPTOT;
  42 : *******************************************************
  43 : * FIN DE LA PROCEDURE CLDH
  44 : *******************************************************
  45 :