(* 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[      5341,        191]
NotebookOptionsPosition[      4902,        171]
NotebookOutlinePosition[      5245,        186]
CellTagsIndexPosition[      5202,        183]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Integrate", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a1", " ", 
       RowBox[{"(", 
        RowBox[{"m", "+", "r"}], ")"}]}], "+", 
      RowBox[{"a2", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"m", "+", "r"}], ")"}], "2"]}]}], ")"}], "r", " ", 
    SuperscriptBox["E", 
     FractionBox[
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["s", "2"]}]]]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"-", "Infinity"}], ",", 
     RowBox[{"+", "Infinity"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.489228728648883*^9, 3.489228781071764*^9}, {
  3.489330729707129*^9, 3.489330741457279*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Re", "[", 
     SuperscriptBox["s", "2"], "]"}], ">", "0"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a1", "+", 
       RowBox[{"2", " ", "a2", " ", "m"}]}], ")"}], " ", 
     SqrtBox[
      RowBox[{"2", " ", "\[Pi]"}]]}], 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", 
       SuperscriptBox["s", "2"]], ")"}], 
     RowBox[{"3", "/", "2"}]]], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["r", "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["s", "2"]}]]}]], " ", "r", " ", 
      RowBox[{"(", 
       RowBox[{"m", "+", "r"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"a1", "+", 
        RowBox[{"a2", " ", 
         RowBox[{"(", 
          RowBox[{"m", "+", "r"}], ")"}]}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", 
       RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{
       RowBox[{"Re", "[", 
        SuperscriptBox["s", "2"], "]"}], "\[LessEqual]", "0"}]}]}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.4892287964626846`*^9, 3.489330776129598*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a1", " ", 
       RowBox[{"(", 
        RowBox[{"m", "+", "r"}], ")"}]}], "+", 
      RowBox[{"a2", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"m", "+", "r"}], ")"}], "2"]}]}], ")"}], " ", 
    SuperscriptBox["E", 
     FractionBox[
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["s", "2"]}]]]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"-", "Infinity"}], ",", 
     RowBox[{"+", "Infinity"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.489228728648883*^9, 3.489228781071764*^9}, {
  3.4892400214008045`*^9, 3.4892400216820583`*^9}, {3.4893310123826222`*^9, 
  3.4893310176326895`*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Re", "[", 
     SuperscriptBox["s", "2"], "]"}], ">", "0"}], ",", 
   FractionBox[
    RowBox[{
     SqrtBox[
      RowBox[{"2", " ", "\[Pi]"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a1", " ", "m"}], "+", 
       RowBox[{"a2", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["m", "2"], "+", 
          SuperscriptBox["s", "2"]}], ")"}]}]}], ")"}]}], 
    SqrtBox[
     FractionBox["1", 
      SuperscriptBox["s", "2"]]]], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["r", "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["s", "2"]}]]}]], " ", 
      RowBox[{"(", 
       RowBox[{"m", "+", "r"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"a1", "+", 
        RowBox[{"a2", " ", 
         RowBox[{"(", 
          RowBox[{"m", "+", "r"}], ")"}]}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", 
       RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{
       RowBox[{"Re", "[", 
        SuperscriptBox["s", "2"], "]"}], "\[LessEqual]", "0"}]}]}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.4892287964626846`*^9, 3.489240024650846*^9, 
  3.4893310207733545`*^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, 753, 24, 53, "Input"],
Cell[1323, 48, 1313, 42, 110, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2673, 95, 805, 25, 53, "Input"],
Cell[3481, 122, 1405, 46, 126, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)