| Author |
Comment/Response |
Bill Simpson
|
 01/07/13 3:00pm
Try something like this and see if you can use it to get closer to where you are trying to go.
partialsums[x_] := If[x == 0, 0, FullSimplify[Sum[(-1)^(n + 1) (2/n) Sin[n x], {n, 1, Infinity}]]];
ListPlot[Table[{x, partialsums[x]}, {x, -10, 10}], Joined -> True]
I am not sure this is what you really want, but it is the best guess I have.
URL: , |
|
