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