Mathc initiation/a95

Installer ce fichier dans votre répertoire de travail.

	`fa.h`

/* ---------------------------------- */
/* save as fa.h                       */
/* ---------------------------------- */
double f(
double x)
{
         return(sin(x));
}
/* ---------------------------------- */
char  feq[] =  "sin(x)";
/* ---------------------------------- */
/*  Average Radius ------------------ */
double h(
double x)
{
         return(x);
}
/* ---------------------------------- */
char  heq[] =  "x";
/* ---------------------------------- */
/* ---------------------------------- */
double VCylindricalShell(
double x)
{
/*
  Volume of a cylindrical shell = 2 Pi(average radius)(altitude)(thickness)
*/
     return(2 * PI * h(x) * f(x));
}
/* ---------------------------------- */
/* ---------------------------------- */

	`fb.h`

/* ---------------------------------- */
/* save as fb.h                       */
/* ---------------------------------- */
double f(
double x)
{
         return(2.*x-x*x);
}
/* ---------------------------------- */
char  feq[] =  "2.*x - x**2";
/* ---------------------------------- */
/*  Average Radius ------------------ */
double h(
double x)
{
         return(x);
}
/* ---------------------------------- */
char  heq[] =  "x";
/* ---------------------------------- */
/* ---------------------------------- */
double VCylindricalShell(
double x)
{
/*
  Volume of a cylindrical shell = 2 Pi(average radius)(altitude)(thickness)
*/
     return(2 * PI * h(x) * f(x));
}
/* ---------------------------------- */
/* ---------------------------------- */

	`fc.h`

/* ---------------------------------- */
/* save as fc.h                       */
/* ---------------------------------- */
double f(
double x)
{
         return(x*x);
}
/* ---------------------------------- */
char  feq[] =  "x**2";
/* ---------------------------------- */
/*  Average Radius ------------------ */
double h(
double x)
{
         return(x);
}
/* ---------------------------------- */
char  heq[] =  "x";
/* ---------------------------------- */
/* ---------------------------------- */
double VCylindricalShell(
double x)
{
/*
  Volume of a cylindrical shell = 2 Pi(average radius)(altitude)(thickness)
*/
     return(2 * PI * h(x) * f(x));
}
/* ---------------------------------- */
/* ---------------------------------- */