(* 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[     20375,        540]
NotebookOptionsPosition[     19314,        502]
NotebookOutlinePosition[     19675,        518]
CellTagsIndexPosition[     19632,        515]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"w0", "=", "1"}], ";", " ", 
  RowBox[{"w1", "=", 
   RowBox[{"-", "2"}]}], ";", 
  RowBox[{"w2", "=", 
   RowBox[{"-", "1"}]}], ";", 
  RowBox[{"d1", "=", "0.6"}], ";", 
  RowBox[{"d2", "=", 
   RowBox[{"-", "0.5"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4561589420824227`*^9, 3.4561589650044446`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ptA", "=", 
  RowBox[{"Series", "[", 
   RowBox[{
    FractionBox["w0", 
     RowBox[{"1", "-", 
      RowBox[{"d1", " ", "B"}]}]], ",", 
    RowBox[{"{", 
     RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"valA", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{"ptA", ",", "B", ",", "#"}], "]"}], "&"}], ",", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "10"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"outA", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"valA", ",", 
    RowBox[{"Filling", "\[Rule]", "Axis"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<prob_8_1_part_a.eps\>\"", ",", "outA"}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456158972363867*^9, 3.456158992129618*^9}, {
   3.4561590705832453`*^9, 3.4561590721301303`*^9}, {3.4561593137566767`*^9, 
   3.4561593178035774`*^9}, {3.456159453835698*^9, 3.4561594597576113`*^9}, {
   3.4561596269774313`*^9, 3.4561596487698207`*^9}, 3.4561603842276525`*^9, {
   3.456823277143882*^9, 3.456823283347126*^9}, {3.4568233257854404`*^9, 
   3.456823328301114*^9}, {3.4568240604245453`*^9, 3.456824062940219*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   RowBox[{"0.6`", " ", "B"}], "+", 
   RowBox[{"0.36`", " ", 
    SuperscriptBox["B", "2"]}], "+", 
   RowBox[{"0.216`", " ", 
    SuperscriptBox["B", "3"]}], "+", 
   RowBox[{"0.1296`", " ", 
    SuperscriptBox["B", "4"]}], "+", 
   RowBox[{"0.07776`", " ", 
    SuperscriptBox["B", "5"]}], "+", 
   RowBox[{"0.046655999999999996`", " ", 
    SuperscriptBox["B", "6"]}], "+", 
   RowBox[{"0.027993599999999997`", " ", 
    SuperscriptBox["B", "7"]}], "+", 
   RowBox[{"0.016796159999999997`", " ", 
    SuperscriptBox["B", "8"]}], "+", 
   RowBox[{"0.010077695999999999`", " ", 
    SuperscriptBox["B", "9"]}], "+", 
   RowBox[{"0.006046617599999999`", " ", 
    SuperscriptBox["B", "10"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {
   1, 0.6, 0.36, 0.216, 0.1296, 0.07776, 0.046655999999999996`, 
    0.027993599999999997`, 0.016796159999999997`, 0.010077695999999999`, 
    0.006046617599999999}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.456158984442069*^9, 3.456158994207756*^9}, {
   3.4561590641925793`*^9, 3.456159072770759*^9}, 3.456159318584832*^9, 
   3.456159460116988*^9, 3.456159649941703*^9, 3.4561603849620323`*^9, 
   3.456821392033189*^9, 3.456823288097217*^9, 3.4568233294261355`*^9, 
   3.4568233987399664`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "0.6`", ",", "0.36`", ",", "0.216`", ",", "0.1296`", ",", 
   "0.07776`", ",", "0.046655999999999996`", ",", "0.027993599999999997`", 
   ",", "0.016796159999999997`", ",", "0.010077695999999999`", ",", 
   "0.006046617599999999`"}], "}"}]], "Output",
 CellChangeTimes->{{3.456158984442069*^9, 3.456158994207756*^9}, {
   3.4561590641925793`*^9, 3.456159072770759*^9}, 3.456159318584832*^9, 
   3.456159460116988*^9, 3.456159649941703*^9, 3.4561603849620323`*^9, 
   3.456821392033189*^9, 3.456823288097217*^9, 3.4568233294261355`*^9, 
   3.4568233987399664`*^9}],

Cell[BoxData[
 GraphicsBox[
  GraphicsComplexBox[{{1., 1.}, {2., 0.6}, {3., 0.36}, {4., 0.216}, {5., 
   0.1296}, {6., 0.07776}, {7., 0.046655999999999996`}, {8., 
   0.027993599999999997`}, {9., 0.016796159999999997`}, {10., 
   0.010077695999999999`}, {11., 0.006046617599999999}, {1., 0.}, {2., 0.}, {
   3., 0.}, {4., 0.}, {5., 0.}, {6., 0.}, {7., 0.}, {8., 0.}, {9., 0.}, {10., 
   0.}, {11., 0.}, {1., 1.}, {2., 0.6}, {3., 0.36}, {4., 0.216}, {5., 
   0.1296}, {6., 0.07776}, {7., 0.046655999999999996`}, {8., 
   0.027993599999999997`}, {9., 0.016796159999999997`}, {10., 
   0.010077695999999999`}, {11., 0.006046617599999999}}, {{{}, {}, {}, {}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], 
      LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], 
      LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}],
       LineBox[{22, 11}]}}, {{}, 
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 11.}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.456158984442069*^9, 3.456158994207756*^9}, {
   3.4561590641925793`*^9, 3.456159072770759*^9}, 3.456159318584832*^9, 
   3.456159460116988*^9, 3.456159649941703*^9, 3.4561603849620323`*^9, 
   3.456821392033189*^9, 3.456823288097217*^9, 3.4568233294261355`*^9, 
   3.4568233987555914`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ptB", "=", 
  RowBox[{"Series", "[", 
   RowBox[{
    FractionBox[
     RowBox[{"(", 
      RowBox[{"w0", "-", 
       RowBox[{"w1", " ", "B"}]}], ")"}], 
     RowBox[{"1", "-", 
      RowBox[{"d1", " ", "B"}]}]], ",", 
    RowBox[{"{", 
     RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"valB", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{"ptB", ",", "B", ",", "#"}], "]"}], "&"}], ",", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "10"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"outB", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"valB", ",", 
    RowBox[{"Filling", "\[Rule]", "Axis"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<prob_8_1_part_b.eps\>\"", ",", "outB"}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456158972363867*^9, 3.456158992129618*^9}, {
   3.4561590705832453`*^9, 3.4561590721301303`*^9}, {3.4561593137566767`*^9, 
   3.4561593178035774`*^9}, 3.4561593517100444`*^9, {3.4561593880227766`*^9, 
   3.4561594241480083`*^9}, {3.4561594697733*^9, 3.45615947752335*^9}, {
   3.4568233516453123`*^9, 3.4568233591923323`*^9}, 3.4568233955367804`*^9, 
   3.456824067127799*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   RowBox[{"2.6`", " ", "B"}], "+", 
   RowBox[{"1.56`", " ", 
    SuperscriptBox["B", "2"]}], "+", 
   RowBox[{"0.9359999999999999`", " ", 
    SuperscriptBox["B", "3"]}], "+", 
   RowBox[{"0.5616`", " ", 
    SuperscriptBox["B", "4"]}], "+", 
   RowBox[{"0.33696`", " ", 
    SuperscriptBox["B", "5"]}], "+", 
   RowBox[{"0.202176`", " ", 
    SuperscriptBox["B", "6"]}], "+", 
   RowBox[{"0.12130559999999999`", " ", 
    SuperscriptBox["B", "7"]}], "+", 
   RowBox[{"0.07278335999999999`", " ", 
    SuperscriptBox["B", "8"]}], "+", 
   RowBox[{"0.04367001599999999`", " ", 
    SuperscriptBox["B", "9"]}], "+", 
   RowBox[{"0.026202009599999996`", " ", 
    SuperscriptBox["B", "10"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {
   1, 2.6, 1.56, 0.9359999999999999, 0.5616, 0.33696, 0.202176, 
    0.12130559999999999`, 0.07278335999999999, 0.04367001599999999, 
    0.026202009599999996`}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.4561593982572174`*^9, 3.4561594245230103`*^9}, 
   3.4561594778046017`*^9, 3.4568233597392178`*^9, 3.4568234004587493`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2.6`", ",", "1.56`", ",", "0.9359999999999999`", ",", "0.5616`", 
   ",", "0.33696`", ",", "0.202176`", ",", "0.12130559999999999`", ",", 
   "0.07278335999999999`", ",", "0.04367001599999999`", ",", 
   "0.026202009599999996`"}], "}"}]], "Output",
 CellChangeTimes->{{3.4561593982572174`*^9, 3.4561594245230103`*^9}, 
   3.4561594778046017`*^9, 3.4568233597392178`*^9, 3.4568234004587493`*^9}],

Cell[BoxData[
 GraphicsBox[
  GraphicsComplexBox[{{1., 1.}, {2., 2.6}, {3., 1.56}, {4., 
   0.9359999999999999}, {5., 0.5616}, {6., 0.33696}, {7., 0.202176}, {8., 
   0.12130559999999999`}, {9., 0.07278335999999999}, {10., 
   0.04367001599999999}, {11., 0.026202009599999996`}, {1., 0.}, {2., 0.}, {
   3., 0.}, {4., 0.}, {5., 0.}, {6., 0.}, {7., 0.}, {8., 0.}, {9., 0.}, {10., 
   0.}, {11., 0.}, {1., 1.}, {2., 2.6}, {3., 1.56}, {4., 
   0.9359999999999999}, {5., 0.5616}, {6., 0.33696}, {7., 0.202176}, {8., 
   0.12130559999999999`}, {9., 0.07278335999999999}, {10., 
   0.04367001599999999}, {11., 0.026202009599999996`}}, {{{}, {}, {}, {}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], 
      LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], 
      LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}],
       LineBox[{22, 11}]}}, {{}, 
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 11.}, {0., 2.6}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4561593982572174`*^9, 3.4561594245230103`*^9}, 
   3.4561594778046017`*^9, 3.4568233597392178`*^9, 3.456823400474375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ptC", "=", 
  RowBox[{"Series", "[", 
   RowBox[{
    FractionBox[
     RowBox[{"(", 
      RowBox[{"w0", "-", 
       RowBox[{"w1", " ", "B"}], "-", 
       RowBox[{"w2", " ", 
        SuperscriptBox["B", "2"]}]}], ")"}], 
     RowBox[{"1", "-", 
      RowBox[{"d1", " ", "B"}]}]], ",", 
    RowBox[{"{", 
     RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"valC", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{"ptC", ",", "B", ",", "#"}], "]"}], "&"}], ",", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "10"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"outC", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"valC", ",", 
    RowBox[{"Filling", "\[Rule]", "Axis"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<prob_8_1_part_c.eps\>\"", ",", "outC"}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456158972363867*^9, 3.456158992129618*^9}, {
   3.4561590705832453`*^9, 3.4561590721301303`*^9}, {3.4561593137566767`*^9, 
   3.4561593178035774`*^9}, 3.4561593517100444`*^9, {3.4561593880227766`*^9, 
   3.4561594241480083`*^9}, {3.4561594697733*^9, 3.45615947752335*^9}, {
   3.456159515836095*^9, 3.4561595369612303`*^9}, {3.4568233688018913`*^9, 
   3.456823391802333*^9}, 3.456824072721657*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   RowBox[{"2.6`", " ", "B"}], "+", 
   RowBox[{"2.56`", " ", 
    SuperscriptBox["B", "2"]}], "+", 
   RowBox[{"1.5359999999999998`", " ", 
    SuperscriptBox["B", "3"]}], "+", 
   RowBox[{"0.9216`", " ", 
    SuperscriptBox["B", "4"]}], "+", 
   RowBox[{"0.5529599999999999`", " ", 
    SuperscriptBox["B", "5"]}], "+", 
   RowBox[{"0.33177599999999996`", " ", 
    SuperscriptBox["B", "6"]}], "+", 
   RowBox[{"0.1990656`", " ", 
    SuperscriptBox["B", "7"]}], "+", 
   RowBox[{"0.11943936`", " ", 
    SuperscriptBox["B", "8"]}], "+", 
   RowBox[{"0.07166361599999999`", " ", 
    SuperscriptBox["B", "9"]}], "+", 
   RowBox[{"0.0429981696`", " ", 
    SuperscriptBox["B", "10"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {
   1, 2.6, 2.56, 1.5359999999999998`, 0.9216, 0.5529599999999999, 
    0.33177599999999996`, 0.1990656, 0.11943936, 0.07166361599999999, 
    0.0429981696}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.456159538054987*^9, {3.4568233828021603`*^9, 3.456823404286948*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2.6`", ",", "2.56`", ",", "1.5359999999999998`", ",", "0.9216`", 
   ",", "0.5529599999999999`", ",", "0.33177599999999996`", ",", "0.1990656`",
    ",", "0.11943936`", ",", "0.07166361599999999`", ",", "0.0429981696`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.456159538054987*^9, {3.4568233828021603`*^9, 3.456823404302573*^9}}],

Cell[BoxData[
 GraphicsBox[
  GraphicsComplexBox[{{1., 1.}, {2., 2.6}, {3., 2.56}, {4., 
   1.5359999999999998`}, {5., 0.9216}, {6., 0.5529599999999999}, {7., 
   0.33177599999999996`}, {8., 0.1990656}, {9., 0.11943936}, {10., 
   0.07166361599999999}, {11., 0.0429981696}, {1., 0.}, {2., 0.}, {3., 0.}, {
   4., 0.}, {5., 0.}, {6., 0.}, {7., 0.}, {8., 0.}, {9., 0.}, {10., 0.}, {11.,
    0.}, {1., 1.}, {2., 2.6}, {3., 2.56}, {4., 1.5359999999999998`}, {5., 
   0.9216}, {6., 0.5529599999999999}, {7., 0.33177599999999996`}, {8., 
   0.1990656}, {9., 0.11943936}, {10., 0.07166361599999999}, {11., 
   0.0429981696}}, {{{}, {}, {}, {}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], 
      LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], 
      LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}],
       LineBox[{22, 11}]}}, {{}, 
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 11.}, {0., 2.6}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.456159538054987*^9, {3.4568233828021603`*^9, 3.456823404318198*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ptD", "=", 
  RowBox[{"Series", "[", 
   RowBox[{
    FractionBox[
     RowBox[{"(", 
      RowBox[{"w0", "-", 
       RowBox[{"w1", " ", "B"}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"d1", " ", "B"}], "-", 
       RowBox[{"d2", " ", 
        SuperscriptBox["B", "2"]}]}], ")"}]], ",", 
    RowBox[{"{", 
     RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"valD", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{"ptD", ",", "B", ",", "#"}], "]"}], "&"}], ",", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "10"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"outD", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"valD", ",", 
    RowBox[{"Filling", "\[Rule]", "Axis"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<prob_8_1_part_d.eps\>\"", ",", "outD"}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456158972363867*^9, 3.456158992129618*^9}, {
   3.4561590705832453`*^9, 3.4561590721301303`*^9}, {3.4561593137566767`*^9, 
   3.4561593178035774`*^9}, 3.4561593517100444`*^9, {3.4561593880227766`*^9, 
   3.4561594241480083`*^9}, {3.4561594697733*^9, 3.45615947752335*^9}, {
   3.456159515836095*^9, 3.456159590586573*^9}, {3.456160530301071*^9, 
   3.4561605575043707`*^9}, {3.456823410052684*^9, 3.456823423834198*^9}, 
   3.4568240781748867`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   RowBox[{"2.6`", " ", "B"}], "+", 
   RowBox[{"1.06`", " ", 
    SuperscriptBox["B", "2"]}], "-", 
   RowBox[{"0.664`", " ", 
    SuperscriptBox["B", "3"]}], "-", 
   RowBox[{"0.9284`", " ", 
    SuperscriptBox["B", "4"]}], "-", 
   RowBox[{"0.22503999999999996`", " ", 
    SuperscriptBox["B", "5"]}], "+", 
   RowBox[{"0.329176`", " ", 
    SuperscriptBox["B", "6"]}], "+", 
   RowBox[{"0.3100256`", " ", 
    SuperscriptBox["B", "7"]}], "+", 
   RowBox[{"0.021427359999999993`", " ", 
    SuperscriptBox["B", "8"]}], "-", 
   RowBox[{"0.142156384`", " ", 
    SuperscriptBox["B", "9"]}], "-", 
   RowBox[{"0.0960075104`", " ", 
    SuperscriptBox["B", "10"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {
   1, 2.6, 1.06, -0.664, -0.9284, -0.22503999999999996`, 0.329176, 0.3100256, 
    0.021427359999999993`, -0.142156384, -0.0960075104}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.4561595913834534`*^9, {3.4561605311135764`*^9, 3.4561605594262576`*^9}, 
   3.4568234243810835`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2.6`", ",", "1.06`", ",", 
   RowBox[{"-", "0.664`"}], ",", 
   RowBox[{"-", "0.9284`"}], ",", 
   RowBox[{"-", "0.22503999999999996`"}], ",", "0.329176`", ",", "0.3100256`",
    ",", "0.021427359999999993`", ",", 
   RowBox[{"-", "0.142156384`"}], ",", 
   RowBox[{"-", "0.0960075104`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4561595913834534`*^9, {3.4561605311135764`*^9, 3.4561605594262576`*^9}, 
   3.4568234243810835`*^9}],

Cell[BoxData[
 GraphicsBox[
  GraphicsComplexBox[{{1., 1.}, {2., 2.6}, {3., 1.06}, {4., -0.664}, {
   5., -0.9284}, {6., -0.22503999999999996`}, {7., 0.329176}, {8., 
   0.3100256}, {9., 0.021427359999999993`}, {10., -0.142156384}, {
   11., -0.0960075104}, {1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}, {5., 0.}, {6.,
    0.}, {7., 0.}, {8., 0.}, {9., 0.}, {10., 0.}, {11., 0.}, {1., 1.}, {2., 
   2.6}, {3., 1.06}, {4., -0.664}, {5., -0.9284}, {
   6., -0.22503999999999996`}, {7., 0.329176}, {8., 0.3100256}, {9., 
   0.021427359999999993`}, {10., -0.142156384}, {
   11., -0.0960075104}}, {{{}, {}, {}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{15, 4}], LineBox[{16, 5}], 
      LineBox[{17, 6}], LineBox[{21, 10}], LineBox[{22, 11}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], 
      LineBox[{14, 3}], LineBox[{18, 7}], LineBox[{19, 8}], 
      LineBox[{20, 9}]}}, {{}, 
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 11.}, {-0.9284, 2.6}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4561595913834534`*^9, {3.4561605311135764`*^9, 3.4561605594262576`*^9}, 
   3.456823424396709*^9}]
}, Open  ]]
},
WindowSize->{823, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 340, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[933, 35, 1265, 32, 108, "Input"],
Cell[2201, 69, 1465, 36, 50, "Output"],
Cell[3669, 107, 615, 11, 30, "Output"],
Cell[4287, 120, 1567, 29, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5891, 154, 1296, 35, 108, "Input"],
Cell[7190, 191, 1293, 33, 50, "Output"],
Cell[8486, 226, 447, 8, 30, "Output"],
Cell[8936, 236, 1392, 26, 243, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10365, 267, 1387, 37, 113, "Input"],
Cell[11755, 306, 1230, 33, 50, "Output"],
Cell[12988, 341, 388, 8, 30, "Output"],
Cell[13379, 351, 1331, 26, 243, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14747, 382, 1465, 39, 113, "Input"],
Cell[16215, 423, 1220, 33, 50, "Output"],
Cell[17438, 458, 484, 11, 30, "Output"],
Cell[17925, 471, 1373, 28, 234, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)