/* --------------------------------- */
/* save as fa.h */
/* --------------------------------- */
#define LOOP 2*50
/* ---------------------------------- */
double f(
double x,
double y)
{
return( x*x * cos(y) );
}
char feq[] = "x**2 * cos(y)";
/* ---------------------------------- */
/* ---------------------------------- */
double v(
double x)
{
return( (2) );
}
char veq[] = "2";
/* ---------------------------------- */
double u(
double x)
{
return( (0) );
}
char ueq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 3.; char beq[] = "3";
double a = 0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */