(* 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[      4249,        150]
NotebookOptionsPosition[      3922,        134]
NotebookOutlinePosition[      4265,        149]
CellTagsIndexPosition[      4222,        146]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], "2"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", 
           SuperscriptBox["sN", "2"]], "+", 
          FractionBox["1", 
           SuperscriptBox["s", "2"]]}], ")"}], 
        SuperscriptBox["m", "2"]}], "-", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["x", 
           SuperscriptBox["s", "2"]], "+", 
          FractionBox["mN", 
           SuperscriptBox["sN", "2"]]}], ")"}], "m"}], "+", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["x", "2"], 
          SuperscriptBox["s", "2"]], "+", 
         FractionBox[
          SuperscriptBox["mN", "2"], 
          SuperscriptBox["sN", "2"]]}], ")"}]}], ")"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", 
     RowBox[{"-", "Infinity"}], ",", 
     RowBox[{"+", "Infinity"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.498231307657814*^9, 3.4982313905026245`*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Re", "[", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox["s", "2"]], "+", 
      FractionBox["1", 
       SuperscriptBox["sN", "2"]]}], "]"}], ">", "0"}], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"mN", "-", "x"}], ")"}], "2"], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["s", "2"], "+", 
           SuperscriptBox["sN", "2"]}], ")"}]}]]}]], " ", 
     SqrtBox[
      RowBox[{"2", " ", "\[Pi]"}]]}], 
    SqrtBox[
     RowBox[{
      FractionBox["1", 
       SuperscriptBox["s", "2"]], "+", 
      FractionBox["1", 
       SuperscriptBox["sN", "2"]]}]]], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["mN", "2"], " ", 
          SuperscriptBox["s", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["m", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["s", "2"], "+", 
            SuperscriptBox["sN", "2"]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["sN", "2"], " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"2", " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"mN", " ", 
             SuperscriptBox["s", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["sN", "2"], " ", "x"}]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["s", "2"], " ", 
         SuperscriptBox["sN", "2"]}]]}]], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", 
       RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{
         FractionBox["1", 
          SuperscriptBox["s", "2"]], "+", 
         FractionBox["1", 
          SuperscriptBox["sN", "2"]]}], "]"}], "\[LessEqual]", "0"}]}]}], 
    "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.4982314044246774`*^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, 1121, 36, 83, "Input"],
Cell[1691, 60, 2215, 71, 187, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)