/* ---------------------------------- */
/* save as fa.h                    */
/* ---------------------------------- */
double Z(
double x,
double y)
{
 return(       x*x*y+3*x*pow(y,4) );
}
char  Zeq[] = "x**2*y+3*x*y**4";
/* ---------------------------------- */
double X(
double t)
{
 return(       sin(2*t) );
}
char  Xeq[] = "sin(2*t)";
/* ---------------------------------- */
double Y(
double t)
{
 return(       cos(t) );
}
char  Yeq[] = "cos(t)";
/* ---------------------------------- */
double f(
double t)
{
 return(sin(2*t)*sin(2*t)*cos(t)+3*sin(2*t)*pow(cos(t),4) );
}
char  feq[] = "sin(2*t)**2*cos(t)+3*sin(2*t)*cos(t)**4";
/* ---------------------------------- */
/* ---------------------------------- */