(* 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[      3438,        130]
NotebookOptionsPosition[      2792,        104]
NotebookOutlinePosition[      3234,        121]
CellTagsIndexPosition[      3191,        118]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[CapitalDelta]VAB", "=", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"L", ">", "0"}], ",", 
    RowBox[{"-", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", 
       RowBox[{"2", "L"}]], 
      RowBox[{
       FractionBox[
        RowBox[{"k", " ", "q", " ", "x"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["L", "2"]}], ")"}], 
         RowBox[{"3", "/", "2"}]]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.505050093157*^9, 3.505050202547*^9}, {3.505050263165*^9,
   3.505050277543*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "5"}], "+", 
     SqrtBox["5"]}], ")"}], " ", "k", " ", "q"}], 
  RowBox[{"5", " ", "L"}]]], "Output",
 CellChangeTimes->{3.5050502207200003`*^9, 3.505050279132*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$Assumptions", "=", 
  RowBox[{"{", 
   RowBox[{"L", ">", "0"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.50505030506*^9, 3.505050311929*^9}, 3.505050423671*^9, {
   3.5050655187483664`*^9, 3.50506551958745*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"L", ">", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.505050312843*^9, 3.5050504241730003`*^9, 
  3.5050655206475563`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[CapitalDelta]VAB", "=", 
  RowBox[{"-", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"2", "L"}]], 
    RowBox[{
     FractionBox[
      RowBox[{"k", " ", "q", " ", "x"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "2"], "+", 
         SuperscriptBox["L", "2"]}], ")"}], 
       RowBox[{"3", "/", "2"}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Input",
 CellChangeTimes->{3.50505029992*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "5"}], "+", 
     SqrtBox["5"]}], ")"}], " ", "k", " ", "q"}], 
  RowBox[{"5", " ", "L"}]]], "Output",
 CellChangeTimes->{
  3.505050344653*^9, {3.5050504012460003`*^9, 3.505050428709*^9}, 
   3.505065523958887*^9}]
}, Open  ]]
},
WindowSize->{1484, 1047},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 3., 3. Inherited],
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, 675, 20, 187, "Input"],
Cell[1245, 44, 252, 8, 168, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1534, 57, 236, 5, 124, "Input"],
Cell[1773, 64, 163, 4, 122, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1973, 73, 498, 16, 187, "Input"],
Cell[2474, 91, 302, 10, 168, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)