(* 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[     26207,        790]
NotebookOptionsPosition[     22693,        663]
NotebookOutlinePosition[     23084,        680]
CellTagsIndexPosition[     23041,        677]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["N-12 Lab", "Title",
 CellChangeTimes->{{3.431725803195878*^9, 3.431725815405665*^9}}],

Cell["\<\
This is a calculation sheet for the N12 lab that I have to do. It's a pretty \
stupid lab.\
\>", "Text",
 CellChangeTimes->{{3.4317258219471407`*^9, 3.43172583958982*^9}}],

Cell[CellGroupData[{

Cell["Photoelectric Effect Cross Section", "Section",
 CellChangeTimes->{{3.431725848757272*^9, 3.4317258595421247`*^9}}],

Cell["\<\
This is the calculation for the photoelectric effect cross section. Units of \
cm. Factor of 5/4 from taking into account higher shells.\
\>", "Text",
 CellChangeTimes->{{3.4317258669826403`*^9, 3.431725879702635*^9}, {
  3.4317414632143593`*^9, 3.4317414682148113`*^9}, {3.431813460934503*^9, 
  3.4318134689498253`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[Phi]", "0"], "=", 
   RowBox[{"6.551", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "25"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Z", " ", "=", " ", "53"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["\[Sigma]", "P"], "=", 
  RowBox[{
   SubscriptBox["\[Phi]", "0"], "*", "4", 
   SqrtBox["2"], 
   FractionBox[
    SuperscriptBox["Z", "5"], 
    SuperscriptBox["137", "4"]], "*", 
   FractionBox["5", "4"]}]}]}], "Input",
 CellChangeTimes->{{3.431725967226118*^9, 3.43172596752999*^9}, {
  3.43172600578624*^9, 3.431726065384019*^9}, {3.431726277582253*^9, 
  3.431726380768997*^9}, {3.431813454634819*^9, 3.4318134582310753`*^9}, {
  3.431814996652614*^9, 3.4318149976855*^9}, {3.4319824691385183`*^9, 
  3.431982471076495*^9}}],

Cell[BoxData["5.499075481948746`*^-24"], "Output",
 CellChangeTimes->{3.431726053139063*^9, 3.4317262784403477`*^9, 
  3.431726382816367*^9, 3.431813471563943*^9, 3.431814998188525*^9, 
  3.431982471681525*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  SubscriptBox["\[Sigma]", "P"], 
  SubscriptBox["\[Phi]", "0"]]], "Input",
 CellChangeTimes->{{3.431736036984947*^9, 3.431736053623341*^9}}],

Cell[BoxData["8.394253521521517`"], "Output",
 CellChangeTimes->{{3.4317360436282587`*^9, 3.431736054329639*^9}, 
   3.431813474329608*^9, 3.4319824735282173`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Compton Scattering Cross Section", "Section",
 CellChangeTimes->{{3.431725848757272*^9, 3.4317258595421247`*^9}, {
  3.431726446518421*^9, 3.431726448520494*^9}}],

Cell["\<\
This is the calculation for the photoelectric effect cross section. Note that \
the listed formula is for scattering off an electron. This has to be \
multiplied by the number of electrons.\
\>", "Text",
 CellChangeTimes->{{3.4317258669826403`*^9, 3.431725879702635*^9}, {
  3.43180615739813*^9, 3.431806199842993*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[Phi]", "0"], "=", 
   RowBox[{"6.651", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "25"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["num", "e"], "=", " ", 
   RowBox[{"11", "+", "53"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "=", 
   RowBox[{
    RowBox[{"2", "\[Gamma]"}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Phi]", "0"], 
   FractionBox["3", 
    RowBox[{"8", "\[Gamma]"}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"\[CapitalGamma]", "+", "1"}], 
         SuperscriptBox["\[Gamma]", "2"]]}], ")"}], 
      RowBox[{"Log", "[", "\[CapitalGamma]", "]"}]}], "+", 
     FractionBox["1", "2"], "+", 
     FractionBox["4", "\[Gamma]"], "-", 
     FractionBox["1", 
      RowBox[{"2", 
       SuperscriptBox["\[CapitalGamma]", "2"]}]]}], ")"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["\[Sigma]", "C"], "=", 
  RowBox[{
   SubscriptBox["\[Phi]", "0"], 
   FractionBox["3", 
    RowBox[{"8", "\[Gamma]"}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"\[CapitalGamma]", "+", "1"}], 
         SuperscriptBox["\[Gamma]", "2"]]}], ")"}], 
      RowBox[{"Log", "[", "\[CapitalGamma]", "]"}]}], "+", 
     FractionBox["1", "2"], "+", 
     FractionBox["4", "\[Gamma]"], "-", 
     FractionBox["1", 
      RowBox[{"2", 
       SuperscriptBox["\[CapitalGamma]", "2"]}]]}], ")"}], " ", 
   SubscriptBox["num", "e"]}]}]}], "Input",
 CellChangeTimes->{{3.431725967226118*^9, 3.43172596752999*^9}, {
   3.43172600578624*^9, 3.431726065384019*^9}, {3.431726277582253*^9, 
   3.431726380768997*^9}, {3.431726498352601*^9, 3.431726717158252*^9}, {
   3.431735770688662*^9, 3.4317358240864077`*^9}, {3.431806140149601*^9, 
   3.431806148020144*^9}, {3.431806257154998*^9, 3.431806279432369*^9}, {
   3.431806357371943*^9, 3.431806368991474*^9}, {3.4318072107025433`*^9, 
   3.431807220807166*^9}, {3.4318138604761972`*^9, 3.431813869312141*^9}, {
   3.431815003605459*^9, 3.431815006829515*^9}, {3.431829585972818*^9, 
   3.43182962606901*^9}, {3.431855844338696*^9, 3.431855863584338*^9}, {
   3.431856214586261*^9, 3.431856271216195*^9}, {3.431856346187985*^9, 
   3.431856362284927*^9}, {3.431856427432917*^9, 3.431856428517864*^9}, 
   3.431857452380642*^9, {3.431857941204813*^9, 3.431857959333021*^9}}],

Cell[BoxData["1.8334533610092498`*^-23"], "Output",
 CellChangeTimes->{{3.431807217588738*^9, 3.431807221615197*^9}, 
   3.431813476191525*^9, 3.431813861357993*^9, 3.431814016782937*^9, 
   3.4318150072320127`*^9, {3.431829587127606*^9, 3.431829626733315*^9}, 
   3.431855846177779*^9, {3.431856219386291*^9, 3.43185627176926*^9}, {
   3.4318563516421223`*^9, 3.431856363067053*^9}, 3.431856429371675*^9, 
   3.431857452828701*^9, {3.431857942530224*^9, 3.4318579598548307`*^9}, 
   3.431982475471064*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  SubscriptBox["\[Sigma]", "C"], 
  SubscriptBox["\[Phi]", "0"]]], "Input",
 CellChangeTimes->{{3.4317360640315742`*^9, 3.431736067527615*^9}, {
  3.431813864268072*^9, 3.431813865392047*^9}}],

Cell[BoxData["27.566581882562772`"], "Output",
 CellChangeTimes->{3.431829633241968*^9, 3.4318560914048853`*^9, 
  3.431856433699751*^9, 3.431857457726659*^9, 3.431857963413933*^9, 
  3.431982477245644*^9}]
}, Open  ]],

Cell["\<\
For checking the funny looking numerical factor:\
\>", "Text",
 CellChangeTimes->{{3.43185743194965*^9, 3.431857447839963*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"\[CapitalGamma]", "+", "1"}], 
        SuperscriptBox["\[Gamma]", "2"]]}], ")"}], 
     RowBox[{"Log", "[", "\[CapitalGamma]", "]"}]}], "+", 
    FractionBox["1", "2"], "+", 
    FractionBox["4", "\[Gamma]"], "-", 
    FractionBox["1", 
     RowBox[{"2", 
      SuperscriptBox["\[CapitalGamma]", "2"]}]]}], ")"}], "]"}]], "Input",
 CellChangeTimes->{{3.431856306184704*^9, 3.431856308095986*^9}, {
  3.4318579661581507`*^9, 3.4318579666184797`*^9}}],

Cell[BoxData["1.1486075784401155`"], "Output",
 CellChangeTimes->{3.431855888883732*^9, 3.431856309189396*^9, 
  3.431857967086605*^9, 3.431982479445376*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comparison", "Section",
 CellChangeTimes->{{3.431725848757272*^9, 3.4317258595421247`*^9}, {
  3.431726446518421*^9, 3.431726448520494*^9}, {3.431740296557715*^9, 
  3.431740301436784*^9}, {3.4318063912676773`*^9, 3.431806392145166*^9}}],

Cell["Comparison of cross sections.", "Text",
 CellChangeTimes->{{3.4317258669826403`*^9, 3.431725879702635*^9}, {
   3.43174030458936*^9, 3.4317403443022833`*^9}, 3.4317411184973707`*^9, {
   3.4317933225465937`*^9, 3.4317933260479794`*^9}, {3.431806395785028*^9, 
   3.431806399681226*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  SubscriptBox["\[Sigma]", "C"], 
  SubscriptBox["\[Sigma]", "P"]]], "Input",
 CellChangeTimes->{{3.4318064026649017`*^9, 3.4318064139237413`*^9}}],

Cell[BoxData["3.3341120103329005`"], "Output",
 CellChangeTimes->{
  3.431806414558126*^9, 3.431813480368037*^9, 3.4318138723443747`*^9, 
   3.431814019453339*^9, {3.431829621130777*^9, 3.431829639578437*^9}, 
   3.431857972049466*^9, 3.4319824811880503`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Probability", "Section",
 CellChangeTimes->{{3.431725848757272*^9, 3.4317258595421247`*^9}, {
  3.431726446518421*^9, 3.431726448520494*^9}, {3.431740296557715*^9, 
  3.431740301436784*^9}}],

Cell["\<\
This is the calculation for the probability of an interaction. P is the \
probability of scattering. NOTE: 1.5 is INCHES, not cm.\
\>", "Text",
 CellChangeTimes->{{3.4317258669826403`*^9, 3.431725879702635*^9}, {
   3.43174030458936*^9, 3.4317403443022833`*^9}, 3.4317411184973707`*^9, {
   3.4317933225465937`*^9, 3.4317933260479794`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"P", "[", 
   RowBox[{"sigma_", ",", "density_", ",", "depth_"}], "]"}], ":=", 
  RowBox[{"1", "-", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "sigma"}], " ", "density", " ", "depth"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{
    FractionBox["3.67", "149.89"], "*", "6.022", " ", 
    SuperscriptBox["10", "23"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"P", "[", 
  RowBox[{
   SubscriptBox["\[Sigma]", "P"], ",", "n", ",", "3.81"}], "]"}]}], "Input",
 CellChangeTimes->{
  3.431740558794339*^9, {3.4317406135095587`*^9, 3.431740629804616*^9}, {
   3.4317406983551683`*^9, 3.431740700498179*^9}, {3.43174077530373*^9, 
   3.4317408224308443`*^9}, {3.431740860950498*^9, 3.431740916680214*^9}, {
   3.431741101217017*^9, 3.431741174588497*^9}, {3.431741215090517*^9, 
   3.4317412700051537`*^9}, {3.431741403176045*^9, 3.43174145620446*^9}, {
   3.431741501105958*^9, 3.4317415056173973`*^9}, {3.4317415896124163`*^9, 
   3.431741600835511*^9}, {3.431789675717505*^9, 3.431789679205226*^9}, {
   3.431793280130165*^9, 3.4317932877538567`*^9}, {3.431793438326153*^9, 
   3.431793463792595*^9}, {3.431806562804565*^9, 3.431806579674313*^9}, 
   3.431815011550508*^9}],

Cell[BoxData["0.2657619483892626`"], "Output",
 CellChangeTimes->{{3.4317411418772173`*^9, 3.431741174948291*^9}, {
   3.431741216632472*^9, 3.431741245868607*^9}, 3.4317415058862123`*^9, 
   3.431741601420024*^9, 3.431789679702784*^9, {3.431793280641048*^9, 
   3.4317932882237997`*^9}, 3.431793467501224*^9, 3.4318064348849154`*^9, {
   3.4318065801471148`*^9, 3.431806591822239*^9}, 3.4318150128318157`*^9, 
   3.4318296435401783`*^9, 3.43185797612644*^9, 3.431982482849842*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P", "[", 
  RowBox[{
   SubscriptBox["\[Sigma]", "C"], ",", "n", ",", "3.81"}], "]"}]], "Input",
 CellChangeTimes->{{3.43180644070494*^9, 3.4318064568358707`*^9}, {
  3.431806586270233*^9, 3.4318065884812326`*^9}, {3.4318572462298203`*^9, 
  3.4318572503028*^9}}],

Cell[BoxData["0.6429860742586815`"], "Output",
 CellChangeTimes->{
  3.431806457619563*^9, 3.431806588872113*^9, 3.431829645335102*^9, {
   3.431857247506248*^9, 3.4318572507299137`*^9}, 3.4318579789596243`*^9, 
   3.4319824855997972`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Sigma]", "C"], "+", 
    SubscriptBox["\[Sigma]", "P"]}], ",", "n", ",", "3.81"}], "]"}]], "Input",\

 CellChangeTimes->{{3.431806764155939*^9, 3.431806780678652*^9}}],

Cell[BoxData["0.7378667907657939`"], "Output",
 CellChangeTimes->{3.431806781314232*^9, 3.431829647561661*^9, 
  3.431857981321875*^9, 3.431982486961025*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  RowBox[{"P", "[", 
   RowBox[{
    SubscriptBox["\[Sigma]", "C"], ",", "n", ",", "3.81"}], "]"}], 
  RowBox[{"P", "[", 
   RowBox[{
    SubscriptBox["\[Sigma]", "P"], ",", "n", ",", "3.81"}], "]"}]]], "Input",
 CellChangeTimes->{{3.431989626286077*^9, 3.4319896380653343`*^9}}],

Cell[BoxData["2.4194060818552443`"], "Output",
 CellChangeTimes->{3.431989638954899*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Errors", "Section",
 CellChangeTimes->{{3.431725848757272*^9, 3.4317258595421247`*^9}, {
  3.431726446518421*^9, 3.431726448520494*^9}, {3.431740296557715*^9, 
  3.431740301436784*^9}, {3.4318063912676773`*^9, 3.431806392145166*^9}, {
  3.431814669657032*^9, 3.4318146707332487`*^9}}],

Cell["Errors for various numbers", "Text",
 CellChangeTimes->{{3.4317258669826403`*^9, 3.431725879702635*^9}, {
   3.43174030458936*^9, 3.4317403443022833`*^9}, 3.4317411184973707`*^9, {
   3.4317933225465937`*^9, 3.4317933260479794`*^9}, {3.431806395785028*^9, 
   3.431806399681226*^9}, {3.431814676636647*^9, 3.431814682077251*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["PMTB", "main"], "=", "274431"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["coincidences", "main"], "=", "92516"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["PMTB", "angle"], "=", "286726"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["coincidences", "angle"], "=", "5966"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["compton", "main"], "=", "61879"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["photo", "main"], "=", "25496"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["compton", "angle"], "=", "4673"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["photo", "angle"], "=", "817"}], ";"}]}], "Input",
 CellChangeTimes->{{3.431814686268363*^9, 3.431814773408675*^9}, {
  3.431814975521124*^9, 3.4318149796515636`*^9}, {3.431819221528297*^9, 
  3.431819299027516*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NumError", "[", "number_", "]"}], ":=", 
  SqrtBox["number"]}]], "Input",
 CellChangeTimes->{{3.4318148355316772`*^9, 3.431814866082123*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"N", "[", 
  RowBox[{"NumError", "[", 
   SubscriptBox["PMTB", "main"], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"NumError", "[", 
   SubscriptBox["coincidences", "main"], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"NumError", "[", 
   SubscriptBox["PMTB", "angle"], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"NumError", "[", 
   SubscriptBox["coincidences", "angle"], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"NumError", "[", 
   SubscriptBox["compton", "main"], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"NumError", "[", 
   SubscriptBox["photo", "main"], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"NumError", "[", 
   SubscriptBox["compton", "angle"], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"NumError", "[", 
   SubscriptBox["photo", "angle"], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.4318150180128202`*^9, 3.431815092940794*^9}, {
  3.431819303102435*^9, 3.431819326483095*^9}}],

Cell[BoxData["523.8616229501832`"], "Output",
 CellChangeTimes->{{3.431815068584255*^9, 3.431815093389305*^9}, 
   3.431819326809145*^9, {3.4319824901901693`*^9, 3.431982496714609*^9}}],

Cell[BoxData["304.16442921551493`"], "Output",
 CellChangeTimes->{{3.431815068584255*^9, 3.431815093389305*^9}, 
   3.431819326809145*^9, {3.4319824901901693`*^9, 3.4319824967185707`*^9}}],

Cell[BoxData["535.4680195866042`"], "Output",
 CellChangeTimes->{{3.431815068584255*^9, 3.431815093389305*^9}, 
   3.431819326809145*^9, {3.4319824901901693`*^9, 3.431982496720599*^9}}],

Cell[BoxData["77.23988606931007`"], "Output",
 CellChangeTimes->{{3.431815068584255*^9, 3.431815093389305*^9}, 
   3.431819326809145*^9, {3.4319824901901693`*^9, 3.4319824967227983`*^9}}],

Cell[BoxData["248.75489944923697`"], "Output",
 CellChangeTimes->{{3.431815068584255*^9, 3.431815093389305*^9}, 
   3.431819326809145*^9, {3.4319824901901693`*^9, 3.4319824967248507`*^9}}],

Cell[BoxData["159.6746692496966`"], "Output",
 CellChangeTimes->{{3.431815068584255*^9, 3.431815093389305*^9}, 
   3.431819326809145*^9, {3.4319824901901693`*^9, 3.431982496726811*^9}}],

Cell[BoxData["68.3593446428504`"], "Output",
 CellChangeTimes->{{3.431815068584255*^9, 3.431815093389305*^9}, 
   3.431819326809145*^9, {3.4319824901901693`*^9, 3.431982496728915*^9}}],

Cell[BoxData["28.583211855912904`"], "Output",
 CellChangeTimes->{{3.431815068584255*^9, 3.431815093389305*^9}, 
   3.431819326809145*^9, {3.4319824901901693`*^9, 3.4319824967308817`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Results", "Section",
 CellChangeTimes->{{3.431725848757272*^9, 3.4317258595421247`*^9}, {
  3.431726446518421*^9, 3.431726448520494*^9}, {3.431740296557715*^9, 
  3.431740301436784*^9}, {3.4318063912676773`*^9, 3.431806392145166*^9}, {
  3.431814669657032*^9, 3.4318146707332487`*^9}, {3.431982513262834*^9, 
  3.431982513930043*^9}}],

Cell["Results with errors.", "Text",
 CellChangeTimes->{{3.4317258669826403`*^9, 3.431725879702635*^9}, {
   3.43174030458936*^9, 3.4317403443022833`*^9}, 3.4317411184973707`*^9, {
   3.4317933225465937`*^9, 3.4317933260479794`*^9}, {3.431806395785028*^9, 
   3.431806399681226*^9}, {3.431814676636647*^9, 3.431814682077251*^9}, {
   3.431982516756647*^9, 3.43198253448276*^9}}],

Cell[CellGroupData[{

Cell["Total Efficiency", "Subsection",
 CellChangeTimes->{{3.431982543737317*^9, 3.431982546204138*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox[
   RowBox[{
    SubscriptBox["coincidences", "main"], "-", 
    SubscriptBox["coincidences", "angle"]}], 
   SubscriptBox["PMTB", "main"]], "]"}]], "Input",
 CellChangeTimes->{{3.4319825731703463`*^9, 3.431982647341198*^9}}],

Cell[BoxData["0.31537982225040173`"], "Output",
 CellChangeTimes->{{3.431982602030693*^9, 3.43198264756496*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     SubscriptBox["coincidences", "main"], "-", 
     SubscriptBox["coincidences", "angle"]}], 
    SubscriptBox["PMTB", "main"]], " ", 
   RowBox[{"\[Sqrt]", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{
          RowBox[{"NumError", "[", 
           SubscriptBox["coincidences", "main"], "]"}], "+", 
          RowBox[{"NumError", "[", 
           SubscriptBox["coincidences", "angle"], "]"}]}], 
         RowBox[{
          SubscriptBox["coincidences", "main"], "+", 
          SubscriptBox["coincidences", "angle"]}]], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"NumError", "[", 
          SubscriptBox["PMTB", "main"], "]"}], 
         SubscriptBox["PMTB", "main"]], ")"}], "2"]}], ")"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.431982693887656*^9, 3.4319828647657137`*^9}}],

Cell[BoxData["0.001361722889012692`"], "Output",
 CellChangeTimes->{{3.4319827489072037`*^9, 3.431982754765359*^9}, 
   3.431982830359541*^9, 3.431982865250782*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"(", 
   FractionBox[
    RowBox[{
     RowBox[{"NumError", "[", 
      SubscriptBox["coincidences", "main"], "]"}], "+", 
     RowBox[{"NumError", "[", 
      SubscriptBox["coincidences", "angle"], "]"}]}], 
    RowBox[{
     SubscriptBox["coincidences", "main"], "+", 
     SubscriptBox["coincidences", "angle"]}]], ")"}], "]"}]], "Input",
 CellChangeTimes->{{3.431982902047608*^9, 3.431982907220294*^9}}],

Cell[BoxData["0.0038728327540548018`"], "Output",
 CellChangeTimes->{{3.4319829025708637`*^9, 3.4319829076178417`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ratio of Photo to Compton", "Subsection",
 CellChangeTimes->{{3.431982555092863*^9, 3.431982557659257*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox[
   SubscriptBox["compton", "main"], 
   SubscriptBox["photo", "main"]], "]"}]], "Input",
 CellChangeTimes->{{3.431986990670837*^9, 3.43198704215543*^9}}],

Cell[BoxData["2.4270081581424536`"], "Output",
 CellChangeTimes->{3.431987022479004*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   FractionBox[
    SubscriptBox["compton", "main"], 
    SubscriptBox["photo", "main"]], " ", 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"NumError", "[", 
         SubscriptBox["compton", "main"], "]"}], 
        SubscriptBox["compton", "main"]], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"NumError", "[", 
         SubscriptBox["photo", "main"], "]"}], 
        SubscriptBox["photo", "main"]], ")"}], "2"]}]]}], "]"}]], "Input",
 CellChangeTimes->{{3.431987032035803*^9, 3.431987116799375*^9}}],

Cell[BoxData["0.018061639177204037`"], "Output",
 CellChangeTimes->{{3.431987105808354*^9, 3.4319871171810904`*^9}}]
}, Open  ]],

Cell["Taking into account missing photons.", "Text",
 CellChangeTimes->{{3.4317258669826403`*^9, 3.431725879702635*^9}, {
   3.43174030458936*^9, 3.4317403443022833`*^9}, 3.4317411184973707`*^9, {
   3.4317933225465937`*^9, 3.4317933260479794`*^9}, {3.431806395785028*^9, 
   3.431806399681226*^9}, {3.4319890380127296`*^9, 3.4319890438183527`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox[
   RowBox[{
    SubscriptBox["compton", "main"], "+", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["coincidences", "main"], "-", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["compton", "main"], "+", 
        SubscriptBox["photo", "main"]}], ")"}]}], ")"}]}], 
   SubscriptBox["photo", "main"]], "]"}]], "Input",
 CellChangeTimes->{
  3.431989052335575*^9, {3.431989379122171*^9, 3.4319894197154207`*^9}}],

Cell[BoxData["2.6286476310009412`"], "Output",
 CellChangeTimes->{3.431989421000387*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{640, 652},
WindowMargins->{{51, Automatic}, {Automatic, 34}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (March 13, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 91, 1, 76, "Title"],
Cell[684, 26, 181, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[890, 34, 121, 1, 67, "Section"],
Cell[1014, 37, 332, 6, 41, "Text"],
Cell[CellGroupData[{
Cell[1371, 47, 822, 22, 85, "Input"],
Cell[2196, 71, 210, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2443, 79, 169, 4, 47, "Input"],
Cell[2615, 85, 163, 2, 27, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2827, 93, 168, 2, 67, "Section"],
Cell[2998, 97, 329, 6, 41, "Text"],
Cell[CellGroupData[{
Cell[3352, 107, 2636, 69, 155, "Input"],
Cell[5991, 178, 506, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6534, 190, 220, 5, 47, "Input"],
Cell[6757, 197, 206, 3, 27, "Output"]
}, Open  ]],
Cell[6978, 203, 137, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[7140, 210, 605, 17, 49, "Input"],
Cell[7748, 229, 157, 2, 27, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7954, 237, 243, 3, 67, "Section"],
Cell[8200, 242, 292, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[8517, 250, 175, 4, 46, "Input"],
Cell[8695, 256, 259, 4, 27, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9003, 266, 196, 3, 67, "Section"],
Cell[9202, 271, 350, 6, 41, "Text"],
Cell[CellGroupData[{
Cell[9577, 281, 1259, 27, 80, "Input"],
Cell[10839, 310, 481, 6, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11357, 321, 287, 6, 27, "Input"],
Cell[11647, 329, 239, 4, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11923, 338, 244, 7, 27, "Input"],
Cell[12170, 347, 157, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12364, 354, 307, 8, 48, "Input"],
Cell[12674, 364, 88, 1, 27, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12811, 371, 290, 4, 67, "Section"],
Cell[13104, 377, 335, 4, 26, "Text"],
Cell[13442, 383, 1022, 34, 150, "Input"],
Cell[14467, 419, 176, 4, 32, "Input"],
Cell[CellGroupData[{
Cell[14668, 427, 1104, 28, 157, "Input"],
Cell[15775, 457, 185, 2, 27, "Output"],
Cell[15963, 461, 188, 2, 27, "Output"],
Cell[16154, 465, 185, 2, 27, "Output"],
Cell[16342, 469, 187, 2, 27, "Output"],
Cell[16532, 473, 188, 2, 27, "Output"],
Cell[16723, 477, 185, 2, 27, "Output"],
Cell[16911, 481, 184, 2, 27, "Output"],
Cell[17098, 485, 188, 2, 27, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17335, 493, 340, 5, 67, "Section"],
Cell[17678, 500, 378, 5, 26, "Text"],
Cell[CellGroupData[{
Cell[18081, 509, 104, 1, 34, "Subsection"],
Cell[CellGroupData[{
Cell[18210, 514, 273, 7, 51, "Input"],
Cell[18486, 523, 112, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18635, 529, 985, 29, 138, "Input"],
Cell[19623, 560, 164, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19824, 567, 451, 12, 52, "Input"],
Cell[20278, 581, 119, 1, 27, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20446, 588, 113, 1, 34, "Subsection"],
Cell[CellGroupData[{
Cell[20584, 593, 202, 5, 51, "Input"],
Cell[20789, 600, 88, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20914, 606, 655, 20, 66, "Input"],
Cell[21572, 628, 116, 1, 27, "Output"]
}, Open  ]],
Cell[21703, 632, 349, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[22077, 640, 473, 14, 54, "Input"],
Cell[22553, 656, 88, 1, 27, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)