/*************************************************************************************************************************************/
/* */
/* T E S T D E L A F O N C T I O N ' fFCgamma_Weierstrass(...) ' : */
/* */
/* */
/* Author of '$xtKg/gamma.11$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 19990622095355). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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_BASE
/* Introduit le 20061211161116... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define DERNIERE_INDICE \
CENT_MILLE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define PRINT(x,y) \
Bblock \
DEFV(complexe,z); \
DEFV(complexe,gamma); \
Cinitialisation(z,x,y); \
/* Calcul de z=x+iy. */ \
CALS(fFCgamma_Weierstrass(z,dernier_indice)); \
Cegal(gamma,fFCgamma_Weierstrass_____valeur); \
/* Calcul de l'approximation 'approximation' de 'gamma(z). On procede en deux temps afin */ \
/* de ne pas evaluer deux fois la fonction 'fFCgamma_Weierstrass(...)' a cause de la */ \
/* programmation de 'Cegal(...)' ('v $ximcd/operator$FON FCegal'). */ \
CAL2(Prin4("gamma(%+g,%+g)=(%+g,%+g)\n" \
,Reelle(z),Imaginaire(z) \
,Reelle(gamma),Imaginaire(gamma) \
) \
); \
Eblock
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T E S T D E L A F O N C T I O N ' fFCgamma_Weierstrass(...) ' : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(Int,INIT(dernier_indice,DERNIERE_INDICE));
/*..............................................................................................................................*/
GET_ARGUMENTS_(nombre_d_arguments
,BLOC(GET_ARGUMENT_I("dernier=",dernier_indice);
)
);
CAL2(Prin0("\n"));
PRINT(+1.0,0.0);
PRINT(+2.0,0.0);
PRINT(+3.0,0.0);
PRINT(+4.0,0.0);
PRINT(+5.0,0.0);
PRINT(+6.0,0.0);
PRINT(+7.0,0.0);
PRINT(+8.0,0.0);
PRINT(+9.0,0.0);
/* Valeur attendue gamma(n)=(n-1)!. */
CAL2(Prin0("\n"));
RETU_Commande;
Eblock
ECommande