Mathc initiation/a390

Installer ce fichier dans votre répertoire de travail.

	`fa.h`

/* --------------------------------- */
/* save as fa.h                      */
/* --------------------------------- */
double a_n(
double a_kpls1,
double a_k)
{
        return(  (3*a_kpls1 - 2*a_k) );
}
char  a_neq[] = "(3*(a_k+1) - 2*a_k)";
/* --------------------------------- */
/* --------------------------------- */

	`fb.h`

/* --------------------------------- */
/* save as fb.h                      */
/* --------------------------------- */
double a_n(
double a_kpls1,
double a_k)
{
        return(   (a_kpls1 + a_k));
}
char  a_neq[] =  "(a_k+1) + a_k";
/* --------------------------------- */
/* --------------------------------- */

	`fc.h`

/* --------------------------------- */
/* save as fc.h                      */
/* --------------------------------- */
double a_n(
double a_kpls1,
double a_k)
{
        return(     a_kpls1/a_k  );
}
char  a_neq[] =   "(a_k+1)/a_k";
/* --------------------------------- */
/* --------------------------------- */