Télécharger toposurf3.dgibi

Retour à la liste

Numérotation des lignes :

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

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