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