Télécharger evol_manu.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : evol_manu.dgibi
  2.  
  3. *******************************************
  4. *******************************************
  5.  
  6. ************************************************************************
  7. * PRESENTATION *
  8. ************************************************************************
  9. * Ce cas-test permet de tester
  10. * 1- le bon fonctionnement des differentes combinaisons de l'operateur
  11. * 'EVOL' avec l'option 'MANU'
  12. * 2- le bon fonctionnement de l'operateur 'LIST' de ces combisaisons
  13. * 3- le bon fonctionnement de l'operateur 'DESS' de ces combisaisons
  14. *
  15. * Creation : 09/03/2016
  16. * Createur : C. BERTHINIER
  17. *
  18. * Modifications :
  19. * IDENTIFI JJ/MM/AAAA : ...
  20. *
  21. ************************************************************************
  22.  
  23. OPTI TRAC 'PSC';
  24.  
  25. * Fabrication des differentes listes : LISTMOTS, LISTREEL, LISTENTI
  26. LMO1 = MOTS 'row ' ' = ' 'Curv' 'absc' ;
  27. LMO2 = MOTS 'row ' ' = ' 'Curv' 'ordi' ;
  28.  
  29. LRE1 = PROG 1. 2. 3. 4. ;
  30. LRE2 = PROG 1. 4. 9. 16. ;
  31.  
  32. LEN1 = LECT 5 6 7 8 ;
  33. LEN2 = LECT 9 10 11 12 ;
  34.  
  35. * Fabrication des 9 combinaisons d'EVOLUTIO possibles
  36. EV11 = 'EVOL' 'MANU' LMO1 LMO2;
  37. EV12 = 'EVOL' 'MANU' LMO1 LRE1;
  38. EV13 = 'EVOL' 'MANU' LMO1 LEN1;
  39.  
  40. EV21 = 'EVOL' 'MANU' LRE1 LMO2;
  41. EV22 = 'EVOL' 'MANU' LRE1 LRE2;
  42. EV23 = 'EVOL' 'MANU' LRE1 LEN1;
  43.  
  44.  
  45. EV31 = 'EVOL' 'MANU' LEN1 LMO2;
  46. EV32 = 'EVOL' 'MANU' LEN1 LRE2;
  47. EV33 = 'EVOL' 'MANU' LEN1 LEN2;
  48.  
  49. EVTOT = EV11 ET EV12 ET EV13 ET
  50. EV21 ET EV22 ET EV23 ET
  51. EV31 ET EV32 ET EV33 ;
  52.  
  53. LIST EVTOT;
  54. DESS EVTOT;
  55. FIN;
  56.  
  57.  
  58.  
  59.  

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