Télécharger la plaquette Cast3M


fr en

Télécharger sort_nas.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  sort_nas.dgibi
  2.  
  3. ************************************************************************
  4. ************************************************************************
  5.  
  6. **********************************************************
  7. *           Test sort_nas.dgibi: Jeux de données         *
  8. *           ------------------------------------         *
  9. **********************************************************
  10. * SI GRAPH = N PAS DE GRAPHIQUE AFFICHE
  11. * SINON SI GRAPH DIFFERENT DE N TOUS
  12. * LES GRAPHIQUES SONT AFFICHES
  13.  
  14. GRAPH = 'O' ;
  15.  
  16. SAUT PAGE;
  17. SI (NEG GRAPH 'N') ;
  18.   OPTI ECHO 1   ;
  19.   OPTI TRAC PSC ;
  20. SINO ;
  21.   OPTI ECHO 0   ;
  22. FINSI ;
  23.  
  24. SAUT PAGE;
  25. *___________________________________________________________________
  26. *   TEST SORT_NAS                                                  *
  27. * Lecture d'un fichier NASTRAN existant dans la base de donnee     *
  28. * Verification de la sortie NASTRAN (M. Bulik)                     *
  29. * Relecture du MAILLAGE sorti pour verification                    *
  30. *__________________________________________________________________*
  31. *
  32. * repertoire des fichiers "divers"
  33. DIVERS = VENV 'CASTEM_DIVERS';
  34. *
  35.  
  36. * Lecture d'un fichier BULK de NASTRAN
  37. TAB1 = 'LIRE' 'NAS' ('CHAINE' DIVERS '/nastran_long.nas');
  38. TAB11= 'INDE' (TAB1.'MAILLAGES');
  39. MAIL1 = VIDE 'MAILLAGE';
  40. REPE SURI (DIME TAB11);
  41.   MAIL1 = MAIL1 ET (TAB1.'MAILLAGES' . (TAB11 . &SURI));
  42. FIN SURI;
  43.  
  44.  
  45. * Sortie vers un fichier local
  46. 'OPTI' 'SORT' 'SORT_Nastran.nas';
  47. 'SORT' 'NAS' MAIL1;
  48.  
  49.  
  50. * Relecture du fichier ecrit
  51. 'OPTI' 'SORT' 'BIDON';
  52.  
  53. TAB2 = 'LIRE' 'NAS' 'SORT_Nastran.nas';
  54. TAB21= 'INDE' (TAB2.'MAILLAGES');
  55. MAIL2 = VIDE 'MAILLAGE';
  56. REPE SURI (DIME TAB21);
  57.   MAIL2 = MAIL2 ET (TAB2.'MAILLAGES' . (TAB21 . &SURI));
  58. FIN SURI;
  59.  
  60. TRAC (MAIL1 ET (MAIL2 COUL ROUG));
  61.  
  62. FIN;
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  

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