数学建模社区-数学中国
标题:
Pi = 4?
[打印本页]
作者:
宏心
时间:
2016-6-7 09:23
标题:
Pi = 4?
本帖最后由 宏心 于 2016-6-8 04:41 编辑
9 p4 k) Z2 t$ N* U
: b, f" Q7 p3 ^9 H4 i' f: P
Manipulate[
_; p6 {) H5 W+ ?* n- C( v- N) ^5 d
Graphics[{Table[
. F! n+ {2 `! x7 J- a5 X+ f
Rotate[{Thin, Circle[],
% q' S5 N4 e9 V4 z7 K
Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray,
1 N9 C. {$ G/ ]$ t8 s
Table[Rectangle[{Cos[ (k \[Pi])/2^(n + 1)],
( `3 C9 r5 M& H: F3 q
Sin[ (k \[Pi])/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
8 [* R5 n- D: A5 F5 g3 O, y' P. l% Y
r \[Pi]/2], {r, 0, 3}]
" {& r, c+ c, y6 z- ?
}, PlotRange -> 1.1 {{x0[m], x1[m]}, {x0[m], x1[m]}},
# u. I, B$ _5 \0 \+ m2 q/ K
ImageSize -> {550, 450}],
0 b! _* I! e! t# [% g( f" f
Row[{Control[{{n, 3, "steps"}, Range[0, 10], Setter}], Spacer[50],
. N- R2 o O f" I
Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
! t- O( a$ g" U, U) h% d4 f
TrackedSymbols :> {n, m}, ControlPlacement -> Top,
2 z% S& a* S; i
Initialization :> (x0[1] = -1.1; x0[2] = 0;
6 z" C+ F+ c2 ?. W# G) k; F
x0[m_] := 1/Sqrt[2] - 1/m; x1[1] = x1[2] = 1.1;
- m a, q& Y$ W3 b3 f
x1[m_] := 1/Sqrt[2] + 1/(4 m);)]
$ M) Q# C: c p9 \8 t7 M2 c; t
* y7 T* p' {1 U$ u% p1 @
3 {: V8 L6 e3 n& @5 D5 W
) @5 Z4 Y: ]8 f
作者:
浪漫的事
时间:
2016-6-7 14:54
这什么东东
+ e4 }. s) C" e9 u c3 P
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5