Procedures | Cast3M

   1 : * @CORIGI   PROCEDUR  PV        09/12/23    21:15:06     6590           
   2 : ***************************************
   3 : *
   4 : *   PROCEDURE PERMETTANT  
   5 : * 
   6 : *   DE BLOQUER LE MOUVEMENT DE CORPS RIGIDE
   7 : *
   8 : *
   9 : * 04/10/06 L. GELEBART
  10 : *
  11 : ***************************************
  12 : DEBPROC @CORIGI MAIL0*MAILLAGE ;
  13 : *
  14 : * Blocage du mouvement de corps rigide
  15 : *-------------------------------------
  16 : ENVE0 = ENVE MAIL0;
  17 : ENVE_PT0 = CHANGE ENVE0 POI1;
  18 : XMAX = MAXI (COOR 1 ENVE0);XMIN = MINI (COOR 1 ENVE0);
  19 : YMAX = MAXI (COOR 2 ENVE0);YMIN = MINI (COOR 2 ENVE0);
  20 : ZMAX = MAXI (COOR 3 ENVE0);ZMIN = MINI (COOR 3 ENVE0);
  21 : *
  22 : M0 = ENVE_PT0 POIN PROC (XMIN YMIN ZMIN);
  23 : M1 = ENVE_PT0 POIN PROC (XMAX YMIN ZMIN);
  24 : M2 = ENVE_PT0 POIN PROC (XMIN YMAX ZMIN);
  25 : *
  26 : M0M1 = M1 MOINS M0; M0M2 = M2 MOINS M0;
  27 : N0 = M0M1 PVEC M0M2;
  28 : NN0 = M0M1 PVEC N0;
  29 : XNN0 = COOR 1 NN0;YNN0 = COOR 2 NN0; ZNN0 = COOR 3 NN0;
  30 : XN0 = COOR 1 N0;YN0 = COOR 2 N0; ZN0 = COOR 3 N0;
  31 : *
  32 : BL0 = BLOQUE UX UY UZ M0;
  33 : BL1a = RELA XNN0 UX M1 + YNN0 UY M1 + ZNN0 UZ M1;
  34 : BL1b = RELA XN0 UX M1 + YN0 UY M1 + ZN0 UZ M1;
  35 : BL2 = RELA XN0 UX M2 + YN0 UY M2 + ZN0 UZ M2;
  36 : *
  37 : RIG0 = BL0 ET BL1a ET BL1b ET BL2;
  38 : *
  39 : FINPROC RIG0;
  40 : *****************************************
  41 : * FIN DE LA PROCEDURE @CORIGI
  42 : *****************************************
  43 :