(* 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[     16976,        530]
NotebookOptionsPosition[     15142,        470]
NotebookOutlinePosition[     15573,        488]
CellTagsIndexPosition[     15530,        485]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["2301520 Fundamentals of AMCS\nPower Series",
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0, 1]]], "Title",
 CellChangeTimes->{{3.488197862671875*^9, 3.48819787875*^9}, {
   3.514152368078125*^9, 3.514152388265625*^9}, {3.54654180040625*^9, 
   3.5465418080625*^9}, 3.54666746734375*^9, {3.5765310955*^9, 
   3.57653109815625*^9}, {3.576543610390625*^9, 3.576543611296875*^9}, {
   3.6131248871606865`*^9, 3.613124891364032*^9}, {3.613125524859867*^9, 
   3.6131255255630317`*^9}, 3.6131260644536705`*^9, 3.6131262066997375`*^9, {
   3.6446651226912394`*^9, 3.644665123003768*^9}, 3.6755641922113247`*^9, {
   3.6760022679349074`*^9, 3.6760022764219365`*^9}, 3.7412892458549623`*^9},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["Power series", "Section",
 CellChangeTimes->{
  3.576531172015625*^9, {3.57653120315625*^9, 3.576531203625*^9}, {
   3.6131255309070425`*^9, 3.61312553754804*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["1. ",
  FontColor->RGBColor[0, 0, 1]],
 "Power series may converge for some value of x but diverge for some other \
value of x."
}], "Subsection",
 CellChangeTimes->{
  3.576531277375*^9, {3.6131256022077208`*^9, 3.6131256405534773`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "x_", "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x", " ", "-", "3"}], ")"}], "n"], "n"], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "\[Infinity]"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.545997314484375*^9, 3.545997360515625*^9}, {
   3.54599739075*^9, 3.545997412234375*^9}, {3.545997635546875*^9, 
   3.54599764075*^9}, {3.546000104359375*^9, 3.5460001150625*^9}, {
   3.546000152171875*^9, 3.546000178125*^9}, 3.546002476890625*^9}],

Cell["\<\
Note that F[x] converges when 2\[LessEqual]x<4\
\>", "Text",
 CellChangeTimes->{{3.5460029615*^9, 3.54600298190625*^9}, {
  3.546003013734375*^9, 3.546003022578125*^9}}],

Cell[BoxData[
 RowBox[{"F", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.545997404421875*^9, 3.545997427046875*^9}}],

Cell[BoxData[
 RowBox[{"F", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.545997584234375*^9, 3.545997586390625*^9}}],

Cell[BoxData[
 RowBox[{"F", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.545997599*^9, 3.545997600796875*^9}, {3.5460030515*^9, 
  3.546003051859375*^9}}],

Cell[BoxData[
 RowBox[{"F", "[", "3.5", "]"}]], "Input",
 CellChangeTimes->{{3.546003055421875*^9, 3.54600305703125*^9}, {
  3.546003100609375*^9, 3.546003101203125*^9}}],

Cell[BoxData[
 RowBox[{"F", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.54600350403125*^9, 3.54600350553125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["2. ",
  FontColor->RGBColor[0, 0, 1]],
 Cell[BoxData[
  RowBox[{
   ButtonBox["Series",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Series"], "[", 
   RowBox[{
    StyleBox["f", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["x", "TI"], ",", 
      SubscriptBox[
       StyleBox["x", "TI"], 
       StyleBox["0", "TR"]], ",", 
      StyleBox["n", "TI"]}], "}"}]}], "]"}]], "InlineFormula"],
 " returns the power series expansion for f in the variable x  about the \
point ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["x", "TI"], 
   StyleBox["0", "TR"]]]],
 "  to order ",
 Cell[BoxData[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     StyleBox["x", "TI"], "-", 
     SubscriptBox[
      StyleBox["x", "TI"], 
      StyleBox["0", "TR"]]}], ")"}], 
   StyleBox["n", "TI"]]], "InlineFormula"]
}], "Subsection",
 CellChangeTimes->{
  3.57653127984375*^9, {3.6131257827577033`*^9, 3.6131257998835897`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"G", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"x", "^", "3"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "2"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.546003067375*^9, 3.54600307075*^9}, {
  3.54600387403125*^9, 3.546003884234375*^9}}],

Cell[BoxData[
 RowBox[{"G", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.546004103296875*^9, 3.5460041055625*^9}}],

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"G", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.54600389309375*^9, 3.54600392896875*^9}}],

Cell[BoxData[
 RowBox[{"SeriesCoefficient", "[", 
  RowBox[{
   RowBox[{"G", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "n"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.546003979046875*^9, 3.54600400284375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["3. ",
  FontColor->RGBColor[0, 0, 1]],
 "Partial sum of power series "
}], "Subsection",
 CellChangeTimes->{
  3.5765312808125*^9, {3.61312585408961*^9, 3.6131258671684146`*^9}}],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"H", "[", "x_", "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "-", "x"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5460042745*^9, 3.5460042891875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"k_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"x", "^", "n"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "0", ",", "k"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.546004301671875*^9, 3.546004325328125*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"H", "[", "x", "]"}], ",", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "x"}], "]"}], ",", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "x"}], "]"}], ",", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "x"}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "0.7"}], "}"}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", "  ", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<H(x)\>\"", ",", " ", 
      "\"\<\!\(\*SubscriptBox[\(S\), \(1\)]\)(x)\>\"", ",", " ", 
      "\"\<\!\(\*SubscriptBox[\(S\), \(2\)]\)(x)\>\"", ",", " ", 
      "\"\<\!\(\*SubscriptBox[\(S\), \(3\)]\)(x)\>\""}], "}"}]}], ",", " ", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", " ", 
   RowBox[{"LegendPosition", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ",", " ", 
   RowBox[{"LegendSize", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.546004366515625*^9, 3.546004416734375*^9}, {
  3.5460046652778597`*^9, 3.5460046666684847`*^9}, {3.5460047016372347`*^9, 
  3.5460047585747347`*^9}, {3.5460047903872347`*^9, 3.5460047931841097`*^9}, {
  3.5460051835747347`*^9, 3.5460052376216097`*^9}, {3.5460053204497347`*^9, 
  3.5460053536684847`*^9}, {3.5460053970122347`*^9, 3.5460054122778597`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"H", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"x", "^", "3"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "2"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{3.5460054848716097`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"k_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"x", "^", "n"}], "/", 
       RowBox[{"2", "^", 
        RowBox[{"(", 
         RowBox[{"n", "-", "2"}], ")"}]}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "3", ",", 
       RowBox[{"2", "+", "k"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5460055030122347`*^9, 3.5460055412153597`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"H", "[", "x", "]"}], ",", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "x"}], "]"}], ",", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "x"}], "]"}], ",", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "x"}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", "  ", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<H(x)\>\"", ",", " ", 
      "\"\<\!\(\*SubscriptBox[\(S\), \(1\)]\)(x)\>\"", ",", " ", 
      "\"\<\!\(\*SubscriptBox[\(S\), \(2\)]\)(x)\>\"", ",", " ", 
      "\"\<\!\(\*SubscriptBox[\(S\), \(3\)]\)(x)\>\""}], "}"}]}], ",", " ", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", " ", 
   RowBox[{"LegendPosition", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ",", " ", 
   RowBox[{"LegendSize", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5460055635434847`*^9, 3.5460055648247347`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["4. ",
  FontColor->RGBColor[0, 0, 1]],
 "Taylor and Maclaurin Series :  ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Series",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Series"], "[", 
   RowBox[{
    StyleBox["f", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["x", "TI"], ",", 
      SubscriptBox[
       StyleBox["x", "TI"], 
       StyleBox["0", "TR"]], ",", 
      StyleBox["n", "TI"]}], "}"}]}], "]"}]], "InlineFormula"],
 " "
}], "Subsection",
 CellChangeTimes->{
  3.576531282015625*^9, {3.6131259305957985`*^9, 3.61312597269176*^9}}],

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", "x"], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5460057260122347`*^9, 3.5460057576059847`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"x", "^", "3"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "2"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5460057802622347`*^9, 3.5460057866528597`*^9}}],

Cell[BoxData[
 RowBox[{"ts1", "=", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"F", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "8"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Maclaurin", " ", "Series"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.5460058194966097`*^9, 3.5460058401216097`*^9}, {
   3.5460058787309847`*^9, 3.5460058794184847`*^9}, {3.741289664099662*^9, 
   3.741289665744103*^9}, 3.741290037414386*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"T1", "[", "x_", "]"}], ":=", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"Normal", "[", "ts1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5460058941684847`*^9, 3.5460058985122347`*^9}, {
  3.741289599211873*^9, 3.741289672618816*^9}, {3.7412900464156446`*^9, 
  3.741290088008591*^9}}],

Cell[BoxData[
 RowBox[{"T1", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.7412900931197376`*^9, 3.7412900953217144`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"F", "[", "x", "]"}], ",", 
     RowBox[{"T1", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", "  ", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<F(x)\>\"", ",", " ", "\"\<T1(x)\>\""}], "}"}]}], ",", " ", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", " ", 
   RowBox[{"LegendPosition", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0.5", ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}], ",", " ", 
   RowBox[{"LegendSize", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.741289698156769*^9, 3.7412897422112985`*^9}, {
   3.741289814228701*^9, 3.7412898764429235`*^9}, {3.7412899279832926`*^9, 
   3.7412900026502533`*^9}, 3.74129008002208*^9, 3.741290185617674*^9}],

Cell[BoxData[
 RowBox[{"ts2", "=", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"F", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "8"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Taylor", " ", "Series", " ", "about", " ", "1"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.5460058521997347`*^9, 3.5460058830122347`*^9}, {
  3.7412900537122407`*^9, 3.74129005856006*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"T2", "[", "x_", "]"}], ":=", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"Normal", "[", "ts2", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5460059061059847`*^9, 3.5460059108716097`*^9}, {
  3.74129010727505*^9, 3.7412901440420055`*^9}}],

Cell[BoxData[
 RowBox[{"T2", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.741290148883021*^9, 3.741290151058084*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"F", "[", "x", "]"}], ",", 
     RowBox[{"T2", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", "  ", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<F(x)\>\"", ",", " ", "\"\<T2(x)\>\""}], "}"}]}], ",", " ", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", " ", 
   RowBox[{"LegendPosition", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0.5", ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}], ",", " ", 
   RowBox[{"LegendSize", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7412901677317095`*^9, 3.7412901899311457`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"F", "[", "x", "]"}], ",", 
     RowBox[{"T1", "[", "x", "]"}], ",", 
     RowBox[{"T2", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", "  ", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<F(x)\>\"", ",", " ", "\"\<T1[x]\>\"", ",", "\"\<T2(x)\>\""}], 
     "}"}]}], ",", " ", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", " ", 
   RowBox[{"LegendPosition", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0.5", ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}], ",", " ", 
   RowBox[{"LegendSize", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7412902130538*^9, 3.7412902285601664`*^9}}]
}, Closed]]
}, Open  ]]
},
ScreenStyleEnvironment->"Working",
WindowSize->{1016, 723},
WindowMargins->{{99, Automatic}, {Automatic, 8}},
ShowSelection->True,
Magnification->1.149999976158142,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Demo.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 731, 11, 110, "Title"],
Cell[CellGroupData[{
Cell[1301, 35, 169, 3, 84, "Section"],
Cell[CellGroupData[{
Cell[1495, 42, 265, 7, 41, "Subsection"],
Cell[1763, 51, 615, 16, 51, "Input"],
Cell[2381, 69, 179, 4, 33, "Text"],
Cell[2563, 75, 120, 2, 34, "Input"],
Cell[2686, 79, 120, 2, 34, "Input"],
Cell[2809, 83, 158, 3, 34, "Input"],
Cell[2970, 88, 170, 3, 34, "Input"],
Cell[3143, 93, 118, 2, 34, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[3298, 100, 955, 35, 66, "Subsection"],
Cell[4256, 137, 305, 9, 34, "Input"],
Cell[4564, 148, 118, 2, 34, "Input"],
Cell[4685, 152, 235, 6, 34, "Input"],
Cell[4923, 160, 246, 6, 34, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[5206, 171, 205, 6, 34, "Subsection"],
Cell[5414, 179, 77, 1, 34, "Input"],
Cell[5494, 182, 232, 7, 34, "Input"],
Cell[5729, 191, 335, 10, 34, "Input"],
Cell[6067, 203, 1452, 33, 75, "Input"],
Cell[7522, 238, 242, 8, 34, "Input"],
Cell[7767, 248, 645, 21, 34, "Input"],
Cell[8415, 271, 1142, 29, 75, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[9594, 305, 588, 21, 35, "Subsection"],
Cell[10185, 328, 250, 6, 34, "Input"],
Cell[10438, 336, 268, 8, 34, "Input"],
Cell[10709, 346, 477, 11, 34, "Input"],
Cell[11189, 359, 321, 7, 34, "Input"],
Cell[11513, 368, 125, 2, 34, "Input"],
Cell[11641, 372, 954, 22, 55, "Input"],
Cell[12598, 396, 426, 11, 34, "Input"],
Cell[13027, 409, 271, 6, 34, "Input"],
Cell[13301, 417, 121, 2, 34, "Input"],
Cell[13425, 421, 807, 20, 55, "Input"],
Cell[14235, 443, 879, 23, 55, "Input"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)