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