(* Numerical Mathematics and Computing, Fifth Edition *)
(* Ward Cheney & David Kincaid                        *)
(* Brooks/Cole Publ. Co.                              *)
(* (c) 2004                                           *)
(* File: sineplot				      *)

F[x_] := Sin[x]
G[x_] := x
H[x_] := G[x] - (x^3)/6
K[x_] := H[x] + (x^5)/120
plt1 = Plot[F[x], {x,-Pi,Pi}]
plt2 = Plot[G[x], {x,-Pi,Pi}]
plt3 = Plot[H[x], {x,-Pi,Pi}]
plt4 = Plot[K[x], {x,-Pi,Pi}]
Show[plt1, plt2, plt3, plt4]