Télécharger topoptim_01.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier topoptim_01.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. ************************************************************************
  6. ** Topology optimization of a simple 2D structure subjected to a
  7. ** mechanical loading.
  8. **
  9. ** Author:
  10. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  11. **
  12. ** Version:
  13. ** V2.0 2017/04/18 Updated to make it compatible with TOPOPTIM V2.0
  14. ** V1.0 2014/04/28 Original version compatible with TOPOPTIM V1.0
  15. ************************************************************************
  16.  
  17. * General options
  18. OPTI 'DIME' 2 'MODE' 'PLAN' 'CONT' 'ELEM' QUA4 ;
  19. OPTI 'TRAC' 'PSC' ;
  20.  
  21. * Mesh
  22. nelx0 = 60 ;
  23. nely0 = 20 ;
  24. p0 = 0.0 0.0 ;
  25. p1 = 0.0 (FLOT nely0) ;
  26. p2 = (FLOT nelx0) 0.0 ;
  27. lgn0 = DROI nely0 p1 p0 ;
  28. msh0 = TRAN lgn0 nelx0 p2 ;
  29. p2 = msh0 POIN 'PROC' p2 ;
  30.  
  31. * Model and material
  32. mod0 = MODE msh0 'MECANIQUE' 'ELASTIQUE' ;
  33. mat0 = MATE mod0 'YOUN' 210.0e9 'NU' 0.3 ;
  34.  
  35. * Boundary conditions and loading
  36. bc0 = (BLOQ 'UX' lgn0) ET (BLOQ 'UY' p2) ;
  37. load0 = FORC (0.0 -1.0) p1 ;
  38.  
  39. * Finite element model table
  40. mdl0 = TABL ;
  41. mdl0.'MODELE' = mod0 ;
  42. mdl0.'CARACTERISTIQUES' = mat0 ;
  43. mdl0.'BLOCAGES_MECANIQUES' = bc0 ;
  44. mdl0.'CHARGEMENT' = load0 ;
  45.  
  46. * Optimization table
  47. tab0 = TABL ;
  48. tab0.'RESOLUTION_LINEAIRE' = mdl0 ;
  49. tab0.'FRACTION_VOLUME' = 0.5 ;
  50.  
  51. * Optimization
  52. TOPOPTIM tab0 ;
  53.  
  54. * Plot to screen
  55. topo0 = tab0.'TOPOLOGIE'.(tab0.'CYCLE') ;
  56. topomsh0 = tab0.'MAILLAGE'.(tab0.'CYCLE') ;
  57. TRAC (REDU topo0 topomsh0) (REDU mod0 topomsh0)
  58. (PROG 0.0 'PAS' (1.0 / 56.0) 1.0) ;
  59.  
  60. FIN ;
  61.  
  62.  
  63.  
  64.  

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