Télécharger sort_med.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : sort_med.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. * Presentation : Ce cas-test permet de :
  6. * SORTIR des MAILLAGES et des CHPOINT au format MED 3.0
  7. * LIRE les fichiers MED 3.0 générés
  8. *
  9. * Ameliorations a prevoir :
  10. * - Sortir les MCHAML
  11. * - Sortir les TABLES
  12. *
  13. * Creation : 17/02/2017
  14. * Createur : C. BERTHINIER
  15. *
  16. * Modifications :
  17. * USERNAME JJ/MM/AAAA : Description de la modification
  18. * ...
  19. ************************************************************************
  20.  
  21. 'OPTI' 'TRAC' 'PSC';
  22.  
  23. ***********************************************************************
  24. * Lecture d'un MAILLAGE 'NASTRAN' avec plusieurs types d'éléments
  25. ***********************************************************************
  26.  
  27. * Lecture 'NASTRAN' en Double Precision
  28. TAB2 = LIRE 'NAS' '/u2/castem/divers/nastran_long.nas' ;
  29. TAB21 = INDE (TAB2.'MAILLAGES');
  30. * MAILLAGES *
  31. MAILTOT = VIDE 'MAILLAGE';
  32. REPE SURI (DIME TAB21);
  33. MAILTOT = MAILTOT ET (TAB2.'MAILLAGES' . (TAB21 . &SURI));
  34. FIN SURI;
  35.  
  36. * Le MAILLAGE MAILTOT contient 11 types d'elements :
  37. * - 29 element(S) de type SEG2
  38. * - 93 element(S) de type TRI3
  39. * - 164 element(S) de type QUA4
  40. * - 271 element(S) de type TET4
  41. * - 36 element(S) de type PRI6
  42. * - 84 element(S) de type CUB8
  43. *
  44. * - 29 element(S) de type TRI6
  45. * - 27 element(S) de type QUA8
  46. * - 271 element(S) de type TE10
  47. * - 24 element(S) de type PR15
  48. * - 12 element(S) de type CU20
  49.  
  50. MSEG2 = 'ELEM' MAILTOT 'SEG2';
  51. MTRI3 = 'ELEM' MAILTOT 'TRI3';
  52. MQUA4 = 'ELEM' MAILTOT 'QUA4';
  53. MTET4 = 'ELEM' MAILTOT 'TET4';
  54. MPRI6 = 'ELEM' MAILTOT 'PRI6';
  55. MCUB8 = 'ELEM' MAILTOT 'CUB8';
  56.  
  57. MTRI6 = 'ELEM' MAILTOT 'TRI6';
  58. MQUA8 = 'ELEM' MAILTOT 'QUA8';
  59. MTE10 = 'ELEM' MAILTOT 'TE10';
  60. MPR15 = 'ELEM' MAILTOT 'PR15';
  61. MCU20 = 'ELEM' MAILTOT 'CU20';
  62.  
  63.  
  64. NSEG2 = 'NBEL' MSEG2;
  65. NTRI3 = 'NBEL' MTRI3;
  66. NQUA4 = 'NBEL' MQUA4;
  67. NTET4 = 'NBEL' MTET4;
  68. NPRI6 = 'NBEL' MPRI6;
  69. NCUB8 = 'NBEL' MCUB8;
  70.  
  71. NTRI6 = 'NBEL' MTRI6;
  72. NQUA8 = 'NBEL' MQUA8;
  73. NTE10 = 'NBEL' MTE10;
  74. NPR15 = 'NBEL' MPR15;
  75. NCU20 = 'NBEL' MCU20;
  76.  
  77. ***********************************************************************
  78. * Sortie MED 3.0 des MAILLAGES SIMPLES et COMPLEXES
  79. ***********************************************************************
  80. 'OPTI' 'SORT' 'SORT_MED_MAILLAGE_simple.med';
  81. 'SORT' 'MED' MSEG2 MTRI3 MQUA4 MTET4 MPRI6 MCUB8
  82. MTRI6 MQUA8 MTE10 MPR15 MCU20 ;
  83.  
  84. 'OPTI' 'SORT' 'SORT_MED_MAILLAGE_complexe.med';
  85. 'SORT' 'MED' MAILTOT ;
  86.  
  87. ***********************************************************************
  88. * Sortie MED 3.0 des CHPOINTS
  89. ***********************************************************************
  90. CHPX1 = 'CHAN' 'COMP' ('COOR' 1 MTRI3) 'UX';
  91. CHPX2 = 'CHAN' 'COMP' ('COOR' 1 MQUA4) 'UX';
  92. CHPY2 = 'CHAN' 'COMP' ('COOR' 2 MQUA4) 'UY';
  93.  
  94. CHPTOT=CHPX1 'ET' CHPX2 'ET' CHPY2;
  95. 'LIST' 'RESU' CHPTOT;
  96.  
  97. 'TRAC' CHPTOT (MTRI3 'ET' MQUA4);
  98.  
  99.  
  100. 'OPTI' 'SORT' 'SORT_MED_CHPOIN_simple.med';
  101. 'SORT' 'MED' CHPX1 CHPX2 CHPY2;
  102.  
  103. 'OPTI' 'SORT' 'SORT_MED_CHPOIN_complexe.med';
  104. 'SORT' 'MED' CHPTOT;
  105.  
  106. ***********************************************************************
  107. * Relecture des fichiers MED 3.0 générés
  108. ***********************************************************************
  109. TAB1 = 'LIRE' 'MED' 'SORT_MED_MAILLAGE_simple.med';
  110. TAB2 = 'LIRE' 'MED' 'SORT_MED_MAILLAGE_complexe.med';
  111. TAB3 = 'LIRE' 'MED' 'SORT_MED_CHPOIN_simple.med';
  112. TAB4 = 'LIRE' 'MED' 'SORT_MED_CHPOIN_complexe.med';
  113.  
  114. 'LIST' TAB1;
  115. 'LIST' TAB2;
  116. 'LIST' TAB3;
  117. 'LIST' TAB4;
  118.  
  119. FIN;
  120.  
  121.  
  122.  
  123.  

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