/* ---------------------------------- */
/* save as fa.h */
/* ---------------------------------- */
double a_n(
double n)
{
return( 1 / n );
}
char a_neq[] = "1 / n";
/* ---------------------------------- */
double a_npls1(
double n)
{
return( 1 / (n+1) );
}
char a_npls1eq[] = "1 / (n+1)";;
/* ---------------------------------- */
/* ---------------------------------- */