Télécharger la plaquette Cast3M


fr en

Télécharger ETG_list.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  ETG_list.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *******************************************************
  6. *           Test ETG_list.dgibi: Jeux de données      *
  7. *           ---------------------------------         *
  8. *                                                     *
  9. * Verification & Validation de l'operateur 'ETG'      *
  10. * pour les LISTREEL, LISTENTI et LISTMOTS             *
  11. *******************************************************
  12.  
  13. *************************************************
  14. * Fusion des LISTREEL
  15. *************************************************
  16.   LR1        ='PROG' 0. 1. 2. 5. ;
  17.   LR2        ='PROG' 7. 9. 45. 78. 99. ;
  18.   LR_Sol     = LR1 'ET' LR2 ;
  19.   DIM_LR_Sol ='DIME' LR_Sol ;
  20.  
  21.   TAB_LR     ='TABL' 'ESCLAVE';
  22.   TAB_LR . 1 = LR1 ;
  23.   TAB_LR . 2 = LR2 ;
  24.  
  25.   LR_Test     ='ETG' TAB_LR ;
  26.   DIM_LR_Test ='DIME' LR_Test ;
  27.  
  28. * Verification & Validation
  29.   Err_Dim ='MAXI' 'ABS' (DIM_LR_Test - DIM_LR_Sol);
  30.  'SI' (Err_Dim 'NEG' 0);
  31.    'MESS' 'Dimension incorrecte du resultat de ETG - LISTREEL' ' 'DIM_LR_Test ' ' DIM_LR_Sol ;
  32.    'ERRE' 5 ;
  33.  'FINS';
  34.  
  35.   Err_Val ='MAXI' 'ABS' (LR_Test     - LR_Sol    );
  36.  'SI' (Err_Val 'NEG' 0.D0);
  37.    'MESS' 'Resultat incorrect du resultat de ETG - LISTREEL';
  38.    'ERRE' 5 ;
  39.  'FINS';
  40.  
  41. *************************************************
  42. * Fusion des LISTENTI
  43. *************************************************
  44.   LR1        ='LECT' 0 1 2  5     ;
  45.   LR2        ='LECT' 7 9 45 78 99 ;
  46.   LR_Sol     = LR1 'ET' LR2       ;
  47.   DIM_LR_Sol ='DIME' LR_Sol       ;
  48.  
  49.   TAB_LR     ='TABL' 'ESCLAVE';
  50.   TAB_LR . 1 = LR1            ;
  51.   TAB_LR . 2 = LR2            ;
  52.  
  53.   LR_Test     ='ETG' TAB_LR ;
  54.   DIM_LR_Test ='DIME' LR_Test ;
  55.  
  56. * Verification & Validation
  57.   Err_Dim ='MAXI' 'ABS' (DIM_LR_Test - DIM_LR_Sol);
  58.  'SI' (Err_Dim 'NEG' 0);
  59.    'MESS' 'Dimension incorrecte du resultat de ETG - LISTENTI' ' 'DIM_LR_Test ' ' DIM_LR_Sol ;
  60.    'ERRE' 5 ;
  61.  'FINS';
  62.  
  63.   Err_Val ='MAXI' 'ABS' (LR_Test     - LR_Sol    );
  64.  'SI' (Err_Val 'NEG' 0);
  65.    'MESS' 'Resultat incorrect du resultat de ETG - LISTENTI';
  66.    'ERRE' 5 ;
  67.  'FINS';
  68.  
  69. *************************************************
  70. * Fusion des LISTMOTS
  71. *************************************************
  72.   LR1        ='MOTS' 'TOTO' 'TITI' 'TATA';
  73.   LR2        ='MOTS' 'BOBO' 'BIBI' 'BABAL' 'BUBULENTS';
  74.   LR_Sol     = LR1 'ET' LR2       ;
  75.   DIM_LR_Sol ='DIME' LR_Sol       ;
  76.  
  77.   TAB_LR     ='TABL' 'ESCLAVE';
  78.   TAB_LR . 1 = LR1            ;
  79.   TAB_LR . 2 = LR2            ;
  80.  
  81.   LR_Test     ='ETG' TAB_LR ;
  82.  'LIST' LR_Test ;
  83.   DIM_LR_Test ='DIME' LR_Test ;
  84.  
  85. * Verification & Validation
  86.   Err_Dim ='MAXI' 'ABS' (DIM_LR_Test - DIM_LR_Sol);
  87.  'SI' (Err_Dim 'NEG' 0);
  88.    'MESS' 'Dimension incorrecte du resultat de ETG - LISTMOTS' ' 'DIM_LR_Test ' ' DIM_LR_Sol ;
  89.    'ERRE' 5 ;
  90.  'FINS';
  91.  
  92.   Err_Val ='EXIS' LR_Test LR_Sol 'ET';
  93.  'SI' ('NON' Err_Val);
  94.    'MESS' 'Resultat incorrect du resultat de ETG - LISTMOTS';
  95.    'ERRE' 5 ;
  96.  'FINS';
  97.  
  98. 'FIN';
  99.  
  100.  
  101.  

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