SHOW:
|
|
- or go back to the newest paste.
| 1 | - | frame[n_] := Graphics[{
|
| 1 | + | a = Pi; |
| 2 | - | {White, Thick, vis[a, 10, n]}
|
| 2 | + | vis[a_, b_, n_] := |
| 3 | - | }, PlotRange -> All, ImageSize -> {300, 300},
|
| 3 | + | Module[{l = RealDigits[a, b, n][[1]]},
|
| 4 | Line@Accumulate@Map[N@{Sin[2 Pi (#/b) ], Cos[2 Pi (#/b) ]} &, l]];
| |
| 5 | - | Manipulate[ |
| 5 | + | frame[n_] := |
| 6 | - | frame[n], |
| 6 | + | Graphics[{{White, Thick, vis[a, 10, n]}}, PlotRange -> All,
|
| 7 | - | {n,1,100,1}
|
| 7 | + | ImageSize -> {300, 300},
|
| 8 | - | ] |
| 8 | + | |
| 9 | Manipulate[frame[n], {n, 1, 1000, 1}] |
