(* 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[     11004,        372]
NotebookOptionsPosition[     10403,        348]
NotebookOutlinePosition[     10746,        363]
CellTagsIndexPosition[     10703,        360]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["E", 
       RowBox[{
        RowBox[{"-", "m"}], " ", 
        SuperscriptBox["x", "2"]}]], "+", 
      SuperscriptBox["E", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "s2"}], ")"}], " ", 
        SuperscriptBox["x", "2"]}]]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"v", "=", 
  RowBox[{"A", "-", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox["A", "2"], "-", "1"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"u", "=", 
  RowBox[{"A", "+", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox["A", "2"], "-", "1"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"p", "=", 
  FractionBox[
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["E", 
      RowBox[{"m", " ", 
       SuperscriptBox["x", "2"]}]], "-", "v"}], ")"}], 
   RowBox[{"u", "-", "v"}]]}]}], "Input",
 CellChangeTimes->{{3.5238788896262693`*^9, 3.523878953798966*^9}, {
  3.5238791065509214`*^9, 3.5238791594734735`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "m"}], " ", 
       SuperscriptBox["x", "2"]}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "+", "s2"}], ")"}], " ", 
       SuperscriptBox["x", "2"]}]]}], ")"}]}], "-", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "m"}], " ", 
          SuperscriptBox["x", "2"]}]], "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"m", "+", "s2"}], ")"}], " ", 
          SuperscriptBox["x", "2"]}]]}], ")"}], "2"]}]}]]}]], "Output",
 CellChangeTimes->{3.5238790202529416`*^9, 3.523879160660989*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "m"}], " ", 
       SuperscriptBox["x", "2"]}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "+", "s2"}], ")"}], " ", 
       SuperscriptBox["x", "2"]}]]}], ")"}]}], "+", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "m"}], " ", 
          SuperscriptBox["x", "2"]}]], "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"m", "+", "s2"}], ")"}], " ", 
          SuperscriptBox["x", "2"]}]]}], ")"}], "2"]}]}]]}]], "Output",
 CellChangeTimes->{3.5238790202529416`*^9, 3.523879160660989*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"m", " ", 
     SuperscriptBox["x", "2"]}]], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "m"}], " ", 
         SuperscriptBox["x", "2"]}]]}], "-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "s2"}], ")"}], " ", 
        SuperscriptBox["x", "2"]}]]}], ")"}]}], "+", 
   SqrtBox[
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "m"}], " ", 
           SuperscriptBox["x", "2"]}]], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"m", "+", "s2"}], ")"}], " ", 
           SuperscriptBox["x", "2"]}]]}], ")"}], "2"]}]}]]}], 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "m"}], " ", 
         SuperscriptBox["x", "2"]}]]}], "-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "s2"}], ")"}], " ", 
        SuperscriptBox["x", "2"]}]]}], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "m"}], " ", 
        SuperscriptBox["x", "2"]}]], "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "s2"}], ")"}], " ", 
        SuperscriptBox["x", "2"]}]]}], ")"}]}], "+", 
   RowBox[{"2", " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{
       FractionBox["1", "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "m"}], " ", 
            SuperscriptBox["x", "2"]}]], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"m", "+", "s2"}], ")"}], " ", 
            SuperscriptBox["x", "2"]}]]}], ")"}], "2"]}]}]]}]}]]], "Output",
 CellChangeTimes->{3.5238790202529416`*^9, 3.523879160660989*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Series", "[", 
    RowBox[{"u", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Series", "[", 
    RowBox[{"v", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Series", "[", 
    RowBox[{"p", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5238790630659895`*^9, 3.523879073784877*^9}, {
  3.523879173083023*^9, 3.5238791809581237`*^9}, {3.523879223724296*^9, 
  3.523879226927462*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   RowBox[{
    SqrtBox["s2"], " ", "x"}], "+", 
   FractionBox[
    RowBox[{"s2", " ", 
     SuperscriptBox["x", "2"]}], "2"], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["m", "2"]}], "+", 
       RowBox[{"4", " ", "m", " ", "s2"}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["s2", "2"]}]}], ")"}], " ", 
     SuperscriptBox["x", "3"]}], 
    RowBox[{"8", " ", 
     SqrtBox["s2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "x", "]"}], "4"],
    SeriesData[$CellContext`x, 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 0, {
   1, $CellContext`s2^Rational[1, 2], Rational[1, 2] $CellContext`s2, 
    Rational[1, 8] $CellContext`s2^Rational[-1, 2] (4 $CellContext`m^2 + 
     4 $CellContext`m $CellContext`s2 + 3 $CellContext`s2^2)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.5238790744411354`*^9, 3.5238791814893804`*^9, 
  3.523879227786848*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   RowBox[{
    SqrtBox["s2"], " ", "x"}], "+", 
   FractionBox[
    RowBox[{"s2", " ", 
     SuperscriptBox["x", "2"]}], "2"], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        SuperscriptBox["m", "2"]}], "-", 
       RowBox[{"4", " ", "m", " ", "s2"}], "-", 
       RowBox[{"3", " ", 
        SuperscriptBox["s2", "2"]}]}], ")"}], " ", 
     SuperscriptBox["x", "3"]}], 
    RowBox[{"8", " ", 
     SqrtBox["s2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "x", "]"}], "4"],
    SeriesData[$CellContext`x, 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 0, {
   1, -$CellContext`s2^Rational[1, 2], Rational[1, 2] $CellContext`s2, 
    Rational[1, 8] $CellContext`s2^Rational[-1, 2] ((-4) $CellContext`m^2 - 
     4 $CellContext`m $CellContext`s2 - 3 $CellContext`s2^2)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.5238790744411354`*^9, 3.5238791814893804`*^9, 
  3.523879227786848*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox["1", "2"], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"m", "-", 
       FractionBox["s2", "2"]}], ")"}], " ", "x"}], 
    RowBox[{"2", " ", 
     SqrtBox["s2"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "8"}], " ", 
        SuperscriptBox["m", "3"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["m", "2"], " ", "s2"}], "-", 
       RowBox[{"10", " ", "m", " ", 
        SuperscriptBox["s2", "2"]}], "-", 
       SuperscriptBox["s2", "3"]}], ")"}], " ", 
     SuperscriptBox["x", "3"]}], 
    RowBox[{"32", " ", 
     SuperscriptBox["s2", 
      RowBox[{"3", "/", "2"}]]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "x", "]"}], "4"],
    SeriesData[$CellContext`x, 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 0, {
    Rational[1, 2], 
    Rational[1, 2] ($CellContext`m + 
     Rational[-1, 2] $CellContext`s2) $CellContext`s2^Rational[-1, 2], 0, 
    Rational[1, 32] $CellContext`s2^Rational[-3, 2] ((-8) $CellContext`m^3 - 
     4 $CellContext`m^2 $CellContext`s2 - 
     10 $CellContext`m $CellContext`s2^2 - $CellContext`s2^3)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.5238790744411354`*^9, 3.5238791814893804`*^9, 
  3.523879227786848*^9}]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
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, 1083, 36, 140, "Input"],
Cell[1653, 60, 974, 32, 54, "Output"],
Cell[2630, 94, 974, 32, 54, "Output"],
Cell[3607, 128, 2522, 83, 96, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6166, 216, 673, 19, 92, "Input"],
Cell[6842, 237, 1063, 31, 54, "Output"],
Cell[7908, 270, 1091, 32, 54, "Output"],
Cell[9002, 304, 1385, 41, 60, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)