数学建模社区-数学中国
标题:
Pi = 4?
[打印本页]
作者:
宏心
时间:
2016-6-7 09:23
标题:
Pi = 4?
本帖最后由 宏心 于 2016-6-8 04:41 编辑
9 o& }9 A- r5 H9 [. `( `) l+ q
; w: k; q$ V, u0 }
Manipulate[
: s" p# i, J" x4 O! B. f6 w
Graphics[{Table[
9 Y5 |( r! R' k8 L4 G! f
Rotate[{Thin, Circle[],
: k- |8 ~3 r V# B: t
Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray,
( w4 Y0 Y* P& }. n/ W3 Z+ N) P
Table[Rectangle[{Cos[ (k \[Pi])/2^(n + 1)],
2 s" C6 w6 e( Y( l+ w9 N" F
Sin[ (k \[Pi])/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
0 L0 S& d" C5 H7 F; j' [. Q
r \[Pi]/2], {r, 0, 3}]
6 G) \# [: X; \* p
}, PlotRange -> 1.1 {{x0[m], x1[m]}, {x0[m], x1[m]}},
) ~' G( D7 {- C) T: o- W u0 R# p
ImageSize -> {550, 450}],
/ n& |! D0 \; e. Z& G
Row[{Control[{{n, 3, "steps"}, Range[0, 10], Setter}], Spacer[50],
" n5 b `, S ^' J# g- o4 J1 N
Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
" D# S' J3 H& c9 x) z
TrackedSymbols :> {n, m}, ControlPlacement -> Top,
& m( n9 C; h* h
Initialization :> (x0[1] = -1.1; x0[2] = 0;
+ s" N+ }; c& W$ c( I( W! b. \
x0[m_] := 1/Sqrt[2] - 1/m; x1[1] = x1[2] = 1.1;
# U. ^/ |6 q4 t
x1[m_] := 1/Sqrt[2] + 1/(4 m);)]
2 i/ ~0 O- C9 a3 M& m$ M
5 X2 ~/ w, H; g4 p
5 o- T# j( b7 E
) H4 O- m. i N7 L8 V
作者:
浪漫的事
时间:
2016-6-7 14:54
这什么东东
& ?/ W9 E4 F: f7 C0 J
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5