Télécharger @cldh.procedur

Retour à la liste

Numérotation des lignes :

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

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