/* --------------------------------- */
/* save as fa.h */
/* --------------------------------- */
double f(
double t)
{
return( (2.+2.*cos(t)) );
}
char feq[] = "2.+2.*cos(t)";
/* --------------------------------- */
double g(
double t)
{
return( (3) );
}
char geq[] = "3";
/* --------------------------------- */
double SectorArea(
double t)
{
/*
Area = (f^2)/2 - (g^2)/2 dk
*/
return(( ((f(t)*f(t))/2.) - ((g(t)*g(t))/2.) ));
}
/* --------------------------------- */
/* --------------------------------- */