Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

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

1 Answer 1

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

 
discard

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.