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

(* symbolic differential *)
Dt[Sin[x],x]
N[% /. x -> 1.2309594154, 10]

(* derivative formula *)
Series[(f[x+h]-f[x-h])/(2h)
        -(f[x+2h] - 2f[x+h] + 2f[x-h] - f[x-2h])/(12h), 
        {h,0,5}]