lukowsk9-homework4.nb

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

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     17450,        522]
NotebookOptionsPosition[     16791,        495]
NotebookOutlinePosition[     17133,        510]
CellTagsIndexPosition[     17090,        507]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "=", "0"}], ";", 
  RowBox[{"b", "=", "1"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"integral", " ", "definition"}], " ", "*)"}], "\n", 
  RowBox[{"x", "=", " ", "."}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], "=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "x"}], ")"}], "^", "2"}], ")"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"-", "1"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}]}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"integral", " ", "of", " ", "function"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"q", "=", 
   RowBox[{
    RowBox[{"g", "[", "b", "]"}], "-", 
    RowBox[{"g", "[", "a", "]"}]}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"definite", " ", "integral"}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"n", "=", "11"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"m", "=", "7"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"size", " ", "of", " ", "table"}], " ", "*)"}], "\n", 
   RowBox[{"r", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"\"\<\>\"", ",", 
      RowBox[{"{", "n", "}"}], ",", 
      RowBox[{"{", "m", "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"b", "-", "a"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"t", "=", 
   RowBox[{"h", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", "a", "]"}], "+", 
       RowBox[{"f", "[", "b", "]"}]}], ")"}], "/", "2"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"r", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "h"}], ";", 
   RowBox[{
    RowBox[{"r", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2"}], "]"}], "]"}], "=", "t"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "step", " ", "column", " ", "and", " ", "column", " ", "for", " ", 
    "problem", " ", "i"}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "2"}], ",", 
    RowBox[{"i", "\[LessEqual]", "n"}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{
     RowBox[{"h2", "=", 
      RowBox[{"h", "/", "2"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x", "=", 
      RowBox[{"a", "+", "h2"}]}], ";", 
     RowBox[{"s", "=", 
      RowBox[{"f", "[", "x", "]"}]}], ";", 
     RowBox[{"x", "=", 
      RowBox[{"x", "+", "h"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"x", "<", "b"}], ",", 
       RowBox[{
        RowBox[{"s", "=", 
         RowBox[{"s", "+", 
          RowBox[{"f", "[", "x", "]"}]}]}], ";", 
        RowBox[{"x", "=", 
         RowBox[{"x", "+", "h"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"t", "=", 
      RowBox[{
       RowBox[{"t", "/", "2"}], "+", 
       RowBox[{"h2", "*", "s"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"h", "=", "h2"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"r", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "h"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"r", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", "t"}]}]}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"column", " ", "for", " ", "problem", " ", "ii"}], " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "2"}], ",", 
    RowBox[{"i", "\[LessEqual]", "n"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}], "-", "q"}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", "q"}], ")"}]}], 
      ")"}]}]}], "]"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"column", " ", "for", " ", "problem", " ", "iii"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "2"}], ",", 
    RowBox[{"i", "\[LessEqual]", "n"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"r", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "-", 
        RowBox[{"r", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}], ")"}], "/", 
      "3"}]}]}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"column", " ", "for", " ", "problem", " ", "iv"}], " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "3"}], ",", 
    RowBox[{"i", "\[LessEqual]", "n"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"i", "-", "1"}], ",", "4"}], "]"}], "]"}], "-", "q"}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4"}], "]"}], "]"}], "-", "q"}], ")"}]}], 
      ")"}]}]}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"column", " ", "for", " ", "problem", " ", "v"}], " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "3"}], ",", 
    RowBox[{"i", "\[LessEqual]", "n"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"16", " ", 
         RowBox[{"r", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], "-", 
        RowBox[{"r", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "-", "1"}], ",", "4"}], "]"}], "]"}]}], ")"}], "/", 
      "15"}]}]}], "]"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"column", " ", "for", " ", "problem", " ", "vi"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "4"}], ",", 
    RowBox[{"i", "\[LessEqual]", "n"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"i", "-", "1"}], ",", "6"}], "]"}], "]"}], "-", "q"}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "6"}], "]"}], "]"}], "-", "q"}], ")"}]}], 
      ")"}]}]}], "]"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{"TableForm", "[", 
  RowBox[{"N", "[", "r", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.684434363900857*^9, 3.6844345762259684`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"1.`", 
     "0.625`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"0.5`", "0.5347222222222222`", "3.6`", 
     "0.5046296296296297`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"0.25`", "0.5089937641723355`", "3.860699653324929`", 
     "0.5004176114890401`", "11.085972850678733`", 
     "0.5001368102796674`", "\<\"\"\>"},
    {"0.125`", "0.5022708503263366`", "3.9605270624968774`", 
     "0.5000298790443368`", "13.976735143620163`", "0.50000403021469`", 
     "33.946151804125506`"},
    {"0.0625`", "0.5005691701269964`", "3.9897566977387826`", 
     "0.5000019433938829`", "15.374672421683425`", "0.5000000810171861`", 
     "49.745182313702955`"},
    {"0.03125`", "0.5001423845908212`", "3.9974137911553056`", 
     "0.5000001227454294`", "15.832718927538867`", "0.5000000013688658`", 
     "59.18563074388044`"},
    {"0.015625`", "0.5000356019167562`", "3.999351826934328`", 
     "0.5000000076920679`", "15.95740337827652`", "0.5000000000218437`", 
     "62.666273587176036`"},
    {"0.0078125`", "0.5000089008399959`", "3.9998378548737312`", 
     "0.500000000481076`", "15.989300599045707`", "0.5000000000003432`", 
     "63.65685257989808`"},
    {"0.00390625`", "0.5000022252325532`", "3.9999594573434196`", 
     "0.5000000000300722`", "15.997321981072401`", "0.5000000000000054`", 
     "63.91357443609158`"},
    {"0.001953125`", "0.500000556309548`", "3.9999898639372793`", 
     "0.5000000000018796`", "15.99933029677624`", "0.5000000000000001`", 
     "63.97835316229625`"},
    {"0.0009765625`", "0.5000001390774751`", "3.9999974659594066`", 
     "0.5000000000001176`", "15.999832561781284`", "0.5`", 
     "63.994585754260044`"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.68443450606253*^9, 3.6844345186589108`*^9}, 
   3.6844345802506585`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Tan", "[", "x", "]"}], "-", 
    RowBox[{"x", "/", "10"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x0", "=", "10.0"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"x1", "=", "10.5"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"secant", " ", "method", " ", "to", " ", "calculate", " ", "x2"}], 
   " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"x2", "=", 
    RowBox[{"x0", "-", 
     RowBox[{
      RowBox[{"g", "[", "x0", "]"}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x0", "-", "x1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"g", "[", "x0", "]"}], "-", 
         RowBox[{"g", "[", "x1", "]"}]}], ")"}]}]}]}]}], ";"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
   "calculating", " ", "y", " ", "values", " ", "before", " ", "loop"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y0", "=", 
   RowBox[{"g", "[", "x0", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"y1", "=", 
   RowBox[{"g", "[", "x1", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"y2", "=", 
    RowBox[{"g", "[", "x2", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"n", "=", "0"}], ",", 
   RowBox[{"n", "<", "6"}], ",", 
   RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "ai", " ", "values", " ", "for", " ", "calculating", " ", "interpolating",
      " ", "polynomial"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", "x0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"a1", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x1", "-", "a0"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"y1", "-", "y0"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"a2", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x2", "-", "a0", "-", 
        RowBox[{"a1", " ", 
         RowBox[{"(", 
          RowBox[{"y2", "-", "y0"}], ")"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"y2", "-", "y0"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"y2", "-", "y1"}], ")"}]}], ")"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
     "calculate", " ", "x3", " ", "using", " ", "the", " ", "zero", " ", 
      "value", " ", "of", " ", "the", " ", "interpolating", " ", 
      "polynomial"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"x3", "=", 
     RowBox[{"a0", "+", 
      RowBox[{"a1", " ", 
       RowBox[{"(", 
        RowBox[{"0", "-", "y0"}], ")"}]}], "+", 
      RowBox[{"a2", " ", 
       RowBox[{"(", 
        RowBox[{"0", "-", "y0"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"0", "-", "y1"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"x0", "=", "x1"}], ";", 
    RowBox[{"x1", "=", "x2"}], ";", 
    RowBox[{"x2", "=", "x3"}], ";", "\[IndentingNewLine]", 
    RowBox[{"y0", "=", "y1"}], ";", 
    RowBox[{"y1", "=", "y2"}], ";", 
    RowBox[{"y2", "=", 
     RowBox[{"g", "[", "x2", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{
     "\"\<new x3:  \>\"", ",", "x2", ",", "\"\< new y3 : \>\"", ",", "y2"}], 
     "]"}], ";"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6844345951260395`*^9, 3.684434602937053*^9}, {
  3.6844346614745255`*^9, 3.684434777306723*^9}, {3.684434828433875*^9, 
  3.6844349221936088`*^9}, {3.6844350206436167`*^9, 3.6844350613707666`*^9}, {
  3.6844351322975283`*^9, 3.6844351446345053`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"new x3:  \"\>", "\[InvisibleSpace]", "10.224785618224809`", 
   "\[InvisibleSpace]", "\<\" new y3 : \"\>", "\[InvisibleSpace]", 
   "0.0071757709016291304`"}],
  SequenceForm[
  "new x3:  ", 10.224785618224809`, " new y3 : ", 0.0071757709016291304`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6844346753593903`*^9, 3.684434707116246*^9}, 
   3.684435146934042*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"new x3:  \"\>", "\[InvisibleSpace]", "10.221039555545321`", 
   "\[InvisibleSpace]", "\<\" new y3 : \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.00013759866647666819`"}]}],
  SequenceForm[
  "new x3:  ", 10.221039555545321`, " new y3 : ", -0.00013759866647666819`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6844346753593903`*^9, 3.684434707116246*^9}, 
   3.6844351469350433`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"new x3:  \"\>", "\[InvisibleSpace]", "10.221110330809415`", 
   "\[InvisibleSpace]", "\<\" new y3 : \"\>", "\[InvisibleSpace]", 
   "2.830196987879674`*^-8"}],
  SequenceForm[
  "new x3:  ", 10.221110330809415`, " new y3 : ", 2.830196987879674*^-8],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6844346753593903`*^9, 3.684434707116246*^9}, 
   3.6844351469365454`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"new x3:  \"\>", "\[InvisibleSpace]", "10.221110316256109`", 
   "\[InvisibleSpace]", "\<\" new y3 : \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "4.440892098500626`*^-15"}]}],
  SequenceForm[
  "new x3:  ", 10.221110316256109`, " new y3 : ", -4.440892098500626*^-15],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6844346753593903`*^9, 3.684434707116246*^9}, 
   3.684435146937046*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"new x3:  \"\>", "\[InvisibleSpace]", "10.22111031625611`", 
   "\[InvisibleSpace]", "\<\" new y3 : \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "8.881784197001252`*^-16"}]}],
  SequenceForm[
  "new x3:  ", 10.22111031625611, " new y3 : ", -8.881784197001252*^-16],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6844346753593903`*^9, 3.684434707116246*^9}, 
   3.6844351469380484`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"new x3:  \"\>", "\[InvisibleSpace]", "10.22111031625611`", 
   "\[InvisibleSpace]", "\<\" new y3 : \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "8.881784197001252`*^-16"}]}],
  SequenceForm[
  "new x3:  ", 10.22111031625611, " new y3 : ", -8.881784197001252*^-16],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6844346753593903`*^9, 3.684434707116246*^9}, 
   3.6844351469390497`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{759, 833},
WindowMargins->{{Automatic, 572}, {64, Automatic}},
FrontEndVersion->"10.2 for Microsoft Windows (64-bit) (July 7, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 7624, 245, 772, "Input"],
Cell[8207, 269, 2279, 47, 191, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10523, 321, 3592, 102, 445, "Input"],
Cell[CellGroupData[{
Cell[14140, 427, 423, 9, 23, "Print"],
Cell[14566, 438, 443, 9, 23, "Print"],
Cell[15012, 449, 424, 9, 23, "Print"],
Cell[15439, 460, 440, 9, 23, "Print"],
Cell[15882, 471, 439, 9, 23, "Print"],
Cell[16324, 482, 439, 9, 23, "Print"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)