/*************************************************************************************************************************************/
/* */
/* T E S T D E L A L O G I Q U E F L O U E : */
/* */
/* */
/* Author of '$xtKg/flou.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1990??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N T E R F A C E ' listG ' : */
/* */
/* */
/* :Debut_listG: */
/* :Fin_listG: */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */
/* */
/*************************************************************************************************************************************/
@define PRAGMA_CPP_____MODULE_NON_DERIVABLE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_MINI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define PAS DIVI(FU,FLOT(BORNE))
#define BORNE DIX
#define FLOU(x,y) \
Bblock \
CAL2(Prin2("x=%g y=%g",x,y)); \
CAL2(Prin1(" eq=%g",fIFEQ(x,y))); \
CAL2(Prin1(" ne=%g",fIFNE(x,y))); \
CAL2(Prin1(" gt=%g",fIFGT(x,y))); \
CAL2(Prin1(" ge=%g",fIFGE(x,y))); \
CAL2(Prin1(" lt=%g",fIFLT(x,y))); \
CAL2(Prin1(" le=%g",fIFLE(x,y))); \
CAL2(Prin1(" ou=%g",fIFOU(x,y))); \
CAL2(Prin1(" et=%g",fIFET(x,y))); \
CAL2(Prin0("\n")); \
Eblock
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T E S T D E L A L O G I Q U E F L O U E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(Positive,INIT(n,UNDEF));
DEFV(Float,INIT(x,NEGA(FU)));
DEFV(Float,INIT(y,NEUT(FU)));
/*..............................................................................................................................*/
GET_ARGUMENTS_(nombre_d_arguments
,BLOC(VIDE;)
);
DoIn(n,UN,DOUB(BORNE),I)
Bblock
FLOU(x,y);
INCR(x,PAS);
DECR(y,PAS);
Eblock
EDoI
RETU_Commande;
Eblock
ECommande