(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     17979,        639]
NotebookOptionsPosition[     15772,        563]
NotebookOutlinePosition[     16230,        582]
CellTagsIndexPosition[     16187,        579]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Lesson 4 Answers - Polynomials", "Section",
 CellChangeTimes->{
  3.461019212487554*^9, {3.4610193124157667`*^9, 3.461019319964493*^9}, {
   3.461268864065989*^9, 3.461268865627747*^9}, {3.465130327301104*^9, 
   3.465130333026298*^9}}],

Cell[TextData[{
 "1) Use ",
 StyleBox["Apart", "Input"],
 " to find partial fraction expansions for the following:"
}], "Text",
 CellChangeTimes->{{3.460825732570158*^9, 3.460825751888042*^9}, 
   3.460825788394679*^9, {3.460827871566867*^9, 3.460827882120472*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", "a", ")"}], " ", 
  FractionBox["x", 
   RowBox[{
    SuperscriptBox["x", "3"], "+", 
    RowBox[{"5", "x"}], "+", "6"}]]}]], "Input",
 CellChangeTimes->{{3.447766030616967*^9, 3.447766066835527*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Apart", "[", 
  FractionBox["x", 
   RowBox[{
    SuperscriptBox["x", "3"], "+", 
    RowBox[{"5", "x"}], "+", "6"}]], "]"}]], "Input",
 CellChangeTimes->{{3.447766170558778*^9, 3.4477661792226887`*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", 
    RowBox[{"8", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}]}]]}], "+", 
  FractionBox[
   RowBox[{"6", "+", "x"}], 
   RowBox[{"8", " ", 
    RowBox[{"(", 
     RowBox[{"6", "-", "x", "+", 
      SuperscriptBox["x", "2"]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.447766180016617*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", "b", ")"}], " ", 
  FractionBox[
   RowBox[{
    RowBox[{"2", "x"}], "+", "7"}], 
   RowBox[{
    SuperscriptBox["x", "3"], "+", 
    RowBox[{"3", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"3", "x"}], "+", "1"}]]}]], "Input",
 CellChangeTimes->{{3.447766073806622*^9, 3.447766118892311*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Apart", "[", " ", 
  FractionBox[
   RowBox[{
    RowBox[{"2", "x"}], "+", "7"}], 
   RowBox[{
    SuperscriptBox["x", "3"], "+", 
    RowBox[{"3", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"3", "x"}], "+", "1"}]], "]"}]], "Input",
 CellChangeTimes->{{3.447766184357296*^9, 3.4477661913597937`*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{
  FractionBox["5", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], "3"]], "+", 
  FractionBox["2", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.447766192612523*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "2)  How can we extract the \"constant\" term from a polynomial like",
 StyleBox[" ", "Input"],
 StyleBox[Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}], "3"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "y"}], ")"}], "2"]}], TraditionalForm]], "Input"], 
  "Input"],
 "? Warning: The question is ambiguous."
}], "Text",
 CellChangeTimes->{{3.4610048469969378`*^9, 3.461004867227187*^9}, {
  3.4610051745969763`*^9, 3.4610051928344803`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"poly", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], "^", "3"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "y"}], ")"}], "^", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.461004897580017*^9, 3.461004911322681*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "x"}], ")"}], "3"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "y"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.461004913284855*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "If we think of ",
 StyleBox["poly", "Input"],
 " as a polynomial in ",
 StyleBox["x", "Input"],
 " with coefficients that are polynomials in ",
 StyleBox["y", "Input"],
 ", then the constant term is "
}], "Text",
 CellChangeTimes->{{3.461004876448987*^9, 3.461004967385638*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{"poly", ",", "x", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.461004969512849*^9, 3.4610049824549017`*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"1", "+", "y"}], ")"}], "2"]], "Output",
 CellChangeTimes->{3.461004983827796*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "Similarly, if we think of ",
 StyleBox["poly", "Input"],
 " as a polynomial in ",
 StyleBox["y", "Input"],
 " with coefficients that are polynomials in ",
 StyleBox["x", "Input"],
 ", then the constant term is "
}], "Text",
 CellChangeTimes->{{3.461004876448987*^9, 3.461004967385638*^9}, {
  3.461005012080769*^9, 3.46100502997539*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{"poly", ",", "y", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.461004969512849*^9, 3.4610049824549017`*^9}, 
   3.461005033297893*^9},
 FontSlant->"Italic"],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"1", "+", "x"}], ")"}], "3"]], "Output",
 CellChangeTimes->{3.461004983827796*^9, 3.461005042744968*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "If the goal is to extract terms that do not contain ",
 StyleBox["x", "Input"],
 " or ",
 StyleBox["y", "Input"],
 ", then we have to use ",
 StyleBox["Coefficient", "Input"],
 " twice:"
}], "Text",
 CellChangeTimes->{{3.4610050509080276`*^9, 3.461005076284004*^9}, {
  3.4610051372786713`*^9, 3.461005145717451*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{"Coefficient", "[", 
    RowBox[{"poly", ",", "y", ",", "0"}], "]"}], ",", "x", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.461005083462432*^9, 3.4610051320384007`*^9}},
 FontSlant->"Italic"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.46100509610327*^9, 3.461005133468725*^9}},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "3) Create the table below containing the factorizations of the polynomials \
of the form",
 StyleBox[" ", "Input"],
 StyleBox[Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "n"], "-", "1"}], TraditionalForm]], "Input"], 
  "Input"],
 " with ",
 StyleBox["n=1,2,...,10", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.461005275422948*^9, 3.461005340230462*^9}, {
  3.461005382828064*^9, 3.461005394411174*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Factor", "[", 
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"Range", "[", "10", "]"}]}], "-", "1"}], "]"}], "//", 
   "TableForm"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.461005225294601*^9, 3.461005263261039*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"-", "1"}], "+", "x"}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x"}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x", "+", 
         SuperscriptBox["x", "2"]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["x", "2"]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x", "+", 
         SuperscriptBox["x", "2"], "+", 
         SuperscriptBox["x", "3"], "+", 
         SuperscriptBox["x", "4"]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x", "+", 
         SuperscriptBox["x", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x", "+", 
         SuperscriptBox["x", "2"]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x", "+", 
         SuperscriptBox["x", "2"], "+", 
         SuperscriptBox["x", "3"], "+", 
         SuperscriptBox["x", "4"], "+", 
         SuperscriptBox["x", "5"], "+", 
         SuperscriptBox["x", "6"]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["x", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["x", "4"]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x", "+", 
         SuperscriptBox["x", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["x", "3"], "+", 
         SuperscriptBox["x", "6"]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x", "+", 
         SuperscriptBox["x", "2"], "-", 
         SuperscriptBox["x", "3"], "+", 
         SuperscriptBox["x", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x", "+", 
         SuperscriptBox["x", "2"], "+", 
         SuperscriptBox["x", "3"], "+", 
         SuperscriptBox["x", "4"]}], ")"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.461005242003171*^9, 3.461005264820322*^9}}]
}, Open  ]],

Cell["Here's another way:", "Text",
 CellChangeTimes->{{3.461019360196146*^9, 3.4610193655327883`*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Factor", "[", 
     RowBox[{
      RowBox[{"x", "^", "n"}], "-", "1"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "10"}], "}"}]}], "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.461019369074279*^9, 3.4610193962922907`*^9}},
 FontSlant->"Italic"],

Cell[TextData[{
 "4) According to ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", which of these equal expressions is the simplest? That is, what does ",
 StyleBox["Simplify", "Input"],
 " do to them?"
}], "Text",
 CellChangeTimes->{{3.461005477561348*^9, 3.461005521733899*^9}, {
  3.461005784965426*^9, 3.461005791134091*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"x", "+", "b"}], ")"}], "^", "2"}]], "Input",
 CellChangeTimes->{{3.461005647577392*^9, 3.461005652303462*^9}, 
   3.461005820866296*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "2"}], "+", 
  RowBox[{"2", "b", " ", "x"}], " ", "+", " ", 
  RowBox[{"b", "^", "2"}]}]], "Input",
 CellChangeTimes->{{3.461005730918333*^9, 3.461005735617334*^9}, 
   3.461005841353565*^9, 3.4610060204965057`*^9}],

Cell["What about these expressions?", "Text",
 CellChangeTimes->{{3.4610058029866657`*^9, 3.46100581500467*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", "b"}], ")"}], "^", "2"}], "+", "1"}]], "Input",
 CellChangeTimes->{{3.461005647577392*^9, 3.461005652303462*^9}, 
   3.461005820866296*^9, {3.4610058721068068`*^9, 3.461005872558731*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "2"}], "+", 
  RowBox[{"2", "b", " ", "x"}], " ", "+", " ", 
  RowBox[{"b", "^", "2"}], "+", "1"}]], "Input",
 CellChangeTimes->{{3.461005730918333*^9, 3.461005735617334*^9}, 
   3.461005841353565*^9, {3.4610058746786737`*^9, 3.4610058751078033`*^9}, 
   3.461005927596212*^9}],

Cell["Let' s try to simplify these expressions :", "Text",
 CellChangeTimes->{{3.46100613284156*^9, 3.461006144019525*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", "b"}], ")"}], "^", "2"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "+", 
   RowBox[{"2", "b", " ", "x"}], " ", "+", " ", 
   RowBox[{"b", "^", "2"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4610058851785727`*^9, 3.461005920952647*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"b", "+", "x"}], ")"}], "2"]], "Output",
 CellChangeTimes->{{3.461005910315654*^9, 3.4610059224871597`*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"b", "+", "x"}], ")"}], "2"]], "Output",
 CellChangeTimes->{{3.461005910315654*^9, 3.461005922552409*^9}},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "So ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " thinks that",
 StyleBox["(x+b)^2", "Input"],
 " is simpler than ",
 StyleBox["x^2+2bx+b^2", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.4610059382380943`*^9, 3.461006009566622*^9}, {
  3.461006163895192*^9, 3.461006169302556*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", "b"}], ")"}], "^", "2"}], "+", "1"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "+", 
   RowBox[{"2", "b", " ", "x"}], " ", "+", " ", 
   RowBox[{"b", "^", "2"}], "+", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.4610058851785727`*^9, 3.461005920952647*^9}, {
  3.461006035962308*^9, 3.461006039371542*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{"1", "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"b", "+", "x"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{{3.461005910315654*^9, 3.4610059224871597`*^9}, 
   3.461006041083927*^9},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{"1", "+", 
  SuperscriptBox["b", "2"], "+", 
  RowBox[{"2", " ", "b", " ", "x"}], "+", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{{3.461005910315654*^9, 3.4610059224871597`*^9}, 
   3.461006041151992*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "In this example, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " does not think that either of the expressions is simpler than the other. \
In any case, it does not \"simplify\" either expression."
}], "Text",
 CellChangeTimes->{{3.461006045599825*^9, 3.4610061156190357`*^9}, 
   3.461006183802209*^9},
 FontSlant->"Italic"]
}, Open  ]]
},
ScreenStyleEnvironment->"Working",
WindowSize->{772, 645},
WindowMargins->{{Automatic, -10}, {-174, Automatic}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
ShowSelection->True,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 242, 4, 67, "Section"],
Cell[835, 29, 265, 6, 26, "Text"],
Cell[1103, 37, 261, 8, 46, "Input"],
Cell[CellGroupData[{
Cell[1389, 49, 249, 7, 46, "Input"],
Cell[1641, 58, 390, 14, 51, "Output"]
}, Open  ]],
Cell[2046, 75, 362, 12, 48, "Input"],
Cell[CellGroupData[{
Cell[2433, 91, 355, 11, 48, "Input"],
Cell[2791, 104, 308, 11, 48, "Output"]
}, Open  ]],
Cell[3114, 118, 544, 16, 29, "Text"],
Cell[CellGroupData[{
Cell[3683, 138, 308, 10, 27, "Input"],
Cell[3994, 150, 260, 9, 30, "Output"]
}, Open  ]],
Cell[4269, 162, 318, 10, 26, "Text"],
Cell[CellGroupData[{
Cell[4612, 176, 190, 4, 27, "Input"],
Cell[4805, 182, 162, 5, 30, "Output"]
}, Open  ]],
Cell[4982, 190, 377, 11, 26, "Text"],
Cell[CellGroupData[{
Cell[5384, 205, 216, 5, 27, "Input"],
Cell[5603, 212, 184, 5, 30, "Output"]
}, Open  ]],
Cell[5802, 220, 357, 11, 26, "Text"],
Cell[CellGroupData[{
Cell[6184, 235, 267, 7, 27, "Input"],
Cell[6454, 244, 115, 2, 27, "Output"]
}, Open  ]],
Cell[6584, 249, 443, 14, 28, "Text"],
Cell[CellGroupData[{
Cell[7052, 267, 308, 9, 43, "Input"],
Cell[7363, 278, 3703, 122, 213, "Output"]
}, Open  ]],
Cell[11081, 403, 125, 2, 26, "Text"],
Cell[11209, 407, 344, 10, 27, "Input"],
Cell[11556, 419, 336, 9, 26, "Text"],
Cell[11895, 430, 188, 5, 27, "Input"],
Cell[12086, 437, 259, 6, 27, "Input"],
Cell[12348, 445, 112, 1, 26, "Text"],
Cell[12463, 448, 261, 6, 27, "Input"],
Cell[12727, 456, 321, 7, 27, "Input"],
Cell[13051, 465, 145, 2, 26, "Text"],
Cell[CellGroupData[{
Cell[13221, 471, 410, 12, 43, "Input"],
Cell[13634, 485, 188, 5, 30, "Output"],
Cell[13825, 492, 186, 5, 30, "Output"]
}, Open  ]],
Cell[14026, 500, 333, 12, 26, "Text"],
Cell[CellGroupData[{
Cell[14384, 516, 495, 14, 43, "Input"],
Cell[14882, 532, 239, 7, 30, "Output"],
Cell[15124, 541, 267, 7, 30, "Output"]
}, Open  ]],
Cell[15406, 551, 350, 9, 41, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)