Problem 6

[Graphics:HTMLFiles/sin_1.gif]

In[1]:=

Plot[Evaluate[Flatten[{Sin[x], Table[Sum[(-1)^(i + 1) x^(2i - 1)/(2i - 1) !, {i, 1, n}], {n, 1, 6}]}]], {x, 0, 10}]

[Graphics:HTMLFiles/sin_3.gif]

Out[1]=

⁃Graphics⁃

Explanations: Flatten is needed to remove one set of {} since Table produces a nested list.  Evaluate is often needed during plotting,  otherwise error messages may appear.


Created by Mathematica  (September 23, 2003)