Télécharger tracisov.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : tracisov.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. ************************************************************************
  5. * NOM : TRACISOV
  6. * DESCRIPTION : Le but de ce cas-test est de tester le trace
  7. * d'isovaleurs pour les diverses options et sorties.
  8. * Malheureusement, on ne peut tester le bon fonctionnement
  9. * qu'a l'oeil du specialiste car on ne sait pas faire de
  10. * test automatise.
  11. *
  12. *
  13. *
  14. * LANGAGE : GIBIANE-CAST3M
  15. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  16. * mél : stephane.gounand@cea.fr
  17. **********************************************************************
  18. * VERSION : v1, 21/10/2013, version initiale
  19. * HISTORIQUE : v1, 21/10/2013, création
  20. * HISTORIQUE : 20/04/2016, ajout du cas de la fiche 8919
  21. * HISTORIQUE :
  22. ************************************************************************
  23. 'OPTI' 'ECHO' 0 ;
  24. 'SAUT' 'PAGE' ;
  25. interact = faux ;
  26. * s'il n'y a pas de graphique, le cas-test ne sert a rien...
  27. *graph = vrai ;
  28. *
  29. 'OPTION' 'DIME' 2 ;
  30. *
  31. pA = 0. 0. ; pB = 1. 0. ; pC = 1. 1. ; pD = 0. 1. ;
  32. mt = 'MANUEL' 'QUA4' pA pB pC pD ;
  33. mt = 'CHANGER' mt 'TRI3' ;
  34. mtq = 'CHANGER' mt 'QUADRATIQUE' ;
  35. *
  36. xmt = 'COORDONNEE' 1 mtq ;
  37. *
  38. * Petit bout de code non exécuté pour générer les tableaux
  39. * ISOTAB et ISOTA0 de l'include CCCOUL
  40. *
  41. *niso = 10 ;
  42. *'REPETER' n 11 ;
  43. * niso = &n '+' 1 ;
  44. * 'MESSAGE' ('CHAINE' 'niso=' niso) ;
  45. * dn = '/' ('-' 12. 1.) ('FLOTTANT' &n) ;
  46. * 'REPETER' i niso ;
  47. * j = 'ENTIER' ('+' 1.5 (('-' &i 1) '*' dn)) ;
  48. * 'MESSAGE' ('CHAINE' ' i=' &i ' j=' j) ;
  49. * 'FIN' i ;
  50. *'FIN' n ;
  51. *
  52. 'SI' interact ;
  53. lsort = 'MOTS' 'X' 'PS' 'PSC' 'OPEN' ;
  54. 'SINON' ;
  55. lsort = 'MOTS' 'PS' 'PSC' ;
  56. * lsort = 'MOTS' 'PSC' ;
  57. 'FINSI' ;
  58. lisov = 'MOTS' 'LIGN' 'SURF' 'SULI' ;
  59. *lisov = 'MOTS' 'SURF' 'SULI' ;
  60. *
  61. 'REPETER' isort ('DIME' lsort) ;
  62. mosort = 'EXTRAIRE' lsort &isort ;
  63. 'OPTI' 'TRAC' mosort ;
  64. 'REPETER' iniso 18 ;
  65. * 'REPETER' iniso 1 ;
  66. niso = &iniso '-' 1 ;
  67. * niso = &iniso '+' 1 ;
  68. 'REPETER' iisov ('DIME' lisov) ;
  69. moisov = 'EXTRAIRE' lisov &iisov ;
  70. 'OPTI' 'ISOV' moisov ;
  71. 'REPETER' iquad 2 ;
  72. * 'REPETER' iquad 1 ;
  73. 'SI' ('EGA' &iquad 1) ;
  74. moquad = 'TRI3' ;
  75. mtt = mt ;
  76. 'SINO' ;
  77. moquad = 'TRI6' ;
  78. mtt = mtq ;
  79. 'FINSI' ;
  80. momo = 'CHAINE' mosort ' ' niso ' ' moisov ' ' moquad ;
  81. 'MESSAGE' momo ;
  82. 'SI' ('NEG' niso 0) ;
  83. 'TRACER' xmt mtt niso 'TITR' momo ;
  84. 'SINON' ;
  85. 'TRACER' xmt mtt 'TITR' momo ;
  86. 'FINSI' ;
  87. 'FIN' iquad ;
  88. 'FIN' iisov ;
  89. 'FIN' iniso ;
  90. 'FIN' isort ;
  91. *
  92. * Cas-test qui donnait un resultat incorrect avant la fiche 8919
  93. * le coté droit du cube apparaissait en noir au lieu de rouge
  94. *
  95. 'OPTI' 'DIME' 3 'ELEM' 'CUB8' ;
  96. pA = 0. 0. 0. ; pB = 1. 0. 0. ; pC = 1. 1. 0. ; pD = 0. 1. 0. ;
  97. mt = 'MANUEL' 'QUA4' pA pB pC pD ;
  98. mt = 'VOLUME' mt 'TRAN' 1 (0. 0. 1.) ;
  99. xmt ymt zmt = 'COORDONNEE' mt ;
  100. ccmt = '*' ('+' xmt (* 0.9 ymt)) 1.0 ;
  101. 'REPETER' isort ('DIME' lsort) ;
  102. mosort = 'EXTRAIRE' lsort &isort ;
  103. 'OPTI' 'TRAC' mosort ;
  104. 'REPETER' iisov ('DIME' lisov) ;
  105. moisov = 'EXTRAIRE' lisov &iisov ;
  106. 'OPTI' 'ISOV' moisov ;
  107. momo = 'CHAINE' mosort ' ' moisov ;
  108. 'MESSAGE' momo ;
  109. 'TRACER' ccmt mt 1 'TITR' momo ;
  110. 'FIN' iisov ;
  111. 'FIN' isort ;
  112. *
  113. 'SI' interact ;
  114. 'OPTION' 'DONN' 5 ;
  115. 'FINSI' ;
  116. *
  117. * End of dgibi file TRACISOV
  118. *
  119. 'FIN' ;
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  

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