Pi = 4?

宏心

8 P7 v; N  X/ V
. P( N7 j/ d3 q# tManipulate[
" R# ^8 {+ S5 U" G Graphics[{Table[
) |$ L+ u' f1 k# q$ ~! p% Q    Rotate[{Thin, Circle[],
8 o8 B" R. U6 s6 Y2 V1 Y      Line[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], Gray,
4 ?8 D1 l' I) f( V" S      Table[Rectangle[{Cos[ (k \[Pi])/2^(n + 1)],
8 k$ S" I' \+ i1 ?0 G& G         Sin[  (k \[Pi])/2^(n + 1)]}, {1, 1}], {k, 1, 2^n - 1}]},
  F% H- \7 B' p7 L% c     r \[Pi]/2], {r, 0, 3}]
2 W! F$ o: }% r3 C1 G   }, PlotRange -> 1.1 {{x0[m], x1[m]}, {x0[m], x1[m]}},
- C7 @* L$ u2 A! ^/ H1 x2 {  ImageSize -> {550, 450}],
% [3 Q  e  c5 M Row[{Control[{{n, 3, "steps"}, Range[0, 10], Setter}], Spacer[50],
9 N- d# ^+ [+ D9 ~! M/ H   Control[{{m, 1, "magnification"}, {1, 2, 4, 8}, Setter}]}],
) a# G; s( U% O( b9 c TrackedSymbols :> {n, m}, ControlPlacement -> Top,
Initialization :> (x0[1] = -1.1; x0[2] = 0;
! }! G  H7 L2 M' q1 L   x0[m_] := 1/Sqrt[2] - 1/m; x1[1] = x1[2] = 1.1;
   x1[m_] := 1/Sqrt[2] + 1/(4 m);)]
4 z  T+ ?! q, ?) j( {( @! L
# K: L. |. \# r% n
( N7 }8 U) }1 J8 T( ^9 |
( ?$ T! A! o) k! y

浪漫的事

这什么东东
6 [* {+ S4 c9 Q7 ]' u& C. N$ M6 Q) k