AbsoptionImageHF-Na-D2.nb

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

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

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    196636,       4368]
NotebookOptionsPosition[    192101,       4208]
NotebookOutlinePosition[    192448,       4223]
CellTagsIndexPosition[    192405,       4220]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Absorption Imaging in High Magnetic Field for Na23 at D2 line\
\>", "Title",
 CellChangeTimes->{{3.7344241177726035`*^9, 3.7344241278980618`*^9}, {
  3.734774621826521*^9, 3.734774649435506*^9}, {3.7349206034989915`*^9, 
  3.7349206153178406`*^9}, {3.7349452356183915`*^9, 3.7349452375614367`*^9}},
 CellID->509267359],

Cell["\<\
Here we show the zeeman spliting for D2 line(Ground state and Excited state) \
of Na23, then calculate the dipole matrix of it under high magnetic field. By \
analyze dipole matrix, we give the possible way for HF-imaging of different \
spin states of Na23.\
\>", "Text",
 CellChangeTimes->{
  3.73442413427133*^9, {3.734774664176898*^9, 3.734774730356968*^9}, {
   3.7349206256242294`*^9, 3.73492075322908*^9}, {3.735341175821206*^9, 
   3.735341188737423*^9}},
 CellID->1410553583],

Cell["\<\
Load the package. Here we use the AtomicDensityMatrix tool for getting atomic \
information(such as Rb87 and Na23)\
\>", "MathCaption",
 CellChangeTimes->{{3.7349207584221954`*^9, 3.7349207837849216`*^9}},
 CellID->428702736],

Cell[BoxData[
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7344241393311663`*^9, 3.7344241513357773`*^9}}],

Cell[BoxData[
 RowBox[{"<<", "AtomicDensityMatrix`"}]], "Input",
 CellID->399248267],

Cell[BoxData[
 RowBox[{"<<", "Units`"}]], "Input",
 CellChangeTimes->{{3.734424624514333*^9, 3.734424627884202*^9}}],

Cell[TextData[{
 "Set options for ",
 Cell[BoxData[
  ButtonBox["DensityMatrix",
   BaseStyle->"Link",
   ButtonData->"paclet:AtomicDensityMatrix/ref/DensityMatrix"]], 
  "InlineFormula"],
 " and a plotting function."
}], "MathCaption",
 CellID->1679141539],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"DensityMatrix", ",", 
    RowBox[{"TimeDependence", "\[Rule]", "False"}], ",", 
    RowBox[{"ComplexExpandVariables", "\[Rule]", "Subscript"}]}], "]"}], 
  ";"}]], "Input",
 CellID->1063678041],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"ListLinePlot", ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input",
 CellID->1867164128],

Cell[TextData[{
 "Choose a transition. ",
 Cell[BoxData[
  ButtonBox["AtomicTransition",
   BaseStyle->"Link",
   ButtonData->"paclet:AtomicDensityMatrix/ref/AtomicTransition"]], 
  "InlineFormula"],
 " just returns the names of the states associated with the given transition, \
which we can use to find the associated data in the ",
 Cell[BoxData[
  ButtonBox["AtomicData",
   BaseStyle->"Link",
   ButtonData->"paclet:AtomicDensityMatrix/ref/AtomicData"]], "InlineFormula"],
 " database."
}], "MathCaption",
 CellID->1890496939],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"gstate", ",", "estate"}], "}"}], "=", 
  RowBox[{"AtomicTransition", "[", 
   RowBox[{"\"\<Na23\>\"", ",", "\"\<D2\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7344695559758453`*^9, 3.7344695581325245`*^9}, {
  3.734469749820119*^9, 3.7344697499401855`*^9}, {3.7344700546958923`*^9, 
  3.734470056426869*^9}, {3.7347715300606937`*^9, 3.7347715301913624`*^9}, {
  3.7347747671284266`*^9, 3.7347748177261133`*^9}, {3.7347767117027016`*^9, 
  3.73477672185313*^9}, {3.734777162070567*^9, 3.7347771916142416`*^9}, {
  3.7347772692316427`*^9, 3.734777271820519*^9}, {3.7349452534875884`*^9, 
  3.7349452554929385`*^9}, {3.7353412065620584`*^9, 3.7353412093735685`*^9}},
 CellID->255182439],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Na\"\>", ",", "23", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Ne\"\>", ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "\<\"s\"\>"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "\<\"S\"\>", ",", 
       FractionBox["1", "2"]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Na\"\>", ",", "23", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Ne\"\>", ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "\<\"p\"\>"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "\<\"P\"\>", ",", 
       FractionBox["3", "2"]}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7344629965934367`*^9, {3.734469560011945*^9, 3.734469567742476*^9}, {
   3.734469750839591*^9, 3.7344697567730923`*^9}, 3.7344700720836554`*^9, 
   3.734771530605132*^9, {3.7347747702037587`*^9, 3.734774818264939*^9}, {
   3.734776713165364*^9, 3.734776722606879*^9}, {3.734777164145011*^9, 
   3.7347771926459155`*^9}, 3.734777272603818*^9, 3.734787103891117*^9, 
   3.7348205313554816`*^9, 3.73492080929371*^9, 3.7349452573279867`*^9, 
   3.735341209993891*^9, 3.738374571743045*^9, 3.740384367191243*^9},
 ImageSize->{461, 30},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell["\<\
Get the list of quantum numbers and other information that we will use to set \
up the atomic system. We could also include the additional numerical atomic \
parameters in this list, but it can be more convenient to substitute their \
values in later.\
\>", "MathCaption",
 CellID->331090632],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"gQuantumNumbers", ",", "eQuantumNumbers"}], "}"}], "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"AtomicData", "[", 
     RowBox[{"gstate", ",", 
      RowBox[{"{", 
       RowBox[{
       "J", ",", "L", ",", "S", ",", "NuclearSpin", ",", "NaturalWidth", ",", 
        "Energy"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"AtomicData", "[", 
     RowBox[{"estate", ",", 
      RowBox[{"{", 
       RowBox[{"J", ",", "L", ",", "S", ",", "NuclearSpin"}], "}"}]}], 
     "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{
  3.7347767508604436`*^9, 3.734777238464042*^9, {3.7347772778131695`*^9, 
   3.7347772858809347`*^9}},
 CellID->2064101732],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"J", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"L", "\[Rule]", "0"}], ",", 
     RowBox[{"S", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"NuclearSpin", "\[Rule]", 
      FractionBox["3", "2"]}], ",", 
     RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
     RowBox[{"Energy", "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"J", "\[Rule]", 
      FractionBox["3", "2"]}], ",", 
     RowBox[{"L", "\[Rule]", "1"}], ",", 
     RowBox[{"S", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"NuclearSpin", "\[Rule]", 
      FractionBox["3", "2"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7344629988440886`*^9, 3.734469567772466*^9, 3.73446975680314*^9, 
   3.7344700721137123`*^9, 3.734771534680761*^9, 3.734774828666592*^9, 
   3.734776752494134*^9, {3.734777173473011*^9, 3.734777196369116*^9}, 
   3.734777239075452*^9, {3.734777280179841*^9, 3.734777286753779*^9}, 
   3.73478710638978*^9, 3.7348205313695183`*^9, 3.73492081455649*^9, 
   3.734945260643216*^9, 3.735341212435196*^9, 3.7383745732468433`*^9, 
   3.740384369783719*^9},
 ImageSize->{463, 60},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[TextData[{
 "Create the list of sublevels in the atomic system. We specify ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    ButtonBox["BranchingRatio",
     BaseStyle->"Link",
     ButtonData->"paclet:AtomicDensityMatrix/ref/BranchingRatio"], "[", "1", 
    "]"}], "\[Rule]", "1"}]], "InlineFormula"],
 ", which means that the upper ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["J", "\[Prime]",
    MultilineFunction->None], TraditionalForm]], "InlineMath"],
 StyleBox[" state decays with 100% probability to the lower ",
  Deletable->True],
 Cell[BoxData[
  FormBox["J", TraditionalForm]], "InlineMath"],
 StyleBox[" state. The individual ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["F", "\[Prime]",
     MultilineFunction->None], "\[Rule]", "F"}], TraditionalForm]], 
  "InlineMath"],
 StyleBox[" branching ratios are calculated automatically. ",
  Deletable->True],
 StyleBox["g",
  Deletable->True,
  FontSlant->"Italic"],
 StyleBox["-factors are also calculated automatically from the specified \
values for ",
  Deletable->True],
 Cell[BoxData[
  ButtonBox["F",
   BaseStyle->"Link",
   ButtonData->"paclet:AtomicDensityMatrix/ref/F"]], "InlineFormula"],
 ", ",
 Cell[BoxData[
  ButtonBox["J",
   BaseStyle->"Link",
   ButtonData->"paclet:AtomicDensityMatrix/ref/J"]], "InlineFormula"],
 ", ",
 Cell[BoxData[
  ButtonBox["L",
   BaseStyle->"Link",
   ButtonData->"paclet:AtomicDensityMatrix/ref/L"]], "InlineFormula"],
 ", ",
 Cell[BoxData[
  ButtonBox["S",
   BaseStyle->"Link",
   ButtonData->"paclet:AtomicDensityMatrix/ref/S"]], "InlineFormula"],
 ", and ",
 Cell[BoxData[
  ButtonBox["NuclearSpin",
   BaseStyle->"Link",
   ButtonData->"paclet:AtomicDensityMatrix/ref/NuclearSpin"]], 
  "InlineFormula"],
 "."
}], "MathCaption",
 CellID->270820281],

Cell[BoxData[
 RowBox[{
  RowBox[{"system", "=", 
   RowBox[{"Sublevels", "@", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"AtomicState", "[", 
       RowBox[{"1", ",", "gQuantumNumbers"}], "]"}], ",", 
      RowBox[{"AtomicState", "[", 
       RowBox[{"2", ",", 
        RowBox[{"Append", "[", 
         RowBox[{"eQuantumNumbers", ",", 
          RowBox[{
           RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}]}], 
         "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.7347767693941374`*^9, {3.73477729937335*^9, 3.73477730264226*^9}, 
   3.734787111441983*^9},
 CellID->314100305],

Cell["\<\
Following diagram shows all states involved in this calculation.\
\>", "MathCaption",
 CellChangeTimes->{{3.73492083343939*^9, 3.734920854604536*^9}},
 CellID->927847299],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Style", "[", 
  RowBox[{
   RowBox[{"TableForm", "[", "system", "]"}], ",", "Small"}], "]"}]], "Input",
 CellChangeTimes->{3.7344674350155897`*^9},
 CellID->1471499099],

Cell[BoxData[
 StyleBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"1", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "0"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
         RowBox[{"Energy", "\[Rule]", "0"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", "2"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"1", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "0"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
         RowBox[{"Energy", "\[Rule]", "0"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", "1"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"1", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "0"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
         RowBox[{"Energy", "\[Rule]", "0"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", "0"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"1", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "0"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
         RowBox[{"Energy", "\[Rule]", "0"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", 
          RowBox[{"-", "1"}]}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"1", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "0"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
         RowBox[{"Energy", "\[Rule]", "0"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", 
          RowBox[{"-", "2"}]}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"1", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "0"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
         RowBox[{"Energy", "\[Rule]", "0"}], ",", 
         RowBox[{"F", "\[Rule]", "1"}], ",", 
         RowBox[{"M", "\[Rule]", "1"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"1", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "0"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
         RowBox[{"Energy", "\[Rule]", "0"}], ",", 
         RowBox[{"F", "\[Rule]", "1"}], ",", 
         RowBox[{"M", "\[Rule]", "0"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"1", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "0"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
         RowBox[{"Energy", "\[Rule]", "0"}], ",", 
         RowBox[{"F", "\[Rule]", "1"}], ",", 
         RowBox[{"M", "\[Rule]", 
          RowBox[{"-", "1"}]}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "3"}], ",", 
         RowBox[{"M", "\[Rule]", "3"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "3"}], ",", 
         RowBox[{"M", "\[Rule]", "2"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "3"}], ",", 
         RowBox[{"M", "\[Rule]", "1"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "3"}], ",", 
         RowBox[{"M", "\[Rule]", "0"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "3"}], ",", 
         RowBox[{"M", "\[Rule]", 
          RowBox[{"-", "1"}]}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "3"}], ",", 
         RowBox[{"M", "\[Rule]", 
          RowBox[{"-", "2"}]}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "3"}], ",", 
         RowBox[{"M", "\[Rule]", 
          RowBox[{"-", "3"}]}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", "2"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", "1"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", "0"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", 
          RowBox[{"-", "1"}]}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "2"}], ",", 
         RowBox[{"M", "\[Rule]", 
          RowBox[{"-", "2"}]}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "1"}], ",", 
         RowBox[{"M", "\[Rule]", "1"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "1"}], ",", 
         RowBox[{"M", "\[Rule]", "0"}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "1"}], ",", 
         RowBox[{"M", "\[Rule]", 
          RowBox[{"-", "1"}]}]}], "]"}]},
      {
       RowBox[{"AtomicState", "[", 
        RowBox[{"2", ",", 
         RowBox[{"J", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{"L", "\[Rule]", "1"}], ",", 
         RowBox[{"S", "\[Rule]", 
          FractionBox["1", "2"]}], ",", 
         RowBox[{"NuclearSpin", "\[Rule]", 
          FractionBox["3", "2"]}], ",", 
         RowBox[{
          RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
         RowBox[{"F", "\[Rule]", "0"}], ",", 
         RowBox[{"M", "\[Rule]", "0"}]}], "]"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]],
  StripOnInput->False,
  FontSize->Small]], "Output",
 Evaluatable->False,
 CellChangeTimes->{
  3.734463004152524*^9, 3.734467436870863*^9, 3.734469567852515*^9, 
   3.734469756923182*^9, 3.7344700721937532`*^9, 3.734771541898711*^9, 
   3.7347748573118105`*^9, 3.7347767725653543`*^9, 3.7347772058417883`*^9, 
   3.734777247513799*^9, 3.7347773053120427`*^9, 3.734787116018141*^9, 
   3.7348205314326878`*^9, 3.7349208221285477`*^9, 3.734945266414854*^9, 
   3.735341224678374*^9, 3.7383745783230157`*^9, {3.740384371525645*^9, 
   3.7403843756196585`*^9}},
 ImageSize->{447, 297},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell["\<\
Here are the numerical parameters for the atomic system that we will \
substitute in later.\
\>", "MathCaption",
 CellID->262224642],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"atomicData", "=", 
  RowBox[{"Join", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AtomicData", "[", 
     RowBox[{"gstate", ",", 
      RowBox[{"StateLabel", "\[Rule]", "1"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"AtomicData", "[", 
     RowBox[{"estate", ",", 
      RowBox[{"StateLabel", "\[Rule]", "2"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"c", "\[Rule]", "SpeedOfLight"}], ",", 
      RowBox[{"\[HBar]", "\[Rule]", "PlanckConstantReduced"}], ",", 
      RowBox[{"\[Epsilon]0", "\[Rule]", "VacuumPermittivity"}]}], "}"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellID->708150996],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"ElementName", "[", "1", "]"}], "\[Rule]", "\<\"Sodium\"\>"}], 
   ",", 
   RowBox[{
    RowBox[{"ElementSymbol", "[", "1", "]"}], "\[Rule]", "\<\"Na\"\>"}], ",", 
   RowBox[{
    RowBox[{"AtomicNumber", "[", "1", "]"}], "\[Rule]", "11"}], ",", 
   RowBox[{
    RowBox[{"AtomicWeight", "[", "1", "]"}], "\[Rule]", "23"}], ",", 
   RowBox[{
    RowBox[{"Abundance", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"NuclearSpin", "[", "1", "]"}], "\[Rule]", 
    FractionBox["3", "2"]}], ",", 
   RowBox[{
    RowBox[{"J", "[", "1", "]"}], "\[Rule]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{"L", "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"S", "[", "1", "]"}], "\[Rule]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{"NaturalWidth", "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Energy", "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"HyperfineA", "[", "1", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"5565.7276311458045`", " ", "Mega"}], "Second"]}], ",", 
   RowBox[{
    RowBox[{"HyperfineB", "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Parity", "[", "1", "]"}], "\[Rule]", "Even"}], ",", 
   RowBox[{
    RowBox[{"Wavenumber", "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Lifetime", "[", "1", "]"}], "\[Rule]", 
    RowBox[{"Second", " ", "\[Infinity]"}]}], ",", 
   RowBox[{
    RowBox[{"ElementName", "[", "2", "]"}], "\[Rule]", "\<\"Sodium\"\>"}], 
   ",", 
   RowBox[{
    RowBox[{"ElementSymbol", "[", "2", "]"}], "\[Rule]", "\<\"Na\"\>"}], ",", 
   RowBox[{
    RowBox[{"AtomicNumber", "[", "2", "]"}], "\[Rule]", "11"}], ",", 
   RowBox[{
    RowBox[{"AtomicWeight", "[", "2", "]"}], "\[Rule]", "23"}], ",", 
   RowBox[{
    RowBox[{"Abundance", "[", "2", "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"NuclearSpin", "[", "2", "]"}], "\[Rule]", 
    FractionBox["3", "2"]}], ",", 
   RowBox[{
    RowBox[{"J", "[", "2", "]"}], "\[Rule]", 
    FractionBox["3", "2"]}], ",", 
   RowBox[{
    RowBox[{"L", "[", "2", "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"S", "[", "2", "]"}], "\[Rule]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{"NaturalWidth", "[", "2", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"61.54149127341653`", " ", "Mega"}], "Second"]}], ",", 
   RowBox[{
    RowBox[{"Energy", "[", "2", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"3.1971907769791055`*^9", " ", "Mega"}], "Second"]}], ",", 
   RowBox[{
    RowBox[{"HyperfineA", "[", "2", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"116.45255648326645`", " ", "Mega"}], "Second"]}], ",", 
   RowBox[{
    RowBox[{"HyperfineB", "[", "2", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"17.115396776757194`", " ", "Mega"}], "Second"]}], ",", 
   RowBox[{
    RowBox[{"Parity", "[", "2", "]"}], "\[Rule]", "Odd"}], ",", 
   RowBox[{
    RowBox[{"Wavenumber", "[", "2", "]"}], "\[Rule]", 
    FractionBox["16973.36616`", "Centimeter"]}], ",", 
   RowBox[{
    RowBox[{"Lifetime", "[", "2", "]"}], "\[Rule]", 
    RowBox[{"16.2492`", " ", "Nano", " ", "Second"}]}], ",", 
   RowBox[{"c", "\[Rule]", 
    FractionBox[
     RowBox[{"299792458", " ", "Meter"}], "Second"]}], ",", 
   RowBox[{"\[HBar]", "\[Rule]", 
    RowBox[{"1.054571628251774`*^-34", " ", "Joule", " ", "Second"}]}], ",", 
   RowBox[{"\[Epsilon]0", "\[Rule]", 
    FractionBox[
     RowBox[{"625000", " ", "Ampere", " ", "Second"}], 
     RowBox[{
     "22468879468420441", " ", "Meter", " ", "\[Pi]", " ", "Volt"}]]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7344630093128624`*^9, 3.7344674465455046`*^9, 
  3.734469567892518*^9, 3.7344697569532185`*^9, 3.734470072273757*^9, 
  3.734771547825225*^9, 3.7347748669986553`*^9, 3.7347756577523966`*^9, 
  3.7347768216071205`*^9, 3.734777314151539*^9, 3.7348205314647727`*^9, 
  3.7349241679095726`*^9, 3.7349452740677867`*^9, 3.735341301237167*^9, 
  3.738374581324997*^9, 3.7403843774627643`*^9},
 ImageSize->{555, 273},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell["\<\
Now we form the Hamiltonian and compute its eigenenergy and \
eigenstates(Unitary transformation from |F,mF> to new eigenstates)\
\>", "Text",
 CellChangeTimes->{{3.734924180746398*^9, 3.734924223734127*^9}},
 CellID->2130696078],

Cell[TextData[{
 "Form the Hamiltonian assuming  a ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]], "InlineMath"],
 "-directed magnetic field with nominal Larmor frequency ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalOmega]", "L"], TraditionalForm]], "InlineMath"],
 "."
}], "MathCaption",
 CellChangeTimes->{3.7349242381218643`*^9},
 CellID->1277669421],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Style", "[", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"h", "=", 
     RowBox[{"Hamiltonian", "[", 
      RowBox[{"system", ",", 
       RowBox[{"MagneticField", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          RowBox[{"\[CapitalOmega]L", "/", "BohrMagneton"}]}], "}"}]}]}], 
      "]"}]}], "]"}], ",", "Small"}], "]"}]], "Input",
 CellChangeTimes->{{3.7347756642875643`*^9, 3.7347756650686445`*^9}, {
  3.734832559413761*^9, 3.7348325698721867`*^9}},
 CellID->1209378368],

Cell[BoxData[
 StyleBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"\[CapitalOmega]L", "+", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0", "0",
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0"},
      {"0", 
       RowBox[{
        FractionBox["\[CapitalOmega]L", "2"], "+", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0", 
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", "\[CapitalOmega]L"}], "2"], "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{"3", " ", 
         RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "0", "0", "0", 
       "\[CapitalOmega]L", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["\[CapitalOmega]L", "2"]}], "+", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0", 
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", "\[CapitalOmega]L"}], "2"], "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", 
       RowBox[{
        RowBox[{"-", "\[CapitalOmega]L"}], "+", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0", "0",
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0"},
      {"0", 
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", "\[CapitalOmega]L"}], "2"], "0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["\[CapitalOmega]L", "2"]}], "-", 
        FractionBox[
         RowBox[{"5", " ", 
          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0", "0",
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "\[CapitalOmega]L", "0", "0", "0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"5", " ", 
          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0", "0",
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", "\[CapitalOmega]L"}], "2"], "0", "0", "0", 
       RowBox[{
        FractionBox["\[CapitalOmega]L", "2"], "-", 
        FractionBox[
         RowBox[{"5", " ", 
          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0", "0",
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{
        RowBox[{"2", " ", "\[CapitalOmega]L"}], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "+", 
        FractionBox[
         RowBox[{"9", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{
        FractionBox[
         RowBox[{"4", " ", "\[CapitalOmega]L"}], "3"], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "+", 
        FractionBox[
         RowBox[{"9", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0", "0", "0", "0", 
       "0", 
       FractionBox[
        RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"], "0", "0", "0", "0", "0",
        "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "+", 
        FractionBox[
         RowBox[{"9", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0", "0", "0", "0", 
       "0", 
       RowBox[{
        FractionBox["4", "3"], " ", 
        SqrtBox[
         FractionBox["2", "5"]], " ", "\[CapitalOmega]L"}], "0", "0", "0", 
       "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{
        RowBox[{"Energy", "[", "2", "]"}], "+", 
        FractionBox[
         RowBox[{"9", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0", "0", "0", "0", 
       "0", 
       FractionBox[
        RowBox[{"2", " ", "\[CapitalOmega]L"}], 
        SqrtBox["5"]], "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"]}], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "+", 
        FractionBox[
         RowBox[{"9", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0", "0", "0", "0", 
       "0", 
       RowBox[{
        FractionBox["4", "3"], " ", 
        SqrtBox[
         FractionBox["2", "5"]], " ", "\[CapitalOmega]L"}], "0", "0", "0", 
       "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"4", " ", "\[CapitalOmega]L"}], "3"]}], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "+", 
        FractionBox[
         RowBox[{"9", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0", "0", "0", "0", 
       "0", 
       FractionBox[
        RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"], "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[CapitalOmega]L"}], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "+", 
        FractionBox[
         RowBox[{"9", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0", "0", "0", "0", 
       "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
       FractionBox[
        RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"], "0", "0", "0", "0", "0", 
       RowBox[{
        FractionBox[
         RowBox[{"4", " ", "\[CapitalOmega]L"}], "3"], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineB", "[", "2", "]"}]}], "4"]}], "0", "0", "0", "0",
        "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{
        FractionBox["4", "3"], " ", 
        SqrtBox[
         FractionBox["2", "5"]], " ", "\[CapitalOmega]L"}], "0", "0", "0", 
       "0", "0", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineB", "[", "2", "]"}]}], "4"]}], "0", "0", "0", 
       FractionBox[
        RowBox[{"4", " ", "\[CapitalOmega]L"}], 
        SqrtBox["15"]], "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       FractionBox[
        RowBox[{"2", " ", "\[CapitalOmega]L"}], 
        SqrtBox["5"]], "0", "0", "0", "0", "0", 
       RowBox[{
        RowBox[{"Energy", "[", "2", "]"}], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineB", "[", "2", "]"}]}], "4"]}], "0", "0", "0", 
       FractionBox[
        RowBox[{"8", " ", "\[CapitalOmega]L"}], 
        RowBox[{"3", " ", 
         SqrtBox["5"]}]], "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{
        FractionBox["4", "3"], " ", 
        SqrtBox[
         FractionBox["2", "5"]], " ", "\[CapitalOmega]L"}], "0", "0", "0", 
       "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"]}], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineB", "[", "2", "]"}]}], "4"]}], "0", "0", "0", 
       FractionBox[
        RowBox[{"4", " ", "\[CapitalOmega]L"}], 
        SqrtBox["15"]], "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       FractionBox[
        RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"], "0", "0", "0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"4", " ", "\[CapitalOmega]L"}], "3"]}], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"HyperfineB", "[", "2", "]"}]}], "4"]}], "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", 
       FractionBox[
        RowBox[{"4", " ", "\[CapitalOmega]L"}], 
        SqrtBox["15"]], "0", "0", "0", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "-", 
        FractionBox[
         RowBox[{"11", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", 
       FractionBox[
        RowBox[{"8", " ", "\[CapitalOmega]L"}], 
        RowBox[{"3", " ", 
         SqrtBox["5"]}]], "0", "0", "0", 
       RowBox[{
        RowBox[{"Energy", "[", "2", "]"}], "-", 
        FractionBox[
         RowBox[{"11", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0", 
       FractionBox[
        RowBox[{"2", " ", 
         SqrtBox["5"], " ", "\[CapitalOmega]L"}], "3"]},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", 
       FractionBox[
        RowBox[{"4", " ", "\[CapitalOmega]L"}], 
        SqrtBox["15"]], "0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"2", " ", "\[CapitalOmega]L"}], "3"]}], "+", 
        RowBox[{"Energy", "[", "2", "]"}], "-", 
        FractionBox[
         RowBox[{"11", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"HyperfineB", "[", "2", "]"}], "4"]}], "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", 
       FractionBox[
        RowBox[{"2", " ", 
         SqrtBox["5"], " ", "\[CapitalOmega]L"}], "3"], "0", 
       RowBox[{
        RowBox[{"Energy", "[", "2", "]"}], "-", 
        FractionBox[
         RowBox[{"15", " ", 
          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
        FractionBox[
         RowBox[{"5", " ", 
          RowBox[{"HyperfineB", "[", "2", "]"}]}], "4"]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]],
  StripOnInput->False,
  FontSize->Small]], "Output",
 CellChangeTimes->{3.734463012575636*^9, 3.734467451638689*^9, 
  3.734469568002614*^9, 3.734469757243373*^9, 3.7344700724739075`*^9, 
  3.7347756670722327`*^9, 3.7347768260824842`*^9, 3.734777317103219*^9, 
  3.734787121954132*^9, 3.734820531707417*^9, 3.734832570874814*^9, 
  3.734924252991891*^9, 3.73494527960929*^9, 3.735341306929042*^9, 
  3.7383745877708435`*^9, 3.740384379792506*^9},
 ImageSize->{2040, 399},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell["\<\
Draw the level diagram for the truncated system, showing the optical and \
magnetic-field interactions.\
\>", "MathCaption",
 CellID->460749553],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LevelDiagram", "[", 
  RowBox[{"system", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"h", "/.", 
      RowBox[{
       RowBox[{"Energy", "[", "2", "]"}], "\[Rule]", "5"}]}], "/.", 
     "atomicData"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Mega", "\[Rule]", " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "4"}]]}], ",", 
      RowBox[{"Second", "\[Rule]", "1"}], ",", 
      RowBox[{"\[CapitalOmega]L", "\[Rule]", "0.5"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.734467460592898*^9, 3.7344674787224483`*^9}, {
  3.7347757456912193`*^9, 3.7347757460001926`*^9}, {3.7347757945415215`*^9, 
  3.7347758058676753`*^9}, {3.7347773296399527`*^9, 3.7347773426115923`*^9}, {
  3.7347778220958395`*^9, 3.7347778222555175`*^9}, {3.7347778719253387`*^9, 
  3.7347778854205613`*^9}, {3.734777921552433*^9, 3.734777990706526*^9}, {
  3.7348218105158243`*^9, 3.7348218258756876`*^9}, {3.7349243547415857`*^9, 
  3.734924366758004*^9}, {3.7349452909527225`*^9, 3.734945292553609*^9}},
 CellID->1893193157],

Cell[BoxData[
 GraphicsBox[{{{{{}, 
      LineBox[{{1.6, 0.9174295723359354}, {2.4, 0.9174295723359354}}]}, {{}, 
      LineBox[{{0.6, 0.6674295723359354}, {1.4, 0.6674295723359354}}]}, {{}, 
      LineBox[{{-0.4, 0.41742957233593536`}, {0.4, 
       0.41742957233593536`}}]}, {{}, 
      LineBox[{{-1.4, 0.16742957233593536`}, {-0.6, 
       0.16742957233593536`}}]}, {{}, 
      LineBox[{{-2.4, -0.08257042766406464}, {-1.6, -0.08257042766406464}}]}, \
{{}, LineBox[{{0.6, -0.9457159538932256}, {1.4, -0.9457159538932256}}]}, {{}, 
      LineBox[{{-0.4, -0.6957159538932256}, {
       0.4, -0.6957159538932256}}]}, {{}, 
      LineBox[{{-1.4, -0.4457159538932256}, {-0.6, -0.4457159538932256}}]}, \
{{}, LineBox[{{2.6, 6.026629710128154}, {3.4, 6.026629710128154}}]}, {{}, 
      LineBox[{{1.6, 5.693296376794821}, {2.4, 5.693296376794821}}]}, {{}, 
      LineBox[{{0.6, 5.359963043461487}, {1.4, 5.359963043461487}}]}, {{}, 
      LineBox[{{-0.4, 5.026629710128154}, {0.4, 5.026629710128154}}]}, {{}, 
      LineBox[{{-1.4, 4.693296376794821}, {-0.6, 4.693296376794821}}]}, {{}, 
      LineBox[{{-2.4, 4.359963043461487}, {-1.6, 4.359963043461487}}]}, {{}, 
      LineBox[{{-3.4, 4.026629710128154}, {-2.6, 4.026629710128154}}]}, {{}, 
      LineBox[{{1.6, 5.656649070172165}, {2.4, 5.656649070172165}}]}, {{}, 
      LineBox[{{0.6, 5.323315736838831}, {1.4, 5.323315736838831}}]}, {{}, 
      LineBox[{{-0.4, 4.989982403505498}, {0.4, 4.989982403505498}}]}, {{}, 
      LineBox[{{-1.4, 4.656649070172165}, {-0.6, 4.656649070172165}}]}, {{}, 
      LineBox[{{-2.4, 4.323315736838831}, {-1.6, 4.323315736838831}}]}, {{}, 
      LineBox[{{0.6, 5.301736765219854}, {1.4, 5.301736765219854}}]}, {{}, 
      LineBox[{{-0.4, 4.968403431886521}, {0.4, 4.968403431886521}}]}, {{}, 
      LineBox[{{-1.4, 4.635070098553188}, {-0.6, 4.635070098553188}}]}, {{}, 
      LineBox[{{-0.4, 4.95846971591587}, {0.4, 4.95846971591587}}]}}, {}, {}, 
    {EdgeForm[Hue[0.61, 0.54, 0.56]], FaceForm[None]}, 
    {RGBColor[0.9, 0.01, 0.01], 
     Arrowheads[{-0.023529411764705885`, 0.023529411764705885`}], 
     ArrowBox[{{-2., 4.323315736838831}, {-2., 4.359963043461487}}], 
     ArrowBox[{{-1., -0.4457159538932256}, {-1., 0.16742957233593536`}}], 
     ArrowBox[{{-1., 4.656649070172165}, {-1., 4.693296376794821}}], 
     ArrowBox[{{-1., 4.635070098553188}, {-1., 4.656649070172165}}], 
     ArrowBox[{{0., -0.6957159538932256}, {0., 0.41742957233593536`}}], 
     ArrowBox[{{0., 4.989982403505498}, {0., 5.026629710128154}}], 
     ArrowBox[{{0., 4.968403431886521}, {0., 4.989982403505498}}], 
     ArrowBox[{{0., 4.95846971591587}, {0., 4.968403431886521}}], 
     ArrowBox[{{1., -0.9457159538932256}, {1., 0.6674295723359354}}], 
     ArrowBox[{{1., 5.323315736838831}, {1., 5.359963043461487}}], 
     ArrowBox[{{1., 5.301736765219854}, {1., 5.323315736838831}}], 
     ArrowBox[{{2., 5.656649070172165}, {2., 
      5.693296376794821}}]}}, {{{{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, \
{}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, \
{{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, \
{}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}}, {}, {}, 
    {EdgeForm[Hue[0.61, 0.54, 0.56]], FaceForm[None]}, 
    {RGBColor[0.9, 0.01, 0.01], 
     Arrowheads[{-0.023529411764705885`, 
      0.023529411764705885`}], {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}},
  ImageSize->{{350}, {100}}]], "Output",
 CellChangeTimes->{
  3.734777343297672*^9, 3.7347778227718916`*^9, 3.7347778725218325`*^9, {
   3.7347779458044615`*^9, 3.7347779911056724`*^9}, 3.7347871249896526`*^9, 
   3.73482053183679*^9, {3.7348218110743074`*^9, 3.734821826834221*^9}, {
   3.734945285730835*^9, 3.734945293795966*^9}, 3.7383745907557793`*^9, 
   3.7403843833570557`*^9}]
}, Open  ]],

Cell["\<\
Now we write the various input parameters in terms of experimentally relevant \
quantities.\
\>", "Text",
 CellID->1838084779],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ExpandDipoleRME",
   BaseStyle->"Link",
   ButtonData->"paclet:AtomicDensityMatrix/ref/ExpandDipoleRME"]], 
  "InlineFormula"],
 " expresses the reduced dipole matrix element in terms of the natural width \
and energy of the transition."
}], "MathCaption",
 CellID->2119188793],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dADM", "=", 
  RowBox[{"ExpandDipoleRME", "[", 
   RowBox[{"system", ",", 
    RowBox[{"ReducedME", "[", 
     RowBox[{"1", ",", 
      RowBox[{"{", 
       RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]}], 
   "]"}]}]], "Input",
 CellID->499971818],

Cell[BoxData[
 RowBox[{
  SqrtBox["3"], " ", 
  SqrtBox[
   FractionBox[
    RowBox[{"NaturalWidth", "[", "2", "]"}], 
    SuperscriptBox[
     RowBox[{"Energy", "[", "2", "]"}], "3"]]]}]], "Output",
 CellChangeTimes->{3.7344630732237062`*^9, 3.7344695704036055`*^9, 
  3.7344697620004206`*^9, 3.7344700770359817`*^9, 3.7348205407615185`*^9, 
  3.734925903445427*^9, 3.7349453056656647`*^9, 3.735341315369013*^9, 
  3.738374603899726*^9, 3.740384385955019*^9},
 ImageSize->{165, 41},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[TextData[{
 "Convert ADM units to cgs by multiplying by ",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{"\[HBar]", " ", 
     SuperscriptBox["c", "3"]}]], TraditionalForm]], "InlineMath"],
 ", and then to SI by multiplying by ",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{"4", " ", "\[Pi]", " ", 
     SubscriptBox["\[Epsilon]", "0"]}]], TraditionalForm]], "InlineMath"],
 "."
}], "MathCaption",
 CellID->1167398770],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dSI", "=", 
  RowBox[{"Convert", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"dADM", 
      SqrtBox[
       RowBox[{"\[HBar]", " ", 
        SuperscriptBox["c", "3"]}]], 
      SqrtBox[
       RowBox[{"4", " ", "\[Pi]", " ", "\[Epsilon]0"}]]}], "/.", 
     "atomicData"}], ",", 
    RowBox[{"Coulomb", " ", "Meter"}]}], "]"}]}]], "Input",
 CellID->972219711],

Cell[BoxData[
 RowBox[{"4.2261042013827094`*^-29", " ", "Coulomb", " ", "Meter"}]], "Output",
 CellChangeTimes->{3.734463075364848*^9, 3.734469570433629*^9, 
  3.734469762030469*^9, 3.734470077075963*^9, 3.7348205407765574`*^9, 
  3.7349259070049562`*^9, 3.734945307478943*^9, 3.735341318610984*^9, 
  3.740384387224621*^9},
 ImageSize->{184, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[TextData[{
 "Write the optical electric field (in ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    StyleBox["V",
     FontSlant->"Plain"], "/", 
    StyleBox["m",
     FontSlant->"Plain"]}], TraditionalForm]], "InlineMath"],
 ")  in terms of the light intensity (in ",
 Cell[BoxData[
  FormBox[
   RowBox[{"mW", "/", 
    SuperscriptBox["cm", "2"]}], TraditionalForm]], "InlineMath"],
 ")."
}], "MathCaption",
 CellID->2139412245],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E0", "=", 
  RowBox[{"Convert", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SqrtBox[
       RowBox[{"2", "Int", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Milli", " ", 
           RowBox[{"Watt", "/", 
            SuperscriptBox["Centimeter", "2"]}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", " ", "\[Epsilon]0"}], ")"}]}]}]], "/.", "atomicData"}],
      "//", "N"}], ",", 
    RowBox[{"Volt", "/", "Meter"}]}], "]"}]}]], "Input",
 CellID->1349320912],

Cell[BoxData[
 FractionBox[
  RowBox[{"86.80210982018475`", " ", 
   SqrtBox["Int"], " ", "Volt"}], "Meter"]], "Output",
 CellChangeTimes->{3.734463077405932*^9, 3.734469570473607*^9, 
  3.734469762050439*^9, 3.7344700771060147`*^9, 3.7348205407905664`*^9, 
  3.7349259101154604`*^9, 3.734945309441082*^9, 3.735341321250247*^9, 
  3.74038438861191*^9},
 ImageSize->{130, 35},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell["Write the Rabi frequency in terms of the light intensity.", \
"MathCaption",
 CellID->915261302],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalOmega]R", "/.", "rabi"}], "/.", 
  RowBox[{"Int", "\[Rule]", "0.16"}]}]], "Input",
 CellChangeTimes->{{3.73503108183971*^9, 3.7350311006624346`*^9}, {
  3.7350313459920964`*^9, 3.735031357751003*^9}}],

Cell[BoxData[
 FractionBox["1.3914076623058403`*^7", "Second"]], "Output",
 CellChangeTimes->{{3.7350310866916*^9, 3.735031101148218*^9}, {
  3.735031348582526*^9, 3.735031358020337*^9}, {3.738374607912408*^9, 
  3.738374614027725*^9}, {3.740384390238571*^9, 3.740384393745184*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rabi", "=", 
  RowBox[{"\[CapitalOmega]R", "\[Rule]", 
   RowBox[{"Convert", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"E0", " ", 
       RowBox[{"dSI", "/", "\[HBar]"}]}], "/.", "atomicData"}], ",", 
     RowBox[{"1", "/", "Second"}]}], "]"}]}]}]], "Input",
 CellID->557915952],

Cell[BoxData[
 RowBox[{"\[CapitalOmega]R", "\[Rule]", 
  FractionBox[
   RowBox[{"3.478519155764601`*^7", " ", 
    SqrtBox["Int"]}], "Second"]}]], "Output",
 CellChangeTimes->{3.734463080482094*^9, 3.734469570503621*^9, 
  3.734469762080493*^9, 3.734470077146*^9, 3.7348205408036013`*^9, 
  3.734925912631812*^9, 3.7349453109875727`*^9, 3.7353413296925497`*^9, 
  3.7383746124504614`*^9, 3.740384391792403*^9},
 ImageSize->{159, 35},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell["\<\
Write the Larmor frequency in terms of the magnetic field in Gauss.\
\>", "MathCaption",
 CellID->1825228082],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"larmor", "=", 
  RowBox[{"\[CapitalOmega]L", "\[Rule]", 
   RowBox[{"Convert", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"b", " ", "Gauss", " ", 
       RowBox[{"BohrMagneton", "/", "\[HBar]"}]}], "/.", "atomicData"}], ",", 
     RowBox[{"1", "/", "Second"}]}], "]"}]}]}]], "Input",
 CellID->635373638],

Cell[BoxData[
 RowBox[{"\[CapitalOmega]L", "\[Rule]", 
  FractionBox[
   RowBox[{"8.794106679480923`*^6", " ", "b"}], "Second"]}]], "Output",
 CellChangeTimes->{3.734463082584505*^9, 3.734469570533679*^9, 
  3.7344697621105146`*^9, 3.7344700771860223`*^9, 3.7347762126202593`*^9, 
  3.734820540818655*^9, 3.7349259145578723`*^9, 3.7349453131101522`*^9, 
  3.7353413340733414`*^9, 3.7383746172222643`*^9, 3.7403843956710296`*^9},
 ImageSize->{128, 33},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "/@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"energies", ",", "states"}], "}"}], "=", 
    RowBox[{"Chop", "[", 
     RowBox[{
      RowBox[{"Eigensystem", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"h", "/.", "larmor"}], "/.", "atomicData"}], "/.", 
          RowBox[{"Mega", "\[Rule]", 
           SuperscriptBox["10", "6"]}]}], "/.", 
         RowBox[{"Second", "\[Rule]", "1"}]}], "/.", 
        RowBox[{"b", "\[Rule]", "0.1"}]}], "]"}], ",", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.734778592362561*^9, 3.734778623443508*^9}, {
   3.734778688021256*^9, 3.7347786883809166`*^9}, {3.7347787269668627`*^9, 
   3.734778728727661*^9}, {3.7347787738646493`*^9, 3.7347787918912096`*^9}, 
   3.7347788275529885`*^9, 3.734785850874048*^9, {3.7347859058994265`*^9, 
   3.734785910030126*^9}, 3.7347859701936836`*^9, {3.7347861081755133`*^9, 
   3.7347861124769278`*^9}, {3.734786183122576*^9, 3.7347861836614413`*^9}, 
   3.7347868252213*^9, {3.734786941122304*^9, 3.734786995198922*^9}, 
   3.7349260911392555`*^9, {3.734927946897786*^9, 3.7349279714110746`*^9}, {
   3.7349319034299746`*^9, 3.7349319059720297`*^9}, {3.734945317655018*^9, 
   3.7349453183015203`*^9}, {3.7350350348917575`*^9, 
   3.7350350527181826`*^9}, {3.735037388438015*^9, 3.7350374074209623`*^9}, {
   3.7350385092723637`*^9, 3.7350385138616548`*^9}, {3.7350396174293756`*^9, 
   3.735039619234592*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"3.1971910450350285`*^15"},
        {"3.1971910444496925`*^15"},
        {"3.197191043863982`*^15"},
        {"3.1971910432778935`*^15"},
        {"3.197191042691433`*^15"},
        {"3.197191042104597`*^15"},
        {"3.1971910415173845`*^15"},
        {"3.19719067797475`*^15"},
        {"3.1971906773917365`*^15"},
        {"3.1971906768065495`*^15"},
        {"3.197190676219188`*^15"},
        {"3.197190675629655`*^15"},
        {"3.1971904615958745`*^15"},
        {"3.1971904610256255`*^15"},
        {"3.197190460423328`*^15"},
        {"3.197190361658967`*^15"},
        {
         RowBox[{"-", "6.957599296368716`*^9"}]},
        {
         RowBox[{"-", "6.957159608407732`*^9"}]},
        {
         RowBox[{"-", "6.956719885709002`*^9"}]},
        {"4.175175134027302`*^9"},
        {"4.1747354807958164`*^9"},
        {"4.1742957928348265`*^9"},
        {"4.1738560701361017`*^9"},
        {"4.1734163126914062`*^9"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "1.`", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0.9999987203719113`", 
        "0", "0", "0", "0", "0", "0.0015997670267916325`", "0", "0", "0", "0",
         "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.9999979525828977`"}], "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.0020235661712395482`"}], "0", "0", "0", 
        RowBox[{"-", "3.1564822374187244`*^-6"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.9999976966511722`"}], "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.0021463171724421014`"}], "0", "0", "0", 
        RowBox[{"-", "3.86590298500928`*^-6"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.999997952582892`"}], "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.002023566173991821`"}], "0", "0", "0", 
        RowBox[{"-", "3.156480517594717`*^-6"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0.9999987203719077`", "0", "0", "0", "0", "0", 
        "0.0015997670289742676`", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1.`"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0.0015997670267916325`",
         "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.9999987203719113`"}], "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.0020235615330252603`"}], "0", "0", "0", "0", "0", 
        "0.999989095229277`", "0", "0", "0", "0.00420887410765412`", "0", "0",
         "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.002146310612216191`"}], "0", "0", "0", "0", "0", 
        "0.9999858862215447`", "0", "0", "0", "0.004860071985101411`", "0", 
        "0.000020217992601331952`"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.00202356153578248`"}], "0", "0", "0", "0", "0", 
        "0.9999890952388588`", "0", "0", "0", "0.004208871829764038`", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "0.0015997670289742676`"}], "0", "0", "0", "0", "0", 
        "0.9999987203719077`", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "5.360487446551304`*^-6"}], "0", "0", "0", "0", "0", 
        "0.004208871877669327`", "0", "0", "0", 
        RowBox[{"-", "0.9999911426451649`"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "6.565310493808819`*^-6"}], "0", "0", "0", "0", "0", 
        "0.004859912797610646`", "0", "0", "0", 
        RowBox[{"-", "0.9999011445042335`"}], "0", 
        RowBox[{"-", "0.013194029847623927`"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "5.360484568449185`*^-6"}], "0", "0", "0", "0", "0", 
        "0.004208869599780507`", "0", "0", "0", 
        RowBox[{"-", "0.9999911426547524`"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0.00004390793327571693`", "0", "0", "0", 
        RowBox[{"-", "0.013193972278207173`"}], "0", "0.9999129547953725`"},
       {"0", 
        RowBox[{"-", "0.00006841260129425471`"}], "0", "0", "0", 
        "0.999999997659858`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "0.0000790023082331434`"}], "0", "0", "0", 
        "0.9999999968793176`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "0.00006842341165507653`"}], "0", "0", "0", 
        "0.9999999976591184`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0", "0", "0"},
       {"1.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "0.999999997659858`"}], "0", "0", "0", 
        RowBox[{"-", "0.00006841260129425471`"}], "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0.9999999968793176`", "0", "0", "0", 
        "0.0000790023082331434`", "0", "0", "0", "0", "0", "0", "0", "0", "0",
         "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "0.9999999976591184`"}], "0", "0", "0", 
        RowBox[{"-", "0.00006842341165507651`"}], "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1.`", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.7347869440157433`*^9, 3.734786995456936*^9}, 
   3.7347871406593404`*^9, 3.734820532131544*^9, 3.7348205971062984`*^9, 
   3.734925862906514*^9, 3.734925917463711*^9, 3.7349260936645017`*^9, {
   3.7349279476067505`*^9, 3.734927973503183*^9}, 3.7349319065823464`*^9, 
   3.7349453193820815`*^9, {3.735035036894603*^9, 3.735035053046813*^9}, {
   3.7350373896459026`*^9, 3.7350374079195976`*^9}, 3.735038514142104*^9, 
   3.735039619590537*^9, 3.7353413375928144`*^9, 3.7383746197038336`*^9, 
   3.740384397669684*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"groundZeeman", "=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", "\[Pi]"}]], 
    SuperscriptBox["10", 
     RowBox[{"-", "9"}]], "*", 
    RowBox[{"Transpose", "@", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Eigenvalues", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"h", "/.", "larmor"}], "/.", "atomicData"}], "/.", 
           RowBox[{"Mega", "\[Rule]", 
            SuperscriptBox["10", "6"]}]}], "/.", 
          RowBox[{"Second", "\[Rule]", "1"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"-", "8"}], ";;", 
          RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"b", ",", "340", ",", "360", ",", "0.1"}], "}"}]}], 
      "]"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.734776178206612*^9, 3.7347762403869452`*^9}, {
   3.7347762784572763`*^9, 3.734776303529829*^9}, {3.734776412640419*^9, 
   3.7347765299641657`*^9}, {3.734776613341258*^9, 3.734776690948756*^9}, {
   3.7347768422485776`*^9, 3.734776866625016*^9}, {3.734777330700631*^9, 
   3.734777355374323*^9}, {3.7347775759038277`*^9, 3.7347775849700003`*^9}, 
   3.734778046045002*^9, {3.7347783045415573`*^9, 3.734778326039897*^9}, {
   3.73478580667249*^9, 3.734785833799533*^9}, {3.7347862780160275`*^9, 
   3.734786325863474*^9}, {3.734786356297243*^9, 3.7347863658678827`*^9}, 
   3.7347864154919467`*^9, {3.7347864630415783`*^9, 3.734786628984945*^9}, {
   3.7347867248157673`*^9, 3.7347868033223763`*^9}, {3.7349261020393076`*^9, 
   3.734926162546092*^9}, {3.7349262084792585`*^9, 3.734926300345415*^9}, {
   3.7349268493590045`*^9, 3.7349268729812603`*^9}, {3.7349271394961247`*^9, 
   3.734927161837261*^9}, {3.7349272779489*^9, 3.7349272783791304`*^9}, {
   3.7349275637398095`*^9, 3.734927570999588*^9}, 3.7349312192204113`*^9, {
   3.734931815826046*^9, 3.7349318170062943`*^9}, {3.7349320765981913`*^9, 
   3.7349320832593484`*^9}, {3.740384661769791*^9, 3.7403846690642796`*^9}, {
   3.740384723145201*^9, 3.7403847367757635`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw91HlQkwcexvFXPIhQrSio0zoaBa1XHUWwnvAAcqvlBoFADkLCeq/UVaju
a1tU1K1Ca8RVaoSi9VhQBKSoSxAPPBAsSsFS5FCsgoDFknrB2lmeZCaT+by/
ed7vfxmvXBOgNhME4fq771+///90Og/YOG5U4Znu4r4HeHWiqnhyLi1B2YXg
vx0weRhS/5U10uIsbY2kt5cuJ5g8GtVt/4lvNXkMchfETorMo6UIvNFae8vk
CWja6LRnUT5th2MfRXlkmzwJNQU+vWML6Mk4M2hA0R6Tp2KDMXmDcI6eDk1c
ncM6k2egfOHrF40mz8Rv/i0FAYX0LEiS0xNKTbbHpktSOPxIz8b2+jXmWSY7
IOnizkqbItoRV53XHdxm8hwccbfVGk3+BKty9HO05+m52CZ7MqjW5Hnwmvm2
xvsCPR/DJHWnikxeAK8rSV9Mu0gvRKjXq+WHTF6EnevmzR7yX9oJyvFuQ7eY
7AzvuaNa200Gjuvyr0cX91kE2seMPVFJCy7QnfTb7WLg3QUWtkvX5tKCK66p
RoTYlvDuCt9lmYu+pQU3WJS+mTTwEu9u2JExbvgGWlgMj3LL3hbTfTGu2pY8
Cy3l3R0p25zry2jRHVOqt1XOu8y7B8Z16S6foEUP9FxcU/ThFd49ETTKKnc3
LXoi70HCybemuxfyjaeOrr7KuxceOR/LfEAL3niSFpfhd413bwQ1d2WU0IIP
ynrds+zLePdB4+3o45m04AvPWS451td590W6+dOCJFpYgmT7cEO36b4EZ1NT
bmpu8L4UNyV7a2pocSnEz4Ife9/kfRm2/NhoLKLFZUjId7CYfov3T2Hvs2xs
Oi1+Ct+wGQ5Dy3n3Q6rhru8/afjhospF3UmLfkieEC8qbvfZ8O7+68r0n2jB
Hx9smHbBrYJ7f8TcyqnLo0V/qEte9kys5N4frY6DbffTQgBKLOq9JHe4D0C+
dOPaTbQYgPSwnw88pQ0B8Pnm9eWIn7gPhO7Mw+e3aAQi/NtUqVMV94FYPWag
fw5tCETe1IVfSu9yHwRL/SfnUmgEIUhmbDO7x30QNrol2sXThiBEzi6VPaKF
YDwZUpEWUs19MIbmfXfvGi0Go3CQvfW8n7kPRnXLjqATtBAChWOm7sMa7kPg
WSXe302LIUg+Ml7aQxtCYLM1SbOmlvtQdAWcOt1AIxTSP/e99r/PfSgO+rt6
ldKGUGhwRufwC/dh+DqrqSWLRhhGK6vnjqrjPgyDQ3fv3kEbwrBRPaDpJS0s
x6rVTvNW/Mr9cvQLnJ9aR4vL4fbC2La0nvvlWDL7H97FtBAOx+fnjs18wH04
Rr5fZJ5Bi+EYsXpz3IgG7sPh2dGv/CtaiED1ek/7bhoRaKlbekDTyH0EDlna
mNXShgjYNh5a6dPEfSSOOj2qOU8jEmED2z0+buY+EoqR5wq+ow2ReBmAycMe
ci9D8KHkg1tpyJBdlTqsixZlmHs/YnvMI+5lcEx52HuPFqLQXDs9wbOF+yhs
3efQXUiLUQjMer1+6mPuo3Dk6daug7QQjTyPa/FDfuM+Gjf+fdO4hRaj4VT2
9eedtCEaEaeH9Vc+4V6OdQ7+u6poqRx3Hf1s3J/yfXLc3zfkSAEtl6PBMXnG
5Fa+X45ZxksXD9B6ORacL1pm2caeHOGqtY2f0w1ytFU2f9ZOCwoEP7J+T/6M
fQV6tvb//g4NBfx25Cxya2dfgTO1o2vzaFGB/aHOGyZ1sK+AtnmCTRptUOBQ
VGn+4E72FTh2QhqWSAtK9Pww/00bLVVizAKrjKjn7CuR6Pq9dyUtVyJN3/W7
y+/sK9E9pzf9LK1XwurxVZ+JXewrEZ/q81JHNyhx9IOdxyUv2FdhmiIpIoGW
qvCN58L322iosDIn+7LsD/ZVcE2oS6ygRRWyk684uHSzrwKK4zpyaYMKe9+U
nbQzsq/CfNvmOB0txKDaunCK5E/2YyA569m6iUYMVjxIyW6l5THISNStl71k
PwahccHzK2h9DKbvvG3m8or9GFQU9yvPpRti8KS1Pc3uNftqTOncF6ujpWq4
ZXc7St6wr0azuZV5Ai1X41r9w9pWWlRDb/33bNlb9tX4eFfhVxW04d377Qoj
XXrYV8OnZO2cs7QQi6jFTVYTe9mPhXTPex06GrEI/7KjXCIY+/qxqDTblZ1A
i7Hw6ajf20brY5E5tTU+ql+fDbHYr8sJr6QbYiHYTHd1NeuzoMHp7fJpebRU
gy2VS0ZO6t/nd//Wrnc6zdJouQZ3Vyx5PngA+xpYfRHdmEjrNfjljylVz2iD
BkOPn7waPZB9DVI3Pzx/hxa08A2+m+s2iH0tJgxPPJlPQ4uefTVZH5mzr0X5
pbYjB2hRi6SEc4ctJexrYXl47uHNtEEL2fC1+g66QYsVBbJMxWD24zBjVb8f
qmhpHPSjI7LdLYzF/wOJP5/k
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw9zQtUTfkCBvC9MExNUklqZZaT15Vi7uQVjfroqZTeendedU6uxmPoMmay
lSILSUWYm1MmJSVTZiiPtpFUTDOMx9BEoTujoaZivLrXvXfd+fZe67/2+u3v
/+3PTr0yOGGIIAjN/z3/e///+d3tgdeVsKaigfo/P2CL65yrI4vpd+HSU+UV
ItsMG+ycLxXItsSJw63e92RbIxiftE48TI/DjW8nRybJVuDIH12/HJc9ASit
+fSZ7EmwNOwyn/8lPQUHKlIqNsmeCs+Cv/ldkj0N22Yk9xiX0I7onL8xP1D2
DFzYlo+9sv+K4odnettkf4h/W/UU2x2hneDd4xClkz0Tg7PWjamUPQv53zTf
6Jc9Gztd7QucS+k5iC7IjU+VPRep2e86NMh2xqrera+Nyuh5OJZu3rpU9nxU
jS0pyZftglcpiza3yf4Iw5IfK+2O0gsQeGm/h062K6L9QhwrZbvhSMsY6wHZ
wHHTzhHzyv+0CDx7cPJNKi0sxGuLnIEGOV+IRcvX9RofY74IvidVvYG0uAj7
z4YN7JVzd1QFBL35Wc7dYTYndMTECuYegGvc2CRa9MBlp5UOVXLuicn3M92f
y7knOk1L4l0qmXthy87mTZtp0Qu5U54dvizn3sgtmXR15HHm3jC7FfUyhBZ8
kJO+d+oBOffBwQ23YzrkfDHOp7+fP6WK+WKkJeuvraAFX6wactq8Rs59YWFq
Ev5Kzv3wMlpb6HaCuR8qT0ndGbSwBGefKFyuyvkS1DRuybb4irk/Jpo/+SWC
Fv1xYF+4xyE5D4BhcsOXXXIegB8yZxk5VjNfipOZpavX0OJStP8+7t5pOQ/E
/d15AW9pBMLXyfSiZw3vB+KkIctlBy0Forx0+OnrtBCEyxYZzjYn2Q9CYeWw
c/G0GIR69wzPI7QUhAbD8OtPaCEYXru3qWd+zX4wbrUbv9hAi8EYFbYzW6Kl
YGRdGOU44hv2Q9Dek3PVn0YIispGr86jxRCsrcuzaaOlEPT0WjbanWI/FOWW
eSl6GqFwf2buUEWLoYiM2vXwOS2FItPCyPDRafbDoP91szKdRhgKS19OaqHF
MDTZJj81q2U/DGlm92uX0UI4VgYFbC+kEY4Py+viumgxHEn/nDjXsY79cFRf
yxr9CS0sQ+3cJwO1NJZh3CPfn4Qz7C9DanGJ5E1Ly7DNdbBiFy1EoD094B83
aUTAzvWLnHFn2Y/AoHNXloaWImAN+8xyWoiEzXh9Zh+NSJQWFW13Psd+JFbl
3tyziZYiYSsNPdRIC1EIHHCoGnme/Sice+l/MZQWo2D2RVLbQVqKQl9Z6osH
tBAN4992jJ1Wz340rGbkuaymxWjULsjTnKalaBR37ch+SwsxSO/7vN5LYj8G
o6brBnbSYgwGND4ON2kpBp0qO924C+zHYld/3xENjVhUdtZ2l9NiLPpfr3fq
p6VYmBp/kDrvW/bjcPZu23cijThUOm+ya6LFOOzvtd4w6iL7cXC+UnYjnBbi
4b5vxqxCGvFYMb58XxctxmPdB7ZvHRvYj4dV7ubla2lBieFW7XfO0Aolhm6Z
7j/0Ev+nREvZmgZfWqmEVWCF2x5aVKLE8+75O7RBiblhgwvtGrmnxHZfi2Y9
3aFEbJ9t6AlaUOHjMTYPX9AKFTLSjFLcLnNfhdhhT0220koVziReLG2lRRW0
63Z4WTVxXwXbQe/HsbSkQlHj8+wSukOFekP+/Ke0oIZr+F8ez2rmvhod1eUH
P6OhRnLa+OAGWqlG9e4ME5MW7qux6ujPLSG0QY2/F0zaeZCW1Mixjw15SHeo
kTU1832HK9zXwF516Lc1tEID10Nl5+poaFBwvCh3yFXuazAsenuyLy1qsGSV
2m8PbdDAt85++l1a0qBpWIfFhO+4r8E+24zBJFrQYnuLdfdXtEKLlPYDba9o
aDFN8d61ha3c1+KzuKSWLFrUwkP79eVrtEGLsH/1NNl8z30t0p6PaVXRHVoc
s552+ygtJKDYyeFRH61IwMJRNs/n/cD9BCg/HTBKo5UJuOdWN6GFFhOQ7ZDs
ZnGN+wkINzJRRtFSAkaW7N1STHckIKfFpLKbFhIheX58x+k69xOx/kGd0UYa
iShc0b/gIq1MhMkJy5T3fuR+Ig6vt6sOoQ2JWLrHuv8gLSWiu+nV7Ed0RyKi
fm343PEG93VIP7uheS2t0MHP3NrmHA0d9lUfWvHOTe7rELjCrMGfFnWINV4+
fi9t0KEkoiL1Hi3pMHri7c4pt7ivQ/bsbp+VtKCHSUxXzSlaocdyddME4Tb3
9ThgmZvvQyv12OHqaZJDi3o4VNzLvEMb9NDbx78z4Sfu6zEzrXHrcrpDj41p
lqY1tJAEpz98Ct7QiiQsPqqZ4nFnoP4/kXGRGA==
      "]]}, 
    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw9zQdQVAcex/EnTRJLQEEsKIjljBhEIUY9lR8ggtI7yCK7C0tVwAbSn0QM
3QCC1IAtICixJBjUiXvmMJbEM2fXnHKWiGdHBTEY7t0cv92ZNzuf933/+U1W
JviotARBOCs9//v//++FXYNtb2zEkm67wRcwP9H5Sa/G+qh3PPciz442gNn5
I0dMQRuh3qcu6RuNx8Ls5tYFDva0KeoVif2XNTbHpEfBJ6McaAt8leiY/U7j
qZj4dpZTkSM9HXVZY/TNl9IzMHGocP6wxjNRV/yoyMmJngXTMZe8rmtshdq6
E6PjltHWmDDt66vvNZ6D2v3bqr50pufC1DZFNsWFtkHNcaVZm8a2mODodtdl
Of0pqs99uveWxvMw3scsOn4F/Rmqb+hbDnGl52O8ovtpmcYLUN116+B0N3oh
xiV2rG/X+K+o6m2d5+ZOL8LYrMq+2xovRqVe9om1HvQSjC2Oy9LxpO1Qaezv
sENjwKRuie5Mr0GLwI6pM86coAV7mOw3LPD0ZrfHDps/3O/SggNMjt832OjD
7oAKhwuXhvqyO2LMuaMV1bToiHLvncGf+LEvhfGNfFM1LS5FuXzDHR9/dicY
d4XuekCLTihPcFZtCmBfBqNe6xnDAtmXYXvm+Md1tOAMIz2dVusgdmdsL3qa
+CMtuGC08TWbgGB2F5TVqnu6aGE5Rk1tbk9byb4cpS1l6SND2FdglE2G3U5a
XIHSY5FatjJ2V4xy8Oo4TYuuKDm7IDc4lN0Nht5TXJ/QohtKrg8fmbWK3R0G
8p6LhmHs7ih5eKdsDy14wCDhbMBncnYPbOs5PO4cLXjio8za32QKdk8U626t
f04LXvioKEGZrRw0vFBsFDzNOJzfe2FkrUNXI62W+pRZLQsjeO+NES3G8b/Q
8EbR3AFruYr3Uj/W9aqbVkvd/p9tOZG898GIs8dTxkbx3geFXnsXtdCiD4Zf
Lx5YHM17HxSEbTp1kRZ8MeyhIic8hve+KIh3demhRan32A7Li+W9L/IzJl2Y
EMd7P3yoq1/SSsMP+YUvfe1X817qRrfGXKbVUq/5+43INbz3xwdTWmv7aPgj
r3lHWGE87/2hP3ezhVkC7/2R2x774BAtBEDf3q9paSLvA5B7ZnHcNVqUutdf
rGLX8j4AX1wzeNlPC4EYGvbuyLZ1vA/E1t/vJVms573U439Z8B2tlvqbtn7n
DbwPgl5Gw8mbNIKQo5OfvWYj74OgW7jeSUjivdRHh+qX0UIwdGuWnZ+WzPtg
5FhYF39Pi8HQaR7n7bqJ98HYMkfb6DYtrIR2+5OriSm8X4nPcbVKO5X3Uj9z
UlZBq6Xuuc/s4zTeh0D7Wund4zRCkL0qfa9HOu9DoPW7KvrftFrqazwtN2Tw
XgatN/Of6WXyXobN6RaHqmhRhiE6wzfMyuK9DGLBm3knaSEUwug7fd4i70Mh
Vp85cZ8WpW5xOCt5M++lvq/G4cNs3q/CgHWObh2NVcj6Pv7M7M95L3W7oIJT
tHoVMn+y9/DfwvswDHhYGnbRCEPmVaPLqTm8D8OfoX9WjNjK+zBkPHgY3EAL
crxf/aupzReDNpcj4/WxOx005OhP27MrKHfQcjnStYtVj2lR6vnJMzLzBt0g
R9ooxWODfO5JvWpF6266U+qTbdfOK+C+An80TbQ9S5srkGY9tDekkPsKvDv6
ov0ZLVcg1e5m+uYi7ivQd/pHO6Ni7iuQ4nFAq5FWS/dXKjoWbOO+1EPF3J9p
QYm++zGuYV9yX4lNq31HdtNQ4u2rRb9uKeG+1NOmbzcp5b7UtQwCm+kGJZLz
+8YtLuO+Er2G9377B92pRFLVz/XK7dwPR695m/INbR6OpKb6abnl3A9Hz+y8
rvEV3Jf60XUtB2gxHG+WyOKxg/vh2Hjaac4lWh2O1+6zX6squS/1K2OPvqWF
CLyWaaUWVHE/AhvuP140qZr7EXgVd2XgIC2PwPpXP5xyrOG+1FObcq7SDVLX
KnWJqeW+1PPShvXTnRFYZ6i6UFzHfRW6Kz1KJn/FfRXWms/3+5aGCi8bJ5s4
13NfhXWzh928QYtSb3tdu7qB+9L9ktthA7RahRcdP1mU7uS+Conuhx5M3cX9
SLy4XN10lDaPRKJsS9yK3dyPxPN7a6z+RcsjkRAX+DJhD/cj8awb32rt5X4k
4lNnJpfTaqkPMVo442vuSz3vff8xWojCM4OHJ90buR+FNZUXsztpROGp2TGn
9U3cl3rjbn29fdyPwhOrovOVdIPU25KKLZu5L/XFcu8f6M4orO5YbuTdwv1o
PHazuXaPNo9G3GXT6qT93Jd6iF7oBwe4H43Ye8/NamkxGv+JvXHXqpX7Uu8+
tfdvtDoaj1L2R/t9w32pD6mwfEgLMXiUm/Us5SD3YxBjEHNo+KFuu/8ClCry
PQ==
      "]]}, 
    {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw9k3s0VYkex4/HXKKHiUkXg1zSTA8lhWJ8URJqxPE+OMdxHqbuJKmGptvp
cbtdyaPoISOtnpKiB0NMepEozBQTUx4NSobxqGauO7ndNX6/vdZee332d3/2
55+9Z0St95OpCwSCmvfn/69/Hr+6bD71SFt4buDG+A1MVr+VJ2bWRqN9WPDf
mfWQNj/XIJHZALrNac/2ME9H30dziw8ym+Buc/yxXGZz6GopUwqYLWCV8pfU
MmZLhAX5flPNPBP9PstLHzHPwtvgrs4O5k+xTTbfaIB5DhJEMyP/yzwPN62r
iybkEc+HWdHUqYbMC+DUqa2yZLZF8am80QXMCzGpc2S3C7Mdzu/qNV7FvAjt
cUmVocyLMXTkUZyS2R6abfdsNzM7wHqeQrCb2REB6y+1pjMvwfp9J+4cZ16K
ZWudrxcwOyH57c4b15md0TE9rrGG+TP8UKIz2MzsgvpyH9NuZmChnkPICLEK
QFbdCfXztLtigbvOb3rEKlfoD/8aZsa7G3rTVQ/m8u6GE1qlPk68u2OyU9YT
L97d0TfNMj6E92Xo2R5oouR9GZIjFny/mfflCMq6mvlP3pcj36hdnsG7Bx5X
XVl+kncPTNljY3uZ9xXY5OI/5ybvK6DfYmrXwLsnWp0OrGzj3RP5qwvW9fO+
Eh5v1n/zB+8rITZqaZ2YT7sX0k+8sjYhVnkhOO7Ujtm8e8Nqo+bLJbx7wydJ
N8KLdx9MzCltD+HdBykZkzfE8L4KP/vrTEngfRU0b10o28v7anTceb3xCO+r
scyta8k53j/HY7OtU77l/XMEuJcMVvPui8UHjnY0E8MXw4Mz2nr4eV/0r/Dt
fUtc6YsvEiw1tC+QvwbH1+Z8Mp0Ya5Cr8V34LGLVGmyZueu4A3HlGnxY+ku/
J/t+8Mj9wzuEfT80VV4ujmHfD+vGJtoksu+HbEy8lsS+P7qUhZ7H2PdHgej3
l/ns+8NT0HOknH1/9NsnBDxgX4g7PZfMnrEvRNNw0tt+9oUwhc7TMfaF+Lpw
boNeAfkBKJv1umEGMQKQmixusyVWBSDjxvpRd+LKAPiftrAKYD8QrjMSRHL2
A1E0beOJLewHok+pN7KX/UB8POorzGI/COJCu1v57AfhytrrzhXsB0FNr6vq
IftBMFcVhbezH4zaHHP1IfaD33//tlc1LpIfDGFc98aPiCuD4dLn5GpNLAhB
fc4iE0dihCBgXYOmN/sh0LGfNCpiPwS6Ha/efcl+KBQ+6/R2sB8K/bAUm4Ps
h+JV/xrRafZDUfay+FAJ+2FYOLfiWQ37YejLirb7if0wxBsUHO5nPwzztx7S
VrtEvgg7C83/pU8MEc5meuvPJFaJcF/XsMCBuFIErZGdQm/2wxFikzohgv1w
nM1ZWhfLfjgeWOzN3sV+OLZnxyceYj8C6/oE8jz2I2A2PCeynP0I6KX/Jqtn
PwLnzkgTO9mPhKPBl9mv2Y/Ei1LDOu1C8iPxcot4gglxZSSc53kKbYgFYrSV
P7zgRmwuxnmNkamBxBAjqrNkTwyxWIzbDkba2/j9Yki6jQ6nEeeKcet+6cJT
3BMj8u6bpyXE7WJsv9aYWct9CeITvcLauC+Bclg8b5j7kvf/v8EUrSLqSxDq
4Cc2Kxpw+bMvgZnd8Sz1y+OcK8Fdb/mPXcSVEsx2O/vXmivj3C6Be4sk4sLV
cRZEYbAp80zqtXE2j8Kno25DccXjjCi8mBDjGlgyzuIoWFRpZTh+S/0oNA2Z
9pqUUj8Khv4X3QVl1I/C07xruc+J26PgUmanVn2d+lJ4r5gtO19OfSmMDY7W
7a+gvhS1z7fZb/iO+lJsS3hyWniD+lL4HMk3dKikvhSxGiPJxjepL4XBPy5/
MEbcLoW8tntH5y3qR+PkxTS1qtvUj4baq0u78+5QPxr33Jfp7r9L/Wg4fr0q
M7aK+tHICaq1EFZTPxpeRyuu2N+jfjRSNC09jWuoH407ondt74gFMnjIfLZ2
3qe+DJs6JhlV1VJfhooMt/K8OurLsNOtV7L/AfVlmH9RU3fDQ+rLsPpYeomw
nvoyfPYgTeHQQH0Z9mmpG5s0Ul+OgkldjWPE5nLYn3RMfv499eU4u29sZfUP
1JfjYNJi3fxH1JcjWfqsPuUx9eWwbXlzOK6J+nKYXt4uDWymvhyDF7+yXfIj
9RUIyOjQNH1CfQWGrMpa1Fqor8Ama/WrXcRiBbJFpWk1rdRXwPDfbbEFP1Ff
gTOx8cL0p9RX4MPmLUs3PaO+Ah+rXlqFtFFfiSSbGn3nduorsShv2gczOqiv
xEBh4++andRX4oDOfwZfEKuUGE1I/aXuOfWVmHg7va/wZ+orcS5PMJDRRX0l
7g62jnzVTf0Y+ET+7Z2oh/oxsCtu0nF9MeDyP8VcZZo=
      "]]}, 
    {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw9zQtYzIkexvHJuuSy9HSILZfEQSGrUJF6U9N16N4002VuzUzEErlfGtWm
cslGySWlttxyEskeSunYHGG1jt3HpbU55NQhZbNsizp7nu39z/PMM8/n/5vv
/52oXhmk7ScSiW788f3/75+fTtcPCYqmvzp0uPY9wMuH12cOcqSNYei5mdQq
2ASjCuIe3XCiR0JkKHE4PZ8eg8PRWw7sWkCPRdiHl7+vcKYtkfnZbyr/hbQV
Lq3Lu/W5Cz0ZLvea5pu60lNQ+MuF0i7B0xCeNc3qB9A2eLJmzuFKN3oGvpU+
GJ27iLZFWo9Z7kZ3+nP8Y1q7RYQHPRsDD0QUOYtpOzwbrLYd70nbw2iRqLpX
8Bz09M71f+JFz8X2/p+01HnT8zDPRL/tax/aAbeeqixSfWlH9Lp2Xdb70U5I
bjFX+kjo+RiTfX/Q9MX0AqSMmHF+2BLaGbtHjVK/ErwQn8TuG9noT7vg8vWS
hvIA2hWpvy5J2RdIA+JzO93WBvXZANy7EtlPGsy7G8ybrtY7hvDuhkE3L+0x
D+V9EZIkXvIPtGERUifqrR+H8e4O46HmH2qkvLujf4Pi7rFw3j2QNMGxNFnG
uwcMtwrTtXLexTDNyl/mFcG7GJ6zbf2tI3n3hG3cEoehUbx74pVINKmdFnnh
4PlFpneiefdChIfZgHIF794IS9j0PkvJuzdq+q/8NUHFuw+uVXb9Eqbm3QcF
fsZvHDW8+yI5pfQ38xjefXHRqln0kRb5Ifk/hcN+1vLuB5v9byyu6niXoLft
nm2RnncJZKfcxV/G8r4YO3Kg0C/lfTE6Vt7c4rOM9yVoffc0b3oc70vwvCO9
7tPlvPvD97Pq/3bQBn/smrvV7O4K3gMwZmCDuOKLPiMAyyVFG3JW8v8BGNxg
XLZhVZ9rA7AKv7fK49kHYkr8+ikLV7MPRNU4g37CGvaBqB00stQogX0gGjrt
3jylRUFIONTkWr+WfRAU9SaZJ9axD8KseXeeZKxnH4Sdp0c7rtjAPhiTWtu+
8t/IPhjFZ8QdszexD8b31TYBIzezD4b8YW7FW1oUAuNvM8c+2MI+BEddR6Rd
3so+BE+Hjn6Xt419CE6+KFlqSGQfivqCKz+rDexDMbw9Sibezj4UqqyUH6cm
sQ/FsSA76ZBk9mEo69A9ekkjDIbpVpo7KezDYPRPzavyL9mHYcKO6Vv3p7KX
oslm44j1O9hLYb9WUixLYy/F1GnFLs7p7KWoG5D8aHwG+3AMb2zZbLSTfTjG
+tye8Iw2hMPY3ul6/S724Xjib7365G72MjSq8ix37WEvQ5dN9t0vMtnLsHmF
SVrgXvYypL8Y7jbnK/ZyyPV7P5plsZdjYtH+6m7aIMcolcX2pn3s5UjUTPau
2c8+AsXLy0wLs9lHoMqlqjklh30EZhzxPac/wD4C873kO3xz2UfCo98LxcyD
7CNxNPPDApND7CNxvnyPRRddG4mnNsd6fjjMPgq51fYt3xxhHwXvGZ53Duex
j4LK6X7VtqPsoxB1vO2MKp99NC45bir0KGAfjXdl6YemHmMfjSN3RucMKWQf
jTnyydnttEiBYNOyA41F7BVIu3Qx7/zX7BVYPcrleE4xewVOtrhVbCxhr8S9
9rprkcf7bKlEbmftfdcTfJ8SRWcXdFqd7LNSiTOddkMHnuL7lQhfU2LdRhco
seJ9tt+t09xT4rifUXxZaZ+blWiY0now6wz3Vcjz961f+zfuq9CVNvVteBn3
VcjKTrR2Pst9FVK36j6al3fU/LmvwhFJaLctXaBCut+Tfu50rQoDZEPMpXSz
CpXBjS5xtEiN2eb28Ym0pRqvM+zK99FQIzLlu57jtFKNK88GyquEfTUCMx7V
NQr7aiwMlji1CPtqpI+TVXcL+2rYXDfyH36O+xr0t/V8ZUVbatA8a8phBxoa
xJ86FiqhlRrINn8zTkUbNBhnWNa1li7QwDbn4o8ZdK0Gzw/lX8+nmzXIjLOq
rxD2YyBtcb17Q9iPQWjLuxePhf0Y7Pb2/csbYT8GnS/meQ8+z/0YBJZWZ4yn
C2IQr3v80J6ujcH7t7mOPnRzDNLmtxdF0yIt9n/6aGwCbalFskRdlE5Di/J/
JTnk00otAhOdH1QI+1rsm56Z1iDsa7G9YpO4WdjXwuxtz4i3wr4WTrcsWodW
cF+HC6bf355IW+rgVTz+qgMNHfYo+tctppU6jBmX1KihDTpE/P3Ay410gQ6V
I8Rme+laHda9T19cQjfrcFuqy6oS9vX4qffBs7vCvh4nvnvm0Sbs6zE5P/Vc
r7Cvh52kZqbZBe7rkXV2T+UMukCP1yVvJO50rR7dg193yuhmPSZVJBeuokWx
eJxYqtpBW8Ziu1ec7VEasQhpqTG+QCtjkWh/qvOmsB+LscNsnv9b2I/FHB/X
tm5hPxZF19q6TSq5HwtxuPWYabRoKR789NHdlbZcioGz9FvD/vD/AJSvIn0=

      "]]}, 
    {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw9zQtYjQkex/FXW+QytGUs1ZAilZJIN11+3TtdqKP79Vw7p8KZrqsRXpeZ
ZLKMZYbMkrExhDFisqae55hWWLcpl2hpw9OYohZZKpdd82y/c57nPOf5nP/7
e7/TFTqp2kgQhIvvv7/9/v/zNKDevD4l7A/dAcN/4PWIzWEtBpsiRy4uTJ9M
m+GX81u9Hhk8EdLLjX4FU+jJ2GkyKuqtwdaoGrNUttGStkFQwZNVFla0LQqv
l+/fY/AMWJ/za3G0pu1h3/HBqFMGO6D01KsQfEQ7weTB0KZLBjujbmjSncSp
9BwUfxnl+sDgufCK3rl52TTaDY9PvOkfMHge1spXKDbY0PPxuG/MnQnTaXdM
e16XtNvgBRhrVNhhb0t7oPZU+LITBnvi3/vdjP3taC+0Kufuv2iwNyIrgyMT
ZtA+kJ7MHew0eCG6CmqOL51J++JVZr9uwGA//HlCvOcGe9ofh63OjzSbRQfA
3zK6Y7fBQMw3DxpnOQxbBP4ZuammjhYC8ehw0I4AR94DUZQydvMlWghCee/D
yiQn3oNg++7S9oe0EIzFtk1/1c3mPRgWzy40vKaFEJSMuHe33Jn3EKzpeWc8
0YX3UPgGz1lQTYuhOP1N7jLnObyH4c3euqOnaTEMk1tNX4a48h4O659zwlpo
MRwWbrf2ZMzlPQLmlTH/7abFCMxZcU1T4sa7BPmVabeN5vEuwX+ynsVuoYVI
tFZsbbGaz3skJu7zSv2WFqLQ5dvd4+7OexSiX+xbf5YWopGXqZixaAHv0cgw
d7rSTgsx8D44sErjwXsM7E5e8XhBC4vg8fO3r0RP3hdh27YK/QdevC9Gxjbd
F1W0uBjHslNzZ3nzHovvDkiiTtKIRXm3r3ugD5+PRULz/JlXaX0sIm64TE1b
yH0cxMNO036lEQfHTkeHYl/u4/DxuNneRn7cx2F1s4t0Cy1IUVbjVmjtz70U
e+Hx9SFalMLcdeEVjwDupRhpipF/p4UlqFWEhMeB+yXwvBW+tYMWl+DuoOR+
XiD3S3BNFekzSAvxCDsWsfuzIO7jsXJZiPHEYO7jccDbr3gfrY/H0KF5fXNC
uE9AU8IMXQONBMy98fsBSSj3CVjbMLSxjdYn4FVNx3R1GPeJaJ3V+NNzGolI
uLMjTwznPhFn47TW4yO4T0Syg/vN3bSQBMWLgR2OEu6T4BDzQ2Y9LSbh2cU8
19BI7pNgZDTF9DotJKO2svFXWRT3yXAfkdLSR4vJ6H3Zc7Ysmvtk2JoUnhkT
w30K7JqentlJIwUhF5RN9ou4T8GN2kvXT9L6FMwycXgStJj7VGzPWzGuhUYq
dCUN7lmx3KfCrLFf1UvrU9F666O/rIzjPg2j03zujZZyn4Zp9yNm7qTFNCgE
SbH9Eu7T4Bnrc+UkLaTjtcbaJTie+3SY/atvewstpqMt+ntjWQL36aiPUJb1
0UIGzHON35Qlcp+B2Ijt68cmcZ+B25+YW1TR+vfP71p92CGZ+0zk+dyW1NPI
RPTLqc9CU7jPhJ1KWn2D1mdCZlWQpEzlPgtFdasmPaeRhctNRffENO6z0PEw
8ciEdO6zYF1rt34PLcjw7ni73CVj2DYyDFWujGigIUP5LRPPqMxhy2Swmlnq
0k6LMsDs5uycrGFXy6B0nTJvgNbLMMoyFOWyYXfKUKtJTpwkZ1+O1u+kRTW0
jRxvKuZXuSvYl+PI5qHzTbRMjjzpwbdSJfty/KjzXviArpbDftVxMV/Fvhwe
5uOuCmr25ShsjrLbSgsK6Nx04rRs9hWo6ynuOkZDgasVWVJ/DfsKxB+Yff4K
LSrQ0nYnOEPLvgJdp3IuPKH1Cky63R5flsO+Asa3nLvH5rKvREh41qe7aRsl
ljflO87OY18J2wfKm2domRIDPgsqIpeyr8QWdVdIO12txMbBQtPcZewrse5P
ndcH6c7372twOlixnH0VTC2l66bo2FehIyBRfYiGCqHnPGK9P2Zfhd7A/qCL
tKjCypjP/VLy2Vehas27gG5ar8JrXXRkaQH7KkT+UJQ+upB9Nbx6Skp20TZq
FO6X7nQsYl+NutJRP/2NlqlxzHhHv6SYfTUs7g45t9PValR/5bU8t4R9NcZf
i6kfojvV+NDSx/TzP7KfjQKztzKrFexn4xfJl2draWTDOdPEybeU/WyYdkmq
LtNiNvxKlOYZn7CfjS8OxW3rpfXZaJ400XL1SvazUZNw+ND4MvY1GHhrEbiX
ttGg/GBsp+sq9jWw7ckq19MyDXZkBHrErWZfg6O7Xjy5T1dr4O9RWluwhn0N
rC5dzf+dyL4G5k9fBGynBS1M/R5/OHMt+1qck3zff4qGFo7Hwu6ErWNfi3FG
tc1ttKhF2L17P2rXs69Fc1vH6UFar0VKxdHGTRvY16K7QvIPq0/Zz0FS/omO
I7RNDsrbHg35fdYd8D9OL8jZ
      "]]}, 
    {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw903tU1HUexvEJJRVQZAVMt5wRkRRUCoNAEB7kOgPIcL8OzH1GFOOSRqHw
A7mZaF4guWigsgmSkqBordBAygJKQaYQAnHJ1G1RzBRCV9c9u9/PnDNnzms+
v/c8f81S+XvBKj0ej9fx8v3fz/+9Jty0Kx83ztkx4vb/L/AibzTCnDwbLZfS
X11Gno9d53WttmRT8GLPFrqQX8PPZQFKIfl1XIgtFoaTBZjeU+CiIFvAbMGb
65PIlhAPJPntJFthrEel+Zi8AncH9Q8cJlsj+Z/i9iryKmwZ8Z5bT16Dhi/u
xH9DfgvzHNbqrpHfhq1m5Zp+sh1qVnbW3CGvxTO12drH5HdQNtuwU28nsz1u
Tp7aOp/sgF/feCxYQn4XTxT3hm3IjljckH/GiewE7z++3+1DXgfZ/NaUMLIz
HCckmxRkF2TsOJGYTF6Pm0cPZmaSXdHmYlOxl+yGb90Tr5WTAaviyFmnmDnA
kT8eeJHu7rBqt/68je7umJVmYnCD7hswYH4sfYzuG3Co8Kfph3T3AK/l63xe
Brt7YKjc08KYmeeJ3pkfdL5Bd09kjAVxq+juBSH/hocz3b1wpIJnJqK7Nzr8
fnwUSXdvzDAUD2vo7gPt5dT+7XT3gX6822gu3X3xXUv9ZBHdfVF6vWtxFd2F
cEzf79dAdyFCK6Z3t9JdhF1WRjd76C6CaPKy7Qjd/bBwyvLwBN394Gq8yoiX
ye7+eG7Rv8+YmfMHt8iWz6d7AHr7rJvW0D0A095dWle6b8QNobnFRrpvhMM/
9O9J6B6IjqrypkS6B0LY3luxk+5irFj49Sd7mSHG3e0b9h6l58UYupZUcppZ
J4bkuefZJuqD8MlEc28X9UEoLhgyHKI+CJtrTwTcpz4I+q7zjj6nPhjOy5dM
z+NYH4x2r+tKPjMXjLic1YO2zLpg7L+ySgFmXgj6x7ufiKkPwbGRRSUy6kPg
nDvLJ4X6EIxdKp2xi/pQNG7p7jpEfSg60mr/VkV9KBZcsd5znvpQbLXfmNFG
fRhOnzbL7KU+DFkmWXvvUh+G3Z77a/6kPgy+1h7XDbJYHw67z0sNXmdGOKrK
DwWuZubCMTT+1nFXZl04TLhkPTH1EQi1D0uSUR+B6olbv6VQH4HHRfrbcqiP
gIn+D4afUh8J3TL3L09SH4nK68Hyr6iPhM/kqxZXqY+EXbLkwQD1UbiyLLzz
PvVRED2cqOdlsz4KT/++uuYvzLoovFAZnbZk5kUjuqew2YEZ0Zg5fGbQl/po
DKWmGMRQH40zW3s9E6mPgWX9YGEm9TEY4eeOHqA+BurSLq8q6l8+z7vQ2Eh9
LFLt3e07qI9FyeItLbeoj8Wl/e/G3Kc+Fk/STui9sov1Evidq7uwgBkSlC6L
/ciKmZNAd7Ja5MSskyB1afEKf+rjIE1eahpPfRzmpwXMTaE+Dnrmi0xzqY/D
EZucFSXUx2N16T5RLfXx6Hd1/KiZ+pd+xl3ooT4edg1avdvUS9Hj/iB6ilkg
RVmBaYthDvs9KSI1fe/wmaVSnGta12jHzEkRvNnZy5u5UoqLgf0jUcw6KYJE
CwsTmYelSF33u0cWM08GzYuEOcXMAhmi07IGqmlf9vL/b990ifZlSNPLr+2m
fRkO9mw7+Qvty7Cj+5WzU7Qvw9SgdbtRLtuX4VTfxL8EzDw5LCtC+PbMAjnG
jEPihcyQI2DOgy8kzFI56je9OTuFmZPD0/hZUh5zpRxr+rbcKWPWyfHh8Q83
19G+HEv8Lf79Le0rMFmvPtJH+wr8cM5bOE77CmhtW2fo5bF9Bfx4P101Z+YU
mKu/55gNc6UC/L/25YBZp0A/X7ctjHlYgeyJDe8nMPOU8E2QcpnMAiVECa+V
FTFDieyuhJYa2ldiNCniSTPtK+Hx9pDjj7SvhPq35wX3aF+JifSvfn1O+0rs
+GZusGk+21ch9+DTzpXMAhU+6MkOcmOGCsciT9wOZZaq4D1Tkp/AzKmQ/WWd
A8dcqUKSU/mjYmadCrPS+c21zMMq2AS5fNpC+2pUH36Y3kv7ajhZu703Tvtq
ZP1imTSjgO2rYXD8eMYiZk4Nf9eLZbbMlWrUFqkuezHr1NjMnXoawzysRutA
HlKYeRp8nzN9sIBZoMHREP1HnzFDAzPLk9LztK/B8p6fb12lfQ3y7OuUo7Sv
wW0bs6dTtK/B+D6TCuPdbF8DU6cqsRUzT4vumV3G65kFWrx/bc9ACDO08E4Y
bkxglmqx/WLnZ1nMnBbGB0RFJcyVWiz/Lv5wHbNOi2KhQXUb7WvhOChsG6T9
TeiUL/n9D9rfhD8b8m2MPh5x+w9rdu54
      "]]}, 
    {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1jQlUjvkChxvSYiyhIdGGmaLMlFZR/bQo+tr3/evbG+Yqw4w2sswdlEOb
a8gySGmxjchl9LVQjbhZRpslagaXtMg2iuue+X7vOe95z/P+/s//MRGtCJSO
UFNTa/z4/v/799PnUmikXBtu3OCi+oHDXd/Ka6aRtVBcZOpvMYWsg7JlHQ47
J5J1UfLVdhO1cWQ9lL9wHf21Nnk6ys++GripTjbGqdSSDic18gxUuMTWFb2r
V/EsnBo5sXzCa/IXqKy/lJ86QDbDhczktX/0kOdA6TdX7veEbIGLkx74nesm
f4maljyHmZ1kS1ze42WyrYNshUtxQ9qvb5PnoXHmiQHhDbI1Gh6JO367SrZB
U+mUOptGsi2aV1wp21dHtsM163X5WkqyPW6+nrd25XmyA1rO/ym7c4Y8Hx3r
dvstPkV2RJubr8OJcvICtGqOMNE/Sl6IO1cqtDcdJjuhc3vCQM9+sjO6gww6
wvaQXdA15Xpt9U4y8KBjU5l5joozgCf7HfLzt3FfhCfiZ+kfNnNfhB7TA7KE
Tdxd0f80yO/mOu6u6Duu6eCUyt0Ng9+eNy76jrsbXtiv0J6wkrs7ht7NGEj5
hrs73lXdbu9WcPfA241ba30l3D0w7OlcVhnHfTGGPh3ImxHFfTE0mgvTs0K5
e0I9L0L2KoC7J7TCx/oJfbh7Ycz0avvfvLh7Yfj+KmMbd+5LMP6wmfY+F+5L
ME5xp19zAfelmGixoz3JjvtSTOtzq+2w4u4N/dOvSz3mcveG4ZrSvONm3AWY
sjAufeos7gJMU5sk22jE3QdGdZd9e/S5+2D25hT7sMncfWEq+NK4egJ3X3yh
81DLfCx3P8y5ld+fp8XdD2a7lrS/H8ndHxbRwzWKD5f/ZvjD0vhk6Y2/VJzh
D/NuSd7CVypW+sO6WC/9SL+K1QJgv7xJqtNDPwB2lhm+KY/pB8Bx0Nq+u4t+
AJwrHxn53qcfCKe0PVqV7fQDsQh+/Sa36QfCQ31ke+Z1+oFwazhT87KJfhA8
s74ujWugHwRvf8O8xlr6QfDTvZFmXUU/CL6tP0j3/pt+MAIL5vtqnqEfjABh
j13SSfrBCJn1s1FHGf1gRDwO1vIoph+CsDKt/mOH6IcgKvFCm95++iGIs0ms
2bCbfghi38wsfZZPPxSiCy25odn0QyHLyExTZtEPRZy7i3TOZvqhSNB64ZO3
kX4Y5E1H7N6vpR+GpB2RRooU+mFIDB6ndWM1/TCs0qvpW5BEPxwr76xuK1xO
PxxJB2bXjFfQD0eK5G5Jsph+OJLNsnO7YulHIP2Ze5pPJP0IrD/xRnI2hH4E
MlaV+ZgE0I/AJgehXaaAfiQ2DE0yeulJPxJZynrNODf6kdi6KbWvwZl+JLZ4
fdU2z5F+FNLHdFUX2NKPQlbzzhINK/pRyM9bmptoQT8KeeHvU9tN6Udj1/RT
EveZ9KNR0Cn1OWZIPxq7D0+109OnH439iquGGz6jH4MCi/Waz3Tox6Coz6Yv
ZAz9GBSeftxapUk/BsVrCqpnj6Qfi+KF/iW57y+p/FgcUVPPHX6r4oxYlNad
TZW/VLEyFsc3L5Nc71OxWhx+ERj5LHhGPw5ndW7aFj6iH4eKW/80HN9FPw7n
djlqJt+jL0Rl9PPeh20qNhbigvHBVsHvvE8IZXdI9ZlmFQuFOFGsXWLcxPuF
qF3+a87WehUfEKLaMil1sIY9Ia4MzpLEXlRxpxCNla2ChnPsx+NaWpbtvAr2
49EEGBacYD8ezeqDGhpl7MfjVkNR74oi9uNxMyuqte0g+/Fo8R9f7baP/Xh0
6NYeLf+J/Xi0t36XMyWffRHuFcxJXb+DfREeCu+Jn2ayL0LnrBxByI/si9D9
2MO2agP7Itwve2swey37IjxKLNfITWZfhKc28b1Dq9gXofeNbqsskX0xnl9o
UDYvY1+MgYy0o45y9sV45W6Zc1jEvhhPtLpTxsWyL4bu1X+J10Sw//H8Dm/B
w2D2xfgk5IONwJ99MT7o/WJwxpt9CUbelWkYe7IvwYif9Xu3uLIvgZr0WssL
J/YlGD17gzJmPvsSaPfYHq23YV+CsSefZFtZsi/BhNV7U/aYsy/B+PkB4lGm
7EsxaVhdsGIG+1JMrK60aTNgX4ppPyw3cJvKvhT6S4w1ynXZl2Lu2FvPJ+uw
L4XB9R9bMj5l/6Ofv0D5Xw32pfg8orc4eAT7Msw0OJR9cbhO1ZfB9EFoitlb
FUMG88LR4pxBFQtlmJNw0XuoV8UZMjjPXWkje6riAzLM7f/coPlPFStlsKpo
G+X4UMWdMtgmb3t+6K6K1eSwdlrUMraNfTkcPnlZ9f0t9uWwvVRc/OA/7Mvh
uCU62/sK+3I4++ikVFxmXw7XCXUioxr25Vj8+/feW35lXw6rn8xtXlSyr8CS
mPvTY06zr4CXSe6o+uPsKyD4Y/Fzy1L2FfA/+tft3UfYVyDim2NV6gfZVyDQ
SlT8j73sfzz/8rPs1l3sKxByrjHZNY/9BESkp4vKtrOfgJhFVt6TM+tc/gem
Edzh
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{500., Automatic},
  Method->{},
  PlotRange->{{0., 201.}, {-1.440007859303968, 1.1682249956220636`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7347762408380866`*^9, 3.7347763817834373`*^9, {3.734776420063916*^9, 
   3.7347765307392073`*^9}, {3.7347766139893675`*^9, 
   3.7347766916927834`*^9}, {3.7347768354714985`*^9, 
   3.7347768672075095`*^9}, {3.7347773518011875`*^9, 
   3.7347773561252956`*^9}, {3.7347775768901367`*^9, 3.734777585656164*^9}, {
   3.73477803733636*^9, 3.734778046757618*^9}, {3.734778305115136*^9, 
   3.7347783269209614`*^9}, {3.734785816142152*^9, 3.734785859338273*^9}, 
   3.734785990772994*^9, 3.734786133684984*^9, 3.7347861880304585`*^9, {
   3.73478628333243*^9, 3.7347863310325394`*^9}, 3.7347863692096424`*^9, 
   3.7347864209181433`*^9, {3.7347864676499205`*^9, 3.7347866297841454`*^9}, {
   3.734786729307462*^9, 3.7347867412692876`*^9}, {3.7347867765187445`*^9, 
   3.7347868062823277`*^9}, 3.734820540557948*^9, 3.7348206031954875`*^9, {
   3.7349261030055685`*^9, 3.7349261333645597`*^9}, 3.734926163736389*^9, {
   3.734926211133855*^9, 3.7349263042007217`*^9}, {3.734926862336452*^9, 
   3.734926880992647*^9}, 3.7349271506035323`*^9, 3.734927279582845*^9, 
   3.734927573011991*^9, 3.7349312207764997`*^9, 3.7349318183170047`*^9, 
   3.7349320854966044`*^9, 3.7349455131252127`*^9, 3.7353413422233777`*^9, 
   3.7383746232993937`*^9, 3.7403844009738846`*^9, 3.7403844653174653`*^9, 
   3.7403846722118597`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"excitedZeeman", "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", 
           RowBox[{"2", "\[Pi]"}]], 
          SuperscriptBox["10", 
           RowBox[{"-", "9"}]], 
          RowBox[{"Energy", "[", "2", "]"}]}], "/.", "atomicData"}], "/.", 
        RowBox[{"Mega", "\[Rule]", 
         SuperscriptBox["10", "6"]}]}], "/.", 
       RowBox[{"Second", "\[Rule]", "1"}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", "\[Pi]"}]], 
     SuperscriptBox["10", 
      RowBox[{"-", "9"}]], 
     RowBox[{"Transpose", "@", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Eigenvalues", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"h", "/.", "larmor"}], "/.", "atomicData"}], "/.", 
            RowBox[{"Mega", "\[Rule]", 
             SuperscriptBox["10", "6"]}]}], "/.", 
           RowBox[{"Second", "\[Rule]", "1"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "16"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"b", ",", "340", ",", "360", ",", "0.1"}], "}"}]}], 
       "]"}]}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7349265001366796`*^9, 3.7349265626987915`*^9}, {
   3.734926599109418*^9, 3.7349266045209074`*^9}, {3.7349266389396586`*^9, 
   3.734926668154326*^9}, {3.7349268777108526`*^9, 3.7349268782911644`*^9}, {
   3.73492694779961*^9, 3.734926996675929*^9}, {3.7349270525283957`*^9, 
   3.734927053522807*^9}, {3.7349270851168776`*^9, 3.7349271046543217`*^9}, {
   3.7349271945834675`*^9, 3.7349272380158815`*^9}, {3.734927578614809*^9, 
   3.734927583695665*^9}, {3.734932094827533*^9, 3.7349321137612805`*^9}, 
   3.7403846818491173`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10A9YDHYcx/EbNyqZkJ6mWEdTaxfpz1ykjg4VKTmJQiUVCylbRdLskDCh
WhRq/tR6ykLInrTTEyp5NEtPnvLQltWs5ha282jZ77Pdp+fp8bz6+vS+frLI
zUHrhkgkkgbxjX///9J5SSRVc57ee+5l+IFSIon1d7pPGwkbrdjeQpsJV0Td
aqXNhUPiRz+kLYX128PaaWvhwr3Fj2gbYZ+j/Y/pScI9J2f/TNsKZ5VmdNFT
hJVXfvqVthduuzHxN9pBOOPu+t9pubDTw8o+eqpwc9fb57STcLLOr5+eLmwz
kPOSdhauH975F+2C9xgrf027Cpt9kPSGdhPWOtT+Q38iLM8f9t+74muGsFQm
f4dW4POfWzKEdhcukScNpWcKp14skNKzhAMVte/SHvi8Nd3D6NnCL71HGtGe
+PwNzsa0l3BeQIgJrRSOe7BjhMHpsCr0tCnvc/D3ddaP5B3uif7jPd7nClf3
jjXjHT6Q4D6ad2/hcP3qMbzDrmmasbyr8B7SUnPe4bZ998bxPk+4bNQrC97h
1JzxlrzPF1ZbKd/nHbYvWjee9wXC+in7rXiHm8oqrHn3ES50bp3AOxxf9WYi
7754D0+ZDe+wZd18Ge9+eA/fuEm8w9X3Dk/mfaFw9rKrtrzD4e0dH/K+SFgR
McSOd9i0286ed3/hjjj/j3iHK/oTHHhfLKxJzvuYd1g9eF3OewDeQ/OLI+/w
gLHxNN4D8R6HpjoZrIQLx6mn8//DyfkpzgZrYZXslAv3S4Sti+tcuYd18mdu
3MPai6NmcA9nK9wU3AcJx9asdOceVqjSZ3IPmzaencU9/CTgjgf3S/EeD3Sz
uYczQi28uIfDOmcpuYflMRFzuFcLS/r2zOUebkko8+YeLtH/qOIeTk77ex73
y4QXSScs4B62yZzrwz2sGxXryz1cn3PQj/tg4QKrSwu5h+OK2hZxDyvtBv25
h83LJwdwv1y4y9k3kHu4qmrTEu7hA57ZQdzDYXXXlnIfIuzk91jNPWzULA3m
Hm5Z5rCce7isPSCE+xXC6RGfreAeDuw+vpJ72HajNpR7WN//NIz7lXiP5BGr
uYcLBp3WcA/Ha4LDuYeVJqkR3IfiPbKKIrmHe8fdXss9XJ3fG8U9nCUbE819
mHBU8YwY7mFXx1Wx3MNGl3at5x7uUJRs4H4V3qPm7qfcw+mqF3Hcw+pGy03c
w7aBnpu5Xy088GBtPPdwc+i+LdzDhZ3nE7iHt8a0JHK/Rtin7/VW7mHLxA8+
5x7u1auSuIe1aRuSuQ/He0izUgy2gaMyL2/j74M9zNq3GxwOG+VKdvD3w0+s
pqQZXAhXFi3cyR6ssduSbvATOKQ89wv2I4TlLtW72IcHqjq/ZB9u9hy+m334
TJ18D/vwVr+gvezDPs1JGezDNsEn9rEP69prM9mPFK6L6NnPPpzXPfIg+3Dc
Rpev2Ic9XoQcYh82S0nLYh/uGjx9mH24UtNwhH34gMnzo+yvFQ7PMs9hH3ay
mJnLPiwtWPM1+3CbbHce+3BJcekx9uFUx+bj7MOBl17lsw/buFudYD9K+GWN
8iT7cJMq+hT7cF7j/kL24fjAC0Xsw6rW1m/Yh83DBk6zD/d0ys6yD1fHLDjH
/jq8R19cMftweOKREvZh19dXv2Uflu58VMo+3CYdWsY+XJFpX84+nGq2+Dz7
sDo38Tv2o4XtrY9VsA/ri2ousA832XVdZB8uLDeuZB+Od5l2mX1YdU19hX3Y
0mvbVfbhnrpTVezHCGv9bl5jH85ufvY9+3BUsFk1+7Ciw+06+7BpZGgN+3BH
d/oP7MMVG89p2Yc1L+7cYD8W75HyZy37sP1bizr2Ycluj5vsw00mkbfYh89k
7b3NPpxsUV7PPuxTcL+Bfdh6kr6R/fXCuuIJTezDWkfvuzqvfwErZCtb
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11X9YzHcAB/ATpUZcLMqS08jJLUk/Tqr7SlT04yT99CMqXQ+b28a6WeOE
RzzMzWLsh4f5lUZPQxMzu/kZa4Q2rfXQNptDzik98nP7vG/37nl6el69v+/P
+3Pf/mjovEWpBU4ymeyC+MbP/79sGplMrui4Z9U4fiHJZPqsKCvtKty1aY2N
liOvv9JOvyqc6+LTSXsJB0nzH9M+yJdWP6EVwtKRp89oP2GjNfYlPUzYotwo
e+Cwv7Au7zcnWiks3/66Mx2A+zW92ZNWCVf3r3WjA4VNyU696SDhirWJfegx
wq5nt8jpYGEv2R/96LHCdeNHedIhwpnFSwbSobjP4R+86TA8b3XzocOFzQFp
vrQa95u/XUGPw/vaZfGjI4TVN4OH0+OFm177cAQdifeXeX4kHYXPX+6hoqPx
/JWcQFqD+/TZG0RLuM9UW7DDRrvLIkKZTxBWnFsVzhw2dL88jnmMhIe8I5nD
1cvyoplPxP1OHJSYw/qnj2OYxwrHq2MmMYcN762PYz5J2Hjk1wTmsLldkch8
Ms4bsyCZOWxZVKNlHidsqvo3lTmsv58wg3m8sFZVnsEcNi64kcU8QXhHpXIm
c7jhzjuzmU/B+xn5fS5z2Kzrmcd8Ks6vmFbA3G7L54XME4Vdlf8UMYfluqCF
zJNwfsXSt5jDkuWMnnky7qfs+y5z2LUoawnzFOGK/buKmcNBd++/z1yL50ep
SxyWYMXC0mV8HlYfrDc6bIYzrQNWsj8N+6PnrmYf9nr76zXsw7pDnWvZh10f
adaznyrcFLruI/bh2uJGE/uw4ZjvJ+zDlme6zexPF26NOvwp+7De+GIb+/DW
U3FfsA8rnTdtZz8N/biWHezDhnX+u9iH9T/r97APG+Xf7WN/hoRDnSvZh+u2
pBxgH5aat1WxD5sG36pmP11YPjfwMPtw125DDfuw7M6po+zDtSr34+xnCFfr
M06wD8tqdp5kH+7qumdmH66NCjvNfiaeLzWeZR82nbt4nn04t5fnRfbhrpQ5
9exn4e+5ef8l9u1u7mhgH44fEn2NfViXX/YL+9nCTfuvXmcfznzg08y+PQ8p
bGEfrlj6zQ32c4S15met7MN6l8l/sQ8bE01/sw9XbGq+zf5MYVvTsLvsz7Tf
d1Eb+3BDwTEr+3DZge4P2Z8lLHUkdbAPKyO2drIPu6748zH7sLxO9ZT92cLq
vsXP2YeN6T++ZB9uu7Ta/n8Zfbi+vbKbw7I5wqsGNDg5LMG5EZ3dHTbCabMH
ObMPa0s1LuznCsfuze/psALOv7jWlefBZdYqN4dz4SP9Gl/h+bAs/Ekvh3fY
z8vxdecebFo+sY/DrXDv3bq+3J8rrKvbIOc+3Pv+IQ/uwyaPpn7ch1VhL/pz
H7Zl+3lyHy5fHjeA+3DJ7oUDuQ8nXvjYi/vz8D6s33pzH87s3zKI+7Bc3c2H
+/Z8lv9g7sPlpVN9uQ+v36cfwn24oX6zgvv289qPD+V+nrBhYKsf9+HWSOdh
3IdD5gUM5z7ctCbFn/uw9uDiEdyH265uU3IfNnadHMl9WPK9FcD9fOGgWDcV
92FLUeAb3IdbNk4P5D5cUWMYzX247vcvg7gPn+l2egz34cYRlmDuw8+T3EO4
X4D7LA4O5T6s/ywjjPtwvbkknPuw9vZONffhMvfz47gPN45ti+C+/bxsj0ju
w/IVYVHcn4+/376caO7DuktGDfdhr849Evdhmc9PE7gPN8TYYrgPHyjyjOU+
XGKKmMR9+97ROZO5XyhsurEqjvtwtXNlPPfhBtXlBO7DPdIeTeE+HPuBdyL3
4a1fRSdxH7ZdyEvmPiw9LEvhvg7vy6tKy33YIF2bxn24rbArlfvw4o2D07gP
q47GzOA+3ONmYTr3YbPLhgzuwyWBhzK5X4TPn349i/uwftnzbJvmPygTGuE=

      "]]}, 
    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11n9UzXccx/GbYdcaYmmX/IiFK8sukkvSRdptad2SXISrKdeIZrE7nbjr
tGnSdMyP/Gg6OKnh1L2i21JureXSWFqzMNxZpy7zI0Pya/Z5tftyTsd5ePf6
Pvve/jE0bnVUfBeJRHJWfOHv//+0BYmvAS6u94Kc/6CSSLz6hfWkpcLZvXf0
pt2E5W/c6EO7Cxd0HeVOy+BXazzogcLFz07JaC/hpsfdPelheN4DzSDaW9h6
Z88QeoSwxtE8lJbj52se4037CKvshhH0u8KKP6rl9BhhW9Obo2mFsOy3GF96
rLD9Yt579Dh8/4XbY+nxwro6Pz/aT7jetsGfniAsqbUpaX9h4499A+iJwsqq
2EBaiV5lfhA9CfuKtmn0ZLxf+eRgOkBYXZYeQk9Bv/SCmg4U1p+UhdFThaUn
4sLpILxvydEIWiWsPd4e6bQR1ptV0bxPE3aYNsfwDieZGrW8T8f7mAYv4B2W
mfQLeZ+B9zGZF/MOa0wvlvAeLJxhClnKO6w1ZyfwPhPvZ76i5x0uPu69gvcQ
4YKSVYm8w5KTltW8v4/nlXZZwztstcxK5l2N9/1h5zreYdkpu4H3UGFFpU8K
77DempzK+wdwdeVG3mHpT9I03sOEc85EpfMOa8/t+4r3WcKq8y0ZvMO6ekUm
7+HCxl/XZ/EOOy7VbOX9Q3weV3pt4x1Ouq7dznsE3ufmgZ28w/KWOzm8a4TV
t/33Oq2C8+4Zc/n9sPzhuf1OW+GcJ+4HuI/Ez/ti0SHuYaNLYT73cHb3hwXc
ww7XwCPcR+Hz6LPpGPew3eNiEfewdaCnmXtYPyy+hPvZ+HnlRSe5hy1jnlq4
h6UTZpRzD2cHZFVwHy2smf77ae5hr9Ch1dzDHRErariH5XNP1HI/R9iw6JWN
e7gtPrSOezgj8dvz3MPqtdd+4T4Gz0sd2cA9rPjyk0bu4eKs8kvcw44d3S5z
PxfP+y7iKvewI3/3Ne7hvKK/bnAP2y2+N7nXCjdVfdbMPayqq2rhHjY0ut7i
HpZdn/M39/OEk1r33+UeLnhw6z73nX4+/h/u4fpuGx5xPx+fv5utnXu4fkDf
p9zDquGxz7mH5Yr8l9wvwO8roO0V97AsZHKX+849LI9M7+q0FbbEXujutCRW
WKmX9XBaBdd/GufKPWzbeLQn97Ajs7039wuF23ap+nIPdxzc7M49bCxu9OAe
VlQM7s/9IuzP6j25hx2XzIO4h72aXwzhvvPeFjKM+8X4/P/N9uYetrteHcE9
nNd/+CjuYcPI1aO51+H5E8p8nfbq9IzXFHwenBQZPs5pHWxdvMuPz4eVq/70
dzoPlqSOnsQe3Ja5NsBpO2zbczqQ/SX4vAt7qNiHpWWzp7MPG2y5wezDbk2t
IezDjtaxoezDlicpYex37l+vDWcfLnjbTcN+HPYj50exD2uUh6LZh9Wh92LY
h3PmKeexDxs/TlvAPqxN+Xkh+3DeFg8d+3BHri6O/Y+wL/p+KfuwrOpRAvuw
o2HqcvbhnOaMFezDlvaGRPZhq3RQEvuwxnPZGvZhg68pmf2l6Kmer2Mf7oia
+Tn7cEH81hT2Yavhcir7sHTLO0b2YeX+xDT2YYu5NJ19WFfrson9ePw+r4R9
zT7ccXdHJvuddrFnsQ9rPXyy2Yf1Psnb2IelQZXb2YeNs6W72IeV+qjd7Cfg
ean79rIPq7a15LIPaw4r8tiHLafWH2AfVjfUHGIfrm/tdZh9WPdSW8h+5/Pf
OniE/WXYj7p7jH3YEDSxmH04Z84XZvZh6cq6EvZhW1q/UvZh7e7FZezD+uLC
cvZh5ZmHFezrVfj/QqCVfdj6eFM1+7BXz4Ya9uFi74Fn2IcNUxLOsg+ro4vr
2IeVK5+dZ7/z+9OD69lfjt6+bxrYhztKmhrvB/0HG682ZQ==
      "]]}, 
    {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10g9Qk2UABvCvhOQMFRMSPSG0kJ0h4h8EFeFD5a84JgpMQ5goMTsTzMzZ
mc7zPId63sgjhxkNOJWRl4AnIZoiag70giQvQqoVaJ6ioQNdCl7vs/Zwx3G/
PXve59s7JuXkp+a+KklSs/jF3/9/+qIlyas5IeRhtOsFWXj0oVDaQ1iV9ttM
2kvY9GVQGO0trPhrUzjtK2xVnJ9LTxQ25L8WSQcIa+pUUfRkYe3QEZl+R7hg
8Z2F9BTh+v3TY2kFnq99Wzw9Fc8z4UoiHSzsmzMqmQ4R7rColXSocOXjchU9
A577MJWeKVy9KzyNniXc17wrg56N+3jjxko6DP1Vb2bSc3AfFZosOlxY6q3S
0BG4n9kDOfRc4cbPonPpefAPhXn0fPS9fl5PR+K+VvpvoBfgfsq1G+ko4dDe
2gI6Gp8/bOgjWhY27ozf4rLe6eaircxj4LFd25jD1tVTtjNfiPs4UbCDOax6
0qBnvgh7ke67mcMFe1P2MF+M+7lZspc57OXXU8g8Fp9XG3KAOex1WneQeRzO
e9lkZA7XJ448xDxe2KM4o5g5XG8rO8w8QVgd3FvCHI7QzTnKPFHY94q+lDms
8LpuZp4kLGf6VDCHzZXZx5gvwf6A5QRzWBfTb2GeLBxwMOokc7ij0/At86XC
jUHt1cxh68d+p5krhW2X8s4wh31H137HPAXfR+bgWeZwmyXuPHOVsPaZ8YLL
MhwQe7uR74fbPg+87HKj07b8q+wvw/OENFxjH3Zsd2thH1ZfV95gH64cX/Ij
+6m4b213G/twY920dvZhg7vuFvuwZkXTL+wvR7/Cs5N9WPUkvYt92BxT9jv7
sFT0wMb+CuECW1g3+7Bjuv4O+7BxZ8vf7MPqVu/77KcJh76V3cs+HJFvecQ+
rLho72MfNoyOsrOfjvvMNgywD6uqbz5jH+6T/J6zD5uX5Q2ynyEsl9e8ZB8O
tb+QHrn6Ti+OG+ZyI6wtNrq7LKlx3t3O4S7LsBQROIJ9WF+Y78k+HHr77Cj2
Vwp3BLuNYR+u3KEcyz5sajP5sO/MJ3ePY3+VjP/naRPYhz2ubZ3IPqwZ3+TP
Pixt8JzE/nu4zwvpb7MPy2PKAtmHvdY9CGIf7qsLm8p+prDvCH0w+3DC6pYQ
9mFdtfcM9uGOYdmz2F8trM6whLEPS9/Yw9mHrS8XzGMfNqUaItnPwvnHb0ax
DxufT4xhH65W5i1iH3aU18Syn437efYinn24Y0lcEvuwzmxMZh+WBzqV7Gvw
vEmBy1wOgB2l+ct5HnzPfjbNZQ0ckOim5vmwtlS5ymUz3GE3ZXIPVid2Z7ls
c+al09Zwfw2+v/6ta7kPa5KacrkPy2ZPLffhhKfpH3Af1ieXbeA+bC1/sJH7
sOLfsE3ch00p+s3czxEOPd6yhftw26C3jvtw5fLsT7kPG6ss27kP617p38F9
2KSO2sV92HbKsJv7cMTw9j3cXytcn+Vn4D4s1+Xt4z7sGFl7gPtwde7gQe7D
hu/jirgPG32KDnHf6Q9vF3Mftl4NNHF/nbCvf8ER7sPaTxqOch+WWt2+5j5s
Dkop4z6coC+p4D6s+LX7GPfhgJkhldyHI/brqrifK6zpaTrJfdi0YOQp7sMe
hzNquA9r+8pOcx92JPae4T7cVjGnnvuwbkjfwH1YnXH9PPffx3k1Phe5Dxtf
11ziPmzNrbrMfdhxsf8q9+GCCdFW7sMeWwpbuA/Xt7bf4D6smurfyv083Nce
7U/chz1ste3cd+bzh25xH1Z9Ed/Bfdj0uKiT+87+0q4u7sO6yil/cN+Zu236
k/taPF/2uW7uw+pz7ne5D8vjVPe4D2s2H7nPfVjV2tPLfdj07vR/uA/b9m57
zH3n+3su27m/XrhPHvWU+7D6K7XjUfR/PeY0Aw==
      "]]}, 
    {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11XtQFHUAB/DVzAdpbKJkinogPnBQD05FAbklFBUhT5RAeXTKQ8mUyySd
GG19oGY+QE1DLW/yMeSrozQfg+OGGVCGlyK+YWEUGs280VKcSNvvtl9nHOfj
d7+/7+6PP/Cfk5eY3V4QhGrtL/79/4/HKgjyjaXiFavxH5IgiLfadac7a5Zv
r/ehRc2Oep+edA/N7vrdvnQvzUrDwF60H55Xj75Bm3CeGtaHDtBsVhU/OlCz
2jC5Hz1Ic1HDpf70EJxfn+pPD9Vsv30ngA7W7Lq1IJAejvzGk4G0WbPn2seD
6RC8f13nIDoUe7XFQ2mLZuFS72B6pGbTxb3D6FH4vgvBI+jRuL/q42Y6DN93
PiqUHoO9Hyot9Fh87xnbKDoc93Pq+mg6AucdnzOGjsS+6/5Yehze99DiCDpK
s3Tg30jaiu91romiJfR3eUuGZVj47PNo5tF4fpN/DHNYXXdwPPM38T4rLbHM
YamgfCLzGOSLJ0xmDgsLauKYj9fszE6OZw670tUE5hM025NypzKHhYRHNuax
eJ/xBYnMYVNkhxnMJ+K+LRuTmMNKkG8y80k4z7QnhTks+w6ZxXwyzutWlsoc
drYPT2ceh/t5WpHBHLY/mGJnPgVuqp3NHPZcTc9kHo/7udCcxRyWlLwc5gma
Hcda5zKHldIVuczfQr7baz5zuGjz1veYT8V5q/wWMoeFD/fnMbfhvHnD3zcs
wXLqiUV8HvYkSIsNK7DTWp3P/jQ4JHEJ+7BjwM2l7MNqj6yP2Ic9Lz8oYD9R
s/tJ/jL2Yanl+XL2YeXqWpl92FwlrmR/Ou73ZMkq9mGhNKCQfVjZcWgN+3q+
duQ69mfgvvLPfMI+7MqK/ZR9WJp+cQP7sBKdson9JPz8zI2b2Yc9fd8tZh92
v/J4C/uw8KxgG/tv4/2bO2xnHzZd3riDfd2Kbwn7sHJ4z072k3EfJUN2sw+L
hWVfsA97HOF72IfltHNO9lPw/ZPiv2Iftluu7GUfdvXL2M8+bOrScoD9mXif
x3ml7MNifevX7MOeyhWH2Ndd5nWE/VmaHbu2HmUfFgr9XOzrXri/jH1YTB7+
Hfup+B7riWPsw9ovhe/Zh21i9Qn2YaV12in207Cv3jjNPixWZZazD9u/+eMM
+7Bre/5Z9tNxf8ueK+zDUtbaCvZhJU78kX1YDCk5z36GZqdvQCX7sKftYBX7
sKvJ8jP7el5Z/gv77+B7j0z4lX1YLa6pYR8WlyS72Ycdqepv7Nvx/tbcy4ZN
sHPAo1qeB8udCuoM22H13kvXeD4s1my4btgJu8t63uSeft62L28ZVmFlyeB6
7s+GZ7oauA+bIsc2ch9W+1Y0cV/3i7g73IddjZfvch/2VKS1cB+277v7O/dh
R+HCe9yfg/vLeXqf+7AcKz/gPqwO6vKQ+7o7bvFwHxZbej/iPuz8ae9j7uv5
geC/uQ/bC48/4X4m3j8rqpX7sBRT+Yz7sDnA9g/3YVG43sZ9uKh+9nPuw47y
ey+4Dzt3ftCuztjP1O+/rb1hIQvvk1TYwbAJNoW+2tGwBNu8d3QybIeL7vfv
YliGzVWlXoad+nn7QroaVvS+fLob9/Xn02K8uZ+N9wm7IHIflnySunNfz/+8
7cN92Fyd05P7sG3fQ1/u688vX9qL+7A7pV1v7sMmy/o+3M9B3tWnL/dhZ/Ou
ftyHJSXQxH3YUXLEn/uwbdHoAdyHi6acDeS+3g+cNIj7sKnNPZj7c7FXOzOI
+7B8uGko92HH6vnB3Ic9qX8N4z5stiwbwX3Y7dUxhPv6+Y2bQrmvP3/y9ZHc
nwdvdo7iPlyUHRTGfdgW8e0Y7ut+LSKc+7DSfC6C+7rL48dxH5aLr0RxH3bl
ZEjcz8VeREs092Gz6Iips/4Hr3YVKQ==
      "]]}, 
    {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10Q9UTXcAB/Br/hyZU6/GdND2UpIhr0TkT1f+JukVSf7epaxscYUxM97I
/+ExY/7NU2ESXvlfenuNyb94ntosf84zjkSrl820Gdv9Xu/bOU7n43u/9/u7
v3yTZ8enviUIwiXlH36/+XFGCIK8wjunIsL1H6IgGAJMuXRLxdayLvtpjWJT
2tEDdBvFslvYQdobz+dZ8uiOim3Rw/NpLVxbfpjupNi4PuEo7Y/9oLtmOkCx
41pKIR2Ivdm1x+gPFDs95p2guyuWzC9P0kGKhbjlp2mdYnNDqyI6GO/ftLmY
DlGsCWlfQvfC+ex7LXQozpfZ1Ur3Rt+roJTuAxf2PUeH4XvjrefpvsifjbhA
98N5Nl8vo8PxfSGJl+j+irX2e5fpAfiezBlX6YE4j2ddOT0I5y+Yf52OwP3o
X9loUbHOmWV32QBLG1tXMB+M8wVtqWQOS9c6/MI8EufNyLnFHLa17lbFfAj6
hwpvM4eto8LvMh+K89SU3mMOO1ZHOZgPw/kDb9xnDtsuTHjAfDj2Ux0PmcOa
ZmmPmI9Anl1fzRzWD15Qw3wk7tPx+glzWL9kZS3zKNy/j3sdc9hQ/E0981Fw
kk8Dc1jXmPuMeTTua2v3P5nDhtDjz5mPxvvt/V8wh43yuUbmMei7R//DHJbz
7S+Zj8H5R018xRyWHt9/zTxWsbAyXah05bDBr6GJy4IeLl3Y1GURdk4VmvN5
2PTvqhYuW9Xnd3i0ZD8Of68+29zYh20V773NPixl7m/NPmz0CHJnPx5/n/wT
HuzDzqiBnuzDQvV5L/ZhXdboNuyPxb62oi37sLNkUjv2YWHSA2/2VTfObM/+
OJxny7MO7MO64EU+7MPW8ibvsw/LM9do2U/A97bw7MQ+bMz51o99WCNqO7MP
O+4cCGB/PLywZyD7sND2VFf2YblgUDf2YUPMhe7sJyKviQliHzavqOzJPmz0
nRLMPmwteRjC/gTFpqRPQtmHrc//6M0+rN/0eRj7sKZH037sJ+G+L64NZx+W
UrwGsK/m/20fyD5s2ukbwf5EfG/YQZF9WLbrItmHHRmnh7APi27iMPYnYS+3
bDj7qiNiR7IPO6t+jmIfts2fGs3+ZHyP56PR7KvOzxjDvuoRz2PZV/3b4jj2
p+B9i5uNZR/WeH81jn1YLnxnPPuwELMzkf2puO/qTknsw+KyvInsw7aOIZPZ
h3Wnzkxhf5pic9zgaezDutqLEvuwfqU+mX3YqL01nX0J91M0LdVlLaxPqJ7B
98Fi/aw0lyU1X/NXOt8P6/yWfOyyCZZLmmdwD9Ykrp/lskPtN7SRuf8h+ut2
zeE+bPL3n8t9WG85NI/7sDCh16fcV/OGogXch7XrIj/jPmzzv7yI+7BoiVvM
/WT0E3/9gvuw2Skt5T6sWfvYwH3Y4Ccv4z5sPftiOfdhR8LSFdxXXddiFfdh
YfWG1dyfju/3fXct92HTmd3ruA9b4zuv5z5sfpq/gfuwnBVq5L5qn7ObuA/r
Tw75mvuwbcyVLdxPwX51/Fbuw46lVdu4D2u8k7dzHzaYa3ZwH5aj5uziPmy8
37ib+7CwyLCH+7Do1XIv91Px/ryN2dyH5ch2udyHzVXf7eM+bMoMOMB91a2O
fM991dm987gPG8NLDnEfFu1DD3N/Br43/eoR7sPWJuPM3Idt228XcB+Wgqcf
4z4sXnpynPtqX8o8yX1Y0/j3Ke7Dxo1fnuH+R7ifLm7F3Icli/Es92FzgreF
+7D29z0/cB/WZXUp5T5s7XD0R+7DcmGf89xX3x9l+Yn7aXjeMayM+7BpQflF
7sMG94TL3If1++5c4T6sHZBSzn3VN59e4z7sTJ9r4z4sCi9vcD8dz29bdpP7
sKNHq8rKiP8BGJwi1Q==
      "]]}, 
    {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10QtQFHUABvDVLGU0Ow1MU28W0AsRz5N4KA9ZAkEU8SQMRMEVQaJSTvFB
WLZqoqXhmZqOL47UwMnscLTMV6dlPsHzgTj4OtPxEY6eGqNJOu237ccMw/z4
/t9++/DPK04vaCsIwnH1F3////HGCYLVP773+Tj9H5Ig2OWjRrqDakflKJE2
qBavnfOnfVU7jdmBdHf0cz196F6qbZummGgRvnrvLToA540l/eg+qoWJ/wTT
JtXWys9C6CDse14208GqPeKygXQI+nldB9Fm1a5v14bSFtXSTWMYPUi10ndr
OB2K6xf2j6TfxvVragfTYXgff0VG0eHIQw5G0xHwtMRYOlK1pfbEUHow+o+t
Ej1EtRzRGE9HoV+ak0BH4/723UikY/A8L4qS6Ficj/cm00NxvUWzU+g45Mf+
HUFLyDstTNWtwJLVJ415vGrDquWjmcPiRb8xzN/B8/TakM4cdskBGcwTcH5r
zVjmsOeuOZN5ImzencUcdpREZzMfhuvtOTSeOSy8SM5hnqTamlCfyxz2LsmQ
mSerttc3TWIOK76TJjMfrtqWfTufOWx3TJ3CPAX3d+txIXNYHFBWxHwE9kqE
D5nDtr3lHzEfiftr8+o05rBl+Mpi5qm4n+U9pjOHXRcqZzAfhT2jaSZz2Fmw
fRbzNFz/h9A5zGFLy55S5qNx/di4MuaaFx2Zy9yK91038lPdEuzxOzuP52F7
bpai2wXL1Vfnsz8G9uYvZB+WhjR/zj7sWDC9nH3Yc/LJYvbT8Xx+875gH3bm
tlvKPmyr+XIZ+7DlkaGC/XeRx6xZzj7sLO+9gn3Y6978NfuwtWfwKvYzcD8F
ztXsw4ozYg37sNy6fy37sCUpYR37Y7G34vh69mHP5dEb2YetQRc2sQ97SyY4
2H9PtevXP6vYh+0dizazDyuZD7awDzs2z/qO/Uz0H7RWsw8rMQu2sQ+7l3T4
nn0tb6jYzn4W9gL8drAP24rX/8g+7NzvX8s+7PGp2cn+OHy/TPMu9mH3ll27
2YflR1E/s6+dlw7tYT9btVSRvJd92Ha5bh/7sCs44wD7mkubDrI/Hs9zVHax
D0vdbh9iHxYKpv7GPmzY9fh39ifge7Qt+4N9WEwXjrEPO6rKj7MPGx52Osl+
DnJp5Sn2Ybu9Rz37sOKpPM0+LFlMZ9jPxftStp9lX7M79Dz7sOL/SwP7sDAj
rpH9iTh/+MhF9mHH66lN7MPO/LOX2NfO7866wr6M521/7apuEfZmFXh4Pdiz
rfm6bhl2t06/wevDyqinN3U7YGvlvFvc0/KH7e7o9sBC4tK73J+k2vZNl2bu
w547a+5xH1aijfe5r52v2PKA+7B0Pfgh9zWH1T7ivnZ+ceTf3IddTQdauJ+n
WjYnPuE+LCw48ZT7sLPB+oz7sKNfYyv3NX+a85z7ms/ceMF92Nv3A6FB39fy
Mm8b3cJkPG/97Jd0i7Az8Hk73RLsKF34im4ZttT5dNCtwPYAu49uh9af062j
bhdsqNvQiftaHhDYmfv5+F6l217jPizUD+zCfdgd+FNX7sPej2N8uQ8b3If9
uA/LppQ3uK+d/+R0d+7DlnNj3+R+Ab5X8OWe3IcN8/N6cx92N94xch/2motF
7sNyeYs/92HnlbmB3IfF8LZ9ua/1ly0xcX+KatvNzkHch+WY1f24r3lVz/7c
h133qkK4D3sTg8zch8WNOwZyXzvfEjaI+7AjbV8o9wvx/qvjw7gPS8KxcO7D
8ri0SO7Dzp3nB3Mf9nQcH8V92F5wPZr7sPdgYSz3tfPd7w/l/vs4P2OmxH1Y
OfUsnvuwyzQ/gfuwV2k/jPuweOmrJO7Dhgjf4dyHHfZ1KdyH5WZxJPeL8LxJ
1anch8WqAWkNcf8BiHkXuw==
      "]]}, 
    {RGBColor[1, 0.75, 0], PointSize[0.004583333333333334], AbsoluteThickness[
     1.6], PointBox[CompressedData["
1:eJw10QtUzXcAB/C/x2xMpys6mkzXq6VJd8ijxr0SJsWV8qjFP48otv5jjFDX
O0r3ThQJ17wfZ8Vp2mkHf5PXcrjI5uR1nbGsY/NntE429v/+dr9OTufT9//9
ff/3d7tOz4ib1VySpEv6f/z+/59mliTT8LTMG2bPHyz6z/I/l9Lv6HZXLFhO
G3S7njdm0R10l4Vk2Wg/3XJai5V0Z5y3L2cVbYQfeK2hu+mWuhSspXvgvES/
HDoQLtqxng7SrdV0y6WDcV77g3l0b7yvNSSf7qPbZj9up03wlYFf0x+h73Vy
E90X/ZjIzXQ/3da8C1vo/rrVyzFFdJhuk9f1rfQAvF/spGJ6IHL7ne30IN1G
V8oOejByn7qddLhuQ/w8Jx2BvcJnu+mPcf6tRXvoIfg8nf/ZSw+Fp63YT5vx
/ntaHaQt+Lx1uYc8tsGOD9sdYT4M+0rhUeawVu7/LfNI3XKTs5Q5LFkCjzEf
rtu15shx5rB02VTOPAp7Pie+Yw6bpkRUMB+h2+lUv2cOu+tGVDIfifsIrf6B
OWxZbD3JfBRy9eYp5rCtdZLK/BM4zn2GOSyVzDrLfDT2H9VXMYctocp55tG4
n8yXF5jDZVWZl5iPQd9bqmYOlyWuucw8Bvezv80V5rD83H6VeSzuw+x7jTms
5BZfZz4W93croIY5rPbcd5P5OLzvguBfmMPGM6W3mFt1W73Daj22wGpy5W0+
D8tHzXc9VmHlVdU99sfjvsZEu9mHrcVXH7APy/Xxv7IPq+G1D9mPw/3kTvuN
fdhx52Ed+yIPSf+dfdiS/bSe/Qk4/9qXT9iH1e5Nf7APuxZmP2Vf+GLLZ+zH
Y89/w3P2YWuG9wv2YcPZzS/ZF+7Y6W/2E7A/d1cj+7B2ukcT+7DF9/Ar9sXz
6aH/sj8R56nlr9mHy3zDpRpPX+TzTjfzWIXlH6NaeCxNgt/7qaXHFtiljGvF
Pmy8WPM2+7AWkNia/cm63V/db8M+bHTNbMs+XBZU78W+yFdmeLM/BfdX+8LA
Piz3z/RhXzj/TXv2Yefj1b7sJ+L7imzTkX3YtcPux75wY4dO7MNSfLE/+0n4
PKUB77MPO97d14V92DAn2Mg+rFSVdmX/U922rmHd2YdNWZU92IfV2+ZA9mH3
4HMfsJ+M/aLoXuzDUsPVYPZhU0JCb/Zha3ltCPtT8T7t5VD2YW3+IxP7sO16
el/2YWs/rR/70/B9FCwMYx+WXjQNYB/W4m2D2IctJ94KZ1/G9+OXG+GxEXYv
MQzhebD1zpahHsuwZPa38HzYsds5zGMnrLYMHM49Wdz/kSiP3eL8atNI7qfo
Lgs9MYr7sGVzxGjuw65GNZr7sC15ZAz3xfNnq2O5DytB48dxX+T5P1u5nyLu
JymO+9PxfOKDCdyH5TOpCdyHTUFPJnIfttm/mMx92N3QMIX7Ip+6LIn7sOt8
s2Tui/NC103l/gz0i9rK3IdlaVMK92FjescZ3IetN0pmcl88P6RbKvdh24ED
s7kv+j4hadyHncuOp3N/Jp6vGziP+7A04eRn3IeVU5EZ3IedwRcV7gsXxs7n
Pqw2v7GA++L8jMkLuS/Ov3t3Efdn4fuJnrGY+7Cj4vES7sNyz8+Xch9WCv5a
xn3Y2HxJFvdhTXmdzX3Ydn/VCu7D7rGtV3E/FXun8ldzH1b6dFjLfdi5c9s6
7sMm74D13Ie17L0buC/6Wq887sPG6aUbuZ8qvr/+du7PxucbUengPuysMG/i
Pqz1OlfAfdhaEr2F+8LerkLuw+rKhK3chy0Ntdu4L85Lk7dzf45uw71HJdyH
lbi5O7kv8gvaLu7DjohFu7kPG4+9+ob7Ig9csZf7sK2k1X7uC/vkHeB+Gt43
p90h7sOON4WHa8z/ASWLF/k=
      "]]}, 
    {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10QtUzXcAB/A/tmJ5XI9ZHI8rkdfhRiILf9coUm5pHiXd0k3kcZMlI/uj
jkRcLmaxuZ7Rw+7qeGSb7sg8NxdNHeH8x2ayWXeWw/Fq/+9/99s5nc6n7+/7
+/7/9/ZKXBJlai4IwiXlF3///3GNFQTHobD4m5Xuf4iKC6uNdEvFriNxibRG
sbbo4Vy6k2JN8RIT7a3YWPwime6mWC5ek0JrFetK3ltA++D+Ymsq7atYKOm2
iO6rWCw+tJjuh/uLBpvpATh/9GQaPUixvVBMpwcrth2+tIzWwQejMmh/PP/+
uuX0UDyfLWkFPUyx4csnn9IBeN6CjFX0cHweu5qy6EC87/bcz+gReP6t7dfQ
I3FffsFaOgje0DubHoX7ckpy6A9xnzR8PR2M9111JpcejfuXh+TRYxQ70pwb
6bGKLQtn5dMi7ku+v9ltCRYTUi3Mx+H9Yxu3Moel6Cwrcz3uD/fYwRwWQ7bs
ZD4ezy9672IO20bu+4L5R4qdugG7mcOa/uV7mE/Afq/gr5jDsvf5vcwnwu0i
9jGHRc+a/cxDsPc2/iBz2Pzs0SHmodj/M62QOSzdf3mE+SQ8T+26Iuaw+efW
JcwnY//cjlLmsKaix9fMw3DfsUI7c1h3QFfGfAr2P68oZw4Lm/THmYfj+aUr
J5jDmmXRp5hHKDam3K1gDltik79lPhX9iIbvmMMGfeYZ5gZ8PwHNHG6LsM4v
7weehy1dOp5z2wHbvPZUsR+J+974/sg+rGkovcA+LMmBl9iHbdcrL7Mfhe/r
bOhV9mFt+fWf2IdtB2Kusa/a+sDJ/jR8fusW3mAfltKf3WQfNs9d/Qv7sC3K
s4b9aMWucZZa9mFJ1+U2+7C9x/469mFjm4F32f8YflV+j33YWR8ssw9ras7/
yj5sr4p4wP50xfI3Nb+xD4t7jQ/Zh4VN9X+wD0uZS+vZn4H7Ta8es686Mvsv
9mF7cJu/2YfN/XY2sD9TsaNjz3/YhzVNhU/ZV/N6XSP7sKu64hn7sxQbKvXP
2YcdR6+8YB+2W6Nfsg9bsu6+Yj8G55OT37APGwwNb9mH7UGZQrW7D0s+zZq7
LcTCXnkt3BZhQ2OHd92WYPOd3R7sq3mVb0v2Z+N9S0pbsQ+7rIFe7MPCysrW
7MPaxNC27Mcp1k263o592DEkpj37sKXzgw7sq/nr1E7sz0F+v/F99mHpYtYH
7MO6Yx5d2IdF65au7McrtmV6d2Mftsft684+LOoH9GQflvuWa9k3ou8V7OO2
FtY0VPXmfbB4M7yP20bYfuJWX96vni+I7+e2DTZkPerPPTU3pg10W4Zl/ctB
3E/A+T7rBnMfdnq21nEfluu3+3Mftl3pPoz7ar/0cAD31fObhwRyHxbMp0Zw
H9ZEjgvifiLu8788ivuw2GFaMPdhzb91o7kP228kjeW+er7sich92LItQ899
2JnWNJ776vnI3Ancn4vn07UP4T7saFsQyn1YfOIzmfvq+avFYdyHNUUB4dxX
nft9BPdh2TTRwH31vvHXIrmfhPt6zZzGfVh+I0dzH7bcnj+d+7Dh5NMZ3FfP
W1fO4j5sNL8Ty331/in5s7kP2/w6z+G+Cedb7I3nPizf80vgPqw9bU/kPuzc
HpTEfdi25KyJ+7B9ctg87qv2rU7hvuq3sxdwPxmfd+3vqdyHpbLFi7gPyxuf
L+Y+rDFJZu7D9jGtlnIftnTels599byr6yfchw0XD2Rwfx6+D9ugTO7DQubx
FdxXc8OYldyHnX4XVnEf1jZNXc192Hyr9jPuw66ShDXcV89nP17L/RR8/jHp
2dyHHbrXOdxX7ZGznvuw+U6bDdxXXbYzj/uwvL7nJu7Dhrgj+dxX94b6b+H+
fPQ9T1u4D7vq9NuqK/8DysZ83g==
      "]]}, 
    {RGBColor[0.571589, 0.586483, 0.], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10AtQFHUABvBV0UNNvErwBXYIogHVgRoPQxdf+Oo4TUQQcBUkQNPDfICa
s2qKjg5c5qUV6E2ok4/Rw8rAyVgzQ8fEU0GzcLgiTdHJQy0V09pv248Zhvnx
7ff/dv/BcxdNm9dREIQz6i/+/v/jHSUItnfkR5dq9X+IguDcYGinfVV7dpU+
oY2qhRr/p3Qv+GL5M7qPavF2iNCgO1C1zedAB9qkWgmK7kQPVC3F1PjQodi3
il3oMNXe/DoDPUS1e52lKx2u2lrR2I2OxPlHM56jX4XdLT1os2p7a0FPOgp7
PveMdLRq44DiF+ihcKzQix6G95la4k8Px/cu8OtNv47zNzj60DF4X2dgPzoW
93mssj8dBzeEB9HxquW7VQPoEapdXeNM9BvIQ5VgOgHnj0wKoUciT6sPpUfh
fpakhNEivqesabBuGfbuy36ZeSLu4/vWcOawvbkwkvlo1bb2R68wh63+8mvM
x8BmQxRz2Dm5NJr5WLxvrv8w5rBpbflw5uNwfkVIDHNYrt4fy3w8nm+IimcO
O+9Wj2CepFrqLiYw1xxWN5L5BNx3okVkrjmzMZH5RDxfnDGGOaw4WsYyn4T7
qCoYzxyWzrUlMZ+s2nyraCJzWO4sTGY+RbUYXDKFOWxL8LMwfxP3k+ZIZg4r
SwOnMrdgf2vlNOawdCh8OvNk1cazVSnMYeWP2FTmVjzvo8zULcJ2U1I6n4fl
hPpZuhXYlJ6Syf5U3Neypiz2YeXDbIl92OVqncM+bDtXmM3+NNxP66Mc9mGr
Qc5lH7aFGvLYh+XE0nz238L9ZPnPZx82rSpfwD4sfxyykH3t+aP7F7E/Hd/b
EFXIPqy0VS9mH5Z6ikvYh92RdUvZT8H5kyzL2YfNeY1F7MOu9Rkr2Neer2xZ
yf4MfN+JgvfYh+XmttXsw6anRTL7sLW/sJb9VORxJevYh5VUv/Xsw8Iyxwb2
tee3BW5kfybOO1K5iX3N7vDN7MPi3aot7MP2HnGl7KfhvEiljH1YmpT0Afuw
Ob9+K/uwuyRlG/vpeH5vk4N9WDyVvZ192NvSuoN92NVx8Sfsz8L3Bj/+lH3Y
JcoV7GuebdjFPuxZXepkPwP3s9P/M/Zh6/HySvZhZ1PIHvY1P9m/l/1M1cb+
0Z+zD0vxNfvYhz1p4gH2YWtx3UH2s/D+OyyH2Ied1Y2H2YflnzKq2IfdD1uO
sD9bta33/C/Zh+0x975iH3alFn/NPmxaLtSwL+H7t5cc022CvUf9vuF5sO2K
47huSfPDwFqeD5v77FZ0O7XzYiO+4552XuqRk7o9sLUo7hT35+D9dig/cB82
1ySd5j7svFp/hvuwrT3lLPdhb79rP3Iflkfk1HNfez7j9nnuw55Viy9wfy7u
q+LxRe7D8rdyA/e1vNlwmftaLpRd4T7sCg64yn3YOrriZ+7D7uzQJu7DtvcP
XON+Nvp7opu5D5vqajzch8Wb4m/ch4Vup1u4r+URyde5DytTLt/gPmxcmHmT
+7C77Pdb3M/B+1bNv8192Hzp3h3uw/KD4j+5D9sCOni5rz0fu7GN+5rTe97n
Puxd+dED7sOuiqC/uT8Prt39kPuaf414zH3Y0+mLdu7DxrD4f7gPSxNOPOU+
bC2Y8C/3YWXLeaFR39eePzyjo24hF/mFa510m2Djg5zOusVc7XvvdNEtwULc
u766Za0/q72rbicsrl7TXbcC252+Pbiv+WSZH/ffxvveCDByH1Z8dz7Pfdgb
MehF7sNuy8Fe3NfywqEB3IcFx7He3NdcndiX+7D5l9P9uJ+H932WHMh92BZ8
JYj7sHFc1kvch615103ch+2bFwzkPuw+dD+E+1r/4opB3IelvzoM5n4+9vpu
GsJ92JhgDG+s/Q+Ev3Kt
      "]]}, 
    {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10Q9UTXcAB/C7lD8ZPUJR462hhHb9KeRPV0QL7UWLWs2Tomzj+pfN0bz5
uwx7Gxkb9lCTnHKbTh1k3cMiGudZ/pxZq3fYcDCezeFV/ux+r/ftnOp8+r7v
7/u7tzfTF03P9BAE4Zz2jd+vvpxR2g/bC9vlavcfJEEw5a3bT7fXbF3iXUAb
NEup1kK6m2bjpB4HaX/k4u4iOlCz0iuomDZqdnoWHaaD4IeDS+i+8PWjpXR/
zeKZUQodolktqy6jQzWb98QcpQfBeXXldJhmeXlCBS0in3Otkh6C8+PTjtFD
8fyjbx6nh8Eh2VX0cM227g9P0uGa7R7Lq+kI2Nmi0iPw+UbLKXok7v9r21/o
UXhfJzbX0JHID3U9S4/GfXfurKXHwBt7n6fHYi+noI4eh3xe6AU6SrOQpFyk
Jc2OmAi72xbYEFF1ifl4PG//6HrmsOBXe5l5tGalXfxV5rDqqr/GfAL6d5N/
Zw7LfzRdZz4R97uQ2cAcFqvv/ck8Bi5b3MQcth146mA+SbMzP/cGc1jMa/MX
88m476q8v5nDpkU+t5nH4rz0/DvMYWNSwF3m7+C8uH33mMPSuOB/mMfheYaW
PGAOi8HDnMyn4P8RcOwRc92GqP+YT8X796p5zBw2t8Y9YT4N93lkf8octt9K
amYeDzc0tDCHhfr0Z8zfxf3O3XnOHJbUhS+Zm3B+5WPhyitLsFS60sNtC2wt
FDzdVvXP79ng5baQgPtvf70d+7B98zft2YeF9f7e7MNy7t6O7E9HntO3E/uw
Y2FxZ/ZhQ5ZoYF/PzRVd2J+hWUkZ48s+bE481Y192BQf24N93bEX/dhPRD86
sSf7sDD2ei/2YccIcyD7sDr01hvsv4f7hX3Uh31YHvCvkX1Y6PdJEPuwzfji
LfaT8H4D1/VjH1b8vYPZh03drSHsw44uPULZn4nzfXYPZB9WOwYNZh8WOxSF
sQ9b24aJ7M/SLHmWD2EfNnpEDmNft6AOZx+WX8REsJ+M539eN4J92N6aMIp9
WGm5Fsm+7ua0Meyn4Pzmm2PZhxVXdhT7sOh6KLEPy67l0ey/r9niap3APmxo
/jyGfdja3G4y+/rnW7bEsp+K81t949iHzc92TWEfdjzvM4192PqyMJ79NPRf
G2RiH5bb/JTAPmzxGjmDfVho/3Mi+x/geb0nJrEPy53Oz2QfthpMyezDdt+r
KezPxr5fair7sBBwI4192NY7azb7sBL0wMy+WbOz/7J0t42wMrBlLs+DBdGS
6bZZd3jb+TwfNkZuznLbBotRXRdwD1Yn7vzQbQdsjev9Mffn4HlNBQu5rzsp
VOY+7EhVFnMfluZGLOU+7MyuWsZ93XJ0Dvf1/oraFdyHzavjP+V+Ou6z4fJK
7sPi1pRV3IelHY5c7uveO28192H1x/sW7sPCkSVruK/nla613Nf31M/Wc38u
3vc5z43ch4X6TV9wH7Y0GDZxHzbf2vEl92HJGbiF+7DYsn8r92HZc4CV+7Cz
85GvuZ+B+/UM38Z92NT3xHbuw7a3x+/gPmyPPPst92Fx0rRd3NfPS6j/jvuw
kpa8m/uwsKBpD/czcf+czB+4D5vW3LNxHxa+Wryf+7Dz+6cHuK/nh3ILuQ+L
FW0Och+WT+cVcV/fu+RTzP15OK8x/zD3Ycf9gBLuw4bWfaXchy0dQhTuw0b/
0jLuw2Lw8KPc188LP17OfT2PkSq4Px//z8QzldyHDRlTj3EfVpf+dpz7sGXt
rCruw8q2xpPc1/sFGdXc1/vld1Xuw6Ya+RT3s3Cfq09Oc1/37VU13IcVl8dZ
7sMG77xa7sO2AJ/z3Ictg/PruK/nUQEXuA87E/Zd5H423l9GsJ37sCOn5NKV
6v8B6kd4RQ==
      "]]}, 
    {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
     0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11XtQFHUAB/D1QTqYeoyK5ui4oKgJ2vrA84G4gm8F10fAKeLJ21Q409GB
MC8VyahmIbNRZLwcOHxkc4jhY1TO1BE1DEXJzMcWEwMYdSliOTq03+2+zjDO
h+9+f9/f7f1BQGLmkpTOgiBc03/w////PNMFQR21IeZulfcXsiC4D7fH0t11
W0fkWGiTbsXZaQXdV7cYlBdPD9DtKnkzgR6kWxpWuIoWdcsl/VfTgbrVYcWJ
9DDdptLAZHo4zgs6nEKP1K05R6fRo3DfERXpdAjue2TSe/QY3Y7gC2tpCfnx
yPX0WNxfupZBj8PeiWgbPV63EHpnAz0B+WnLRjoU9w17vImeiPtUJW+mzejP
bNlCT8JedWYWPRnvY+HzbHoKnr+VnUNPxfuLET6kw9D/JXcbPQ1e3eMjOhzv
p1HdTk/Hfdf576RlnPesKNdrO6xlBeQxn4HnhbKPmcNaXsgnzCN0K71P5DOH
tb3mz5hH4n0MOf85c1gui1CZz8T7eae6gDlsOx31BfNZ+Dwz6vYwh+3X4/Yy
n43zlj36ijnseZi0j/kc9NOb9zOH5acZB5jPxX1z2oqZw45u2QeZz4MLOxzM
YW1w7iHm85Ef8S1hDquhainzBfDFfmXMYSm66DDzhfj898WjzGFXmvMY8yh8
nrbg48xh2/byb5lHI+9tdjE3XHyunPkivP+QiArmsHz26knmCr6/eVGVXsuw
dO/2KT4Pq2lxZ7x2w1r7w7PsL8bn35V0jn1Y8W8+zz7scWZUsW/k5jY3+0uw
V531PfuwbOm4xD6stuy8wj5syvG9yv5SvL+eajX7sOzod519WBpXdIN9uPay
WMP+Mtw/1nmTfcMtwbXsw+6t5bfYh+1+5jr238X3UXruDvuwMjminn3YVXP1
J/ZhNTHqZ/ZjcN8Xt++zD3vy4x6wD6sBjx6yb+SVSY/Zj8Xni2rW2DfckPEb
+7A9q62BfdjdO/t39uPwPpwdjezDYnhuE/uw7a5vC/tGvl59wr4F9+vq38o+
LBYX/ck+rIQGeNiHtRrn3+wvh1NDnrEPezrK29iHxX3mdvZh97jzL9hfgfv/
EPEv+7Ajtfol+7DcKfoV+0ZeVPea/Xi8n4mWDvZh161HQr23Dwvrkzt77YbV
7i1dvBZW4vySTB+vZdguP3+DfVh7kN2dfdiWJfiyn4C+/64e7MNSRY+e7MNW
paAX+7Cj1d/E/iqcn3/Aj31YHBXYh33D1WV92YfV1NH+7FtxX5+K/l6LsFoy
6S2eB3siLwz02grLDZGDeD4s7Lg22GuH8XzgoiHcg02X7ohea0aetDyQ+6ux
31Ubyn1YLU0J4j5cO/vJcO7DpibbSO7Dyu72t7kPO4JzgrlvPH+z02juG3u2
vDHcT8T9+/SUuA9r3xWO5T5stQwYz33Dr4oncB+WHEMncj/ReF9HzNw3zm8a
M5n7sPLpySncT8KeNCWM+7D+x2Ya92HbB7Omcx+WxRsy943+FSWC+7C6tj6S
+7DLL34W9+HaU7/O5n4y7pOQNpf7sMmndR73YfGb9xdwH5aW/rOQ+3Dty63R
3Ieth7oo3Deen797Mfdh9WmvpdxP0e3ev2cZ92ElcmAM92Hpj4Ox3IflL4Ms
3Icd4ceWcx82NUnx3IfFwsqV3DfOCwtbxf1U3fbGi1buw2LBnETuw66pNUnc
hx2NS1K4D7sL7qVy3zhvWkI6943zmhvWcB/W9qxZy/003HfGX+u4D1tbN2Vw
3/D+l5ncN56fY9/AfcNtPhu5D4tf52/iPiws8tvMfeP513u3cD8d39/RQVnc
h02WQ9nch23dRuZwHxYqj2/lPiynjN/GfVjse8bOfeP8S+HbuQ8rGy/v4P4a
nDd0fi73YWvdj7vqq/4DbpB2eQ==
      "]]}, 
    {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
     PointSize[0.004583333333333334], AbsoluteThickness[1.6], 
     PointBox[CompressedData["
1:eJw10QtQ03UAB/BZWZMrIwFb6clQLBT0Jgabj2AyjCkIQyXHVASMh4+TgZar
wFBP3cyUBJTMYpxZqNMwTyAqWUBKPmBeagPT0OJxWjQkT+qA6/dd+3qH3Ifv
7/v//h8B6TmLMx6TSCQ/ih/8/v+fK1L8F1z4wp/1nj+oJRJz+KVxtFRYHjV2
Au2NfFGanPYVViTbJtIyYVnGo0B6vHCZMeplWi6cmv/BFHqisH2XM5gOhIsn
TadfElaXb1DQQbj+ia9D6anC+uonwugQYWlDgpKeLuy6cmgWrRDWtXXOoWfg
+ToVEXSosNP1rpqeKawaPB9Fv4J96Zj5dBjO+6yMocNxPf/KBbQSDu6PpVXC
HeER8fQs3E+URUfPxl78tcX0HLy/ZP8kei7eR8baZfSreD7j2WQ6Qjg7X7KC
jsR5c2wKrRauLD6Q6nEhXFV+J535POGgEyEZzOGe6s1ZzKOEjQ0Na5jD2pZn
1jPXCDva9BuYw/rOI0bm0cLNrt485rB5cNabzOfjetIdm5nD3r6Ot5m/hvv3
H5fPHNYFZ25hHiMsVZ4uZA6XRQ1uY64VVsTH7GAONyfv38V8Ae4/45aFOazK
DdrDfCHO52/cyxwuMp8rYh6L910yqph5rPv9Li1lHof3d6L8IHNYVnPvI+aL
hAcawg4zh+UthZ8yj8f3aLtkZQ7Xdo49wjxBOLUv7Shz2DFo+4K5Du9POnDM
YzWs9dXYeB52+e895bEd1ge3VbGfiPtRBp5hH/bW5JxlH86Or6thH1YbRtax
v1jYnqH7ln04O/fjc+zDioIuO/twpXlGI/tLhK0l+T+wD3eUX7jAPiy1jbnI
PqyvWXmZ/aW438bKFvZhU0u/g33Y3B7xE/twR6flOvtJ+H59135mH9YO+bez
D9dK1/3CPtzsW32b/dfxfPIRd9iHHcFxv7EPlykPdrIP6zR3u9lfJuyMn3aP
fVhrMP3BPqzPbOxlH67KHd3Hvh7PW5Dczz4ss3z2kH3YWfLXI/ZhnXX2v+wn
47xtxyD7sLnGMcx+svv9jhvR6+nDrpbMxz2WGPD92k+P9FgNK7oGn/K4EO7p
i/FiHzYP7X+a/eW4nvT2aPbd9p3yHPuwVr7Jh31YFlLvx/4KfA+ll4x9WKtJ
epF9uCPeOp59uMhwfwL7K3E+MzyAfdieu3US+7C+4PJk9mGd5fkg9lNw/ZL0
qezDVuvJEPbhItvAdPbhnhrNDPZXIW/cO5N9WN7aFsY+7GwPVLEPG7tyZrOf
ivt/UDfXYznsGBoZyevBhaMS53mcCkv8Dmt4fdgs757vsRXWhYRquQd7qwoW
etwB2zXNcdxPw/kEnwTuwy5DSiL34arMY0u4D8vz/k7iPlxWEKnnPmy27DZw
H9aXXl/BfVhWIV/F/XSct61L4z6sra1ezX1Y0TQik/twdmtcNvfdvnlwLffh
nq6767kPGx9My+G++3rDplzurxbuGNW0kftwmd+zb3EflgQYTNyHHSFH3+E+
rFW58rkPD2jmvMd92JSwcyv3Yd3yq9u5/wbeR9b4ndyHrXlZZu678y1f7eY+
PGAZ2sN92Fyq3cd9WF5R/CH3YYftdjH3YWPtlAPczxD2btpUxn24qrX+EPdh
xU2vT7gPD3QllXMfdj6wVnDf3R++f4T7sMxL+Tn34Uq/bZXcz8T3C7hynPvw
QIjsJPdhs2r1l9yHZdGnTnMf9tb9c4b7cNXy6Gruw5KsfbXch+157XXczxIu
3DL5O+67vdtYz324qPSb77nvziuebOI+rDiZeJ77sLX2cDP34dSm7ovcd593
hF7hfrZw2c2CVu7Dqd3NV7kPS/p9rnEfLhpOucF92Oh13Ml92OH3sJ37sClA
fYv7sGLa+79yf41wh+rGHe7DpuiA33vr/wNpe5JN
      "]]}, 
    {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
     0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10QtQ03UAB/ApVy1NQbSchDrACAkNxAegwoDQiQKThw5EGSjIwwcc6i01
GwneMpRJqEQSED5IE0HFKB9MS8UHAj6QMxUqD1Z2MM/LJtnZ77v25Y7jPnz/
3/93v99cUtZGpw6WSCRXxC/+/v9jDpJIOgsSR/Y12f6hkEhUTQffpKXCjRbz
aNpBWDNlphM9SlixqsCZlgmbDrSOo52FLV1jXGi5sIfTCjfaFe+LrX2HniDc
vNPyLu0urLwS4kl7CJvtdnjRnsL6wLuTaS9h3YcuPvRk+GSWL+0tnN7fMI32
Qe4p8aOnCMvSwgNoX+RVJbPoqcLeDx4G0tPweWUTg+npwnWxuaH0DNhwNoz2
E668/pqS9sf9SqPD6QBhv7B9C+iZwtq8nkh6FvbPeS+kZwt3D2yMoQOFDTMu
xtFB2Ftnr6YVwqX18Qk26+DmvupE5sHClvf6ljGHNRl+ycxDhKWHPlnOHNY/
up7KPFRY4To6nTlsSUrOZP6BcFv5kVXMYdn9v9YwDxPOdlLkMIfb1Ntzmc8R
dth7ez1zOPvOOC3zucLpozI2ModVMSc2M1fifov/3cIcVrbPzWM+D32H4q3M
YWPU/QLm4fi8Re565nDljeztzOcjH366kDncHfFKEfMFwqYdUbuYW93yxefM
I3C+4Y92M4flkZNLmUcKG3Zqy5jDxhsX9jGPwvdhP6yCOaxWLa5irsL5d1VV
26yAJTcfH+DzcJvj9BqbjdbnY3WH2V8orNl99Vv24baOUcfYh1WypHr2YXP8
NyfYjxau+/JpA/tw6YPZjezDmvH6H9iHdck3z7AfI9xY7dzEPiztSTvPPmzw
qP+RfViS9c9F9mNxX0fDmtmHS81FV9mHDb73rrMPKzdMaGU/Tlj7/Zp29mHV
i8Zb7MOmILsO9q3Pb43oZH+RsOzy3nvsw6VDfr3PPlwT6dXFPqwr3vAL+4uF
mzuMv7EPVzoN7WEfNi6LM7EPq6or/mBfjfvr/f1P9mGN19R+9mF5zpYn7MPS
U81P2Y8X7hxwfMZ+vPW8Sy3sw7KCQwPsw4qrT16wn4Dz2s96yT4sj9s2qN/W
h41lbXY2G2FDt9OrNkuWCGe7p0ptVsC6VceGsA/rjz9/g31rbgm1Zz8R9xe4
cwT7sKKgcyT7cM0117fYh5WOq2XsL8X54r9zYh82Vwwayz4s7Z0/nn1rPmmP
C/vL4HXdbuzD6jOe7uzDRrv1HuzDqvlNnuwn4b6LX5/EPlx3L+Z99mGD61c+
7MOaTJMv+xrhtuNTptsshysHNvvxfbA55HKAzRpY+dmI2Xw/bLq1JMjmSljr
fDCYe7BHqjnU5m5YWhswh/vJwpZn+Uruw+ag1nDuw7JPx0RwH/a7uTyK+7Dx
7dqF3IfVqZYY7sNttSGLuA9rLYVq7qfAIXcTuA/LCl2Wch9WdWQlcd/6vPxU
MvdhQ6ZkBfdh08nwNO7Dmpcl6dyHpeFdmdxfjvsumbia+7ChK3ct92G157kc
7lvz9dJ13IfrjNEbuA83Di3Xch82L+rdyH1Y97XPR9xfge+nb9PH3Idr/C/l
cR/OLnDI5z6saU/Yxn1YMfaAnvvWPKN/O/dhfYP/Du5b3z8ov4j7qcLekTd2
cR82lslKuA+relP2cB+WTD1ayn1Ymvd3Gffh7pbgcu7DnU6FFdyHLSs7qrif
JqxskO/nPqwfnHWQ+7BU1VDDfVhX/vIw92G/x/OOch928C85xn3YtO1hPfet
+R2Pk9xfifO45Z7iPqzOOdvIfVjf9Npp7sPdw6LPch/WJu5r4j4sPdJznvvW
/Ln3T9yHDcpNl7ifjnzvxWbuw5oe+2vch2umJbRwH+7M39/KfVh+u6+d+3Cj
m/9t7lvz3K0d3IfNF1o6uZ8hXOoo+5n7cF1KyoP+pv8AAIGUIw==
      "]]}, 
    {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
     0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10QtQzHkAB/AVZYkriavUqIhV0qLYStrSZXu/s6W0WC6vQ6JFuR3jkfNq
TEyJux3nkTuZzmQQsR7n6h7TDk51hukSui5suLHkuN/X7beZneaz3//3//39
/+u1YGXqIhuJRNIkPvj//585XCIxfmL75tkV6xdK8Z1vUh8tFc6fXfkv7Sgs
1T78QDsLG/T+Ns+tdhFWHS4aQLsLJ9dftaM9kbfYD6K9hfWvMuzpscISJ8NQ
epywOqDbgZYJuyQEOtG+whVLNznTE4WrSxtH0pNw/+NOrrRcuOtGzih6srDj
w+Me9BScr1/vaHoq3sfoUG86UNg0c+tYOkhYnts8jp4mrCt2nUBPx/urWuhH
K9Cvr/Gng/G8f7wOoEOES99ETKFDkbvuCqRnCLcq7k6jw3A/tWcwPRPPr1sa
SoejX1kXRiuFFRfeh1uth3VtqkjmEXi/b/dFMYeNbvejmUfCoeNjmMOrclbH
MZ8lbCi5mMAcrv3aNpl5lLDSmJTKHK7+szKd+WfCmv6dmcxhF59JWcyjhS3R
urnMYWP+tVzms/F+vhqiYQ4rajIXMFfheZsNWuZwV2/3YuYxOI9z0BLmHz39
y2XMY9HPblrBHC4rGb6KeZyw3pBbwBy2XD9RyDwez/+kdx1zuHXwjPXME4Qr
Jm3byByWpZpKmCcK569z0zOHVQe1m5kn4byXT29hDrd3WLYxT8bvNXDWDquV
cJff7p28HjYmt+y22vjx+rVeZeyn4Pc5uGwf+7Dhytly9uH2zg8H2IcVg2Mr
2U/F9QHlVezDyRkPDrMPSzbKDOzDZkPBEfbTcP+bl46yD7f22J1gH1YNTznJ
PmwIrvqe/XScR/Oohn3YtC2gln1YV7P+DPuw+s71OvYzcN6+oefYh3Xe6gvs
w+aYIxfZh2WrexrYz8TvUzHNyD6sM+qvsQ/Lu36+wT7c6jDiJ/bnCDsq8prY
h1Wak7+wD5eVvvyNfVj6Q5iJfTWub9t+i33Y0+bWHfZhiZ97C/uwOW1xG/tZ
OH9x7T32YfOxt/fZh3XNUe3sw2WWPR3sZ+N9eLd1sg+b4sY8YR8uW7viL/bh
/G/O/c3+XJy/qd8z9mHjyzgz+7DJ48AL9mG5qv0V+znCjQW+r9mHqw8XvmEf
VjVe7mMfNr2Qvmc/V9h97wSJ2dqHDUcT+1mth9Pr19hYbYR7miv6Wy2ZJ1z7
qGEA+7C+r8OWfVgzTDqQfVg73l/Kfh7eR1jqIPbh9LSiwezDuiWH7NmHa7+8
OoR9jXDX/sdDrfaElafsHXg/uPya3NFqDSxpyxjG+8OFzzc4WW2APe0Mw7kH
17n/6Gx1O6ye2j2C+/OFXWIdPuU+fEcT6MJ9+HxRliv34eo9m9y4D5ce+3YU
9z9ef6nRnfvwjdtPPbgPd3U7jeb+AmFHG4Un92Gta64X9+Hz8s3e3IcDVSfG
cB8+lPfrWO7DsqJeH+7Dp/aMHM99OP54qIz7C4WllzUTuA/X/b7Vl/tw+dPv
/LgPF9uaJnIf1nr84899WBPkFsB9eHlCuJz7cOki7WTua4VrS3ZM4T7cs//0
VO7DytO3A7kPl9+0BHEffvfAYzr3Yf3rSAX3YYljfjD34QrZ7hDuLxKOijgT
yn3YktUyg/uwoeBdGPfh8p1e4dyHlx+NVnIfVjcsi+A+HH+3LJL7cPHzs7O4
v1i4THovivuw0UsSzX3YEuIzm/uwLD1WxX14y4qVMdyHB2wvj+U+rDNciOM+
PKT+QTz3P8fz3e6fyH1Y8VSWxH3YYpeYzH3Y6LkmhftwRUhFKvfhwvSGNO7D
yV90pHMfzikdmMn9fOFVRybO4T5cfClFzX341N11WdyHO81V2dyH5fZX53If
3uXzOIf7sDncfh734ZxseR73lwi/KszQcB8u3bthvvnKfy6dfjU=
      "]]}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10Q9czHccx/FD0qO1OmpktP6wFkXhcNFROULJ9Xf645b+cKgtoz1Ssazb
HjcqRcifHmVrZAstRVY4W0bYSf7UY9p2HqsJTRmP6fGQh33ft3t7PDw8nn3u
/XtdP66JH4WnDJVIJC3iL/79/0//fIkkIdP/l74L5h/4SyRFD7ffoK2Ea2Lv
3KSlwpLrzrdpB+HFinV3aUfhhhN1HfR4YX+X17/SLsIdxUt+o92Ec4eV/EFP
FFZl/H6fdhd2eeDRRXvAMRv/oicLe1w710N7mb6P1WN6qnD6yfC/aR9hvWtZ
Hz1N2KfkwVN6Or6P5fTn9Axh6eacf2kZfr/HPw/QM/F89ciX9Cz8vjfjXtGz
heXKI69pubAubkDSb7avsMMep6H0HLx/Q+Awei72VhoL2k+4J6BgOK3A87Jr
Lel56Ne3j6DnC1v0DVrR/sKdHm7WZufCNYlBb/AeIFxxKNWGdzj/bvGbvAcK
a6VnbHk3eWmnHe8L8H20Q0byDjeddx/Fu1K4ayDYnnfYZsYGB94XCi9O2/sW
77D2aONo3hcJ9943juEd9htvOZb3IOHSaM+3eYelxapxvC/G+72WMZ53WGp5
0In3Jdj769/hHZZndzvzvlS4td7alXdY2+/txnuwsNIzagLvsNXqrIm8h+D9
V5S/yztcfa/Znfdl6I9+9B7vcE6Y3STeQ4Vz82WTeYd1l2M8eV8OD/3Ui3e4
RFE5hXeV8JXMlqlm+8M9p5548/OwS5/9NLP1sGay73Tuw4TrUtQzuIdtDufJ
uIc1nVUzuYdbxxhmcR+O9xPxbDb3cHOhoy/3cPJVxRzu4d7hSXO5jxDOD9D5
cQ/7bDmu4B7uamibxz1c+fzFfO4jhdN9nAK4h31SAwO5h6VVaxZwDw/8ma/k
Pkq437l2Ifcmx7Uv4t7kfYNB3MODt1yXcB+N50uDlnIP+4WkBnMPJ+uKQ7iH
S5tPL+P+feHbks5Q7mEfxRAV97Bus3sY93BPfXA49yuEI/9Jj+Aebp26N5J7
WLm+MYp7uPmoMZr7GHy/ruEruIclrp4x3MMVK1Wx3MPxBzLiuI8Vdmw/EM89
3GGvX8k9XKfqVnMPbyqwTuA+Tjjhqvcq7uHIEVGJ3MMhyqwk7k33beXJ3Mdj
f745hXs48+XD1dzDpXI7DfewPkO2lvuVwl21Meu4h2X9W9dzD2dOqUzlHr6+
riWNe7WwV9WTD7mHi7rt07mHJRN8N3AP5yaoP+b+A+GBsryN3MO6e1WbuIc9
xhoyuIf10c8+4T5BOKfEMdNsF1jWptjM58FddklZZifANct02Xw+rN1xPMfs
CnhFS9sW9mDliIGtZhth+UKnXPZXoZcXuI19WH5xzWfsw36v8/PYhzWKWi37
cG52++fsw9VnB79gH+584apjH3aZFfQl+4nCyZtSt7MPN9UW72Afdnh6Op99
ONe7s4B9uDdtyE72Tc+rdi9i33R/FFzMPpwzacMu9pOEbTR7d7MPVx9pLGEf
juw27mEftphouY992JjoWco+XHRYtZ99ONmYcYB92M/54EH2k/G+1fpD7MM2
Zd1l7MMWndbl7Js8zqeCfdPnY6MOsw/L9md9xT4c0lH+NfuwZsylSvZThKui
H33DPmzcY3eUfVh6R1bFPpzqEHuMfbg54tNv2Ycdd1d+xz5c1NZSzT5sMarv
OPur8f8Z5nCSfdii2LeGffhQq/p79mEvqbaWfbh1+bFT7MPanYY69mH5jWf1
7MP9tmPPsL9GuCl0XgP7cFFh0ln2YY1B9wP7sMr2RCP7sDz0VhP7sKxw4Bz7
prvB6QL7sL/tAj37GuH4UM1F9uGcwoIf2YerDLU/sQ/ftu1oZh92Wf7qEvuw
aqfbZfbh0htBV9iHe+3SWthfi8+rdl1lH24oOnOt/8J/N6CFtg==
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{1188., Automatic},
  Method->{},
  PlotRange->{{0., 201.}, {-1.0497356083942577`, 1.0501128947362304`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7349265093753753`*^9, 3.7349265632869473`*^9}, 
   3.734926605106629*^9, {3.7349266486526337`*^9, 3.7349266695867977`*^9}, 
   3.734926889238427*^9, {3.7349269689526577`*^9, 3.734926998898921*^9}, {
   3.734927070813892*^9, 3.734927090663391*^9}, {3.7349271994561377`*^9, 
   3.734927239334324*^9}, 3.734927585992365*^9, {3.734932102634246*^9, 
   3.7349321148713737`*^9}, 3.7349455222620897`*^9, 3.7353413481650677`*^9, 
   3.7383746277993584`*^9, 3.740384402874762*^9, 3.7403844663955812`*^9, 
   3.740384684217749*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"chart", "=", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x", "-", "1"}], ")"}], "*", "0.1"}], "+", "340"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1771.626", "-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "1000"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"excitedZeeman", "[", 
                RowBox[{"[", 
                 RowBox[{"16", ",", "x"}], "]"}], "]"}], "-", 
               RowBox[{"groundZeeman", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "x"}], "]"}], "]"}], "-", 
               "1.0411688306390838`"}], ")"}]}], "+", "139.874", "+", 
            "58.326", "+", "34.344", "+", "15.810"}], ")"}]}], ")"}], "/", 
        "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "200"}], "}"}]}], "]"}], "//", 
   "MatrixForm"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQfe/n2a3nL792nHdIaxuI/lAx6SmIfrXtKph20mD4
C6K9rqwA01H28SoXgLSJzxYwbXveQucmkL6S0wmmH9TqmYDoFcuNwHS9wiYr
EB3yzNYGRD/Z8d4NRG+a9QlMPzasiQTRLj2cUSD6VFniVI4rrx39XiWD6f2T
ds8G0RFZB8B0qYj3YhC9a+n+JSBad/lJy5lA2mzySzsQ/czENhREu12pDgfR
9bHbF4Hosq1mS0F0xKm9kUm3Xjtyu/wG02KzhY+a33vt6BsZew5Er675dhVE
Sy26dA1Ef8ro/gyiRbirv4JoH4l0PgsgPXMHFz+IBgBu+7ht
  "]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"340.`", "453.3432331716042`"},
     {"340.1`", "453.25713446740133`"},
     {"340.2`", "453.1710391819562`"},
     {"340.3`", "453.0849470815327`"},
     {"340.4`", "452.99885836895305`"},
     {"340.5`", "452.9127728686907`"},
     {"340.6`", "452.8266906380488`"},
     {"340.7`", "452.74061170522816`"},
     {"340.8`", "452.6545360693238`"},
     {"340.9`", "452.56846364212277`"},
     {"341.`", "452.4823945682407`"},
     {"341.1`", "452.39632867215175`"},
     {"341.2`", "452.3102660984731`"},
     {"341.3`", "452.2242067880948`"},
     {"341.4`", "452.13815079832307`"},
     {"341.5`", "452.0520980118402`"},
     {"341.6`", "451.96604845684936`"},
     {"341.7`", "451.88000236528023`"},
     {"341.8`", "451.7939593869857`"},
     {"341.9`", "451.70791966658476`"},
     {"342.`", "451.6218832322808`"},
     {"342.1`", "451.53585005407024`"},
     {"342.2`", "451.4498200728456`"},
     {"342.3`", "451.3637935496421`"},
     {"342.4`", "451.2777701343143`"},
     {"342.5`", "451.1917501752093`"},
     {"342.6`", "451.10573323487165`"},
     {"342.7`", "451.01971957433796`"},
     {"342.8`", "450.9337093673301`"},
     {"342.9`", "450.8477023219147`"},
     {"343.`", "450.7616985245055`"},
     {"343.1`", "450.67569791599715`"},
     {"343.2`", "450.58970067011506`"},
     {"343.3`", "450.5037065531331`"},
     {"343.4`", "450.41771579698406`"},
     {"343.5`", "450.33172828435704`"},
     {"343.6`", "450.2457440434604`"},
     {"343.7`", "450.15976310250124`"},
     {"343.8`", "450.0737851404427`"},
     {"343.9`", "449.987810592947`"},
     {"344.`", "449.9018393718076`"},
     {"344.1`", "449.81587133061106`"},
     {"344.2`", "449.7299066139815`"},
     {"344.3`", "449.6439449008833`"},
     {"344.4`", "449.55798668518764`"},
     {"344.5`", "449.47203170406624`"},
     {"344.6`", "449.3860798402106`"},
     {"344.7`", "449.30013123824716`"},
     {"344.8`", "449.2141859554899`"},
     {"344.9`", "449.1282439328399`"},
     {"345.`", "449.0423050529887`"},
     {"345.1`", "448.9563695478754`"},
     {"345.2`", "448.8704371546734`"},
     {"345.3`", "448.7845079889072`"},
     {"345.4`", "448.698582107893`"},
     {"345.5`", "448.6126594234283`"},
     {"345.6`", "448.52674008014134`"},
     {"345.7`", "448.4408238443116`"},
     {"345.8`", "448.35491097698343`"},
     {"345.9`", "448.26900118622814`"},
     {"346.`", "448.18309467488314`"},
     {"346.1`", "448.0971915293715`"},
     {"346.2`", "448.011291603283`"},
     {"346.3`", "447.925394692004`"},
     {"346.4`", "447.83950123120263`"},
     {"346.5`", "447.7536108998483`"},
     {"346.6`", "447.6677237552613`"},
     {"346.7`", "447.58183988386503`"},
     {"346.8`", "447.495959226564`"},
     {"346.9`", "447.41008184067897`"},
     {"347.`", "447.32420766711556`"},
     {"347.1`", "447.2383367049868`"},
     {"347.2`", "447.15246895340607`"},
     {"347.3`", "447.0666042659685`"},
     {"347.4`", "446.9807430492415`"},
     {"347.5`", "446.8948849530937`"},
     {"347.6`", "446.8090301221589`"},
     {"347.7`", "446.72317846824006`"},
     {"347.8`", "446.6373300195566`"},
     {"347.9`", "446.55148477522386`"},
     {"348.`", "446.46564290898027`"},
     {"348.1`", "446.3798040998`"},
     {"348.2`", "446.2939685214221`"},
     {"348.3`", "446.2081361147552`"},
     {"348.4`", "446.12230693712394`"},
     {"348.5`", "446.0364810458529`"},
     {"348.6`", "445.9506583527476`"},
     {"348.7`", "445.86483888603`"},
     {"348.8`", "445.7790225284017`"},
     {"348.9`", "445.6932094827086`"},
     {"349.`", "445.6073996316523`"},
     {"349.1`", "445.52159300345636`"},
     {"349.2`", "445.4357894226165`"},
     {"349.3`", "445.349989150186`"},
     {"349.4`", "445.2641920979725`"},
     {"349.5`", "445.17839823599235`"},
     {"349.6`", "445.0926075342615`"},
     {"349.7`", "445.00682016652223`"},
     {"349.8`", "444.921035986377`"},
     {"349.9`", "444.83525484742637`"},
     {"350.`", "444.74947701072654`"},
     {"350.1`", "444.66370241719045`"},
     {"350.2`", "444.5779308913168`"},
     {"350.3`", "444.4921626359541`"},
     {"350.4`", "444.4063976211202`"},
     {"350.5`", "444.32063567131496`"},
     {"350.6`", "444.2348771931139`"},
     {"350.7`", "444.1491216617711`"},
     {"350.8`", "444.0633693383441`"},
     {"350.9`", "443.97762025105976`"},
     {"351.`", "443.89187431173036`"},
     {"351.1`", "443.80613160679104`"},
     {"351.2`", "443.72039207715875`"},
     {"351.3`", "443.6346557510606`"},
     {"351.4`", "443.5489226276219`"},
     {"351.5`", "443.46319279327884`"},
     {"351.6`", "443.3774658979107`"},
     {"351.7`", "443.29174234809585`"},
     {"351.8`", "443.2060219392337`"},
     {"351.9`", "443.12030469955397`"},
     {"352.`", "443.0345906863902`"},
     {"352.1`", "442.9488798406611`"},
     {"352.2`", "442.8631721323899`"},
     {"352.3`", "442.7774677353265`"},
     {"352.4`", "442.6917664157662`"},
     {"352.5`", "442.60606823104564`"},
     {"352.6`", "442.520373354915`"},
     {"352.7`", "442.43468146635996`"},
     {"352.8`", "442.3489928555472`"},
     {"352.9`", "442.2633075507089`"},
     {"353.`", "442.1776252890398`"},
     {"353.1`", "442.09194621518645`"},
     {"353.2`", "442.00627038648753`"},
     {"353.3`", "441.9205976274493`"},
     {"353.4`", "441.83492805361635`"},
     {"353.5`", "441.74926166411876`"},
     {"353.6`", "441.6635984580871`"},
     {"353.7`", "441.57793849285963`"},
     {"353.8`", "441.4922814765283`"},
     {"353.9`", "441.4066278447826`"},
     {"354.`", "441.3209773057144`"},
     {"354.1`", "441.2353299748713`"},
     {"354.2`", "441.1496857349699`"},
     {"354.3`", "441.0640447306612`"},
     {"354.4`", "440.9784068155585`"},
     {"354.5`", "440.89277213431365`"},
     {"354.6`", "440.80714054054016`"},
     {"354.7`", "440.72151217889063`"},
     {"354.8`", "440.6358869611864`"},
     {"354.9`", "440.5502648574578`"},
     {"355.`", "440.4646459250466`"},
     {"355.1`", "440.379030221294`"},
     {"355.2`", "440.2934176289195`"},
     {"355.3`", "440.2078082052655`"},
     {"355.4`", "440.1222019494665`"},
     {"355.5`", "440.0365985987239`"},
     {"355.6`", "439.9509987924569`"},
     {"355.7`", "439.8654019477247`"},
     {"355.8`", "439.7798082964942`"},
     {"355.9`", "439.69421760507055`"},
     {"356.`", "439.6086304255636`"},
     {"356.1`", "439.52304620413685`"},
     {"356.2`", "439.437465143654`"},
     {"356.3`", "439.3518872432529`"},
     {"356.4`", "439.2663123274475`"},
     {"356.5`", "439.18074074462197`"},
     {"356.6`", "439.0951723483949`"},
     {"356.7`", "439.00960690507395`"},
     {"356.8`", "438.9240447339402`"},
     {"356.9`", "438.83848583413163`"},
     {"357.`", "438.7529298264385`"},
     {"357.1`", "438.6673770592454`"},
     {"357.2`", "438.5818275316924`"},
     {"357.3`", "438.49628095188086`"},
     {"357.4`", "438.41073760998825`"},
     {"357.5`", "438.3251974178449`"},
     {"357.6`", "438.23966037459047`"},
     {"357.7`", "438.1541263920549`"},
     {"357.8`", "438.0685956731055`"},
     {"357.9`", "437.98306801315675`"},
     {"358.`", "437.8975434404557`"},
     {"358.1`", "437.8120220705575`"},
     {"358.2`", "437.7265038735013`"},
     {"358.3`", "437.6409887320142`"},
     {"358.4`", "437.55547673255035`"},
     {"358.5`", "437.4699679033566`"},
     {"358.6`", "437.38446215626425`"},
     {"358.7`", "437.29895960683217`"},
     {"358.8`", "437.21346010868524`"},
     {"358.9`", "437.1279637482782`"},
     {"359.`", "437.0424705538597`"},
     {"359.1`", "436.95698040815853`"},
     {"359.2`", "436.8714934267349`"},
     {"359.3`", "436.7860095505257`"},
     {"359.4`", "436.70052886598774`"},
     {"359.5`", "436.6150511394367`"},
     {"359.6`", "436.5295768065742`"},
     {"359.7`", "436.44410548819775`"},
     {"359.8`", "436.3586372707644`"},
     {"359.9`", "436.27317212431683`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7403848618375573`*^9, 3.740384883541515*^9}, 
   3.7403849515277853`*^9, 3.7403851977340508`*^9, 3.740385400609273*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "chart", "]"}]], "Input",
 CellChangeTimes->{{3.734928343215367*^9, 3.7349284087920666`*^9}, {
  3.7349286147049117`*^9, 3.7349286199031506`*^9}, {3.734928773775128*^9, 
  3.7349287832814703`*^9}, {3.7349291000613127`*^9, 3.734929100111747*^9}, {
  3.7349291442463293`*^9, 3.734929160107591*^9}, {3.734929684772513*^9, 
  3.7349296951444197`*^9}, {3.734948120738104*^9, 3.734948120873388*^9}, {
  3.7383748493886003`*^9, 3.7383748513718767`*^9}, {3.740384542605353*^9, 
  3.7403845580390744`*^9}, {3.740384591030963*^9, 3.7403846369961295`*^9}, {
  3.74038495712379*^9, 3.7403849576513777`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwt1QlUT3kbB/A0ZmSGZDL8SSWNzFgSla0OT7ZU2hdRovVVKqWen1JMJYlE
i6JFZHuFUni1vigxicousmeNSlQSMtf4Pufcc88999zP/d1n+V0Nt5U2nvJy
cnJV0vHt/G8Q06BWpSdr7cMpPU0KI6ZMeYVpqnbhpPstZjO51WxPLrMJp5rL
UsxhGp8Y0uZkHU5e32Ie040zr2w+WYbTv958phkGxYXpFvBMmGZ7dqpPN4dn
xnSr7lDcHTN4C5jOG17pDjGFZ8Gk1mPnJzOBZ8VU/WxJY6ExPGum0zdLnRfO
g2fL1LM75U7nHHh2TJu8GhalzobnwOQbl3lffxY8R6YDCcUeNwneIiZLhemt
wTPhOTFF6DmvHTQDnjOT2ZAKxZOG8Fyk741K2mdrAG8Zk0Hfmwbvp8FzZTqc
GXk7aSo8dybzpbFi0hR4HkwO7hOGXtOH58XUdVh2JlAP3nKmFUXZywfqwvNm
+qxq/1vBRHgrmDqbQ85b6cDzZfKrNgh9qw3Pn+mhvaVOwnh4AUzpFdVNE8bB
C2RqmZR1qG4MvCCpniZd3iv/hBfMVGOcrj3gD3iCSSWwojNPC14I0xZj6wqL
UfBCmVKXWCS2aMILY8qYW+6+dSS8cCbVa7bTtDXgrWNK61jza606vAimOHn1
Vj81eJFMfx2R1fVXhbeeqb1i6/FcFXjRTNEqY9PMh8GLYTprvGp9swxeLJNh
iWpg/BB4m5h2dPR3Gz8YXhxT6GVvh5pB8LYwrc4mCz9leFuZbHdEmfT/FV4C
01Edpfm5SvASpf7OH21qPgBeMlNpbJRlc39425maymY6xveDl8q0+Zi/x/hf
4O1kWnriQ1BNX3hpTBMzem30U4CXwVSfY76rfx94mUxj3mkU5v4IL0uq/2Cd
G+a94e2R5iUur71ZHl42U0rkSdnWXvD2Sfdzh5G2HLz9TBdHHPap7Qn77h2U
8lF3e6f/l7Dv3iEm9S3m1Yqfw757OUzlxcO+5nWHffeOMC2Mc5hi+THsu3dU
6jfNtlWtH+DlMXk+/1iwrRNePtOnjmXtEzrgFTDl/qY1/cp7eCeY4hVM1ge8
g3dSmu/IvXVKbfBOMTnu361e0AqviGlD0JNV1i3wiqX5rki82PYGXimT7tMU
zaTX8MqYlH07IyY1wTvNZKR64vG1l/DOSv2V3j036AW8cqZVRSJX+Tm8c9L6
ZQ6yk0/hVTLdfhgbY9cI74KUjwC1rvbH8KqYLo3X8kt5BO8iU8yK2Gf6D+Fd
YmouW+B66z68y0w2B2wfiXvwapnG7rzuNqQB3hWpXrLcl4V34F1lyit5EehY
D+86k6mrXU/XLXg3mAaMmLY17Sa8W0xsuk5j+g149Uw/3lApunsN3h1pf87v
axN2FV4DU06UaFW5Au8e092e6QlltfAeMC2qn6C3pAbeI2l/HpnR8OUSvMdM
Z3r5xWRVw2tkuuco9GZehPeU6e+M5mcP/4b3nEnzdHV6xAV4L6X373tgo3Ee
3ism+YBUxYpz8F5L8zXPs8atAt4baX8xTNz2Qzm8FqlfGjXs95+B95bJI+Gr
6tzT8NqYFFYbNT0rg/eeaXjp7eKYUnjtTK5vL24ZXQKvk6nk7hD3qiJ4XdJ6
8uoNvQvhfZSe988b+vMpeJ+YHs/4qfvwSXifmYz1cu6bnYDXI/0vnmRVvimA
Jyfo6NHOvPh8eL0EJRXuydQ+Bu8HQS2d2+PrcuH1FnROUT4q4Ci8nwT1zMoJ
HXgEnoKg8x/Sgo/nwOsrSO2qfJDtIXi/CJLtiw9uPwivn6Ba69jQlAPwFAUt
DuyOnLwfnpKgZ7wr/vZeeAMFhejuzAzJhqcsyEmxO2/oHniDBBU1JVeWZMEb
LKj4cvR9p13wZIJSQy5//JwBb6ighOM+Q7PS4akIevnA33BmGrzhgu5mb3Z7
tAOemqAzrZO2RKbCGyHouu/Q4pEp8DQEBasueXUuGZ6moO4ND4Z7JsH7XVDZ
mkrbnxLhaUn5yX8R/99t8P4QFN3tf2n+Vnh/CrJX1O3XtAXeWEG9zy62iouD
N07QR/faHeM2w9MWdKplw5OaWHg6Uj4qE3RWboQ3UVqfaU+kUgw8XUGrex+7
VRANT0+Q2cLj2rbr4U0WxH0UNrdHwpsqaPsm75cpEfCmCdKPijKd8hc8A0Ed
fOpY/Vp4hoJCc2bL1oTDmyHIxfX1epUweCRo4TWj92Wh8IwE9bU+7ukSAm+2
oN9tghq+CnhzBPmkR9tlM7x5gjYrFl6ZFQxvvqAFusutnq6CZyJo5f8Drm8I
hGcm5b8tcdHoAHgLBPXZoNFY5Q/PQpCyoXqAjx88K0FVZqPk+vnCsxbUPjUx
OdcHnq2giCq3MZbe8Oyk9+82q3z7H3gOgnT2prkmecFzFKSrpS+v5wlvkaDJ
b1UP3nSH5yRoqr2h+Wo3eM6CxlRf+CBzheciSMEj5kDJUnjLBL0rjHJwdoHn
KuhS9d2fe5zhuQvKT4yp2O0Ez+Pbtddao8XwvAQ9+Zpo0OgIb7kg10ClL9EL
4XkLmmdQXa7lAG+FoP+5PdhUZQfPV9C9zFH2Prbw/AU1qBVq9rOBFyCoeW16
R64VvEBBs2bmV1tawgsSNHj5kH1t5vCCBe1RPbsueQE8IdU/pXyJvhm8EEFd
yvdn3jaBFyrIfNvGUaHz4YUJ2mTopKhiDC9c6kerld1lc+GtE9RUXvrKZU4Y
/QNeoXFi
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{339.68906250000003`, 435.4196690719525},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{340., 359.9}, {436.27317212431683`, 453.3432331716042}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.73492835038929*^9, 3.7349284090321937`*^9}, 
   3.734928622126855*^9, 3.734928783920354*^9, 3.734929160417753*^9, 
   3.734929695444579*^9, 3.7383748532659087`*^9, 3.74038454398669*^9, {
   3.7403846239778423`*^9, 3.7403846375127544`*^9}, 3.7403846920239587`*^9, 
   3.740384957958585*^9, 3.7403852027376957`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"350.46317", "+", 
  RowBox[{"0.46775", "*", "10"}]}]], "Input",
 CellChangeTimes->{{3.74038526972324*^9, 3.7403853240675983`*^9}, {
   3.7403855087895613`*^9, 3.7403855092193804`*^9}, {3.7403865431235857`*^9, 
   3.740386544306402*^9}, 3.7403874184846134`*^9}],

Cell[BoxData["355.14067`"], "Output",
 CellChangeTimes->{{3.7403852766118436`*^9, 3.740385324366768*^9}, 
   3.740385510431165*^9, 3.7403865448299975`*^9, 3.7403874194211044`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"groundZeeman", "[", 
   RowBox[{"[", 
    RowBox[{"1", ";;", "2"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7349275905692987`*^9, 3.7349276079297943`*^9}, {
  3.734928048245577*^9, 3.734928062490535*^9}, {3.7349286989339004`*^9, 
  3.7349287176635227`*^9}, {3.7349291030553665`*^9, 3.7349291371121855`*^9}, {
  3.73492952756382*^9, 3.734929668198803*^9}, {3.7349480397107797`*^9, 
  3.7349480596701603`*^9}, {3.734948090987073*^9, 3.734948091637824*^9}, {
  3.7349481295913734`*^9, 3.734948169541974*^9}, {3.734948207521246*^9, 
  3.734948230262879*^9}, {3.7349485654344344`*^9, 3.734948568142617*^9}, {
  3.735045315983643*^9, 3.7350453311539464`*^9}, {3.7353419582880387`*^9, 
  3.7353419631090546`*^9}, {3.7353422984271264`*^9, 3.7353423446279516`*^9}, {
  3.7383747708127117`*^9, 3.7383747709099827`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1j3k81Pkfx0m/Vah0IJVNJSrSqZSNFyE6MK5xG4xjZoy5y5YKJdKFDtq2
03YpSlQ2RTkiUWjl6ECqzRG6D5Vfv8fv+/aPx3Pe85rn5zklWOQaOkRJSSlQ
WUnpf////9dvVefNful39U0x8wGEZuy9FteIh2FD3JZvE28Qa8I66p7+j2Li
cajgzhpsLyEejy7V5AMV5cSTEGbW9iKnklgfrb/o96TfJZ6KrvrfzsTfIzbA
MNNZuqI6YkMUdD9a5v8P8QyET7bXWtNIPAsyPf8jli3EJpgRo9U07wmxKS6N
494ybCOeC52hlt56HcTzMOd8xhGtl8TzsSWflzKqk3gBWOqnZ6v3EC9ExEt7
xbA+YjNMKrMKU31LvAgzI5MGVT8QL0Zqvw7UPhObIy3nheHIAeIlEDl3Xhr7
g3gpfO9M6Jig/JZhC7hxpFemDSX+DZ9OvTI2VSVeBv/Na22WqhFbonei1pcV
I4itYKJU5MTWJAZ2KQtsIsYyHAtYO2g/WK9Nd2uoulwb3K1Ld2t0v2JV/DWJ
7jYYZd404/pkutsgpsBhWsNUui/HA4ujl/um0305dLobn6rPpLsteCv6Ds80
obstKmY9e+Mwh+52KKrMbubNp7sdDC84u+80o7s9ntwu51w0p7s9It1H/miw
oPsK3PpsZPzdku4r8Dx39L/TbejugL2Pqua62NHdAV/nuKnGONDdET6VWbyz
q+juiJN69Z5NTnRfCePhVTXDXOm+EijfW7PUg+6rUPt6rkeUF91XQSUuMyTT
l+6r8bT19afmALqvxsN7Y0aPCab7GoSt1cpZFUr3NTgd8qVmWwTdndCbVCIq
FdDdCSstFWnKIro7w8BG28xaSndn3Pk7yzNeQXcXvJ5n/rEsmmG4wOpo2Zjh
MfR9F/QHeJ5z2szwTRfMXfy+aH887VkoYp9c/TSB9iwE+0jcZmynPQtRyzn1
sp20Z8E6fn3lzT20d8X1N5ULR+2lvStKmty1Aw/Q3hWXuowiLx6kvSsaVqw2
UzlMezc821gtZh+jvRsCk/L0sjNp7wa9Og2Loadp74asuc8r/LJo744rvXal
V7Jp745tJZYmY3Jp7w6fB4+URfm0d0dzwazlNVdp7wHphiV9JoW090DFPu3/
7C6ivQc0+mu39N+ivQeEXev47uW090SY28SCvytp74kZwrsC/Wrae+JjT8bW
pPu098S6gX3Kb+tpz4auWV2730PasxGUFWhwp5n2bKxuc61c9IT2bOyovVF9
so32XvjamTdX+zntvVCl6fgu8V/ae6HvSOrYgS7ae8GXeyJF1Et7b3icTuG9
eEN7bxQYSA/7faC9N5w0/Y0bPtPeGypaEWOcv9HeBxYeWayqQdr7QENg8cpe
5R2z90FSxIKGsl8YvumDgcYsHVs1hpV8YXz9Wk7ZCIbhi70pMQftR9PeF7mO
ao13xtH+5/c9NoU5jae9H9T/eGf/z0Ta+0Hr94R1vpNp74emaudPHVNp74eB
zqhyoSHt/SE8Otj2eSbt/ZG2aLJjwmza+2OjrPvbmHm098e0/fEDxxfSPgBr
PVRs55vTPgBnO3c2lFrQPgDsIVYXPK1oH4DTd5fUdtnQPhDRrw8vjrWnfSDS
dux8rr2S9oEotTN6mLOG9oFQM09Rd2DRnoOCr51bnrkzrM/BHyfYlpu86Pc4
GHvr25KJfgxzOLDlflf8HUi/z8F0nU1vvEIYPsZBTnvmuS9h5OPghcO+zEN8
hts4UHdWNFlGkT8IZ2RCxw4J+YOQk5f5IUlB/iCkbrd6POd38gfB63XEt8YY
8geh0N3BIy6W/EEwy/vlpfFW8gdBd31NdmMi+YNwIuP2ua07yB8MlZhJrfP3
kD8YCaO+2j9LI38wtl1PfpZ2gPzBSON/vWj7B/mDEbVZkfvpMPmDMbV1Rse5
4+QPhnqPtV3QSfIHo3Fb70Ods+QPQeZI//T758kfgo+c6wlJF8kfgrvNFsdt
8skfgnQ39c7vV8kfAmcjX79rheQPAd/E7+u6YvKHoL/AqmRRKfl/3o8vzvt4
m/xc9Juvrb5aRX4uTFimI9bfIz8XrKV75cvqyc/FpNIm5SEPyc9Fg/mC/Ipm
8nPhGN6YvPsJ+bmozvi61bOd/FzMPlB/fPIL8oci/9T+ts5X5A/F+JT1uNxD
/lBsPFBwM66f/KGIjEnkOL8nfyhuxU+e/Otn8ofiXMTfA68HyB+KI4LdH4oG
yR8KhxVN6qkq7xl/GOLN6pZxVRnWD4NNb16yuTrDCEP66cI3I0YxzAlDipaB
9PkYhmPDYMqfqX5dm+FjYfDxGHZ93wSGb4ahZuiPLVG/MtwWhm/THIIdp5I/
HHqPDTynG5I/HD0P6gOGzCJ/OArmpG5om03+cNikHj1XPI/84TirY9l71Iz8
4XAPzLaJW0L+cDyKMz0Tsoz84ejXUvl1hTX5I2A3R5hpbEf+CMQEXFg82pH8
EVDK1Wj5tJr8EfhysXJ7qwv5IzA11Mi+0p38EShyEY685EX+CEhkre1/+pE/
AsaOpcVJHPLzMHAn4LSCS34e1Pif00MiyM9DlG5jimsk+XlQtbVJtRGTnwd+
XVzGAjn5eSg0eHpyejT5edgz6VjB+Bjy81A1ZnStRiz5+Vj/eH238lby85F3
x0jtcyL5+Ug8GWzct4P8fFy8vNbp3z3k5yPj2gVp217y82HU553ekk5+PpKH
lRQ2HCI/H8sWmbXWHSW/AJemKCvfzyS/AHa9Mv2a0+QXQHvJ49+qz5FfgMbx
2z2qL5BfgPN6VbyaPPILMOjSF33/KvkFcDNzjK8vJL8AxrdnJDwsJn8k7q1r
jX1USv5IGCwulrdXkD8Se3gTOK/ukj8SBT3Lbfrvkz8SQu09E748IH8kpPnO
r4Y0kT8SlhotWSMekz8Swx/FB+m2kV8Ib4+j6obPyS/EUKOEMwtekV+IXmny
Ypse8gvRXv+fAlY/+YXwZzvNDH5PfiF4iYXJss/kFyKEc/JRwjfyC9HgwZ14
UOkD44/CEhbLMXsow/pRaMkt55YMYxhRSF09UdikwTAnCpmC80F9mgzHRiHh
3gNrVS2Gj0XhwtkeDX1dhm9GQXbKtWSJHsNtUch+FhTkPoX8IlzpX9spmk5+
EcY39nrvnEl+EQI1jS6dnU1+EfqSN76pmEd+EcrPuOj8a0Z+EeysBqeqLiW/
CJrpr8bOsCS/CIWCyE5HG/KLkdPddSLSnmFNMZ5fLbNKWUnvEaOgw6c434nh
uWKcfz9ySosrvU+M357ZcJXYDLuIkaHlnWTkS+8VI5aXv9M5kGGxGEqzCsTR
IfT+n/txlQtOhDOcIoaFp0NDtYB6xMjefdj9s4jhi2JcrjbJNZBTnxh5e3y7
WNEM14rx4/aewc0x1CtGRd2c/pxYhvvFKNt0ovDpVuqXQFXDOWjUduqX4Jbh
4Tbson4Jhne/N5elUr8EJzuKeKf2U78Et4dzpS0HqV+C1rI1rqOOUL8EAV0v
htmdoH4Jom8c2L/hFPVL0NVb9elSFvVLUP7na9PuHOqXYKYrf6lBHvVLoKea
rRtwlfolWKo/tTqjkPol2Ba1iPVPMfVLMH8O+4xmGfVLwFZ/W7umkvqlKNdR
VO2opn4pSv5x2ldVS/1S3J/dO1utgfqlEP5ecmBlM/VL0R5tcW/HE+qX4gP7
zoOaduqXovj841OaL6lfCs66l/buXdQvRf0Ur7yMXuqX4vDmzO4nb6lfinM1
S/umfaJ+Kd7lptzgD1C/FD4W4z0vDVK/FN7ttgVfVT4y/VK0bEnuWD6M4f6f
7+X7N+7SYFhJBp79/L1NmgxryjDOdJO2gRbD+jK8PnaFI9ZleK4MyxJYkht6
DEOG+TPKV6hPZdhFhqJlSR3ehgxzZLBuG217dhbDYhkCUpojvpgyHCtDzkI2
a+UChlNkSNJV+X5oMcPHZLjT7yHotWD4ogy76yoPWYPhmzK8W9ywa78tw7Uy
vBj6AV0O1C9D7cYT+VZrqF8G/mqvV/tZ1C/H2k2pj3o8qF+O7Ql3dtn6UL8c
1xbF/PgzgPrlWF81ffbHYOqXY9VjG12XcOqXYyPfpSRLQP1yfGy4a/SLmPrl
6Gmf7xgsp345SvNUDIujqV+Og/XXb0zaSP1yLDR6MmpDHPXLcWOgY2JLAvXL
IRhwaV+STP1y+M//K/CP3dT/830jAg4MpFG/HGu8B7f6p1O/AqeXDze+eYj6
FVB4f0+cdoz6FYhJ9D+U+Bf1K9Che57bc4b6FRgsFHSwsqlfgaHRk3UKcqlf
gaYrKwd/vUL9Cty2khzado36FXA01+nuLaL+n/dpt16zS6lfAfeOdyduVVC/
AusvL1QzqaZ+BbrNhk9Lr6X+n9/3/9QzpIH6FdCKSwgXNVO/AspuS9MeP/lY
/F81yt1A
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw9lnlczIn/xyfFdrBJKEeUo41CpCS2XtOBlNVd0n1NTTX3sOSodKyjVlQU
llwhNpEkuvsmRbo2m+Xrrig6dNCin9/j+3nP/DOP57znNc/P87/RCeA7BY9h
sVi+cizW/7//79Vr0bjJvd3rZl8p8wE6evRUfWSsCKn2ib3+Mp4Insk1V46M
JyNwU7CYL2NNpCVde7lNxjMxfD31TIKMtcHeN7YgTcZz8OnS12nZMp6HxCTJ
wyIZ68Ixwa+1QcZ6qKouWPxWxgsR6x3+t3whsQHCTITN2jJejAfTi2ZDxoaI
yjMp9pfxUozuas2Jl/EyFLxJ7MqRsRFYuqY7WmS8HFKfZu9RGRtD+YD1QYNb
xCaw2ydV95LxCuxX39iRJGNTLC4vVKmQ8UrUqmREf5KxGXba/WWztIh4FXQK
HTdHyHg1joX1lV2U8c9Q8Ujf8lbG5jDy0tmhf5vYArlLRI18GQNrIzlbCoij
gXUp/+WOyu5sPPx8/c/1d+jOhm5HBfsoMcsSk3e8mdspu1vCtmTAxayY7la4
nF7TkkwcbYWaxhVn3sju1tDX1iwzL6G7NeqnmutnErNssHPJztfDsrsNrO5l
d7mX0n0Nnuj9jiLi6DWYsU3+1awyuq+FpK65KZ44ei1cNOtVe2T3dSi0KM3w
LKf7OhxUEgtqiFm2sNPNP2xaQXdbuC2xl88hZq3H4Wz50tmVdF+P/n+zqtOJ
WXbo3vN+2sQqutthfGxO4X5ilj32zDt1Wuk/dLdHfnzyo73ErA2ovGzqPr6a
7htgkuyrk0LM+gXS8ZXGmnfp/guiPumkZhGzNsJnktnqRTV034hRpZpFt4lZ
DkjdnRhqd49hOCBQwaj7KXG0A9xmxBWKahkuc0D2SqMHSnW0d0TS3eEFZ4jh
iJfav9Wb36e9I1rTMoqeEJc54nj48/c7HtDeCTpPVUNn19PeCcUzHutVEUc7
4cPG3iXhD2nvBOXMMTsnN9DeGfLqZaplxHDGvAetHZGNtHdGdctHhVlNtHfG
T0srQxqIWS6Y+qZnfHwz7V3Q0DN3eFUL7V1QsEFx/iBxmQt0PlunX/2L9q4w
7Ipez2ulvStSZwawFz+ivSu8EpK29xKXuaJpTvZg/t+0d4PtB8drUW20d8NA
x5Kr1o9p74biSS8/qP5DezfoblHkPSVmueOn2ZaLrjyhvTvkdRYZ7H5Ke3fo
p4dwnf9L++/fz9rXseAZ7T3Aj1x+Zsxz2nsg1PDb8afE0R4wWBjTUvSC9h5I
PO9qm/mS9pvw9uukf6Ne0X4TrNI3vvV9TftNGHp1Sn3NG9pvwt/cY9sWt9Pe
E+NLm6ZP66C9J1QT2obGdtLeEye2sicMEpd54rLPMe/2t7TfjIjpWzva3tF+
M0xOBl562EX7zTgy/OHc3W7abwbb5nxb+Xvae0G9YopNyQfae0GjvKbjTg/t
vRCXa1te3Et7L5RPmdNY1kd7b4iOPp5a3U97b0g/j6Q8+Eh7b/RrKls+GqC9
NzhDSbqvBmnvg+w8FYu+Idr7oG//D/vlPtHeB6OdCsqTP9PeB6oOCbf1Rmjv
i9GICSct/qW9Lzaqzcj3+EJ7X1gaLxkRf6W9L/o+1QhSvtHeD67nQjTyRhnW
9gPvSvz7JlY/83vf77mn+4fkGPb7ztKVulryDEf7QX64KtFGgeFTfuB4lk4V
jGW4zA9yg1lNx8cx/NwPo/Zviup+YJjlD6fpcg+/KDKs7Y/GtRE/GiqT3x/O
A8d/DVYhvz+eiBUnnBhPfn+UOMyta51Afn9cs/e/NkmV/P6YFGBc4TCR/P54
V6U2clCN/AEwfM3Z1DyJ/AF4xb3wTGMy+QNgxrY64DOF/AGoTMr2yZ5K/gCc
KLBy69cgfwCOBMSLLKaRPwAh29uuJU8nfwDuLbg89fkM8gei8nnoCSMt8gfi
lsv2NXtnkT8QV2PWq72YTf5AROVYfjXTIX8gXvrUKR2ZQ/5AvBDZmwzOJX8g
6pUWxbrOJ38gMg41d9/UJX8Qeu+dk87UI38Qom8rztyzgPxBmFPp96xrIfmD
oJ6sVupmQP4g6M/cVVS5iPxBUCtXbFy2hPxB4M1XH3PWkPxBWLbum73GMvIH
4/ruhXkHjMgfDLmo4UUKxuQPhqJVVcVOE/IH49GqHt7nFeT/zvNbl25dSf5g
DM9qVR42I38wRs7Yff51NfmDcTbl0JcvP5M/BEPzx03eY0H+EIjk5CxU2OQP
gY3e0x1pluQPwWH5gfs61uQPwaWAPxZftSF/CLBjeRbWkj8EF3smzGteR/4Q
zKyOKeCsJz8HveJ292925Oegri3lhyMbyM/BO5u2qqUbyc+Bt1Tt93oH8nOw
Ki05ONKJ/Bx0WZ1d+6ML+TnYfOjc8jxX8nNgPPaNvps7+UOxMD3f4KsH+UMx
90awyXlP8ociztZ2naMX+UMRfD3X/5s3+UPRcr8z5oov+UOh3GV1wcef/KHI
e6baohZI/lCojmQq3A0ifxh8FI1W7gohfxjeecwXrggl//f77ZKc/jDyh0Eu
1q4zN5z8YXgbq6HLjyR/GEyn8YIM+eQPg5du5umPAvKHwVa9/VmhiPxcXGg8
NiNaQn7u9/8jCq62W8jPRdpq7v7Jv5KfC+s9k0tebCM/FxpNdt1Xo8jPRdvf
7lNid5KfC9Gj3aauu8nPxbiTyq4LY8gfDqfD5ly5PeQPR02O/9bHceQPR6vk
VtSNBPKHQ1Vt/5ZDv5E/HFKzGRzhPvKH43erP+2dDpA/HBWav+kaJ5M/HHx2
98dpB8kfgcUvtPJZh8gfgTG3fEPeHiZ/BPbqDSi1pJE/AsZLtP4oO0L+CGyL
nDknN4P8Efgy3yjt5DHyR6DW/PRQygnyRyDB8pJNwknyRyLDf3/MjizyR8JT
HH9Rcob8kdgw/OgO7xz5I4GpFUXcbPJHIu5M7OnQi+SPxKRZHuLQHPJHoiQv
2oB7hfyR8DA1exCZS34eXplVuIjzyM/D9X7Xiu3Xyc/D+fXLpsTdID8PK54f
tv/9Jvl5KFC4yTl+i/w8cEseBefcJj8PRfeWrrlTTH4e1mayFB+Wkp+PWV67
L70qJz8fjwc6DUYqyc9HocKvyZOqyc/HXx0h9QY15OfD8GZP17pa8vPxxta+
PeQ++fkwMSm4k1BPfj5uN4XwLjSQX4BtK46M1DUxPFEAlkW0X18LPY8ACYme
JzUfMWwowDexTwG7jZ5PAPNFVWcj/mHYQYDxZyrDMp7S8wqwOilVoeYZwwIB
GiN4kk8v6PkF+Hrgt8KFrxk+KMAahekNPu3UI8DRG5uKUjsZviqAn+OuLfff
UZ8AyW4l8uPeM9wgQL66gz+7h3oFUL8Qlryrj+FeAS4qsPcVf6R+IdjvVVy+
DVK/EDGfR9/hE/ULMZjm9Ev8CPULoTN25c66L9QvxC6/zi3qo9QvRFpGmpm3
3EemX4ih7dK7F+QZFgix8eKdmUNjGY4WgnP25EobRYYPCrGgxkkrXZnhU0Jc
2KB8t3M8w1eFmG0/YvyzKsNlQgzfcgs7rMZwgxBlkc5+XeoMP//eN3vedJup
DPcKERD6Je2UJsMsEVZXqzZ/nc7wRBEUM1MavLQY1hbhp4U3kopnM2wogvKZ
K0racxiGCGzNP63i5jHsIEJQ/Fuzd7rUL8KPDw99cFxA/SK0VD7xvq1P/SKY
aI0k6i6mfhEyo7UiDhtSvwjLo7cpjTGifhFYx+ErMqZ+EbItz0W8XkH9Iuxs
ajP0MKN+EQIyJ+Y8WE39IhQ8jnpsbUH9YphVbygpZlO/GIp7Cl1NralfDKH+
h5P5a6hfjHf12seX2VK/GN2iWNtrdtQvxht1m2yjX6hfDLXzmfkFDtQvhv/U
G4JVztQvhqdd9eNyV+oXY2Q+q9/Wg/rFSI9NvdHsSf1i5K+8Mc/Xm/rF+KCd
at7tS/1iVKkEjokKoH4xYu4781WCqV+MCcZH405wqF+CWo0A9lIu9UvAWffq
bHUE9UuQd3zDn9586pdA8r7Ja0hI/RKwNc7lHpRQvwRr/x08Z7CV+iXQih42
r91G/RIcO/TPtrAd1C9Blm6Lq/Ju6pegfYV60+UY6peguLb2vUMc9Uvwttvg
wlAC9UsQVBDO+mMv9Uugs/7W4JoD1C9Ba+vaxL5k6peg4oht/okU6pdC+ldv
lF0q9UuR2M5/OpJO/VIEGX5+lJNB/VL8oFfK9TlO/VIUOw2kTjpJ/VK8XFPn
WpNF/VJkXt5yefdZ6pciyXzBUdNs6pfifO0UzY8XqV+Ku8v4+rmXqV+K2MjQ
xohc6peiIWG5ksE16pei6tS4pu586pfCakBNP/cm9UtxrXGvuriI+qXIzsra
Z1r8sfT/AB4I3Ug=
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -1.0911713754642138`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0., 351.}, {-1.4291654312157223`, -1.1072663305000001`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7349275954527693`*^9, 3.734927608320002*^9}, {
   3.734928054623684*^9, 3.734928062762436*^9}, {3.734928705131869*^9, 
   3.734928718003368*^9}, {3.7349291103952026`*^9, 3.734929137382331*^9}, {
   3.7349295387379293`*^9, 3.7349296685145006`*^9}, {3.7349480344907837`*^9, 
   3.734948060050584*^9}, 3.734948092004799*^9, {3.734948135503888*^9, 
   3.734948169878623*^9}, {3.734948208211591*^9, 3.734948230693139*^9}, 
   3.734948568865069*^9, {3.735045316431274*^9, 3.7350453314402084`*^9}, {
   3.7353419587282743`*^9, 3.7353419635093126`*^9}, {3.735342298787515*^9, 
   3.735342344878106*^9}, 3.7383747718946133`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"excitedZeeman", "[", 
   RowBox[{"[", 
    RowBox[{"16", ";;", "16"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.734948598797713*^9, 3.7349486064984217`*^9}, {
  3.734948645833336*^9, 3.734948645883374*^9}, {3.738374833659148*^9, 
  3.7383748432142467`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10QtUFeUeBfApvUo3zKNi4SMdlZTU7KCGSBqDSpLPg1cR0GASH/hIDiqK
mjqlJSvNe3wRKtZ0TZO0OtwAUVMmn+AVPL5RMscUJTU9stRICu7Z0/5YrMX6
8f/2f88302lS6pgpT0uSlPSUJOHv3z/eCElS/I7ccRfzH4rvN3TtX8J+Pku1
8fY82oa5/5MlwgE+a23OXhUOxHzoB47/0u2RV4JOCss+G5ubOL6nO+P8xmGX
hYOs/GfT8+muOO9o9pdwMPrG/bK+gO6O/dPXv1JI94QHF5QK98K+kpppe2g7
8pFN/YroEJyfsC9XuDccfWXEXroPnB/9QLgv9vWrzNpHvwb3yRi4nw7F895t
UiXcD33X0j75gQ6Dw3eEHqD7Y7+63hQOxz69+6qD9OvYV50YWkwPwPlVQb8I
D/RZ/ShsqEG/AS/dulU4AudvD3gorGD/nZbDf/zbGqzXt/sPLUXi/P2xf4g5
bJbvcxzifBD23xu2k9Zg5cLT0mHOB2NfpDme1mA58Np3Yj4E8xmN/I5wDkup
USotReH9LNpeJOaw0qhzi6Ocv4nzm/ZOpzXLN2ccEvOhyOf2bXeMc1jZ23oe
LUXjeer9y8QcNtLadD3O+VvY1zF8Ga3BeofZFWI+DPfPzg8p4RxWDP9VtDQc
+QvpN8TcctD9gaWcj8DzNSz4lNZg41jzB2I+Eu/bLBh2gnPYODD9S1oahf5z
3evFHNa+qB3/P85HI7/rTB6tweqSomdPcu7Avq9yp9AKbBrbi2kNVpN3tyn7
2wYshxyYS0sxcPnFMlqBjet13cqZj7He38sf0AashCT9REtj4PKtoaeYh6Vv
b7hoDTZW9blDG7C75dHOHub/5bO9w8PRtALrpV2X0Bqs1E78mjZg55qsiyI/
1mdb2tnGp5mHjZWtetMa7CmKTaINWPktZzUtjcP9n7u5V+RhR5Pet0QeVg0t
4AzzsDP4TCQtxaK/R9dUWoG9Be/l0Bos7TlfKvKwp33I7yI/Ht/rwpqgs8zD
jvP3YmjNsl/MMtqA9XcKdtNSHOZn2l0Wedg9YkXTc8zD9sP3+tKG5ZcnTKKl
eLyvtNJ/0wpsX9v/gMjDrsW7bos87H6pY+B55hPgFRuiaAU2P3l2Lq3B3tAV
Om3A9vn1ZSI/AecjF9WJPOx1/R58gXnL8fNjaQN2bXi8nJYmYl9YRh6twK4B
dT+LPGxsWuZ/kXnYFv2PcFp6G1ZWT6MVWFsUsJHWYNm79ZDIw67NwV6RT8T5
OfkvVjAPS3Mih9OaNV93KoM2rHl54g5aSsLzdbh/VuRh11LtqUvMw7bqlq/S
BizH7phISyrmh8M/pmXY8bJnD63AnhVTq2gVtnv+anmZ+2FXkyyF1mGly6uz
aQOWO5duoU3YWZ9cSkvvoC+/4TEtw0pETlAl+2H7lv5jaBV2Hrm4jNZgs3D+
N7RuefbzlbQBq9WFfj+x3+qT40JpaRLeZ6snybQM2w/krKUVWG6nFNOqdb77
jbu0Bms3M9teYT+sjuwVTRuwPuFcOm3C7ucWb6OlZJxP7nyalmEz9kQ9rSRb
++f0/Jn9sLt5+wRag12njq6kdVjv4iygDdj5TLvrtGmdX3rMdpX9k7FPm/MG
LcP2Zh1n0Qpsdjq5iVZh44eFx2kN1iq7PaJ1uHbgzBYm++HqskHBtAnrOW0j
aGmKz8G5NeNoGU6pOTGLVuDMBduW0yqc0e+9zbRmnQ8Zl0fr1vnJvUpEP+w+
1fSq6IflOdceif6pPgcO3+9/jf3wzviNXWgFNnNSw2kVjgsYFkNrcO3BoBRa
t7ylYSltwJ6vL2+kTVi/XbCblqbBCWsPi37Y/mTWZdEPZ5dEPxD9sHI0yO8X
9sMp96WOtA473rzyGm3AGaV7R9CmtT8jK5mWUnD/MXMX0TJsj3WspRXYu/yV
nbRq+fI/i0U/nJ1QfV70wylPH7sr+uGM09saXWc/nHn8/ba0NN3n4BtJIbQM
u7q+EU0rcPSa9km0Ckvt6tJpDQ47eWk1rVv+omgbbcD6pk/3iX44sGD+adE/
A9+3Zly16IdLxrzWIPphx7mA52+wH7YteNiT1mA1/NxgWocDO+Qn0AZc1GlD
Gm3CniHzMmlpJs6vHPs5LcMVt/oW0gpcO7V1meiH5caPr4t+eOfBC09EPxyX
tadFFfth+6rsYNqEo3MWRtDSLHyP0oRYWoadLQe8Sytw4IIXV9AqnPK4fjOt
wSUuM4/WrXnUoRLRD0cHfHlV9MPePz98LPrfxX0apjW7yX44s+2wIFqBzVE9
X6dVuGTLc2NoDa6WHqTQOmxbenYZbcCOVoVZtAkbxdnf0NJsvK/li4+IftiW
mFgp+mHn6Mga0Q/bxwc9c4v9ltObyrRu5XNvh9IGrNWUjaRNOCMmbzItpfqc
fXTDYlqGjVEZ62gF3nl3Qi6twuZnEYboh51TulwU/XBtRNN7oh929brTuJr9
cIb9VDtacuL9RX3fm7bB2uxP36Jl2O/rxSpth9XapAW0AkfHD1lDO+DMk8Hb
aRWujWn2A+20zv/64AytwdnrLvxKu6z9I/dLv/I+cFEb/QXaDYf9vqIXbVjz
qulRtAeWq0ZNpE3r/KM+c2kvbLZu8zEtpfnsebNep22wX+b1PbQMh10qKaft
sBr+bRWtwNG71v9JO+DsHgtb3eb9YWV/YnfaCTsShkTSGpzi1z2Odlk+2jyV
1q3+tY8+pN2wNrMyhzas82N//J72wCXDvzpBm1Z/zCfXaC+sT55bS0tzfLZ/
FN/8Du8PawURXWkZTql5aSBth70D/MfSCuzZUDODdsAVf1S8T6tw8KzibNoJ
u+9s/47WYGPB6mO0y5rb5l6hdVgtjH9Iu2FXivLsXd4flrt160x7YFtNs/60
ac1LH46mvbBjd+VUWprrc8aWQ0toG5ySlbuBlmH7Vtcu2g6r3y04RCuwsyzx
Eu2A3Y+jvLRq7evxStPfeH9r38yADrRmubCuL+2y7H99OK3Dge+emES74ZKK
vIW0ASujN7loj/V8Hu0r2oS9E1IO0l649sHo87Q0z+e4df3u0jbYNrBjo3u8
P2w8aNKWtsNu9z07rcAZCy8MpR2wY8TBRFqFa4N3pNNOOLr5mtW0ZrkhfRvt
gitq395H63BJXdRp2g0rfr2qaQP2vvh8A+2x+gbUt77P+8P2KTd70t551vct
H0xL6biPpzCBtsEVrT5Po2W4OmllJm2HS/JTP6cV2N4yrpB2wGqGUkarsHwr
+AbthJ2JLepoDW58/08/L+8P+/dJC6B1OGxxVUfaDWcej+9BG7DnhfJQ2mM9
z6xBg2gTzj5SOJL2wlKnHvHe4v8D8H4+6g==
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{743., Automatic},
  Method->{},
  PlotRange->{{0., 351.}, {-1.0217696465551853`, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7349486030092897`*^9, 3.7349486068581476`*^9}, 
   3.7349486462535453`*^9, {3.7383748408512683`*^9, 3.7383748447221947`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"states", ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"DipoleOriginal", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", "\[CapitalOmega]R"}], 
    ")"}], ".", 
   RowBox[{"Transpose", "[", "states", "]"}]}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.734787409228861*^9, 3.7347875615001564`*^9}, {
  3.7347880438622003`*^9, 3.7347880443406024`*^9}, {3.7348221267324786`*^9, 
  3.734822137435936*^9}, {3.734822648032873*^9, 3.734822648093032*^9}, {
  3.7348226876993365`*^9, 3.734822687774551*^9}, {3.734822740210991*^9, 
  3.7348227402861977`*^9}, {3.7348228540209475`*^9, 3.7348228777633004`*^9}, {
  3.734945590525673*^9, 3.734945590635767*^9}, {3.734945632640212*^9, 
  3.7349456456645584`*^9}, {3.735035125891811*^9, 3.735035171555291*^9}, {
  3.7350392519404273`*^9, 3.735039252052806*^9}, {3.7350396488713365`*^9, 
  3.7350396576421604`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.12868662092180788`", "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.00029328567552389844`", 
      "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.22307015621995824`"}], "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.0004799300704262194`", "0.`", "0.`", "0.`", "0.3157214696739929`", 
      "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.0005376916945768724`"}], "0.`", "0.`", "0.`", 
      "0.40792125472611795`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.5`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.20371767854725506`", "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.14278988332691817`"}], "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.24992326058914824`"}], "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.24865864494417023`"}], "0.`", "0.`", "0.`", 
      "0.25034585481952665`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.35356694888882056`"}], "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.2047527944060708`"}], "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.15897230694802636`", "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.3196171168358091`"}], "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.11298692716804828`"}], "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.32380315267096205`"}], "0.`", "0.`", "0.`", 
      "0.0655774822397903`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.2929147815979575`"}], "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.001466068869949034`"}], "0.`", "0.`", "0.`"},
     {"0.`", "0.0005376514231638703`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.35353901738358473`"}], "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`"},
     {"0.`", "0.`", 
      RowBox[{"-", "0.00048188763650048385`"}], "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.2513359600289378`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.32168851797347925`"}], "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", 
      RowBox[{"-", "0.00029570526452395683`"}], "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.14589283777497508`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.3258164601175572`"}], "0.`", "0.28439810764760765`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"},
     {"0.5`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`"},
     {"0.`", 
      RowBox[{"-", "0.408574356873052`"}], "0.`", "0.`", "0.`", "0.`", "0.`", 
      "0.20349496887515894`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`",
       "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", 
      RowBox[{"-", "0.3167332529182232`"}], "0.`", "0.`", "0.`", "0.`", "0.`",
       "0.24964890601981277`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.06352404219623715`"}], "0.`", "0.`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.22414331497758347`", "0.`", "0.`", "0.`", "0.`",
       "0.`", 
      RowBox[{"-", "0.2500698975502038`"}], "0.`", "0.`", "0.`", 
      "0.11060113007589718`", "0.`", "0.0014446944766353827`", "0.`", "0.`", 
      "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.1295127383521461`"}], "0.`", "0.`", "0.`", "0.`", "0.`",
       "0.20452615970403634`", "0.`", "0.`", "0.`", 
      RowBox[{"-", "0.1572540426653029`"}], "0.`", "0.`", "0.`", "0.`", "0.`",
       "0.`", "0.`", "0.`", "0.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7347874169970555`*^9, 3.734787516592415*^9}, {
   3.7347875571075583`*^9, 3.7347875617378073`*^9}, 3.734788046501939*^9, 
   3.7348205410121565`*^9, 3.7348221385849924`*^9, 3.7348226500632715`*^9, 
   3.7348226888865013`*^9, {3.7348227242505693`*^9, 3.734822741943597*^9}, {
   3.734822855143984*^9, 3.7348228784731865`*^9}, 3.734945591113553*^9, {
   3.7349456332029443`*^9, 3.7349456461548176`*^9}, {3.7350351211901197`*^9, 
   3.7350351718803368`*^9}, 3.7350374145117865`*^9, 3.7350384548191557`*^9, 
   3.7350385281440787`*^9, 3.7350392524298477`*^9, {3.73503964046906*^9, 
   3.7350396579140406`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Style", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"DipoleOriginal", "=", 
      RowBox[{
       RowBox[{"WignerEckart", "[", 
        RowBox[{"system", ",", 
         RowBox[{"{", 
          RowBox[{"Dipole", ",", "1"}], "}"}]}], "]"}], "//.", 
       RowBox[{
        RowBox[{"ReducedME", "[", 
         RowBox[{"1", ",", 
          RowBox[{"{", 
           RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}], "\[Rule]", 
        "\[CapitalOmega]R"}]}]}], ")"}], "//", "MatrixForm"}], ",", "Small"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.7347715820327735`*^9, 3.734771638970962*^9}, {
  3.7347743886996026`*^9, 3.7347743918257113`*^9}, {3.734774530383363*^9, 
  3.7347745590427837`*^9}, {3.734774874327746*^9, 3.734774895629304*^9}, {
  3.7347872261560345`*^9, 3.734787249365286*^9}, {3.7347873527448435`*^9, 
  3.734787376455934*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["15"]}]], "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["6"]}]]}], "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["10"]}]], "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["5"]}]], "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["5"]}]], "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            SqrtBox["10"]], "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["15"]}]], "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            SqrtBox["6"]], "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["6"]}]]}], "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", 
           FractionBox["\[CapitalOmega]R", "2"], "0", "0", "0", "0", "0", "0",
            "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["3"]}]], "0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["3"]}]]},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", "4"], "0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["2"]}]], "0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "2"]}], "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             SqrtBox["6"]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             SqrtBox["10"]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["5"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["15"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["6"]}]]}], "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["2"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"4", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["6"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"4", " ", 
              SqrtBox["15"]}]]}], "0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"4", " ", 
              SqrtBox["5"]}]]}], "0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["10"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["3"]}]], "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SqrtBox[
              FractionBox["2", "15"]]}], " ", "\[CapitalOmega]R"}], "0", "0", 
           "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["3"]}]], "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["5"]}]], "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SqrtBox[
             FractionBox["3", "5"]], " ", "\[CapitalOmega]R"}], "0", "0", "0",
            "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["15"]}]], "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SqrtBox[
              FractionBox["2", "15"]]}], " ", "\[CapitalOmega]R"}], "0", "0", 
           "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"4", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["5"]}]], "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["3"]}]]},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             SqrtBox[
              FractionBox["2", "15"]]}], " ", "\[CapitalOmega]R"}], "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SqrtBox[
             FractionBox["3", "5"]], " ", "\[CapitalOmega]R"}], "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SqrtBox[
              FractionBox["2", "15"]]}], " ", "\[CapitalOmega]R"}], "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["3"]}]], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0"},
          {"0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["3"]}]], "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"4", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["5"]}]], "0", "0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0"},
          {"0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["15"]}]], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["5"]}]], "0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["3"]}]], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", "2"], "0", "0", "0", "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            SqrtBox["6"]], "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["6"]}]], "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            SqrtBox["10"]], "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", "4"], "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["15"]}]], "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["5"]}]], "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", "4"], "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["5"]}]], "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["15"]}]], "0", "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["6"]}]], "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["10"]}]], "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["2"]}]], "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", "4"], "0", "0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"4", " ", 
             SqrtBox["3"]}]], "0", "0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["3"]}]]},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["15"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["5"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             SqrtBox["10"]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             SqrtBox["6"]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "2"]}], "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0"},
          {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["6"]}]], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0"},
          {"0", 
           FractionBox["\[CapitalOmega]R", "4"], "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"4", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", 
           FractionBox["\[CapitalOmega]R", "4"], "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", "4"]}], "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox["\[CapitalOmega]R", 
            RowBox[{"2", " ", 
             SqrtBox["6"]}]], "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["2"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["10"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"4", " ", 
              SqrtBox["5"]}]]}], "0", "0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"4", " ", 
              SqrtBox["15"]}]]}], "0", "0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SqrtBox[
             FractionBox["5", "3"]], " ", "\[CapitalOmega]R"}], "0", "0", "0",
            "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0"},
          {"0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["\[CapitalOmega]R", 
             RowBox[{"2", " ", 
              SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
           "0", "0", "0", "0", "0", "0", "0", "0", "0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]],
  StripOnInput->False,
  FontSize->Small]], "Output",
 CellChangeTimes->{{3.73477159984438*^9, 3.734771639733728*^9}, 
   3.7347743938092155`*^9, {3.734774533129984*^9, 3.7347745603210535`*^9}, {
   3.734774876446453*^9, 3.734774896086694*^9}, 3.7347871921291194`*^9, 
   3.7347872502631063`*^9, 3.7347873774619894`*^9, 3.734820541082343*^9, 
   3.7348221223708816`*^9, 3.7349455572796383`*^9, 3.7350351124535465`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{Automatic, 1912}, {Automatic, -8}},
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 328, 6, 101, "Title",
 CellID->509267359],
Cell[911, 30, 493, 10, 30, "Text",
 CellID->1410553583],
Cell[1407, 42, 235, 5, 43, "MathCaption",
 CellID->428702736],
Cell[1645, 49, 146, 2, 31, "Input"],
Cell[1794, 53, 84, 2, 31, "Input",
 CellID->399248267],
Cell[1881, 57, 116, 2, 31, "Input"],
Cell[2000, 61, 257, 9, 44, "MathCaption",
 CellID->1679141539],
Cell[2260, 72, 259, 7, 31, "Input",
 CellID->1063678041],
Cell[2522, 81, 280, 7, 31, "Input",
 CellID->1867164128],
Cell[2805, 90, 531, 15, 44, "MathCaption",
 CellID->1890496939],
Cell[CellGroupData[{
Cell[3361, 109, 740, 13, 31, "Input",
 CellID->255182439],
Cell[4104, 124, 1299, 31, 55, "Output"]
}, Open  ]],
Cell[5418, 158, 302, 6, 43, "MathCaption",
 CellID->331090632],
Cell[CellGroupData[{
Cell[5745, 168, 707, 20, 52, "Input",
 CellID->2064101732],
Cell[6455, 190, 1299, 33, 55, "Output"]
}, Open  ]],
Cell[7769, 226, 1798, 61, 44, "MathCaption",
 CellID->270820281],
Cell[9570, 289, 672, 18, 72, "Input",
 CellID->314100305],
Cell[10245, 309, 180, 4, 43, "MathCaption",
 CellID->927847299],
Cell[CellGroupData[{
Cell[10450, 317, 192, 5, 31, "Input",
 CellID->1471499099],
Cell[10645, 324, 14569, 376, 709, "Output",
 Evaluatable->False]
}, Open  ]],
Cell[25229, 703, 142, 4, 43, "MathCaption",
 CellID->262224642],
Cell[CellGroupData[{
Cell[25396, 711, 669, 17, 92, "Input",
 CellID->708150996],
Cell[26068, 730, 4156, 107, 198, "Output"]
}, Open  ]],
Cell[30239, 840, 239, 5, 30, "Text",
 CellID->2130696078],
Cell[30481, 847, 367, 11, 43, "MathCaption",
 CellID->1277669421],
Cell[CellGroupData[{
Cell[30873, 862, 542, 14, 31, "Input",
 CellID->1209378368],
Cell[31418, 878, 13085, 331, 842, "Output"]
}, Open  ]],
Cell[44518, 1212, 154, 4, 43, "MathCaption",
 CellID->460749553],
Cell[CellGroupData[{
Cell[44697, 1220, 1053, 24, 34, "Input",
 CellID->1893193157],
Cell[45753, 1246, 3793, 59, 115, "Output"]
}, Open  ]],
Cell[49561, 1308, 136, 4, 30, "Text",
 CellID->1838084779],
Cell[49700, 1314, 321, 9, 44, "MathCaption",
 CellID->2119188793],
Cell[CellGroupData[{
Cell[50046, 1327, 281, 9, 31, "Input",
 CellID->499971818],
Cell[50330, 1338, 548, 14, 72, "Output"]
}, Open  ]],
Cell[50893, 1355, 433, 15, 53, "MathCaption",
 CellID->1167398770],
Cell[CellGroupData[{
Cell[51351, 1374, 382, 13, 49, "Input",
 CellID->972219711],
Cell[51736, 1389, 412, 8, 31, "Output"]
}, Open  ]],
Cell[52163, 1400, 431, 16, 46, "MathCaption",
 CellID->2139412245],
Cell[CellGroupData[{
Cell[52619, 1420, 518, 17, 59, "Input",
 CellID->1349320912],
Cell[53140, 1439, 440, 10, 61, "Output"]
}, Open  ]],
Cell[53595, 1452, 102, 2, 43, "MathCaption",
 CellID->915261302],
Cell[CellGroupData[{
Cell[53722, 1458, 244, 5, 31, "Input"],
Cell[53969, 1465, 282, 4, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54288, 1474, 307, 9, 31, "Input",
 CellID->557915952],
Cell[54598, 1485, 499, 11, 61, "Output"]
}, Open  ]],
Cell[55112, 1499, 119, 3, 43, "MathCaption",
 CellID->1825228082],
Cell[CellGroupData[{
Cell[55256, 1506, 331, 9, 31, "Input",
 CellID->635373638],
Cell[55590, 1517, 516, 10, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56143, 1532, 1551, 32, 34, "Input"],
Cell[57697, 1566, 7822, 152, 460, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65556, 1723, 2113, 43, 54, "Input"],
Cell[67672, 1768, 22898, 393, 316, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90607, 2166, 1844, 47, 54, "Input"],
Cell[92454, 2215, 34583, 592, 749, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127074, 2812, 1449, 39, 31, "Input"],
Cell[128526, 2853, 8533, 217, 3115, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137096, 3075, 635, 9, 31, "Input"],
Cell[137734, 3086, 3977, 75, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141748, 3166, 284, 5, 31, "Input"],
Cell[142035, 3173, 179, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142251, 3180, 874, 14, 31, "Input"],
Cell[143128, 3196, 10539, 183, 226, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153704, 3384, 321, 7, 31, "Input"],
Cell[154028, 3393, 4407, 83, 469, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158472, 3481, 927, 18, 31, "Input"],
Cell[159402, 3501, 6929, 117, 386, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[166368, 3623, 887, 22, 31, "Input"],
Cell[167258, 3647, 24815, 557, 893, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)