(* 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[      4304,        127]
NotebookOptionsPosition[      3919,        109]
NotebookOutlinePosition[      4283,        125]
CellTagsIndexPosition[      4240,        122]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"nTerms", "=", "15"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"taylor", "=", 
  RowBox[{"Series", "[", 
   RowBox[{
    FractionBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"1.1", " ", "B"}], "+", 
       RowBox[{"0.28", " ", 
        SuperscriptBox["B", "2"]}]}], ")"}], 
     RowBox[{"1", "-", "B"}]], ",", 
    RowBox[{"{", 
     RowBox[{"B", ",", "0", ",", "nTerms"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"psiJ", "=", 
  RowBox[{"Coefficient", "[", 
   RowBox[{"taylor", ",", "B", ",", 
    RowBox[{"Range", "[", "nTerms", "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.528477954871684*^9, 3.528477983293923*^9}, {
  3.5284783999867563`*^9, 3.5284784305340223`*^9}, {3.5284784822690597`*^9, 
  3.528478488316012*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   RowBox[{"0.10000000000000009`", " ", "B"}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "2"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "3"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "4"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "5"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "6"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "7"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "8"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "9"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "10"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "11"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "12"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "13"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "14"]}], "+", 
   RowBox[{"0.17999999999999994`", " ", 
    SuperscriptBox["B", "15"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "16"],
    SeriesData[$CellContext`B, 0, {}, 0, 16, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {
   1, -0.10000000000000009`, 0.17999999999999994`, 0.17999999999999994`, 
    0.17999999999999994`, 0.17999999999999994`, 0.17999999999999994`, 
    0.17999999999999994`, 0.17999999999999994`, 0.17999999999999994`, 
    0.17999999999999994`, 0.17999999999999994`, 0.17999999999999994`, 
    0.17999999999999994`, 0.17999999999999994`, 0.17999999999999994`}, 0, 16, 
   1],
  Editable->False]], "Output",
 CellChangeTimes->{3.5284780960141153`*^9, 3.528478430909027*^9, 
  3.528478489159773*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.10000000000000009`"}], ",", "0.17999999999999994`", ",", 
   "0.17999999999999994`", ",", "0.17999999999999994`", ",", 
   "0.17999999999999994`", ",", "0.17999999999999994`", ",", 
   "0.17999999999999994`", ",", "0.17999999999999994`", ",", 
   "0.17999999999999994`", ",", "0.17999999999999994`", ",", 
   "0.17999999999999994`", ",", "0.17999999999999994`", ",", 
   "0.17999999999999994`", ",", "0.17999999999999994`", ",", 
   "0.17999999999999994`"}], "}"}]], "Output",
 CellChangeTimes->{3.5284780960141153`*^9, 3.528478430909027*^9, 
  3.528478489159773*^9}]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 799, 22, 95, "Input"],
Cell[1369, 46, 1905, 46, 50, "Output"],
Cell[3277, 94, 626, 12, 50, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)