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

(* minimization example 2 & plot *)
F[t_] := t^2 + Sin[53t]
FindMinimum[F[t], {t, 0}]
Plot[F[x], {x, -2, 2}]