(*						      *)
(* Numerical Mathematics and Computing, Fifth Edition *)
(* Ward Cheney & David Kincaid		              *)
(* Brooks/Cole Publ. Co.			      *)
(* (c) 2003                                           *)
(* No warranties implied or expressed.	              *)
(* File: inv_interp				      *)

(* inverse polynomial interpolation *)
G[x_] := Cosh[x] - 2
Table[N[{G[x],x}], {x, 1.2, 1.5, 0.1}]
Fit[%, Table[x^i, {i,0,3}], x]
N[% /. x-> 0, 11]