/* --------------------------------- */
/* save as fa.h */
/* --------------------------------- */
#define LOOP 2*50
/* ---------------------------------- */
double f(
double x,
double y)
{
return( 1 );
}
char feq[] = "1";
/* --------------------------------- */
/* --------------------------------- */
double v(
double x)
{
return( sqrt(x));
}
char veq[] = "sqrt(x)";
/* ---------------------------------- */
double u(
double x)
{
return( (x*x) );
}
char ueq[] = "x**2";
/* --------------------------------- */
/* ---------------------------------- */
double v_minu_u(
double x)
{
return( sqrt(x)-x*x );
}
char v_minu_ueq[] = "sqrt(x)-x**2";
/* --------------------------------- */
/* --------------------------------- */
double bx = .8; char bxeq[] = ".8";
double ax = .2; char axeq[] = ".2";
/* ---------------------------------- */
/* ---------------------------------- */