| Original Message (ID '207628') By Bill Simpson: |
| 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. |
|
