Télécharger la plaquette Cast3M


fr en

Télécharger @corigi.procedur

Retour à la liste

Numérotation des lignes : 

  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.  
  44.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales