/* --------------------------------- */
/* save as fa.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
return( 1.);
}
char feq[] = "1";
/* --------------------------------- */
/* --------------------------------- */
double R(
double x,
double y,
double z)
{
return( (x*y*y*z));
}
char Req[] = "(x*y**2*z)";
/* --------------------------------- */
/* --------------------------------- */
double xR(
double x,
double y,
double z)
{
return( (x)*(x*y*y*z) );
}
char xReq[] = "(x)*(x*y*y*z)";
/* --------------------------------- */
double yR(
double x,
double y,
double z)
{
return( (y)*(x*y*y*z) );
}
char yReq[] = "(y)*(x*y*y*z)";
/* --------------------------------- */
double zR(
double x,
double y,
double z)
{
return( (z)*(x*y*y*z) );
}
char zReq[] = "(z)*(x*y*y*z)";
/* --------------------------------- */
/* --------------------------------- */
double vz(
double x,
double y)
{
return( (+cos(x)*sin(y) + 4));
}
char veq[] = "(+cos(x)*sin(y) + 4)";
/* --------------------------------- */
double uz(
double x,
double y)
{
return( 0);
}
char ueq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double ty(
double x)
{
return( (+3.));
}
char teq[] = "+3";
/* ---------------------------------- */
double sy(
double x)
{
return( (-0.));
}
char seq[] = "-0";
/* --------------------------------- */
/* --------------------------------- */
double bx = +3.; char bxeq[] = "+3";
double ax = -0.; char axeq[] = "-0";
/* ---------------------------------- */
/* ---------------------------------- */