Télécharger la plaquette Cast3M


fr en

Télécharger ntableau.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  ntableau.dgibi
  2. ************************************************************************
  3. * NOM         : NTABLEAU
  4. * DESCRIPTION : Le but de ce cas-test est de tester le trace
  5. *               d'un tableau de chiffres pour les diverses options et
  6. *               sorties. 
  7. *               Malheureusement, on ne peut tester le bon fonctionnement
  8. *               qu'a l'oeil du specialiste car on ne sait pas faire de
  9. *               test automatise.
  10. *
  11. *
  12. *
  13. * LANGAGE     : GIBIANE-CAST3M
  14. * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  15. *               mél : stephane.gounand@cea.fr
  16. **********************************************************************
  17. * VERSION    : v1, 22/06/2016, version initiale
  18. * HISTORIQUE : v1, 22/06/2016, création
  19. * HISTORIQUE :
  20. ************************************************************************
  21. 'OPTI' 'ECHO' 1 ;
  22. 'SAUT' 'PAGE' ;
  23. interact = faux ;
  24. * s'il n'y a pas de graphique, le cas-test ne sert a rien...
  25. *graph    = vrai ;
  26. *
  27. 'OPTION' 'DIME' 2 'ELEM' 'SEG2' ;
  28. *
  29. 'SI' interact ;
  30.    lsort = 'MOTS' 'X' 'PS' 'PSC' 'OPEN' ;
  31. *   lsort = 'MOTS' 'X' 'PS' 'PSC' ;
  32. 'SINON' ;
  33.    lsort = 'MOTS' 'PS' 'PSC' ;
  34. *   lsort = 'MOTS' 'PSC' ;
  35. 'FINSI' ;
  36. * On ne teste pas beaucoup de cas pour l'instant
  37. * Un tableau S, A, X, Y 
  38. cer = 'LIGN' 36 (0. 0.) (1. 0.) 360. 'ROTA' ;
  39. xcer ycer = 'COORDONNEE' cer ;
  40. evx = 'EVOL' 'CHPO' xcer cer ;
  41. evy = 'EVOL' 'CHPO' ycer cer ;
  42. ang = 'ATG' ycer xcer ;
  43. eva = 'EVOL' 'CHPO' ang cer ;
  44. evt1 = eva 'ET' evx 'ET' evy ;
  45. *
  46. 'REPETER' isort ('DIME' lsort) ;
  47.    mosort = 'EXTRAIRE' lsort &isort ;
  48.    'OPTI' 'TRAC' mosort ;
  49.    'NTABLEAU' evt1 'TITR' 'A mon beau cercle' 'STITR' 'Gounand FECIT'
  50.                   'TCOL' 1 'Absc. curv.' 'TCOL' 2 'Angle'
  51.                   'TCOL' 3 'X' 'TCOL' 4 'Y'
  52.                   'TLIG' 11 'Quart'  'TLIG' 20 'Demi' 'TLIG' 29 '3Quart'
  53.                   'TEXCOU' 2
  54.                   'LOGO' ;
  55. 'FIN' isort ;   
  56. *      
  57. 'SI' interact ;
  58.    'OPTION' 'DONN' 5 ;
  59. 'FINSI' ;
  60. *
  61. * End of dgibi file NTABLEAU
  62. *
  63. 'FIN' ;
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  

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