Mathc initiation/a203

Installer ce fichier dans votre répertoire de travail.

	`fa.h`

/* ------------------------------------ */
/*  Save as :   fa.h                    */
/* ------------------------------------ */
double r(
double t)
{
       return( (2.+2.*cos(t)) );
}
char  req[] =  "2.+2.*cos(t)";
/* ------------------------------------ */
double SectorArea(
double t)
{
     return( ((r(t)*r(t))/2.));    
     /* Area = 1/2 * r^2 dt  */
} 
/* ------------------------------------ */
/* ------------------------------------ */

	`fb.h`

/* ------------------------------------ */
/*  Save as :   fb.h                    */
/* ------------------------------------ */
double r(
double t)
{
       return( (2*cos(t)) );
}
char  req[] =  "2*cos(t)";
/* ------------------------------------ */
double SectorArea(
double t)
{
     return( (r(t)*r(t)/2.) );      
     /* Area = 1/2 * r^2 dt */
}
/* ------------------------------------ */
/* ------------------------------------ */

	`fc.h`

/* ------------------------------------ */
/*  Save as :   fc.h                    */
/* ------------------------------------ */
double r(
double t)
{
       return(  exp(t) );
}
char  req[] =  "exp(t)";
/* ------------------------------------ */
double SectorArea(
double t)
{
     return( ((r(t)*r(t))/2.) ); 
     /*  Area = 1/2 * r^2 dt  */
}
/* ------------------------------------ */
/* ------------------------------------ */