File:Devilstaircasethumb.png
From specialfunctionswiki
Devilstaircasethumb.png (623 × 388 pixels, file size: 7 KB, MIME type: image/png)
f[x_, w_] := x + w + (0.2) Sin[2 Pi x] h[w_] := Nest[f[#, w] &, .1, 1000] data = Table[{w, h[w]}, {w, 0, 1, .005}]; ListPlot[data, Joined -> True, PlotRange -> All,
PlotStyle -> {Thickness[0.025], Black}, AxesStyle -> Thickness[0.01], Ticks -> None]
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 10:54, 19 January 2015 | ![]() | 623 × 388 (7 KB) | Tom (talk | contribs) | f[x_, w_] := x + w + (0.2) Sin[2 Pi x] h[w_] := Nest[f[#, w] &, .1, 1000] data = Table[{w, h[w]}, {w, 0, 1, .005}]; ListPlot[data, Joined -> True, PlotRange -> All, PlotStyle -> {Thickness[0.025], Black}, AxesStyle -> Thickness[0.01], Ticks -> None] |
- You cannot overwrite this file.