0
$\begingroup$

I was using Wolfram|Alpha to graph the sums of $$\sum^k_{n=0}\frac{\sin(2^n)}{n}.$$ After querying sum n=1 to infinity of sin(2^n)/n and clicking More Terms several times, I got this result:

Plot from 1 to 641

Eager to get more terms without having to click a button so many times, clicked Open Code, which gave me ListLinePlot[Accumulate[Table[Sin[2^n]/n, {n, 1, 641}]]]. However, the plot I got looked like this instead:

Plot from 1 to ~540 then lots of 0s

Is this caused by not having a plan for the Wolfram Language, or something else I'm not aware of? I also tried ListLinePlot[Table[Sum[Sin[2^i]/i,{i,1,n}], {n, 1, 641}]] which gave similar results.

I also tried using the free release of wolframscript but was unable to get a picture, the command line returned -Graphics- and I couldn't find how to output an image online.

Is there a way apart from Wolfram|Alpha to render these images?

$\endgroup$
1
$\begingroup$

Try with N

 ListLinePlot[Table[N@Sum[Sin[2^i]/i, {i, 1, n}], {n, 1, 641}], 
     AspectRatio -> Full]

Mathematica graphics

ListLinePlot[Table[N@Sum[Sin[2^i]/i, {i, 1, n}], {n, 1, 641}], 
  AspectRatio -> Full] // AbsoluteTiming

Mathematica graphics

ListLinePlot[
  Table[N@Sum[Sin[2^i]/i, {i, 1, n}], {n, 1, 1001}]] // AbsoluteTiming

Mathematica graphics

$\endgroup$
  • $\begingroup$ I've just tried doing this with 1001 instead of 641 but it's taking a long time to load... is this because the image is large? Can I remove the AspectRatio thing? $\endgroup$ – boboquack Jul 2 at 3:09
  • $\begingroup$ In my environment,AspectRatio doesn't affect on the time.(its around 3.1 seconds). anyway,you can remove AspectRatio,of course. $\endgroup$ – Xminer Jul 2 at 3:29
  • $\begingroup$ by the way,If it is heavy in your environment, please use this. cpp.sh/3mb7s $\endgroup$ – Xminer Jul 2 at 3:46

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

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