(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      7739,        243]
NotebookOptionsPosition[      6837,        206]
NotebookOutlinePosition[      7206,        222]
CellTagsIndexPosition[      7163,        219]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"d\[Sigma]d\[CapitalOmega]", "[", 
   RowBox[{
   "Nsc_", ",", "L_", ",", "k_", ",", "\[Alpha]path_", ",", "Ntarget_", ",", 
    "Adet_"}], "]"}], "=", 
  FractionBox[
   RowBox[{"Nsc", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["L", "2"], "+", 
      SuperscriptBox["2.5", "2"]}], ")"}]}], 
   RowBox[{
    FractionBox["k", "\[Alpha]path"], "Ntarget", " ", "Adet", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"ArcTan", "[", 
      FractionBox["2.5", "L"], "]"}], "]"}]}]]}]], "Input",
 CellChangeTimes->{{3.40050605634375*^9, 3.400506222171875*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SqrtBox[
    RowBox[{"1", "+", 
     FractionBox["6.25`", 
      SuperscriptBox["L", "2"]]}]], " ", 
   RowBox[{"(", 
    RowBox[{"6.25`", "\[InvisibleSpace]", "+", 
     SuperscriptBox["L", "2"]}], ")"}], " ", "Nsc", " ", "\[Alpha]path"}], 
  RowBox[{"Adet", " ", "k", " ", "Ntarget"}]]], "Output",
 CellChangeTimes->{3.400506228*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ErrorFunction", "[", 
  RowBox[{
   RowBox[{"d\[Sigma]d\[CapitalOmega]", "[", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.3017", ",", "2.5", ",", "688466", ",", "62.5", ",", 
     RowBox[{"8.45", "*", 
      SuperscriptBox["10", "19"]}], ",", ".25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{".0619", ",", ".1", ",", "5312", ",", "0", ",", "0", ",", ".1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4005062468125*^9, 3.400506304015625*^9}, {
   3.400506346046875*^9, 3.40050651103125*^9}, 3.400533430328125*^9, {
   3.4005337209375*^9, 3.40053372134375*^9}}],

Cell[BoxData["7.948998885107243`*^-23"], "Output",
 CellChangeTimes->{
  3.4005065188125*^9, {3.40053343171875*^9, 3.40053345275*^9}, 
   3.400533749421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ErrorFunction", "[", 
  RowBox[{
   RowBox[{"d\[Sigma]d\[CapitalOmega]", "[", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2217", ",", "5", ",", "688466", ",", "62.5", ",", 
     RowBox[{"8.45", "*", 
      SuperscriptBox["10", "19"]}], ",", ".25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{".0451", ",", ".1", ",", "5312", ",", "0", ",", "0", ",", ".1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4005065809375*^9, 3.400506625390625*^9}, 
   3.40053343478125*^9, {3.400533725125*^9, 3.40053372553125*^9}}],

Cell[BoxData["8.669479952516783`*^-23"], "Output",
 CellChangeTimes->{
  3.400506639171875*^9, 3.40053345384375*^9, {3.400533786234375*^9, 
   3.400533796109375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ErrorFunction", "[", 
  RowBox[{
   RowBox[{"d\[Sigma]d\[CapitalOmega]", "[", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1817", ",", "10", ",", "688466", ",", "62.5", ",", 
     RowBox[{"8.45", "*", 
      SuperscriptBox["10", "19"]}], ",", ".25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{".0444", ",", ".1", ",", "5312", ",", "0", ",", "0", ",", ".1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4005065809375*^9, 3.400506625390625*^9}, {
   3.400506684484375*^9, 3.400506738078125*^9}, 3.40053343571875*^9, {
   3.40053372828125*^9, 3.400533728671875*^9}}],

Cell[BoxData["2.5779450668632227`*^-22"], "Output",
 CellChangeTimes->{3.40050674234375*^9, 3.400533455640625*^9, 
  3.4005338120625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ErrorFunction", "[", 
  RowBox[{
   RowBox[{"d\[Sigma]d\[CapitalOmega]", "[", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{".9833", ",", "15", ",", "688466", ",", "62.5", ",", 
     RowBox[{"8.45", "*", 
      SuperscriptBox["10", "19"]}], ",", ".25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{".0405", ",", ".1", ",", "5312", ",", "0", ",", "0", ",", ".1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4005065809375*^9, 3.400506625390625*^9}, {
   3.400506684484375*^9, 3.400506738078125*^9}, 3.40050677928125*^9, {
   3.40050683240625*^9, 3.400506844671875*^9}, 3.400533436578125*^9, {
   3.400533731140625*^9, 3.4005337315*^9}}],

Cell[BoxData["4.573773148578237`*^-22"], "Output",
 CellChangeTimes->{
  3.40050685978125*^9, 3.400533456484375*^9, {3.400533822296875*^9, 
   3.4005338358125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ErrorFunction", "[", 
  RowBox[{
   RowBox[{"d\[Sigma]d\[CapitalOmega]", "[", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Nsc", ",", "L", ",", "k", ",", "\[Alpha]path", ",", "Ntarget", ",", 
     "Adet"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{".7283", ",", "20", ",", "688466", ",", "62.5", ",", 
     RowBox[{"8.45", "*", 
      SuperscriptBox["10", "19"]}], ",", ".25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{".0348", ",", ".1", ",", "5312", ",", "0", ",", "0", ",", ".1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4005065809375*^9, 3.400506625390625*^9}, {
   3.400506684484375*^9, 3.400506738078125*^9}, 3.40050677928125*^9, {
   3.40050683240625*^9, 3.400506844671875*^9}, {3.40050688471875*^9, 
   3.400506901390625*^9}, 3.4005334375*^9, {3.400533734546875*^9, 
   3.400533735078125*^9}}],

Cell[BoxData["5.961751102873386`*^-22"], "Output",
 CellChangeTimes->{3.400506908890625*^9, 3.400533457609375*^9, 
  3.40053383428125*^9}]
}, Open  ]]
},
WindowSize->{615, 750},
WindowMargins->{{Automatic, 316}, {Automatic, 13}},
CellLabelAutoDelete->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 595, 17, 84, "Input"],
Cell[1188, 42, 377, 11, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1602, 58, 832, 20, 76, "Input"],
Cell[2437, 80, 160, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2634, 88, 779, 19, 76, "Input"],
Cell[3416, 109, 166, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3619, 117, 833, 20, 76, "Input"],
Cell[4455, 139, 137, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4629, 146, 899, 21, 76, "Input"],
Cell[5531, 169, 164, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5732, 177, 948, 22, 76, "Input"],
Cell[6683, 201, 138, 2, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)