Télécharger test_trachist.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : test_trachist.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. GRAPH = vrai ;
  5. ******************* CAS TEST : test_trachist.dgibi ********************
  6.  
  7. *-------------------------------------------------------------
  8. *
  9. * Test des procédures TRACHIT et TRACHIS
  10. *
  11. *-------------------------------------------------------------
  12. *'OPTION' 'ECHO' 0 ;
  13. 'SAUTER' 'PAGE';
  14.  
  15. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  16. 'OPTION' 'TRACER' 'PSC' ;
  17.  
  18. ************************************************************************
  19. *
  20. * Début Programme
  21. *
  22. ************************************************************************
  23. *-- maillage :
  24. a1 = 0. 0.;
  25. a2 = 1. 0. ;
  26. a3 = 1. 1. ;
  27. a4 = 0. 1.;
  28. d1 = 'DROIT' a1 2 a2;
  29. d2 = 'DROIT' a2 2 a3;
  30. d3 = 'DROIT' a3 2 a4;
  31. d4 = 'DROIT' a4 2 a1;
  32. dom = 'ORIENTER' ('DALLER' d1 d2 d3 d4);
  33.  
  34. hysom = 'CHANGER' dom 'POI1' ;
  35. chpo1 = ('COOR' hysom 1) + (10.*('COOR' hysom 2)) ;
  36. chpo2 = 0.0 - chpo1;
  37. chpo1 = 'NOMC' chpo1 'CIL';
  38. chpo2 = 'NOMC' chpo2 'LAB';
  39. chpo0 = chpo1 'ET' chpo2 ;
  40.  
  41. tsort = 'TABLE';
  42. tsort.temps = 'TABLE' ;
  43. tsort.val = 'TABLE' ;
  44. 'REPETER' bcl 10;
  45. i = &bcl;
  46. tsort.temps.i = i;
  47. tsort.val.i = chpo0 * i * i;
  48. 'FIN' bcl;
  49.  
  50. *-- Test de TRACHIT (évolutions en certains points au cours du temps)
  51. * ---------------
  52.  
  53. * Maillage des points de suivi :
  54. mailpevl = a1 'ET' a2 'ET' a3 'ET' a4 ;
  55.  
  56. *- tables de noms
  57. * nom des composantes
  58. tnomcomp = 'TABLE' ;
  59. tnomcomp.'SOUSTYPE' = 'MOT' 'NOM_COMPOSANTE';
  60. tnomcomp.1 = 'CHAINE' 'H2O' ;
  61. tnomcomp.2 = 'CHAINE' 'Na+' ;
  62.  
  63. * nom des points
  64. tnomnoeu = 'TABLE' ;
  65. tnomnoeu.'SOUSTYPE' = 'MOT' 'NOM_POINT';
  66. tnomnoeu.1 = 'CHAINE' 'BG' ;
  67. tnomnoeu.2 = 'CHAINE' 'BD' ;
  68. tnomnoeu.3 = 'CHAINE' 'HD' ;
  69. tnomnoeu.4 = 'CHAINE' 'HG' ;
  70. prefleg = 'yo' ;
  71.  
  72. *- Evolutions
  73. Tit = 'CHAINE' '(x + y) t*t ' ;
  74. Tab1a = TRACHIT TSORT 'VAL' mailpevl tnomnoeu tnomcomp 'PREF' prefleg;
  75.  
  76. *- Tracé
  77. 'SI' GRAPH ;
  78. DESTRA Tab1a 'MIMA' 'AXES' 'TITR' Tit 'TITX' 't' 'TITY' 'Val';
  79. 'FINSI' ;
  80.  
  81. *-- Test de TRACHIS (évolutions en certains temps le long d'une ligne)
  82. * ---------------
  83.  
  84. *- ligne de mesure :
  85. MAILPEVL = d1;
  86.  
  87. *- liste des indices des temps à tracer :
  88. LiIndevl = 'LECT' 1 5 10 ;
  89.  
  90. *- Evolutions
  91. Tit = 'CHAINE' '(x + y) t*t ' ;
  92. Tab1b = TRACHIS TSORT 'VAL' mailpevl LiIndevl ('MOTS' 'CIL' 'LAB')
  93. ('MOTS' 'Bou' 'Diu') 'PREF' prefleg 'UNIT' 's';
  94.  
  95. *- Tracé
  96. 'SI' GRAPH ;
  97. DESTRA Tab1b 'MIMA' 'AXES' 'TITR' Tit 'TITX' 't' 'TITY' 'Val';
  98. 'FINSI' ;
  99.  
  100. 'ERREUR' 0;
  101.  
  102. 'FIN';
  103.  
  104.  
  105.  
  106.  
  107.  

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