Télécharger toposurf1.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : toposurf1.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. ************************************************************************
  6. ** Extraction of the 2D 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 100 p1 p0 ;
  21. msh0 = TRAN lgn0 100 p2 ;
  22.  
  23. * Model
  24. mod0 = MODE msh0 'MECANIQUE' 'ELASTIQUE' 'ISOTROPE' ;
  25.  
  26. * Topology (usualy obtained from procedure TOPOPTIM)
  27. pnt0 = (msh0 POIN 'DROI' (100.0 0.0) (60.0 100.0) 10.0)
  28. POIN 'DROI' (0.0 60.0) (100.0 60.0) 30.0 ;
  29. pnt0 = pnt0 ET (msh0 POIN 'SPHE' (40.0 30.0) (40.0 50.0) 5.0) ;
  30. pnt0 = pnt0 ET (msh0 POIN 'SPHE' (-50.0 150.0) (50.0 150.0) 15.0) ;
  31. elm0 = msh0 ELEM 'APPU' pnt0 ;
  32. topo0 = MANU 'CHML' mod0 'SCAL' 1.0
  33. 'TYPE' 'SCALAIRE' 'GRAVITE' ;
  34. topo0 = (topo0 * 0.0) + (topo0 REDU elm0) ;
  35.  
  36. * Topology table
  37. tab0 = TABL ;
  38. tab0.'MODELE' = mod0 ;
  39. tab0.'TOPOLOGIE_CH' = topo0 ;
  40.  
  41. * Plot the topology to screen
  42. TRAC tab0.'TOPOLOGIE_CH' tab0.'MODELE' ;
  43.  
  44. * Generate the smoothed boundary of the topology
  45. surf1 = TOPOSURF tab0 1 0.5 1.0e-6 1.0e-3 0.0 ;
  46.  
  47. * Plot the smoothed boundary to screen
  48. TRAC surf1 ;
  49.  
  50. FIN ;
  51.  
  52.  
  53.  
  54.  

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