/*************************************************************************************************************************************/ /* */ /* C A L C U L D E ' AX+B ' : */ /* */ /* */ /* Author of '$xcg/AXPB.01$K' : */ /* */ /* Jean-Francois COLONNA (LACTAMME, 1996??????????). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* 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 : */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* 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 NOMBRE_A \ FU #define NOMBRE_X \ FU #define NOMBRE_B \ FZERO /* Les trois nombres flottants pour lesquels on va calculer 'ax+b'. */ #include xcg/ARIT.01.I" #include xci/valeurs.01.I" /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* M A C R O S U T I L E S : */ /* */ /*************************************************************************************************************************************/ #include xci/valeurs.02.I" /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* C A L C U L D E ' AX+B ' : */ /* */ /*************************************************************************************************************************************/ BCommande(nombre_d_arguments,arguments) /*-----------------------------------------------------------------------------------------------------------------------------------*/ Bblock DEFV(Float,INIT(nombre_A,NOMBRE_A)); DEFV(Float,INIT(nombre_X,NOMBRE_X)); DEFV(Float,INIT(nombre_B,NOMBRE_B)); /* Les trois nombres flottants pour lesquels on va calculer 'ax+b'. */ #include xci/valeurs.03.I" /*..............................................................................................................................*/ GET_ARGUMENTS_(nombre_d_arguments ,BLOC(GET_ARGUMENT_F("nombre_A=""a=""A=",nombre_A); GET_ARGUMENT_F("x=""nombre_X=""X=",nombre_X); GET_ARGUMENT_F("nombre_B=""b=""B=",nombre_B); PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1; PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_2; /* Ces deux procedures furent introduites le 20061226182255... */ ) ); EDITION_DE_LA_VALEUR_DE_L_OPERATEUR(AXPB(nombre_A,nombre_X,nombre_B)); /* Edition de la valeur de 'ax+b'. */ RETU_Commande; Eblock ECommande