数学建模社区-数学中国
标题:
Pi = 4?
[打印本页]
作者:
宏心
时间:
2016-6-7 09:23
标题:
Pi = 4?
本帖最后由 宏心 于 2016-6-8 04:41 编辑
/ o7 e, u1 k# s! d; e+ l- F
$ \6 Q) ?- L, e! {8 c
Manipulate[
6 n1 H: S c/ r5 Q* s4 \3 G% _5 I q/ }
Graphics[{Table[
8 o! A( i% S& \5 Q5 N
Rotate[{Thin, Circle[],
# T7 }- E$ g4 M, W4 k8 K, w) J2 Q
Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray,
8 m1 ~1 g4 X/ a# L5 b# A$ C
Table[Rectangle[{Cos[ (k \[Pi])/2^(n + 1)],
# [! G7 y8 i( r1 r* J: e( x5 ]
Sin[ (k \[Pi])/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
5 ~1 Z2 Q4 ]% \. i
r \[Pi]/2], {r, 0, 3}]
5 X( X: a: z6 V) G6 U B3 S
}, PlotRange -> 1.1 {{x0[m], x1[m]}, {x0[m], x1[m]}},
B& T9 t" L5 Z& u5 h: D1 R
ImageSize -> {550, 450}],
0 t7 X( \) O1 G- ~9 n
Row[{Control[{{n, 3, "steps"}, Range[0, 10], Setter}], Spacer[50],
' \. e d' u4 \) ^4 f/ p8 {2 {
Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
' m) t2 U/ T ~' K E/ U0 k
TrackedSymbols :> {n, m}, ControlPlacement -> Top,
. s7 w" h0 `- G) S$ F/ C
Initialization :> (x0[1] = -1.1; x0[2] = 0;
2 x/ L& c( H7 h+ [- F, [" V
x0[m_] := 1/Sqrt[2] - 1/m; x1[1] = x1[2] = 1.1;
+ E9 {# w& n* o! \
x1[m_] := 1/Sqrt[2] + 1/(4 m);)]
; Q( F$ r1 i$ ^" I$ Z9 `, O
8 ~, H- e N/ _. a) s
! o x% @# Y: L# d) r; m/ ~
* S2 L E a, U
作者:
浪漫的事
时间:
2016-6-7 14:54
这什么东东
! L h) u) p4 B1 n) E6 G
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5