/* --------------------------------- */
/* save as fa.h */
/* --------------------------------- */
double f(
double t)
{
return( s-s*cos(t));
}
char feq[] = "s-s*cos(t)";
/* --------------------------------- */
double g(
double t)
{
return( s*t-s*sin(t) );
}
char geq[] = "s*t-s*sin(t)";
/* --------------------------------- */
/* --------------------------------- */