数学建模社区-数学中国
标题:
Pi = 4?
[打印本页]
作者:
宏心
时间:
2016-6-7 09:23
标题:
Pi = 4?
本帖最后由 宏心 于 2016-6-8 04:41 编辑
/ G" d% L% F2 P" ]8 E. \1 w2 B
( q. F) R( M& n+ J
Manipulate[
" E+ d& l; A! ^. {! u0 X
Graphics[{Table[
& ?: ~- q( Y) V; n$ J$ j* Q1 i
Rotate[{Thin, Circle[],
- h$ ?1 q: \5 d
Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray,
8 h/ f. U! ]/ U& {" Q) s0 q( F
Table[Rectangle[{Cos[ (k \[Pi])/2^(n + 1)],
$ ?) a- ]" r+ k: q( Q
Sin[ (k \[Pi])/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
$ {& m0 K0 G5 U6 Q1 |
r \[Pi]/2], {r, 0, 3}]
& Y7 B1 Q. l ~1 r0 l6 t
}, PlotRange -> 1.1 {{x0[m], x1[m]}, {x0[m], x1[m]}},
2 V. P! b4 }1 R, G P9 ^3 Q
ImageSize -> {550, 450}],
% L; ~! i p+ Y* b
Row[{Control[{{n, 3, "steps"}, Range[0, 10], Setter}], Spacer[50],
' G3 E$ r! l* c! h* m2 O# l) J
Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
2 L9 v5 Y* H; V% E
TrackedSymbols :> {n, m}, ControlPlacement -> Top,
1 H( h0 ^4 |1 L. `: a1 X) Y* ]
Initialization :> (x0[1] = -1.1; x0[2] = 0;
, M. l6 ~& u. _* a3 X0 ]% R" y5 I
x0[m_] := 1/Sqrt[2] - 1/m; x1[1] = x1[2] = 1.1;
9 d! h7 `5 O# F7 M, d
x1[m_] := 1/Sqrt[2] + 1/(4 m);)]
* t0 T" o1 T4 @ y
( c' }- C- `/ M4 ^; F3 F% x; z
, S+ B% O$ K5 o9 Z
K% I& K |% p: }' C. \
作者:
浪漫的事
时间:
2016-6-7 14:54
这什么东东
8 M) j# ?2 c; { P
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5