(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     24862,        589]
NotebookOptionsPosition[     24469,        571]
NotebookOutlinePosition[     24810,        586]
CellTagsIndexPosition[     24767,        583]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Esta", " ", "Fun\[CCedilla]\[ATilde]o", " ", "Produz", " ", "uma", " ", 
    "ilustra\[CCedilla]\[ATilde]o", " ", "da", " ", 
    "aplica\[CCedilla]\[ATilde]o", " ", "do", " ", "m\[EAcute]todo", " ", 
    "do", " ", "ponto", " ", "fixo"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"PlotPF", "[", 
    RowBox[{"f_", ",", 
     RowBox[{"{", 
      RowBox[{"x_", ",", "a_", ",", "b_"}], "}"}], ",", "x0_", ",", "n_"}], 
    "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"ff", "[", "s_", "]"}], ":=", 
       RowBox[{"f", "/.", 
        RowBox[{"x", "\[Rule]", "s"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"ff", "[", "x", "]"}], ",", "x"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"AspectRatio", " ", "\[Rule]", " ", "1"}]}], "]"}], ",", 
        RowBox[{"Graphics", "[", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", 
           RowBox[{"Flatten", "[", 
            RowBox[{"MapIndexed", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Hue", "[", 
                  RowBox[{
                   RowBox[{"#2", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], " ", "/", " ", "n"}], 
                  "]"}], ",", 
                 RowBox[{"Line", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"#", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"#", "\[Equal]", "x0"}], ",", "0", ",", "#"}], 
                    "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", 
                    RowBox[{"ff", "[", "#", "]"}]}], "}"}]}], "}"}], "]"}], 
                 ",", "\[IndentingNewLine]", 
                 RowBox[{"Line", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"#", ",", " ", 
                    RowBox[{"ff", "[", "#", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ff", "[", "#", "]"}], ",", 
                    RowBox[{"ff", "[", "#", "]"}]}], "}"}]}], "}"}], "]"}]}], 
                "}"}], "  ", "&"}], " ", ",", 
              RowBox[{"NestWhileList", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"ff", "[", "#", "]"}], " ", "&"}], ",", " ", "x0", 
                ",", " ", 
                RowBox[{
                 RowBox[{"#1", " ", "\[NotEqual]", " ", 
                  RowBox[{"ff", "[", "#2", "]"}]}], " ", "&"}], ",", " ", "2",
                 ",", " ", "n"}], "]"}]}], "]"}], "]"}]}], "}"}], "]"}]}], 
       "]"}]}], "\[IndentingNewLine]", "}"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.35334424053014*^9, 3.3533442620925*^9}, {
   3.35876924737829*^9, 3.35876925989384*^9}, {3.3647710944375*^9, 
   3.36477109954688*^9}, {3.388601120375*^9, 3.388601122109375*^9}, {
   3.3887651643098125`*^9, 3.3887651646066875`*^9}, 3.452780109885741*^9, {
   3.4532085791904173`*^9, 3.4532085819536934`*^9}, {3.4532202952078495`*^9, 
   3.4532203035926876`*^9}, {3.4879518295721984`*^9, 3.487951869288787*^9}, {
   3.5073592840726776`*^9, 3.5073593126146045`*^9}, {3.5073593458231525`*^9, 
   3.5073594108026*^9}, {3.5073594546667194`*^9, 3.5073594735696955`*^9}, {
   3.5073595320352197`*^9, 3.507359707031938*^9}, {3.507359773122899*^9, 
   3.507359775450209*^9}, {3.507359817723612*^9, 3.5073599232622194`*^9}, {
   3.507359964471384*^9, 3.5073600462557507`*^9}, {3.50736010728718*^9, 
   3.5073601746390247`*^9}, {3.526727981827026*^9, 3.526728016646287*^9}, {
   3.526728054289153*^9, 3.5267280678611774`*^9}, {3.526751772723722*^9, 
   3.526751796332622*^9}, {3.526751831030731*^9, 3.526751831781733*^9}, {
   3.526751871339519*^9, 3.526751963785137*^9}, {3.526751994143875*^9, 
   3.5267520426219463`*^9}, {3.526752080940461*^9, 3.52675214832901*^9}, {
   3.5267521798097973`*^9, 3.526752196679625*^9}, {3.526752231136073*^9, 
   3.5267522989556713`*^9}, {3.52675241342302*^9, 3.5267524952289667`*^9}, {
   3.526755516368601*^9, 3.526755591710924*^9}}],

Cell[BoxData[""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlotPF", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"x", "^", "2"}]}], "/", "4"}], "-", 
    RowBox[{"x", "/", "2"}], "+", "4"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", "1.97", ",", "40"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.526751968211071*^9, 3.52675198545231*^9}, {
  3.526752047304572*^9, 3.5267520534158697`*^9}, {3.526752166485948*^9, 
  3.526752166628076*^9}, {3.526752211548339*^9, 3.526752213354534*^9}, {
  3.526752521961359*^9, 3.5267525304731216`*^9}, {3.526752604820682*^9, 
  3.526752611838171*^9}, {3.526752680810042*^9, 3.5267526832335577`*^9}, {
  3.526752737489716*^9, 3.526752784876552*^9}, {3.526752880133802*^9, 
  3.526752928145214*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk01N8bB/CZiqwzn1SkbElUKEuhorkpJUX4fpXsVLKUSoUiJEnSJkoS
yhpFCBGeqa9CWQqVpWzZDTNjGWNo5nc75/fX57zO55yZuc+99/08Z1a7nbY+
voBEIomRSaS/z4006RGBgErXfNqphIlOz66JnOVR6cf2/DccuZiEXhVqq05O
U+lH12UpEFQS0lln7jYwSqUXP/Otk1UgIf0l4e11P6j0gjNiBisNSQj9Zn96
lEel88+aHGz0JyHr6/U5us5UOkN0+LLYOAn5N4afOlFJoSveGeio+kZGLS3i
I+9cJelLApNaI4oXInn66WX6chJ0fkW+yTMHIVTkXSVE/SVGt7ecJ9v2CCOX
aG1WW5go/XEIzaXHSwRxYwIjgSZCZyR1B7wDUZRK6ZSN7xGmF/CSrh5bJo4S
zbR9m28I0b+Sd94vMJFAYSddA9bvW0TvntyfctFUEgUuzPb3HVtAX/uOGl28
m4JcQxtVvmeR6eFvNlVEL6eiuIr++EQvEj2mTfaqRS0VOQUkBOsfxz68cKVK
HRWt0z14rMmZRHeLMuqaaaCisqw3m0RsSPRgStrUoxYq6rx/8+M5Gomecnfr
/pouKlLz0p4yW0aiBwVFZNZPU5GvJi9pIlAAVrP/3DYiCFTWtU7ihTIf/n0R
HqRlQKAgQ/LLhBV8uMUtKjmwlUBGj9rMb1D4ICy+cZ3HNgLRraPuuPP+QHnY
RFaiIYGqP4xKrW76A/oVdevnEYFacnJlH1z5Ax5OH9fF7SPQuP9mtdDueSi2
ali1yY5Ar1okany+z8My91aBtj2Bzmr3ezjWzUMRWi+72YFAUyNx2dvezEOp
afLoFicCzTnOaE7fmYevqT+pWm4EEtldttmLNg9GEYk2fE8CrSGQ8b9Jc8Cf
0/q+4CKBbmv1XPK6PwdbjeamBdhcy7DC0Mg5iHW6rzZ/iUB196pUXvrOwaud
mnR2EIHOL923WHjvHJy7sbj6ayiBPkpb15UweaCjeEj9eCSBvOSPHVq1kwcR
R+0t2h7g9RkJ3dHW40F/Vk/mm4cE2uGUUb1XnQfuDVuWPown0NLkIYPzy3lQ
W7pX0SqBQOVKp1bVD8+CgpSUZNkTAlFU/LqDY2bhTw2iOacRqGBDpFfvby7E
HhTmc14RSPGrS6l6GxcEm41Fi/IJFO2/VeRCAxcicsY2+hYQ6HjVSPriUi4w
9t+vHS4k0Aon8x6N21xYYidr2FBMoMv3pGz9DbhQm0NInywnkCk30UTi1gwM
q7x4MveRQEVJF2JtwmaArdnOSawmkLKJxe8k/xlYXuPvZVSD631PEKrtNgNF
eeSngbUEylV3Kz+kPwNWByz3j30m0DJnNd2nPRyYKmuNTf9CoK4P+Up6ehwY
PfVgzrMNn59/ZncbaHBA2dCltB97RQ/y3KbMAbsXIXku7QSynG/M30HhwBdf
2P1vBz5POuPGewem4ctD46U6vwiUkrzhuO2DaVhlfBjVdBPIUNP3hl30NJzS
Cryq30Og1rLSlw5h01BJn+KnYxPfTTkuPtPgUT2UFNpLoCsSJ6577pmGhpMt
YRp9BHK7mPr8EmcKBmXK2p0GCcQXHq0PYkyBtapB6jvshFidieDeKaj8Lp62
ZohATXnvtl1tmIIE+dcW/di7Bro+38yYghO7REydRwik8o/ceOKhKbBgVn7S
HCNQv0acDhRPwj81x4ktEwTaEJw+PpQzCVEOx2WvYfs0FmVLPZ0EctZV/RZs
7tnvyu43J+HlMbnC05MEEiuRWSrpMgm885WZj6cIpLUzYdJOdBLOsKsiqjkE
uhCTnRfOn4DE2bwekRl8X3+XeedOToBQaanVPuxdER2/yZ0T8NBx/dlq7EOf
5VqyCiag0OjiyzdcAgXaJL/m2E/AuyMdq07zcL0z8s4oWU1A97f8mqfYi7ig
YbZnAoxEM6OasW8ndKc90ZqA4rgx881zeD+6VsftFpqAJJPRryPY/Vo6Vj48
NhQHlqhJz+P1hhlLxjPZIOn5LAZhF6ocvTbaxoYAz5bMGOyPnmkXYnLZsJf8
vFH9D4HE377WLk9lgy3bq+EgtqXEh7H+eDY8j9/f64vdltt/fOtVNohIeu4r
xlYgcVYfDWCDTHt64ndsNyvhzuhTbDjmRBbiYDMmVQ91H2ZDZfSy5Tp8XD8T
fSkxczbU6NWVW2BfeLC3QdeYDUvjn130wuYbeOy5rsGG46E5OsnYS4Kf620k
s4E0pPnsD3ZE8boaYoYFDZmJt5cICMQbzzwyyWCBuLN3rgp2r3NG0JtWFjQV
ros0xT4Uv5byuIEFjlYyxkewP31JS75cxYJDA8c3eWIX7Ex9b/yKBXEc5bQI
bNVLyv+uzWDBz7P31GOxEwqe9i9OZMG9PueBFGzKqJL/yD0WFFvcbnmBHbYm
RaT+OgvMXslxSrA59ooJeZdZYC4qvv89tldsknrMORZUHjnS/Bm7s06+4rwn
C1KeLr7Tgm0t9MTisDMLmN3Lg39ifzSS695qw4JcmfCU39jb/B6flduPf4+J
NWcYOzd35UIBYsEl79AQJrby4KPYHj0WXIukGE5hP1CUVa3SYAH5ybw6F1vM
Nr4kQ5kFo1lmB+ewg+/K7LuxggUmL7jpf7Anax60e1NYIJkprCXAPkGWPmmx
CL9/dH7sr4vPbZhznWLCaJhx518n9a1TUOtmAvnYmQV/HWGjtpPxmQkRhvwj
fz/P5+PaY/klTLgkwejj/a2/vsp1v1Qm/GzemjqDvSNLOXv7HSbkxQzGTmKr
ya6uJwUygWU6XTqOTUQpsj64MyGF4yb1d71cnvzSm9ZMoD/WSurF7vaW07Pc
wQQLAyfHDuyanyuPLN/ABLO60YPN2K/MZYPalzOh5HDbhU/Y8ZUyyclkJtxv
V22kY3ukLOtf3zYODz/2rMrBtlyyVIRZNQ70TQepydgGYUvUX78aB9u7cnox
2KLHKGd3RI7DN/0f8n7YEy0SsQvPj0NpcFWnO3a7iXhJjfM4UCqWNB/CzlYT
+WOtPw4LlepsNmPHxAsrrVgzDmm7t/atxr4kKrTrF2UcilyEMyjYZqPkGycG
xkA5hP5fPz7fOg6kFxpNYxBy5aXiF+yV9fwGdsUYmAfyckuxR3PnlgXFjYGu
zesTUdgtijz9nVfG4MCW1ffOYpff5doJnxqD7xLjY4exo32nU+7uHoMtzzJ3
KmNr6DE10icZoOaeYPUS30/3jSEhpb8Y8KDj5pmb2Mmq1Kb6agb0JWxP9sCW
ktnkz3nMgFUz39SVsGdmfN7t3c2AubUccjjODy0Wf6nDRga4jrQl2WF7Dd12
P7OCAencwP1a2D9bc8UfMUahdoLX3Irz6X3puM1I7Chccex7qoA9nx+cxQ8e
hV9nysrHcL5tyabMSXmOgnSDxeBb7KyEjSnbjUZB1b3A2wb7VqDPSHT/CJRK
HNe+PEsgW6Px4E16I/BUN+BVMs7XmC3BX3cpjcBQn061M/ZnTYqKrdgIULtz
xhSwdyhsrA3tHAZuYatnAs7vNYJTS5sihmF7k7xixDSeh+hjmed/DEHEkM1l
LZz/aqWXeZHvhqBUf/pOD+4PLvmS5k9yhqDui3XBPezmp5oTH0KG4Ha3qSqT
TaA3YacMZdYNwVU/pc9JLAJd3T32pTRgELSCLot8xf3ovSnj4OajgzAZsbjx
PDbJfLQh13wQ5jXmXspgB9kM16UqD8IvM8UiOwaB/Nz7a27VDUBXvd3QN9zf
PCJ/0V2VBuA3K6k3BffHA3X1r0Rr+oCRba96A/fjqC91m8IL+sBOQZZHxa5p
+ZzLT+wDCU00ENdFIJNftS8mz/bBLrnPi5M7cT3GP2T9WtUHrJ0tpzN+4v0k
KlPyT/8Gs+zC5hutBFr+b+7dIzK98Gc8Y+RZI85L1ZtlJgt74Y3fyX5pbMvZ
E33azB7gBKdJRzXg709abSBW3QOzxEk5n3qc50OxXWV+PbBi+5EiDTyfDFwO
3Cj3vRuqMnPkwvG843PwXnzF+i5o6dV69xjPQ1lTZow4che0XdoTxXmL8/zR
IuTT1gku9xtuWGIf6vMfVLjRCdMmehoLyghEu+ikFzr0Cwzyj/LtS3B+pKq3
GGf+BM0UvdZhPJ8VcD5Qa1TaobGr3NUnA/fP7Gfvd8y2wacA48HkdAJ5O4Vc
KKpvA+nu9pAveN5T+WjQ8cyvDZ7I7h7ZmIrzNC4n43JNK3gYcFO7k/H93XzP
SPfkDxhVGcyWeYSHW18H76TCFigq7RJuiSJQekf/reHwBrBo2j5zzRvnQ5B0
8hPdBlAKlB6+5YX7h8LeV1a99fBJ2EMiDs/Hfi5ZTaW0esj8eHow5QSB9vR7
yUTxPkPg0BJm7lECDY0zUzacqYUnr1N2p+F5fMMCXqG3fRWU+gyJTJkRyNFK
7nXH0ddg76XEUVMjUKlY4Lf3FwppAQ6BMbp5VLSll6xwxbaRtitZPvL6AAWt
Yb2d3fa+jXb1hPzUKEFB+1Lb6i1se2k7E7Jc8iUkkYm51MLpokGaUIZqgRpL
HN1x/hGqVcKgOTQnSjfWiaFqC3lJSyk2rUL5+sro86JobPXy4KaESZrHkE7y
oxUi6MJ5ddc70hxauNaxvgfZwujHT8LavYZLM9VLPRBBFkIuFw0HFx+Yo5Xs
Q9cr7Bai/9T1o/4T4tOut+jpdJwjI1XR8qE0UxKaejjrW60ioMmXe5sIRZLR
ijNnNb2N52gk3oLnvr0LkDBhdyaimUObsapw+rB2EXKIIMTOB07QOjY7r1ob
LoROOtppnZQdpZ05TCxR/imM0M9azcPT3TTZ2D7bRfIiSGmtdX+jYx0t1z4l
czJAFIV+0dkzp0uHw0YhpjUVYqjG1U31YsUvyHc6pbxtXhyl2Dn8kfibG2K7
FpbaSKJg6c3TxgqTYP11u558PAUpDf1gaK2YBbHt4u/Kn1BQwIOp9H90Z+Fd
Wvt+h1QK2hDCsL5kMQtaARddH+dSUKXgVGRz+CxQFEuiZT9QkG9FiWsRexZq
T+r8Xj5BQcvU3ev16niARNbfpRygIrfGjTe0wueBe5a7MteKivpqCyq+Js9D
Xkd1uvlhKqriLxnwezsPCnnub6PdqOiFjJtU/cQ8zNukDYhdpCIJ4X1tWa5/
oCRV0WhxBhWJfNNWUkB88JFkVmfkUFHCBc8Yvj0fVP0rrffkU1GsZRC3158P
sWaOHtfKqehZkW5KSR4ffNkJ9xc2U5Gt4bDjXUUBbLD3UkhtpaL5PJ7P3e0C
6Kna+ty4k4p4joPnYg8LwDK+tfLKMBWpeFofybojAJEFWftWM6nowMcvW9/k
CAC8/VvoU1TU5LiBUlctAL9ve5xdeFT0ZpPz99+/BfD//yPQIsPTMQKBAP4H
6UB8gQ==
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxF1P0vFHAcwPF7cJzj7rBoytE5zNMM1VlkboohZ9wYTZzTUvOQuqU7swld
62oaK7YjtbZzIu3kKZPjPN2oJRXycGJOiBjXRedhVFv3+f7w3us/eNNTszmX
cBgMhv23f3oF2awcHFC7DWZvM8TbO8hXzT4uuk2krys7dfEH0s9SNPV+HMma
176raEBy7g7VH+ciBcOirMtdFHB01Gylh0cGad3Zh/zszMHWjH4C9SsJTCn2
2ZgsMgX1D/PEyiAiKKXM2ErmjMGqCB/+yD0CWJTJE7qFG4F5+BcC/hoO5BUM
O32pxYLlnQuSqnQM+GbW1fyl477SIMOCFRz7dBdschena+b14Kyq8RiTuQUu
eJb7Kl/rQMv8OqYXVgt6Mtc9ZbpV8PbZtY/twiXQOlZeev6wBmzaUlEHnaZA
mXrhwbLoA5gUY9eivtgCtpPyxnpzmoMMntRg7QsThkHGRse2f+8kGC6dHIpK
0IAhbCv8ZusSWMIdL/BuWwUHomjkaCstuEa3zv9cqQNzbnjwSmy2wPFpC07a
oB5MyT29ZBK5C/Z5+N3vI+yDLqaK79VhGJZBmiIjhCDGgpgdXB1fgwN/x3Qm
q5yNQPUJ7lFnEQG8Fm9h6ThtDNqWfUswohFBeeKz5zqhKRgfeCtssJMENiZn
OfrvmYF60hl8exwZ5HwKYNIkFJAUYNajeILsqZ46d0GK9Bbm8h7LkRSHtmJb
FfJtpu+89U8ki+hWSomkgvrr+iPyGGSDekDGjkfaN6R1FKci9+KqF0m5yDap
Q6BJDfIqeX2gph7pIujihDYiyyKSrtxRIPnaykf4EaR7Yrq9dAI513+qLngG
GS2Z6CpcRhJxteH0daQyQzDa/Qt5cyyUm7KD/P8t8A86/T2H
      "]]}}, 
   {Thickness[Large], 
    {Hue[
      NCache[
       Rational[1, 40], 0.025]], LineBox[{{1.97, 0}, {1.97, 2.044775}}], 
     LineBox[{{1.97, 2.044775}, {2.044775, 2.044775}}]}, 
    {Hue[
      NCache[
       Rational[1, 20], 0.05]], 
     LineBox[{{2.044775, 2.044775}, {2.044775, 1.93233629984375}}], 
     LineBox[{{2.044775, 1.93233629984375}, {1.93233629984375, 
      1.93233629984375}}]}, 
    {Hue[
      NCache[
       Rational[3, 40], 0.075]], 
     LineBox[{{1.93233629984375, 1.93233629984375}, {1.93233629984375, 
      2.1003509561546663`}}], 
     LineBox[{{1.93233629984375, 2.1003509561546663`}, {2.1003509561546663`, 
      2.1003509561546663`}}]}, 
    {Hue[
      NCache[
       Rational[1, 10], 0.1]], 
     LineBox[{{2.1003509561546663`, 2.1003509561546663`}, {
      2.1003509561546663`, 1.8469559871677117`}}], 
     LineBox[{{2.1003509561546663`, 1.8469559871677117`}, {
      1.8469559871677117`, 1.8469559871677117`}}]}, 
    {Hue[
      NCache[
       Rational[1, 8], 0.125]], 
     LineBox[{{1.8469559871677117`, 1.8469559871677117`}, {
      1.8469559871677117`, 2.2237104017824803`}}], 
     LineBox[{{1.8469559871677117`, 2.2237104017824803`}, {
      2.2237104017824803`, 2.2237104017824803`}}]}, 
    {Hue[
      NCache[
       Rational[3, 20], 0.15]], 
     LineBox[{{2.2237104017824803`, 2.2237104017824803`}, {
      2.2237104017824803`, 1.65192281135986}}], 
     LineBox[{{2.2237104017824803`, 1.65192281135986}, {1.65192281135986, 
      1.65192281135986}}]}, 
    {Hue[
      NCache[
       Rational[7, 40], 0.175]], 
     LineBox[{{1.65192281135986, 1.65192281135986}, {1.65192281135986, 
      2.4918263506473037`}}], 
     LineBox[{{1.65192281135986, 2.4918263506473037`}, {2.4918263506473037`, 
      2.4918263506473037`}}]}, 
    {Hue[
      NCache[
       Rational[1, 5], 0.2]], 
     LineBox[{{2.4918263506473037`, 2.4918263506473037`}, {
      2.4918263506473037`, 1.2017871842312833`}}], 
     LineBox[{{2.4918263506473037`, 1.2017871842312833`}, {
      1.2017871842312833`, 1.2017871842312833`}}]}, 
    {Hue[
      NCache[
       Rational[9, 40], 0.225]], 
     LineBox[{{1.2017871842312833`, 1.2017871842312833`}, {
      1.2017871842312833`, 3.0380332988387195`}}], 
     LineBox[{{1.2017871842312833`, 3.0380332988387195`}, {
      3.0380332988387195`, 3.0380332988387195`}}]}, 
    {Hue[
      NCache[
       Rational[1, 4], 0.25]], 
     LineBox[{{3.0380332988387195`, 3.0380332988387195`}, {
      3.0380332988387195`, 0.17357176936742214`}}], 
     LineBox[{{3.0380332988387195`, 0.17357176936742214`}, {
      0.17357176936742214`, 0.17357176936742214`}}]}, 
    {Hue[
      NCache[
       Rational[11, 40], 0.275]], 
     LineBox[{{0.17357176936742214`, 0.17357176936742214`}, {
      0.17357176936742214`, 3.9056823255359547`}}], 
     LineBox[{{0.17357176936742214`, 3.9056823255359547`}, {
      3.9056823255359547`, 3.9056823255359547`}}]}, 
    {Hue[
      NCache[
       Rational[3, 10], 0.3]], 
     LineBox[{{3.9056823255359547`, 3.9056823255359547`}, {
      3.9056823255359547`, -1.7664297697689628`}}], 
     LineBox[{{
      3.9056823255359547`, -1.7664297697689628`}, {-1.7664297697689628`, \
-1.7664297697689628`}}]}, 
    {Hue[
      NCache[
       Rational[13, 40], 0.325]], 
     LineBox[{{-1.7664297697689628`, -1.7664297697689628`}, \
{-1.7664297697689628`, 4.103146352002973}}], 
     LineBox[{{-1.7664297697689628`, 4.103146352002973}, {4.103146352002973, 
      4.103146352002973}}]}, 
    {Hue[
      NCache[
       Rational[7, 20], 0.35]], 
     LineBox[{{4.103146352002973, 4.103146352002973}, {
      4.103146352002973, -2.2605256724903136`}}], 
     LineBox[{{
      4.103146352002973, -2.2605256724903136`}, {-2.2605256724903136`, \
-2.2605256724903136`}}]}, 
    {Hue[
      NCache[
       Rational[3, 8], 0.375]], 
     LineBox[{{-2.2605256724903136`, -2.2605256724903136`}, \
{-2.2605256724903136`, 3.852768757248211}}], 
     LineBox[{{-2.2605256724903136`, 3.852768757248211}, {3.852768757248211, 
      3.852768757248211}}]}, 
    {Hue[
      NCache[
       Rational[2, 5], 0.4]], 
     LineBox[{{3.852768757248211, 3.852768757248211}, {
      3.852768757248211, -1.6373411528310866`}}], 
     LineBox[{{
      3.852768757248211, -1.6373411528310866`}, {-1.6373411528310866`, \
-1.6373411528310866`}}]}, 
    {Hue[
      NCache[
       Rational[17, 40], 0.425]], 
     LineBox[{{-1.6373411528310866`, -1.6373411528310866`}, \
{-1.6373411528310866`, 4.148449063726986}}], 
     LineBox[{{-1.6373411528310866`, 4.148449063726986}, {4.148449063726986, 
      4.148449063726986}}]}, 
    {Hue[
      NCache[
       Rational[9, 20], 0.45]], 
     LineBox[{{4.148449063726986, 4.148449063726986}, {
      4.148449063726986, -2.376631940447819}}], 
     LineBox[{{
      4.148449063726986, -2.376631940447819}, {-2.376631940447819, \
-2.376631940447819}}]}, 
    {Hue[
      NCache[
       Rational[19, 40], 0.475]], 
     LineBox[{{-2.376631940447819, -2.376631940447819}, {-2.376631940447819, 
      3.776221125134718}}], 
     LineBox[{{-2.376631940447819, 3.776221125134718}, {3.776221125134718, 
      3.776221125134718}}]}, 
    {Hue[
      NCache[
       Rational[1, 2], 0.5]], 
     LineBox[{{3.776221125134718, 3.776221125134718}, {
      3.776221125134718, -1.4530720590457884`}}], 
     LineBox[{{
      3.776221125134718, -1.4530720590457884`}, {-1.4530720590457884`, \
-1.4530720590457884`}}]}, 
    {Hue[
      NCache[
       Rational[21, 40], 0.525]], 
     LineBox[{{-1.4530720590457884`, -1.4530720590457884`}, \
{-1.4530720590457884`, 4.198681427328002}}], 
     LineBox[{{-1.4530720590457884`, 4.198681427328002}, {4.198681427328002, 
      4.198681427328002}}]}, 
    {Hue[
      NCache[
       Rational[11, 20], 0.55]], 
     LineBox[{{4.198681427328002, 4.198681427328002}, {
      4.198681427328002, -2.5065721457112784`}}], 
     LineBox[{{
      4.198681427328002, -2.5065721457112784`}, {-2.5065721457112784`, \
-2.5065721457112784`}}]}, 
    {Hue[
      NCache[
       Rational[23, 40], 0.575]], 
     LineBox[{{-2.5065721457112784`, -2.5065721457112784`}, \
{-2.5065721457112784`, 3.6825600924417285`}}], 
     LineBox[{{-2.5065721457112784`, 3.6825600924417285`}, {
      3.6825600924417285`, 3.6825600924417285`}}]}, 
    {Hue[
      NCache[
       Rational[3, 5], 0.6]], 
     LineBox[{{3.6825600924417285`, 3.6825600924417285`}, {
      3.6825600924417285`, -1.2315922548319724`}}], 
     LineBox[{{
      3.6825600924417285`, -1.2315922548319724`}, {-1.2315922548319724`, \
-1.2315922548319724`}}]}, 
    {Hue[
      NCache[
       Rational[5, 8], 0.625]], 
     LineBox[{{-1.2315922548319724`, -1.2315922548319724`}, \
{-1.2315922548319724`, 4.236591256875461}}], 
     LineBox[{{-1.2315922548319724`, 4.236591256875461}, {4.236591256875461, 
      4.236591256875461}}]}, 
    {Hue[
      NCache[
       Rational[13, 20], 0.65]], 
     LineBox[{{4.236591256875461, 4.236591256875461}, {
      4.236591256875461, -2.6054719978961303`}}], 
     LineBox[{{
      4.236591256875461, -2.6054719978961303`}, {-2.6054719978961303`, \
-2.6054719978961303`}}]}, 
    {Hue[
      NCache[
       Rational[27, 40], 0.675]], 
     LineBox[{{-2.6054719978961303`, -2.6054719978961303`}, \
{-2.6054719978961303`, 3.6056149159928514`}}], 
     LineBox[{{-2.6054719978961303`, 3.6056149159928514`}, {
      3.6056149159928514`, 3.6056149159928514`}}]}, 
    {Hue[
      NCache[
       Rational[7, 10], 0.7]], 
     LineBox[{{3.6056149159928514`, 3.6056149159928514`}, {
      3.6056149159928514`, -1.0529221886039601`}}], 
     LineBox[{{
      3.6056149159928514`, -1.0529221886039601`}, {-1.0529221886039601`, \
-1.0529221886039601`}}]}, 
    {Hue[
      NCache[
       Rational[29, 40], 0.725]], 
     LineBox[{{-1.0529221886039601`, -1.0529221886039601`}, \
{-1.0529221886039601`, 4.249299810488342}}], 
     LineBox[{{-1.0529221886039601`, 4.249299810488342}, {4.249299810488342, 
      4.249299810488342}}]}, 
    {Hue[
      NCache[
       Rational[3, 4], 0.75]], 
     LineBox[{{4.249299810488342, 4.249299810488342}, {
      4.249299810488342, -2.6387871250982355`}}], 
     LineBox[{{
      4.249299810488342, -2.6387871250982355`}, {-2.6387871250982355`, \
-2.6387871250982355`}}]}, 
    {Hue[
      NCache[
       Rational[31, 40], 0.775]], 
     LineBox[{{-2.6387871250982355`, -2.6387871250982355`}, \
{-2.6387871250982355`, 3.5785941896530655`}}], 
     LineBox[{{-2.6387871250982355`, 3.5785941896530655`}, {
      3.5785941896530655`, 3.5785941896530655`}}]}, 
    {Hue[
      NCache[
       Rational[4, 5], 0.8]], 
     LineBox[{{3.5785941896530655`, 3.5785941896530655`}, {
      3.5785941896530655`, -0.990881188381203}}], 
     LineBox[{{
      3.5785941896530655`, -0.990881188381203}, {-0.990881188381203, \
-0.990881188381203}}]}, 
    {Hue[
      NCache[
       Rational[33, 40], 0.825]], 
     LineBox[{{-0.990881188381203, -0.990881188381203}, {-0.990881188381203, 
      4.249979211818665}}], 
     LineBox[{{-0.990881188381203, 4.249979211818665}, {4.249979211818665, 
      4.249979211818665}}]}, 
    {Hue[
      NCache[
       Rational[17, 20], 0.85]], 
     LineBox[{{4.249979211818665, 4.249979211818665}, {
      4.249979211818665, -2.6405704311320313`}}], 
     LineBox[{{
      4.249979211818665, -2.6405704311320313`}, {-2.6405704311320313`, \
-2.6405704311320313`}}]}, 
    {Hue[
      NCache[
       Rational[7, 8], 0.875]], 
     LineBox[{{-2.6405704311320313`, -2.6405704311320313`}, \
{-2.6405704311320313`, 3.5771321651238157`}}], 
     LineBox[{{-2.6405704311320313`, 3.5771321651238157`}, {
      3.5771321651238157`, 3.5771321651238157`}}]}, 
    {Hue[
      NCache[
       Rational[9, 10], 0.9]], 
     LineBox[{{3.5771321651238157`, 3.5771321651238157`}, {
      3.5771321651238157`, -0.9875347142527571}}], 
     LineBox[{{
      3.5771321651238157`, -0.9875347142527571}, {-0.9875347142527571, \
-0.9875347142527571}}]}, 
    {Hue[
      NCache[
       Rational[37, 40], 0.925]], 
     LineBox[{{-0.9875347142527571, -0.9875347142527571}, \
{-0.9875347142527571, 4.2499611541628095`}}], 
     LineBox[{{-0.9875347142527571, 4.2499611541628095`}, {
      4.2499611541628095`, 4.2499611541628095`}}]}, 
    {Hue[
      NCache[
       Rational[19, 20], 0.95]], 
     LineBox[{{4.2499611541628095`, 4.2499611541628095`}, {
      4.2499611541628095`, -2.6405230300546245`}}], 
     LineBox[{{
      4.2499611541628095`, -2.6405230300546245`}, {-2.6405230300546245`, \
-2.6405230300546245`}}]}, 
    {Hue[
      NCache[
       Rational[39, 40], 0.975]], 
     LineBox[{{-2.6405230300546245`, -2.6405230300546245`}, \
{-2.6405230300546245`, 3.577171046965098}}], 
     LineBox[{{-2.6405230300546245`, 3.577171046965098}, {3.577171046965098, 
      3.577171046965098}}]}, 
    {Hue[1], 
     LineBox[{{3.577171046965098, 3.577171046965098}, {
      3.577171046965098, -0.9876236982938931}}], 
     LineBox[{{
      3.577171046965098, -0.9876236982938931}, {-0.9876236982938931, \
-0.9876236982938931}}]}, 
    {Hue[
      NCache[
       Rational[41, 40], 1.025]], 
     LineBox[{{-0.9876236982938931, -0.9876236982938931}, \
{-0.9876236982938931, 4.24996170678902}}], 
     LineBox[{{-0.9876236982938931, 4.24996170678902}, {4.24996170678902, 
      4.24996170678902}}]}}},
  AspectRatio->1,
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  PlotRange->{{-4, 4}, {-3.999999836734694, 4.249999723664875}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.526751986616385*^9, 3.5267520541877337`*^9}, 
   3.526752086085237*^9, {3.526752116467757*^9, 3.526752214083458*^9}, {
   3.526752256419655*^9, 3.526752302527584*^9}, {3.526752499957676*^9, 
   3.526752531320015*^9}, {3.52675260542082*^9, 3.5267526128624697`*^9}, 
   3.5267526842942963`*^9, 3.526752754660202*^9, 3.52675278509986*^9, {
   3.526752889744213*^9, 3.5267529286095333`*^9}, {3.526755580547637*^9, 
   3.526755595134861*^9}}]
}, Open  ]]
},
WindowSize->{762, 505},
WindowMargins->{{Automatic, 134}, {52, Automatic}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 4619, 99, 163, "Input"],
Cell[5179, 121, 26, 0, 27, "Input"],
Cell[CellGroupData[{
Cell[5230, 125, 778, 18, 27, "Input"],
Cell[6011, 145, 18442, 423, 375, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)