Mathc initiation/a288

Installer ce fichier dans votre répertoire de travail.

	`fa.h`

/* --------------------------------- */
/* save as fa.h                      */
/* --------------------------------- */
#define  LOOP  2*50
/* ---------------------------------- */
double f(
double x,
double y)
{
 return( 1 );
}
char  feq[] = "1";
/* --------------------------------- */
/* --------------------------------- */
double v(
double x)
{
        return(sqrt(x));
}
char  veq[] =  "sqrt(x)";
/* ---------------------------------- */
double u(
double y)
{
 return( (0) );
}
char  ueq[] = "0";
/* --------------------------------- */
/* ---------------------------------- */
double bx = 1.;    char bxeq[] =  "1";
double ax = .2;    char axeq[] = ".2";
/* ---------------------------------- */
/* ---------------------------------- */

	`fb.h`

/* --------------------------------- */
/* save as fb.h                      */
/* --------------------------------- */
#define  LOOP  2*50
/* ---------------------------------- */
double f(
double x,
double y)
{
 return( 1 );
}
char  feq[] = "1";
/* ---------------------------------- */
/* ---------------------------------- */
double v(
double x)
{
        return(sin(x));
}
char  veq[] =  "sin(x)";
/* ---------------------------------- */
double u(
double y)
{
 return( (0) );
}
char  ueq[] = "0";
/* --------------------------------- */
/* ---------------------------------- */
double bx = PI-.4;    char bxeq[] = "PI-.4";
double ax =    .4;    char axeq[] =    ".4";
/* ---------------------------------- */
/* ---------------------------------- */

	`fc.h`

/* --------------------------------- */
/* save as fc.h                      */
/* --------------------------------- */
#define  LOOP  2*50
/* ---------------------------------- */
double f(
double x,
double y)
{
 return( 1 );
}
char  feq[] = "1";
/* --------------------------------- */
/* --------------------------------- */
double v(
double x)
{
        return( exp(x) );
}
char  veq[] = "exp(x)";
/* ---------------------------------- */
double u(
double y)
{
 return( (0) );
}
char  ueq[] = "0";
/* --------------------------------- */
/* ---------------------------------- */
double bx = 2.;    char bxeq[] = "2";
double ax = 1.;    char axeq[] = "1";
/* ---------------------------------- */
/* ---------------------------------- */