Télécharger la plaquette Cast3M


fr en

Télécharger raff06.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : raff06.dgibi
  2. * section : Mathematiques Fonctions
  3. *----------------------------------------------------------------------*
  4. *                             RAFF06.DGIBI                             *
  5. *----------------------------------------------------------------------*
  6. *
  7. * Objet : 
  8. * -------
  9. * 
  10. * Test de validation de l'operateur RAFF dans le cas du raffinement
  11. * d'un LISTRELL.
  12. *
  13. *
  14. * Description :
  15. * -------------
  16. * 
  17. * On teste differents cas de raffinement de LISTREELs.
  18. * La validation des resultats est laissee a l'utilisateur (uniquement
  19. * validation fonctionnelle).
  20. * 
  21. * Le test de gestion des erreurs est court-cicuite.
  22. * Pour l'activer, mettre ITERR1 a VRAI.
  23. *
  24. *----------------------------------------------------------------------*
  25. ITERR1 = faux ;
  26. *
  27. * Raffinement d'un listreel vide :
  28. lre1 = prog ;
  29. lre2 = raff lre1 2 ;
  30. list lre2 ;
  31. list (lre1 ega lre2) ;
  32.  
  33. * Raffinement d'un listreel d'une valeur :
  34. lre1 = prog 1. ;
  35. lre2 = raff lre1 2 ;
  36. list lre2 ;
  37. list (lre1 ega lre2) ;
  38.  
  39. * Raffinement d'un listreel de plus d'une valeur :
  40. lre1 = prog 1. 2. 5. ;
  41. lre2 = raff lre1  2 ;
  42. list lre2 ;
  43.  
  44. lre2 = raff lre1 -5 ;
  45. list lre2 ;
  46.  
  47. lre1 = prog -1. -2. -5. ;
  48. lre2 = raff lre1  2 ;
  49. list lre2 ;
  50.  
  51. lre2 = raff lre1 -5 ;
  52. list lre2 ;
  53.  
  54. * Raffinement avec une serie de valeurs identiques dans le LISTREEL :
  55. lre1 = prog 1. 2. 2. 5. 3. -10. ;
  56. lre2 = raff lre1  3 ;
  57. list lre2 ;
  58.  
  59. lre2 = raff lre1 -2 ;
  60. list lre2 ;
  61.  
  62. * Gestion des erreurs :
  63. SI ITERR1 ;
  64.   lre2 = raff lre1 0 ;
  65. FINS ;
  66.  
  67. fin ;
  68.  
  69.  
  70.  

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