Télécharger la plaquette Cast3M


fr en

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' 'PSC' 'PS' ;
  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.  
  128.  
  129.  

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