/* --------------------------------- */
/* save as fa.h */
/* --------------------------------- */
double f(
double t)
{
return( cos(t)*cos(t));
}
char feq[] = "cos(t)**2";
/* --------------------------------- */
double g(
double t)
{
return( 2*sin(t));
}
char geq[] = "2*sin(t)";
/* --------------------------------- */
/* --------------------------------- */