Télécharger topoptim4.dgibi

Retour à la liste

Numérotation des lignes :

  1. ************************************************************************
  2. ************************************************************************
  3. ************************************************************************
  4. ** Topology optimization of a simple 2D structure subjected to a
  5. ** multicase mechanical loading.
  6. **
  7. ** Guenhael Le Quilliec (LMR - Polytech Tours)
  8. ** 2014/04/28
  9. ************************************************************************
  10.  
  11. * General options
  12. OPTI 'DIME' 2 'MODE' 'PLAN' 'CONT' 'ELEM' QUA4 ;
  13. OPTI 'TRAC' 'PSC';
  14.  
  15. * Mesh
  16. p0 = 0.0 0.0 ;
  17. p1 = 0.0 10.0 ;
  18. p2 = 10.0 0.0 ;
  19. lgn0 = DROI 30 p1 p0 ;
  20. msh0 = TRAN lgn0 30 p2 ;
  21. p2 = msh0 POIN 'PROC' p2 ;
  22. p3 = msh0 POIN 'PROC' (10.0 10.0) ;
  23.  
  24. * Boundary conditions and multicase loading
  25. bc0 = BLOQ 'UX' 'UY' lgn0 ;
  26. load0 = TABL ;
  27. load0.(1) = FORC (0.0 -1.0) p2 ;
  28. load0.(2) = FORC (0.0 1.0) p3 ;
  29.  
  30. * Optimization table
  31. tab0 = TABL ;
  32. tab0.'MAILLAGE' = msh0 ;
  33. tab0.'BLOCAGES_MECANIQUES' = bc0 ;
  34. tab0.'CHARGEMENT' = load0 ;
  35. tab0.'FRACTION_VOLUME' = 0.5 ;
  36.  
  37. * Optimization
  38. TOPOPTIM tab0 ;
  39.  
  40. * Plot to screen
  41. TRAC (REDU tab0.'TOPOLOGIE_CH' tab0.'TOPOLOGIE_MAIL')
  42. (REDU tab0.'MODELE' tab0.'TOPOLOGIE_MAIL')
  43. (PROG 0.0 'PAS' (1.0 / 56.0) 1.0) ;
  44.  
  45. FIN;
  46.  
  47.  
  48.  
  49.  
  50.  

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