(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     28773,        699]
NotebookOptionsPosition[     27475,        657]
NotebookOutlinePosition[     27819,        672]
CellTagsIndexPosition[     27776,        669]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Etude de fonction 05", "Section",
 CellChangeTimes->{{3.4859162103187513`*^9, 3.485916216619115*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"f(x) = \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"4", "-", 
      RowBox[{"2", " ", "x"}]}], 
     RowBox[{
      RowBox[{"4", " ", "x"}], "+", "1"}]]}],
   SequenceForm["f(x) = ", (4 - 2 $CellContext`x)/(1 + 4 $CellContext`x)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859161990045557`*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"1. Domaine de d\[EAcute]finition\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859161990056868`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/4\\)\\)\\)\\)}\"\>",
      StringForm["`1` \\ {`2`}", Reals, 
       Rational[-1, 4]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm["Dom f = ", 
    analyse`Ens[
     Or[$CellContext`x < Rational[-1, 4], $CellContext`x > 
      Rational[-1, 4]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199007415*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
    FractionBox[
     RowBox[{"4", "-", 
      RowBox[{"2", " ", "x"}]}], 
     RowBox[{
      RowBox[{"4", " ", "x"}], "+", "1"}]], 
    "\[InvisibleSpace]", "\<\" n'est ni paire ni impaire\"\>"}],
   SequenceForm[(4 - 2 $CellContext`x)/(1 + 4 $CellContext`x), 
    " n'est ni paire ni impaire"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.48591619900933*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"2. Signe de f\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199010638*^9}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      RowBox[{"-", 
       FractionBox["1", "4"]}], "    ", "2", "    "},
     {
      FractionBox[
       RowBox[{"4", "-", 
        RowBox[{"2", " ", "x"}]}], 
       RowBox[{
        RowBox[{"4", " ", "x"}], "+", "1"}]], "-", "|", "+", "0", "-"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199011945*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"3. Limites et asymptotes\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199013935*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-\\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(1\\\\\\\\\\\\\\\\/4\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(4 - \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\
\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(4\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\
\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\
\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-\\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(1\\\\\\\\\\\\\\\\/4\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\">\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(4 - \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\
\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(4\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\
\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\
\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\
\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\
\"\\\", \\\"\\\\\\\"  \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \
ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
   StringForm["`1`", 
    Piecewise[{{
       StringForm["`1` = `2`", 
        analyse`Limite[(4 - 2 $CellContext`x)/(1 + 
         4 $CellContext`x), $CellContext`x, 
         Rational[-1, 4], -1], 
        DirectedInfinity[-1]], " "}, {
       StringForm["`1` = `2`", 
        analyse`Limite[(4 - 2 $CellContext`x)/(1 + 
         4 $CellContext`x), $CellContext`x, 
         Rational[-1, 4], 1], 
        StringForm["+`1`", 
         DirectedInfinity[1]]], "  "}}, 0]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199015276*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/4\\)\\)\\)\\)\"\>",
   StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 
    Rational[-1, 4]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199021888*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(4 - \\\\(\\\\(2\\\\\\\\ \
x\\\\)\\\\)\\\\)\\\\/\\\\(\\\\(\\\\(4\\\\\\\\ x\\\\)\\\\) + \
1\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\\(\\(1\\/2\\)\\)\\)\\)\"\
\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(4 - 2 $CellContext`x)/(1 + 
     4 $CellContext`x), $CellContext`x, 
     DirectedInfinity[1]], 
    Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199023365*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(4 - \\\\(\\\\(2\\\\\\\\ x\\\\)\\\\)\\\\)\\\
\\/\\\\(\\\\(\\\\(4\\\\\\\\ x\\\\)\\\\) + 1\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/2\\)\\)\\)\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(4 - 2 $CellContext`x)/(1 + 
     4 $CellContext`x), $CellContext`x, 
     DirectedInfinity[-1]], 
    Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199025591*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", 
     RowBox[{"-", 
      FractionBox["1", "2"]}]}]}],
   SequenceForm["AH", " \[Congruent] ", $CellContext`y == Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199160265*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"4. Intersection avec les axes\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.48591619917272*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"\\\\!\\\\(\
TraditionalForm\\\\`\\\\\\\"Gf \\\\\\\\[Intersection] X = { \
\\\\\\\"\\\\)\\\\!\\\\(TraditionalForm\\\\`\\\\\\\"(\\\\\\\\!\\\\\\\\(\
TraditionalForm\\\\\\\\`2\\\\\\\\),\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\
0\\\\\\\\))\\\\\\\"\\\\)\\\"\\) }\"\>",
   StringForm["`1` }", 
    StringForm["`1``2`", 
     StringForm["`1`{ ", "Gf \[Intersection] X = "], 
     StringForm["(`1`,`2`)", 2, 0]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199188426*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"Gf \[Intersection] Y = { \
(0,\\!\\(TraditionalForm\\`4\\)) }\"\>",
   StringForm["`1`{ (0,`2`) }", "Gf \[Intersection] Y = ", 4],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199206191*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"5. Etude de f'\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859161992226963`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"f'(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{"-", 
     FractionBox["18", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "x"}], "+", "1"}], ")"}], "2"]]}]}],
   SequenceForm["f'(x) = ", (-18) (1 + 4 $CellContext`x)^(-2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199240015*^9}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      RowBox[{"-", 
       FractionBox["1", "4"]}], "    "},
     {
      RowBox[{"-", 
       FractionBox["18", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", "x"}], "+", "1"}], ")"}], "2"]]}], "-", "|", "-"},
     {
      FractionBox[
       RowBox[{"4", "-", 
        RowBox[{"2", " ", "x"}]}], 
       RowBox[{
        RowBox[{"4", " ", "x"}], "+", "1"}]], "\[LowerRightArrow]", "|", 
      "\[LowerRightArrow]"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.48591619925605*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"6. Etude de f\\\"\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859161992725782`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"f\\\"(x) = \"\>", "\[InvisibleSpace]", 
    FractionBox["144", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", "x"}], "+", "1"}], ")"}], "3"]]}],
   SequenceForm["f\"(x) = ", 144 (1 + 4 $CellContext`x)^(-3)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859161992895117`*^9}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      RowBox[{"-", 
       FractionBox["1", "4"]}], "    "},
     {
      FractionBox["144", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", "x"}], "+", "1"}], ")"}], "3"]], "-", "|", "+"},
     {
      FractionBox[
       RowBox[{"4", "-", 
        RowBox[{"2", " ", "x"}]}], 
       RowBox[{
        RowBox[{"4", " ", "x"}], "+", "1"}]], "\[OverParenthesis]", "|", 
      "\[UnderParenthesis]"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859161993069468`*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"7.Tableau r\[EAcute]capitulatif\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859161993228083`*^9}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", 
      RowBox[{"-", "\[Infinity]"}], "    ", 
      RowBox[{"-", 
       FractionBox["1", "4"]}], "    ", "0", "    ", "2", "    ", 
      RowBox[{"+", "\[Infinity]"}]},
     {
      RowBox[{"f", 
       RowBox[{"(", "x", ")"}]}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], "-", "|", "+", "4", "+", "0", "-", 
      RowBox[{"-", 
       FractionBox["1", "2"]}]},
     {" ", 
      RowBox[{"y", "\[LongEqual]", 
       RowBox[{"-", 
        FractionBox["1", "2"]}]}], " ", " ", " ", " ", " ", " ", " ", 
      RowBox[{"y", "\[LongEqual]", 
       RowBox[{"-", 
        FractionBox["1", "2"]}]}]},
     {"croissance", " ", "\[LowerRightArrow]", " ", "\[LowerRightArrow]", " ",
       "\[LowerRightArrow]", " ", "\[LowerRightArrow]", " "},
     {"concavit\[EAcute]", " ", "\[OverParenthesis]", " ", 
      "\[UnderParenthesis]", " ", "\[UnderParenthesis]", " ", 
      "\[UnderParenthesis]", " "}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199340173*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"8. Graphe de f\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916199357263*^9}]
}, Open  ]],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[
       LineBox[NCache[{{-20, Rational[-1, 2]}, {
          20, Rational[-1, 2]}}, {{-20, -0.5}, {20, -0.5}}]],
       RowBox[{"y", "\[LongEqual]", 
         RowBox[{"-", 
           FractionBox["1", "2"]}]}]],
      Annotation[#, $CellContext`y == Rational[-1, 2], "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[
       LineBox[NCache[{{-20, Rational[-1, 2]}, {
          20, Rational[-1, 2]}}, {{-20, -0.5}, {20, -0.5}}]],
       RowBox[{"y", "\[LongEqual]", 
         RowBox[{"-", 
           FractionBox["1", "2"]}]}]],
      Annotation[#, $CellContext`y == Rational[-1, 2], 
       "Tooltip"]& ]}, {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0, 0, 
         NCache[
          Rational[2, 3], 0.6666666666666666]], Thickness[Medium], 
        LineBox[CompressedData["
1:eJwdlXc4FY73x6+ZWdeMa4+skF2KrCQpSVYJhRJFMlJaRPhoCoWs6CMr0dAg
5yTqY5SZEbm4wzUyrp319fud5znPeV7POe/3n+8j53ne/hQrgUCgrPf/zWtD
B5lra7oo9bFqQ07rANCviM72LOtiGru31dg62xLJ8+8WddGV/iLToG0AZA0D
V85P6+JawfGkhnWujn/I1U/XRYq7d8Zc+wBwaXZK43dd9OndonW4cwCSQk7Y
RDzRRe0+80Kx3gEoYgl+RtiuizGev1KmaQPAccpKR9xNB1m7PSLrlgdAqKv2
XE6CNgar29bJCw+C/Zc0L9V6LSyKIITraQzClQnjcw8o25C9aLHAwGYQ3oel
+b08pIkv1Z8p7fcbBNuHjrKrqerooz9pxrg/CFYZn2z3jamhy8UMycQPg5D3
7XJHsKsq5uSZv46iDYJ7dJJIU74yziqa8PdLUOD6CbYSXiEltJXVT3JxogBB
QwYsbiniG8VdZs9TKHBV1Mz91nVF9BhZrf2dSoH5Nc+Vr2GK6KcZISnyhALj
rXm79vsponPoJvOYDAr0XNJ8b3dIEV8fGo8JyqFAeY1xmZv4+l6P+i64mAL+
x4/nhr1QQO8bX+elP1Pg1+3U2KKf8ugGpvsO/aFAW61s8YkmeXTYO/8lf5wC
jWvPm0Xq5PG6V4gG2yQFqoLLxSMq5bFxKO37RyYFclzbihxy5bHvZpOb/gIF
/LbyN68EyuP2LLZ0FzYqLNVHiNnxyeO3m8UN7iQqSPKcKZgxl8OSF/aT+TZU
cK9qvCNvJIexi3byvgep8DRIO9BOXw7rThpXqx2iglLPX4NiZTkk/aLbv7Kn
wrbiuzVefHLY1bR/uPUoFcxtX5Nbf8ri0cR/brqeoYLvw1WRsjOyaNof3/g4
hgpn9dU4eiRlsOYC10Hd/6gQxPHh+cVNMuhnJlHqUE+F8J9W+wVZZVC8Y2Ex
rJEK8aGn7lsPSeOfkwcO1DRTofBttvj7Mmn0ziHrhnRTYVh/s2byXmk825jq
qTtKBR8DdudDgVKozhZLNSfSIIAzcXHEUwrzcjwD8wRpcLFDLj3GUQo9GI67
+URoEHPRZODTTimUcXN/0SdOg7zy8LPqHFKYVWGjm6VAA5rB1A3uNElkuLD/
SNhOA6/tfflfvkjgx4t1JKeTNDidv91p7zsJtCKfJ/zyooGfeAJbXaEEuqUb
mp04TYPAJQv3HwkSyL8vciD4LA2uQoFQt4cEFuy2XnoXSoMkq9Dr40sk/PbK
JL08ngZfnfkcxPVIeET9uenzchrU/XeKJV2ZhMpmvJevfaBBoyGUSEuQ0NBj
OcqpkgatEkHciqwkZGeelxeopgGZ3Fml2SyO8Z39i/nfabDgk6u655w4vlIZ
mDpNo4HapZ1rAc/EcLGWzDDaTAf8batGeSSGEe1uBytJdHCy8HJ0/kcMW+Ni
35tI0+HmxjtFJgFi6OjaWGW/hQ7dz347E3eIYXaEtn2hLh3iWiJKyxo247Lh
XXalw3Sgq307OcMUxQAJ09aY+3S4+qDnzhmaKIoK1JOTE+kgODfxrrdTFPn9
hecKHtNh92exjbWVoqj89b7nQBYdkp39PibHiOL9sp9W90rpsCeaX2g7SRTT
OqT/Mlrp8PT3kZrLZiKoWSeu8kdiCHSoOn/b9USQKNA54SE7BDUjAlpaKiJ4
pEvvQJfiENDnm57QN4pgtgPXn26NIVATPBB8pFcYy5bOLcuZDsGrvXvkNcKE
MfJ3n1jTqXX9S72I/mIh/C8v6NXU2yFwLBcq35UthFHuevkaFet+lczRR4lC
SC1f+RSIQ8BVX+p8MFwI79eoRPM1DMFBqvq2j1ZCaNG4Ryq9fwg6xLb0JQ4K
onGHm6wqPwOGIkWMrMQEkUPmVF3gOQbwXHs5kcgjiLmW0aEGwQzQvGSd278s
gBUVq/wbwhlwMeAaT/iAAO6p9Qmoi2UApyutq7hQAPOrfzF+5jJAUe9tqKCx
AJYo9zQr9THAk+7w8vdJIloNBFfeOj4MMQPjnmoORDR3TiymeA9DYW+caNhe
IpI/MzLt/IeB2Vp5jbiViAeMBtVdrg8D6w3rlBjGJuza7RUp/3QYTLSHWw7z
b8IIK6EX9cPD8DFZxZLhxI/pLkT36rgR4HId8mIx4sf9pZa6aokj4CSbd5Mk
x4+aF68U5WWMALNQAQ+M8mFmvtfVvlcjoIrSu8pu8KH+wpUndn0jkDIirB2e
z4vvYiibww1Hgf6y7VDiXV6cPL5qYmM5CnqhDwOKg3ix01fUW//wKDStbSru
M+JFkaZWsqPvKHCK8CpbtPAgG6djSXPaKISasEjx/eXGCvHCkr+sY1DNjru2
kLnRZnZlJYo4BsT668d213AjbXAnc6v0GBQ7LD8OvMeNvhe8/bsNx4DqOy/4
U54bi5Tnk8qDxsA+6Q9Xpg0XfuTelUIeGQOt4e6ZbRmcKDlWmpmy8AdCJjVU
N0dz4uCHtKaX3OPwfj7SbdWPE5+6S7JPkcbBjFPta+MOToyVyhieNh4He4Xw
x77tHBix+t95/phxCHUj7czl5UDJRGqJiswEfPQOCIhnsmPOTKiRlu4ErJ6t
zrnQzY6h3eKy/lYTEBPux2v6nB2rfT/sjQ+cgJTHH3t7zdnxR5pEtl/tur7l
2A3RcDYslis0PWA8CatdJa9XTrDh9kwhGx3rSTDvZ2VQrdjwR/ISdafjJDSM
F9q9FmHDW8HXVcr9J6GXd0nOrowVVYe1PE5nT8Ka5ZOafxgs6HtPcMGSfwr2
HJxYCGxiwYlKkssziSmIc7DQcClnwR2W9EwttSkgeo0mK0WzIFHkjWuH1RTI
R+zy+SLDgh593DqBt9b1H3u4V5wIuEbRdwIeJpQU/mv4bRcBd8WTOqakmCD2
5LxvgiwBR4wvWwdoM6FjnvOhTfsa+C8vt9gcZcKWK07EjL+roJVj0tNQzIQF
15Hz2jWrEB3xVSiimgmNRtebau+uwgWvZPO7XUwIWf333rjsKoBOlE4FxzRU
R87ymVqtwCZzNpM872l45PnPuXbiCjhkTqV5XpsGXwupxjO/lqGBM3b/7UfT
QOSwvJ3gvwxeK6kz6vXT4BGXxE1JXALDIp1jnNtnYPmeLmdM/yL4zNilSKjN
QvP5b6dIhYtQP/RYW8NmFnLtXGtLghfh5PTEQ/q5WdgvGBXdybkImu7VXKde
zUJqciurqsYCbKzhNN26dw7OXTzt+WluHriyVxyF/efA1Pnv58M4D6Yqhzvb
kuaAISYfGX5kHkjbLvky6XNgkH5hreHyHBwREleKeTS/niccHics1vlJxqbF
mnn47ZZaNcM3B8Nal/miZ+YhWubzNansWaCTXet4nBegLYe4HPB1Boh9a21C
WxchL+qZK9uDGfiEcrNXvRYh3HtHxeOjM6BlyZvulrEI8konwnFsGuIl/835
LPIXAgteLggITYOayWaVYdISaG0MiDLvZwL/+dFIteNLMBWkvjH4BROUzunm
b8tagiCjAoV2KyYQxhXfNKstg+5TnxJ2ESYcH44eTwpehhkOJUP9wSnY9z63
1r9qGUKbcmwfXZ0CN7LB0YpjK2Cgd7L7q/UUWB9zzfYsXoG5FBnvedH1+1fK
zVGEVQjzTL/sUjYJ5L4/vYWlqzA9stVav3ECfDK2vJMiETDkTb77o9MT8J01
rKzIloBz17aEzBMmIEQnbo37FgEXiDJZH/THgeWtosaTeQJe/vXkDan5DyRo
vPBg12PBv7li9Vf8/kDz4/GBwiAWXDYQnDXOGgPzzz4WevMseI1wnydrPUce
X13p8jBmxdU6XllC+yiEfzcuPRbDiixuHDbVXKMQZ4UKQXJseFPp5gmF3BFQ
u1LoyAxmQ/bJ1dBo4xGQKFeq565nQ86ohey9QcNgWrL/0mIkO8YeCC1/zjcM
CRHPG92o7Mglymzges6AHzfSV4JsOJCnYHSuvmcIaLvHC8RUOfF20Bk+9YtD
YHvnTF5INifyGdHk7hKH4Oft00yS9Abc1NR34JAlHXKzHi15aHLhgxRXz1Iy
DTqkWsa0q7lQ0LMrTCCcBiTefVIf3Lkxcavj3SBhGgDLqyhk50Hh2ZacthIq
CFiU3lB/y4PJVbbv9ayp8ICraGY1kBdF4xq+J1MowDajs/24IR+KSdQuOItR
YLSs+Jn4LD+mUs02fng1CDVOChOFoxuRVFKlQDo4COJ2xGWj2U2YHrbL8MrQ
ANT/oh/niyeilNl7297IAQh+UO4VskUAM3n0vY0lB8AIE9x9fgigTHvZ5czy
fhgLWpOHGEHMztC8v2bXD8lRpqsv7db/8g8n688dZNhk9PQkWVMY9560C4ni
JUNCc2xlpKII7puxzrI07YMeNrrdTX1R3B9rUb8h9DdkT0zIfji9GQ+QjGfr
CnqhLGmjkn6VGNq+MJC909cDR6pT7Z5ZkPCwqZaNrVAPLBpZmzMIkujQpnqR
uO8XpDysnJxglUan0wpPW692w7L92b03NGQx/kJw3MO3XdAsUPuwIk4OP139
ct5+vBPafhtryKgo4GSskLOgcicwhEsqh+W2oGKi1+5Wjw7I+uRXseOxMrpk
vt7yMOUnZIXd2/CoQg1vF7Dx27e0w8qSW1k3RROr3hyZEeBph8XGSA3ZIzrI
hNyeFvM2cDHrv7ozyQCVGqarE660wmjfLTudCGM82mFRePhNC3z+99mQpYcl
jpIvj6bebgHC/5c1/g8L4pcy
         "]], LineBox[CompressedData["
1:eJwdlHc4FX4bxs3M7C3lIBlRnFJGvk/DKlpUfpRynPyshEqyelsqI2SliJNR
RiUzki8Zx0pyDocce1Mie7+9731d93Vfn3/u67meP24C6erpy2wsLCzMv/5f
spZRZF0JXzHL/2UGhVveXFBIbsDvhJfjH+0F2Eo03flKuB5LuN4m21D3wQOz
0WXCvVrs19uepP9JG35efFRHma3Bv1Nv2lMZmmDprfKM4FiNXdq5nWvV1KAk
tNaRwqjE3Wy3ho7nKAMhxWkvwewL5gyo61jeUIRHxdwclJJyjPCs0EonAbqT
TqUdtC7DdzhS1y/IycPbxshDB/U/YYYHp221lRz4LX3vga0fcVeExKu0fhkw
UxYJANYCnB/exNRukAJJy9MyMPgBZ6hEzwqsSkDDhtLV20/eYpWmXTfu/CsO
Tv+kZQRavcYnby7li7OLAUfe9sEAGQr2MXTRyqkRAZA2P7BcHoNvO5dVTmYJ
w9SzePJ0/F0sNmavX/xWCPzZoquN9zsjvxtbNAbDBUHzuQNVTCccxb47L+Y7
uRm6pT9M8gkmIEcT4xMZnvxgSWwvDTqYiq65ki+0ivFBYce5uw/9MpHiziBh
eToPbC6fUKyyyUGSRiu5R7K5wdPRdawquhDJCtHjSAmb4JWuunn1h2JUNzoS
8Os9J9D5J95VN5Uiy+OcyWdoHLCpN1O4ZgIj2U0hoYKcHJDwz149h/sVaIov
LKTiMDvsPRzjOiBSiWp7f/EaPGGDpp1zCQ6UKqRcVEy6NsAKLCwFGw5lVBSO
1HxuZ7JA/JiY1qB5HZIr9CbWyLCANu06idxZj0ZY/zU9vn0DkdP3VJMXv6JD
rmKsPzTW0Fp49Pxg0De0KNwiQjmyihoMlqNyg5vR1z2aShGOK4isbFOtLd2C
qpZhjVG7hHbL8nZ79baggsg0o1auJbQmWDKf+5qGXva6Y3RiEcUuSasQdVrR
gSbcZjg3j6iNHcFEy3ZkqV9ZcilyFjn5/KDaqncg9bP55qSVGcSt1Mlxn/0H
8stUMHV1nUFH/ZiB9LxO9CSqNVXj/B80rtz1aTWEiXYI5AgaMadRSEvXohK5
Cz1w2ZO/1X4aNar2eN0Q60EBYyl+Ij5TyK21533izx40K54kWsAzhYLAY55E
6kVSVHNOK8PfaMdPD2KIXh86ZV3UE5rxCzkd9nrbOd6PrDfSCjUax9H++D8N
v88OIMe8hO41hXHE/dtrnL1yAFnF1Z+dCRxDGc+v7dj5YhAZFYVMkI1G0fj0
dYr/sWFUUdRKKdo0jEpM5nBE0TCClZu0if8MoeDEG92piiPIQONlbfn6IFI3
85b9ujKCgiU7e4o5BpFb8s0YuewxZJnGZnhUpx8ZzC/kaUmNo5Ph1h/b6voQ
v7lPi9H9ceR0tuM876U+9HbBR9D9/AS6LxzUxhndiyaP+z4u4/+FIv612lS9
qxuVpS6/bvH5hYhvfS47+XehJ8u+NcODvxBz++QA71cm2pXuxy74eRKlWIIn
9VYn+hhYVvZe5++feK66V621o+SM9a/FblOo/9bAlhXHdvSIbthV+WoKvSuQ
emhCYyBrNbzCEJhGZceMwr/kt6GlVryfZWQa8Sa2FHU+oyM9jYrck3EzyJbS
m71Bb0Z76W2xZXUzyMp5+ITvlWa02++n787VGQR1WYfecDUj5TrJw9z2s2jM
p7Zy5E4TEr3sTsNqcyj75S95l9AG9DNBdlazbB4Jt22Ott5Rg0YOa7UnTM0j
f8mbdSJB1ah/3LiUV3EBvfEXJCuNVKGO/V73hx8uoKMu8adkcipRDb1W7OWp
RfTqyAxj1bYCJfF77908tIRIuZV1gkol6HleiLSf5DIqcTkXXUYoRrE2lLVR
s2XUOdcXXKfwEYW+aayuereM2A7VF37QLEQ+RxTP+vusIFU+bXsRt1x02r/Z
e4JvDfX/ZusT70tHForDNv8YriHvDRkVHr00ZFq/Ykj1WEOrZM1Li3EpyFBq
B1dK6xqK/2Qa6ElKRur5AXE2Seuoql727ZxdNGLzFmeSpVngc8b6rh4vR2xz
KbPl4x4WEEq1dvmkdhPnHkV1/CdZoJ7mpavlfweTtjkX5gexwI0w+ZAE8TD8
pbY0gmOWBczFi0N7cTy+J0s2Sm1iBQ5zceEbtq8xk3NJf3GMFajZVaWFz9/g
PVNh2uacbKD1Oqk9oi0DD1YVbZvVZwPWjINPjI5k4yPufMuHM9jgpqVgQqR/
DuaoyH03cI8dFpMZKblj+fh8lknaviR2OOchG8vn+XfHY5gvQkrYIdKYR1xo
oQCTXTY9Jk6zw3kxkfhdG4W4WtTG4Z4dB3icsgk5zlKMgxxZpRR1OYFw3YQ+
VVeKufhP3iFNboKPn4xN5usrsPUOm3IdHi5ouK7zwHe1AmceIm/wKnGBfPUO
sRiNL/j4LZ+AvH+4QDXMwOHpky84djj5Fkc1F3gZl5t8P1aJlSumPdNfcMPN
+nh31/wqbOQdRRo35QW9WIHsACMqjo1MpJQ58ML64QL+FVcqHs1+3fs0kBeG
Om3+7HpKxaEDn+z083lBtDD2VmUXFdNPDtqEbuODnfYZAq89azFZfa+l5jwf
2PQrLbOH1eF7vW2HvVI2g8Sdkpn3sQ24u/jYFZ/SzUDIekm7nNeA9aLKYwNb
N4PCu1MRk98a8JRR5lgwlwCEFZ828eVuxHZZAeEprgKQ9fTp/IObjVjPW6mT
ThSE/TzmeVUWX/ESp26xLEkI3K9Yqlt3NeF0r5mvL92FoM/ucYb8XBO26nnb
T/ATgpJzAluo/N9wzkcFfpVoISg72szyXv8bdnTlv7inRgh8Ly6F/4n7hunN
PRwWasJg4qpocGh7M855EXQy8I8wWJRv4atpbMYNokEjgiwicDSTfziZ0YyH
Qx4EUjaLQMJDsWNu/c14i//97CoVEdCzaNZpXWjGj87f5ea7KAIc3lFSM4Tv
+JJcYHlcgwg4Wkqy+l77joWSbuz+kCoKSof6Uvz4W7C65A3qoVxReOEnokoR
b8HG4dft6FgUkp4yi0q2tmD/29dCF36IAndw8on63S149KLn6AFhMXByvjd6
waoFl8tfSa4PEIMJlrVNLvEt+OorstDgWXFo5fyokyZLw09uxSc8cRCHkWzq
uSkFGn53sklF10Mcug2GDIhqNDy5vu/gk8fioGXVEpy8n4bdbPm89peKA/Ou
c57MGRp2EculhRIkgOKrVv0slIYdgzZi9/6UAOP1thci8zQcdGGPYu+iBKxo
RLNdXaXh9D3O74M5JWHsm2B+FRsdD/W3UHu2SsLuZw8J5wXpmIzSFx+fkgSp
yFAzAxU6Ji2a23QXSkJMWHxyvTUd27k8l3t4Rwr2Sr4ctC+g45UOnqbpMClI
Obvq1l1Cx8/MbgWefy4Fpee4U86U0/F3FeserTwpMFlg37engY6PjIhTmINS
kBljRMvtpWNVcqSStqk0mAsUWJbytuLZC4/UuwRkwG72OknLthU/PuWtS0yQ
hfQQ+jn23634aaOaW3aGLPDTJfLKZlpxgknPy+1FsuAvGZ94Y7EV5xww5ZBq
kYUPica6baxtuF1V5tsq1xbYQ5Hb5yDWhlXYysg117ZASR0l6MP+NlyTyxnx
zzE50Fa8IGES2IY5xGKGby9vBfnKT/nX1tuwyGSggAjXNqD25aSssjIwodZJ
J1V0GwQ32X69y8nAhv4GQbU7t4FLWHNXED8D3xoc2C58cRtcvM1j4S7DwJP5
2pdfVW4DxsXdip/3MvBPtVFPkrE8MPaZZV11YWBGw4Op+4IEOODlv1rRyMDR
holGZyQI0O86cfT3NwY+/SH/+XY5AijNyCrJ0Bi4KXbgSI0aAe4OEO46dTBw
jf3BeC5jAiRT3PVHhxi4cGH1YLA/AWZTA3i91xk4VvF6VPgYAXYP+f+nS6Md
n/Ej6TyvVADduIxaUlA7duObUGiyUYKoinrPc1IdeFtWTeym8e1gMzprYxnV
gf0+HrYUfLEDUp5ig9JNP7BHuluhzi5VkE+6XfOJ/APzs+0jaQ6pQUdbuN2F
sh/Y6IpVjFrUTihmxTRp/k4sVSx31UhJE1Z6OxiT5p34qdejyN2MXbDTVa+G
ENqJTwed0Egs3A1Yb5nhWtGJ1Wzvn0kN0AJfg9NNPNOduG2Y51XUGW2wyzIs
1pJn4ibS0EGRbUSgd62pBJoycR/H68UYBSJECs9nqpkx8Wy603tpZSLYB7lN
tv1l6YmJLQQNInweti3RPMbE5Gt/FnbpE6FccM6504KJl+9tvLU4R4QIFmMj
VUsmVk6TlnkcToQjnzW/x11gYl2Tzmb+KCJ4Nw99MbBjYvOxhIcRsUT4Faru
2/eXPTXk5+ISiaAq1qOrdomJSwuUm9OziHBF1Ji1mMTEp2uIQVVUImx9VF/f
8C8TX3aaMzBtIIK5c53iFScm9uEtmmloIgLl2oEjAs5MnHhcz57WSoRTn1c6
T7gw8WgbGPQPEKHxPZ9Ls9vfe33YZi6PECFpYZLV4woTb5atyhgbJ8KBSm2S
oDsTa180kZye/tsncNLf4ioTG7HyNF2fI8JxDwedn3/ZOqX+/uIiEQqljxUH
ezCxi1Govv8qEeLqFDlVPZk4YMTiz8YGEbAarwz1L/8X8O3LUg==
         "]], 
        LineBox[{{-0.24345590852684354`, -50.}, {-0.24143429095680452`, 
         50.}}]},
       InterpretationBox[
       "\"y = \\!\\(TraditionalForm\\`\\(4 - \\(\\(2\\\\ \
x\\)\\)\\)\\/\\(\\(\\(4\\\\ x\\)\\) + 1\\)\\)\"", 
        StringForm[
        "`1` = `2`", "y", (4 - 2 $CellContext`x)/(1 + 4 $CellContext`x)], 
        Editable -> False]],
      Annotation[#, 
       StringForm[
       "`1` = `2`", "y", (4 - 2 $CellContext`x)/(1 + 4 $CellContext`x)], 
       "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     LineBox[NCache[{{Rational[-1, 4], -100}, {
        Rational[-1, 4], 100}}, {{-0.25, -100}, {-0.25, 100}}]]}},
   AspectRatio->Automatic,
   Axes->True,
   Frame->False,
   GridLines->FrontEndValueCache[
    analyse`grids, {{-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 
     5.}, {-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 5.}}],
   GridLinesStyle->Directive[
     GrayLevel[0.85], 
     Dashing[{0, Small}]],
   PlotLabel->None,
   PlotRange->{{-5, 5}, {-5, 5}},
   Prolog->{{
      GrayLevel[0.], 
      AbsoluteThickness[0.25], 
      ArrowBox[{{-5., 0.}, {5., 0.}}]}, {
      GrayLevel[0.], 
      AbsoluteThickness[0.25], 
      ArrowBox[{{0., -5.}, {0., 5.}}]}},
   Ticks->FrontEndValueCache[analyse`ticks, {{{-5., 
        FormBox[
         RowBox[{"-", "5"}], TraditionalForm]}, {-4., 
        FormBox[
         RowBox[{"-", "4"}], TraditionalForm]}, {-3., 
        FormBox[
         RowBox[{"-", "3"}], TraditionalForm]}, {-2., 
        FormBox[
         RowBox[{"-", "2"}], TraditionalForm]}, {-1., 
        FormBox[
         RowBox[{"-", "1"}], TraditionalForm]}, {0., 
        FormBox["0", TraditionalForm]}, {1., 
        FormBox["1", TraditionalForm]}, {2., 
        FormBox["2", TraditionalForm]}, {3., 
        FormBox["3", TraditionalForm]}, {4., 
        FormBox["4", TraditionalForm]}, {5., 
        FormBox["5", TraditionalForm]}}, {{-5., 
        FormBox[
         RowBox[{"-", "5"}], TraditionalForm]}, {-4., 
        FormBox[
         RowBox[{"-", "4"}], TraditionalForm]}, {-3., 
        FormBox[
         RowBox[{"-", "3"}], TraditionalForm]}, {-2., 
        FormBox[
         RowBox[{"-", "2"}], TraditionalForm]}, {-1., 
        FormBox[
         RowBox[{"-", "1"}], TraditionalForm]}, {0., 
        FormBox["0", TraditionalForm]}, {1., 
        FormBox["1", TraditionalForm]}, {2., 
        FormBox["2", TraditionalForm]}, {3., 
        FormBox["3", TraditionalForm]}, {4., 
        FormBox["4", TraditionalForm]}, {5., 
        FormBox["5", TraditionalForm]}}}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.485916200761592*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{356, Automatic}, {Automatic, 125}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"stylemath.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 107, 1, 44, "Section"],
Cell[CellGroupData[{
Cell[699, 27, 399, 11, 44, "Print"],
Cell[1101, 40, 215, 5, 24, "Print"],
Cell[1319, 47, 656, 17, 43, "Print"],
Cell[1978, 66, 444, 13, 44, "Print"],
Cell[2425, 81, 194, 5, 24, "Print"],
Cell[2622, 88, 530, 17, 72, "Print"],
Cell[3155, 107, 205, 5, 24, "Print"],
Cell[3363, 114, 3225, 51, 112, "Print"],
Cell[6591, 167, 328, 7, 43, "Print"],
Cell[6922, 176, 737, 15, 44, "Print"],
Cell[7662, 193, 685, 14, 44, "Print"],
Cell[8350, 209, 398, 10, 43, "Print"],
Cell[8751, 221, 209, 5, 24, "Print"],
Cell[8963, 228, 574, 12, 24, "Print"],
Cell[9540, 242, 270, 6, 24, "Print"],
Cell[9813, 250, 197, 5, 24, "Print"],
Cell[10013, 257, 418, 12, 48, "Print"],
Cell[10434, 271, 746, 25, 106, "Print"],
Cell[11183, 298, 200, 5, 24, "Print"],
Cell[11386, 305, 398, 11, 48, "Print"],
Cell[11787, 318, 724, 24, 106, "Print"],
Cell[12514, 344, 214, 5, 24, "Print"],
Cell[12731, 351, 1176, 32, 144, "Print"],
Cell[13910, 385, 195, 5, 24, "Print"]
}, Open  ]],
Cell[14120, 393, 13339, 261, 378, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)