(* $Id: Numerical.m,v 1.2 1991/08/14 23:48:12 rory Exp $ *)

(*********************************************************************

        Adapted from
        Roman E. Maeder: Programming in Mathematica,
        Second Edition, Addison-Wesley, 1991.

 *********************************************************************)


N[f[x_], prec_:$MachinePrecision] := Nf[x, prec]

Nf[x_, prec_:$MachinePrecision] := {x, prec} (* numerical code goes here *)