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

(* plot integral & numerical approximation  *)

Plot[{Cos[2x]/Exp[x]}, {x, 0, 2Pi}, PlotRange->{-0.25, 1}]

NIntegrate[Cos[2x]/Exp[x], {x,0,2Pi}]