Télécharger topoptim3.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : topoptim3.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. ************************************************************************
  6. ** Topology optimization of a simple 2D structure subjected to a
  7. ** thermal loading.
  8. **
  9. ** Guenhael Le Quilliec (LMR - Polytech Tours)
  10. ** 2014/04/28
  11. ************************************************************************
  12.  
  13. * General options
  14. OPTI 'DIME' 2 'ELEM' QUA4 ;
  15. OPTI 'TRAC' 'PSC';
  16.  
  17. * Mesh
  18. p0 = 0.0 0.0 ;
  19. p1 = 0.0 40.0 ;
  20. p2 = 40.0 0.0 ;
  21. lgn0 = DROI 40 p0 p1 ;
  22. msh0 = TRAN lgn0 40 p2 ;
  23. p2 = msh0 POIN 'PROC' p2 ;
  24. lgn1 = lgn0 PLUS p2 ;
  25. ELIM (CONT msh0) lgn1 0.01 ;
  26. lgn2 = DROI 9 (0.0 18.0) (0.0 22.0) ;
  27. ELIM lgn0 lgn2 0.01 ;
  28.  
  29. * Boundary conditions, model and loading
  30. bc0 = BLOQ 'T' lgn2 ;
  31. mod0 = MODE msh0 'THERMIQUE' 'CONDUCTION' ;
  32. load0 = SOUR mod0 0.01 msh0 ;
  33.  
  34. * Optimization table
  35. tab0 = TABL ;
  36. tab0.'MAILLAGE' = msh0 ;
  37. tab0.'BLOCAGES_THERMIQUES' = bc0 ;
  38. tab0.'CHARGEMENT' = load0 ;
  39. tab0.'MODELE' = mod0 ;
  40.  
  41. * Optimization
  42. TOPOPTIM tab0 ;
  43.  
  44. * Plot to screen
  45. TRAC (REDU tab0.'TOPOLOGIE_CH' tab0.'TOPOLOGIE_MAIL')
  46. (REDU tab0.'MODELE' tab0.'TOPOLOGIE_MAIL')
  47. (PROG 0.0 'PAS' (1.0 / 56.0) 1.0) ;
  48.  
  49. FIN;
  50.  
  51.  
  52.  
  53.  

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