/* --------------------------------- */
/* save as fa.h */
/* --------------------------------- */
double f(
double x,
double y)
{
return( (2*exp(-x) * cos(y)) );
}
/* --------------------------------- */
char feq[] = "2*exp(-x) * cos(y)";
/* --------------------------------- */
/* --------------------------------- */
/* --------------------------------- */
/* --------------------------------- */
double f_mnsz(
double x,
double y,
double z)
{
return( (2*exp(-x) * cos(y) - z) );
}
/* --------------------------------- */
char f_zeq[] = "2*exp(-x) * cos(y) - z";
/* --------------------------------- */
/* --------------------------------- */