Télécharger la plaquette Cast3M


fr en

Télécharger Pres_Mass.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  Pres_Mass.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *******************************************************
  6. *           Test Pres_Mass.dgibi: Jeux de données     *
  7. *           ---------------------------------         *
  8. *******************************************************
  9. * Auteur        : CB215821
  10. * Creation      : 24/08/2015
  11. * Modifications : 
  12.  
  13.  
  14. *__________________________________________________________________
  15. *   TEST PRES_MASS : Non-Regression                                *
  16. *                                                                  *
  17. *   Pression Nulle appliquee sur un cote d'un cube de cote 1       *
  18. *                                                                  *
  19. *   Ce cas Test permet de s'assure qu'imposer une pression nulle   *
  20. * sur une surface d'un MAILLAGE MASSIF fonctionne correctement.    *
  21. *                                                                  *
  22. *   En effet, le traitement de la pression P=0.D0 est différent et *
  23. * presentait une anomalie.                                         *
  24. *__________________________________________________________________*
  25.  
  26.  
  27. OPTI DIME 3 ELEM CUB8 ; 
  28.  
  29. P1 = 0. 0. 0. ;
  30. P2 = 1. 0. 0. ; 
  31.  
  32. L1 = DROI    10  P1 P2 ; 
  33. S1 = TRAN L1 10 (0. 1. 0.) ; 
  34. V1 = VOLU S1 10 'TRAN' (0. 0. 1.);
  35.  
  36. MOD1 = MODE V1 'MECANIQUE' 'ELASTIQUE' 'ISOTROPE';
  37.  
  38. * Application de la pression nulle sur la surface S1 : 
  39. CHPO1 = PRES 'MASS' MOD1 0.D0 S1;
  40.  
  41. MAX1 = MAXI CHPO1;
  43.  
  44. SI (MAX1 > 0.D0);
  45.   ERRE 5;
  46. FINS;
  47.  
  48. FIN;
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  

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