Télécharger @cldh.procedur

Retour à la liste

Numérotation des lignes :

  1. * @CLDH PROCEDUR BP208322 21/01/08 21:15:01 10844
  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 SURF0)*EXZ);
  31. DEPIX = DEPI RIGTOTX (NOMC 'UX' DEPX);
  32. DEPY = ((COOR 1 SURF0)*EXY) + ((COOR 2 SURF0)*EYY) +((COOR 3 SURF0)*EYZ);
  33. DEPIY = DEPI RIGTOTY (NOMC 'UY' DEPY);
  34. DEPZ = ((COOR 1 SURF0)*EXZ) + ((COOR 2 SURF0)*EYZ) +((COOR 3 SURF0)*EZZ);
  35. DEPIZ = DEPI RIGTOTZ (NOMC 'UZ' DEPZ);
  36. RIGCL = RIGTOTX ET (RIGTOTY ET RIGTOTZ);
  37. DEPTOT=(DEPIX ET (DEPIY ET DEPIZ));
  38. FINPROC RIGCL DEPTOT;
  39. *******************************************************
  40. * FIN DE LA PROCEDURE CLDH
  41. *******************************************************
  42.  
  43.  
  44.  

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