# Plotting partial sums of Fourier sine series

How do I plot this on Mathematica version 5.2?

$\frac{4}{\pi} \sin{x} + \frac{4}{3 \pi} \sin{3 x} + \cdots + \frac{4}{(2 N+1) \pi} \sin{(2 N+1) x}$

over $x \in [-\pi,\pi]$ for $N= 3, 6, 12, 24$.

I tried and got this error:

-

This seems to work fine:

f[x_, n_] := (4/Pi) Sum[Sin[(2 k + 1) x]/(2 k + 1), {k, 0, n}];
Plot[Table[f[x, n], {n, 5}], {x, -Pi, Pi}]


-
May be it does not work in version 5.2 of mathematica –  Avinesh Oct 10 '13 at 2:47
How to get get single curve for n=5 only? –  Avinesh Oct 10 '13 at 3:08
Plot[f[x, 5], {x, -Pi, Pi}] gives just the n=5 curve. –  bill s Oct 10 '13 at 3:34
Thanks, it works well now. –  Avinesh Oct 10 '13 at 3:57
This one works for version 5.2 s[n_, x_] := 4/( π) Sum[Sin[(2 k + 1) x]/(2 k + 1), {k, 0, n}] partialsums = Table[s[5, x], {n, 6}]; Plot[Evaluate[partialsums], {x, -π, π}] –  Avinesh Oct 10 '13 at 3:59