数学建模社区-数学中国
标题:
Pi = 4?
[打印本页]
作者:
宏心
时间:
2016-6-7 09:23
标题:
Pi = 4?
本帖最后由 宏心 于 2016-6-8 04:41 编辑
* X9 e, X j/ z5 c
6 I6 m. _: K( Y$ T
Manipulate[
( O5 C; s; N2 L2 Z8 k, |" L' N# Y' a
Graphics[{Table[
/ e) x4 x/ c7 ~* u, _; f6 _) y. S
Rotate[{Thin, Circle[],
4 l( B% j" O: a" _, I, b
Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray,
) d7 `$ v# R3 B7 q6 X& o5 k
Table[Rectangle[{Cos[ (k \[Pi])/2^(n + 1)],
) I# y4 ~$ ~4 |+ i! l0 O9 N
Sin[ (k \[Pi])/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
2 E- t' G9 ]- X2 J
r \[Pi]/2], {r, 0, 3}]
* r( K# J# _ {2 W$ S4 V: z5 f) o
}, PlotRange -> 1.1 {{x0[m], x1[m]}, {x0[m], x1[m]}},
7 `7 i9 _6 w& E' p* a! t
ImageSize -> {550, 450}],
4 K/ M( u& d' A8 \
Row[{Control[{{n, 3, "steps"}, Range[0, 10], Setter}], Spacer[50],
. V$ t5 {$ h: g: e9 B* [$ v
Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
% r8 e0 B- a; A3 l# p
TrackedSymbols :> {n, m}, ControlPlacement -> Top,
. E) |" x0 K- J/ R/ I9 r+ }
Initialization :> (x0[1] = -1.1; x0[2] = 0;
) n4 s9 `- Q( X# b. ^2 [. X
x0[m_] := 1/Sqrt[2] - 1/m; x1[1] = x1[2] = 1.1;
+ |4 _% d: M. g1 m+ e* i& i s# i
x1[m_] := 1/Sqrt[2] + 1/(4 m);)]
' S* i+ S! d3 @ d8 x0 h9 k
7 G( q. k9 ^3 g3 P5 s
4 \* A8 b L2 O+ B
/ V( W2 J/ U/ I* a" d* z. ?3 c
作者:
浪漫的事
时间:
2016-6-7 14:54
这什么东东
1 N/ `; C: s' |0 l
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5