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

S1 = Series[ Sin[x], {x,0,2}]
S2 = Series[ Sin[x], {x,0,4}]
S3 = Series[ Sin[x], {x,0,6}]
Plot[{S1,S2,S3}, {x,0,Pi}]