Télécharger la plaquette Cast3M


fr en

Télécharger toposurf_01.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier toposurf_01.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. ************************************************************************
  6. ** Extraction of the 2D smoothed surface from a simple 2D topology
  7. **
  8. ** Author:
  9. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  10. **
  11. ** Version:
  12. ** 3.0 2018/01/29 Updated to make it compatible with TOPOSURF V3.0
  13. ** 2.0 2018/01/26 Updated to make it compatible with TOPOSURF V2.0
  14. ** 1.0 2016/12/13 Original version compatible with TOPOSURF V1.0
  15. ************************************************************************
  16.  
  17. * General options
  18. OPTI 'DIME' 2 'MODE' 'PLAN' 'CONT' 'ELEM' QUA4 ;
  19. graph0 = FAUX ;
  20.  
  21. * Mesh
  22. p0 = 0.0 0.0 ;
  23. p1 = 0.0 100.0 ;
  24. p2 = 100.0 0.0 ;
  25. lgn0 = DROI 100 p1 p0 ;
  26. msh0 = TRAN lgn0 100 p2 ;
  27.  
  28. * Model
  29. mod0 = MODE msh0 'MECANIQUE' 'ELASTIQUE' 'ISOTROPE' ;
  30.  
  31. * Topology (usualy obtained from procedure TOPOPTIM)
  32. pnt0 = (msh0 POIN 'DROI' (100.0 0.0) (60.0 100.0) 10.0) 
  33.              POIN 'DROI' (0.0 60.0) (100.0 60.0) 30.0 ;
  34. pnt0 = pnt0 ET (msh0 POIN 'SPHE' (40.0 30.0) (40.0 50.0) 5.0) ;
  35. pnt0 = pnt0 ET (msh0 POIN 'SPHE' (-50.0 150.0) (50.0 150.0) 15.0) ;
  36. elm0 = msh0 ELEM 'APPU' pnt0 ;
  37. topo0 = MANU 'CHML' mod0 'SCAL' 1.0 'TYPE' 'SCALAIRE' 'GRAVITE' ;
  38. topo0 = ((topo0 * 0.0) REDU (DIFF msh0 elm0)) + (topo0 REDU elm0) ;
  39.  
  40. * Plot the topology to screen
  41. SI graph0 ;
  42.     TRAC topo0 mod0 ;
  43. FINS ;
  44.  
  45. * Topology table
  46. tab0 = TABL ;
  47. tab0.'TOPOLOGIE' = topo0 ;
  48. tab0.'MODELE'    = mod0 ;
  49. tab0.'EPAISSEUR' = 0.0 ;
  50.  
  51. * Generate the smoothed boundary of the topology
  52. srf0 = TOPOSURF tab0 ;
  53.  
  54. * Plot the smoothed boundary to screen
  55. SI graph0 ;
  56.     TRAC srf0 ;
  57. FINS ;
  58.  
  59. FIN ;
  60.  
  61.  
  62.  
  63.  

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