TableGammaLamdaI (2).nb

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

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     81688,       1897]
NotebookOptionsPosition[     77831,       1802]
NotebookOutlinePosition[     78216,       1818]
CellTagsIndexPosition[     78173,       1815]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"freq", "[", "\[Lambda]_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "*", "\[Pi]", "*", "137"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"\[Lambda]", "*", "18.897"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{"\[Lambda]_", ",", "\[Mu]_"}], "]"}], ":=", 
   RowBox[{"3.256", "*", "\[Mu]", "*", 
    SuperscriptBox["\[Lambda]", 
     RowBox[{"-", "0.175"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EAmp", "[", 
    RowBox[{"\[Lambda]_", ",", "\[Mu]_"}], "]"}], ":=", 
   SqrtBox[
    FractionBox[
     RowBox[{"8", "*", "\[Pi]", "*", 
      RowBox[{"intSiToAu", "[", 
       RowBox[{"Int", "[", 
        RowBox[{"\[Lambda]", ",", "\[Mu]"}], "]"}], "]"}]}], "137"]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"a0", "[", 
    RowBox[{"\[Lambda]_", ",", "\[Mu]_"}], "]"}], ":=", 
   FractionBox[
    RowBox[{"EAmp", "[", 
     RowBox[{"\[Lambda]", ",", "\[Mu]"}], "]"}], 
    RowBox[{"137", "*", 
     RowBox[{"freq", "[", "\[Lambda]", "]"}]}]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gamma", "[", 
    RowBox[{"\[Lambda]_", ",", "\[Mu]_", ",", "Ip_"}], "]"}], ":=", 
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a0", "[", 
        RowBox[{"\[Lambda]", ",", "\[Mu]"}], "]"}], ")"}], "3"], "*", 
     SqrtBox[
      RowBox[{"2", "*", "Ip", "*", 
       RowBox[{"(", 
        SuperscriptBox["137", "2"], ")"}]}]]}], 
    RowBox[{"16", "*", 
     RowBox[{"freq", "[", "\[Lambda]", "]"}]}]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"intSiToAu", "[", "\[Mu]1_", "]"}], ":=", 
   RowBox[{"\[Mu]1", "/", 
    RowBox[{"(", 
     RowBox[{"6.43640931", "*", 
      SuperscriptBox["10", "15"]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Lambda]AuToSi", "[", "\[Lambda]_", "]"}], ":=", 
   RowBox[{"\[Lambda]", "/", "18.897"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nextGamma", "[", "\[Gamma]_", "]"}], ":=", 
   RowBox[{"10", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Log10", "[", "\[Gamma]", "]"}], "+", "0.25"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nextGamma2", "[", "\[Gamma]_", "]"}], ":=", 
   RowBox[{"10", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Log10", "[", "\[Gamma]", "]"}], "+", "0.125"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"solve\[Lambda]", "[", 
    RowBox[{"\[Mu]_", ",", "Ip_", ",", "\[Gamma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"NSolve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"gamma", "[", 
        RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "Ip"}], "]"}], "\[Equal]", 
       "\[Gamma]"}], ",", "\[Lambda]", ",", "Reals"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cutoffClassical", "[", 
    RowBox[{"\[Lambda]_", ",", "\[Mu]_"}], "]"}], ":=", 
   RowBox[{"3.2", "*", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"EAmp", "[", 
        RowBox[{"\[Lambda]", ",", "\[Mu]"}], "]"}], ")"}], "2"], 
     RowBox[{"4", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"freq", "[", "\[Lambda]", "]"}], ")"}], "2"]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cutoffRelativistic", "[", "Ip_", "]"}], ":=", 
   RowBox[{"1.5", "*", 
    SqrtBox[
     RowBox[{"2", "*", "Ip", "*", 
      SuperscriptBox["137", "2"]}]]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.773674097383049*^9, 3.773674103777275*^9}, {
   3.7736751033033104`*^9, 3.773675108844103*^9}, {3.773675175209626*^9, 
   3.7736751813600616`*^9}, {3.7736752471787972`*^9, 3.773675341891262*^9}, {
   3.7736753753347983`*^9, 3.773675378574774*^9}, 3.773752479767711*^9, {
   3.7737603842941046`*^9, 3.7737603862736025`*^9}, {3.7741053619569597`*^9, 
   3.774105370469037*^9}},ExpressionUUID->"64bee85e-f0e6-42f7-bb04-\
1d598d2b9f72"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"intSiToAu", "[", 
  RowBox[{"5.50", "*", 
   SuperscriptBox["10", "12"]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"intSiToAu", "[", 
  RowBox[{"1.70", "*", 
   SuperscriptBox["10", "17"]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"intSiToAu", "[", 
  RowBox[{"5.11", "*", 
   SuperscriptBox["10", "18"]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"intSiToAu", "[", 
  RowBox[{"3.58", "*", 
   SuperscriptBox["10", "20"]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gammaTable1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"7", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "5"}]]}], "]"}], ",", 
     RowBox[{"1.24", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}], ",", 
     RowBox[{"2.21", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}], ",", 
     RowBox[{"3.94", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}], ",", 
     RowBox[{"7.00", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}], ",", 
     RowBox[{"1.24", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}], ",", 
     RowBox[{"2.21", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}], ",", 
     RowBox[{"3.94", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}], ",", 
     RowBox[{"7", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}], ",", 
     RowBox[{"1.24", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "2"}]]}], ",", " ", 
     RowBox[{"2.21", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "2"}]]}], ",", 
     RowBox[{"3.94", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "2"}]]}], ",", 
     RowBox[{"7", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "2"}]]}], ",", "0.124", ",", " ", "0.221", ",", " ", 
     "0.394", ",", " ", "0.7", ",", "1.24", ",", "2.21", ",", "3.94", ",", 
     "7", ",", "12.4", ",", "22.1", ",", "39.4", ",", "70"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gammaTable2", "=", 
   RowBox[{"{", 
    RowBox[{
    "93.3", ",", "124", ",", "166", ",", "221", ",", "295", ",", "394", ",", 
     "525", ",", "700", ",", "933", ",", "1240", ",", "1660", ",", "2210", 
     ",", "2950", ",", "3940", ",", "5250", ",", "7000", ",", "9330", ",", 
     "12400", ",", "22100", ",", "16600", ",", "22100", ",", "29500", ",", 
     "39400", ",", "52500", ",", "70000", ",", "93300"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gammaTable3", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "124", ",", "221", ",", "394", ",", "700", ",", "1240", ",", "2210", ",", 
     "3940", ",", "7000", ",", "12400", ",", "22100", ",", "39400", ",", 
     "70000", ",", "124000", ",", "221000", ",", "394000", ",", "700000", ",",
      "1240000", ",", "2210000", ",", "3940000", ",", "7000000"}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7736741145447598`*^9, 3.7736741212772655`*^9}, {
   3.7736799808363247`*^9, 3.773680011325594*^9}, {3.773680055223049*^9, 
   3.77368008597791*^9}, 3.7736802765961156`*^9, {3.7737504038341727`*^9, 
   3.7737504768947315`*^9}, 3.7737527633814583`*^9, {3.7741053457368975`*^9, 
   3.774105354160342*^9}, {3.774105401719277*^9, 3.774105478290903*^9}, {
   3.774109374543519*^9, 3.774109397679614*^9}, {3.7741805159199824`*^9, 
   3.774180687410699*^9}, {3.774180717633067*^9, 3.7741807711643972`*^9}, 
   3.7741808280017185`*^9, {3.7741810233865232`*^9, 
   3.7741810918624315`*^9}},ExpressionUUID->"1d737880-fa22-4e7c-9ed1-\
7b60671b9193"],

Cell[BoxData["0.0008545137102226955`"], "Output",
 CellChangeTimes->{
  3.7736741236548567`*^9, 3.7736751355043077`*^9, 3.773675443016697*^9, 
   3.773675613484336*^9, 3.773680014607328*^9, 3.773680088578615*^9, 
   3.773680279346146*^9, {3.7737527419658337`*^9, 3.7737527645319276`*^9}, 
   3.7741038267376976`*^9, 3.774105467917658*^9, 3.774105504921447*^9, 
   3.774109306682135*^9, 3.7741093979860196`*^9, 3.7741807755650864`*^9, 
   3.774180828416157*^9, 
   3.7741810932918615`*^9},ExpressionUUID->"85b0dfa4-f880-4ca9-be72-\
1f787ec821c8"],

Cell[BoxData["26.41224195233786`"], "Output",
 CellChangeTimes->{
  3.7736741236548567`*^9, 3.7736751355043077`*^9, 3.773675443016697*^9, 
   3.773675613484336*^9, 3.773680014607328*^9, 3.773680088578615*^9, 
   3.773680279346146*^9, {3.7737527419658337`*^9, 3.7737527645319276`*^9}, 
   3.7741038267376976`*^9, 3.774105467917658*^9, 3.774105504921447*^9, 
   3.774109306682135*^9, 3.7741093979860196`*^9, 3.7741807755650864`*^9, 
   3.774180828416157*^9, 
   3.774181093295331*^9},ExpressionUUID->"f9fde8e2-aba9-4f0f-bbac-\
37e6c8fa945d"],

Cell[BoxData["793.9209198614499`"], "Output",
 CellChangeTimes->{
  3.7736741236548567`*^9, 3.7736751355043077`*^9, 3.773675443016697*^9, 
   3.773675613484336*^9, 3.773680014607328*^9, 3.773680088578615*^9, 
   3.773680279346146*^9, {3.7737527419658337`*^9, 3.7737527645319276`*^9}, 
   3.7741038267376976`*^9, 3.774105467917658*^9, 3.774105504921447*^9, 
   3.774109306682135*^9, 3.7741093979860196`*^9, 3.7741807755650864`*^9, 
   3.774180828416157*^9, 
   3.774181093297811*^9},ExpressionUUID->"eb8e9512-a656-4fad-8189-\
49ae81d0fa53"],

Cell[BoxData["55621.07422904091`"], "Output",
 CellChangeTimes->{
  3.7736741236548567`*^9, 3.7736751355043077`*^9, 3.773675443016697*^9, 
   3.773675613484336*^9, 3.773680014607328*^9, 3.773680088578615*^9, 
   3.773680279346146*^9, {3.7737527419658337`*^9, 3.7737527645319276`*^9}, 
   3.7741038267376976`*^9, 3.774105467917658*^9, 3.774105504921447*^9, 
   3.774109306682135*^9, 3.7741093979860196`*^9, 3.7741807755650864`*^9, 
   3.774180828416157*^9, 
   3.774181093300291*^9},ExpressionUUID->"4db9de7e-3d20-4747-a1d9-\
8310d9ba73b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Kr1\[Lambda]Table1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"solve\[Lambda]", "[", 
      RowBox[{
       RowBox[{"5.50", "*", 
        SuperscriptBox["10", "12"]}], ",", "0.18898", ",", "\[Gamma]"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "gammaTable1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr1ISi1", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"5.50", "*", 
        SuperscriptBox["10", "12"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr1\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr1eClassical1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffClassical", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"5.50", "*", 
        SuperscriptBox["10", "12"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr1\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr1eRelativistic1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffRelativistic", "[", "0.18898", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr1\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr1Grid1", "  ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
     "gammaTable1", ",", "Kr1\[Lambda]Table1", ",", "Kr1ISi1", ",", 
      "Kr1eClassical1", ",", "Kr1eRelativistic1"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Kr1Table1", " ", "=", " ", 
  RowBox[{"Labeled", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Prepend", "[", 
       RowBox[{"Kr1Grid1", ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)\>\"", ",", 
          "\"\<\[Lambda](nm}\>\"", ",", 
          "\"\<I(W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(cutoff\)]\)(\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)<<1)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(cutoff\)]\)\>\""}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}], ",", 
      RowBox[{"Background", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "LightPurple", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightBlue", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightGreen", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightRed", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightOrange", "]"}]}], "}"}], "}"}]}]}], 
     "]"}], ",", "\"\<Kr1+\>\"", ",", "Top", ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr1Table1.png\>\"", ",", 
   "Kr1Table1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7736741329445577`*^9, 3.7736741832567806`*^9}, {
   3.773674304582778*^9, 3.773674305660573*^9}, {3.773674603531542*^9, 
   3.7736746992966437`*^9}, 3.7736748130749483`*^9, {3.773674856777686*^9, 
   3.773674941951665*^9}, {3.7736751487395372`*^9, 3.7736751533664064`*^9}, {
   3.7736751978507347`*^9, 3.7736752076924033`*^9}, {3.7736754512313585`*^9, 
   3.7736754826794777`*^9}, {3.7736756189823804`*^9, 
   3.7736756225746713`*^9}, {3.773675655986498*^9, 3.773675717942857*^9}, {
   3.773676790794407*^9, 3.7736767980232487`*^9}, {3.7736768439584*^9, 
   3.773676854992423*^9}, {3.7736769501230636`*^9, 3.7736770045312304`*^9}, {
   3.7736770640898676`*^9, 3.7736773414022913`*^9}, {3.7736773773363576`*^9, 
   3.7736774097606373`*^9}, {3.7736775385910077`*^9, 
   3.7736775471343603`*^9}, {3.773677654469742*^9, 3.7736776632930346`*^9}, {
   3.7736776973409395`*^9, 3.7736777526884775`*^9}, 3.7736777869651947`*^9, {
   3.7736779119221153`*^9, 3.773677913279645*^9}, {3.773677955869684*^9, 
   3.7736779610612946`*^9}, 3.7737524919398937`*^9, {3.7737533772429423`*^9, 
   3.7737534662121468`*^9}, {3.773753505992159*^9, 3.7737535112193823`*^9}, {
   3.773753573767313*^9, 3.7737535873982863`*^9}, {3.7737536294042654`*^9, 
   3.773753630705274*^9}, {3.7737536658111978`*^9, 3.773753695257261*^9}, 
   3.7737537304158735`*^9},ExpressionUUID->"841a9ba6-c478-4dee-9daf-\
b1e9ea35c96a"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
      "\"\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)\"", 
       "\"\[Lambda](nm}\"", 
       "\"I(W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\))\"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \
\\(cutoff\\)]\\)(\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)<<1)\
\"", "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(cutoff\\)]\\)\""}, {
      "0.00007`", "3211.028286153062`", "4.358974844561874`*^12", 
       "0.4938818947594363`", "126.33821785192318`"}, {
      "0.000124`", "3741.8402337212574`", "4.2438220858693604`*^12", 
       "0.6529472989710435`", "126.33821785192318`"}, {
      "0.000221`", "4367.516573911897`", "4.130532440715845`*^12", 
       "0.8658160677081201`", "126.33821785192318`"}, {
      "0.00039400000000000004`", "5098.231647785195`", 
       "4.0202092816134307`*^12", "1.1482548046928929`", 
       "126.33821785192318`"}, {
      "0.0007`", "5945.695445926494`", "3.9134664975367456`*^12", 
       "1.5202584289847019`", "126.33821785192318`"}, {
      "0.00124`", "6928.572548850014`", "3.8100829086627935`*^12", 
       "2.0098907157287678`", "126.33821785192318`"}, {
      "0.00221`", "8087.10515428908`", "3.708372014097934`*^12", 
       "2.665139558365055`", "126.33821785192318`"}, {
      "0.00394`", "9440.132564771135`", "3.609324416338028`*^12", 
       "3.534537434920216`", "126.33821785192318`"}, {
       FractionBox["7", "1000"], "11009.337565837297`", 
       "3.51349126193039`*^12", "4.679632348184754`", 
       "126.33821785192318`"}, {
      "0.0124`", "12829.280398467714`", "3.4206739767014844`*^12", 
       "6.186809709663636`", "126.33821785192318`"}, {
      "0.0221`", "14974.475464428606`", "3.3293584283195854`*^12", 
       "8.203784996003092`", "126.33821785192318`"}, {
      "0.0394`", "17479.806528439487`", "3.240433974906308`*^12", 
       "10.879950014399197`", "126.33821785192318`"}, {
       FractionBox["7", "100"], "20385.422486043484`", 
       "3.1543954331616953`*^12", "14.404760727952194`", 
       "126.33821785192318`"}, {
      "0.124`", "23755.31675277416`", "3.071064524154776`*^12", 
       "19.044127167734853`", "126.33821785192318`"}, {
      "0.221`", "27727.463802773607`", "2.98908186721364`*^12", 
       "25.252744476140045`", "126.33821785192318`"}, {
      "0.394`", "32366.456103795525`", "2.9092459237512036`*^12", 
       "33.49046784632426`", "126.33821785192318`"}, {
      "0.7`", "37746.63529475329`", "2.8320009378035264`*^12", 
       "44.3404772407052`", "126.33821785192318`"}, {
      "1.24`", "43986.49468227639`", "2.7571868514100913`*^12", 
       "58.62129216845992`", "126.33821785192318`"}, {
      "2.21`", "51341.51448312229`", "2.6835832191894443`*^12", 
       "77.73254709721323`", "126.33821785192318`"}, {
      "3.94`", "59931.2972380162`", "2.611906895929798`*^12", 
       "103.08976007070532`", "126.33821785192318`"}, {
      "7", "69893.49752503703`", "2.5425567217744995`*^12", 
       "136.48806523515208`", "126.33821785192318`"}, {
      "12.4`", "81447.52328793847`", "2.4753889974620283`*^12", 
       "180.4470147270434`", "126.33821785192318`"}, {
      "22.1`", "95066.43406588737`", "2.4093080130416035`*^12", 
       "239.27493837074076`", "126.33821785192318`"}, {
      "39.4`", "110971.6917141958`", "2.344957357269137`*^12", 
       "317.3290585309637`", "126.33821785192318`"}, {
      "70", "129418.18411458192`", "2.282695106893068`*^12", 
       "420.1351250801029`", "126.33821785192318`"}}, AutoDelete -> False, 
     GridBoxBackground -> {"Columns" -> {
         RGBColor[0.96, 0.92, 0.96], 
         RGBColor[0.9133333333333333, 0.96, 1], 
         RGBColor[0.92, 1, 0.92], 
         RGBColor[1, 0.9, 0.9], 
         RGBColor[1, 0.9333333333333333, 0.8666666666666667]}}, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
   "\"Kr1+\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, BaseStyle -> Larger, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Top", ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7736772124550476`*^9, {3.7736772781690035`*^9, 3.773677342177574*^9}, {
   3.7736774017567644`*^9, 3.773677410609275*^9}, {3.7736775408352413`*^9, 
   3.773677547954922*^9}, 3.773677581468809*^9, {3.773677717459779*^9, 
   3.773677722857648*^9}, 3.7736777536390543`*^9, 3.7736777880716133`*^9, 
   3.77367791446342*^9, 3.7736779620361204`*^9, 3.773752494737474*^9, 
   3.773752767569933*^9, 3.7737534680496883`*^9, 3.7737535137607374`*^9, 
   3.773753588359036*^9, 3.7737536317727346`*^9, {3.7737536779319696`*^9, 
   3.77375369678741*^9}, 3.7737537313372016`*^9, 
   3.7737539046278768`*^9},ExpressionUUID->"b93c6130-751a-42de-ac21-\
49e97c25d0c1"],

Cell[BoxData["\<\"C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr1Table1.png\"\
\>"], "Output",
 CellChangeTimes->{
  3.7736772124550476`*^9, {3.7736772781690035`*^9, 3.773677342177574*^9}, {
   3.7736774017567644`*^9, 3.773677410609275*^9}, {3.7736775408352413`*^9, 
   3.773677547954922*^9}, 3.773677581468809*^9, {3.773677717459779*^9, 
   3.773677722857648*^9}, 3.7736777536390543`*^9, 3.7736777880716133`*^9, 
   3.77367791446342*^9, 3.7736779620361204`*^9, 3.773752494737474*^9, 
   3.773752767569933*^9, 3.7737534680496883`*^9, 3.7737535137607374`*^9, 
   3.773753588359036*^9, 3.7737536317727346`*^9, {3.7737536779319696`*^9, 
   3.77375369678741*^9}, 3.7737537313372016`*^9, 
   3.7737539047999907`*^9},ExpressionUUID->"4246e0e9-72a4-47cf-a6c6-\
1c47dd03f8ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Kr9\[Lambda]Table1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"solve\[Lambda]", "[", 
      RowBox[{
       RowBox[{"1.70", "*", 
        SuperscriptBox["10", "17"]}], ",", "8.48358", ",", "\[Gamma]"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "gammaTable1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9ISi1", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"1.70", "*", 
        SuperscriptBox["10", "17"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr9\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9eClassical1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffClassical", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"1.70", "*", 
        SuperscriptBox["10", "17"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr9\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9eRelativistic1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffRelativistic", "[", "8.48358", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr9\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9Grid1", "  ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
     "gammaTable1", ",", "Kr9\[Lambda]Table1", ",", "Kr9ISi1", ",", 
      "Kr9eClassical1", ",", "Kr9eRelativistic1"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Kr9Table1", " ", "=", " ", 
  RowBox[{"Labeled", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Prepend", "[", 
       RowBox[{"Kr9Grid1", ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)\>\"", ",", 
          "\"\<\[Lambda](nm}\>\"", ",", 
          "\"\<I(W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(cutoff\)]\)(\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)<<1)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(cutoff\)]\)\>\""}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}], ",", 
      RowBox[{"Background", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "LightPurple", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightBlue", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightGreen", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightRed", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightOrange", "]"}]}], "}"}], "}"}]}]}], 
     "]"}], ",", "\"\<Kr9+\>\"", ",", "Top", ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr9Table1.png\>\"", ",", 
   "Kr9Table1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.773678173898165*^9, 3.773678230567957*^9}, {
   3.773752508838504*^9, 3.773752624438822*^9}, 3.7737526840464983`*^9, 
   3.7737527875680437`*^9, {3.773753708111246*^9, 
   3.7737537252649174`*^9}},ExpressionUUID->"6d513df0-540c-4eab-89aa-\
f7fb39311c3b"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
      "\"\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)\"", 
       "\"\[Lambda](nm}\"", 
       "\"I(W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\))\"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \
\\(cutoff\\)]\\)(\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)<<1)\
\"", "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(cutoff\\)]\\)\""}, {
      "0.00007`", "30.449323033795185`", "3.0444386746827245`*^17", 
       "3.101794301650839`", "846.4794200628861`"}, {
      "0.000124`", "35.48287086375395`", "2.964012536757826`*^17", 
       "4.100794608421903`", "846.4794200628861`"}, {
      "0.000221`", "41.41599237477368`", "2.8848876531681126`*^17", 
       "5.437703575675515`", "846.4794200628861`"}, {
      "0.00039400000000000004`", "48.34516812385675`", 
       "2.8078346523453187`*^17", "7.21154237041722`", 
       "846.4794200628861`"}, {
      "0.0007`", "56.38144082202301`", "2.733282292748247`*^17", 
       "9.547887829251735`", "846.4794200628861`"}, {
      "0.00124`", "65.7018016978513`", "2.6610760957595155`*^17", 
       "12.62299273397145`", "846.4794200628861`"}, {
      "0.00221`", "76.68785675701153`", "2.5900381586087315`*^17", 
       "16.73824204320665`", "846.4794200628861`"}, {
      "0.00394`", "89.51825407023648`", "2.5208603477684432`*^17", 
       "22.198440944969732`", "846.4794200628861`"}, {
       FractionBox["7", "1000"], "104.39860569770667`", 
       "2.4539276005057603`*^17", "29.39013781521714`", 
       "846.4794200628861`"}, {
      "0.0124`", "121.65663716780449`", "2.3891012266663994`*^17", 
       "38.85587081943966`", "846.4794200628861`"}, {
      "0.0221`", "141.9989486371944`", "2.325323710849683`*^17", 
       "51.52335775533072`", "846.4794200628861`"}, {
      "0.0394`", "165.75633352341174`", "2.2632162074227814`*^17", 
       "68.33084450959136`", "846.4794200628861`"}, {
       FractionBox["7", "100"], "193.3095130723934`", 
       "2.203124311199203`*^17", "90.46819739032804`", 
       "846.4794200628861`"}, {
      "0.124`", "225.26531974027824`", "2.1449235068303414`*^17", 
       "119.60544769021476`", "846.4794200628861`"}, {
      "0.221`", "262.9321285892503`", "2.0876643621128115`*^17", 
       "158.598279767451`", "846.4794200628861`"}, {
      "0.394`", "306.9224527275448`", "2.0319045464281546`*^17", 
       "210.33478535581514`", "846.4794200628861`"}, {
      "0.7`", "357.94125404786627`", "1.977954333125635`*^17", 
       "278.47758967696046`", "846.4794200628861`"}, {
      "1.24`", "417.11217290756184`", "1.9257019329285146`*^17", 
       "368.1673532335206`", "846.4794200628861`"}, {
      "2.21`", "486.8578599205605`", "1.874294950204304`*^17", 
       "488.1943926217084`", "846.4794200628861`"}, {
      "3.94`", "568.3124740146762`", "1.824234057822012`*^17", 
       "647.4487802425288`", "846.4794200628861`"}, {
      "7", "662.7813567632244`", "1.7757978176914282`*^17", 
       "857.2047436481855`", "846.4794200628861`"}, {
      "12.4`", "772.3450950561881`", "1.7288858659414826`*^17", 
       "1133.2861721988734`", "846.4794200628861`"}, {
      "22.1`", "901.4895860700034`", "1.682732925902924`*^17", 
       "1502.7512614685481`", "846.4794200628861`"}, {
      "39.4`", "1052.3148933890182`", "1.637788499251941`*^17", 
       "1992.965273568095`", "846.4794200628861`"}, {
      "70", "1227.238050672296`", "1.5943026775215942`*^17", 
       "2638.632334419922`", "846.4794200628861`"}}, AutoDelete -> False, 
     GridBoxBackground -> {"Columns" -> {
         RGBColor[0.96, 0.92, 0.96], 
         RGBColor[0.9133333333333333, 0.96, 1], 
         RGBColor[0.92, 1, 0.92], 
         RGBColor[1, 0.9, 0.9], 
         RGBColor[1, 0.9333333333333333, 0.8666666666666667]}}, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
   "\"Kr9+\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, BaseStyle -> Larger, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Top", ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.773678251629201*^9, 3.7737526458540306`*^9, 3.773752685495515*^9, {
   3.7737527506199856`*^9, 3.77375278927474*^9}, {3.773753718396304*^9, 
   3.7737537261026583`*^9}, 
   3.773753907001238*^9},ExpressionUUID->"d62a63ca-e0b0-4c8f-ae2b-\
5f20d08fb1a2"],

Cell[BoxData["\<\"C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr9Table1.png\"\
\>"], "Output",
 CellChangeTimes->{
  3.773678251629201*^9, 3.7737526458540306`*^9, 3.773752685495515*^9, {
   3.7737527506199856`*^9, 3.77375278927474*^9}, {3.773753718396304*^9, 
   3.7737537261026583`*^9}, 
   3.773753907202614*^9},ExpressionUUID->"eb5dea3c-5150-48ec-a540-\
8c2d049c9279"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Kr9\[Lambda]Table2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"solve\[Lambda]", "[", 
      RowBox[{
       RowBox[{"1.70", "*", 
        SuperscriptBox["10", "17"]}], ",", "8.48358", ",", "\[Gamma]"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "gammaTable2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9ISi2", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"1.70", "*", 
        SuperscriptBox["10", "17"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr9\[Lambda]Table2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9eClassical2", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffClassical", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"1.70", "*", 
        SuperscriptBox["10", "17"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr9\[Lambda]Table2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9eRelativistic2", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffRelativistic", "[", "8.48358", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr9\[Lambda]Table2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9Grid2", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
     "gammaTable2", ",", "Kr9\[Lambda]Table2", ",", "Kr9ISi2", ",", 
      "Kr9eClassical2", ",", "Kr9eRelativistic2"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Kr9Table2", " ", "=", " ", 
  RowBox[{"Labeled", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Prepend", "[", 
       RowBox[{"Kr9Grid2", ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)\>\"", ",", 
          "\"\<\[Lambda](nm}\>\"", ",", 
          "\"\<I(W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(cutoff\)]\)(\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)<<1)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(cutoff\)]\)\>\""}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}], ",", 
      RowBox[{"Background", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "LightPurple", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightBlue", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightGreen", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightRed", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightOrange", "]"}]}], "}"}], "}"}]}]}], 
     "]"}], ",", "\"\<Kr9+\>\"", ",", "Top", ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\class\\\\220\\\\WorkCalcs\\\\8_7_19\\\\Kr9Table2.png\>\"", ",", 
   "Kr9Table2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.774103877501825*^9, 3.7741039426261673`*^9}, {
  3.7741807844466734`*^9, 
  3.7741808126115837`*^9}},ExpressionUUID->"b41855e3-4028-4183-9326-\
038f6f363810"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
      "\"\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)\"", 
       "\"\[Lambda](nm}\"", 
       "\"I(W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\))\"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \
\\(cutoff\\)]\\)(\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)<<1)\
\"", "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(cutoff\\)]\\)\""}, {
      "93.3`", "1325.3046738243145`", "1.572997617833983`*^17", 
       "3036.0575831326496`", "846.4794200628861`"}, {
      "124", "1430.1115733430033`", "1.5521853545146694`*^17", 
       "3488.461257678505`", "846.4794200628861`"}, {
      "166", "1546.2009962686463`", "1.5311289800318445`*^17", 
       "4022.4824167469687`", "846.4794200628861`"}, {
      "221", "1669.2417658108052`", "1.5107494685450464`*^17", 
       "4625.74209776963`", "846.4794200628861`"}, {
      "295", "1803.3459127117776`", "1.4904571186055155`*^17", 
       "5326.329697828376`", "846.4794200628861`"}, {
      "394", "1948.5172074891734`", "1.470398580039908`*^17", 
       "6134.710115849639`", "846.4794200628861`"}, {
      "525", "2104.063856243819`", "1.450768132359179`*^17", 
       "7057.750796898427`", "846.4794200628861`"}, {
      "700", "2272.4133949289535`", "1.431357219966018`*^17", 
       "8122.1909326062105`", "846.4794200628861`"}, {
      "933", "2453.9983025383763`", "1.4122296405950325`*^17", 
       "9345.538236198214`", "846.4794200628861`"}, {
      "1240", "2648.063832218435`", "1.3935444914160554`*^17", 
       "10738.119148416095`", "846.4794200628861`"}, {
      "1660", "2863.020628515036`", "1.3746401804171226`*^17", 
       "12381.933544012532`", "846.4794200628861`"}, {
      "2210", "3090.848874776469`", "1.3563435537368266`*^17", 
       "14238.876721466004`", "846.4794200628861`"}, {
      "2950", "3339.162606221114`", "1.3381251802713958`*^17", 
       "16395.412961269358`", "846.4794200628861`"}, {
      "3940", "3607.9688045219373`", "1.3201167215247282`*^17", 
       "18883.755128421708`", "846.4794200628861`"}, {
      "5250", "3895.986510600015`", "1.3024926007005339`*^17", 
       "21725.042469687196`", "846.4794200628861`"}, {
      "7000", "4207.7106675625855`", "1.285065577593937`*^17", 
       "25001.58308725245`", "846.4794200628861`"}, {
      "9330", "4543.942074454299`", "1.2678929295019861`*^17", 
       "28767.26891132449`", "846.4794200628861`"}, {
      "12400", "4903.283205457663`", "1.2511174930929805`*^17", 
       "33053.88660739055`", "846.4794200628861`"}, {
      "22100", "5723.165428985412`", "1.2177186714718277`*^17", 
       "43829.85605420225`", "846.4794200628861`"}, {
      "16600", "5301.30761723973`", "1.2341452942637912`*^17", 
       "38113.846725606934`", "846.4794200628861`"}, {
      "22100", "5723.165428985412`", "1.2177186714718277`*^17", 
       "43829.85605420225`", "846.4794200628861`"}, {
      "29500", "6182.955156960754`", "1.2013623040370573`*^17", 
       "50468.06739735943`", "846.4794200628861`"}, {
      "39400", "6680.689728769455`", "1.185194397019819`*^17", 
       "58127.63782087942`", "846.4794200628861`"}, {
      "52500", "7213.997258559615`", "1.169371546727377`*^17", 
       "66873.63777665906`", "846.4794200628861`"}, {
      "70000", "7791.200800624358`", "1.153725649810915`*^17", 
       "76959.42659503757`", "846.4794200628861`"}, {
      "93300", "8413.783153247776`", "1.1383081295502325`*^17", 
       "88550.89345320658`", "846.4794200628861`"}}, AutoDelete -> False, 
     GridBoxBackground -> {"Columns" -> {
         RGBColor[0.96, 0.92, 0.96], 
         RGBColor[0.9133333333333333, 0.96, 1], 
         RGBColor[0.92, 1, 0.92], 
         RGBColor[1, 0.9, 0.9], 
         RGBColor[1, 0.9333333333333333, 0.8666666666666667]}}, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
   "\"Kr9+\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, BaseStyle -> Larger, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Top", ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7741039439081964`*^9, {3.774180782299618*^9, 
   3.774180836843633*^9}},ExpressionUUID->"5ddeaa40-b2ff-499f-8ef8-\
3fda32399285"],

Cell[BoxData["\<\"C:\\\\class\\\\220\\\\WorkCalcs\\\\8_7_19\\\\Kr9Table2.png\"\
\>"], "Output",
 CellChangeTimes->{
  3.7741039439081964`*^9, {3.774180782299618*^9, 
   3.774180836997394*^9}},ExpressionUUID->"ceaf8abb-4633-4624-b18d-\
00a14ce6ab19"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Kr9\[Lambda]Table3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"solve\[Lambda]", "[", 
      RowBox[{
       RowBox[{"1.70", "*", 
        SuperscriptBox["10", "17"]}], ",", "8.48358", ",", "\[Gamma]"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "gammaTable3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9ISi3", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"1.70", "*", 
        SuperscriptBox["10", "17"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr9\[Lambda]Table3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9eClassical3", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffClassical", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"1.70", "*", 
        SuperscriptBox["10", "17"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr9\[Lambda]Table3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9eRelativistic3", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffRelativistic", "[", "8.48358", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr9\[Lambda]Table3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr9Grid3", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
     "gammaTable3", ",", "Kr9\[Lambda]Table3", ",", "Kr9ISi3", ",", 
      "Kr9eClassical3", ",", "Kr9eRelativistic3"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Kr9Table3", " ", "=", " ", 
  RowBox[{"Labeled", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Prepend", "[", 
       RowBox[{"Kr9Grid3", ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)\>\"", ",", 
          "\"\<\[Lambda](nm}\>\"", ",", 
          "\"\<I(W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(cutoff\)]\)(\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)<<1)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(cutoff\)]\)\>\""}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}], ",", 
      RowBox[{"Background", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "LightPurple", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightBlue", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightGreen", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightRed", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightOrange", "]"}]}], "}"}], "}"}]}]}], 
     "]"}], ",", "\"\<Kr9+\>\"", ",", "Top", ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\class\\\\220\\\\WorkCalcs\\\\8_6_19\\\\Kr9Table3.png\>\"", ",", 
   "Kr9Table3"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7741055176662025`*^9, 
  3.774105574193859*^9}},ExpressionUUID->"12ce71ca-9e88-41bd-b270-\
6ae587a3b6e1"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
      "\"\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)\"", 
       "\"\[Lambda](nm}\"", 
       "\"I(W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\))\"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \
\\(cutoff\\)]\\)(\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)<<1)\
\"", "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(cutoff\\)]\\)\""}, {
      "2.94`", "525.4935844916669`", "1.8494134825758637`*^17", 
       "561.2021630431389`", "846.4794200628861`"}, {
      "5.24`", "613.3668725360387`", "1.800040440359309`*^17", 
       "744.172085508464`", "846.4794200628861`"}, {
      "9.33`", "715.7431513476383`", "1.7520673937057776`*^17", 
       "986.3151179880056`", "846.4794200628861`"}, {
      "16.5`", "833.6913745653544`", "1.7059150027813277`*^17", 
       "1302.9222046544762`", "846.4794200628861`"}, {
      "29.5`", "973.9137815078085`", "1.6601304983673523`*^17", 
       "1730.3490992868583`", "846.4794200628861`"}, {
      "52.5`", "1136.3193119654313`", "1.6159233248134614`*^17", 
       "2292.8307910386143`", "846.4794200628861`"}}, AutoDelete -> False, 
     GridBoxBackground -> {"Columns" -> {
         RGBColor[0.96, 0.92, 0.96], 
         RGBColor[0.9133333333333333, 0.96, 1], 
         RGBColor[0.92, 1, 0.92], 
         RGBColor[1, 0.9, 0.9], 
         RGBColor[1, 0.9333333333333333, 0.8666666666666667]}}, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
   "\"Kr9+\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, BaseStyle -> Larger, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Top", ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.7741055768848515`*^9, 
  3.7741094045854254`*^9},ExpressionUUID->"9e426f22-dfc5-46d6-afb4-\
ac5a24ae69f1"],

Cell[BoxData["\<\"C:\\\\class\\\\220\\\\WorkCalcs\\\\8_6_19\\\\Kr9Table3.png\"\
\>"], "Output",
 CellChangeTimes->{3.7741055768848515`*^9, 
  3.774109405192035*^9},ExpressionUUID->"f0ddba66-0899-4933-971d-\
22bde2c2d4cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Kr19\[Lambda]Table1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"solve\[Lambda]", "[", 
      RowBox[{
       RowBox[{"5.11", "*", 
        SuperscriptBox["10", "18"]}], ",", "28.9", ",", "\[Gamma]"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "gammaTable1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr19ISi1", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"5.11", "*", 
        SuperscriptBox["10", "18"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr19\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr19eClassical1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffClassical", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"5.11", "*", 
        SuperscriptBox["10", "18"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr19\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr19eRelativistic1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffRelativistic", "[", "28.9", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr19\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr19Grid1", "  ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
     "gammaTable1", ",", "Kr19\[Lambda]Table1", ",", "Kr19ISi1", ",", 
      "Kr19eClassical1", ",", "Kr19eRelativistic1"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Kr19Table1", " ", "=", " ", 
  RowBox[{"Labeled", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Prepend", "[", 
       RowBox[{"Kr19Grid1", ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)\>\"", ",", 
          "\"\<\[Lambda](nm}\>\"", ",", 
          "\"\<I(W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(cutoff\)]\)(\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)<<1)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(cutoff\)]\)\>\""}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}], ",", 
      RowBox[{"Background", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "LightPurple", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightBlue", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightGreen", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightRed", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightOrange", "]"}]}], "}"}], "}"}]}]}], 
     "]"}], ",", "\"\<Kr19+\>\"", ",", "Top", ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr19Table1.png\>\"", ",", 
   "Kr19Table1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.773678605627638*^9, 3.7736787284966793`*^9}, {
  3.773752827190345*^9, 3.7737528324044323`*^9}, {3.773752914483699*^9, 
  3.7737529914268923`*^9}, {3.773753754055232*^9, 
  3.7737537642043843`*^9}},ExpressionUUID->"b46e66d6-03a7-4b9b-b329-\
e68334cd899c"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
      "\"\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)\"", 
       "\"\[Lambda](nm}\"", 
       "\"I(W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\))\"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \
\\(cutoff\\)]\\)(\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)<<1)\
\"", "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(cutoff\\)]\\)\""}, {
      "0.00007`", "6.59475139319175`", "1.1960396339713286`*^19", 
       "5.716009057184482`", "1562.3406958791031`"}, {
      "0.000124`", "7.684923300379155`", "1.1644433829562059`*^19", 
       "7.5569740749467345`", "1562.3406958791031`"}, {
      "0.000221`", "8.96992596882424`", "1.1333583433416284`*^19", 
       "10.0206396253624`", "1562.3406958791031`"}, {
      "0.00039400000000000004`", "10.470655274832746`", 
       "1.1030872645818989`*^19", "13.289482633853494`", 
       "1562.3406958791031`"}, {
      "0.0007`", "12.211160983727485`", "1.0737985889302295`*^19", 
       "17.594917006565534`", "1562.3406958791031`"}, {
      "0.00124`", "14.22977607092332`", "1.0454316278431044`*^19", 
       "23.261742649328298`", "1562.3406958791031`"}, {
      "0.00221`", "16.609149228962558`", "1.0175236298747247`*^19", 
       "30.845353951870578`", "1562.3406958791031`"}, {
      "0.00394`", "19.38797227414761`", "9.903464020184338`*^18", 
       "40.90744812745654`", "1562.3406958791031`"}, {
       FractionBox["7", "1000"], "22.610776916389625`", 
       "9.640511709131145`*^18", "54.16035932952466`", 
       "1562.3406958791031`"}, {
      "0.0124`", "26.348542348969403`", "9.385834506784152`*^18", 
       "71.60388082810684`", "1562.3406958791031`"}, {
      "0.0221`", "30.75430489267541`", "9.135277853081888`*^18", 
       "94.94761771574727`", "1562.3406958791031`"}, {
      "0.0394`", "35.89970818795014`", "8.891282018042361`*^18", 
       "125.92057632384395`", "1562.3406958791031`"}, {
       FractionBox["7", "100"], "41.86720930499753`", 
       "8.655204707102989`*^18", "166.7154509230508`", 
       "1562.3406958791031`"}, {
      "0.124`", "48.788236754760604`", "8.426556748669654`*^18", 
       "220.4097873034366`", "1562.3406958791031`"}, {
      "0.221`", "56.94615999851046`", "8.201608198846745`*^18", 
       "292.26606133170884`", "1562.3406958791031`"}, {
      "0.394`", "66.4736378697259`", "7.982549920234067`*^18", 
       "387.6064694215597`", "1562.3406958791031`"}, {
      "0.7`", "77.52335187199573`", "7.77060085419566`*^18", 
       "513.18052392102`", "1562.3406958791031`"}, {
      "1.24`", "90.33866139967613`", "7.565321824844213`*^18", 
       "678.4614713240061`", "1562.3406958791031`"}, {
      "2.21`", "105.44426706741434`", "7.363364106620695`*^18", 
       "899.6481708690965`", "1562.3406958791031`"}, {
      "3.94`", "123.08580639434349`", "7.166694645353145`*^18", 
       "1193.1233125161427`", "1562.3406958791031`"}, {
      "7", "143.54599184502814`", "6.976407800692798`*^18", 
       "1579.6631246458742`", "1562.3406958791031`"}, {
      "12.4`", "167.27543945701214`", "6.792109282655699`*^18", 
       "2088.427985447984`", "1562.3406958791031`"}, {
      "22.1`", "195.2457102932845`", "6.610792621658509`*^18", 
       "2769.2809341605916`", "1562.3406958791031`"}, {
      "39.4`", "227.9116386775279`", "6.434223732136387`*^18", 
       "3672.6508744652856`", "1562.3406958791031`"}, {
      "70", "265.79670869747747`", "6.263385124882369`*^18", 
       "4862.490821553488`", "1562.3406958791031`"}}, AutoDelete -> False, 
     GridBoxBackground -> {"Columns" -> {
         RGBColor[0.96, 0.92, 0.96], 
         RGBColor[0.9133333333333333, 0.96, 1], 
         RGBColor[0.92, 1, 0.92], 
         RGBColor[1, 0.9, 0.9], 
         RGBColor[1, 0.9333333333333333, 0.8666666666666667]}}, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
   "\"Kr19+\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, BaseStyle -> Larger, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Top", ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.773678744600151*^9, 3.7737529924182243`*^9, 
  3.7737537650530405`*^9, 
  3.7737539090606318`*^9},ExpressionUUID->"f13fefa9-ad20-4d69-9630-\
c0ebde6a0f19"],

Cell[BoxData["\<\"C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr19Table1.png\
\"\>"], "Output",
 CellChangeTimes->{3.773678744600151*^9, 3.7737529924182243`*^9, 
  3.7737537650530405`*^9, 
  3.7737539092431602`*^9},ExpressionUUID->"47324682-8812-4bdc-8579-\
e71a8fd9f350"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Kr19\[Lambda]Table3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"solve\[Lambda]", "[", 
      RowBox[{
       RowBox[{"5.11", "*", 
        SuperscriptBox["10", "18"]}], ",", "28.9", ",", "\[Gamma]"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "gammaTable3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr19ISi3", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"5.11", "*", 
        SuperscriptBox["10", "18"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr19\[Lambda]Table3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr19eClassical3", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffClassical", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"5.11", "*", 
        SuperscriptBox["10", "18"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr19\[Lambda]Table3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr19eRelativistic3", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffRelativistic", "[", "28.9", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr19\[Lambda]Table3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr19Grid3", "  ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
     "gammaTable3", ",", "Kr19\[Lambda]Table3", ",", "Kr19ISi3", ",", 
      "Kr19eClassical3", ",", "Kr19eRelativistic3"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Kr19Table3", " ", "=", " ", 
  RowBox[{"Labeled", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Prepend", "[", 
       RowBox[{"Kr19Grid3", ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)\>\"", ",", 
          "\"\<\[Lambda](nm}\>\"", ",", 
          "\"\<I(W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(cutoff\)]\)(\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)<<1)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(cutoff\)]\)\>\""}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}], ",", 
      RowBox[{"Background", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "LightPurple", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightBlue", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightGreen", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightRed", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightOrange", "]"}]}], "}"}], "}"}]}]}], 
     "]"}], ",", "\"\<Kr19+\>\"", ",", "Top", ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\class\\\\220\\\\WorkCalcs\\\\8_7_19\\\\Kr19Table3.png\>\"", ",", 
   "Kr19Table3"}], "]"}]}], "Input",
 CellChangeTimes->{{3.774181108672127*^9, 
  3.774181173383442*^9}},ExpressionUUID->"d87333be-66fd-44ba-8abc-\
daba2e846644"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
      "\"\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)\"", 
       "\"\[Lambda](nm}\"", 
       "\"I(W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\))\"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \
\\(cutoff\\)]\\)(\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)<<1)\
\"", "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(cutoff\\)]\\)\""}, {
      "124", "309.735302826137`", "6.097922808259078`*^18", 
       "6428.56173083915`", "1562.3406958791031`"}, {
      "221", "361.52641056869516`", "5.935137588440024`*^18", 
       "8524.351119279068`", "1562.3406958791031`"}, {
      "394", "422.0122251810112`", "5.776614894849774`*^18", 
       "11305.088337655063`", "1562.3406958791031`"}, {
      "700", "492.162055145942`", "5.623236820918347`*^18", 
       "14967.632415292546`", "1562.3406958791031`"}, {
      "1240", "573.5208834495587`", "5.47468555466869`*^18", 
       "19788.283922246323`", "1562.3406958791031`"}, {
      "2210", "669.4198061629845`", "5.328537772960156`*^18", 
       "26239.50539231948`", "1562.3406958791031`"}, {
      "3940", "781.4182690960075`", "5.186216866649194`*^18", 
       "34799.12104109056`", "1562.3406958791031`"}, {
      "7000", "911.3110907673783`", "5.048514774943804`*^18", 
       "46073.09881723177`", "1562.3406958791031`"}, {
      "12400", "1061.9590364789567`", "4.915146167790686`*^18", 
       "60911.94220146629`", "1562.3406958791031`"}, {
      "22100", "1239.5301250007515`", "4.783935397414436`*^18", 
       "80769.97692837787`", "1562.3406958791031`"}, {
      "39400", "1446.9119016992765`", "4.656160377230074`*^18", 
       "107118.0329656456`", "1562.3406958791031`"}, {
      "70000", "1687.4277394452163`", "4.53253210642184`*^18", 
       "141821.390031839`", "1562.3406958791031`"}, {
      "124000", "1966.3747697837766`", "4.4127944170502175`*^18", 
       "187498.05275350984`", "1562.3406958791031`"}, {
      "221000", "2295.1739949120974`", "4.294994023082801`*^18", 
       "248624.7006363264`", "1562.3406958791031`"}, {
      "394000", "2679.172133639733`", "4.180278228992496`*^18", 
       "329728.8162215478`", "1562.3406958791031`"}, {
      "700000", "3124.5229040848185`", "4.0692853664023347`*^18", 
       "436552.07022976404`", "1562.3406958791031`"}, {
      "1240000", "3641.0347314925075`", "3.9617854489772774`*^18", 
       "577153.1577515792`", "1562.3406958791031`"}, {
      "2210000", "4249.855296512105`", "3.856024825980507`*^18", 
       "765312.1136993286`", "1562.3406958791031`"}, {
      "3940000", "4960.884842568343`", "3.753033541809457`*^18", 
       "1.0149653539822918`*^6", "1562.3406958791031`"}, {
      "7000000", "5785.517892078946`", "3.653384687502761`*^18", 
       "1.3437867868810766`*^6", "1562.3406958791031`"}}, AutoDelete -> False,
      GridBoxBackground -> {"Columns" -> {
         RGBColor[0.96, 0.92, 0.96], 
         RGBColor[0.9133333333333333, 0.96, 1], 
         RGBColor[0.92, 1, 0.92], 
         RGBColor[1, 0.9, 0.9], 
         RGBColor[1, 0.9333333333333333, 0.8666666666666667]}}, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
   "\"Kr19+\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, BaseStyle -> Larger, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Top", ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.774181169837845*^9, 
  3.774181173642805*^9}},ExpressionUUID->"214e56fc-be6f-4549-a7fa-\
33b31a9f596f"],

Cell[BoxData["\<\"C:\\\\class\\\\220\\\\WorkCalcs\\\\8_7_19\\\\Kr19Table3.png\
\"\>"], "Output",
 CellChangeTimes->{{3.774181169837845*^9, 
  3.7741811737919416`*^9}},ExpressionUUID->"0692b2db-c51c-4f75-9f80-\
b029ef91a52c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Kr27\[Lambda]Table1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"solve\[Lambda]", "[", 
      RowBox[{
       RowBox[{"3.58", "*", 
        SuperscriptBox["10", "20"]}], ",", "107.6", ",", "\[Gamma]"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "gammaTable1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr27ISi1", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"3.58", "*", 
        SuperscriptBox["10", "20"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr27\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr27eClassical1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffClassical", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"3.58", "*", 
        SuperscriptBox["10", "20"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr27\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr27eRelativistic1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffRelativistic", "[", "107.6", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr27\[Lambda]Table1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr27Grid1", "  ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
     "gammaTable1", ",", "Kr27\[Lambda]Table1", ",", "Kr27ISi1", ",", 
      "Kr27eClassical1", ",", "Kr27eRelativistic1"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Kr27Table1", " ", "=", " ", 
  RowBox[{"Labeled", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Prepend", "[", 
       RowBox[{"Kr27Grid1", ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)\>\"", ",", 
          "\"\<\[Lambda](nm}\>\"", ",", 
          "\"\<I(W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(cutoff\)]\)(\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)<<1)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(cutoff\)]\)\>\""}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}], ",", 
      RowBox[{"Background", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "LightPurple", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightBlue", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightGreen", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightRed", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightOrange", "]"}]}], "}"}], "}"}]}]}], 
     "]"}], ",", "\"\<Kr27\>\"", ",", "Top", ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr27Table1.png\>\"", ",", 
   "Kr27Table1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7736789717331657`*^9, 3.7736789726351137`*^9}, {
  3.77367918545984*^9, 3.773679270740221*^9}, {3.7736800232063913`*^9, 
  3.7736800284659843`*^9}, {3.773680105810703*^9, 3.7736801059394884`*^9}, {
  3.773753020766008*^9, 3.7737531327071176`*^9}, {3.773753774365512*^9, 
  3.7737537901392374`*^9}},ExpressionUUID->"1cdc440d-9434-4ed7-88ec-\
1e3b0981e6fe"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
      "\"\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)\"", 
       "\"\[Lambda](nm}\"", 
       "\"I(W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\))\"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \
\\(cutoff\\)]\\)(\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)<<1)\
\"", "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(cutoff\\)]\\)\""}, {
      "0.00007`", "1.0050049940666241`", "1.1646300304857334`*^21", 
       "12.92632004151289`", "3014.6226629546854`"}, {
      "0.000124`", "1.1711413873574426`", "1.1338635393613604`*^21", 
       "17.089522507910974`", "3014.6226629546854`"}, {
      "0.000221`", "1.3669689511545393`", "1.1035948345411291`*^21", 
       "22.660914900982057`", "3014.6226629546854`"}, {
      "0.00039400000000000004`", "1.5956721057325496`", 
       "1.074118714872987`*^21", "30.053154918535565`", 
       "3014.6226629546854`"}, {
      "0.0007`", "1.8609159072572794`", "1.0455991990908636`*^21", 
       "39.789567520866086`", "3014.6226629546854`"}, {
      "0.00124`", "2.168542097051855`", "1.0179771924137184`*^21", 
       "52.60466300881559`", "3014.6226629546854`"}, {
      "0.00221`", "2.5311458957403405`", "9.908020958688083`*^20", 
       "69.75442358238989`", "3014.6226629546854`"}, {
      "0.00394`", "2.9546237300862326`", "9.643385784336089`*^20", 
       "92.50908479797808`", "3014.6226629546854`"}, {
       FractionBox["7", "1000"], "3.445761995540503`", 
       "9.387338953328216`*^20", "122.47953620311749`", 
       "3014.6226629546854`"}, {
      "0.0124`", "4.015377543181973`", "9.139349915583244`*^20", 
       "161.9267342893899`", "3014.6226629546854`"}, {
      "0.0221`", "4.686792293352445`", "8.895373215354039`*^20", 
       "214.716821036233`", "3014.6226629546854`"}, {
      "0.0394`", "5.470924355339882`", "8.657785037897967`*^20", 
       "284.75981285017497`", "3014.6226629546854`"}, {
       FractionBox["7", "100"], "6.380339747544403`", 
       "8.427907433488326`*^20", "377.01432117008926`", 
       "3014.6226629546854`"}, {
      "0.124`", "7.435067475152895`", "8.205264076832556`*^20", 
       "498.43998189348054`", "3014.6226629546854`"}, {
      "0.221`", "8.678291535068936`", "7.98622297735988`*^20", 
       "660.9374842220745`", "3014.6226629546854`"}, {
      "0.394`", "10.130228427082168`", "7.772917462682471`*^20", 
       "876.5425708355824`", "3014.6226629546854`"}, {
      "0.7`", "11.81414599928263`", "7.56653446313076`*^20", 
       "1160.5187509170644`", "3014.6226629546854`"}, {
      "1.24`", "13.767130927436977`", "7.366646336164737`*^20", 
       "1534.2890514049725`", "3014.6226629546854`"}, {
      "2.21`", "16.06914479109084`", "7.169992298245853`*^20", 
       "2034.4859612842772`", "3014.6226629546854`"}, {
      "3.94`", "18.75762144009543`", "6.978487640568992`*^20", 
       "2698.157688744175`", "3014.6226629546854`"}, {
      "7", "21.875644748554894`", "6.793197983434497`*^20", 
       "3572.28809518484`", "3014.6226629546854`"}, {
      "12.4`", "25.49188620097818`", "6.613739391441743`*^20", 
       "4722.821159567902`", "3014.6226629546854`"}, {
      "22.1`", "29.754406529624696`", "6.437184348927332`*^20", 
       "6262.518355324617`", "3014.6226629546854`"}, {
      "39.4`", "34.73252006334783`", "6.265252395047021`*^20", 
       "8305.420815316991`", "3014.6226629546854`"}, {
      "70", "40.50600298947001`", "6.098900238543857`*^20", 
       "10996.153422695792`", "3014.6226629546854`"}}, AutoDelete -> False, 
     GridBoxBackground -> {"Columns" -> {
         RGBColor[0.96, 0.92, 0.96], 
         RGBColor[0.9133333333333333, 0.96, 1], 
         RGBColor[0.92, 1, 0.92], 
         RGBColor[1, 0.9, 0.9], 
         RGBColor[1, 0.9333333333333333, 0.8666666666666667]}}, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
   "\"Kr27\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, BaseStyle -> Larger, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Top", ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7736792889096427`*^9, 3.773680043394869*^9, {3.7736800952894983`*^9, 
   3.7736801114379854`*^9}, 3.7736802848797803`*^9, {3.773753785725334*^9, 
   3.773753790512354*^9}, 
   3.7737539107708406`*^9},ExpressionUUID->"99167496-ab90-4b88-b73f-\
2abbc5971883"],

Cell[BoxData["\<\"C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr27Table1.png\
\"\>"], "Output",
 CellChangeTimes->{
  3.7736792889096427`*^9, 3.773680043394869*^9, {3.7736800952894983`*^9, 
   3.7736801114379854`*^9}, 3.7736802848797803`*^9, {3.773753785725334*^9, 
   3.773753790512354*^9}, 
   3.773753910968769*^9},ExpressionUUID->"870a8848-bd18-406c-9ffd-\
4aae06904cb4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Kr27\[Lambda]Table2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"solve\[Lambda]", "[", 
      RowBox[{
       RowBox[{"3.58", "*", 
        SuperscriptBox["10", "20"]}], ",", "107.6", ",", "\[Gamma]"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "gammaTable2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr27ISi2", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"3.58", "*", 
        SuperscriptBox["10", "20"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr27\[Lambda]Table2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr27eClassical2", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffClassical", "[", 
      RowBox[{"\[Lambda]", ",", 
       RowBox[{"3.58", "*", 
        SuperscriptBox["10", "20"]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr27\[Lambda]Table2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr27eRelativistic2", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"cutoffRelativistic", "[", "107.6", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "Kr27\[Lambda]Table2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kr27Grid2", "  ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
     "gammaTable2", ",", "Kr27\[Lambda]Table2", ",", "Kr27ISi2", ",", 
      "Kr27eClassical2", ",", "Kr27eRelativistic2"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Kr27Table2", " ", "=", " ", 
  RowBox[{"Labeled", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Prepend", "[", 
       RowBox[{"Kr27Grid2", ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)\>\"", ",", 
          "\"\<\[Lambda](nm}\>\"", ",", 
          "\"\<I(W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(cutoff\)]\)(\!\(\*SubscriptBox[\(\[CapitalGamma]\), \(r\)]\)<<1)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(cutoff\)]\)\>\""}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}], ",", 
      RowBox[{"Background", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "LightPurple", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightBlue", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightGreen", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightRed", "]"}], ",", 
          RowBox[{"Lighter", "[", "LightOrange", "]"}]}], "}"}], "}"}]}]}], 
     "]"}], ",", "\"\<Kr27\>\"", ",", "Top", ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr27Table2.png\>\"", ",", 
   "Kr27Table2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.773753826283202*^9, 
  3.7737538735792665`*^9}},ExpressionUUID->"88936611-8636-44cd-ac25-\
a772d9985ee8"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
      "\"\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)\"", 
       "\"\[Lambda](nm}\"", 
       "\"I(W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\))\"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \
\\(cutoff\\)]\\)(\\!\\(\\*SubscriptBox[\\(\[CapitalGamma]\\), \\(r\\)]\\)<<1)\
\"", "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(cutoff\\)]\\)\""}, {
      "124", "47.202010753637936`", "5.937783184075205`*^20", 
       "14537.703755910416`", "3014.6226629546854`"}, {
      "221", "55.094699776494664`", "5.779272922261393`*^20", 
       "19277.172168846264`", "3014.6226629546854`"}, {
      "394", "64.31241582540018`", "5.624913247025815`*^20", 
       "25565.598040197063`", "3014.6226629546854`"}, {
      "700", "75.00287635139715`", "5.475563086843012`*^20", 
       "33848.163102648075`", "3014.6226629546854`"}, {
      "1240", "87.4015285342462`", "5.330912975904314`*^20", 
       "44749.70009534474`", "3014.6226629546854`"}, {
      "2210", "102.0160136764915`", "5.18860323078201`*^20", 
       "59338.64712929512`", "3014.6226629546854`"}, {
      "3940", "119.08398301521086`", "5.050019862181312`*^20", 
       "78695.56735133134`", "3014.6226629546854`"}, {
      "7000", "138.87895733492553`", "4.9159340119254145`*^20", 
       "104190.81122120155`", "3014.6226629546854`"}, {
      "12400", "161.836902033541`", "4.786067843110562`*^20", 
       "137747.727718633`", "3014.6226629546854`"}, {
      "22100", "188.8977903257802`", "4.658302843387306`*^20", 
       "182655.16395736672`", "3014.6226629546854`"}, {
      "39400", "220.50166874879307`", "4.533883366451984`*^20", 
       "242239.29011989562`", "3014.6226629546854`"}, {
      "70000", "257.1550016305045`", "4.413501739697511`*^20", 
       "320718.2945204717`", "3014.6226629546854`"}, {
      "124000", "299.6650436102107`", "4.296908522497731`*^20", 
       "424012.5956424133`", "3014.6226629546854`"}, {
      "221000", "349.7722946038329`", "4.1822017247288603`*^20", 
       "562245.8639408633`", "3014.6226629546854`"}, {
      "394000", "408.29156608569275`", "4.0704985211109533`*^20", 
       "745656.6570747043`", "3014.6226629546854`"}, {
      "700000", "476.1606519273212`", "3.9624204798232533`*^20", 
       "987229.326986844`", "3014.6226629546854`"}, {
      "1240000", "554.8743039044235`", "3.8577436542800626`*^20", 
       "1.3051880001291437`*^6", "3014.6226629546854`"}, {
      "2210000", "647.6553159326912`", "3.754760446962811`*^20", 
       "1.7306951781138396`*^6", "3014.6226629546854`"}, {
      "3940000", "756.0124323894491`", "3.6544738519227924`*^20", 
       "2.2952670062921275`*^6", "3014.6226629546854`"}, {
      "7000000", "881.6821178132446`", "3.557441910060022`*^20", 
       "3.0388716849474446`*^6", "3014.6226629546854`"}, {
      "12400000", "1027.432126964734`", "3.4634635632148126`*^20", 
       "4.017606394687758`*^6", "3014.6226629546854`"}, {
      "22100000", "1199.2299410991648`", "3.371005738607787`*^20", 
       "5.327394991493515`*^6", "3014.6226629546854`"}, {
      "39400000", "1399.8692243558435`", "3.2809689194389904`*^20", 
       "7.065249911187241`*^6", "3014.6226629546854`"}, {
      "70000000", "1632.5652985503323`", "3.19385411212492`*^20", 
       "9.354200554151872`*^6", "3014.6226629546854`"}}, AutoDelete -> False, 
     GridBoxBackground -> {"Columns" -> {
         RGBColor[0.96, 0.92, 0.96], 
         RGBColor[0.9133333333333333, 0.96, 1], 
         RGBColor[0.92, 1, 0.92], 
         RGBColor[1, 0.9, 0.9], 
         RGBColor[1, 0.9333333333333333, 0.8666666666666667]}}, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
   "\"Kr27\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, BaseStyle -> Larger, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Top", ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Larger"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.7737538775671043`*^9, 
  3.7737539126690617`*^9},ExpressionUUID->"25e512ca-1960-4d20-a162-\
536d591f50c3"],

Cell[BoxData["\<\"C:\\\\class\\\\220\\\\WorkCalcs\\\\8_2_19\\\\Kr27Table2.png\
\"\>"], "Output",
 CellChangeTimes->{3.7737538775671043`*^9, 
  3.7737539128907433`*^9},ExpressionUUID->"de79ec68-5f33-4b37-b18a-\
ab4f692f5a60"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7736754783051786`*^9, 
  3.7736754797285566`*^9}},ExpressionUUID->"87ce4629-086b-4fe1-acdf-\
f35330d0b73c"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7736742021639843`*^9, 
  3.7736742041968255`*^9}},ExpressionUUID->"496f7b4a-826c-40e0-980f-\
8c4ddbcf3f42"]
},
WindowSize->{766, 772},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
PrintingPageRange->{Automatic, Automatic},
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (March 13, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 4146, 124, 416, "Input", "ExpressionUUID" -> \
"64bee85e-f0e6-42f7-bb04-1d598d2b9f72"],
Cell[CellGroupData[{
Cell[4729, 148, 3529, 88, 246, "Input", "ExpressionUUID" -> \
"1d737880-fa22-4e7c-9ed1-7b60671b9193"],
Cell[8261, 238, 545, 9, 30, "Output", "ExpressionUUID" -> \
"85b0dfa4-f880-4ca9-be72-1f787ec821c8"],
Cell[8809, 249, 539, 9, 30, "Output", "ExpressionUUID" -> \
"f9fde8e2-aba9-4f0f-bbac-37e6c8fa945d"],
Cell[9351, 260, 539, 9, 30, "Output", "ExpressionUUID" -> \
"eb8e9512-a656-4fad-8189-49ae81d0fa53"],
Cell[9893, 271, 539, 9, 63, "Output", "ExpressionUUID" -> \
"4db9de7e-3d20-4747-a1d9-8310d9ba73b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10469, 285, 4494, 103, 262, "Input", "ExpressionUUID" -> \
"841a9ba6-c478-4dee-9daf-b1e9ea35c96a"],
Cell[14966, 390, 5399, 98, 578, "Output", "ExpressionUUID" -> \
"b93c6130-751a-42de-ac21-49e97c25d0c1"],
Cell[20368, 490, 769, 12, 30, "Output", "ExpressionUUID" -> \
"4246e0e9-72a4-47cf-a6c6-1c47dd03f8ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21174, 507, 3362, 88, 262, "Input", "ExpressionUUID" -> \
"6d513df0-540c-4eab-89aa-f7fb39311c3b"],
Cell[24539, 597, 4973, 93, 578, "Output", "ExpressionUUID" -> \
"d62a63ca-e0b0-4c8f-ae2b-5f20d08fb1a2"],
Cell[29515, 692, 372, 7, 30, "Output", "ExpressionUUID" -> \
"eb5dea3c-5150-48ec-a540-8c2d049c9279"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29924, 704, 3265, 87, 262, "Input", "ExpressionUUID" -> \
"b41855e3-4028-4183-9326-038f6f363810"],
Cell[33192, 793, 4853, 90, 578, "Output", "ExpressionUUID" -> \
"5ddeaa40-b2ff-499f-8ef8-3fda32399285"],
Cell[38048, 885, 249, 5, 30, "Output", "ExpressionUUID" -> \
"ceaf8abb-4633-4624-b18d-00a14ce6ab19"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38334, 895, 3212, 86, 262, "Input", "ExpressionUUID" -> \
"12ce71ca-9e88-41bd-b270-6ae587a3b6e1"],
Cell[41549, 983, 2463, 49, 178, "Output", "ExpressionUUID" -> \
"9e426f22-dfc5-46d6-afb4-ac5a24ae69f1"],
Cell[44015, 1034, 221, 4, 30, "Output", "ExpressionUUID" -> \
"f0ddba66-0899-4933-971d-22bde2c2d4cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44273, 1043, 3373, 88, 262, "Input", "ExpressionUUID" -> \
"b46e66d6-03a7-4b9b-b329-e68334cd899c"],
Cell[47649, 1133, 4894, 91, 578, "Output", "ExpressionUUID" -> \
"f13fefa9-ad20-4d69-9630-c0ebde6a0f19"],
Cell[52546, 1226, 273, 5, 30, "Output", "ExpressionUUID" -> \
"47324682-8812-4bdc-8579-e71a8fd9f350"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52856, 1236, 3221, 86, 262, "Input", "ExpressionUUID" -> \
"d87333be-66fd-44ba-8abc-daba2e846644"],
Cell[56080, 1324, 4145, 77, 491, "Output", "ExpressionUUID" -> \
"214e56fc-be6f-4549-a7fa-33b31a9f596f"],
Cell[60228, 1403, 224, 4, 30, "Output", "ExpressionUUID" -> \
"0692b2db-c51c-4f75-9f80-b029ef91a52c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60489, 1412, 3474, 89, 262, "Input", "ExpressionUUID" -> \
"1cdc440d-9434-4ed7-88ec-1e3b0981e6fe"],
Cell[63966, 1503, 5000, 93, 578, "Output", "ExpressionUUID" -> \
"99167496-ab90-4b88-b73f-2abbc5971883"],
Cell[68969, 1598, 376, 7, 30, "Output", "ExpressionUUID" -> \
"870a8848-bd18-406c-9ffd-4aae06904cb4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69382, 1610, 3224, 86, 262, "Input", "ExpressionUUID" -> \
"88936611-8636-44cd-ac25-a772d9985ee8"],
Cell[72609, 1698, 4661, 85, 538, "Output", "ExpressionUUID" -> \
"25e512ca-1960-4d20-a162-536d591f50c3"],
Cell[77273, 1785, 224, 4, 87, "Output", "ExpressionUUID" -> \
"de79ec68-5f33-4b37-b18a-ab4f692f5a60"]
}, Open  ]],
Cell[77512, 1792, 156, 3, 30, "Input", "ExpressionUUID" -> \
"87ce4629-086b-4fe1-acdf-f35330d0b73c"],
Cell[77671, 1797, 156, 3, 30, "Input", "ExpressionUUID" -> \
"496f7b4a-826c-40e0-980f-8c4ddbcf3f42"]
}
]
*)