(* 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[     27878,        671]
NotebookOptionsPosition[     26583,        629]
NotebookOutlinePosition[     26927,        644]
CellTagsIndexPosition[     26884,        641]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Etude de fonction 06", "Section",
 CellChangeTimes->{{3.485916307637415*^9, 3.485916311573764*^9}}],

Cell[CellGroupData[{

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  StyleBox["\<\"4. Intersection avec les axes\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485916299191761*^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.4859162992156477`*^9}],

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 1}, {20, 1}}],
       RowBox[{"y", "\[LongEqual]", "1"}]],
      Annotation[#, $CellContext`y == 1, "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 1}, {20, 1}}],
       RowBox[{"y", "\[LongEqual]", "1"}]],
      Annotation[#, $CellContext`y == 1, "Tooltip"]& ]}, {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0, 0, 
         NCache[
          Rational[2, 3], 0.6666666666666666]], Thickness[Medium], 
        LineBox[CompressedData["
1:eJwdkAc0F34Xxu1sPzMjQsooW0bhZoS0FKU38hdRhBRRSqmklCQkKeVPyUqJ
VJTvJZsiUVZGP/O3GvZ+ve895zn3fM49z3Oec5U8Tuz14mBjYxtc1v92+PDO
v0tL+riiiqvYv4sFQ+ekJrrm9XH+ZECw6TLvovROvZnRR5koUBZYZkWTwIUT
Y/p4efvk9qxOFlTciOftG9LHyp913/o7WMCr9V0BP+njRvWEij3tLEgMdt8e
8UAf90fVvVZpY0Eue9ATNiN9jLqWIHL3Mwu4vWz1ZA7p4ZstmiZ7CAvE26v8
0u/oYpmwo/+jFyzY+zHFU71eBwtPRJlnP2LBuV9mfnFUbWSojccZ32DB29AU
3xe7tVCnqaKKGrzcN36f4uL9DagxPZn5/SALbFM/7LJjaGB3nOfzV2YsyKw5
+y3IRR3Pm6mLpSmwwC0yUbIpSxWFFgtCCqaYcMGdM19AfB1+PX9ti/4nJrxs
so1tFVyHlqw19RcamfDTPCYglWcdBor39dY1MMFGXlJbe3YtNtCnnrvVM0G4
c93Lvf1rUWPHttrLNUx45Gj/6v6LtahTmx1XVM4EYnOnWHXHWizWSdQofc0E
Ns3VxOqqCr7yrtE1fsiE81IWblcvqKBom3e1wwMmTC15LFSHqmBl8YvcYylM
YLVkbrb3VcEldwWvpGQmdJ3ReuuwWwV/7XUIH01kQnGlWcEhGRUsbReI9b/F
BH9X14zQ52vwD9ZsHQ5nQufN+9dy25SRdvqRhL8rE75WKea5Nymj35k59HJh
QuPSs2bJOmU8n4aPDx1kQllQsUzEe2WUdvrw2/4AE9JdvuY6ZSgje25FlZwT
E3zXCzUvBCpj6VrK4bvbmTBXHyHtIKiMvoYHdPtNmDDOxWvGzaOMv9dtMSkz
Xu5vfvtwyZISdnxy3JtixIS+V6k5KmNKeNDao3D3RiZUppSYznQooQuXP+WF
DhNifMfd058poUW9kwaoMmEV/7HscUsltHRcEH0ozgS3ssYYZVMlzNNveW4m
xoR/T+kGOmxUwhPqY2w9FCas65o1zFNVwgmP9ipZYSZo592q9BRUwsi6rKRI
XiZY7irsbWlTRNO4qLyVCwzwiV+ULDimiKzWtU81BxmQZ+M503NYESuLfh9O
pzKANVvTLeiiiDrh3xMlfzLglOedjGM7FfFswHvHqR4GnDdQ0VXUU0S5dOPx
Z+0MUHiekKwwtRoPOHenlzYw4PhGDe6uVauxs/9EecrLZT/3u2chIqtxA//e
zP58BoS12dqLcazGlWN8ZN1zBtw47XV727ACXh3Pj8jNZkDO6zSZtwUKKKhy
fPxROgNGN67UumujgP8ed+VZn8iAo4ZczrsD5dEvSR3LTzMggCdhhuYhj/xz
5lp1QQwI+ab0MGqfPDq8Mff5fJIBUSHQ/2GTPO7y0jNq8WdAZnHY8Q3c8njg
6o26Mi8GDBr+uciXsgqNQ2+7q+1jgKdRT9bHj3LIlv3OQFGPAd5ZRvtt3sjh
jKdoLZsOA3xl7nDW5cjhzhWP53o0GRA4Z+X2+Y4cGoe46CeqL/+HZIt3/COH
Iob/CepXZECi7ekLrDlZvNqeFMUpwoBqZ0EnGQNZ7K5OOWUzSoe6Wi/2h6qy
mBLPn9gyRIdGE5KvICeLC60hFS4DdGiRO8WnwiGLg/epOl69dOjt/V6m1SyD
DJ6YUsc2OkwfzVC39pNBG8bdeylIB40zm5YCnkijDXk+/CSRDvhjlwY1SRph
RTB39B067Lfy3OccLY0jkW54LJYOl4VjciFAGuVD7Udkr9Oh48kPZ4qxNG5i
2k/YnaPD9S8RLwsaVqIP8d/10Z0OQxo1h8f/SqGZAp1vUJUO5+O6Yo4NSmF4
OudNNRU6iE3+etP9XQr91NWsvRXpYF4uLVz1XgpZvklqzdJ0uOvsW3I3Sgpl
Q8oNXfnoYB0pJG4kK4UxWmGldqM0+PeHY+VZC0msVsujcj6hgd6A3myrgSQe
FJHgJY9pUEkT1dFRk8T5fZwHgx7QYGiq6cGQsCSatj+xromngYbYjiDHbgks
/RnkKnuJBq9srJU1QyXQictAxs112f/CIKIvTxw3bHgn+lWQBvuKxYs3p4nj
ik8xqbdXLOe9/0tPShDH2d8yXyw5aMBb/9J5Z5g47rdY0xAzNQo7BzZol9iK
Y2+0h0le/yh8k17bk/BTDOM9owzZi0Zh+JKkqa20GB6hy7pqO4wCf/iLXwn8
Ymgj4vdjxm4UtM5sy+ibF8Xg7PyKIotRCAkI5w/rF8W3TpcYs3qjwOMy2J6X
s3ynzIxVSIyCisHr02Jmoniyb/YopW0E7LR3q/+jLYrqngpbahpHwE9jtDtX
SRTFvKc7fCtHoEhR3norjyhqLxlYhxaOgJXQVbEzTRRcukPbmho3Ah5DTi9+
HKagbCu3UrfNCET1szw0nChY/yr9vqnZCOR0X5cKtaFgbbn4TKT+CPxteR9O
WU/BSwV1iw2rR4Dj4rbkqBERtN71rkxtahhAd/TLHiERXCV6e8fHtGGIUpU3
of8RxoO013ZBd4fhs/yetMhvwtjH/HOd68YwuPG/C3jzeJm5d3TVnhqG89Tr
AvJ6wjiwNc6x3nIYSu6qbR3ZL4Q/I+LY9buHgNdl2JPdVAgFJ97NjX8egv2K
mZdllYTQ0KjQLa58CP7mrMEddEE80RxT5JA5BOqosLngoiDq9lMlBvyHIJkm
oRuWJYB9j72acsYHYejF190JtwSwdZ2dZ87AIBicjg/IOyWAYWd2Z4e0DkLT
kkhej6kAehs6HzlZOAg8kgKqVl/4cVGJ3tYSMAingV1ecJYPE/3fTth2DkAF
F25e28uHKBr9K7Z6ACj1Fw6aV/Jh8iZMv/1qAPKc5u8FxvLhLJRZvI0egAGf
KbE2ZT6s7viyI8xgAPS0i3VZK/hw5egTC0+FAYgYD3ZYweTF35lR3dMrBkDu
4t9bJm94kYOuG63cSYW9iUzeR9t5kbG4TcU4jApp/8lTfaPDi/MOvAK7D1OB
pXDcplmSF2MKGkU47KhwI3vkCkffCswFPZqeBBXKy6iL3sEr8Kt9UtmZZz9B
Z7RjXDuVB9NUk15S3vRD8G9N9ZWRPOiaK7SjKbkf3k5dOrToy4O1tJ15gmH9
YMGjUd1ozIPO/ZwJk5v6Ye+asHs+rdzYbtJ2VKW4D5I0Pjc4lHIjFOZuD03o
gy5dZTbjdG5UFWgIWx/YB0e21B/jCeRGx1Y3r0zVPjh9SHZThgA39tRSv9as
6oWSIwEBN/5yod9PTauLjT2weLwi/WQHFx4YzhvPCeuBqDBfgS3PuLAlYHWE
TssPSL5X0t1tyYWruDhMEvy6ofuRsGilOhfSfK7djBXuBsVMj625FC4UjqaT
hPwuyC7izz/bw4kVLm9Tz410QsmXgxelwjixOS+x47tFByy25xcuuHNiIGqI
mLW0g2Ufx8iALSfab4TJle7t0MDKcSiU5ESbscapr0HfoVtgTsmhgAPVHvGG
5pxpA0Xx3fuNkjkwXtJ9M9/fVvCSzbihcJEDBb9fHeM91goste1jjB0caIly
4L3tKyxtfVAZPcKOaJkcEPejGax3/poObGLHyjNdi9NGzXDdyUrzQDE7BodI
vb8p1wQUT/rddZHsOKIW1X5lXyM4+UK90HF2lPjdS+Wl1sP9kwmL43vYcXy2
kC/Dqw6UIzYf/biaHd0dXoTK2FWD97XbD3J42NFV9HU0NbMScmKpTXeYbNh4
0VEkdboC9FNvGruXsqHiU71LuQNlYF3Sxbewnw0DdcNWF+XkQ37OU5OazWzY
rCf/beHsU5B+cMLnjiIb9r1MPOTedQ++TfHEb29dIhG3VDuGn8WRnPaUP72p
S6Svack0XjKDXHintSf46BJxjxe6HLg9n6w9t5+SOrtI+rKsS/fJlJJpF9oJ
3cpFQrEZfW33AUmj6YWmqluL5MD7XfKx4pUkePFpLEtxkRhvjzs+t7mB2PWa
sC7TFkjgd5GDNhJNRA4/7VxZtEDy1vxrbnf7C6m4NCG4xXaBsBVmTdxjtJEk
j2i/VsoCOU+ZMHTc1k58rOQbj3XOk2OxIZZQ20lMVQrWL2TMk2AVWHT2+0Eo
3Ftv3vGfJ/VP954IW9VHBgbbaWuN5oleneRVenI/eVvtZ1/CNk8m275Jp2pS
yT/XE/moCXMka70NX072ENHzUfMJPTRHHCbLuDuSRgiP/ftaAdU54lZpcZSS
RSOdGg5qab9niavvtwCffgbJFxi4ZlAySxZ7zKvSbX+Ry4zQ4dors6T6YaKB
0u/fZN8nAdtDO2dJRUS0et+Bv0Qt/3HmH6lZ4v3ExLqnf4zMx+rzRPXNEIVH
flrptydI84kaL9mcGeLqIiSYdHSKZDi4VOUHzRC3/nlty8AZEqL7S8XKbIY0
C1yYTymYI/ZiVyK/88yQ697ns3w2LhKFMamB483TRFgmvIh5hQ3/fs2xYkuZ
Jhc50VRlFQdWF5lnJHpOk2mH4FWqTE68f7eFQ11zmhQbbaAXcvKgX4i3x4fJ
KaLwPCIhM5AXtzjPlu/BKfJ5pXtjrb0AShjHKg1FT5Ey3VNpzwuEcURa+VKY
4xRJ+sh5T8dHFN/PvO4Tlp8iyV+usJdMiePtzm1bMoYmSe3b13x1RivRo/TH
Y6OXk2Rf+UQR7bwcGj48udRwdpKwvf8065+niPzh3P+4W00Sx9dmhbv/qOCP
Q/fLxgUnyQWrAwcWPqzHl+aaCtHfJoiWwaMjV5QNMHJ1ebh82gTRYxeOYJVb
4FgabxVf8gRh+/9sw/8CioZRhQ==
         "]], LineBox[CompressedData["
1:eJwd1Xc81e/7B/Bjb5llFSLZyYloXTc+VlQ0rZBRQrKzZSQtkmwJSR+VUSRK
3vZOVmSlj73SeZ9zHDO+5/e7H4/7cT+ej9f1z3Xdf1zSDjfPOjMSCIRp+v2/
96WpwfBPvmWM8P/HGBHqQjKHNqmYv8X+Hx9HAPXm8m16NFExRa+4oUnxQyg/
Ks+a6TEVszfnfeVVqIKCnLQ+p1hSsaoasy9V7/aj0/odYsoyVKzLt1M6rl8G
7ZWzD6pZpGAPm/3krfZJIxordfB8OQVzyC550Wm+B7XO3NWeC6dg1HIF55J/
xFFmi3haqDE9d2yZGx0UQZ4Fxav8ghRMZjh8O3piJ1Lj9YjS/UXG/D9676fa
CCPcW5nXp5CM1Yt96q3nE0LvB+ZTXwSRsV+++W5NZAHkfaxAps+QjFGdZXav
rfEjYs61ImZhMvbFMNLhoSQ/orLIaWuM41jVjrc0HVs+VOY6We9cjGNiPnGX
tx13IL9vuaeTQ3CMJtd8jP0AL9I8dGWwyRjHfnvv6XcQ4UG0VEmnlZ045kzo
3dUpzo3K/44u7Z8kYeW1I0/bNbjQLYfMQIt3JGxvDsuUnyMn0mq2Yr4XRsKy
pe31ruRyoFUl0fhKExKmSR5JiSKxI8q8krFGxx/M1zNuT10pG/It+9c2+eof
bEvSV1lSjg3RQvf5rhD+YJwfFG5K5bKiW4a59ywylrD7y+nKPXKsaJVP8nml
xhKWFTH02a6UBQUOZZSJdf3Gcrb5KnkNWdD6C5G2YNffmL6Aws6j/zGjTU2B
5ePPFzFyu67vDzlmFEqI53yuvYgRpNg8L3Yzoa1WLilC3wJWEhmUee02E2K4
zGJSx76AdcvXv/w5z4gi5SLtZV7MY54GzIr/vmREzKQtv+jj85hcFRdXmyMj
Yo1azTbwnsNaX1sTFOcY0F1Tv/JX3HNYc7TSxlYxA2LfSW5nfzWLfb1QTrYI
ZECcBQu0tuEZLKnYMnRVgAE98HbhVvafwbwrOfqo4wTEfWxK+hHfDPbXJm17
vIyAdnz7aXpGfxp7ZBX/WMqWgB6nWjuUjE1hUmqK9kc1CEjA4cct/qAprPJa
usdPHgISWu7O7S2axNxejCV2xWyDiHjj6iWRCSx4qdmWL3gL0iZ1eCvfj2Nx
tB3mb45vgVhRtYzYqXGs/7joFQPGLditU3F6JOI/LDj0w6R4wl/Q67xoXNs/
htUt615aqtsEgytmvlFcY1i5ik/H/sRNMKIaP9dHPzGLuyXdtU6bYCp2fLm1
YATj/k/ecIRrEy5elcnpCRnEmH9uMGi5bMB9L5/YJx9+YMmrlTqfdDfgS0j9
zbNLA1jHx9qeA3s2QDbR8USPXT+mnqTc1TWwDmTsxXC3bi8mEZFiw3JhHeTa
KXUJwT3YhHVdu7bmOlj26702L+vGzlaHl8iIrEPN4kRA974ujFc71Xp7dA32
EI2Uc/nbsCce0lHaXmtwx3h2XTqqBfsdXdwYdGkNFu1iW3OoTRihqRY3OLEG
nx62XM0ZqMfM1iV7PHjWoLAjQVfn6GdMpFW259G7VSClpjnhaZFYgAeJwsW7
CiGMTxsNtK4DwTv7mNHGCqimOzYLacYD7twrPzy7AueIP6pidPLg8qJ0+UbD
CnhddZtreFoOy1ho8sLtFcjVVjJtfFcJZvxHT2d7rkAf90JRY2cVMM+GHsyw
X4FMS40jjtG1cNHBP8pGZwUIhA/bjtXNcERm4f0YywqkzQkdnDRthSeZpWUp
KzRQ7/V1cBpug19TJhfvzdHAKf9Qo9PqV9BTCRcX6qRbzqpRXbQHGn9VOuSl
0aC5Y/A+8dwPSCSYppdq08AlYKjZWmkQXPpPSMao0IBddpg5mmkIWnQFF+9K
0+Bk8EhYX+kwBFlekxLmpEGHwpi3n9AYFPxOZzgyugwuet6Fw/PjoPfKW2Dq
/jJopZHb/1ycgLsaN6aPRiwD+x/veab6CRgUKVcpu7UMBek++5UzJiHv/AMX
VudlmMd9c0JMpoEnRatVUmcZ3LNvJe1+OwclSzbEl1tUOEZbKT0oMg9iAeIe
7TQqcJsG9OhHz4PtH3U1zj9UKFwJ2OFhswC+QbLR38aosHQ66F41928wPjz8
9EYdFSrCqquLNUlwt4SYl/2ACtkFW18r3UkgwSWhK3mHCrF9J0brc0ngnBLh
VBJGBQtFbGOAF4c69c2/7N5UWPuOaRFmcHBx9Tn/wJIKR1Rq35ulUOD4pJtc
qhIVNPr6k6tbKXD9RN5MkBwV1IIXg5Q3KWB164usqzQV5Fp36bFfoYJbtt/l
G7uoIOjs0YspLsNhDg1mRmYqLGaKU1WraRA54BqPxigwo3fwRyaJBpdUrYIG
higwPm9QxSmzAncOcV8N6KfAoJZ39PTdFVjzb68Y+EqBpr4WoSzzVYh2GPjM
/oUCz7n9NXim1sCIkBgh+owC6aUPRIN3rYPqNGunThoFkq1y/s4ar8OU/vBx
7yQKPPy3o7GhaB3y3IWkFx5RIOAfmYshARvArUKAI+EUOBvS5b/A9ReUCoNd
tB0pwOgvPOIkSkD2lbObCmr0Pu1f91QcIqCTSZe3FpQp8P4ktHKbEVB5qW5C
mQIFHCSvl5fFEFC4uryEpQwF6lqqHjNTCQh35i38vZMCUeJO+nmdDKgsy3f8
0DYZmGvfF01EMaH+5+VGbb1ksHlj+PLwcybE4c514ng3GcqSRjIefGJChx69
ai3rJIOTK+s9Is6ERscee79rJUOjoJVjlC0zenovs2oMI0PMVQYRGW0W5BWY
rcdaSAY2brMIhyVWxH5uC4j3yWCx36pGk4MNjfnw/KsSS4bXuk7bnLJsqKgr
S18phgynAwNCSy3ZkP+hOUa1SDIkT2cHMjfSc5+SctsgMsjV4l75GewoODG9
+6QbGfT9Ex3mjTiRRWLqbbUz9PqEZznV9D1JOdwXGH2KDLNvX/16EsaJfDPE
RodMyPBw4rPt0TJOlKe60RFnRIY+s0mrh5JcaOxScb2ALr0/JY1zqjQuZH/e
uiVGgwxRv/r1vF/wICcP47Lt3WT4WWlyI6CKB20F3mcskSDDkcSa5LDvPGiI
kP3nijgZSPqv5+6z8SLZR+fS20TIYPsmNP6FGy8Kb6kdKxKk1/vLDvcRd6DJ
osmSGg4yrLFoV4o78KF12h8KjYZDvjfla5YHH+J8Pdj9fRmH82OF49LBfIjk
5bnxgYpDScVebvmnfGgyvkE+iIzDVTduu0NNfMjw8UYR/xIOfV1jzKcU+dHp
7+oJwVP0+owYszAyP7KR1xtQ/o5Du2DMzA6CALoxUcso0YfD9IM7YTk8Ash2
14Ardy8OEiHRbxvkBVBhofosqQuHWJtIdi47ARRaVGvT0oGD/e6wmpR2AZRx
xN65uAEHvud+au/yBFG6Tv8zsw84KO3ya9Z9L4jaRLEHjmU4GMT72vZhgqiq
Yl/QrVIcQsJ9Hq4MCSIzI7J57jscZu28Zo/zC6FgK2oNUxEONVI3sttChdDu
a1Rdaj4ON3Od+CYvCqNK87CiiDQc4gLTMuMchZHw7FAilopDkVmnvLanMHIq
GFfbSsFhaeuwTtw9YcRYM/koNBkHd2sub60qYXRB/MPH6EQcXIXe9z6U3okm
C3JJpY/o84vZTtZY3ImoCTLR8ZE42Lqm774bIYI0Z1s+cnvgsDHI0Yk/EkGR
JfN5vjdwSDUODLNJF0F+dkS+UXccuuUtxg6WiiCRp822xW44/DMjnDMyKYL6
Y3e2W17HQcEpQVbdSBRlX7K1aXTCgXo5VmmUVwz9tiL4UKxxuGfur03MFEcv
E1B9nAkOTzoU3d8WiKNFM0d7NrozDcey9n0UR6m1c263T9L/87gRs0iPOKJe
YevwMcbhh4LYt002CXT1x2aOnSEO8ozVTk0+EqiUokM00cOh6T3LY0uT3ej1
tFKsx1EcmIWSpsPX96BjZ91PfFXGQWApjFeATRKNi1aAM93SLS6aeYKSyNq2
N/avEg4nQo7FtChLooaXZ3BVugMnJ/bx20kijSsWgkkK9HmXqTvn1kui2ahP
Nh5yOCwqzno5GEihoWffpc5J4TDQfocUvUMaYbelPQeEcLgQ7KCZXr8XOZ3I
ku7fIoE718LeTitZlJl8PfHIbxJIvmlKZp3fh/YM8Jer/CRBcIXeuR0Z+5Fq
d/arsW8k8Mx3L9c8oIBUGbLldjWQgJvxsIPqlCJSujPDXF1BAv0b55MUE5VR
90vLy9+KSCBSufumvqwqMmvrVfPPJ8ET79gEtYEDqD6SXeGfLBKcjTmj8qxc
DZUtRn48k0ICRevoC3mhB9FflYqpHQkk6J/myE28oI4U0xWPDtwnQafDlI6A
JBER9X/fD79Dgv+YX60m7SUiR6/hLBe6qfkuxaJyRBRy7dUnc7pFFxYkpFWI
yCe6hUOWbicf8sqBo0Tk+181S2s0CdajtgtPXaLn0gQvIbrlXoqK3YsnomMH
I9ZKIkmgbTjcxZ1IRHX4HYYMuk3nMu8+TiYik4OLfHfo9lKRWk55RkQR5p36
lnRXfZDryn9DRFZZEWyMdJ9tIsY0NBPRm8+eM+cj6HvXZfmYUTsRPa7rcwS6
Azg/Uto7iahk2W5Gge5np49c6f1ORM7Zo0zbt0kw24+OjU8QkUSbwJMCutcD
GCnOM0RUMGlq+JRuHvGGgrl5IhKZTWAKp1vdznAXjhORVplqwnm69Rk4On2X
iWjjbrgD0G3xoi16dZWIqq2+HlGk21X/4dGQTSKq/ygkJkx36Mwp8vY2ESUq
nyUQ6P4fddkc2Q==
         "]], 
        LineBox[{{-1.3331513576381524`, -50.}, {-1.3269510743381852`, 50.}}]},
       
       InterpretationBox[
       "\"y = \\!\\(TraditionalForm\\`\\(1 + 2\\/\\(\\(\\(3\\\\ x\\)\\) + \
4\\)\\)\\)\"", 
        StringForm["`1` = `2`", "y", 1 + 2/(4 + 3 $CellContext`x)], Editable -> 
        False]],
      Annotation[#, 
       StringForm["`1` = `2`", "y", 1 + 2/(4 + 3 $CellContext`x)], 
       "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     LineBox[NCache[{{Rational[-4, 3], -100}, {
        Rational[-4, 3], 
         100}}, {{-1.3333333333333333`, -100}, {-1.3333333333333333`, 
         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.4859163011570463`*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{421, Automatic}, {Automatic, 142}},
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, 105, 1, 44, "Section"],
Cell[CellGroupData[{
Cell[697, 27, 355, 10, 44, "Print"],
Cell[1055, 39, 213, 5, 24, "Print"],
Cell[1271, 46, 658, 17, 44, "Print"],
Cell[1932, 65, 398, 11, 44, "Print"],
Cell[2333, 78, 194, 5, 24, "Print"],
Cell[2530, 85, 525, 17, 72, "Print"],
Cell[3058, 104, 207, 5, 24, "Print"],
Cell[3268, 111, 2963, 46, 114, "Print"],
Cell[6234, 159, 328, 7, 44, "Print"],
Cell[6565, 168, 642, 12, 44, "Print"],
Cell[7210, 182, 590, 11, 44, "Print"],
Cell[7803, 195, 338, 8, 24, "Print"],
Cell[8144, 205, 210, 5, 24, "Print"],
Cell[8357, 212, 596, 12, 24, "Print"],
Cell[8956, 226, 294, 7, 43, "Print"],
Cell[9253, 235, 197, 5, 24, "Print"],
Cell[9453, 242, 416, 12, 48, "Print"],
Cell[9872, 256, 721, 24, 106, "Print"],
Cell[10596, 282, 200, 5, 24, "Print"],
Cell[10799, 289, 394, 11, 48, "Print"],
Cell[11196, 302, 694, 23, 106, "Print"],
Cell[11893, 327, 212, 5, 24, "Print"],
Cell[12108, 334, 1026, 26, 138, "Print"],
Cell[13137, 362, 195, 5, 24, "Print"]
}, Open  ]],
Cell[13347, 370, 13220, 256, 378, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)