/* ---------------------------------- */
/* save as fa.h */
/* ---------------------------------- */
#define LOOP 2*50
/* ---------------------------------- */
double f(
double x,
double y)
{
return( (x + y) );
}
char feq[] = "x + y";
/* ---------------------------------- */
/* ---------------------------------- */
double u(
double x)
{
return( ( 0) );
}
char ueq[] = "0";
/* ---------------------------------- */
double v(
double x)
{
return( sqrt(x) );
}
char veq[] = "sqrt(x)";
/* ---------------------------------- */
/* ---------------------------------- */
double x2f(
double x,
double y)
{
return( x*x * (x + y) );
}
char x2feq[] = "x**2 * (x + y)";
/* ---------------------------------- */
double y2f(
double x,
double y)
{
return( y*y * (x + y) );
}
char y2feq[] = "y**2 * (x + y)";
/* ---------------------------------- */
/* ---------------------------------- */
double x2plsy2f(
double x,
double y)
{
return( (x*x + y*y) * (x + y) );
}
char x2plsy2feq[] = "(x**2 + y**2) * (x + y)";
/* ---------------------------------- */
/* ---------------------------------- */
double bx = 9.; char bxeq[] = "9";
double ax = 0.; char axeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */