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. * repertoire des fichiers "divers"
  29. DIVERS = VENV 'CASTEM_DIVERS';
  30. *
  31. * Lecture en Simple Precision
  32. TAB1 = LIRE 'NAS' ('CHAINE' DIVERS '/nastran_simple.nas') ;
  33. MAILTOT = VIDE 'MAILLAGE';
  34. TAB11 = INDE (TAB1.'MAILLAGES');
  35. * MAILLAGES *
  36. MAIL3 = VIDE 'MAILLAGE';
  37. REPE SURI (DIME TAB11);
  38. MAIL3 = MAIL3 ET (TAB1.'MAILLAGES' . (TAB11 . &SURI));
  39. FIN SURI;
  40. MAILTOT = MAILTOT ET MAIL3;
  41.  
  42. TAB12 = INDE (TAB1.'SYSTEMES');
  43. * MAILLAGES *
  44. MAIL4 = VIDE 'MAILLAGE';
  45. REPE SURI (DIME TAB12);
  46. MAIL4 = MAIL4 ET (TAB1.'SYSTEMES' . (TAB12 . &SURI));
  47. FIN SURI;
  48. MAILTOT = MAILTOT ET (MAIL4 COUL ROUG);
  49.  
  50. TAB13 = INDE (TAB1.'RBE2');
  51. MAIL5=VIDE 'MAILLAGE';
  52. REPE SURI (DIME TAB13);
  53. MAIL5 = MAIL5 ET (TAB1.'RBE2' . (TAB13 . &SURI) . 'MAILLAGE');
  54. FIN SURI;
  55. MAILTOT = MAILTOT ET (MAIL5 COUL VERT);
  56.  
  57. TAB14 = INDE (TAB1.'BLOCAGES');
  58. MAIL6=VIDE 'MAILLAGE';
  59. REPE SURI (DIME TAB14);
  60. MAIL6 = MAIL6 ET (TAB1.'BLOCAGES' . (TAB14 . &SURI));
  61. FIN SURI;
  62. MAILTOT = MAILTOT ET (MAIL6 COUL BLEU);
  63.  
  64. TRAC MAILTOT ;
  65.  
  66. TAB15 = INDE (TAB1.'TEMPERATURES');
  67. REPE SURI (DIME TAB1.'TEMPERATURES');
  68. TRAC TAB1.'TEMPERATURES'. (TAB15 . &SURI) MAILTOT;
  69. FIN SURI;
  70.  
  71. TAB16 = INDE (TAB1.'FORCES');
  72. REPE SURI (DIME TAB1.'FORCES');
  73. VEC1 = VECT TAB1.'FORCES'. (TAB16 . &SURI) 0.01 'FORC' ;
  74. TRAC (VEC1 COUL JAUN) MAILTOT;
  75. FIN SURI;
  76.  
  77. TAB17 = INDE (TAB1.'MOMENTS');
  78. REPE SURI (DIME TAB1.'MOMENTS');
  79. VEC2 =VECT TAB1.'MOMENTS'. (TAB17 . &SURI) 1.e-2
  80. ('MOTS' 'MX' 'MY' 'MZ');
  81. TRAC (VEC2 COUL JAUN) MAILTOT;
  82. FIN SURI;
  83.  
  84.  
  85. * Lecture en Double Precision
  86. TAB2 = LIRE 'NAS' ('CHAINE' DIVERS '/nastran_long.nas') ;
  87. MAILTOT = VIDE 'MAILLAGE';
  88. TAB21 = INDE (TAB2.'MAILLAGES');
  89. * MAILLAGES *
  90. MAIL3 = VIDE 'MAILLAGE';
  91. REPE SURI (DIME TAB21);
  92. MAIL3 = MAIL3 ET (TAB2.'MAILLAGES' . (TAB21 . &SURI));
  93. FIN SURI;
  94. MAILTOT = MAILTOT ET MAIL3;
  95.  
  96. TAB22 = INDE (TAB2.'SYSTEMES');
  97. * MAILLAGES *
  98. MAIL4 = VIDE 'MAILLAGE';
  99. REPE SURI (DIME TAB22);
  100. MAIL4 = MAIL4 ET (TAB2.'SYSTEMES' . (TAB22 . &SURI));
  101. FIN SURI;
  102. MAILTOT = MAILTOT ET (MAIL4 COUL ROUG);
  103.  
  104. TAB23 = INDE (TAB2.'RBE2');
  105. MAIL5=VIDE 'MAILLAGE';
  106. REPE SURI (DIME TAB23);
  107. MAIL5 = MAIL5 ET (TAB2.'RBE2' . (TAB23 . &SURI) . 'MAILLAGE');
  108. FIN SURI;
  109. MAILTOT = MAILTOT ET (MAIL5 COUL VERT);
  110.  
  111. TAB24 = INDE (TAB2.'BLOCAGES');
  112. MAIL6=VIDE 'MAILLAGE';
  113. REPE SURI (DIME TAB24);
  114. MAIL6 = MAIL6 ET (TAB2.'BLOCAGES' . (TAB24 . &SURI));
  115. FIN SURI;
  116. MAILTOT = MAILTOT ET (MAIL6 COUL BLEU);
  117.  
  118. TRAC MAILTOT ;
  119.  
  120. TAB25 = INDE (TAB2.'TEMPERATURES');
  121. REPE SURI (DIME TAB2.'TEMPERATURES');
  122. TRAC TAB2.'TEMPERATURES'. (TAB25 . &SURI) MAILTOT;
  123. FIN SURI;
  124.  
  125. TAB26 = INDE (TAB2.'FORCES');
  126. REPE SURI (DIME TAB2.'FORCES');
  127. VEC1 = VECT TAB2.'FORCES'. (TAB26 . &SURI) 0.01 'FORC' ;
  128. TRAC (VEC1 COUL JAUN) MAILTOT;
  129. FIN SURI;
  130.  
  131. TAB27 = INDE (TAB2.'MOMENTS');
  132. REPE SURI (DIME TAB2.'MOMENTS');
  133. VEC2 =VECT TAB2.'MOMENTS'. (TAB27 . &SURI) 1.e-2
  134. ('MOTS' 'MX' 'MY' 'MZ');
  135. TRAC (VEC2 COUL JAUN) MAILTOT;
  136. FIN SURI;
  137.  
  138. FIN;
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  

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