Pi = 4?

[复制链接]

字体大小: 正常放大

宏心

51 主题	19 听众	7304 积分

升级 46.08%

TA的每日心情

	开心 2025-6-4 06:45

签到天数: 3370 天

[LV.Master]伴坛终老

超级版主

自我介绍: 数据分析，统计学的教学，数学建模的辅导

电梯直达

1^#

发表于 2016-6-7 09:23 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

本帖最后由宏心于 2016-6-8 04:41 编辑

Manipulate[
Graphics[{Table[
Rotate[{Thin, Circle[],
   Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray,
   Table[Rectangle[{Cos[ (k \[Pi])/2^(n + 1)],
      Sin[  (k \[Pi])/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
   r \[Pi]/2], {r, 0, 3}]
}, PlotRange -> 1.1 {{x0[m], x1[m]}, {x0[m], x1[m]}},
  ImageSize -> {550, 450}],
Row[{Control[{{n, 3, "steps"}, Range[0, 10], Setter}], Spacer[50],
Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
TrackedSymbols :> {n, m}, ControlPlacement -> Top,
Initialization :> (x0[1] = -1.1; x0[2] = 0;
x0[m_] := 1/Sqrt[2] - 1/m; x1[1] = x1[2] = 1.1;
x1[m_] := 1/Sqrt[2] + 1/(4 m);)]

zan