(* 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[     10451,        349]
NotebookOptionsPosition[      9725,        319]
NotebookOutlinePosition[     10089,        335]
CellTagsIndexPosition[     10046,        332]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   SuperscriptBox["E", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{"1", "-", "a", "-", 
       RowBox[{"b", " ", "x"}], "-", 
       RowBox[{"c", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "m"}], ")"}], "2"]}]}], ")"}]}]], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Infinity"}], ",", 
     RowBox[{"+", "Infinity"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.497624963959304*^9, 3.4976250595988617`*^9}, {
  3.497625134959201*^9, 3.4976251366935987`*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Re", "[", "c", "]"}], "<", "0"}], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "a", "-", 
       FractionBox[
        SuperscriptBox["b", "2"], 
        RowBox[{"4", " ", "c"}]], "+", 
       RowBox[{"b", " ", "m"}]}]], " ", 
     SqrtBox["\[Pi]"]}], 
    SqrtBox[
     RowBox[{"-", "c"}]]], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "a", "+", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"m", "-", "x"}], ")"}], "2"]}], "+", 
       RowBox[{"b", " ", "x"}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{
       RowBox[{"Re", "[", "c", "]"}], "\[GreaterEqual]", "0"}]}]}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.497625065395811*^9, 3.4976251420374165`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    SuperscriptBox["E", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"1", "-", "a", "-", 
        RowBox[{"b", " ", "x"}], "-", 
        RowBox[{"c", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "-", "m"}], ")"}], "2"]}]}], ")"}]}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Infinity"}], ",", 
     RowBox[{"+", "Infinity"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.497624963959304*^9, 3.4976250595988617`*^9}, {
  3.497625134959201*^9, 3.4976251366935987`*^9}, {3.4976251695690193`*^9, 
  3.497625170256528*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Re", "[", "c", "]"}], "<", "0"}], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "a", "-", 
       FractionBox[
        SuperscriptBox["b", "2"], 
        RowBox[{"4", " ", "c"}]], "+", 
       RowBox[{"b", " ", "m"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{"b", "-", 
       RowBox[{"2", " ", "c", " ", "m"}]}], ")"}], " ", 
     SqrtBox["\[Pi]"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "c"}], ")"}], 
      RowBox[{"3", "/", "2"}]]}]], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a", "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"m", "-", "x"}], ")"}], "2"]}], "+", 
        RowBox[{"b", " ", "x"}]}]], " ", "x"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{
       RowBox[{"Re", "[", "c", "]"}], "\[GreaterEqual]", "0"}]}]}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.497625176569109*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "-", "m"}], ")"}], "2"], " ", 
    SuperscriptBox["E", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"1", "-", "a", "-", 
        RowBox[{"b", " ", "x"}], "-", 
        RowBox[{"c", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "-", "m"}], ")"}], "2"]}]}], ")"}]}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Infinity"}], ",", 
     RowBox[{"+", "Infinity"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.497624963959304*^9, 3.4976250595988617`*^9}, {
  3.497625134959201*^9, 3.4976251366935987`*^9}, {3.4976251695690193`*^9, 
  3.497625170256528*^9}, {3.4976252012569246`*^9, 3.4976252051632247`*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Re", "[", "c", "]"}], "<", "0"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["b", "2"], "-", 
       RowBox[{"2", " ", "c"}]}], ")"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "a", "-", 
       FractionBox[
        SuperscriptBox["b", "2"], 
        RowBox[{"4", " ", "c"}]], "+", 
       RowBox[{"b", " ", "m"}]}]], " ", 
     SqrtBox["\[Pi]"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "c"}], ")"}], 
      RowBox[{"5", "/", "2"}]]}]], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a", "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"m", "-", "x"}], ")"}], "2"]}], "+", 
        RowBox[{"b", " ", "x"}]}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"m", "-", "x"}], ")"}], "2"]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{
       RowBox[{"Re", "[", "c", "]"}], "\[GreaterEqual]", "0"}]}]}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.4976252183508935`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "a", "-", 
          FractionBox[
           SuperscriptBox["b", "2"], 
           RowBox[{"4", " ", "c"}]], "+", 
          RowBox[{"b", " ", "m"}]}]], " ", 
        SqrtBox["\[Pi]"]}], 
       SqrtBox[
        RowBox[{"-", "c"}]]], "\[Equal]", "1"}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "a", "-", 
          FractionBox[
           SuperscriptBox["b", "2"], 
           RowBox[{"4", " ", "c"}]], "+", 
          RowBox[{"b", " ", "m"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{"b", "-", 
          RowBox[{"2", " ", "c", " ", "m"}]}], ")"}], " ", 
        SqrtBox["\[Pi]"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "c"}], ")"}], 
         RowBox[{"3", "/", "2"}]]}]], "\[Equal]", "m"}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["b", "2"], "-", 
          RowBox[{"2", " ", "c"}]}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "a", "-", 
          FractionBox[
           SuperscriptBox["b", "2"], 
           RowBox[{"4", " ", "c"}]], "+", 
          RowBox[{"b", " ", "m"}]}]], " ", 
        SqrtBox["\[Pi]"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "c"}], ")"}], 
         RowBox[{"5", "/", "2"}]]}]], "\[Equal]", 
      SuperscriptBox["s", "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.497625374102887*^9, 3.497625418775334*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used by \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", so some solutions may not be found; \
use Reduce for complete solution information.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.497625419962849*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"Log", "[", 
       FractionBox[
        SuperscriptBox["\[ExponentialE]", "4"], 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Pi]", "2"], " ", 
         SuperscriptBox["s", "4"]}]], "]"}]}]}], ",", 
    RowBox[{"b", "\[Rule]", "0"}], ",", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{"2", " ", 
        SuperscriptBox["s", "2"]}]]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.497625419962849*^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, 579, 17, 43, "Input"],
Cell[1149, 41, 1091, 34, 98, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2277, 80, 663, 19, 43, "Input"],
Cell[2943, 101, 1296, 41, 97, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4276, 147, 792, 22, 43, "Input"],
Cell[5071, 171, 1402, 45, 98, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6510, 221, 1923, 60, 130, "Input"],
Cell[8436, 283, 664, 12, 56, "Message"],
Cell[9103, 297, 606, 19, 51, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)