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