File:Riemannfunction.gif
From specialfunctionswiki
No higher resolution available.
Riemannfunction.gif (760 × 545 pixels, file size: 285 KB, MIME type: image/gif, looped, 25 frames)
R[x_, N_] := Sum[Sin[k^2*x]/k^2, {k, 1, N}]
plotme = Table[
Plot[R[x, N], {x, -5, 5},
PlotLegends -> Placed[StringJoin["N=", ToString[N]], Bottom],
PlotRange -> {-1.5, 1.5}, PlotStyle -> Thickness[0.001]], {N, 1,
25, 1}];
Export["riemannfunction.gif", plotme, "FrameRate" -> 0.5,
ImageSize -> {1000, 1000}]
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 13:19, 5 January 2016 | | 760 × 545 (285 KB) | Tom (talk | contribs) | R[x_, N_] := Sum[Sin[k^2*x]/k^2, {k, 1, N}] plotme = Table[ Plot[R[x, N], {x, -5, 5}, PlotLegends -> Placed[StringJoin["N=", ToString[N]], Bottom], PlotRange -> {-1.5, 1.5}, PlotStyle -> Thickness[0.001]], {N, 1, 25, 1}]; Export["ri... |
- You cannot overwrite this file.
File usage
The following page links to this file:
