Mathc initiation/Fichiers h : c42fa

Installer ce fichier dans votre répertoire de travail.

	`fa.h`

/* ---------------------------------- */
/* save as fa.h                     */
/* ---------------------------------- */
double f(
double x)
{
         return(x*x  + 2.);
}
char  feq[] =  "x**2 + 2.";
/* ---------------------------------- */
double VCircularDisk(
double x)
{
        return(PI * pow(f(x),2) ); // * dx
}
/* ---------------------------------- */
/* ---------------------------------- */

	`fb.h`

/* ---------------------------------- */
/* save as fb.h                     */
/* ---------------------------------- */
double f(
double x)
{
         return(sin(x));
}
char  feq[] =  "sin(x)";
/* ---------------------------------- */
double VCircularDisk(
double x)
{
        return(PI * pow(f(x),2) ); // * dx
}
/* ---------------------------------- */
/* ---------------------------------- */

	`fc.h`

/* ---------------------------------- */
/* save as fc.h                     */
/* ---------------------------------- */
double f(
double x)
{
         return(1./x);
}
char  feq[] =  "1./x";
/* ---------------------------------- */
double VCircularDisk(
double x)
{
        return(PI * pow(f(x),2) ); // * dx
}
/* ---------------------------------- */
/* ---------------------------------- */

	`fd.h`

/* ---------------------------------- */
/* save as fd.h                     */
/* ---------------------------------- */
double f(
double x)
{
         return(exp(x));
}
char  feq[] =  "exp(x)";
/* ---------------------------------- */
double VCircularDisk(
double x)
{
        return(PI * pow(f(x),2) ); // * dx
}
/* ---------------------------------- */
/* ---------------------------------- */