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.   LLR = 'ENUM' LR1 LR2 ;
  42.  
  43.   LR_Test2     ='ETG' LLR ;
  44.   DIM_LR_Test2 ='DIME' LR_Test2 ;
  45.  
  46. * Verification & Validation
  47.   Err_Dim ='MAXI' 'ABS' (DIM_LR_Test2 - DIM_LR_Sol);
  48.  'SI' (Err_Dim 'NEG' 0);
  49.    'MESS' 'Dimension incorrecte du resultat de ETG - LISTREEL 2' ' 'DIM_LR_Test2 ' ' DIM_LR_Sol ;
  50.    'ERRE' 5 ;
  51.  'FINS';
  52.  
  53.   Err_Val ='MAXI' 'ABS' (LR_Test2     - LR_Sol    );
  54.  'SI' (Err_Val 'NEG' 0.D0);
  55.    'MESS' 'Resultat incorrect du resultat de ETG - LISTREEL 2';
  56.    'ERRE' 5 ;
  57.  'FINS';
  58.  
  59.  
  60.  
  61.  
  62. *************************************************
  63. * Fusion des LISTENTI
  64. *************************************************
  65.   LR1        ='LECT' 0 1 2  5     ;
  66.   LR2        ='LECT' 7 9 45 78 99 ;
  67.   LR_Sol     = LR1 'ET' LR2       ;
  68.   DIM_LR_Sol ='DIME' LR_Sol       ;
  69.  
  70.   TAB_LR     ='TABL' 'ESCLAVE';
  71.   TAB_LR . 1 = LR1            ;
  72.   TAB_LR . 2 = LR2            ;
  73.  
  74.   LR_Test     ='ETG' TAB_LR ;
  75.   DIM_LR_Test ='DIME' LR_Test ;
  76.  
  77. * Verification & Validation
  78.   Err_Dim ='MAXI' 'ABS' (DIM_LR_Test - DIM_LR_Sol);
  79.  'SI' (Err_Dim 'NEG' 0);
  80.    'MESS' 'Dimension incorrecte du resultat de ETG - LISTENTI' ' 'DIM_LR_Test ' ' DIM_LR_Sol ;
  81.    'ERRE' 5 ;
  82.  'FINS';
  83.  
  84.   Err_Val ='MAXI' 'ABS' (LR_Test     - LR_Sol    );
  85.  'SI' (Err_Val 'NEG' 0);
  86.    'MESS' 'Resultat incorrect du resultat de ETG - LISTENTI';
  87.    'ERRE' 5 ;
  88.  'FINS';
  89.  
  90.  
  91.   LLR = 'ENUM' LR1 LR2 ;
  92.   LR_Test2     ='ETG' LLR ;
  93.   DIM_LR_Test2 ='DIME' LR_Test2 ;
  94.  
  95. * Verification & Validation
  96.   Err_Dim ='MAXI' 'ABS' (DIM_LR_Test2 - DIM_LR_Sol);
  97.  'SI' (Err_Dim 'NEG' 0);
  98.    'MESS' 'Dimension incorrecte du resultat de ETG - LISTENTI 2' ' 'DIM_LR_Test2 ' ' DIM_LR_Sol ;
  99.    'ERRE' 5 ;
  100.  'FINS';
  101.  
  102.   Err_Val ='MAXI' 'ABS' (LR_Test2     - LR_Sol    );
  103.  'SI' (Err_Val 'NEG' 0);
  104.    'MESS' 'Resultat incorrect du resultat de ETG - LISTENTI 2';
  105.    'ERRE' 5 ;
  106.  'FINS';
  107.  
  108. *************************************************
  109. * Fusion des LISTMOTS
  110. *************************************************
  111.   LR1        ='MOTS' 'TOTO' 'TITI' 'TATA';
  112.   LR2        ='MOTS' 'BOBO' 'BIBI' 'BABAL' 'BUBULENTS';
  113.   LR_Sol     = LR1 'ET' LR2       ;
  114.   DIM_LR_Sol ='DIME' LR_Sol       ;
  115.  
  116.   TAB_LR     ='TABL' 'ESCLAVE';
  117.   TAB_LR . 1 = LR1            ;
  118.   TAB_LR . 2 = LR2            ;
  119.  
  120.   LR_Test     ='ETG' TAB_LR ;
  121.  'LIST' LR_Test ;
  122.   DIM_LR_Test ='DIME' LR_Test ;
  123.  
  124. * Verification & Validation
  125.   Err_Dim ='MAXI' 'ABS' (DIM_LR_Test - DIM_LR_Sol);
  126.  'SI' (Err_Dim 'NEG' 0);
  127.    'MESS' 'Dimension incorrecte du resultat de ETG - LISTMOTS' ' 'DIM_LR_Test ' ' DIM_LR_Sol ;
  128.    'ERRE' 5 ;
  129.  'FINS';
  130.  
  131.   Err_Val ='EXIS' LR_Test LR_Sol 'ET';
  132.  'SI' ('NON' Err_Val);
  133.    'MESS' 'Resultat incorrect du resultat de ETG - LISTMOTS';
  134.    'ERRE' 5 ;
  135.  'FINS';
  136.  
  137.  
  138.   LLR     = 'ENUM' LR1 LR2 ;
  139.  
  140.   LR_Test2     ='ETG' TAB_LR ;
  141.  'LIST' LR_Test2 ;
  142.   DIM_LR_Test2 ='DIME' LR_Test2 ;
  143.  
  144. * Verification & Validation
  145.   Err_Dim ='MAXI' 'ABS' (DIM_LR_Test2 - DIM_LR_Sol);
  146.  'SI' (Err_Dim 'NEG' 0);
  147.    'MESS' 'Dimension incorrecte du resultat de ETG - LISTMOTS 2' ' 'DIM_LR_Test2 ' ' DIM_LR_Sol ;
  148.    'ERRE' 5 ;
  149.  'FINS';
  150.  
  151.   Err_Val ='EXIS' LR_Test2 LR_Sol 'ET';
  152.  'SI' ('NON' Err_Val);
  153.    'MESS' 'Resultat incorrect du resultat de ETG - LISTMOTS 2';
  154.    'ERRE' 5 ;
  155.  'FINS';
  156.  
  157. 'FIN';
  158.  
  159.  
  160.  

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