(* Copyright 1988, Wolfram Research, Inc. *) (* Additional Operations with Series*) (* by Kevin McIsaac *) Unprotect[Series, Plot] Series[fn_Equal,args_] := Map[Series[#,args]&,fn] Series[fn_List,args_] := Map[Series[#,args]&, fn] Plot[fn_SeriesData,args__] := Plot[Evaluate[Normal[fn]],args] Protect[Series, Plot];