Télécharger lire_nas.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : lire_nas.dgibi
  2.  
  3. *******************************************
  4. *******************************************
  5.  
  6. ************************************************************************
  7. * PRESENTATION *
  8. ************************************************************************
  9. * Ce cas-test permet de LIRE des MAILLAGES au format NASTRAN
  10. * - En simple et double precision
  11. *
  12. * Ameliorations a prevoir :
  13. * - Changement de repere pour les FORCES et MOMENTS (Cylindrique et Spherique)
  14. * - Lecture des masses ajoutees (CONM2)
  15. * - Lecture des barres rigides (RBAR)
  16. * - Lecture des rigidites ajoutees (CELAS2)
  17. * - Lecture des pressions (PLOAD1,PLOAD2, PLOAD4)
  18. *
  19. * Creation : 25/05/2016
  20. * Createur : C. BERTHINIER
  21. *
  22. * Modifications :
  23. * USERNAME JJ/MM/AAAA : Description
  24. ************************************************************************
  25.  
  26. OPTI TRAC 'PSC';
  27.  
  28. * Lecture en Simple Precision
  29. TAB1 = LIRE 'NAS' '/u2/castem/divers/nastran_simple.nas' ;
  30. MAILTOT = VIDE 'MAILLAGE';
  31. TAB11 = INDE (TAB1.'MAILLAGES');
  32. * MAILLAGES *
  33. MAIL3 = VIDE 'MAILLAGE';
  34. REPE SURI (DIME TAB11);
  35. MAIL3 = MAIL3 ET (TAB1.'MAILLAGES' . (TAB11 . &SURI));
  36. FIN SURI;
  37. MAILTOT = MAILTOT ET MAIL3;
  38.  
  39. TAB12 = INDE (TAB1.'SYSTEMES');
  40. * MAILLAGES *
  41. MAIL4 = VIDE 'MAILLAGE';
  42. REPE SURI (DIME TAB12);
  43. MAIL4 = MAIL4 ET (TAB1.'SYSTEMES' . (TAB12 . &SURI));
  44. FIN SURI;
  45. MAILTOT = MAILTOT ET (MAIL4 COUL ROUG);
  46.  
  47. TAB13 = INDE (TAB1.'RBE2');
  48. MAIL5=VIDE 'MAILLAGE';
  49. REPE SURI (DIME TAB13);
  50. MAIL5 = MAIL5 ET (TAB1.'RBE2' . (TAB13 . &SURI) . 'MAILLAGE');
  51. FIN SURI;
  52. MAILTOT = MAILTOT ET (MAIL5 COUL VERT);
  53.  
  54. TAB14 = INDE (TAB1.'BLOCAGES');
  55. MAIL6=VIDE 'MAILLAGE';
  56. REPE SURI (DIME TAB14);
  57. MAIL6 = MAIL6 ET (TAB1.'BLOCAGES' . (TAB14 . &SURI));
  58. FIN SURI;
  59. MAILTOT = MAILTOT ET (MAIL6 COUL BLEU);
  60.  
  61. TRAC MAILTOT ;
  62.  
  63. TAB15 = INDE (TAB1.'TEMPERATURES');
  64. REPE SURI (DIME TAB1.'TEMPERATURES');
  65. TRAC TAB1.'TEMPERATURES'. (TAB15 . &SURI) MAILTOT;
  66. FIN SURI;
  67.  
  68. TAB16 = INDE (TAB1.'FORCES');
  69. REPE SURI (DIME TAB1.'FORCES');
  70. VEC1 = VECT TAB1.'FORCES'. (TAB16 . &SURI) 0.01 'FORC' ;
  71. TRAC (VEC1 COUL JAUN) MAILTOT;
  72. FIN SURI;
  73.  
  74. TAB17 = INDE (TAB1.'MOMENTS');
  75. REPE SURI (DIME TAB1.'MOMENTS');
  76. VEC2 =VECT TAB1.'MOMENTS'. (TAB17 . &SURI) 1.e-2
  77. ('MOTS' 'MX' 'MY' 'MZ');
  78. TRAC (VEC2 COUL JAUN) MAILTOT;
  79. FIN SURI;
  80.  
  81.  
  82. * Lecture en Double Precision
  83. TAB2 = LIRE 'NAS' '/u2/castem/divers/nastran_long.nas' ;
  84. MAILTOT = VIDE 'MAILLAGE';
  85. TAB21 = INDE (TAB2.'MAILLAGES');
  86. * MAILLAGES *
  87. MAIL3 = VIDE 'MAILLAGE';
  88. REPE SURI (DIME TAB21);
  89. MAIL3 = MAIL3 ET (TAB2.'MAILLAGES' . (TAB21 . &SURI));
  90. FIN SURI;
  91. MAILTOT = MAILTOT ET MAIL3;
  92.  
  93. TAB22 = INDE (TAB2.'SYSTEMES');
  94. * MAILLAGES *
  95. MAIL4 = VIDE 'MAILLAGE';
  96. REPE SURI (DIME TAB22);
  97. MAIL4 = MAIL4 ET (TAB2.'SYSTEMES' . (TAB22 . &SURI));
  98. FIN SURI;
  99. MAILTOT = MAILTOT ET (MAIL4 COUL ROUG);
  100.  
  101. TAB23 = INDE (TAB2.'RBE2');
  102. MAIL5=VIDE 'MAILLAGE';
  103. REPE SURI (DIME TAB23);
  104. MAIL5 = MAIL5 ET (TAB2.'RBE2' . (TAB23 . &SURI) . 'MAILLAGE');
  105. FIN SURI;
  106. MAILTOT = MAILTOT ET (MAIL5 COUL VERT);
  107.  
  108. TAB24 = INDE (TAB2.'BLOCAGES');
  109. MAIL6=VIDE 'MAILLAGE';
  110. REPE SURI (DIME TAB24);
  111. MAIL6 = MAIL6 ET (TAB2.'BLOCAGES' . (TAB24 . &SURI));
  112. FIN SURI;
  113. MAILTOT = MAILTOT ET (MAIL6 COUL BLEU);
  114.  
  115. TRAC MAILTOT ;
  116.  
  117. TAB25 = INDE (TAB2.'TEMPERATURES');
  118. REPE SURI (DIME TAB2.'TEMPERATURES');
  119. TRAC TAB2.'TEMPERATURES'. (TAB25 . &SURI) MAILTOT;
  120. FIN SURI;
  121.  
  122. TAB26 = INDE (TAB2.'FORCES');
  123. REPE SURI (DIME TAB2.'FORCES');
  124. VEC1 = VECT TAB2.'FORCES'. (TAB26 . &SURI) 0.01 'FORC' ;
  125. TRAC (VEC1 COUL JAUN) MAILTOT;
  126. FIN SURI;
  127.  
  128. TAB27 = INDE (TAB2.'MOMENTS');
  129. REPE SURI (DIME TAB2.'MOMENTS');
  130. VEC2 =VECT TAB2.'MOMENTS'. (TAB27 . &SURI) 1.e-2
  131. ('MOTS' 'MX' 'MY' 'MZ');
  132. TRAC (VEC2 COUL JAUN) MAILTOT;
  133. FIN SURI;
  134.  
  135. FIN;
  136.  
  137.  
  138.  
  139.  

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