Télécharger toposurf2.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : toposurf2.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. ************************************************************************
  6. ** Extraction of the 3D smoothed surface from a simple 2D topology
  7. **
  8. ** Guenhael Le Quilliec (LMR - Polytech Tours)
  9. ** 2016/12/13
  10. ************************************************************************
  11.  
  12. * General options
  13. OPTI 'DIME' 2 'MODE' 'PLAN' 'CONT' 'ELEM' QUA4 ;
  14. OPTI 'TRAC' 'PSC';
  15.  
  16. * Mesh
  17. p0 = 0.0 0.0 ;
  18. p1 = 0.0 100.0 ;
  19. p2 = 100.0 0.0 ;
  20. lgn0 = DROI 50 p1 p0 ;
  21. msh0 = TRAN lgn0 50 p2 ;
  22.  
  23. * Model
  24. mod0 = MODE msh0 'MECANIQUE' 'ELASTIQUE' 'ISOTROPE' ;
  25.  
  26. * Topology (usualy obtained from procedure TOPOPTIM)
  27. pnt0 = msh0 POIN 'SPHE' (50.0 50.0) (50.0 85.0) 10.0 ;
  28. elm0 = msh0 ELEM 'APPU' pnt0 ;
  29. topo0 = MANU 'CHML' mod0 'SCAL' 1.0
  30. 'TYPE' 'SCALAIRE' 'GRAVITE' ;
  31. topo0 = (topo0 * 0.0) + (topo0 REDU elm0) ;
  32.  
  33. * Topology table
  34. tab0 = TABL ;
  35. tab0.'MODELE' = mod0 ;
  36. tab0.'TOPOLOGIE_CH' = topo0 ;
  37.  
  38. * Plot the topology to screen
  39. TRAC tab0.'TOPOLOGIE_CH' tab0.'MODELE' ;
  40.  
  41. * Generate a smoothed surface from the topology
  42. surf1 = TOPOSURF tab0 3 ;
  43.  
  44. * Plot the smoothed surface to screen
  45. TRAC surf1 'FACE' ;
  46.  
  47. * Save the smoothed surface in STL format
  48. OPTI 'SORT' 'toposurf2.stl' ;
  49. SORT 'STL' surf1 ;
  50.  
  51. FIN ;
  52.  
  53.  
  54.  
  55.  

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