数学建模社区-数学中国

标题: Pi = 4? [打印本页]

作者: 宏心    时间: 2016-6-7 09:23
标题: Pi = 4?
本帖最后由 宏心 于 2016-6-8 04:41 编辑 * X9 e, X  j/ z5 c
6 I6 m. _: K( Y$ T
Manipulate[( O5 C; s; N2 L2 Z8 k, |" L' N# Y' a
Graphics[{Table[/ e) x4 x/ c7 ~* u, _; f6 _) y. S
    Rotate[{Thin, Circle[],
4 l( B% j" O: a" _, I, b      Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray, ) d7 `$ v# R3 B7 q6 X& o5 k
      Table[Rectangle[{Cos[ (k \[Pi])/2^(n + 1)], ) I# y4 ~$ ~4 |+ i! l0 O9 N
         Sin[  (k \[Pi])/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
2 E- t' G9 ]- X2 J     r \[Pi]/2], {r, 0, 3}]
* r( K# J# _  {2 W$ S4 V: z5 f) o   }, PlotRange -> 1.1 {{x0[m], x1[m]}, {x0[m], x1[m]}}, 7 `7 i9 _6 w& E' p* a! t
  ImageSize -> {550, 450}],
4 K/ M( u& d' A8 \ Row[{Control[{{n, 3, "steps"}, Range[0, 10], Setter}], Spacer[50],
. V$ t5 {$ h: g: e9 B* [$ v   Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
% r8 e0 B- a; A3 l# p TrackedSymbols :> {n, m}, ControlPlacement -> Top,
. E) |" x0 K- J/ R/ I9 r+ } Initialization :> (x0[1] = -1.1; x0[2] = 0; ) n4 s9 `- Q( X# b. ^2 [. X
   x0[m_] := 1/Sqrt[2] - 1/m; x1[1] = x1[2] = 1.1;
+ |4 _% d: M. g1 m+ e* i& i  s# i   x1[m_] := 1/Sqrt[2] + 1/(4 m);)]' S* i+ S! d3 @  d8 x0 h9 k

7 G( q. k9 ^3 g3 P5 s
4 \* A8 b  L2 O+ B/ V( W2 J/ U/ I* a" d* z. ?3 c

作者: 浪漫的事    时间: 2016-6-7 14:54
这什么东东1 N/ `; C: s' |0 l





欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5