Télécharger la plaquette Cast3M


fr en

Télécharger lire_STL.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  lire_STL.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *******************************************************
  6. *           Test lire_STL.dgibi: Jeux de données      *
  7. *           ---------------------------------         *
  8. *******************************************************
  9.  
  10.  
  11. * Presentation : Ce cas-test permet de lire des MAILLAGES de 'TRI3' au
  12. *                format 'STL'. Le resultat est un objet de type 
  13. *                TABLE. Chaque indice est un MAILLAGE
  14. *               
  15. * Creation : 12/12/2016
  16. * Createur : C. BERTHINIER
  17. *******************************************************
  18. * repertoire des fichiers "divers"
  19. DIVERS = VENV 'CASTEM_DIVERS';
  20. *
  21.  
  22. OPTI TRAC 'PSC';
  24. OPTI ELEM CUB8;
  25.  
  26. complet = VRAI;
  27.  
  28. *******************************************************
  29. * Creation d'un MAILLAGE dans Cast3M
  30. *  - MAILLAGE copie du cas-test elas9.dgibi
  31. *******************************************************
  32. si complet;
  33.  K= 5;
  34. sinon;
  35.  K= 1;
  36. finsi;
  37. *
  38. PB = 0. 2.75 0.;
  39. PB1 = 0. 2.75 (((3.25 ** 2) - (2.75 ** 2)) ** 0.5);
  40. PC = 3.25 0. 0.;
  41. *
  42. C1 = PC CERC (6 * K) (0. 0. 0.) PB1;
  43. C2 = C1 PROJ DIRE (0. 0. 1) PLAN (0 0 0) (1 0 0) (0 1 0);
  44. *
  45. PA = 0. 1. 0.;
  46. PA1 = 0. 1. (((2. ** 2) - (1. ** 2)) ** 0.5);
  47. PD = 2. 0. 0.;
  48. *
  49. C3 = Pd CERC (6 * K) (0. 0. 0.) PA1;
  50. C4 = C3 PROJ DIRE (0. 0. 1) PLAN (0 0 0) (1 0 0) (0 1 0);
  51. *
  52. D1 = PA DROI (2 * K) (0. 1.583 0.) DROI (2 * K) PB;
  53. D3 = PC DROI (2 * K) (2.417 0. 0.) DROI (2 * K) PD;
  54. *
  55. ELIM (D1 ET C2 ET D3 ET C4) 0.0001;
  56. SUR1 = DALL D1 C2 D3 C4 PLAN;
  57. *
  58. VOL1 = SUR1 VOLU (2 * K) TRAN (0. 0. -0.6);
  59.  
  60. ENV1 = ENVE VOL1;
  61. ENV1 = CHAN 'TRI3' ENV1;
  62.  
  63. *******************************************************
  64. * Sortie du MAILLAGE en STL ASCII
  65. *******************************************************
  66. OPTI SORT 'Mesh_STL.stl';
  67. SORT 'STL' ENV1;
  68.  
  69. *******************************************************
  70. * Relecture du MAILLAGE STL ASCII
  71. *******************************************************
  72. MAIL0 = LIRE 'STL' 'Mesh_STL.stl';
  73. MAIL0 = MAIL0 'COUL' 'ROUG';
  74. ELIM MAIL0 1D-8;
  75. TRAC FACE MAIL0;
  76.  
  77. * On essaye de faire VOLU pour verification
  78. OPTI ELEM 'TET4';
  79. MAIV2 = VOLU MAIL0;
  80. MAIV2 = MAIV2 COUL 'BLEU';
  81. TRAC FACE MAIV2;
  82.  
  83. *******************************************************
  84. * Relecture du MAILLAGE STL ASCII Multi-Solids
  85. *******************************************************
  86. MAIL01 = LIRE 'STL' ('CHAINE' DIVERS '/Multi_Solid.stl');
  87. MAIL01 = MAIL01 'COUL' 'ROUG';
  88. ELIM MAIL01 1D-8;
  89. TRAC FACE MAIL01;
  90.  
  91. *******************************************************
  92. * Relecture de MAILLAGES STL binaire
  93. *  - Incompatible avec IBM AIX RS6000 ==> COMMENTE
  94. *  - Voir avec XDR plutot
  95. *******************************************************
  96. SI FAUX;
  97.   MAIL1 = LIRE 'STL' ('CHAINE' DIVERS '/Bear_Voronoi_fine.stl');
  98.   MAIL1 = MAIL1 'COUL' 'BRUN';
  99.   ELIM MAIL1 1D-8;
  100.   TRAC FACE MAIL1;
  101.  
  102.   MAIL2 = LIRE 'STL' ('CHAINE' DIVERS '/Thenatarius.stl');
  103.   MAIL2 = MAIL2 'COUL' 'BRUN';
  104.   ELIM MAIL2 1D-8;
  105.   TRAC FACE MAIL2;
  106. FINS;
  107.  
  108. FIN;
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  

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