数学建模社区-数学中国
标题:
Pi = 4?
[打印本页]
作者:
宏心
时间:
2016-6-7 09:23
标题:
Pi = 4?
本帖最后由 宏心 于 2016-6-8 04:41 编辑
% n* S6 N' s6 M! j) D2 \8 n
# W' q, q( R3 T- ]6 a3 Q \
Manipulate[
' V( ~8 w v1 Q5 p3 V
Graphics[{Table[
+ l& t& u2 p; L& ?
Rotate[{Thin, Circle[],
( h; l* [2 I4 {
Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray,
/ l. ?8 B6 L5 o6 \9 c3 ^
Table[Rectangle[{Cos[ (k \[Pi])/2^(n + 1)],
0 b- L3 M& ?' f9 u% ^* F( e5 v3 H; }! ?
Sin[ (k \[Pi])/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
2 e2 l+ k. Q5 D# `8 p5 T7 R/ `
r \[Pi]/2], {r, 0, 3}]
0 K9 ^" a) o2 N6 v' F5 p4 h8 b
}, PlotRange -> 1.1 {{x0[m], x1[m]}, {x0[m], x1[m]}},
2 }- x6 h0 M: P
ImageSize -> {550, 450}],
d3 [% Z- ]1 y7 h# o9 Y+ O
Row[{Control[{{n, 3, "steps"}, Range[0, 10], Setter}], Spacer[50],
) @$ b4 d+ {3 o7 X4 g
Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
7 c, k) v$ }2 r0 h6 W* x" \
TrackedSymbols :> {n, m}, ControlPlacement -> Top,
+ n' g: D4 P$ x5 B# Q5 V
Initialization :> (x0[1] = -1.1; x0[2] = 0;
6 _+ T- p7 p$ S8 x" Z
x0[m_] := 1/Sqrt[2] - 1/m; x1[1] = x1[2] = 1.1;
- K0 M$ w3 s Q8 K* t
x1[m_] := 1/Sqrt[2] + 1/(4 m);)]
: c3 J, R. Q5 J9 @. A2 V" p
/ X+ {6 f/ ?; Z, D9 g/ H1 F0 L" i
; \! O. o9 H+ C
7 I$ P# U( {. _% k4 @
作者:
浪漫的事
时间:
2016-6-7 14:54
这什么东东
0 `' f3 H3 r1 ^- Y
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5