(* 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[     19951,        570]
NotebookOptionsPosition[     18328,        516]
NotebookOutlinePosition[     18694,        532]
CellTagsIndexPosition[     18651,        529]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{"Monte", " ", "Carlo", " ", "Integrator"}], "Title"]], "Input",
 CellChangeTimes->{{3.46456407575*^9, 3.464564081359375*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"In", " ", "the", " ", "program", " ", "below"}], ",", " ", 
   RowBox[{
   "we", " ", "use", " ", "Monte", " ", "Carlo", " ", "techniques", " ", "to",
     " ", "approximate", " ", "the", " ", "volume", " ", "of", " ", "the", 
    " ", "n", " ", "dimensional", " ", 
    RowBox[{"sphere", ".", " ", "We"}], " ", "embed", " ", "it", " ", "in", 
    " ", "the", " ", "unit", " ", "cube"}], ",", " ", 
   RowBox[{"so", " ", "that", " ", "the", " ", "radius", " ", "is", " ", 
    RowBox[{"1", "/", "2.", " "}]}]}], "Subsubsection"]], "Input",
 CellChangeTimes->{{3.464565416703125*^9, 3.464565444078125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"volumensphere", "[", 
    RowBox[{"n_", ",", "num_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"hits", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"k", " ", "\[LessEqual]", " ", "num"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", "\[IndentingNewLine]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{
           "the", " ", "code", " ", "below", " ", "chooses", " ", "a", " ", 
            "point", " ", "with", " ", "n", " ", "coordinates"}], ",", " ", 
           RowBox[{
           "each", " ", "coordinate", " ", "is", " ", "uniformly", " ", 
            "chosen", " ", 
            RowBox[{
             RowBox[{"in", " ", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "/", "2"}], ",", " ", 
               RowBox[{"1", "/", "2"}]}], "]"}], ".", " ", "we"}], " ", 
            "look", " ", "at", " ", "its", " ", "distance", " ", "from", " ", 
            "the", " ", 
            RowBox[{"origin", ".", " ", "if"}], " ", "it", " ", "is", " ", 
            "at", " ", "most", " ", 
            RowBox[{"1", "/", "2"}], " ", 
            RowBox[{"(", 
             RowBox[{"ie", ",", " ", 
              RowBox[{
              "if", " ", "its", " ", "squared", " ", "length", " ", "is", " ",
                "at", " ", "most", " ", 
               RowBox[{"1", "/", "4"}]}]}], ")"}], " ", "then", " ", "it", 
            " ", "is", " ", "a", " ", "hit"}], ",", " ", 
           RowBox[{"else", " ", "it", " ", "is", " ", "a", " ", 
            RowBox[{"miss", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"distsquared", " ", "=", " ", 
           RowBox[{"Sum", "[", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"(", " ", 
               RowBox[{
                RowBox[{"Random", "[", "]"}], " ", "-", " ", ".5"}], ")"}], 
              "^", "2"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"distsquared", " ", "\[LessEqual]", " ", ".25"}], ",", 
            " ", 
            RowBox[{"hits", " ", "=", " ", 
             RowBox[{"hits", "+", "1"}]}]}], "]"}], ";"}], 
         "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Estimating volume of \>\"", ",", " ", "n", ",", " ", 
        "\"\<-dimensional sphere as \>\"", ",", " ", 
        RowBox[{"1.0", " ", 
         RowBox[{"hits", " ", "/", " ", "num"}]}], ",", " ", "\"\<.\>\""}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Actual answer is \>\"", ",", "  ", 
        RowBox[{"1.0", " ", 
         RowBox[{"Pi", "^", 
          RowBox[{"(", 
           RowBox[{"n", "/", "2"}], ")"}]}], "  ", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "/", "2"}], ")"}], "^", "n"}], "/", " ", 
          RowBox[{"Gamma", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "/", "2"}], ")"}], "+", "1."}], "]"}]}]}], ",", 
        " ", "\"\<.\>\""}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.46456409259375*^9, 3.464564149609375*^9}, {
  3.464564278484375*^9, 3.46456446515625*^9}, {3.46456451259375*^9, 
  3.464564516078125*^9}, {3.4645645604375*^9, 3.464564571421875*^9}, {
  3.4645646875625*^9, 3.46456469996875*^9}, {3.464564767171875*^9, 
  3.464564787390625*^9}, {3.464565463625*^9, 3.464565518265625*^9}}],

Cell[BoxData[{
 RowBox[{"volumensphere", "[", 
  RowBox[{"2", ",", "10"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"volumensphere", "[", 
  RowBox[{"2", ",", "100"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"volumensphere", "[", 
  RowBox[{"2", ",", "1000"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"volumensphere", "[", 
  RowBox[{"2", ",", "10000"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"volumensphere", "[", 
  RowBox[{"2", ",", "100000"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"volumensphere", "[", 
  RowBox[{"2", ",", "1000000"}], "]"}]}], "Input",
 CellChangeTimes->{{3.46456430453125*^9, 3.464564309671875*^9}, {
   3.464564400953125*^9, 3.464564415390625*^9}, 3.464564634546875*^9, {
   3.464564705578125*^9, 3.464564710859375*^9}, {3.464564790734375*^9, 
   3.464564805875*^9}, {3.464565328734375*^9, 3.464565368109375*^9}, {
   3.464565524890625*^9, 3.464565531640625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nspherevol", " ", "=", " ", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"n", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"n", " ", "\[LessEqual]", " ", "7"}], ",", " ", 
    RowBox[{"n", "++"}], ",", " ", 
    RowBox[{"nspherevol", " ", "=", " ", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"nspherevol", ",", " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"1.0", " ", 
          RowBox[{"Pi", "^", 
           RowBox[{"(", 
            RowBox[{"n", "/", "2"}], ")"}]}], "  ", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "/", "2"}], ")"}], "^", "n"}], "/", " ", 
           RowBox[{"Gamma", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "/", "2"}], ")"}], "+", "1."}], "]"}]}]}]}], 
        "}"}]}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"nspherevol", ",", " ", 
   RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
    RowBox[{"PointSize", "[", "Large", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.46456481334375*^9, 3.464564940328125*^9}, {
  3.46456499971875*^9, 3.46456500025*^9}, {3.464565032578125*^9, 
  3.4645651153125*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointSize[Large], 
   PointBox[{{2., 0.7853981633974483}, {3., 0.5235987755982988}, {4., 
    0.30842513753404244`}, {5., 0.16449340668482262`}, {6., 
    0.08074551218828077}, {7., 0.03691223414321407}}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.464564913078125*^9, 3.464564941*^9}, 
   3.46456500115625*^9, 3.464565034578125*^9, {3.464565073015625*^9, 
   3.464565116*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nspherevol", " ", "=", " ", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"n", " ", "=", " ", "8"}], ",", " ", 
    RowBox[{"n", " ", "\[LessEqual]", " ", "12"}], ",", " ", 
    RowBox[{"n", "++"}], ",", " ", 
    RowBox[{"nspherevol", " ", "=", " ", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"nspherevol", ",", " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"1.0", " ", 
          RowBox[{"Pi", "^", 
           RowBox[{"(", 
            RowBox[{"n", "/", "2"}], ")"}]}], "  ", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "/", "2"}], ")"}], "^", "n"}], "/", " ", 
           RowBox[{"Gamma", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "/", "2"}], ")"}], "+", "1."}], "]"}]}]}]}], 
        "}"}]}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"nspherevol", ",", " ", 
   RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
    RowBox[{"PointSize", "[", "Large", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4645651338125*^9, 3.464565136234375*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointSize[Large], 
   PointBox[{{8., 0.015854344243815495`}, {9., 0.006442400200661535}, {10., 
    0.00249039457019272}, {11., 0.0009199725973583495}, {12., 
    0.00032599188692738996`}}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.46456513659375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nspherevol", " ", "=", " ", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"n", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"n", " ", "\[LessEqual]", "20"}], ",", " ", 
    RowBox[{"n", "++"}], ",", " ", 
    RowBox[{"nspherevol", " ", "=", " ", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"nspherevol", ",", " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"1.0", " ", 
          RowBox[{"Pi", "^", 
           RowBox[{"(", 
            RowBox[{"n", "/", "2"}], ")"}]}], "  ", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "/", "2"}], ")"}], "^", "n"}], "/", " ", 
           RowBox[{"Gamma", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "/", "2"}], ")"}], "+", "1."}], "]"}]}]}]}], 
        "}"}]}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"nspherevol", ",", " ", 
   RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
    RowBox[{"PointSize", "[", "Large", "]"}]}], ",", " ", 
   RowBox[{"PlotRange", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.46456514903125*^9, 3.464565149453125*^9}, {
  3.464565180078125*^9, 3.4645651870625*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQDQUOErouIb8VX9pDuBwOqcW6FkEHH0D5Ag73XPed
tNl7GcoXcSi15N8qx3cUypdwCNqn+mzP6i1QvozDG7/3PJrPFkH5Cg6HoqQ5
5G0mQPlKDs/mbVsUkVwF5as4PFxVmr4nLQXKV3Pg/sgs46XqB+VrOPzcb1Nn
E2sK5Ws5HH8j9OqesiyUr+PQsjfpnI4uM5Sv5/ClX0pkYuYLOwjfwGHHrokZ
AfLnoHxDBwmBE7aruTdB+UYODc/rPJrZp0L5xg7B1jnhJ++VQ/kmDh1eClry
uVF2AKdbSyg=
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->{0, 1},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.464565150046875*^9, 3.464565188078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Print", "[", "\"\<Data: n, actual volume.\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"n", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"n", " ", "\[LessEqual]", " ", "20"}], ",", " ", 
    RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"n", ",", " ", "\"\<: \>\"", ",", " ", 
      RowBox[{"1.0", " ", 
       RowBox[{"Pi", "^", 
        RowBox[{"(", 
         RowBox[{"n", "/", "2"}], ")"}]}], "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "/", "2"}], ")"}], "^", "n"}], "/", " ", 
        RowBox[{"Gamma", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "/", "2"}], ")"}], "+", "1."}], "]"}]}]}]}], "]"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.46456520003125*^9, 3.464565279703125*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Data: n, actual volume.\"\>"], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.464565280078125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.7853981633974483`"}],
  SequenceForm[2, ": ", 0.7853981633974483],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.464565280078125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.5235987755982988`"}],
  SequenceForm[3, ": ", 0.5235987755982988],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.464565280078125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.30842513753404244`"}],
  SequenceForm[4, ": ", 0.30842513753404244`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.464565280078125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "5", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.16449340668482262`"}],
  SequenceForm[5, ": ", 0.16449340668482262`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.46456528009375*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "6", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.08074551218828077`"}],
  SequenceForm[6, ": ", 0.08074551218828077],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.46456528009375*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "7", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.03691223414321407`"}],
  SequenceForm[7, ": ", 0.03691223414321407],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.46456528009375*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "8", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.015854344243815495`"}],
  SequenceForm[8, ": ", 0.015854344243815495`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.46456528009375*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "9", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.006442400200661535`"}],
  SequenceForm[9, ": ", 0.006442400200661535],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.46456528009375*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "10", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.00249039457019272`"}],
  SequenceForm[10, ": ", 0.00249039457019272],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.46456528009375*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "11", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.0009199725973583495`"}],
  SequenceForm[11, ": ", 0.0009199725973583495],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.46456528009375*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "12", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.00032599188692738996`"}],
  SequenceForm[12, ": ", 0.00032599188692738996`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.464565280109375*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "13", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.00011116073666788121`"}],
  SequenceForm[13, ": ", 0.00011116073666788121`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.464565280125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "14", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.00003657620418217724`"}],
  SequenceForm[14, ": ", 0.00003657620418217724],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.464565280140625*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "15", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "0.000011640725122781505`"}],
  SequenceForm[15, ": ", 0.000011640725122781505`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.464565280140625*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "16", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "3.590860448591509`*^-6"}],
  SequenceForm[16, ": ", 3.590860448591509*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.46456528015625*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "17", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "1.0756004861231914`*^-6"}],
  SequenceForm[17, ": ", 1.0756004861231914`*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.46456528015625*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "18", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "3.1336168903781206`*^-7"}],
  SequenceForm[18, ": ", 3.1336168903781206`*^-7],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.464565280171875*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "19", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "8.892364698426918`*^-8"}],
  SequenceForm[19, ": ", 8.892364698426918*^-8],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.4645652801875*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "20", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", 
   "2.4611369504941985`*^-8"}],
  SequenceForm[20, ": ", 2.4611369504941985`*^-8],
  Editable->False]], "Print",
 CellChangeTimes->{{3.464565267265625*^9, 3.4645652801875*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{36, Automatic}, {Automatic, 46}},
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[545, 20, 160, 3, 58, "Input"],
Cell[708, 25, 653, 12, 69, "Input"],
Cell[1364, 39, 3933, 90, 352, "Input"],
Cell[5300, 131, 892, 17, 132, "Input"],
Cell[CellGroupData[{
Cell[6217, 152, 1296, 34, 112, "Input"],
Cell[7516, 188, 547, 12, 236, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8100, 205, 1205, 32, 112, "Input"],
Cell[9308, 239, 422, 10, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9767, 254, 1362, 36, 112, "Input"],
Cell[11132, 292, 624, 14, 253, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11793, 311, 930, 25, 92, "Input"],
Cell[CellGroupData[{
Cell[12748, 340, 123, 1, 23, "Print"],
Cell[12874, 343, 277, 7, 23, "Print"],
Cell[13154, 352, 277, 7, 23, "Print"],
Cell[13434, 361, 280, 7, 23, "Print"],
Cell[13717, 370, 279, 7, 23, "Print"],
Cell[13999, 379, 278, 7, 23, "Print"],
Cell[14280, 388, 278, 7, 23, "Print"],
Cell[14561, 397, 281, 7, 23, "Print"],
Cell[14845, 406, 280, 7, 23, "Print"],
Cell[15128, 415, 280, 7, 23, "Print"],
Cell[15411, 424, 284, 7, 23, "Print"],
Cell[15698, 433, 288, 7, 23, "Print"],
Cell[15989, 442, 285, 7, 23, "Print"],
Cell[16277, 451, 287, 7, 23, "Print"],
Cell[16567, 460, 290, 7, 23, "Print"],
Cell[16860, 469, 284, 7, 23, "Print"],
Cell[17147, 478, 287, 7, 23, "Print"],
Cell[17437, 487, 288, 7, 23, "Print"],
Cell[17728, 496, 283, 7, 23, "Print"],
Cell[18014, 505, 286, 7, 23, "Print"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)