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