Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

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:

enter image description here

share|improve this question

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}]

enter image description here

share|improve this answer
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

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.