(* 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[      9112,        311]
NotebookOptionsPosition[      7993,        266]
NotebookOutlinePosition[      8357,        282]
CellTagsIndexPosition[      8314,        279]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"1", "-", 
     RowBox[{"1.3", " ", "B"}], " ", "+", " ", 
     RowBox[{"0.4", " ", 
      SuperscriptBox["B", "2"]}]}]], ",", 
   RowBox[{"{", 
    RowBox[{"B", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.523610334138899*^9, 3.523610357982954*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   RowBox[{"1.3`", " ", "B"}], "+", 
   RowBox[{"1.29`", " ", 
    SuperscriptBox["B", "2"]}], "+", 
   RowBox[{"1.157`", " ", 
    SuperscriptBox["B", "3"]}], "+", 
   RowBox[{"0.9881`", " ", 
    SuperscriptBox["B", "4"]}], "+", 
   RowBox[{"0.8217299999999998`", " ", 
    SuperscriptBox["B", "5"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "6"],
    SeriesData[$CellContext`B, 0, {}, 0, 6, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {
   1, 1.3, 1.29, 1.157, 0.9881, 0.8217299999999998}, 0, 6, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.5236104038585415`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", " ", 
     RowBox[{"1.3", " ", "B"}], " ", "+", " ", 
     RowBox[{"0.4", " ", 
      SuperscriptBox["B", "2"]}]}], ")"}], 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"1.3", " ", 
      SuperscriptBox["B", 
       RowBox[{"-", "1"}]]}], "+", 
     RowBox[{"0.4", " ", 
      SuperscriptBox["B", 
       RowBox[{"-", "2"}]]}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.523611619233473*^9, 3.523611644515046*^9}}],

Cell[BoxData[
 RowBox[{"2.8500000000000005`", "\[InvisibleSpace]", "+", 
  FractionBox["0.4`", 
   SuperscriptBox["B", "2"]], "-", 
  FractionBox["1.82`", "B"], "-", 
  RowBox[{"1.82`", " ", "B"}], "+", 
  RowBox[{"0.4`", " ", 
   SuperscriptBox["B", "2"]}]}]], "Output",
 CellChangeTimes->{3.523611644890051*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"1", "-", 
     RowBox[{"1.3", " ", "B"}], "+", 
     RowBox[{"0.4", " ", 
      SuperscriptBox["B", "2"]}]}], 
    RowBox[{"1", "-", 
     RowBox[{"0.5", " ", "B"}]}]], ",", 
   RowBox[{"{", 
    RowBox[{"B", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.523612998735505*^9, 3.523613054345592*^9}, 
   3.5236130878303957`*^9, {3.523613259207589*^9, 3.523613309036352*^9}, {
   3.5236134148970823`*^9, 3.5236134533819494`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   RowBox[{"0.8`", " ", "B"}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "101"],
    SeriesData[$CellContext`B, 0, {}, 0, 101, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, -0.8}, 0, 101, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.523613045439228*^9, 3.523613054642471*^9}, 
   3.5236130885022793`*^9, {3.523613264645159*^9, 3.5236132713327446`*^9}, 
   3.5236133105832467`*^9, {3.5236134158970947`*^9, 3.5236134536475782`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"1", "-", 
    RowBox[{
     FractionBox["13", "10"], " ", "B"}], "+", 
    RowBox[{
     FractionBox["2", "5"], " ", 
     SuperscriptBox["B", "2"]}]}], 
   RowBox[{"1", "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "B"}]}]], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.5236133209740047`*^9, 3.523613322724027*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  FractionBox[
   RowBox[{"4", " ", "B"}], "5"]}]], "Output",
 CellChangeTimes->{{3.523613318817727*^9, 3.5236133230677814`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"0.8", " ", "B"}]}], ")"}], 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"0.8", " ", 
      SuperscriptBox["B", 
       RowBox[{"-", "1"}]]}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5236136716034927`*^9, 3.523613683869275*^9}}],

Cell[BoxData[
 RowBox[{"1.6400000000000001`", "\[InvisibleSpace]", "-", 
  FractionBox["0.8`", "B"], "-", 
  RowBox[{"0.8`", " ", "B"}]}]], "Output",
 CellChangeTimes->{3.523613684181779*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"prob38Sol", "=", 
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "-", 
      RowBox[{"0.82", " ", "B"}], "-", 
      RowBox[{"0.22", " ", 
       SuperscriptBox["B", "2"]}], "+", 
      RowBox[{"0.28", " ", 
       SuperscriptBox["B", "4"]}]}], "\[Equal]", "0"}], ",", "B"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.52361413271877*^9, 3.5236141775318437`*^9}, {
  3.5236142152510767`*^9, 3.523614240282647*^9}, {3.5236142865957394`*^9, 
  3.523614294923971*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"B", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "1.094874186993397`"}], "-", 
      RowBox[{"1.2143281222449578`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"B", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "1.094874186993397`"}], "+", 
      RowBox[{"1.2143281222449578`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"B", "\[Rule]", 
     RowBox[{"1.094874186993397`", "\[InvisibleSpace]", "-", 
      RowBox[{"0.3703942446902389`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"B", "\[Rule]", 
     RowBox[{"1.094874186993397`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.3703942446902389`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5236141525158987`*^9, 3.5236141780006*^9}, 
   3.523614241392036*^9, 3.5236142954083524`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    FractionBox["1", "B"], ",", 
    FractionBox["1", 
     RowBox[{"Abs", "[", "B", "]"}]]}], "}"}], "/.", "prob38Sol"}]], "Input",
 CellChangeTimes->{{3.5236143459871244`*^9, 3.523614368987419*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.4095525656088716`"}], "+", 
      RowBox[{"0.4542359331003438`", " ", "\[ImaginaryI]"}]}], ",", 
     "0.6116073797105045`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.4095525656088716`"}], "-", 
      RowBox[{"0.4542359331003438`", " ", "\[ImaginaryI]"}]}], ",", 
     "0.6116073797105045`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0.8195525656088716`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.27725336584675203`", " ", "\[ImaginaryI]"}]}], ",", 
     "0.865179655718647`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0.8195525656088716`", "\[InvisibleSpace]", "-", 
      RowBox[{"0.27725336584675203`", " ", "\[ImaginaryI]"}]}], ",", 
     "0.865179655718647`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5236143525965843`*^9, 3.5236143694093*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Abs", "[", "B", "]"}], "/.", "prob38Sol"}]], "Input",
 CellChangeTimes->{{3.5236142533921895`*^9, 3.523614259657895*^9}, {
  3.5236142972208757`*^9, 3.5236143010490494`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.6350358631600155`", ",", "1.6350358631600155`", ",", 
   "1.155829304804176`", ",", "1.155829304804176`"}], "}"}]], "Output",
 CellChangeTimes->{3.5236142599391484`*^9, 3.5236143013615537`*^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, 358, 10, 48, "Input"],
Cell[928, 34, 691, 20, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1656, 59, 523, 16, 33, "Input"],
Cell[2182, 77, 313, 8, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2532, 90, 531, 14, 51, "Input"],
Cell[3066, 106, 556, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3659, 124, 380, 12, 63, "Input"],
Cell[4042, 138, 163, 4, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4242, 147, 350, 11, 33, "Input"],
Cell[4595, 160, 191, 4, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4823, 169, 513, 14, 33, "Input"],
Cell[5339, 185, 918, 23, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6294, 213, 252, 7, 49, "Input"],
Cell[6549, 222, 941, 25, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7527, 252, 209, 4, 31, "Input"],
Cell[7739, 258, 238, 5, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)