Procedures | Cast3M

   1 : * @TEST     PROCEDUR  AM        98/12/30    21:15:26     3421           
   2 : DEBP @TEST EPS1*MCHAML EPS2*MCHAML ERR*FLOTTANT ;
   3 : 
   4 : *-----------------------------------------------------------------------
   5 : * @TEST : test de stationnarite (EPS2 - EPS1) < ERR
   6 : *        si oui, TEST = vrai
   7 : *-----------------------------------------------------------------------
   8 : 
   9 :   TEST = FAUX ;
  10 :   DIF = abs (EPS2 - EPS1) ;
  11 :   NTEST = DIF masq egsupe somme ERR ;
  12 :   si (NTEST ega 0) ;
  13 :    TEST = VRAI ;
  14 :   finsi ;
  15 : 
  16 : FINP TEST ;
  17 : 
  18 :