/* ---------------------------------- */
/* save as fa.h */
/* ---------------------------------- */
#define LOOP 2*50
/* ---------------------------------- */
double f(
double x,
double y)
{
return(x*y*y);
}
char feq[] = "x*y**2";
/* ---------------------------------- */
double g(
double t)
{
return(cos(t));
}
char geq[] = "cos(t)";
/* ---------------------------------- */
double h(
double t)
{
return(sin(t));
}
char heq[] = "sin(t)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = PI/2; char beq[] = "PI/2";
double a = 0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */