Mathc initiation/a385

Installer ce fichier dans votre répertoire de travail.

	`fa.h`

/* ---------------------------------- */
/* save as fa.h                       */
/* ---------------------------------- */
double a_n(
double n)
{
        return(   (8.*n+sqrt(n)) / (5+pow(n,2.)+pow(n,7./2.)) );
}
char a_neq[] =   "(8.*n + sqrt(n)) / (5 + n**2 + n**(7./2.))";
char a_xeq[] =   "(8.*x + sqrt(x)) / (5 + x**2 + x**(7./2.))";
/* ---------------------------------- */
double b_n(
double n)
{
        return(  1./pow(n,5./2.) );
}
char  b_neq[] =   "1/n**(5./2.)";
char  b_xeq[] =   "1/x**(5./2.)";
/* ---------------------------------- */
/* ---------------------------------- */

	`fb.h`

/* ---------------------------------- */
/* save as fb.h                       */
/* ---------------------------------- */
double a_n(
double n)
{
        return(  (3.*pow(n,2.)+5.*n) / (pow(2.,n)*pow(n,2.)+pow(2.,n)));
}                   
char a_neq[] =   "(3*n**2 + 5*n) / ((2**n)*n**2 + 2**n)";
char a_xeq[] =   "(3*x**2 + 5*x) / ((2**x)*x**2 + 2**x)";
/* ---------------------------------- */
double b_n(
double n)
{
        return(  1./pow(2.,n) );
}
char  b_neq[] =   "1/2**n";
char  b_xeq[] =   "1/2**x";
/* ---------------------------------- */
/* ---------------------------------- */

	`fc.h`

/* ---------------------------------- */
/* save as fc.h                       */
/* ---------------------------------- */
double a_n(
double n)
{
        return(  (8.*pow(n,2)-7)  / (exp(n)*pow(n+1,2)) );
}
char  a_neq[] =   "(8.*n**2 - 7) / (exp(x)*(n+1)**2)";
char  a_xeq[] =   "(8.*x**2 - 7) / (exp(x)*(x+1)**2)";
/* ---------------------------------- */
double b_n(
double n)
{
        return(  1./exp(n) );
}
char  b_neq[] =   "1./exp(n)";
char  b_xeq[] =   "1./exp(x)";
/* ---------------------------------- */
/* ---------------------------------- */

.