/* ---------------------------------- */
/* save as fa.h */
/* --------------------------------- */
#define LOOP 2*50
/* ---------------------------------- */
double f(
double x,
double y,
double z)
{
return( (y*z) );
}
char feq[] = "y*z";
/* --------------------------------- */
/* --------------------------------- */
double vx(
double y,
double z)
{
return( (1-y-z));
}
char veq[] = "1-y-z";
/* --------------------------------- */
double ux(
double y,
double z)
{
return( 0);
}
char ueq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double ty(
double z)
{
return( (1-z));
}
char teq[] = "1-z";
/* ---------------------------------- */
double sy(
double z)
{
return( (0));
}
char seq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double bz = 1.; char bzeq[] = "1";
double az = 0.; char azeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */