astro202aps8.nb

(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     18069,        414]
NotebookOptionsPosition[     17135,        382]
NotebookOutlinePosition[     17492,        398]
CellTagsIndexPosition[     17449,        395]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Radius of the Sun ",
 Cell[BoxData[
  FormBox[
   RowBox[{"7", "*", 
    SuperscriptBox["10", "10"]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.593706710356836*^9, 3.5937067128330708`*^9}, {
  3.5937067807153535`*^9, 3.5937067843706446`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{".5", " ", "Degree"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{"1.5", "*", 
    SuperscriptBox["10", "13"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "=", 
   RowBox[{"6.67", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "8"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Rsun", "=", 
  RowBox[{"\[Theta]", " ", 
   RowBox[{"d", "/", "2"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"d", "/", "%"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox["4", 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["10", "7"], ")"}], "2"]], 
  RowBox[{"(", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1.5", "*", 
       SuperscriptBox["10", "13"]}], ")"}], "3"], "G"], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lsun", "=", 
   RowBox[{"4", "*", 
    RowBox[{"10", "^", "33"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]s", "=", 
   RowBox[{"5.67", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "5"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Tsun", "=", 
  SuperscriptBox[
   RowBox[{"(", 
    FractionBox["Lsun", 
     RowBox[{"4", "\[Pi]", " ", 
      SuperscriptBox["Rsun", "2"], "\[Sigma]s"}]], ")"}], 
   RowBox[{"1", "/", "4"}]]}], "\[IndentingNewLine]", 
 FractionBox[
  RowBox[{"4", "\[Pi]", " ", 
   SuperscriptBox["Rsun", "2"], "\[Sigma]s", " ", 
   SuperscriptBox["Tsun", "4"]}], 
  RowBox[{"4", "\[Pi]", " ", 
   SuperscriptBox["d", "2"]}]], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]", "=", 
   RowBox[{"6", "*", 
    RowBox[{"10", "^", "14"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"6.626", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "27"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", " ", "\[Nu]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"n\[Gamma]", "=", 
  RowBox[{"Lsun", "/", 
   RowBox[{"(", 
    RowBox[{"h", " ", "\[Nu]"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reye", "=", ".5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Teye", "=", "30"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlimit", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"2.998", "*", 
    RowBox[{"10", "^", "8"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"k", "=", 
  RowBox[{"1.38", "*", 
   RowBox[{"10", "^", 
    RowBox[{"-", "16"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"c", "/", 
  RowBox[{"(", 
   RowBox[{"450", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "9"}]}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "/", 
   RowBox[{"(", 
    RowBox[{"650", "*", 
     RowBox[{"10", "^", 
      RowBox[{"-", "9"}]}]}], ")"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"dsuneye", "=", 
  SqrtBox[
   FractionBox[
    RowBox[{"n\[Gamma]", " ", 
     SuperscriptBox[
      RowBox[{"(", "reye", ")"}], "2"]}], 
    RowBox[{"nlimit", " ", "Teye"}]]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/", 
   RowBox[{"(", 
    RowBox[{"3", "*", 
     RowBox[{"10", "^", "18"}]}], ")"}]}], " ", 
  RowBox[{"(*", "parsecs", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"B", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"2", "h", " ", 
     SuperscriptBox["\[Nu]1", "3"]}], 
    SuperscriptBox["c", "2"]], 
   RowBox[{"(", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"h", " ", 
        RowBox[{"\[Nu]1", "/", 
         RowBox[{"(", " ", 
          RowBox[{"k", " ", "Tsun"}], ")"}]}]}], "]"}], "+", "1"}]], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"n\[Gamma]2", "=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    FractionBox["B", 
     RowBox[{"(", 
      RowBox[{"h", " ", "\[Nu]1"}], ")"}]], ",", 
    RowBox[{"{", 
     RowBox[{"\[Nu]1", ",", 
      RowBox[{"c", "/", 
       RowBox[{"(", 
        RowBox[{"450", " ", "*", 
         RowBox[{"10", "^", 
          RowBox[{"-", "9"}]}]}], ")"}]}], ",", 
      RowBox[{"650", "*", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 SqrtBox[
  FractionBox[
   RowBox[{"n\[Gamma]2", " ", 
    SuperscriptBox["reye", "2"]}], 
   RowBox[{"nlimit", " ", "Teye"}]]], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/", 
   RowBox[{"(", 
    RowBox[{"3", "*", 
     RowBox[{"10", "^", "18"}]}], ")"}]}], " ", 
  RowBox[{"(*", "parsecs", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5937066840370846`*^9, 3.5937067233165493`*^9}, {
   3.593706786672721*^9, 3.593706909398452*^9}, 3.593706976132673*^9, {
   3.5937071636399*^9, 3.5937071731084437`*^9}, {3.593707405509144*^9, 
   3.5937074418149247`*^9}, {3.5937074803987246`*^9, 
   3.5937074855884075`*^9}, {3.5937076134778156`*^9, 
   3.5937076176666117`*^9}, {3.5937078250647526`*^9, 
   3.5937078718129563`*^9}, {3.5937082233281636`*^9, 3.593708286407089*^9}, {
   3.5937085276387606`*^9, 3.5937085506085043`*^9}, {3.593708626609069*^9, 
   3.5937086308138742`*^9}, {3.5937089978670936`*^9, 3.59370905023435*^9}, {
   3.59370952324022*^9, 3.593709661640105*^9}, {3.5937097742627163`*^9, 
   3.5937101053675065`*^9}, {3.5937101411187687`*^9, 3.593710155686927*^9}, {
   3.593710942239801*^9, 3.5937109755014267`*^9}}],

Cell[BoxData["6.544984694978736`*^10"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.593710156916025*^9}}],

Cell[BoxData["229.1831180523293`"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.5937101569190273`*^9}}],

Cell[BoxData["2.023988005997002`*^33"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.593710156921029*^9}}],

Cell[BoxData["6016.756688816428`"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.5937101569220304`*^9}}],

Cell[BoxData["1.4147106052612923`*^6"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.5937101569240313`*^9}}],

Cell[BoxData["1.0061374383740816`*^45"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.593710156926033*^9}}],

Cell[BoxData["1.3799999999999997`*^-16"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.5937101569280357`*^9}}],

Cell[BoxData["6.662222222222221`*^14"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.5937101569300365`*^9}}],

Cell[BoxData["4.6123076923076925`*^14"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.5937101569310374`*^9}}],

Cell[BoxData["9.156679885808692`*^20"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.593710156933039*^9}}],

Cell[BoxData["305.22266286028974`"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.593710156935041*^9}}],

Cell[BoxData[
 FractionBox["1.1910902900800003`*^-9", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2.3924425852706143`*^-6", "/", "\[Lambda]"}]]}], ")"}], " ", 
   SuperscriptBox["\[Lambda]", "5"]}]]], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.593710156936042*^9}}],

Cell[BoxData["7.159334330647697`*^20"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.5937101569380436`*^9}}],

Cell[BoxData["7.724061070580951`*^8"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.5937101569400454`*^9}}],

Cell[BoxData["2.5746870235269837`*^-10"], "Output",
 CellChangeTimes->{
  3.593706723584775*^9, {3.5937067923858595`*^9, 3.5937068094362454`*^9}, {
   3.5937068467369056`*^9, 3.5937068741216183`*^9}, 3.5937069050145144`*^9, 
   3.593707173478759*^9, {3.5937076087635775`*^9, 3.5937076184332876`*^9}, 
   3.593707873105122*^9, {3.593708264634422*^9, 3.593708287725277*^9}, 
   3.5937085519487157`*^9, 3.5937086319158583`*^9, {3.5937090243049693`*^9, 
   3.593709050707795*^9}, {3.5937095936847644`*^9, 3.593709662073477*^9}, 
   3.5937098844901867`*^9, {3.5937099196229086`*^9, 3.5937100014587383`*^9}, {
   3.593710076895814*^9, 3.5937101057768784`*^9}, {3.5937101467108173`*^9, 
   3.5937101569410467`*^9}}]
}, Open  ]]
},
WindowSize->{624, 673},
WindowMargins->{{Automatic, 282}, {Automatic, 59}},
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 272, 8, 32, "Text"],
Cell[CellGroupData[{
Cell[854, 32, 5424, 160, 826, "Input"],
Cell[6281, 194, 704, 10, 32, "Output"],
Cell[6988, 206, 702, 10, 28, "Output"],
Cell[7693, 218, 704, 10, 32, "Output"],
Cell[8400, 230, 702, 10, 28, "Output"],
Cell[9105, 242, 706, 10, 32, "Output"],
Cell[9814, 254, 705, 10, 32, "Output"],
Cell[10522, 266, 708, 10, 32, "Output"],
Cell[11233, 278, 706, 10, 32, "Output"],
Cell[11942, 290, 707, 10, 32, "Output"],
Cell[12652, 302, 704, 10, 32, "Output"],
Cell[13359, 314, 701, 10, 28, "Output"],
Cell[14063, 326, 928, 17, 68, "Output"],
Cell[14994, 345, 706, 10, 32, "Output"],
Cell[15703, 357, 705, 10, 32, "Output"],
Cell[16411, 369, 708, 10, 32, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)