数学建模社区-数学中国

标题: 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: PManipulate[  _; 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