Pi = 4?
本帖最后由 宏心 于 2016-6-8 04:41 编辑Manipulate[
Graphics[{Table[
Rotate[{Thin, Circle[],
Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray,
Table)/2^(n + 1)],
Sin[ (k \)/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
r \/2], {r, 0, 3}]
}, PlotRange -> 1.1 {{x0, x1}, {x0, x1}},
ImageSize -> {550, 450}],
Row[{Control[{{n, 3, "steps"}, Range, Setter}], Spacer,
Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
TrackedSymbols :> {n, m}, ControlPlacement -> Top,
Initialization :> (x0 = -1.1; x0 = 0;
x0 := 1/Sqrt - 1/m; x1 = x1 = 1.1;
x1 := 1/Sqrt + 1/(4 m);)]
这什么东东
页:
[1]