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

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 8.0' *)

(*************************************************************************)
(*                                                                       *)
(*  The Mathematica License under which this file was created prohibits  *)
(*  restricting third parties in receipt of this file from republishing  *)
(*  or redistributing it by any means, including but not limited to      *)
(*  rights management or terms of use, without the express consent of    *)
(*  Wolfram Research, Inc.                                               *)
(*                                                                       *)
(*************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       835,         17]
NotebookDataLength[   6723947,     149376]
NotebookOptionsPosition[   6681450,     148070]
NotebookOutlinePosition[   6681843,     148087]
CellTagsIndexPosition[   6681800,     148084]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["VisibLie_E8: ", "Title",
 CellChangeTimes->{{3.543571764491667*^9, 3.543571772038542*^9}, {
  3.543658659015625*^9, 3.54365866315625*^9}}],

Cell[CellGroupData[{

Cell["\<\
A Theory of Everything Visualizer:
With Octonion/Fano, Dynkin/Cartan, E8 Algebra/Group and Fundamental, Meson, \
Baryon & Atomic Element Particle Layers\
\>", "Subtitle"],

Cell["J. Gregory Moxness", "Subtitle"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "This demonstration combines four demonstrations by the author (and \
integrates four others) which are theoretically related to an extended \
Standard Model (SM) originated by A.G. Lisi. It visualizes the math and \
physics of \"",
 ButtonBox["An Exceptionally Simple Theory of Everything",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://arxiv.org/abs/0711.0770"], None},
  ButtonNote->"http://arxiv.org/abs/0711.0770"],
 "\". "
}], "Subsection",
 CellID->538171866],

Cell[CellGroupData[{

Cell["\<\
It starts with an interaction pane for visualizing the octonions, the Fano \
plane and its cubic. It also allows the manipulation of the 480 different \
permutations of the octonion basis. These are shown to be integrated 2:1 with \
the 240 vertices of E8 and its subgroups.\
\>", "Subsubsection",
 CellID->7093865],

Cell["\<\
The next pane allows for the creation of Dynkin diagrams and their \
corresponding Cartan matrices which generate Lie Algebras. This second pane \
drives the vertex content in the third pane.\
\>", "Subsubsection",
 CellID->482035930],

Cell["\<\
The third pane provides 2D and 3D visualizations of E8 Lie Algebra and it's \
split real even sub group vertices. Each of these vertices are each assigned \
to fundamental physics particles.\
\>", "Subsubsection",
 CellID->532885236],

Cell[TextData[{
 "In the fourth pane, the vertices as fundamental physics particles are \
individually selectable by their quantum parameters. It is an interactive \
extension of the first pane of ",
 ButtonBox["S.M. Blinder\[CloseCurlyQuote]s \[OpenCurlyDoubleQuote]Combining \
Quarks Into Hadrons\[CloseCurlyDoubleQuote]",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/CombiningQuarksIntoHadrons/"], 
    None},
  ButtonNote->"http://demonstrations.wolfram.com/CombiningQuarksIntoHadrons/"],
 ". "
}], "Subsubsection",
 CellID->53520663],

Cell[TextData[{
 "The fifth and sixth panes (Meson/Baryon) are also from",
 ButtonBox[" Blinder\[CloseCurlyQuote]s demonstration",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/CombiningQuarksIntoHadrons/"], 
    None},
  ButtonNote->"http://demonstrations.wolfram.com/CombiningQuarksIntoHadrons/"],
 ". They are integrated and extended here by allowing the selected Meson or \
Hadron to also drive the E8 sub group projection pane. The author has also \
added a query to show all experimentally discovered composite Meson/Baryon \
particles from the ParticleData Group curated data set. "
}], "Subsubsection",
 CellID->107091134],

Cell[TextData[{
 "The seventh pane uses the ChemicalData curated data set, which builds off \
of Enrique Zeleny\[CloseCurlyQuote]s ",
 ButtonBox["Alternative Periodic Table Wolfram Demonstration",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/AnAlternativePeriodicTable"], None},
  ButtonNote->"http://demonstrations.wolfram.com/AnAlternativePeriodicTable"],
 " and creates a 2D/3D/4D (with s-p-d-f colors) Stowe-Janet-Scerri version of \
the Periodic Table. This replaces my older enhanced ",
 ButtonBox["Theodore Gray\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]Properties of the Elements\[CloseCurlyDoubleQuote] \
demonstration",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/PropertiesOfTheElements/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/PropertiesOfTheElements/"],
 ". It creates a clickable pane on the periodic table which adds the \
particles involved in an isotope of the elements. The resulting combination \
of seven panes brings the user from the mathematical abstractions of Geometry \
and Algebra, through particle and nuclear physics, and on to the chemistry of \
the atomic elements."
}], "Subsubsection",
 CellID->46763901],

Cell["\<\
The eighth pane extends the Human Machine Interface (HMI) for the third pane. \
It has a tongue-in-cheek label referring to the user as a biological human \
life form. This UI provides for manipulation of all of the variables used to \
create beautiful E8 projections/animations.\
\>", "Subsubsection"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{TagBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`affine$$ = 0, $CellContext`affineTrk$$ = 
       0, $CellContext`alg$$ = "A1", $CellContext`alg1$$ = 
       "A", $CellContext`algTrk$$ = "A1", $CellContext`altMask$$ = 
       False, $CellContext`anim8EdgeList$$ = False, $CellContext`anti$$ = 
       False, $CellContext`artPrint$$ = False, $CellContext`auxData$$ = 
       False, $CellContext`auxDataTrk$$ = False, $CellContext`auxFile$$ = 
       "./auxData.xls", $CellContext`bAND$$ = 1, $CellContext`bAND1Name$$ = 
       "Hydrogen", $CellContext`bAND1NameTrk$$ = 
       "Hydrogen", $CellContext`bAND2Name$$ = "", $CellContext`bAND2NameTrk$$ = 
       "", $CellContext`bANDTrk$$ = 1, $CellContext`c0$$ = 
       "w", $CellContext`c2a$$ = "r", $CellContext`cylR$$ = 
       0.026, $CellContext`density$$ = True, $CellContext`dimTrim$$ = 
       8, $CellContext`dimTrimTrk$$ = 
       8, $CellContext`dispArr$$ = {
        "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
         "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?",
          "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
         "?", "?", "y", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?",
          "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "y", "?", "?", 
         "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?",
          "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
         "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?",
          "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
         "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?",
          "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
         "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?",
          "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
         "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?",
          "?", "y", "?", "?", "?", "?", "?", "y", "?", "?", "?", "?", "?", 
         "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?",
          "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
         "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?",
          "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
         "?"}, $CellContext`dlXs$$ = {
        "\!\(\*SubscriptBox[\(\[Omega]\), \(S\)]\)"}, $CellContext`dlYs$$ = {
        "\!\(\*SubscriptBox[\(\[ImaginaryI]\[Omega]\), \(T\)]\)"}, \
$CellContext`dlZs$$ = {"W"}, $CellContext`ds$$ = 3, $CellContext`dsName$$ = 
       "physics", $CellContext`dsTrk$$ = 
       3, $CellContext`dynkin$$ = {}, $CellContext`dynkSav$$ = 
       0, $CellContext`dynkTbl$$ = {{{{1, 2}, 1}}, {}, 
         0}, $CellContext`eColorPos$$ = 
       True, $CellContext`edgeList$$ = {{2, 5}, {6^Rational[1, 2], 1}, {
         "All", 6}}, $CellContext`edgeMag$$ = 
       0.9325240811497554, $CellContext`edgeVals$$ = {{
         "All", 6}}, $CellContext`edgeValsTrk$$ = {{
         "All", 6}}, $CellContext`eGrad$$ = 44, $CellContext`eLim$$ = 
       100, $CellContext`elines$$ = {{3, 4}, {1, 4}, {2, 4}, {2, 3}, {1, 2}, {
        1, 3}}, $CellContext`eSort$$ = {{3, 4}, {1, 4}, {2, 4}, {2, 3}, {1, 
        2}, {1, 3}}, $CellContext`eSteps$$ = 
       1, $CellContext`eVF$$ = {
        2, 2, 2, 6^Rational[1, 2], 2, 2}, $CellContext`eVs$$ = {{1, 2}, {1, 
        3}, {1, 4}, {2, 3}, {2, 4}, {3, 4}}, $CellContext`eWnd$$ = 
       100, $CellContext`explode$$ = 
       8, $CellContext`fa$$ = {}, $CellContext`face$$ = 
       1, $CellContext`faceTrk$$ = 1, $CellContext`favorite$$ = 
       3, $CellContext`favoriteTrk$$ = 
       3, $CellContext`fc$$ = {}, $CellContext`fg$$ = {}, \
$CellContext`fileOnly$$ = False, $CellContext`fileOut$$ = 
       False, $CellContext`flip$$ = 
       True, $CellContext`fltrdSubPlot$$ = {44, 66, 192, 
        198}, $CellContext`fltrdSubPlotTrk$$ = {44, 66, 192, 
        198}, $CellContext`fp$$ = {}, $CellContext`fpC$$ = 
       1, $CellContext`fpG$$ = 1, $CellContext`fPi$$ = 
       1, $CellContext`fr$$ = {}, $CellContext`fs$$ = {}, \
$CellContext`fullVerts$$ = {{-1, 0, 0, 0, 0, -3^Rational[-1, 2], 0, -
          Rational[2, 3]^Rational[1, 2]}, {
         0, 0, -2^Rational[-1, 2], -2^Rational[-1, 2], 0, -3^Rational[-1, 2], 
          2^Rational[-1, 2], 6^Rational[-1, 2]}, {
         0, 0, 2^Rational[-1, 2], 2^Rational[-1, 2], 1, 0, 0, 0}, {
         0, 1, 0, 0, 0, -3^Rational[-1, 2], -2^Rational[-1, 2], 6^
          Rational[-1, 2]}}, $CellContext`g0$$ = 1, $CellContext`group$$ = 
       "Sl(2)", $CellContext`H$$ = {
         Rational[1, 2], Rational[1, 2] 2^Rational[-1, 2], 0, Rational[-1, 2] 
         2^Rational[-1, 2], 
         Rational[1, 2], Rational[-1, 2] 2^Rational[-1, 2], 0, Rational[1, 2] 
         2^Rational[-1, 2]}, $CellContext`IJKLstyle$$ = 
       False, $CellContext`infile$$ = "./auxData.m", $CellContext`infileTrk$$ = 
       "./auxData.m", $CellContext`init$$ = True, $CellContext`innerMag$$ = 
       0, $CellContext`innerMagTrk$$ = 0, $CellContext`interactionPane$$ = 
       "7) Chemistry: Periodic Table Element Selector", \
$CellContext`invMask$$ = True, $CellContext`isotope$$ = 
       0, $CellContext`lastViewPoint$$ = {0.75, 0.75, 
        0.75}, $CellContext`lie$$ = "", $CellContext`limitToRange$$ = 
       True, $CellContext`locPtCdArr$$ = {{0., 
        0.18091315553621942`}, {-0.5567934404522487, 0.}, {0.1969492517703763,
         0.16021295504274685`}, {-0.1969492517703763, 0.16021295504274685`}, {
        0.08054772639440973, 0.}, {-0.38529087617102353`, 
        0.09901705165447641}, {0., 0.7663604248754179}, {0.38529087617102353`,
         0.09901705165447641}}, $CellContext`locPtCdTrk$$ = {{0., 
        0.18091315553621942`}, {-0.5567934404522487, 0.}, {0.1969492517703763,
         0.16021295504274685`}, {-0.1969492517703763, 0.16021295504274685`}, {
        0.08054772639440973, 0.}, {-0.38529087617102353`, 
        0.09901705165447641}, {0., 0.7663604248754179}, {0.38529087617102353`,
         0.09901705165447641}}, $CellContext`ltps$$ = {}, \
$CellContext`ltpsTrk$$ = {}, $CellContext`more$$ = True, $CellContext`n0$$ = 
       3, $CellContext`n1$$ = 1, $CellContext`n2$$ = 2, $CellContext`n3$$ = 
       3, $CellContext`nDcamera$$ = 
       1., $CellContext`newPTcd$$ = {}, $CellContext`octImag$$ = {
         Subscript[$CellContext`\[ScriptE], 1], 
         Subscript[$CellContext`\[ScriptE], 2], 
         Subscript[$CellContext`\[ScriptE], 3], 
         Subscript[$CellContext`\[ScriptE], 4], 
         Subscript[$CellContext`\[ScriptE], 5], 
         Subscript[$CellContext`\[ScriptE], 6], 
         Subscript[$CellContext`\[ScriptE], 7]}, $CellContext`outFile$$ = 
       "E8out", $CellContext`outFileDir$$ = "./", $CellContext`outFileType$$ = 
       ".png", $CellContext`outSav$$ = Manipulate[
         PaneSelector[{1 -> Graphics3D[{{
               PointSize[0], 
               Opacity[0], 
               GrayLevel[1], 
               Point[{0, 0, 0}]}, {{
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.25, -0.13520000000000001`, -1.0607}, {
                 0.7020000000000001, 1.204, 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, 0.744, 0.5875}, {0.7020000000000001, 1.204, 
                 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.5985, -0.2285, 0.8464}, {0.7020000000000001, 1.204, 
                 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.5985, -0.2285, 0.8464}, {
                 0.25, -0.13520000000000001`, -1.0607}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                Line[{{-0.5846, 0.744, 0.5875}, {0.5985, -0.2285, 0.8464}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, 0.744, 0.5875}, {
                 0.25, -0.13520000000000001`, -1.0607}}]}}, {{
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 0, 1], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {-0.5846, 0.744, 0.5875}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[
                   Rational[2, 3], 0.33333333333333337`, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.5985, -0.2285, 0.8464}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[1, 1, 0.85], 
                  Translate[
                   Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.27, 0.27, 0.27}, {0, 0, 0}], {
                   0.25, -0.13520000000000001`, -1.0607}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 1, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.7020000000000001, 1.204, 0.9928}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {
               
               Polygon[{{-0.5846, 0.744, 0.5875}, {0.5985, -0.2285, 0.8464}, {
                0.25, -0.13520000000000001`, -1.0607}}], 
               
               Polygon[{{-0.5846, 0.744, 0.5875}, {0.5985, -0.2285, 0.8464}, {
                0.7020000000000001, 1.204, 0.9928}}], 
               
               Polygon[{{-0.5846, 0.744, 0.5875}, {
                0.25, -0.13520000000000001`, -1.0607}, {0.7020000000000001, 
                1.204, 0.9928}}], 
               
               Polygon[{{0.5985, -0.2285, 0.8464}, {
                0.25, -0.13520000000000001`, -1.0607}, {0.7020000000000001, 
                1.204, 0.9928}}]}, {{
                Tooltip[
                 Text[
                  Style[
                   Column[{44, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, 
                   Bold], {-0.5846, 0.744, 0.5875}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{66, 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}], Medium, 
                   Bold], {0.5985, -0.2285, 0.8464}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{192, 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}], Medium, Bold], {
                  0.25, -0.13520000000000001`, -1.0607}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{198, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, Bold], {
                  0.7020000000000001, 1.204, 0.9928}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {{{
                 PointSize[0], 
                 Opacity[0], 
                 GrayLevel[1], 
                 Point[{0, 0, 0}]}}}}, {
             Ticks -> {{0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75, 
               1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75,
                1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 
               0.75, 1.125, 1.5}}, ImageSize -> 643.75, 
              PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}, {-1.5, 1.5}}, Boxed -> 
              False, Axes -> False, AxesLabel -> {"X", "Y", "Z"}, 
              AxesEdge -> {Automatic, Automatic, Automatic}, FaceGrids -> 
              None, FaceGridsStyle -> Directive[
                GrayLevel[0.5], 
                Dashing[{0, Small}]], AspectRatio -> 1, SphericalRegion -> 
              False, ViewPoint -> {0.75, 0.75, 0.75}, ViewCenter -> {
                Rational[1, 2], 
                Rational[1, 2], 
                Rational[1, 2]}, ViewAngle -> 45 Degree}], 2 -> Graphics3D[{{
               PointSize[0], 
               Opacity[0], 
               GrayLevel[1], 
               Point[{0, 0, 0}]}, {{
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.25, -0.8222, -1.0607}, {0.7020000000000001, 1.1812, 
                 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, 0.7111000000000001, 0.5875}, {
                 0.7020000000000001, 1.1812, 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.5985, 0.5276000000000001, 0.8464}, {
                 0.7020000000000001, 1.1812, 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.5985, 0.5276000000000001, 0.8464}, {
                 0.25, -0.8222, -1.0607}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, 0.7111000000000001, 0.5875}, {0.5985, 
                 0.5276000000000001, 0.8464}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, 0.7111000000000001, 0.5875}, {
                 0.25, -0.8222, -1.0607}}]}}, {{
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 0, 1], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {-0.5846, 0.7111000000000001, 
                   0.5875}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[
                   Rational[2, 3], 0.33333333333333337`, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.5985, 0.5276000000000001, 0.8464}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[1, 1, 0.85], 
                  Translate[
                   Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.27, 0.27, 0.27}, {0, 0, 0}], {0.25, -0.8222, -1.0607}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 1, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.7020000000000001, 1.1812, 0.9928}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {
               
               Polygon[{{-0.5846, 0.7111000000000001, 0.5875}, {0.5985, 
                0.5276000000000001, 0.8464}, {0.25, -0.8222, -1.0607}}], 
               
               Polygon[{{-0.5846, 0.7111000000000001, 0.5875}, {0.5985, 
                0.5276000000000001, 0.8464}, {0.7020000000000001, 1.1812, 
                0.9928}}], 
               
               Polygon[{{-0.5846, 0.7111000000000001, 0.5875}, {
                0.25, -0.8222, -1.0607}, {0.7020000000000001, 1.1812, 
                0.9928}}], 
               
               Polygon[{{0.5985, 0.5276000000000001, 0.8464}, {
                0.25, -0.8222, -1.0607}, {0.7020000000000001, 1.1812, 
                0.9928}}]}, {{
                Tooltip[
                 Text[
                  Style[
                   Column[{44, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, 
                   Bold], {-0.5846, 0.7111000000000001, 0.5875}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{66, 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}], Medium, 
                   Bold], {0.5985, 0.5276000000000001, 0.8464}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{192, 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}], Medium, Bold], {
                  0.25, -0.8222, -1.0607}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{198, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, Bold], {
                  0.7020000000000001, 1.1812, 0.9928}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {{{
                 PointSize[0], 
                 Opacity[0], 
                 GrayLevel[1], 
                 Point[{0, 0, 0}]}}}}, {
             Ticks -> {{0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75, 
               1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75,
                1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 
               0.75, 1.125, 1.5}}, ImageSize -> 643.75, 
              PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}, {-1.5, 1.5}}, Boxed -> 
              False, Axes -> False, AxesLabel -> {"X", "Y", "Z"}, 
              AxesEdge -> {Automatic, Automatic, Automatic}, FaceGrids -> 
              None, FaceGridsStyle -> Directive[
                GrayLevel[0.5], 
                Dashing[{0, Small}]], AspectRatio -> 1, SphericalRegion -> 
              False, ViewPoint -> {0.75, 0.75, 0.75}, ViewCenter -> {
                Rational[1, 2], 
                Rational[1, 2], 
                Rational[1, 2]}, ViewAngle -> 45 Degree}], 3 -> Graphics3D[{{
               PointSize[0], 
               Opacity[0], 
               GrayLevel[1], 
               Point[{0, 0, 0}]}, {{
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.25, -1.1953, -1.0607}, {0.7020000000000001, 0.7072, 
                 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, 0.40650000000000003`, 0.5875}, {
                 0.7020000000000001, 0.7072, 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.5985, 1.0822, 0.8464}, {0.7020000000000001, 0.7072, 
                 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                Line[{{0.5985, 1.0822, 0.8464}, {0.25, -1.1953, -1.0607}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, 0.40650000000000003`, 0.5875}, {0.5985, 
                 1.0822, 0.8464}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, 0.40650000000000003`, 0.5875}, {
                 0.25, -1.1953, -1.0607}}]}}, {{
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 0, 1], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {-0.5846, 0.40650000000000003`, 
                   0.5875}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[
                   Rational[2, 3], 0.33333333333333337`, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.5985, 1.0822, 0.8464}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[1, 1, 0.85], 
                  Translate[
                   Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.27, 0.27, 0.27}, {0, 0, 0}], {0.25, -1.1953, -1.0607}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 1, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.7020000000000001, 0.7072, 0.9928}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {
               
               Polygon[{{-0.5846, 0.40650000000000003`, 0.5875}, {0.5985, 
                1.0822, 0.8464}, {0.25, -1.1953, -1.0607}}], 
               
               Polygon[{{-0.5846, 0.40650000000000003`, 0.5875}, {0.5985, 
                1.0822, 0.8464}, {0.7020000000000001, 0.7072, 0.9928}}], 
               
               Polygon[{{-0.5846, 0.40650000000000003`, 0.5875}, {
                0.25, -1.1953, -1.0607}, {0.7020000000000001, 0.7072, 
                0.9928}}], 
               
               Polygon[{{0.5985, 1.0822, 0.8464}, {0.25, -1.1953, -1.0607}, {
                0.7020000000000001, 0.7072, 0.9928}}]}, {{
                Tooltip[
                 Text[
                  Style[
                   Column[{44, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, 
                   Bold], {-0.5846, 0.40650000000000003`, 0.5875}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{66, 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}], Medium, 
                   Bold], {0.5985, 1.0822, 0.8464}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{192, 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}], Medium, Bold], {
                  0.25, -1.1953, -1.0607}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{198, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, Bold], {
                  0.7020000000000001, 0.7072, 0.9928}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {{{
                 PointSize[0], 
                 Opacity[0], 
                 GrayLevel[1], 
                 Point[{0, 0, 0}]}}}}, {
             Ticks -> {{0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75, 
               1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75,
                1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 
               0.75, 1.125, 1.5}}, ImageSize -> 643.75, 
              PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}, {-1.5, 1.5}}, Boxed -> 
              False, Axes -> False, AxesLabel -> {"X", "Y", "Z"}, 
              AxesEdge -> {Automatic, Automatic, Automatic}, FaceGrids -> 
              None, FaceGridsStyle -> Directive[
                GrayLevel[0.5], 
                Dashing[{0, Small}]], AspectRatio -> 1, SphericalRegion -> 
              False, ViewPoint -> {0.75, 0.75, 0.75}, ViewCenter -> {
                Rational[1, 2], 
                Rational[1, 2], 
                Rational[1, 2]}, ViewAngle -> 45 Degree}], 4 -> Graphics3D[{{
               PointSize[0], 
               Opacity[0], 
               GrayLevel[1], 
               Point[{0, 0, 0}]}, {{
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.25, -1.1117000000000001`, -1.0607}, {
                 0.7020000000000001, -0.0369, 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, -0.0533, 0.5875}, {
                 0.7020000000000001, -0.0369, 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.5985, 1.2234, 0.8464}, {0.7020000000000001, -0.0369, 
                 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.5985, 1.2234, 0.8464}, {
                 0.25, -1.1117000000000001`, -1.0607}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, -0.0533, 0.5875}, {0.5985, 1.2234, 
                 0.8464}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, -0.0533, 0.5875}, {
                 0.25, -1.1117000000000001`, -1.0607}}]}}, {{
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 0, 1], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {-0.5846, -0.0533, 0.5875}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[
                   Rational[2, 3], 0.33333333333333337`, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.5985, 1.2234, 0.8464}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[1, 1, 0.85], 
                  Translate[
                   Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.27, 0.27, 0.27}, {0, 0, 0}], {
                   0.25, -1.1117000000000001`, -1.0607}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 1, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.7020000000000001, -0.0369, 
                   0.9928}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {
               
               Polygon[{{-0.5846, -0.0533, 0.5875}, {0.5985, 1.2234, 
                0.8464}, {0.25, -1.1117000000000001`, -1.0607}}], 
               
               Polygon[{{-0.5846, -0.0533, 0.5875}, {0.5985, 1.2234, 
                0.8464}, {0.7020000000000001, -0.0369, 0.9928}}], 
               
               Polygon[{{-0.5846, -0.0533, 0.5875}, {
                0.25, -1.1117000000000001`, -1.0607}, {
                0.7020000000000001, -0.0369, 0.9928}}], 
               
               Polygon[{{0.5985, 1.2234, 0.8464}, {
                0.25, -1.1117000000000001`, -1.0607}, {
                0.7020000000000001, -0.0369, 0.9928}}]}, {{
                Tooltip[
                 Text[
                  Style[
                   Column[{44, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, 
                   Bold], {-0.5846, -0.0533, 0.5875}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{66, 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}], Medium, 
                   Bold], {0.5985, 1.2234, 0.8464}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{192, 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}], Medium, Bold], {
                  0.25, -1.1117000000000001`, -1.0607}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{198, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, Bold], {
                  0.7020000000000001, -0.0369, 0.9928}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {{{
                 PointSize[0], 
                 Opacity[0], 
                 GrayLevel[1], 
                 Point[{0, 0, 0}]}}}}, {
             Ticks -> {{0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75, 
               1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75,
                1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 
               0.75, 1.125, 1.5}}, ImageSize -> 643.75, 
              PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}, {-1.5, 1.5}}, Boxed -> 
              False, Axes -> False, AxesLabel -> {"X", "Y", "Z"}, 
              AxesEdge -> {Automatic, Automatic, Automatic}, FaceGrids -> 
              None, FaceGridsStyle -> Directive[
                GrayLevel[0.5], 
                Dashing[{0, Small}]], AspectRatio -> 1, SphericalRegion -> 
              False, ViewPoint -> {0.75, 0.75, 0.75}, ViewCenter -> {
                Rational[1, 2], 
                Rational[1, 2], 
                Rational[1, 2]}, ViewAngle -> 45 Degree}], 5 -> Graphics3D[{{
               PointSize[0], 
               Opacity[0], 
               GrayLevel[1], 
               Point[{0, 0, 0}]}, {{
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.25, -0.6036, -1.0607}, {0.7020000000000001, -0.7669, 
                 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, -0.4928, 0.5875}, {
                 0.7020000000000001, -0.7669, 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.5985, 0.8973000000000001, 0.8464}, {
                 0.7020000000000001, -0.7669, 0.9928}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{0.5985, 0.8973000000000001, 0.8464}, {
                 0.25, -0.6036, -1.0607}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, -0.4928, 0.5875}, {0.5985, 0.8973000000000001,
                  0.8464}}]}, {
                Thickness[0.001], 
                RGBColor[1., 0.820127, 0.126955], 
                
                Line[{{-0.5846, -0.4928, 0.5875}, {
                 0.25, -0.6036, -1.0607}}]}}, {{
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 0, 1], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {-0.5846, -0.4928, 0.5875}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[
                   Rational[2, 3], 0.33333333333333337`, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.5985, 0.8973000000000001, 0.8464}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[1, 1, 0.85], 
                  Translate[
                   Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.27, 0.27, 0.27}, {0, 0, 0}], {0.25, -0.6036, -1.0607}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                EdgeForm[{
                  Thickness[Tiny], 
                  GrayLevel[0.85]}], 
                Tooltip[{
                  RGBColor[0, 1, 0], 
                  Translate[
                   Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.27, 0.27, 
                    0.27}, {0, 0, 0}], {0.7020000000000001, -0.7669, 
                   0.9928}]}, 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {
               
               Polygon[{{-0.5846, -0.4928, 0.5875}, {0.5985, 
                0.8973000000000001, 0.8464}, {0.25, -0.6036, -1.0607}}], 
               
               Polygon[{{-0.5846, -0.4928, 0.5875}, {0.5985, 
                0.8973000000000001, 0.8464}, {0.7020000000000001, -0.7669, 
                0.9928}}], 
               
               Polygon[{{-0.5846, -0.4928, 0.5875}, {
                0.25, -0.6036, -1.0607}, {0.7020000000000001, -0.7669, 
                0.9928}}], 
               
               Polygon[{{0.5985, 0.8973000000000001, 0.8464}, {
                0.25, -0.6036, -1.0607}, {0.7020000000000001, -0.7669, 
                0.9928}}]}, {{
                Tooltip[
                 Text[
                  Style[
                   Column[{44, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, 
                   Bold], {-0.5846, -0.4928, 0.5875}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 0, 1], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 0, 1], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["b", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Vee]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 125}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[125, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 44}], {-1, 0, 0, 0, 0, 0, 
                    0, -1}}, {"E8 Root", {-1, -1, -1, 0, 0, 0, 0, 0}}, {
                    "E8 Weight", {0, 0, 0, 1, 0, -1, 1, -1}}, {
                    "E8 Height", 4}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 26, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 7, 2}, {1, 4, 3}, {1, 
                    6, 5}, {2, 6, 3}, {2, 5, 4}, {3, 7, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[7, 
                    RGBColor[1, 0, 0], Bold], 4, 3, 6, 5}, {1, 1, 1, 1, 1, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 25, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 7}, {1, 3, 4}, {1, 
                    6, 5}, {2, 5, 3}, {2, 6, 4}, {3, 7, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 7, 3, 4, 6, 5}, {0,
                     0, 1, 1, 1, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{66, 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}], Medium, 
                   Bold], {0.5985, 0.8973000000000001, 0.8464}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[
                    Rational[2, 3], 0.33333333333333337`, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["d", 
                    Subscript["o", "d"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Vee]"], 
                    "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]]}, {
                    "Exp. Mass: ", 
                    Row[{
                    NumberForm[5., 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 17}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[17, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 66}], {0, 0, -1, 0, 0, -1, 
                    0, 0}}, {"E8 Root", {-1, -1, -2, -2, -1, -1, -1, 0}}, {
                    "E8 Weight", {-1, 0, 1, -1, 0, 0, 1, 0}}, {
                    "E8 Height", 10}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 8, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 2}], {{1, 4, 2}, {1, 3, 5}, {1, 
                    6, 7}, {2, 3, 7}, {2, 5, 6}, {3, 4, 6}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[4, 
                    RGBColor[1, 0, 0], Bold], 3, 5, 6, 7}, {1, 0, 0, 0, 0, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 10, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 4}, {1, 3, 6}, {1, 
                    5, 7}, {2, 7, 3}, {2, 5, 6}, {3, 4, 5}, {4, 6, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 2, 4, 3, 6, 5, 7}, {0,
                     0, 0, 1, 0, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{192, 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}], Medium, Bold], {
                  0.25, -0.6036, -1.0607}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{0.995, 0.9971132486540518}, {1.005, 
                    0.9971132486540518}, {1, 1.0057735026918964`}}], {
                    RGBColor[1, 1, 0.85], 
                    Polygon[{{
                    Rational[-1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    Rational[1, 4], Rational[-1, 4] 3^Rational[-1, 2]}, {
                    0, Rational[1, 2] 3^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    0.005, 0.005, 0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[1, 1, 0.85], 
                    Translate[
                    Scale[{
                    
                    GraphicsComplex[{{
                    0, 0, Rational[2, 3]^Rational[1, 2] + 
                    Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[-1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    Rational[-1, 2] 3^Rational[-1, 2], 
                    Rational[1, 2], Rational[-1, 2] 6^Rational[-1, 2]}, {
                    3^Rational[-1, 2], 0, Rational[-1, 2] 6^Rational[-1, 2]}}, 
                    Polygon[{{2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {1, 4, 3}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["e", 
                    Subscript["y", "l"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["R", "\[Wedge]"], "-"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 5}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[5, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 192}], {0, 0, 1, 0, 1, 0, 
                    0, 0}}, {"E8 Root", {1, 1, 2, 2, 1, 1, 0, 0}}, {
                    "E8 Weight", {-1, 1, -1, 1, 0, 0, -1, 0}}, {
                    "E8 Height", 9}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 1, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 5}], {{1, 2, 3}, {1, 5, 4}, {1, 
                    7, 6}, {2, 4, 6}, {2, 7, 5}, {3, 4, 7}, {3, 5, 6}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[3, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 5, 4, 7, 6}, {0, 1, 1, 0, 1, 0, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    Row[{"Octonion triads Fano index=", 2, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 3, 2}, {1, 4, 5}, {1, 
                    7, 6}, {2, 4, 7}, {2, 6, 5}, {3, 4, 6}, {3, 5, 7}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 3, 2, 4, 5, 7, 6}, {1,
                     0, 1, 0, 1, 0, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}, {
                Tooltip[
                 Text[
                  Style[
                   Column[{198, 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}], Medium, Bold], {
                  0.7020000000000001, -0.7669, 0.9928}], 
                 Text[
                  Grid[{{
                    Row[{"Ref. Symbols: 2D", 
                    Graphics[{
                    EdgeForm[
                    GrayLevel[0]], 
                    
                    Polygon[{{1.0035355339059326`, 0.9964644660940672}, {
                    1.0035355339059326`, 1.0035355339059326`}, {
                    0.9964644660940672, 1.0035355339059326`}, {
                    0.9964644660940672, 0.9964644660940672}, {
                    1.0035355339059326`, 0.9964644660940672}}], {
                    RGBColor[0, 1, 0], 
                    
                    Polygon[{{
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[-1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}, {
                    Rational[1, 4] 2^Rational[-1, 2], Rational[-1, 4] 
                    2^Rational[-1, 2]}}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 30], " 3D ", 
                    Graphics3D[{
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {0.005, 0.005, 
                    0.005}, {0, 0, 0}], {1, 1, 1}], {
                    RGBColor[0, 1, 0], 
                    Translate[
                    Scale[{
                    GraphicsComplex[{{
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[-1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[-1, 2], 
                    Rational[1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[-1, 2]}, {
                    Rational[1, 2], 
                    Rational[1, 2], 
                    Rational[1, 2]}}, 
                    
                    Polygon[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 
                    1, 2}, {1, 3, 7, 5}, {2, 1, 5, 6}}]]}, {
                    Rational[1, 4], 
                    Rational[1, 4], 
                    Rational[1, 4]}, {0, 0, 0}], {0, 0, 0}]}}, Background -> 
                    RGBColor[1, 1, 0.85], ImageSize -> 50, Boxed -> 
                    False]}]}, {
                    Grid[{{"Ref. Label: ", 
                    HoldForm[HoldForm[
                    Underoverscript["u", 
                    Subscript["g", "m"], ""]] HoldForm[
                    Subsuperscript[
                    Invisible[$CellContext`\[VerticalLine]], 
                    Overscript["L", "\[Wedge]"], 
                    "\!\(TraditionalForm\`2\/3\)"]]]}, {"Exp. Mass: ", 
                    Row[{
                    NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], 
                    " MeV"}]}, {"Th.  Mass: ", "n/a"}, {"Exp. Lifetime: ", 
                    Row[{"?", " s"}]}, {
                    Row[{"Bitwise #: ", 105}], 
                    Column[{
                    Row[{
                    PaddedForm[
                    BaseForm[105, 2], 8, NumberPadding -> {"0", "0"}]}], 
                    Row[{"0apccssgg-Bits"}]}, Frame -> True]}, {
                    Row[{"Clifford/Pascal E8 #: ", 198}], {0, 1, 0, 0, 0, 
                    0, -1, 0}}, {
                    "E8 Root", {-4, -2, -5, -4, -3, -2, -1, -2}}, {
                    "E8 Weight", {0, 0, 0, 0, 0, -1, 0, 1}}, {
                    "E8 Height", 24}, {
                    Column[{" Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 19, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 3}], {{1, 2, 6}, {1, 3, 4}, {1, 
                    5, 7}, {2, 5, 3}, {2, 4, 7}, {3, 7, 6}, {4, 5, 6}}, 
                    "HoffmanSingleton (Yellow)"}, Center, ItemSize -> 31], 
                    Column[{"flat triad/mask bits", {1, 
                    Style[6, 
                    RGBColor[1, 0, 0], Bold], 
                    Style[2, 
                    RGBColor[1, 0, 0], Bold], 3, 4, 5, 7}, {0, 0, 0, 1, 0, 1, 
                    0}, ""}, Center, ItemSize -> 15]}]}, Center, ItemSize -> 
                    32], 
                    Column[{" Not Flipped ", 
                    Row[{
                    Column[{
                    
                    Row[{"Octonion triads Fano index=", 17, 
                    " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", "fp_sm=", 8}], {{1, 5, 2}, {1, 3, 7}, {1, 
                    4, 6}, {2, 3, 4}, {2, 6, 7}, {3, 6, 5}, {4, 5, 7}}, 
                    "Coxeter (Cyan)"}, Center, ItemSize -> 31], 
                    
                    Column[{"flat triad/mask bits", {1, 5, 2, 3, 7, 4, 6}, {1,
                     0, 0, 0, 0, 1, 0}, ""}, Center, ItemSize -> 15]}]}, 
                    Center, ItemSize -> 32]}, {"", ""}}]}}]]]}}, {{{
                 PointSize[0], 
                 Opacity[0], 
                 GrayLevel[1], 
                 Point[{0, 0, 0}]}}}}, {
             Ticks -> {{0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75, 
               1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 0.75,
                1.125, 1.5}, {0., -0.375, -0.75, -1.125, -1.5, 0., 0.375, 
               0.75, 1.125, 1.5}}, ImageSize -> 643.75, 
              PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}, {-1.5, 1.5}}, Boxed -> 
              False, Axes -> False, AxesLabel -> {"X", "Y", "Z"}, 
              AxesEdge -> {Automatic, Automatic, Automatic}, FaceGrids -> 
              None, FaceGridsStyle -> Directive[
                GrayLevel[0.5], 
                Dashing[{0, Small}]], AspectRatio -> 1, SphericalRegion -> 
              False, ViewPoint -> {0.75, 0.75, 0.75}, ViewCenter -> {
                Rational[1, 2], 
                Rational[1, 2], 
                Rational[1, 2]}, ViewAngle -> 45 Degree}]}, 
          Dynamic[$CellContext`i3], ImageSize -> All, Alignment -> 
          Automatic], {{$CellContext`i3, 1, ""}, 1, 5, 1, AnimationRate -> 
          Automatic, DisplayAllSteps -> True, DefaultDuration -> 3, 
          AnimationRunning -> False, 
          AppearanceElements -> {
           "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
            "DirectionButton"}}, ControlType -> Animator, AppearanceElements -> 
         None, DefaultBaseStyle -> "ListAnimate", DefaultLabelStyle -> 
         "ListAnimateLabel", SynchronousUpdating -> True, 
         Method -> {"DynamicCore" -> False, "TemplateExpand" -> True}, 
         Bookmarks -> {
          "min" :> {$CellContext`i3 = 1}, 
           "max" :> {$CellContext`i3 = 5}}], $CellContext`p3D$$ = 
       " 3D", $CellContext`p3DTrk$$ = " 3D", $CellContext`permName$$ = 
       "Parent", $CellContext`permTrk$$ = 0, $CellContext`perspective$$ = 
       False, $CellContext`pGrad$$ = 0, $CellContext`physics$$ = 
       True, $CellContext`physicsTrk$$ = 
       True, $CellContext`plines$$ = {}, $CellContext`pListName$$ = 
       "None", $CellContext`pSize$$ = $CellContext`nrml, $CellContext`pt$$ = {
        0, 0, 0}, $CellContext`ptDD$$ = 0, $CellContext`ptDDTrk$$ = 
       0, $CellContext`pthPtCds$$ = "Identity", $CellContext`pthRot$$ = 
       "Trans", $CellContext`pthRotTrk$$ = 
       "Trans", $CellContext`ptsLoc$$ = {{1, 2}, 1}, $CellContext`ptsLocSav$$ = 
       0, $CellContext`ptype$$ = 2, $CellContext`q2a$$ = 
       "UpQuark", $CellContext`q2b$$ = "DownQuarkBar", $CellContext`q3a$$ = 
       "UpQuark", $CellContext`q3b$$ = "UpQuark", $CellContext`q3c$$ = 
       "UpQuark", $CellContext`r0$$ = "l", $CellContext`r1$$ = 
       1, $CellContext`range$$ = 1.5, $CellContext`rank$$ = 
       8, $CellContext`rectification$$ = 
       0, $CellContext`rectNodes$$ = {}, $CellContext`refresh$$ = 
       False, $CellContext`s0$$ = 
       Overscript["L", "\[Vee]"], $CellContext`s1$$ = 
       "HeptaHepteHeptiHexiPentiSteriRunciCantiPentellated", \
$CellContext`s2$$ = Overscript["L", "\[Vee]"], $CellContext`s3$$ = 
       Overscript["L", "\[Vee]"], $CellContext`s4$$ = 
       Overscript["L", "\[Vee]"], $CellContext`s5$$ = 
       Overscript["L", "\[Vee]"], $CellContext`s6$$ = 
       Overscript["L", "\[Vee]"], $CellContext`scale$$ = 
       0.54, $CellContext`selAlgebra$$ = "A1", $CellContext`selAlgebraTrk$$ = 
       "A1", $CellContext`selCoxeter$$ = "", $CellContext`selCoxeterTrk$$ = 
       "", $CellContext`selDynkin$$ = 1, $CellContext`selDynkinTrk$$ = 
       1, $CellContext`showAxes$$ = False, $CellContext`showAxesTrk$$ = 
       False, $CellContext`showClickVerts$$ = 
       False, $CellContext`showClickVertsTrk$$ = 
       False, $CellContext`showClr$$ = False, $CellContext`showEdges$$ = 
       True, $CellContext`showEdgesTrk$$ = True, $CellContext`showPartVert$$ = 
       True, $CellContext`showPartVertTrk$$ = True, $CellContext`showPerim$$ = 
       False, $CellContext`showPlocs$$ = False, $CellContext`showPmass$$ = 
       False, $CellContext`showPolySurfaces$$ = 
       True, $CellContext`showPtext$$ = True, $CellContext`showPtextTrk$$ = 
       True, $CellContext`showPvecs$$ = False, $CellContext`showSurfaces$$ = 
       False, $CellContext`sm$$ = 4, $CellContext`steps$$ = 
       5, $CellContext`stepsTrk$$ = 5, $CellContext`stowe$$ = 
       True, $CellContext`tickNum$$ = 
       4, $CellContext`tlines$$ = {}, $CellContext`tT$$ = {}, \
$CellContext`ttED$$ = 
       "ElectronConfigurationString", $CellContext`tTTrk$$ = {}, \
$CellContext`useDimLocs$$ = False, $CellContext`useDimLocsTrk$$ = 
       False, $CellContext`V$$ = {0, Rational[1, 2] 2^Rational[-1, 2], 
         Rational[1, 2], Rational[1, 2] 2^Rational[-1, 2], 0, Rational[-1, 2] 
         2^Rational[-1, 2], 
         Rational[-1, 2], Rational[-1, 2] 
         2^Rational[-1, 2]}, $CellContext`verts$$ = {{-1, 0, 0, 0, 
          0, -3^Rational[-1, 2], 0, -Rational[2, 3]^Rational[1, 2]}, {
         0, 0, -2^Rational[-1, 2], -2^Rational[-1, 2], 0, -3^Rational[-1, 2], 
          2^Rational[-1, 2], 6^Rational[-1, 2]}, {
         0, 0, 2^Rational[-1, 2], 2^Rational[-1, 2], 1, 0, 0, 0}, {
         0, 1, 0, 0, 0, -3^Rational[-1, 2], -2^Rational[-1, 2], 6^
          Rational[-1, 2]}}, $CellContext`view3D$$ = 
       False, $CellContext`vLineColors$$ = {}, $CellContext`vlines$$ = {}, \
$CellContext`vOverlapColor$$ = 
       False, $CellContext`xy$$ = {1, 1}, $CellContext`XY$$ = {20, 20, 
        20}, $CellContext`xyVwPnt$$ = {0.75, 
        0.75}, $CellContext`Z$$ = {-2^Rational[-1, 2], 
         Rational[1, 2], 0, 
         Rational[-1, 2], -2^Rational[-1, 2], 
         Rational[-1, 2], 0, 
         Rational[1, 2]}, $CellContext`zoom$$ = 0, $CellContext`zVwPnt$$ = 
       0.75, $CellContext`zz$$ = 1, Typeset`show$$ = True, 
       Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
       Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
       "\"untitled\"", Typeset`specs$$ = {{{
           Hold[$CellContext`refresh$$], True}, 0}, {{
           Hold[$CellContext`interactionPane$$], 
           "3) Math: Algebra: E8 Lie Algebra & Subgroups Visualizer"}, {
          "1) Math: Numbers: Octonion Fano Plane & Cubic", 
           "2) Math: Geometry: Dynkin Diagram Algebra Creator", 
           "3) Math: Algebra: E8 Lie Algebra & Subgroups Visualizer", 
           "4) Physics: Particle: Fundamental Quantum Element Builder", 
           "5) Physics: Nuclear: Meson Particle Selector", 
           "6) Physics: Atomic: Baryon Particle Selector", 
           "7) Chemistry: Periodic Table Element Selector", 
           "8) Biology: Life: nD Human Machine Interface"}}, {
          Hold[
           Item[
            
            PaneSelector[{
             "1) Math: Numbers: Octonion Fano Plane & Cubic" -> Column[{
                 Row[{"Fano basis permutation: sm_anti ", 
                   Checkbox[
                    Dynamic[$CellContext`invMask$$]], "  sm_type[yaw_spin] ", 
                   RadioButtonBar[
                    Dynamic[$CellContext`altMask$$], {False -> 1, True -> 2}], 
                   Dynamic[
                    If[$CellContext`altMask$$, "  In  ", " Out"]], 
                   "  sm_spin ", 
                   Dynamic[
                    SetterBar[
                    Dynamic[$CellContext`sm$$], {1 -> Part[
                    $CellContext`smCnv[$CellContext`altMask$$], 1], 2 -> Part[
                    $CellContext`smCnv[$CellContext`altMask$$], 2], 3 -> Part[
                    $CellContext`smCnv[$CellContext`altMask$$], 3], 4 -> Part[
                    $CellContext`smCnv[$CellContext`altMask$$], 4]}]], 
                   Dynamic[
                    $CellContext`smQ[
                    Part[
                    $CellContext`smCnv[$CellContext`altMask$$], \
$CellContext`sm$$]]], 
                   Dynamic[
                    Part[$CellContext`spList, $CellContext`sm$$]], 
                   "\[RightArrow]", 
                   Dynamic[
                    $CellContext`hexMask[$CellContext`invMask$$, \
$CellContext`altMask$$, $CellContext`fPi$$, $CellContext`sm$$]], 
                   "  fp_color ", 
                   Dynamic[
                    SetterBar[
                    Dynamic[$CellContext`fpC$$], {0 -> Part[
                    Part[$CellContext`colorList, 
                    Span[5, 8]], 1], 1 -> Part[
                    Part[$CellContext`colorList, 
                    Span[5, 8]], 2], 2 -> Part[
                    Part[$CellContext`colorList, 
                    Span[5, 8]], 3], 3 -> Part[
                    Part[$CellContext`colorList, 
                    Span[5, 8]], 4]}]], "  fp_gen ", 
                   Dynamic[
                    SetterBar[
                    Dynamic[$CellContext`fpG$$], Range[4] - 1]], "  fp_flip ", 
                   Checkbox[
                    Dynamic[$CellContext`flip$$]]}], 
                 Row[{"IJKL Style ", 
                   Checkbox[
                    Dynamic[$CellContext`IJKLstyle$$]], 
                   Spacer[5], "  n1 ", 
                   Dynamic[
                    SetterBar[
                    Dynamic[$CellContext`n1$$], 
                    Map[# -> Part[$CellContext`octImag$$, #]& , 
                    Range[7]]]], "  n2 ", 
                   Dynamic[
                    SetterBar[
                    Dynamic[$CellContext`n2$$], 
                    Map[# -> Part[$CellContext`octImag$$, #]& , 
                    Range[7]]]], "  n3 ", 
                   Dynamic[
                    SetterBar[
                    Dynamic[$CellContext`n3$$], 
                    Map[# -> Part[$CellContext`octImag$$, #]& , 
                    Range[7]]]]}]}], 
              "2) Math: Geometry: Dynkin Diagram Algebra Creator" -> Column[{
                 Row[{
                   Button[" reset ", $CellContext`init$$ = True], 
                   Spacer[25], "menu of Dynkin diagrams: ", 
                   PopupMenu[
                    Dynamic[$CellContext`selAlgebra$$], {
                    "A1", "A2", "A3", "A4", "A5", "A6", "A7", "B2", "B3", 
                    "B4", "B5", "B6", "B7", "B8", "C3", "C4", "C5", "C6", 
                    "C7", "C8", "D4", "D5", "D6", "D7", "D8", "E6", "E7", 
                    "E8", "F4", "G2", "H3", "H4", "CUBE2", "CUBE3", "CUBE4", 
                    "CUBE5", "CUBE6", "CUBE7", "FINITE1", "FOLDED1", 
                    "FOLDED2", "EXTENDED1", "LOOPED1", "MONSTER1", 
                    "MONSTER2"}], 
                   Spacer[25], "recognize as type: ", 
                   Dynamic[
                    SetterBar[
                    Dynamic[$CellContext`affineTrk$$], {
                    0 -> "finite", 1 -> "affine", 2 -> "hyperbolic", 3 -> 
                    "very extended"}]]}], 
                 Row[{"Coxeter geometric permutation: ", 
                   Dynamic[
                    Slider[
                    Dynamic[$CellContext`selDynkin$$], {
                    1, 2^Min[8, $CellContext`rank$$], 1}, ImageSize -> 225, 
                    ContinuousAction -> False]], 
                   Dynamic[$CellContext`selDynkin$$], 
                   Spacer[10], "name: ", 
                   Dynamic[$CellContext`permName$$]}]}], 
              "3) Math: Algebra: E8 Lie Algebra & Subgroups Visualizer" -> 
              Column[{
                 Row[{"projection ", 
                   PopupMenu[
                    Dynamic[$CellContext`selCoxeter$$], {
                    "D+1=BC2", "D+1=BC3", "D+1=BC4", "D+1=BC5", "D+1=BC6", 
                    "D+1=BC7", "D+1=BC8", "A5(6)", "A7(8)", "E6(12)", 
                    "E7(18)", "20", "24", "E8(30)", "Pascal2", "Pascal3", 
                    "Pascal4", "Pascal5", "Pascal6", "Pascal7"}], 
                   "   menu 1 ", 
                   PopupMenu[
                    Dynamic[$CellContext`bAND1Name$$], {
                    "E8", "E8 hexes", "E8 hyper", "E8 3", "E8 3D", "E8 24x10",
                     "E8 12x5", "E8 Petrie", "E8 in E6", "E7", "E6", "E6 a", 
                    "E5", "E4", "F4", "H4", "G2", "Tesseract", "16 cell", 
                    "24 cell", "24 cell D4", "24 cell G2", "600 cell 3D", 
                    "Hydrogen", "none"}], " 2 ", 
                   PopupMenu[
                    Dynamic[$CellContext`bAND2Name$$], {
                    "F4 tris", "F4 to G2", "F4 star", "2 cube Pascal", 
                    "3 cube Pascal", "4 cube Pascal", "5 cube Pascal", 
                    "6 cube Pascal", "7 cube Pascal", "8 cube Pascal", 
                    "2 cube Petrie", "3 cube Petrie", "4 cube Petrie", 
                    "5 cube Petrie", "6 cube Petrie", "7 cube Petrie", 
                    "8 cube Petrie", "lepton info", "quark info", 
                    "quark column", "binary", "binary star", "binary square", 
                    "devolution"}], " vertices=", 
                   Dynamic[
                    Length[$CellContext`fltrdSubPlot$$]], " edges=", 
                   Dynamic[
                    Length[$CellContext`elines$$]], " trialities=", 
                   Dynamic[
                    Length[$CellContext`tlines$$]], " clicked edges=", 
                   Dynamic[
                    Length[
                    
                    If[$CellContext`physics$$, $CellContext`plines$$, \
$CellContext`vlines$$]]]}], 
                 Row[{"axes ", 
                   Checkbox[
                    Dynamic[$CellContext`showAxes$$]], " edges ", 
                   Checkbox[
                    Dynamic[$CellContext`showEdges$$]], " physics ", 
                   Checkbox[
                    Dynamic[$CellContext`physics$$]], " labels ", 
                   Checkbox[
                    Dynamic[$CellContext`showPtext$$]], " axes locators ", 
                   Checkbox[
                    Dynamic[$CellContext`useDimLocs$$]], " ", 
                   RadioButtonBar[
                    Dynamic[$CellContext`p3D$$], {" 2D", " 3D"}], 
                   " triality ", 
                   TogglerBar[
                    Dynamic[$CellContext`tT$$], {
                    "T1", "T1p", "T2", "T2p", "T4", "T4p"}], "", " steps ", 
                   Slider[
                    Dynamic[$CellContext`steps$$], {1, 60, 1}, ImageSize -> 
                    60, ContinuousAction -> False], 
                   Dynamic[$CellContext`steps$$]}]}], 
              "4) Physics: Particle: Fundamental Quantum Element Builder" -> 
              Grid[{{" anti", "pType", "spin", "color", "gen", "row"}, {
                  Checkbox[
                   Dynamic[$CellContext`anti$$]], 
                  RadioButtonBar[
                   Dynamic[$CellContext`ptype$$], {1, 2}], 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`s0$$], $CellContext`spList, Enabled -> 
                    If[$CellContext`r1$$ == 3, False, True]]], 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`c0$$], 
                    Part[$CellContext`colorList, 
                    Span[5, 8]], Enabled -> If[
                    Or[$CellContext`r1$$ == 1, $CellContext`r1$$ == 5], False,
                     True]]], 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`g0$$], 
                    Range[3], Enabled -> 
                    If[$CellContext`r1$$ > 2, False, True]]], 
                  Dynamic[
                   PopupMenu[
                    Dynamic[$CellContext`r0$$], $CellContext`flavorRows]]}}], 
              "5) Physics: Nuclear: Meson Particle Selector" -> 
              Grid[{{"quark", 
                  SetterBar[
                   Dynamic[$CellContext`c2a$$], {"r", "g", "b"}], 
                  SetterBar[
                   Dynamic[$CellContext`s2$$], {
                    Overscript["L", "\[Vee]"], 
                    Overscript["R", "\[Wedge]"], 
                    Overscript["L", "\[Wedge]"], 
                    Overscript["R", "\[Vee]"]}], 
                  RadioButtonBar[
                   Dynamic[$CellContext`q2a$$], {
                   "UpQuark" -> "u", "DownQuark" -> "d", "StrangeQuark" -> 
                    "s", "CharmQuark" -> "c", "BottomQuark" -> "b", 
                    "TopQuark" -> "t"}]}, {"antiquark", 
                  SetterBar[
                   Dynamic[$CellContext`c2a$$], {"r", "g", "b"}], 
                  SetterBar[
                   Dynamic[$CellContext`s3$$], {
                    Overscript["L", "\[Vee]"], 
                    Overscript["R", "\[Wedge]"], 
                    Overscript["L", "\[Wedge]"], 
                    Overscript["R", "\[Vee]"]}], 
                  RadioButtonBar[
                   Dynamic[$CellContext`q2b$$], {
                   "UpQuarkBar" -> "\!\(\*OverscriptBox[\(u\), \(_\)]\)", 
                    "DownQuarkBar" -> "\!\(\*OverscriptBox[\(d\), \(_\)]\)", 
                    "StrangeQuarkBar" -> 
                    "\!\(\*OverscriptBox[\(s\), \(_\)]\)", "CharmQuarkBar" -> 
                    "\!\(\*OverscriptBox[\(c\), \(_\)]\)", "BottomQuarkBar" -> 
                    "\!\(\*OverscriptBox[\(b\), \(_\)]\)", "TopQuarkBar" -> 
                    "\!\(\*OverscriptBox[\(t\), \(_\)]\)"}]}}], 
              "6) Physics: Atomic: Baryon Particle Selector" -> Column[{
                 Row[{"r ", 
                   Item[
                    SetterBar[
                    Dynamic[$CellContext`s4$$], {
                    Overscript["L", "\[Vee]"], 
                    Overscript["R", "\[Wedge]"], 
                    Overscript["L", "\[Wedge]"], 
                    Overscript["R", "\[Vee]"]}]], 
                   RadioButtonBar[
                    Dynamic[$CellContext`q3a$$], {
                    "UpQuark" -> "u", "DownQuark" -> "d", "StrangeQuark" -> 
                    "s", "CharmQuark" -> "c", "BottomQuark" -> "b", 
                    "TopQuark" -> "t"}], 
                   Spacer[20], "  g", 
                   SetterBar[
                    Dynamic[$CellContext`s5$$], {
                    Overscript["L", "\[Vee]"], 
                    Overscript["R", "\[Wedge]"], 
                    Overscript["L", "\[Wedge]"], 
                    Overscript["R", "\[Vee]"]}], 
                   RadioButtonBar[
                    Dynamic[$CellContext`q3b$$], {
                    "UpQuark" -> "u", "DownQuark" -> "d", "StrangeQuark" -> 
                    "s", "CharmQuark" -> "c", "BottomQuark" -> "b", 
                    "TopQuark" -> "t"}]}], 
                 Row[{"b ", 
                   SetterBar[
                    Dynamic[$CellContext`s6$$], {
                    Overscript["L", "\[Vee]"], 
                    Overscript["R", "\[Wedge]"], 
                    Overscript["L", "\[Wedge]"], 
                    Overscript["R", "\[Vee]"]}], 
                   RadioButtonBar[
                    Dynamic[$CellContext`q3c$$], {
                    "UpQuark" -> "u", "DownQuark" -> "d", "StrangeQuark" -> 
                    "s", "CharmQuark" -> "c", "BottomQuark" -> "b", 
                    "TopQuark" -> "t"}]}]}], 
              "7) Chemistry: Periodic Table Element Selector" -> Column[{
                 Row[{"isotope ", 
                   SetterBar[
                    Dynamic[$CellContext`isotope$$], {-3, -2, -1, 0, 1, 2, 
                    3}], "     tooltip element display ", 
                   PopupMenu[
                    Dynamic[$CellContext`ttED$$], {
                    "Abbreviation", "AbsoluteBoilingPoint", 
                    "AbsoluteMeltingPoint", "AdiabaticIndex", 
                    "AllotropeNames", "AllotropicMultiplicities", 
                    "AlternateNames", "AlternateStandardNames", 
                    "AtomicNumber", "AtomicRadius", "AtomicWeight", "Block", 
                    "BoilingPoint", "BrinellHardness", "BulkModulus", 
                    "CASNumber", "Color", "CommonCompoundNames", 
                    "CovalentRadius", "CriticalPressure", 
                    "CriticalTemperature", "CrustAbundance", 
                    "CrystalStructure", "CuriePoint", "DecayMode", "Density", 
                    "DiscoveryCountries", "DiscoveryYear", 
                    "ElectricalConductivity", "ElectricalType", 
                    "ElectronAffinity", "ElectronConfiguration", 
                    "ElectronConfigurationString", "Electronegativity", 
                    "ElectronShellConfiguration", "FusionHeat", 
                    "GasAtomicMultiplicities", "Group", "HalfLife", 
                    "HumanAbundance", "IconColor", "IonizationEnergies", 
                    "IsotopeAbundances", "KnownIsotopes", "LatticeAngles", 
                    "LatticeConstants", "Lifetime", "LiquidDensity", 
                    "MagneticType", "MassMagneticSusceptibility", 
                    "MeltingPoint", "Memberships", "MeteoriteAbundance", 
                    "MohsHardness", "MolarMagneticSusceptibility", 
                    "MolarVolume", "Name", "NeelPoint", "NeutronCrossSection",
                     "NeutronMassAbsorption", "OceanAbundance", "Period", 
                    "Phase", "PoissonRatio", "QuantumNumbers", "Radioactive", 
                    "RefractiveIndex", "Resistivity", "ShearModulus", 
                    "SolarAbundance", "SoundSpeed", "SpaceGroupName", 
                    "SpaceGroupNumber", "SpecificHeat", "StableIsotopes", 
                    "StandardName", "SuperconductingPoint", 
                    "ThermalConductivity", "ThermalExpansion", 
                    "UniverseAbundance", "Valence", "VanDerWaalsRadius", 
                    "VaporizationHeat", "VickersHardness", 
                    "VolumeMagneticSusceptibility", "YoungModulus"}]}], 
                 Row[{"          n ", 
                   SetterBar[
                    Dynamic[$CellContext`n0$$], {1, 2, 3, 4, 5, 6, 7, 8}], 
                   "      3D ", 
                   Checkbox[
                    Dynamic[$CellContext`view3D$$], {False, True}], 
                   "   explode view ", 
                   Slider[
                    Dynamic[$CellContext`explode$$], {1, 8, 1}, Enabled -> If[
                    Dynamic[$CellContext`view3D$$], True, False]], 
                   "   electron density ", 
                   Checkbox[
                    Dynamic[$CellContext`density$$], {False, True}], "   ", 
                   RadioButtonBar[
                    Dynamic[$CellContext`stowe$$], {
                    True -> "Stowe", False -> "Scerri"}, Enabled -> If[
                    Dynamic[$CellContext`view3D$$], True, False]]}]}], 
              "8) Biology: Life: nD Human Machine Interface" -> Column[{
                 Row[{" art print ", 
                   Checkbox[
                    Dynamic[$CellContext`artPrint$$]], " data set ", 
                   Dynamic[
                    PopupMenu[
                    Dynamic[$CellContext`dsName$$], $CellContext`dsNames]], 
                   
                   Dynamic[$CellContext`ds$$ = \
$CellContext`position[$CellContext`dsNames, $CellContext`dsName$$]]}], 
                 Row[{"limit ", 
                   Checkbox[
                    Dynamic[$CellContext`limitToRange$$]], "  pSize ", 
                   PopupMenu[
                    
                    Dynamic[$CellContext`pSize$$], {$CellContext`tiny, \
$CellContext`small, $CellContext`nrml, $CellContext`big, $CellContext`huge}], 
                   "  \!\(\*SuperscriptBox[\(10\), \(n\)]\) zoom ", 
                   Dynamic[
                    Slider[
                    Dynamic[$CellContext`zoom$$], {-24, 25, 0.5}, ImageSize -> 
                    100]], 
                   Dynamic[$CellContext`zoom$$], "  particle scale ", 
                   Dynamic[
                    Slider[
                    Dynamic[$CellContext`scale$$], {0, 1, 1/50.}, ImageSize -> 
                    50]], 
                   Dynamic[
                    NumberForm[
                    Subscript[$CellContext`scale$$, $CellContext`scaled], 4]],
                    "  ticks ", 
                   Dynamic[
                    Slider[
                    Dynamic[$CellContext`tickNum$$], {0, 50, 1}, ImageSize -> 
                    50]], 
                   Dynamic[$CellContext`tickNum$$], "  frame ", 
                   Dynamic[
                    Slider[
                    Dynamic[$CellContext`range$$], {0, 2, 0.01}, ImageSize -> 
                    50]], 
                   Dynamic[
                    NumberForm[
                    Subscript[$CellContext`range$$, $CellContext`scaled], 
                    4]]}]}]}, 
             Dynamic[$CellContext`interactionPane$$]]]], 
          Manipulate`Dump`ThisIsNotAControl}, {{
           Hold[$CellContext`IJKLstyle$$], False}, 0}, {{
           Hold[$CellContext`octImag$$], {
            Subscript[$CellContext`\[ScriptE], 1], 
            Subscript[$CellContext`\[ScriptE], 2], 
            Subscript[$CellContext`\[ScriptE], 3], 
            Subscript[$CellContext`\[ScriptE], 4], 
            Subscript[$CellContext`\[ScriptE], 5], 
            Subscript[$CellContext`\[ScriptE], 6], 
            Subscript[$CellContext`\[ScriptE], 7]}}, 0}, {{
           Hold[$CellContext`sm$$], 4}, 0}, {{
           Hold[$CellContext`fpC$$], 1}, 0}, {{
           Hold[$CellContext`fpG$$], 1}, 0}, {{
           Hold[$CellContext`altMask$$], False}, 0}, {{
           Hold[$CellContext`invMask$$], True}, 0}, {{
           Hold[$CellContext`flip$$], True}, 0}, {{
           Hold[$CellContext`n1$$], 1}, 0}, {{
           Hold[$CellContext`n2$$], 2}, 0}, {{
           Hold[$CellContext`n3$$], 3}, 0}, {{
           Hold[$CellContext`fPi$$], 1}, 0}, {
          Hold[$CellContext`selAlgebra$$], "A1"}, {
          Hold[$CellContext`selDynkin$$], 1}, {
          Hold[$CellContext`dynkTbl$$], {{{{{1, 2}, 1}}, {}, 0}}}, {
          Hold[$CellContext`ptsLoc$$], {{{1, 2}, 1}}}, {
          Hold[$CellContext`dynkin$$], {}}, {
          Hold[$CellContext`affine$$], 0}, {
          Hold[$CellContext`rank$$], 1}, {
          Hold[$CellContext`alg1$$], "A"}, {
          Hold[$CellContext`alg$$], "A1"}, {
          Hold[$CellContext`group$$], "Sl(2)"}, {
          Hold[$CellContext`permName$$], "Parent"}, {
          Hold[$CellContext`init$$], True}, {
          Hold[$CellContext`ptDD$$], {0, 0}}, {
          Hold[$CellContext`algTrk$$], "A1"}, {
          Hold[$CellContext`permTrk$$], {0, 0}}, {
          Hold[$CellContext`ptDDTrk$$], {0, 0}}, {
          Hold[$CellContext`selAlgebraTrk$$], "A1"}, {
          Hold[$CellContext`selDynkinTrk$$], 1}, {
          Hold[$CellContext`affineTrk$$], 0}, {
          Hold[$CellContext`ptsLocSav$$], 0}, {
          Hold[$CellContext`dynkSav$$], 0}, {{
           Hold[$CellContext`fileOnly$$], False}, 0}, {{
           Hold[$CellContext`artPrint$$], False}, 0}, {{
           Hold[$CellContext`scale$$], 0.54}, 0}, {{
           Hold[$CellContext`cylR$$], 0.026}, 0}, {{
           Hold[$CellContext`tickNum$$], 4}, 0}, {{
           Hold[$CellContext`range$$], 1.5}, 0}, {{
           Hold[$CellContext`limitToRange$$], True}, 0}, {{
           Hold[$CellContext`pt$$], {0, 0, 0}}, 0}, {{
           Hold[$CellContext`zoom$$], 0}, 0}, {{
           Hold[$CellContext`favorite$$], 3}, 0}, {{
           Hold[$CellContext`pGrad$$], 0}, 0}, {{
           Hold[$CellContext`face$$], 1}, 0}, {{
           Hold[$CellContext`auxData$$], False}, 0}, {{
           Hold[$CellContext`showAxes$$], False}, 0}, {{
           Hold[$CellContext`showPartVert$$], True}, 0}, {{
           Hold[$CellContext`showEdges$$], True}, 0}, {{
           Hold[$CellContext`showSurfaces$$], False}, 0}, {{
           Hold[$CellContext`showPolySurfaces$$], True}, 0}, {{
           Hold[$CellContext`showPvecs$$], False}, 0}, {{
           Hold[$CellContext`showPtext$$], True}, 0}, {{
           Hold[$CellContext`showPlocs$$], False}, 0}, {{
           Hold[$CellContext`showPmass$$], False}, 0}, {{
           Hold[$CellContext`showPerim$$], False}, 0}, {{
           Hold[$CellContext`eGrad$$], 44}, 0}, {{
           Hold[$CellContext`edgeVals$$], {{"All", 6}}}, 0}, {{
           Hold[$CellContext`anim8EdgeList$$], False}, 0}, {{
           Hold[$CellContext`eColorPos$$], True}, 0}, {{
           Hold[$CellContext`eSteps$$], 1}, 0}, {{
           Hold[$CellContext`eWnd$$], 100}, 0}, {{
           Hold[$CellContext`innerMag$$], 0}, 0}, {{
           Hold[$CellContext`dimTrim$$], 8}, 0}, {{
           Hold[$CellContext`XY$$], {20, 20, 20}}, 0}, {{
           Hold[$CellContext`tT$$], {}}, 0}, {{
           Hold[$CellContext`showClr$$], False}, 0}, {{
           Hold[$CellContext`showClickVerts$$], False}, 0}, {{
           Hold[$CellContext`vOverlapColor$$], False}, 0}, {{
           Hold[$CellContext`ltps$$], {}}, 0}, {{
           Hold[$CellContext`physics$$], True}, 0}, {{
           Hold[$CellContext`useDimLocs$$], False}, 0}, {{
           Hold[$CellContext`dlXs$$], 
           $CellContext`dls[{1}]}, 0}, {{
           Hold[$CellContext`dlYs$$], 
           $CellContext`dls[{2}]}, 0}, {{
           Hold[$CellContext`dlZs$$], 
           $CellContext`dls[{3}]}, 0}, {{
           Hold[$CellContext`xy$$], {1, 1}}, 0}, {{
           Hold[$CellContext`zz$$], 1}, 0}, {{
           Hold[$CellContext`xyVwPnt$$], {0.75, 0.75}}, 0}, {{
           Hold[$CellContext`zVwPnt$$], 0.75}, 0}, {{
           Hold[$CellContext`steps$$], 5}, 0}, {{
           Hold[$CellContext`nDcamera$$], 1.}, 0}, {{
           Hold[$CellContext`perspective$$], False}, 0}, {{
           Hold[$CellContext`pthRot$$], "Trans"}, 0}, {{
           Hold[$CellContext`pthPtCds$$], "Identity"}, 0}, {{
           Hold[$CellContext`ds$$], 3}, 0}, {{
           Hold[$CellContext`pSize$$], $CellContext`nrml}, 0}, {{
           Hold[$CellContext`pListName$$], "None"}, 0}, {{
           Hold[$CellContext`dsName$$], "physics"}, 0}, {{
           Hold[$CellContext`p3D$$], " 2D"}, 0}, {{
           Hold[$CellContext`infile$$], "./auxData.m"}, 0}, {{
           Hold[$CellContext`auxFile$$], "./auxData.xls"}, 0}, {{
           Hold[$CellContext`fileOut$$], False}, 0}, {{
           Hold[$CellContext`outFileDir$$], "./"}, 0}, {{
           Hold[$CellContext`outFile$$], "E8out"}, 0}, {{
           Hold[$CellContext`outFileType$$], ".png"}, 0}, {{
           Hold[$CellContext`H$$], {0, 0, 0, 0, 0, 0, 0, 0}}, 0}, {{
           Hold[$CellContext`V$$], {0, 0, 0, 0, 0, 0, 0, 0}}, 0}, {{
           Hold[$CellContext`Z$$], {0, 0, 0, 0, 0, 0, 0, 0}}, 0}, {{
           Hold[$CellContext`selCoxeter$$], ""}, 0}, {{
           Hold[$CellContext`bAND$$], 1}, 0}, {{
           Hold[$CellContext`bAND1Name$$], "Hydrogen"}, 0}, {{
           Hold[$CellContext`bAND2Name$$], ""}, 0}, {{
           Hold[$CellContext`fltrdSubPlot$$], CompressedData["
1:eJwd0wOfEAYAxuEue7Va1lXbsm1zC5ddl3XZ5rK11dJybbll27Zt20+9v//z
Ed7A4DZBIQGhLOB7oUIThrCEIzwRiEgkIhOFqEQjOj8Qg5j8SCxi8xNxiEs8
4pOAhCQiMUlISjICSU4KUvIzv/ArqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nI
TR7yko/8FKAghShMEYpSjOKUoCSlKE0ZyvIbv1OO8lSgIkFUojJVqEo1qlOD
mtSiNnWoSz3q04BgGtKIxjShKc1oTgta0orWhNCGtrSjPR3oSCc604WudKM7
PehJL3rTh770oz8DGMggBvMHQxjKMIYzgpGMYjRjGMs4xjOBiUxiMlP4k7+Y
yjT+ZjozmMksZvMPc5jLPOazgIUsYjFL+Jf/WMoylrOClaxiNWv4n7WsYz0b
2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4
yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jI
Jz7zhW/n/wqYtIE2
           "]}, 0}, {{
           Hold[$CellContext`fullVerts$$], {}}, 0}, {{
           Hold[$CellContext`verts$$], {}}, 0}, {{
           Hold[$CellContext`rectification$$], 0}, 0}, {{
           Hold[$CellContext`tlines$$], {}}, 0}, {{
           Hold[$CellContext`elines$$], {}}, 0}, {{
           Hold[$CellContext`plines$$], {}}, 0}, {{
           Hold[$CellContext`vlines$$], {}}, 0}, {{
           Hold[$CellContext`vLineColors$$], {}}, 0}, {{
           Hold[$CellContext`fa$$], {}}, 0}, {{
           Hold[$CellContext`fp$$], {}}, 0}, {{
           Hold[$CellContext`fc$$], {}}, 0}, {{
           Hold[$CellContext`fs$$], {}}, 0}, {{
           Hold[$CellContext`fg$$], {}}, 0}, {{
           Hold[$CellContext`fr$$], {}}, 0}, {{
           Hold[$CellContext`edgeList$$], {{0, 0}, {"All", 6}}}, 0}, {{
           Hold[$CellContext`newPTcd$$], {}}, 0}, {{
           Hold[$CellContext`lastViewPoint$$], {1.3, 2.4, 2.}}, 0}, {{
           Hold[$CellContext`locPtCdArr$$], {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {
           0, 0}, {0, 0}, {0, 0}, {0, 0}}}}, {{
           Hold[$CellContext`dispArr$$], {
           "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?"}}, 0}, {{
           Hold[$CellContext`rectNodes$$], {}}, 0}, {{
           Hold[$CellContext`eLim$$], 100}, 0}, {{
           Hold[$CellContext`edgeMag$$], 1}, 0}, {{
           Hold[$CellContext`eSort$$], {}}, 0}, {{
           Hold[$CellContext`eVs$$], {}}, 0}, {{
           Hold[$CellContext`eVF$$], {}}, 0}, {{
           Hold[$CellContext`lie$$], ""}, 0}, {{
           Hold[$CellContext`dsTrk$$], 3}, 0}, {{
           Hold[$CellContext`fltrdSubPlotTrk$$], CompressedData["
1:eJwd0wOfEAYAxuEue7Va1lXbsm1zC5ddl3XZ5rK11dJybbll27Zt20+9v//z
Ed7A4DZBIQGhLOB7oUIThrCEIzwRiEgkIhOFqEQjOj8Qg5j8SCxi8xNxiEs8
4pOAhCQiMUlISjICSU4KUvIzv/ArqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nI
TR7yko/8FKAghShMEYpSjOKUoCSlKE0ZyvIbv1OO8lSgIkFUojJVqEo1qlOD
mtSiNnWoSz3q04BgGtKIxjShKc1oTgta0orWhNCGtrSjPR3oSCc604WudKM7
PehJL3rTh770oz8DGMggBvMHQxjKMIYzgpGMYjRjGMs4xjOBiUxiMlP4k7+Y
yjT+ZjozmMksZvMPc5jLPOazgIUsYjFL+Jf/WMoylrOClaxiNWv4n7WsYz0b
2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4
yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jI
Jz7zhW/n/wqYtIE2
           "]}, 0}, {{
           Hold[$CellContext`auxDataTrk$$], False}, 0}, {{
           Hold[$CellContext`innerMagTrk$$], 0}, 0}, {{
           Hold[$CellContext`dimTrimTrk$$], 8}, 0}, {{
           Hold[$CellContext`showClickVertsTrk$$], False}, 0}, {{
           Hold[$CellContext`physicsTrk$$], True}, 0}, {{
           Hold[$CellContext`faceTrk$$], 1}, 0}, {{
           Hold[$CellContext`bANDTrk$$], 1}, 0}, {{
           Hold[$CellContext`edgeValsTrk$$], {{"All", 6}}}, 0}, {{
           Hold[$CellContext`infileTrk$$], "./auxData.m"}, 0}, {{
           Hold[$CellContext`bAND1NameTrk$$], ""}, 0}, {{
           Hold[$CellContext`bAND2NameTrk$$], ""}, 0}, {{
           Hold[$CellContext`selCoxeterTrk$$], ""}, 0}, {{
           Hold[$CellContext`favoriteTrk$$], 3}, 0}, {{
           Hold[$CellContext`p3DTrk$$], " 3D"}, 0}, {{
           Hold[$CellContext`tTTrk$$], {}}, 0}, {{
           Hold[$CellContext`locPtCdTrk$$], {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {
           0, 0}, {0, 0}, {0, 0}, {0, 0}}}}, {{
           Hold[$CellContext`pthRotTrk$$], "Trans"}, 0}, {{
           Hold[$CellContext`useDimLocsTrk$$], False}, 0}, {{
           Hold[$CellContext`ltpsTrk$$], {}}, 0}, {{
           Hold[$CellContext`showAxesTrk$$], False}, 0}, {{
           Hold[$CellContext`showEdgesTrk$$], False}, 0}, {{
           Hold[$CellContext`showPtextTrk$$], True}, 0}, {{
           Hold[$CellContext`showPartVertTrk$$], True}, 0}, {{
           Hold[$CellContext`stepsTrk$$], 5}, 0}, {{
           Hold[$CellContext`outSav$$], "Working..."}, 0}, {{
           Hold[$CellContext`more$$], True}, 0}, {{
           Hold[$CellContext`anti$$], False}, 0}, {{
           Hold[$CellContext`ptype$$], 2}, 0}, {{
           Hold[$CellContext`r1$$], 1}, 0}, {{
           Hold[$CellContext`c0$$], "w"}, 0}, {{
           Hold[$CellContext`s0$$], 
           Overscript["L", "\[Vee]"]}, 0}, {{
           Hold[$CellContext`s1$$], 
           Overscript["L", "\[Vee]"]}, 0}, {{
           Hold[$CellContext`g0$$], 1}, 0}, {{
           Hold[$CellContext`r0$$], "l"}, 0}, {{
           Hold[$CellContext`q2a$$], "UpQuark"}, 0}, {{
           Hold[$CellContext`s2$$], 
           Overscript["L", "\[Vee]"]}, 0}, {{
           Hold[$CellContext`c2a$$], "r"}, 0}, {{
           Hold[$CellContext`q2b$$], "DownQuarkBar"}, 0}, {{
           Hold[$CellContext`s3$$], 
           Overscript["L", "\[Vee]"]}, 0}, {{
           Hold[$CellContext`q3a$$], "UpQuark"}, 0}, {{
           Hold[$CellContext`s4$$], 
           Overscript["L", "\[Vee]"]}, 0}, {{
           Hold[$CellContext`q3b$$], "UpQuark"}, 0}, {{
           Hold[$CellContext`s5$$], 
           Overscript["L", "\[Vee]"]}, 0}, {{
           Hold[$CellContext`q3c$$], "UpQuark"}, 0}, {{
           Hold[$CellContext`s6$$], 
           Overscript["L", "\[Vee]"]}, 0}, {{
           Hold[$CellContext`isotope$$], 0}, 0}, {{
           Hold[$CellContext`ttED$$], "ElectronConfigurationString"}, 0}, {{
           Hold[$CellContext`n0$$], 8}, 0}, {{
           Hold[$CellContext`view3D$$], True}, 0}, {{
           Hold[$CellContext`density$$], False}, 0}, {{
           Hold[$CellContext`explode$$], 4}, 0}, {{
           Hold[$CellContext`stowe$$], False}, 0}}, 
       Typeset`size$$ = {644., {270., 276.}}, Typeset`update$$ = 0, 
       Typeset`initDone$$, Typeset`skipInitDone$$ = 
       False, $CellContext`interactionPane$279220$$ = 
       0, $CellContext`dynkTbl$279225$$ = False, $CellContext`ptsLoc$279226$$ = 
       False, $CellContext`ptDD$279227$$ = 
       False, $CellContext`permTrk$279228$$ = 
       False, $CellContext`ptDDTrk$279229$$ = False}, 
      DynamicBox[
       Manipulate`ManipulateBoxes[
       1, StandardForm, 
        "Variables" :> {$CellContext`affine$$ = 0, $CellContext`affineTrk$$ = 
          0, $CellContext`alg$$ = "A1", $CellContext`alg1$$ = 
          "A", $CellContext`algTrk$$ = "A1", $CellContext`altMask$$ = 
          False, $CellContext`anim8EdgeList$$ = False, $CellContext`anti$$ = 
          False, $CellContext`artPrint$$ = False, $CellContext`auxData$$ = 
          False, $CellContext`auxDataTrk$$ = False, $CellContext`auxFile$$ = 
          "./auxData.xls", $CellContext`bAND$$ = 1, $CellContext`bAND1Name$$ = 
          "Hydrogen", $CellContext`bAND1NameTrk$$ = 
          "", $CellContext`bAND2Name$$ = "", $CellContext`bAND2NameTrk$$ = 
          "", $CellContext`bANDTrk$$ = 1, $CellContext`c0$$ = 
          "w", $CellContext`c2a$$ = "r", $CellContext`cylR$$ = 
          0.026, $CellContext`density$$ = False, $CellContext`dimTrim$$ = 
          8, $CellContext`dimTrimTrk$$ = 
          8, $CellContext`dispArr$$ = {
           "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
            "?", "?", "?", "?", "?", "?", "?", "?", 
            "?"}, $CellContext`dlXs$$ = $CellContext`dls[{
            1}], $CellContext`dlYs$$ = $CellContext`dls[{
            2}], $CellContext`dlZs$$ = $CellContext`dls[{
            3}], $CellContext`ds$$ = 3, $CellContext`dsName$$ = 
          "physics", $CellContext`dsTrk$$ = 
          3, $CellContext`dynkin$$ = {}, $CellContext`dynkSav$$ = 
          0, $CellContext`dynkTbl$$ = {{{{1, 2}, 1}}, {}, 
            0}, $CellContext`eColorPos$$ = 
          True, $CellContext`edgeList$$ = {{0, 0}, {
            "All", 6}}, $CellContext`edgeMag$$ = 
          1, $CellContext`edgeVals$$ = {{
            "All", 6}}, $CellContext`edgeValsTrk$$ = {{
            "All", 6}}, $CellContext`eGrad$$ = 44, $CellContext`eLim$$ = 
          
          100, $CellContext`elines$$ = {}, $CellContext`eSort$$ = {}, \
$CellContext`eSteps$$ = 
          1, $CellContext`eVF$$ = {}, $CellContext`eVs$$ = {}, \
$CellContext`eWnd$$ = 100, $CellContext`explode$$ = 
          4, $CellContext`fa$$ = {}, $CellContext`face$$ = 
          1, $CellContext`faceTrk$$ = 1, $CellContext`favorite$$ = 
          3, $CellContext`favoriteTrk$$ = 
          3, $CellContext`fc$$ = {}, $CellContext`fg$$ = {}, \
$CellContext`fileOnly$$ = False, $CellContext`fileOut$$ = 
          False, $CellContext`flip$$ = 
          True, $CellContext`fltrdSubPlot$$ = CompressedData["
1:eJwd0wOfEAYAxuEue7Va1lXbsm1zC5ddl3XZ5rK11dJybbll27Zt20+9v//z
Ed7A4DZBIQGhLOB7oUIThrCEIzwRiEgkIhOFqEQjOj8Qg5j8SCxi8xNxiEs8
4pOAhCQiMUlISjICSU4KUvIzv/ArqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nI
TR7yko/8FKAghShMEYpSjOKUoCSlKE0ZyvIbv1OO8lSgIkFUojJVqEo1qlOD
mtSiNnWoSz3q04BgGtKIxjShKc1oTgta0orWhNCGtrSjPR3oSCc604WudKM7
PehJL3rTh770oz8DGMggBvMHQxjKMIYzgpGMYjRjGMs4xjOBiUxiMlP4k7+Y
yjT+ZjozmMksZvMPc5jLPOazgIUsYjFL+Jf/WMoylrOClaxiNWv4n7WsYz0b
2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4
yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jI
Jz7zhW/n/wqYtIE2
           "], $CellContext`fltrdSubPlotTrk$$ = CompressedData["
1:eJwd0wOfEAYAxuEue7Va1lXbsm1zC5ddl3XZ5rK11dJybbll27Zt20+9v//z
Ed7A4DZBIQGhLOB7oUIThrCEIzwRiEgkIhOFqEQjOj8Qg5j8SCxi8xNxiEs8
4pOAhCQiMUlISjICSU4KUvIzv/ArqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nI
TR7yko/8FKAghShMEYpSjOKUoCSlKE0ZyvIbv1OO8lSgIkFUojJVqEo1qlOD
mtSiNnWoSz3q04BgGtKIxjShKc1oTgta0orWhNCGtrSjPR3oSCc604WudKM7
PehJL3rTh770oz8DGMggBvMHQxjKMIYzgpGMYjRjGMs4xjOBiUxiMlP4k7+Y
yjT+ZjozmMksZvMPc5jLPOazgIUsYjFL+Jf/WMoylrOClaxiNWv4n7WsYz0b
2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4
yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jI
Jz7zhW/n/wqYtIE2
           "], $CellContext`fp$$ = {}, $CellContext`fpC$$ = 
          1, $CellContext`fpG$$ = 1, $CellContext`fPi$$ = 
          
          1, $CellContext`fr$$ = {}, $CellContext`fs$$ = {}, \
$CellContext`fullVerts$$ = {}, $CellContext`g0$$ = 1, $CellContext`group$$ = 
          "Sl(2)", $CellContext`H$$ = {0, 0, 0, 0, 0, 0, 0, 
           0}, $CellContext`IJKLstyle$$ = False, $CellContext`infile$$ = 
          "./auxData.m", $CellContext`infileTrk$$ = 
          "./auxData.m", $CellContext`init$$ = True, $CellContext`innerMag$$ = 
          0, $CellContext`innerMagTrk$$ = 0, $CellContext`interactionPane$$ = 
          "3) Math: Algebra: E8 Lie Algebra & Subgroups Visualizer", \
$CellContext`invMask$$ = True, $CellContext`isotope$$ = 
          0, $CellContext`lastViewPoint$$ = {1.3, 2.4, 
           2.}, $CellContext`lie$$ = "", $CellContext`limitToRange$$ = 
          True, $CellContext`locPtCdArr$$ = {{0, 0}, {0, 0}, {0, 0}, {0, 0}, {
           0, 0}, {0, 0}, {0, 0}, {0, 0}}, $CellContext`locPtCdTrk$$ = {{0, 
           0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}, {0, 
           0}}, $CellContext`ltps$$ = {}, $CellContext`ltpsTrk$$ = {}, \
$CellContext`more$$ = True, $CellContext`n0$$ = 8, $CellContext`n1$$ = 
          1, $CellContext`n2$$ = 2, $CellContext`n3$$ = 
          3, $CellContext`nDcamera$$ = 
          1., $CellContext`newPTcd$$ = {}, $CellContext`octImag$$ = {
            Subscript[$CellContext`\[ScriptE], 1], 
            Subscript[$CellContext`\[ScriptE], 2], 
            Subscript[$CellContext`\[ScriptE], 3], 
            Subscript[$CellContext`\[ScriptE], 4], 
            Subscript[$CellContext`\[ScriptE], 5], 
            Subscript[$CellContext`\[ScriptE], 6], 
            Subscript[$CellContext`\[ScriptE], 7]}, $CellContext`outFile$$ = 
          "E8out", $CellContext`outFileDir$$ = 
          "./", $CellContext`outFileType$$ = ".png", $CellContext`outSav$$ = 
          "Working...", $CellContext`p3D$$ = " 2D", $CellContext`p3DTrk$$ = 
          " 3D", $CellContext`permName$$ = "Parent", $CellContext`permTrk$$ = 
          0, $CellContext`perspective$$ = False, $CellContext`pGrad$$ = 
          0, $CellContext`physics$$ = True, $CellContext`physicsTrk$$ = 
          True, $CellContext`plines$$ = {}, $CellContext`pListName$$ = 
          "None", $CellContext`pSize$$ = $CellContext`nrml, $CellContext`pt$$ = \
{0, 0, 0}, $CellContext`ptDD$$ = 0, $CellContext`ptDDTrk$$ = 
          0, $CellContext`pthPtCds$$ = "Identity", $CellContext`pthRot$$ = 
          "Trans", $CellContext`pthRotTrk$$ = 
          "Trans", $CellContext`ptsLoc$$ = {{1, 2}, 
            1}, $CellContext`ptsLocSav$$ = 0, $CellContext`ptype$$ = 
          2, $CellContext`q2a$$ = "UpQuark", $CellContext`q2b$$ = 
          "DownQuarkBar", $CellContext`q3a$$ = "UpQuark", $CellContext`q3b$$ = 
          "UpQuark", $CellContext`q3c$$ = "UpQuark", $CellContext`r0$$ = 
          "l", $CellContext`r1$$ = 1, $CellContext`range$$ = 
          1.5, $CellContext`rank$$ = 1, $CellContext`rectification$$ = 
          0, $CellContext`rectNodes$$ = {}, $CellContext`refresh$$ = 
          True, $CellContext`s0$$ = 
          Overscript["L", "\[Vee]"], $CellContext`s1$$ = 
          Overscript["L", "\[Vee]"], $CellContext`s2$$ = 
          Overscript["L", "\[Vee]"], $CellContext`s3$$ = 
          Overscript["L", "\[Vee]"], $CellContext`s4$$ = 
          Overscript["L", "\[Vee]"], $CellContext`s5$$ = 
          Overscript["L", "\[Vee]"], $CellContext`s6$$ = 
          Overscript["L", "\[Vee]"], $CellContext`scale$$ = 
          0.54, $CellContext`selAlgebra$$ = 
          "A1", $CellContext`selAlgebraTrk$$ = 
          "A1", $CellContext`selCoxeter$$ = "", $CellContext`selCoxeterTrk$$ = 
          "", $CellContext`selDynkin$$ = 1, $CellContext`selDynkinTrk$$ = 
          1, $CellContext`showAxes$$ = False, $CellContext`showAxesTrk$$ = 
          False, $CellContext`showClickVerts$$ = 
          False, $CellContext`showClickVertsTrk$$ = 
          False, $CellContext`showClr$$ = False, $CellContext`showEdges$$ = 
          True, $CellContext`showEdgesTrk$$ = 
          False, $CellContext`showPartVert$$ = 
          True, $CellContext`showPartVertTrk$$ = 
          True, $CellContext`showPerim$$ = False, $CellContext`showPlocs$$ = 
          False, $CellContext`showPmass$$ = 
          False, $CellContext`showPolySurfaces$$ = 
          True, $CellContext`showPtext$$ = True, $CellContext`showPtextTrk$$ = 
          True, $CellContext`showPvecs$$ = False, $CellContext`showSurfaces$$ = 
          False, $CellContext`sm$$ = 4, $CellContext`steps$$ = 
          5, $CellContext`stepsTrk$$ = 5, $CellContext`stowe$$ = 
          False, $CellContext`tickNum$$ = 
          4, $CellContext`tlines$$ = {}, $CellContext`tT$$ = {}, \
$CellContext`ttED$$ = 
          "ElectronConfigurationString", $CellContext`tTTrk$$ = {}, \
$CellContext`useDimLocs$$ = False, $CellContext`useDimLocsTrk$$ = 
          False, $CellContext`V$$ = {0, 0, 0, 0, 0, 0, 0, 
           0}, $CellContext`verts$$ = {}, $CellContext`view3D$$ = 
          True, $CellContext`vLineColors$$ = {}, $CellContext`vlines$$ = {}, \
$CellContext`vOverlapColor$$ = 
          False, $CellContext`xy$$ = {1, 1}, $CellContext`XY$$ = {20, 20, 
           20}, $CellContext`xyVwPnt$$ = {0.75, 0.75}, $CellContext`Z$$ = {0, 
           0, 0, 0, 0, 0, 0, 0}, $CellContext`zoom$$ = 
          0, $CellContext`zVwPnt$$ = 0.75, $CellContext`zz$$ = 1}, 
        "ControllerVariables" :> {
          
          Hold[$CellContext`interactionPane$$, \
$CellContext`interactionPane$279220$$, 0], 
          Hold[$CellContext`dynkTbl$$, $CellContext`dynkTbl$279225$$, False], 
          Hold[$CellContext`ptsLoc$$, $CellContext`ptsLoc$279226$$, False], 
          Hold[$CellContext`ptDD$$, $CellContext`ptDD$279227$$, False], 
          Hold[$CellContext`permTrk$$, $CellContext`permTrk$279228$$, False], 
          Hold[$CellContext`ptDDTrk$$, $CellContext`ptDDTrk$279229$$, False]},
         "OtherVariables" :> {
         Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
          Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
          Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
          Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Pane[
          Switch[$CellContext`interactionPane$$, 
           Part[$CellContext`pdList, 1], $CellContext`doFano, 
           Part[$CellContext`pdList, 2], $CellContext`doDynkin, 
           Part[$CellContext`pdList, 3], $CellContext`doE8, 
           Part[$CellContext`pdList, 4], $CellContext`doParticle, 
           Part[$CellContext`pdList, 5], $CellContext`doMeson, 
           Part[$CellContext`pdList, 6], $CellContext`doBaryon, 
           Part[$CellContext`pdList, 7], $CellContext`doAtom, 
           Part[$CellContext`pdList, 8], $CellContext`doHMI]], 
        "Specifications" :> {{{$CellContext`refresh$$, True}, 0, ControlType -> 
           None, ControlPlacement -> 
           Left}, {{$CellContext`interactionPane$$, 
            "3) Math: Algebra: E8 Lie Algebra & Subgroups Visualizer"}, {
           "1) Math: Numbers: Octonion Fano Plane & Cubic", 
            "2) Math: Geometry: Dynkin Diagram Algebra Creator", 
            "3) Math: Algebra: E8 Lie Algebra & Subgroups Visualizer", 
            "4) Physics: Particle: Fundamental Quantum Element Builder", 
            "5) Physics: Nuclear: Meson Particle Selector", 
            "6) Physics: Atomic: Baryon Particle Selector", 
            "7) Chemistry: Periodic Table Element Selector", 
            "8) Biology: Life: nD Human Machine Interface"}, ControlType -> 
           PopupMenu}, 
          Item[
           
           PaneSelector[{
            "1) Math: Numbers: Octonion Fano Plane & Cubic" -> Column[{
                Row[{"Fano basis permutation: sm_anti ", 
                  Checkbox[
                   Dynamic[$CellContext`invMask$$]], "  sm_type[yaw_spin] ", 
                  RadioButtonBar[
                   Dynamic[$CellContext`altMask$$], {False -> 1, True -> 2}], 
                  Dynamic[
                   If[$CellContext`altMask$$, "  In  ", " Out"]], 
                  "  sm_spin ", 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`sm$$], {1 -> Part[
                    $CellContext`smCnv[$CellContext`altMask$$], 1], 2 -> Part[
                    $CellContext`smCnv[$CellContext`altMask$$], 2], 3 -> Part[
                    $CellContext`smCnv[$CellContext`altMask$$], 3], 4 -> Part[
                    $CellContext`smCnv[$CellContext`altMask$$], 4]}]], 
                  Dynamic[
                   $CellContext`smQ[
                    Part[
                    $CellContext`smCnv[$CellContext`altMask$$], \
$CellContext`sm$$]]], 
                  Dynamic[
                   Part[$CellContext`spList, $CellContext`sm$$]], 
                  "\[RightArrow]", 
                  Dynamic[
                   $CellContext`hexMask[$CellContext`invMask$$, \
$CellContext`altMask$$, $CellContext`fPi$$, $CellContext`sm$$]], 
                  "  fp_color ", 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`fpC$$], {0 -> Part[
                    Part[$CellContext`colorList, 
                    Span[5, 8]], 1], 1 -> Part[
                    Part[$CellContext`colorList, 
                    Span[5, 8]], 2], 2 -> Part[
                    Part[$CellContext`colorList, 
                    Span[5, 8]], 3], 3 -> Part[
                    Part[$CellContext`colorList, 
                    Span[5, 8]], 4]}]], "  fp_gen ", 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`fpG$$], Range[4] - 1]], "  fp_flip ", 
                  Checkbox[
                   Dynamic[$CellContext`flip$$]]}], 
                Row[{"IJKL Style ", 
                  Checkbox[
                   Dynamic[$CellContext`IJKLstyle$$]], 
                  Spacer[5], "  n1 ", 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`n1$$], 
                    Map[# -> Part[$CellContext`octImag$$, #]& , 
                    Range[7]]]], "  n2 ", 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`n2$$], 
                    Map[# -> Part[$CellContext`octImag$$, #]& , 
                    Range[7]]]], "  n3 ", 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`n3$$], 
                    Map[# -> Part[$CellContext`octImag$$, #]& , 
                    Range[7]]]]}]}], 
             "2) Math: Geometry: Dynkin Diagram Algebra Creator" -> Column[{
                Row[{
                  Button[" reset ", $CellContext`init$$ = True], 
                  Spacer[25], "menu of Dynkin diagrams: ", 
                  PopupMenu[
                   Dynamic[$CellContext`selAlgebra$$], {
                   "A1", "A2", "A3", "A4", "A5", "A6", "A7", "B2", "B3", "B4",
                     "B5", "B6", "B7", "B8", "C3", "C4", "C5", "C6", "C7", 
                    "C8", "D4", "D5", "D6", "D7", "D8", "E6", "E7", "E8", 
                    "F4", "G2", "H3", "H4", "CUBE2", "CUBE3", "CUBE4", 
                    "CUBE5", "CUBE6", "CUBE7", "FINITE1", "FOLDED1", 
                    "FOLDED2", "EXTENDED1", "LOOPED1", "MONSTER1", 
                    "MONSTER2"}], 
                  Spacer[25], "recognize as type: ", 
                  Dynamic[
                   SetterBar[
                    Dynamic[$CellContext`affineTrk$$], {
                    0 -> "finite", 1 -> "affine", 2 -> "hyperbolic", 3 -> 
                    "very extended"}]]}], 
                Row[{"Coxeter geometric permutation: ", 
                  Dynamic[
                   Slider[
                    Dynamic[$CellContext`selDynkin$$], {
                    1, 2^Min[8, $CellContext`rank$$], 1}, ImageSize -> 225, 
                    ContinuousAction -> False]], 
                  Dynamic[$CellContext`selDynkin$$], 
                  Spacer[10], "name: ", 
                  Dynamic[$CellContext`permName$$]}]}], 
             "3) Math: Algebra: E8 Lie Algebra & Subgroups Visualizer" -> 
             Column[{
                Row[{"projection ", 
                  PopupMenu[
                   Dynamic[$CellContext`selCoxeter$$], {
                   "D+1=BC2", "D+1=BC3", "D+1=BC4", "D+1=BC5", "D+1=BC6", 
                    "D+1=BC7", "D+1=BC8", "A5(6)", "A7(8)", "E6(12)", 
                    "E7(18)", "20", "24", "E8(30)", "Pascal2", "Pascal3", 
                    "Pascal4", "Pascal5", "Pascal6", "Pascal7"}], 
                  "   menu 1 ", 
                  PopupMenu[
                   Dynamic[$CellContext`bAND1Name$$], {
                   "E8", "E8 hexes", "E8 hyper", "E8 3", "E8 3D", "E8 24x10", 
                    "E8 12x5", "E8 Petrie", "E8 in E6", "E7", "E6", "E6 a", 
                    "E5", "E4", "F4", "H4", "G2", "Tesseract", "16 cell", 
                    "24 cell", "24 cell D4", "24 cell G2", "600 cell 3D", 
                    "Hydrogen", "none"}], " 2 ", 
                  PopupMenu[
                   Dynamic[$CellContext`bAND2Name$$], {
                   "F4 tris", "F4 to G2", "F4 star", "2 cube Pascal", 
                    "3 cube Pascal", "4 cube Pascal", "5 cube Pascal", 
                    "6 cube Pascal", "7 cube Pascal", "8 cube Pascal", 
                    "2 cube Petrie", "3 cube Petrie", "4 cube Petrie", 
                    "5 cube Petrie", "6 cube Petrie", "7 cube Petrie", 
                    "8 cube Petrie", "lepton info", "quark info", 
                    "quark column", "binary", "binary star", "binary square", 
                    "devolution"}], " vertices=", 
                  Dynamic[
                   Length[$CellContext`fltrdSubPlot$$]], " edges=", 
                  Dynamic[
                   Length[$CellContext`elines$$]], " trialities=", 
                  Dynamic[
                   Length[$CellContext`tlines$$]], " clicked edges=", 
                  Dynamic[
                   Length[
                    
                    If[$CellContext`physics$$, $CellContext`plines$$, \
$CellContext`vlines$$]]]}], 
                Row[{"axes ", 
                  Checkbox[
                   Dynamic[$CellContext`showAxes$$]], " edges ", 
                  Checkbox[
                   Dynamic[$CellContext`showEdges$$]], " physics ", 
                  Checkbox[
                   Dynamic[$CellContext`physics$$]], " labels ", 
                  Checkbox[
                   Dynamic[$CellContext`showPtext$$]], " axes locators ", 
                  Checkbox[
                   Dynamic[$CellContext`useDimLocs$$]], " ", 
                  RadioButtonBar[
                   Dynamic[$CellContext`p3D$$], {" 2D", " 3D"}], " triality ", 
                  TogglerBar[
                   Dynamic[$CellContext`tT$$], {
                   "T1", "T1p", "T2", "T2p", "T4", "T4p"}], "", " steps ", 
                  Slider[
                   Dynamic[$CellContext`steps$$], {1, 60, 1}, ImageSize -> 60,
                    ContinuousAction -> False], 
                  Dynamic[$CellContext`steps$$]}]}], 
             "4) Physics: Particle: Fundamental Quantum Element Builder" -> 
             Grid[{{" anti", "pType", "spin", "color", "gen", "row"}, {
                 Checkbox[
                  Dynamic[$CellContext`anti$$]], 
                 RadioButtonBar[
                  Dynamic[$CellContext`ptype$$], {1, 2}], 
                 Dynamic[
                  SetterBar[
                   Dynamic[$CellContext`s0$$], $CellContext`spList, Enabled -> 
                   If[$CellContext`r1$$ == 3, False, True]]], 
                 Dynamic[
                  SetterBar[
                   Dynamic[$CellContext`c0$$], 
                   Part[$CellContext`colorList, 
                    Span[5, 8]], Enabled -> If[
                    Or[$CellContext`r1$$ == 1, $CellContext`r1$$ == 5], False,
                     True]]], 
                 Dynamic[
                  SetterBar[
                   Dynamic[$CellContext`g0$$], 
                   Range[3], Enabled -> 
                   If[$CellContext`r1$$ > 2, False, True]]], 
                 Dynamic[
                  PopupMenu[
                   Dynamic[$CellContext`r0$$], $CellContext`flavorRows]]}}], 
             "5) Physics: Nuclear: Meson Particle Selector" -> Grid[{{"quark", 
                 SetterBar[
                  Dynamic[$CellContext`c2a$$], {"r", "g", "b"}], 
                 SetterBar[
                  Dynamic[$CellContext`s2$$], {
                   Overscript["L", "\[Vee]"], 
                   Overscript["R", "\[Wedge]"], 
                   Overscript["L", "\[Wedge]"], 
                   Overscript["R", "\[Vee]"]}], 
                 RadioButtonBar[
                  Dynamic[$CellContext`q2a$$], {
                  "UpQuark" -> "u", "DownQuark" -> "d", "StrangeQuark" -> "s",
                    "CharmQuark" -> "c", "BottomQuark" -> "b", "TopQuark" -> 
                   "t"}]}, {"antiquark", 
                 SetterBar[
                  Dynamic[$CellContext`c2a$$], {"r", "g", "b"}], 
                 SetterBar[
                  Dynamic[$CellContext`s3$$], {
                   Overscript["L", "\[Vee]"], 
                   Overscript["R", "\[Wedge]"], 
                   Overscript["L", "\[Wedge]"], 
                   Overscript["R", "\[Vee]"]}], 
                 RadioButtonBar[
                  Dynamic[$CellContext`q2b$$], {
                  "UpQuarkBar" -> "\!\(\*OverscriptBox[\(u\), \(_\)]\)", 
                   "DownQuarkBar" -> "\!\(\*OverscriptBox[\(d\), \(_\)]\)", 
                   "StrangeQuarkBar" -> "\!\(\*OverscriptBox[\(s\), \(_\)]\)",
                    "CharmQuarkBar" -> "\!\(\*OverscriptBox[\(c\), \(_\)]\)", 
                   "BottomQuarkBar" -> "\!\(\*OverscriptBox[\(b\), \(_\)]\)", 
                   "TopQuarkBar" -> 
                   "\!\(\*OverscriptBox[\(t\), \(_\)]\)"}]}}], 
             "6) Physics: Atomic: Baryon Particle Selector" -> Column[{
                Row[{"r ", 
                  Item[
                   SetterBar[
                    Dynamic[$CellContext`s4$$], {
                    Overscript["L", "\[Vee]"], 
                    Overscript["R", "\[Wedge]"], 
                    Overscript["L", "\[Wedge]"], 
                    Overscript["R", "\[Vee]"]}]], 
                  RadioButtonBar[
                   Dynamic[$CellContext`q3a$$], {
                   "UpQuark" -> "u", "DownQuark" -> "d", "StrangeQuark" -> 
                    "s", "CharmQuark" -> "c", "BottomQuark" -> "b", 
                    "TopQuark" -> "t"}], 
                  Spacer[20], "  g", 
                  SetterBar[
                   Dynamic[$CellContext`s5$$], {
                    Overscript["L", "\[Vee]"], 
                    Overscript["R", "\[Wedge]"], 
                    Overscript["L", "\[Wedge]"], 
                    Overscript["R", "\[Vee]"]}], 
                  RadioButtonBar[
                   Dynamic[$CellContext`q3b$$], {
                   "UpQuark" -> "u", "DownQuark" -> "d", "StrangeQuark" -> 
                    "s", "CharmQuark" -> "c", "BottomQuark" -> "b", 
                    "TopQuark" -> "t"}]}], 
                Row[{"b ", 
                  SetterBar[
                   Dynamic[$CellContext`s6$$], {
                    Overscript["L", "\[Vee]"], 
                    Overscript["R", "\[Wedge]"], 
                    Overscript["L", "\[Wedge]"], 
                    Overscript["R", "\[Vee]"]}], 
                  RadioButtonBar[
                   Dynamic[$CellContext`q3c$$], {
                   "UpQuark" -> "u", "DownQuark" -> "d", "StrangeQuark" -> 
                    "s", "CharmQuark" -> "c", "BottomQuark" -> "b", 
                    "TopQuark" -> "t"}]}]}], 
             "7) Chemistry: Periodic Table Element Selector" -> Column[{
                Row[{"isotope ", 
                  SetterBar[
                   Dynamic[$CellContext`isotope$$], {-3, -2, -1, 0, 1, 2, 3}],
                   "     tooltip element display ", 
                  PopupMenu[
                   Dynamic[$CellContext`ttED$$], {
                   "Abbreviation", "AbsoluteBoilingPoint", 
                    "AbsoluteMeltingPoint", "AdiabaticIndex", 
                    "AllotropeNames", "AllotropicMultiplicities", 
                    "AlternateNames", "AlternateStandardNames", 
                    "AtomicNumber", "AtomicRadius", "AtomicWeight", "Block", 
                    "BoilingPoint", "BrinellHardness", "BulkModulus", 
                    "CASNumber", "Color", "CommonCompoundNames", 
                    "CovalentRadius", "CriticalPressure", 
                    "CriticalTemperature", "CrustAbundance", 
                    "CrystalStructure", "CuriePoint", "DecayMode", "Density", 
                    "DiscoveryCountries", "DiscoveryYear", 
                    "ElectricalConductivity", "ElectricalType", 
                    "ElectronAffinity", "ElectronConfiguration", 
                    "ElectronConfigurationString", "Electronegativity", 
                    "ElectronShellConfiguration", "FusionHeat", 
                    "GasAtomicMultiplicities", "Group", "HalfLife", 
                    "HumanAbundance", "IconColor", "IonizationEnergies", 
                    "IsotopeAbundances", "KnownIsotopes", "LatticeAngles", 
                    "LatticeConstants", "Lifetime", "LiquidDensity", 
                    "MagneticType", "MassMagneticSusceptibility", 
                    "MeltingPoint", "Memberships", "MeteoriteAbundance", 
                    "MohsHardness", "MolarMagneticSusceptibility", 
                    "MolarVolume", "Name", "NeelPoint", "NeutronCrossSection",
                     "NeutronMassAbsorption", "OceanAbundance", "Period", 
                    "Phase", "PoissonRatio", "QuantumNumbers", "Radioactive", 
                    "RefractiveIndex", "Resistivity", "ShearModulus", 
                    "SolarAbundance", "SoundSpeed", "SpaceGroupName", 
                    "SpaceGroupNumber", "SpecificHeat", "StableIsotopes", 
                    "StandardName", "SuperconductingPoint", 
                    "ThermalConductivity", "ThermalExpansion", 
                    "UniverseAbundance", "Valence", "VanDerWaalsRadius", 
                    "VaporizationHeat", "VickersHardness", 
                    "VolumeMagneticSusceptibility", "YoungModulus"}]}], 
                Row[{"          n ", 
                  SetterBar[
                   Dynamic[$CellContext`n0$$], {1, 2, 3, 4, 5, 6, 7, 8}], 
                  "      3D ", 
                  Checkbox[
                   Dynamic[$CellContext`view3D$$], {False, True}], 
                  "   explode view ", 
                  Slider[
                   Dynamic[$CellContext`explode$$], {1, 8, 1}, Enabled -> If[
                    Dynamic[$CellContext`view3D$$], True, False]], 
                  "   electron density ", 
                  Checkbox[
                   Dynamic[$CellContext`density$$], {False, True}], "   ", 
                  RadioButtonBar[
                   Dynamic[$CellContext`stowe$$], {
                   True -> "Stowe", False -> "Scerri"}, Enabled -> If[
                    Dynamic[$CellContext`view3D$$], True, False]]}]}], 
             "8) Biology: Life: nD Human Machine Interface" -> Column[{
                Row[{" art print ", 
                  Checkbox[
                   Dynamic[$CellContext`artPrint$$]], " data set ", 
                  Dynamic[
                   PopupMenu[
                    Dynamic[$CellContext`dsName$$], $CellContext`dsNames]], 
                  
                  Dynamic[$CellContext`ds$$ = \
$CellContext`position[$CellContext`dsNames, $CellContext`dsName$$]]}], 
                Row[{"limit ", 
                  Checkbox[
                   Dynamic[$CellContext`limitToRange$$]], "  pSize ", 
                  PopupMenu[
                   
                   Dynamic[$CellContext`pSize$$], {$CellContext`tiny, \
$CellContext`small, $CellContext`nrml, $CellContext`big, $CellContext`huge}], 
                  "  \!\(\*SuperscriptBox[\(10\), \(n\)]\) zoom ", 
                  Dynamic[
                   Slider[
                    Dynamic[$CellContext`zoom$$], {-24, 25, 0.5}, ImageSize -> 
                    100]], 
                  Dynamic[$CellContext`zoom$$], "  particle scale ", 
                  Dynamic[
                   Slider[
                    Dynamic[$CellContext`scale$$], {0, 1, 1/50.}, ImageSize -> 
                    50]], 
                  Dynamic[
                   NumberForm[
                    Subscript[$CellContext`scale$$, $CellContext`scaled], 4]],
                   "  ticks ", 
                  Dynamic[
                   Slider[
                    Dynamic[$CellContext`tickNum$$], {0, 50, 1}, ImageSize -> 
                    50]], 
                  Dynamic[$CellContext`tickNum$$], "  frame ", 
                  Dynamic[
                   Slider[
                    Dynamic[$CellContext`range$$], {0, 2, 0.01}, ImageSize -> 
                    50]], 
                  Dynamic[
                   NumberForm[
                    Subscript[$CellContext`range$$, $CellContext`scaled], 
                    4]]}]}]}, 
            
            Dynamic[$CellContext`interactionPane$$]]], \
{{$CellContext`IJKLstyle$$, False}, 0, ControlType -> 
           None}, {{$CellContext`octImag$$, {
             Subscript[$CellContext`\[ScriptE], 1], 
             Subscript[$CellContext`\[ScriptE], 2], 
             Subscript[$CellContext`\[ScriptE], 3], 
             Subscript[$CellContext`\[ScriptE], 4], 
             Subscript[$CellContext`\[ScriptE], 5], 
             Subscript[$CellContext`\[ScriptE], 6], 
             Subscript[$CellContext`\[ScriptE], 7]}}, 0, ControlType -> 
           None}, {{$CellContext`sm$$, 4}, 0, ControlType -> 
           None}, {{$CellContext`fpC$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`fpG$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`altMask$$, False}, 0, ControlType -> 
           None}, {{$CellContext`invMask$$, True}, 0, ControlType -> 
           None}, {{$CellContext`flip$$, True}, 0, ControlType -> 
           None}, {{$CellContext`n1$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`n2$$, 2}, 0, ControlType -> 
           None}, {{$CellContext`n3$$, 3}, 0, ControlType -> 
           None}, {{$CellContext`fPi$$, 1}, 0, ControlType -> 
           None}, {$CellContext`selAlgebra$$, "A1", ControlType -> 
           None}, {$CellContext`selDynkin$$, 1, ControlType -> 
           None}, {$CellContext`dynkTbl$$, {{{{{1, 2}, 1}}, {}, 0}}, 
           ControlType -> None}, {$CellContext`ptsLoc$$, {{{1, 2}, 1}}, 
           ControlType -> None}, {$CellContext`dynkin$$, {}, ControlType -> 
           None}, {$CellContext`affine$$, 0, ControlType -> 
           None}, {$CellContext`rank$$, 1, ControlType -> 
           None}, {$CellContext`alg1$$, "A", ControlType -> 
           None}, {$CellContext`alg$$, "A1", ControlType -> 
           None}, {$CellContext`group$$, "Sl(2)", ControlType -> 
           None}, {$CellContext`permName$$, "Parent", ControlType -> 
           None}, {$CellContext`init$$, True, ControlType -> 
           None}, {$CellContext`ptDD$$, {0, 0}, ControlType -> 
           None}, {$CellContext`algTrk$$, "A1", ControlType -> 
           None}, {$CellContext`permTrk$$, {0, 0}, ControlType -> 
           None}, {$CellContext`ptDDTrk$$, {0, 0}, ControlType -> 
           None}, {$CellContext`selAlgebraTrk$$, "A1", ControlType -> 
           None}, {$CellContext`selDynkinTrk$$, 1, ControlType -> 
           None}, {$CellContext`affineTrk$$, 0, ControlType -> 
           None}, {$CellContext`ptsLocSav$$, 0, ControlType -> 
           None}, {$CellContext`dynkSav$$, 0, ControlType -> 
           None}, {{$CellContext`fileOnly$$, False}, 0, ControlType -> 
           None}, {{$CellContext`artPrint$$, False}, 0, ControlType -> 
           None}, {{$CellContext`scale$$, 0.54}, 0, ControlType -> 
           None}, {{$CellContext`cylR$$, 0.026}, 0, ControlType -> 
           None}, {{$CellContext`tickNum$$, 4}, 0, ControlType -> 
           None}, {{$CellContext`range$$, 1.5}, 0, ControlType -> 
           None}, {{$CellContext`limitToRange$$, True}, 0, ControlType -> 
           None}, {{$CellContext`pt$$, {0, 0, 0}}, 0, ControlType -> 
           None}, {{$CellContext`zoom$$, 0}, 0, ControlType -> 
           None}, {{$CellContext`favorite$$, 3}, 0, ControlType -> 
           None}, {{$CellContext`pGrad$$, 0}, 0, ControlType -> 
           None}, {{$CellContext`face$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`auxData$$, False}, 0, ControlType -> 
           None}, {{$CellContext`showAxes$$, False}, 0, ControlType -> 
           None}, {{$CellContext`showPartVert$$, True}, 0, ControlType -> 
           None}, {{$CellContext`showEdges$$, True}, 0, ControlType -> 
           None}, {{$CellContext`showSurfaces$$, False}, 0, ControlType -> 
           None}, {{$CellContext`showPolySurfaces$$, True}, 0, ControlType -> 
           None}, {{$CellContext`showPvecs$$, False}, 0, ControlType -> 
           None}, {{$CellContext`showPtext$$, True}, 0, ControlType -> 
           None}, {{$CellContext`showPlocs$$, False}, 0, ControlType -> 
           None}, {{$CellContext`showPmass$$, False}, 0, ControlType -> 
           None}, {{$CellContext`showPerim$$, False}, 0, ControlType -> 
           None}, {{$CellContext`eGrad$$, 44}, 0, ControlType -> 
           None}, {{$CellContext`edgeVals$$, {{"All", 6}}}, 0, ControlType -> 
           None}, {{$CellContext`anim8EdgeList$$, False}, 0, ControlType -> 
           None}, {{$CellContext`eColorPos$$, True}, 0, ControlType -> 
           None}, {{$CellContext`eSteps$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`eWnd$$, 100}, 0, ControlType -> 
           None}, {{$CellContext`innerMag$$, 0}, 0, ControlType -> 
           None}, {{$CellContext`dimTrim$$, 8}, 0, ControlType -> 
           None}, {{$CellContext`XY$$, {20, 20, 20}}, 0, ControlType -> 
           None}, {{$CellContext`tT$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`showClr$$, False}, 0, ControlType -> 
           None}, {{$CellContext`showClickVerts$$, False}, 0, ControlType -> 
           None}, {{$CellContext`vOverlapColor$$, False}, 0, ControlType -> 
           None}, {{$CellContext`ltps$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`physics$$, True}, 0, ControlType -> 
           None}, {{$CellContext`useDimLocs$$, False}, 0, ControlType -> 
           None}, {{$CellContext`dlXs$$, 
            $CellContext`dls[{1}]}, 0, ControlType -> 
           None}, {{$CellContext`dlYs$$, 
            $CellContext`dls[{2}]}, 0, ControlType -> 
           None}, {{$CellContext`dlZs$$, 
            $CellContext`dls[{3}]}, 0, ControlType -> 
           None}, {{$CellContext`xy$$, {1, 1}}, 0, ControlType -> 
           None}, {{$CellContext`zz$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`xyVwPnt$$, {0.75, 0.75}}, 0, ControlType -> 
           None}, {{$CellContext`zVwPnt$$, 0.75}, 0, ControlType -> 
           None}, {{$CellContext`steps$$, 5}, 0, ControlType -> 
           None}, {{$CellContext`nDcamera$$, 1.}, 0, ControlType -> 
           None}, {{$CellContext`perspective$$, False}, 0, ControlType -> 
           None}, {{$CellContext`pthRot$$, "Trans"}, 0, ControlType -> 
           None}, {{$CellContext`pthPtCds$$, "Identity"}, 0, ControlType -> 
           None}, {{$CellContext`ds$$, 3}, 0, ControlType -> 
           None}, {{$CellContext`pSize$$, $CellContext`nrml}, 0, ControlType -> 
           None}, {{$CellContext`pListName$$, "None"}, 0, ControlType -> 
           None}, {{$CellContext`dsName$$, "physics"}, 0, ControlType -> 
           None}, {{$CellContext`p3D$$, " 2D"}, 0, ControlType -> 
           None}, {{$CellContext`infile$$, "./auxData.m"}, 0, ControlType -> 
           None}, {{$CellContext`auxFile$$, "./auxData.xls"}, 0, ControlType -> 
           None}, {{$CellContext`fileOut$$, False}, 0, ControlType -> 
           None}, {{$CellContext`outFileDir$$, "./"}, 0, ControlType -> 
           None}, {{$CellContext`outFile$$, "E8out"}, 0, ControlType -> 
           None}, {{$CellContext`outFileType$$, ".png"}, 0, ControlType -> 
           None}, {{$CellContext`H$$, {0, 0, 0, 0, 0, 0, 0, 0}}, 0, 
           ControlType -> 
           None}, {{$CellContext`V$$, {0, 0, 0, 0, 0, 0, 0, 0}}, 0, 
           ControlType -> 
           None}, {{$CellContext`Z$$, {0, 0, 0, 0, 0, 0, 0, 0}}, 0, 
           ControlType -> None}, {{$CellContext`selCoxeter$$, ""}, 0, 
           ControlType -> None}, {{$CellContext`bAND$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`bAND1Name$$, "Hydrogen"}, 0, ControlType -> 
           None}, {{$CellContext`bAND2Name$$, ""}, 0, ControlType -> 
           None}, {{$CellContext`fltrdSubPlot$$, CompressedData["
1:eJwd0wOfEAYAxuEue7Va1lXbsm1zC5ddl3XZ5rK11dJybbll27Zt20+9v//z
Ed7A4DZBIQGhLOB7oUIThrCEIzwRiEgkIhOFqEQjOj8Qg5j8SCxi8xNxiEs8
4pOAhCQiMUlISjICSU4KUvIzv/ArqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nI
TR7yko/8FKAghShMEYpSjOKUoCSlKE0ZyvIbv1OO8lSgIkFUojJVqEo1qlOD
mtSiNnWoSz3q04BgGtKIxjShKc1oTgta0orWhNCGtrSjPR3oSCc604WudKM7
PehJL3rTh770oz8DGMggBvMHQxjKMIYzgpGMYjRjGMs4xjOBiUxiMlP4k7+Y
yjT+ZjozmMksZvMPc5jLPOazgIUsYjFL+Jf/WMoylrOClaxiNWv4n7WsYz0b
2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4
yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jI
Jz7zhW/n/wqYtIE2
            "]}, 0, ControlType -> None}, {{$CellContext`fullVerts$$, {}}, 0, 
           ControlType -> None}, {{$CellContext`verts$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`rectification$$, 0}, 0, ControlType -> 
           None}, {{$CellContext`tlines$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`elines$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`plines$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`vlines$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`vLineColors$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`fa$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`fp$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`fc$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`fs$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`fg$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`fr$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`edgeList$$, {{0, 0}, {"All", 6}}}, 0, 
           ControlType -> None}, {{$CellContext`newPTcd$$, {}}, 0, 
           ControlType -> 
           None}, {{$CellContext`lastViewPoint$$, {1.3, 2.4, 2.}}, 0, 
           ControlType -> 
           None}, {{$CellContext`locPtCdArr$$, {{0, 0}, {0, 0}, {0, 0}, {0, 
            0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}}, ControlType -> 
           None}, {{$CellContext`dispArr$$, {
            "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", 
             "?", "?", "?", "?", "?", "?", "?", "?", "?"}}, 0, ControlType -> 
           None}, {{$CellContext`rectNodes$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`eLim$$, 100}, 0, ControlType -> 
           None}, {{$CellContext`edgeMag$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`eSort$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`eVs$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`eVF$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`lie$$, ""}, 0, ControlType -> 
           None}, {{$CellContext`dsTrk$$, 3}, 0, ControlType -> 
           None}, {{$CellContext`fltrdSubPlotTrk$$, CompressedData["
1:eJwd0wOfEAYAxuEue7Va1lXbsm1zC5ddl3XZ5rK11dJybbll27Zt20+9v//z
Ed7A4DZBIQGhLOB7oUIThrCEIzwRiEgkIhOFqEQjOj8Qg5j8SCxi8xNxiEs8
4pOAhCQiMUlISjICSU4KUvIzv/ArqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nI
TR7yko/8FKAghShMEYpSjOKUoCSlKE0ZyvIbv1OO8lSgIkFUojJVqEo1qlOD
mtSiNnWoSz3q04BgGtKIxjShKc1oTgta0orWhNCGtrSjPR3oSCc604WudKM7
PehJL3rTh770oz8DGMggBvMHQxjKMIYzgpGMYjRjGMs4xjOBiUxiMlP4k7+Y
yjT+ZjozmMksZvMPc5jLPOazgIUsYjFL+Jf/WMoylrOClaxiNWv4n7WsYz0b
2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4
yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jI
Jz7zhW/n/wqYtIE2
            "]}, 0, ControlType -> None}, {{$CellContext`auxDataTrk$$, False},
            0, ControlType -> None}, {{$CellContext`innerMagTrk$$, 0}, 0, 
           ControlType -> None}, {{$CellContext`dimTrimTrk$$, 8}, 0, 
           ControlType -> None}, {{$CellContext`showClickVertsTrk$$, False}, 
           0, ControlType -> None}, {{$CellContext`physicsTrk$$, True}, 0, 
           ControlType -> None}, {{$CellContext`faceTrk$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`bANDTrk$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`edgeValsTrk$$, {{"All", 6}}}, 0, ControlType -> 
           None}, {{$CellContext`infileTrk$$, "./auxData.m"}, 0, ControlType -> 
           None}, {{$CellContext`bAND1NameTrk$$, ""}, 0, ControlType -> 
           None}, {{$CellContext`bAND2NameTrk$$, ""}, 0, ControlType -> 
           None}, {{$CellContext`selCoxeterTrk$$, ""}, 0, ControlType -> 
           None}, {{$CellContext`favoriteTrk$$, 3}, 0, ControlType -> 
           None}, {{$CellContext`p3DTrk$$, " 3D"}, 0, ControlType -> 
           None}, {{$CellContext`tTTrk$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`locPtCdTrk$$, {{0, 0}, {0, 0}, {0, 0}, {0, 
            0}, {0, 0}, {0, 0}, {0, 0}, {0, 0}}}, ControlType -> 
           None}, {{$CellContext`pthRotTrk$$, "Trans"}, 0, ControlType -> 
           None}, {{$CellContext`useDimLocsTrk$$, False}, 0, ControlType -> 
           None}, {{$CellContext`ltpsTrk$$, {}}, 0, ControlType -> 
           None}, {{$CellContext`showAxesTrk$$, False}, 0, ControlType -> 
           None}, {{$CellContext`showEdgesTrk$$, False}, 0, ControlType -> 
           None}, {{$CellContext`showPtextTrk$$, True}, 0, ControlType -> 
           None}, {{$CellContext`showPartVertTrk$$, True}, 0, ControlType -> 
           None}, {{$CellContext`stepsTrk$$, 5}, 0, ControlType -> 
           None}, {{$CellContext`outSav$$, "Working..."}, 0, ControlType -> 
           None}, {{$CellContext`more$$, True}, 0, ControlType -> 
           None}, {{$CellContext`anti$$, False}, 0, ControlType -> 
           None}, {{$CellContext`ptype$$, 2}, 0, ControlType -> 
           None}, {{$CellContext`r1$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`c0$$, "w"}, 0, ControlType -> 
           None}, {{$CellContext`s0$$, 
            Overscript["L", "\[Vee]"]}, 0, ControlType -> 
           None}, {{$CellContext`s1$$, 
            Overscript["L", "\[Vee]"]}, 0, ControlType -> 
           None}, {{$CellContext`g0$$, 1}, 0, ControlType -> 
           None}, {{$CellContext`r0$$, "l"}, 0, ControlType -> 
           None}, {{$CellContext`q2a$$, "UpQuark"}, 0, ControlType -> 
           None}, {{$CellContext`s2$$, 
            Overscript["L", "\[Vee]"]}, 0, ControlType -> 
           None}, {{$CellContext`c2a$$, "r"}, 0, ControlType -> 
           None}, {{$CellContext`q2b$$, "DownQuarkBar"}, 0, ControlType -> 
           None}, {{$CellContext`s3$$, 
            Overscript["L", "\[Vee]"]}, 0, ControlType -> 
           None}, {{$CellContext`q3a$$, "UpQuark"}, 0, ControlType -> 
           None}, {{$CellContext`s4$$, 
            Overscript["L", "\[Vee]"]}, 0, ControlType -> 
           None}, {{$CellContext`q3b$$, "UpQuark"}, 0, ControlType -> 
           None}, {{$CellContext`s5$$, 
            Overscript["L", "\[Vee]"]}, 0, ControlType -> 
           None}, {{$CellContext`q3c$$, "UpQuark"}, 0, ControlType -> 
           None}, {{$CellContext`s6$$, 
            Overscript["L", "\[Vee]"]}, 0, ControlType -> 
           None}, {{$CellContext`isotope$$, 0}, 0, ControlType -> 
           None}, {{$CellContext`ttED$$, "ElectronConfigurationString"}, 0, 
           ControlType -> None}, {{$CellContext`n0$$, 8}, 0, ControlType -> 
           None}, {{$CellContext`view3D$$, True}, 0, ControlType -> 
           None}, {{$CellContext`density$$, False}, 0, ControlType -> 
           None}, {{$CellContext`explode$$, 4}, 0, ControlType -> 
           None}, {{$CellContext`stowe$$, False}, 0, ControlType -> None}}, 
        "Options" :> {
         ContentSize -> {750., 500.}, LocalizeVariables -> True, 
          PreserveImageOptions -> True, SynchronousUpdating -> False, 
          SynchronousInitialization -> False, 
          TrackedSymbols :> {$CellContext`interactionPane$$, \
$CellContext`IJKLstyle$$, $CellContext`fpC$$, $CellContext`fpG$$, \
$CellContext`flip$$, $CellContext`sm$$, $CellContext`altMask$$, \
$CellContext`invMask$$, $CellContext`n1$$, $CellContext`n2$$, \
$CellContext`n3$$, $CellContext`init$$, $CellContext`selAlgebra$$, \
$CellContext`selDynkin$$, $CellContext`affineTrk$$, $CellContext`ptDD$$, \
$CellContext`refresh$$, $CellContext`selCoxeter$$, $CellContext`bAND1Name$$, \
$CellContext`bAND2Name$$, $CellContext`locPtCdArr$$, \
$CellContext`showPtext$$, $CellContext`pthRot$$, $CellContext`showAxes$$, \
$CellContext`steps$$, $CellContext`p3D$$, $CellContext`showEdges$$, \
$CellContext`physics$$, $CellContext`useDimLocs$$, $CellContext`tT$$, \
$CellContext`anti$$, $CellContext`ptype$$, $CellContext`c0$$, \
$CellContext`s0$$, $CellContext`s0$$, $CellContext`g0$$, $CellContext`r0$$, \
$CellContext`q2a$$, $CellContext`s2$$, $CellContext`c2a$$, \
$CellContext`q2b$$, $CellContext`s3$$, $CellContext`q3a$$, $CellContext`s4$$, \
$CellContext`q3b$$, $CellContext`s5$$, $CellContext`q3c$$, $CellContext`s6$$, \
$CellContext`n0$$, $CellContext`view3D$$, $CellContext`density$$, \
$CellContext`explode$$, $CellContext`ttED$$, $CellContext`isotope$$, \
$CellContext`stowe$$, $CellContext`bAND$$}}, "DefaultOptions" :> {}], 
       ImageSizeCache -> {768., {307., 312.}}, SingleEvaluation -> True], 
      Deinitialization :> None, DynamicModuleValues :> {}, 
      Initialization :> ({$CellContext`pdList = {
          "1) Math: Numbers: Octonion Fano Plane & Cubic", 
           "2) Math: Geometry: Dynkin Diagram Algebra Creator", 
           "3) Math: Algebra: E8 Lie Algebra & Subgroups Visualizer", 
           "4) Physics: Particle: Fundamental Quantum Element Builder", 
           "5) Physics: Nuclear: Meson Particle Selector", 
           "6) Physics: Atomic: Baryon Particle Selector", 
           "7) Chemistry: Periodic Table Element Selector", 
           "8) Biology: Life: nD Human Machine Interface"}, \
$CellContext`doFano := With[{$CellContext`local$ = $CellContext`localFano}, 
           
           Module[$CellContext`local$, $CellContext`d8Q := \
$CellContext`invMask$$ != $CellContext`altMask$$; $CellContext`doD8 := Or[
               And[$CellContext`flip$$, $CellContext`d8Q], 
               And[
                Not[$CellContext`flip$$], 
                Not[$CellContext`d8Q]]]; $CellContext`excFanoQ := 
             And[$CellContext`fpC$$ == 0, $CellContext`fpG$$ == 
               0]; $CellContext`fPi$$ := Part[
               If[$CellContext`doD8, $CellContext`fpD8, $CellContext`fpC8], 
               If[$CellContext`excFanoQ, 1, 0] + 
               2^2 $CellContext`fB[$CellContext`fpC$$, 2] + 
               2^2 $CellContext`fB[$CellContext`fpC$$, 
                  1] + $CellContext`fB[$CellContext`fpG$$, 
                 2] + $CellContext`fB[$CellContext`fpG$$, 
                 1]]; $CellContext`oct2p := \
$CellContext`spConv[$CellContext`invMask$$, 
               Part[$CellContext`flavorListStr, 
                If[$CellContext`excFanoQ, 5, 
                 If[$CellContext`fpG$$ == 0, 
                  If[$CellContext`sm$$ == 1, 3, 4], 
                  If[$CellContext`fpC$$ == 0, 1, 2]]], 
                If[$CellContext`altMask$$, 2, 1], 
                If[$CellContext`excFanoQ, 1, 
                 
                 If[$CellContext`fpG$$ == 
                  0, $CellContext`fpC$$, $CellContext`fpG$$]]], 
               If[$CellContext`excFanoQ, "\" \"", 
                Part[
                 Part[$CellContext`colorList, 
                  Span[5, 8]], 1 + $CellContext`fpC$$]], 
               Part[$CellContext`spList, $CellContext`sm$$]]; $CellContext`fM[
               Pattern[$CellContext`perm, 
                Blank[]], 
               Pattern[$CellContext`triads, 
                Blank[]], 
               Pattern[$CellContext`sign, 
                
                Blank[]]] := ($CellContext`fanoMult[$CellContext`perm, \
$CellContext`triads, $CellContext`sign]; $CellContext`fm = Table[
                 If[$CellContext`i == $CellContext`j, 
                  If[$CellContext`i == 8, 1, -1], 
                  Part[$CellContext`fSign, $CellContext`i, $CellContext`j] 
                  Part[$CellContext`fMult, $CellContext`i, $CellContext`j]], \
{$CellContext`i, 8}, {$CellContext`j, 8}]; $CellContext`fm = Transpose[
                 Join[{
                   RotateRight[
                    Part[$CellContext`fm, 8]]}, 
                  Table[
                   RotateRight[
                    Part[$CellContext`fm, $CellContext`i]], {$CellContext`i, 
                    7}]]]); $CellContext`fM[
               Pattern[$CellContext`perm, 
                Blank[]], 
               Pattern[$CellContext`triads, 
                
                Blank[]]] := $CellContext`fM[$CellContext`perm, \
$CellContext`triads, 0]; $CellContext`fM[
               Pattern[$CellContext`triads, 
                Blank[]]] := $CellContext`fM[
               Range[7], $CellContext`triads, 
               0]; {$CellContext`triads, $CellContext`flatFanoStyled, \
$CellContext`flatFano, $CellContext`firstFlipSign} = \
$CellContext`getTriads[$CellContext`invMask$$, $CellContext`altMask$$, \
$CellContext`fPi$$, $CellContext`sm$$]; $CellContext`fM[$CellContext`triads]; 
            If[
              Or[$CellContext`localize, $CellContext`refresh$$], 
              $CellContext`addParticles[{$CellContext`oct2p}]]; \
$CellContext`chkOctStyle := 
             If[$CellContext`IJKLstyle$$, 
               Unset[$CellContext`\[DoubleStruckJ]]; Unset[$CellContext`J]; 
               Unset[$CellContext`\[DoubleStruckK]]; Unset[K]; 
               Unset[$CellContext`\[DoubleStruckL]]; 
               Unset[$CellContext`L], $CellContext`\[DoubleStruckJ] = \
($CellContext`J = 
                 Subscript[$CellContext`\[ScriptE], 
                   2]); $CellContext`\[DoubleStruckK] = (K = 
                 Subscript[$CellContext`\[ScriptE], 
                   3]); $CellContext`\[DoubleStruckL] = 
                Subscript[$CellContext`\[ScriptE], 4]; 
               Null]; $CellContext`chkOctStyle; $CellContext`octImag$$ := Most[
               
               If[$CellContext`IJKLstyle$$, $CellContext`octIJKL, \
$CellContext`oct]]; $CellContext`octPM := 
             If[$CellContext`IJKLstyle$$, $CellContext`pmOctIJKL, \
$CellContext`pmOct]; $CellContext`pmChk[
               Pattern[$CellContext`p, 
                Blank[]]] := If[
               
               MemberQ[$CellContext`pmOct, $CellContext`p], \
$CellContext`pmOct, $CellContext`pmOctIJKL]; $CellContext`posChk[
               Pattern[$CellContext`p, 
                Blank[]]] := $CellContext`position[
               $CellContext`pmChk[$CellContext`p], $CellContext`p]; \
$CellContext`fanoChk[
               Pattern[$CellContext`p, 
                Blank[]]] := Part[$CellContext`octPM, 
               $CellContext`posChk[$CellContext`p]]; $CellContext`fmTable[
               Pattern[$CellContext`f, 
                Blank[]]] := Table[
               Style[
                ReleaseHold[$CellContext`f], 
                If[
                 
                 Or[$CellContext`i == 1, $CellContext`j == 
                  1, $CellContext`i == $CellContext`j], Red, 
                 Black]], {$CellContext`i, 8}, {$CellContext`j, 
                8}]; $CellContext`fmDispN := MatrixForm[
               ReplacePart[
                $CellContext`fmTable[
                 Hold[
                  Part[$CellContext`fm, $CellContext`i, $CellContext`j]]], {1,
                  1} -> "\!\(\*\nStyleBox[\"0\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"\[RightTeeArrow]\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"1\",\nFontColor->RGBColor[1, 0, 0]]\)"]]; \
$CellContext`fmDisp\[ScriptE] := MatrixForm[
               $CellContext`fmTable[
                Hold[
                 $CellContext`fanoChk[
                  SmallCircle[
                   Subscript[$CellContext`\[ScriptE], $CellContext`i - 1], 
                   
                   Subscript[$CellContext`\[ScriptE], $CellContext`j - 
                    1]]]]]]; $CellContext`basis[
               Pattern[$CellContext`p, 
                
                Blank[]]] := $CellContext`position[$CellContext`flatFano, \
$CellContext`p]; $CellContext`basis[
               Pattern[$CellContext`in, 
                Blank[List]]] := 
             Map[$CellContext`basis, $CellContext`in]; $CellContext`basisRev[
               Pattern[$CellContext`p, 
                Blank[]]] := 
             Part[$CellContext`flatFano, $CellContext`p]; \
$CellContext`basisRev[
               Pattern[$CellContext`in, 
                Blank[List]]] := Map[$CellContext`basisRev, $CellContext`in]; 
            SmallCircle[
               Subscript[$CellContext`\[ScriptE], 0], 
               Subscript[$CellContext`\[ScriptE], 0]] := 1; SmallCircle[
               Pattern[$CellContext`a, 
                Blank[]], 
               Subscript[$CellContext`\[ScriptE], 0]] := $CellContext`a; 
            SmallCircle[
               Subscript[$CellContext`\[ScriptE], 0], 
               Pattern[$CellContext`b, 
                Blank[]]] := $CellContext`b; SmallCircle[
               Subscript[$CellContext`\[ScriptE], 
                Pattern[$CellContext`i, 
                 Blank[Integer]]], 
               Subscript[$CellContext`\[ScriptE], 
                Pattern[$CellContext`i, 
                 Blank[Integer]]]] := -1; SmallCircle[
               PatternTest[
                Pattern[$CellContext`a, 
                 Blank[]], NumericQ], 
               PatternTest[
                Pattern[$CellContext`b, 
                 Blank[]], NumericQ]] := $CellContext`a $CellContext`b; 
            SmallCircle[
               PatternTest[
                Pattern[$CellContext`a, 
                 Blank[]], NumericQ], 
               Subscript[$CellContext`\[ScriptE], 
                Pattern[$CellContext`b, 
                 Blank[]]]] := $CellContext`a 
              Subscript[$CellContext`\[ScriptE], $CellContext`b]; SmallCircle[
               Subscript[$CellContext`\[ScriptE], 
                Pattern[$CellContext`a, 
                 Blank[]]], 
               PatternTest[
                Pattern[$CellContext`b, 
                 Blank[]], NumericQ]] := $CellContext`b 
              Subscript[$CellContext`\[ScriptE], $CellContext`a]; 
            SmallCircle[PatternTest[
                 Pattern[$CellContext`a, 
                  Blank[]], NumericQ] Pattern[$CellContext`b, 
                 Blank[]], 
               Pattern[$CellContext`c, 
                Blank[]]] := $CellContext`a 
              SmallCircle[$CellContext`b, $CellContext`c]; SmallCircle[
               Pattern[$CellContext`a, 
                Blank[]], PatternTest[
                 Pattern[$CellContext`b, 
                  Blank[]], NumericQ] Pattern[$CellContext`c, 
                 Blank[]]] := $CellContext`b 
              SmallCircle[$CellContext`a, $CellContext`c]; SmallCircle[
               Pattern[$CellContext`a, 
                Blank[List]], 
               Pattern[$CellContext`b, 
                Blank[]]] := 
             Map[SmallCircle[#, $CellContext`b]& , $CellContext`a]; 
            SmallCircle[
               Pattern[$CellContext`a, 
                Blank[]], 
               Pattern[$CellContext`b, 
                Blank[List]]] := 
             Map[SmallCircle[$CellContext`a, #]& , $CellContext`b]; 
            Pattern[$CellContext`ep, 
               SmallCircle[
                Pattern[$CellContext`a, 
                 Blank[Plus]], 
                Pattern[$CellContext`b, 
                 Blank[]]]] := Block[{SmallCircle}, 
               Distribute[$CellContext`ep]]; Pattern[$CellContext`ep, 
               SmallCircle[
                Pattern[$CellContext`a, 
                 Blank[]], 
                Pattern[$CellContext`b, 
                 Blank[Plus]]]] := Block[{SmallCircle}, 
               Distribute[$CellContext`ep]]; SmallCircle[
               Pattern[$CellContext`a, 
                Blank[Times]], 
               Subscript[$CellContext`\[ScriptE], 
                Pattern[$CellContext`b, 
                 Blank[]]]] := Select[$CellContext`a, NumericQ] SmallCircle[
                Select[$CellContext`a, Not[
                  NumericQ[#]]& ], 
                Subscript[$CellContext`\[ScriptE], $CellContext`b]]; 
            SmallCircle[
               Subscript[$CellContext`\[ScriptE], 
                Pattern[$CellContext`a, 
                 Blank[]]], 
               Pattern[$CellContext`b, 
                Blank[Times]]] := Select[$CellContext`b, NumericQ] SmallCircle[
                Subscript[$CellContext`\[ScriptE], $CellContext`a], 
                Select[$CellContext`b, Not[
                  NumericQ[#]]& ]]; Condition[
               SmallCircle[
                Subscript[$CellContext`\[ScriptE], 
                 Pattern[$CellContext`i, 
                  Blank[Integer]]], 
                Subscript[$CellContext`\[ScriptE], 
                 Pattern[$CellContext`j, 
                  Blank[Integer]]]], $CellContext`i != $CellContext`j] := Sign[
                Part[$CellContext`fm, 1 + Mod[$CellContext`i, 8], 1 + 
                 Mod[$CellContext`j, 8]]] Subscript[$CellContext`\[ScriptE], 
                Abs[
                 
                 Part[$CellContext`fm, 1 + Mod[$CellContext`i, 8], 1 + 
                  Mod[$CellContext`j, 8]]]]; $CellContext`associator[
               Subscript[$CellContext`\[ScriptE], 
                Pattern[$CellContext`a, 
                 Blank[]]], 
               Subscript[$CellContext`\[ScriptE], 
                Pattern[$CellContext`b, 
                 Blank[]]], 
               Subscript[$CellContext`\[ScriptE], 
                Pattern[$CellContext`c, 
                 Blank[]]]] := Expand[SmallCircle[
                 SmallCircle[
                  Subscript[$CellContext`\[ScriptE], $CellContext`a], 
                  Subscript[$CellContext`\[ScriptE], $CellContext`b]], 
                 Subscript[$CellContext`\[ScriptE], $CellContext`c]] - 
               SmallCircle[
                Subscript[$CellContext`\[ScriptE], $CellContext`a], 
                SmallCircle[
                 Subscript[$CellContext`\[ScriptE], $CellContext`b], 
                 
                 Subscript[$CellContext`\[ScriptE], $CellContext`c]]]]; \
$CellContext`associator[
               Pattern[$CellContext`a, 
                Blank[Integer]], 
               Pattern[$CellContext`b, 
                Blank[Integer]], 
               Pattern[$CellContext`c, 
                Blank[Integer]]] := $CellContext`associator[
               Subscript[$CellContext`\[ScriptE], $CellContext`a], 
               Subscript[$CellContext`\[ScriptE], $CellContext`b], 
               
               Subscript[$CellContext`\[ScriptE], $CellContext`c]]; \
$CellContext`octonion[
               Pattern[$CellContext`p$, 
                Blank[]]] := 
             Total[$CellContext`p$ 
               Join[{1}, $CellContext`octImag$$]]; $CellContext`commutator[
               Pattern[$CellContext`x, 
                Blank[]], 
               Pattern[$CellContext`y, 
                Blank[]]] := Simplify[
               Chop[
               SmallCircle[$CellContext`x, $CellContext`y] - 
                SmallCircle[$CellContext`y, $CellContext`x]]]; \
$CellContext`derivation[
               Pattern[$CellContext`x, 
                Blank[]], 
               Pattern[$CellContext`y, 
                Blank[]]][
               Pattern[$CellContext`a, 
                Blank[]]] := $CellContext`commutator[
                $CellContext`commutator[$CellContext`x, $CellContext`y], \
$CellContext`a] - 3 (SmallCircle[
                 SmallCircle[$CellContext`x, $CellContext`y], $CellContext`a] - 
               SmallCircle[$CellContext`x, 
                
                SmallCircle[$CellContext`y, $CellContext`a]]); \
$CellContext`derMatrix[
               Pattern[$CellContext`x$, 
                Blank[]], 
               Pattern[$CellContext`y$, 
                Blank[]]] := Table[
               Coefficient[
                $CellContext`derivation[$CellContext`x$, $CellContext`y$][
                 Part[$CellContext`octImag$$, $CellContext`i]], 
                
                Part[$CellContext`octImag$$, $CellContext`j]], \
{$CellContext`j, 1, 7}, {$CellContext`i, 1, 7}]; $CellContext`derVector[
               Pattern[$CellContext`x, 
                Blank[]], 
               Pattern[$CellContext`y, 
                Blank[]]] := Flatten[
               $CellContext`derMatrix[$CellContext`x, $CellContext`y]]; \
$CellContext`octconjugate[
               Pattern[$CellContext`p$, 
                Blank[]]] := 
             Total[$CellContext`p$ Join[{1}, -$CellContext`octImag$$]]; 
            Pattern[$CellContext`octConjugatePattern, 
               SuperStar[
                Pattern[$CellContext`p, 
                 
                 Blank[]]]] := $CellContext`octconjugate[$CellContext`p]; \
$CellContext`octRe[
               Pattern[$CellContext`p, 
                Blank[]]] := Simplify[
               
               Chop[($CellContext`octonion[$CellContext`p] + 
                 SuperStar[$CellContext`p])/2]]; $CellContext`octIm[
               Pattern[$CellContext`p, 
                Blank[]]] := Simplify[
               
               Chop[($CellContext`octonion[$CellContext`p] - 
                 SuperStar[$CellContext`p])/2]]; $CellContext`octAbs[
               Pattern[$CellContext`p, 
                Blank[]]] := Total[{
                SmallCircle[
                 $CellContext`octonion[$CellContext`p], 
                 SuperStar[$CellContext`p]]}]; $CellContext`octNorm[
               Pattern[$CellContext`p, 
                Blank[]]] := Sqrt[
               $CellContext`octAbs[$CellContext`p]]; $CellContext`octDiv[
               Pattern[$CellContext`p, 
                Blank[]]] := 
             Simplify[
              SuperStar[$CellContext`p]/$CellContext`octAbs[$CellContext`p]]; \
$CellContext`setFM[
               Pattern[$CellContext`p$, 
                Blank[]], 
               Pattern[$CellContext`flip$, 
                Blank[]]] := $CellContext`fM[
               First[
                Apply[$CellContext`getTriads, 
                 
                 Part[{$CellContext`invMask$$, $CellContext`altMask$$, \
$CellContext`fPi$$, $CellContext`sm$$, $CellContext`fpC$$, \
$CellContext`fpG$$} = $CellContext`pTriad[$CellContext`p$, \
$CellContext`flip$], 
                  Span[1, 4]]]]]; CircleDot[
               Pattern[$CellContext`a, 
                Blank[]], 
               Pattern[$CellContext`b, 
                Blank[]]] := ($CellContext`setFM[$CellContext`a, True]; 
              SmallCircle[
                $CellContext`octonion[
                 $CellContext`pPhys[$CellContext`a]], 
                $CellContext`octonion[
                 $CellContext`pPhys[$CellContext`b]]]); \
$CellContext`fanoLines := Flatten[
               Map[Partition[#, 2, 1]& , 
                Map[($CellContext`lj = 0; $CellContext`li = #; While[
                   And[Increment[$CellContext`lj] < 4, 
                    Not[
                    Apply[Equal, 
                    Flatten[
                    Map[Map[Normalize, 
                    Differences[{
                    Part[$CellContext`coords2, 
                    Part[#, 1]], 
                    Part[$CellContext`coords2, 
                    Part[#, 2]]}]]& , 
                    Partition[$CellContext`li, 2, 1]], 1]]]], $CellContext`li = 
                   RotateRight[$CellContext`li]]; $CellContext`li)& , 
                 DeleteCases[
                  Map[$CellContext`basis, $CellContext`triads], 
                  Apply[Alternatives, 
                   Permutations[$CellContext`ca1]]]]], 1]; $CellContext`dskClr[
               Pattern[$CellContext`p$, 
                Blank[]]] := If[
               
               MemberQ[{$CellContext`n1$$, $CellContext`n2$$, \
$CellContext`n3$$}, 
                $CellContext`basisRev[$CellContext`p$]], Yellow, 
               Cyan]; $CellContext`doArrows[
               Pattern[$CellContext`in, 
                Blank[]]] := Map[{
                Lighter[Gray], 
                If[$CellContext`in, 
                 Arrow[{
                   Part[$CellContext`coords2, 
                    Part[#, 1]], 
                   Part[$CellContext`coords2, 
                    Part[#, 2]]}], 
                 Cylinder[{
                   Part[$CellContext`coords3, 
                    Part[#, 1]], 
                   Part[$CellContext`coords3, 
                    Part[#, 2]]}, 
                  0.03]]}& , $CellContext`fanoLines]; $CellContext`node[
               Pattern[$CellContext`in, 
                Blank[]], 
               Pattern[$CellContext`p, 
                Blank[]]] := {
               $CellContext`dskClr[$CellContext`p], 
               EdgeForm[Black], 
               If[$CellContext`in, 
                Disk[
                 Part[$CellContext`coords2, $CellContext`p], 0.1], 
                Sphere[
                 Part[$CellContext`coords3, $CellContext`p], 0.1]], 
               Text[
                Style[
                 Part[
                  
                  If[$CellContext`in, $CellContext`octString, \
$CellContext`oct], 
                  $CellContext`basisRev[$CellContext`p]], {
                 Black, Larger, Bold, 
                  If[$CellContext`localize, Small, Medium]}], 
                Part[
                 
                 If[$CellContext`in, $CellContext`coords2, \
$CellContext`coords3], $CellContext`p]]}; $CellContext`fanoPlane := Tooltip[
               Row[{
                 Labeled["Fano plane", 
                  Graphics[{
                    Arrowheads[{{0.07, 0.7}}], 
                    $CellContext`doArrows[True], 
                    Darker[Gray], 
                    Arrowheads[{{0.07, 0.37}, {0.07, 0.68}, {0.07, 0.03}}], 
                    Arrow[
                    Table[
                    Part[$CellContext`coords2, 4] + 
                    Norm[Part[$CellContext`coords2, 3] - 
                    Part[$CellContext`coords2, 4]] {
                    Cos[$CellContext`a], $CellContext`firstFlipSign 
                    Sin[$CellContext`a]}, {$CellContext`a, 0, 2 Pi, Pi/32}]], 
                    Map[$CellContext`node[True, #]& , 
                    Range[7]]}, ImageSize -> $CellContext`imageSize/3]]}], 
               Text[
                Grid[{{
                   $CellContext`pDisp[$CellContext`oct2p]}, {
                   $CellContext`pToolTipTxt[$CellContext`oct2p]}}]]]; \
$CellContext`fanoCube := Labeled["Fano cube", 
               Graphics3D[{
                 Specularity[White, $CellContext`specularity], 
                 $CellContext`doArrows[False], White, 
                 Map[Cylinder[{
                    Part[$CellContext`coords3, 
                    Part[#, 1]], 
                    Part[$CellContext`coords3, 
                    Part[#, 2]]}, 0.03]& , $CellContext`ca2], 
                 Map[$CellContext`node[False, #]& , 
                  Range[8]], 
                 $CellContext`txt[
                 "\[DoubleStruckCapitalR]\nReal", Part[$CellContext`coords3, 
                    $CellContext`basis[8]] - {2, -1, 1}/10], 
                 $CellContext`txt[
                 "\[DoubleStruckCapitalC]\nComplex", 
                  Part[$CellContext`coords3, 
                    $CellContext`basis[1]] - {3, 0, 1}/10], 
                 $CellContext`txt[
                 "\[DoubleStruckCapitalH]\nQuaternion", 
                  Part[$CellContext`coords3, 
                    $CellContext`basis[3]] - {2, -2, 1}/10], 
                 $CellContext`txt[
                 "\[DoubleStruckCapitalO]\nOctonion", 
                  Part[$CellContext`coords3, 
                    $CellContext`basis[7]] - {3, -1, 1}/10]}, Boxed -> False, 
                ViewPoint -> {1., 1.2, 1.4}, 
                ImageSize -> $CellContext`imageSize/
                 3]]; $CellContext`odd4Graph := Labeled["Coxeter odd 4", 
               Graphics[
                
                GraphPlot[$CellContext`odd4Edges, VertexCoordinateRules -> 
                 Table[Part[$CellContext`triple35Lst, 
                    Part[$CellContext`odd4Hamiltonian, $CellContext`n]] -> {
                    Sin[2 Pi ($CellContext`n/35)], 
                    Cos[2 Pi ($CellContext`n/35)]}, {$CellContext`n, 1, 35}], 
                 EdgeRenderingFunction -> (If[
                   And[Intersection[
                    Apply[List, #2], 
                    
                    Part[$CellContext`fano30Triads, $CellContext`fPi$$]] == \
{}, Intersection[
                    Apply[List, #2], 
                    
                    Part[$CellContext`fano30Triads, $CellContext`fPi$$]] == \
{}], {Black, 
                    Line[#]}, {
                    If[
                    
                    MemberQ[$CellContext`hoffmanSingleton, \
$CellContext`fPi$$], Yellow, Cyan], 
                    Line[#]}]& ), ImageSize -> $CellContext`imageSize/3]]]; 
            Text[
              Grid[{
                $CellContext`dispTriad[$CellContext`invMask$$, \
$CellContext`altMask$$, $CellContext`fPi$$, $CellContext`sm$$, \
$CellContext`fpC$$, $CellContext`fpG$$], {$CellContext`fanoPlane, \
$CellContext`fanoCube}, {
                 Grid[{{
                    Column[{SmallCircle[
                    Part[$CellContext`oct, $CellContext`n1$$], 
                    HoldForm[
                    Evaluate[
                    Part[$CellContext`oct, $CellContext`n2$$]]]] == 
                    SmallCircle[
                    Part[$CellContext`oct, $CellContext`n1$$], 
                    Part[$CellContext`oct, $CellContext`n2$$]], SmallCircle[
                    Part[$CellContext`oct, $CellContext`n2$$], 
                    HoldForm[
                    Evaluate[
                    Part[$CellContext`oct, $CellContext`n3$$]]]] == 
                    SmallCircle[
                    Part[$CellContext`oct, $CellContext`n2$$], 
                    Part[$CellContext`oct, $CellContext`n3$$]]}, Center], 
                    Column[{
                    Row[{"associator algebra"}], 
                    Style[SmallCircle[
                    SmallCircle[
                    Part[$CellContext`oct, $CellContext`n1$$], 
                    HoldForm[
                    Evaluate[
                    Part[$CellContext`oct, $CellContext`n2$$]]]], 
                    Part[$CellContext`oct, $CellContext`n3$$]] - SmallCircle[
                    Part[$CellContext`oct, $CellContext`n1$$], 
                    SmallCircle[
                    HoldForm[
                    Evaluate[
                    Part[$CellContext`oct, $CellContext`n2$$]]], 
                    
                    Part[$CellContext`oct, $CellContext`n3$$]]] == \
$CellContext`associator[
                    Part[$CellContext`oct, $CellContext`n1$$], 
                    Part[$CellContext`oct, $CellContext`n2$$], 
                    Part[$CellContext`oct, $CellContext`n3$$]]]}, Center]}, {
                    
                    Column[{$CellContext`fmDispN, 
                    "numeric multiplication table"}, Center], 
                    Column[{$CellContext`fmDisp\[ScriptE], 
                    
                    Row[{$CellContext`align, 
                    "symbolic multiplication table", $CellContext`align}]}, 
                    Center]}}], 
                 Column[{SmallCircle[
                    SmallCircle[
                    Part[$CellContext`oct, $CellContext`n1$$], 
                    HoldForm[
                    Evaluate[
                    Part[$CellContext`oct, $CellContext`n2$$]]]], 
                    Part[$CellContext`oct, $CellContext`n3$$]] == SmallCircle[
                    SmallCircle[
                    Part[$CellContext`oct, $CellContext`n1$$], 
                    Part[$CellContext`oct, $CellContext`n2$$]], 
                    Part[$CellContext`oct, $CellContext`n3$$]], SmallCircle[
                    Part[$CellContext`oct, $CellContext`n1$$], 
                    SmallCircle[
                    Part[$CellContext`oct, $CellContext`n2$$], 
                    HoldForm[
                    Evaluate[
                    Part[$CellContext`oct, $CellContext`n3$$]]]]] == 
                   SmallCircle[
                    Part[$CellContext`oct, $CellContext`n1$$], 
                    SmallCircle[
                    Part[$CellContext`oct, $CellContext`n2$$], 
                    
                    Part[$CellContext`oct, $CellContext`n3$$]]], \
$CellContext`odd4Graph}]}, {
                 Column[{"octonion math examples", 
                   Row[{"a=", 
                    $CellContext`octonion[$CellContext`o1]}], 
                   Row[{"b=", 
                    $CellContext`octonion[$CellContext`o2]}], 
                   Row[{"\!\(\*SuperscriptBox[\(a\), \(*\)]\)=", 
                    SuperStar[$CellContext`o1]}], 
                   Row[{"a\[SmallCircle]b=", 
                    SmallCircle[
                    $CellContext`octonion[$CellContext`o1], 
                    $CellContext`octonion[$CellContext`o2]]}], 
                   
                   Row[{"\[RightDoubleBracketingBar]ab\
\[RightDoubleBracketingBar]=\[RightDoubleBracketingBar]a\
\[RightDoubleBracketingBar] \[RightDoubleBracketingBar]b\
\[RightDoubleBracketingBar]=\!\(\*SqrtBox[\(\*SuperscriptBox[\(a\), \(*\)] \
a\)]\)\!\(\*SqrtBox[\(\*SuperscriptBox[\(b\), \(*\)] b\)]\)=", \
$CellContext`octNorm[$CellContext`o1] $CellContext`octNorm[$CellContext`o2]}], 
                   Row[{"a\[SmallCircle]b-b\[SmallCircle]a=", 
                    $CellContext`commutator[
                    $CellContext`octonion[$CellContext`o1], 
                    $CellContext`octonion[$CellContext`o2]]}], 
                   Row[{"\!\(\*FractionBox[\(1\), \(a\)]\)=", 
                    $CellContext`octDiv[$CellContext`o1]}]}]}}, 
               Alignment -> {
                Left, Top}]]]], $CellContext`localFano = {$CellContext`d8Q, \
$CellContext`excFanoQ, $CellContext`doD8, $CellContext`oct2p, \
$CellContext`fM, $CellContext`fm, $CellContext`triads, \
$CellContext`flatFanoStyled, $CellContext`flatFano, \
$CellContext`firstFlipSign, $CellContext`chkOctStyle, $CellContext`octPM, \
$CellContext`pmChk, $CellContext`posChk, $CellContext`fanoChk, \
$CellContext`fmTable, $CellContext`fmDispN, $CellContext`fmDisp\[ScriptE], \
$CellContext`basis, $CellContext`basisRev, $CellContext`fanoLines, \
$CellContext`dskClr, $CellContext`associator, $CellContext`octonion, \
$CellContext`commutator, $CellContext`octconjugate, $CellContext`octRe, \
$CellContext`octIm, $CellContext`octAbs, $CellContext`octNorm, \
$CellContext`octDiv, $CellContext`setFM, $CellContext`doArrows, \
$CellContext`node, $CellContext`fanoPlane, $CellContext`fanoCube, \
$CellContext`odd4Graph}, $CellContext`fpD8 = {2, 5, 9, 7, 10, 12, 13, 15, 19, 
          20, 21, 23, 26, 29, 28}, $CellContext`fpC8 = {1, 3, 6, 4, 8, 11, 14,
           16, 17, 18, 22, 24, 25, 27, 30}, $CellContext`fB[
           Pattern[$CellContext`p, 
            Blank[]], 
           Pattern[$CellContext`bit, 
            Blank[]]] := BitAnd[
           Abs[$CellContext`p], $CellContext`bit], $CellContext`spConv[
           Pattern[$CellContext`anti, 
            Blank[]], 
           Pattern[$CellContext`prt, 
            Blank[]], 
           Pattern[$CellContext`clr, 
            Blank[]], 
           Pattern[$CellContext`sp, 
            Blank[]]] := $CellContext`position[$CellContext`e8Orig, 
           If[$CellContext`anti, Subtract, Plus][0, 
            Part[$CellContext`e8Orig, 
             $CellContext`basePos[$CellContext`prt, $CellContext`clr, \
$CellContext`sp]]]], $CellContext`position[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`y, 
            Blank[]]] := $CellContext`first[
           Flatten[
            
            Position[$CellContext`x, $CellContext`y, 1, Heads -> 
             False]]], $CellContext`first[
           Pattern[$CellContext`in, 
            Blank[]]] := If[Length[$CellContext`in] == 0, $CellContext`in, 
           
           First[$CellContext`in]], $CellContext`e8Orig = {{(-1)/2, (-1)/
            2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {0, 0, 0, 0, 
           0, 0, 0, -1}, {0, 0, 0, 0, 0, 0, -1, 0}, {0, 0, 0, 0, 0, -1, 0, 
           0}, {0, 0, 0, 0, -1, 0, 0, 0}, {0, 0, 0, -1, 0, 0, 0, 0}, {0, 
           0, -1, 0, 0, 0, 0, 0}, {0, -1, 0, 0, 0, 0, 0, 0}, {-1, 0, 0, 0, 0, 
           0, 0, 0}, {
           1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2,
             1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 
            1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/
            2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 
            1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 
            1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 
            1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 
            1/2, 1/2}, {-1, -1, 0, 0, 0, 0, 0, 0}, {-1, 0, -1, 0, 0, 0, 0, 
           0}, {-1, 0, 0, -1, 0, 0, 0, 0}, {-1, 0, 0, 0, -1, 0, 0, 0}, {-1, 0,
            0, 0, 0, -1, 0, 0}, {-1, 0, 0, 0, 0, 0, -1, 0}, {-1, 0, 0, 0, 0, 
           0, 0, -1}, {-1, 0, 0, 0, 0, 0, 0, 1}, {-1, 0, 0, 0, 0, 0, 1, 
           0}, {-1, 0, 0, 0, 0, 1, 0, 0}, {-1, 0, 0, 0, 1, 0, 0, 0}, {-1, 0, 
           0, 1, 0, 0, 0, 0}, {-1, 0, 1, 0, 0, 0, 0, 0}, {-1, 1, 0, 0, 0, 0, 
           0, 0}, {0, -1, -1, 0, 0, 0, 0, 0}, {0, -1, 0, -1, 0, 0, 0, 0}, {
           0, -1, 0, 0, -1, 0, 0, 0}, {0, -1, 0, 0, 0, -1, 0, 0}, {0, -1, 0, 
           0, 0, 0, -1, 0}, {0, -1, 0, 0, 0, 0, 0, -1}, {0, -1, 0, 0, 0, 0, 0,
            1}, {0, -1, 0, 0, 0, 0, 1, 0}, {0, -1, 0, 0, 0, 1, 0, 0}, {0, -1, 
           0, 0, 1, 0, 0, 0}, {0, -1, 0, 1, 0, 0, 0, 0}, {0, -1, 1, 0, 0, 0, 
           0, 0}, {0, 0, -1, -1, 0, 0, 0, 0}, {0, 0, -1, 0, -1, 0, 0, 0}, {0, 
           0, -1, 0, 0, -1, 0, 0}, {0, 0, -1, 0, 0, 0, -1, 0}, {0, 0, -1, 0, 
           0, 0, 0, -1}, {0, 0, -1, 0, 0, 0, 0, 1}, {0, 0, -1, 0, 0, 0, 1, 
           0}, {0, 0, -1, 0, 0, 1, 0, 0}, {0, 0, -1, 0, 1, 0, 0, 0}, {0, 
           0, -1, 1, 0, 0, 0, 0}, {0, 0, 0, -1, -1, 0, 0, 0}, {0, 0, 0, -1, 
           0, -1, 0, 0}, {0, 0, 0, -1, 0, 0, -1, 0}, {0, 0, 0, -1, 0, 0, 
           0, -1}, {0, 0, 0, -1, 0, 0, 0, 1}, {0, 0, 0, -1, 0, 0, 1, 0}, {0, 
           0, 0, -1, 0, 1, 0, 0}, {0, 0, 0, -1, 1, 0, 0, 0}, {0, 0, 0, 
           0, -1, -1, 0, 0}, {0, 0, 0, 0, -1, 0, -1, 0}, {0, 0, 0, 0, -1, 0, 
           0, -1}, {0, 0, 0, 0, -1, 0, 0, 1}, {0, 0, 0, 0, -1, 0, 1, 0}, {0, 
           0, 0, 0, -1, 1, 0, 0}, {0, 0, 0, 0, 0, -1, -1, 0}, {0, 0, 0, 0, 
           0, -1, 0, -1}, {0, 0, 0, 0, 0, -1, 0, 1}, {0, 0, 0, 0, 0, -1, 1, 
           0}, {0, 0, 0, 0, 0, 0, -1, -1}, {0, 0, 0, 0, 0, 0, -1, 1}, {
           1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {
           1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {
           1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
           1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
           1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
           1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
           1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 
            1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/
            2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/
            2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/
            2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/
            2, (-1)/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/
            2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2,
             1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/
            2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/
            2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/
            2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/
            2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/
            2}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2,
             1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/
            2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 
            1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/
            2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 
            1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/
            2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 
            1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/
            2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 
            1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/
            2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/
            2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 
            1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2,
             1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/
            2, 1/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/
            2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1)/
            2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/
            2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, (-1)/2, (-1)/
            2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {0, 0, 0, 0, 0, 0, 1, -1}, {0, 0, 
           0, 0, 0, 0, 1, 1}, {0, 0, 0, 0, 0, 1, -1, 0}, {0, 0, 0, 0, 0, 1, 
           0, -1}, {0, 0, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 
           0, 0, 1, -1, 0, 0}, {0, 0, 0, 0, 1, 0, -1, 0}, {0, 0, 0, 0, 1, 0, 
           0, -1}, {0, 0, 0, 0, 1, 0, 0, 1}, {0, 0, 0, 0, 1, 0, 1, 0}, {0, 0, 
           0, 0, 1, 1, 0, 0}, {0, 0, 0, 1, -1, 0, 0, 0}, {0, 0, 0, 1, 0, -1, 
           0, 0}, {0, 0, 0, 1, 0, 0, -1, 0}, {0, 0, 0, 1, 0, 0, 0, -1}, {0, 0,
            0, 1, 0, 0, 0, 1}, {0, 0, 0, 1, 0, 0, 1, 0}, {0, 0, 0, 1, 0, 1, 0,
            0}, {0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 1, -1, 0, 0, 0, 0}, {0, 0, 1,
            0, -1, 0, 0, 0}, {0, 0, 1, 0, 0, -1, 0, 0}, {0, 0, 1, 0, 0, 0, -1,
            0}, {0, 0, 1, 0, 0, 0, 0, -1}, {0, 0, 1, 0, 0, 0, 0, 1}, {0, 0, 1,
            0, 0, 0, 1, 0}, {0, 0, 1, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 1, 0, 0, 
           0}, {0, 0, 1, 1, 0, 0, 0, 0}, {0, 1, -1, 0, 0, 0, 0, 0}, {0, 1, 
           0, -1, 0, 0, 0, 0}, {0, 1, 0, 0, -1, 0, 0, 0}, {0, 1, 0, 0, 0, -1, 
           0, 0}, {0, 1, 0, 0, 0, 0, -1, 0}, {0, 1, 0, 0, 0, 0, 0, -1}, {0, 1,
            0, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 0, 1, 0}, {0, 1, 0, 0, 0, 1, 0,
            0}, {0, 1, 0, 0, 1, 0, 0, 0}, {0, 1, 0, 1, 0, 0, 0, 0}, {0, 1, 1, 
           0, 0, 0, 0, 0}, {1, -1, 0, 0, 0, 0, 0, 0}, {1, 0, -1, 0, 0, 0, 0, 
           0}, {1, 0, 0, -1, 0, 0, 0, 0}, {1, 0, 0, 0, -1, 0, 0, 0}, {1, 0, 0,
            0, 0, -1, 0, 0}, {1, 0, 0, 0, 0, 0, -1, 0}, {1, 0, 0, 0, 0, 0, 
           0, -1}, {1, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1, 0}, {1, 0, 
           0, 0, 0, 1, 0, 0}, {1, 0, 0, 0, 1, 0, 0, 0}, {1, 0, 0, 1, 0, 0, 0, 
           0}, {1, 0, 1, 0, 0, 0, 0, 0}, {1, 1, 0, 0, 0, 0, 0, 0}, {
           1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
           1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
           1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
           1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
           1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {
           1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {
           1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {
           1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {
           1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {
           1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {
           1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {
           1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {
           1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {
           1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {
           1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {
           1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 
            1/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/
            2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/
            2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 
            1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 
            1/2, 1/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {
           1, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 
           0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 
           0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 
           0, 1}, {1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/
            2}}, $CellContext`basePos[
           Pattern[$CellContext`prt, 
            Blank[]], 
           Pattern[$CellContext`clr, 
            Blank[]], 
           Pattern[$CellContext`sp, 
            Blank[]]] := Subscript[
           Underscript[
            Part[
             Flatten[$CellContext`flavorList], 
             $CellContext`position[
              Flatten[$CellContext`flavorListStr], 
              ReplaceAll[$CellContext`prt, $CellContext`qConvDoNoAnti]]], 
            If[$CellContext`clr == "\" \"", $CellContext`clr, 
             Part[$CellContext`colorListExp, 
              $CellContext`position[$CellContext`colorList, \
$CellContext`clr]]]], $CellContext`sp], Attributes[Subscript] = {NHoldRest}, 
         Subscript[$CellContext`F, 
           Pattern[$CellContext`n, 
            Blank[]], 
           Pattern[$CellContext`l, 
            Blank[]]][
           Pattern[$CellContext`r, 
            Blank[]]] := ($CellContext`r^$CellContext`l 
           Factorial[$CellContext`n + $CellContext`l] 
           LaguerreL[$CellContext`n - $CellContext`l - 1, 2 $CellContext`l + 
             1, $CellContext`r])/E^($CellContext`r/2), 
         Subscript[$CellContext`R, 
           Pattern[$CellContext`n, 
            Blank[]], 
           Pattern[$CellContext`l, 
            Blank[]]][
           Pattern[$CellContext`r, 
            Blank[]]] := (2/($CellContext`n $CellContext`a0))^2 
          Sqrt[($CellContext`a0/4) (
             Factorial[$CellContext`n - $CellContext`l - 1]/
             Factorial[$CellContext`n + $CellContext`l]^3)] 
          Subscript[$CellContext`F, $CellContext`n, $CellContext`l][(
             2 $CellContext`r)/($CellContext`n $CellContext`a0)], 
         Subscript[$CellContext`Y, 
           Pattern[$CellContext`l, 
            Blank[]], 
           Pattern[$CellContext`m, 
            Blank[]]][
           Pattern[$CellContext`\[Theta], 
            Blank[]], 
           Pattern[$CellContext`\[Phi], 
            Blank[]]] := 
         SphericalHarmonicY[$CellContext`l, $CellContext`m, $CellContext`\
\[Theta], $CellContext`\[Phi]], Subscript[$CellContext`\[Psi], 
           Pattern[$CellContext`n, 
            Blank[]], 
           Pattern[$CellContext`l, 
            Blank[]], 
           Pattern[$CellContext`m, 
            Blank[]]][
           Pattern[$CellContext`r, 
            Blank[]], 
           Pattern[$CellContext`\[Theta], 
            Blank[]], 
           Pattern[$CellContext`\[Phi], 
            Blank[]]] := ($CellContext`\[HBar]/2) 
          Subscript[$CellContext`R, $CellContext`n, \
$CellContext`l][$CellContext`r] Abs[
            
            Subscript[$CellContext`Y, $CellContext`l, \
$CellContext`m][$CellContext`\[Theta], $CellContext`\[Phi]]], 
         Subscript[$CellContext`\[Psi]2, 
           Pattern[$CellContext`n, 
            Blank[]], 
           Pattern[$CellContext`l, 
            Blank[]], 
           Pattern[$CellContext`m, 
            Blank[]]][
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`y, 
            Blank[]]] := 
         Module[{$CellContext`r = Norm[{$CellContext`x, $CellContext`y}]}, 
           Subscript[$CellContext`\[Psi], $CellContext`n, $CellContext`l, \
$CellContext`m][$CellContext`r, 
             ArcCos[$CellContext`y/$CellContext`r], 
             ArcTan[$CellContext`x, 0]]^2], 
         Subscript[$CellContext`R, 
           Infinity] = $CellContext`FineStructureConstant, 
         Pattern[$CellContext`scaledPattern, 
           Subscript[
            Pattern[$CellContext`p, 
             
             Blank[]], $CellContext`scaled]] := $CellContext`p \
$CellContext`zoomFct, Pattern[$CellContext`tinyPattern, 
           Subscript[
            Pattern[$CellContext`x, 
             Blank[]], $CellContext`tiny]] := {$CellContext`x, 2/4}, 
         Pattern[$CellContext`smallPattern, 
           Subscript[
            Pattern[$CellContext`x, 
             Blank[]], $CellContext`small]] := {$CellContext`x, 3/4}, 
         Pattern[$CellContext`nrmlPattern, 
           Subscript[
            Pattern[$CellContext`x, 
             Blank[]], $CellContext`nrml]] := {$CellContext`x, 4/4}, 
         Pattern[$CellContext`bigPattern, 
           Subscript[
            Pattern[$CellContext`x, 
             Blank[]], $CellContext`big]] := {$CellContext`x, 5/4}, 
         Pattern[$CellContext`hugePattern, 
           Subscript[
            Pattern[$CellContext`x, 
             Blank[]], $CellContext`huge]] := {$CellContext`x, 6/4}, 
         Pattern[$CellContext`varPattern$, 
           Subscript[
            Pattern[$CellContext`x$, 
             Blank[]], $CellContext`varS]] := Subscript[$CellContext`x$, 
           Hold[$CellContext`pSize$$]], Pattern[$CellContext`spinLuPattern, 
           Subscript[
            Pattern[$CellContext`prt, 
             Blank[]], 
            Overscript[
            "L", "\[Vee]"]]] := $CellContext`position[$CellContext`e8bit, 
           $CellContext`pBit[$CellContext`prt]], 
         Pattern[$CellContext`spinLdPattern, 
           Subscript[
            Pattern[$CellContext`prt, 
             Blank[]], 
            Overscript[
            "R", "\[Wedge]"]]] := $CellContext`position[$CellContext`e8bit, \
$CellContext`pBit[$CellContext`prt] + 2^Part[$CellContext`bOrd, 4]], 
         Pattern[$CellContext`spinRuPattern, 
           Subscript[
            Pattern[$CellContext`prt, 
             Blank[]], 
            Overscript[
            "L", "\[Wedge]"]]] := $CellContext`position[$CellContext`e8bit, \
$CellContext`pBit[$CellContext`prt] + 2^(Part[$CellContext`bOrd, 4] + 1)], 
         Pattern[$CellContext`spinRdPattern, 
           Subscript[
            Pattern[$CellContext`prt, 
             Blank[]], 
            Overscript[
            "R", "\[Vee]"]]] := $CellContext`position[$CellContext`e8bit, \
$CellContext`pBit[$CellContext`prt] + 2^Part[$CellContext`bOrd, 4] + 
           2^(Part[$CellContext`bOrd, 4] + 1)], $CellContext`l = {183, 192, 
          203, 48, 244, 238, 233, 229, 94, 23, 18, 12, 72, 81, 216, 61, 148, 
          128, 162, 158, 10, 1, 17, 11}, $CellContext`a0 = 
         1/(4 Pi), $CellContext`\[HBar] = 1/(2 Pi), $CellContext`zoomFct := 
         1. 10^$CellContext`zoom$$, Attributes[Overscript] = {NHoldRest}, 
         Overscript[$CellContext`l1, 
           Blank[]] = {74, 13, 163}, Overscript[$CellContext`l2, 
           Blank[]] = {185, 109, 247}, 
         Overscript[{183, 192, 203, 48, 244, 238, 233, 229, 94, 23, 18, 12, 
           72, 81, 216, 61, 148, 128, 162, 158, 10, 1, 17, 11}, 
           Blank[]] = {74, 65, 54, 209, 13, 19, 24, 28, 163, 234, 239, 245, 
          185, 176, 41, 196, 109, 129, 95, 99, 247, 256, 240, 246}, 
         Overscript[$CellContext`q1, 
           Blank[]] = {191, 14, 32}, Overscript[$CellContext`q2, 
           Blank[]] = {80, 110, 149}, 
         Overscript[{66, 75, 210, 55, 67, 76, 211, 56, 68, 77, 212, 57, 243, 
           237, 232, 228, 242, 236, 231, 227, 241, 235, 230, 226, 225, 154, 
           144, 124, 224, 153, 143, 123, 223, 152, 142, 122, 177, 186, 197, 
           42, 178, 187, 198, 43, 179, 188, 199, 44, 147, 127, 161, 157, 146, 
           126, 160, 156, 145, 125, 159, 155, 108, 37, 138, 118, 107, 36, 137,
            117, 106, 35, 136, 116}, 
           Blank[]] = {191, 182, 47, 202, 190, 181, 46, 201, 189, 180, 45, 
          200, 14, 20, 25, 29, 15, 21, 26, 30, 16, 22, 27, 31, 32, 103, 113, 
          133, 33, 104, 114, 134, 34, 105, 115, 135, 80, 71, 60, 215, 79, 70, 
          59, 214, 78, 69, 58, 213, 110, 130, 96, 100, 111, 131, 97, 101, 112,
           132, 98, 102, 149, 220, 119, 139, 150, 221, 120, 140, 151, 222, 
          121, 141}, Overscript[$CellContext`\[Omega]g1, 
           Blank[]] = {167, 166, 164}, Overscript[$CellContext`\[Omega]g2, 
           Blank[]] = {64, 206, 38}, Overscript[{90, 91, 93, 193, 51, 219}, 
           Blank[]] = {167, 166, 164, 64, 206, 38}, 
         Overscript[$CellContext`\[Phi]\[CapitalPhi]1, 
           Blank[]] = {170, 171, 172}, 
         Overscript[$CellContext`\[Phi]\[CapitalPhi]2, 
           Blank[]] = {53, 50, 40}, 
         Overscript[{87, 92, 175, 86, 89, 174, 85, 88, 173, 204, 195, 218, 
           207, 205, 194, 217, 49, 73}, 
           Blank[]] = {170, 165, 82, 171, 168, 83, 172, 169, 84, 53, 62, 39, 
          50, 52, 63, 40, 208, 184}, Overscript[
           Subscript[$CellContext`Ex, 1], 
           Blank[]] = 2, Overscript[$CellContext`ex1, 
           Blank[]] = 2, Overscript[
           Subscript[$CellContext`Ex, 2], 
           Blank[]] = 6, Overscript[$CellContext`ex2, 
           Blank[]] = 6, Overscript[{255, 254, 253, 252, 251, 250, 249, 248}, 
           Blank[]] = {2, 3, 4, 5, 6, 7, 8, 9}, $CellContext`l1 = {183, 244, 
          94}, $CellContext`l2 = {72, 148, 10}, $CellContext`q1 = {66, 243, 
          225}, $CellContext`q2 = {177, 147, 108}, $CellContext`\[Omega]g1 = {
          90, 91, 93}, $CellContext`\[Omega]g2 = {193, 51, 
          219}, $CellContext`\[Phi]\[CapitalPhi]1 = {87, 86, 
          85}, $CellContext`\[Phi]\[CapitalPhi]2 = {204, 207, 
          217}, $CellContext`ex1 = 2, $CellContext`ex2 = 
         6, $CellContext`e8bit = {71, 128, 132, 136, 140, 192, 196, 200, 204, 
          67, 79, 15, 130, 146, 162, 178, 75, 11, 134, 150, 166, 182, 7, 138, 
          154, 170, 186, 142, 158, 174, 190, 147, 163, 179, 119, 103, 87, 252,
           216, 240, 201, 93, 109, 125, 185, 169, 153, 13, 116, 224, 108, 228,
           208, 137, 29, 45, 61, 249, 233, 217, 77, 212, 232, 220, 133, 17, 
          33, 49, 245, 229, 213, 65, 120, 129, 21, 37, 53, 241, 225, 209, 69, 
          152, 168, 184, 48, 32, 16, 52, 36, 28, 44, 20, 60, 3, 202, 218, 234,
           250, 206, 222, 238, 254, 151, 167, 183, 115, 99, 83, 194, 210, 226,
           242, 155, 171, 187, 127, 111, 95, 219, 235, 251, 63, 47, 31, 118, 
          102, 86, 70, 198, 214, 230, 246, 159, 175, 191, 123, 107, 91, 223, 
          239, 255, 59, 43, 27, 114, 98, 82, 66, 211, 227, 243, 55, 39, 23, 
          126, 110, 94, 78, 122, 106, 90, 74, 131, 188, 148, 172, 156, 164, 
          180, 144, 160, 176, 56, 40, 24, 197, 81, 97, 113, 181, 165, 149, 1, 
          248, 193, 85, 101, 117, 177, 161, 145, 5, 92, 104, 84, 205, 89, 105,
           121, 189, 173, 157, 9, 80, 100, 236, 96, 244, 141, 25, 41, 57, 253,
           237, 221, 73, 112, 88, 124, 215, 231, 247, 51, 35, 19, 62, 46, 30, 
          14, 58, 42, 26, 10, 135, 54, 38, 22, 6, 139, 203, 50, 34, 18, 2, 
          143, 207, 195, 76, 72, 68, 64, 12, 8, 4, 0, 199}, $CellContext`pBit[
           Pattern[$CellContext`p, 
            Blank[]]] := Part[$CellContext`e8b, 
           Min[$CellContext`p, 256], $CellContext`sets + 
           2], $CellContext`e8b = {{1, 71, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Tau]"], 
                Subscript["w", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "l"}, {$CellContext`tri, 3/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {2, 128, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "1"], "\" \"", 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "+"]]], {"y", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {3, 132, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "1"], "\" \"", 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "+"]]], {"y", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {4, 136, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "1"], "\" \"", 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "+"]]], {"y", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {5, 140, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "1"], "\" \"", 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "+"]]], {"y", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {6, 192, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "2"], "\" \"", 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {7, 196, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "2"], "\" \"", 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {8, 200, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "2"], "\" \"", 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {9, 204, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "2"], "\" \"", 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {10, 67, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Tau]"], 
                Subscript["w", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "d"}, {$CellContext`tri, 3/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {11, 79, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Tau]"], 
                Subscript["w", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`tri, 3/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {12, 15, 
            HoldForm[HoldForm[
               Underoverscript["\[Tau]", 
                Subscript["y", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "-"]]], {
            "y", "m"}, {$CellContext`tri, 3/2}, 1, 
            Row[{
              NumberForm[1776.99, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[
              2.9060100000000007`*^-13, 10, NumberPadding -> {" ", "0"}], 
              " s"}]}, {13, 130, 
            HoldForm[HoldForm[
               Underoverscript["\[Mu]", 
                Subscript["y", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "+"]]], {
            "y", "d"}, {$CellContext`utr, 1}, 1, 
            Row[{
              NumberForm[105.658369, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{
              NumberForm[2.197040000001*^-6, 10, NumberPadding -> {" ", "0"}],
               " s"}]}, {14, 146, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["o", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "d"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {15, 162, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["c", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "d"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {16, 178, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["m", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "d"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {17, 75, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Tau]"], 
                Subscript["w", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`tri, 3/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {18, 11, 
            HoldForm[HoldForm[
               Underoverscript["\[Tau]", 
                Subscript["y", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "-"]]], {
            "y", "m"}, {$CellContext`tri, 3/2}, 1, 
            Row[{
              NumberForm[1776.99, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[
              2.9060100000000007`*^-13, 10, NumberPadding -> {" ", "0"}], 
              " s"}]}, {19, 134, 
            HoldForm[HoldForm[
               Underoverscript["\[Mu]", 
                Subscript["y", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "+"]]], {
            "y", "l"}, {$CellContext`utr, 1}, 1, 
            Row[{
              NumberForm[105.658369, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{
              NumberForm[2.197040000001*^-6, 10, NumberPadding -> {" ", "0"}],
               " s"}]}, {20, 150, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["o", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "l"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {21, 166, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["c", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "l"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {22, 182, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["m", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "l"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {23, 7, 
            HoldForm[HoldForm[
               Underoverscript["\[Tau]", 
                Subscript["y", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "-"]]], {
            "y", "l"}, {$CellContext`tri, 3/2}, 1, 
            Row[{
              NumberForm[1776.99, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[
              2.9060100000000007`*^-13, 10, NumberPadding -> {" ", "0"}], 
              " s"}]}, {24, 138, 
            HoldForm[HoldForm[
               Underoverscript["\[Mu]", 
                Subscript["y", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "+"]]], {
            "y", "m"}, {$CellContext`utr, 1}, 1, 
            Row[{
              NumberForm[105.658369, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{
              NumberForm[2.197040000001*^-6, 10, NumberPadding -> {" ", "0"}],
               " s"}]}, {25, 154, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["o", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {26, 170, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["c", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {27, 186, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["m", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {28, 142, 
            HoldForm[HoldForm[
               Underoverscript["\[Mu]", 
                Subscript["y", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "+"]]], {
            "y", "m"}, {$CellContext`utr, 1}, 1, 
            Row[{
              NumberForm[105.658369, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{
              NumberForm[2.197040000001*^-6, 10, NumberPadding -> {" ", "0"}],
               " s"}]}, {29, 158, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["o", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {30, 174, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["c", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {31, 190, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["m", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {32, 147, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["o", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "d"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {33, 163, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["c", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "d"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {34, 179, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["m", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "d"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {35, 119, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["b", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "l"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {36, 103, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["g", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "l"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {37, 87, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["r", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "l"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {38, 252, 
            HoldForm[HoldForm[
               Underoverscript["W", 
                Subscript["b", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "b", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[80403., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " s"}]}, {
           39, 216, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "S"], "\[CapitalPhi]"}], 
                Subscript["r", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "r", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {40, 240, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "S"], "\[CapitalPhi]"}], 
                Subscript["b", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "b", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {41, 201, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "e"], 
                Subscript["w", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`utr, 1/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {42, 93, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["r", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {43, 109, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["g", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {44, 125, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["b", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {45, 185, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["m", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {46, 169, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["c", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {47, 153, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["o", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {48, 13, 
            HoldForm[HoldForm[
               Underoverscript["e", 
                Subscript["y", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "-"]]], {
            "y", "m"}, {$CellContext`tri, 1/2}, 1, 
            Row[{
              NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{"?", " s"}]}, {49, 116, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "T"], "\[CapitalPhi]"}], 
                Subscript["b", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "b", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {50, 224, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "T"], "\[CapitalPhi]"}], 
                Subscript["g", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "g", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {51, 108, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Omega]", "R"], 
                Subscript["g", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "g", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {52, 228, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "T"], "\[CapitalPhi]"}], 
                Subscript["g", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "g", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {53, 208, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "S"], "\[CapitalPhi]"}], 
                Subscript["r", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "r", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {54, 137, 
            HoldForm[HoldForm[
               Underoverscript["e", 
                Subscript["y", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "+"]]], {
            "y", "m"}, {$CellContext`utr, 1/2}, 1, 
            Row[{
              NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{"?", " s"}]}, {55, 29, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["o", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {56, 45, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["c", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {57, 61, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["m", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {58, 249, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["b", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {59, 233, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["g", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {60, 217, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["r", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {61, 77, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "e"], 
                Subscript["w", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`tri, 1/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {62, 212, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "S"], "\[CapitalPhi]"}], 
                Subscript["r", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "r", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {63, 232, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "T"], "\[CapitalPhi]"}], 
                Subscript["g", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "g", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {64, 220, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Omega]", "L"], 
                Subscript["r", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "r", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {65, 133, 
            HoldForm[HoldForm[
               Underoverscript["e", 
                Subscript["y", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "+"]]], {
            "y", "l"}, {$CellContext`utr, 1/2}, 1, 
            Row[{
              NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{"?", " s"}]}, {66, 17, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["o", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "d"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {67, 33, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["c", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "d"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {68, 49, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["m", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "d"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {69, 245, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["b", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "l"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {70, 229, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["g", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "l"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {71, 213, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["r", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "l"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {72, 65, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "e"], 
                Subscript["w", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "d"}, {$CellContext`tri, 1/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {73, 120, 
            HoldForm[HoldForm[
               Underoverscript["B", 
                Subscript["b", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "b", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[91187.6, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " s"}]}, {
           74, 129, 
            HoldForm[HoldForm[
               Underoverscript["e", 
                Subscript["y", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "+"]]], {
            "y", "d"}, {$CellContext`utr, 1/2}, 1, 
            Row[{
              NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{"?", " s"}]}, {75, 21, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["o", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "l"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {76, 37, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["c", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "l"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {77, 53, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["m", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "l"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {78, 241, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["b", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "d"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {79, 225, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["g", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "d"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {80, 209, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["r", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "d"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {81, 69, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "e"], 
                Subscript["w", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "l"}, {$CellContext`tri, 1/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {82, 152, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "1"], "\[CapitalPhi]"}], 
                Subscript["o", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "+"]]], {"o", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {83, 168, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "2"], "\[CapitalPhi]"}], 
                Subscript["c", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "+"]]], {"c", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {84, 184, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "3"], "\[CapitalPhi]"}], 
                Subscript["m", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "+"]]], {"m", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {85, 48, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "3"], "\[CapitalPhi]"}], 
                Subscript["m", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "-"]]], {"m", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {86, 32, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "2"], "\[CapitalPhi]"}], 
                Subscript["c", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "-"]]], {"c", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {87, 16, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "1"], "\[CapitalPhi]"}], 
                Subscript["o", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "-"]]], {"o", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {88, 52, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "3"], "\[CapitalPhi]"}], 
                Subscript["m", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "-"]]], {"m", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {89, 36, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "2"], "\[CapitalPhi]"}], 
                Subscript["c", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "-"]]], {"c", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {90, 28, 
            HoldForm[HoldForm[
               Underoverscript[
                Superscript["g", 
                 Row[{"g", 
                   Overscript["b", "_"]}]], 
                Subscript["o", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "-"]]], {"o", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {91, 44, 
            HoldForm[HoldForm[
               Underoverscript[
                Superscript["g", 
                 Row[{"r", 
                   Overscript["b", "_"]}]], 
                Subscript["c", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "-"]]], {"c", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {92, 20, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "1"], "\[CapitalPhi]"}], 
                Subscript["o", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "-"]]], {"o", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {93, 60, 
            HoldForm[HoldForm[
               Underoverscript[
                Superscript["g", 
                 Row[{"r", 
                   Overscript["g", "_"]}]], 
                Subscript["m", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "-"]]], {"m", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {94, 3, 
            HoldForm[HoldForm[
               Underoverscript["\[Tau]", 
                Subscript["y", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "-"]]], {
            "y", "d"}, {$CellContext`tri, 3/2}, 1, 
            Row[{
              NumberForm[1776.99, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[
              2.9060100000000007`*^-13, 10, NumberPadding -> {" ", "0"}], 
              " s"}]}, {95, 202, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Mu]"], 
                Subscript["w", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`utr, 1}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {96, 218, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["r", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {97, 234, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["g", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {98, 250, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["b", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {99, 206, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Mu]"], 
                Subscript["w", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`utr, 1}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {100, 222, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["r", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {101, 238, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["g", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {102, 254, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["b", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "m"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {103, 151, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["o", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "l"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {104, 167, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["c", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "l"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {105, 183, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["m", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "l"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {106, 115, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["b", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "d"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {107, 99, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["g", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "d"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {108, 83, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["r", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "d"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {109, 194, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Mu]"], 
                Subscript["w", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "d"}, {$CellContext`utr, 1}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {110, 210, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["r", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "d"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {111, 226, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["g", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "d"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {112, 242, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["b", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "d"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {113, 155, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["o", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {114, 171, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["c", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {115, 187, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["m", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {116, 127, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["b", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {117, 111, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["g", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {118, 95, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["r", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {119, 219, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["r", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {120, 235, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["g", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {121, 251, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["b", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {122, 63, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["m", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {123, 47, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["c", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {124, 31, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["o", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {125, 118, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["b", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "l"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {126, 102, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["g", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "l"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {127, 86, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["r", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "l"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {128, 70, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Mu]"], 
                Subscript["w", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "l"}, {$CellContext`tri, 1}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {129, 198, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Mu]"], 
                Subscript["w", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "l"}, {$CellContext`utr, 1}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {130, 214, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["r", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "l"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {131, 230, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["g", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "l"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {132, 246, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["b", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "l"}, {$CellContext`dia, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {133, 159, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["o", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {134, 175, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["c", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {135, 191, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["m", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {136, 123, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["b", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {137, 107, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["g", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {138, 91, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["r", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {139, 223, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["r", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {140, 239, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["g", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {141, 255, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["b", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "m"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {142, 59, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["m", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {143, 43, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["c", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {144, 27, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["o", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "m"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {145, 114, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["b", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "d"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {146, 98, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["g", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "d"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {147, 82, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["r", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "d"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {148, 66, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Mu]"], 
                Subscript["w", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "d"}, {$CellContext`tri, 1}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {149, 211, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["r", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "d"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {150, 227, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["g", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "d"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {151, 243, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["b", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "d"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {152, 55, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["m", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "l"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {153, 39, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["c", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "l"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {154, 23, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["o", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "l"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {155, 126, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["b", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {156, 110, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["g", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {157, 94, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["r", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {158, 78, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Mu]"], 
                Subscript["w", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`tri, 1}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {159, 122, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["b", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {160, 106, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["g", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {161, 90, 
            HoldForm[HoldForm[
               Underoverscript["c", 
                Subscript["r", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[1250., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {162, 74, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Mu]"], 
                Subscript["w", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`tri, 1}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {163, 131, 
            HoldForm[HoldForm[
               Underoverscript["\[Tau]", 
                Subscript["y", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "+"]]], {
            "y", "d"}, {$CellContext`utr, 3/2}, 1, 
            Row[{
              NumberForm[1776.99, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[
              2.9060100000000007`*^-13, 10, NumberPadding -> {" ", "0"}], 
              " s"}]}, {164, 188, 
            HoldForm[HoldForm[
               Underoverscript[
                Superscript["g", 
                 Row[{"r", 
                   Overscript["g", "_"]}]], 
                Subscript["m", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "+"]]], {"m", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {165, 148, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "1"], "\[CapitalPhi]"}], 
                Subscript["o", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "+"]]], {"o", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {166, 172, 
            HoldForm[HoldForm[
               Underoverscript[
                Superscript["g", 
                 Row[{"r", 
                   Overscript["b", "_"]}]], 
                Subscript["c", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "+"]]], {"c", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {167, 156, 
            HoldForm[HoldForm[
               Underoverscript[
                Superscript["g", 
                 Row[{"g", 
                   Overscript["b", "_"]}]], 
                Subscript["o", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "+"]]], {"o", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {168, 164, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "2"], "\[CapitalPhi]"}], 
                Subscript["c", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "+"]]], {"c", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {169, 180, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "3"], "\[CapitalPhi]"}], 
                Subscript["m", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "+"]]], {"m", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {170, 144, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "1"], "\[CapitalPhi]"}], 
                Subscript["o", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "+"]]], {"o", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {171, 160, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "2"], "\[CapitalPhi]"}], 
                Subscript["c", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "+"]]], {"c", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {172, 176, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "3"], "\[CapitalPhi]"}], 
                Subscript["m", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "+"]]], {"m", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {173, 56, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "3"], "\[CapitalPhi]"}], 
                Subscript["m", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "-"]]], {"m", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {174, 40, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "2"], "\[CapitalPhi]"}], 
                Subscript["c", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "-"]]], {"c", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {175, 24, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["x", "1"], "\[CapitalPhi]"}], 
                Subscript["o", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "-"]]], {"o", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {176, 197, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "e"], 
                Subscript["w", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "l"}, {$CellContext`utr, 1/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {177, 81, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["r", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "d"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {178, 97, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["g", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "d"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {179, 113, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["b", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "d"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {180, 181, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["m", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "l"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {181, 165, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["c", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "l"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {182, 149, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["o", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "l"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {183, 1, 
            HoldForm[HoldForm[
               Underoverscript["e", 
                Subscript["y", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "-"]]], {
            "y", "d"}, {$CellContext`tri, 1/2}, 1, 
            Row[{
              NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{"?", " s"}]}, {184, 248, 
            HoldForm[HoldForm[
               Underoverscript["B", 
                Subscript["b", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "b", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[91187.6, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " s"}]}, {
           185, 193, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "e"], 
                Subscript["w", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "d"}, {$CellContext`utr, 1/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {186, 85, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["r", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "l"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {187, 101, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["g", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "l"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {188, 117, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["b", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "l"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {189, 177, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["m", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "d"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {190, 161, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["c", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "d"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {191, 145, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["o", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "d"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {192, 5, 
            HoldForm[HoldForm[
               Underoverscript["e", 
                Subscript["y", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "-"]]], {
            "y", "l"}, {$CellContext`tri, 1/2}, 1, 
            Row[{
              NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{"?", " s"}]}, {193, 92, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Omega]", "L"], 
                Subscript["r", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "r", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {194, 104, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "T"], "\[CapitalPhi]"}], 
                Subscript["g", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "g", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {195, 84, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "S"], "\[CapitalPhi]"}], 
                Subscript["r", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "r", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {196, 205, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "e"], 
                Subscript["w", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`utr, 1/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {197, 89, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["r", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "r", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {198, 105, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["g", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "g", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {199, 121, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["b", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`2\/3\)"]]], {
            "b", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {200, 189, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["m", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "m", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {201, 173, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["c", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "c", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {202, 157, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["o", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], {
            "o", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {203, 9, 
            HoldForm[HoldForm[
               Underoverscript["e", 
                Subscript["y", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "-"]]], {
            "y", "m"}, {$CellContext`tri, 1/2}, 1, 
            Row[{
              NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{"?", " s"}]}, {204, 80, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "S"], "\[CapitalPhi]"}], 
                Subscript["r", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "r", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {205, 100, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "T"], "\[CapitalPhi]"}], 
                Subscript["g", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "g", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {206, 236, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Omega]", "R"], 
                Subscript["g", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "g", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {207, 96, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "T"], "\[CapitalPhi]"}], 
                Subscript["g", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "g", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {208, 244, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "T"], "\[CapitalPhi]"}], 
                Subscript["b", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "b", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {209, 141, 
            HoldForm[HoldForm[
               Underoverscript["e", 
                Subscript["y", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "+"]]], {
            "y", "m"}, {$CellContext`utr, 1/2}, 1, 
            Row[{
              NumberForm[0.51099892, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{"?", " s"}]}, {210, 25, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["o", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {211, 41, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["c", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {212, 57, 
            HoldForm[HoldForm[
               Underoverscript["d", 
                Subscript["m", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "m"}, {$CellContext`squ, 1/2}, 2, 
            Row[{
              NumberForm[5., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {213, 253, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["b", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {214, 237, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["g", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {215, 221, 
            HoldForm[HoldForm[
               Underoverscript["u", 
                Subscript["r", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "m"}, {$CellContext`dia, 1/2}, 2, 
            Row[{
              NumberForm[2.2, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {216, 73, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "e"], 
                Subscript["w", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`tri, 1/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {217, 112, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "S"], "\[CapitalPhi]"}], 
                Subscript["b", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "b", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {218, 88, 
            HoldForm[HoldForm[
               Underoverscript[
                Row[{
                  Subscript["e", "S"], "\[CapitalPhi]"}], 
                Subscript["r", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "r", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 4, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {219, 124, 
            HoldForm[HoldForm[
               Underoverscript["W", 
                Subscript["b", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "b", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 3, 
            Row[{
              NumberForm[80403., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " s"}]}, {
           220, 215, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["r", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "r", "l"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {221, 231, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["g", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "g", "l"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {222, 247, 
            HoldForm[HoldForm[
               Underoverscript["t", 
                Subscript["b", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], {
            "b", "l"}, {$CellContext`dia, 3/2}, 2, 
            Row[{
              NumberForm[174200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {223, 51, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["m", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "d"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {224, 35, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["c", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "d"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {225, 19, 
            HoldForm[HoldForm[
               Underoverscript["b", 
                Subscript["o", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "d"}, {$CellContext`squ, 3/2}, 2, 
            Row[{
              NumberForm[4200., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {226, 62, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["m", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {227, 46, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["c", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {228, 30, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["o", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {229, 14, 
            HoldForm[HoldForm[
               Underoverscript["\[Mu]", 
                Subscript["y", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "-"]]], {
            "y", "m"}, {$CellContext`tri, 1}, 1, 
            Row[{
              NumberForm[105.658369, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{
              NumberForm[2.197040000001*^-6, 10, NumberPadding -> {" ", "0"}],
               " s"}]}, {230, 58, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["m", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {231, 42, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["c", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {232, 26, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["o", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "m"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {233, 10, 
            HoldForm[HoldForm[
               Underoverscript["\[Mu]", 
                Subscript["y", "m"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "-"]]], {
            "y", "m"}, {$CellContext`tri, 1}, 1, 
            Row[{
              NumberForm[105.658369, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{
              NumberForm[2.197040000001*^-6, 10, NumberPadding -> {" ", "0"}],
               " s"}]}, {234, 135, 
            HoldForm[HoldForm[
               Underoverscript["\[Tau]", 
                Subscript["y", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "+"]]], {
            "y", "l"}, {$CellContext`utr, 3/2}, 1, 
            Row[{
              NumberForm[1776.99, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[
              2.9060100000000007`*^-13, 10, NumberPadding -> {" ", "0"}], 
              " s"}]}, {235, 54, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["m", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "l"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {236, 38, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["c", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "l"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {237, 22, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["o", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "l"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {238, 6, 
            HoldForm[HoldForm[
               Underoverscript["\[Mu]", 
                Subscript["y", "l"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "-"]]], {
            "y", "l"}, {$CellContext`tri, 1}, 1, 
            Row[{
              NumberForm[105.658369, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{
              NumberForm[2.197040000001*^-6, 10, NumberPadding -> {" ", "0"}],
               " s"}]}, {239, 139, 
            HoldForm[HoldForm[
               Underoverscript["\[Tau]", 
                Subscript["y", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "+"]]], {
            "y", "m"}, {$CellContext`utr, 3/2}, 1, 
            Row[{
              NumberForm[1776.99, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[
              2.9060100000000007`*^-13, 10, NumberPadding -> {" ", "0"}], 
              " s"}]}, {240, 203, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Tau]"], 
                Subscript["w", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`utr, 3/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {241, 50, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["m", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "m", "d"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {242, 34, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["c", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "c", "d"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {243, 18, 
            HoldForm[HoldForm[
               Underoverscript["s", 
                Subscript["o", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], 
                "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], {
            "o", "d"}, {$CellContext`squ, 1}, 2, 
            Row[{
              NumberForm[95., 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {244, 2, 
            HoldForm[HoldForm[
               Underoverscript["\[Mu]", 
                Subscript["y", "d"], ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "-"]]], {
            "y", "d"}, {$CellContext`tri, 1}, 1, 
            Row[{
              NumberForm[105.658369, 10, NumberPadding -> {" ", "0"}], 
              " MeV"}], 
            Row[{
              NumberForm[2.197040000001*^-6, 10, NumberPadding -> {" ", "0"}],
               " s"}]}, {245, 143, 
            HoldForm[HoldForm[
               Underoverscript["\[Tau]", 
                Subscript["y", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "+"]]], {
            "y", "m"}, {$CellContext`utr, 3/2}, 1, 
            Row[{
              NumberForm[1776.99, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{
              NumberForm[
              2.9060100000000007`*^-13, 10, NumberPadding -> {" ", "0"}], 
              " s"}]}, {246, 207, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Tau]"], 
                Subscript["w", "m"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, {$CellContext`utr, 3/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {247, 195, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Tau]"], 
                Subscript["w", "d"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "d"}, {$CellContext`utr, 3/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {248, 76, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "2"], "\" \"", ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {249, 72, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "2"], "\" \"", ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {250, 68, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "2"], "\" \"", ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {251, 64, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "2"], "\" \"", ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {252, 12, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "1"], "\" \"", ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Vee]"], "-"]]], {"y", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {253, 8, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "1"], "\" \"", ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Wedge]"], "-"]]], {"y", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {254, 4, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "1"], "\" \"", ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "-"]]], {"y", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {255, 0, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["Ex", "1"], "\" \"", ""]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["L", "\[Vee]"], "-"]]], {"y", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize$$]], 5, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}, {256, 199, 
            HoldForm[HoldForm[
               Underoverscript[
                Subscript["\[Nu]", "\[Tau]"], 
                Subscript["w", "l"], 
                Blank[]]] HoldForm[
               Subsuperscript[
                Invisible[$CellContext`\[VerticalLine]], 
                Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], {
            "w", "l"}, {$CellContext`utr, 3/2}, 1, 
            Row[{
              NumberForm[1.*^-18, 10, NumberPadding -> {" ", "0"}], " MeV"}], 
            Row[{"?", " s"}]}}, Attributes[Underoverscript] = {NHoldRest}, 
         Underoverscript[
           Superscript[$CellContext`g, 
            Row[{$CellContext`r, 
              Overscript[$CellContext`b, 
               Blank[]]}]], $CellContext`rb, 
           Blank[]] = 166, Underoverscript[
           Subscript[$CellContext`\[Omega], $CellContext`R], $CellContext`rb, 
           Blank[]] = 206, Underoverscript[
           Row[{
             
             Subscript[$CellContext`x, 
              2], $CellContext`\[CapitalPhi]}], $CellContext`rb, 
           Blank[]] = 171, Underoverscript[$CellContext`B, $CellContext`rb, 
           Blank[]] = 50, Pattern[$CellContext`colorGreenPattern, 
           Underoverscript[
            Pattern[$CellContext`prt, 
             Blank[]], $CellContext`rb, 
            
            Blank[]]] := $CellContext`position[$CellContext`e8bit, \
$CellContext`pBit[
             Underoverscript[$CellContext`prt, $CellContext`bg, 
              Blank[]]] + 2^Part[$CellContext`bOrd, 3]], Underoverscript[
           Superscript[$CellContext`g, 
            Row[{$CellContext`r, 
              Overscript[$CellContext`g, 
               Blank[]]}]], $CellContext`rg, 
           Blank[]] = 164, Underoverscript[$CellContext`W, $CellContext`rg, 
           Blank[]] = 38, Underoverscript[
           Row[{
             
             Subscript[$CellContext`x, 
              3], $CellContext`\[CapitalPhi]}], $CellContext`rg, 
           Blank[]] = 172, Underoverscript[$CellContext`B, $CellContext`rg, 
           Blank[]] = 40, Pattern[$CellContext`colorBluePattern, 
           Underoverscript[
            Pattern[$CellContext`prt, 
             Blank[]], $CellContext`rg, 
            
            Blank[]]] := $CellContext`position[$CellContext`e8bit, \
$CellContext`pBit[
             Underoverscript[$CellContext`prt, $CellContext`bg, 
              Blank[]]] + 2^(Part[$CellContext`bOrd, 3] + 1)], 
         Pattern[$CellContext`particlePattern, 
           Underoverscript[
            Pattern[$CellContext`prt, 
             Blank[]], 
            Subscript[
             Pattern[$CellContext`clr, 
              Blank[]], 
             Pattern[$CellContext`sp, 
              Blank[]]], 
            Pattern[$CellContext`anti, 
             Blank[]]]] := $CellContext`spConv[
           If[$CellContext`anti == "", False, 
            True], $CellContext`prt, $CellContext`clr, $CellContext`sp], 
         Underoverscript[$CellContext`e, $CellContext`y, 
           Blank[]] = 74, Underoverscript[$CellContext`\[Mu], $CellContext`y, 
           Blank[]] = 13, Underoverscript[$CellContext`\[Tau], $CellContext`y, 
           Blank[]] = 163, Underoverscript[
           Subscript[$CellContext`\[Nu], $CellContext`e], $CellContext`y, 
           Blank[]] = 185, Underoverscript[$CellContext`\[Nu], $CellContext`y, 
           Blank[]] = 185, Underoverscript[
           Subscript[$CellContext`\[Nu], $CellContext`\[Mu]], $CellContext`y, 
           Blank[]] = 109, Underoverscript[
           Subscript[$CellContext`\[Nu], $CellContext`\[Tau]], $CellContext`y, 
           Blank[]] = 247, Underoverscript[$CellContext`d, $CellContext`bg, 
           Blank[]] = 191, Underoverscript[$CellContext`s, $CellContext`bg, 
           Blank[]] = 14, Underoverscript[$CellContext`b, $CellContext`bg, 
           Blank[]] = 32, Underoverscript[$CellContext`u, $CellContext`bg, 
           Blank[]] = 80, Underoverscript[$CellContext`c, $CellContext`bg, 
           Blank[]] = 110, Underoverscript[$CellContext`t, $CellContext`bg, 
           Blank[]] = 149, Underoverscript[
           Superscript[$CellContext`g, 
            Row[{$CellContext`g, 
              Overscript[$CellContext`b, 
               Blank[]]}]], $CellContext`bg, 
           Blank[]] = 167, Underoverscript[$CellContext`g, $CellContext`bg, 
           Blank[]] = 167, Underoverscript[
           Superscript[$CellContext`g, 
            Row[{$CellContext`r, 
              Overscript[$CellContext`b, 
               Blank[]]}]], $CellContext`bg, 
           Blank[]] = 166, Underoverscript[
           Superscript[$CellContext`g, 
            Row[{$CellContext`r, 
              Overscript[$CellContext`g, 
               Blank[]]}]], $CellContext`bg, 
           Blank[]] = 164, Underoverscript[
           Subscript[$CellContext`\[Omega], $CellContext`L], $CellContext`bg, 
           Blank[]] = 64, 
         Underoverscript[$CellContext`\[Omega], $CellContext`bg, 
           Blank[]] = 64, Underoverscript[
           Subscript[$CellContext`\[Omega], $CellContext`R], $CellContext`bg, 
           Blank[]] = 206, Underoverscript[$CellContext`W, $CellContext`bg, 
           Blank[]] = 38, Underoverscript[
           Row[{
             
             Subscript[$CellContext`x, 
              1], $CellContext`\[CapitalPhi]}], $CellContext`bg, 
           Blank[]] = 170, 
         Underoverscript[$CellContext`\[CapitalPhi], $CellContext`bg, 
           Blank[]] = 170, Underoverscript[
           Row[{
             
             Subscript[$CellContext`x, 
              2], $CellContext`\[CapitalPhi]}], $CellContext`bg, 
           Blank[]] = 171, Underoverscript[
           Row[{
             
             Subscript[$CellContext`x, 
              3], $CellContext`\[CapitalPhi]}], $CellContext`bg, 
           Blank[]] = 172, Underoverscript[
           Row[{
             
             Subscript[$CellContext`e, $CellContext`T], \
$CellContext`\[Phi]}], $CellContext`bg, 
           Blank[]] = 53, Underoverscript[
           Row[{
             
             Subscript[$CellContext`e, $CellContext`S], \
$CellContext`\[Phi]}], $CellContext`bg, 
           Blank[]] = 53, 
         Underoverscript[$CellContext`\[Phi], $CellContext`bg, 
           Blank[]] = 53, Underoverscript[$CellContext`B, $CellContext`bg, 
           Blank[]] = 53, Underoverscript[
           Subscript[$CellContext`Ex, 1], $CellContext`rgb, 
           Blank[]] = 2, Underoverscript[
           Subscript[$CellContext`Ex, 2], $CellContext`rgb, 
           Blank[]] = 6, 
         Attributes[Superscript] = {
          NHoldRest, ReadProtected}, $CellContext`bOrd = {7, 6, 4, 2, 
          0}, $CellContext`c = 1, 
         Attributes[Subsuperscript] = {
          NHoldRest, ReadProtected}, $CellContext`tri[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`plDims, 
            
            Blank[]]] := $CellContext`polyTri[$CellContext`coords, \
$CellContext`scale, Subtract, 
           "Tetrahedron", $CellContext`plDims], $CellContext`polyTri[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`pm, 
            Blank[]], 
           Pattern[$CellContext`shape, 
            Blank[]], 
           Pattern[$CellContext`plDims, 
            Blank[]]] := If[$CellContext`plDims == 3, 
           Translate[
            Scale[{
              PolyhedronData[$CellContext`shape, "Faces"]}, {1, 1, 
              1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], 
           Polygon[{{Part[$CellContext`coords, 1] - $CellContext`scale, 
              $CellContext`pm[
               Part[$CellContext`coords, 2], $CellContext`scale/Sqrt[3]]}, {
             Part[$CellContext`coords, 1] + $CellContext`scale, 
              $CellContext`pm[
               Part[$CellContext`coords, 2], $CellContext`scale/Sqrt[3]]}, {
              Part[$CellContext`coords, 1], 
              $CellContext`pm[
               
               Part[$CellContext`coords, 2], (-2) ($CellContext`scale/Sqrt[
                3])]}}]], $CellContext`pm[
           Pattern[$CellContext`n, 
            Blank[]]] := Flatten[
           Outer[List, 
            Apply[Sequence, 
             Table[{-1, 1}, {$CellContext`n}]]], $CellContext`n - 
           1], $CellContext`inv[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`plDims, 
            Blank[]]] := If[$CellContext`plDims == 3, 
           Translate[
            Scale[{
              PolyhedronData["Dodecahedron", "Faces"]}, {1, 1, 
              1} ($CellContext`scale/2), {0, 0, 0}], $CellContext`coords], 
           $CellContext`poly2D[
           5, $CellContext`coords, $CellContext`scale]], $CellContext`poly2D[
           Pattern[$CellContext`sides, 
            Blank[]], 
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]]] := Polygon[
           
           Table[{Part[$CellContext`coords, 1] + $CellContext`scale 
              Cos[2 Pi ($CellContext`i/$CellContext`sides)], 
             Part[$CellContext`coords, 2] + $CellContext`scale 
              Sin[2 Pi ($CellContext`i/$CellContext`sides)]}, \
{$CellContext`i, (-1)/2, $CellContext`sides - 1/2}]], $CellContext`utr[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`plDims, 
            
            Blank[]]] := $CellContext`polyTri[$CellContext`coords, \
$CellContext`scale, Plus, 
           "Icosahedron", $CellContext`plDims], $CellContext`dia[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`plDims, 
            Blank[]]] := If[$CellContext`plDims == 3, 
           Translate[
            Scale[{
              PolyhedronData["Octahedron", "Faces"]}, {1, 1, 
              1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], 
           Polygon[{{Part[$CellContext`coords, 1] - $CellContext`scale, 
              Part[$CellContext`coords, 2]}, {
              Part[$CellContext`coords, 1], 
              Part[$CellContext`coords, 2] + $CellContext`scale Sqrt[2]}, {
             Part[$CellContext`coords, 1] + $CellContext`scale, 
              Part[$CellContext`coords, 2]}, {
              Part[$CellContext`coords, 1], 
              Part[$CellContext`coords, 2] - $CellContext`scale 
              Sqrt[3]}}]], $CellContext`squ[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`plDims, 
            Blank[]]] := If[$CellContext`plDims == 3, 
           Translate[
            Scale[{
              PolyhedronData["Cube", "Faces"]}, {1, 1, 
              1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], 
           $CellContext`poly2D[
           4, $CellContext`coords, $CellContext`scale]], $CellContext`cir[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`plDims, 
            Blank[]]] := If[$CellContext`plDims == 3, 
           Sphere[$CellContext`coords, $CellContext`scale], 
           Disk[
            Part[$CellContext`coords, 
             Span[1, 2]], $CellContext`scale]], $CellContext`sets = 0, 
         Attributes[Underscript] = {NHoldRest}, 
         Pattern[$CellContext`flavorPattern, 
           Underscript[
            Pattern[$CellContext`prt, 
             Blank[]], $CellContext`fl]] := Flatten[{
            Overscript[$CellContext`prt, 
             Blank[]], $CellContext`prt}], 
         Pattern[$CellContext`antiWhitePattern, 
           Underscript[
            Pattern[$CellContext`prt, 
             Blank[]], $CellContext`w]] := $CellContext`pAnti[
           Underoverscript[$CellContext`prt, $CellContext`y, 
            Blank[]]], Pattern[$CellContext`antiRedPattern, 
           Underscript[
            Pattern[$CellContext`prt, 
             Blank[]], $CellContext`r]] := $CellContext`pAnti[
           Underoverscript[$CellContext`prt, $CellContext`bg, 
            Blank[]]], Pattern[$CellContext`antiGreenPattern, 
           Underscript[
            Pattern[$CellContext`prt, 
             Blank[]], $CellContext`g]] := $CellContext`pAnti[
           Underoverscript[$CellContext`prt, $CellContext`rb, 
            Blank[]]], Pattern[$CellContext`antiBluePattern, 
           Underscript[
            Pattern[$CellContext`prt, 
             Blank[]], $CellContext`b]] := $CellContext`pAnti[
           Underoverscript[$CellContext`prt, $CellContext`rg, 
            Blank[]]], Pattern[$CellContext`antiExPattern, 
           Underscript[
            Pattern[$CellContext`prt, 
             Blank[]], "\" \""]] := $CellContext`pAnti[
           Underoverscript[$CellContext`prt, $CellContext`rgb, 
            Blank[]]], $CellContext`pAnti[
           Pattern[$CellContext`p, 
            Blank[]]] := $CellContext`position[$CellContext`e8Orig, -
           Part[$CellContext`e8Orig, 
             
             Min[$CellContext`p, 
              256]]], $CellContext`flavorList = {{{$CellContext`e, \
$CellContext`\[Mu], $CellContext`\[Tau]}, {
             Subscript[$CellContext`\[Nu], $CellContext`e], 
             Subscript[$CellContext`\[Nu], $CellContext`\[Mu]], 
             
             Subscript[$CellContext`\[Nu], $CellContext`\[Tau]]}}, \
{{$CellContext`d, $CellContext`s, $CellContext`b}, {$CellContext`u, \
$CellContext`c, $CellContext`t}}, {{
             Superscript[$CellContext`g, 
              Row[{$CellContext`g, 
                Overscript[$CellContext`b, 
                 Blank[]]}]], 
             Superscript[$CellContext`g, 
              Row[{$CellContext`r, 
                Overscript[$CellContext`b, 
                 Blank[]]}]], 
             Superscript[$CellContext`g, 
              Row[{$CellContext`r, 
                Overscript[$CellContext`g, 
                 Blank[]]}]]}, {
             Subscript[$CellContext`\[Omega], $CellContext`L], 
             
             Subscript[$CellContext`\[Omega], $CellContext`R], \
$CellContext`W}}, {{
             Row[{
               Subscript[$CellContext`x, 1], $CellContext`\[CapitalPhi]}], 
             Row[{
               Subscript[$CellContext`x, 2], $CellContext`\[CapitalPhi]}], 
             Row[{
               Subscript[$CellContext`x, 3], $CellContext`\[CapitalPhi]}]}, {
             Row[{
               
               Subscript[$CellContext`e, $CellContext`S], \
$CellContext`\[Phi]}], 
             Row[{
               
               Subscript[$CellContext`e, $CellContext`T], \
$CellContext`\[Phi]}], $CellContext`B}}, {{
             Subscript[$CellContext`Ex, 1]}, {
             
             Subscript[$CellContext`Ex, 
              2]}}}, $CellContext`flavorListStr = {{{"e", "\[Mu]", "\[Tau]"}, {
             Subscript["\[Nu]", "e"], 
             Subscript["\[Nu]", "\[Mu]"], 
             Subscript["\[Nu]", "\[Tau]"]}}, {{"d", "s", "b"}, {
            "u", "c", "t"}}, {{
             Superscript["g", 
              Row[{"g", 
                Overscript["b", "_"]}]], 
             Superscript["g", 
              Row[{"r", 
                Overscript["b", "_"]}]], 
             Superscript["g", 
              Row[{"r", 
                Overscript["g", "_"]}]]}, {
             Subscript["\[Omega]", "L"], 
             Subscript["\[Omega]", "R"], "W"}}, {{
             Row[{
               Subscript["x", "1"], "\[CapitalPhi]"}], 
             Row[{
               Subscript["x", "2"], "\[CapitalPhi]"}], 
             Row[{
               Subscript["x", "3"], "\[CapitalPhi]"}]}, {
             Row[{
               Subscript["e", "S"], "\[CapitalPhi]"}], 
             Row[{
               Subscript["e", "T"], "\[CapitalPhi]"}], "B"}}, {{
             Subscript["Ex", "1"]}, {
             Subscript["Ex", "2"]}}}, $CellContext`qConvDoNoAnti = {
          "BottomQuark" -> "b", "BottomQuarkBar" -> "b", "CharmQuark" -> "c", 
           "CharmQuarkBar" -> "c", "DownQuark" -> "d", "DownQuarkBar" -> "d", 
           "StrangeQuark" -> "s", "StrangeQuarkBar" -> "s", "TopQuark" -> "t",
            "TopQuarkBar" -> "t", "UpQuark" -> "u", "UpQuarkBar" -> 
           "u"}, $CellContext`colorListExp = {$CellContext`y, $CellContext`o, \
$CellContext`c, $CellContext`m, $CellContext`w, $CellContext`r, \
$CellContext`g, $CellContext`b, $CellContext`e, $CellContext`k}, \
$CellContext`colorList = {
          "y", "o", "c", "m", "w", "r", "g", "b", "e", 
           "k"}, $CellContext`spList = {
           Overscript["L", "\[Vee]"], 
           Overscript["R", "\[Wedge]"], 
           Overscript["L", "\[Wedge]"], 
           Overscript["R", "\[Vee]"]}, $CellContext`fanoMult[
           Pattern[$CellContext`perm, 
            Blank[]], 
           Pattern[$CellContext`triads, 
            Blank[]], 
           Pattern[$CellContext`sign, 
            Blank[]]] := ($CellContext`fMult = 
           Array[8& , {8, 8}]; $CellContext`fSign = 1 - 2 IdentityMatrix[8]; 
          Map[(Part[$CellContext`fMult, 8, #] = (
              Part[$CellContext`fMult, #, 8] = #); 
            Part[$CellContext`fSign, 8, #] = (Part[$CellContext`fSign, #, 8] = 
              1))& , 
            Range[8]]; 
          Do[$CellContext`sgn = 
             If[BitAnd[$CellContext`sign, 2^($CellContext`i - 1)] != 0, 
               1, -1]; Part[$CellContext`fMult, 
               Part[$CellContext`perm, 
                
                Part[$CellContext`triads, $CellContext`i, 1 + 
                 Mod[$CellContext`j - 1, 3]]], 
               Part[$CellContext`perm, 
                
                Part[$CellContext`triads, $CellContext`i, 1 + 
                 Mod[$CellContext`j + 0, 3]]]] = Part[$CellContext`perm, 
               
               Part[$CellContext`triads, $CellContext`i, 1 + 
                Mod[$CellContext`j + 1, 3]]]; Part[$CellContext`fSign, 
               Part[$CellContext`perm, 
                
                Part[$CellContext`triads, $CellContext`i, 1 + 
                 Mod[$CellContext`j - 1, 3]]], 
               Part[$CellContext`perm, 
                
                Part[$CellContext`triads, $CellContext`i, 1 + 
                 Mod[$CellContext`j + 0, 3]]]] = $CellContext`sgn; 
            Part[$CellContext`fMult, 
               Part[$CellContext`perm, 
                
                Part[$CellContext`triads, $CellContext`i, 1 + 
                 Mod[$CellContext`j + 0, 3]]], 
               Part[$CellContext`perm, 
                
                Part[$CellContext`triads, $CellContext`i, 1 + 
                 Mod[$CellContext`j - 1, 3]]]] = Part[$CellContext`perm, 
               
               Part[$CellContext`triads, $CellContext`i, 1 + 
                Mod[$CellContext`j + 1, 3]]]; Part[$CellContext`fSign, 
               Part[$CellContext`perm, 
                
                Part[$CellContext`triads, $CellContext`i, 1 + 
                 Mod[$CellContext`j + 0, 3]]], 
               Part[$CellContext`perm, 
                
                Part[$CellContext`triads, $CellContext`i, 1 + 
                 Mod[$CellContext`j - 1, 
                   3]]]] = -$CellContext`sgn, {$CellContext`i, 
             7}, {$CellContext`j, 
             3}]; {$CellContext`fMult, $CellContext`fSign}), $CellContext`j = 
         4, $CellContext`getTriads[
           Pattern[$CellContext`invMask, 
            Blank[]], 
           Pattern[$CellContext`altMask, 
            Blank[]], 
           Pattern[$CellContext`fPi, 
            Blank[]], 
           Pattern[$CellContext`sm, 
            Blank[]]] := 
         Module[{$CellContext`c, $CellContext`d, $CellContext`e, \
$CellContext`triads, $CellContext`flatFanoStyled, $CellContext`flatFano, \
$CellContext`firstFlipSign}, $CellContext`flatFanoStyled = \
($CellContext`flatFano = Join[
               Drop[
                Drop[
                 Take[
                  
                  Flatten[$CellContext`triads = 
                   Map[($CellContext`c = 
                    Part[$CellContext`fano30Triads, $CellContext`fPi, #]; 
                    If[Part[
                    $CellContext`binMask[$CellContext`invMask, \
$CellContext`altMask, $CellContext`fPi, $CellContext`sm], #] == 1, 
                    Part[$CellContext`c, 
                    Span[2, All]] = RotateRight[
                    Rest[$CellContext`c]]]; $CellContext`c)& , 
                    Range[7]]], 9], {7}], {4}], {8}]); Map[If[
              Or[
               And[
                MemberQ[
                 Part[#, 
                  
                  If[$CellContext`fPi == $CellContext`flipSwitch, 3, 
                   2]], $CellContext`fPi], $CellContext`invMask == \
$CellContext`altMask], 
               And[
                MemberQ[
                 Part[#, 
                  
                  If[$CellContext`fPi == $CellContext`flipSwitch, 2, 
                   3]], $CellContext`fPi], $CellContext`invMask != \
$CellContext`altMask]], $CellContext`d = \
$CellContext`position[$CellContext`flatFano, 
                 
                 Part[#, 1, 
                  1]]; $CellContext`e = \
$CellContext`position[$CellContext`flatFano, 
                 Part[#, 1, 2]]; 
              Part[$CellContext`flatFanoStyled, $CellContext`d] = Style[
                 Part[#, 1, 2], 
                 $CellContext`pairClr[$CellContext`fPi], Bold]; 
              Part[$CellContext`flatFanoStyled, $CellContext`e] = Style[
                 Part[#, 1, 1], 
                 $CellContext`pairClr[$CellContext`fPi], Bold]; 
              Part[$CellContext`flatFano, $CellContext`d] = Part[#, 1, 2]; 
              Part[$CellContext`flatFano, $CellContext`e] = 
               Part[#, 1, 
                 1]]& , $CellContext`flipFano]; $CellContext`firstFlipSign = 
            If[First[$CellContext`triads] == Part[$CellContext`flatFano, 
                Span[1, 3]], -1, 
              1]; {$CellContext`triads, $CellContext`flatFanoStyled, \
$CellContext`flatFano, $CellContext`firstFlipSign}], \
$CellContext`fano30Triads = CompressedData["
1:eJxNkNuNAzEMA9eWSHUR4Fq6EtJA+v+Lno4/DCyIEWelv/fn/y3P87z8mb/4
XluWYtG2csNETcArtA2KUmAZcsFDbN5khUVCWKQtcMgzXmGJitQlKZK2a3Se
sO2KIlMkbR+ywrZrd6aoyTNeYduTxBJte6xTnSeMm/iOOY4Q+Y6i0fkjK0xS
ge40v8mQZ7zCFDXJENVGHrI6Txh3jvEm0XbcJMYOX3M6XYQmf+MVpqhJS1Fe
yX8+Ou+QaTdtEr0RbhKzkdttOjl2XuMcO4v8Aq8pC6o=
          "], $CellContext`binMask[
           Pattern[$CellContext`invMask, 
            Blank[]], 
           Pattern[$CellContext`altMask, 
            Blank[]], 
           Pattern[$CellContext`fPi, 
            Blank[]], 
           Pattern[$CellContext`sm, 
            Blank[]]] := Reverse[
           IntegerDigits[
            FromDigits[
             $CellContext`hexMask[$CellContext`invMask, $CellContext`altMask, \
$CellContext`fPi, $CellContext`sm], 16], 2, 7]], $CellContext`hexMask[
           Pattern[$CellContext`invMask, 
            Blank[]], 
           Pattern[$CellContext`altMask, 
            Blank[]], 
           Pattern[$CellContext`fPi, 
            Blank[]], 
           Pattern[$CellContext`sm, 
            Blank[]]] := Part[
           
           If[$CellContext`invMask, $CellContext`fanoInv, \
$CellContext`fano240], $CellContext`fPi, 
           Part[
            $CellContext`smCnv[$CellContext`altMask], $CellContext`sm]], \
$CellContext`fanoInv = {{"77", "70", "6E", "69", "5D", "5A", "44", "43"}, {
           "74", "73", "6D", "6A", "5E", "59", "47", "40"}, {
           "7C", "7B", "65", "62", "56", "51", "4F", "48"}, {
           "7D", "7A", "64", "63", "57", "50", "4E", "49"}, {
           "75", "72", "6C", "6B", "5F", "58", "46", "41"}, {
           "76", "71", "6F", "68", "5C", "5B", "45", "42"}, {
           "7D", "7A", "64", "63", "57", "50", "4E", "49"}, {
           "7E", "79", "67", "60", "54", "53", "4D", "4A"}, {
           "76", "71", "6F", "68", "5C", "5B", "45", "42"}, {
           "77", "70", "6E", "69", "5D", "5A", "44", "43"}, {
           "7F", "78", "66", "61", "55", "52", "4C", "4B"}, {
           "7C", "7B", "65", "62", "56", "51", "4F", "48"}, {
           "76", "71", "6F", "68", "5C", "5B", "45", "42"}, {
           "75", "72", "6C", "6B", "5F", "58", "46", "41"}, {
           "7D", "7A", "64", "63", "57", "50", "4E", "49"}, {
           "7D", "7A", "64", "63", "57", "50", "4E", "49"}, {
           "74", "73", "6D", "6A", "5E", "59", "47", "40"}, {
           "76", "71", "6F", "68", "5C", "5B", "45", "42"}, {
           "7D", "7A", "64", "63", "57", "50", "4E", "49"}, {
           "7F", "78", "66", "61", "55", "52", "4C", "4B"}, {
           "76", "71", "6F", "68", "5C", "5B", "45", "42"}, {
           "76", "71", "6F", "68", "5C", "5B", "45", "42"}, {
           "7E", "79", "67", "60", "54", "53", "4D", "4A"}, {
           "7D", "7A", "64", "63", "57", "50", "4E", "49"}, {
           "77", "70", "6E", "69", "5D", "5A", "44", "43"}, {
           "74", "73", "6D", "6A", "5E", "59", "47", "40"}, {
           "7C", "7B", "65", "62", "56", "51", "4F", "48"}, {
           "7D", "7A", "64", "63", "57", "50", "4E", "49"}, {
           "75", "72", "6C", "6B", "5F", "58", "46", "41"}, {
           "76", "71", "6F", "68", "5C", "5B", "45", 
            "42"}}, $CellContext`fano240 = {{
           "08", "0F", "11", "16", "22", "25", "3B", "3C"}, {
           "0B", "0C", "12", "15", "21", "26", "38", "3F"}, {
           "03", "04", "1A", "1D", "29", "2E", "30", "37"}, {
           "02", "05", "1B", "1C", "28", "2F", "31", "36"}, {
           "0A", "0D", "13", "14", "20", "27", "39", "3E"}, {
           "09", "0E", "10", "17", "23", "24", "3A", "3D"}, {
           "02", "05", "1B", "1C", "28", "2F", "31", "36"}, {
           "01", "06", "18", "1F", "2B", "2C", "32", "35"}, {
           "09", "0E", "10", "17", "23", "24", "3A", "3D"}, {
           "08", "0F", "11", "16", "22", "25", "3B", "3C"}, {
           "00", "07", "19", "1E", "2A", "2D", "33", "34"}, {
           "03", "04", "1A", "1D", "29", "2E", "30", "37"}, {
           "09", "0E", "10", "17", "23", "24", "3A", "3D"}, {
           "0A", "0D", "13", "14", "20", "27", "39", "3E"}, {
           "02", "05", "1B", "1C", "28", "2F", "31", "36"}, {
           "02", "05", "1B", "1C", "28", "2F", "31", "36"}, {
           "0B", "0C", "12", "15", "21", "26", "38", "3F"}, {
           "09", "0E", "10", "17", "23", "24", "3A", "3D"}, {
           "02", "05", "1B", "1C", "28", "2F", "31", "36"}, {
           "00", "07", "19", "1E", "2A", "2D", "33", "34"}, {
           "09", "0E", "10", "17", "23", "24", "3A", "3D"}, {
           "09", "0E", "10", "17", "23", "24", "3A", "3D"}, {
           "01", "06", "18", "1F", "2B", "2C", "32", "35"}, {
           "02", "05", "1B", "1C", "28", "2F", "31", "36"}, {
           "08", "0F", "11", "16", "22", "25", "3B", "3C"}, {
           "0B", "0C", "12", "15", "21", "26", "38", "3F"}, {
           "03", "04", "1A", "1D", "29", "2E", "30", "37"}, {
           "02", "05", "1B", "1C", "28", "2F", "31", "36"}, {
           "0A", "0D", "13", "14", "20", "27", "39", "3E"}, {
           "09", "0E", "10", "17", "23", "24", "3A", 
            "3D"}}, $CellContext`smCnv[
           Pattern[$CellContext`altMask, 
            Blank[]]] := 
         If[$CellContext`altMask, $CellContext`leftSM, $CellContext`rightSM], \
$CellContext`leftSM = {2, 3, 5, 8}, $CellContext`rightSM = {1, 4, 6, 
          7}, $CellContext`flipSwitch = 28, $CellContext`pairClr[
           Pattern[$CellContext`fPi, 
            Blank[]]] := If[
           MemberQ[
            Flatten[$CellContext`c8Pairs], $CellContext`fPi], Blue, 
           Red], $CellContext`c8Pairs = {{3, 5}, {6, 9}, {11, 12}, {13, 14}, {
           18, 20}, {21, 22}, {27, 29}, {
           30}}, $CellContext`flipFano = {{{2, 3}, {1, 3, 6, 4}, {2, 5}}, {{2,
             4}, {8, 11}, {9, 7, 10, 12}}, {{2, 5}, {14, 16, 17, 18}, {13, 
            15}}, {{2, 6}, {22, 24}, {19, 20, 21, 23}}, {{2, 7}, {25, 27, 
            30}, {26, 29, 28}}}, $CellContext`localize = 
         True, $CellContext`addParticles[
           Pattern[$CellContext`p$, 
            Blank[]]] := (
          Map[{Part[$CellContext`dispArr$$, #] = "y"}& , $CellContext`p$]; 
          If[$CellContext`localize, $CellContext`refresh$$ = 
            True]), $CellContext`octIJKL := {
          I, $CellContext`\[DoubleStruckJ], $CellContext`\[DoubleStruckK], \
$CellContext`\[DoubleStruckL], 
           I $CellContext`\[DoubleStruckL], $CellContext`\[DoubleStruckJ] \
$CellContext`\[DoubleStruckL], $CellContext`\[DoubleStruckK] $CellContext`\
\[DoubleStruckL], 
           Subscript[$CellContext`\[ScriptE], 0]}, $CellContext`oct = {
           Subscript[$CellContext`\[ScriptE], 1], 
           Subscript[$CellContext`\[ScriptE], 2], 
           Subscript[$CellContext`\[ScriptE], 3], 
           Subscript[$CellContext`\[ScriptE], 4], 
           Subscript[$CellContext`\[ScriptE], 5], 
           Subscript[$CellContext`\[ScriptE], 6], 
           Subscript[$CellContext`\[ScriptE], 7], 
           Subscript[$CellContext`\[ScriptE], 0]}, $CellContext`pmOctIJKL := 
         Join[-$CellContext`octIJKL, $CellContext`octIJKL, {-1, 0, 
           1}], $CellContext`pmOct = {-
           Subscript[$CellContext`\[ScriptE], 1], -
           Subscript[$CellContext`\[ScriptE], 2], -
           Subscript[$CellContext`\[ScriptE], 3], -
           Subscript[$CellContext`\[ScriptE], 4], -
           Subscript[$CellContext`\[ScriptE], 5], -
           Subscript[$CellContext`\[ScriptE], 6], -
           Subscript[$CellContext`\[ScriptE], 7], -
           Subscript[$CellContext`\[ScriptE], 0], 
           Subscript[$CellContext`\[ScriptE], 1], 
           Subscript[$CellContext`\[ScriptE], 2], 
           Subscript[$CellContext`\[ScriptE], 3], 
           Subscript[$CellContext`\[ScriptE], 4], 
           Subscript[$CellContext`\[ScriptE], 5], 
           Subscript[$CellContext`\[ScriptE], 6], 
           Subscript[$CellContext`\[ScriptE], 7], 
           Subscript[$CellContext`\[ScriptE], 0], -1, 0, 1}, $CellContext`f[
           Pattern[$CellContext`x, 
            Blank[]]] := 
         3 $CellContext`x^2 ($CellContext`x - 1) ($CellContext`x + 
           1), $CellContext`a = 1, $CellContext`pTriad[
           Pattern[$CellContext`p, 
            Blank[]], 
           Pattern[$CellContext`flip, 
            Blank[]]] := 
         Module[{$CellContext`invMask, $CellContext`altMask, $CellContext`sm, \
$CellContext`fpC, $CellContext`fpG, $CellContext`d8Q, $CellContext`excFanoQ, \
$CellContext`genClr3Q, $CellContext`doD8, $CellContext`dropD8, \
$CellContext`fPi}, {$CellContext`invMask, $CellContext`altMask, \
$CellContext`sm, $CellContext`fpC, $CellContext`fpG} = \
$CellContext`getFPparam[$CellContext`p]; $CellContext`d8Q := \
$CellContext`invMask != $CellContext`altMask; $CellContext`doD8 := Or[
              And[$CellContext`flip, $CellContext`d8Q], 
              And[
               Not[$CellContext`flip], 
               Not[$CellContext`d8Q]]]; $CellContext`excFanoQ := 
            And[$CellContext`fpC == 0, $CellContext`fpG == 
              0]; $CellContext`fPi := Part[
              If[$CellContext`doD8, $CellContext`fpD8, $CellContext`fpC8], 
              If[$CellContext`excFanoQ, 1, 0] + 
              2^2 $CellContext`fB[$CellContext`fpC, 2] + 
              2^2 $CellContext`fB[$CellContext`fpC, 
                 1] + $CellContext`fB[$CellContext`fpG, 
                2] + $CellContext`fB[$CellContext`fpG, 
                1]]; {$CellContext`invMask, $CellContext`altMask, \
$CellContext`fPi, $CellContext`sm, $CellContext`fpC, $CellContext`fpG}], \
$CellContext`getFPparam[
           Pattern[$CellContext`p, 
            Blank[]]] := Condition[
           
           Module[{$CellContext`invMask, $CellContext`altMask, \
$CellContext`sm, $CellContext`fpC, $CellContext`fpG}, $CellContext`invMask = 
             If[$CellContext`aB[$CellContext`p] == 1, True, 
               False]; $CellContext`altMask = 
             If[$CellContext`pB[$CellContext`p] == If[$CellContext`ZLM, 1, 0],
                True, False]; $CellContext`sm = 
             1 + 2^1 $CellContext`s1B[$CellContext`p] + \
$CellContext`s0B[$CellContext`p]; $CellContext`fpC = 
             2^1 $CellContext`c1B[$CellContext`p] + \
$CellContext`c0B[$CellContext`p]; $CellContext`fpG = 
             2^1 $CellContext`g1B[$CellContext`p] + \
$CellContext`g0B[$CellContext`p]; {$CellContext`invMask, \
$CellContext`altMask, $CellContext`sm, $CellContext`fpC, $CellContext`fpG}], 
           Not[$CellContext`swapQuat]], $CellContext`getFPparam[
           Pattern[$CellContext`p, 
            Blank[]]] := Condition[
           
           Module[{$CellContext`invMask, $CellContext`altMask, \
$CellContext`sm, $CellContext`fpC, $CellContext`fpG}, $CellContext`invMask = 
             If[$CellContext`g0B[$CellContext`p] == 1, True, 
               False]; $CellContext`altMask = 
             If[$CellContext`g1B[$CellContext`p] == 
               If[$CellContext`ZLM, 1, 0], True, False]; $CellContext`sm = 
             1 + 2^1 $CellContext`c1B[$CellContext`p] + \
$CellContext`c0B[$CellContext`p]; $CellContext`fpC = 
             2^1 $CellContext`s1B[$CellContext`p] + \
$CellContext`s0B[$CellContext`p]; $CellContext`fpG = 
             2^1 $CellContext`pB[$CellContext`p] + \
$CellContext`aB[$CellContext`p]; {$CellContext`invMask, $CellContext`altMask, \
$CellContext`sm, $CellContext`fpC, $CellContext`fpG}], \
$CellContext`swapQuat], $CellContext`aB[
           Pattern[$CellContext`p, 
            Blank[]]] := $CellContext`extBit[$CellContext`p, 1, 
           0], $CellContext`extBit[
           Pattern[$CellContext`p, 
            Blank[]], 
           Pattern[$CellContext`bOrdNum, 
            Blank[]], 
           Pattern[$CellContext`bOrdShift, 
            Blank[]]] := $CellContext`fBit[
           $CellContext`pBit[$CellContext`p], 
           2^(Part[$CellContext`bOrd, $CellContext`bOrdNum] + \
$CellContext`bOrdShift)], $CellContext`fBit[
           Pattern[$CellContext`p, 
            Blank[]], 
           Pattern[$CellContext`bit, 
            
            Blank[]]] := $CellContext`fB[$CellContext`p, \
$CellContext`bit]/$CellContext`bit, $CellContext`pB[
           Pattern[$CellContext`p, 
            Blank[]]] := $CellContext`extBit[$CellContext`p, 2, 
           0], $CellContext`ZLM = True, $CellContext`s1B[
           Pattern[$CellContext`p, 
            Blank[]]] := $CellContext`extBit[$CellContext`p, 4, 
           1], $CellContext`s0B[
           Pattern[$CellContext`p, 
            Blank[]]] := $CellContext`extBit[$CellContext`p, 4, 
           0], $CellContext`c1B[
           Pattern[$CellContext`p, 
            Blank[]]] := $CellContext`extBit[$CellContext`p, 3, 
           1], $CellContext`c0B[
           Pattern[$CellContext`p, 
            Blank[]]] := $CellContext`extBit[$CellContext`p, 3, 
           0], $CellContext`g1B[
           Pattern[$CellContext`p, 
            Blank[]]] := $CellContext`extBit[$CellContext`p, 5, 
           1], $CellContext`g0B[
           Pattern[$CellContext`p, 
            Blank[]]] := $CellContext`extBit[$CellContext`p, 5, 
           0], $CellContext`swapQuat := False, $CellContext`pPhys[
           Pattern[$CellContext`p, 
            Blank[]]] := FullSimplify[
           PowerExpand[
            Dot[$CellContext`rot3, 
             $CellContext`pE8[$CellContext`p]]]], $CellContext`rot3 = {{1, 0, 
           0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {
           0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {
           0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 
           0}, {0, 0, 0, 0, 0, 1/Sqrt[3], 1/Sqrt[3], 1/Sqrt[3]}, {
           0, 0, 0, 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0}, {
           0, 0, 0, 0, 0, -(1/Sqrt[6]), -(1/Sqrt[6]), 
            Sqrt[2/3]}}, $CellContext`pE8[
           Pattern[$CellContext`p, 
            Blank[]]] := Part[$CellContext`e8Orig, 
           Min[$CellContext`p, 256]], $CellContext`coords2 = {{
           1/4, Sqrt[3]/4}, {3/4, Sqrt[3]/4}, {1/2, 0}, {
           1/2, 1/(2 Sqrt[3])}, {1, 0}, {1/2, Sqrt[3]/2}, {0, 0}, {1, 
           1}}, $CellContext`ca1 = {1, 2, 3}, $CellContext`coords3 = {{1, 0, 
          1}, {0, 1, 1}, {1, 1, 0}, {1, 1, 1}, {0, 1, 0}, {0, 0, 1}, {1, 0, 
          0}, {0, 0, 0}}, $CellContext`octString = {
          " \!\(\*SubscriptBox[\(\[ScriptE]\), \(1\)]\)\n =\[ImaginaryI] ", 
           " \!\(\*SubscriptBox[\(\[ScriptE]\), \(2\)]\)\n =\[DoubleStruckJ] \
", "\!\(\*SubscriptBox[\(\[ScriptE]\), \(3\)]\)=\[ImaginaryI]\[DoubleStruckJ]\
\n=\[DoubleStruckK]", 
           " \!\(\*SubscriptBox[\(\[ScriptE]\), \(4\)]\)\n =\[DoubleStruckL] \
", "\!\(\*SubscriptBox[\(\[ScriptE]\), \(5\)]\)\n=\[ImaginaryI]\
\[DoubleStruckL]", 
           "\!\(\*SubscriptBox[\(\[ScriptE]\), \(6\)]\)\n=\[DoubleStruckJ]\
\[DoubleStruckL]", 
           "\!\(\*SubscriptBox[\(\[ScriptE]\), \(7\)]\)=\[ImaginaryI]\
\[DoubleStruckJ]\[DoubleStruckL]\n=\[DoubleStruckK]\[DoubleStruckL]", 
           "\!\(\*SubscriptBox[\(\[ScriptE]\), \(0\)]\)=1\n=\
\[DoubleStruckCapitalR]"}, $CellContext`imageSize = 643.75, $CellContext`pDisp[
           Pattern[$CellContext`p$, 
            Blank[]]] := Row[{"Ref. Symbols: 2D", 
            Graphics[{
              EdgeForm[Black], 
              $CellContext`poly[
               $CellContext`pShpSze[$CellContext`p$], {1, 1, 0}, 1/100., 2], {
               $CellContext`pColor[$CellContext`pGrad$$, 
                $CellContext`pColr[$CellContext`p$], 
                $CellContext`pShde[$CellContext`p$]], 
               $CellContext`poly[
                $CellContext`pShpSze[$CellContext`p$], {0, 0, 0}, 1/2, 2]}}, 
             Background -> LightYellow, ImageSize -> 30], " 3D ", 
            Graphics3D[{
              $CellContext`poly[
               $CellContext`pShpSze[$CellContext`p$], {1, 1, 1}, 1/100., 3], {
               $CellContext`pColor[$CellContext`pGrad$$, 
                $CellContext`pColr[$CellContext`p$], 
                $CellContext`pShde[$CellContext`p$]], 
               $CellContext`poly[
                $CellContext`pShpSze[$CellContext`p$], {0, 0, 0}, 1/2, 3]}}, 
             Background -> LightYellow, ImageSize -> 50, Boxed -> 
             False]}], $CellContext`poly[{
            Pattern[$CellContext`type, 
             Blank[]], 
            Pattern[$CellContext`scaleFactor, 
             Blank[]]}, 
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`plDims, 
            
            Blank[]]] := $CellContext`type[$CellContext`coords, \
$CellContext`scale $CellContext`scaleFactor, $CellContext`plDims], \
$CellContext`poly[
           Subscript[
            Pattern[$CellContext`type, 
             Blank[]], 
            Pattern[$CellContext`scaleFactor, 
             Blank[]]], 
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`plDims, 
            Blank[]]] := $CellContext`poly[
           ReleaseHold[
            
            Subscript[$CellContext`type, $CellContext`scaleFactor]], \
$CellContext`coords, $CellContext`scale, $CellContext`plDims], \
$CellContext`pShpSze[
           Pattern[$CellContext`p, 
            Blank[]]] := 
         Part[$CellContext`e8b, $CellContext`p, $CellContext`sets + 
           5], $CellContext`pColor[
           Pattern[$CellContext`grad, 
            Blank[]], 
           Pattern[$CellContext`color, 
            Blank[]], 
           Pattern[$CellContext`shade, 
            Blank[]]] := If[$CellContext`color == "e", White, 
           If[$CellContext`color == "k", Black, 
            Part[
             $CellContext`gradColors[$CellContext`grad], \
$CellContext`position[$CellContext`colorList, $CellContext`color] 
              Length[$CellContext`shadeList] + 
             1 - $CellContext`position[$CellContext`shadeList, \
$CellContext`shade]]]], $CellContext`gradColors[
           Pattern[$CellContext`grad, 
            Blank[]]] := 
         Switch[$CellContext`grad, 0, $CellContext`oldColors, 
           51, $CellContext`newColors, $CellContext`grad, 
           Map[ColorData[
             $CellContext`gradName[$CellContext`grad], #/
             Length[$CellContext`newColors]]& , 
            Range[
             Length[$CellContext`newColors]]]], $CellContext`oldColors = {
           RGBColor[1, 1, 0.85], 
           RGBColor[1, 1, 0], 
           RGBColor[2/3, 2/3, 0], 
           RGBColor[1, 0.9, 0.8], 
           RGBColor[1, 0.5, 0], 
           RGBColor[2/3, 0.33333333333333337`, 0], 
           RGBColor[0.9, 1, 1], 
           RGBColor[0, 1, 1], 
           RGBColor[0, 2/3, 2/3], 
           RGBColor[1, 0.9, 1], 
           RGBColor[1, 0, 1], 
           RGBColor[2/3, 0, 2/3], 
           GrayLevel[0.85], 
           GrayLevel[0.5], 
           RGBColor[
           0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
           RGBColor[1, 0.85, 0.85], 
           RGBColor[1, 0, 0], 
           RGBColor[2/3, 0, 0], 
           RGBColor[0.88, 1, 0.88], 
           RGBColor[0, 1, 0], 
           RGBColor[0, 2/3, 0], 
           RGBColor[0.87, 0.94, 1], 
           RGBColor[0, 0, 1], 
           RGBColor[0, 0, 2/3]}, $CellContext`newColors = {
           RGBColor[{1, 1, 2/3}], 
           RGBColor[{1, 1, 0}], 
           RGBColor[{2/3, 2/3, 0}], 
           RGBColor[{1, 0.9, 0.8}], 
           RGBColor[{1, 1/2, 0}], 
           RGBColor[{2/3, 1/3, 0}], 
           RGBColor[{0.9, 1, 1}], 
           RGBColor[{0, 1, 1}], 
           RGBColor[{0, 2/3, 2/3}], 
           RGBColor[{1, 0.9, 1}], 
           RGBColor[{1, 0, 1}], 
           RGBColor[{2/3, 0, 2/3}], 
           RGBColor[{0.85, 0.85, 0.85}], 
           RGBColor[{1/2, 1/2, 1/2}], 
           RGBColor[{1/3, 1/3, 1/3}], 
           RGBColor[{1, 0.85, 0.85}], 
           RGBColor[{1, 0, 0}], 
           RGBColor[{2/3, 0, 0}], 
           RGBColor[{0.88, 1, 0.88}], 
           RGBColor[{0, 1, 0}], 
           RGBColor[{0, 2/3, 0}], 
           RGBColor[{0.87, 0.94, 1}], 
           RGBColor[{0, 0, 1}], 
           RGBColor[{0, 0, 2/3}]}, $CellContext`gradName[
           Pattern[$CellContext`grad, 
            Blank[]]] := 
         Switch[$CellContext`grad, 0, "oldColors", 51, 
           "newColors", $CellContext`grad, 
           Part[
            ColorData[
            "Gradients"], $CellContext`grad]], $CellContext`shadeList = {
          "d", "m", "l"}, $CellContext`pColr[
           Pattern[$CellContext`p, 
            Blank[]]] := 
         Part[$CellContext`e8b, $CellContext`p, $CellContext`sets + 4, 
           1], $CellContext`pShde[
           Pattern[$CellContext`p, 
            Blank[]]] := 
         Part[$CellContext`e8b, $CellContext`p, $CellContext`sets + 4, 
           2], $CellContext`pToolTipTxt[
           Pattern[$CellContext`p, 
            Blank[]]] := Grid[{{"Ref. Label: ", 
             $CellContext`pLbl[$CellContext`p]}, {"Exp. Mass: ", 
             $CellContext`pMass[$CellContext`p]}, {"Th.  Mass: ", 
             $CellContext`mTh[$CellContext`p]}, {"Exp. Lifetime: ", 
             $CellContext`pLife[$CellContext`p]}, {
             Row[{"Bitwise #: ", 
               $CellContext`pBit[$CellContext`p]}], 
             Column[{
               Row[{
                 $CellContext`toBits[$CellContext`p]}], 
               Row[{
                 StringJoin[$CellContext`bStr, "-Bits"]}]}, Frame -> True]}, {
             Row[{"Clifford/Pascal E8 #: ", $CellContext`p}], 
             $CellContext`pE8[$CellContext`p]}, {"E8 Root", 
             $CellContext`pAlgebra[$CellContext`p]}, {"E8 Weight", 
             $CellContext`pWeight[$CellContext`p]}, {"E8 Height", 
             $CellContext`pHeight[$CellContext`p]}, 
            $CellContext`pDispOct[$CellContext`p], 
            If[$CellContext`localize, {"", ""}, {
              Column[{"Bitwise NKS CA", 
                $CellContext`doCA[
                 $CellContext`pBit[$CellContext`p]]}], 
              Column[{"Clifford/Pascal E8 CA", 
                $CellContext`doCA[$CellContext`p - 1]}]}]}], $CellContext`pLbl[
           Pattern[$CellContext`p, 
            Blank[]]] := 
         Part[$CellContext`e8b, $CellContext`p, $CellContext`sets + 
           3], $CellContext`pMass[
           Pattern[$CellContext`p, 
            Blank[]]] := 
         Part[$CellContext`e8b, $CellContext`p, $CellContext`sets + 
           7], $CellContext`mTh[
           Pattern[$CellContext`p, 
            Blank[]]] := If[$CellContext`localize, "n/a", $CellContext`Convert[
             $CellContext`M[
              
              If[$CellContext`ZLM, 1 + $CellContext`pB[$CellContext`p], 
               2 - $CellContext`pB[$CellContext`p]], 1 + 
              2 $CellContext`c1B[$CellContext`p] + \
$CellContext`c0B[$CellContext`p], 
              2 $CellContext`g1B[$CellContext`p] + \
$CellContext`g0B[$CellContext`p], 1 + 
              2 $CellContext`s1B[$CellContext`p] + \
$CellContext`s0B[$CellContext`p]], $CellContext`Mega \
$CellContext`eVperC2]/($CellContext`Mega $CellContext`eVperC2)], \
$CellContext`M[
           Pattern[$CellContext`oP, 
            Blank[]], 
           Pattern[$CellContext`oC, 
            Blank[]], 
           Pattern[$CellContext`oGen, 
            Blank[]], 
           Pattern[$CellContext`oS, 
            Blank[]]] := $CellContext`zeroMass, $CellContext`zeroMass = 
         1.*^-14 $CellContext`MassUnit, $CellContext`pLife[
           Pattern[$CellContext`p, 
            Blank[]]] := 
         Part[$CellContext`e8b, $CellContext`p, $CellContext`sets + 
           8], $CellContext`toBits[
           Pattern[$CellContext`p, 
            Blank[]]] := PaddedForm[
           BaseForm[
            $CellContext`pBit[$CellContext`p], 2], 8, 
           NumberPadding -> {"0", "0"}], $CellContext`bStr = 
         "0apccssgg", $CellContext`pAlgebra[
           Pattern[$CellContext`p, 
            Blank[]]] := Dot[
           Inverse[
            Transpose[$CellContext`srE8]], 
           $CellContext`pE8[$CellContext`p]], $CellContext`srE8 = {{0, -1, 0, 
           0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 
           0, -1}, {-1, 0, 1, 0, 0, 0, 0, 0}, {0, 0, -1, 1, 0, 0, 0, 0}, {0, 
           0, 0, -1, 1, 0, 0, 0}, {0, 0, 0, 0, -1, 1, 0, 
           0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/
            2}}, $CellContext`pWeight[
           Pattern[$CellContext`p, 
            Blank[]]] := Dot[$CellContext`cmE8, 
           $CellContext`pAlgebra[$CellContext`p]], $CellContext`cmE8 = {{0, 0,
           0, 0, 0, -1, 2, 0}, {0, 0, 0, 0, -1, 2, -1, 0}, {0, 0, 0, -1, 
          2, -1, 0, 0}, {0, 0, -1, 2, -1, 0, 0, 0}, {-1, -1, 2, -1, 0, 0, 0, 
          0}, {2, 0, -1, 0, 0, 0, 0, -1}, {-1, 0, 0, 0, 0, 0, 0, 2}, {0, 
          2, -1, 0, 0, 0, 0, 0}}, $CellContext`pHeight[
           Pattern[$CellContext`p, 
            Blank[]]] := 1 + Abs[
            Total[
             $CellContext`pAlgebra[$CellContext`p]]], $CellContext`pDispOct[
           Pattern[$CellContext`p, 
            Blank[]]] := {
           Column[{" Flipped ", 
             Row[
              $CellContext`pDispTriad[$CellContext`p, True]]}, Center, 
            ItemSize -> If[
              And[
               Not[$CellContext`localize], $CellContext`listOut], 47, 32]], 
           Column[{" Not Flipped ", 
             Row[
              $CellContext`pDispTriad[$CellContext`p, False]]}, Center, 
            ItemSize -> If[
              And[
               Not[$CellContext`localize], $CellContext`listOut], 47, 
              32]]}, $CellContext`pDispTriad[
           Pattern[$CellContext`p, 
            Blank[]], 
           Pattern[$CellContext`flip, 
            Blank[]]] := Apply[$CellContext`dispTriad, 
           $CellContext`pTriad[$CellContext`p, $CellContext`flip]], \
$CellContext`dispTriad[
           Pattern[$CellContext`invMask, 
            Blank[]], 
           Pattern[$CellContext`altMask, 
            Blank[]], 
           Pattern[$CellContext`fPi, 
            Blank[]], 
           Pattern[$CellContext`sm, 
            Blank[]], 
           Pattern[$CellContext`fpC, 
            Blank[]], 
           Pattern[$CellContext`fpG, 
            Blank[]]] := 
         Module[{$CellContext`triads, $CellContext`flatFanoStyled, \
$CellContext`flatFano, $CellContext`firstFlipSign}, 
           If[
            
            And[$CellContext`fpC == 0, $CellContext`fpG == 
             0], {$CellContext`excMsg, $CellContext`excMsg}, {
             Column[{
               Row[{"Octonion triads Fano index=", $CellContext`fPi, 
                 $CellContext`smQ[
                  Part[$CellContext`maskList, $CellContext`fPi]], "fp_sm=", 
                 
                 Part[$CellContext`maskList, $CellContext`fPi]}], \
{$CellContext`triads, $CellContext`flatFanoStyled, $CellContext`flatFano, \
$CellContext`firstFlipSign} = $CellContext`getTriads[$CellContext`invMask, \
$CellContext`altMask, $CellContext`fPi, $CellContext`sm]; $CellContext`triads, 
               If[
                MemberQ[$CellContext`hoffmanSingleton, $CellContext`fPi], 
                "HoffmanSingleton (Yellow)", "Coxeter (Cyan)"]}, Center, 
              ItemSize -> 31], 
             Column[{"flat triad/mask bits", 
               Most[$CellContext`flatFanoStyled], 
               $CellContext`binMask[$CellContext`invMask, \
$CellContext`altMask, $CellContext`fPi, $CellContext`sm], ""}, Center, 
              ItemSize -> 15]}]], $CellContext`excMsg = Style[
           
           Column[{" Invalid octonion ", "", " Fano plane not defined! ", 
             ""}], 
           RGBColor[1, 0, 0], Bold], $CellContext`smQ[
           Pattern[$CellContext`sm, 
            Blank[]]] := If[
           MemberQ[$CellContext`leftSM, $CellContext`sm], 
           " \!\(\*\nStyleBox[\"L\",\nFontColor->RGBColor[1, 0, 0],\n\
Background->RGBColor[1, 1, 0]]\) ", 
           " \!\(\*\nStyleBox[\"R\",\nFontColor->RGBColor[0, 0, 1],\n\
Background->RGBColor[1, 1, 0]]\) "], $CellContext`maskList = {5, 8, 4, 3, 7, 
          6, 3, 2, 6, 5, 1, 4, 6, 7, 3, 3, 8, 6, 3, 1, 6, 6, 2, 3, 5, 8, 4, 3,
           7, 6}, $CellContext`hoffmanSingleton = {2, 3, 6, 7, 10, 11, 14, 15,
           18, 19, 22, 23, 26, 27, 30}, $CellContext`listOut = 
         True, $CellContext`doCA[
           Pattern[$CellContext`p, 
            Blank[]]] := Row[{
            ArrayPlot[
             CellularAutomaton[
              Min[$CellContext`p, 255], {{1}, 0}, 20], ImageSize -> {75, 75}, 
             ImagePadding -> 2]}], $CellContext`specularity = 
         32., $CellContext`ca2 = {{1, 2}, {1, 3}, {2, 3}, {8, 1}, {8, 2}, {8, 
          3}, {8, 5}, {8, 6}, {8, 7}}, $CellContext`txt[
           Pattern[$CellContext`lbl, 
            Blank[]], 
           Pattern[$CellContext`loc, 
            Blank[]]] := Text[
           
           Style[$CellContext`lbl, 14, 
            Black], $CellContext`loc], $CellContext`odd4Edges = {{1, 2, 
            3} -> {4, 5, 6}, {1, 2, 3} -> {4, 5, 7}, {1, 2, 3} -> {4, 6, 7}, {
            1, 2, 3} -> {5, 6, 7}, {1, 2, 4} -> {3, 5, 6}, {1, 2, 4} -> {3, 5,
             7}, {1, 2, 4} -> {3, 6, 7}, {1, 2, 4} -> {5, 6, 7}, {1, 2, 
            5} -> {3, 4, 6}, {1, 2, 5} -> {3, 4, 7}, {1, 2, 5} -> {3, 6, 7}, {
            1, 2, 5} -> {4, 6, 7}, {1, 2, 6} -> {3, 4, 5}, {1, 2, 6} -> {3, 4,
             7}, {1, 2, 6} -> {3, 5, 7}, {1, 2, 6} -> {4, 5, 7}, {1, 2, 
            7} -> {3, 4, 5}, {1, 2, 7} -> {3, 4, 6}, {1, 2, 7} -> {3, 5, 6}, {
            1, 2, 7} -> {4, 5, 6}, {1, 3, 4} -> {2, 5, 6}, {1, 3, 4} -> {2, 5,
             7}, {1, 3, 4} -> {2, 6, 7}, {1, 3, 4} -> {5, 6, 7}, {1, 3, 
            5} -> {2, 4, 6}, {1, 3, 5} -> {2, 4, 7}, {1, 3, 5} -> {2, 6, 7}, {
            1, 3, 5} -> {4, 6, 7}, {1, 3, 6} -> {2, 4, 5}, {1, 3, 6} -> {2, 4,
             7}, {1, 3, 6} -> {2, 5, 7}, {1, 3, 6} -> {4, 5, 7}, {1, 3, 
            7} -> {2, 4, 5}, {1, 3, 7} -> {2, 4, 6}, {1, 3, 7} -> {2, 5, 6}, {
            1, 3, 7} -> {4, 5, 6}, {1, 4, 5} -> {2, 3, 6}, {1, 4, 5} -> {2, 3,
             7}, {1, 4, 5} -> {2, 6, 7}, {1, 4, 5} -> {3, 6, 7}, {1, 4, 
            6} -> {2, 3, 5}, {1, 4, 6} -> {2, 3, 7}, {1, 4, 6} -> {2, 5, 7}, {
            1, 4, 6} -> {3, 5, 7}, {1, 4, 7} -> {2, 3, 5}, {1, 4, 7} -> {2, 3,
             6}, {1, 4, 7} -> {2, 5, 6}, {1, 4, 7} -> {3, 5, 6}, {1, 5, 
            6} -> {2, 3, 4}, {1, 5, 6} -> {2, 3, 7}, {1, 5, 6} -> {2, 4, 7}, {
            1, 5, 6} -> {3, 4, 7}, {1, 5, 7} -> {2, 3, 4}, {1, 5, 7} -> {2, 3,
             6}, {1, 5, 7} -> {2, 4, 6}, {1, 5, 7} -> {3, 4, 6}, {1, 6, 
            7} -> {2, 3, 4}, {1, 6, 7} -> {2, 3, 5}, {1, 6, 7} -> {2, 4, 5}, {
            1, 6, 7} -> {3, 4, 5}, {2, 3, 4} -> {5, 6, 7}, {2, 3, 5} -> {4, 6,
             7}, {2, 3, 6} -> {4, 5, 7}, {2, 3, 7} -> {4, 5, 6}, {2, 4, 
            5} -> {3, 6, 7}, {2, 4, 6} -> {3, 5, 7}, {2, 4, 7} -> {3, 5, 6}, {
            2, 5, 6} -> {3, 4, 7}, {2, 5, 7} -> {3, 4, 6}, {2, 6, 7} -> {3, 4,
             5}}, $CellContext`triple35Lst = {{1, 2, 3}, {1, 2, 4}, {1, 2, 
          5}, {1, 2, 6}, {1, 2, 7}, {1, 3, 4}, {1, 3, 5}, {1, 3, 6}, {1, 3, 
          7}, {1, 4, 5}, {1, 4, 6}, {1, 4, 7}, {1, 5, 6}, {1, 5, 7}, {1, 6, 
          7}, {2, 3, 4}, {2, 3, 5}, {2, 3, 6}, {2, 3, 7}, {2, 4, 5}, {2, 4, 
          6}, {2, 4, 7}, {2, 5, 6}, {2, 5, 7}, {2, 6, 7}, {3, 4, 5}, {3, 4, 
          6}, {3, 4, 7}, {3, 5, 6}, {3, 5, 7}, {3, 6, 7}, {4, 5, 6}, {4, 5, 
          7}, {4, 6, 7}, {5, 6, 7}}, $CellContext`odd4Hamiltonian = {1, 32, 5,
           26, 15, 20, 31, 3, 34, 17, 11, 30, 21, 9, 23, 28, 4, 33, 8, 22, 7, 
          25, 6, 24, 27, 14, 16, 13, 19, 10, 18, 12, 29, 2, 
          35}, $CellContext`align = 
         Spacer[57], $CellContext`o1 = {1, 2, 3, 4, 5, 6, 7, 
          8}, $CellContext`o2 = {4., 3.5, 3., 2.5, 2., 1.5, 1., 
          0.5}, $CellContext`doDynkin := 
         With[{$CellContext`local$ = $CellContext`localDynkin}, 
           
           Module[$CellContext`local$, $CellContext`rangeInc = 
             8; $CellContext`viewerScale = 
             44 $CellContext`rangeInc; $CellContext`xR = \
$CellContext`rangeInc/2; $CellContext`yR = 
             8/$CellContext`rangeInc; $CellContext`maxRangeX = \
$CellContext`xR ($CellContext`viewerScale/$CellContext`rangeInc); \
$CellContext`maxRangeY = $CellContext`yR \
($CellContext`viewerScale/$CellContext`rangeInc); $CellContext`setName[
               Pattern[$CellContext`i, 
                Blank[]], 
               Pattern[$CellContext`rank, 
                Blank[]]] := If[$CellContext`i == 1, "Parent", 
               If[$CellContext`i == 2^$CellContext`rank - 1, "OmniTruncated", 
                If[
                 
                 Or[$CellContext`i == 2^$CellContext`rank, $CellContext`i == 
                  0], "Snub", 
                 If[$CellContext`i > 2^8, "UnNamed", 
                  
                  Part[$CellContext`dynkNames, $CellContext`i, 
                   2]]]]]; $CellContext`doAlg[
               Pattern[$CellContext`alg1$, 
                Blank[]]] := ($CellContext`alg$$ = StringJoin[
                 ToString[$CellContext`alg1$], 
                 Switch[$CellContext`affine$$, 3, 
                  ToString[Overscript[
                    ToString[$CellContext`rank$$ - $CellContext`affine$$], 
                    "~"]^"+++", TraditionalForm], 2, 
                  ToString[Overscript[
                    ToString[$CellContext`rank$$ - $CellContext`affine$$], 
                    "~"]^"^", TraditionalForm], 1, 
                  ToString[
                   Overscript[
                    ToString[$CellContext`rank$$ - $CellContext`affine$$], 
                    "~"], TraditionalForm], 0, 
                  ToString[$CellContext`rank$$]]]; $CellContext`group$$ = 
               Switch[$CellContext`alg1$, "A", 
                 StringJoin["SL(", 
                  ToString[$CellContext`rank$$ + 1], ")"], "B", 
                 StringJoin["SO(", 
                  ToString[2 $CellContext`rank$$ + 1], ")"], "C", 
                 StringJoin["Sp(", 
                  ToString[2 $CellContext`rank$$], ")"], "D", 
                 StringJoin["SO(", 
                  ToString[2 $CellContext`rank$$], ")"], "E", 
                 StringJoin["\[Superset] O(", 
                  ToString[2 $CellContext`rank$$], ")"], "F", 
                 StringJoin["\[Superset] O(", 
                  ToString[2 $CellContext`rank$$ + 1], ")"], "G", 
                 StringJoin["\[Superset] O(", 
                  ToString[$CellContext`rank$$ + 1], ")"], "H", 
                 StringJoin["\[Superset] SL(2,", 
                  ToString[$CellContext`rank$$ + 1], ")"], "CUBE", 
                 StringJoin["SO(", 
                  ToString[2 $CellContext`rank$$ + 1], ")"], "?", 
                 "?"]); $CellContext`dynkRange[
               Pattern[$CellContext`trim$, 
                Blank[]]] := Range[
                Min[
                Length[$CellContext`dynkin$$] - $CellContext`affine$$ - 
                 Abs[$CellContext`trim$], 
                 Length[$CellContext`dynkin$$]]] + If[
                
                And[$CellContext`trim$ > 0, 
                 Length[$CellContext`dynkin$$] - $CellContext`affine$$ - \
$CellContext`trim$ > 0], $CellContext`trim$, 0]; $CellContext`single[
               Pattern[$CellContext`trim$, 
                Blank[]]] := Or[Union[
                 Part[$CellContext`dynkin$$, 
                  $CellContext`dynkRange[$CellContext`trim$], 2]] == {1}, 
               Union[
                 Part[$CellContext`dynkin$$, 
                  $CellContext`dynkRange[$CellContext`trim$], 
                  2]] == {}]; $CellContext`linear[
               Pattern[$CellContext`trim$, 
                Blank[]]] := Max[
                Map[Length[
                  Position[
                   Flatten[
                    Part[$CellContext`dynkin$$, 
                    $CellContext`dynkRange[$CellContext`trim$], 1]], #]]& , 
                 Union[
                  Flatten[
                   Part[$CellContext`dynkin$$, 
                    $CellContext`dynkRange[$CellContext`trim$], 1]]]]] < 
              3; $CellContext`arrow[
               Pattern[$CellContext`coords, 
                Blank[]], 
               Pattern[$CellContext`scale, 
                Blank[]]] := {
               Arrowheads[{{$CellContext`scale, 9/10}}], 
               Arrow[$CellContext`coords]}; $CellContext`getNodeNear[
               Pattern[$CellContext`ptNear$, 
                Blank[]]] := $CellContext`position[
               
               Part[$CellContext`ptsLoc$$, All, 
                1], $CellContext`ptNear$]; $CellContext`getLineNear[
               Pattern[$CellContext`ptsNear$, 
                Blank[]], 
               Pattern[$CellContext`ptPos$, 
                Blank[]]] := If[
               MemberQ[
                Part[$CellContext`dynkin$$, All, 1], {$CellContext`ptPos$, 
                 $CellContext`getNodeNear[
                  Part[$CellContext`ptsNear$, 2]]}], 
               $CellContext`position[
                Part[$CellContext`dynkin$$, All, 1], {$CellContext`ptPos$, 
                 $CellContext`getNodeNear[
                  Part[$CellContext`ptsNear$, 2]]}], 
               If[
                MemberQ[
                 Part[$CellContext`dynkin$$, All, 1], {
                  $CellContext`getNodeNear[
                   Part[$CellContext`ptsNear$, 2]], $CellContext`ptPos$}], 
                $CellContext`position[
                 Part[$CellContext`dynkin$$, All, 1], {
                  $CellContext`getNodeNear[
                   Part[$CellContext`ptsNear$, 2]], $CellContext`ptPos$}], 
                1]]; $CellContext`addNode[
               Pattern[$CellContext`ptPos$, 
                Blank[]]] := 
             Module[{$CellContext`addNewNode$, $CellContext`dropNodes$, \
$CellContext`addDropped$, $CellContext`drop$}, $CellContext`addNewNode$[
                  Pattern[$CellContext`p$, 
                   Blank[]]] := (AppendTo[$CellContext`ptsLoc$$, {
                    Round[$CellContext`ptDD$$], 0}]; AppendTo[
                   Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 1], {
                    Round[$CellContext`ptDD$$], 
                    0}]; $CellContext`addLine[{$CellContext`p$, 
                    Length[$CellContext`ptsLoc$$]}]); $CellContext`dropNodes$[
                  Pattern[$CellContext`dropNum$, 
                   Blank[]]] := ($CellContext`ptsLocSav$$ = Drop[
                    Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 
                    1], $CellContext`rank$$ - $CellContext`affine$$ - \
$CellContext`dropNum$]; $CellContext`dynkSav$$ = Drop[
                    Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 2], Length[
                    Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 
                    2]] - $CellContext`affine$$ - $CellContext`dropNum$]; 
                 Part[$CellContext`dynkTbl$$, 
                    
                    Length[$CellContext`dynkTbl$$]] = \
({$CellContext`ptsLoc$$, $CellContext`dynkin$$, $CellContext`affine$$} = {
                    Drop[
                    Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 
                    1], -$CellContext`affine$$ - $CellContext`dropNum$], 
                    Drop[
                    Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 
                    2], -$CellContext`affine$$ - $CellContext`dropNum$], \
$CellContext`affineTrk$$})); $CellContext`addDropped$[
                  Pattern[$CellContext`addNum$, 
                   Blank[]]] := 
                Module[{$CellContext`i$, $CellContext`j$}, $CellContext`i$ = 
                   If[$CellContext`addNum$ > 
                    Length[$CellContext`ptsLocSav$$], $CellContext`addNum$ = 
                    Length[$CellContext`ptsLocSav$$]; 0, 
                    Length[$CellContext`ptsLocSav$$] - $CellContext`addNum$]; \
$CellContext`j$ = If[$CellContext`addNum$ > 
                    Length[$CellContext`dynkSav$$], $CellContext`addNum$ = 
                    Length[$CellContext`dynkSav$$]; 0, 
                    Length[$CellContext`dynkSav$$] - $CellContext`addNum$]; 
                  Map[AppendTo[
                    Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 1], 
                    
                    Part[$CellContext`ptsLocSav$$, 
                    1 + $CellContext`addNum$ + $CellContext`i$ - #]]& , 
                    Range[$CellContext`addNum$]]; $CellContext`ptsLoc$$ = 
                   Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 1]; Map[AppendTo[
                    Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 2], {{
                    Part[$CellContext`dynkSav$$, #, 1, 1], 1 + 
                    Length[$CellContext`ptsLoc$$] - ($CellContext`j$ + \
$CellContext`addNum$)}, 
                    Part[$CellContext`dynkSav$$, #, 2]}]& , 
                    Range[$CellContext`addNum$]]; $CellContext`dynkin$$ = 
                   Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 2]; If[
                    
                    Or[$CellContext`i$ > 0, $CellContext`j$ > 
                    0], $CellContext`ptsLocSav$$ = 
                    Drop[$CellContext`ptsLocSav$$, -$CellContext`i$]; \
$CellContext`dynkSav$$ = 
                    Drop[$CellContext`dynkSav$$, -$CellContext`j$]]]; \
$CellContext`drop$ = 
                If[$CellContext`rank$$ - $CellContext`affine$$ - \
$CellContext`ptPos$ == 1, True, False]; If[
                 And[$CellContext`drop$, 
                  
                  Or[$CellContext`patternD, $CellContext`patternE]], \
$CellContext`dropNodes$[
                  1]; $CellContext`addNewNode$[$CellContext`ptPos$]; \
$CellContext`addDropped$[1], 
                 $CellContext`addNewNode$[$CellContext`ptPos$]]]; \
$CellContext`addLine[
               Pattern[$CellContext`nodes$, 
                Blank[]]] := (
              AppendTo[$CellContext`dynkin$$, {$CellContext`nodes$, 1}]; 
              AppendTo[
                Part[$CellContext`dynkTbl$$, 
                 Length[$CellContext`dynkTbl$$], 2], {$CellContext`nodes$, 
                 1}]); $CellContext`doLine[
               Pattern[$CellContext`k$, 
                Blank[]], 
               Pattern[$CellContext`delta$, 
                Blank[]]] := 
             Module[{$CellContext`x1$, $CellContext`y1$, $CellContext`x2$, \
$CellContext`y2$, $CellContext`angX$, $CellContext`angY$, \
$CellContext`newDelta$, $CellContext`theLine$, $CellContext`theArrow$}, \
$CellContext`x1$ = Part[$CellContext`ptsLoc$$, 
                  Part[$CellContext`dynkin$$, $CellContext`k$, 1, 1], 1, 
                  1]; $CellContext`y1$ = Part[$CellContext`ptsLoc$$, 
                  Part[$CellContext`dynkin$$, $CellContext`k$, 1, 1], 1, 
                  2]; $CellContext`x2$ = Part[$CellContext`ptsLoc$$, 
                  Part[$CellContext`dynkin$$, $CellContext`k$, 1, 2], 1, 
                  1]; $CellContext`y2$ = Part[$CellContext`ptsLoc$$, 
                  Part[$CellContext`dynkin$$, $CellContext`k$, 1, 2], 1, 
                  2]; $CellContext`angX$ = 
                VectorAngle[{$CellContext`x2$, $CellContext`y2$} - \
{$CellContext`x1$, $CellContext`y1$}, {1, 0}]; $CellContext`angY$ = 
                VectorAngle[{$CellContext`x2$, $CellContext`y2$} - \
{$CellContext`x1$, $CellContext`y1$}, {0, 
                  1}]; $CellContext`newDelta$ = $CellContext`delta$ If[
                   Or[$CellContext`angX$ == Pi/4, $CellContext`angX$ == 
                    3 (Pi/4)], {0, (3/2) Cos[$CellContext`angX$]}, {
                    Sin[$CellContext`angX$], 
                    
                    Cos[$CellContext`angX$]}]; $CellContext`theLine$ = \
{{$CellContext`x1$ + If[
                    Or[$CellContext`angX$ == 0, $CellContext`angX$ == Pi/4], 
                    1/$CellContext`rangeInc - Abs[
                    Part[$CellContext`newDelta$, 2]], 
                    If[
                    
                    Or[$CellContext`angX$ == Pi, $CellContext`angX$ == 
                    3 (Pi/4)], (-1)/$CellContext`rangeInc + Abs[
                    Part[$CellContext`newDelta$, 2]], 0]], $CellContext`y1$ + 
                    If[
                    Or[
                    
                    And[$CellContext`angX$ == Pi/2, $CellContext`angY$ != 
                    Pi], $CellContext`angX$ == $CellContext`angY$ == Pi/4, 
                    
                    And[$CellContext`angX$ == 3 (Pi/4), $CellContext`angY$ == 
                    Pi/4]], 1/$CellContext`rangeInc - Abs[
                    Part[$CellContext`newDelta$, 2]], 
                    If[
                    
                    Or[$CellContext`angY$ == Pi, $CellContext`angX$ == 
                    Pi/4, $CellContext`angX$ == 
                    3 (Pi/4)], (-1)/$CellContext`rangeInc + Abs[
                    Part[$CellContext`newDelta$, 2]], 
                    0]]} + $CellContext`newDelta$, {$CellContext`x2$ - If[
                    Or[$CellContext`angX$ == 0, $CellContext`angX$ == Pi/4], 
                    1/$CellContext`rangeInc - Abs[
                    Part[$CellContext`newDelta$, 2]], 
                    If[
                    
                    Or[$CellContext`angX$ == Pi, $CellContext`angX$ == 
                    3 (Pi/4)], (-1)/$CellContext`rangeInc + Abs[
                    Part[$CellContext`newDelta$, 2]], 0]], $CellContext`y2$ - 
                    If[
                    Or[
                    
                    And[$CellContext`angX$ == Pi/2, $CellContext`angY$ != 
                    Pi], $CellContext`angX$ == $CellContext`angY$ == Pi/4, 
                    
                    And[$CellContext`angX$ == 3 (Pi/4), $CellContext`angY$ == 
                    Pi/4]], 1/$CellContext`rangeInc - Abs[
                    Part[$CellContext`newDelta$, 2]], 
                    If[
                    
                    Or[$CellContext`angY$ == Pi, $CellContext`angX$ == 
                    Pi/4, $CellContext`angX$ == 
                    3 (Pi/4)], (-1)/$CellContext`rangeInc + Abs[
                    Part[$CellContext`newDelta$, 2]], 
                    0]]} + $CellContext`newDelta$}; $CellContext`theArrow$ = \
$CellContext`arrow[$CellContext`rangeInc {{$CellContext`x1$ + If[
                    Or[$CellContext`angX$ == 0, $CellContext`angX$ == Pi/4], 
                    Norm[{$CellContext`x2$ - $CellContext`x1$}]/2, 
                    If[
                    
                    Or[$CellContext`angX$ == Pi, $CellContext`angX$ == 
                    3 (Pi/4)], -Norm[{$CellContext`x2$ - $CellContext`x1$}]/2,
                     0]], $CellContext`y1$ + If[
                    Or[
                    
                    And[$CellContext`angX$ == Pi/2, $CellContext`angY$ != 
                    Pi], $CellContext`angX$ == $CellContext`angY$ == Pi/4, 
                    
                    And[$CellContext`angX$ == 3 (Pi/4), $CellContext`angY$ == 
                    Pi/4]], Norm[{$CellContext`y2$ - $CellContext`y1$}]/2, 
                    If[
                    
                    Or[$CellContext`angY$ == Pi, $CellContext`angX$ == 
                    Pi/4, $CellContext`angX$ == 3 (Pi/4)], -
                    Norm[{$CellContext`y2$ - $CellContext`y1$}]/2, 
                    0]]}, {$CellContext`x2$, $CellContext`y2$}}, \
$CellContext`rangeInc/$CellContext`viewerScale]; {$CellContext`theLine$, \
$CellContext`theArrow$}]; $CellContext`doDDpane[
               Pattern[$CellContext`j$, 
                Blank[]], 
               Pattern[$CellContext`rank$, 
                Blank[]], 
               Pattern[$CellContext`alg1$, 
                Blank[]], 
               Pattern[$CellContext`perm1$, 
                Blank[]]] := 
             Module[{$CellContext`delta$, $CellContext`theLine$, \
$CellContext`theArrow$, $CellContext`p$}, {
                Text[
                 Style[
                  Row[{
                    
                    StringJoin[$CellContext`alg$$, 
                    " ", $CellContext`perm1$]}], Medium, 
                  Bold], $CellContext`rangeInc (
                  Part[$CellContext`ptsLoc$$, 1, 1] + {$CellContext`rank$/
                    If[$CellContext`affine$$ > 0, 4, 2], (-3)/4})], 
                Map[{{
                   EdgeForm[{Thick, 
                    $CellContext`getColor[#]}], 
                   If[# > $CellContext`rank$ - $CellContext`affine$$, Black, 
                    If[Part[$CellContext`ptsLoc$$, #, 2] == 1, 
                    $CellContext`getColor[#], White]], 
                   
                   Disk[$CellContext`rangeInc 
                    Part[$CellContext`ptsLoc$$, #, 1]]}, 
                  If[
                   Not[$CellContext`showPtext$$], 
                   Text[
                    Style[
                    ToString[# + 0], Small, Bold], $CellContext`rangeInc 
                    Part[$CellContext`ptsLoc$$, #, 1]], {
                    Text[
                    Style[
                    ToString[# + 0], Small, Bold], $CellContext`rangeInc 
                    Part[$CellContext`ptsLoc$$, #, 1]], 
                    Text[
                    Style[
                    $CellContext`pLbl[$CellContext`p$ = \
$CellContext`position[$CellContext`algebra, 
                    ReplacePart[
                    Array[0& , 8], {# -> 1}]]], Small, 
                    Bold], $CellContext`rangeInc ({1, 1}/2 + 
                    Part[$CellContext`ptsLoc$$, #, 1])], 
                    Text[
                    Style[
                    StringJoin["3bit=", 
                    ToString[
                    FromDigits[{
                    $CellContext`extBit[$CellContext`p$, 
                    Part[$CellContext`bitOrd, 
                    Part[$CellContext`bitPerm, $CellContext`bP, 1]], 0], 
                    $CellContext`extBit[$CellContext`p$, 
                    Part[$CellContext`bitOrd, 
                    Part[$CellContext`bitPerm, $CellContext`bP, 2]], 0], 
                    $CellContext`extBit[$CellContext`p$, 
                    Part[$CellContext`bitOrd, 
                    Part[$CellContext`bitPerm, $CellContext`bP, 3]], 0]}, 
                    2]]], Red, Small, 
                    Bold], $CellContext`rangeInc ({1/2, -1}/3 + 
                    Part[$CellContext`ptsLoc$$, #, 1])]}]}& , 
                 Range[
                  Length[$CellContext`ptsLoc$$]]], 
                Map[{
                  Table[$CellContext`delta$ = If[
                    OddQ[$CellContext`i], Subtract, Plus][
                    1/$CellContext`rangeInc, 
                    If[
                    Or[
                    Part[$CellContext`dynkin$$, #, 2] == 2, 
                    Part[$CellContext`dynkin$$, #, 2] == 5], 
                    If[$CellContext`i > 2, 1, -1], $CellContext`i/
                    4]]/$CellContext`rangeInc; {$CellContext`theLine$, \
$CellContext`theArrow$} = $CellContext`doLine[#, $CellContext`delta$]; 
                   If[$CellContext`i == Part[$CellContext`dynkin$$, #, 2], 
                    Tooltip[{{
                    EdgeForm[Thick], 
                    $CellContext`getColor[#], 
                    Line[$CellContext`rangeInc $CellContext`theLine$]}}, 
                    Text[
                    Style[
                    ToString[{
                    Part[$CellContext`dynkin$$, #, 1, 1], 
                    Part[$CellContext`dynkin$$, #, 1, 2]} + 0], Medium, 
                    Bold]]], {
                    EdgeForm[Thick], 
                    $CellContext`getColor[#], 
                    
                    Line[$CellContext`rangeInc $CellContext`theLine$]}], \
{$CellContext`i, 
                    Part[$CellContext`dynkin$$, #, 2]}], 
                  If[
                   
                   Or[$CellContext`alg1$ == "H", 
                    Part[$CellContext`dynkin$$, #, 2] == 1, 
                    Part[$CellContext`dynkin$$, #, 2] == 5], {
                    PointSize[0], 
                    Opacity[1], White, 
                    Point[{0, 0}]}, $CellContext`theArrow$]}& , 
                 Range[
                  Length[$CellContext`dynkin$$]]]}]; $CellContext`getPerm := 
             FromDigits[
               Reverse[
                Part[$CellContext`ptsLoc$$, All, 2]], 
               2]; $CellContext`lineCounts := Map[Length[
                Position[
                 Flatten[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[0], 1]], #]]& , 
               Union[
                Flatten[
                 Part[$CellContext`dynkin$$, 
                  $CellContext`dynkRange[0], 1]]]]; $CellContext`one3Line := 
             And[Count[$CellContext`lineCounts, 3] == 1, 
               Count[$CellContext`lineCounts, 1] == 3, 
               Max[$CellContext`lineCounts] == 3]; $CellContext`patternA := 
             And[
               Or[
                $CellContext`single[
                0], $CellContext`rank$$ - $CellContext`affine$$ == 1], 
               Or[
                $CellContext`linear[
                0], $CellContext`rank$$ - $CellContext`affine$$ < 
                4]]; $CellContext`patternB := And[
               $CellContext`linear[0], 
               $CellContext`single[-1], Part[
                 Last[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[0]]], 2] == 
               2]; $CellContext`patternC := 
             And[$CellContext`rank$$ - $CellContext`affine$$ > 2, 
               $CellContext`linear[0], 
               $CellContext`single[1], Part[
                 First[$CellContext`dynkin$$], 2] == 
               2]; $CellContext`patternD := And[
               $CellContext`single[0], $CellContext`one3Line, 
               Or[Last[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[-1], 1, 1]] == Last[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[0], 1, 1]], Part[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[0], 1, 1], 2] == Last[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[0], 1, 1]]]]; $CellContext`patternE := 
             And[
               $CellContext`single[
               0], $CellContext`one3Line, $CellContext`rank$$ - \
$CellContext`affine$$ > 5, 
               Or[Last[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[-2], 1, 1]] == Last[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[0], 1, 1]], Part[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[0], 1, 1], 3] == Last[
                  Part[$CellContext`dynkin$$, 
                   $CellContext`dynkRange[0], 1, 1]]]]; $CellContext`patternF := 
             And[
               $CellContext`linear[
               0], $CellContext`rank$$ - $CellContext`affine$$ == 4, 
               Part[$CellContext`dynkin$$, 1, 2] == 1, 
               Part[$CellContext`dynkin$$, 2, 2] == 2, 
               Part[$CellContext`dynkin$$, 3, 2] == 1]; $CellContext`patternG := 
             And[$CellContext`rank$$ - $CellContext`affine$$ == 2, 
               Part[$CellContext`dynkin$$, 1, 2] == 3]; $CellContext`patternH := 
             And[
               
               Or[$CellContext`rank$$ - $CellContext`affine$$ == 
                3, $CellContext`rank$$ - $CellContext`affine$$ == 4], 
               $CellContext`linear[0], 
               $CellContext`single[-1], Part[
                 Last[$CellContext`dynkin$$], 2] == 
               3]; $CellContext`patternCube := And[
               $CellContext`linear[0], 
               $CellContext`single[1], Part[
                 First[$CellContext`dynkin$$], 2] == 
               5]; $CellContext`setNodes := 
             If[Length[$CellContext`ptsLoc$$] > 1, 
               Part[$CellContext`dynkTbl$$, 
                 Length[$CellContext`dynkTbl$$], 1, All, 2] = (
                Part[$CellContext`ptsLoc$$, All, 2] = Reverse[
                  IntegerDigits[$CellContext`selDynkin$$, 2, 
                   Length[$CellContext`ptsLoc$$]]])]; $CellContext`clickEval := 
             
             Module[{$CellContext`incNode$, $CellContext`incLine$, \
$CellContext`closeLoop$, $CellContext`checkNearNode$, $CellContext`ptsNear$, \
$CellContext`nrm$, $CellContext`ptPos$}, $CellContext`incNode$[
                  Pattern[$CellContext`ptPos$, 
                   Blank[]]] := (Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 1, $CellContext`ptPos$, 
                    2] = (Part[$CellContext`ptsLoc$$, $CellContext`ptPos$, 2] = 
                   Mod[Part[$CellContext`ptsLoc$$, $CellContext`ptPos$, 2] + 
                    1, 2]); $CellContext`setPerm[$CellContext`rank$$]); \
$CellContext`incLine$[
                  Pattern[$CellContext`ptsNear$, 
                   Blank[]], 
                  Pattern[$CellContext`ptPos$, 
                   Blank[]]] := 
                Module[{$CellContext`dynkPos$, $CellContext`curDynk$}, \
$CellContext`dynkPos$ = $CellContext`getLineNear[$CellContext`ptsNear$, \
$CellContext`ptPos$]; $CellContext`curDynk$ = 
                   Part[$CellContext`dynkin$$, $CellContext`dynkPos$, 2]; 
                  Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 2, $CellContext`dynkPos$, 
                    2] = (Part[$CellContext`dynkin$$, $CellContext`dynkPos$, 
                    2] = If[$CellContext`curDynk$ == 5, 1, 
                    
                    PreIncrement[$CellContext`curDynk$]])]; \
$CellContext`closeLoop$[
                  Pattern[$CellContext`ptNear$, 
                   Blank[]], 
                  Pattern[$CellContext`ptPos$, 
                   Blank[]]] := ($CellContext`affineTrk$$ = 1; 
                 Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 1, $CellContext`ptPos$, 
                    2] = 0; $CellContext`addLine[{
                    $CellContext`getNodeNear[$CellContext`ptNear$], \
$CellContext`ptPos$}]); $CellContext`checkNearNode$[
                  Pattern[$CellContext`ptNear$, 
                   Blank[]], 
                  Pattern[$CellContext`ptPos$, 
                   Blank[]]] := If[
                  Not[
                   NumericQ[
                    Part[$CellContext`ptNear$, 1]]], False, 
                  And[
                  0 < Norm[
                    Part[$CellContext`ptsLoc$$, $CellContext`ptPos$, 
                    1] - $CellContext`ptNear$] < 2, 
                   Not[
                    MemberQ[
                    Part[$CellContext`dynkin$$, All, 1], {$CellContext`ptPos$, 
                    $CellContext`getNodeNear[$CellContext`ptNear$]}]], 
                   Not[
                    MemberQ[
                    Part[$CellContext`dynkin$$, All, 1], {
                    $CellContext`getNodeNear[$CellContext`ptNear$], \
$CellContext`ptPos$}]]]]; $CellContext`ptsNear$ = Nearest[
                  Part[$CellContext`ptsLoc$$, All, 1], $CellContext`ptDD$$, 
                  4]; $CellContext`nrm$ = 
                Norm[$CellContext`ptDD$$ - 
                  Part[$CellContext`ptsNear$, 
                   1]]; $CellContext`ptPos$ = $CellContext`getNodeNear[
                  Part[$CellContext`ptsNear$, 1]]; If[
                 Or[$CellContext`nrm$ < 1/$CellContext`rangeInc, 
                  And[$CellContext`nrm$ <= 1/Sqrt[2], 
                   
                   If[$CellContext`rank$$ > 1, 
                    Norm[$CellContext`ptDD$$ - 
                    Part[$CellContext`ptsNear$, 2]] - $CellContext`nrm$ > 
                    1/Sqrt[2], True]]], 
                 If[
                  And[Part[$CellContext`dynkTbl$$, 
                    Length[$CellContext`dynkTbl$$], 1, $CellContext`ptPos$, 
                    2] == 1, Length[$CellContext`dynkin$$] > 1], 
                  If[
                   $CellContext`checkNearNode$[
                    Part[$CellContext`ptsNear$, 2], $CellContext`ptPos$], 
                   $CellContext`closeLoop$[
                    Part[$CellContext`ptsNear$, 2], $CellContext`ptPos$], 
                   If[
                    $CellContext`checkNearNode$[
                    Part[$CellContext`ptsNear$, 3], $CellContext`ptPos$], 
                    $CellContext`closeLoop$[
                    Part[$CellContext`ptsNear$, 3], $CellContext`ptPos$], 
                    If[Length[$CellContext`dynkin$$] > 2, 
                    If[
                    $CellContext`checkNearNode$[
                    Part[$CellContext`ptsNear$, 4], $CellContext`ptPos$], 
                    $CellContext`closeLoop$[
                    Part[$CellContext`ptsNear$, 4], $CellContext`ptPos$], 
                    $CellContext`incNode$[$CellContext`ptPos$]], 
                    $CellContext`incNode$[$CellContext`ptPos$]]]], 
                  $CellContext`incNode$[$CellContext`ptPos$]], 
                 If[
                  
                  And[$CellContext`nrm$ <= 1/Sqrt[2], 
                   Norm[$CellContext`ptDD$$ - 
                    Part[$CellContext`ptsNear$, 2]] - $CellContext`nrm$ <= 
                   1/Sqrt[2]], 
                  $CellContext`incLine$[$CellContext`ptsNear$, \
$CellContext`ptPos$], 
                  If[$CellContext`nrm$ <= 3/2, 
                   $CellContext`addNode[$CellContext`ptPos$], 
                   If[$CellContext`nrm$ > 3/2, $CellContext`ptsLoc$$ = {{
                    Round[$CellContext`ptDD$$], 
                    1}}; $CellContext`dynkin$$ = {}; 
                    AppendTo[$CellContext`dynkTbl$$, {$CellContext`ptsLoc$$, \
$CellContext`dynkin$$, $CellContext`affine$$ = ($CellContext`affineTrk$$ = 
                    0)}]; $CellContext`selDynkin$$ = 
                    1]]]]; $CellContext`rank$$ = 
                Length[$CellContext`ptsLoc$$]]; $CellContext`setPerm[
               Pattern[$CellContext`rank$, 
                Blank[]]] := 
             Module[{$CellContext`i$}, $CellContext`selDynkin$$ = 
               If[($CellContext`i$ = $CellContext`getPerm) == 
                 0, $CellContext`rank$^2, $CellContext`i$]]; \
$CellContext`permname := ($CellContext`perm = \
$CellContext`setName[$CellContext`getPerm, $CellContext`rank$$]; 
              If[$CellContext`permTrk$$ != $CellContext`perm, If[
                  
                  NumericQ[$CellContext`rectification$$ = \
$CellContext`position[
                    Select[
                    Part[$CellContext`dynkNames, All, 2], StringMatchQ[#, 
                    StringExpression[
                    BlankNullSequence[], 
                    "Rectified"]]& ], $CellContext`perm]], \
$CellContext`refresh$$ = True, $CellContext`rectification$$ = 
                  0]; $CellContext`permTrk$$ = $CellContext`perm]; \
$CellContext`perm); $CellContext`cartan := 
             Module[{$CellContext`cm$ = 
                2 IdentityMatrix[$CellContext`rank$$]}, 
               Map[($CellContext`cm$ = ReplacePart[
                   ReplacePart[$CellContext`cm$, Reverse[
                    Part[#, 1]] -> If[Part[#, 2] == 5, -2, -Part[#, 2]]], 
                   Part[#, 1] -> 
                   If[Part[#, 2] == 
                    5, -2, -1]])& , $CellContext`dynkin$$]; $CellContext`cm$]; \
$CellContext`initDD := ($CellContext`selDynkinTrk$$ = \
($CellContext`selDynkin$$ = 1); $CellContext`dynkTbl$$ = 
               Part[$CellContext`dynkList, 
                 $CellContext`position[$CellContext`subGroups, 
                  
                  ToLowerCase[$CellContext`selAlgebra$$]]]; \
{$CellContext`ptsLoc$$, $CellContext`dynkin$$, $CellContext`affine$$} = 
               First[$CellContext`dynkTbl$$]; $CellContext`affineTrk$$ = \
$CellContext`affine$$; $CellContext`rank$$ = 
               Length[$CellContext`ptsLoc$$]); $CellContext`initDynk := \
($CellContext`algTrk$$ = "A1"; $CellContext`permTrk$$ = 
               "Parent"; $CellContext`ptDDTrk$$ = ($CellContext`ptDD$$ = {0, 
                 0}); $CellContext`selAlgebraTrk$$ = \
($CellContext`selAlgebra$$ = First[
                  ToUpperCase[$CellContext`subGroups]]); $CellContext`initDD); 
            If[$CellContext`init$$, $CellContext`initDynk; \
$CellContext`init$$ = False]; 
            If[$CellContext`ptDDTrk$$ != $CellContext`ptDD$$, \
$CellContext`clickEval; $CellContext`ptDDTrk$$ = $CellContext`ptDD$$]; 
            If[$CellContext`selAlgebraTrk$$ != $CellContext`selAlgebra$$, \
$CellContext`initDD; $CellContext`selAlgebraTrk$$ = \
$CellContext`selAlgebra$$]; 
            If[$CellContext`selDynkinTrk$$ != $CellContext`selDynkin$$, \
$CellContext`setNodes; $CellContext`selDynkinTrk$$ = \
$CellContext`selDynkin$$]; Framed[
              ClickPane[
               Dynamic[
                Graphics[{
                  
                  Table[{$CellContext`ptsLoc$$, $CellContext`dynkin$$, \
$CellContext`affine$$} = Part[$CellContext`dynkTbl$$, $CellContext`j]; 
                   If[$CellContext`j == Length[$CellContext`dynkTbl$$], 
                    Part[$CellContext`dynkTbl$$, $CellContext`j, 
                    3] = $CellContext`affineTrk$$; $CellContext`permName$$ = \
$CellContext`permname]; $CellContext`rank$$ = 
                    Length[$CellContext`ptsLoc$$]; \
$CellContext`doAlg[$CellContext`alg1$$ = 
                    Which[$CellContext`patternG, "G", $CellContext`patternF, 
                    "F", $CellContext`patternA, "A", $CellContext`patternCube,
                     "CUBE", $CellContext`patternH, 
                    "H", $CellContext`patternE, "E", $CellContext`patternD, 
                    "D", $CellContext`patternC, "C", $CellContext`patternB, 
                    "B", True, "?"]]; 
                   If[$CellContext`algTrk$$ != $CellContext`alg$$, \
$CellContext`algTrk$$ = ($CellContext`lie$$ = $CellContext`alg$$)]; \
$CellContext`doDDpane[$CellContext`j, $CellContext`rank$$, \
$CellContext`alg1$$, 
                    $CellContext`setName[$CellContext`getPerm, \
$CellContext`rank$$]], {$CellContext`j, 
                    Length[$CellContext`dynkTbl$$]}], 
                  Text[
                   Style[
                    Column[{"Cartan Matrix:", $CellContext`cartan, 
                    Row[{"Group: ", $CellContext`group$$}]}], 
                    If[$CellContext`rank$$ > 11, Tiny, 
                    If[$CellContext`rank$$ > 8, Small, Medium]], Bold], 
                   
                   If[$CellContext`rank$$ < 
                    16, {(3.25 + 1/$CellContext`rank$$) $CellContext`xR, (
                    33.75 + 1/$CellContext`rank$$) $CellContext`yR}, {
                    5 $CellContext`xR, 30 $CellContext`yR}]]}, 
                 ImageSize -> {$CellContext`xR $CellContext`viewerScale, \
$CellContext`yR $CellContext`viewerScale}, 
                 GridLines -> {$CellContext`rangeInc (
                    Range[1 + $CellContext`maxRangeX/$CellContext`rangeInc] - 
                    1), $CellContext`rangeInc (
                    Range[1 + $CellContext`maxRangeY/$CellContext`rangeInc] - 
                    1)}, AspectRatio -> $CellContext`yR/$CellContext`xR, 
                 GridLinesStyle -> Directive[Orange, Dashed, 
                   Opacity[1/8]], 
                 PlotRange -> {{1, $CellContext`maxRangeX}, {
                   1, $CellContext`maxRangeY}}]], ($CellContext`ptDD$$ = \
#/$CellContext`rangeInc)& ], Background -> 
              None]]], $CellContext`localDynkin = {$CellContext`setName, \
$CellContext`setPerm, $CellContext`doAlg, $CellContext`dynkRange, \
$CellContext`single, $CellContext`linear, $CellContext`arrow, \
$CellContext`getNodeNear, $CellContext`getLineNear, $CellContext`addNode, \
$CellContext`addLine, $CellContext`doLine, $CellContext`doDDpane, \
$CellContext`permname, $CellContext`getPerm, $CellContext`lineCounts, \
$CellContext`one3Line, $CellContext`patternA, $CellContext`patternB, \
$CellContext`patternC, $CellContext`patternD, $CellContext`patternE, \
$CellContext`patternF, $CellContext`patternG, $CellContext`patternH, \
$CellContext`patternCube, $CellContext`setNodes, $CellContext`clickEval, \
$CellContext`cartan, $CellContext`initDD, $CellContext`initDynk}, \
$CellContext`rank$$ = 
         8, $CellContext`dynkNames = {{1, "Parent"}, {2, "Rectified"}, {
           3, "Truncated"}, {4, "BiRectified"}, {5, "Cantellated"}, {
           6, "BiTruncated"}, {7, "CantiTruncated"}, {8, "TriRectified"}, {
           9, "Runcinated"}, {10, "BiCantellated"}, {11, "RunceTruncated"}, {
           12, "TriTruncated"}, {13, "CantiRuncinated"}, {
           14, "BiCantiTruncated"}, {15, "RunceCantiTruncated"}, {
           16, "QuadriRectified"}, {17, "Stericated"}, {18, "BiRuncinated"}, {
           19, "StereTruncated"}, {20, "TriCantellated"}, {
           21, "RunceCantellated"}, {22, "BiRunceTruncated"}, {
           23, "StereCantellated"}, {24, "QuadriTruncated"}, {
           25, "RunceCantiCantellated"}, {26, "BiCantiRuncinated"}, {
           27, "StereCantiCantellated"}, {28, "TriCantiTruncated"}, {
           29, "RunciCantiStericated"}, {30, "BiRunceCantiTruncated"}, {
           31, "SteriRunciCantiTruncated"}, {32, "QuintiRectified"}, {
           33, "Pentellated"}, {34, "BiStericated"}, {35, "PenteTruncated"}, {
           36, "TriRuncinated"}, {37, "CantiPentellated"}, {
           38, "BiStereTruncated"}, {39, "RunceSteriRunciCantiTruncated"}, {
           40, "QuadriCantellated"}, {41, "RunceRuncinated"}, {
           42, "BiRunceCantellated"}, {43, "UnCalculated"}, {
           44, "TriRunceTruncated"}, {45, "StereRuncinated"}, {
           46, "BiStereCantellated"}, {47, "PenteRuncinated"}, {
           48, "QuintiTruncated"}, {49, "StereCantiRuncinated"}, {
           50, "BiRunceCantiCantellated"}, {51, "PenteCantiRuncinated"}, {
           52, "TriCantiRuncinated"}, {53, "RunceRunciCantiRuncinated"}, {
           54, "BiStereCantiCantellated"}, {55, "UnCalculated"}, {
           56, "QuadriCantiTruncated"}, {57, "StereRunciCantiRuncinated"}, {
           58, "BiRunciCantiStericated"}, {59, "PenteRunciCantiRuncinated"}, {
           60, "TriRunceCantiTruncated"}, {
           61, "SteriRunciCantiPentellated"}, {
           62, "BiSteriRunciCantiTruncated"}, {
           63, "PentiSteriRunciCantiTruncated"}, {64, "HexaRectified"}, {
           65, "Hexicated"}, {66, "BiPentellated"}, {67, "HexeTruncated"}, {
           68, "TriStericated"}, {69, "CantiHexicated"}, {
           70, "BiPenteTruncated"}, {
           71, "RuncePentiSteriRunciCantiTruncated"}, {
           72, "QuadriRuncinated"}, {73, "StereSteriRunciCantiRuncinated"}, {
           74, "BiCantiPentellated"}, {
           75, "PenteSteriRunciCantiRuncinated"}, {76, "TriStereTruncated"}, {
           77, "RunciCantiHexicated"}, {
           78, "BiRunceSteriRunciCantiTruncated"}, {79, "UnCalculated"}, {
           80, "QuintiCantellated"}, {81, "RunceStericated"}, {
           82, "BiRunceRuncinated"}, {
           83, "SterePentiSteriRunciCantiCantellated"}, {
           84, "TriRunceCantellated"}, {85, "RunceCantiStericated"}, {
           86, "UnCalculated"}, {87, "UnCalculated"}, {
           88, "QuadriRunceTruncated"}, {89, "StereStericated"}, {
           90, "BiStereRuncinated"}, {91, "UnCalculated"}, {
           92, "TriStereCantellated"}, {93, "PenteStericated"}, {
           94, "BiPenteRuncinated"}, {95, "HexeStericated"}, {
           96, "HexaTruncated"}, {97, "PenteCantiStericated"}, {
           98, "BiStereCantiRuncinated"}, {99, "HexeCantiStericated"}, {
           100, "TriRunceCantiCantellated"}, {
           101, "StereRunciCantiStericated"}, {
           102, "BiPenteCantiRuncinated"}, {103, "UnCalculated"}, {
           104, "QuadriCantiRuncinated"}, {
           105, "PenteRunciCantiStericated"}, {
           106, "BiRunceRunciCantiRuncinated"}, {
           107, "HexeRunciCantiStericated"}, {
           108, "TriStereCantiCantellated"}, {
           109, "RunceSteriRunciCantiStericated"}, {110, "UnCalculated"}, {
           111, "UnCalculated"}, {112, "QuintiCantiTruncated"}, {
           113, "UnCalculated"}, {114, "BiStereRunciCantiRuncinated"}, {
           115, "UnCalculated"}, {116, "TriRunciCantiStericated"}, {
           117, "StereSteriRunciCantiStericated"}, {
           118, "BiPenteRunciCantiRuncinated"}, {119, "UnCalculated"}, {
           120, "QuadriRunceCantiTruncated"}, {
           121, "PenteSteriRunciCantiStericated"}, {
           122, "BiSteriRunciCantiPentellated"}, {
           123, "HexeSteriRunciCantiStericated"}, {
           124, "TriSteriRunciCantiTruncated"}, {
           125, "PentiSteriRunciCantiHexicated"}, {
           126, "BiPentiSteriRunciCantiTruncated"}, {
           127, "HexiPentiSteriRunciCantiTruncated"}, {
           128, "HeptaRectified"}, {129, "CantePentellated"}, {
           130, "BiHexicated"}, {131, "HepteTruncated"}, {
           132, "TriPentellated"}, {133, "CanteCantiPentellated"}, {
           134, "BiHexeTruncated"}, {
           135, "RunceHexiPentiSteriRunciCantiTruncated"}, {
           136, "QuadriStericated"}, {137, "UnCalculated"}, {
           138, "BiCantiHexicated"}, {139, "UnCalculated"}, {
           140, "TriPenteTruncated"}, {141, "CanteRunciCantiPentellated"}, {
           142, "BiRuncePentiSteriRunciCantiTruncated"}, {
           143, "UnCalculated"}, {144, "QuintiRuncinated"}, {
           145, "RunceHexiPentiSteriRunciCantiCantellated"}, {
           146, "BiStereSteriRunciCantiRuncinated"}, {
           147, "StereHexiPentiSteriRunciCantiCantellated"}, {
           148, "TriCantiPentellated"}, {
           149, "SterePentiSteriRunciCantiStericated"}, {
           150, "BiPenteSteriRunciCantiRuncinated"}, {151, "UnCalculated"}, {
           152, "QuadriStereTruncated"}, {
           153, "PentePentiSteriRunciCantiStericated"}, {
           154, "BiRunciCantiHexicated"}, {
           155, "HexePentiSteriRunciCantiStericated"}, {
           156, "TriRunceSteriRunciCantiTruncated"}, {
           157, "CanteSteriRunciCantiPentellated"}, {158, "UnCalculated"}, {
           159, "UnCalculated"}, {160, "HexaCantellated"}, {
           161, "RuncePentellated"}, {162, "BiRunceStericated"}, {
           163, "UnCalculated"}, {164, "TriRunceRuncinated"}, {
           165, "RunceCantiPentellated"}, {
           166, "BiSterePentiSteriRunciCantiCantellated"}, {
           167, "UnCalculated"}, {168, "QuadriRunceCantellated"}, {
           169, "StereHexiPentiSteriRunciCantiRuncinated"}, {
           170, "BiRunceCantiStericated"}, {
           171, "PenteHexiPentiSteriRunciCantiRuncinated"}, {
           172, "HexeHexiPentiSteriRunciCantiRuncinated"}, {
           173, "RunceRunciCantiPentellated"}, {174, "UnCalculated"}, {
           175, "UnCalculated"}, {176, "QuintiRunceTruncated"}, {
           177, "SterePentellated"}, {178, "BiStereStericated"}, {
           179, "UnCalculated"}, {180, "TriStereRuncinated"}, {
           181, "StereCantiPentellated"}, {182, "UnCalculated"}, {
           183, "UnCalculated"}, {184, "QuadriStereCantellated"}, {
           185, "PentePentellated"}, {186, "BiPenteStericated"}, {
           187, "UnCalculated"}, {188, "TriPenteRuncinated"}, {
           189, "HexePentellated"}, {190, "BiHexeStericated"}, {
           191, "HeptePentellated"}, {192, "HeptaTruncated"}, {
           193, "HexeCantiPentellated"}, {194, "BiPenteCantiStericated"}, {
           195, "HepteCantiPentellated"}, {196, "TriStereCantiRuncinated"}, {
           197, "PenteRunciCantiPentellated"}, {
           198, "BiHexeCantiStericated"}, {199, "UnCalculated"}, {
           200, "QuadriRunceCantiCantellated"}, {
           201, "HexeRunciCantiPentellated"}, {
           202, "BiStereRunciCantiStericated"}, {
           203, "HepteRunciCantiPentellated"}, {
           204, "TriPenteCantiRuncinated"}, {
           205, "StereSteriRunciCantiPentellated"}, {206, "UnCalculated"}, {
           207, "UnCalculated"}, {208, "QuintiCantiRuncinated"}, {
           209, "UnCalculated"}, {210, "BiPenteRunciCantiStericated"}, {
           211, "UnCalculated"}, {212, "TriRunceRunciCantiRuncinated"}, {
           213, "PenteSteriRunciCantiPentellated"}, {
           214, "BiHexeRunciCantiStericated"}, {215, "UnCalculated"}, {
           216, "QuadriStereCantiCantellated"}, {
           217, "HexeSteriRunciCantiPentellated"}, {
           218, "BiRunceSteriRunciCantiStericated"}, {
           219, "HepteSteriRunciCantiPentellated"}, {
           220, "HepteHexiPentiSteriRunciCantiStericated"}, {
           221, "RuncePentiSteriRunciCantiPentellated"}, {
           222, "UnCalculated"}, {223, "UnCalculated"}, {
           224, "HexaCantiTruncated"}, {225, "UnCalculated"}, {
           226, "UnCalculated"}, {227, "UnCalculated"}, {
           228, "TriStereRunciCantiRuncinated"}, {229, "UnCalculated"}, {
           230, "UnCalculated"}, {231, "UnCalculated"}, {
           232, "QuadriRunciCantiStericated"}, {233, "UnCalculated"}, {
           234, "BiStereSteriRunciCantiStericated"}, {235, "UnCalculated"}, {
           236, "TriPenteRunciCantiRuncinated"}, {
           237, "SterePentiSteriRunciCantiPentellated"}, {
           238, "UnCalculated"}, {239, "UnCalculated"}, {
           240, "QuintiRunceCantiTruncated"}, {241, "UnCalculated"}, {
           242, "BiPenteSteriRunciCantiStericated"}, {243, "UnCalculated"}, {
           244, "TriSteriRunciCantiPentellated"}, {
           245, "PentePentiSteriRunciCantiPentellated"}, {
           246, "BiHexeSteriRunciCantiStericated"}, {247, "UnCalculated"}, {
           248, "QuadriSteriRunciCantiTruncated"}, {
           249, "HexePentiSteriRunciCantiPentellated"}, {
           250, "BiPentiSteriRunciCantiHexicated"}, {
           251, "HeptePentiSteriRunciCantiPentellated"}, {
           252, "TriPentiSteriRunciCantiTruncated"}, {
           253, "CanteHexiPentiSteriRunciCantiPentellated"}, {
           254, "BiHexiPentiSteriRunciCantiTruncated"}, {
           255, "OmniTruncated"}, {256, "Snub"}}, $CellContext`x1 = 
         28352, $CellContext`getColor[
           Pattern[$CellContext`grad, 
            Blank[]], 
           Pattern[$CellContext`i, 
            Blank[]]] := $CellContext`pColor[$CellContext`grad, 
           Part[$CellContext`colorList, Mod[$CellContext`i - 1, 
              Length[$CellContext`cList]] + 1], 
           
           Part[$CellContext`shadeList, Length[$CellContext`shadeList] + 1 - 
            Floor[Mod[$CellContext`i + Length[$CellContext`cList] - 1, 
                Length[$CellContext`newColors]]/Length[$CellContext`cList] + 
             1]]], $CellContext`getColor[
           Pattern[$CellContext`i$, 
            
            Blank[]]] := $CellContext`getColor[$CellContext`pGrad$$, \
$CellContext`i$], $CellContext`cList = {
          "RGBColor[1, 1, 0]", "RGBColor[1, 0.5, 0]", "RGBColor[0, 1, 1]", 
           "RGBColor[1, 0, 1]", "GrayLevel[0.5]", "RGBColor[1, 0, 0]", 
           "RGBColor[0, 1, 0]", 
           "RGBColor[0, 0, 1]"}, $CellContext`algebra = {{-3, -3, -5, -4, -3, \
-2, -1, -1}, {(-1)/2, (-1)/2, 0, 0, 0, 0, 0, 0}, {(-7)/2, (-5)/
            2, -5, -4, -3, -2, -1, -2}, {(-1)/2, (-1)/2, -1, -1, -1, -1, -1, 
            0}, {(-1)/2, (-1)/2, -1, -1, -1, -1, 0, 0}, {(-1)/2, (-1)/
            2, -1, -1, -1, 0, 0, 0}, {(-1)/2, (-1)/2, -1, -1, 0, 0, 0, 0}, {
           1/2, (-1)/2, 0, 0, 0, 0, 0, 0}, {(-1)/2, (-1)/2, -1, 0, 0, 0, 0, 
            0}, {-3, -2, -4, -4, -3, -2, -1, -1}, {-2, -2, -3, -3, -3, -2, \
-1, -1}, {-2, -2, -3, -3, -2, -2, -1, -1}, {-2, -2, -3, -3, -2, -1, -1, -1}, \
{-2, -2, -3, -3, -2, -1, 0, -1}, {1, 0, 1, 0, 0, 0, 0, 
           1}, {-2, -2, -4, -4, -3, -2, -1, -1}, {-3, -2, -4, -3, -3, -2, -1, \
-1}, {-3, -2, -4, -3, -2, -2, -1, -1}, {-3, -2, -4, -3, -2, -1, -1, -1}, {-3, \
-2, -4, -3, -2, -1, 0, -1}, {0, 0, 0, 0, 0, 0, 0, 
           1}, {-3, -2, -5, -4, -3, -2, -1, -1}, {-2, -2, -3, -2, -2, -2, -1, \
-1}, {-2, -2, -3, -2, -2, -1, -1, -1}, {-2, -2, -3, -2, -2, -1, 0, -1}, {1, 0,
            1, 1, 0, 0, 0, 
           1}, {-2, -2, -4, -3, -3, -2, -1, -1}, {-2, -2, -3, -2, -1, -1, -1, \
-1}, {-2, -2, -3, -2, -1, -1, 0, -1}, {1, 0, 1, 1, 1, 0, 0, 
           1}, {-2, -2, -4, -3, -2, -2, -1, -1}, {-2, -2, -3, -2, -1, 0, 
           0, -1}, {1, 0, 1, 1, 1, 1, 0, 
           1}, {-2, -2, -4, -3, -2, -1, -1, -1}, {1, 0, 1, 1, 1, 1, 1, 
           1}, {-2, -2, -4, -3, -2, -1, 0, -1}, {1, 0, 0, 0, 0, 0, 0, 1}, {
           0, -1, -1, 0, 0, 0, 0, 0}, {-1, -1, -2, -1, 0, 0, 0, 
           0}, {-1, -1, -2, -1, -1, 0, 0, 0}, {-1, -1, -2, -1, -1, -1, 0, 
           0}, {-1, -1, -2, -1, -1, -1, -1, 
           0}, {-4, -3, -6, -4, -3, -2, -1, -2}, {-1, -1, -1, 0, 0, 0, 0, 
           0}, {0, 0, -1, 0, 0, 0, 0, 0}, {3, 2, 4, 4, 3, 2, 1, 2}, {0, 0, 0, 
           1, 1, 1, 1, 0}, {0, 0, 0, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 
           0}, {0, 0, 0, 1, 0, 0, 0, 0}, {-1, 0, -1, 0, 0, 0, 0, 0}, {
           0, -1, -1, -1, 0, 0, 0, 0}, {0, -1, -1, -1, -1, 0, 0, 0}, {
           0, -1, -1, -1, -1, -1, 0, 0}, {0, -1, -1, -1, -1, -1, -1, 
           0}, {-3, -3, -5, -4, -3, -2, -1, -2}, {0, -1, 0, 0, 0, 0, 0, 0}, {
           1, 0, 0, 0, 0, 0, 0, 0}, {4, 2, 5, 4, 3, 2, 1, 2}, {1, 0, 1, 1, 1, 
           1, 1, 0}, {1, 0, 1, 1, 1, 1, 0, 0}, {1, 0, 1, 1, 1, 0, 0, 0}, {1, 
           0, 1, 1, 0, 0, 0, 0}, {-1, -1, -2, -2, -1, 0, 0, 
           0}, {-1, -1, -2, -2, -1, -1, 0, 0}, {-1, -1, -2, -2, -1, -1, -1, 
           0}, {-4, -3, -6, -5, -3, -2, -1, -2}, {-1, -1, -1, -1, 0, 0, 0, 
           0}, {0, 0, -1, -1, 0, 0, 0, 0}, {3, 2, 4, 3, 3, 2, 1, 2}, {0, 0, 0,
            0, 1, 1, 1, 0}, {0, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 
           0}, {-1, -1, -2, -2, -2, -1, 0, 0}, {-1, -1, -2, -2, -2, -1, -1, 
           0}, {-4, -3, -6, -5, -4, -2, -1, -2}, {-1, -1, -1, -1, -1, 0, 0, 
           0}, {0, 0, -1, -1, -1, 0, 0, 0}, {3, 2, 4, 3, 2, 2, 1, 2}, {0, 0, 
           0, 0, 0, 1, 1, 0}, {0, 0, 0, 0, 0, 1, 0, 
           0}, {-1, -1, -2, -2, -2, -2, -1, 
           0}, {-4, -3, -6, -5, -4, -3, -1, -2}, {-1, -1, -1, -1, -1, -1, 0, 
           0}, {0, 0, -1, -1, -1, -1, 0, 0}, {3, 2, 4, 3, 2, 1, 1, 2}, {0, 0, 
           0, 0, 0, 0, 1, 
           0}, {-4, -3, -6, -5, -4, -3, -2, -2}, {-1, -1, -1, -1, -1, -1, -1, 
           0}, {0, 0, -1, -1, -1, -1, -1, 0}, {3, 2, 4, 3, 2, 1, 0, 
           2}, {-4, -3, -5, -4, -3, -2, -1, -2}, {-3, -2, -5, -4, -3, -2, -1, \
-2}, {-2, -1, -2, -2, -2, -2, -1, -1}, {-2, -1, -2, -2, -2, -1, -1, -1}, {-2, \
-1, -2, -2, -2, -1, 0, -1}, {1, 1, 2, 1, 0, 0, 0, 
           1}, {-2, -1, -3, -3, -3, -2, -1, -1}, {-2, -1, -2, -2, -1, -1, -1, \
-1}, {-2, -1, -2, -2, -1, -1, 0, -1}, {1, 1, 2, 1, 1, 0, 0, 
           1}, {-2, -1, -3, -3, -2, -2, -1, -1}, {-2, -1, -2, -2, -1, 0, 
           0, -1}, {1, 1, 2, 1, 1, 1, 0, 
           1}, {-2, -1, -3, -3, -2, -1, -1, -1}, {1, 1, 2, 1, 1, 1, 1, 
           1}, {-2, -1, -3, -3, -2, -1, 0, -1}, {1, 1, 1, 0, 0, 0, 0, 
           1}, {-1, -1, -1, -1, -1, -1, -1, -1}, {-1, -1, -1, -1, -1, -1, 
           0, -1}, {2, 1, 3, 2, 1, 0, 0, 
           1}, {-1, -1, -2, -2, -2, -2, -1, -1}, {-1, -1, -1, -1, -1, 0, 
           0, -1}, {2, 1, 3, 2, 1, 1, 0, 
           1}, {-1, -1, -2, -2, -2, -1, -1, -1}, {2, 1, 3, 2, 1, 1, 1, 
           1}, {-1, -1, -2, -2, -2, -1, 0, -1}, {2, 1, 2, 1, 0, 0, 0, 
           1}, {-1, -1, -1, -1, 0, 0, 0, -1}, {2, 1, 3, 2, 2, 1, 0, 
           1}, {-1, -1, -2, -2, -1, -1, -1, -1}, {2, 1, 3, 2, 2, 1, 1, 
           1}, {-1, -1, -2, -2, -1, -1, 0, -1}, {2, 1, 2, 1, 1, 0, 0, 1}, {2, 
           1, 3, 2, 2, 2, 1, 1}, {-1, -1, -2, -2, -1, 0, 0, -1}, {2, 1, 2, 1, 
           1, 1, 0, 1}, {2, 1, 2, 1, 1, 1, 1, 
           1}, {-2, -1, -2, -1, -1, -1, -1, -1}, {-2, -1, -2, -1, -1, -1, 
           0, -1}, {1, 1, 2, 2, 1, 0, 0, 
           1}, {-2, -1, -3, -2, -2, -2, -1, -1}, {-2, -1, -2, -1, -1, 0, 
           0, -1}, {1, 1, 2, 2, 1, 1, 0, 
           1}, {-2, -1, -3, -2, -2, -1, -1, -1}, {1, 1, 2, 2, 1, 1, 1, 
           1}, {-2, -1, -3, -2, -2, -1, 0, -1}, {1, 1, 1, 1, 0, 0, 0, 
           1}, {-2, -1, -2, -1, 0, 0, 0, -1}, {1, 1, 2, 2, 2, 1, 0, 
           1}, {-2, -1, -3, -2, -1, -1, -1, -1}, {1, 1, 2, 2, 2, 1, 1, 
           1}, {-2, -1, -3, -2, -1, -1, 0, -1}, {1, 1, 1, 1, 1, 0, 0, 1}, {1, 
           1, 2, 2, 2, 2, 1, 1}, {-2, -1, -3, -2, -1, 0, 0, -1}, {1, 1, 1, 1, 
           1, 1, 0, 1}, {1, 1, 1, 1, 1, 1, 1, 1}, {-1, -1, -1, 0, 0, 0, 
           0, -1}, {2, 1, 3, 3, 2, 1, 0, 
           1}, {-1, -1, -2, -1, -1, -1, -1, -1}, {2, 1, 3, 3, 2, 1, 1, 
           1}, {-1, -1, -2, -1, -1, -1, 0, -1}, {2, 1, 2, 2, 1, 0, 0, 1}, {2, 
           1, 3, 3, 2, 2, 1, 1}, {-1, -1, -2, -1, -1, 0, 0, -1}, {2, 1, 2, 2, 
           1, 1, 0, 1}, {2, 1, 2, 2, 1, 1, 1, 1}, {2, 1, 3, 3, 3, 2, 1, 
           1}, {-1, -1, -2, -1, 0, 0, 0, -1}, {2, 1, 2, 2, 2, 1, 0, 1}, {2, 1,
            2, 2, 2, 1, 1, 1}, {2, 1, 2, 2, 2, 2, 1, 1}, {3, 2, 5, 4, 3, 2, 1,
            2}, {4, 3, 5, 4, 3, 2, 1, 2}, {-3, -2, -4, -3, -2, -1, 0, -2}, {0,
            0, 1, 1, 1, 1, 1, 0}, {1, 1, 1, 1, 1, 1, 1, 0}, {4, 3, 6, 5, 4, 3,
            2, 2}, {0, 0, 0, 0, 0, 0, -1, 
           0}, {-3, -2, -4, -3, -2, -1, -1, -2}, {0, 0, 1, 1, 1, 1, 0, 0}, {1,
            1, 1, 1, 1, 1, 0, 0}, {4, 3, 6, 5, 4, 3, 1, 2}, {1, 1, 2, 2, 2, 2,
            1, 0}, {0, 0, 0, 0, 0, -1, 0, 0}, {0, 0, 0, 0, 0, -1, -1, 
           0}, {-3, -2, -4, -3, -2, -2, -1, -2}, {0, 0, 1, 1, 1, 0, 0, 0}, {1,
            1, 1, 1, 1, 0, 0, 0}, {4, 3, 6, 5, 4, 2, 1, 2}, {1, 1, 2, 2, 2, 1,
            1, 0}, {1, 1, 2, 2, 2, 1, 0, 0}, {0, 0, 0, 0, -1, 0, 0, 0}, {0, 0,
            0, 0, -1, -1, 0, 0}, {0, 0, 0, 0, -1, -1, -1, 
           0}, {-3, -2, -4, -3, -3, -2, -1, -2}, {0, 0, 1, 1, 0, 0, 0, 0}, {1,
            1, 1, 1, 0, 0, 0, 0}, {4, 3, 6, 5, 3, 2, 1, 2}, {1, 1, 2, 2, 1, 1,
            1, 0}, {1, 1, 2, 2, 1, 1, 0, 0}, {1, 1, 2, 2, 1, 0, 0, 0}, {-1, 
           0, -1, -1, 0, 0, 0, 0}, {-1, 0, -1, -1, -1, 0, 0, 0}, {-1, 
           0, -1, -1, -1, -1, 0, 0}, {-1, 0, -1, -1, -1, -1, -1, 
           0}, {-4, -2, -5, -4, -3, -2, -1, -2}, {-1, 0, 0, 0, 0, 0, 0, 0}, {
           0, 1, 0, 0, 0, 0, 0, 0}, {3, 3, 5, 4, 3, 2, 1, 2}, {0, 1, 1, 1, 1, 
           1, 1, 0}, {0, 1, 1, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 0, 0, 0}, {0, 
           1, 1, 1, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, -1, 0, 0,
            0, 0}, {0, 0, 0, -1, -1, 0, 0, 0}, {0, 0, 0, -1, -1, -1, 0, 0}, {
           0, 0, 0, -1, -1, -1, -1, 0}, {-3, -2, -4, -4, -3, -2, -1, -2}, {0, 
           0, 1, 0, 0, 0, 0, 0}, {1, 1, 1, 0, 0, 0, 0, 0}, {4, 3, 6, 4, 3, 2, 
           1, 2}, {1, 1, 2, 1, 1, 1, 1, 0}, {1, 1, 2, 1, 1, 1, 0, 0}, {1, 1, 
           2, 1, 1, 0, 0, 0}, {1, 1, 2, 1, 0, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 
           0}, {-1, 0, 0, 0, 0, 0, 0, -1}, {2, 2, 4, 3, 2, 1, 0, 1}, {-1, 
           0, -1, -1, -1, -1, -1, -1}, {2, 2, 4, 3, 2, 1, 1, 1}, {-1, 
           0, -1, -1, -1, -1, 0, -1}, {2, 2, 3, 2, 1, 0, 0, 1}, {2, 2, 4, 3, 
           2, 2, 1, 1}, {-1, 0, -1, -1, -1, 0, 0, -1}, {2, 2, 3, 2, 1, 1, 0, 
           1}, {2, 2, 3, 2, 1, 1, 1, 1}, {2, 2, 4, 3, 3, 2, 1, 1}, {-1, 
           0, -1, -1, 0, 0, 0, -1}, {2, 2, 3, 2, 2, 1, 0, 1}, {2, 2, 3, 2, 2, 
           1, 1, 1}, {2, 2, 3, 2, 2, 2, 1, 1}, {3, 2, 5, 4, 3, 2, 1, 1}, {0, 
           0, 0, 0, 0, 0, 0, -1}, {3, 2, 4, 3, 2, 1, 0, 1}, {3, 2, 4, 3, 2, 1,
            1, 1}, {3, 2, 4, 3, 2, 2, 1, 1}, {3, 2, 4, 3, 3, 2, 1, 1}, {2, 2, 
           4, 4, 3, 2, 1, 1}, {-1, 0, -1, 0, 0, 0, 0, -1}, {2, 2, 3, 3, 2, 1, 
           0, 1}, {2, 2, 3, 3, 2, 1, 1, 1}, {2, 2, 3, 3, 2, 2, 1, 1}, {2, 2, 
           3, 3, 3, 2, 1, 1}, {3, 2, 4, 4, 3, 2, 1, 1}, {
           1/2, 1/2, 1, 0, 0, 0, 0, 0}, {(-1)/2, 1/2, 0, 0, 0, 0, 0, 0}, {
           1/2, 1/2, 1, 1, 0, 0, 0, 0}, {1/2, 1/2, 1, 1, 1, 0, 0, 0}, {
           1/2, 1/2, 1, 1, 1, 1, 0, 0}, {1/2, 1/2, 1, 1, 1, 1, 1, 0}, {
           7/2, 5/2, 5, 4, 3, 2, 1, 2}, {1/2, 1/2, 0, 0, 0, 0, 0, 0}, {3, 3, 
           5, 4, 3, 2, 1, 1}}, $CellContext`bitOrd = {5, 2, 
          1}, $CellContext`bitPerm = {{1, 2, 3}, {1, 3, 2}, {2, 1, 3}, {2, 3, 
          1}, {3, 1, 2}, {3, 2, 1}}, $CellContext`bP = 
         1, $CellContext`dynkList = {{{{{{1, 2}, 1}}, {}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}}, {{{1, 2}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}}, {{{1, 2}, 1}, {{
               2, 3}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}}, {{{
               1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{5, 6}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{7, 2}, 0}}, {{{1, 2}, 1}, {{2, 3}, 
               1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 7}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}}, {{{1, 2}, 2}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}}, {{{1, 2}, 1}, {{
               2, 3}, 2}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}}, {{{
               1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 2}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 2}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{5, 6}, 2}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{7, 2}, 0}}, {{{1, 2}, 1}, {{2, 3}, 
               1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 7}, 2}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{7, 2}, 0}, {{8, 2}, 0}}, {{{1, 2}, 
               1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 
               7}, 1}, {{7, 8}, 2}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}}, {{{1, 2}, 2}, {{
               2, 3}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}}, {{{
               1, 2}, 2}, {{2, 3}, 1}, {{3, 4}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}}, {{{1, 2}, 2}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}}, {{{1, 2}, 2}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{5, 6}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{7, 2}, 0}}, {{{1, 2}, 2}, {{2, 3}, 
               1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 7}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{7, 2}, 0}, {{8, 2}, 0}}, {{{1, 2}, 
               2}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 
               7}, 1}, {{7, 8}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{2, 3}, 0}}, {{{
               1, 2}, 1}, {{2, 3}, 1}, {{2, 4}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{3, 
               3}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{3, 5}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{4, 3}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{4, 6}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{5, 3}, 0}}, {{{1, 2}, 1}, {{2, 3}, 
               1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{5, 7}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{7, 2}, 0}, {{6, 3}, 0}}, {{{1, 2}, 
               1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 
               7}, 1}, {{6, 8}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{3, 3}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{3, 6}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{4, 3}, 0}}, {{{1, 2}, 1}, {{2, 3}, 
               1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{4, 7}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{7, 2}, 0}, {{5, 3}, 0}}, {{{1, 2}, 
               1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 
               7}, 1}, {{5, 8}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}}, {{{
               1, 2}, 1}, {{2, 3}, 2}, {{3, 4}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}}, {{{1, 2}, 3}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}}, {{{1, 2}, 1}, {{
               2, 3}, 3}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}}, {{{
               1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 3}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}}, {{{1, 2}, 5}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}}, {{{1, 2}, 5}, {{
               2, 3}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}}, {{{
               1, 2}, 5}, {{2, 3}, 1}, {{3, 4}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}}, {{{1, 2}, 5}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}}, {{{1, 2}, 5}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{5, 6}, 1}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{5, 
               2}, 0}, {{6, 2}, 0}, {{7, 2}, 0}}, {{{1, 2}, 5}, {{2, 3}, 
               1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 7}, 1}}, 
             0}}, {{{{{1, 1}, 1}, {{2, 1}, 0}, {{3, 1}, 0}, {{4, 1}, 1}, {{5, 
               1}, 0}, {{6, 1}, 0}, {{7, 1}, 1}, {{8, 1}, 0}}, {{{1, 2}, 
               1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 
               7}, 1}, {{7, 8}, 1}}, 
             0}, {{{{10, 1}, 1}, {{11, 1}, 0}, {{12, 1}, 1}, {{13, 1}, 0}, {{
               14, 1}, 1}, {{15, 1}, 0}, {{16, 1}, 1}, {{17, 1}, 0}}, {{{1, 
               2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{
               6, 7}, 1}, {{7, 8}, 2}}, 
             0}, {{{{1, 2}, 1}, {{2, 2}, 1}, {{3, 2}, 1}, {{4, 2}, 1}, {{5, 
               2}, 1}, {{6, 2}, 1}, {{7, 2}, 1}, {{8, 2}, 0}}, {{{1, 2}, 
               2}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 
               7}, 1}, {{7, 8}, 1}}, 
             0}, {{{{10, 2}, 0}, {{11, 2}, 1}, {{12, 2}, 1}, {{13, 2}, 0}, {{
               14, 2}, 0}, {{15, 2}, 0}, {{16, 2}, 0}, {{15, 3}, 0}}, {{{1, 
               2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{
               6, 7}, 1}, {{6, 8}, 1}}, 
             0}, {{{{1, 3}, 1}, {{2, 3}, 1}, {{3, 3}, 0}, {{4, 3}, 0}, {{5, 
               3}, 0}, {{6, 3}, 0}, {{7, 3}, 0}, {{5, 4}, 0}}, {{{1, 2}, 
               1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 
               7}, 1}, {{5, 8}, 1}}, 
             0}, {{{{10, 3}, 0}, {{11, 3}, 0}, {{12, 3}, 1}, {{13, 3}, 
               0}}, {{{1, 2}, 1}, {{2, 3}, 2}, {{3, 4}, 1}}, 
             0}, {{{{17, 3}, 0}, {{18, 3}, 1}}, {{{1, 2}, 3}}, 
             0}, {{{{10, 4}, 0}, {{11, 4}, 0}, {{12, 4}, 0}}, {{{1, 2}, 1}, {{
               2, 3}, 3}}, 
             0}, {{{{15, 4}, 1}, {{16, 4}, 1}, {{17, 4}, 1}, {{18, 4}, 
               1}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 3}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{2, 1}, 0}, {{1, 
               1}, 0}, {{3, 1}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{4, 6}, 1}}, 
             0}, {{{{1, 3}, 1}, {{2, 3}, 0}, {{3, 3}, 0}}, {{{1, 2}, 1}, {{2, 
               3}, 3}}, 
             0}, {{{{5, 2}, 1}, {{6, 2}, 0}, {{7, 2}, 0}, {{8, 3}, 0}, {{8, 
               1}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{3, 5}, 1}}, 
             0}, {{{{5, 4}, 1}, {{6, 4}, 0}, {{7, 4}, 0}, {{8, 4}, 0}}, {{{1, 
               2}, 1}, {{2, 3}, 1}, {{3, 4}, 2}}, 
             0}, {{{{14, 1}, 1}, {{13, 1}, 0}, {{12, 2}, 0}, {{13, 3}, 0}, {{
               14, 3}, 0}, {{11, 2}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{3, 6}, 1}}, 
             0}, {{{{11, 4}, 1}, {{12, 4}, 0}, {{13, 4}, 0}, {{14, 4}, 
               0}}, {{{1, 2}, 1}, {{2, 3}, 2}, {{3, 4}, 1}}, 
             0}, {{{{17, 1}, 1}, {{16, 2}, 0}, {{17, 3}, 0}, {{17, 2}, 
               0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{2, 4}, 1}}, 
             0}, {{{{16, 4}, 1}, {{17, 4}, 0}}, {{{1, 2}, 3}}, 
             0}}, {{{{{1, 2}, 1}, {{2, 2}, 0}, {{3, 2}, 0}, {{4, 2}, 0}, {{3, 
               1}, 0}, {{2, 1}, 0}, {{1, 1}, 0}, {{4, 1}, 0}}, {{{1, 2}, 
               1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 
               7}, 1}, {{5, 8}, 1}}, 
             0}, {{{{1, 3}, 1}, {{2, 3}, 0}, {{3, 3}, 0}, {{4, 3}, 0}}, {{{1, 
               2}, 1}, {{2, 3}, 1}, {{3, 4}, 3}}, 
             0}, {{{{6, 1}, 1}, {{7, 2}, 0}, {{8, 1}, 0}, {{9, 2}, 0}, {{10, 
               1}, 0}, {{11, 2}, 0}, {{12, 1}, 0}}, {{{1, 2}, 1}, {{2, 3}, 
               1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 7}, 1}}, 
             0}, {{{{13, 2}, 1}, {{13, 1}, 0}}, {{{1, 2}, 4}}, 
             0}, {{{{8, 3}, 1}, {{9, 4}, 0}, {{10, 3}, 0}, {{11, 4}, 0}, {{12,
                3}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}},
              0}, {{{{13, 4}, 1}, {{13, 3}, 0}}, {{{1, 2}, 3}}, 
             0}, {{{{15, 1}, 1}, {{15, 2}, 0}, {{15, 3}, 0}, {{16, 4}, 0}, {{
               17, 3}, 0}, {{17, 2}, 0}, {{17, 1}, 0}}, {{{1, 2}, 1}, {{2, 3},
                1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 7}, 1}}, 
             0}, {{{{18, 4}, 1}, {{18, 3}, 0}, {{18, 2}, 0}, {{18, 1}, 
               0}}, {{{1, 2}, 2}, {{2, 3}, 1}, {{3, 4}, 1}}, 
             0}}, {{{{{1, 1}, 1}, {{1, 3}, 0}, {{2, 2}, 0}, {{3, 2}, 0}}, {{{
               1, 3}, 1}, {{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}}, 
             2}, {{{{4, 1}, 0}, {{5, 2}, 1}, {{6, 1}, 0}, {{4, 3}, 0}, {{6, 
               3}, 0}, {{7, 3}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{2, 4}, 
               1}, {{2, 5}, 1}, {{5, 6}, 1}}, 
             2}, {{{{9, 2}, 1}, {{8, 2}, 1}, {{8, 4}, 0}, {{9, 4}, 0}, {{10, 
               3}, 0}, {{11, 3}, 0}, {{12, 3}, 0}}, {{{1, 2}, 1}, {{2, 3}, 
               1}, {{3, 4}, 1}, {{4, 5}, 1}, {{5, 1}, 1}, {{5, 6}, 1}, {{6, 
               7}, 1}}, 
             3}, {{{{12, 1}, 0}, {{13, 1}, 1}, {{14, 1}, 1}, {{15, 1}, 1}, {{
               16, 1}, 0}, {{14, 2}, 0}, {{17, 1}, 0}, {{18, 1}, 0}, {{19, 1},
                0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 1}, {{3,
                6}, 1}, {{5, 7}, 1}, {{7, 8}, 1}, {{8, 9}, 1}}, 
             3}}, {{{{{1, 1}, 1}, {{1, 3}, 0}, {{2, 2}, 1}}, {{{1, 3}, 1}, {{
               1, 2}, 1}, {{2, 3}, 1}}, 
             1}, {{{{5, 1}, 0}, {{4, 2}, 0}, {{5, 3}, 0}, {{6, 2}, 0}}, {{{1, 
               2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 1}, 1}}, 
             1}, {{{{9, 1}, 0}, {{8, 1}, 1}, {{8, 3}, 0}, {{9, 3}, 0}, {{10, 
               2}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 
               1}, {{5, 1}, 1}}, 
             1}, {{{{14, 1}, 1}, {{13, 1}, 0}, {{12, 2}, 0}, {{13, 3}, 0}, {{
               14, 3}, 0}, {{15, 2}, 0}}, {{{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{5, 6}, 1}, {{6, 1}, 1}}, 
             1}}, {{{{{5, 2}, 0}, {{4, 2}, 0}, {{3, 2}, 0}, {{2, 2}, 0}, {{1, 
               2}, 0}, {{6, 2}, 0}, {{6, 3}, 0}, {{6, 4}, 0}, {{6, 5}, 0}, {{
               5, 5}, 0}, {{7, 2}, 0}, {{8, 2}, 0}, {{9, 2}, 0}, {{10, 2}, 
               0}, {{11, 2}, 0}, {{5, 1}, 0}, {{6, 1}, 0}, {{7, 1}, 0}}, {{{
               16, 1}, 1}, {{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 1}, {{4, 5}, 
               1}, {{17, 6}, 1}, {{6, 7}, 1}, {{7, 8}, 1}, {{8, 9}, 1}, {{9, 
               10}, 1}, {{18, 11}, 1}, {{11, 12}, 1}, {{12, 13}, 1}, {{13, 
               14}, 1}, {{14, 15}, 1}, {{16, 17}, 1}, {{17, 18}, 1}}, 
             3}}, {{{{{5, 2}, 0}, {{4, 2}, 0}, {{3, 2}, 0}, {{2, 2}, 0}, {{1, 
               2}, 0}, {{6, 2}, 0}, {{6, 3}, 0}, {{6, 4}, 0}, {{6, 5}, 0}, {{
               5, 5}, 0}, {{7, 2}, 0}, {{8, 2}, 0}, {{9, 2}, 0}, {{10, 2}, 
               0}, {{11, 2}, 0}, {{4, 1}, 0}, {{3, 1}, 0}, {{7, 3}, 0}, {{8, 
               3}, 0}, {{8, 1}, 0}, {{9, 1}, 0}, {{5, 1}, 0}, {{6, 1}, 0}, {{
               7, 1}, 0}}, {{{22, 1}, 1}, {{1, 2}, 1}, {{2, 3}, 1}, {{3, 4}, 
               1}, {{4, 5}, 1}, {{23, 6}, 1}, {{6, 7}, 1}, {{7, 8}, 1}, {{8, 
               9}, 1}, {{9, 10}, 1}, {{24, 11}, 1}, {{11, 12}, 1}, {{12, 13}, 
               1}, {{13, 14}, 1}, {{14, 15}, 1}, {{1, 16}, 1}, {{16, 17}, 
               1}, {{6, 18}, 1}, {{18, 19}, 1}, {{11, 20}, 1}, {{20, 21}, 
               1}, {{22, 23}, 1}, {{23, 24}, 1}}, 
             3}}}, $CellContext`subGroups = {
          "a1", "a2", "a3", "a4", "a5", "a6", "a7", "b2", "b3", "b4", "b5", 
           "b6", "b7", "b8", "c3", "c4", "c5", "c6", "c7", "c8", "d4", "d5", 
           "d6", "d7", "d8", "e6", "e7", "e8", "f4", "g2", "h3", "h4", 
           "cube2", "cube3", "cube4", "cube5", "cube6", "cube7", "finite1", 
           "folded1", "folded2", "extended1", "looped1", "monster1", 
           "monster2"}, $CellContext`doE8 := 
         With[{$CellContext`local$ = $CellContext`localE8}, 
           
           Module[$CellContext`local$, $CellContext`p3DList = {
              " 2D", " 3D", " Stereo", 
               " Anaglyph"}; $CellContext`needsArtPrint := 
             And[$CellContext`artPrint$$, $CellContext`fileOut$$]; \
$CellContext`needsAnim8 := And[
               Not[$CellContext`useDimLocs$$], 
               Or[$CellContext`steps$$ > 1, 
                And[$CellContext`showEdges$$, 
                 
                 Or[$CellContext`eSteps$$ > 
                  1, $CellContext`anim8EdgeList$$]]]]; \
$CellContext`needsEdges := 
             Or[$CellContext`showEdges$$, $CellContext`showClickVerts$$, \
$CellContext`ltps$$ != {}]; $CellContext`clearClickVerts := \
($CellContext`plines$$ = {}; $CellContext`vlines$$ = {}; \
$CellContext`vLineColors$$ = {}; $CellContext`ltps$$ = {}; \
$CellContext`showClickVerts$$ = False); $CellContext`plDims := 
             If[$CellContext`p3D$$ == First[$CellContext`p3DList], 2, 
               3]; $CellContext`dimZeros := 
             Array[0& , {$CellContext`plDims}]; $CellContext`zeroPt := 
             Point[$CellContext`dimZeros]; $CellContext`nullPt := {
               PointSize[0], 
               Opacity[0], White, 
               Point[$CellContext`dimZeros]}; $CellContext`axesPt := {
               PointSize[0.01], Black, 
               
               Point[$CellContext`dimZeros]}; $CellContext`faceList := \
{{$CellContext`H$$, $CellContext`V$$, $CellContext`Z$$}, {$CellContext`Z$$, \
$CellContext`H$$, $CellContext`V$$}, {$CellContext`V$$, $CellContext`Z$$, \
$CellContext`H$$}}; $CellContext`ptCds := 
             Part[$CellContext`faceList, $CellContext`face$$, {1, 2, 
               3}]; $CellContext`setPTcd[
               Pattern[$CellContext`in$, 
                Blank[]]] := ($CellContext`H$$ = 
               Part[$CellContext`in$, 1]; $CellContext`V$$ = 
               Part[$CellContext`in$, 2]; $CellContext`Z$$ = 
               Part[$CellContext`in$, 
                 3]); $CellContext`initLocPtCds := ($CellContext`locPtCdArr$$ = 
               Transpose[
                 Part[
                  Subscript[$CellContext`ptCds, $CellContext`scaled], 
                  Span[
                  1, 2]]]; $CellContext`locPtCdTrk$$ = \
$CellContext`locPtCdArr$$); $CellContext`outerDims[
               Pattern[$CellContext`inDims$, 
                Blank[]]] := 
             If[($CellContext`outerSum = 
                Chop[$CellContext`nDcamera$$ ($CellContext`dimTrim$$ - \
$CellContext`plDims) + Total[
                    Map[
                    Part[$CellContext`newLoc, #]& , $CellContext`outerDim = If[
                    
                    And[$CellContext`dimTrim$$ - $CellContext`plDims > 1, 
                    Length[$CellContext`inDims$] >= $CellContext`plDims], 
                    If[Union[
                    Range[$CellContext`dimTrim$$], 
                    Part[$CellContext`inDims$, 
                    Span[1, $CellContext`plDims]]] == 
                    Range[$CellContext`dimTrim$$], 
                    Complement[
                    
                    Range[$CellContext`dimTrim$$], $CellContext`inDims$], \
{$CellContext`dimTrim$$}], {$CellContext`dimTrim$$}]]]]) == 
               0, $CellContext`outerSum = $CellContext`chop, \
$CellContext`outerSum]; $CellContext`transOuter[
               Pattern[$CellContext`inDims$, 
                Blank[]]] := ($CellContext`outerDims[$CellContext`inDims$]; 
              Map[(Part[$CellContext`newLoc, #] = 
                Part[$CellContext`newLoc, #] + $CellContext`nDcamera$$ + \
#/$CellContext`dims)& , $CellContext`outerDim]); $CellContext`posDiff[
               Pattern[$CellContext`inDims$, 
                Blank[]]] := ($CellContext`outerDims[$CellContext`inDims$]; 
              2 $CellContext`nDcamera$$ (($CellContext`dimTrim$$ - \
$CellContext`plDims)/$CellContext`outerSum)); $CellContext`posTbl[
               Pattern[$CellContext`loc$, 
                Blank[]]] := 
             Map[($CellContext`newLoc = $CellContext`loc$; 
               If[$CellContext`steps$$ > 1, 
                 
                 Switch[$CellContext`pthRot$$, "Rot", $CellContext`newLoc = 
                  Dot[$CellContext`loc$, 
                    $CellContext`rotXYZ[
                    $CellContext`nDRot[$CellContext`\[Theta]]]]]]; 
               If[$CellContext`perspective$$, $CellContext`transOuter[
                   
                   Union[$CellContext`dlXn, $CellContext`dlYn, \
$CellContext`dlZn]]; Part[$CellContext`newLoc, 
                    First[$CellContext`dlXn]] = Part[$CellContext`newLoc, 
                    
                    First[$CellContext`dlXn]] \
$CellContext`posDiff[$CellContext`dlXn]; Part[$CellContext`newLoc, 
                    First[$CellContext`dlYn]] = Part[$CellContext`newLoc, 
                    
                    First[$CellContext`dlYn]] \
$CellContext`posDiff[$CellContext`dlYn]; Part[$CellContext`newLoc, 
                    First[$CellContext`dlZn]] = Part[$CellContext`newLoc, 
                    
                    First[$CellContext`dlZn]] \
$CellContext`posDiff[$CellContext`dlZn]]; If[
                 And[$CellContext`limitToRange$$, Dot[$CellContext`newLoc, 
                    Part[$CellContext`ptCds, #]] < 
                  Part[$CellContext`pt$$, #] - 
                   Subscript[$CellContext`range$$, $CellContext`scaled]], 
                 Part[$CellContext`pt$$, #] - 
                 Subscript[$CellContext`range$$, $CellContext`scaled], 
                 If[
                  And[$CellContext`limitToRange$$, Dot[$CellContext`newLoc, 
                    Part[$CellContext`ptCds, #]] > 
                   Part[$CellContext`pt$$, #] + 
                    Subscript[$CellContext`range$$, $CellContext`scaled]], 
                  Part[$CellContext`pt$$, #] + 
                  Subscript[$CellContext`range$$, $CellContext`scaled], 
                  Round[
                   Dot[$CellContext`newLoc, 
                    Part[$CellContext`ptCds, #]], $CellContext`chop]]])& , 
               Range[$CellContext`plDims]]; $CellContext`dsGet[
               Pattern[$CellContext`p$, 
                Blank[]]] := If[$CellContext`ds$$ < 5, 
               Switch[$CellContext`ds$$, 1, 
                $CellContext`pBin[$CellContext`p$], 2, 
                $CellContext`pE8[$CellContext`p$], 3, 
                $CellContext`pPhys[$CellContext`p$], 4, 
                $CellContext`pC600[$CellContext`p$]], 
               
               Part[$CellContext`e8b, $CellContext`p$, $CellContext`ds$$ - 
                4]]; $CellContext`pPos[
               Pattern[$CellContext`p, 
                Blank[]]] := $CellContext`posTbl[
               $CellContext`dsGet[$CellContext`p]]; $CellContext`e8ListInit := \
($CellContext`scale$$ = 0.02; $CellContext`cylR$$ = 
               0.01; $CellContext`tickNum$$ = 4; $CellContext`range$$ = 
               1.5; $CellContext`pt$$ = {0, 0, 0}; $CellContext`zoom$$ = 
               0; $CellContext`favorite$$ = 15; $CellContext`pGrad$$ = 
               0; $CellContext`face$$ = 1; $CellContext`nDcamera$$ = 
               1.; $CellContext`steps$$ = 1; $CellContext`artPrint$$ = 
               False; $CellContext`limitToRange$$ = 
               True; $CellContext`perspective$$ = 
               False; $CellContext`showAxes$$ = 
               True; $CellContext`showPartVert$$ = 
               True; $CellContext`showEdges$$ = 
               False; $CellContext`showPolySurfaces$$ = 
               False; $CellContext`showSurfaces$$ = 
               False; $CellContext`showPvecs$$ = 
               False; $CellContext`showPtext$$ = 
               False; $CellContext`showPlocs$$ = 
               False; $CellContext`showPmass$$ = 
               False; $CellContext`showPerim$$ = 
               False; $CellContext`showClr$$ = 
               False; $CellContext`showClickVerts$$ = 
               False; $CellContext`vOverlapColor$$ = 
               False; $CellContext`physics$$ = 
               False; $CellContext`ltps$$ = {}; $CellContext`useDimLocs$$ = 
               False; $CellContext`perm = "Parent"; $CellContext`lie$$ = 
               ""; $CellContext`ds$$ = 2; $CellContext`eGrad$$ = 
               10; $CellContext`edgeVals$$ = {{
                  Sqrt[2], 6720}}; $CellContext`anim8EdgeList$$ = 
               False; $CellContext`eSteps$$ = 1; $CellContext`eColorPos$$ = 
               
               True; $CellContext`eWnd$$ = $CellContext`eLim$$; \
$CellContext`rectification$$ = 
               0; $CellContext`dimTrim$$ = $CellContext`dims; \
$CellContext`innerMag$$ = 
               0; $CellContext`tT$$ = {}; $CellContext`XY$$ = {1, 1, 1} 
                20); $CellContext`e8ExtrasInit := \
($CellContext`selCoxeterTrk$$ = ($CellContext`selCoxeter$$ = 
                ""); $CellContext`pSize$$ = $CellContext`nrml; \
$CellContext`pListName$$ = "E8=!Excluded"; $CellContext`dsName$$ = 
               "e8"; $CellContext`p3D$$ = " 2D"; $CellContext`auxFile$$ = 
               "./auxData.xls"; $CellContext`fileOnly$$ = 
               False; $CellContext`fileOut$$ = 
               False; $CellContext`outFileDir$$ = 
               "./"; $CellContext`outFile$$ = 
               "E8out"; $CellContext`outFileType$$ = 
               ".png"); $CellContext`setPthPrm := ($CellContext`pthRot$$ = 
               "Trans&Rot"; $CellContext`pthPtCds$$ = 
               "Identity"; $CellContext`dlXs$$ = $CellContext`dls[{
                 5}]; $CellContext`dlYs$$ = $CellContext`dls[{
                 6}]; $CellContext`dlZs$$ = $CellContext`dls[{
                 7}]); $CellContext`clearPath := (
              If[$CellContext`newPTcd$$ != {}, \
$CellContext`setPTcd[$CellContext`newPTcd$$]; $CellContext`newPTcd$$ = {}, 
                
                If[$CellContext`favoriteTrk$$ != $CellContext`favorite$$, \
$CellContext`setPTcd[
                   
                   Part[$CellContext`favorites, $CellContext`favorite$$]]; \
$CellContext`favoriteTrk$$ = $CellContext`favorite$$]]; \
$CellContext`setPthPrm; $CellContext`xy$$ = {1, 1}; $CellContext`zz$$ = 
               1; $CellContext`xyVwPnt$$ = {1.3, 2.4}; $CellContext`zVwPnt$$ = 
               2; $CellContext`nDRot[
                 Pattern[$CellContext`\[Theta], 
                  Blank[]]] := Part[
                 $CellContext`nDRots[$CellContext`\[Theta]], 
                 1]; $CellContext`initLocPtCds); $CellContext`dobAND1[
               Pattern[$CellContext`in, 
                Blank[]]] := 
             Switch[$CellContext`in, "E8 hexes", $CellContext`E8Hexes, 
               "E8 hyper", $CellContext`E8Hyper, "E8 3", $CellContext`E83, 
               "E8 3D", $CellContext`E83D, "E8 24x10", $CellContext`E824x10, 
               "E8 12x5", $CellContext`E812x5, 
               "E8 Petrie", $CellContext`E8Petrie, 
               "E8 in E6", $CellContext`E8inE6, "E7", $CellContext`E7, 
               "E6", $CellContext`E6, "E6 a", $CellContext`E6a, 
               "E5", $CellContext`E5, "E4", $CellContext`E4, 
               "F4", $CellContext`F4, "H4", $CellContext`H4a, 
               "G2", $CellContext`G2, "Tesseract", $CellContext`Tesseract, 
               "16 cell", $CellContext`Cell16, "24 cell", $CellContext`Cell24,
                "24 cell D4", $CellContext`Cell24D4, 
               "24 cell G2", $CellContext`Cell24G2, 
               "600 cell 3D", $CellContext`C6003D, 
               "Hydrogen", $CellContext`Hydrogen, "none", $CellContext`none, 
               "120 cell 2D squ", $CellContext`c1202DSquare, 
               "120 cell 2D pent", $CellContext`c1202DPent, 
               "120 cell 3D", $CellContext`c1203D, 
               "600 cell 2D Petrie", $CellContext`c6002DPetrie, 
               "600 cell 2D pent", $CellContext`c6002DPent, 
               "600 cell 2D hex", $CellContext`c6002DHex, 
               "600 cell 3D", $CellContext`c6003D, 
               "input file", $CellContext`inFile]; $CellContext`dobAND2[
               Pattern[$CellContext`in, 
                Blank[]]] := 
             Switch[$CellContext`in, "F4 tris", $CellContext`F4Tris, 
               "F4 to G2", $CellContext`F4G2, "F4 star", $CellContext`F4Star, 
               "2 cube Pascal", $CellContext`Cube2Pascal, 
               "3 cube Pascal", $CellContext`Cube3Pascal, 
               "4 cube Pascal", $CellContext`Cube4Pascal, 
               "5 cube Pascal", $CellContext`Cube5Pascal, 
               "6 cube Pascal", $CellContext`Cube6Pascal, 
               "7 cube Pascal", $CellContext`Cube7Pascal, 
               "8 cube Pascal", $CellContext`Cube8Pascal, 
               "2 cube Petrie", $CellContext`Cube2Petrie, 
               "3 cube Petrie", $CellContext`Cube3Petrie, 
               "4 cube Petrie", $CellContext`Cube4Petrie, 
               "5 cube Petrie", $CellContext`Cube5Petrie, 
               "6 cube Petrie", $CellContext`Cube6Petrie, 
               "7 cube Petrie", $CellContext`Cube7Petrie, 
               "8 cube Petrie", $CellContext`Cube8Petrie, 
               "lepton info", $CellContext`LeptonInfo, 
               "quark info", $CellContext`QuarkInfo, 
               "quark column", $CellContext`QuarkCol, 
               "binary", $CellContext`Binary, 
               "binary star", $CellContext`BinStar, 
               "binary square", $CellContext`BinSquare, 
               "devolution", $CellContext`Devolution, 
               "XLS data file", $CellContext`auxXLS]; $CellContext`E8 := {
              If[$CellContext`auxData$$ == 
                 True, $CellContext`initAnim8]; $CellContext`e8ListInit; \
$CellContext`e8ExtrasInit; $CellContext`dispArr$$ = 
                Array["?"& , $CellContext`le8]; 
               Part[$CellContext`pls, 1] = 
                Range[$CellContext`le8]; $CellContext`fltrdSubPlot$$ = 
                Part[$CellContext`pls, 
                  2]; $CellContext`clearFilter; $CellContext`clearPath; \
$CellContext`clearClickVerts}; $CellContext`E8Hexes := \
{$CellContext`favorite$$ = 21; $CellContext`scale$$ = 
                0.04; $CellContext`range$$ = 2.1; $CellContext`cylR$$ = 
                0.001; $CellContext`tT$$ = 
                Part[$CellContext`triList, {4, 6}]; $CellContext`physics$$ = 
                True; $CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  3]; $CellContext`dlXs$$ = $CellContext`dls[{
                  5}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  6}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  7}]}; $CellContext`E8Hyper := {$CellContext`favorite$$ = 
                23; $CellContext`tT$$ = 
                Part[$CellContext`triList, {4, 6}]; $CellContext`physics$$ = 
                True; $CellContext`face$$ = 1; $CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  3]; $CellContext`dlXs$$ = $CellContext`dls[{
                  5}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  6}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  7}]}; $CellContext`E83 := {$CellContext`favorite$$ = 
                26; $CellContext`tT$$ = 
                Part[$CellContext`triList, {2, 4, 6}]; $CellContext`physics$$ = 
                True; $CellContext`pthRot$$ = "Rot"; $CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  3]; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]}; $CellContext`E83D := {$CellContext`scale$$ = 
                0.04; $CellContext`cylR$$ = 0.001; $CellContext`range$$ = 
                1.21; $CellContext`limitToRange$$ = 
                False; $CellContext`showAxes$$ = 
                False; $CellContext`showEdges$$ = True; $CellContext`eGrad$$ = 
                0; $CellContext`p3D$$ = 
                " 3D"}; $CellContext`E824x10 := {$CellContext`favorite$$ = 
               24}; $CellContext`E812x5 := {$CellContext`favorite$$ = 
                18; $CellContext`showAxes$$ = False; $CellContext`showEdges$$ = 
                True; $CellContext`eGrad$$ = 16; $CellContext`ds$$ = 
                3; $CellContext`dsName$$ = 
                "physics"; $CellContext`dlXs$$ = $CellContext`dls[{
                  5}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  6}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  7}]}; $CellContext`E8Petrie := {$CellContext`cylR$$ = 
                0.001; $CellContext`eGrad$$ = 51; $CellContext`showAxes$$ = 
                False; $CellContext`showEdges$$ = 
                True}; $CellContext`E8inE6 := {$CellContext`scale$$ = 
                0.04; $CellContext`favorite$$ = 22; $CellContext`showAxes$$ = 
                False; $CellContext`showEdges$$ = True; $CellContext`eGrad$$ = 
                16}; $CellContext`E7 := {$CellContext`scale$$ = 
                0.04; $CellContext`favorite$$ = 2; $CellContext`showAxes$$ = 
                False; $CellContext`showEdges$$ = True; $CellContext`eGrad$$ = 
                16; $CellContext`edgeVals$$ = {{
                   Sqrt[2], 2164}}; $CellContext`pListName$$ = 
                "E7"}; $CellContext`E6 := {$CellContext`scale$$ = 
                0.04; $CellContext`favorite$$ = 22; $CellContext`showAxes$$ = 
                False; $CellContext`showEdges$$ = True; $CellContext`eGrad$$ = 
                16; $CellContext`edgeVals$$ = {{
                   Sqrt[2], 800}}; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "E6"}; $CellContext`E6a := {$CellContext`pListName$$ = 
                "E6"; $CellContext`doProj[6]; $CellContext`showEdges$$ = 
                True; $CellContext`eGrad$$ = 
                0}; $CellContext`E5 := {$CellContext`pListName$$ = 
                "E5"; $CellContext`favorite$$ = 22; $CellContext`eSteps$$ = 
                5; $CellContext`eWnd$$ = 50; $CellContext`showEdges$$ = 
                True; $CellContext`eGrad$$ = 
                0}; $CellContext`E4 := {$CellContext`pListName$$ = 
                "A4=SL(5)=E4"; $CellContext`favorite$$ = 
                27; $CellContext`showEdges$$ = True; $CellContext`eGrad$$ = 
                0}; $CellContext`F4 := {$CellContext`favorite$$ = 
                21; $CellContext`range$$ = 2.1; $CellContext`showAxes$$ = 
                False; $CellContext`edgeVals$$ = {{
                   Sqrt[2], 364}}; $CellContext`tT$$ = {
                 "T4p"}; $CellContext`physics$$ = True; $CellContext`ds$$ = 
                3; $CellContext`pListName$$ = "F4"; $CellContext`dsName$$ = 
                "physics"; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]}; $CellContext`H4a := {$CellContext`pListName$$ = 
                "H4"; $CellContext`edgeVals$$ = {{
                   Sqrt[2], 1980}}; $CellContext`showEdges$$ = 
                True}; $CellContext`G2 := {$CellContext`outFile$$ = 
                "G2_"; $CellContext`outFileType$$ = 
                First[$CellContext`fileTypeList]; $CellContext`scale$$ = 
                1/10.; $CellContext`physics$$ = 
                True; $CellContext`showEdges$$ = 
                True; $CellContext`showPvecs$$ = 
                True; $CellContext`showPtext$$ = 
                True; $CellContext`pListName$$ = 
                "G2s=gluons"; $CellContext`dlXs$$ = $CellContext`dls[{
                  3}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  6}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  7}]; $CellContext`pthRot$$ = 
                "Trans&Rot"; $CellContext`steps$$ = 
                5; $CellContext`pthPtCds$$ = 
                "PtCoords"}; $CellContext`Tesseract := \
{$CellContext`artPrint$$ = True; $CellContext`scale$$ = 
                0.1; $CellContext`limitToRange$$ = False; $CellContext`cylR$$ = 
                0.022; $CellContext`favorite$$ = 1; $CellContext`showAxes$$ = 
                False; $CellContext`showEdges$$ = True; $CellContext`eGrad$$ = 
                0; $CellContext`eColorPos$$ = 
                False; $CellContext`edgeVals$$ = {{1, 
                 32}}; $CellContext`dimTrim$$ = 
                4; $CellContext`vOverlapColor$$ = True; $CellContext`range$$ = 
                2; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]; $CellContext`xyVwPnt$$ = {0.6, 
                 1.7}; $CellContext`zVwPnt$$ = 1/2; $CellContext`pthRot$$ = 
                "Rot"; $CellContext`steps$$ = 5; $CellContext`pListName$$ = 
                "8Cell=4Cube"; $CellContext`perspective$$ = 
                True; $CellContext`nDcamera$$ = 2.; $CellContext`p3D$$ = 
                " 3D"}; $CellContext`Cell16 := {$CellContext`pListName$$ = 
                "16Cell"; $CellContext`p3D$$ = 
                " 3D"; $CellContext`vOverlapColor$$ = 
                True; $CellContext`dimTrim$$ = 4; $CellContext`limitToRange$$ = 
                False; $CellContext`favorite$$ = 
                1; $CellContext`xyVwPnt$$ = {1, 1} (3/
                  4.); $CellContext`zVwPnt$$ = 3/4.; $CellContext`showEdges$$ = 
                True; $CellContext`eGrad$$ = 0; $CellContext`edgeVals$$ = {{
                   Sqrt[2], 
                   64}}}; $CellContext`Cell24 := {$CellContext`pListName$$ = 
                "24Cell"; $CellContext`favorite$$ = 9; $CellContext`dimTrim$$ = 
                4; $CellContext`edgeVals$$ = {{1, 
                 96}}; $CellContext`limitToRange$$ = 
                False; $CellContext`nDcamera$$ = 
                1.; $CellContext`xyVwPnt$$ = {1, 1} (3/
                  4.); $CellContext`zVwPnt$$ = 3/4.; $CellContext`pthRot$$ = 
                "Rot"; $CellContext`nDRot[
                  Pattern[$CellContext`\[Theta], 
                   Blank[]]] := Part[
                  $CellContext`nDRots[$CellContext`\[Theta]], 
                  2]; $CellContext`p3D$$ = " 3D"; $CellContext`showEdges$$ = 
                True}; $CellContext`Cell24D4 := {$CellContext`scale$$ = 
                0.04; $CellContext`cylR$$ = 0.021; $CellContext`favorite$$ = 
                9; $CellContext`dimTrim$$ = 4; $CellContext`showAxes$$ = 
                False; $CellContext`showEdges$$ = True; $CellContext`eGrad$$ = 
                16; $CellContext`edgeVals$$ = {{
                   Sqrt[2], 96}}; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "D4=SO(8)"}; $CellContext`Cell24G2 := \
{$CellContext`pListName$$ = "pType"; $CellContext`favorite$$ = 
                9; $CellContext`dimTrim$$ = 4; $CellContext`showEdges$$ = 
                True; $CellContext`limitToRange$$ = 
                False; $CellContext`nDcamera$$ = 
                1.; $CellContext`xyVwPnt$$ = {1, 1} (3/
                  4.); $CellContext`zVwPnt$$ = 3/4.; $CellContext`range$$ = 
                1.5; $CellContext`pthRot$$ = "Rot"; $CellContext`p3D$$ = 
                " 3D"; $CellContext`fr$$ = {3, 
                 4}}; $CellContext`C6003D := {$CellContext`range$$ = 
                1.; $CellContext`showEdges$$ = 
                True; $CellContext`edgeVals$$ = {{1, 928}}; $CellContext`ds$$ = 
                4; $CellContext`dsName$$ = 
                "CELL600"; $CellContext`showPolySurfaces$$ = 
                True; $CellContext`p3D$$ = 
                " 3D"; $CellContext`H$$ = {1, 0, 0, 0, 0, 0, 0, 0}/
                 2; $CellContext`V$$ = {0, 1, 0, 0, 0, 0, 0, 0}/
                 2; $CellContext`Z$$ = {0, 0, 0, 1, 0, 0, 0, 0}/
                 2; $CellContext`newPTcd$$ = {$CellContext`H$$, \
$CellContext`V$$, $CellContext`Z$$}; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  4}]}; $CellContext`Hydrogen := {$CellContext`scale$$ = 
                0.54; $CellContext`cylR$$ = 0.026; $CellContext`favorite$$ = 
                3; $CellContext`pthRot$$ = "Trans"; $CellContext`physics$$ = 
                True; $CellContext`showAxes$$ = 
                False; $CellContext`showEdges$$ = 
                True; $CellContext`showPtext$$ = True; $CellContext`eGrad$$ = 
                44; $CellContext`edgeVals$$ = {{
                  "All", 6}}; $CellContext`pListName$$ = 
                "None"; $CellContext`ds$$ = 3; $CellContext`dsName$$ = 
                "physics"; $CellContext`showPolySurfaces$$ = 
                True; $CellContext`xyVwPnt$$ = {1, 1} (3/
                  4.); $CellContext`zVwPnt$$ = 3/4.; $CellContext`p3D$$ = 
                " 3D"; $CellContext`addParticles[$CellContext`hydrogen]; \
$CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]; $CellContext`steps$$ = 
                5}; $CellContext`none := {$CellContext`pListName$$ = 
                Last[$CellContext`plNames]; $CellContext`favorite$$ = 
                23; $CellContext`edgeVals$$ = {
                  If[
                   AtomQ[$CellContext`edgeList$$], {}, 
                   Last[$CellContext`edgeList$$]]}; $CellContext`p3D$$ = 
                Part[$CellContext`p3DList, 2]; $CellContext`physics$$ = 
                True; $CellContext`xyVwPnt$$ = {1., 
                 1.}; $CellContext`zVwPnt$$ = 1.; $CellContext`scale$$ = 
                1/10.; $CellContext`showEdges$$ = 
                True; $CellContext`showPtext$$ = True; $CellContext`tT$$ = 
                Part[$CellContext`triList, {2, 4, 6}]; $CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  3]; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]}; $CellContext`F4Tris := {$CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  3]; $CellContext`favorite$$ = 19; $CellContext`physics$$ = 
                True; $CellContext`tT$$ = {
                  Part[$CellContext`triList, 2]}; $CellContext`pthRot$$ = 
                "Trans&Rot"; $CellContext`dlXs$$ = $CellContext`dls[{
                  4}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  3}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  1}]; $CellContext`steps$$ = 
                5}; $CellContext`F4G2 := {$CellContext`favorite$$ = 
                12; $CellContext`physics$$ = True; $CellContext`tT$$ = {
                  Part[$CellContext`triList, 2], 
                  Part[$CellContext`triList, 6]}; $CellContext`pthRot$$ = 
                "Trans"; $CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  3]; $CellContext`dlXs$$ = $CellContext`dls[{
                  4}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  3}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  1}]; $CellContext`steps$$ = 
                5}; $CellContext`F4Star := {$CellContext`artPrint$$ = 
                True; $CellContext`limitToRange$$ = 
                False; $CellContext`favorite$$ = 21; $CellContext`pGrad$$ = 
                16; $CellContext`showAxes$$ = 
                False; $CellContext`tT$$ = {"T4p"}; $CellContext`ds$$ = 
                3; $CellContext`dsName$$ = 
                "physics"; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]}; $CellContext`Cube2Pascal := {$CellContext`scale$$ = 
                0.06; $CellContext`cylR$$ = 0.021; $CellContext`showEdges$$ = 
                True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 4}}; $CellContext`dimTrim$$ = 
                2; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "B2=SO(5)=C2"; $CellContext`doCubePascal[
                2]; $CellContext`newPTcd$$ = {$CellContext`H$$, \
$CellContext`V$$, $CellContext`Z$$}}; $CellContext`Cube3Pascal := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.021; $CellContext`showEdges$$ = True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 12}}; $CellContext`dimTrim$$ = 
                3; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "3Cube"; $CellContext`doCubePascal[
                3]; $CellContext`newPTcd$$ = {$CellContext`H$$, \
$CellContext`V$$, $CellContext`Z$$}}; $CellContext`Cube4Pascal := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.021; $CellContext`favorite$$ = 27; $CellContext`showEdges$$ = 
                True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 32}}; $CellContext`dimTrim$$ = 
                4; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "8Cell=4Cube"}; $CellContext`Cube5Pascal := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.021; $CellContext`favorite$$ = 28; $CellContext`showEdges$$ = 
                True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 80}}; $CellContext`dimTrim$$ = 
                5; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "C4=5Cube"}; $CellContext`Cube6Pascal := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.021; $CellContext`showEdges$$ = True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 192}}; $CellContext`dimTrim$$ = 
                6; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "6Cube=Hexeract"; $CellContext`doCubePascal[
                6]; $CellContext`newPTcd$$ = {$CellContext`H$$, \
$CellContext`V$$, $CellContext`Z$$}}; $CellContext`Cube7Pascal := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.021; $CellContext`range$$ = 2.; $CellContext`limitToRange$$ = 
                False; $CellContext`favorite$$ = 29; $CellContext`showEdges$$ = 
                True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 448}}; $CellContext`dimTrim$$ = 
                7; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "C8=7Cube=Int/2"}; $CellContext`Cube8Pascal := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.021; $CellContext`showEdges$$ = True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 128}}; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "All"; $CellContext`doCubePascal[
                8]; $CellContext`newPTcd$$ = {$CellContext`H$$, \
$CellContext`V$$, $CellContext`Z$$}}; $CellContext`Cube2Petrie := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.019; $CellContext`favorite$$ = 1; $CellContext`showEdges$$ = 
                True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 12}}; $CellContext`dimTrim$$ = 
                2; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "B2=SO(5)=C2"}; $CellContext`Cube3Petrie := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.019; $CellContext`showEdges$$ = True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 12}}; $CellContext`dimTrim$$ = 
                3; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = "3Cube"; $CellContext`doCube[
                3]; $CellContext`newPTcd$$ = {$CellContext`H$$, \
$CellContext`V$$, $CellContext`Z$$}}; $CellContext`Cube4Petrie := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.021; $CellContext`favorite$$ = 9; $CellContext`showEdges$$ = 
                True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 32}}; $CellContext`dimTrim$$ = 
                4; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "8Cell=4Cube"}; $CellContext`Cube5Petrie := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.021; $CellContext`favorite$$ = 10; $CellContext`showEdges$$ = 
                True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 80}}; $CellContext`dimTrim$$ = 
                5; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                
                "C4=5Cube"}; $CellContext`Cube6Petrie := \
{$CellContext`scale$$ = 0.06; $CellContext`cylR$$ = 
                0.021; $CellContext`showEdges$$ = True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 192}}; $CellContext`dimTrim$$ = 
                6; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "6Cube=Hexeract"; $CellContext`doCube[
                6]; $CellContext`newPTcd$$ = {$CellContext`H$$, \
$CellContext`V$$, $CellContext`Z$$}}; $CellContext`Cube7Petrie := \
{$CellContext`scale$$ = 0.04; $CellContext`favorite$$ = 
                11; $CellContext`showEdges$$ = True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 448}}; $CellContext`dimTrim$$ = 
                7; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = 
                "C8=7Cube=Int/2"}; $CellContext`Cube8Petrie := \
{$CellContext`scale$$ = 0.04; $CellContext`showEdges$$ = 
                True; $CellContext`pGrad$$ = 
                10; $CellContext`edgeVals$$ = {{1, 
                 128}}; $CellContext`vOverlapColor$$ = 
                True; $CellContext`pListName$$ = "All"; $CellContext`doCube[
                8]; $CellContext`newPTcd$$ = {$CellContext`H$$, \
$CellContext`V$$, $CellContext`Z$$}}; $CellContext`LeptonInfo := \
{$CellContext`scale$$ = 1/10.; $CellContext`showPtext$$ = 
                True; $CellContext`physics$$ = True; $CellContext`showPmass$$ = 
                True; $CellContext`pListName$$ = 
                "none"; $CellContext`addParticles[$CellContext`l1]}; \
$CellContext`QuarkInfo := {$CellContext`scale$$ = 
                1/10.; $CellContext`favorite$$ = 20; $CellContext`p3D$$ = 
                Part[$CellContext`p3DList, 2]; $CellContext`physics$$ = 
                True; $CellContext`xyVwPnt$$ = {1, 1} (3/
                  4.); $CellContext`zVwPnt$$ = 
                3/4.; $CellContext`showSurfaces$$ = 
                True; $CellContext`showPtext$$ = 
                True; $CellContext`showPmass$$ = True; $CellContext`fr$$ = 
                2; $CellContext`fa$$ = 0; $CellContext`fc$$ = 
                1; $CellContext`fs$$ = 
                0}; $CellContext`QuarkCol := {$CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  3]; $CellContext`scale$$ = 1/10.; $CellContext`favorite$$ = 
                31; $CellContext`physics$$ = True; $CellContext`p3D$$ = 
                Part[$CellContext`p3DList, 2]; $CellContext`pthRot$$ = 
                "Trans"; $CellContext`dlXs$$ = \
$CellContext`dls[$CellContext`H1a]; $CellContext`dlYs$$ = \
$CellContext`dls[$CellContext`V1a]; $CellContext`dlZs$$ = \
$CellContext`dls[$CellContext`Z1a]; $CellContext`tT$$ = $CellContext`triList; \
$CellContext`steps$$ = 5; $CellContext`pListName$$ = 
                "none"; $CellContext`addParticles[$CellContext`q]}; \
$CellContext`Binary := {$CellContext`range$$ = 1.25; $CellContext`favorite$$ = 
                25; $CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  1]; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]}; $CellContext`BinStar := {$CellContext`pt$$ = {1, 1, 
                  1} ($CellContext`range$$/2); $CellContext`favorite$$ = 
                9; $CellContext`showEdges$$ = True; $CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  1]; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]}; $CellContext`BinSquare := {$CellContext`range$$ = 
                1.25; $CellContext`favorite$$ = 23; $CellContext`dsName$$ = 
                Part[$CellContext`dsNames, $CellContext`ds$$ = 
                  1]; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]}; $CellContext`Devolution := {$CellContext`scale$$ = 
                0.04; $CellContext`cylR$$ = 0.008; $CellContext`range$$ = 
                2.; $CellContext`limitToRange$$ = 
                False; $CellContext`favorite$$ = 23; $CellContext`physics$$ = 
                True; $CellContext`ds$$ = 3; $CellContext`dsName$$ = 
                "physics"; $CellContext`xyVwPnt$$ = {1, 1} (3/
                  4.); $CellContext`zVwPnt$$ = 
                3/4.; $CellContext`dlXs$$ = $CellContext`dls[{
                  1}]; $CellContext`dlYs$$ = $CellContext`dls[{
                  2}]; $CellContext`dlZs$$ = $CellContext`dls[{
                  3}]; $CellContext`p3D$$ = 
                " 3D"; $CellContext`ltps$$ = {61, 
                 195}; $CellContext`plines$$ = CompressedData["
1:eJwNw8tPAQAAB2CrzZqtQ/OYQwc6mKONFuonR4tC/0ByIbEmbTjQqTxu6XWI
VevW88ix9UOpZY42N3QJ49LM5pBv+5TuvU33lEAgOJicnsTMGLNDyAeY70PR
g7KLhQ5UdWiq0L1iMY+lF+ifYXiC8RHLD1i5h8mJVQssq3CaELhD8Bb7Nwhd
I5xDJIvoFWKXiF/g8Bznh7iI4zKGqyiyEeTCuA7hZh+3QdwFcL+Ch2U8GvFk
wLMeL0vIL+JVh6oGdRU6C+gq0VOgP4+BHMNZjGcoHFH0x7lfin8oaVPaoqxJ
dYPaGs3fXPui9ZO2Ctc/uPFOe5mOEp1Fbp3RdcrtDN0n9KTpTXEnSV+Cu8f0
H/HIz+NdJnxM7jDlZdrDEzcz2zx18WyLhTe+FVh0suRg2c73DX6ss2Ljp5Vf
a/w2s6ZlQ82mjC0p2xL+iPk7xz8RR8J/7GyvzA==
                 "]}; $CellContext`setLieGroup := (
              Map[(Part[$CellContext`dispArr$$, #] = "n")& , 
                Range[$CellContext`le8]]; 
              Map[{Part[$CellContext`dispArr$$, #] = "y"}& , 
                Switch[
                 ToLowerCase[$CellContext`lie$$], "a1", $CellContext`a1, 
                 "a2", $CellContext`a2, "a3", $CellContext`a3, 
                 "a4", $CellContext`a4, "a5", $CellContext`a5, 
                 "a6", $CellContext`a6, "a7", $CellContext`a7, 
                 "b2", $CellContext`b2, "b3", $CellContext`b3, 
                 "b4", $CellContext`b4, "b5", $CellContext`b5, 
                 "b6", $CellContext`b6, "b8", $CellContext`b8, 
                 "c3", $CellContext`c3, "c4", $CellContext`c4, 
                 "c5", $CellContext`c5, "c6", $CellContext`c6, 
                 "c7", $CellContext`c7, "c8", $CellContext`c8, 
                 "d4", $CellContext`d4, "d5", $CellContext`d5, 
                 "d6", $CellContext`d6, "d7", $CellContext`d7, 
                 "d8", $CellContext`d8, "e6", $CellContext`e6, 
                 "e7", $CellContext`e7, "e8", $CellContext`e8, 
                 "g2", $CellContext`g2, "f4", $CellContext`f4, 
                 "h4", $CellContext`h4]]); $CellContext`filterList := \
{$CellContext`fa$$, $CellContext`fp$$, $CellContext`fc$$, $CellContext`fs$$, \
$CellContext`fg$$, $CellContext`fr$$}; $CellContext`setFlt := \
($CellContext`fa$$ = {}; $CellContext`fp$$ = {}; $CellContext`fc$$ = {}; \
$CellContext`fs$$ = {}; $CellContext`fg$$ = {}; $CellContext`fr$$ = {}); \
$CellContext`unsetFlt := (Unset[$CellContext`fa$$]; Unset[$CellContext`fp$$]; 
              Unset[$CellContext`fc$$]; Unset[$CellContext`fs$$]; 
              Unset[$CellContext`fg$$]; 
              Unset[$CellContext`fr$$]); $CellContext`ifNum := \
($CellContext`fa$$ = If[
                 
                 NumberQ[$CellContext`fa$$], {$CellContext`fa$$}, {}]; \
$CellContext`fp$$ = If[
                 
                 NumberQ[$CellContext`fp$$], {$CellContext`fp$$}, {}]; \
$CellContext`fc$$ = If[
                 
                 NumberQ[$CellContext`fc$$], {$CellContext`fc$$}, {}]; \
$CellContext`fs$$ = If[
                 
                 NumberQ[$CellContext`fs$$], {$CellContext`fs$$}, {}]; \
$CellContext`fg$$ = If[
                 
                 NumberQ[$CellContext`fg$$], {$CellContext`fg$$}, {}]; \
$CellContext`fr$$ = If[
                 
                 NumberQ[$CellContext`fr$$], {$CellContext`fr$$}, {}]); \
$CellContext`ifLen := (If[
                And[
                 
                 ListQ[$CellContext`fa$$], $CellContext`fa$$ != {}], \
$CellContext`fa$$ = First[$CellContext`fa$$], 
                Unset[$CellContext`fa$$]]; If[
                And[
                 
                 ListQ[$CellContext`fp$$], $CellContext`fp$$ != {}], \
$CellContext`fp$$ = First[$CellContext`fp$$], 
                Unset[$CellContext`fp$$]]; If[
                And[
                 
                 ListQ[$CellContext`fc$$], $CellContext`fc$$ != {}], \
$CellContext`fc$$ = First[$CellContext`fc$$], 
                Unset[$CellContext`fc$$]]; If[
                And[
                 
                 ListQ[$CellContext`fs$$], $CellContext`fs$$ != {}], \
$CellContext`fs$$ = First[$CellContext`fs$$], 
                Unset[$CellContext`fs$$]]; If[
                And[
                 
                 ListQ[$CellContext`fg$$], $CellContext`fg$$ != {}], \
$CellContext`fg$$ = First[$CellContext`fg$$], 
                Unset[$CellContext`fg$$]]; If[
                And[
                 
                 ListQ[$CellContext`fr$$], $CellContext`fr$$ != {}], \
$CellContext`fr$$ = First[$CellContext`fr$$], 
                Unset[$CellContext`fr$$]]); $CellContext`switchFilter := 
             If[$CellContext`bAND$$ == 
               1, $CellContext`ifNum, $CellContext`ifLen]; \
$CellContext`clearFilter := 
             If[$CellContext`bAND$$ == 
               1, $CellContext`setFlt, $CellContext`unsetFlt]; \
$CellContext`e8Filter[
               Pattern[$CellContext`f, 
                Blank[List]]] := 
             Sum[2^Part[$CellContext`bOrd, $CellContext`i] 
               Part[$CellContext`f, $CellContext`i], {$CellContext`i, 1, 
                Length[$CellContext`f]}]; $CellContext`doFilter := 
             Module[{$CellContext`runFilter$, $CellContext`bTest$, \
$CellContext`bCont$, $CellContext`bMatch$}, $CellContext`runFilter$[
                  Pattern[$CellContext`i$, 
                   Blank[]]] := (If[
                   And[$CellContext`bCont$, Length[$CellContext`fr$$] > 0], 
                   Map[If[
                    
                    Or[# == 
                    0, # == $CellContext`pRow[$CellContext`i$]], \
$CellContext`bMatch$ = True, 
                    
                    If[$CellContext`bAND$$ == 
                    2, $CellContext`bMatch$ = False; $CellContext`bCont$ = 
                    False]]& , $CellContext`fr$$]]; Map[If[
                    And[$CellContext`bCont$, Length[
                    Part[$CellContext`filterList, #]] > 0], 
                    Do[$CellContext`bTest$ = BitAnd[
                    $CellContext`pBit[$CellContext`i$], 
                    $CellContext`e8Filter[
                    ReplacePart[
                    Array[0& , 
                    Length[
                    Most[$CellContext`filterList]]], # -> If[# < 3, 1, 3]]]]; 
                    If[
                    
                    Or[$CellContext`bTest$ == 
                    Part[$CellContext`filterList, #, $CellContext`j] == 0, 
                    And[$CellContext`bTest$ > 0, BitXor[$CellContext`bTest$, 
                    $CellContext`e8Filter[
                    ReplacePart[
                    Array[0& , 
                    Length[
                    Most[$CellContext`filterList]]], # -> 
                    Part[$CellContext`filterList, #, $CellContext`j]]]] == 
                    0]], $CellContext`bMatch$ = True, 
                    
                    If[$CellContext`bAND$$ == 
                    2, $CellContext`bMatch$ = False; $CellContext`bCont$ = 
                    False]], {$CellContext`j, 
                    Length[
                    Part[$CellContext`filterList, #]]}]]& , 
                   Range[
                    Length[
                    Most[$CellContext`filterList]]]]); 
               If[$CellContext`bAND$$ == 
                 2, $CellContext`ifNum]; $CellContext`fltrdSubPlot$$ = {}; 
               Map[If[Part[$CellContext`dispArr$$, #] == "y", 
                  AppendTo[$CellContext`fltrdSubPlot$$, #]]& , 
                 Range[$CellContext`le8]]; 
               Map[($CellContext`bMatch$ = False; $CellContext`bCont$ = True; 
                 If[Sum[
                    Length[
                    
                    Part[$CellContext`filterList, $CellContext`k]], \
{$CellContext`k, 1, 
                    Length[$CellContext`filterList]}] > 0, 
                   $CellContext`runFilter$[#], $CellContext`bMatch$ = True]; 
                 If[
                   
                   And[$CellContext`bMatch$, Part[$CellContext`dispArr$$, #] == 
                    "?"], 
                   AppendTo[$CellContext`fltrdSubPlot$$, #]])& , 
                 Part[$CellContext`pls, 
                  $CellContext`position[$CellContext`plNames, \
$CellContext`pListName$$]]]; 
               If[$CellContext`bAND$$ == 
                 2, $CellContext`ifLen]]; $CellContext`dln[
               Pattern[$CellContext`l$, 
                Blank[]]] := Map[$CellContext`position[
                
                Part[$CellContext`dl, $CellContext`ds$$], #]& , \
$CellContext`l$]; $CellContext`dls[
               Pattern[$CellContext`l$, 
                Blank[]]] := 
             Part[$CellContext`dl, $CellContext`ds$$, $CellContext`l$]; \
$CellContext`dlXn := $CellContext`dln[$CellContext`dlXs$$]; $CellContext`dlYn := \
$CellContext`dln[$CellContext`dlYs$$]; $CellContext`dlZn := \
$CellContext`dln[$CellContext`dlZs$$]; $CellContext`rot\[Theta]List[
               Pattern[$CellContext`\[Theta], 
                Blank[List]], 
               Pattern[$CellContext`hp, 
                Blank[List]]] := Dot[
               $CellContext`rot\[Theta][
                Part[$CellContext`\[Theta], 3], 
                Part[$CellContext`hp, 3]], 
               $CellContext`rot\[Theta][
                Part[$CellContext`\[Theta], 2], 
                Part[$CellContext`hp, 2]], 
               $CellContext`rot\[Theta][
                Part[$CellContext`\[Theta], 1], 
                Part[$CellContext`hp, 1]]]; $CellContext`rotXY[
               Pattern[$CellContext`\[Theta], 
                Blank[]]] := $CellContext`rot\[Theta][$CellContext`\[Theta], {
                $CellContext`dla[$CellContext`dlXn], 
                $CellContext`dla[$CellContext`dlYn]}]; $CellContext`rotYZ[
               Pattern[$CellContext`\[Theta], 
                Blank[]]] := $CellContext`rot\[Theta][$CellContext`\[Theta], {
                $CellContext`dla[$CellContext`dlYn], 
                $CellContext`dla[$CellContext`dlZn]}]; $CellContext`rotZX[
               Pattern[$CellContext`\[Theta], 
                Blank[]]] := $CellContext`rot\[Theta][$CellContext`\[Theta], {
                $CellContext`dla[$CellContext`dlZn], 
                $CellContext`dla[$CellContext`dlXn]}]; $CellContext`rotXYZ[
               Pattern[$CellContext`\[Theta]$, 
                Blank[
                List]]] := \
$CellContext`rot\[Theta]List[$CellContext`\[Theta]$, {{
                 $CellContext`dla[{$CellContext`dimTrim$$}], 
                 $CellContext`dla[
                  $CellContext`dln[$CellContext`dlXs$$]]}, {
                 $CellContext`dla[{$CellContext`dimTrim$$}], 
                 $CellContext`dla[
                  $CellContext`dln[$CellContext`dlYs$$]]}, {
                 $CellContext`dla[{$CellContext`dimTrim$$}], 
                 $CellContext`dla[
                  $CellContext`dln[$CellContext`dlZs$$]]}}]; \
$CellContext`nDRots[
               Pattern[$CellContext`\[Theta], 
                Blank[]]] := {{$CellContext`\[Theta], 0, 
                0}, {$CellContext`\[Theta], $CellContext`\[Theta]/2, 
                0}, {$CellContext`\[Theta], $CellContext`\[Theta]/
                2, $CellContext`\[Theta]/4}}; $CellContext`nDRot[
               Pattern[$CellContext`\[Theta], 
                Blank[]]] := Part[
               $CellContext`nDRots[$CellContext`\[Theta]], 
               1]; $CellContext`initial := {$CellContext`HI, $CellContext`VI, \
$CellContext`ZI}; $CellContext`final := {$CellContext`HF, $CellContext`VF, \
$CellContext`ZF}; $CellContext`setIFpath := ($CellContext`HI = \
$CellContext`dla[$CellContext`dlXn]; $CellContext`VI = \
$CellContext`dla[$CellContext`dlYn]; $CellContext`ZI = \
$CellContext`dla[$CellContext`dlZn]; $CellContext`HF = 
               Reverse[$CellContext`HI]; $CellContext`VF = 
               Reverse[$CellContext`VI]; $CellContext`ZF = 
               Reverse[$CellContext`ZI]; {$CellContext`iPath, \
$CellContext`fPath} = {$CellContext`initial, $CellContext`ptCds} + 
                If[$CellContext`pthPtCds$$ == "Identity", 
                  0, {-$CellContext`ptCds, 0}]); $CellContext`setPTo[
               Pattern[$CellContext`\[Theta]$, 
                Blank[]]] := ($CellContext`H$$ = Dot[
                 $CellContext`rotXY[$CellContext`\[Theta]$], 
                 Part[$CellContext`fPath, 1]]; $CellContext`V$$ = Dot[
                 $CellContext`rotYZ[$CellContext`\[Theta]$], 
                 Part[$CellContext`fPath, 2]]; $CellContext`Z$$ = Dot[
                 $CellContext`rotZX[$CellContext`\[Theta]$], 
                 Part[$CellContext`fPath, 3]]); $CellContext`setPTt[
               Pattern[$CellContext`\[Theta]$, 
                Blank[]]] := ($CellContext`H$$ = 
               Part[$CellContext`fPath, 1]; $CellContext`V$$ = 
               Cos[$CellContext`\[Theta]$] Part[$CellContext`fPath, 2] + 
                Sin[$CellContext`\[Theta]$] 
                 Part[$CellContext`fPath, 3]; $CellContext`Z$$ = 
               Part[$CellContext`fPath, 3]); $CellContext`eFct[
               Pattern[$CellContext`in$, 
                Blank[]]] := Min[$CellContext`minEdgeCnt, 
               Floor[
                
                If[$CellContext`in$ == $CellContext`eLim$$ - 
                  1, $CellContext`minEdgeCnt, 
                 
                 If[$CellContext`in$ == $CellContext`eLim$$, \
$CellContext`specialFct, 
                  
                  If[$CellContext`in$ < $CellContext`eLim$$/
                    3, $CellContext`in$, $CellContext`minEdgeCnt 
                   If[$CellContext`in$ < $CellContext`eLim$$ (2/
                    3), $CellContext`in$/$CellContext`eLim$$ - 1/
                    3, ((3/2) ($CellContext`in$/$CellContext`eLim$$) - 1/
                    2)^($CellContext`in$/$CellContext`eLim$$)]]]]]]; \
$CellContext`norm[
               Pattern[$CellContext`e, 
                Blank[]]] := Norm[
               N[
                $CellContext`line2[
                "verts", $CellContext`e]]]; $CellContext`elineSort[
               Pattern[$CellContext`type$, 
                Blank[]]] := 
             SortBy[$CellContext`elines$$, 
               If[$CellContext`type$ == "Ascending", 
                $CellContext`norm[#], 
                1/($CellContext`chop + $CellContext`norm[#])]& ]; \
$CellContext`maxEdge := Max[
               
               Map[$CellContext`norm, $CellContext`elines$$]]; \
$CellContext`doEdgeList[
               Pattern[$CellContext`in$, 
                Blank[]]] := 
             Module[{$CellContext`strt$, $CellContext`end$}, 
               Do[If[$CellContext`eSteps$$ > 
                   1, $CellContext`end$ = 
                    Ceiling[$CellContext`minEdgeCnt \
($CellContext`j1/$CellContext`eFct[$CellContext`eSteps$$])]; \
$CellContext`strt$ = 
                    Max[1, $CellContext`end$ - \
$CellContext`eFct[$CellContext`eWnd$$]]; $CellContext`elines$$ = 
                    Part[$CellContext`eSort$$, 
                    
                    Span[$CellContext`strt$, $CellContext`end$]]]; \
$CellContext`processOut[$CellContext`eFct[$CellContext`eSteps$$] \
($CellContext`in$ - 1) + $CellContext`j1], {$CellContext`j1, 
                  $CellContext`eFct[$CellContext`eSteps$$]}]; \
$CellContext`eSort$$ = {}]; $CellContext`processImage[
               Pattern[$CellContext`in$, 
                Blank[]]] := Module[{$CellContext`i$}, 
               If[
                And[$CellContext`showEdges$$, 
                 
                 Or[$CellContext`eSteps$$ > 
                  1, $CellContext`anim8EdgeList$$]], $CellContext`i$ = 1; 
                Map[{$CellContext`elines$$ = $CellContext`eLines[#]; \
$CellContext`edgeMag$$ = 
                    Max[$CellContext`chop, $CellContext`maxEdge]; \
$CellContext`elines$$ = ($CellContext`eSort$$ = $CellContext`elineSort[
                    "Ascending"]); $CellContext`doEdgeList[
                    If[$CellContext`anim8EdgeList$$, 
                    Length[
                    Most[$CellContext`edgeList$$]], 1] ($CellContext`in$ - 1) + 
                    Increment[$CellContext`i$]]}& , 
                  If[$CellContext`anim8EdgeList$$, 
                   Most[$CellContext`edgeList$$], $CellContext`edgeVals$$]], 
                $CellContext`processOut[$CellContext`in$]]]; \
$CellContext`doAnim8 := 
             Module[{$CellContext`HSav$ = $CellContext`H$$, \
$CellContext`VSav$ = $CellContext`V$$, $CellContext`ZSav$ = $CellContext`Z$$, \
$CellContext`elineSav$ = $CellContext`elines$$, $CellContext`edgeValsSav$ = \
$CellContext`edgeVals$$}, $CellContext`loop = {}; $CellContext`setIFpath; 
               Map[{$CellContext`\[Theta] = 
                   2 Pi (# $CellContext`steps$$^(-1)/2); 
                  Switch[$CellContext`pthRot$$, 
                    "Spin", $CellContext`lastViewPoint$$ = {
                    Cos[$CellContext`\[Theta]], 
                    Sin[$CellContext`\[Theta]], 0.001} 
                    Subscript[$CellContext`range$$, $CellContext`scaled], 
                    "Trans", 
                    $CellContext`setPTt[$CellContext`\[Theta]], "Trans&Rot", 
                    $CellContext`setPTo[$CellContext`\[Theta]]]; \
$CellContext`processImage[#]}& , 
                 Range[$CellContext`steps$$]]; If[
                 And[$CellContext`loop != {}, 
                  Not[$CellContext`fileOnly$$]], $CellContext`out = 
                 ListAnimate[$CellContext`loop, DefaultDuration -> 3, 
                   AnimationRunning -> 
                   False]]; $CellContext`H$$ = $CellContext`HSav$; \
$CellContext`V$$ = $CellContext`VSav$; $CellContext`Z$$ = $CellContext`ZSav$; \
$CellContext`elines$$ = $CellContext`elineSav$; $CellContext`edgeVals$$ = \
$CellContext`edgeValsSav$]; $CellContext`listToPos[
               Pattern[$CellContext`pLst, 
                Blank[List]], 
               Pattern[$CellContext`vLst, 
                Blank[List]]] := Module[{$CellContext`i}, 
               Map[Map[Apply[$CellContext`position[$CellContext`pLst, 
                   Part[$CellContext`vLst, #, #2]]& , {$CellContext`i, #}]& , 
                 Range[
                  Length[
                   Part[$CellContext`vLst, $CellContext`i = #]]]]& , 
                Range[
                 Length[$CellContext`vLst]]]]; $CellContext`line2["verts", 
               Pattern[$CellContext`e$, 
                Blank[]]] := {$CellContext`edge1 = $CellContext`posTbl[
                 Part[$CellContext`verts$$, 
                  
                  Part[$CellContext`e$, 
                   1]]], $CellContext`edge2 = $CellContext`posTbl[
                 Part[$CellContext`verts$$, 
                  Part[$CellContext`e$, 2]]]}; $CellContext`line2["fullVerts", 
               Pattern[$CellContext`e$, 
                Blank[]]] := {$CellContext`edge1 = $CellContext`posTbl[
                 Part[$CellContext`fullVerts$$, 
                  
                  Part[$CellContext`e$, 
                   1]]], $CellContext`edge2 = $CellContext`posTbl[
                 Part[$CellContext`fullVerts$$, 
                  Part[$CellContext`e$, 2]]]}; $CellContext`line3["verts", 
               Pattern[$CellContext`e$, 
                Blank[]]] := Join[
               $CellContext`line2[
               
               "verts", $CellContext`e$], {$CellContext`edge3 = \
$CellContext`posTbl[
                  Part[$CellContext`verts$$, 
                   Part[$CellContext`e$, 3]]]}]; $CellContext`line3[
              "fullVerts", 
               Pattern[$CellContext`e$, 
                Blank[]]] := Join[
               $CellContext`line2[
               "fullVerts", $CellContext`e$], {$CellContext`edge3 = \
$CellContext`posTbl[
                  Part[$CellContext`fullVerts$$, 
                   Part[$CellContext`e$, 3]]]}]; $CellContext`getVContent[
               Pattern[$CellContext`v$, 
                Blank[]]] := 
             Select[$CellContext`elines$$, 
               Or[$CellContext`v$ == Part[#, 1], $CellContext`v$ == 
                Part[#, 2]]& ]; $CellContext`getU[
               Pattern[$CellContext`v, 
                Blank[]]] := Module[{$CellContext`uLst}, 
               Delete[$CellContext`uLst = Union[
                  Flatten[
                   $CellContext`getVContent[$CellContext`v]]], 
                $CellContext`position[$CellContext`uLst, $CellContext`v]]]; \
$CellContext`nFaces[
               Pattern[$CellContext`vLst, 
                Blank[List]]] := 
             Module[{$CellContext`nlv, $CellContext`np, $CellContext`nlst = \
{}}, $CellContext`nlv = Map[$CellContext`getU, $CellContext`vLst]; Map[Do[
                  
                  If[$CellContext`i != \
$CellContext`position[$CellContext`nlv, #], $CellContext`np = Position[
                    Part[$CellContext`nlv, $CellContext`i], 
                    Part[#, $CellContext`j]]; If[$CellContext`np != {}, 
                    AppendTo[$CellContext`nlst, 
                    Part[#, $CellContext`j]]]], {$CellContext`i, 
                   Length[$CellContext`nlv]}, {$CellContext`j, 
                   Length[#]}]& , $CellContext`nlv]; 
               Map[Join[$CellContext`vLst, {#}]& , 
                 Union[$CellContext`nlst]]]; $CellContext`polySurfaces := 
             Map[If[$CellContext`p3D$$ == Part[$CellContext`p3DList, 1], {
                 Opacity[0.5], Pink, 
                 Polygon[
                  $CellContext`line3["verts", #]]}, 
                Polygon[
                 $CellContext`line3["verts", #]]]& , 
               $CellContext`noDups[
                Flatten[
                 Map[$CellContext`nFaces, 
                  Sort[$CellContext`elines$$]], 1]]]; $CellContext`e8Surface[
               Pattern[$CellContext`p$, 
                Blank[]]] := Inset[
               Part[
                Flatten[
                 
                 If[$CellContext`p3D$$ == 
                  Part[$CellContext`p3DList, 
                    1], $CellContext`orb2D, $CellContext`orb3Ds]], 
                $CellContext`position[$CellContext`graphicList, 
                 $CellContext`getNLM[
                  $CellContext`get120[$CellContext`p$]]]], 
               $CellContext`posTbl[
                $CellContext`dsGet[$CellContext`p$]], {0, 0}, 
               If[$CellContext`p3D$$ == Part[$CellContext`p3DList, 1], 1/200, 
                 6] Part[
                 Subscript[$CellContext`XY$$, $CellContext`scaled], 3] Part[
                 ReleaseHold[
                  $CellContext`pShpSze[$CellContext`p$]], 
                 2]]; $CellContext`surfaces := 
             Map[$CellContext`e8Surface, $CellContext`fltrdSubPlot$$]; \
$CellContext`rectifyEdges := ($CellContext`rectNodes$$ = Apply[Subtract, 
                Subsets[$CellContext`rectNodes$$, {2}], {
                1}]); $CellContext`rectifyParticles := \
($CellContext`rectNodes$$ = 
               Map[($CellContext`line2[
                  "verts", #]; ($CellContext`edge1 + $CellContext`edge2)/
                  2)& , $CellContext`elines$$]; 
              Map[$CellContext`rectifyEdges& , 
                Range[$CellContext`rectification$$ - 1]]; Map[{
                 If[$CellContext`vOverlapColor$$, 
                  $CellContext`getColor[
                   $CellContext`count[$CellContext`rectNodes$$, #]], Black], 
                 $CellContext`poly[{$CellContext`cir, 1/2}, #, 
                  
                  Subscript[$CellContext`scale$$, $CellContext`scaled], \
$CellContext`plDims]}& , $CellContext`rectNodes$$]); $CellContext`tLines := 
             Module[{$CellContext`chkTri$, $CellContext`rPt$, \
$CellContext`rPtt$, $CellContext`tmpPos1$, $CellContext`tmpPos2$}, \
$CellContext`chkTri$[
                  Pattern[$CellContext`isFirst$, 
                   Blank[]], 
                  Pattern[$CellContext`p$, 
                   Blank[]]] := Map[If[Position[$CellContext`tT$$, 
                    Part[$CellContext`triList, #]] != {}, 
                   FullSimplify[
                    Dot[
                    If[$CellContext`isFirst$, 
                    IdentityMatrix[$CellContext`dims], 
                    Part[$CellContext`triListExp, #]], 
                    Part[$CellContext`triListExp, #], $CellContext`p$]], 
                   First[$CellContext`fullVerts$$]]& , 
                  Range[
                   Length[$CellContext`triList]]]; 
               If[$CellContext`fltrdSubPlot$$ != {}, $CellContext`fullVerts$$ = 
                  Map[$CellContext`dsGet, $CellContext`fltrdSubPlot$$]; \
$CellContext`rPt$ = Flatten[
                    
                    Map[$CellContext`chkTri$[
                    True, #]& , $CellContext`fullVerts$$], 
                    1]; $CellContext`rPtt$ = Flatten[
                    
                    Map[$CellContext`chkTri$[
                    False, #]& , $CellContext`fullVerts$$], 
                    1]; $CellContext`noDups[
                   $CellContext`noNull[
                    Flatten[
                    Map[Table[{#, 
                    $CellContext`position[$CellContext`fullVerts$$, 
                    
                    Part[$CellContext`rPt$, 
                    Length[$CellContext`triList] (# - 1) + $CellContext`i]], 
                    $CellContext`position[$CellContext`fullVerts$$, 
                    
                    Part[$CellContext`rPtt$, 
                    Length[$CellContext`triList] (# - 
                    1) + $CellContext`i]]}, {$CellContext`i, 
                    Length[$CellContext`triList]}]& , 
                    Range[
                    Length[$CellContext`fullVerts$$]]], 
                    1]]], $CellContext`fullVerts$$ = {}]]; $CellContext`pLines[
               Pattern[$CellContext`pList$, 
                Blank[]]] := 
             Map[Module[{$CellContext`nl$ = {}, $CellContext`vl$}, \
$CellContext`vLines[{#}]; $CellContext`vl$ = DeleteCases[
                   Union[
                    Map[Part[$CellContext`fltrdSubPlot$$, #]& , 
                    Flatten[$CellContext`vlines$$]]], #]; Do[
                  If[$CellContext`pE8[
                    Part[$CellContext`vl$, $CellContext`i]] + $CellContext`pE8[
                    
                    Part[$CellContext`vl$, $CellContext`j]] == \
$CellContext`pE8[#], 
                   AppendTo[$CellContext`nl$, {#, 
                    Part[$CellContext`vl$, $CellContext`i], 
                    
                    Part[$CellContext`vl$, $CellContext`j]}]], \
{$CellContext`i, $CellContext`j + 1, 
                   Length[$CellContext`vl$]}, {$CellContext`j, 
                   Length[$CellContext`vl$]}]; $CellContext`plines$$ = 
                 Join[$CellContext`plines$$, 
                   $CellContext`noDups[$CellContext`nl$]]]& , \
$CellContext`pList$]; $CellContext`vertexTally := 
             Module[{$CellContext`tly2$}, $CellContext`tly2$ = Sort[
                  Tally[
                   Part[
                    Tally[
                    N[
                    Round[
                    
                    If[$CellContext`rectification$$ == 
                    0, $CellContext`pPList, $CellContext`rectNodes$$], \
$CellContext`cntChop]]], All, 2]]]; $CellContext`tly1 = Map[{
                   Part[#, 1], Part[#, 1] 
                   Part[#, 
                    2]}& , $CellContext`tly2$]]; $CellContext`vLineTally := \
{}; $CellContext`vLines[
               Pattern[$CellContext`pList$, 
                Blank[]]] := 
             Module[{$CellContext`allAngles$, $CellContext`setAllColors$, \
$CellContext`getAngle$, $CellContext`vAngles$, $CellContext`ltp$, \
$CellContext`newVlines$, $CellContext`newOverlaps$, $CellContext`newVcolors$, \
$CellContext`setVcolor$, $CellContext`vls$, $CellContext`jj$, \
$CellContext`sav$, $CellContext`new$, $CellContext`lalp$, \
$CellContext`allPos$, $CellContext`nls$}, $CellContext`setAllColors$ := 
                Do[$CellContext`allPos$ = Position[$CellContext`allAngles$, 
                    Part[$CellContext`vAngles$, $CellContext`k], 1, Heads -> 
                    False]; $CellContext`sav$ = Flatten[
                    Delete[$CellContext`allPos$, 
                    Position[$CellContext`allPos$, {
                    Part[$CellContext`nls$, $CellContext`k]} 1, Heads -> 
                    False]]]; $CellContext`new$ = {}; $CellContext`new$ = 
                   Flatten[
                    AppendTo[$CellContext`new$, 
                    Map[Permutations[{
                    
                    Part[$CellContext`nls$, $CellContext`k], #}]& , \
$CellContext`sav$]], 2]; $CellContext`lalp$ = Length[
                    Flatten[
                    Map[
                    Position[$CellContext`elines$$, #, 1, Heads -> 
                    False]& , $CellContext`new$]]]; 
                  Part[$CellContext`newVcolors$, $CellContext`k] = 
                   Part[$CellContext`newVcolors$, $CellContext`k] + \
$CellContext`lalp$, {$CellContext`k, 
                   Range[
                    Length[$CellContext`vAngles$]]}]; $CellContext`setVcolor$ := 
                Map[(Part[$CellContext`newVcolors$, 
                    First[#]] = 
                  PreIncrement[$CellContext`jj$])& , $CellContext`vls$]; \
$CellContext`getAngle$[
                  Pattern[$CellContext`vLst, 
                   Blank[List]]] := N[
                  Round[
                   Normalize[Part[
                    $CellContext`line2["verts", $CellContext`vLst], 2] - First[
                    $CellContext`line2[
                    "verts", $CellContext`vLst]]], $CellContext`chop]]; 
               Map[($CellContext`ltp$ = $CellContext`first[
                    Flatten[
                    $CellContext`listToPos[$CellContext`fltrdSubPlot$$, \
{{#}}]]]; $CellContext`ltps$$ = 
                  AppendTo[$CellContext`ltps$$, #]; $CellContext`vlines$$ = 
                  Join[$CellContext`vlines$$, $CellContext`newVlines$ = \
$CellContext`getVContent[$CellContext`ltp$]]; $CellContext`newOverlaps$ = \
($CellContext`newVcolors$ = Array[1& , {
                    Length[$CellContext`newVlines$]}]); $CellContext`nls$ = 
                  Map[$CellContext`first[
                    Delete[#, 
                    $CellContext`position[#, $CellContext`ltp$]]]& , \
$CellContext`newVlines$]; $CellContext`vAngles$ = 
                  Map[$CellContext`getAngle$[{$CellContext`ltp$, #}]& , \
$CellContext`nls$]; $CellContext`allAngles$ = 
                  Map[$CellContext`getAngle$[{$CellContext`ltp$, #}]& , 
                    Range[
                    Length[$CellContext`fltrdSubPlot$$]]]; 
                 Map[(Part[$CellContext`newOverlaps$, #] = 
                    Length[$CellContext`vls$ = Position[$CellContext`vAngles$, 
                    Part[$CellContext`vAngles$, #], 1, Heads -> 
                    False]]; $CellContext`jj$ = 0; $CellContext`setVcolor$)& , 
                   Range[
                    
                    Length[$CellContext`vAngles$]]]; \
$CellContext`setAllColors$; $CellContext`vLineColors$$ = Flatten[
                    
                    Join[$CellContext`vLineColors$$, \
$CellContext`newVcolors$]]; $CellContext`vLineTally)& , $CellContext`pList$]]; \
$CellContext`minEdgeCnt := Min[{
                If[Length[$CellContext`eSort$$] == 0, Infinity, 
                 Length[$CellContext`eSort$$]], 
                If[Min[
                   Part[$CellContext`edgeVals$$, All, 2]] == 0, Infinity, 
                 Min[
                  
                  Part[$CellContext`edgeVals$$, All, 
                   2]]]}]; $CellContext`getEdges := 
             Module[{$CellContext`eVsubs$, $CellContext`eValFull$, \
$CellContext`eValCnt$, $CellContext`fullEdgeCount$, $CellContext`edgeCount$, \
$CellContext`fltrInnerVerts$, $CellContext`stepSav$ = $CellContext`steps$$, \
$CellContext`perspectiveSav$ = $CellContext`perspective$$, $CellContext`eVl$, \
$CellContext`eVp$, $CellContext`eVC$}, $CellContext`eVsubs$[
                  Pattern[$CellContext`v, 
                   Blank[]]] := Subsets[
                  Range[
                   Length[$CellContext`v]], {2}]; $CellContext`eValFull$[
                  Pattern[$CellContext`verts$, 
                   Blank[]], 
                  Pattern[$CellContext`eVs$, 
                   Blank[]]] := Map[FullSimplify[
                   ToRadicals[
                    Sqrt[Norm[
                    FullSimplify[
                    Apply[Subtract, 
                    Part[$CellContext`verts$, #, 
                    Span[
                    1, $CellContext`dimTrim$$]]]]]^2]]]& , $CellContext`eVs$]; \
$CellContext`eValCnt$[
                  Pattern[$CellContext`eValFull, 
                   Blank[]], 
                  Pattern[$CellContext`eVal, 
                   Blank[]]] := Map[Length[
                   
                   Position[$CellContext`eValFull, #, 1, Heads -> 
                    False]]& , $CellContext`eVal]; $CellContext`fullEdgeCount$[
                  Pattern[$CellContext`n, 
                   Blank[]]] := 
                Binomial[$CellContext`n, 2]; $CellContext`edgeCount$[
                  Pattern[$CellContext`eVC$, 
                   Blank[]]] := Min[
                  $CellContext`fullEdgeCount$[
                   Length[$CellContext`verts$$]], 
                  Total[
                   
                   Map[#& , $CellContext`eVC$]]]; \
$CellContext`fltrInnerVerts$ := 
                Module[{$CellContext`maxVert$}, $CellContext`maxVert$ = Max[
                    Map[Norm, 
                    
                    Map[$CellContext`posTbl, $CellContext`fullVerts$$]]]; \
$CellContext`verts$$ = Select[$CellContext`fullVerts$$, Norm[
                    $CellContext`posTbl[#]] >= $CellContext`innerMag$$ \
$CellContext`maxVert$& ]]; $CellContext`perspective$$ = 
                False; $CellContext`steps$$ = 
                1; $CellContext`fltrInnerVerts$; $CellContext`edgeVals$$ = {
                  If[
                  Length[$CellContext`verts$$] > 
                   1, $CellContext`eVs$$ = \
$CellContext`eVsubs$[$CellContext`verts$$]; $CellContext`eVF$$ = \
$CellContext`eValFull$[$CellContext`verts$$, $CellContext`eVs$$]; \
$CellContext`eVl$ = Sort[
                    $CellContext`noDups[$CellContext`eVF$$]]; \
$CellContext`eVC$ = $CellContext`eValCnt$[$CellContext`eVF$$, \
$CellContext`eVl$]; AppendTo[$CellContext`eVC$, 
                    $CellContext`edgeCount$[$CellContext`eVC$]]; 
                   AppendTo[$CellContext`eVl$, 
                    "All"]; $CellContext`edgeList$$ = Map[{
                    Part[$CellContext`eVl$, #], 
                    Part[$CellContext`eVC$, #]}& , 
                    Range[
                    Length[$CellContext`eVl$]]]; If[
                    
                    And[$CellContext`edgeVals$$ != {{0, 
                    0}}, ($CellContext`eVp$ = Position[$CellContext`eVl$, 
                    Part[$CellContext`edgeVals$$, 1, 1], 1, Heads -> 
                    False]) != {}], 
                    Part[$CellContext`edgeList$$, 
                    $CellContext`first[
                    Flatten[$CellContext`eVp$]]], 
                    
                    First[$CellContext`edgeList$$]], $CellContext`edgeList$$ = \
{{0, 0}, {"All", 0}}; 
                   First[$CellContext`edgeList$$]]}; \
$CellContext`perspective$$ = $CellContext`perspectiveSav$; \
$CellContext`steps$$ = $CellContext`stepSav$]; $CellContext`eLines[
               Pattern[$CellContext`edgeVal$, 
                Blank[]]] := If[N[
                 First[$CellContext`edgeVal$]] == "All", 
               Flatten[
                Map[$CellContext`eLines, 
                 Most[$CellContext`edgeList$$]], 1], 
               If[Length[$CellContext`verts$$] > 1, 
                Part[$CellContext`eVs$$, 
                 Flatten[
                  Position[$CellContext`eVF$$, 
                   First[$CellContext`edgeVal$], 1, Heads -> 
                   False]]], {}]]; $CellContext`edgeColor[
               Pattern[$CellContext`e$, 
                Blank[]]] := If[$CellContext`eColorPos$$, 
               If[
                And[$CellContext`eGrad$$ > 0, $CellContext`eGrad$$ < 51], 
                ColorData[
                 $CellContext`gradName[$CellContext`eGrad$$], \
$CellContext`norm[$CellContext`e$]/$CellContext`edgeMag$$], 
                $CellContext`getColor[$CellContext`eGrad$$, 
                 Ceiling[
                 Length[$CellContext`oldColors] \
($CellContext`norm[$CellContext`e$]/$CellContext`edgeMag$$)]]], 
               If[
                And[$CellContext`eGrad$$ > 0, $CellContext`eGrad$$ < 51], 
                ColorData[
                 $CellContext`gradName[$CellContext`eGrad$$], \
$CellContext`position[$CellContext`elines$$, $CellContext`e$]/
                 Length[$CellContext`elines$$]], 
                $CellContext`getColor[$CellContext`eGrad$$, 
                 $CellContext`position[$CellContext`elines$$, \
$CellContext`e$]]]]; $CellContext`edgeLines := Map[If[
                Or[$CellContext`plDims == 2, 
                 Not[$CellContext`artPrint$$], 
                 Not[$CellContext`cylOK]], {
                 Thickness[$CellContext`thck], 
                 $CellContext`edgeColor[#], 
                 Line[
                  $CellContext`line2["verts", #]]}, {
                 Specularity[White, $CellContext`specularity], 
                 $CellContext`edgeColor[#], 
                 Table[
                  Cylinder[
                   $CellContext`line2[
                   "verts", #], $CellContext`cylR$$ (1 - $CellContext`i/
                    3)], {$CellContext`i, 
                   0, $CellContext`numCyls}]}]& , $CellContext`elines$$]; \
$CellContext`physEdges := If[$CellContext`plines$$ == {}, $CellContext`nullPt, 
               Map[($CellContext`line3["fullVerts", #]; If[
                  
                  And[$CellContext`plDims == 
                   3, $CellContext`artPrint$$, $CellContext`cylOK], 
                  Table[{{
                    Specularity[White, $CellContext`specularity], 
                    Opacity[1/2], 
                    $CellContext`pColor[$CellContext`pGrad$$, "r", "m"], 
                    
                    Cylinder[{$CellContext`edge1, $CellContext`edge2}, \
$CellContext`cylR$$ (3 - $CellContext`i)], 
                    
                    Cylinder[{$CellContext`edge1, $CellContext`edge3}, \
$CellContext`cylR$$ (3 - $CellContext`i)]}, {
                    $CellContext`pColor[$CellContext`pGrad$$, "g", "m"], 
                    
                    Cylinder[{$CellContext`edge2, $CellContext`edge3}, \
$CellContext`cylR$$ (3 - $CellContext`i)]}}, {$CellContext`i, 
                    0, $CellContext`numCyls}], {{
                    Thickness[2 $CellContext`thck], 
                    Opacity[1/2], 
                    $CellContext`pColor[$CellContext`pGrad$$, "r", "m"], 
                    Line[{$CellContext`edge1, $CellContext`edge2}], 
                    Line[{$CellContext`edge1, $CellContext`edge3}]}, {
                    Thickness[3 $CellContext`thck], 
                    $CellContext`pColor[$CellContext`pGrad$$, "g", "m"], 
                    Line[{$CellContext`edge2, $CellContext`edge3}]}}])& , 
                $CellContext`noNull[
                 $CellContext`listToPos[$CellContext`fltrdSubPlot$$, \
$CellContext`plines$$]]]]; $CellContext`vertEdges := Map[If[
                
                And[$CellContext`plDims == 
                 3, $CellContext`artPrint$$, $CellContext`cylOK], {
                 Specularity[White, $CellContext`specularity], 
                 Opacity[1/2], 
                 $CellContext`getColor[3 Part[$CellContext`vLineColors$$, #]], 
                 Table[
                  Cylinder[
                   $CellContext`line2["verts", 
                    Part[$CellContext`vlines$$, #]], $CellContext`cylR$$ (
                    1 - $CellContext`i/3)], {$CellContext`i, 
                   0, $CellContext`numCyls}]}, {
                 
                 Thickness[(Max[$CellContext`vLineColors$$] + 1 - 
                   Part[$CellContext`vLineColors$$, #]) 1 $CellContext`thck], 
                 Opacity[1/2], 
                 $CellContext`getColor[3 Part[$CellContext`vLineColors$$, #]], 
                 Line[
                  $CellContext`line2["verts", 
                   Part[$CellContext`vlines$$, #]]]}]& , 
               Range[
                Length[$CellContext`vlines$$]]]; $CellContext`perim := {
               Opacity[1/10], 
               If[$CellContext`dsName$$ == First[$CellContext`dsNames], 
                If[$CellContext`plDims == 2, 
                 Rectangle[], 
                 Cuboid[]], 
                If[$CellContext`plDims == 2, 
                 Disk[$CellContext`dimZeros, 1.], 
                 Sphere[$CellContext`dimZeros, 1.]]]}; $CellContext`pVecs := 
             Map[{
                Thickness[$CellContext`thck2], 
                $CellContext`pColor[$CellContext`pGrad$$, "w", "m"], 
                Line[{$CellContext`dimZeros, 
                  $CellContext`pPos[#]}]}& , $CellContext`fltrdSubPlot$$]; \
$CellContext`pLabels := Map[{
                Tooltip[
                 Text[
                  Style[
                   Column[{#, 
                    
                    If[$CellContext`physics$$, $CellContext`pLbl, \
$CellContext`pE8][#]}], Medium, Bold], 
                  $CellContext`pPos[#]], 
                 Text[
                  Grid[{{
                    $CellContext`pDisp[#]}, {
                    $CellContext`pToolTipTxt[#]}}]]]}& , \
$CellContext`fltrdSubPlot$$]; $CellContext`pLocs := Map[{
                Text[
                 Style[
                  StringJoin[
                   ToString[
                    $CellContext`dsGet[#], FormatType -> StandardForm], "->", 
                   ToString[
                    $CellContext`pPos[#], FormatType -> StandardForm]], 
                  Medium], 
                 $CellContext`pPos[#], (-2) $CellContext`dlPtDef]}& , \
$CellContext`fltrdSubPlot$$]; $CellContext`pMassLife := Map[{
                Text[
                 $CellContext`tipTxtMass[#], 
                 $CellContext`pPos[#], 5 $CellContext`dlPtDef], 
                Text[
                 $CellContext`tipTxtLife[#], 
                 $CellContext`pPos[#], 
                 3 $CellContext`dlPtDef]}& , $CellContext`fltrdSubPlot$$]; \
$CellContext`particles := Map[If[$CellContext`useDimLocs$$, 
                Translate[$CellContext`zeroPt, 
                 $CellContext`pPos[#]], 
                If[
                 And[$CellContext`plDims == 3, $CellContext`artPrint$$], {
                  If[$CellContext`physics$$, 
                   $CellContext`pColor[$CellContext`pGrad$$, 
                    $CellContext`pColr[#], 
                    $CellContext`pShde[#]], 
                   If[$CellContext`vOverlapColor$$, 
                    $CellContext`getColor[
                    $CellContext`count[$CellContext`pPList, 
                    $CellContext`pPos[#]]], 
                    If[
                    MemberQ[
                    $CellContext`noDups[
                    Flatten[$CellContext`vlines$$]], 
                    $CellContext`first[
                    Flatten[
                    $CellContext`listToPos[$CellContext`fltrdSubPlot$$, \
{{#}}]]]], 
                    If[
                    MemberQ[$CellContext`ltps$$, #], Green, Red], Black]]], 
                  $CellContext`poly[
                   If[$CellContext`physics$$, 
                    $CellContext`pShpSze[#], {$CellContext`cir, 1/2}], 
                   $CellContext`pPos[#], 
                   
                   Subscript[$CellContext`scale$$, $CellContext`scaled], \
$CellContext`plDims]}, {
                  EdgeForm[{Thin, 
                    $CellContext`pColor[$CellContext`pGrad$$, "w", "l"]}], 
                  Tooltip[{
                    If[$CellContext`physics$$, 
                    $CellContext`pColor[$CellContext`pGrad$$, 
                    $CellContext`pColr[#], 
                    $CellContext`pShde[#]], 
                    If[$CellContext`vOverlapColor$$, 
                    $CellContext`getColor[
                    $CellContext`count[$CellContext`pPList, 
                    $CellContext`pPos[#]]], 
                    If[
                    MemberQ[
                    $CellContext`noDups[
                    Flatten[$CellContext`vlines$$]], 
                    $CellContext`first[
                    Flatten[
                    $CellContext`listToPos[$CellContext`fltrdSubPlot$$, \
{{#}}]]]], 
                    If[
                    MemberQ[$CellContext`ltps$$, #], Green, Red], Black]]], 
                    $CellContext`poly[
                    If[$CellContext`physics$$, 
                    $CellContext`pShpSze[#], {$CellContext`cir, 1/2}], 
                    $CellContext`pPos[#], 
                    
                    Subscript[$CellContext`scale$$, $CellContext`scaled], \
$CellContext`plDims]}, 
                   Text[
                    Grid[{{
                    $CellContext`pDisp[#]}, {
                    $CellContext`pToolTipTxt[#]}}]]]}]]& , \
$CellContext`fltrdSubPlot$$]; $CellContext`cylCnt := 
             If[$CellContext`showEdges$$, 
                Length[$CellContext`elines$$], 0] + 
              Length[$CellContext`tlines$$] + Length[$CellContext`plines$$] + 
              Length[$CellContext`vlines$$]; $CellContext`opacityOK := 
             If[$CellContext`cylCnt > $CellContext`cylBreakPnt, False, 
               True]; $CellContext`cylOK := 
             Or[$CellContext`opacityOK, $CellContext`forceCyl]; \
$CellContext`triLines := Map[($CellContext`line3["fullVerts", #]; If[
                 
                 And[$CellContext`plDims == 
                  3, $CellContext`artPrint$$, $CellContext`cylOK], 
                 Table[{
                   Specularity[White, $CellContext`specularity], 
                   Opacity[1/2], 
                   $CellContext`pColor[$CellContext`pGrad$$, "b", "m"], 
                   
                   Cylinder[{$CellContext`edge1, $CellContext`edge2}, \
$CellContext`cylR$$ (1 - $CellContext`i/3)], 
                   
                   Cylinder[{$CellContext`edge2, $CellContext`edge3}, \
$CellContext`cylR$$ (1 - $CellContext`i/3)], 
                   
                   Cylinder[{$CellContext`edge3, $CellContext`edge1}, \
$CellContext`cylR$$ (1 - $CellContext`i/3)]}, {$CellContext`i, 
                   0, $CellContext`numCyls}], {
                  Thickness[$CellContext`thck2], 
                  Opacity[1/2], 
                  $CellContext`pColor[$CellContext`pGrad$$, "b", "m"], 
                  Line[{$CellContext`edge1, $CellContext`edge2}], 
                  Line[{$CellContext`edge2, $CellContext`edge3}], 
                  
                  Line[{$CellContext`edge3, $CellContext`edge1}]}])& , \
$CellContext`tlines$$]; $CellContext`labels := Join[{
                If[$CellContext`showAxes$$, 
                 Map[{{Dashed, Black, 
                    Line[$CellContext`zoomFct {
                    
                    Table[-Part[$CellContext`ptCds, $CellContext`j, #], \
{$CellContext`j, $CellContext`plDims}], 
                    Table[
                    
                    Part[$CellContext`ptCds, $CellContext`j, #], \
{$CellContext`j, $CellContext`plDims}]}], 
                    Text[
                    Style[
                    Part[$CellContext`dl, $CellContext`ds$$, #], 
                    
                    If[$CellContext`showPvecs$$, Large, 
                    Medium]], $CellContext`zoomFct Table[
                    
                    Part[$CellContext`ptCds, $CellContext`k, #], \
{$CellContext`k, $CellContext`plDims}], $CellContext`dlPtDef]}, 
                   If[$CellContext`useDimLocs$$, 
                    With[{$CellContext`i$ = #}, 
                    Locator[
                    Dynamic[
                    Part[$CellContext`locPtCdArr$$, $CellContext`i$]]]], 
                    Translate[$CellContext`axesPt, 
                    Table[
                    
                    Part[$CellContext`ptCds, $CellContext`j, #], \
{$CellContext`j, $CellContext`plDims}]]]}& , 
                  
                  Range[$CellContext`dims]], {$CellContext`nullPt}]}]; \
$CellContext`callImage := 
             Module[{$CellContext`graph$ = {$CellContext`nullPt}}, 
               If[$CellContext`showPerim$$, 
                 AppendTo[$CellContext`graph$, $CellContext`perim]]; If[
                 
                 And[$CellContext`showEdges$$, Length[$CellContext`elines$$] > 
                  1, $CellContext`rectification$$ == 0], 
                 AppendTo[$CellContext`graph$, $CellContext`edgeLines]]; 
               If[$CellContext`showPvecs$$, 
                 AppendTo[$CellContext`graph$, $CellContext`pVecs]]; 
               If[$CellContext`ltps$$ != {}, 
                 AppendTo[$CellContext`graph$, 
                  
                  If[$CellContext`physics$$, $CellContext`physEdges, \
$CellContext`vertEdges]]]; If[$CellContext`showPlocs$$, 
                 AppendTo[$CellContext`graph$, $CellContext`pLocs]]; 
               If[$CellContext`showPmass$$, 
                 AppendTo[$CellContext`graph$, $CellContext`pMassLife]]; 
               If[$CellContext`showPartVert$$, 
                 AppendTo[$CellContext`graph$, If[
                    And[$CellContext`vOverlapColor$$, 
                    
                    Not[$CellContext`useDimLocs$$]], \
$CellContext`vertexTally]; 
                  If[$CellContext`rectification$$ > 
                    0, $CellContext`rectifyParticles, \
$CellContext`particles]]]; If[$CellContext`showSurfaces$$, 
                 AppendTo[$CellContext`graph$, $CellContext`surfaces]]; 
               If[$CellContext`tT$$ != {}, 
                 AppendTo[$CellContext`graph$, $CellContext`triLines]]; 
               If[$CellContext`showPolySurfaces$$, 
                 AppendTo[$CellContext`graph$, $CellContext`polySurfaces]]; 
               If[$CellContext`showPtext$$, 
                 AppendTo[$CellContext`graph$, $CellContext`pLabels]]; 
               AppendTo[$CellContext`graph$, $CellContext`labels]; \
$CellContext`graph$]; $CellContext`viewPoint := $CellContext`lastViewPoint$$ + 
              If[
                
                And[$CellContext`pthRot$$ != "Spin", $CellContext`eSteps$$ == 
                 1, $CellContext`steps$$ == 1], 0, 
                If[
                 
                 And[$CellContext`pthRot$$ == 
                  "Spin", $CellContext`centerSpin], \
-$CellContext`lastViewPoint$$, 
                 If[
                  And[$CellContext`eSteps$$ == 1, $CellContext`steps$$ == 1], 
                  Join[
                   Subscript[$CellContext`xyVwPnt$$, $CellContext`scaled], {
                    Subscript[$CellContext`zVwPnt$$, $CellContext`scaled]}], 
                  0]]]; $CellContext`viewCenter := {1, 1, 1}/2 + If[
                
                And[$CellContext`pthRot$$ == 
                 "Spin", $CellContext`centerSpin], \
$CellContext`lastViewPoint$$/2, {0, 0, 0}]; $CellContext`viewAngle := 
             If[$CellContext`centerSpin, 155 Degree, 45 
               Degree]; $CellContext`sphericalRegion := If[
               And[$CellContext`pthRot$$ == "Spin", $CellContext`centerSpin], 
               True, False]; $CellContext`axesLabel = {
              "X", "Y", "Z"}; $CellContext`axesEdge = {
              Automatic, Automatic, Automatic}; $CellContext`params := {
              Ticks -> $CellContext`tickRange, 
               ImageSize -> $CellContext`imageSize}; $CellContext`param2D := 
             Join[$CellContext`params, {
               PlotRange -> Part[$CellContext`plotRange, 
                  Span[1, 2]], Axes -> False, PlotRangeClipping -> False, 
                AxesLabel -> Part[$CellContext`axesLabel, 
                  Span[1, 2]]}]; $CellContext`param3D := 
             Join[$CellContext`params, {
               PlotRange -> $CellContext`plotRange, 
                Boxed -> $CellContext`showAxes$$, 
                Axes -> $CellContext`showAxes$$, 
                AxesLabel -> $CellContext`axesLabel, 
                AxesEdge -> $CellContext`axesEdge, 
                FaceGrids -> $CellContext`faceGrids, FaceGridsStyle -> 
                Directive[Gray, Dotted], AspectRatio -> 1, 
                SphericalRegion -> $CellContext`sphericalRegion, 
                ViewPoint -> $CellContext`viewPoint, 
                ViewCenter -> $CellContext`viewCenter, 
                ViewAngle -> $CellContext`viewAngle}]; \
$CellContext`findClicked[
               Pattern[$CellContext`i$, 
                Blank[]]] := 
             Module[{$CellContext`nList$, $CellContext`clicked$, \
$CellContext`func$, $CellContext`pos$, $CellContext`np$, $CellContext`vl$}, \
$CellContext`clicked$ = $CellContext`position[$CellContext`nList$ = 
                  Map[$CellContext`pPos, 
                    Range[$CellContext`le8]], 
                  First[
                   
                   Nearest[$CellContext`nList$, $CellContext`i$, 
                    1]]]; $CellContext`vl$ = Union[
                  If[$CellContext`physics$$, 
                   Flatten[$CellContext`plines$$], 
                   Part[$CellContext`fltrdSubPlot$$, 
                    
                    Flatten[$CellContext`vlines$$]]]]; $CellContext`np$ = \
$CellContext`first[
                  Flatten[
                   If[$CellContext`physics$$, 
                    Position[$CellContext`plines$$, $CellContext`clicked$], 
                    Position[$CellContext`vlines$$, 
                    $CellContext`first[
                    Flatten[
                    $CellContext`listToPos[$CellContext`fltrdSubPlot$$, \
{{$CellContext`clicked$}}]]]]]]]; If[
                 
                 NumericQ[$CellContext`pos$ = \
$CellContext`position[$CellContext`vl$, $CellContext`clicked$]], 
                 If[$CellContext`physics$$, $CellContext`plines$$ = {
                    
                    Part[$CellContext`plines$$, $CellContext`np$]}, \
$CellContext`vlines$$ = {
                    
                    Part[$CellContext`vlines$$, $CellContext`np$]}], \
$CellContext`ltps$$ = {$CellContext`clicked$}]]; $CellContext`g2D := 
             If[$CellContext`useDimLocs$$, 
               Graphics[$CellContext`callImage, $CellContext`param2D], 
               ClickPane[
                
                Graphics[$CellContext`callImage, $CellContext`param2D], \
($CellContext`findClicked[#]; $CellContext`refresh$$ = 
                 True)& ]]; $CellContext`g3D := 
             Graphics3D[$CellContext`callImage, $CellContext`param3D]; \
$CellContext`tickRangeCalc := 
             Table[$CellContext`i, {$CellContext`i, 0, 1, 
                 1/$CellContext`tickNum$$}] 
              Subscript[$CellContext`range$$, $CellContext`scaled]; \
$CellContext`tickRange := 
             Map[Join[-$CellContext`tickRangeCalc, \
$CellContext`tickRangeCalc]& , 
               Range[$CellContext`plDims]]; $CellContext`faceGrids := If[
               And[$CellContext`showAxes$$, 
                Not[$CellContext`artPrint$$]], {{{1, 0, 0}, 
                 Part[$CellContext`tickRange, 
                  Span[1, 2]]}, {{0, 1, 0}, 
                 Part[$CellContext`tickRange, 
                  Span[1, 2]]}, {{0, 0, 1}, 
                 Part[$CellContext`tickRange, 
                  Span[1, 2]]}}, None]; $CellContext`plotRange := 
             Map[{Part[$CellContext`pt$$, #] - 
                Subscript[$CellContext`range$$, $CellContext`scaled], 
                Part[$CellContext`pt$$, #] + 
                Subscript[$CellContext`range$$, $CellContext`scaled]}& , 
               Range[$CellContext`plDims]]; $CellContext`doImage := 
             Switch[$CellContext`p3D$$, 
               Part[$CellContext`p3DList, 1], $CellContext`g2D, 
               
               Part[$CellContext`p3DList, 
                2], $CellContext`g3D]; $CellContext`processOut[
               Pattern[$CellContext`in$, 
                Blank[]]] := ($CellContext`pPList = 
               Map[$CellContext`pPos, $CellContext`fltrdSubPlot$$]; \
$CellContext`out = $CellContext`doImage; 
              If[$CellContext`fileOut$$, $CellContext`mOutDo; \
$CellContext`doFileOut[
                  If[
                   
                   And[$CellContext`fileOut$$, $CellContext`outFileType$$ != 
                    First[$CellContext`fileTypeList]], $CellContext`in$, 0]]]; 
              If[
                And[$CellContext`needsAnim8, 
                 Not[$CellContext`fileOnly$$]], 
                AppendTo[$CellContext`loop, $CellContext`out]]; 
              If[$CellContext`fileOnly$$, $CellContext`out = {}]); \
$CellContext`trkNotEqual := 
             Or[$CellContext`showPtextTrk$$ != $CellContext`showPtext$$, \
$CellContext`pthRotTrk$$ != $CellContext`pthRot$$, $CellContext`showAxesTrk$$ != \
$CellContext`showAxes$$, $CellContext`stepsTrk$$ != $CellContext`steps$$, \
$CellContext`p3DTrk$$ != $CellContext`p3D$$, $CellContext`showEdgesTrk$$ != \
$CellContext`showEdges$$, $CellContext`physicsTrk$$ != \
$CellContext`physics$$, $CellContext`useDimLocsTrk$$ != \
$CellContext`useDimLocs$$, $CellContext`tTTrk$$ != $CellContext`tT$$]; \
$CellContext`setTrkEqual := {$CellContext`showPtextTrk$$ = \
$CellContext`showPtext$$; $CellContext`pthRotTrk$$ = $CellContext`pthRot$$; \
$CellContext`useDimLocsTrk$$ = $CellContext`useDimLocs$$; \
$CellContext`showAxesTrk$$ = $CellContext`showAxes$$; $CellContext`stepsTrk$$ = \
$CellContext`steps$$; $CellContext`p3DTrk$$ = $CellContext`p3D$$}; \
$CellContext`bANDNotEqual := 
             Or[$CellContext`bAND1NameTrk$$ != $CellContext`bAND1Name$$, \
$CellContext`bAND2NameTrk$$ != $CellContext`bAND2Name$$]; \
$CellContext`edgeNotEqual := 
             Or[$CellContext`showEdges$$ != $CellContext`showEdgesTrk$$, \
$CellContext`innerMagTrk$$ != $CellContext`innerMag$$, \
$CellContext`dimTrimTrk$$ != $CellContext`dimTrim$$, \
$CellContext`showClickVertsTrk$$ != $CellContext`showClickVerts$$, \
$CellContext`ltpsTrk$$ != $CellContext`ltps$$]; $CellContext`mainNotEqual := 
             Or[$CellContext`trkNotEqual, $CellContext`refresh$$, \
$CellContext`selCoxeterTrk$$ != $CellContext`selCoxeter$$, \
$CellContext`bANDNotEqual, $CellContext`bANDTrk$$ != $CellContext`bAND$$, \
$CellContext`dsTrk$$ != $CellContext`ds$$, $CellContext`favoriteTrk$$ != \
$CellContext`favorite$$, $CellContext`newPTcd$$ != {}, \
$CellContext`locPtCdTrk$$ != $CellContext`locPtCdArr$$, $CellContext`lie$$ != 
               "", $CellContext`fltrdSubPlotTrk$$ != \
$CellContext`fltrdSubPlot$$, $CellContext`edgeNotEqual, 
               ToString[$CellContext`edgeValsTrk$$] != 
               ToString[$CellContext`edgeVals$$], $CellContext`infileTrk$$ != \
$CellContext`infile$$]; 
            If[$CellContext`mainNotEqual, 
              If[$CellContext`dsTrk$$ != $CellContext`ds$$, \
$CellContext`dsTrk$$ = $CellContext`ds$$]; 
              If[$CellContext`selCoxeterTrk$$ != $CellContext`selCoxeter$$, \
$CellContext`setPTcd[
                  Part[$CellContext`coxeterProjTbl, 
                   $CellContext`position[$CellContext`coxSubs, \
$CellContext`selCoxeter$$]]]; $CellContext`selCoxeterTrk$$ = \
$CellContext`selCoxeter$$, 
                
                If[$CellContext`newPTcd$$ != {}, \
$CellContext`setPTcd[$CellContext`newPTcd$$]; $CellContext`newPTcd$$ = {}, 
                 
                 If[$CellContext`favoriteTrk$$ != $CellContext`favorite$$, \
$CellContext`setPTcd[
                    
                    Part[$CellContext`favorites, $CellContext`favorite$$]]; \
$CellContext`favoriteTrk$$ = $CellContext`favorite$$]]]; 
              If[$CellContext`infileTrk$$ != $CellContext`infile$$, \
$CellContext`bAND1Name$$ = 
                 "inFile"; $CellContext`infileTrk$$ = $CellContext`infile$$]; 
              If[
                
                And[$CellContext`bAND$$ != 
                 1, $CellContext`bAND1NameTrk$$ != $CellContext`bAND1Name$$], \
$CellContext`bANDTrk$$ = ($CellContext`bAND$$ = 1); $CellContext`switchFilter, 
                If[
                 
                 And[$CellContext`bAND$$ != 
                  2, $CellContext`bAND2NameTrk$$ != \
$CellContext`bAND2Name$$], $CellContext`bANDTrk$$ = ($CellContext`bAND$$ = 
                   2); $CellContext`switchFilter]]; 
              If[$CellContext`bAND1NameTrk$$ != $CellContext`bAND1Name$$, \
$CellContext`bAND1NameTrk$$ = $CellContext`bAND1Name$$; \
$CellContext`bAND2NameTrk$$ = ($CellContext`bAND2Name$$ = 
                  ""); $CellContext`E8; If[$CellContext`bAND1Name$$ != "E8", 
                  $CellContext`dobAND1[$CellContext`bAND1Name$$]], 
                
                If[$CellContext`bAND2NameTrk$$ != $CellContext`bAND2Name$$, \
$CellContext`bAND2NameTrk$$ = $CellContext`bAND2Name$$; \
$CellContext`bAND1NameTrk$$ = ($CellContext`bAND1Name$$ = 
                   ""); $CellContext`E8; \
$CellContext`dobAND2[$CellContext`bAND2Name$$]]]; 
              If[$CellContext`trkNotEqual, $CellContext`setTrkEqual]; 
              If[$CellContext`lie$$ != 
                "", $CellContext`setLieGroup; $CellContext`lie$$ = ""]; 
              If[$CellContext`bANDTrk$$ != $CellContext`bAND$$, \
$CellContext`switchFilter; $CellContext`bANDTrk$$ = $CellContext`bAND$$]; \
$CellContext`doFilter; If[
                
                Or[$CellContext`fltrdSubPlotTrk$$ != \
$CellContext`fltrdSubPlot$$, $CellContext`tTTrk$$ != $CellContext`tT$$, 
                 And[$CellContext`needsEdges, 
                  
                  Or[$CellContext`edgeNotEqual, 
                   ToString[$CellContext`edgeValsTrk$$] != 
                   ToString[$CellContext`edgeVals$$], \
$CellContext`physicsTrk$$ != $CellContext`physics$$]]], 
                If[$CellContext`fltrdSubPlot$$ == {}, \
$CellContext`fullVerts$$ = {}, $CellContext`fullVerts$$ = 
                  Map[$CellContext`dsGet, $CellContext`fltrdSubPlot$$]]; If[
                  Or[$CellContext`tTTrk$$ != $CellContext`tT$$, 
                   
                   And[$CellContext`tT$$ != {}, \
$CellContext`fltrdSubPlotTrk$$ != $CellContext`fltrdSubPlot$$]], \
$CellContext`tlines$$ = 
                   If[$CellContext`tT$$ == {}, {}, $CellContext`tLines]; \
$CellContext`tTTrk$$ = $CellContext`tT$$]; If[
                  And[$CellContext`needsEdges, 
                   
                   Or[$CellContext`edgeNotEqual, \
$CellContext`fltrdSubPlotTrk$$ != $CellContext`fltrdSubPlot$$, 
                    And[
                    Not[$CellContext`edgeNotEqual], 
                    ToString[$CellContext`edgeValsTrk$$] != 
                    ToString[$CellContext`edgeVals$$]]]], \
$CellContext`getEdges]; If[
                  And[$CellContext`needsEdges, 
                   
                   Or[$CellContext`edgeNotEqual, \
$CellContext`fltrdSubPlotTrk$$ != $CellContext`fltrdSubPlot$$, 
                    ToString[$CellContext`edgeValsTrk$$] != 
                    ToString[$CellContext`edgeVals$$]]], \
$CellContext`elines$$ = Flatten[
                    Map[$CellContext`eLines, $CellContext`edgeVals$$], 
                    1]; $CellContext`edgeMag$$ = 
                   Max[$CellContext`chop, $CellContext`maxEdge]; \
$CellContext`elines$$ = ($CellContext`eSort$$ = $CellContext`elineSort[
                    
                    If[$CellContext`eSteps$$ > 1, "Ascending", 
                    "Descending"]])]; If[
                  And[$CellContext`showClickVerts$$, 
                   Not[$CellContext`showClickVertsTrk$$]], 
                  
                  If[$CellContext`physics$$, $CellContext`pLines, \
$CellContext`vLines][$CellContext`fltrdSubPlot$$], 
                  If[
                   
                   Or[$CellContext`ltpsTrk$$ != $CellContext`ltps$$, \
$CellContext`fltrdSubPlotTrk$$ != $CellContext`fltrdSubPlot$$, \
$CellContext`physicsTrk$$ != $CellContext`physics$$], $CellContext`ltpsTrk$$ = \
$CellContext`ltps$$; $CellContext`clearClickVerts; 
                   If[$CellContext`physics$$, $CellContext`pLines, \
$CellContext`vLines][$CellContext`ltpsTrk$$]]]]; If[
                
                Not[$CellContext`needsEdges], $CellContext`elines$$ = {}]; \
$CellContext`showEdgesTrk$$ = $CellContext`showEdges$$; \
$CellContext`dimTrimTrk$$ = $CellContext`dimTrim$$; \
$CellContext`showClickVertsTrk$$ = $CellContext`showClickVerts$$; \
$CellContext`innerMagTrk$$ = $CellContext`innerMag$$; \
$CellContext`edgeValsTrk$$ = $CellContext`edgeVals$$; \
$CellContext`physicsTrk$$ = $CellContext`physics$$; \
$CellContext`fltrdSubPlotTrk$$ = $CellContext`fltrdSubPlot$$; 
              If[$CellContext`p3D$$ != 
                Part[$CellContext`p3DList, 1], $CellContext`lastViewPoint$$ = {
                  Part[
                   Subscript[$CellContext`xyVwPnt$$, $CellContext`scaled], 1], 
                  Part[
                   Subscript[$CellContext`xyVwPnt$$, $CellContext`scaled], 2], 
                  Subscript[$CellContext`zVwPnt$$, $CellContext`scaled]}]; 
              If[$CellContext`useDimLocs$$, 
                If[$CellContext`locPtCdTrk$$ != $CellContext`locPtCdArr$$, 
                  
                  Switch[$CellContext`face$$, 
                   1, $CellContext`H$$ = 
                    Part[$CellContext`locPtCdArr$$, All, 
                    1]/$CellContext`zoomFct; $CellContext`V$$ = 
                    Part[$CellContext`locPtCdArr$$, All, 
                    2]/$CellContext`zoomFct, 
                   2, $CellContext`Z$$ = 
                    Part[$CellContext`locPtCdArr$$, All, 
                    1]/$CellContext`zoomFct; $CellContext`H$$ = 
                    Part[$CellContext`locPtCdArr$$, All, 
                    2]/$CellContext`zoomFct, 
                   3, $CellContext`V$$ = 
                    Part[$CellContext`locPtCdArr$$, All, 
                    1]/$CellContext`zoomFct; $CellContext`Z$$ = 
                    Part[$CellContext`locPtCdArr$$, All, 
                    2]/$CellContext`zoomFct]]; $CellContext`initLocPtCds; \
$CellContext`showAxes$$ = 
                 True; $CellContext`steps$$ = ($CellContext`eSteps$$ = 
                  1); $CellContext`anim8EdgeList$$ = 
                 False; $CellContext`p3D$$ = 
                 Part[$CellContext`p3DList, 
                   1]]; $CellContext`showAxesTrk$$ = $CellContext`showAxes$$; \
$CellContext`stepsTrk$$ = $CellContext`steps$$; $CellContext`p3DTrk$$ = \
$CellContext`p3D$$; If[
                Not[$CellContext`refresh$$], $CellContext`refresh$$ = 
                True]; $CellContext`refresh$$ = 
               False; $CellContext`out = $CellContext`outSav$$, 
              If[$CellContext`needsAnim8, $CellContext`doAnim8, 
                $CellContext`processOut[
                0]]; $CellContext`outSav$$ = $CellContext`out]]], \
$CellContext`localE8 = {$CellContext`p3DList, $CellContext`axesPt, \
$CellContext`Binary, $CellContext`BinSquare, $CellContext`BinStar, \
$CellContext`C6003D, $CellContext`callImage, $CellContext`Cell16, \
$CellContext`Cell24, $CellContext`Cell24D4, $CellContext`Cell24G2, \
$CellContext`clearClickVerts, $CellContext`clearFilter, \
$CellContext`clearPath, $CellContext`Cube2Pascal, $CellContext`Cube2Petrie, \
$CellContext`Cube3Pascal, $CellContext`Cube3Petrie, $CellContext`Cube4Pascal, \
$CellContext`Cube4Petrie, $CellContext`Cube5Pascal, $CellContext`Cube5Petrie, \
$CellContext`Cube6Pascal, $CellContext`Cube6Petrie, $CellContext`Cube7Pascal, \
$CellContext`Cube7Petrie, $CellContext`Cube8Pascal, $CellContext`Cube8Petrie, \
$CellContext`cylCnt, $CellContext`cylOK, $CellContext`Devolution, \
$CellContext`dimZeros, $CellContext`dln, $CellContext`dls, $CellContext`dlXn, \
$CellContext`dlYn, $CellContext`dlZn, $CellContext`dobAND1, \
$CellContext`dobAND2, $CellContext`doEdgeList, $CellContext`doFilter, \
$CellContext`doImage, $CellContext`doAnim8, $CellContext`dsGet, \
$CellContext`E4, $CellContext`E5, $CellContext`E6, $CellContext`E6a, \
$CellContext`E7, $CellContext`E8, $CellContext`E812x5, $CellContext`E824x10, \
$CellContext`E83, $CellContext`E83D, $CellContext`e8ExtrasInit, \
$CellContext`e8Filter, $CellContext`E8Hexes, $CellContext`E8Hyper, \
$CellContext`E8inE6, $CellContext`e8ListInit, $CellContext`E8Petrie, \
$CellContext`e8surf, $CellContext`e8Surface, $CellContext`edge1, \
$CellContext`edge2, $CellContext`edge3, $CellContext`edgeColor, \
$CellContext`edgeLines, $CellContext`eLines, $CellContext`elineSort, \
$CellContext`F4, $CellContext`F4G2, $CellContext`F4Star, $CellContext`F4Tris, \
$CellContext`faceGrids, $CellContext`faceList, $CellContext`filterList, \
$CellContext`final, $CellContext`findClicked, $CellContext`fPath, \
$CellContext`G2, $CellContext`g2D, $CellContext`g3D, $CellContext`getEdges, \
$CellContext`getU, $CellContext`getVContent, $CellContext`H4, \
$CellContext`HF, $CellContext`HI, $CellContext`Hydrogen, $CellContext`ifLen, \
$CellContext`ifNum, $CellContext`initial, $CellContext`initLocPtCds, \
$CellContext`iPath, $CellContext`labels, $CellContext`LeptonInfo, \
$CellContext`line2, $CellContext`line3, $CellContext`listToPos, \
$CellContext`loop, $CellContext`maxEdge, $CellContext`minEdgeCnt, \
$CellContext`nDRot, $CellContext`nDRots, $CellContext`needsArtPrint, \
$CellContext`needsAnim8, $CellContext`needsEdges, $CellContext`newLoc, \
$CellContext`nFaces, $CellContext`none, $CellContext`norm, \
$CellContext`nullPt, $CellContext`opacityOK, $CellContext`out, \
$CellContext`outerDim, $CellContext`outerDims, $CellContext`outerSum, \
$CellContext`param2D, $CellContext`param3D, $CellContext`params, \
$CellContext`particles, $CellContext`perim, $CellContext`physEdges, \
$CellContext`pLabels, $CellContext`plDims, $CellContext`pLines, \
$CellContext`pLocs, $CellContext`plotRange, $CellContext`pMassLife, \
$CellContext`polySurfaces, $CellContext`posDiff, $CellContext`posTbl, \
$CellContext`pPList, $CellContext`pPos, $CellContext`processImage, \
$CellContext`processOut, $CellContext`ptCds, $CellContext`pVecs, \
$CellContext`QuarkCol, $CellContext`QuarkInfo, $CellContext`rectifyEdges, \
$CellContext`rectifyParticles, $CellContext`rotXY, $CellContext`rotXYZ, \
$CellContext`rotYZ, $CellContext`rotZX, $CellContext`rot\[Theta]List, \
$CellContext`setFlt, $CellContext`setIFpath, $CellContext`setLieGroup, \
$CellContext`setPTcd, $CellContext`setPthPrm, $CellContext`setPTo, \
$CellContext`setPTt, $CellContext`sphericalRegion, $CellContext`surfaces, \
$CellContext`switchFilter, $CellContext`Tesseract, $CellContext`tickRange, \
$CellContext`tickRangeCalc, $CellContext`tLines, $CellContext`tly1, \
$CellContext`transOuter, $CellContext`triLines, $CellContext`unsetFlt, \
$CellContext`vertEdges, $CellContext`vertexTally, $CellContext`VF, \
$CellContext`VI, $CellContext`viewAngle, $CellContext`viewCenter, \
$CellContext`viewPoint, $CellContext`vLines, $CellContext`vLineTally, \
$CellContext`zeroPt, $CellContext`ZF, $CellContext`ZI, $CellContext`\[Theta], \
$CellContext`trkNotEqual, $CellContext`setTrkEqual}, $CellContext`chop = 
         0.0001, $CellContext`dims := Length[
           Part[$CellContext`dl, $CellContext`ds$$]], $CellContext`dl = {{
           "1", "2", "3", "4", "5", "6", "7", "8"}, {
           "\!\(\*SubscriptBox[\(\[Omega]\), \(S\)]\)", 
            "\!\(\*SubscriptBox[\(\[ImaginaryI]\[Omega]\), \(T\)]\)", "U", 
            "V", "\[ImaginaryI]\[Omega]", "r", "g", "b"}, {
           "\!\(\*SubscriptBox[\(\[Omega]\), \(S\)]\)", 
            "\!\(\*SubscriptBox[\(\[ImaginaryI]\[Omega]\), \(T\)]\)", "W", 
            "Y", "\[ImaginaryI]\[Omega]", "x", 
            "\!\(\*SuperscriptBox[\(g\), \(3\)]\)", 
            "\!\(\*SuperscriptBox[\(g\), \(8\)]\)"}, {
           "1", "2", "3", "4", "5", "6", "7", "8"}, {
           "1", "2", "3", "4", "5", "6", "7", "8"}}, $CellContext`pBin[
           Pattern[$CellContext`p, 
            Blank[]]] := Part[$CellContext`e8bin, 
           Min[$CellContext`p, 256]], $CellContext`e8bin = CompressedData["
1:eJylkt2RwjAMhL08XRvXEiXQAP2/cQzez7FknQOYyRDL0v45v7f79XZpf0ut
/bSx9OWL5Ip8Inf4oUjX8+XNwdMD28ayIR087YkjZiFBFXakUemE6gQ6VF8w
hqCF137mDdMGN8pEe1LoVmApLAnqNjbEJWEisu0CMAERRxgYsXCBki2Y2pDj
WMaQsdSmMT+dYcB4eIZDNCkQv3Ss8HOzd4Ge1LgmaaKIsri2pbxNMGUgKQjb
KQwno9gMhqLdQmASRgxBQIojAOZY+GAkNBp7lGUQtblNbdmOamLVYbOAIeY1
HG6JXZoYIg3XUNBxHf/TFsGkQJATjCdZwUgpLxDXMrlAaZCMrdq6jI3iGDub
NmydbA9C92MY/PCP9QCHvgWy
          "], $CellContext`pC600[
           Pattern[$CellContext`p, 
            Blank[]]] := Dot[$CellContext`C600, 
           $CellContext`pE8[$CellContext`p]], $CellContext`C600 = {{
           1/2, (1 + Sqrt[5])/4, 0, (-1)/2, (1 + Sqrt[5])/4, 0, 0, 
            0}, {(1 + Sqrt[5])/4, 0, 1/2, (1 + Sqrt[5])/4, 0, (-1)/2, 0, 
            0}, {(-1)/2, 1/2, (1 + Sqrt[5])/4, (1 + Sqrt[5])/4, 0, 0, 0, 0}, {
           0, 1/2, (1 + Sqrt[5])/4, 0, (-1)/2, (1 + Sqrt[5])/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, 0, 
           0}, {0, 0, 0, 0, 0, 0, 0, 0}}, $CellContext`favorites = {{{1, 0, 0,
            0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 
           0}}, {{-0.18479253090409503`, 
             0.18479253090409517`, -0.06417777247591215, 
             1, -0.3472963553338604, 0.3472963553338602, 0, 0}, {
            0.6840402866513372, 0.6840402866513374, 0, 0, 
             0.23756469845553865`, 0.23756469845553885`, 0.3639702342662021, 
             0.3639702342662021}, {-0.18479253090409503`, 
             0.18479253090409517`, -0.06417777247591215, 
             1, -0.3472963553338604, 0.3472963553338602, 0, 0}}, {{
            1/2, 1/(2 Sqrt[2]), 0, (-1)/(2 Sqrt[2]), 1/2, (-1)/(2 Sqrt[2]), 0,
              1/(2 Sqrt[2])}, {
            0, 1/(2 Sqrt[2]), 1/2, 1/(2 Sqrt[2]), 0, (-1)/(2 Sqrt[2]), (-1)/
             2, (-1)/(2 Sqrt[2])}, {-(1/Sqrt[2]), 1/2, 0, (-1)/
             2, -(1/Sqrt[2]), (-1)/2, 0, 1/2}}, {{0.594095480117793, 
            0.392376873691752, 0.193033322933216, 0.107623126308248, 
            0.0940954801177932, -0.455898878992783, -0.416640120683195, \
-0.232292081242804}, {-0.0940954801177932, 0.455898878992783, 
            0.416640120683195, 0.232292081242804, 0.594095480117793, 
            0.392376873691752, 0.193033322933216, 
            0.107623126308248}, {-(1/Sqrt[2]), 1/2, 0, (-1)/
             2, -(1/Sqrt[2]), (-1)/2, 0, 1/2}}, {{
            73/(2 Sqrt[6458]), 67/(2 Sqrt[6458]), 53/(2 Sqrt[6458]), 17/(2 
             Sqrt[6458]), (-17)/(2 Sqrt[6458]), (-53)/(2 Sqrt[6458]), (-67)/(
             2 Sqrt[6458]), (-73)/(2 Sqrt[6458])}, {
            17/(2 Sqrt[6458]), 53/(2 Sqrt[6458]), 67/(2 Sqrt[6458]), 73/(2 
             Sqrt[6458]), 73/(2 Sqrt[6458]), 67/(2 Sqrt[6458]), 53/(2 
             Sqrt[6458]), 17/(2 Sqrt[6458])}, {0, 0, 0, 0, 0, 1, 0, 0}}, {{
            7/Sqrt[155], 4/Sqrt[155], 7/(2 Sqrt[155]), (-1)/(2 
             Sqrt[155]), -(1/Sqrt[155]), (-2)/Sqrt[155], (-11)/(2 
             Sqrt[155]), (-13)/(2 Sqrt[155])}, {
            1/Sqrt[155], 2/Sqrt[155], 11/(2 Sqrt[155]), 13/(2 Sqrt[155]), 7/
             Sqrt[155], 4/Sqrt[155], 7/(2 Sqrt[155]), (-1)/(2 Sqrt[155])}, {0,
             0, 0, 0, 0, 1, 0, 0}}, {{
            0, 0, 0.9191539418989376, 0, 0, 0.09901705165447641, 0, 0}, {
            0.4595769709494688, 0.09901705165447641, 0, 0.9191539418989376, 0,
              0, 0, 0}, {
            0, 0.4595769709494688, 0.09901705165447641, 0.9191539418989376, 0,
              0, 0, 0}}, {{0, 0, 1, 0, 0, 0, 0, 0}, {
             Sqrt[2/7], 0, 0, 
             Sqrt[5/7], 0, 0, 0, 0}, {0, 
             Sqrt[2/7], 0, 
             Sqrt[5/7], 0, 0, 0, 0}}, {{
            1/2, 1/(2 Sqrt[2]), 0, (-1)/(2 Sqrt[2]), 0, 0, 0, 0}, {
            0, 1/(2 Sqrt[2]), 1/2, 1/(2 Sqrt[2]), 0, 0, 0, 0}, {
            1/Sqrt[2], (-1)/2, 0, 1/2, 0, 0, 0, 0}}, {{
            1/2, (1 + Sqrt[5])/8, (-1 + Sqrt[5])/8, (1 - Sqrt[5])/
             8, (-1 - Sqrt[5])/8, 0, 0, 0}, {
            0, Sqrt[5/8 - Sqrt[5]/8]/2, Sqrt[5/8 + Sqrt[5]/8]/2, 
             Sqrt[5/8 + Sqrt[5]/8]/2, Sqrt[5/8 - Sqrt[5]/8]/2, 0, 0, 
             0}, {(Sqrt[5/8 - Sqrt[5]/8] + (1 + Sqrt[5])/4)/
             2, ((1 - Sqrt[5])/4 - Sqrt[5/8 + Sqrt[5]/8])/
             2, ((1 - Sqrt[5])/4 + Sqrt[5/8 + Sqrt[5]/8])/
             2, (-Sqrt[5/8 - Sqrt[5]/8] + (1 + Sqrt[5])/4)/2, (-1)/2, 0, 0, 
             0}}, {{1/2, Cos[Pi/7]/2, Sin[(3 Pi)/14]/2, Sin[Pi/14]/2, -
             Sin[Pi/14]/2, -Sin[(3 Pi)/14]/2, -Cos[Pi/7]/2, 0}, {
            0, Sin[Pi/7]/2, Cos[(3 Pi)/14]/2, Cos[Pi/14]/2, Cos[Pi/14]/2, 
             Cos[(3 Pi)/14]/2, Sin[Pi/7]/2, 0}, {(Cos[Pi/7] + Sin[Pi/7])/
             2, (-Cos[(3 Pi)/14] - Sin[(3 Pi)/14])/
             2, (Cos[Pi/14] + Sin[Pi/14])/2, (-Cos[Pi/14] + Sin[Pi/14])/
             2, (Cos[(3 Pi)/14] - Sin[(3 Pi)/14])/2, (Cos[Pi/7] - Sin[Pi/7])/
             2, (-1)/2, 0}}, {{-0.3938985035407526, 0., 0., 
           0.9191539418989375, 0., 0., 0., 0.}, {0., 
           0.3938985035407526, -0.9191539418989375, 0., 0., 0., 0., 0.}, {
           1.0203150588323422`, 0., 0., 0.27852830295289943`, 0., 0., 0., 
           0.}}, {{0, -0.5567934404522487, -0.38529087617102353`, 
             0.38529087617102353`, 0.08054772639440973, -0.1969492517703763, 
             0, 0.1969492517703763}, {
            0.7663604248754179, 0, 0.09901705165447641, 0.09901705165447641, 
             0, 0.16021295504274685`, 0.18091315553621942`, 
             0.16021295504274685`}, {
            0, 0.7663604248754179, 0.09901705165447641, 0.09901705165447641, 
             0, 0.16021295504274685`, 0.18091315553621942`, 
             0.16021295504274685`}}, {{
            0, -0.5567934404522487, 
             0.38529087617102353`, -0.38529087617102353`, 
             0.08054772639440973, -0.1969492517703763, 0, 
             0.1969492517703763}, {
            0.18091315553621942`, 0, 0.09901705165447641, 0.09901705165447641,
              0, 0.16021295504274685`, 0.7663604248754179, 
             0.16021295504274685`}, {
            0, 0.18091315553621942`, 0.09901705165447641, 0.09901705165447641,
              0, 0.16021295504274685`, 0.7663604248754179, 
             0.16021295504274685`}}, {{
            0, -0.5567934404522487, 0.1969492517703763, -0.1969492517703763, 
             0.08054772639440973, -0.38529087617102353`, 0, 
             0.38529087617102353`}, {
            0.18091315553621942`, 0, 0.16021295504274685`, 
             0.16021295504274685`, 0, 0.09901705165447641, 0.7663604248754179,
              0.09901705165447641}, {
            0, -0.08054772639440973, -0.1969492517703763, 0.1969492517703763, 
             0.5567934404522487, 0.38529087617102353`, 
             0, -0.38529087617102353`}}, {{
            0, -0.5567934404522487, 0.1969492517703763, -0.1969492517703763, 
             0.08054772639440973, -0.38529087617102353`, 0, 
             0.38529087617102353`}, {
            0.18091315553621942`, 0, 0.16021295504274685`, 
             0.16021295504274685`, 0, 0.09901705165447641, 0.7663604248754179,
              0.09901705165447641}, {
            0.3204259100854937, 0, 0, -0.3204259100854937, 0.6408518201709874,
              0.3204259100854937, 0, -0.3204259100854937}}, {{(-1)/2, (-1)/2, 
             0, 0.5448835825396743, 0.08054772639440973, 0, 
             0.38529087617102353`, 0.2785283029528995}, {
            0.5448835825396743, -0.5448835825396743, 0.38529087617102353`, 0, 
             0, -0.2785283029528995, 0, 0}, {-0.5448835825396743, 
             0.5448835825396743, 0, 0.38529087617102353`, 
             0, -0.2785283029528995, 0, 0}}, {{
            0, 0, 0, 1/Sqrt[2], 0, 0, 0, 1/Sqrt[2]}, {
            0, 1/Sqrt[3], -(1/Sqrt[6]), 0, 0, 0, 1/Sqrt[2], 0}, {
            1/(2 Sqrt[3]), 1/(2 Sqrt[3]), -(1/Sqrt[6]), 1/Sqrt[6], 
             0, -(1/Sqrt[2]), 0, 0}}, {{0., 0., 0., 0.5448835825396742, 
           0., -0.38529087617102364`, 0., 0.5448835825396743}, {0., 
           0.5773502691896258, -0.27852830295289943`, 0., 
           0.38529087617102353`, 0., 0.5448835825396742, 
           0.}, {-0.18834162440064725`, 
           0.5822401279413998, -0.27852830295289943`, 0., 0., 0., 0., 
           0.}}, {{-0.3938985035407526, 0., 0., 0.9191539418989375, 0., 0., 
           0., 0.}, {0., 0.3938985035407526, -0.9191539418989375, 0., 0., 0., 
           0., 0.}, {1.0203150588323422`, 0., 0., 0.27852830295289943`, 0., 
           0., 0., 0.}}, {{2 - 4/Sqrt[3], 0, 0, -Sqrt[2/3] + Sqrt[2], 0, 0, 
             Sqrt[2], 0}, {
            0, -2 + 4/Sqrt[3], Sqrt[2/3] - Sqrt[2], 0, 0, 0, 0, -Sqrt[2]}, {
            0, 2 - 4/Sqrt[3], 0, Sqrt[2] (-1 + 1/Sqrt[3]), 0, 
             0, -(1/Sqrt[2]), -Sqrt[3/2]}}, {{(1 - Sqrt[3])/2, 0, 1/2, 1/2, 0,
              0, 0, 0}, {0, (-1 + Sqrt[3])/2, (-1)/2, 1/2, 0, 0, 0, 0}, {
            1, 0, ((-1)/2 + Sqrt[3])/2, ((-1)/2 + Sqrt[3])/2, 0, 0, 0, 0}}, {{
           0., -0.08054772639440973, 0.5448835825396742, 0., 
           0.5567934404522487, 0., 0.27852830295289943`, 0.}, {
           0.7663604248754179, 0., 0., 0.14003125735595784`, 0., 
           0.28944824449197154`, 0., 0.016901642927438763`}, {0., 
           0.5567934404522487, 0.5448835825396742, 0., -0.08054772639440973, 
           0., 0.27852830295289943`, 
           0.}}, {{1/2, (-1)/4, 1/(2 Sqrt[2]), 1/(4 Sqrt[2]), 0, 0, (-1)/(2 
             Sqrt[2]), (-1)/(4 Sqrt[2])}, {
            0, 0, 1/(2 Sqrt[2]), 1/(4 Sqrt[2]), 1/2, 1/4, 1/(2 Sqrt[2]), 1/(4 
             Sqrt[2])}, {-(1/Sqrt[2]), (-1)/(2 Sqrt[2]), 1/2, 1/4, 0, 0, (-1)/
             2, (-1)/4}}, {{-0.5418986532624117, -0.5418986532624117, 0, 
             0.5448835825396743, 0.08054772639440973, 0, 0.38529087617102353`,
              0.2785283029528995}, {
            0.5448835825396743, -0.5448835825396743, 0.38529087617102353`, 0, 
             0, -0.2785283029528995, 0, 0}, {
            0, 0.5448835825396743, -0.5448835825396743, 
             0.38529087617102353`, -0.2785283029528995, 0, 0, 0}}, {{0, 0, 0, 
            0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {
            0, 0, (-1)/2, (-1)/2, 0, 
             Sqrt[2]/9 + ((-1)/(2 Sqrt[2]) - 1/(3 Sqrt[6]))/Sqrt[
              3] + (1/(2 Sqrt[2]) - 1/(3 Sqrt[6]))/Sqrt[
              3], -(((-1)/(2 Sqrt[2]) - 1/(3 Sqrt[6]))/Sqrt[2]) + (
               1/(2 Sqrt[2]) - 1/(3 Sqrt[6]))/Sqrt[2], 
             2/9 - ((-1)/(2 Sqrt[2]) - 1/(3 Sqrt[6]))/Sqrt[
             6] - (1/(2 Sqrt[2]) - 1/(3 Sqrt[6]))/Sqrt[6]}}, {{
            1/2, 1/2, 1/2, 1/2, 0, 0, 0, 0}, {(-3)/(2 Sqrt[5]), (-1)/(2 
             Sqrt[5]), 1/(2 Sqrt[5]), 3/(2 Sqrt[5]), 0, 0, 0, 0}, {
            3/(2 Sqrt[5]), 1/(2 Sqrt[5]), (-1)/(2 Sqrt[5]), (-3)/(2 Sqrt[5]), 
             0, 0, 0, 0}}, {{
            1/Sqrt[5], 1/Sqrt[5], 1/Sqrt[5], 1/Sqrt[5], 1/Sqrt[5], 0, 0, 
             0}, {-Sqrt[2/5], -(1/Sqrt[10]), 0, 1/Sqrt[10], 
             Sqrt[2/5], 0, 0, 0}, {-Sqrt[2/5], -(1/Sqrt[10]), 0, 1/Sqrt[10], 
             Sqrt[2/5], 0, 0, 0}}, {{
            1/Sqrt[7], 1/Sqrt[7], 1/Sqrt[7], 1/Sqrt[7], 1/Sqrt[7], 1/Sqrt[7], 
             1/Sqrt[7], 0}, {(-3)/(2 Sqrt[7]), -(1/Sqrt[7]), (-1)/(2 Sqrt[7]),
              0, 1/(2 Sqrt[7]), 1/Sqrt[7], 3/(2 Sqrt[7]), 0}, {(-3)/(2 
             Sqrt[7]), -(1/Sqrt[7]), (-1)/(2 Sqrt[7]), 0, 1/(2 Sqrt[7]), 1/
             Sqrt[7], 3/(2 Sqrt[7]), 0}}, {{
            1/Sqrt[3], 0, 0, 0, 1/Sqrt[3], 0, 0, 1/Sqrt[3]}, {
            0, 1/Sqrt[3], 0, 1/Sqrt[3], 0, 0, 1/Sqrt[3], 0}, {
            1/Sqrt[3], 0, 1/Sqrt[3], 0, 0, 1/Sqrt[3], 0, 0}}, {{0, 0, 0, 0, 1,
            0, 0, 0}, {0, 0, 0, 0, 0, -1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}}, {{
           0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, -1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1,
            0, 0, 0}}, {{
            2/Sqrt[233], (-13)/(4 Sqrt[233]), 0, 0, 0, 0, 0, 0}, {
            0, 0, 1/4, 0, 0, 0, 0, 0}, {1/4, 0, (-1)/4, 0, 0, 0, 0, 0}}, {{
            0.15933529171166458`, 0., 0.19264543808551174`, 
            0., -0.15933529171166458`, 0., -0.19264543808551174`, 0.}, {0., 
            0.23681839510290936`, 0., 0.08010647752137343, 
            0., -0.23681839510290936`, 0., -0.08010647752137343}, {
            0, -0.08010647752137343, 0, 0.23681839510290936`, 0, 
             0.08010647752137343, 0, -0.23681839510290936`}}, {{
            1/2, 0, 0, 0, (-1)/2, 0, 0, 0}, {0, 1/2, 0, 0, 0, (-1)/2, 0, 0}, {
            0, 0, 1/2, 0, 0, 0, (-1)/2, 0}}, {{0.5, 0.8090169943749475, 
           0., -0.5, 0.8090169943749475, 0., 0., 0.}, {0.8090169943749475, 0.,
            0.5, 0.8090169943749475, 0., -0.5, 0., 0.}, {0., 0.5, 
           0.8090169943749475, 0., -0.5, 0.8090169943749475, 0., 
           0.}}}, $CellContext`auxData$$ = False, $CellContext`le8 = 
         256, $CellContext`pls = {CompressedData["
1:eJwd0wOfEAYAxuEue7Va1lXbsm1zC5ddl3XZ5rK11dJybbll27Zt20+9v//z
Ed7A4DZBIQGhLOB7oUIThrCEIzwRiEgkIhOFqEQjOj8Qg5j8SCxi8xNxiEs8
4pOAhCQiMUlISjICSU4KUvIzv/ArqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nI
TR7yko/8FKAghShMEYpSjOKUoCSlKE0ZyvIbv1OO8lSgIkFUojJVqEo1qlOD
mtSiNnWoSz3q04BgGtKIxjShKc1oTgta0orWhNCGtrSjPR3oSCc604WudKM7
PehJL3rTh770oz8DGMggBvMHQxjKMIYzgpGMYjRjGMs4xjOBiUxiMlP4k7+Y
yjT+ZjozmMksZvMPc5jLPOazgIUsYjFL+Jf/WMoylrOClaxiNWv4n7WsYz0b
2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4
yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jI
Jz7zhW/n/wqYtIE2
           "], CompressedData["
1:eJwl01N3FgAAgOGv27Tccsu2bddq2bWsLdu2W7Zt27Zt27c9O1085/0Fb0h4
ZFhEjEAg8I3oxiQWsYlDXIKIR3wSkJBEJCYJSQkmGclJQUpSkZo0pCWEdKQn
AxnJRGaykJVsZCcHOclFbvKQl3zkpwAFKURhilCUYhSnBCUpRWnKUJZylKcC
FalEZapQlWpUpwY1qUUotalDGHWpR30a0JBGNKYJTWlGc1rQkla0Jpw2tKUd
7elARzrRmS50pRsRRNKdHvSkF73pQ1/60Z8BDGQQgxnCUIYxnBGMZBSjGcNY
xjGeCUxkEpOZwlSmMZ0ZzGQWs5lDFHOZx3wWsJBFLGYJS1nGclawklWsZg1r
Wcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCSU5zmDGc5
x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9HvCQRzzmCU95xnNe8JJXvOYNb3nH
ez7wkU985gtfA////M4PfvKL3/zhL9Hz/gNnDnod
           "], {2, 3, 4, 5, 6, 7, 8, 9, 248, 249, 250, 251, 252, 253, 254, 
           255}, {38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 
           53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69,
            70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
           86, 87, 88, 89, 90, 91, 92, 93, 164, 165, 166, 167, 168, 169, 170, 
           171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 
           184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 
           197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 
           210, 211, 212, 213, 214, 215, 216, 217, 218, 219}, CompressedData["
1:eJwV0bkvHQAAwOFnVSSORCWaMDgX6lxctbgW3mIRpCQWfWKpRSiJhUWCRdIm
iMWCxbW4FzdL0S4SkpI4Etfa7w1ffn/AL/VrVzAUEQgE+gg3kg9EEU0MscQR
TwKJfCSJZD6RQhrpZJBJFtnkkMtn8singEKKKKaEUsoop4IvVFJFNTXUUkc9
DQRppIlmWmiljXY66OQbIbr5Tg+99PODAQYZYpgRRhljnAkm+ckvpphmhlnm
mGeBRZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPO+M05F1zyh79ccc0N/7jl
jnseeOSJZ1545Y13wtP/AxcSQHI=
           "], {38, 39, 40, 41, 42, 43, 46, 47, 48, 49, 50, 51, 52, 53, 54, 
           55, 56, 59, 60, 61, 62, 63, 64, 65, 66, 67, 70, 71, 72, 73, 74, 75,
            76, 79, 80, 81, 82, 83, 86, 87, 88, 91, 166, 169, 170, 171, 174, 
           175, 176, 177, 178, 181, 182, 183, 184, 185, 186, 187, 190, 191, 
           192, 193, 194, 195, 196, 197, 198, 201, 202, 203, 204, 205, 206, 
           207, 208, 209, 210, 211, 214, 215, 216, 217, 218, 
           219}, CompressedData["
1:eJwt0cVWFAAAheFhK91I5wvxACBDSc0ISDeS0kiHAr4WrdKdWz7OcfGdf33P
zQuGi0MRgUCgn/d+IJIoookhljjiSSCRJJJJIZU0PpJOBplkkU0OueSRTwGF
FFFCKZ8oI0g5FVRSRTWfqaGWOuppIESYLzTSRDNfaaGVNtrpoJMuuumhl77/
+wcY5BtDDDPCKGOM850JJplimhlmmWOeHyywyBLLrLDKGutssMlPfrHFNjv8
Zpc99jngkCOO+cNf/nHCKWecc8ElV1xzwy133PPAI08888Ir7+e/AbEEQXU=

           "], {1, 10, 11, 12, 13, 17, 18, 19, 23, 24, 28, 38, 39, 40, 41, 48,
            49, 50, 51, 52, 53, 54, 61, 62, 63, 64, 65, 72, 73, 74, 81, 94, 
           95, 99, 109, 128, 129, 148, 158, 162, 163, 176, 183, 184, 185, 192,
            193, 194, 195, 196, 203, 204, 205, 206, 207, 208, 209, 216, 217, 
           218, 219, 229, 233, 234, 238, 239, 240, 244, 245, 246, 247, 256}, {
           38, 39, 40, 41, 42, 47, 48, 49, 50, 51, 52, 53, 54, 55, 60, 61, 62,
            63, 64, 65, 66, 71, 72, 73, 74, 75, 80, 81, 82, 87, 170, 175, 176,
            177, 182, 183, 184, 185, 186, 191, 192, 193, 194, 195, 196, 197, 
           202, 203, 204, 205, 206, 207, 208, 209, 210, 215, 216, 217, 218, 
           219}, {1, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 23, 24, 25, 
           26, 28, 29, 30, 32, 33, 35, 94, 95, 96, 97, 99, 100, 101, 103, 104,
            106, 109, 110, 111, 113, 114, 116, 119, 120, 122, 125, 129, 130, 
           131, 133, 134, 136, 139, 140, 142, 145, 149, 150, 152, 155, 159, 
           220, 221, 223, 226, 230, 235, 241}, {1, 10, 11, 12, 17, 18, 23, 38,
            39, 40, 49, 50, 51, 52, 53, 62, 63, 64, 73, 94, 163, 184, 193, 
           194, 195, 204, 205, 206, 207, 208, 217, 218, 219, 234, 239, 240, 
           245, 246, 247, 256}, {38, 39, 40, 41, 48, 49, 50, 51, 52, 53, 54, 
           61, 62, 63, 64, 65, 72, 73, 74, 81, 176, 183, 184, 185, 192, 193, 
           194, 195, 196, 203, 204, 205, 206, 207, 208, 209, 216, 217, 218, 
           219}, {1, 10, 11, 17, 38, 39, 50, 51, 52, 63, 194, 205, 206, 207, 
           218, 219, 240, 246, 247, 256}, {1, 10, 11, 12, 13, 14, 17, 18, 19, 
           20, 23, 24, 25, 28, 29, 32, 94, 95, 96, 99, 100, 103, 109, 110, 
           113, 119, 129, 130, 133, 139, 149, 220}, {38, 39, 40, 49, 50, 51, 
           52, 53, 62, 63, 64, 73, 184, 193, 194, 195, 204, 205, 206, 207, 
           208, 217, 218, 219}, {38, 39, 40, 49, 50, 51, 52, 53, 62, 63, 64, 
           73, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 164, 165, 166, 
           167, 168, 169, 170, 171, 172, 173, 174, 175, 184, 193, 194, 195, 
           204, 205, 206, 207, 208, 217, 218, 219}, {82, 83, 84, 85, 86, 87, 
           88, 89, 90, 91, 92, 93, 164, 165, 166, 167, 168, 169, 170, 171, 
           172, 173, 174, 175}, {6, 7, 8, 9, 248, 249, 250, 251, 1, 10, 11, 
           12, 13, 17, 18, 19, 23, 24, 28, 94, 95, 99, 109, 129}, {6, 7, 8, 9,
            248, 249, 250, 251}, {1, 10, 11, 12, 13, 17, 18, 19, 23, 24, 28, 
           94, 95, 99, 109, 129}, $CellContext`h4, $CellContext`notH4, {38, 
           39, 50, 51, 52, 63, 194, 205, 206, 207, 218, 219}, {1, 10, 11, 12, 
           17, 18, 23, 94}, {38, 51, 206, 219}, {1, 10, 11, 17}, {90, 91, 93, 
           164, 166, 167}, {1, 94, 103, 108, 114, 117, 121, 122, 135, 136, 
           140, 143, 149, 154, 163, 256}, {1, 10, 11, 12, 17, 18, 23, 35, 36, 
           37, 42, 43, 44, 48, 49, 51, 55, 56, 57, 61, 66, 67, 68, 72, 73, 75,
            76, 77, 81, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 106, 107, 108,
            116, 117, 118, 122, 123, 124, 125, 126, 127, 128, 136, 137, 138, 
           142, 143, 144, 145, 146, 147, 148, 152, 153, 154, 155, 156, 157, 
           158, 159, 160, 161, 162, 173, 174, 175, 177, 178, 179, 183, 186, 
           187, 188, 192, 193, 194, 195, 197, 198, 199, 203, 204, 205, 207, 
           210, 211, 212, 216, 217, 218, 219, 223, 224, 225, 226, 227, 228, 
           229, 230, 231, 232, 233, 235, 236, 237, 238, 241, 242, 243, 244, 
           248, 249, 250, 251, 252, 253, 254, 255}, CompressedData["
1:eJwN0jkvHQAAAODnKDpQiSOlimdwDEhEDUhbAxIDzWN3X4P3HAM2t0E74geo
qwwGhEEtBgzCgAU/wMKC1Td8/+ALdkRC4ahAIDBBNDHE8oE44kngI4kk8Ylk
UkgljXQ+k0EmX8jiK9nkkEuQPPIpoJAiiimhlDLK+UYFlVRRzXd+8JMaaqmj
ngYaaeIXIZppoZU22umgky666aGXPvoZIEyEQYYYZoRRxhhnkimmmWGWOeZZ
4Dd/WGSJZVb4yyprrLPBJv/YYpsddtljnwMOOeI/x5xwyhnnXHDJFdfccMsd
9zzwyBPPvPDKGwEJ3gEjNTfz
           "], {2, 3, 4, 5, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 24, 
           25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 45, 46, 47, 48, 54, 55, 56,
            57, 65, 66, 67, 68, 74, 75, 76, 77, 82, 83, 84, 85, 86, 87, 88, 
           89, 90, 91, 92, 93, 94, 103, 104, 105, 113, 114, 115, 122, 123, 
           124, 133, 134, 135, 142, 143, 144, 152, 153, 154, 163, 164, 165, 
           166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 180, 181, 182, 
           183, 189, 190, 191, 192, 200, 201, 202, 203, 209, 210, 211, 212, 
           223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 
           236, 237, 238, 239, 241, 242, 243, 244, 245, 252, 253, 254, 
           255}, CompressedData["
1:eJwt0bc2HgAAhuHfok4uwdHJomQJIou2IG4AvzIk8TNEG4g2qIM+6K5AWbQF
waItSrRryCTI4nGO4Tnv/J0vLthYEQoLBAJdvDWcCCKJIpoYYokngUSSSCaF
VNJI5wMZZJJFNh/5RA655PGZfL5QQCFFFFNCKWWU85VKqqgmSA211FHPN77z
gwZCNNLET5ppoZU22umgk1/v+7vpoZc++hlgkCGGGWGUMcaZYJIppplhljnm
WWCRJZZZYZU11tlgky222WGXPfb5zQGHHHHMCaeccc4Fl1xxzR9uuOWOex74
yyP/eOKZF/7zdv4rxAdBdQ==
           "], {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 17, 18, 19, 23, 24,
            28, 41, 48, 54, 61, 65, 72, 74, 81, 94, 95, 99, 109, 128, 129, 
           148, 158, 162, 163, 176, 183, 185, 192, 196, 203, 209, 216, 229, 
           233, 234, 238, 239, 240, 244, 245, 246, 247, 248, 249, 250, 251, 
           252, 253, 254, 255, 256}, {14, 15, 16, 20, 21, 22, 25, 26, 27, 29, 
           30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 47,
            49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 60, 62, 63, 64, 66, 67, 
           68, 69, 70, 71, 73, 75, 76, 77, 78, 79, 80, 82, 83, 84, 85, 86, 87,
            88, 89, 90, 91, 92, 93, 96, 97, 98, 100, 101, 102, 103, 104, 105, 
           106, 107, 108, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 
           120, 121, 122, 123, 124, 125, 126, 127, 130, 131, 132, 133, 134, 
           135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 
           149, 150, 151, 152, 153, 154, 155, 156, 157, 159, 160, 161, 164, 
           165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 177, 178, 
           179, 180, 181, 182, 184, 186, 187, 188, 189, 190, 191, 193, 194, 
           195, 197, 198, 199, 200, 201, 202, 204, 205, 206, 207, 208, 210, 
           211, 212, 213, 214, 215, 217, 218, 219, 220, 221, 222, 223, 224, 
           225, 226, 227, 228, 230, 231, 232, 235, 236, 237, 241, 242, 243}, {
           2, 6, 10, 13, 14, 15, 16, 32, 33, 34, 40, 50, 53, 66, 67, 68, 72, 
           74, 78, 79, 80, 85, 86, 87, 94, 106, 107, 108, 109, 110, 111, 112, 
           145, 146, 147, 148, 149, 150, 151, 163, 170, 171, 172, 177, 178, 
           179, 183, 185, 189, 190, 191, 204, 207, 217, 223, 224, 225, 241, 
           242, 243, 244, 247, 251, 255}, CompressedData["
1:eJwl0stPDwAAwPGfyWRcROVtljIJGVPyygEzHIqDUqMfigtDD++8H8njWF5h
5XEgB8xwyCtiTB6xyMEzES6MlubTHD77/gPfQcEVqcs7BAKBKtrbkRA60ZlQ
utCVbnQnjB70JJwIIulFb/rQl370ZwADiWIw0cQwhKHEMow4hjOCkcQzitGM
YSwJJDKOJMYzgYlMYjLJTGEq05jODGYyi9mkkMoc5jKPNNKZTwaZLGAhWQRZ
xGKWkE0OS1nGSlaxmlzyyKeANaxlHevZwEY2UchmtrCVbWxnBzvZxW72UMRe
itnHfg5wkBJKOcRhjnCUY5RxnBOcpJwKTnGaM5zlHOep5AIXucRlrnCVa1wP
/H/mBje5xW3uUM1d7lHDfR7wkEc8ppYnPOUZz6njBS+p5xWvaeANb3nHez7w
kU808pkmvvCVZr7xnR/85Be/+UMLrfyljfb5/wHxuGHV
           "], {2, 3, 4, 5, 6, 7, 8, 9, 38, 39, 40, 49, 50, 51, 52, 53, 62, 
           63, 64, 73, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 164, 
           165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 184, 193, 
           194, 195, 204, 205, 206, 207, 208, 217, 218, 219, 248, 249, 250, 
           251, 252, 253, 254, 255}, CompressedData["
1:eJwl0kdbDwAAwOG/a5ERla3UgYRTVg6yesjIB0ApCpVZQohssrJCGV9AMp5k
HUI4oehARkZkl1y9PR3e5/cFfpFpuQtyugUCgXt0NohgutODEHrSi970IZS+
9COMcCLozwAGMojBDGEow4gkiuFEE8MIRhLLKOIYzRjGEs84xjOBiUwigclM
IZGpTGM6M5hJErOYTTJzmMs85pPCQhaxmFTSWEI6GSxlGZlksZwVrCSbHHJZ
xWrWsJZ1rCePfDZQwEY2sZlCtrCVbRSxnR0Us5Nd7GYPe9nHfg5wkBIOcZgj
HOUYpRznBCc5xWnKOMNZzlFOBee5wEUucZlKrlDFVa5xnRtUc5MabnGbO9wN
dL1Uy30e8JA6HvGYJzzlGc+pp4EXvKSRV7ymiTe85R3vaeYDH/nEZ1r4wlda
+cZ3fvCTX/zmD22085cO/tE5/3+LamHV
           "], {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
            19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
           30}, {}}, $CellContext`h4 = CompressedData["
1:eJwl0TkrBgAAgOHPqkSulMFRJrOI5MyChEiORa4kZ8lASkzKMUiuzZEICYuc
ichsUo5ByRUpq0eGp/cHvAn1HWXtQYFAoI+/BhNCKGGEE0EkUUQTQyxxxJNA
Ikkkk0IqaaSTQSZZZJNDLnnkU0AhRRRTQilllFNBJVVUU0MtdTTQSBPNtNBK
G5100U0PvfQzwCBDDDPCKGOMM8EkU0wzwyxzzLPAIksss8Iqa6yzwSZbbLPD
Lnvsc8AhRxxzwilnnHPBJVdcc8Mtd9zzwCNPPPPCK2+888EnX3zzE/if+wte
lT1p
          "], $CellContext`notH4 = {11, 12, 14, 17, 23, 25, 26, 28, 29, 30, 
          35, 36, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, 50, 51, 52, 54, 
          57, 60, 62, 69, 71, 72, 73, 74, 78, 80, 84, 87, 89, 94, 95, 96, 97, 
          98, 99, 105, 107, 109, 110, 111, 116, 117, 119, 120, 121, 122, 123, 
          126, 128, 129, 131, 134, 135, 136, 137, 138, 140, 141, 146, 147, 
          148, 150, 152, 158, 159, 160, 161, 162, 163, 168, 170, 173, 177, 
          179, 183, 184, 185, 186, 188, 195, 197, 200, 203, 205, 206, 207, 
          208, 209, 210, 211, 212, 213, 215, 216, 217, 218, 219, 221, 222, 
          227, 228, 229, 231, 232, 234, 240, 243, 245, 
          246}, $CellContext`triList = {
          "T1", "T1p", "T2", "T2p", "T4", "T4p"}, $CellContext`dsNames = {
          "binary", "e8", "physics", "CELL600"}, $CellContext`doProj[
           Pattern[$CellContext`n$, 
            Blank[]]] := {$CellContext`H$$ = Flatten[
               Join[
                
                Table[{$CellContext`a = 
                  Cos[($CellContext`i - 1) 
                    2 (Pi/$CellContext`n$)], $CellContext`a/
                  2}, {$CellContext`i, $CellContext`j = 
                  Ceiling[$CellContext`n$/2]}], 
                Array[0& , $CellContext`dims - 2 $CellContext`j]]]/2; 
           Part[$CellContext`H$$, 2] = -
             Part[$CellContext`H$$, 2]; $CellContext`H$$, $CellContext`V$$ = 
           Flatten[
              Join[
               
               Table[{$CellContext`a = 
                 Sin[($CellContext`i - 1) 
                   2 (Pi/$CellContext`n$)], $CellContext`a/
                 2}, {$CellContext`i, $CellContext`j = 
                 Ceiling[$CellContext`n$/2]}], 
               Array[0& , $CellContext`dims - 2 $CellContext`j]]]/
            2, $CellContext`Z$$ = Flatten[
              
              Join[-Table[{$CellContext`a = (-1)^($CellContext`i + 1) 
                    Cos[($CellContext`n$ - $CellContext`i) 
                    2 (Pi/$CellContext`n$)] + (-1)^$CellContext`i 
                    Sin[($CellContext`n$ - $CellContext`i) 
                    2 (Pi/$CellContext`n$)], $CellContext`a/
                  2}, {$CellContext`i, $CellContext`j = 
                  Ceiling[$CellContext`n$/2]}], 
               Array[0& , $CellContext`dims - 2 $CellContext`j]]]/
            2}, $CellContext`fileTypeList = {
          ".avi", ".bmp", ".dxf", ".eps", ".gif", ".jpeg", ".html", ".obj", 
           ".lwo", ".Maya", ".MathML", ".pdf", ".png", ".stl", ".svg", 
           ".tiff", ".vrml", ".wmf", ".x3d", ".xls", ".lsl", 
           ".tri"}, $CellContext`hydrogen = {192, 198, 44, 
          66}, $CellContext`plNames = {
          "All", "E8=!Excluded", "8Ortho=Exc", "D8=Odd=Int", "E7", 
           "D7=SO(14)", "C8=7Cube=Int/2", "E6", "D6=SO(12)", "6Cube=Hexeract",
            "E5", "D5=SO(10)", "A4=SL(5)=E4", "C4=5Cube", "D4=SO(8)", "F4", 
           "F4s=24CellDual", "24Cell", "16Cell", "8Cell=4Cube", "H4", 
           "H4/\[Phi]", "A3=D3=SO(6)", "3Cube", "D2=SO(4)", "B2=SO(5)=C2", 
           "G2s=gluons", "HammingCode", "!Anti", "Anti", "!pType", "pType", 
           "!Color", "Color", "!Spin", "Spin", "!Generation", "Generation", 
           "First30", "None"}, $CellContext`doCubePascal[
           Pattern[$CellContext`n$, 
            Blank[]]] := {$CellContext`H$$ = Normalize[
             Join[
              Array[1& , $CellContext`n$], 
              Array[0& , 8 - $CellContext`n$]]], $CellContext`V$$ = Normalize[
             Join[
              
              Table[$CellContext`i, {$CellContext`i, -($CellContext`n$ - 
                 1), $CellContext`n$ - 1, 2}], 
              Array[0& , 8 - $CellContext`n$]]], $CellContext`Z$$ = Normalize[
             Join[
              
              Table[(-1)^$CellContext`i ($CellContext`i/
                2), {$CellContext`i, -($CellContext`n$ - 1), $CellContext`n$ - 
                1, 2}], 
              Array[0& , 8 - $CellContext`n$]]]}, $CellContext`doCube[
           Pattern[$CellContext`n$, 
            Blank[]]] := {$CellContext`H$$ = Join[
              Table[
               
               Cos[($CellContext`i - 1) (
                 Pi/$CellContext`n$)], {$CellContext`i, 
                Min[$CellContext`dims, $CellContext`n$]}], 
              Array[0& , 
               Max[0, $CellContext`dims - $CellContext`n$]]]/
            2, $CellContext`V$$ = Join[
              Table[
               
               Sin[($CellContext`i - 1) (
                 Pi/$CellContext`n$)], {$CellContext`i, 
                Min[$CellContext`dims, $CellContext`n$]}], 
              Array[0& , 
               Max[0, $CellContext`dims - $CellContext`n$]]]/
            2, $CellContext`Z$$ = 
           Join[-Table[(-1)^($CellContext`i + 1) 
                 Cos[($CellContext`n$ - $CellContext`i) (
                    Pi/$CellContext`n$)] + (-1)^$CellContext`i 
                 Sin[($CellContext`n$ - $CellContext`i) (
                    Pi/$CellContext`n$)], {$CellContext`i, 
                 Min[$CellContext`dims, $CellContext`n$]}], 
              Array[0& , 
               Max[0, $CellContext`dims - $CellContext`n$]]]/
            2}, $CellContext`H1a = {1, 2, 3, 4}, $CellContext`V1a = {6, 7, 
          8}, $CellContext`Z1a = {5}, $CellContext`q = {66, 75, 210, 55, 67, 
          76, 211, 56, 68, 77, 212, 57, 243, 237, 232, 228, 242, 236, 231, 
          227, 241, 235, 230, 226, 225, 154, 144, 124, 224, 153, 143, 123, 
          223, 152, 142, 122, 177, 186, 197, 42, 178, 187, 198, 43, 179, 188, 
          199, 44, 147, 127, 161, 157, 146, 126, 160, 156, 145, 125, 159, 155,
           108, 37, 138, 118, 107, 36, 137, 117, 106, 35, 136, 
          116}, $CellContext`a1 = {51, 206}, $CellContext`a2 = {50, 51, 63, 
          194, 206, 207}, $CellContext`a3 = {49, 50, 51, 62, 63, 73, 184, 194,
           195, 206, 207, 208}, $CellContext`a4 = {48, 49, 50, 51, 61, 62, 63,
           72, 73, 81, 176, 184, 185, 194, 195, 196, 206, 207, 208, 
          209}, $CellContext`a5 = {47, 48, 49, 50, 51, 60, 61, 62, 63, 71, 72,
           73, 80, 81, 87, 170, 176, 177, 184, 185, 186, 194, 195, 196, 197, 
          206, 207, 208, 209, 210}, $CellContext`a6 = {46, 47, 48, 49, 50, 51,
           59, 60, 61, 62, 63, 70, 71, 72, 73, 79, 80, 81, 86, 87, 91, 166, 
          170, 171, 176, 177, 178, 184, 185, 186, 187, 194, 195, 196, 197, 
          198, 206, 207, 208, 209, 210, 211}, $CellContext`a7 = {45, 46, 47, 
          48, 49, 50, 51, 58, 59, 60, 61, 62, 63, 69, 70, 71, 72, 73, 78, 79, 
          80, 81, 85, 86, 87, 90, 91, 93, 164, 166, 167, 170, 171, 172, 176, 
          177, 178, 179, 184, 185, 186, 187, 188, 194, 195, 196, 197, 198, 
          199, 206, 207, 208, 209, 210, 211, 212}, $CellContext`b2 = {1, 97, 
          102, 155, 160, 256}, $CellContext`b3 = {1, 97, 99, 101, 102, 109, 
          148, 155, 156, 158, 160, 256}, $CellContext`b4 = {1, 97, 99, 100, 
          101, 102, 107, 108, 109, 116, 141, 148, 149, 150, 155, 156, 157, 
          158, 160, 256}, $CellContext`b5 = {1, 97, 98, 99, 100, 101, 102, 
          106, 107, 108, 109, 112, 115, 116, 120, 137, 141, 142, 145, 148, 
          149, 150, 151, 155, 156, 157, 158, 159, 160, 
          256}, $CellContext`b6 = {1, 96, 97, 98, 99, 100, 101, 102, 105, 106,
           107, 108, 109, 112, 113, 114, 115, 116, 119, 120, 124, 133, 137, 
          138, 141, 142, 143, 144, 145, 148, 149, 150, 151, 152, 155, 156, 
          157, 158, 159, 160, 161, 256}, $CellContext`b8 = CompressedData["
1:eJwt0cVWFAAAheFhK91I5wvxACBDSc0ISDeS0kiHAr4WrdKdWz7OcfGdf33P
zQuGi0MRgUCgn/d+IJIoookhljjiSSCRJJJJIZU0PpJOBplkkU0OueSRTwGF
FFFCKZ8oI0g5FVRSRTWfqaGWOuppIESYLzTSRDNfaaGVNtrpoJMuuumhl77/
+wcY5BtDDDPCKGOM850JJplimhlmmWOeHyywyBLLrLDKGutssMlPfrHFNjv8
Zpc99jngkCOO+cNf/nHCKWecc8ElV1xzwy133PPAI08888Ir7+e/AbEEQXU=

          "], $CellContext`c3 = {1, 97, 99, 101, 102, 109, 148, 155, 156, 158,
           160, 256}, $CellContext`c4 = {1, 97, 99, 100, 101, 102, 107, 108, 
          109, 116, 141, 148, 149, 150, 155, 156, 157, 158, 160, 
          256}, $CellContext`c5 = {1, 97, 98, 99, 100, 101, 102, 106, 107, 
          108, 109, 112, 115, 116, 120, 137, 141, 142, 145, 148, 149, 150, 
          151, 155, 156, 157, 158, 159, 160, 256}, $CellContext`c6 = {1, 96, 
          97, 98, 99, 100, 101, 102, 105, 106, 107, 108, 109, 112, 113, 114, 
          115, 116, 119, 120, 124, 133, 137, 138, 141, 142, 143, 144, 145, 
          148, 149, 150, 151, 152, 155, 156, 157, 158, 159, 160, 161, 
          256}, $CellContext`c7 = {1, 95, 96, 97, 98, 99, 100, 101, 102, 104, 
          105, 106, 107, 108, 109, 111, 112, 113, 114, 115, 116, 118, 119, 
          120, 122, 123, 124, 126, 131, 133, 134, 135, 137, 138, 139, 141, 
          142, 143, 144, 145, 146, 148, 149, 150, 151, 152, 153, 155, 156, 
          157, 158, 159, 160, 161, 162, 
          256}, $CellContext`c8 = CompressedData["
1:eJwt0cVWFAAAheFhK91I5wvxACBDSc0ISDeS0kiHAr4WrdKdWz7OcfGdf33P
zQuGi0MRgUCgn/d+IJIoookhljjiSSCRJJJJIZU0PpJOBplkkU0OueSRTwGF
FFFCKZ8oI0g5FVRSRTWfqaGWOuppIESYLzTSRDNfaaGVNtrpoJMuuumhl77/
+wcY5BtDDDPCKGOM850JJplimhlmmWOeHyywyBLLrLDKGutssMlPfrHFNjv8
Zpc99jngkCOO+cNf/nHCKWecc8ElV1xzwy133PPAI08888Ir7+e/AbEEQXU=

          "], $CellContext`d4 = {38, 39, 40, 49, 50, 51, 52, 53, 62, 63, 64, 
          73, 184, 193, 194, 195, 204, 205, 206, 207, 208, 217, 218, 
          219}, $CellContext`d5 = {38, 39, 40, 41, 48, 49, 50, 51, 52, 53, 54,
           61, 62, 63, 64, 65, 72, 73, 74, 81, 176, 183, 184, 185, 192, 193, 
          194, 195, 196, 203, 204, 205, 206, 207, 208, 209, 216, 217, 218, 
          219}, $CellContext`d6 = {38, 39, 40, 41, 42, 47, 48, 49, 50, 51, 52,
           53, 54, 55, 60, 61, 62, 63, 64, 65, 66, 71, 72, 73, 74, 75, 80, 81,
           82, 87, 170, 175, 176, 177, 182, 183, 184, 185, 186, 191, 192, 193,
           194, 195, 196, 197, 202, 203, 204, 205, 206, 207, 208, 209, 210, 
          215, 216, 217, 218, 219}, $CellContext`d7 = {38, 39, 40, 41, 42, 43,
           46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 59, 60, 61, 62, 63, 64,
           65, 66, 67, 70, 71, 72, 73, 74, 75, 76, 79, 80, 81, 82, 83, 86, 87,
           88, 91, 166, 169, 170, 171, 174, 175, 176, 177, 178, 181, 182, 183,
           184, 185, 186, 187, 190, 191, 192, 193, 194, 195, 196, 197, 198, 
          201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 214, 215, 
          216, 217, 218, 219}, $CellContext`d8 = {38, 39, 40, 41, 42, 43, 44, 
          45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 
          62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 
          79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 164, 
          165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 
          178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 
          191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 
          204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 
          217, 218, 219}, $CellContext`e6 = {1, 10, 11, 12, 13, 17, 18, 19, 
          23, 24, 28, 38, 39, 40, 41, 48, 49, 50, 51, 52, 53, 54, 61, 62, 63, 
          64, 65, 72, 73, 74, 81, 94, 95, 99, 109, 128, 129, 148, 158, 162, 
          163, 176, 183, 184, 185, 192, 193, 194, 195, 196, 203, 204, 205, 
          206, 207, 208, 209, 216, 217, 218, 219, 229, 233, 234, 238, 239, 
          240, 244, 245, 246, 247, 256}, $CellContext`e7 = CompressedData["
1:eJwV0bkvHQAAwOFnVSSORCWaMDgX6lxctbgW3mIRpCQWfWKpRSiJhUWCRdIm
iMWCxbW4FzdL0S4SkpI4Etfa7w1ffn/AL/VrVzAUEQgE+gg3kg9EEU0MscQR
TwKJfCSJZD6RQhrpZJBJFtnkkMtn8singEKKKKaEUsoop4IvVFJFNTXUUkc9
DQRppIlmWmiljXY66OQbIbr5Tg+99PODAQYZYpgRRhljnAkm+ckvpphmhlnm
mGeBRZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPO+M05F1zyh79ccc0N/7jl
jnseeOSJZ1545Y13wtP/AxcSQHI=
          "], $CellContext`e8 = CompressedData["
1:eJwl01N3FgAAgOGv27Tccsu2bddq2bWsLdu2W7Zt27Zt27c9O1085/0Fb0h4
ZFhEjEAg8I3oxiQWsYlDXIKIR3wSkJBEJCYJSQkmGclJQUpSkZo0pCWEdKQn
AxnJRGaykJVsZCcHOclFbvKQl3zkpwAFKURhilCUYhSnBCUpRWnKUJZylKcC
FalEZapQlWpUpwY1qUUotalDGHWpR30a0JBGNKYJTWlGc1rQkla0Jpw2tKUd
7elARzrRmS50pRsRRNKdHvSkF73pQ1/60Z8BDGQQgxnCUIYxnBGMZBSjGcNY
xjGeCUxkEpOZwlSmMZ0ZzGQWs5lDFHOZx3wWsJBFLGYJS1nGclawklWsZg1r
Wcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCSU5zmDGc5
x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9HvCQRzzmCU95xnNe8JJXvOYNb3nH
ez7wkU985gtfA////M4PfvKL3/zhL9Hz/gNnDnod
          "], $CellContext`g2 = {50, 51, 63, 90, 91, 93, 164, 166, 167, 194, 
          206, 207}, $CellContext`f4 = {38, 39, 40, 49, 50, 51, 52, 53, 62, 
          63, 64, 73, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 164, 
          165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 184, 193, 
          194, 195, 204, 205, 206, 207, 208, 217, 218, 219}, $CellContext`pRow[
           Pattern[$CellContext`p, 
            Blank[]]] := 
         Part[$CellContext`e8b, $CellContext`p, $CellContext`sets + 
           6], $CellContext`rot\[Theta][
           Pattern[$CellContext`\[Theta], 
            Blank[]], 
           Pattern[$CellContext`hp, 
            Blank[List]]] := 
         RotationMatrix[$CellContext`\[Theta], $CellContext`hp], \
$CellContext`dla[
           Pattern[$CellContext`l, 
            Blank[]]] := 
         Module[{$CellContext`i = $CellContext`zeros}, 
           Part[$CellContext`i, $CellContext`l] = 
            1; $CellContext`i], $CellContext`zeros := 
         Array[0& , $CellContext`dims], $CellContext`specialFct = 
         1500., $CellContext`noDups[
           Pattern[$CellContext`in, 
            Blank[]]] := If[
           ListQ[$CellContext`in], 
           DeleteDuplicates[
            DeleteDuplicates[$CellContext`in], If[#2 == {}, True, 
             MemberQ[
              
              Permutations[#2], #]]& ], $CellContext`in], $CellContext`orb2D = \
{{{
             Graphics[
              Raster[CompressedData["
1:eJztWM1uEzEQnt380JZCKW3DqZWQqiJOUA5VTkW0h55y6A8oN1ClckHAIXcO
7alPkAfgDfIM3PsA5U2QcO1gd7eudz2TTRw7+JNGctbfOvN5PONJnp9+Pzqt
AcAutx1udYiIiAgErILpa/iGvF/62Dav63MJ256HqsuG/11XUazBMPYBo+gC
jaOPpw1s7mHzMyICc/5DPS9Ffvua3zqK9j50XSaYtBbVNdN7o/aHk4St5pbF
yyddRfVhjLoSlnArnncCTI+DPodztUW2ubjNdlYO2NqDdVZLGtPQZbv7MbG8
jdGj+jK7+tS+w/u8+ZHVk2awumpJnX178dXo88bCy2npsuWc9Rw203n258cT
o8+H619YCqlrXaYxZX5ojbTJrk+2jT6/ffaB15EwdQm/Xy+/u8f5++uSPW6s
+nYOdU7p+6L2vXm6z36fnw+5P98fM5FbWqxcxgvlN2J+qKGZzvF6/1DWQeM9
NmlgdYFlnmouUPZd1Hj6pEv5Z3texplFXb7Ctoeu9zgiIiIidFBqpov62uG2
N6a1JqmNyt/idkFc33SnlT2rws3PUyHeWSLyqRzb3W/jjqJLxKtN4PuuS+RV
H7L4D7h1wR47n3V1JPeVNDFucevBP30bBD8wHFe6BjnuEmQa1Rp9gh8Yjitd
eu0ROs7kuCfntpB+YDiudOm+i7wayHFbznWRfmA4rnTpvqscEzpbUHwWsb/H
pqVL+d6Tn1WOdeRnFU9T/aCedew+jONeVjp6uWd9yGIkdItzeQG0O3tSoOyl
8LmVe9aFrN4DZHXfh/8BqvigcozSe7hCWT9p06xyjtIHu0LV3ip/X/uEqvXk
DO72Hr6Ack+EhFnVFRHhI2Y5pyj9Z5C4AfwPIGk=
               "], {{0, 0}, {54., 62.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 62.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztmE1v1EYYx8fr3exbsnnZZEnYKAQS0iIiSlJCAmpUJUWEQhbQIpqUFpB2
iVpo1SC2Jw695IJUteJEVKmHntpT1RKO3Hrh0EMRou0H4AMAAqmovPyZMTZr
jF9m1vaus/gvjdb2jB8/Pz8zzzzezaXlYkkmhByibTdtURIq1LoXDM2uz9hv
No7Hbr0Ew6+xz+ivnQ1eu17J6v05vVc3XHbX6yk/uJz66qFm4nLyuVYunnv8
Fs/a4smHvNdDhWoGBWHP90v12PP9lFPN4HSP380v8dS0IVdjuez2/PXMZfTf
JZekaw3n0hjMrnGxREiENhkyib5s7FwS43Pju5WNmrgkyhOVYohHUmiNtqM9
1oOOlhwysSxSchtaIgnIEjefHxLkojGi/sYjSXS19GG4bSemc0UcHziBE5tO
Yj5/GmOds9iYHKa8nZS9RXkHQediTAk5Rf0ewsGNc/h+uox/LhzHf798jadr
53H/yhe4sTCD5bfOY0fn+zSGGxCLxJ3i1lAu9t7Z/MolBlDoP4dbixPAw79M
/Xp6vYSfpxawKztH52g3nZMxu5ziBxMnl0TnVFRZR3t7juDP8qijP8/+vYrL
YyVsbRtHUm5Vcoy5bU9lZ9MkVhKNVRKD6e34ZnQZeHyXy5/7lyZobEvopDnl
Rcx85YLFsf7aa3OQ5bnxrlncLuwR8uXb8U/RnxpBjOYQi7nolYS52J7UGu3C
zIZ5PKp0CPny69whZS6yeFvkRq9UM9cHvYfx/8WMkC+/Fz7ESGZXYLnS0Qwm
sgdw55NtQr78MF2k63JUyaUW+d4r1bS+ErS2GG4bw48Tp7h9eXbtGD4b+hg9
8X6lPvF5fRl9t+vT5fmYUmPM58t4UOnl8ue3YhmT3fvpHO5QYm5u23Nx53mi
i9lg63ZcePtLPLmUtfXp5ue7cbR/Ab2JQZoLbWsOryXIJdE9KIoUrXPZfCwP
ncXfxXfx6I+zL+2A6t5PM7i2bxYH80voS25BXE7b7ckN56qyxZS9rI/WiJPd
B3Bq81dY2XkO302ewcUdy1jY9BGtDd9DNp5XaskIfRd2NoPApbGxtcLyG6vZ
WU7I0313IL1NqeOz8T6k5YyyD7M4cXyrBIKLqHlEUr9ZWD5hNbvW2HmE/9vL
6zwvmA+dOQPyPwAMvy65XDWv5WIeBppLYzC7FnIFhwsWx80gP+dAqFChQr1p
Esmn9ci9BdpmPbLlJ5vo+BHaVgRsW9UHZnugVR0hMlbfLyp2T7vAWJ5nmfnt
ZmwtXCxeUwLjeZ7RSC62rlZJNf5rtC0Svtg5PadRXAV17DtqY8c52irkBd+A
w/1B5VrTjW0nVUbNxiqHjSCuL2PuYRxL6nFF7RvhsMHbVy8uo+9sXa2px1Nq
36KDjSByGX3X1hjjzBHzuei1ryJjebk03yvqubbGCuq5Fk9j/hD5ZvdyLC+X
xlHRXVsl1RgxbjYvVwj/nu2nRPIG8zmnu7ZIqvmekGreD8J/BG580NaYSO1R
L9nVk07M2prjrYPrKbe1lX6/DpLc5pMl8mrtERSJ7BPrSc3KFSpUENXMa0qk
/lyXeg4hCB+7
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWc1PE0EUn223H5SWUsDyoRWV8GUMgljTECEEE2PUJoCXajhhiNzA9B8w
ctHEjwRjGo0nDl5JOBG9aUzUi4n/gTcvGkkUPRieO3U3XZad2Znu7NIt+0te
ujvzdvr79c178xaOzy/NzgcRQlcUO6eYjHz48DxAZ8Z7oPiZ+ZJsvwEMn0ae
Rp3GMbN7kWD5TWmxQibjiOGeNOYGSPuFN15mz+33PnRCF2nebdD2n9m8mY/x
2uzeDdDqnJkfbYyUqz581CMOwh73qjar2JDOGbdMNGi9hFd10db2si6Nv/7T
a7rM1qCt6xVdVhAQL0ln+67LVn5JioagJEMkGIO43AyJUAvE5ASEpAgEpOB+
6dLnFrcuzDshp2AwmYPbfRfg5cwgrBey8GwiCxc756A92g3hQLSs3UFdVnGh
+e/VhAKQCrfD4vAIbL1/Z8rr48wYDDWPQSQQY9HmBLh0YY6Y62xmwZLP1zu9
MNB0FmQpXPO6cD4djvXCh81NJj6PRufKeWcRM5GgrUvkgGtCri3PzGV7bREy
sf7y3qWsKwq0mqEf32N4T42nrzFz+bv1HU7Eh9zWZbzWjxHzKxXpgC8vLjHx
uXfrOTTKSbfyy5auqHJerS4PMvE51XxeeYYaK9G6qsovvA9HUlPMXH6/fgwd
0WNW2kSh6vzCdWOyvcDMZefNfeiJD7uVX3rutDnTOt+bOAO/Pr1l4rO+XCr3
Hi7FS8+fNE7Mr7jcAndHrzPxuZwZV/IxDhb9sChUnV9IjVlXQw88nbxB5PTz
xzbc7FmEplArSJJrdcPInTZH0BaCtkgXTB/Jw6ur0/Bn8wHsfF6Db0+W4OHs
Kkwcypb74iBbX++ELtoc1XAccK/YGumE7saT0N+UhUzjQLknDgcalHnmdzEn
UFW8dulTcieAguV3F1z3GN9Nai6/HDCRusyuva7LyL0eddHmvKhL408a97Iu
TUO9wOnfyocPHz4OGnjqqRu1N6/YlKC1nNTG69+n2ArH2qT+wOwMJJ2NPL76
eV7gZ5IcvjzfVY0Pqf/mBY5XjsNf9H4TrQvnVQlV4r+hWAGxxY71e9zWlVd9
T6uGr9OKFdF/fUc5udjxE6lrQ+ebRBWN2hqlKviI8rGjy1h7sI4F9bqozvVx
8hHlY0eXkTvOqw31OqfOFTj5iPKxo8vIXcsxrDONzPciy/cb593WpXEvqvda
juXVey2exvrB+x7Kmxd2z2VNR1E3VkKVGGHdeF+uIPYz20nw/D6Yc1o3VkCV
eo9Qpe7Xwt8I7HDQcoyn93ALtH7SSrOWc6x9sJuw21vpz+tagt16soB29x61
Ahr/WowDK+pVlw8ftYh6zqm6/5/JP3lAGxc=
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWc1P1EAUn3a7Lru67AewEZTFD4IkoAjqsgoagxgluIkhmKyJIREleDNm
lYjxYrh5N9w9ePBI9OTV+Cd41xjj2X/gOVNat1tmpp1+0Zb+kpd2Zl5ff7++
eTOzcHL16dJqCiG0iK2GTUEJEkQeYDBzGzh+NF+W7TfAxtXM06zT3Edrewk7
35SXK0TpRzbarL4gwJovovmiPbff89APXazxoMGbf7Rxmo/5ntYOArx1jubH
62PVaoIEccRBmONR1WaVG9Y+E5R5Dd5ZIqq6eLGjrEvnb7xGTRctBi9uVHRZ
Iar54umJW30Za0tYl4QkUKQ0ZOQcdMmHQUYptS8tZdQ2ucpSCvtKQdcXS5Ol
LhnJcEQpQa1nEtbHr8DG5ZswXpyFSlcVVoanYWN6Hhb6F6E/exoOyV2qXp90
8SCka1dTEZarT+Dv+2cdzy7Uezva3++fg4nSVTWnFtr8gG1dhFtO6YaFgUe2
ufx5fgKG85PqnGXFdSuAw5039t9SkgJnui/Ar81ZIS5vzz9Qc8zJmVfgrRnG
/g4jtbI8VBPm8fvzJxjMjWJdclC6zPfGvj2WTeXhxaU5Rzymyjfw+qiEVtdm
7ZYjHrWe2+o8ZsT2ClZxGfMwC83qojAPwBgtTKt7HCO2V3BUXym8pp0tzgB8
qQtx+fD4IZQPHQ1i3UAWMZnrfF4pw6uxdSEu96o1NdesuA758yCkixg5G/Vn
T8G7+ZU9z5r3ZYK1sTtQIrmSmGvhvteXbmSP7csch6XBJnxrXISfr4fgzdQc
5NNl+NqYgB8vq/Dx+jWY6buL+0raOZEb00s41kWMnKcyeG4V0xXozQxADq+V
u/O0hNvHoJDuxXMvw9uzQlNfe01SteiGtBpst22d5f2oL12DQ12emZdaXM3D
EOui3Uddl5l7HHXxxqKoS+fP6o+yLl1DXOD3t0qQIEGCgwaR9TSItbeBbc6j
WH5qE/UfwbYlEJt1PqDtgay9UcTXOC4K8kxBwFfkXV7l0Ikukq+6R+/3y1ck
DqmrbdTO/w62JrKXO7vvCVpXQ/Od0IzcV7C10K6+qgsOTvysfO3G2TH4FlBb
ox5j2yUPUT5WviLf0ehLdKxp9y1tbMQFD1E+Vr5245i5k7ra0e7r2ljTBQ9R
Pla+duOYues1RnRWEH0u0vYcHkR+11n52o2jc29pbb3GGlpbz6d5/RD9HRp0
vnQdLUPfNmrniOgm83IL2d+z/YTIdyScK4a+Jmqv9wi11/0w/I3ADQe9xkTO
HkGBd5600qzXnN1zcJCgcRfJoXG/DhPcnvPXUOfZIyzw+qwfFsRVV4IEYUSc
ayr2/zP5B07ZAVs=
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztmVlsG0UYx9dnHDuOc7hOmvto4iZtbtrGjUiatECbEqrUhZpEaZS0qUrS
EhoLyEMpR3joQ18KKnlBCOWBhyKhKk+okXhshYiUSggeqMQRDgmJAkJIlEP+
M7P2xkd217v27tpO/Zc+eWd2Zvr9/M33zTitnZw9PmlgGOYosb3EjExWWWW8
EGGxbYiM4xsrZKkWJHzG+hnLGdvH11ZSUr5TsVgxPP2MhLZQnxYS2i9y48U3
L9X7UA0uofdaS2z/8b3nGxP7zNfWQmJ1jm+cWJ9QrmaV1VbUw7DHM5UtXmyE
zhmtTGmJ3SUylUts7Uzm4vyP/EyCSxdhmnHxrSG2riQOHTE9o4deZyBmDJmB
NR3pl8GolmTGK8hj0Jlg1uci12CHzehAnrGAfObDYrDBpMuRw6cGj6z8ojEy
kLjkEB67qRgllhrU57Vjl6MHLQW9aHJ0o8rWhOKccpaV5WMM7DyNuCJzSxIX
x5RryCM81Wgv7Mdw5Wlcah7Hu3tHsdQ9grc7J/BcwzT6S33YYe9AgdlFYmph
2UTilgyDmP9i4zf2HmWyGu0oza1Dn8uLNzsmsDbSjwfXPAisnAVuTyNw04ff
X3Hjk4HDOLPjRbSSGBaaS1m24J7ULL8kcVGfaC45LRXwOIew2DWBP1+vBv64
w+sX1maxPtaI593zaHZ4kE/2rJHko0DMUsQVjJXdVETyaD/mm2fxw5X2uP7g
6yV86e3CiapzqLA2knpiFYqZkpJc56kvNP9dlkoMlh/H6pFe4JfVqHkrKyu4
fvkxfPP5j1H9gQ89eKdrEq2FfcgzFbI1lKeGKMkU6b8oF815i97K1rnphjP4
Zz4/as4xT9VGG0RLb5wMt//6Cp8d78bB0jEUmbeT78esBVfsMw+XjuWiNbDB
3onXWi4g8H7Fxpyfv1/dNH9ubi6q77uZDrIXz5N4VwnVD6WUEFejvQsLrReA
D8LxuXfn6qb5NGaR7fUXunCy+jx7NmjAJSu/6B2ixrYbs24//rvijJqzNOWO
at+6NB7VvjvuwZPl59iz2qTPSZv8CtZ4Czm3auGtPIVvfbui5uD+x9jp2EfO
4G0Yq3s1+t2nk7hxYBj7nIOk1jtJ3VA1v8SYeLh0bB2jfnUWHcR1Ut8C75VL
8ueni4/ionsUdfY2di/rGSPfGaa0JHFR0+uCe7Estx5Hy89i5dATwM2dgj7R
HLt/tQ3X9kxg/7ZjZA+WhfagqueXrPxiQjGj9wV6Z6+1tcBbNYOPeofx4LIL
gbsvA3//yq6D3+7h31terE+78VbHs+gt8WI7uXdZ2FgZ+JhSdi6H2fQw6s3s
+UrPsr6SZ+Bvegk3ek5g7ak+fPF0D24PHsKi5xRO18/gkaLHCVMtrOR3DL2v
qHDvFeOKx8zLZiW/s5ykvtE7+57iIxgoHcHhslEcKPGhg+RgTd5u9r5r0duE
7hhq5hfHIJmLY6PfP62RNBa0nhQRBppDlIXeI+m+o/kk4bdXSvNrs+lYPuo3
ZTSS+h00U/DvAdJ41Dq/Yp9lcEUzbjZZayipJOOlqKnBJfYuE7k4/4X6M5mL
Y9gqUvu7yiqrrLJ62CSnnmpRe4eIDSi0lppscsc3EluQsbbQeSfWl8zYyPdy
Rec4Epwn9V2yYxPhovHqTmBeunLRvFpkwvFfJuZjpMcuHbmGQmPbQkafXcT8
TJCvSsIa6ci1HDHWwYQZuTUW4/gR799JFVesb5RjKvTsD71rlOFLvPdaccX6
TvNqOfTcHXrni7NGOu7DWN+5HKOcLoZ/Lyrtq5yxUrk43/2hNpdjQ6E2F8/Y
+iHnd6iSY6VycRz+iL5FJhwjyk335QKT2JmttOTUDeqzK6LPx4TrPcOE6346
/I0gGR+4HEvk7qG2xO6T8Zi5nJN6D9ZSyd6tIs/rdFKy9WSKib57pIvknBOZ
pK3KlVVW6aitnFNb/v9M/gctx6r4
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWUtME1EUfe30Q0tLKZ8WpRIsAiJBIhEEEaFGYkJTjGBIFyICEmGFWhYu
iJsuXLps4sIQEl2AG9m7cmfiwgTjxo2JGheSGFfEiNf3hikd6nzefDqd1jnJ
y3zenTvnzH33zp32+NzyxByDEIrj0YeHA1mwUDYAgWOhIXSd3HwxIcUJVNhJ
2esJsedKGw/+sZh/mvsZBalnnW+jxq6Y61DumarRReO30BC6v5gWWjsxv0ZD
LrekOMrNWbBQzijXNV7KurT0EkYMPSHXt5WqLj5/S5f5dUn5VsTLhmyHBmJH
0ePF3yrSRTTYbQw4bC5w2SvAbffgrRsYmxPP2Y3QJeVD1Tq0Y94urKPaFYJm
Xxd0B0fgbO0odAbOwxFPFHyOalavjS52hYKieJEY+RxB6KoegvsdV+HV7WHY
Xl+DLxvrsP14HjZjcYg3JrG+FjaGFNqKrsuOGPAwfujFsXk680CU0+6LGKyc
WoGItx2ceG3K5FyhtFDpIs+dcIx422BjMC7LZ/ftKsxG5yHoasA5xxhdN6jz
i+iqdAQg1pCE7x+/UvF5NzUIrf4ecOJcE/Orgw4h7lJzebrsUOWsg9mWh9Rc
fq8lYKA+wdYYMb8aNAjxFtrnnxOJVxVcO7ZMzeXnkzvQU3OZyzFz6kJcLaxz
R+DZuXEqPhO9t9gYy9REvaBeF16LHsYHS9EuWT6P7s5AU2UHfhYOo+q86nXo
xTX+Yvg6/PqxQ8Xn/eIkRH2ncT2U1KYXVOrarxsLJ+jrxt7LeRgKjRtZN6T8
isaL9EfjkSX48+0DFZ9Pq4ts3SD9o5hfzWr+5c7f5s8J6iL8Tlb1wZsbMSo+
6YGb0Ohpxb2iIeuQz1/svEjdYPBarIWxo7PweXVMktPr+Bm2hyR1Rqa/LwQU
1UPS5znwd0jQFYaR8BRsXpmEvefDBz4AYydzD9ID01jTBfA7auR6KJPo2l+P
pL6RnqrZ1wmxcALmopOw0j4G080JGKwfhUbcQ5I4EU0G9vOq31+5YWPXFvnG
qmAq2Xrid9awWt2Ml42pgm9LPSHlk5bPQfxsnE6T/Q6gSZcOQ089Un5LWRd/
Wy66+Nz/J12ljnLVZcGCBQtGQ0k9NaL2JvC4pJOvQmpTat+GR1qBb7HeQOqc
Flv+vFKQawIqryuEjVj/rRQkXv0qrjOrLpJXGZSL/xYeSUQfOzPqSnC23dwg
+yE8UmhfX5MKPnrZaNG1xbMNoJzGrI+MDA/a+xitK58b0bHA7ae4uTYFXLTY
6akrnzvJqy1uv5+bSyrko5eNFl353LM5RnSGkPBapLl//rzRurLcU9xxNscS
3HE2nvn1Q+k3u9K80PpezupI8c5lUC5GRDdZl2mk7p2tN5Q8H8I5xDuXRLl6
j1Cu7pvhNwItHLI5pqb3KDSk+kk5zdmco+2DjYTW3or/vjYTtNaTBXS49zAL
pPibMQ60KFddFiyYEeWcU4X6f8k0+AuONAV7
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWc1PE0EUn91+QaGlFGgRBEW+/aIJijWBiHDCWvmIiUAiJCCNelFTRTno
hYOJMZiYKBjPesAYDRf/BW/GmHDSRGP06Nl4ec5sd+2y3e/OLtu6v+Rld2dm
3/5+82bevELbwrWpBQ9CKIVtAJsXuXBRNgCZZzmTe0+rfzehxglMjFMbTxNK
86o3HuJnJf96vmcX1OZaOsbMuN1ch1pzakaXHr9WQ+77Slr0jlPyaze09pYa
R60+Fy7KGeW6xktZVzG1hB1GE1p1W6nqEvN3dTlfl5rvUtYl8BdfS02Xmg9T
65BBDDYWWOThruJ20sbiNnG7Rbq0YCheDMOCn62EsK8O6gPNEPU3gpfxczqC
njBu2wu1uI3cexkfp9XpujyMl+PbHT4Gix2j8GBoHu4nZ+BgzUmo8TfA7L4x
eDg8B3ePZmAkfhYaK/Zzc6ChzSotunQJ8TgcGYS3Q5MAn9b+vbe99gSO18Z3
+Pn9rB2yPcvQEuzB2gK4T1EbbajtuYL9ROa9C8fpDdYk52xzc7Og/c+HFch0
XIG6QBMXaznflLRIuav17YhVxNcAme5RgC8vDHH5djMBfbXD3LwoxIwW1Nag
0Fawr5qDnfB8ImOKx3zbJaj2Rrg8KeOfFgzrInmNrMH315dN8XiUmICIP+ZA
XX4uB37M3jDFY6M/hXN/nDvbZPzTgql12FrVC+/GU6Z4rPROQcgXdVy8yDxH
A3vg9pFZwzx+vXoKp+IXoMJTpVSD0IKWX9k8H2CDkIiehs+LA7rzPMHjM+fw
GdbN7VGL86HAXXyV9snGLOyrh1TzAny9M17wnvRcJnh9fg6S9WPcea5SL9KG
7vML8TEjc072/2BsEjYGZuDH1Rb4ju1y+ygEvSF4eSINP28dgO2LnXDv0Bz0
4vqKy++MbL6wSpeSNkUORBvJIZWeEFf7kdzfEerjamASD1IHd4b7oT2UwPdN
UMFWa2lyhK6c5X6jEH0+JsDFkGVya4xoIGeCDxvpz9W7ttXzhvOhxUYTaj5L
WZfAX6m9FHVp+S1lXeJruegSc/+fdJU6ylWXCxcuXNgNI/nUjtybxjZCyZeV
2oyO78K2asC3Um2g1lbMWHG/UZB3aky+R2OMnrFmdJF4JU2851RdZF+to3z8
t7BNI/2xc6KuND+2jzdyH8OWRTl9rUXyMMpHa6xeP1uisTUor1Hwsa7xDb3f
sVuXlBvRscTfZ/m+Lkrf0QsauqTcyb7a4u+TfN90ETyM8tEaq9ePlLuwx4jO
GJJfi3JnjhqMrlcaugTuWf5Z2GNp/lmIpzR/GP3Nbne8BB1ZUds6yseI6Cbr
chWZO7Npw8g8Es4xUds0yud7hPJ53wl/IyiGg7DHzNQeVkOtntTSLOw5vXWw
nZDjbiSG4vPaSSi2zl9CO2sPp4B2re8UlKsuFy6ciHLeU1b9f8kx+Au7y/NM

               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWM1rE0EUn91s0jam6SdptbXWKi0thfrVNgWLGqrQahS0Qg9+1pZWUEqJ
UBDxUsGD4EWhp156VpR6KOKfIAiFnhU8KXr00oM8Z9Zdsl1mZ2c2s8lu2B88
spmdffP75c17bzaHZ5euzsYQQpPYRrBpKEKECCEC2K6t5jZO8xEU2DmB5dOu
jTbfacxv0H5r+xgtNgg5a2b5rjTcuPPsOVYMKwkadxFdrHmVhNsepMUjDLoI
WDlDG+fxESFChAhBgFPPKaf5gTDrEj1zh0UXDayzWph1WflXky5J+1ABVYmB
psSxJfRPBan6eIV02fkL6lIgpmhQrzVDX3oYLndcgumDV2A8cw3aa7shodYZ
+nzVxfLhaR8STYf2DcDy2Tn4+/v7Hh+fHxfgTNt1SMbSWBtX3PyCcLySWhqe
ncw5ctr9ugOjrRf1fcnhzy8I62pO7HflszF2HuI45zj8yYTVJ7cuUiPqYvXQ
kjgAv77sMDndPzIGTYl2npjJglUPd36RXEnHW+BWzx1uLj9fP4XjTTnQVGbc
ZAEcrq1jlFhp0J8ehd2340Jc1qfnoCHeCozaLwuedJH+NNGWFeaxvf4e2nDt
Z9RGWfCkK4bz5FjTOYA/34S4fHz1CTK1XeXSxfJLzy9F1Xvu9tRpIS4rAzlc
a1LlrofcupCxF3tSQ3CjZ9iVz+LCItwem4LOZK9eRxl+ZcPJJ7Muk/NRSmt0
5bORvQAqnstxnvIDQvEyrTGRga3lF0xOK/038Tmx1tWXJB00DbQxpsVxPxpp
mYQfLx9Reb27twQddUf1cySHP9lahPOraIp+Zu9Ln4InJybgw8O7sPX8DWws
LMCDwSHoTg3qucj5viITLJ88XHQjvZrUOrIvW2s69f5boybd6oSf8fJUD51N
MfqT0Pukn/vQ6X45TSak7MNIV9l0mfydxsOsi4Vq1RUhQoTKQiTny1Ef8thy
knz5qU10fi+2VQHfTjXZPsaq4aznWX1UFOSZBo/P8d5nzaVpFF2LBhKvrIfn
eNbyMqdUXSSv1lAx/pvYZhB/7HjXEomr03zetfLG3CHDyHUGWwH919fF4SOI
ujYtcxtQUaPpY82Fh8x6JlOXnRvRMW9cF4x7vQJceNbjvVeKLjt3klebxnXW
uDfj4kNWv5Kpy87dzDGiM4Poe5Fnfb/m8uoyuReM72aO5Y3vZjzt9UPkXUnm
XF5dpo6CZWwNFWNEdJN9uYq89WzZEKkbhHPGMjaDivUeoWLdD8J7bCkczBzz
cvbwG6zzpJtmM+d4z8HlRKlnK2u/DhJKrSfzaO/ZIygQ6RNhQrXqihAhiKjm
nKr6//X/AVBT71s=
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWNtO1EAYnu6B7QKyhsO6iICAoNFwEAVXUUyMBFBJEE3cS91IjN5gsgSM
F97gDZqYoCHc+ATEK0yMT2DUGxPfQWNi4hOovzO1TUtppzPdtts28yWTbafT
v9/X/zB/t6e8tFBOIoRm8RjHI4UEBAQiBDAdG4fTvJWNsMDMCQy/Zm1W6+3m
/IbVuzbPWfkGIXvNNNu1hhN3lpij+bCWsOLOo4u2rpZwikErf0RBFwEtZ6zm
WWwICAgIhAF2e06Qww9EWRdvzx0VXVag9WpR1mXkHyddcY1DM38uXRKSICml
IZPIgpxogARKKHNpqU45T0sZSEhJvFbyUxfNBnccSlhDQyoHp5tH4N7gOVid
mILB/ZOQl7vhdv8ZWC1OwXT7FSjIPZBOZFi0+QVmfxFN2eQ+uNqxCL9eL+26
b/Zs267zLzfG4FjTOIs2v8CoS4I6HHdjLTPMXL7eOgnt2T41JgOtGwgx6iL5
05I5CG8uznNxudk5j9+HHIQuox7m/CIx2FHfD7/XW7m4bExPKLFrZ9edBEuA
zbFxztpfde3wrXyUi8uT4iium4H6y3xsnLPV1ts4BB/fbzLV1u3tbWW9FEzd
cK2rKd0Cj4ZKXFxGmy/j/S2QuuFkl5pff14d4OLy8tp5nF+NQddDrvzKy13w
/S5ffj2dPAVycLoQxabt/kX43T9S5uIyVbgAKdxf2dv1BVz5RfZX0h+9W5jc
c9/m5t5a8uD4HcilW5UYptj1A1y6iM9SuN8tZHth5UQJfrxYhr+fnsPbx+tK
f/hz4yH8/fAMPi+vwPXuGWjLdOJ3kaJp8qMecuWXURvxW32ySakjfY3D0Jo5
pORfQT6Mz0eU3onELGNP7yVoNp146PpwfGnfKEitLfo50zdKzeu8j8NLXcbf
uOgyche6oqFL4283H2VdNMRVl4CAQG3Bk/NB1Ic5PC55ZMtPbbzrB/BY47Bt
V5PNc7QaTrufto/ygtyTc3kf63UWXrQ1bnQRfxVd3FctV561PHZIXm0h3f87
eJQQu+9Yn+XFOlYbc+raYXWQ4zweFfRfX1eVPLxex2pjx7A2h3SNmo0th2f4
Uc+80GXmRnQsqscV9dqAB8/hWe+FLjN3klc76nFRvVaqgoebtV7oMnPXcozo
zCPrWLTac1h5sOwJXujSuFfUcy3H5tRzzZ/m+sHzrcT7XeWFLk1HxTC3hXQf
Ed0kLteQuz3ba/C8G8I5b5grIb3eI6TX/TB8x1bDQcsxN72H36D1k06atZxj
7YODhBV3Hh8a9+swodo+fxHt7j3CAq97/bAgrroEBMKIOOdU7P/X/wfVn+KL

               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWD1oFEEUnv25y+Xusmc0PwaS6KW4IEnu1KjEiEqUQAJGjRqIloEIghj0
QBsrUyhWVqZRQaw0CJLCxsrS2ItiEwu7gJX1c2bdzU329mdm/2532Q8e2Zt5
M/t99+a9eZfy0sqVJQkhNIvtBDYZpUiRIkYAwzNtTuNme0QFRk5A/TVqM/O3
GgsaZt+1ccwsNghZa7bbu9Vw4s5y5uxi2EqYcefRZefXSjidQbN4xEEXgV3O
mI2z7JEiRYoUUYDVnROmBYE46+LtueOiywx2vVqcddH8k6QrqefQyJ9bl4AE
1Zrn9HGzOV912e3BfQ4JZ1nIQkEugZLZBzmpsKNBFCQoyp3Qga1NbAcRSa2I
l5U2G00i5puHijIO9w+twJfz0/Bo7A7szfapeisdx+D95AJ8PH0Zrg3ehd7c
AfU7cIhdS3UR3nlJgane67D14/euNT8/fYURpb+J4+b8OJQLY1hbJuy6gRCj
LlnMwqnuGmy/eszFZf3sDHRme9VYW+ztF2g9jPkl4LzZAw9nbrniMdl9ESTr
mPkFsHimx5ryqi9Xhm8v3rni8bQ6q+alRZ75BW5dItZVLo655vBh+gjOzY7I
6SLx6s8Pw5/15654vJ2qQbtUDEOX053WVAs7s/vhzc1nrngsDd2AjNgWZj1k
rBsIsmIO5vsvcPPY/r4Fw8pxuzvab1jtaXknk3r9+sys6Tqz+4vg3mgN8rg3
sbmbgwBzvIhJgox7iIPwpHoJ/n5+sLP29uiAevduXh3eGfv1sgrzAwtQynSp
dcdm35brIt+5hM9TQSrBULGK7+mjMKochDYpr87nZQVGSuNwsuswrjMVtT9h
6BH91sKVX7SROkJ6XBI/URCpM0aPSxb9fih1w24uLPNbk+t4RVgX/Tcpumju
qa546NL5W43HWZcdkqorRYoUrQVPzodRH+awnfNpryC18fpXsK1y7G1Vk41j
djWcx5f24QVZU3K5jnXeq68bXSReEy7WsbzLr7PJsw/JqzXUiP0GtkXEHjvW
d/mhjXWPOc23phl57sFWR//1DXrg4NbPzpd1jw3Kt4QaGvU91hzeHWQ985Jf
Rm5Ex7L2XNfmKpzvdnqfF1/W9UbuJK82tOcJbW7RxfuD8mVdb+Su5xjR2YPM
z6LZncXKzasvqy6de137rOfYnPZZj6exfvD8VvLTl1WXrqNOja2hRoyIbnIu
V5G7O9tv8NQNwrmHGltEjXqPUKPuR+F3rBcOeo656T2ChlU/ynLO9Zxj7YPD
hNeekb6vowSv9WQZ7e49ogK/euKoIam6UqSIIpKcU4n/v/4/A5Dh3A==
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztWAlMlFcQ/neXXQSWG3aXvVhgQUQRFRARi8olqKig8RYjiqKCWvGqra1V
02p6GrXSetvLs01Ik6aticbatOkRW1Obpm2a2KSHpkmNPdQofJ33dldW2Bv2
gOwkk/967/3z/TPzzbw/pX51bb1EEIRJpCNJQ4SgBKXfCGxc21Jb85w996c4
sgkejHM0vjfF3nd11R/W1/bWd+V9vhJH37rrGE/G+TMOnX1TT3C5sq63xdb7
7WFxdZy9dX0tznLLkY3OngUlKP1Z+muM92VcPeklfKG9Kc76tr6Ky9p+D3GJ
IOIq5srumc5N9/saLmazWJBALApBiEgKqTgUMvEA0jB+lIplkNB9sUhixusU
ozcw2euTbOJhdkrIXmZ/mCQSUdJ4xMlUSAzVkuqQEKpBjEyBiJAYhEoiOEax
SOzMf70t9nLMDi4x+UeGAWQvs10TZkRm1EjkxVdgjKIGxYoZGJ04FcNixyFV
ngPFAD0ipXEIJT9KyLcOsPXEfkcx52h8Jyb69uEh0dzerOhClCfVocG4Hs8M
bcCBvIU4OnI+9o2ox+as1ZhjWIuixGlIkWcjlvzJfOcAm7fEgb9MHMDyKIIw
qcPSkEv+WZzagMMF8/HV1EJcX5aGmxsN+PtxLW626PFrXToullXg2ZyVmKJd
gYHk0zhZEmEL5zlnI998jothYvnEYo/5KT9+Apanb8IHJRNxo9mI9t1K4A09
qQ54k45vkR7X4f7ORPyyYBD3Ya1+DdKjchEtS6S8DCXOEXubN5ziYjZIRaHE
Dwk8l+YbmnGueDL+2aA04Tiqxa1VKnxaXoq2olpcnVKAu1sTgbf16Digwe/1
aWjNXYSKpIXQhmdQHEdxruwSj70tTnhexOOG+UoVloLxyjnYl1ePvxrV6Dis
xX+79HilqAqDovSYql2ABYZannc5sWPxzezhwOs6dOxT4fuaPKzNXIOhMWM5
37C6IHrYZ77A9OCZKQalkBNnp0UOw8KUBlyqGo/2lxToeE2N1lIN8hQq/HDk
0EPrvFtlJL5X47clRuBUMv4l3x4vmIcS1Vz+fRiHsPrnBVyOYtAKl5jXn2iK
weyYR7ApawWuLcjmOXRzo57z3Y8bVvH5X79/Bavr1uGnL1r59ZYh2WjObEH7
QR19ByUuVZRiRvI6GOSDEU51j3Gjf3GFcp5mHLgrZzlurEgFzhhweVYxChNK
+dy9da92W+PC4Q+RRfF5e6eW8kyNK7X5WJS2FcbIEdz/LA6seNGnuJhacOUR
Dz43rBF/Nhk4ri9nFCM3rojP3TRpS7c1Pm+7DKNciVs7DBzXt9Nzsdj4FNIj
c61w+TcOY4ifc6iHeHJIM/Eb5czJZPzRlMH57e7FJj7/7Ol3+HFqxWh+bF1f
gIm6QtzZk4z2PUp8Vv0I5ho28z6E1UH/xiHxhlhKvVAs1dZ8LDOuxHfE44wz
2veqsClzDIrV6d3m3ztWB11EJj6pKuN8f2erEu+NqUGVejH/FmESubk+ewWX
s97KzPMh3A5NeDoqya4ThbNwZ0MccJr6i41qzNBVIk0egxdqluJUyxE0lpcQ
52fjxcLhuL87CR0HNbi2cAh2ZC+lml5JPKnlfb+Xed76aBM3r8vUu8fKlLz+
NGVswOXJRdRPJABnDbj7tAInyyahPqUQ0zWZeHRQHs7NLMHdXYSJ6tetdRqc
GTcNM5MbKQaHct+z3tkHddnefasaFkJ9QiTv31nPvo3y7Oq0fNzbFs/jjPcW
LDb3qNBxSAOcSCY/UR/SkoTzJZXUdzVTj1+CeKppdnpEb4iTft6055LSN2Z7
juSIwRivmoPHstbgQukEXF+Sintb49D+spLjuv98Im5vTMTPc3Jwsmgmlqav
xcj4Kl6PTXWrWw/lJ1zmPKP+gMUj20fqIwahIGEi5qasxc6cFTgzZjrOV5Tj
Y+pFPiqrxLHCuXhicCOm6ZZwHk0KS+UcGEIcJLa9f/YGFhdwde79WT1je2HW
26dTjWX4JqjrMZ169lmGNajRrUKpah5GxJXBEDGEYi+J+4nt3Wz08X7pD21h
M+2ZpdQLh0NOHBAvU3N/6MIHcj8yHlcOSKaap+Q+kj3YK9vF5Bfe6K6iB76T
UM6x/xwMI/vXYVI55wYWs/zfjSBx5d9Ub+JxoX65gk/M+c1SZy3nlv9tLvyL
8kZ+eeAv+zg9m+f//PKi+gpXX5f+iisoQQlKUHwt7vCpL7i3mrSkl9byJjZ3
x2eQbndzjq332Krt9voId8bae5+rNkZ7MMed547GuzLWE1zMX6PcnBPIuFhe
7Rc6/d9GOluw7Tt3+1R/4ao2j80xKztXkLYIJnz6Htjp7vjexNVmNTZa6MRo
WWO/k7UDFVfXOGI4GsznLeZnGQ7WD1RcXW1nedVmPh9lfjbbwfqBiqur7ZYc
YzgVgv1YtLwjUHFZbG8xX1tyrNp8bfFnV/5w5z3u7O97qy5bcLRY3dsvdPqI
4WZxuV1wv2Z7Q9zhDWazwurebKGT7wWhk/cD4R9BT2yw5Ji7vYcvxFE/6Qyz
Jec86YO9LT3trazrdSBJT/mkQXi49wgUcadO9CXpr7iCEpRAlP6cU+70n31S
/gdfN0he
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWFtoHFUYPrP3zW1z282lTczW3GzaJrTZ2LSaaEITE4lobEjSaJPGxNpg
bCW1iiIK0UhqIVgtgWpB8U0KQioFH8SnVgRFwQdpwTehWkSRBhWx+TznZLY7
u5nrZnd2EuaDw8ycPefM/83//9/5z4bHj/ePOwkhPbS10OYiNmzY2EBAwr20
afXLrWEVJNoEyTWRm9x4pb50Q+5bJ/bJ+YYQZc5qa2caWrbriTk1H2YScrYb
4aU2LpPQikE5f2wEXgxqOSPXr2cNGzZs2LAClPYcM1s6sJF5Ga25NwovOajV
arrsEYjAm0Nw0OakzcWvAnHw/gzxktpvmBez3Sm44XVkIcuVh1x3IQLuYuS6
CuBz5sAteOEgTjpWF790cDIch8xer8NHeQRRmX0P9hQeQEfpCLrKjqAtdBDb
A/tQ6gsj2xWAS/Dwb2Air0T7NXnxmKOcfNRH5f5qdJY+jrnGQVwZbsX12S7c
mO/EtZMtuNT5MCarn8WugjYUeEqo7zS5pdp+otInG3uMU4m/Cv0Vg7h0aAAr
V0/L2vXPO3fj3cg4mou6uV9dNGZVYjJd0OUvJ9WFgCeI1uI+fNnTAfzxnapN
/356H+aajqE+LwK/M1fNZ+mCJi8Wgx6aUxXZdXiu7iR+u/yyLnt+nqhDd/kI
8j0h/l3k1k4djTjbCdHJi2lfbV4z3o+MYeXmj7rs+W8xgqerDyPkqxBjMa28
pHx05deqv/wI5+zEmaajWPnm7J15p2Zeilvj3FTVnee/5poxGh5EsXerGf6C
wr20b62+s/yiGtBechBXujrx56v7MNrQIGvXuQfrsfx6C063TWFn/n4xv9Ku
G0nxYk0QWDz6qX6X4q7s7bzvwvw8pp96gK/DrgsLC7yf/c7GsfFsnsq6GeXF
dZ7WElv8NXgy3I7nd/ShLj9nzfy/v76MhyqCeGHXY7g/eID72KEcg6nmpbWn
JTSB10ZsP56qeQXL53fzeddOFa6Zf/GTi1j5/iMw/DQaQXfZ0Co3XleZpoe6
dSOqhxcih7Hya7wefnjmLf68/NXncf23z+/BUa6HlWboodR+pX5FPZxvPEb9
saDLnltv7MdYeIDq4RZeJ8utvX4aihzk+tbEIathg76t6K88jhsv7tC0h8Xh
Fz29aA0+wut9k+JQykGuT0bnnciiel2T24zXGp7BrbNNijYxTtcnmvHEtiGu
M1wTzdN5A7qxGossR/LcRWigZ5ET9Sfww5EW3P5sGvj9W74OfrmKmx+8iaWB
XhyqGuFxy84rTkH1LJZKqK2pvH+J3HLo+ZGdvdpDA5iuncB7u4fxccujeLtx
GGPbJnFvUS/K/GG+H7M6Q+P8nGpOhvwl5cZs9Tj9yHMV0pyrREVWHd+HWcwV
ecu5j9wOr97/BFLJS3o1xCvGz0G1wAWXw8NrfaaXbnpl+sI0Qsc52TJxKM9P
iGs6/9OwPK8UtFRjs/JSw2blZcOGjczCSM6boQ99tHWkaK10cjM6vpa2WYNz
5N4jp9NK+m1krNL79NoYSGJOqsbJcUz2fVIwf+01OMfKvFheLZKY/5doGyLy
vku2PjCbV584tlFs7D5E2wxZ5VeZxLvlYDavJcnYAIlxjK6xqLG2VXklxhHj
MSnez4i/1aqsb1VeibazvFoS7/eKvw2prG9VXom2R3OM8QwR5ViMvkOvvWbz
ito+Iz5Hc6xPfI76M1E/jL7HaF6sd1+O8piR9C2SmI8YbxaXs8T4np0OGPk+
zOaQpG+IxPSekJjuW+Ecux4bojlmtPYwA2r1pBbnaM4lUwenG+utraT7tZWw
Xj2ZJPG1h1WgZr8V/aAXm5WXDRtWxGbOqU3/v/7/XKVjAQ==
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWFtMHFUYPrN39sIusGwpLBQopdwKRS0iNcalLSkWlIu19ILURlpJ2pKU
eklqFMVo0/jSppYH4qsxqH3gzQfji7400QcTEzWNiak2Jl4bjbGm+nnOMMPO
7tx2tju7s2S+5GRm//PPP/83/+X80HBsduyYkxAySFcPXS5iw4aNIgLS7qVL
T65kwypI9wmSazo3JX01mdlQ+tbpMqXYEKLOWct2oaHneyY5pxXDQkLJdyO8
tPQKCb0cVIpHMfBi0KoZJXkmNmzYsGHDClA7c/K5zEAx8zI6cxcLLyVozWrF
zEvq/3rilXUecoSDgzjh5Fxw0cXupXtM7uTc/JUjDirnChWvjHiJfNwOLwKu
CMo9VYh6a1DqrhA4cPA6/Ly8wluNsCcKnzNIubsFfnnpG9I9Lf215aScmJ+V
3lp0l/djrHYUR+onkdgwjohnA1wODxqCnRiNj+EQle+qehxbQvcg7I5Sbh4t
bmZBN17MJxaLjSWNGNg4heUHDuD3UzX490IU15/Yjj1V+1DiDOH51rO4dboa
d96owHeHW/DqtlO4r2IAZYw35aaSkwXixfGxqPTVYqhmHNce68PtG9fXngHF
+R376H4cv56oTrH1z/L9uLzjKXSVPYwgzV1pLZrES2pTk5eDxspPY8F8e3vg
IHDjaoo+4zXTzvPBpZ3tMj//XtyKmS2zNNabaW36+Do0iZeUj059rfY3Vj9j
tU/i5mtHZPpnzzyL7y+8gMlHBhlFXJ6pl+l8vHcXtkUeot+nVKnOcgWo3Etl
az2Q1UWVrxHn2ibw37U3U/Rvffju2u/BfnmsRPzwUgcSVYdo74zCwclyMVcw
xIv19bi/GRe792ftw29LCQzHZ/j+weJPrMCLxqvG34TXOw8DP36Uoj86MpaR
XzevJDBY/TTN55jZvPTONEkeuun5G8fxpknceWdK1Y/5+Xl+74P3rsp0vplu
RW90CEF3uZl5mOK7zh7fm0OuMuysHMHnE30y/a9fjGFvXYTXnWzukO3j56+w
1DuCzcEuesYFzewbUv/V5Ckx8zhKUOtvwcnmM/jjYpfsufM9u/nz65fjNbK9
T08P4dH4FD9frc4dpvX5dA5KstQZiuZOkMasPdyHVzpO4KdzLcC3S3xfv70y
hOfaEgi5y/DJnt3Al4tU+Cf++mwBXxzswdGGKdQFWuGj84pDeZYqGC+xztiM
u7W0Bwc2zeKtnqN4v38cL3efRFv4Xn4mYbPiFTpfLCf2Y2H7MxiqHsamQBt/
rjuIy+w5ysC5LOcWoGdrzFfHz7QdkQdRH+ig/SDC77N+1xTq5uWNoU5+rmc1
Jc77KrZzCS2bau8X/r5yUn5eeJ1+Ot8HaO351noc899La5HN/ezKvgPb0+BU
kD6vvjje11V/ORn35F4mtnLKS3rNgldOVy6RVR7avArGS/RfTV7MvLSwXnnZ
sGGjsDBS8/noD8N09efIlpncjOo307Vg8Bml9yj1abX+bURX7X2Z+hjO4plc
6unpZsOLxavX4DNW5sXqapEk479C1wRRjl2280G+eQ0Lul3CYvcxuubIKr86
HbtWjdeKRDdMkhxFG4s6tq3KKz2PGI9p4X5O2GvWsG9VXum+s7paEe57hb0J
DftW5ZXuu1hjjGeMqOei+I5Me0a2+aO0nwlE3+eE32KNDQu/xXim9w+j78l3
vEQecxLZIknGiPFmeblAjJ/ZZsDId2Q+xySyCZLs94Qk+74V/o69Gx/EGjM6
e+QDWvOkHmex5rKZg82Gku9GYig9r62Eu53zp0nq7GEV5HrWtwrWKy8bNqyI
9VxT6/7/+v8DO29VOg==
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWV1rE1kYPvlo0pi2cdOa1qzalmj9QPELY62sXVYLrm3wY7UGvNFKxW8v
cquIioqIghe1glK98A9Y/A2CXuhdr7xylxV7JbK7rLDw7DmTGTOZzDkzJ5lJ
pnEeeHEyc86Z58l73ue8qf0Tlw5NhAghozSyNMLEh4+mANQw3jM+148zu8eb
1wiIOOmvIRhj954bMH6/dnJg5CjKK28uMZlTD8jkxXgtmucFXWbfr6wu4zyz
desNs71lpYt3r9F5MsKKE6+2RD7KG+PDR7OgGfe317ypGtjp1URz3A4nYce3
F6ou3roLWZee/0LVxasv3tpSvAIkUBZEiYbXV9X5YhqCgTAiwVbEQm1YFGpH
ayiOcCBCnwW9UF/S+WK8I8EYOiNpbFj8E/amT+DA8vMY7h5Hf9sGtIeTCAVa
Gl1fkroCiFJNAx1bcXnjGN49OAcGNvHf93N4cziLfekjSEZ7qLZwvetL/0w0
3nT/dUbTuDb0M5fT5zsZDKcOKvsyYF1vbkE6Xyvia/H2zl0hp4dbDqEtnLDj
I27Bli7FJ2hdsb0VprXz+tELIaeLA8fRQj2FeYtFzpzWwvNE0/czPZ2Rpdi5
JIcr2X78EOkWcjq1vg1nMzsVHynuR65HOqlJz9/seUWuGLehrmF8mNz0bY7m
F/rPxntPhsbxY2yVyEOcAjjX+nsVvt7R0onTq/YD//wuxeWPewVsTY4o5xyn
1pxClbq6cGH1uDSPj89nMNg1ppx3ddBl5f0V+zBG+4ldqcP4+2m2bM78/LyQ
28szR7GmI6v0IWZr16ymkjchNnWxYLx6Yn2YyFzFp4k+TO1ax+X0bLQX8yf7
8HbvMHb35NHeklS81GVdeu6iZxU5Y/4eDy9Wam3q9mMhpx1dv9KeMUHHJ6z6
DjdgO1+lCCAdy2Du7i0hp6fbcmgNxi3WckWX7frSB/OQ7tZezOzJczl9/fIX
TmTO03x11LOPkj6/yqN4lm1O7sbL0THgz5myNf57NYXr249geXwN7TeiPA/0
hB8aI0hCij+ubN+MY72/4f62o5gZ2YebW8ZwYNmI0j+ynt/m7zAnden/ldZF
1P3I8sF8JBnpwZLoMtpbpZTfl5K/LZ2EtB/y9RX7YRZFLQ37O0DN+9DhcFKX
nn+z6TJeN4Mux+rLQ7o07s0KN74vHz58+PgeIeOl9fDdHI1fHFrLTW2y4wdo
3JCcY/Ye4/kn6iXMzko7fU81HBNVzJEZIxpvprGa9xnB8jUoOcfue2T18+bI
6GJ1NU1K+Z+lkSfmuaulT7Ua56SunDp2oxrsOkWjQIr6VlTxbh7qqWtWNzZB
Shq1NaYt1nbSz5zUZdxHTMekel1Qnw0I1veqLiN3Vlez6vWg+iwvWN+ruozc
tRpjOlOEvxe1dzhRMzJj7erSuBfUz1qN5dTPWj6N/iHzHhnfdOpc1nQUdPem
SSlHTDfblzeI/JntBmR8g3FO6e7lScnvCSn5vhf+PlALB63GZHuPekDUT1pp
1mqumj7YbdTaW+nPay+hVj+ZJOW9h1cgc04sJDSrLh8+vIhmrim3/n/JM/gf
KlBNvA==
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWU1M1EAUnna3LCwIK8qCCioYftSAGAhgAuIPciHrD7q6BmOMERVjJIaT
B0wMmngwJnqQaKIXDxriRdR48OrdhJOJdz2QePCoic+Z2rK1zExnlrZbar/k
xdnXmTfv65v35hUbz0+Ono8hhEaw9GCJowgRQgEwxK6zP7fOo+lY64oBnk/W
MXDmiOq8gP39isTA7iMvrqy1iLLGD8jExT7mrQsCL9r7leVlX0ez6zdoZ8uJ
F0tX7DjZ4eQTK7d4dZQ1J0KEsCCM5ztotakQiPRqvDVei5sQqdurlRfL7mrm
ZfV/tfJi5RfL9mrhRQPY/i2Al2IRmr7o+SUZLwVUJQaaUgqlsQpIxJKgopiu
1xQNyohOTUJcKQEFqcXML2FeCvY9riRgfWITdFUPwWjDSTi8KQfrEhuhRC2F
jtQg5DaPwoG6LDRVdEB5vEp/Bx7x4tmQOIeK7nu6dAtMNB+BT/ceAQFZ8Hpo
AAbrKmHxyS3996+P9+HNyHHoT4/CGq3aiKdv8WJxo+5P3ntKq4FjDdfgx9tL
y/zJZrPLdJ/PHoLu6mF8Xst5OecVhHhp+Py1VfbAwokuKV9udpyD6pINvJi5
CatNIV4JtQz21uwHeNkq5cu7sRGoT7bw8swtWPkI55emJqBzbT/8fLxVypcX
YxmoK2v0I17AGFt11FpI6tuZppywL6SuDNbt1usNy26BHKjbMcZWHZUXuava
Knthbm5OyJ/pznqoiKecar1bcLJL3T+O79z2VDd8u7pdypeHvUehCtdRzh3t
Fng1w/p8Wd0YTB8E+NAr5cv7iVPQkGzzo24gB5vMOt+eGoDv1+XqxuORDNTi
u9ynOm9COF4xJa73T9M7x6m+0O7lxVdPcV81pOeYD+fQ7j9Lv7xu4LO4bU0n
POs7Cb8X7iyt/TL/Bnakav6x9fX5AFxsvgK1ZVv1Hphl12U+0ryIqPidk56o
PtkKRxvOwN09l+F2/yTsre3Ua/npxiw8GLgAN7ovwb7aYf3e0rBe4X+3uMlL
uh6aQs6Tht8/ucvIuSS9PPleIf1feaxySZfEY1JDHTh5FS/WcwdRdH6qIabv
iv5tZuqEvr2KXg89FLc5FXQOA87L6n/YeNnHYeAVxvwyfQ8rvHhfESJEiPA/
QqaW+lF3M1gOuGTLS26y81uwzEiuoe1jv/94vQTtrhTpewrxsaqANTJzZOcX
sp8dJF59kmtE93HrbMrYIXk1i/Lxn8eSQ/TYraRPdWOeqI2MMXeXIWScxjKF
/vLb7GDXixrhBq95y9wqlOdo2ph1sO1FPXODl/0cER7jxnjKeNbCsR9UXnbf
SV7NG+M+41mOYz+ovOy+mzlGeKYR+yyaezjtI5uPTjZFeZm+Txm/zRzLGL/N
eNrrh8w+btZNURsmjymLbhblY0R4k3M5g+TvbC8g826Iz2mLLofy9R6hfN0P
wt8HVuKDmWOyvYcf4PWTTpzNnCukD/YaNN9lYmi9r4OElfb54+jf3iMocLvX
DwrCyitChCAizDnl1f8vBQZ/ANhFLGM=
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWUtoE0EYnryatE0fsW1qfaYtBkRtK/X9qgrVahOpFrRofVCt1YOI5CpF
KVVRRPBgb4oXvdeL4kERERQEQZCqB+8q9CB6k9+Zdddspju7M9lHNut+MHQz
/8zs9+V/zN+2deT8gZEQQqgfj3V4hJEPH54AyIOeo+3qdVpzrH2lgB4n9TPo
rOGdswP098vjA5qjnl9Ze5HGHicg4hf6WW+fG3Rpfb+iuuh9Wuc6Da3YMtLF
miu1n2gYcWLlll4dZa3x4cMr8GJ8u602FQOeXk1vj93DSvDU7XLVxTq3nHWp
+ZerLlZ+sc4uF11aAOqnl3SZ8FcAAvLQsuvZbNZF8+fSRbiGAiGIhqogHq6H
6nAthAMVBfaYbKsK1UAE24Io6GR+qW166ws4VwQroaGiBTY1boexdC+cSQ9A
Z6IHa41I9ng4AQMLN8O55RkYXDwA6do1WHs91hZy0l8sbZpxR/zSHEvB0dZx
mL2U/rfn9/2tsKp+KwSxH4+3XQb4PiPZ4OszeLevB7YnD0JNZJ6etpLpIpwT
FfNhbFkGfj6fnMPlzoVb0BRbpMnx86k+6J7XK8Uu0s45K6E+01BXJBCFrsQO
eHHlHpNHezzFtN3sHoaG6AKWz6yCWo9hfgVw3lfiGnAkNVg0hy+T3TjXuiES
jGr5zCoA41k9l49BrKsm0gDXOnYXzWH29RtY17gHorjuaNR/qyCsqxbrut6x
t2gOPz7MwMamrHQH2KzLqPYXxGF1qA5Otx8smsPHR7dhZf0W6Z5wQBdCHLrI
IHw2NmVg9u7FourG0/5N0FLZiu+KsJP1kGUrqPON0UVwteswkwerzv/69Bbf
0YNQFa7DvrK1HqrB5S+l12iPd8GDnv0AP94X7MttSUjanwzvLJj/9vgJjHdt
w75qk3oSB+4vNX9DXUjOs2ioGlLVK+BY60l41LMLXmZWw4m2s1I/SNY0x5bC
jc7D8Cq7Fh6u74PelkPSHKO+l/T+orURjqQPTMaWSJyJpoDc25J7twbb5uNc
InEbx7EXZvuppPVwrraApIPEHRl0fSOf1TaO31es1KX+KaTLhmElhOphmegy
FYcu16Xm7zVd9LMXdHkxvxTuXoUd35cPHz58/I8QqaVO1N0sHjstOstObaLr
03hMCO7Reg99/+n1EiJrWe/j5VhXxB6RNUbrefpUURB/bRDcw/seq2JT5ByS
V1Mo7/tpPIaQtu/M9KlWaOM9Iyuv7ZQHeU7ikUN/9S0xONeuGmFW17RqbR3K
a1TOmDI42856Zia/6DgiOkbl55xsS+uc71ZdNHeSV9Py8wbZNqRzvlt10dyV
HCM6k4gdi8o7ROq2ES+etby6FO45+bOSY1n5s+JPun6IvEekbvL8PYIHio6c
am4K5X1EdJO4nEDid7YdEKkbhHNSNTeE8vUeoXzdd8PfB8xwUHJMtPdwAqx+
lCfOlZwrpg+2G2Z7RvV97SaYrSejqLD3cAus6ondBq/q8uHDjfByTtn1/yXX
4A99kC9C
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWc1rE0EUn91N0qZtEtLU+NFataalpaXVtkhF/GhRSwuR4kebgodaqEV6
8JCLFw/SP0A8lIAgiNCrh14VPHnwUgS/Dr168a7gRZ4zyQ7ZbHd2dzaTzWTZ
Hwz7MTNvfr+8eW/ekjPrj2+vawihBdwu4BZBIUIECqA347PxPauxxssAFj96
tXpnNc/Kjh9w+u3tfOLWn+b+ZsLJX1bj6LOT7mbCzjdOuszzZYovAlasuIkh
1nhZwKOH5TtWf4gQIVoDQYxfpzPSa+3htV7xqsHuvGfVCbLrskKQdbHstrIu
I/9W1cWKL5Zt15wUpEBEiUKb2gHtWifElHZQFa3Z+9B45dalIhWS0R4YS52H
e7kb8GB4GRZ6Z6E3noOo2i5DfHnyV0ckBfcHVuHn/m7N/G8PF2E8fRX7LdLs
+OLSpWA/kf13unOMyen10gpoWJeqVMY62BTNH9m8s2wklrpjx2Dx+DgcaTvJ
5PRl/zvMHu2F0dQliGtdTtpEwmjTlb8It0QkA5uDT11z+fcmD5ezead4EwWr
vGjuP5wncJ4bTE7Bnxc5Li47cyuQiHbjOUyfiYLZV651DXSNA7y7zsXl5dYm
zpsZv3TRK0d8KRBT47A1uMbF5Vr2Cs4hUb/2oVMusdQV1xJcug4ODmAyPeWU
80XBLmcY+w/tw+HkNMDXV1xcdpfv4vhK+7EPkYNNpq7+zhH4zZk3SoWbkMJ1
iU+6KFz7qwXyPAVnfCEc/1r5XJ5Iz8JS/wiT08cPn2D+RB9czEyWcyGpUWzs
itRj5G/Vz2yVOkqFnrY++PvjrSWv3efPcF2s6XWUrSYJ8mFtI/VRvu8R/Hq/
U2Pj85NVmM7Ml+tDl7ZE6jJePekifujQkpBLnIM7p27B2mjlO+VsV678PebW
jkBdRu6edSE9l5AzN4bzAv2uJH5yUcNLuw8FNpG6jPyDpst8HwRdQuJLMl2U
u1N/K+oycg8RIkQIv8CTc/zIT3nc5gTZaqQ23vFDuG1zzrFax3xO2J1Ldu/s
6gMvHFMe5ogab6Wx3vUIiL9mOOfIrIvEVQlV/b+HWwFZ+67euscvXXl97ITe
yH0WtyKq6Ov3sLYd/NK1ZxibQlWN1EbJwbbbddz4VaQu83pEx4Z+X9T7hmzs
i8zpInWZuZO42tPvZ/S+go19WfehmTuNMaIzi9h7ka4hwgc8Y93qotyL+jON
sbz+TP1pzh886/DkTVHnMtVRNLwroaqPiG6yL7cR/5ndCPDkDcI5a3hXQNV8
j1A178vwHV0PBxpjvLWHH7CrJ50005jzUgc3GvXWVsbzWibUm082UG3tIQt4
zolWQlB1hQghI4IcU438v0IK/Ae6Dhoy
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWUtr1FAUvklmOm/HVjoytErVWqoVi/ig9KFVdLDg9LVpEeuitkJXLmYh
bupAV65d9Be4Vam4ELeKC/0F3bhy058gwjE35jJJzM29N5PcuTPkg0NzXyfn
m3PPI/TM5rPVTQMhtGDKDVNSKEGCngLY4hw752lC268CaPaRv35zfuf89MgA
67cP8gmvP73rnQTLX377yJjFu5MI8g2Ll/e8SvGFQYsVnhii7VcFInxovqOt
J0iQoDvQi/HLqpFhe4+w/UpYDkH1ntYnqM7LD73Mi6a3m3k57e9WXrT4ounm
tEcDzRbvHHLNdSS+QvkL257WMlBIlaGY6oeU1geapkNWL1jjjJ4HHRmdji8h
f2FOeeMYTPbPQ/PSBnycm4datQal9AC8NMdvp+/BxshjGMqft/hK5uW1n5OX
Bn16FupDS3D088h1rtlsusbvHy3CcH4MdI3pt6jtRwFzVF+V04Pw5fkylz1P
xx9adzJIpyAXFpw6he4hjqlfh0dc9uwuvIa0npHFyy8vetd9fKVDzijCSHEC
Mkaey54HF27CQF/VjLO0LF7g8+xddwmOq6Xhy/Dn8KuQLT9WrsPJ7IiZH3VZ
/gqKuf/yBb5/u/MroeyYGVwGQ0vJ8pcwr+ZsOF6zlVWZvBDi5oWsWnTtRE34
Hn5+8w1OFcZl3EPE0EnN8Ti34byxNjPKZc9o6QpUc2dZOTEOCNUvpHaeJxCI
L3dd/r52lcueJ1M7kDUKsuuXMC9k5/u5wRr8flV1nb1VLbnGn3amYdS8s4za
1eF86PZZzijBRHkaXlzcgg9zt2F1+L7lF9z3vpu5C1vnNqxcgXt+jf3NEiUv
518hXoQb9kPe5FdMHTd9mLNqAf5OKaX7Td4FK69zcOp4PqTxc39H+n1rSuPV
1j2MQaLk5bS/13h5n3uBVyTxpRgvYjtrvRt5OW1PkCBBAlkQyTky8lPdlDsR
6YqTm+j+MVP2BM/4vcdbJ4LqUtBcUH8QxsZyiDNR7w/aE4YX9teU4BmVeeG4
2kct/x+Yso78fddu3yOLV93eO2kLfq6Y0kD/+J1m6FXVXweOvWXU4kh07DN0
875HxK9R8PK+D/PYtp8b9tpYgP44cnoUvLy247g6sJ+n7LX1AP2q3kOv7STG
MM8Kot9F8g6ebzYRu1g6eXkR2xv2mMRY3R4Tf3rzh8h7RPNmFLwIj4Zjbh+1
fIR543u5h8RrdhwQ+W2wzRXH3Dpq5XuEWnlfhe/odmwgMSbae8hAUD/J4kxi
LkwfHDf8bBfxobNeq4R2+/xt5O49VEHUvb4q6FVeCRKoiF6OqTj/X6EE/gKY
/Q2N
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWTtvE0EQ3js/YjsYB+QY5a2AcaQgyAMrhEQQiQYiJU0US6FCSoiEEFIK
N0iEhhSIBsr8AP5BCiQoKChpUyBEART8B7phd7nDy2X39uG7y/l0nzTy3e7e
3Pd5dmbH8uT23sZ2BiG0im0BWxalSJEogGPsPTsuMtH6OEDEz/3kjfGe4/mJ
ArLv3i8mqvH0zp8mZPHirXPvZbpPE36xkenyPh+n/CIQ5YpKDonWxwU6ekSx
E82nSJGiN5DE/JWdkaa9h2m/YqrB77wX9Qlx18VDknWJ/PayLpZ/r+oS5ZfI
d6/o4gE8n1q6LGSBjWxsGXrNznXG7dPOL614Ec6l7FkYKV2GRvk6VPuGwbYy
dC5nF2Cifxrq5Tk8PgJ5fK+gL2ho6rIga+VgsG8UXs4uwPHHL/S575+/wWhp
imp4c2P+n68P7W1YqbWgmCnLtAXNH/mMcfaeDRcK47B/dYfLpdVqnRj//ekt
3K5tUs0ivwZ6/MD6VIpX1srDzeotbR7vnj3F38eEX8yCAq8ueudPWMHuh73Z
JSMeVwaWaV4KfAcFb6yUdJG99LB+z4jHdGWJ1kmB76Dgp4kdP1Hbz+eH4Ovz
qhaXV6tztHaI/JpJ4ELmV1g3hot1bV17i8t0D4v8GqsQ80ZIQ1efXYLHM01t
HoDRONuMYh8iiU+hrkeNNSMeM+dWoqgbLJTj1QN13oV2flVyVdi/xj+XJ89c
5I7fn2xGmV8sf94810gfSPqoJ1Mb8OP1Jn321/FP2GkM0XrJ9lHvXzyAtZG7
MJAbBMsKpY+S8VbWRbXRvrcMQ8VLuO9tQq0wBhkrS+dI3zuGe8V6eR4G8Xje
LkbZ9/rVQqmujj6bxs/7O8Vyxsm8dy5kXSx3Y10BWtCajPZhzHWx/JOmy3ud
BF1JzC+Xu2y+F3Wx3FOkSJEiKujUnCjq0zq2OwH5ClOb7voGtgPNZ3jv8Z4T
fueSbK2o7zHhWDF4Jsj1Kv2cLki8FjWfCWMf+a3ReR/Jq0PUif0Rti3Ej123
fY/qWr8+VQXrztoZx8h1DVsb/dU3LvEbVt53q+uIWVtBHY2uj0OJbx2eQXwH
pu8jOnad67Yz1/DxH3VNV/Xh5U7y6si5XnTmtnz8h3n+dKPLy93NMaKzhsR7
0X2HTt2W8VJZq6rL5d527t0cW3fu3Xh664fOe3Tqpmytqi5XR5sZO0SdGBHd
ZF8eIP0zOwzo1A3CucaMbaFOvUeoU/fj8Du6Gw5ujun2HlFA1GOq7HM350z6
4LDRbc/IntdxQrf1ZBf933vEBUH1xHFDUnWlSBFHJDmnwvy/Ihb4A7FJAyI=

               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWTlvE0EUnrWd2LmwghzHTkSIJRRACWeRBMIhzhwk4SyiiIZIURokCjfQ
QBH+AkR0NGkQVX4BoqVEQqGgggaQgH/wmFnv2OvJzO7MXpld7Sc9eXZn5s37
/OYdlmtrT+6tZRFC81gmseRQihSJAlhif7a/F4lovQ4Q2Uc/ee94+3h6ooDb
d+/kE1l/svP7CTd/8dbRZzfe+wkn37jxYvfrFF8EoliRiSHRel2gwkfkO9F8
ihQp4oEkxq9bjfTae3jtV7xycKr3oj5Bd148JJmXSG+cedntjysvUXyJdMeF
Fw/AfCaJl0d/GZBBWcgaOcgY2T3zBsqYc1k8R8YR82Ltl+KVwXYWsr1wpO8M
zFaX4crgIvR3VlrzmMt48TwsDC3DVGkBSvlhyBkd5ncRAi8nHdL3kHA6mK/C
7eFZ+PnuTXPfn89foS/Xb/pmsXqyTd/71VU4emASOjL5qO8hjxv3/HymC+Yq
1wF2H++xBTC6sB95B318tgGjPRPcO8s52w+AGbvyIr461H0MPrx868mO5+MP
KO+weQFnzM43hcTItcotzzZ8eXHDjDVBHgkKTpzs75tC4mOtNu/Zhr/ffsBI
93EzR3L0BwU3vVxej2re/fXv+68oeSEkyYvUo6mSd399erVh3kNS9zj6g4ST
Tm7eqBRqsPvwnNCOy9U+4dzrszNm3jD4dSwMSNcvf3l+PIo8z9ovet8mJJf1
5IpmXf799ETbvgulIXMNW5e369twaeA0/k66o6jLyvkQ2biRPorUsovl+3AT
91LlwmEwjEb+Jj4Z7Z2AuepdmBm4A4OFUejEfhbcv33Ph+1imPHW6G1zHO5G
c65Rrxw5heUv0XyUEiSU8mFMePm8h1rzstufNF7sOAm8khhf1Ha3+Tjystue
IkWKFFFBJedEkZ+WsFwNSFeY3FTXj2HZVNzDO4etE051SWWt6DxZG4se9oS1
XtTPqYL4a1pxj868SFxtoZb/d7CsIL7v/PY9UfFastaesoSMy1jqqMFvxEWv
rv7asa0tohZHqmPLRbfsOSp+DSJvsDoIj3VrXLfmxhz0R3kHVXSwtpO42rHG
09bcioN+Xe8hazuNMcKzjMR3kZ4h85tN1i6ZtbK8qO1165nG2JL1TP3J5g+V
c1TyZlB1mfKo295toZaPCG9yLzeRes0OAyp5g9hctr1bQa18j1Ar7+vwO9qP
DTTGVHuPKCDqMWXuOY05L31w2PDbW9nrtU7wm0/WUXvvoQtU6kSckFReKVLo
iCTHVJj/V2iB/zLCFZ8=
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztWHlMm+cZ/3xw2YC578OYOxgIARwcwmVuE3MHnHBTIDckkJZ2q6Zu0aRs
rdpN7caqNeu2bqzKtqhKp25pk2VVj0UsWxVlUjolW3dlbRo6bZO2/VFFvz3v
iw3G2MYGDE7mR3r1Xe/7fs/ve57fc3wpwxPtwxJBEBppaGhIBa94xSv3kcDq
3HKsdt/WHp4i1jrB4miNzdZ8e/fcLba+tfU9W7YRBPuYHe291bKa7s74nCMb
bqXY0t0VXI7mbaWs5oO27HE/4GLiiDO27juzh1e84hWveILYyzmbOdwhLuMS
C5IV92SSoGXXfuKAzcDlas294t0iQURDDInIB76ks1yqQIhvJCL9EhEnS0Oi
LAtJ8mwkyDIR45+CcL84BPuEI0ASCB+xH62T8vUbjMseVsujHVwijkksknD9
ZNJghPrGkP4Z2KYogSaiEVXRRjTEDUMfP4q62EGUR3WgIEyHtKACxAQoOT4/
sQxS+iZijk3kbj90VNMt2kkiLGAKlIZyPbOCNaiI6sJ+5Tgezj6Jp7YfxPNF
gzhT3I+ZwmF8Me8ojmQ8itbEo9gZrocqMI/sF0u2C4JUbMbmVnut4ocmO4n8
EOQTiriANOwIq0ZH0gk8oT6Ec7s6cbWhAr/bW4A/7d+Gv/Rm4Y/7cnCjrRjv
VNfiRU0fJjIfIxsOIFuxExF+CQvYyG5WPrnR4hAXe7dU5Mu5FBugQnF4AwZU
R/CNoiFc0Vfgzz3ZuDuSjI+GUvg5G7f70nF3NJFGEv7QnYvLVY34Qu449iQc
4NgY7/zFcs63DcDlaA+7fsje7S+R03eOR25IGXqUh/FNTT9utGhwZ1hJOLJw
qb4aT+W3YCS1A8bk/TiWvhff1hhxo7UY84Tvw8FUXKnT4VTeMdTHDiE1MJ/4
FsH9egNwOYN7BS42gqVhSAnMRT3FBcaj3xq0+PtYPLfF6fyD9EzN7Rrpn4jk
wBzOQcahMoodr+xux0fDKRzbm7oGnMiahjbCwG3P4uRW4fKTyCiOJ3BOHcmY
xOs6PdeR8ejEtk4eE43KNvzqZA7mZ43476udmD/TgEsNtRQrcsk223Fudwf5
aiI+MKrx3Z09aE+aQHrQDm4zN+Gy3HMFLpan5BTTE+VZqInZh6cLxvB+eyHu
EJdYvEiWb8OUJgT3zuThny8a8OxIPL5SL8OPT+qAuU58+lgw97ldkS1k4xLu
k3O1OhzPegSF4bXct1ns32Bclnjs8iuIfDCdctDe5EP4kbYLt/szcMuYS/Hw
OMX6Qtz9kg43Z0tRpgrDv+Ze4fvc+vwpDKXsAH7ZjKvNpQiQBuG5wj6yWRJu
dhbgSfLlqhgjxdZUd9jLuu6wiSvEJ5JyrxZDqmn8olKPjylWXNlTRrbKwelc
LXChBIczm/n62dlZXJtZOP/g6Wfw8lgV/n22kvRXYjClFX/tzeT++y3KcSx/
J8mytwwXGywOjqU9jndqanlMv1hXx7lxtiYT985VQp2jXrb+q0YFvz5W7I9P
3+rDrqgc6OMMxK9c/G0gDd8v2YcWytdKuXpLcLFczOylDinFCOF6W1fPfemt
Bh3nxgvaYuBNPflj7LL1B8YOgMmEPgL/udhLXEpBe2IDjxu3+9N57GhOOEy4
cnhedAOu1XIatwurmXqUk7hQ1sLz7/WOIhSG1aIloQv4SRku78nAzedVy/Zo
LJTjk2cacOd0JtXGYZjOauFxlNUiX6c6i9WQrD528P6NwmbzWaA0hPvLnvgR
zgtWKzH9Pqc+ynP2u13Esatd+Fm9GjXRKnTt7cKB1Da89uQO3HtZg+ncbp77
flhp4LZmue8J9QRKI1sR7a90dx1lFzPLnTH0fharH885jvf0ZfhkLAHXmkp5
3mU5eK6nCHijFvh5Ne59h84vleIfLzTha/UKqpniMZnZj1tdeZxbr5cb8FDq
OPJCynlP4EZc9rAtvjPUNxpZCg3VSNP4AXGe+dL8aAJ+WtXE8bJavzOpH69W
luLd1iy8pKnBzohqhPnGolfVg+ttGm6ra81afDn/EK+BWe5j32QrcLH+hNXd
Mkkw1T2p0EYaqA6awsXKJs5/hu3X+nJMZw9TzNzNbcO+ActLdXED1K+0UZ2/
HXcfSsbNjgJ8r2Q/8fQRbqtwU06WCFJ3xA3z0a69WJ/kI/bn8SOFeqjqmB58
NmeSsOk515hPMozvtWhxoboR5ypb8QblgevtxeR36bw2fr+tCLO7unEwfZzs
qEe8LJ3iYAjvExy8f73YHPJroe+nmp6+bRjxgdV11bG9mMqexFltN+cZy7Uf
k01YnTRPvck8+dyHQyr8vjsPb9dV855mhDjFfJb9K2C9sy99K6t/JBuNadV+
WWz6pxFA/QrDxnpfpuM+5Wd4bHuJ8tHliiZcpdrvN/WVmKuuwWu7WzmeKaoF
mxOO8LqZ1cgLmAJoPwn3czfhsjw6wC1axMbspvCNRBz5UraihGJiO9oSxzCo
muR9/3jmoziU/jD6Ug6hKX6A+10G1ZHR/slUa4aaMEmtMW26H67EJuV8k0sU
PE6zPkpFNTurIfNDK1AQqqMYUs5zuZL6MoZHQdxkvT+rX8SLdvIUXEt8E/N/
Az6L+Y3Fa2ZDFgsFU15gcYbldNZrC6a+285/qC3Jy/bxrdTPV+S/7NqM3cmx
meKKXusdXvGKV/5/xBXOb0Z8MNDQbdBe7sTm6vwMGqdc2Hu1OtKZ+a7MtXzu
qrA1ijWsceW5o/nOzF0LLmavkjWsW6+ursx1BRfj1YywZP/zNIyC87bzRFwG
09x802DnUTSmhAV8SU7s4Ym4zlvMVQhLGM17zKyy3lP5ZR17GI5R0/mU6VmG
nTXOvGOrcFnrznh13nReYnpmXOPetuZuFi5r3c0cYzijBPu+6Io/OLtuI3GZ
dZ8yXZs5ZjBdm+1pHT9c6Zdc9duNyMtmHFMW92aEJRsx3MwvTwmu52x3iCt+
wnSOsrhnFJbivSAsxX1P6GPXo4OZY2upPdwtjurJ1TCbOedsHbyZst7ayjJf
e5KsN56MCstrD08RV/LE/SQPKi6veMUT5UHm1AP/X/9/bWu7Yg==
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWWtMVEcUvvuCZQGXh7zcZXmvPCsIKErEIrIoiFWBdlGKiILP+oBarSYa
Y1Jj0mhLo9bEJprY0NS2sVRN+0NtmlpT+6tt+sMfja3VWE3TVtMY2xS+zgy7
cFn23r13uRdWul8y2fuYGc4355zvzFzS2retaNdxHFdH2izS9FwQQUwKwNU8
n3m+5/fz9kxo3ERAzCb+NUT6SH2mBjzXV4oPPG0U86vQWM7LmPGAHL94XouN
CwRe3tZXLi/Pcd7mHW94iy1fvISeTbSfPOHLJqHcEtNRoT5BBDFZMBnjO9C0
yR9I2auJjVG7KQkpuv208hKaV4ItGvar5bTQafSkGdg9vdZyOvZ8gnjx7ZfF
S+PiEqI1IkwXiUhDDKJC4hEdkgCzIQ7h+igYdeEwaEKg1ehIf41avITyS2hu
AT4a5guDNgQRxPYEYwoyI4tQHOvA/IQmVCY2ozxuOQqi5iHZlE14JhJ+EWwN
fHBTEvD49cmLcgrRhhHfxBE+hahOakBX7is4PbcZV2sW4evaKnxaVYc3i9dh
dfpOlMYuhsWUydZAT3wnwk1pXpL9RWPPQOIuisRarnkO2jM249KCOjzaY8E/
V5zAT+8Cv14Bbh5Gf2827q6142RJG2qmrUFKeC6JTbMrB71yUxoSeWmYTZH6
GNinlKA1fSuur5iDJ+daBG3Cbx/j8SEbesucqEpchaSwdBKTJuZzBXn50j6x
/sxXVCNoPjmSluPD8kY8OTXTpz148B7+6LLhQMFmPBNVgSmGWBKPBm/xqBZE
/DWoFWEk/9MiCrA2YxNuOfOBb1rZGNzrxZ3OXLyQshqF0ZXYm7cDj9+eDvx9
h7WBs9m4QOK1OqkVcaFWtj6a0TVgQnjpCC+TfgrskSXYau/Czytz0d+TgC+2
NGJxkh2X33KMGD8/vgnb7dV4/HoB/j1ixWWHA0utm5BoTEMo0R2VefHnFM0v
6i+q1zT/m2zbcL68AWfnNaHW0opze97xatdSawuWWNpwudqB48XtqExoxlTi
LwPzl2pxyOcjIb800JOaRetuXlQ56iydRBPLSM6U4lFfPS41bRmaAwS3zl3E
1QOrmV/mJzRiAdGN9MgZLk30WsuU5uV57ZUXN6SJehi14Wx/Qdc9htTdhtQa
3HBUjpijKDoD9bZnmUbQekfrF42/QS1UVef94qXVaJmtBm0ou6f12Raeg125
GejZWTSoIwRUG6iuD/X3vZ9Skpcv7R8Rh7R+ReijiSbmoyimimhbMmbGzMXD
w7XYl98xYo7ejW/gwmIH2ztOn1KKPPNc1l+F+iVkN8dJ4qVDKLHJarITrViD
I4Wd2J69m/lk4Mp6Nv6HU++jIbl6aK4zbXZYwjJxtKgTu3K6MXtqHYtb6muV
65fYnF51PiuyGJuztuLmimL8tT8Zx8tbiHbMHjXH9QvfojG5CTdWzcLDLisu
VjxHtHE90fnU8dB5PgdRXjR2TCSmMiIKsSFrB35pyQauNQD3z+P2a23YkGNF
S1oLTi8sQEdmF/Yuy8DtYz1kz3gUA2fS8Zmjhvi5A/FGG9ORceAlMb+0ZJ1N
mBZGdM7ajq8WLsTAJxWjxlHNGHH/6BaeHErBydJWlJE4jCZnNL1G1TiUX7+I
ppkNU9nZamfOy7jXngZ81yVqU/9HJfhySQ1Wpq5Bang+8zmtFV60XklekvWQ
c2sHiaE4YzJZ+yXYn78dPzbnof+DCuD3ayP9dPMk/jy2CJ/XVqIzcx1Ziwp2
nqa13UsMquUvofejtZ7Ts/M9zROq9fTseHb2Snz/fBHub8vAg1ftuLsxE9fq
56GnyIllyS8xnafn5pChuqxq/eLbLokXn1soOzPHs/1icUw1Fk1bC2fqbryY
vg+Ntm72PSDfXM7qAK15VNtFOE1oHPK5URtpvtGzC825OKOVaYrFlEW0PB2x
oRa216J1WKc1SPk2pSQvvv2SeXEu7Xdrms61r6JxRu/pHorumwb1gXP1U+17
lBAvz2uJvBRvSvKSnV9PAS+37ZMVaqxXEEEEEcT/EXK0dDx0t560BQrNpSY3
uf3tpB2UMbevfaSU/nL68t/LBR1j9mOMUv28cfT37/FB/VXmxzh/bJbSZ6y8
aF6d4Ib930eak5Puu0DkVe/qO8PV6HU8ad3cID+bH/Yo1WcsvPp4fc3cMEf3
HCdk2jKWfkry8tQeyqPDdd3temcXGKO0nivJy9N2mld9rusy1zunn3PLHaMk
L0/b3TlGecZzwrEo11fjzctte7fr3p1j9a57tz899UPuuV1uXoy1Lrt5dPOe
neCGfUR507g8yMmv2WpAzvpQm+N5z5zcsN5z3LDuB8L3gbHY4M4xf/YeakNs
P+mLszvnpO6DxxNj3Vvx63UgYax60sGN3HsECsTsD0Q/SMVk5RVEEIGIyZxT
av1/KWDwHx84DBg=
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWX9MlGUcf+83cMABx89DfpwgAoIIKqIHpagkgoIEdDg0OAElUiHSfqjD
xlxpK1f/UM7+qLlsOrckW6w2zS1Lm7VZbTWzLedWLmuZzRWu+PQ8z929d7zc
e7+4F0667/bsfd/n+32e+37e78/nPaNlZ4NFwXFcDRmlZCi5EIVoRhBsQzgn
5DvLuZoTWzcd5E4n53u4kfF2TgoSvl9vbCDU0Z1dxdZyLtZMBfliF+G9u3XB
gMvV+/UVl3Cdq32nmlz5lidcYnPTbSchedJJLLbc5VExmRCFaKbQTPTvYMtN
/pA3vZq7NVKPQJI3eft+xSW27/2My1l/P3DJnIY7vqS4xOJLbG9RXWVkyGVy
MpRQ2Iack/MyVr7CwSP3MsZ3izGQBMHVIy6qn0KmhkYeDq1ChyhVHLTKGGgU
4ZAR/anuCpkK4YpIRCpjCT8WEYooqOVh7D3IxLEFGpfX9pJzCqZflDIOyWFG
5EQtREFMBXKjS5EYlsF4VO8IpQ7pEXmYpzNhXowJmdpCxGtSGT4leSci2AJN
HnExvyJ2UhMbxWlSGI5qwxY8kWvBcwXd2J6zA8sS1hO8scznDOFZqJvVgT35
XYzfkdXD+GkRucSGMQSbyhW2QOvPuZnjfU8lV0OnTiD2KUd3divOrKjFja5C
3NqWiQsrV8Oc0UNsMovhmh1ZhIGCbfjeXILfeo34YeMCvL6oDWsM7UjX5hF7
RrO4E8SbVCRqL6or1cWoLcAm42O4XFMOHEsDrvZh7PRSfLzqIeTrlrK4ovIa
eQTWp23Dja2FwBctwJU2/DVowDtLzVieZEYS89lwWy6ZHlxWW2mg1xjwYFIT
TlWux73jVbzsp/uakB1ViA1pLeS6gOFfa2hFasQcNKQ1A+eamSz+vITbe43Y
V9CLPF0ZyylWm0maN0Rx0bgKU2iRoc1HZ3Yfru8q4eVw8yyOlJrx0ZHzwI9v
ob8ok+l6ub6MyWzJehrHqyoc8l/34WJVJVYlt7L3JMghgcQkxDYBl4L4oJbk
t/yYZThc3IbR49W87LVDe3Dw2Y3s+ZuB53GmewCb167BicMf8jJ6tX7c3nd6
kmGZ3UXsmUP8NUwKewnrswguJatRJXGrcGpZA8YuDPCyTzbvnbCu2pTC5q6d
GmHXkxWr8eu353m5fw7GY1deL4yRhaTmaacNFx3RKj0W6lfjXdPDGLu0n5ft
a+gWxWWnz+uLcP3KaQeulxLxTP4OkjPnM//mpMHlKfczP6Q1h9bfI4s24d/3
6njZs7sO4M3BYfb8ZXsXu5YnxI7bq3W2GXdu3eHn/t6tR8+crSTf5xN7RUiJ
i+Pc4KI9Bu2JskhN6s/djt8P5DrywHevkrzdzD/XpsxnfntsiTXmPjg6gtq5
Jof8z+dwtaEE9bNabbleMxX50CVPxvqMMNInpZO6asFn1cuBi238mpHGGuRE
F2CorhNdeaUsz79YakHHShMa05pwe6iWl737hglDC9tRqq+GTpXA1zsJcDlj
cImLs+UOWm/yostI7/QUbloygcvdwB8XMPb+CgwWPY4YdeK4ujw/tgJvNzSQ
mtwO/DKC0ZON+KSunNS0XtY7Uh+gviAhLrfxxY2rzalYEl+D/YU7SY9UiNGD
BoweMuCrDaV4JKOLYEtivQmNnf0FHfjJkoN7r6Th7t4UnF9Tia7sbsyNXszy
kFI+oUcMJB4vcZGzB3m3NH/Rvn2Rvor0srvxGun5TpQ34uXirahJbUGcOoXh
ytDOw2bjbhxd/Cjjv1Dcjab0dtZnULuyM8v4HmrK8+F4bEqGTU/0nxNVTGy3
FiuSW2BKqGe9Lo0tKkdjh2J4ILGR9YO09mUSrHTeikkRyH7eld7OV0+4becV
6xmM9iCx5N3TcxU9u9Bne79HfTaa1HLaK1G+ThVP4imKnQkEMTVt+XDikPHn
fNrfqWQadnW2gcx2ZqY8FeHRe+u3gCn5DuCTH7rDKBP5PuOOJzEuZ/39wBXQ
EWhcwvuZgMuP+Ap6XHbdZypJ8b5CFKIQhej/SL7k0qnIu+vIqAzQXlJi81U+
h4xBH/b21Ed6I++LrDPfV6JrdH6sCaScJ1l/cFF7lfmxzpvfmg5cNK6GOIf9
h8kwc97bLhhxrbPJFtkGvU8ko5+z4kufpB6+6uNJ1tt9hp1kdZwDo32PoUno
4I+cJ1lffs9ZluLotN3323g5ImukyueBwCXUncbVsO2+zMYz+7m3v2sCgUuo
uz3GKM5ETtwXfdXTX//x93ftuvfbnu0xts72bLenMH/4em6fanvZcfQ7zQ1x
DhtR3NQvBznfa7YU5Ivdqc6JTnNmzpHvOc6R94Ph+8BkdLDHmD+9h9Tkrp/0
hNkec972wVNJYr22t+Rcr4OJJtvnd3Lje49goUD3+sFCMxVXiEIUjDSTY0qq
/5eChv4DQZX8bA==
               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWVtoHFUYPnvNvZts7kl3q6mNqUlzaWttYtK0MZca3TRpYxKDjRob8doq
AbVoNTYPFQQrK5iCFIT0RTBVAg2IxTcRXwRR65OIYlEkQgURa8DPc87O7E4m
c93LZBLmg5+dObf9v/zn/85/NrdOnjo66SGE3EttHzUvceBgUwGCSd+l7Wqm
Nt4OUPNP/FRqU5qntI4V0Pvba8XEaDzl/esJvXgpjRPf9XivJ7Rio8dLPt9O
+cWglitGckhtvF1gho9a7NT6HThwsDGwGfNX74xMtvZItl5JloPWea9WJ9id
lxI2My+1dQ3644KLmpt44HF54+Yibt6+Tryk/pvm5aa+e10+5HjyEfCXoTQ7
jPLsW1CSVY18bxH87hy4OUdD/FL1X7731NbW5eR3Z1MOW7GrsAPHQsM4vfMY
ZhrG8cyOMRwsH0M4byfn56HcDXBLJyD7NMSL+eh1+Xlceivvx3s9j+Pvc+3A
T5eA3z4CPn8Kvzy5G2fqn8AdgVbKrZDGzbNe+WU4Xix32N7bU9yDK/2H8N8f
Pyv6tXLpCOV2AtW5O+Bz+3kuWsRL7r8hXsy/XE8BhsMnsPzBBU2fvh1pQX2g
DT5XlpX5Je3TGr9qD3L9o3rQWT6MlY9Pa/p0bSKMUF4d34exHFONWTohXVM3
XjGtyEGBN0itiOdYtKMrPu9odR1vu9I+yNv+/SxKuY9y3d/iK0aeN8D7VTQk
nZyU+CnyYr4w/avK2Y6B6lFcvHMAbzcPUW0PoSFQCwbp5Jr8JtRtqcGh8i7M
391KtfIx7A32IuAr4TwzzAsKzwq8Yucu07XWkgEsRIaAL1/lXM631aJ/Ww2m
Tz67av7SaxEe0xvvHufjbkZDVEOexra8emTRmDPtySAvNU5reHmIF0X07B0K
PYLrL3XGx0dfPsCf5fHifdFovI31X+3rQWPhAa45GealpyVreA2GHsWvL7Ym
eL3SqcprYeEysLwU7796uFvgtcUKXoTo8iJ8H7K83xPswdLBCPDFC3zO+5Mt
aCtpxifzb61ao740H/dV9eGvd5p4+/LFGbzROCrsw1wl7UgntNZU1A1W/3VX
PMR14/zuDtxV0o9wbhjffPXdqnVef+5NFPrKsK/4MNWNe3CucRhtpQNcN7zK
dVUmYOj80tJ5/PMDbKLzcv91eREh18RzubdqAn9++qGmT9+P70JV7vb4eW7B
uWxCD9fuSaZpg6Ep3LywV9Ona+MNtN5vpfVhxuooPb/1+iW8YnVvS7ALi939
wPU5Rb9uXD6J2YbjvI6K8bKk7tXSQrFd1VieBP2VNH9GMN8+gpWzFcDXZ4Df
F/k95cdTD2CmeYLfzQp8wfW6p5jmxTSE1eiF9Exjd6wjWx/E87c/jLMNo/xe
2Vc5gNsKWjgnFf2z3T4Uje1HdhfO9uRR/S5FaVYIFcLvAIwPO6cs+B1AyW+p
/6Z5Eak+2ud3G6g8m+SVNksnr6Tzy8a8RN/1+jciL6nvDhw4cGAVzGiOFfoU
odaVprUyyc3s+FpqsybW1qu3lMaq9Rldm2i06/kbSGKOmTFa45U4JvN9crB4
7U9inlluRsekyovl1RxJxH+R2hgxHjuj32WkTtMbb/S7IsLYJsHYcxm1aRLj
Fzawhh15LUrGBkiCo7jGnElf9GBVfsm1h/GYEp6nhb5alTnJapPRvlR4yX1n
ebUoPO8X+saSXFsJVvGS+y7mGONZRtT3YrI5ZRUv0fdp4V3MsYjwLsZTrh9m
7oFm9m26zmWRx7SkbY4kYsR4s305S8yf2ZmAmX3CfC6TtI2RhN4TktB9O9yj
U/FBzLFkao9MQ6ue1OMs5pzROthKpFpbSc9rOyFVPZkiq2sPu8DMObGRsFl5
OXBgR2zmnMrk/ytsgf8BMVq2Nw==
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWUtsG1UUHf9iO3ZsJ3ESCq7z/zSkJGogNYnbhJBAQkgTFULTQluaX8M3
FUF0xYJWbNoKIX5BqmDBAlVZIBEJIVSQQJX4CHaFbopQhQg7UGBB1dXhvanH
nhnPm58nzsTykZ48c999d+6Z++59d5L6maWDMy6O40bJ6CHDzRVRREEBqSG+
F8tZg6VvB7D8E36VZErrlOzkA1rvXi0meuMpn99KaMVLSU+41+K9lVCLjRYv
+Xo75RcFK1f05BBL3y4wwocVO9Z8EUUUsT1QiPmrdUaa7T3M9itmOaid96w+
we68lFDIvFh2tzMvsf+GeTk4BxlOOMmgv5k5By9zci5eh+NH3vOLZVuVj9Ph
QonTh1JXCAF3BD5XIMXPAbejBKVuKg8TeZC/l/LOW37pjpfgN+USK23Bnop+
JKvG0BHZh6CnHC6HGzX+OtxXOYjeqlG0hXpQ5YvB5wzw8csjLwPxopw8CHmi
hEcfXm6bxXdjSazP1+LK0DB6o0Pwk/g807yEa0fuxo2nW/BpchKTO19APLCL
n1PhZjV086L7jO6tjkgS57sW8OfHpyVrPuw7jLpAIzYudEjkfyw24VDtK9jh
b4DH6WXlm9X+cyoyyXCRWFX74lhoPICbZ3Zmrfnk1XO87/jtXNbcDxO96ImO
8vuXETMrIbapES8HqRNe1Ad3463EceDvzyT6uPoGot67eN17Iv1Zfv77wQkc
rT+J8pIa/v0oxMxKTnIOGrx8aAh24mLysET3r6+/Sd+vrq7y118caJfo3Lx0
GnONc6gouYOvLdn2LYM8Vpr5Rf2p9O7AkbpT2Hi7l9cHAesB3RUPpee+fHEa
/TVPIEDOhU3eh2qcxPIsbiFPJfZGH8VS6zFS54fw/WMxRb9eT1RiLLaA2cZ5
7Aon+DPNyT7HrOSlVUuyBq3zNEcor+W2p9Ac6sbVj85DKW5z7SEcjM/hWMMi
msv2wO8O5pMXx+nkRfO9xleHZ5snM/vw5zfxz0/v8NfXL/+IqamptK3f32tN
X1+b2IsEeRd0HzJ6DyuhZlOxbjSWdeHi/mnJml9fO5O+fzDmV7R369LzZD8u
5KNuyDkoybZjnZf7z5JL9mHUG8OTdbOK5/JXL82QfjCueC5fPj5O+sWJfJzL
hushzQu/qwytoXv5PurWu0nJuvePjqKCnAMbF3an5fhvHddPDeK55gm+T6Z9
lMPaPkrLb01edO/QmJWROk/73qXWRXw78gDWF+K4MjKAgZoReJ1+vu/95VAX
bpxowuf7h/F4/CTpGzv4d5KHvletFjJ43f5OodzofrrT34TO8gHsq34EnZFe
hEuqyHeZk/9O6a4cRl/Vw2gP309qaK1WL7+F9VDKjX5Xekh9pDEIEo7Ub6HO
8d+VIjm9p/qM/WeDfZjNT/p3AMFvQe6SyVWHlbzE/hvmZfGwmpf8uhB4mcov
m/MSfNea3468xL4XUUQRReQLRmpOPurTOBmDFtnaTG5G9VvIOGvAtla/paTL
mtNrm1ORa/kbNrHGiI5RfTPPk4PGK2FiXa6+GtE1Yofm1QqXif8aGdOc/tjp
fZYVenptjKd0O1ODXleTsczd5hfP0Q+r9fTaWBPphrkMR8HGSg4+mNW3gpe8
9lAe86nr5dRcC2ON2dqUi47eZ8p9p3m1lrpOpOamTdo265cVvOS+CzlGeVZz
7L1oNlf0fuPptceC4Pty6l7IsfHUvRBPef0w8h1odN9awUvgsSySrXCZGFHe
dF+e5Yyf2ZsBI++G+lwtkk1zmXrPcZm6b4fv6Fx8EHLMTO+x2VDrJ7U4Czmn
tw/OJ1i9tl6Iz2s7Idc+f56T9h52gdW9vl1QqLyKKMKOKOSc2sz/V9gC/wNa
zInP
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWV1sFFUUvrP/3V26pbZrg2WhWtqCKRtoXNoGRCCFtrSAVcoqikhs4m+0
9MUYI1Ee5EFMY0yaGI0BfdIXaUo0GiO+GPHRGJWYmPiqJsIDT8Z83nt3Znc6
M3f+dmc7u5kvOenM3O/ePd+ce849k/aceXHmTJgQMkGtQC1CAgRoKkA29b36
uchEfD9A5J/y1+iZ0TyjdeoBq3dvFhO78dSOryWs4mXEU+6tdK8lzGJjpUs7
30/5xSDKFTs5JOL7BU70iGInGg8QIEBjoBnz1+qMdNt7uO1X3GowO+9FfYLf
dRmhmXWJ1m1kXWr/G1WXKL9Ea5v6IRGpbISbliPZ4HieXw7iJSFEQohIUcRC
LYiHk4hKMf5MzQuTCB1PlMbp37AUkfXVPb9sxEvi/rWE0+iI34V70nn0txbQ
nexHIpwq+800tsWyuDu9HQOtu7AxOYBMrJPr1Or3SJfWf1NdTNO6aDvVch8e
3fwkLu85jJVD47iQP039LyBExxmP6T7SPYtL90/i6vghvJU/hb13HkdXSw/i
oSTVb6it1v4Tk2dlY+85Qf1lml4bmsHfr+8uz8Hyfjzb9xyPGbttj3XhyyN7
gL++4xz88j5+nN2Jqe6nkU3k6L6MG+3JWkK9pjBezAeWTx3xbjzRcxr/vLlb
58exnr2QpFIcWNy+LeZ0nB9mdqFwxySPeUgKe6XLqC5qx2VdIR6LezOj+OLY
qN7fVy/i159vYKx3B1KRNlw714v5/gkd77/vF3F2YJ7ux830PcW0NbKWumBw
rdPF3u266Hoc6DqJ3xYfM/VhYihdHn9n5LiO+9UDU3wvx2ktlbzTpfbfaLys
qy2axcO5s7h55WJVPvx+YjuG2sd4bfFQl1UtKevKRDvxUG4et65cqIGug/XQ
RYilrhDSkfXY1/UI/nxjUOjDaOdRymsz9ZHtw22ZEX5ee6SLWKy5um7Qc2db
ZhifHxzX8T87MY9P3/sYrxzdxN/BtXNb8NFL7+p4N69f53VjQ7KX9yge1Q2t
BqNnjVjntf6LnqvO5RTtjfJ4eescP5dx+yc+79+vn8cLg0+tOpdX9k0Bf3xS
OpdvXMI3z5xCcVORn8usn/LwXLZdDxUL03ecirRybayP+mDkJFYmxrC4YwaD
bSO8jyByH3Wg60F8WHgcVyfH8PbOWRzeMEP7yC28jwoRXazWpB5WTOLaWFxY
31vqawvYmBpYVd9YbDPRDvSkBzFAczKX2sr74Hh9+l6zWijQVdJW+U5JCL9T
WEyU8Vj5O0WoaU3qoZFJuu9GdxwPdLnYh55aLXWp/W82XdrrZtDlOr98rEvx
3Wq8EXWpfQ8QIECAesFJzalHfZqmtr9Ga3mpzSm/j9p5B2tb9VtGXNGYHa6a
4xRsTsbFHCccO2e/GdeNLhavYRfznGqrhutkHZZXS6QS+2VqRWI/dnZ/qxba
7K4xLXPzsrHrLLUFUtKXq8IHtzwzrt01llXcDKloVNZYcvn7teBXk1/ausN0
zMnXC/JYn2CO29pUDdfufK3vLK+W5etheaxYhW9u/RJx7c7X+q7kGNOZJeK9
6DannNS6anQpvi/I90qOTcv3Sjy19cPJd6CTfWvFtatL0bGgerZEKjFiutm+
PE+cn9lewMk+YT5nVc+KpFLvCanUfT98R1fjg5JjbnoPr2GUg3b3uZJzdvvg
eqLanlF9XvsJ1daTObK69/ALatUT+w3NqitAAD+imXPKy/9X+AL/AyVbZ0Y=

               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztmM9PE0EUx2e3PygtUCBQFAQEEalVIf4gRRSUBAhIEy1GSVAhYBMPGsRG
D2o0kfjjpjFBTPTkP4CiXkg84I2ExBgTvWriiZMXrzxnll273e5vdre7zX6T
SbezM2/fp/Pem9k2Tc0kpzwIoQHcOnHzIleuXDlIwGvCPrXj7S4xPqXx+RYg
5d/aiVxqVGhcfB41XE7JLykWOS6nSLhmamLQSXyuXLnSLuG+bGazSlYyGc0l
Z9fJXEIO4XcncCnZ0M1FIQpoygNeygde2g8e/Ekj2tHrRXgCnhKIBOqhteww
RMNx2BmKQdhXhTn9eAyVLy7d+UXWKegphSOVHXD/0GVYm07Br9kkLCcvwETT
BGwvbmbWMI9cUv2KXA3BNlgcHs2xAd8fwExrkuFWY8tYpBwGsT7RXPLRAeaT
xJ2U0Q9XEuCni3ELMDlHyeecVZLMp3J/Neyv6IHxpmMQxtdSBl49SUFPpBES
dYOwI7gHijCjTL6Z4bvcPV6jGN/2hrtgpXf4/7yBk4OiNm5M9zL98CkB92Lj
UBNoxOvmNZsLJK75fTkxGPKEYbR+CDaWs1nmH7+W9W0t1Q9tZZ1sjbQfV8AT
hN6a07Dx9qSsL88evsi6/y59DXaVdthyvUijKBpKvOVwrvEq/FldVOXPt1tx
6KoeggAdtCK/dHORPZdwra+vq/Ln66VyaK84ztRFO3KROCzG+9Fw7QnFOBRq
9Xw3PofssyIO+b7L3cviCnrKMNdoTt0Q6vmjl1n3V25OMnXUgrqhJCfXeY37
1+a+TOoG2ZdH6vqhr6Zd0qf5yVPQUx2Fsw19sLv0IK6lISvyS8gg1ifJRs5R
5Ezbgv2F329E/fr49A4Tdz66iGmk5sjYNUOauLhG8q22uAXed5/Jmf/3x2e4
HR2CkLdM0Y7E842Qbi4SW7HwUbgbm4UvF0fg5/VR5j1lKpqEhlA0X+8pmvMr
l42GInwGqSqqg+aSA0xNIe+Vlf5tzH5F5ee9Us6eWn+y/gfw8f4H0MBkRhxK
2dXikxHNKrlczuJCJvhuFy5XhSctMWRFvCVw6zPIlplsWse34janwbbSPic2
Vjherk/Kfz1rTOaEdcwxarwY41afR0TWK65jnlFxZzQXyasFlFn/JdzGkPq1
syNXgh3bzjZyHcEtjTb5GlTYsCPXEm9sGGUYORsLCvPVPkfNOcJILuHzCEeK
vU6z91ol5hhdo43kEvpO8mqJvY6z98Z02haTVXEo9J3LMcIZQdKxqCUe1M4z
kovzPc1+53IswX7n1lNYP7Scv7XErVH7MseR5vUtoMwaEW4Sl3NI+55thrTE
CfE5wusbQ5l6j1Cm7tvhvWgrPnA5pufsYbbkzpNKzFzOqT0HW6mtnq34+7Wd
tNV6kkLZZw+7SMs+4SQVKpcrV3ZUIedUwf9P/A86Ld49
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztmN9LFFEUx+/Mjrur7mrquqn5o9U0rcxUMAnxQVIyEMswVvHBNsRAwWrD
eksxey5DfOyH9CJBJUEv/gE99FJIVKBFj0HQX9Dp3nFmd2d25+fOzM4s84WL
M2fuvXs+c+6594yR2MJYzIMQGsKtBzcGuXLlykGClCa2qe1vd2XiU+qfawFS
ftdO5FKjfONK5VHD5ZT8kmKR43KKxDFTswadxOfKlSvtEp/LZjarZCWT0Vxy
8zqZS8whvncCl9IcTuVSkmYuClHgoRhgKC/+W8DeEztNeTgbAzSiE3aLuXTl
F4X99dGFEPLVQlPwDDQGTkOxp4RlCfmOQHOwC2qLWiDAlAFDe9WwmcElZZdl
ag52w922GHyOtsPetWaYbLgIpd5K2Oy5BL9u1MP784MwWjvHcjI4nkiezQxl
mlvSBxKTSl8drPcMCMbA/ioM99UKbL/XJmG4ZpqNpULMrJIsF1l739Yuq/Jn
vX8aKnDMSJxl5jXDd7lnGVuZ9zDsvphT5c/9/nvg9xRblV8gcZ1qS9v/GMqH
margaOAUeGl/2rjhs+UC2/7Tl9AbOgnVhY1QxJSwe2WmuQ1iErOo4iI+Vfhq
YP7EAPx9tZ4Y831zIG38k8UlgW13vAu6y4fYuEnkmVHSzEX2tAjez19PTOry
407rFJQUhNgzLcP8RkknVztsX1W3X4i12DZhSy4aeaAU+zXRMA9/nj1MjPn3
8RF8eLeTNsfjqaqE7e3qG+irHLNiHab6LvdMsG+QeimIawiybwxW16WN3dra
Eti+LD+AKn8E6opa2XEW7BtKcvI+r+v8IjEj5/KP5c60sUtLS2m2taFbbC2V
g3pDVX7xjeQZqaOWO64DfI0LxnYeqhbc/3x+G67Uj+L9osL2XMQ/Uvc2BTpg
4fg8fBrvhr1YI8w2DbJnL1v3zkZg58I5zHQTwv569rslR3Wvaq4DNpqtN8px
7UG+UZqCHVxMaHbNHQt2QkNxG2sroH1Wf6foyq8kG5X4hiRnG00dnEtJm5e9
zsF3pdx8anwxshktqXmdziUll8tZXMgE3+3C5Sr/pGUNWbHeRnAbMGguM9m0
9m/BbUXD3ErnXKa+4v5yNin/9cSYjCnVMcbo/nJ99HCRePXqGGf0ujOKi+TV
BkrGfxu3KFIfOztyjXB9O7hGrsO4xdEBX32WfujpawTXdkrfUpRk5OfYyMIH
cT8tfY3+PcIxw13HuWctEmPM2qON4BL7TvJqm7vu5Z5Fdc6t1y8juMS+8zlG
OMNIei3qffdK45TWgdrf5X2Pc/d8jo1w93w8xfuHlvpb67o1govniKfYNlAy
RoSbrMsVpP3MNkNa3g3xOZxii6Lkfo9Qct+3w3dRNj7wOaan9jBbcvWkEjOf
c2rrYCslVWurVep5bSdlW+fPIGHtYRcZXevbRfnK5cqVHZXPOZX3/yf+D7om
0tk=
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWN1LFFEUv7NfuuvHatr6iZHpakRaFNumhiKlZVqkoWsliSGRVEYb9NiD
UA/1EPRgBCFUb1GGLxGaPfRW/Qe91Gv61EORoKd7Z2fZcbyzM3e+nFnmBwdm
7j33zvnt+bjn7u6J6cEJL0KoB0sMiw+5cOHCQQCRSMfU6tsdNH5K+tsNQMq/
tRN5qUGu8RLzUcPLKfklxyUbL6dA6jM1Megkfi5cuGCH9Fw2U6yClZyM5pVt
XyfzkvKQvjuBl9IeTuWlBGZeHOJ4QbxI5zmFedN5acgvDjzIC35PHuR7CyDP
GwQP59uk4+NScwE85+X8mJ9nO3jJjVN9ROws8pdCY9Eh6KpIQHflBagJNuJx
L6+T5wlCS0kn9FSPQ7y8H6qC9ZhjIeaelZsZoO1N/T7hVBaohp6qcVi8fgzW
Vn7Bxr8/8G2qHUoDFdh2L5yoHIXvi1+BYOXlQ5iLDUJTcQyCmFsWv1kFqq9C
vmLorYzDjxsdW2yZ6Yjy3NaX7m+Ze9U2BLWhKI5PvxW8lOrjJiE5VZ5XCw9i
49Q1xD91BXuoc2ufX0BfzSQfjxy9jhgFkHkWj0li0Id/8yZ4fekK1Y7380tQ
gP35YX6ZOn8zehHPl8jFolFg5kXs2RGogifxUU12JHaN4NpZYDt/IcFnNaEG
WO5rZrLl3sEuPvcsqBuaeJG8ry9sZeJF8m6quReK/eW25OXBNkXyd8Gj0yPM
dsDqFzhTO8rHoUz/YSSY6mEqBqPw7vw56prDZb1QgXnLfex204gVdUMJTq7z
TP4i9pCe4Uh5H/VcfnzrKt9Drb+d3jL3dGgM52WLcC6bHodiDrQxqs/COP9J
H/Vp+CT8/TgHG79XYfnuNdgfPspzJ33U6rM7fB/1880CPO/qh1jZKQh5i63u
o1TzSvW9Pr7vbSg6AJ0Vw3C8agzqQnuxL1I9PfHZvnA77nsvQ9vOs7gnbsB+
LtquvlcVr5Sk7ik+LoDzJYRrXIjvh8U65D11hwmBz2P5PYUpv2j8MndHum+3
6V6ZbT81thgpRkNuX6fzkoPLy1m8kAm224WXi9wDSwxZEW8DWLoN2stMbqz6
USwzDHsrnXM0Xam+kq7c/qwga8Ia1hipL+Wp93sExF9xDeuMjrtsOizfInk1
izK+X8CSQOp9Z0Y+yempXT8g6LYKQp4jWJIoxa9Ohw16dPXyWhDphlGGY3qP
WY3fp+kZkYtav0d4TArPSWEuKrPG7Bqth5fUdpJXC8JzXJhL6LRP61o9vKS2
p3OM8Iwg+VjUmicstU4Pr7TtSeE9nWMDwnvan9L6wdJ/s8Stkq5aXmkeSdHY
LMr4iPAmcTmD2M9sM8ASJ8TmiGgsgTL1HqFM3bfDvUiPDekc09J7mA25HlNN
nKdzTm0fbCX09ozi89pO0FtPJtHm3sMuMKonthtylZcLF3ZELudUzv9P/B+/
P+jR
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztmM9PE0EUx2d3+4t2aQW0UH4oLYogNmgEJFEw4UD8QQNBlAZDjCRE4sWY
HohoYgyJFxMST0TjxcTowVv/ASMXExN/3TFePXnyqs+ZZbddlv01291lt9lv
Mul2583s++y8N/Pa7NLd2SUOITSJ2whuIRQoUCAfCWRNec+svdelxmdkv98C
ZPyu/chlRvXGJecxw+WX/NJi0ePyi5RrZiYG/cQXKFAgeinPZSebW3KTyW4u
vXn9zKXkUH73A5fRHH7lMlK9cVnOLwYx+JPRsWGwDWtg4yiX1n1VX1nsa5iN
QAOXhEQoCRE2JjJW7VgmBDEugftTEMWfHBMWGV2NQ7W5VZmIf8lwC/Qnz8JS
rgD3+6dgqn1auCfZEf97k8Nw5+gkrPYVYDKzCG2xHOaL67G5pT3PZhEHqfAh
mOschg83Z3f58uTMZQhhZmKXCh+EbxtPK/1/P72G50PzkOMHIcrG96wtsp9L
b849axVhG+B00wR8X5lRHZPj84JtoXNFtf/l0Ay0xror/MgZLtC4lt/btVbN
0Qw8GxnT9KGH7xFsj/HHVW3+bL2DC63Xcd7xamtmlyi4GOEdZ/F6vH90qyYf
Hg7cg6ZIq1qe2SXTXOTdhtko5A+Mw4+3r2ryoXx+FjINWbxfch7iGoOfb17Y
wJXzBBdpJA67Eyfh6+1RXR/yqQ7dfhKHLdF2zOVYHCKDORX7Bovzog0eDxY1
feDwWUxyUWvf+PXls7BvxPFZ7uC+YSQ/7/MU59fOmvGhJhhPzwnnMvz+WBm7
OrUGca6xci5vXztV6fu3vQUbM4swkDonnsuqNYcTMswvJNVRKCTUfKSOKh5Z
gLX+i3C1axqaI5lKbBG/u+J9cKN7AR6cuARXOuYhm8jjepJ3u44yybXDxlTq
3kaBkcSn0l+y35G6l8f95DO0f3WvSS4lo/5vEMJiZOMAF1V+Odzs5tLr8yuX
3P9649JSwOUvLuSA717hClR/ookhN+KtgNuETXM5yUZr34vbOsXcRuecmq3S
nsZWbkMrMiZlYYxT9lrvjVZkvUYtjHMq7mrlInm1iarrX8atiMyvnRe5CqLt
oNjIdRq3EtrhO2zx+U7Zmh1fltmmUJVRmmPTwrO17OywtToH4VgWr0tiX6/G
GLf3DJo5lL6TvCqL16NiX7EG/6z6pWVrdrzSdynHCGcaacciTTyYHWfG1uxz
Jd9L4ncpxwrid2k9lfsHTf1NE7d2ncsSR0l2bxNV14hwk7hcR/RnthOiiRPi
c1p2r4iq+z1C1X3fC7+LavFByjErtYfT0qoxzcS5lHNm62A3VWttJT+vvaRa
95NltLv28Ipozgk/qV65AgXyouo5p+r+f+L/EqS9yg==
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztWAtQVNcZvgryRkBgYZFFFpZleb8El8fyWt6CD14Lsgrii/AQVqivaCeJ
pMY4mmijYp0mdibJ1JrmoU3iTDpUU9OMWmPzqE5iaq12xmljkyZtnU4Rv/7n
ZFGy7i6LcAEJ/8yZvefec8493z3///3fv/LG9vJGO0EQ5lNLoWYvTNmUTQqD
sZneM30+eJy5e5bmjYdZ29Pga1gZY+s9Mcz0+9pyBqZ7tHauluYKZuaMhQ3n
XEyvrc2bCLjMfd/h4jKdZ27dsTZzvjUULkv3xvucTG2oPVmKLWs8amnMlE3Z
ZLHJ6N8TjZsexGzRatbmiN1G02zhbYtN6hwykXFZWtd4fxqmC3awm+bA+x4z
fDge5cy5SPEp4fdqgjdiddgP0R6+kffblJuwPPQxVAQZeD9hlhYhbrHwdZLx
vsN0Z1rPHtOE6WJqDqu4GCZ7wuRi545ZDlLIaX8MzyJZGzrCW/BM/GocSdXh
ncxSvKstwOm8fJzMLcLbmkX4WYoe3TGtWBG6HgXSesR6ZWK2Sxj/No7TXTi2
UcBlTedZ1AoDmHwcZyNsZhJy/GqxRtGGvYkrcSK7FB/OT8fnVfG4WhuFvyyJ
wDVq7Jf1L1ck4HxRFl5Pq8QTMW3QzTHwbxLkGkHYfDm2UcBlCevg3/twsTbL
Ucox5fnrsU7ViZdTa/AR4blaw7BE4mJFEs4UZ6M3u4TOrQyn6LwulKbjii4G
f12qxJ+q4/B+nhb7khrRELoZap9SyFxVmDnDeyziy+x5MZ8Jdo1Gll8VDKp2
vJ5egUuLk3FdH46Li1LwcpoOqxUdtNc08lEVAl0U9A1i6BuUY0vUWvTmFtPZ
ReNaXQQuFGvwk7kNWCpfj8RZeZA6hYxFfJnFJXWWI9m7EI2hdE7qWnyycB73
sbOF2TCElyPCYx68HPwodrJQJdOgbk4O8v0L4O8cDCc7V+53zyWtwGeVCYRN
hfM0b1f8GiwMbIaK5o4CrqG4z+z4MPdElAU28r18UKLB1SVR+E2RFg0ha3jM
ZfuG4JC2Fl8YFLj9pDdu75bgdrc3rq2MxWPRDfB0kEDmosLTcY9QHMbx+cxf
uyK6kOG7WMzzsoTt7jsfCevEm8RvV2ui8Wl5EjZH1hNXO6EgoAE3msNx54VA
3FihwM74JuL7rTiaWo3/bA1A/8EAvEdx5+8kp7yQhBcpLpn/XlqUjENz6ykP
dIwbLsYVP4pt4bHB/OiIpgIxnhqej861xuKrLaFoVCVhQ0Q93to3H6eOduPN
NV6cQ98oSER/jxTHNaXcJytkdfikLJVz5jtZpWhRrhebN8ziUrgnoFzWjueT
l+HTikTOaxsjquHrGIiDFP99T0uwI80XmyuK+dxfHn0N+368H7cuXwJufcV9
8FxNCvqekiBfWooAZwXeIN5h3+eD4kw8HrOW+Kh6tHENxmMxvpaFdOLV9Er8
mXzwjwvUKJtdTJwXjJurZbjeEoVqZTyfayhYdncNkJ0+/i6u/Oo4VO4h+F9P
EA5oyuBs54ZtlMfYWhcXpmBvwioxzsuaNryLa1WoAW9lLeC5lnGZ2icHCV4q
zhGHivTYuDKPwbhvfmtTO78X4haBr7fL0VuZA3f7WWhWPsrz+Gd0/oeS68cN
F2tvEy4WE+cLsonztUjyisLtHT7oydfj8abF+PIfX943n/kk+m4i2jMFN55Q
ordGyzUG45XLxPkM10+Tl4mFa0jdu5z88FjGYspZkVxjaP3nc413q8sHHzeQ
X4bw3Cr0Lo34zho396/DP69/AcVMF3yzR4EXiwrh4eCLTZGdFKexxIlzsZ/0
h4i4BMEKruo5XXhp3hKee9h3blLouD+dzc3H7V0S4stC9D2byecvDw0mPTmD
OE/N+3u0rtie0oT+5/yxNiyT6+bDpIWZ9mK6cnts81jwodlnRQGN2E05mfOz
XoXD8/TwcwpGrt8C9HX74O9rw3jN8orOAPztPeDfv8ed93fy/NYVk4j/7pyN
DyszoJoZiUxJFs4V5nC9clJbSLnZIHb+shpfBtUGnMop5hrvI8JXG9yCGdMd
sSV2FfqfleBfjwZic3wMxZ6a+LwcJVIl9hYl4psfBOByRxzl70zS8JHojlvJ
uZDF1s/VNaiTd41b/RXhoUZVUBvpgwZcIm5m2H5NtVaaTzHn7ZYwPb5u9kdf
jwz9+6Xof0aCOweluLVbjrOV4YSzHq72HlgZquO5nemNM/m5VLe08pwvAi6b
8legixLpvot4LXxCs4DHPPOj4+nltK8qriOCXEhzkF7sSV2Kl7J1eCp5NUpk
GZS//SChGrk5rBG/LdTyb3KRdPPzKUuhl7cjjrSySLiG5EOm1cPck1AcsILr
g9M5ReRLMRzb7/LziN/aMI80u8QpCG72XvAkLmc6I9Q9nnJ4EfYk1uM8q8XI
/1h981paFdaGd0AjqaDvoRL7vKzi9qU9R3tmYDHV/k/GtuJkVgnnxuvEI5+T
tmL4DqvrsCOumWPflbAGRzKqcI5qZVZbcv6juHyVMK1TdUEr1ZNGS6Rv5j9u
fMj4wc3ek+opOendTCygumlT1Dq8Qpr9Amm8K+SXLGZYXcz4kuXvu33yO8YR
Z7R5XL83Kzcgx7+W197ejgE8PkXAZZMfsv9tHIzYGL8zHtH612GFYj3PP79I
1fG6/w9FGp63mIb8uDSV8/mJ7DK8QLG0JcqAJcFNSPNdiBD3OF63Mb1vb/yP
SwRcg/FZwP3t/2zs3Fjfm/Ykd4umOj4fBdIGYx7o5P7H6i/WZzXk1qgOtCpb
eT/bT8fPWuYSzvvORkxsXRFxmV6b4LLcggmfLeMst2li++FQz8eijaaJpV8m
gompz6ZsyqZsyr5PNhwuHQveLaOWO0priYltuOOV1LYNc31zuc7avZGMHfx8
uMbmeNg4ztZ3jfbYB8HFzkttw7iHBReLqwPCvfM/Rq1GsHx2DwOuMuPYOGNj
1xJqncK3+IIe8P1ijbUV17FBYz2EexgH1jhgYe2h6jVLz8YKl+keGY5VxutO
4zOlhbVt0f7jhct07yyujhmv1cZnNSNYf7xwme59IMYYTolg2Rdtfcd44RrY
e6exPxBjZcb+wHma44+B99jii7bWq6OVlwdwdA66d0C4d0YMN/PLbYJtOVts
G47/sz1LBt2rEe7xvSDc4/2J8P/ASPYwEGO2aI+xNmt6cijMAzE3HB08VjZS
bTU4X08kGymfrBK+qz0mig0nTzxMNllxTdmUTUSbzDE1HP35UNr/AY1BXeM=

               "], {{0, 0}, {54., 75.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 75.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWWlwU1UUfknTfUmXdG/ThIZSaKEbpC0BSSjQqaVAC0gQ2hEobWlZSssi
UBksztRlXIZFRhDEZUQBGeWXgOMoKuK4MYAy0EFlHKmM4A+UQUfI572377Vp
yMvWJKRMzsydvOXe+853zznfOfdGvXhVzeIAjuMqSNOSJuP84pcHSsA383vz
52JNrL8viJh+wq+1Z9bGWZvHG2Jv7W3ZxFF7Wr6/n2LPXtb6Cff2cN9PsWUb
e7gsx/tSfFERixVHYkisv6+IM3jEbCf23i9+8cvQkAcxfu3lSFdrD1frFVcx
2Mr3YnWCr+OyJi7hkkkCERIQBnmggt0Pi8jD6OiJGBs7jd0XxJZhpLyEXSuC
UxEhi0aQNITdSziJt3CJzXvPt6WcFDJpEMJlciSEKJEdVQx9ohG16o3YkNOG
5/Mbsa2wHk/nNaM1+3HMVq5GsaIS6ogxiA1KImsRgQCJTAybu8UBXBKiC8UU
jMjAGKSFjWD6Nmoa8EbJozhTo8UfK1W42anGra4M3OzIwLXFKnw+rQzP5Teh
WrkKudETEB+SjlBxbIPV31otI1bz9PlOAPG9cFkUwZSFhxJqsG7kWpx82IAb
m0bAdHgccKYBuPIi0LMb+KkL+GoWTK+m4lpDJo7o5qB22Cbiqw9BEZSKYGkY
pJIAb8SXTXtRHYJJPNFYKYydgpVZbfh66mTc3pIMHBsL/LgM6N4C/LABOL8W
uPAEcHkzcK4eOKzCny1pOFQ6j/mlJrIQUYFxCCS2pz7gQVw27dVvq2iownMx
M60ZrxPfu9GQjrvbk3B3Rwp+bxmFHfp61GVXo0ZtQMvoenxWWY5bm5Uw7VPi
zrMKdM8pQOfoFRgfPxOJISoSa+GWNnO32MElZWsbHRiPHLkOSzXN+FBfhZ7H
MvHt7GKszskj/KFFc2YBXm5Iw5utWuwol2N4ZBGGRxViT2kNehZp8Mv8HLym
rcX0tEayPjkID5CzOHMDLnvcZ7U/5UDK0bHByciPMaBB0479RL+3S+YTLjRA
p0jHiaZ24L+/BsyBSwews3Am8d9QLMlciA90s7GraDHhkJXQRBQw/qH5wg24
bGG1hq3vmxRXTFAis1cN4bYGTQfGxpWTvBSD4/OnEb7oxNXl+UgJzWTrQH3t
9pEqmD4xYl12HfO5ytRGYusOTEmuhSoil431EC5rvHgPLhpfMj6+KBfmxegZ
rwVJQ4m95uG78kloyi1C94XLA8brk4x411CAjyeXszWJC0ohazGNrU1iSAbj
eynnkfiytJUNnu+NMYqN+iPlM/qcYqxMKcNE5XD88/M3fePxUSlM3UcRFhCJ
OvXCXjsSjogm+Gh+ps9lkiBP8aEtTANwcXxupj5G9ZPy+lD/onZLD8tmWM+f
+rJvHq2iguSFFITJIhEoCe6LVWqj3pzstrxsR2/HcQm1AvUlasesqCL2/sr+
t/rmKUtawOpHikuIIy/j4jibuCQMC9WfxnocsQH9pe9KSC1lSJyFKZp8Nn51
dTr7pX54/ZkcaOMqYMyoZfUTHR/D+yFdD4rVC3lZ9J3AG7QmTye8URBT1scb
uvhZuLRwHCrStTjx/qcD5nmqYSc6JuThmH4yq1MoV9BahfJGAsHJ8rJneMMS
g1VcnMM8X+ArPG+pv9Xnlnm5afgqHCA5meZl6ofxwWk4vbzinvGmL9ajs2I8
8dtkUvfPw0FSH24ne5jevJzvybzsEB8K+xOhjqrXtOGEoZLVUReNeWgb0YKk
UBXmpY/B3hol9q/RsTpqekoJyhJzsY3UUVfqsnGJ1If7tHV8HZXL9nBuqqOs
6m0fF1/3knqO6jMjbRnZcy3orXt3JsH0ihI3VqixV1+LRSPmolqtZ3Xv8coZ
uLlRDdPuFNzpUuDinEJsHd3IfDTJs3WvLS4cgFvYp1AupLyxPGsN26f8uyUe
OFEKXGwle65Osj/ZANM5fp9yaRPwfR1wcBiut6jwju4RzFWuYPsUyv9e2qfY
xCXYLIzsKyk36Mia033l6alluL1eAdN7+cBZsq/89SXgKr+vPFWNu3tGoacp
C4cmzkZ9Zh2JTz3bV4ZIw8l8AZZ7ZndjcigvS/izDcr3qWEadg6wJLOV7T3O
zirGjeUZ+PtJJW51qdg5wG/1GpysMOCF/EVkP9mMMdGTCL9n8OcAge48B7Cm
t7n+9nAPlXMbiFyL4hKacM4m1L/DiN70XKYodiq7p+dso+Sl7JrmAZqrgkke
5zivnLPZm1MUl4eaO8XefEMVl7nufvGLX/ziLXGGc7zBT1WkTXbTXJ7E5mz/
LNK2Ojm/tZxg69lg+pq/d1boGLmD/Zz9lit9xOo5Z4Xaq8RN37c3xtV5ncFF
42oX12//o6QZOXHbDQVcVXzfPL7R6wTS2rlefEoXv++KPu7EddSsr5zrxyjM
sUtkbljc2xNv47LUkeJYyl+38++yROZ2pkb2Ni5L3WlcHeWvS/h3xkHM70x/
d+Ky1F2IMYozgRP3RWe+4ahd3YlL0L2dvxdirIq/F+xpjT+E77grvsznG2xe
FnC0mz3bxfXbiOKmfrmVcyxne1qcWR+qc4LZMyPXz/cc18/7vrCPHowOQow5
Unt4W2zVk/YwCzHnTB3sLRlsbWWer31JBssnS7mBtYeviC39fdEOjsqDissv
fvFFeZBjypP/V/iE/A/jRKSV
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztmQlsFGUUx2ePdtvSgx67bbfbdlvaQlto6UFboaUH9La0FCsFBEttOWy5
egA2qByJEoyJgFolKl7ExCuKR9SAGMEjpCQaNVhNNDExniFGBDTK/v3ex053
2c7sUXaXLdmXfJmZb7759v3mfe99782mdG5q7VQJglDPWhFrasEvfrmhBOZm
fW3dL9fkxvuCyOknHqX6pJ6Tmscb4ujd27OJs/a0vX89xZG9pMaJ1464r6fY
s40jLtvnfcm/SOR8xRkfkhvvK+IKj5zt5O77xS9+mRxyI/qvoz1yornHRPOV
iTLY2+/l8gRf55KSCXEpBCWUgoo3uqajQlCMG0NHlXmceO1FLrl5JXgUUClU
UCsCEagMRpBqCm90rlIEjLERQwAbo1GG8Pt0DFQGsecCGCPxKTzNZa2/LBfp
S/oQT7AqFBEBMdBqEqEPTkU8a9EaPesPg1JxxX7EFB4QDV1QEhszjY1JQXRg
PELVkeZ3oB5nXzfoL5XLyOU8V5gU7P0rNUyvqYgLMmJGeBGKYxpREbsUc7XN
yIq4iXEaODeND2LsiSHTURC1EOWxbZiva0NeZBWMoTMRxfjIhhJs7hSpPG8c
MzGFsXdtCMlAcXQDlhl7cFd2H3bN2oj16UOojFvG79FaI12nqCM4++LEHmzP
GsCenA3YNH07GhPWYmZEKbRBidzuxOZBLrv2ot8OUYVDH5KGMl0rBmZswBtl
i/FZ01x8WFmHoazNKIiu5utOXIf0jE6ThDp9J4YLVuNMQxlG6spxuGglbksZ
Qs7U+Xztkt95iMuWbVy/hvkD+VJhVC0GM3txsmk+/ticiItbovBCWRvmxVQx
7jBuIyVfW8qxWDFFHY5lyR04u3gOLg1p8esaI46WtmKpcRAZYQX8XbiBy1Hs
kxxPPpUWloflxrU4saAOF3YnwvSUAefWJqBRP4/51jSsSWvEqpSNPEaQrXIi
y7Etq5vdb0agKhh7Zq3Ev/fHwvR8Es71GnCosIOvXfJVN3DZY5ViG/tN8ql9
s9fj/AYtcKwUpteK8XhBB2KDkvF1ZxEu7k1Ei6F5zF/Iz54rqcHlA7E4UlyD
KE0cPl9dCJyqB15MxmhrPtal38lsVugJLqm4OI5LH5yGJsPteK+qAf8eTgG+
3YpzDxcheUo23u5jnN/uw+Dsarx/Twp6c7uQwPzw482ZmKdtwUf3VgM/vosF
cfW4b1YtcJJxne3BpW1aPJTXjTnRdZ7igsT5VfeNobOwOrUTZ28pBk4wvX56
BGcG8nmMvPTzzzj++ik8cfBZ/uyXH3+CnTt34puBKn49c2opP37XdzOKoitg
emUu8PuLuPx4Kl4ra0UVW4se4pJjGusn3+pJX4cfOrKBz7uAX5/HyRVGvhfR
oAMP7uDHbZ2rx80xMjLC+3Cmj8XAcvw3nAecPw3TS/k4XlONBn2XJ+3lMN/o
SV9v4frtCE6tSLFwPTDAj8tuXcGPJVHasblGR0eBy38Dpzfyffm/R0WuAhzz
PJcg2OEi/VelrsfXS5jfn6hh9noO3/Tn8nVo+ulLXPj0HRzZsYg/v6Eljj8j
rsMvtmZdWZ9butBsqIbpBXEdZuLV8ha2Dpd7Ix5K3otnsbsx4Q4cq2zA5ScN
wPc78M+hNB43Xl4+H7jwFdpSa/H0ugzsbypFiDqMx43Byhrs7+nGn6MjqEub
g91504HjpTxu/DmUhIP5HSxu1HtyXxYZ5JgnW5y31V+yn/KIaaG5aDduxAeV
9fhnlw6mI6l8X6a9NSJQi56MFqxLW8NzRKpFaF/uStuKJUmzGVM89uYswvmd
yTA9beT78mMlK7EwbgXig1KuWzykuoJyuYKoavTNGMSZ2gr8tSWW51FvlS9C
YXQNt08Iy5ko56JnKI+i3Irs2Z7Uhs9aSnCxLwa/rJ3G86jbjN3IDC92Vx4l
qbcjLjHvJT8r1bVwtjfNee/JBTW4O3sTz3vD1FFQKJSWvJcx1epX4eH8OzBS
X47TdRV4pmg5z3tzIysQo0nwVN5rLxZexa1WBvKaMIHlHuTr7clbeJ1C9Udv
xnYe1wys3rKtU5oTe7E1cxC7WT2zmdUpTQmdvE6hepPqUC/UKXa5qFYOYGyk
L+mUEV44VleWstolO2Ier6kCFZqxutIQnI7ZkZW8pqRG6zg1NIfXlcSktvpu
4GYup/dlkY3qYfId8gvr7wC0pmitiu+fvgPQuiRWy3cAPa9NPfAdQEpva/0d
cU+W7zaQOZflsuYb/51NOW4MHcXvbErvfWdzNKcjPdzd3CmO5pusXNa6+8Uv
fvGLt8SVmOON+NTEWpWb5vIkm6vjM1jb4+L8UnuCvb5rGWt931WhZyKcHOfq
b7nLhhPhInuVTOB3fZWL/GpYsNj/KGvtgrztJgNXk3lsrrnRuY61fuEKX5IT
c/si11GrsRGChVGcY1hmbthcOxJvc9nqSBzd5vN+870MmbldyZG9zWWrO/nV
UfN5ifle+zXMP5Hx7uCy1V30MeLUCfJr0ZXfcNWu7uASde83X4s+1mS+Fu0p
FT+c0cNVfRyNdXYekaPfqm9YsNiIuGld7hGc27M9La7YnXTWWfW1C5Z4LwiW
uO8LdfS16CD6mDO5h7fFXj7piFn0OVfyYG+JlO6u2NB6v/YludY8v1u4Ovfw
FXF3ru8rcqNy+cUvvig3sk958v8Kn5D/AaIBqeQ=
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztmAtsU1UYx2+fe7bdszy2sQdbx9bOjW1s3QaEDRgM1qGQydjmgM1t5bEN
MhUiTjRIDCIkYmTGREwQNTFBE6IgEcUIIYKSYAwENEEF4gKoMSE+CMjfc07b
9ba2t7dbe9ct/ZKT3d2ec+73u9/znsz2vuXtCo7jaskoI0PJhSUsYRlHAt5w
vyd2fqiLJz5f88dawPl+1+ORS4xMNC4+jxiu8RJf3liEuMaLuNtMjA+OJ76w
hCUs/ot7XQ7mkEpE6SPjZMPXcpnCec3J7deyseAS2lcEkxxKmQpqeRSiFVrE
quLZ/VhlHKIUsVDJIqDglC7sEnG5c4jmknMKwhMJrSoRU6KmI1dbhuKEBShL
XIzC+GpkxRYiOSINMUot4VPz7BdwLjH9qwguGWOKUERjUmQ6ShMWYW2WFQdm
NeLE4gU4ZZmLozVLsaNgHSyp7TBoS6FTJzHbyYTZgiWiuKhPUTslRkzFHP0K
7DOvxLXNs3H/1G5QYQt/+wb33pmNiw1mbDBsQp62nPhmPBQypZRcfsUXfedR
Cg1ytMXYburA7efKveqEyy/iyopiNE6zEl/NgkoeIZRHAi1CfunRXtEkZmgs
HSP+hq+2Cep097UMPGPcjIxYk51LUj/0tLfH2KJ/aQ6crpmJt8pb8e+BNODW
F7h35Qw+f/drfHLoS/zw4WfAP78C1w7j94EMrDdYWSzKZYK5XypxzRWkNinl
apbTbbkwChXJDdgyw4LVWd14eGHFsG4Xjn2LgrgStGU2Y0vecmSTd0BtZVsf
SeJM5SmHBEN3QS76nilHvHoyMmMLYNCUQKdKZj5JeXvMmzzuMTNhPssVlIHG
V652FlKjDdCQOkcZ3epaIJk8Xbtw0WcrSf2hHAVxc9CV/Tj2FnUQG21EpDya
2c6cVIP2+obhPX55wYr9Pe8TfiPjou9iIL8FOx+ykty/DtNi8ljuUfD6E+m5
5IggtppKam9D6np8NH8pbndm4IPKRhYze6vLmJ9RW/AXZ8SYsKVCj47sBYzr
wqOluPFYLl6Z2YmypDrEqfUsTseKi9qD9kRUt+6cfvzUmocH+6fgbM1ClCfV
A+da0VTV7bLeZDThwXcH8XJfL4beLEEK8b2hPiPu79HjdPVi1E1tgT4yzT3v
S8pFB+Wiebo75wn83EK4Bm1cpYmLgPPNWJY912W9IccAXD2OXRvacONgJdJj
jBjqzce9PZPtXM08rrH1Qxr39alWHJuzDLe6bH6oUSXgpeJVyNeZMYv0hfzF
VOclKZ140jib9VIX6qtwfc0M5ocVSRaSgyYFyw+HdRf6zZY3VKS/TYIprgpr
svqwp2gtyxsaZQLr++YZTNi6cbszb+zcgKfrGu29k4rliafyerG7sI3ljUxi
+2ilLlh5w5eM5zwvqn45enh+XaWcNZOb8bzpEfJ3CSrzCnHz9Em21/FXP0Vz
XS3WZS/C5txVLL5k5N041tO6EeS6zGcQ4HLto2js0D7qYOUy3H2vA/jzR9bL
Xz33PT5++yRunr8I3D4PXHoWd7amwJrTi6SIFJ59JOujRHK59r1Hq0meP9sj
qNNfr2djwNTH/HeM+l5P9zxwOb9Tthk34o+BLK864fI+XFxZglXpq1ldVxEf
lOg7RWR8udqL5kD6XWkmdXl3UReGevLx4EQXcOcS2wvXD+PvQ1040zYPm3K7
YNRVsXwq4Xel0H5edaBnFfQcIJnU1qL4GrSR3P9GaStO1NbiVAM9B6jHrsIW
LE9rZ+cecepkZisfZxyBFm/7CukQSuc2/oovPZhPKobP2TSsDtP7tnM2DbOR
7ZzNJ1NIcXFuOZt/LirjFP/7PUS4OJH6BGqEJSyjEX98SAp/s5BRE6C9gsnm
73wDGTv83N9TjLvfE8oJQuu96T8SG9M1OpHz/HmWO8to9h0JF7WXWcQ8f7lG
Ome0XDSuBjmn/Y+Q0cR5t91IuMTMCySXxT630D7otZ6Mfs7GN22Ez/ckUnId
4c3VcU5Gxx6DXvYWGzP+6BVILncdKUen/brf/pvBy94j6Xmk4nLXncbVEfu1
2f5b0yj292ddILncdXfEGOXUc959Uewz/InFQHI5dO+3/++IMYv9f4c9PeUP
x3PE5AOxPhuouuzg6OfdG+ScNqLc1C93cOJqdrDFn7xBddbz7jVxznzPcc68
HwrfRaPRwRFjYnoPqUWon/TF7Ig5f/pgqWS0vRW/XoeSjDafdHKuvUeoiD91
YjzJROUKS1hCUSZyTE34c+L/ABmnu2g=
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWHtsU1UYv32tXde9u7bDtesGDMZjhbFH94ANNjYezrAHW4GOjcGU8FRH
DAkYo0Dk8Y8xylCMaMAHaDSZWTQYEjAiidEAYiSSZUQNajKMLkJUAvt5zunt
k77u1nbd0i856b093/nu97vf9/3Od25O186mLgnHcXVklJAh5WISk5hMIIHL
8PwvWP1oF2/4AumPt4AL/K4nIq5gZLLhcsUTDK6JUl++sPjDNVHEM2bB5OBE
wheTmMREuHjuy+EckZJIYgo1Ln92g/BFBBEZHBtC5iIaL0/bPn2g/oo5CaQi
GWQiOfmNg1gk4XHY5l3nJCIp0xf5xzgWvwP1rwFwiZj/1F+lNAlpcTpoFdnQ
KAxIlKYx/6nvcrGCnzMiQ6FHsiwDCkkCwyrixFEWLxsmuUQJtfwRzEgswhKd
BW0GKxr1nShMq4FKmsKw6eJzsFjbBkt2O1ZldcKsXgm9ciYSZWmQiuN8YQsH
noD1RfMoThyPDLme+LkUT898BufqlmOwYz5uNBfiyLzNmKqaR3QUqNa24qOq
RgyuL8RA23y8V9GKtcbtmJFUjCRZOstNLzkZDlz+8PL1EkfySYOi9DocMm3E
8A4t7l/eC/x5BbiyBTctc1GesZzkmxKbp+/BX4dmAL+cAv74Cugz4YfGEnRN
3YIcVQHLYTGJa5hxuWLwikssErP6yE6YhW3TLRjYWkb8vejQ/+/rAzhS0Yxp
ifPZOyhIXYQfLSVu9nC+GueW1qNGtxbpJI9l4odiFilxwSUlvJAKU2o1TpjX
4cHpZocfg5d/wsGCVVhuVCGXxEIXb8SjBgMKUubg7boNbv4O7zaQWO5l70ch
VnrWWTh89zMnYlxA66JM3YD+2hXAl+vYGgy8jFrdYxj5YBW7/2Lfi5idlEVy
8zN239uSgecX9jjs3311Op6bsxN5SQsQL1GRmg0LLvi49sDFMR6kXEfj9VpR
J+4d1mHkbBPaFubj/TffZWtPv9KPWx3TUKtX4NKyxQ57DVNq8L21CiOfN+HX
7XkkXs/CqJrD8jpM8QoaF60DynM0x+oz1+BYUQcZLTCQfPrnpNVtLdWjvxf2
H2O/37TpMSu5DO+UW3DY1Ex4px6pcVpvnBhxXJwjH2WMy9TyLKQQbqQY1hit
hPuz3Nankj15aGgI5nQT6qZ0sDxOl09hg/Il3TO89Ffjhov2CwkkH+keRnHR
2t+YuxYL1A/junPiKazILEOlppHlMX0XtAex4RJHBS4R4Xm6J2fG56JZ34rj
5jaWh/HSRNy7NYg7w3cd68+cOeNm61KLHsUk995auJJwxhaWh8kytaPnCgMu
V9/9zTGeVzGeX4zjpe3496Vixhu78ovxac8LbP3Vi9fxevkC0hsq3Xhj10wr
Lj5ehpH+Stzu1jPeyE6YzfTCyPP+ZMw8f3T8eD7IeNl4viCF7Msl7Rj5cJFj
DX4+hQ1GM0o1GViWpWXvgO7LTVMz8camcjfbt/fmsX3ZxvMRiZf//Ys8n+aN
QZmPrtwn8VtXLvB7vxPb5R04VtyIlDgN6Y/krI86v6kCGP7OofPg7B6cW7mE
9VGUd+hZJwJ9VMD9i3I8PUcVptVif8E21vfi263E96sYubYbA9ZCVJK+V873
vX8fyCF971Fg6Cruf1KNa6uL0D3tifHoe33i4hznFAXj6+L0ZeyccqGmHjc7
TLjeWorDRd2kborY+YqeUz6uaMFNqwk31pTgZJUF63M2Ij+5lNWpl553XPiQ
s58r+TMY3YfoubJKuxqrDRvQbGhn5xfaR9CaoefKSk0TWrM70aRvZ3yTo5pL
MKldzpVhx+Vvzis2+3cAuv9q2HeAbP68KGN69DtACsFo/0Zg+w6g4nuniH0H
8GXX1/Oj7buNUPHng1sMnUPIXLTjCtmIpExWXDGZfCIkhyKRbw1kLAmRrXBi
E6qfR8Y+gfa91bjnf/44wd96X/6PJsZ0TXKQekKe5YlFqH0hz/ImNF7mUTx3
rL4K0RVih9ZVL+eMfx8ZFs537EaDK1R6wdpo4HVN/KDXGjJ6OBs+QxC2oxFX
n4tuMufEaLfR68O20JoRohsKXJ4+Uhzd/HUPP5fnw/Zoep5I4fL0ndZVH39t
5ucsY7A/mnWhwOXpu73GKE4N5zsXR+tjMHtCKHDZfe/h7+011sDf2+PpjT+C
8cNVJ5K8YcfR4/JfL+eMEcVN83IfF9yeHW4R8m6ozxqX/yyck+85zsn70XAu
GosP9hoLpveItPjrJwNhtteckD44UuLNdyExdN2vo0nG2ud3c+69R7RIqHv9
aJHJiismMYlGmcw1Nem/E/8PmcHLeg==
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWFlsVFUYvjNzZ+++DN2m7dC9tXaDMpSqKbUtUmpbLV1oKV2saC2QUqS4
PQAh8iYJaokPbsGYiIlJExPRhNTlwQeNBPCBxASIIT4ZH0gTY9HPc85s907n
ztzb6Z3ONPMnJ3Pvud+c+b/7L+c745g49syEjuO4djIayeC5uMUtbjFkEAz/
Obn4aLdA/ELhN9rAhX7XschLjm02XkI+cnjFSn1JcQnGK1bMP2ZycjCW+MUt
bnFTbv77spojUhZJTuvNK9i6sczLn4f/fSzwCrWGTF4aaMjQcloydORay+4D
YeXiwuQVykLyon7pNDrotUYYtRaYdVbyaSZz+lU+azVa6DVGmLRWmAjO4MbR
eS4wPzX4hKwv+r6pX2ZdItKN2cizlKIw4RFkm4uQyKeSZ7wIT3mkG7KRby1n
uCyzA0n6dPYetBpdoNipwUtq3hsnnnBK4FOQb6nArsxeDDvm8XzxHDpzD6M4
oZbFz+Mr/Uw2ZKI+7UkMFb6MF0qOo8f+EmpTW2Az5bMYUm5+cVPDAq0tyD0e
Vj4ZjoRqHCgYwieP7ced0UrcG67E2w2TqEtrXc1Ln4E++wiutbXj/lQ5bvTs
wPmaaTxuexaZhBuNJ609lXlJcqX5R33ONm/FvtwxXO3swMP3e4HfPwS+eBQX
dzQjw5hH/DQJastVgyWJ9bg9sh24eQr49TWsvJqMi/XPYVt6B+GdyfJaJV6h
+iPrE7R+alKewKVtB7FyeZcX//DKGIoT60g+vo6xrSdYTGlubTEV4nT1NJwZ
Xegv6fDiQWz5aDqmS6ZRaK2EUWdRgxckrgVzGvLeDSRv7OjOG8Hd8WIR7lDP
FD7/4DKba3UUMV40VmmGLPx2vpHNTzqa8GBp1sft1gyuNPehIa2N1SvdAyLP
y9XX8q0VOFY+i+VLlSLcG9udovuT482eGuO+Gyv0Pvuys1qEuz3aiI6ccaQa
tmxIvKiPNFeKEmtxpmYG/3z9tAj343CDLH+OVL0owv0x78RAwQSrS15j2JB4
0VGU4OK1cnWfCPd9Xw27X/7zgWj+wrl3Rfez9UfEvE41YdDNi9uQ+nLlod1S
hqNlJ/D3O+L6as+qFd3//MMNpBhsq9a6PlQnmrs12YK9uaNq5aHXd+lnGpYn
GcZc0uMncG+0VIR9s6cNSxMn2VxfRS0sRIvQ79G+8c0rLBbcW7VduLN0WtQ3
Ptvdjcb0PaRvpJK+wavBK5jFcp8PuX/RfZnmYhbxdW/OGL5t2YN/P6pi+/J/
X+3He86DTFvQfdiljVz7MtWBdWktuNm/E/hlCrg+j7/ONLB9uSmjneWgztcz
1NRRAXlxLGY8LHwS06899il86hxkOuruoSp8vPMA04GUh+9daFid0fdwreUp
3J8sw0/9jbhQN8B0VJbJQTS+JRI6KoSe1zDNYyX7qN1STt53t0v3lsyhK2+a
6SV6FhHqwyQSQ6pzBwrmcbj4OHrtM6hLbXXpXl0CiSkfKd0bhJdP/5qJT7Qv
eM4pOZZiwiGN6X0hXk/0YirB2d3nFKovab5G6JwSsr44v7hRn3iiragWNrFz
pYVx8veT1qWe1A/FmNznTz5y58pg6wX6bW/sYuB/AKl1g/mgxoiUxXnFFi9O
Bd+jhVfcNp8pyaFI5FsXGbvXaS01uSnFl5JxVuH6gWrcfy5YT1CCFWKUGv1O
skyckt/y9z0c7Fp40Xg5ZeCU8pKLkYNVsg6tqwXOF/tFMgY56dithZdSn6Sw
ctfocmNr3INe28iY41z88mWsHY28FgXYZM7H0bPGgsTaSmpmLX5JYZW8QyGW
8phyX8+5n5VKrL0WzRMpXv6+07padF873c8Gw/Rvrd8Lh5e/754aozxtnHQu
yv0NJbUoByuXl8f3Ofe9p8a63PeeeAbqH57fkbMnyc3ZUFi5vDw85gRzC5wv
RpQ3zcuznLw9W21T0jeozzbB3CDn6/cc5+v70XAuCscHT43J0R6RNik9KifP
PTWnRAdHysLVjML9Opos3H4yxYm1R7TYemniaLPNyitucYtG28w1ten/J/4f
WqJl+Q==
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztWXlQlOcd/uTSoLgcslxB5FpYjgWRYxeWZVGIIPfhurCyIkIULOEyREmt
0XgkGZN2dBKiuRpj0tGkiYNpJ2Nq+0fzh8VoKtJ4S4yCdTodbTW1UZun7/uy
CwvuwSK7LM7+Zt7Z7/ve43uf73c9v3eDa5pKaxw5jsslLZk0J84udnmsBJqm
e6/73FAzNN4WxND+tL/6numbp28da4ipb29MJ2PV5+j+yRRT+tI3TntvCvdk
ijHdmMI1er4t+RcVQ74yFh8yNN5WxBw8hnRnqN8udrHL1JDH0X9N5cjxco/x
8pXxYjCW7w3xBFvHpU9M4nJz8mC/0e5pyPZTs+vdCbU4kpGP0/mp7P5aVQQG
VoSzRu8HVoRhQB3Gri8sjceJnAx8llrO7lXBrUjzLkaoW7ylcRlad6gvhmBa
ElCHduE6fCxRoGeJFN+rIvH3lSG4tjwC50oT8M3iDHwlz8GfMvJwbOFTZEwa
LilEDOP16lBcWibCsaws7EmsxtNhzyPDRzEa20SLUVxCngR5BFNHdAt+n16M
M6WJ6FeHE1xC/PmpLPxyQR3UwZVEBzJE8RIR7rYAse5iZPkWoSliLT5KVeLb
ohSGj36DU/lpeD9ZhTXhzyOdX2ZJ/zK0Nnu20LcSzwqfQVd6Cc6XzWc211OS
jPeSqpDvX4CgmVHgOXuz30RPMVK8pIjhSeE13R9O06YjeJYItSHV+IM8D1cq
heyb9BD7fSdJjRUhz1nav4za4QcplThTnEzsKQw95Ntvj61E6Kx4zHTiIdNX
jN2p1TivTMDNnwXghxZv/GPNPJwsTMfGmBqG18XhCWTwl+KAZBnBFkWwCXA8
R46d8aut4V969fVy3Bp0kz3Q70z1tT2uge3V3ZmP1xNycb0pBPdf9sa/1vrh
21Ixvs6X47IqDvc2eeH+S964oIpGydwmODvMQKp3EQ4TvV+rEuC7imh8KSuw
hn/pxXUorRwXl8bhKrG/A6kKZmtPugrwa0klbq0neqkRo1EYgyRifxVBS6AI
lLL9C9wisS8tB3c3+eJmUyAq5nUwbGWBK3EyV8ZiSW+h2FL+pdund/yxxZnM
p/5aJEZV8Gp4uPigSSTHg80eOLZcQvZZj5r0dNzeXwOcXQcMfABc7EDfDhWJ
H1Iog9biPxv9MFAbigTPRUTP3vjV/Fpmj7RNAC5jWPVhG3on9YfP00oRQmJA
FImPfeo43N/oDhEvGG8rCoB7/ehvFIM/IxDTOAey/yzcPdoM/K0TOf41eCFa
gQdbPfGxLBsOnCOKnlyFb/LSmb9aAJe+uPgQrr5lMehTxmC7SM3ixPrINPz4
c0+8R+xwZ1wOfjrehleKa0FFd3KTQIUT+1tx53fryLzZuLKa5Lv6UJIHEkje
mo8uWTGurwi1FC7ouR7RT/PvudIFqAttwHQHV7wvz8DtXwQhzkOOozvS8Zs9
n+HVTa+PmKvFKHKXAXdOoUywCHulGbi7xY/FEE8XP+wl+ZnagYVwGcI09JzG
rtPEt8rntsKVfPcjhXL8c0MYnnCciUtfvItdrSI2t79z50NrHDx4EDhZjXfy
WvBcRCzubeOjJXI9Zjt7kTjbgKvLIy2pL5M8qpfkrLK5LXB1dMOXBNfNDaEM
13df7MGuZiGbe7G55qE1Dh8+DHQrsTevneCKxr2tWlxzCK56S+PiOCO46LvP
lyWgNrQRzoQ/fCgrx49bfZkdnuiQ4t+HXsChLQq9++ptjQSuH0FezCLszgjE
7U1BzA75M4LwRuJKZgsWwDUam94+GjOuVERhm6iO6GgWnhEU4cEOLxY3lIHx
wK2jqE+ux/e9l0esc2DjR3ir4030/XEbiRX+6K6R4NzaGBY3Inkp+K2slHFG
C+HSxaAXFzf14vzo/et9fpzkZVpXUR+rIrWT0zQXtEcqWF6+sTKYcKoItCfF
4KdPC4EbJCf37WZ5uXvdFpQL+VCFFKC/Ixxn1YmQ+2Rq8nIhsYNYkpejJy0e
0nrw8rJYxg8/JdeUq89ycmc86sFmT9xp4WO1QArB7ERSq2RDHZTKeNRCHzE2
y8LxQ7svbjSEo1GQzOI75VFf5Q5ymJ6J4VF6920K10skHn+9WM58gfLEV0gc
C3ANZ7z31XglbjUF4H+v8XG72Rdny5NxPD+T8d7/dszB3W0BOKMOItywmnwL
D1ajUd57leRE6rcW4r3GYuEI3PtJnXK2JInVx2eKk7A1toHVKY7TnEltmIO3
JMtxuUKEW43+uNM8WKd0E3wbRCrCf4UsX9E67kNSa1NOSGPsX3IyrVGnGOzL
9FWiNfJZfC4twYXy+QzbeVL307oy138Vsy1Xwq+oDim/kMxJZbYa4BoGLxd/
hBHO9HSoAp/Ii4fs+VSeFO+S+dUhbZNmh0ISk3MDVqEjupWdA1BORWsMeg5A
uf4bC1ZBHVxNbGwRGSseOgfI9s0mOUGNfakVOF0oITqKYHPoOcC+FBUaBI2Q
8csnLW74zJg31c5tRvN5vbi0LYqXiiy/Kna9S3PO1lsg0XDIiMGzNU2epb/9
VYNnbtR2T5C480na8Dmb1LuU2Sdn3F4eBZdJ/7Jim0gxtd5UxaW7d7vYxS52
sZaYE3OsEZ8KSFs4QWtZEpu54wWkvTgB6+vLE4bykjljTb3XmNA5PDPGjmec
sXljGTseXFRfYjPGj+Udk4mL+lUnN6z/LtKUnGnd2TKuAs3YOE2j13zS2rhB
fHPN2MdYxlgLV5fOWB43jFG7RqeJ+WPhymMdP5G4RsceiqNOc92m6ROYsRdT
/dbCNXrv1K+6NNdiTZ/SjL2Y6rcWrtF71/oYxcnnHrZFc981Wbi0e2/T3Gt9
rEBzr9Wnbvwwtw40p16cqLysxdGm86yTG9YRxU3t8kVu7DnbkmJO3KB75us8
U3LD8Z7jhuO+LdTRj7IHrY+Zwz2sJcb4pCnMWp8zhwdbSx6VW+nma1uSR40n
ddxI7mErYk6emEryuOKyi11sUR5nn7Lk/xU2If8HJlaE7Q==
               "], {{0, 0}, {54., 73.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 73.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztWH1MW9cVf/4EbPNtDMTY5jsmkIEhfJPYEEgdjElCA6HQfBSCA6SEgEPK
0qVJl3TS1qJUU9dsU7VlyVpNnRo16fgjaqtJ2dQm+2PSMu2jS6pInVRpUyNl
7ZRFW/Fv915sY0xs82I/ByIf6crP99133/m9c87vnHPzBsa7BiQcx20ho4YM
KReTmMRkFQl8hv/cctevdHkQvlDrH7WAC/2tVyOu5cjjhssXz3JwrZb4CoQl
GK7VIv42W44PriZ8MYlJTPiLf14WckRLlrxbKpJ7r3MUxey3OavXO+c0jnqv
9+UfYr/1GXbvXKI0zXst4kRC4gq2r/eemBNDKpZDIU1k/9cm1aA5sxeOwnG8
WjmE9yx2/MHegFs9Fez+zScrcd1qwS8benCybBy9hjHUqtuhV65j9+MkCkhE
Un9sQon/3u7vSjCJZEiQJCIjXofSlEZ05ozg2+vHcLXZis/3FuJ/x1Mw91oW
cF4HvKmH66c5+HpGg3vOdNzqLsc7Dd0YN06zb5Gv+gZS5BrEieexcQvYwtE7
VP26ZD19d7xEiTR5NkqS67BDN4qZigP4va0Jdw9pMUf0pzhcBJPrHMF0Lpdc
G+Ci+N7Q4uuX0vHPwVx8aLFhqmQKlsxdMBC7JcnSIRPHPTJ70UF1yFWWoSWr
HyfKnsXVtjZ8sV+Pe0eIzs8W4UafCW+3PYHv1zRhptKCHza04H1bC/4xmI9/
H83GfWcKPus34t3GJzFUeAwb0p9AZnwuFJJEIXEFjC8xJ2GxkBGXg/JUC3bn
HcP52n780daAmz3lmN20Fc/k96MwsQLJMjUMihQUqDTIjEuBSpqMdcS+3yo9
iGtbzfiUrP/dlmZ8r2IENq2DPGMi30vtazMhcAXEqyD6aRVFaMzYjkNrnbhA
cL3TsBOHjc9Br9BDp1iLlys7cfu0Hnff34f7H4/j7kUr/ry3HLv0NsSLlahM
a2W++17TDrxeNYCn85zsO6XHaYX2wwftzXhdJU1l8WDW9GC46JuYXufETl0v
s89GjQ2ze6xwvW3E3FsWXD91DL85eRSfv+oArraTuNPj9fp+xu8GVSlGiw7j
eOkEwTWJDWltxBcNhI9UjyR/qWSp0CmNqFN3YLtuDJuznkZWQh7UxDcvmq34
5EApLmxcjy5DMYb6D+LM1E/QubmCxdBH28z4ajILR0qGIBfHEy4sxzayRzvx
wwpiLw3BFeCbRkT3YPcU0iQW4yXJ9TClbUZ2QgHLZXbC9b9q6mJ5yVk7sWQP
3PoxqtOtOFg8jbfqniKxVk9iSY6ixCqYUltQqDIhLS5bCFyhekHGG3JxAuND
io36TRzhfKU0hcV+dVoNunOMuP+DPNg313j3+OSDK/h0rBWfHTWxtTv1Iwyj
mOQM6tfZCfmEi3SMWwTgjZC46JAQbPTdNA5oLhWLxAwbza+0/rBk9uCosR13
7txZtMdLe57D6fWjKCBcmU7skkP4heZ3iUhC8qGK5USB8teycM0PkbvmES2q
Qeh/aks6R2PP8+DNa99BR84wiylqL7peQtaLvM8v3u9R4fLXQ+yDi/Ii5ZYu
3fgiXDbtAVZ7JRCbrkRctI6i393jh1QfyiXUDym24QILOtdULXl+7/Y+TBTX
Mz/UkLqSxqbE7Yd0L5rXKI8IgMure6B7Ht6gNsly84bM7VuUN2oJ91ellQGX
NmG0rWgRb1wYduDXh6pZrdyl20N4vdmbDylvqElOVjLekAuBK5isZp4Pmb/o
99UrS1h/uEM/jtbs3UiVZ7G8/AGp0b+aysZMdRXKUjMxZOvEif0zLC+fNDlw
cYcWX4waMGYcZL0JrQlpXrZqB0kdZRYyL/tiWDLH/EY2X0dRPh8h3/5E2WGW
j6hvliRX4+ZOEzBbjbl323H7FQc+fOF5Vke5Ltbgzkwd3tjYTOythzG5Fo4C
B6uj+vKmiP9GpY4KyBsKSRK0CZ66dwpv1vXhUmMXq3tpPUz7stPr9+DvJ9bh
3pVduHdtktW9N/YXYjC/k+DPIPl7I75L6vhLpE+Zr3snWN2rjk7du2TO06eo
WZ9iJvq8wOr5P9nrWJ9yxWzH7tx9BF8h45c1CWoSN2rWp1CdTYQrjpfuxm+t
jfgbsev1thbWp3QQPywiPkltLhMJ0qeEjC/Ofd5iUJaSvrKP9FMT+Ki1lfWV
96fT8a/JNfhLH+n1W614rWYLXqncxPrK2Q4L/vpMOb48osV/JlJwu7fU21fW
qLcyThSwrwy2nzd/0bxF/Y3GyDbdCF4uH2bnAF+OZ2LujAaun+XA9XPS95/P
heucYf4c4LwOcz9ag/+e1pC+OQ9XWtoxXeJg5wC5qrJonAME7Je51XFu87B4
3edsMq/fFCdtYDoOFDyPM4TPZ82duNHRyDDQ+/Sc7eOtFvyiqRsvEvxP5TpQ
r7azMxJ6n9a8UTxnC4jLM+ZrwsXnoubMbu/cpHHMez2QP39G2pDR6Z1LkkXt
XJQ3NgFHTGISjvDxoWj4m52MlgjtJSQ2vuuLyTgVgf0fFPeB+IDP2lDvDSb0
mWQea/nuzXdNoPqAr1B71fFYH2l/izQuGldnuQX7Xyajlwttu5WMy+5eW+4e
9FpDhpObx6fnoUcwiTauyz5rk7kFjJ49zvLUJZx1kcTlzz0Ux5D72um+V8xD
l3DWRRKXv+40ri67r+vc93p56BLOukji8tfdE2MUp4Zb6osP867l1rKRxOXR
3en+74kxu/u/x56+/PEw9TffuAg3L3twOH3mznILNqK4qV+e4pafs4UUPt+H
6qzxmevlFvie4xZ4fyX0ReHo4IkxPrVHtCRYPRkKsyfm+NTB0ZJwayvffL2S
JFw+GeIW1x4rRYLpvxLtsFx5XHHFJCYrUR7nmHrsz4n/Dza8b20=
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWHtMW+cVv36AAfMKwcbY4JiHHcDm0TQQSniGDALGQCA8knmUhxIIoYTE
ybKkI6Okkdo0q9R1LaNTI5V23fbHmol06dou6ZRO2rr1kUVbp6ir9simRZO6
NVW3rE3Db+f7sMEQjDHYBiIf6cj3Xp/vu9/vnvdJ6tzf0CkRBKGCOI9YKgQo
QAFaRQQnnv1sofIrnebC505+uQmC+2+9GnEthO42XM54FoJrtfiXKyzz4Vot
NFtnC7HB1YQvQAEKkOc0Oy/7kv1Fd7xbLJJMXQeLQ/hvkP13NktE0hlyjKWi
YCcZkS9xzbfvNB5BzM/pOGOENAZrguOIVYgKjkWYNJLwySCyn1UsSCAThyJc
ugbRwUouFx2koPvoyW9B+JiMaCY2X9HsvacwSUVBCBHLERUUC1WIDknhJqyP
zOWcJDdBEaJFmCRiSp9MPiJoLeJDU5AanoO0yDwYIu+FVp6GWFkCxxtMuNm3
csK2lHO7q1/vkJeKg7k+YmUapEbcg01rq1EZ347ahF5UxN+P3LXbsE5uJBwx
U7YXJJJhrUxNuPNQqGyAWdMNS0IPyuJ2ImdNGRIJH9OfTBK2bPpiHBeyDsbo
zdim7kKvoR/fMO3HoPEArElHsSnWzPUSIpFDJBJP+SHTSXJ4NrbGt9GaoxjO
fAAPGg/i/uQBFCkb6b8sbqM+xOXSv0LEYfTdNTARpobELpzM6sOPCxtxvrAe
j+d0o1rdBjVhYv7i7CvsWkT2y9brIzagPdmG5/Ks+FlJDV7Mb8XBtCPYotpJ
9pyJSLJtH+JyiZfZXo1mD07n9OCtqhL8sSkHF8uq0Kob4LEjVBLOsSnJx5jP
MDzhQdHQhBm4LTLbXCfPwJCpB1fMBbQ+m+OzpX8VmxX1vrbDufbmMaJQsR3H
jXvxdnUxbvSq8Jdd6ThhaqAYouC+0m+oR3fqADKi8gljBI/fTAdlpI9BWvcV
XTO3ybTITXi5uA6f7FPin106/KSoHh3Jh7gt+BCXS6w7df04W1KPf/dpcGt4
Dd6sKeE+ZaBYeKFmK17eWo3SuFbyFQWPMVJxEOQUz1kc6U614a/WDIzkt/HY
82VdDz7ao8EXwzG4Zk3DE/fs9nX+cvnf14193Pa+eFyJWydjcDK7iWN4vy4P
tx+LRY26FNsTm3CxxIyNMRU8x1mTBnGBbE0fcS++XdCOidF4HMsspfijxW+r
C3H7SRVuDirx5pZKX+By1wvyuHwmtw0f9ScBLyTi00NxqFTloCVlPfDzapyy
7MWDTRn43y/HUKyLRbVmF8XGZOzVN+BSeQXwi24eNz4fM+DjoXSoQnV4NLsX
t59SYeI78fiwJQtHMg75HRfj8+QTNx+KB15KxbXODJ6Ln2rYB1x/BhZ9OG7+
/te4OtbP119//xKqyjNx5ukx/PTci/zZW4fK8atm+i5vt1P8aeV57+YpLfBD
Hf7VrVkWfTVqD+KN8krcPqUAxo242pILTWgqLve1AP94mmJ/DV83NDQ057lG
R0fB6Js5u4A/P4RTWfeRrX4JnwwnA2fX4z8DsRjZ2LEs+mI8icvEcbGYfqVv
B8dVo6ni61qaW+Y81zOj3+XPn9xgBf50HKez8jmuG8MppP9JXMIy6IvxK0V1
+GyIcJ3V4+9daUigvPSCuZnbYbmK7POza3h+bxNfv0W1i/KWHud+9Aouv3cZ
f3jjd3j3kQa8Y1Vj4vVGWHV13A4/fSQZE99PJjtUL0s8ZHHjWYobH/drgO9p
8d/DCnpWhip1JY8bL7VY0Gii+PC3i6hV67FDW8v3Y3FjrE6Py+cvYLPShOvP
5uLqiVqkU45jcePzJzSYGInHB62Z+Jr344Y7Ws1x3m3+al53GOeKtuNGnwq3
Ho7Be5YCXluwvHzFXIh3azYjL7aa171ye3/FfhPC1qM3tQIf7MjB6fxO6Ki3
adOZeV6+dTya8nU6vrWhyx911B3PWB1VoKjF0Qwb3qmiOmpfHK53JONhqn9Z
HaWTZ8KW1o0HqMZn9ZCjPmR1FKvZ9+n70JFk4T3OhphS/KBoB6+j2B7jpbXo
TDmAzOhCv+NinBKRQ/3TbjyW3YPfbCvBh81ZuET2w+reKLLHYOqT1ZSL4+gb
sH6K1fKs7lVTPlBQDykju2R96KBxD7dBVve+VmrG4fR+XnsKy6CvyT5FDWNU
AeoTe7mexgsb8Gpxrb1P6SSdJvH+eLI3Ec3oU1itz3ysnXquM3lteL3YwvsU
VsuX8z4li/fgPsDl1r8YK0ISyacKUEk4evSD1HPsp3hygHrEI7hPYZnuKx3z
Deor2QyE9ZXl8VaKj8dw3DSAYxmTfWVxXBPvf1if4+YMS8E133+8PmezC+Yj
zCbzqO9n/T/LQ5XqDrqvJj8z8XnG7DmAIWIjtzUz9W81CT1g+Y31Nlp5OsXU
OPoWPp0DuOyXhdUxt1ksXu4rk3M2Gb+fOWdTUG8VZZ+z2ecbgoSfe+acTTk9
ZyNZsSD115zNJS4Hu5uLOp9TIsw/FxX5di7qMTYfcoACtBTyxIb8YW8W4i1e
2suX2DyVNxCf8ML+c/m9q3jgiay7985HbE2UB7Ke7u0N2cXgYvrK99L7fSXr
yT7Mr0aEaf2PE7cK7nW3knFZ7LLZdmbXSmKbMIlP64V3eFN2ofuMO8lGCdMY
HXuMLOEMi5FzJ+vJ+5xlGY7d9mub/T+Dl96zUPIGrtlnZ341br/Ot//X6oX3
+BvX7LM7fIzhVAp32qKr3mw+8qSWdSe70H0cZ7fZ7x0+ZrHfO/TpHD8WU3/7
W18OHDanZyPCtI4YbmaXJ4SF52xfkid6Z2dWOj1rFabjvSBMx/2V0Bct5QwO
H/Ok9vAXzVdPusPs8DlP6mB/0WLiljM55+uVREut83cLM2uPlULervVXCt2t
uAIUoJVId7NP3fVz4v8D5USAeg==
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztWHlQ1NcdXxW5FFBOOZbDZblhORd2WdgVweXY5RB2F2EF5QgqiCKJdZqk
rcGmRyJtUzvMOE2aJjHREqNS63jEps1Mq43FIxJjnRjr0TSlJtO00/pPzaff
98IuFDl2hV1Yh+/Md/bte+/33vu87/0iGrasblggEAhWEUuJnQRzNEdz5ECE
ETy6z9L5s53GwjfZ/JkmCCa/a0fEZQk9arhG4rEEl6PY13hYJsLlKDRaZpbo
oCPhm6M5miPraXRctiXbi/h+UZ7p5r13JbWZ2++XZPPffrXS3HcwW2dun1KV
8N9LxQpz329UReZ2hXCzLXFNtC7vVwbo0Ry5FT9MacZJpdaM6eyqPByQGbAz
wYi6iAbkBxqR5avh49l+ZSgJbsQGcSt+kNKI4zlluFiUgw9KM/n4W/IqfCuh
HfqwDnvIa/TadL5yNIi+hj2pTXhXVYgBjYzff192JbbFbOc4vJ2XYZ5gPmfn
+a5wXbAITvOcaa15WEi/wW5RKCKM35Vswm9XFOEDbRYuEcZfKSrQlbgZVaHt
U8VlSf76wPzu5BacVhXjskaO/lUrsCetkWRRSXgC4bXQDwlLsmGMqMVuSSle
l5WgV1GKV6RleDLeCHWgHoFuy7Fg3kKEL0pAk2gDDtOdmO7nCLUnOdN00Ji4
GLP7PadWcV3M8S/EEmd/hC2Kx46YUhxTq3GzJg53jNG4UZ2Ijw2JuFUbi7+u
W079sTiYW4EqoR7uTp7wcvaFLvQxHCI9HNDKcGGEbdoIz5j29VpmDc4XKnGx
OAc/k+oIkwbuCzwg9U5Db3YV/lInxmVDCn4uXYkyYSOSluYi0iMFaT4FJJv1
OK7SYLApjON9JqEBfi4hWOy0BGsjWritMns7k7fKlrjGxTugleNYbhnd8ya6
cw+keRfg6IoS/L1JiBfla5DoJUaQWySejq/G2+pEnKkQ40iOjHSwkjAsRXFQ
Pq5WZOCTehG+J6kn3fXFMtcIfD2ulev1BPc6Xdge0MOLRQqcJ115JrEOoe4x
CKTz9MjyuJ79JGMd2ZYUXYplGHxWivt7luHP25W49ng+vng2AeiNxqdtsVgZ
kIZoz2S6nyzcMsagWdRE9uYEmW8p96es34a4xsV6XFmK8hA993M14Q34SC/B
wQIJPBf6oKcgHfeeC8fp9YFYG66EtkAKY3ExilLcUBGSjf/sFOL+3hBog2SE
Q447a6PRT3od65lFcvPH9rhtto5f447tTa9HjFcmljoHkP/S4nZtDFZRrCoT
tuHLA4l4Xh6BVukm8xr49wBv4+arFAe0GGyLxn+7/CDykGBXykbcbQ7B5qg6
fk/FwWtsgWuyWpDir4L8dQf8XIVkV1Jc1qXhUH4Jli9Owudbw3CiphzfrJHy
b1tXbxnGRnR3ezTw2VkkeMUBh+LxnQwNrZGCT9dHYL9Cx+Neglc2Xs9aY3dc
jFsiW+Cx0BurhZW4sy4SXalqKPx8gb44rE7wwc0jJ3HpJeOY58Ld93C4MhMD
LeG41p4Fb5dl+LA8A+eKlFx+zN8IZkBef8zPgzF8PfftjaIW/K0hHO3iXJSF
hQFvy1EQEAn86yxqDWtxdV/3A2t0trfj43M96JWp8PmuFMIhwh9W5nNsqd4r
4eMSRD6ycUbkxdiN49qAwcYwwqUkXBEcl8pfBNy7jvVrmnHvl7sfWGNHx1O4
3v8ixWEVPutKRbC7mOO6UsZw5ROu4BmRF+MWcRvHVSE0UA4hwvdTjRSzlnM9
1C0ned3oxXMGntsL3iiQm9f56MMbOHbgNN5pysT7bQF4p60CIe5RXFa/L1yB
GE8p4bSJHprPPt4Y8xtPxW/lNp68VIErulScVucTzsXcbwx0ZCM/OoN/v6tY
al7n+tWbuPijnfhT/w1kBAbii9ek2KWKhdwnhPuNVxQGBLiG0/1kYl/mtPuN
yWga/Lxmpvz8pPHrtFKD0pB6XnvoQzfiNsXWEwWFPC6/mlkLHE7C0eo4pHtL
UJHui2qNjsdlllu++2Qy/vlCLNQRYpQGUz6lS+FxOXVpHI8dT8RutUce9UAf
y6NYPfjtpFbuk5n/+qm0ju5cyPMoltc/HrsB/+iW4MuXQ3GXfMPAtkKeR93/
cTCOPlEEQ6gK6T4qHFEX4opBwvMoFjdy/PKwj2LXZapZ7I1LwPNeGU7maqn+
64TLAnckLcnFCcrTWd67P6eKvxMw2XVE63GqIBVnVot43lsp1JENhSE/KAv9
pXLcpNywO7mM573BbmLsiNuEcwV5MyIvpksXCnN53f+y1AiFfzmc5jvz2MPq
lMHGcFynGuSljFKylWbEeckg9kjjdcpGcT2OqnJwpz4S1ypT8XRiPY9frE6p
i2jkNQLLeX9nmzplUvtizGrlC2QXL6Q2Uf6q4fU+qys7oltxplCF21RTfkLn
v0U+5bohief7zL9cJTz7lWUwCNU8dvm7hvK68heUx7Natd92deVE6/H9die3
8HckdrfnqWbem74ORcFN/B3AZb4bryNrKCd5XlKJN7LK0avQ8HeAb8RXQBus
h5DqG1fSXzavQVTL3wHYG8D5olxbvwOMWy87yLvNQ+HN9ddRDrWDv22cUmrM
voS9s70p02Nn4kaq6x/j72yZvl+9GbJ3Ng1h2Sheh+6UBhzLKcd7pK9Mn9n4
m3IdfbcZ+rAt9ni3GROX2DPNvPdY76Ls7k19b5EvMbWZzxw9/usVxeZ2Zeim
kZjsicuMzU48R3M0FbJGh+yhb1rivGlay5bYrJ0fRdxl5fpj2fhEfVOZO3Lc
WmLfeFk4z9K9pnvuw+Bi8sqyYJ6j4GJ21SMYln8fcbVgfNk5Ai7t0FzJELO2
P3Gn4Ct8oZOcYbJ9ZgpX34i5XoJhjKY1eqw4hyVz7IVrtO9hOJqH2p1DY1ET
rD9b5TX67Myu+obaWUNj1Q+xv63mWopr9NlNNsZw+gvG1kVHwGU6e+fQf5ON
aYf+m+Q52n9Yk3tP51xLcZlwdI7o6xEMy4jhZnrZJbAsZtuarPEb7Mz+I/qq
BcP+XiAY9vuzoS6ayhlMNmZJ7mFvmiifnAyzyeasyYPtRVPNrUbG69lEU/Un
zYL/zz1mC1kTJxyJHlVcczRHs5EeZZuyJv90SPofUHocIw==
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}]}}}, $CellContext`orb3Ds = {{{
             Graphics[
              Raster[CompressedData["
1:eJztmEFoE0EUhgf03lt7E7wUPJSCivSgF8nRNOjFiPQSaIxgKRJECChbYiiW
FATRemoOHsyhVFhQsaCHgj2UYm0LFop4s1jQg1YLFc3vzmanWdfZ3Zlss7Or
+8NjX2ZeZt/XmXkz6eHc6LncAULIKcNOGHaQJEqUKEaCZXYfnH5eX1TFy5+4
PHn9UZUzb57vFRsVua2puHM5JcsVByaqdrhUipeDVw3wWmNe8WGKtydEY0Xi
O83kdqa0y+UmTS6tjkmUl/e312y2F5PP51XvKyq/+XJya8TB4bRqtWqyKeYT
5WK+Rlx4Sj0ppFIpPDyfR71eN00hm99dzlnXNOZvb2+bfr7/KoZ6zuDOkQJq
F0bxYuQaPl0qmPOmkM1vf/HWofmsjFVxtOcKbh6fRn1wBot53WTYnayjcf8e
flVHVHPxfLd+jT0zfevaxWOzmBhcgF5YwdqtdZOhMbMMPH0JPKuZcxqx+fKK
MS3TB23o5BtM5j7gSfkL3k5/N7nw6jOw8h5YmwfwWCUXz3eL3dtblbE5ZM9u
4fb1H9AfNLCqo8m1YeBs7gAf30V5HbL2v+5FpVIJmewOblSA+iNgcb7JtbsF
NL4ZeGurqtchz+fFaITVdIOJPjMZmG13Z4HnS02uza/A1s5PLK2+VsnF8hZe
gzy7PLGAcm3B5Jpb3gCtlRE4w2SkEQ4XPY/ZHYPZ+Pi4xu4eKhMOII0yeJnq
BD3EOw+81mYc5Je7yN1ftWTmxf4d3vejrv+dK05MVLJccZJfvYtrTUyUKFGi
ROKSqe37eQ64jZU27HSH3xE01iverb3XsLLk+Lyz16stSKy9X6ad9XV59MuM
5Rbj936/2Ha46HwNePTLjOUWEyYX3VdTpDX/umFZ4j93UeZKW239llG/27Ai
afIdkshDJCYsLt3W1kVajCx2SiIPkZiwuJy1h3IMW37R6usVHEv0fUFiRbmc
udN9pVv+gNWXFRxLJCYsLmfubI9Rzm7ivhZFfzeq4mK5F63PbI+lrc9sPnn1
Q/SuIPP7eb/OZcZRtLVNkdYcUW66LstE7szulGTqBs2529aWJa16T0ir7kfh
/xXt3DeY2B6TuXuEpSBcbM/J3IPDUhAuKvt5HSUF5Romf949oqKgXFFV3PNP
9A/qN7yJzX0=
               "], {{0, 0}, {54., 61.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 61.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztmE1oE0EUxwf03lsKHgQvvUlBQYogguSkhIKgRDxZTCpUUAyIxsu0oY0f
OQiiAaXeWqIIltDqJQcRFQp+lApFCoKXWhA9aAx+oHnuTHbMdjsfO91kd1b3
D4+dzHvdeb+8+Wq2DZ06OLQJIbTHsl2WbUaxYsWKkEBgMp8zxkSJ8uf1RY3L
S+4mM3lhkOXPYzVVUeTizRedtWMilzsfWYwOT1DrS5UL4jzdfyd7j2qcIMXL
VxSHJH4m3IGcdKQzb5Agxt1PhB1G45LJpAl7n6pePG4s6KeWz+chm81CsVjE
3U5eIlkdeX7M6aN2rpfWCa5uSUKlUoFSqUT5AqFYL9Ve6ObDyFEX8sz2n6bP
B3tH6bM2cgY+Zk5QNmIhsenubRg5uPp7R+DCzlswtf8OzB+/Txm+X56C5vVr
8OvSsIlc0nlImMZHJ+HIjrswceAJzAwvwGJhiTI0770CmKtZdhPq9To2jEsU
g1l7cDvgo7tfwpVjKzA79hmWJhuUC55+Alh4C/D6Udj14rVFcX/n4PjoHBxO
rcLFsz9h5kYTFqvQ4loGgPffAFbfhM2lU681tRs89BXOjwFMTwPMP25x/fgA
8LvRtOAAhzwPeW1R7LqzijxPTtTg4fMW10od4N2XhlXPUtj14rVFfq6ROwa+
/YwyzL5YpvsFs5DPMNXaYn6MOGcz4SL5O42cyyGfzb5F7kwyCzs/iUR3Y5mZ
LlXeIlZTpPr+de4mUZBXLnes6frfuaK2bxCpco4iU6xYsWLF0pPO/t7Js0D0
rpRl+7o8ht9YWbyov8+ygsa7vdzrefG8fi+xTr9OP/P1SPyi96jeqTO+KnYj
XKReAxK/zrtEMUFykXVVRu36Vy1LI2+1U7GFxZWy+/ptI+2EZTnU4tsqyUOV
J88fFFfV0deD2owstizJQzUWzxcUl3vvIRwZu52zfX2SXGRjicbzE+uVy507
WVdVuz1g+9KSXGRj8XxBcblzZ2uMcCYQfy52OledWK9cLPec/ZmtsZT9mdXT
vX/o/F/cyViv/Ywj5+gro3aNCDeZlwXk/czupnT2DZJzwtGXRu39HqH2vm/C
bxYbuW8wsTWmc/cISn642Jrzeg8OUn64iJzntUnyy5VBa+8epsgvl6mKev6x
/kH9AfUyDqM=
               "], {{0, 0}, {54., 61.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 61.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztmF9oHEUcxwf0vW9RXwRfSkHkQEspWFQk+BajxcDZPFSLOcL5IHihhoPC
xpBei9c2YuEoqdVag5FGbUPpHxNLG+MVYm0tldTcg5X6YFtbaBq0R5PL1525
3bvt3szu7O3e7VzZL/y4uZnf7f0++5v5/fbuqS3vbdzyCCHkFd3W6fYoiRQp
UosINiO2VxlTTSImNwbRfVBFbvdfNl9hcXmJTyZvvHVV5IdLlXzxFBQXIa3B
ZV0X+dnnVZJbfE7nSNU9aMotLhGviiyy0iyGRCKhEouX/aUZxj13Y2NjjC2T
yWgNj9pZvBog8nGte4cHsowtm802K3du9cw+5n2+cp10Os1e1z3WVebZoLHX
vzb34eqmJGMzcxcggxfx+oudtcYoF7X4E/1IrxnE2c3fMYbiR6Mo7R3Gvx/2
YnFxUQuJi1eTRX5WH5aLztgI+l46jS/f+hWz2jzjKn1zETh1GjiWY59pMJfT
HnTjEvajzmd/RP+b1/D1tgVc+LTIuDB7F5i7Blz+oRlcIsmeOWstZPuP5ev5
ebyfLOLg8H2cO1piXMt/LAM3i8DfV8Leh7yxfa6Gi8bc+eJVvL21hL2fAZNn
wbgWbwPL91Zw5dIvYdYNX1wsZ+/cxwejwOi5Mtfvd4D5O/9h+vxM2Plyen7j
9eRKPTRr+fb9BfRl84zr29lChVlBLqdnjQeYMnofTsUS2KcbZTjzQqKy1qrn
a2hgN5KxFHJrNUy1DzKu6z39uJ3sDbsvy/yOqKnzlKvzmRGtK7YT29YewPjr
h3Gh9whjWBo+hJV9u1HclVQ5X/a1yj0YGjiE7ueOYsereRx79xLmMnPl/nVk
Fvj+JHDik7C5vJyvSr7WPJ7Fpg2XsavnOk5uv4uxgUnMHJgGfr6l9+UC8NuJ
sPchb2z3qeEa0jm6Nt7AzvQSJkaWMLpnBmfGf8LKn3pf/mcBhfPTKuaL52Md
a+b4tfgkvhoHPh/J4/jxPIoLwNK9EgoXQ+fijUW+NfZ09xQSO6bw8cE8vjiV
x7z+eKhLhf7FG4t8udbe3o6t+8t9ufuNhCp9mTd2WtcIh4vGL7KGRO4up7Ml
s07ofxlOFmSwAUi47zyaSnKL014fReMw2eq5/63AxVPEJTdWRQ8rF5VbbWvF
ehgpUqRIkeqXl5oeZP0XXatDt5cb/B1+fZ38RfOrdRv0cG1R33Xr3bx5GV/r
upd5c22Vw7roOjL3vB4f3mfq4aL5Wi/x/TLXqsc3aC56rnKkmv8J3eJELney
bM3m6jDmYobRcZtuKVLme9JjLH78guSasMytIlVG0zdXRzxB+fjhstceytFj
jFPG2mqP8QTl44fLHjs9VxPGeL2xFvcYT1A+frjssZtnjHK2Ef5elPl++3qz
uczYU8Z784x1GO/NfNrrh9ffwl78gujLJkfKMpcj1RxRbrovB4l8z26kvNQN
GnObZS5OqvWekGrdV+F/inqeN0yZZ8zLs0ez5IfLPHOyz8HNlB8uKmu/Vkl+
uXrIg88eqsgvl6pq9fgjPYT6H0dej/M=
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztV71uhDAMttTutzFW6nJrh0rVzd1ZOjGfdKwdeAGkG3gE3oMXbBM1PtI0
Pw4J1LT5JIvgWPB9OHbC4/n97XwHAM/CXoTdQ0FBwU7xoVno3jSusPG3zYFn
zAm2785Vl21thHhy1+Va964asfl+U1eIv+udFK1c8+V7p0sXXinr0TW/JnLk
iyNy6ZLXPje5BIS+PaVv9DgehqFfl24UQuvJtQ/8sLZtuWlLwS1vO9bkq61Q
/+cKW792+Thrcn1/6h7PVZeJoqvo4oIl+/hesGQfLygoKPhPiOmBOful61m1
sNeV35Ea64t3+Y/CrhHP9p03fP+fNj8lVp+P8ePcwTPveg7lm+fK4RJdMl+n
TO9fKzZGl6yrEeb8T8IaoOWOyndrXbXyPSmT40pYB1/6HhI4LIkLxVJ1TZrv
ALNGjB0TecTEUGKpuszeI3Vc1LhTc8cEHjExlFiqLpO7rKtJjU9qrkngERND
iaXqMrljjUmdFdjXoi3nIZ4xdZhDF3Lv1D3WWK3uMZ9m/4j9H946X6ij03wj
zDmSuuW6vAJ9z14TMX1Dcq40XwNzvweY+z6H//ol5w0E1ljM2WMrpOjCmqOe
g7dEii4Jfb/mhFRdF/h+9uCCVF1csXf+BX8Qn91KZ34=
               "], {{0, 0}, {54., 51.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 51.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztmL1qxDAMxwXtflvGQpdbu5Ryc/csnTIfXNYOeYHADXmEvEdesI2oTVzj
D/kjPjv4DwLH0iX62ZGc9vX6/XV9AoD31T5We4aqqqqC9COY7dpmuUiVv8on
Xpt4Hs2myusIXFylcaned58cqb9JUWO2taTm5soFEIfLts4hXLr76e6far9U
Y3lOt8651L4sX64Uax6iGFwjH/d9nwunbe1t9VEqFyh82v6RERfKVicqv2r/
xmmaxujZ7Stqv6eeBznI5XzNmc11/UvhklW5ymFCHZULZcux1J5YVVVVVUWX
Sw+P2e9192pX+9z5GaGxpnjd/Hm1u8O9bWezLt43VvS7zHPfyeA3/Y7qC431
4cL9uhj81HxMvpRcWFczbPu/rNYBfe9y5GrZ3BszHDerDfDH92LIw/YslS8V
1yLMnWBj5LGzJQ9bP3sUl5wbctzYeGC+s0MulOeFxFK55NyxrhY2vjBfZ8jF
9CyVLxWXnDuvMeRsQP0uxs7VJZbKxXMf2DWvsZZd8/2U+4fL374xY6nznGMQ
5mbY9gi58b28g9+ZHVsufQNzboS5DrZ+D7D1/Rz+L+HzvcHFa8zn22NvhXDx
mqN+B6dUCBdKPK9zUijXDf5/e+SiUK5cVXr+VQfULwko47o=
               "], {{0, 0}, {54., 52.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 52.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztl19oHEUcxwf0vW/pm+BL8UUWfej1RYQQfJFwoWoJhdYS6Gm1GpOI6Glh
YhrSP2c1ELiKzbVqUk/QIKe9xIc20qRnoS05EGsbqBqEUkybCkfhSHL5ujO3
c3fZ3Oyf27vsbLgv/Ni5+c3u/j73m/nN7JNd3bu7HiOEvKDbTt0eJ001tWUF
w8x9Mj+q9KmiarHZxW7H77dQcbViqda2+i/8llXsMr/dPZstJ3HVyqVSrpjq
mS+VZPffW/lV57NbI3Z5VFl2ccr8QeGTiRoWdFHD1tWKSCSCoaEh6l9YNYmS
jTVvnSWTScRiMRX4nJ73mFFSheXV7S/ya1tbGzLPRZDL5WglX8MJNsrpGUf4
qNFGNBrl1wPaezi18xjS4RHOtdh9Avd73udsjItZA/Pm5LzmmIsxsXw8tb0H
vaHzONuRxpXD0zw3y/Ep4OtxFEb7S2w+zEfXXEaeKGaGacezE4iG53D+zTu4
fvIu5yqk/wRmrus2gcH+043Ol1285rZsHDXaNPz0I9oRyuLDA4v45ugj3Bhb
5lzI5oE794Hbv+LWhTN+cjmZnxu42BwLty6gt6eAs/FVzKbXivPwnzWsPdDZ
HvyNuclR1bhkfirGca7nF7A/CgyPA5Mz4FxLD4G8jqWLKry+zP7S+mIxc7bu
VfSOAYmrRa7swyITu4H5Fa3zsn2M10TBtqfrMg5rEc41dmWe97MbgsQleFid
H+yPYa/2Go5or+OrZw5xrmutEb4HiDFB4tKvlDGFtXfQrR3BmdAgpttPcIZ7
bwxgqae3lEufuErxOvSX2oP9I+jUhnE0NI6Jl1PIvnWBc62OfItC4nMUTr8L
Bbks1xXrDGunsC80hdhL1/DT27/jj5Pzxf3rxzng4iXdElB4Hpp9otbrXD9g
f9ttfHZoEVPHc0gOXMTsucvAjSXg1l+6/RI0ruI8/PgS9rzyL45/VEBqdAXj
n85i+rsMVhdWgMUcVu5mg8hF2TW8L4/de39G8nvg3BcZpNMZ5P8DlvNrfA8L
CBcl1dcaPknpZ44vM0hMZnBT57r62zzPVVC5hLHvrg8SGc7A6r+4yUcuUhGf
Ez8lEi4Wv8waGXwjxc61VuZ3fCbJvl/MNUS216kop/Hb+f3kq/YNZtWW+e3u
UUFNLkntNz1LFdWDy+/1JZPdf29XL1RkMsvN3u3mvqaaaqqprSg3da+eNVL2
rHbdWhv8Dq9jrcbL+nfoNuDi2bJ916rPy9hKv5t+4dtm4be6rxFjZHu82+ez
fO1y8H43z/QyxisXW1dxUs5/SrdO4jx3KnK1G32aYazdolsfKfI9UUM89Rrj
hStV0beNlBnF2LhNHE7r2WZzmWNjHAeNdp/h2+EiFi/j6slljp2tq5TR3mX4
Ol3GU68xXrjMsYs1xjhbSPW56OT9Zv9mc4nY+4zfYo21G79FPs31w+33sJtx
9diXBUdfRV+clHPEuNm8HCC17dn1lpu6wWJuqejrJOV6T0i57qvwLV/LeUNI
rLFazh6NlhcuseacnoM3U164mCr3a5XklesgWX/2UEVeuVRV0ONvagvqfzce
TBQ=
               "], {{0, 0}, {54., 70.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 70.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVzFuwzAMJNDu2TIW6JK1Q4Eic/csnTwHiNcO/kCADH6C/5EPphYqxq5q
SaQoO0ygA4jKFC3dlRapvO6/v/ZPAPDe20dvz1BQUHBnuFjjPl88zxqQQ49v
vVvgAnGe2nTF9nO5+d7TpGsqD+P93Pkpc9fyrR3TOAd/d+ybz6krB3LpmlqL
q88XlxM5dGlELl3m7zE3OQFi//vQmUc74rht2+O8dFmIfU+++vxPZ13X2rRJ
cM3bnWkK1elYf9JaW6b6qM8Xqyu3ROheEepBlHlNKLqWv1NIINGlVRNC0rvd
sTak9G7KewUFBQWPCE7dy1kjfWvtevuceQ9pbCje59/0dmKs7evRIZ8kdjzP
8ePcKjAfei9HDCU2RZfJ15axP2VNTgwllqPLnKsOhvyfe6uAnjuNunbW92bN
jNe9NfCr70XIgxNDiaXqOo98Kxg0YmwX2YPKd2ldLjej42DHjZ3bJHJIiYvF
UnW53M25Otvx1s5VAh6cGEosVZfLHc+Y0bmG6W9xKucxnpy85tCF3Bv7jGds
Z58xn279iPVPKh9uLFUX6mhGvg6GHBnd5rs8QVrPzg1O3TCc1yNfBUO9Bxjq
vobf8in3DQSesZS7x9yQ6MIzR70HLwmJLoNxv9YEqa4D/L17aIFUl1bcO/+C
B8QPIa2fxQ==
               "], {{0, 0}, {54., 51.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 51.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztV7FuAjEMtdTubIyVurB2q5grVpZOzEjMHe4HkBjowE6/g4/ob7WXNtZd
UzuxL7lcQHlSRM52kvfOFyc8bt9et3cA8GzbPVRUVBSOr17TPnM2158bFDfX
J+HOvQOAvNp8nKgYakyJuvprVl1yXdR8OTG2rikRu88oW46cUXNTvKkxU79z
DtxZ4nv3QDzD8Xjcj8aSR4ifRpdr22N/tVqVkr9QveW04u8/XRPlzUXVJdD1
+fFeki5fbZPW7J9cnU6na9YFxPPe6ClEE8J3DoXuEEPO46nPvRRngGSeHJBw
cOuHa+PqCzcmN6ouna4S9pevr9VVgiYguHC1XtPcsVMhtD7lD52FFRUVFbcO
Ta1LWRe5udZtexl5jdhYXzxnX7TtoJibuzdIzm0u1o3n1tbY0Tfz+H3jpP7Q
+qF5h+gy+Vp6/FI+qWJidZl9dYYu/5e2bUCeO+ke0eSVi5fqWlvbk22mP29b
A7/6HgJcfGtp41LquvRsM+g0Yuw5wCNVPaN8MbpcbkbHzvYb61souISQS5fL
3eyri+0vrW/j4eJbSxubUpfLHfeY0TkH+luUrD9WrFQXcm/sM+6xtX3GfLr1
Q/N/PmWs1I46mp7tDF2OjG7zXR5g2JmdGpq6YTjPe7YNdPUeoKv7Jfx/H3Lf
QOAeG3L3GBsxunDPSe/BORGjy6B/XpeEWF07+Hv3KAWxukrFtfOvuEF8Ay8G
DlM=
               "], {{0, 0}, {54., 54.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 54.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWDtuwzAMJdDu2TIW6JK16FJk7p6lk+cAmTv4AgRyiMxdeoDcoCdLJVSC
FVWkqE9sOfADCMgULb1nRaSU5/3nx/4BAF6VvSl7hAUL7hIXY6nPnC8UMyZK
9FwYHzXHrSHhNEddoTlb1hUbl+NKWSg29i7FJQc+B0m/hHesn9OVCup7htpc
f+w7S9aNGscfKxc11ksyztioqSv07adCbV22jcR4YyL2jal8SfmsYSV+LQBh
nnq4vIdMvzTPTwGuPiDRH6pNVL0aUxtXY9w2Ev2t6nIR4oDAc5yjLoQyXa3u
L/T8ues1dZ3TcGtTrK5J86H/3hRAmGd94oCwaJoDEBZNcwBCvqaU3FYzD1Jj
7ZS9Q511uqU2Kp7yb5T9gEwTd14InSe5syZ3l6PmTvGj6VsR/Rxi3zz1LMjF
pOhCY0dlW8G8KTxSYiSxUl2o7EvZCYb1PyvrQL52Us414iS6UNm38b0Y0+21
sh7+9D0V8qgdF9OFxs6ObwWDRht7isxRK59JYzhdCNd3DTdW6ziYdm/6Npkc
cuNLdFn43PW+Opv21vR1BTxyYlN1YcDvc7d7TOtcQ/i3GKo5Uh6SmpAyHkJY
l+Xem2e7x3bm2a6nnz9S7vGpd36pLoT/d3cLq6N3fCcY1kjr1r/LI+TV7Nrw
dYX89llzXju+DoZ8DzDk/Vb+j0jxu7B7LOfscWuU6LJ77liPTjWU6NJw63VL
KNV1gOuzRyso1dUq5s5/wZ3hF6ErtEE=
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVzFuwzAMJNDu2TIW6JK16FJk7p6lk+cAmTv4AwTyiMxd+oD8oC9LJVSC
FYKUKFt2LcMHEJGOtMSLJMp+Pn5+HB8A4NXYm7FHWLFi0bg5k7gbEyP1U9xU
oHlIXMovPRPjxsKNMZrDf+uS9lLKL+2bXA1j6OLyoXNy+Wo5bjzNHMD0NRro
2LQd89N8pNxydWny0WKIrjAnqf5p9jD3XCxWgxK6NONMjSXrkvaA5NdwKIw3
JVJ7OPeMYPC7FCDUpSdWx6kvxqf2/ZTQ3DMo+HPus7GR+v9pPrXooojliAl/
jboQ8nXVcL4w4ee4OaxTCO7ejfm13Fz0IdR1P2mAsGqqAQirphqA0F9TTp0r
WROlsQ7G3qHMOo2pTYqX+J2xH9Bpit1DlIvdWzmxqfwlHp1vI/hjSP3n3Pth
39gcXejsbGyfmFc7Zp8YTaxWFxr7MnaBbu2vxhrQr5025xLaNDwa+3bcizPb
3hpr4U/f04Ac+sbFYlM8OrsG3AY6jT72kpi7VD3TxsZ0Idx/a4SxVsfJtVvn
22XOHcPYujxo7vZcXV1773xNj/nHipXqHuVp7v6MWZ1b4Pcid2dpcxsay9U9
ZHife+v6/owdXN+vJ60fOd+HJWNp3UOGt/A62oC7QLdGVrfdl2fod2eXBtXF
8b5vc94GXANdvQfo6v4cvt1z638If8b6vHuMjSG6/Jk7l0unGIbosgjv6zlh
qK4T3L97zAVDdc0Vtee/YmH4BVpSujs=
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztl71qwzAQxw/aPZvHQpesXUrJXLxmyZQ5kKwd/AKGDHmEQPsQBY99gLyW
a1EdVsTp23bOqf4gIusU6X6WdCc/7z42uwcAeO3KW1ceISsra0ZqlRL6rBcu
ovzVbb68ALdno97zPXCh5sZF7XeTz6Yz4stlmm9o2fyk7DHxAoj6FP6HcsWu
25Rr5trvJlbbfzgolotaK05K4cJ6jW2Hw4ELp+vdu2LGFdfl87s9nU71uC57
KYYLgOAsy7L9+rlw4RJynRMXc42/jJh8ZdqPlG0u8cWWW2251/QebqWUXOyT
q7koc7ljJyelcHFlQqXkb73OTal5LisrK+u/KCTmDRkfTWOtu/I+8hypfW39
Te3LrhwD56DGo/KUKZeH9DXN52pH28JiDx2Psrvmd/WN4RLrtbLYQ8ej7FNy
iXN1hn79m65sgV471/03xteQvr5ca9n2IouoF12p4I/vKcHP0P5DcjVK2wJ6
Rux7dozBlUvfR4JjL+uVtC0t43Dl0n0X56qR9ZW0bS3jcOXSfcczJjgLMO9F
HIsrF/peyWc8Y2v5jOupxw8fP9U+vt+VQ+Vl5KiUtjP0ayS4xb48QnjOHkMh
cUP4XChtW+jjPUAf9zl8x8fcN1B4xkLvHlMohQvPXMw9eGylcAmp+ZqTUrn2
cH334KJULq6au/9Zd6hfItbVDA==
               "], {{0, 0}, {54., 52.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 52.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztl71OwzAQx0+CvVtGJJaubKgzytqFKXOlzgx5gUgdsmTvyiOgPASvVXKq
j7hWzh9xUi7Bf8mSc3bP9+Pss3k+fLwfHgDgVbVHSEpKWpAuqun9i8f4UJMi
M36zz9kkcnGxLJ1L1xRcAOvkWmu+JHKhXPvJVg+538wlLj5uXOrfXJer3tnG
b2x1XVdzBsrIJ77Qekaton6e51JyyNUC27hpq0Dj+qO8mRrLxeZrBVzUr8j2
/fklictW33zO12+umqZZMhcMfFfII4SJ5LqLbG8Gn3eF1HfGFCxSuFwsYLG5
+KUohktavnSlfC0rXyhXfEuoGZx874Mhe1JSUtJ/Ukjdm7JGcr72XXubeY3Y
ubb5nH3btVPgGkP+XPf12Lncei47jW0s46H+QucNMfr6sfnHfO081vf1Fzpv
ai48V2fo8992rYDh3I19892ba69sL6phP+taCVe+pxFr+6zrMyeGq9VsG+gZ
ae7Z4UMql7mPkOOo+qUa21r8SOUyY8dz1ar+To0VFj9SuczY6YwhZwb8XiRf
vvHem4tiL9U3nbG9+qZ8mvXDtU7MvCnuZeIoNdsZ+hwhN+7LE4Tf2XMopG5g
zJlmK6Cv9wB93Zfwv/yY9waJzljo2+MeiuGiMzfmHTy3YrhQ+n0tSbFcR7h9
e0hRLJdULT3+pBXqB7Pf4aE=
               "], {{0, 0}, {54., 54.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 54.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVztuwzAMJdDu2TwW6JK1Q4Eic/csnTwHiNcOvoCBDN67+B4+RK+VWohY
q6o+pj4JHegBRGiSlvhCSZSfD58fhwcAeJ3kbZJHKCgoWBnOilCfdeECU766
bylfgNtzM/3P3HmZ1oQpX1W35ciFlytHkz8FL13Pmb+u2/wpeeUElRf+hvLL
UTMTQnnpti5hTimQglen/HKBbS25/LqtQ71pmtz7hgLfOrf1gX88v8bvc9/3
XfIMb4Pfuq2Mk20tmnw2Oze4eo+v516zX/mw5H4R06u5oPBy+7khhhdXToiY
3q3r3BDSu5e8V1BQUHCPoJx7Kc9I21j7Sd4zzxEb64q32beTnIhzmMZzfX/G
xNrm89nRt3H4qeOFxPliQ3iJeu0I8/vGC4nzxVJ4iX01wFz/cZIazLXz3YFD
cqXELuW1l7YXKUKvJmnhwu/J8z7Xeo2KbQMzR4wdPGNw5aWvI8HjKPVW+raO
cbjy0nMX+2qU+k76asc4XHnpueMeEzwrsK9FHGvpmUHhn4IX5t7KZ9xje/mM
9dTPD988oXG+2KW8kEer2AaYayR4i3V5AnrPzgHKuSFyrhRbDfN5DzCf+xy+
5UPuGwjcY9S7xzUQwwv3XMg9ODdieAmo/ZoTYnkd4e/dgwtieXHF2vMvuEP8
ABe2q68=
               "], {{0, 0}, {54., 51.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 51.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztlzFuwzAMRQm0ezaPBbpkLboUmbtn6ZQ5QOYOvgCBHMJzlx4gN+jJUgmV
YEUVKcqWZDvwAwhYFEPxVxatPh8/P44PAPCq7E3ZI6ys3B1XY6ljzheKqckY
PVfGR61RGklNS9QVWnPV9X8s1ViL0rpy18q9C1y9sVr9eCoHV8sQuPzUvNQ3
JSEtsfnQeYjlKQm3L/4zNy/RhUS+WuTU5RtmqzKdUrqmJlaPtPcN7YVUTA5i
OSX9WPJtonz+WrWI1YTA65TkcH9Xm1DdCPeryx3781y/jGmsheR8+eMUXVMi
3Sd/zPUY6rc1QZj2e1sChFXTEkBYNS0BhOGaUvpazh5I5dore4c8+1RSGxVP
+bfKfiBdU+g+FLsXU7F+vGS9mB/N3IaYp5D8vX0t0lyh2BRdaOysbMesK803
NC6nLlT2payDfv8vyg4Q3jvurhcjFpdLFyr7Nr4XY/q5UdbCn76nAWtT1NCF
xi6ObwO9RhvbRXLn6mehuVRdCPS9XOs4mefWzG2Z/HPTZfFr1+fqYp53Zu7A
5J+DLgz4/drtGdM6G6DfRbtGjjOTEhvqexjw29pbM7ZnbG/Gdj/9/iGp042R
9s2U7zLC7XlysTpax9dBv0dat34vz5D+zS6Bryvkt2Ndc+P4DtD3e4C+70/1
v7pL6j3KxZ6x1LtHDcbosmfunK+cbIzRpXG/13NirK4T3N495sJYXXNl6fWv
3Bm/GTvjjw==
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWDFuwzAMJNDu2TIW6JK16FJk7p6lU+YAmTv4AwTyiMxd+oD8oC9LJVSC
FVWkKEuy5cAHELAphrqzLFLO8+Hz4/AAAK/K3pQ9woIFd4mrsdR7zheKGRM5
eq6Mj5qjNiSc5qgrNGfLumJ5Oa6UhWJjv6W4DAHHhxqvrStHg8+fypmqlZsn
tu6+PwdDdUl8U6KkrtCznwq1dCGRbyzEnrOkblCxWIWxHLF3h+oD3HOYG7i6
h8y4tM5PAa4/IDEe6k1UvxpTG7eX3GskxlvV5SLEAYHnOEddCHm6Wt1f6PmH
rlcL9dPvu1z9l9ZD/3dTAGH6flsaCIumOQBh0TQHIAzXlFLbStZBKtdO2TuU
Waea2qh4yr9R9gPpmmLfMdz5guuDqfwpP5qxFTFOQfK8U8+CXEyKLjR2UrYV
zCvlMCQuFivVhcq+lJ2hX/+Lsj2E1y7n7FoiTqILlX0b34sxfb1W1sGfvqdI
3ho1IkcXGrs4vhX0Gm3sOZK7VD2TxnC6EG6/NdxYreNorjsztmHyt6bLwueu
99XFXG/N2J7J34IuDPh97naPaZ1roN9FO0eMZ+p+jOUM1T0M+C33ztzbPbYz
93Y9/foh5elyLV03EP5/u1tYHZ3jO0O/Rlq3fi9PkN6za8DXFfLbe8157fj2
0Nd7gL7ut/J/RIrfhd1jqWePMZCjy+65Uzk6xZCjS8Pt1y0hV9cRbs8erSBX
V6uYO/8Fd4ZfTC7NJw==
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVztuwzAMJdDu2TIW6JK16FJk7p6lk+cAmTv4AgRyiMxdeoDcoCdLJVSC
FYEUKf8qGX4AEemRlvgiibKfj58fxwcAeDX2ZuwRVqxYNG7OOO5GxHB9iZsL
cR4cJ/m5Z1LcVLgRFufw37q4vST5uX2Tq2EKXVQ+8ZxUvlqOGk8zBxB9jYZ4
7Lid8sf5cLnl6tLko8UQXWFOXP3T7GHquVSsBmPo0owzN5asi9sDnF/DITPe
nJD2cO4ZweB3KUCoS0+qjse+FC/t+zmhuWeQ8efcZ1ND+v/jfGrRFSOVIwr+
GnUh5Ouq4Xyh4Ke4EtYpBHXvpvxarhR9CHXdTxogrJpqAMKqqQYg9NeUU+fG
rIncWAdj7zDOOk2pjYvn+J2xH8jXJH2fpe6tnFhuPolH59swfg6a/5t6P+wb
m6MLnZ2N7YV5tfP0jZNitbrQ2JexC3RrfzXWAL121F6ZU5uGR2PfjntxZttb
Yy386XsSxp2qRvTVhc6uAbeBTqOPvQhjj1XPtLEpXQj33xphrNVxcu3W+XaJ
8UvT5RHnbs/V1bX3ztckxi9BFxJ8nLs/Y1bnFvi96OfIqdtcXjmxVN1Dgve5
t67vz9jB9f16xvVDk2cYo62bUmxc95DJw+toA+4C3RpZ3XZfniH/zp4CsS6K
932b8zbgGujqPUBX90v4ds+t/yH8Gct995gDQ3T5M3ceL53RMESXRXhfl4Sh
uk5w/+5RCobqKhW1579iYfgFIaG9OA==
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztV7FuAyEMtdTu2TJW6pK16lJl7p6l082RMne4H7CUoZ+QuUs/IH/QuV/Q
r0lBBR2hBuw7jtylPMkSPAz2C+Aj99vXl+0NADwqe1J2CxUVV4eTMWlfwp0i
fmNgiJ5U3j5HxcwNbvy56aJiVF1/+1WXTBdVY2I5cvLi+vThOKBiA/Bzk3Kl
kNrjkFYu9x90YSDGGCipy2orgdL7VQqpO5CzbgydIz3DqTnUuJ8Ll5PMocbG
QOi3C51BhPNaMVVdLri6fG7OujAwXnVdTheVk3v2QuNDuEsAoez3qQQQqqY5
AKFqmgMQ+mmS1LSc9S+01kbZs2kjDNunMbWF/EP8Stke5Jpib2W3n3pXU/6c
eCnejr1FxqXr9Ymf8pXqQmWfytbxtNjr9fHPretd2Rd0+39U1ihbBOZTxkUp
XR+GezCm20tlLfzqu+sRO4YSulDZt8MtoNNofQ+JNbi6OPuaQxdC91/D9dU6
dqbdmrFVZJ2cNX2oLoSulvu563t1NO21GWsi60/pHKLT93O3d0zrXEL4LNq1
cuyBxJfikOBt7q3p2zu2MX27n3794OTp+nDrpvS7jEDrsjpahztAt0datz6X
e6Drfmn4dQ8J3vZ1zkuHa6Cr9wBd3b/U/3QXft3z+RjsHZO+PUrAr3sun4K9
c/u8KWWBX/dcnoOjwLck+rznXezg/O0xFQzVNVXMPf+KK8EPvpYWQQ==
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVzFOAzEQHAn6dCmRaNIiGpSaPg1V6kipKe4DK6XgCalpeEB+QM0LeA3Y
wtYZx/baPtu5i26kFb5ZZ2+H9W6c+93ry+4GwKOwJ2G3mDHj6vBjmM1x/hD3
E8nVQGz+KXnaXMhfA9z7gTq6gHqazPit62XHjc3P5Dh/Sh+11sXVOjefGrrs
PZwu1zrk99XExXH+XI5DCV0cF5tLScy6husizztqwNcDIf+QGUClBQTAnROX
P5UjtNWUC19dOP/QGV8Tvp709RrhPH8wXCtdoe8ie63/EuI0uDiXrzZidBHK
6hrLOSQHN2Vd5PFPQZcrJ3uWl5iHdpxLgDCN76cUEGZNUwBh1jQFEPI0pcy1
kjPQF2sj7FmtCcPqVFObb7+PXwk7IF2THc91t/Tda0Ncav6h/4/0vQX8qfFy
93M5pvAk7FPYOuK9sTnk7i+l613YF/r6n4RthS08n3dZLFrp+lDcgzK5Xgrr
8Kfvjvn8GOtFwr4NboFeo957ZGLE6kqp6xBdhPPf7hJSx16tO+VbBeLUmOm5
ugj9LLdzl311Uuu18m0D8cd0Dsl4tnPXPSZ1LuE/izoWl2dqP3IxXT5y8Dr3
Tj3rHtuoZ11Pe37E5mnmWuMcEty6tI7O4I7oayR1y3N5gHvut4Y998jB62eZ
89LgtujnPdDP/Uv+Vtew557Nh6B7LPXu0QL23DN5DrrnDmVTKgJ77pl8DE4J
e1si5z5vYo//d4+xYKiusWLq+c+4EvwClBoosA==
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztV7FOAzEMtQR7t45ILF0RC+rM3oWpc6XODPcDljrwCZ1Z+ID+ATNfwNdA
IhJdMHFi95K0V+5JlnIvjuN3vvjubjfPT5srALg39mDsGiZMuEh8OaPXX8Jr
CRdbG/qWhkRPbj7FcXrp3qWQ2r+krlScmqhdLy4O3ZvLjfrk7o/kjEjrWUNX
zD83z3EtdNFxTV3SumnWaLgYStaL41qcc4pJ13BdyOxRC7n7meqHGs5ruyQg
jEOTpn+Xshaawvxj45BDJkcNVwO5usTG3LyWa9lLJbqQmT+nelH8R12YmT9n
XbH9vSZMzA+xUwFhHO8nDRAmTWMAwqRpDEA4TpOmr5XsgVyslbFHN0YYVqea
2jh/jl8Y24FeE41H30Wpd1TON5arVpefe0nMa+Md4091StdzPBp7N7bM7CuN
N8Q/d++l/KuxD+hrfzC2NjZj1g/5BpL6autC+TfH3Tmz47mxDn703WTW16hX
yk/Co7HPgJtBr9H77jMxNHmWuAc5XQh//58srI6tG3dubpGI07qnp3Qh9L2c
5m7P1cGNl25unYhf6znkfHO6PGju/oxZnXPgn0UfS9O3U3lJfWMcRnife+eu
/RlbuWtfT9o/JHmGPtLzlfOlPEJcl9fRBdwe+hpZ3fa53EG877cG7XsY4f21
zXkecGvo+z1A3/dP+a/uQfse5VPwZ0z77dECtO+FfA7+zO3KplQEtO+FvAQH
hW9LHPM9H2ILv789zgVDdZ0rxp7/hAvBNywDKa4=
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVztuwzAMfUC7Z8tYoEvWokuRuXuWTpkDZO7gCxDIITJ36QFyg54slRAJ
UlT9aEuOnPoBRGyKJvlMkVaed58fuwcAr0LehDxixox/g7OSkO7ssUk94z4X
81UDbh4hXWo9pEv5rAH3fdbgZccJxXb1ro3vOY4ul+MQnQ++tZL7JNQLQ/zH
co+tTY1XioNPV2L/xzi7cUvpavFydaGeroUxeYXilUTq3dXaJ1IoEXuKIBhu
9wJCu3xis9snuc+E/IyBWO6x9Vzx+RiTR01e8NzXxti87mkfun7GQG1eMd+1
kYqbOwtuNTP6gNDu96kvCDOnKYAwc5oCCP05cWZdybkY8rUR8o4ydboFt5Cf
lZAf8Dm5/lLf87623Dw0SK0tCvkrYT/UlpQchKwZvrixufZDbEnIl5AjTP1P
Qrbw127oWW8MWxLyrXQvSuT1UkiHC7+nRKzW6kVKTpZuAcNR2x4T8XJjc+ra
d24QzNxzfUgee3XdqbVVwI/9mxu7hq22J+vezV321Uldr9XaNhK3hX1IHls3
d91jkucS4b2o46Zic/qxT+8S/Lx07p261z22Ufe6nu784MTmzE2OLeG6n2xo
Hp2lO8LUSPKW+/IA/je7JgjX/eSrtcx5aem2MPMeMHO/lf/vhL/nvZzcdI9x
zx5jgOA/w+bw0j13KJhPCRDC5/LcvWR/r1sBRdZyc93j+uzROlqrwYwZk8Iv
U8T4fQ==
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztVzFuwzAMJNDu2TIW6JK1S1Fk7p6lU+YAydrBHzCQwU/I0KF/CNClD8i3
EqsVYVe1SNGyZabVAURkUpZ4oUjK95vXl80NADzW8lTLLWRkZFwRzoRwdneu
FnT5D4TOx7n9zlTg4gKEbmpeXWfj3GGnOLrrTM3L9Z+zS/xOkV++dSm9zz/f
e6G8UqAPL8rP0Hqo7Rzib+r/X4oYXjgu7bgEPeD++5D6V+J4t9tpid8Q57DE
8en941xVVTm8m2L0iRfA7/h9ydvnSQsvAy7/QzmXijiFIiTPQnqcJvjqYJeO
69tTQtpXJXZNyLz42qkJMby0ckL06XPXwi+2z2VkZGT8F0hq3pD10bfWqpbn
kfeInUvN9+kXtewFa0v6lG++ZG7bLtGjbUbYpet12bn9ubl9eJl4LQl7qD+U
LSUvk1cHaOJ/rGUN4bHTyGtldQ9WzHheSwHf/O4IP7i9umypeB1buhk0HHHu
gfCD2sdnT8XLrT2Gx9aOC2tbeN4JqdFT8XJ9N3l1tOOlta0FvnH7peLl+o45
ZnjOwX8WQ7lNxQt9L+wz5tjKPmM83frBfTv75nIYqi8jj6KlO0ATI8PbnMs9
yHv2GJDUDePzvKVbQ1PvAZq6r+E7vs99A4E51ufuMTZieGHOhd6DUyKGl0G7
X2tCLK8t/Lx7aEEsL624dv8z/iAuVyXbxA==
               "], {{0, 0}, {54., 52.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 52.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztl6FuwzAQhk/aeFnhpJHSsal4Ki0ZCq5UPJAXiFRQEh46ODj1DUb6WllO
sxfX8tm+2GmcyJ9k1bHPzv293MV5Pny8Hx4A4FW0R8hkMjOiFU3ttx7zppYK
uv96nxqj+lNC/cdcXSlp0okRL9P6qcm65qULoeqAbd61Ziwo/6j5FGu1jqve
2eZvxs7nczWmowQ+/nHqtNoqYo8pceWyT32oxG97/fppJ4qbzlBdxnjtdrsl
6JL9CoSm6+d3SrpsueGTX/+xqut6zrrAcF2hnkQ0SVx1zBUvfQ9jPD3uc2+o
swJXG8D0umx+6T7OMVZIiC7VTu9PTQxdqTyHKkvVhVB+2uZda1LB933AWZPJ
ZDJLhFP3YtZIaq99195Gvkeorc2eGt907cTY2/Wt5mPPsVXnOeNybmWZ5+7H
tTNp9N3Htj/Ga+txf86eITahujCvGujjf+laAf6xS1HXXoy9iIb9dddK+NP3
NMCfWDYhui7K2Ap6jdK2YfoSYhdTl157UMdR9EsxtyHWxK7nMXXpvmNeXUR/
K+aKAT76+mOzCdGl+y5zDHWugX4WubG6ty7peymuZY7txbWMp14/TN/DNjh5
GOO9LHWUylgDfYxQNz6XJ+C/s8eAUzfQ57UyVkBf7wH6up/Ct/yQ84ZE5tiQ
s8fYhOiSOed7Dr4nIboQ9X2dEqG6jnB79kiFUF2pMnf/MwvkF66axSI=
               "], {{0, 0}, {54., 54.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 54.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVztuwzAMJdDu2TIW6JK1Q4Eic/csnTwHiNcOvkCADL5AAd/Dh+i1UgsR
a1XVjxKVyIEeQEQWKfm9UJTk5/3nx/4BAF4ne5vsESoqKhaGs2LUZ5OVABNf
3efTY4q9FVzcTDGmMdfOl2l+E18bVz0uRJftvVxwcfRxo+gCjy8Xf71t83Po
4lyHXLpC+Pn0gGEMN2J14S+2j7y0ksGh66j8lgLfWnetIV3XuW3bnGuLCt9a
t50D/3R+jd/nvu+P7Axvg9+8LUxTyNkaaqXAd6a6/Kb2rUD975eYKwEuXQBl
aUvRBYZ2KbjXfAn4amWJ9YXwcbP5S9VTUVFRkROUvY9zn7TNtZvsPfM7UmNd
8bb+zWQnwtyus8p1ZsfGqn5KP/pWDj91vpg4X2yMLpGvLeH9IXNSYkJiKbpE
XQ0w53+crIHw3JWoayf7XqSJ9nqyDi76nhJ5UGJCYkN1jUrfCmaNGDskcIiJ
88WG6tL3HqHjINud9G0sY3Lt5xy6dO6irkbZ3kpfk8AxZgyHLp071pjQuQb7
WqTypKxXDl3IvZPPWGM7+Yz51PcP6nfwtfOFOjqlb4A5R0K3WJcnoJ/ZOUDZ
NwTntdLXwLzfA8z7fgnf8zH3DQTWWMzdIzdSdGHNhd6Dr4kUXQLqeV0SUnUd
4O/doxSk6ioVS+dfcYf4AeTOzY8=
               "], {{0, 0}, {54., 51.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 51.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztVzFuwzAMJNDu2TIW6JK16FJk7p6lU+YAmTv4AwTyiMxd+oD8oC9rJVSC
FUKUKFmybMMHELBIRr6zREp5Pn1+nB4A4FXZm7JHWLFicfg1ljrmfD4bG0P0
xHS00BXiQXN8v/HNsdT1CuWMjaXtQ4taumrsQ99cJfhy+TFfCYS4cHGpryV8
WmJxqW8shNaFPofiEh8y842FkrqoYRmKWailqzVifFL6ck4vrNXj3ffE4tLe
L+mXkm9SGyEeGujhlKKr9R728UbI0xXKGRucLndM41PehxaS+qLjOexDlx+S
MY3TsdTXCghtz9saQFg1zQEIq6Y5ACFfU0pvK30n9OGg7B3KrFNNbVw+598p
+wGZptBZKrkXc7mxuSHDjya2YeIcJN+bapHOxX03KQ80dlG2D7xXyqdUzhBd
qOxL2RX69b8pO4J87aQ1EssrpQuVfRvfizH9vFXWwb++pwiX0LtS80roQmM3
x7eBXqPNvSZyiaFmfSHw93Kt42yeOxPbeebIvYfX1mVBueu6upnnvYkdE7jF
UEMXevyUu60xrXML/F7MranSuhD8uiz3zoxtjR3M2K4n7R8p/3VT9m3KuYxw
X08urI7O8V2hXyOtW+/LC6Sf2TVAdfn8dqw5bx3fEfp+D9D3/Zb/1y1S71Eu
bI3l3D1qY4guW3OXcnSKYYguDfe8nhKG6jrD/d1jKhiqa6qYO/8VC8MfbV72
fA==
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztV7FuwyAQPands2Ws1CVr1aXK3D1Lp8yRMnfwD5yUj8jcpR+QP+iXtaCC
TC4ccICNHflJp+C7M3nPwAHPh8+PwwMAvCp7U/YICxbcJX6NSZ85n8/GRome
mI4WukI8aI7vHV8f9zpeoZwaPGk/qVxj37rVPAzx4eJD6cqdhyH+tB2KS7TG
/js2j3ORq8vna7nmKRZdMl3I9DcWYt85ZS3RXHR+WyI2d3zx0HfAOrRGRWiv
wUA8tc63QGh/QCZONbm+lrpCa8ltIxOfqi4XPt4It7wBZLpo3tjwjRFCua6p
jRcS/1x1uZyQ4SKth/SdVkCY5/4UAsKiaQ5AWDTNAQj5miT1rWYt5PraKXuH
OuM0pDYun/NvlP1AmqbQfuo7T4bOmtw+KOXP+dHEVkycQ8r35s7NOX1KdKGx
k7Jtwv9KeEhyUnJTdaGyL2Vn6Mf/omwP6WOXyrlGXoouVPZtfC/GdHutrIN/
fU+FPGrnxXShsYvjW0Gv0eaeCzjk5ufqQri+a7i5WsfRtDsT23j6yD2LD63L
gnLX6+pi2lsT22dwk/JKzeHqHvVT7naNaZ1r4Odi7lqJvRebB766hx6/5d6Z
Z7vGdubZjietH5L7rnTepupCuL27W1gdneM7Qz9GWreelyeQ79lDgOry+e2z
5rx2fHvo6z1AX/db39k1pOcoF3aN5Zw9hkaJLrvmTvXoVEOJLg13v54SSnUd
4frsMRWU6poq5s5/wZ3hD+175g8=
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVzFuwzAMJNDu2TIW6JK16FJk7t6lU+YAmTv4AwTyiMxd+oD8oC9LJVSC
FYKUKNlKLMMHELFIRr6zRMp+3n997h8A4NXYm7FHWLBg1rg4k3wXJkcap3y3
AuUh+VJx6T8xXy1cGKMc7q1L2kupuLRvcjXU0MXxoffk+Gp93HyaewAz1mig
c9PrWJzykbjl6tLw0WKIrpCT1P80e5j7XyxXgzF00d979GaKOeuS9oAU1/hQ
mO+WSD3j3BrB4HcuQGhLT6yP01jMn9r3t4TmnEEhnnOe1Ubq+VM+reiiiHHE
RLxFXQj5ulqoL0zEOd8U1ikEd+7G4lrfVPQhtHU+aYCwaGoBCIumFoBQrimn
z43ZE6W5Poy9wzjrVFOblC/5N8Z+QacpdgZRf+zcyskNcyROHNDFVkJcguZ5
c++Hpbk5utDZ0dg2cV/tnCU5mlytLjT2bewE/dqfje1Av3ZazmNo0/jR2I/z
vTiz12tjHfzrexrAoTQvlpvyo7Nz4FtBr9HnngrvP0Z+bn0hXH9rhLlWx8Fd
dy62YeYofSevrcuDcrd1dXbXWxfbDeCm5aXNlfoe9VPuvsaszjXIe7G0pnJ6
nUYXAq/Lc+/c2NfYhxv79aT9I+cbMWffpnJp30PGb+F1dIHvBP0aWd12Xx4h
/8yuAaqL8/ux5bwOfDvo+z1A3/en8O2e2/9D+BorefeojSG6fM0dx6MzGobo
sgjP6ylhqK4DXL97TAVDdU0VrfNfMDP8AbIbvDk=
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztV71OwzAQPgn2bh2RWLoiFtSZvQtT5kqdGfICJ3XgETqz8AB9A2aegKcp
trBl1/jnLrHdpPiTToo/X+Lvi+2Lc799fdneAMCjiCcRt9DQcHU4qeC2Odwp
klcCY/ykdLucb8zcoI4/N1++MZqvv+3mi+fLV2NiGim6qDlDOAp8YwPQtXG5
WkjNccgrlfsPvjAwRgnU9KW91UDt+aqF1B7IWTfG3sNdw6l7fP2uFirHucfX
VwKhdxdagwjntWKqvmxQfbncnH1hoL/5upwvnyZ77YX6x3CXAELd71MNIDRP
cwBC8zQHIAzzxKlpOetf6FkbEc/qGmHcPJX0FsoP8SsRe6B5ip29fefKUH6M
4+qPvR/Z9xbp5z5vyPipXK4vFPEpYh2XxXomNze3r3cRX2Dm/yiiE7FIaEyN
xc3N6etDcQ8q5PVSRA+//u6SSqfnC0V8W9wCjEede4iqpHuinGtz+EIw/xp2
rvSxU9e96lsFNOasGb5+ri8EU8td7XJfHdX1WvV1TH0xlFyHaLVd7XqPSZ9L
CK9Fzvqj3jfUF3p4rb1Xbb3HNqqt59OtH7HvrU8Ldd1yv8sIfl/aR29xBzBz
JH3LdbkHet0vCbfuoYfXbal5aXEdmHoPYOr+pf7Tbbh1z+Vj0HtsyNmjNNy6
Z/Mp6D23zyspC9y6Z/MUHBm5NTHkPG9jB+dnj6lgrK+pYu76G64EP3lxE0Q=

               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVzFuwzAMJNDu2TIW6JK16FJk7p6lU+YAmTvkAwQy9AmZu/QB+UHnvqCv
aSVUglVGFClZcuLABxCRj7R9F0m0fb95fdncAMCjiScTtzBhwtXhJwjKSfla
XG1o9dN8DsddtxW09x+br1AD1SPlh/IVW6+cPspp99HQvqRzS/Vcgq9UPec1
5LTzpD1Hw0mo4UvitFpqYvLV3xcy92gBbg+k8n16ANY2kIC0TmL5XA5hWE+l
4OZFypf2+CHWL7cnub2GcKofBC6Wa4HUs4iO/S+CzkOMG8pXCI0vhOv1Rbkx
+0ImPwZfMU20l9foh/Q65wDCOJ5POUCYPI0BCJOnMQChzFNOX6vZA7lrrUw8
uzFCv3lq6Y2r5/iFiT3oPKXev2Pvllx9isvVn/p/bO4tkc+9Xmm9pDGHRxOf
JpaK++boKKmt5evdxBd08380sTYxU2iQdJTU1vD14bgHF3Y8N7GDP393PXWU
1Pb1hSa+A24GnUdfe+ihgdbl1ObmPI9w+u1uYX1s3XjncgtGY4ueIdWlfCF0
vZxqt/vq6MZLl1sX6svRpa2RfHlQ7X6PWZ9z4Ndi6X8vnSetg1gOI7zXvnPH
fo+t3LGfT9o/Us9bTmuLdYgQ9+V97ALuAN0cWd92Xe5B3/dbgvY9jPD+2Gqe
B9waun4P0PX9c36re9C+R/kU/B4refdoDdr3Ql6C33P7upKqgPa9kNfgmFE7
JEre50Ns4f+7x6Wgr69Lxdj1T7gS/AIObRjA
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVztuwzAMJdDu2TIW6JK16FJk7p6lU+YAmTv4AgQy9AiZu/QAuUHnnqCn
SSRUglWFFPVzEhl+AAH7iZbesyRafty8v23uAOBZxYuKe5gwYZQ4mki9T+GO
gbwhUOJH0u1z1Ji1ETt+a76oMW7NF7VeQ/oojZKPVA+lvqR8qp3jJI2t+Ypd
bynPSJyEmvPFcbFaamLyVe4LmTGGgvQ+Q/UwhbPexgSENjxxtVlqz/0uXGL9
cnuS22sI5/pB4Ki2IcC9u5AvhDgPFHcpXy5ifCGM15fPtewLmfYWfFGa3LXH
tZdw1wJCG9+nFCBMnloAwuSpBSDkeUqpazVrINfXSsWruUYom6chvXH5HL9Q
sYM4T6HzN3W25PKlXK5/TlNI70egPbW/nHzunCM9z/Go4lvFUhg3pc/cXOnd
x/KfKn6gn/uDirWKWYQGSUdubuq8+PyX4Z5M6Ou5ig7+/D0UaCjJLfGFKn4d
bga9R5u7zxyfyquxFyVfCOf/7hrax9Zcd6ZtwWisXTNi8kO+EPpa7mvX++pg
rpembV2oL/fZHF8Wvna7x7TPOfBrMXefpNS6WF9I8FZ7Z+7tHluZezuffv2Q
vp9crgQp1+cRaF/WR+dwe+jnSPvW63IH8XV/SPh1Dwne3mvNc4dbQ1/vAfq6
f81/dQu/7vl8CHaP5Zw9hoZf91xegt1zu7qSqsCvey4fg0NC7iWRc553sYX/
Z49bQamvW0Xr+ieMBCdLWPLX
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVzFuQyEMfVK7Z8tYqUvWqkuVuXuXTpkjZe7wL2Aph8jcpQfIDXqyFFQQ
BMHH/JiE3/IkS3xjbL+ADXncfrxv7wA8K3lRco+Ojn+Dk5GU7hSxya0J1435
qoEwj5QuN5/ScX8TSYRxa/Dy46Rih/rQJrauRMflKMUrNh6bLz0n/jimu8R/
zE/KPjffMq/cWY/ppONy6kNCV4tXqEvVdC1ck1cqniRyv12tc6KFMrHnCILj
9ldAaJdP2AOuIbfklJtviVNpfCket7gTOq/O69r1FUMu9lx5jYHQ7v00FYTO
aQ4gdE5zAGE6p5I+J9kTU77elLxCZp9uwS3lZ6XkGzxOY3dQqOfchxxbTk4x
kJlbCPmTsL/UlozslawLfEnFr2FLSj6VHOD2/6hkA/7etcaLlHwZ3ZMRPV4q
GfDL76Fi/Bq2ZOTo6RZwHK3tQSh2SS+Y2jcIru+FPjSPnRkPZm6ViNtKz7D2
5H2Hueu6Oprx2sxtLow5dS3XliK2Ye62xjTPJdJnseRMcdeV2FoQ4rxs7oP5
tjX2Zr7tfob9o+QOLTm3JbaE83ryYXkMnu4At0eatz6Xe5Tf2TVBOK+n2F7r
nJeebgPX7wHX91v+787JzdbYlLdHbRDib1gOL1tze8F8JEBIv8u5Z8m/r1sB
jcxxc93h/O3ROlrbg46OWeEHlrwRcw==
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztl71ugzAQx09q92yMlbpk7VJVmbtn6cQcKVk78AKRMvAIeY+8YMq1PuEi
n8/GH5jIf8nC+A5zP46z4fXw/XV4AoD3oX0M7RmqqqpWpLulSXbumqVlil/v
u/CB4biEpLyYfLjrcufKdJ+7wb6mfHHPcG69uF6n3yNV/JVLrhUf5pQysUj2
3PU/RzG4zkkiC5P07KX1jLh++6fTqZT8zeWa5usRuAAYzoK4UFL925h1+7nv
+3Pc0JIrZK8qdf007TvSvmTrLyXfZ7/GXKFicQGUxRbCBYZ+KXrUfKGkWllj
fZGk2Dh7qTxVVVVVqeSz7sVcI7m59kP7THyPUF+bPze+HdrFc37b3hzbV7f7
jJNtY7Fzc0hzxvSdw4X52lnsPvdP5evDhXV1hTH/t6G1wOduDVx7NfamGvab
oXXwx/eSIVYfX1eumza2gZGRfK/MHPfJOaeluKYxIsdR9Ttl2zJzuPx3LMU1
jR3r6qb6O2VrPeaX/HJxTWOnGkPOBvh3UYqR88nFRbF36pxqbK/OKZ+m9YPm
c3kXXf+VY+3LxNFpY1cYc4Tc+F5ewG3PTi2fdQNjbrSxFsb1HmBc90v4l5/z
vUGiGnP59sitEC6qOZ/v4FwK4ULp+3VJCuU6wv9vj1IUylWq1h5/1QPqBxdi
CSQ=
               "], {{0, 0}, {54., 52.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 52.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztl7FugzAQhk9q92yMlbpk7VZlrlhZOjFHCmsHXiBSBh6B98gLplxrC9fi
bB829ED+pZOMbc73xdzZeT1/fZ6fAOBd2TNkZWVtSA9lZvsRMD5lUmTHb7ep
PolcVCxzuex5EpSSSxJb5toWF8oXn6seUu8sJSo+alxSXaPkq3eucQlcIfFx
80PblfDxn6JqgWuc5CrLMnMtq6RcTdNI4nLlRnB+4V7tjAt17bruxxaNlidf
HbM5Qlh98yUoBYsULh8LOPqkMtmK4aLmSVAKLol7tlculC9XtlAzKIWeB5x3
srKysvYoTt1LWSMpX9VgHwuvETvXNZ/qPw52Y/oPPatSzDXHOf167OAYp3yE
/OZz5ky9M4cL9+uUaH3Ouhy/HC7Mqx7G/b8PVgO9d1vgqlTfmzJsF4O18Mv3
MnP90Hi4fkO57kbfAUZGPbcnfDysZ5/W5rJjRI6Lardq7Ej44NzT1+ayY8e8
uqv2SY3VDP+U1uayY9c5hpwF0N+ia42peWtz6dhb9axzrFLPej+n6of2lyq/
TH+x57LmaI2+HsY9Qm78Lm8QdmYvLU7dwJgLo6+Gsd4DjHVfwn/5OfcNLZ1j
IXePtRXDpXOOcw9eSzFcKPO8lqRYrgv8vXtIUSyXVG09/qwd6huqPNWW
               "], {{0, 0}, {54., 54.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 54.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztV7FuwyAQPands3ms1CVrh0pV5u5ZOnmOFK8d/AORMvgT/B/+wRZarnYo
ZziD7XPLk05gOMF7ueMgj6f3t9MdADwre1F2DxkZGRvDhzHuN2USkEIPONq1
QHEL1UXNzwlXPlB8bY4xuux9UoLKdRd/F8e1dfn4U3tw8yrEf4lc5OrCdqyu
+fS5fFJjqi5s165nFFLp0u0lKbM4+O5IX81APV/9pmku89JlwZdPVB37pbOq
KmnaYvATt41ponLRNecblwKqRrjGQu+BNUBx8t1VvphJQ4wugFuNkpBCl8SY
pcpDabo0UtzdUhF7d2dkZGT8J3BqX8o6Sa11VPY68x6xvmP+1Phe2ZW5fuh9
lcJ3OM8Zx7ndyDy1RshvniqGU3TpeB0m7CtVlz5XLfTx75SVQMduC7qOZuzJ
mO4Xymr41vcQsIZEXd1gbAe9RvRtiTVc/xvHsLQum6PWcTb92sztiTU4b/Wl
ddnc9bnqTP9g5krm3hw+XN9QXTZ3PGNaZwF0Lvr2t/1S+YbqQu61+cYzdjTf
GE9X/Qjh4ePD9Q3VhTrqwVgLfYy0bp2XVwi7s+cGp25ozsVgrIS+3gP0dV/C
//kp7w0EnrGQt8fSiNGFZ47zDl4KMbo0hve1JMTqOsPt20MKYnVJxdb5Z/xB
fALLlaHD
               "], {{0, 0}, {54., 51.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 51.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztl7FuAyEMhi21e7aMlbpkrbpUmbtn6XRzpMwd7gUs5SEyd+kD5A36ZC2o
oCMIg80BdxfdL1k5DAF/AXzO8/Hz4/gAAK/K3pQ9wqpVd6dfY9I25QtZa43h
SXH4ny1ExTGGi/rOFCq5X6Hv+Gu00sol46pxFlO/WW4+oManfCUUi4Xq5/qm
VGr/KVaOr5VSZ7kkFxLztVJJLt+wTIhZqsU1tVLxULlOkrNjvlgeHavUfJyc
LGGm+t3PForFqYUQ5+TMAdCWyVUoboRyXP4arURxuW2/f6lcqTaHay5nkbNP
fpvrm0oI075vawhhZVqCEFamJQghn0mS20rXhCEdlL1DmX2qyUaNp/w7ZT/A
Z6LqcE5dTI2Nzev2S/xo+jZEf2yO1G/OrSs480q40NhZ2T6yrmR9bjzSeblc
qOxL2QWG/b8q64Deu9yaVbKv1HgOFyr7Nr4XY/p5q6yHf76nzPVTa3P6c7jQ
2NXxbWBgtGMvxBy5tXjN+4VA1+Wa42See9O3I+bOqcVrc1n5set7dTXPe9PX
CeOLqQYXBvx+7PaOac4t0GcxFaMkVsnYUN7DgN/G3pu2vWMH07b7Gcofdh1O
PuCeWcl7GeH2PrmyHL3ju8CwR5pbn8sz8N7ZteVzhfy2rWPeOr4OhnwPMOT9
Kf+vW0nrKFf2jnFqj9Yaw2Xv3LlcOMU0hkvLfV/PSWO5TnBbe8xFY7nmqqXH
v+rO9Af7EOCS
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztl71uAyEMxy21e7aMlbpkrbpUmbtn6XRzpMwd7gUs5SEyd+kD5A36ZC0o
oCPUBgzcp+4vWbkzhvMvHIZ7Pn5+HB8A4FXZm7JHWLVqkfo1Jr3nfJQNrRKe
GIf/O4S4PEq4uD5jqOZ8UX38Z5TkGRpXui6mwBWbf6o9hZFqp+KpGC4XTrH+
Eq7UehB7duw9zlWN+UoZZ2itXDIuZMYbUrF3mqtXnA+d36UIYZ48ofqMgfZY
3axVB3MU2h+QafeZKB+1RvtWaD9yr5FpD3GNxeSLyhuBzk0yX9T4Q4qaI4Rl
crn+uXLZZ7vrKbSvpdRDv89YQpjn/hQSwso0ByGsTHMQQj6TpL7VrIXcWAdl
71Bnnvpk4+I5/07ZD6QzcWdx6jwZOmty/aX5c340bRumPTRG7D+Xni1CMRIu
NHZWts94bmmukthULlT2pewC3fxflTXAz10OV624FC5U9m18L8b09VZZCze+
p4Sxp8SFxq6ObwMdo429MGPknsf7XF8I998abqzmOJnr1rTtmLFzzuN9c1n5
uet1dTXXe9PWZOYnySs1hqt7vt/P3a4xzbkF/l3MzTFlT5BwIdBcNvfW3Ns1
djD3dj6p+pGShxtTu24g/P92t7IcreO7QDdHmlu/l2dI27P7ls9F+e29znnr
+Bro6j1AV/fH/mbXkp6jXNk1lnL2GFolXHbNneulU00lXFrufj0llXKd4P7s
MRWVck1Vc89/1cL0BxBWt74=
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztVzFuwzAMJNDu2TIW6JK16FJk7t6lU+YAmTv4AwTyiMxd+oD8oC9LJVSC
FUKUKFm2JcMHELGONM2zKMl5Pn59Hh8A4FXZm7JHWLFi0bgZ47ibJ4Ybc/fR
/GOD1sZxMT+nYQ5dtJbSukrMF9dLMb+kl2i+EOe7N1dXqAdC9Uo5TkPsGZSX
aqC56XXIL32/c/bhEF30+aExzZnLSVFCF/2dcv/isGRdoT7O3TeQyTclYu84
dT2g87sUILSlJ3Q+UV+I52LngORsQsYv0TkVYu8foE1dFCFdGPFL+nYucDUi
pOtqYb4w4vdxNekCTy0Y8adwNQChrfNJAoRVUwtAWDW1AIR8TSl7Xcl9kcv1
oewdyszTmNq4eI7fKfsFuSbuLKJc6DxOiXVjuHp8QOPbMP5Qjtg7p7UPiU3R
hcbOyvaR5/pySHqpVG9KdaGyb2UX6Of+quwA/Nzl6EqJC8VKeFT2Y7gXY/p6
q6yDf31Pgtw16UJjV4fbQK/Rxl6YHClrRlKXNDakC+H+v4Ybq3WczHVnfDsm
d863+di6LGjtel1dzfXe+A4D68u9T6oLPTyt3a4xrXMLfC9Ka0xZi5JY376H
Ht7W3pmxXWMfZmzn07d/2OdIziRpz8Zi6b6HHl7D6ugc7gL9HGndui/PIDuz
xwbV5ePtWNe8dbgD9Ps9QL/v1/D/PXX/d2HXmOTbY2oM0WXX3LlcOcUwRJeG
e17XhKG6TnD/7VELhuqqFa3Xv2Jh+APtVt0Y
               "], {{0, 0}, {54., 49.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 49.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztVzFuwzAMJNDu2TIW6JK1S1FkLrJm6ZQ5QLJ28AcMZMgTAvQF3QrkA93y
LddqRVhVTYm0bIdJdQARWWSsO0gk5fv168v6BgAea3uq7RYyMjIuCJVj0uc2
04A2vr6Pqw/g/LooTl10ufFa0Nd+uf8ZEm1nneJM5Yg2XVQeh/K+jaekXvhr
DMVfqivGlVMvxjiDbeOQX1NNo9BVF/5eoy4cl/a32m63WnRSeRLy+3Mljk9v
H9V+vy+HpcxCH7q+bbFYVO+fJy26DGJ5QvU3nCvtuFSkiQtOj+X2Bi2g6l+o
L4X6+TkR4hWq95eyVwYputw4f3xu9KFLyzl0ca26DCieIX/sP1qQ2ucyMjIy
/gskda/PGkm9a1nb88BrpMaG4qn5WW27nt5P9S9OX4vdj6Xz6JsE/Nz3hOJi
68diu+gy+zUP+CXvomLG1GXy6gDN/h9rW0F87zTrWtq5B2tmPK2tgB99dwIe
nJixdB2duQk0GjH2EOARWofyj6XLrz1Gx8aOC+ubCbhw1kuJ5eryuZu8Otrx
3PpWAi4x/1i6fO6YY0bnFP6eRclaXK6SWK4u5F7YZ8yxpX3G/XTrh/8tzNkz
7rdlX30ZdRTO3AGaPTK6zbncAb9nDwlJ3TCcp87cCpp6D9DUfQ3f8l3uGwjM
McndYyyk6MKck9yDx0KKLgO3X2tCqq4N/L57aEGqLq24dP4ZV4gvaDTTIA==

               "], {{0, 0}, {54., 52.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 52.}}]}, {
             Graphics[
              Raster[CompressedData["
1:eJztmL1uwkAMxy21OxtjpS6s3SrmipWlU2YkWDvkBSIxsLAz9A068hB9rRCr
5+Z6zX0fwUH+S1aOs7n4hznn4Hnz8b55AIBXZY8gEokmpFaZPm4D/EPGRWb+
5tg2Z7JwYLJ9xlPn0iVcwsVFQ/3O5/e951qy5Wfzc+3Xunz9zuXnwBWSX8z+
0K2h8W63uzUnydYLXH6TsaG51WrVHg6HpnCOKUrlous9ctG4Udf2+/OLE5er
B4Tsr99aHY/He+JCNcjDhInk69eD9YGAGjriOch2XrDNDTHr11vKVxdwzHHm
0iVcwsVFvr42tV4oEolEonjF9PGSPd+21rqztyvfIzfWFW+bX3S2L7S+63md
GhtyX5vQN3P4Q9dJjR9iDF3HtT7Waxlw/5C1UmJLc+G+OkFf/3NnFfhrx5lr
reZelOF43lkNP3xPEXm4NDbXWZubQc9IsafIXHLiSnKZvQc5tmpcK98iIpec
uJJcZu64r85qvFS+KiKXnLiSXGbutMeQcw7/v4sx99L9Y3NR7rV6TXtsrV5T
PfX+kfIbOKauJZ7LxFFrcyfoa4Tc+L3cQ/gz+5qK6RuY81ybq6Dv9wB93+fw
30TKeYNEeyzm7DGWcrhoz8Wcg8dSDhdKf15zUi7XFv6ePbgol4urpp6/6A51
AaxDvwg=
               "], {{0, 0}, {54., 54.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 54.}}], 
             Graphics[
              Raster[CompressedData["
1:eJztWDtuwzAMJdDu2TwW6JK1Q4Eic/csnTIHSNYOvoCBDDlCth4iQ4/Qa6UW
KtaKI4miPjHT6gGCZYqx3rMoUs7j+v1tfQcAz3176ds9VFRU3BhORuPe25oE
2PiOx0L1AUyvy8UpRpfpXxK2eLDxNfu2OOLG53ienPBxtI1L00Xxd80Rwpsa
p95FCXB14TV23VzvJDdideEV+11eWsnIoaszrlLgiiXf+NjWYX+73ZbO3RxQ
se6qAxc6Pz6/Tvv9vsvOcBr8rtuNaXLFom2MskuBLfe5bKF1YApQZwtfrfKt
mTSk6AI41ygJOXRJXLNccShNl0KO2i0VqbW7oqKi4j+Bk/ty5knXs5Z9ey08
R6qvz99ln/dtl+n5rhoWUtuoOs6149jMMx76nFR/iiP3N2q9FpnmL+XL0aX2
1QGG9T/2bQX02knWtdS2J91Uv+lbCz/6HiLnL+Ubquto2GYwaETfQwKHGD/K
N1TXOPcoHRvdb/XYPJJDjB/lG6przF3tq6PuL/TYKpJDjB/lG6przB33mNLZ
wGUsur4pKZ4c/Tl0IfdW3+MeW+p7XE8zf/j+E+Dy4fqG6kIdrWE7wLBGSreK
yx2E1+yS4OQNxbkxbCsY8j3AkPclfM/HnDcQuMc4Z49rIUUX7jnOOfhaSNGl
YNZrSUjVtYHzs4cUpOqSilvnX/EH8Q0viK29
               "], {{0, 0}, {54., 51.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {0, 51.}}]}}, {{
             Graphics[
              Raster[CompressedData["
1:eJztVztuwzAMJdDu2TwW6JK1S1Fk7p6lU+YAydrBFzCQIUcI0B6iQMYeINdy
LVSsFUHUx5JsOtUDiMgkI/OBIik/bt/ftncA8NzJSyf3UFBQMCO0ioQ+m4QD
TPHqNl9+ANPzomIawkv154JU+VL/kxOms07FTNUIN15UHdvq3hRnSL/Q35Er
/lBerlh9+sUYZ9C0ttk59TQKQ3nh7y3ywnUjf9v9fs+FJ1UnNruua3B9+fhq
j8djkzdkL6Tg9Sef3xcuvARcdULNN51nw4iTL6i8mWwuPRfY+js1l1xzbgrE
zGJbzrghhhfANUdOSMGLY85SnUNuvARSzDmuiJ1zBQUFBf8FIX0vZY+k9lp3
8pr5HbG+Nn9Kv+zkELi/76xK4avaQ/RoW1js1B6uPVP6DuEl8rWy2EPen8s3
hJeoqxP0+T93sgE6d3PgtZa6JyliXXVSwy+/B8c+rrqfitdZ0S2g54i+p4A4
fHzG4qX3HsFjJ9e1tC0t+3DNlx67qKuzXK+kbTPg/bl8fXnpsWONCZ4VmM/i
HHhh7LV8xhpby2fMp94/Qr6BU/r66pFHrehO0OdI8Bbn8gB+Mzs3QvqGiLlS
dBvo+z1A3/c5fMsPuW8gsMZ87h5jI4YX1lzIPXgsxPASUOc1J8Ty2sH13YML
YnlxxdzjL7hB/AC+6N22
               "], {{0, 0}, {54., 52.}}, {0, 255}, ColorFunction -> RGBColor],
               Background -> None, ImageSize -> 53.64583333333333, 
              PlotRange -> {{0, 54.}, {
                0, 52.}}]}}}, $CellContext`graphicList = {{1, 0, 0}, {2, 0, 
          0}, {2, 1, 0}, {2, 1, 1}, {3, 0, 0}, {3, 1, 0}, {3, 1, 1}, {3, 2, 
          0}, {3, 2, 1}, {3, 2, 2}, {4, 0, 0}, {4, 1, 0}, {4, 1, 1}, {4, 2, 
          0}, {4, 2, 1}, {4, 2, 2}, {4, 3, 0}, {4, 3, 1}, {4, 3, 2}, {4, 3, 
          3}, {5, 0, 0}, {5, 1, 0}, {5, 1, 1}, {5, 2, 0}, {5, 2, 1}, {5, 2, 
          2}, {5, 3, 0}, {5, 3, 1}, {5, 3, 2}, {5, 3, 3}, {6, 0, 0}, {6, 1, 
          0}, {6, 1, 1}, {6, 2, 0}, {6, 2, 1}, {6, 2, 2}, {7, 0, 0}, {7, 1, 
          0}, {7, 1, 1}, {8, 0, 0}}, $CellContext`getNLM[
           Pattern[$CellContext`p, 
            Blank[]]] := ({$CellContext`n, $CellContext`l, $CellContext`m} = 
          Part[$CellContext`atomList, $CellContext`p, 
            Span[2, All]]), $CellContext`atomList = CompressedData["
1:eJwNkWVzHDEQBWdG0t6ZmR0zU8wYM0Ni+8wcn5kZfr77Q1e/91Sl2lpVJ58S
SRORb/CgKmLgGD0EU40YYjgOKeRUnOZE0iHDqWY6lSycDTnkXJzHZflQ4MwK
nWkRFxbjEnoplJHL2X7hCnqlV63yKtW4BmrJdbg+iDRAozdr8qbNfFQLbqW3
QTu5g+037qR3BdXuoNKDe6GP3I8HIpFBGApmw965Ee/sj3c66p2M4XH6BPsk
TJGn2WY4m8Vz9Hn2BX7GYjBZwsvcswJ/yf/YVvEafT1STUQqG3gTtsjbeCcm
sgt7kdl+cO4gODsMTo+Ck2N8Qv/PfgpJ8hnbOWcX+JJ+xX7NQ9xEJrf4jnvu
4YH8yPaEn+kvMdXXmMobfocP8if+ivPG8APZ/SHd
          "], $CellContext`get120[
           Pattern[$CellContext`p, 
            Blank[]]] := If[
           IntegerQ[
            $CellContext`position[$CellContext`e8, $CellContext`p]], 
           Ceiling[
            Abs[
            121 - $CellContext`position[$CellContext`e8, $CellContext`p] - 
             0.1]], 120], $CellContext`count[
           Pattern[$CellContext`x, 
            Blank[List]], 
           Pattern[$CellContext`y, 
            Blank[]]] := Count[
           N[
            Round[$CellContext`x, $CellContext`cntChop]], 
           N[
            
            Round[$CellContext`y, $CellContext`cntChop]]], \
$CellContext`cntChop = 
         0.039810717055349734`, $CellContext`triListExp = {$CellContext`T1, \
$CellContext`T1p, $CellContext`T2, $CellContext`T2p, $CellContext`T4, \
$CellContext`T4p}, $CellContext`T1 = {{(-1)/2, 1/2, 1/2, (-1)/2, 0, 0, 0, 
            0}, {(-1)/2, 1/2, (-1)/2, 1/2, 0, 0, 0, 0}, {(-1)/2, (-1)/2, 1/2, 
            1/2, 0, 0, 0, 0}, {1/2, 1/2, 1/2, 1/2, 0, 0, 0, 0}, {
           0, 0, 0, 0, 1/2, 1/2, 1/2, 1/2}, {
           0, 0, 0, 0, (-1)/2, 5/6, (-1)/6, (-1)/6}, {
           0, 0, 0, 0, (-1)/2, (-1)/6, 5/6, (-1)/6}, {
           0, 0, 0, 0, (-1)/2, (-1)/6, (-1)/6, 5/
            6}}, $CellContext`T1p = {{(-1)/2, 1/2, 1/Sqrt[2], 0, 0, 0, 0, 
            0}, {(-1)/2, 1/2, -(1/Sqrt[2]), 0, 0, 0, 0, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 
           0, 0, 0, 0}, {0, 0, 0, 0, 1/2, Sqrt[3]/2, 0, 0}, {
           0, 0, 0, 0, -Sqrt[3]/2, 1/2, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 
           0, 0, 0, 0, 0, 0, 1}}, $CellContext`T2 = {{1, 0, 0, 0, 0, 0, 0, 
           0}, {0, 0, 0, -1, 0, 0, 0, 0}, {0, 1, 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, -((Sqrt[3/2]/2 + 1/(2 Sqrt[6]))/Sqrt[
             6]), -((Sqrt[3/2]/2 + 1/(2 Sqrt[6]))/Sqrt[6]), 
            Sqrt[2/3] (Sqrt[3/2]/2 + 1/(2 Sqrt[6]))}, {
           0, 0, 0, 0, 0, 1/2 - (-Sqrt[3/2]/2 + 1/(2 Sqrt[6]))/Sqrt[
            6], (-1)/2 - (-Sqrt[3/2]/2 + 1/(2 Sqrt[6]))/Sqrt[6], 
            Sqrt[2/3] (-Sqrt[3/2]/2 + 1/(2 Sqrt[6]))}, {
           0, 0, 0, 0, 0, (-1)/3, 2/3, (-1)/3}}, $CellContext`T2p = {{1, 0, 0,
            0, 0, 0, 0, 0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {
           0, 1/Sqrt[2], 1/2, 1/2, 0, 0, 0, 0}, {
           0, 1/Sqrt[2], (-1)/2, (-1)/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, (-1)/2, -Sqrt[3]/2}, {
           0, 0, 0, 0, 0, 0, Sqrt[3]/2, (-1)/2}}, $CellContext`T4 = {{(-1)/2, 
            1/2, 1/2, (-1)/2, 0, 0, 0, 0}, {(-1)/2, 1/2, (-1)/2, 1/2, 0, 0, 0,
             0}, {(-1)/2, (-1)/2, 1/2, 1/2, 0, 0, 0, 0}, {
           1/2, 1/2, 1/2, 1/2, 0, 0, 0, 0}, {
           0, 0, 0, 0, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
           0, 0, 0, 0, 1/2, 1/2, (-1)/2, (-1)/2}, {
           0, 0, 0, 0, 1/2, (-1)/2, 1/2, (-1)/2}, {
           0, 0, 0, 0, 1/2, (-1)/2, (-1)/2, 1/2}}, $CellContext`T4p = {{(-1)/
            2, 1/2, 1/Sqrt[2], 0, 0, 0, 0, 0}, {(-1)/2, 1/2, -(1/Sqrt[2]), 0, 
            0, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0, 0, 0}, {0, 
           0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, (-1)/2, -Sqrt[3]/2, 0, 0}, {
           0, 0, 0, 0, Sqrt[3]/2, (-1)/2, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0,
            0, 0, 0, 0, 0, 0, 1}}, $CellContext`noNull[
           Pattern[$CellContext`in, 
            Blank[List]]] := Module[{$CellContext`i = Length[
              First[$CellContext`in]], $CellContext`tmp = 
            DeleteCases[$CellContext`in, 
              Alternatives[Null, {}], 2], $CellContext`out = {}}, 
           If[$CellContext`i < 2, $CellContext`out = $CellContext`tmp, 
             Map[If[$CellContext`i == Length[
                 $CellContext`noDups[#]], 
               
               AppendTo[$CellContext`out, #]]& , $CellContext`tmp]]; \
$CellContext`out], $CellContext`thck = 0.001, $CellContext`numCyls = 
         0, $CellContext`thck2 = 
         0.003, $CellContext`dlPtDef = {-0.2, -1.3}, $CellContext`tipTxtMass[
           Pattern[$CellContext`x, 
            Blank[]]] := Style[
           StringJoin["m=", 
            ToString[
             ScientificForm[
              $CellContext`pMass[$CellContext`x], 4], FormatType -> 
             StandardForm]], Medium], $CellContext`tipTxtLife[
           Pattern[$CellContext`x, 
            Blank[]]] := Style[
           StringJoin["\[Tau]=", 
            ToString[
             ScientificForm[
              $CellContext`pLife[$CellContext`x], 4], FormatType -> 
             StandardForm]], Medium], $CellContext`cylBreakPnt = 
         120, $CellContext`forceCyl = False, $CellContext`centerSpin = 
         False, $CellContext`coxeterProjTbl = {{{1/2, 0, 0, 0, 0, 0, 0, 0}, {
            0, 1/2, 0, 0, 0, 0, 0, 0}, {1/2, 1/2, 0, 0, 0, 0, 0, 0}}, {{
            1/2, 1/4, (-1)/4, 0, 0, 0, 0, 0}, {
            0, Sqrt[3]/4, Sqrt[3]/4, 0, 0, 0, 0, 0}, {(1/2 + Sqrt[3]/2)/
             2, (1/2 - Sqrt[3]/2)/2, (-1)/2, 0, 0, 0, 0, 0}}, {{
            1/2, 1/(2 Sqrt[2]), 0, (-1)/(2 Sqrt[2]), 0, 0, 0, 0}, {
            0, 1/(2 Sqrt[2]), 1/2, 1/(2 Sqrt[2]), 0, 0, 0, 0}, {
            1/Sqrt[2], (-1)/2, 0, 1/2, 0, 0, 0, 0}}, {{
            1/2, (1 + Sqrt[5])/8, (-1 + Sqrt[5])/8, (1 - Sqrt[5])/
             8, (-1 - Sqrt[5])/8, 0, 0, 0}, {
            0, Sqrt[5/8 - Sqrt[5]/8]/2, Sqrt[5/8 + Sqrt[5]/8]/2, 
             Sqrt[5/8 + Sqrt[5]/8]/2, Sqrt[5/8 - Sqrt[5]/8]/2, 0, 0, 
             0}, {(Sqrt[5/8 - Sqrt[5]/8] + (1 + Sqrt[5])/4)/
             2, ((1 - Sqrt[5])/4 - Sqrt[5/8 + Sqrt[5]/8])/
             2, ((1 - Sqrt[5])/4 + Sqrt[5/8 + Sqrt[5]/8])/
             2, (-Sqrt[5/8 - Sqrt[5]/8] + (1 + Sqrt[5])/4)/2, (-1)/2, 0, 0, 
             0}}, {{1/2, Sqrt[3]/4, 1/4, 0, (-1)/4, -Sqrt[3]/4, 0, 0}, {
            0, 1/4, Sqrt[3]/4, 1/2, Sqrt[3]/4, 1/4, 0, 0}, {(1/2 + Sqrt[3]/2)/
             2, ((-1)/2 - Sqrt[3]/2)/2, 1/2, (1/2 - Sqrt[3]/2)/
             2, (1/2 - Sqrt[3]/2)/2, 1/2, 0, 0}}, {{
            1/2, Cos[Pi/7]/2, Sin[(3 Pi)/14]/2, Sin[Pi/14]/2, -Sin[Pi/14]/2, -
             Sin[(3 Pi)/14]/2, -Cos[Pi/7]/2, 0}, {
            0, Sin[Pi/7]/2, Cos[(3 Pi)/14]/2, Cos[Pi/14]/2, Cos[Pi/14]/2, 
             Cos[(3 Pi)/14]/2, Sin[Pi/7]/2, 0}, {(Cos[Pi/7] + Sin[Pi/7])/
             2, (-Cos[(3 Pi)/14] - Sin[(3 Pi)/14])/
             2, (Cos[Pi/14] + Sin[Pi/14])/2, (-Cos[Pi/14] + Sin[Pi/14])/
             2, (Cos[(3 Pi)/14] - Sin[(3 Pi)/14])/2, (Cos[Pi/7] - Sin[Pi/7])/
             2, (-1)/2, 0}}, {{
            1/2, Cos[Pi/8]/2, 1/(2 Sqrt[2]), Sin[Pi/8]/2, 0, -Sin[Pi/8]/
             2, (-1)/(2 Sqrt[2]), -Cos[Pi/8]/2}, {
            0, Sin[Pi/8]/2, 1/(2 Sqrt[2]), Cos[Pi/8]/2, 1/2, Cos[Pi/8]/2, 1/(
             2 Sqrt[2]), Sin[Pi/8]/2}, {(Cos[Pi/8] + Sin[Pi/8])/
             2, -(1/Sqrt[2]), (Cos[Pi/8] + Sin[Pi/8])/2, (-1)/
             2, (Cos[Pi/8] - Sin[Pi/8])/2, 0, (-Cos[Pi/8] + Sin[Pi/8])/2, 1/
             2}}, {{1/2, 1/4, (-1)/4, (-1)/2, (-1)/4, 1/4, 0, 0}, {
            0, Sqrt[3]/4, Sqrt[3]/4, 0, -Sqrt[3]/4, -Sqrt[3]/4, 0, 
             0}, {((-1)/2 - Sqrt[3]/2)/2, ((-1)/2 + Sqrt[3]/2)/2, 1/
             2, ((-1)/2 - Sqrt[3]/2)/2, ((-1)/2 + Sqrt[3]/2)/2, 1/2, 0, 
             0}}, {{
            1/2, 1/(2 Sqrt[2]), 0, (-1)/(2 Sqrt[2]), 1/2, (-1)/(2 Sqrt[2]), 0,
              1/(2 Sqrt[2])}, {
            0, 1/(2 Sqrt[2]), 1/2, 1/(2 Sqrt[2]), 0, (-1)/(2 Sqrt[2]), (-1)/
             2, (-1)/(2 Sqrt[2])}, {-(1/Sqrt[2]), 1/2, 0, (-1)/
             2, -(1/Sqrt[2]), (-1)/2, 0, 1/2}}, {{(1 - Sqrt[3])/2, 0, 1/2, 1/
             2, 0, 0, 0, 0}, {0, (-1 + Sqrt[3])/2, (-1)/2, 1/2, 0, 0, 0, 0}, {
            1, 0, ((-1)/2 + Sqrt[3])/2, ((-1)/2 + Sqrt[3])/2, 0, 0, 0, 
             0}}, {{-0.18479253090409503`, 
             0.18479253090409517`, -0.06417777247591215, 
             1, -0.3472963553338604, 0.3472963553338602, 0, 0}, {
            0.6840402866513372, 0.6840402866513374, 0, 0, 
             0.23756469845553865`, 0.23756469845553885`, 0.3639702342662021, 
             0.3639702342662021}, {-0.18479253090409503`, 
             0.18479253090409517`, -0.06417777247591215, 
             1, -0.3472963553338604, 0.3472963553338602, 0, 0}}, {{
            0.594095480117793, 0.392376873691752, 0.193033322933216, 
            0.107623126308248, 
            0.0940954801177932, -0.455898878992783, -0.416640120683195, \
-0.232292081242804}, {-0.0940954801177932, 0.455898878992783, 
            0.416640120683195, 0.232292081242804, 0.594095480117793, 
            0.392376873691752, 0.193033322933216, 
            0.107623126308248}, {-(1/Sqrt[2]), 1/2, 0, (-1)/
             2, -(1/Sqrt[2]), (-1)/2, 0, 1/2}}, {{
            1/2, (-1)/4, 1/(2 Sqrt[2]), 1/(4 Sqrt[2]), 0, 0, (-1)/(2 
             Sqrt[2]), (-1)/(4 Sqrt[2])}, {
            0, 0, 1/(2 Sqrt[2]), 1/(4 Sqrt[2]), 1/2, 1/4, 1/(2 Sqrt[2]), 1/(4 
             Sqrt[2])}, {-(1/Sqrt[2]), (-1)/(2 Sqrt[2]), 1/2, 1/4, 0, 0, (-1)/
             2, (-1)/4}}, {{
            0, -0.5567934404522487, 0.1969492517703763, -0.1969492517703763, 
             0.08054772639440973, -0.38529087617102353`, 0, 
             0.38529087617102353`}, {
            0.18091315553621942`, 0, 0.16021295504274685`, 
             0.16021295504274685`, 0, 0.09901705165447641, 0.7663604248754179,
              0.09901705165447641}, {
            0, -0.08054772639440973, -0.1969492517703763, 0.1969492517703763, 
             0.5567934404522487, 0.38529087617102353`, 
             0, -0.38529087617102353`}}, {{
            1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2],
              0, 0, 0, 0, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0, 0, 0}}, {{
            1/Sqrt[3], 1/Sqrt[3], 1/Sqrt[3], 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), 0,
              1/Sqrt[2], 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, 0, 0,
              0, 0}}, {{
            1/2, 1/2, 1/2, 1/2, 0, 0, 0, 0}, {(-3)/(2 Sqrt[5]), (-1)/(2 
             Sqrt[5]), 1/(2 Sqrt[5]), 3/(2 Sqrt[5]), 0, 0, 0, 0}, {
            3/(2 Sqrt[5]), 1/(2 Sqrt[5]), (-1)/(2 Sqrt[5]), (-3)/(2 Sqrt[5]), 
             0, 0, 0, 0}}, {{
            1/Sqrt[5], 1/Sqrt[5], 1/Sqrt[5], 1/Sqrt[5], 1/Sqrt[5], 0, 0, 
             0}, {-Sqrt[2/5], -(1/Sqrt[10]), 0, 1/Sqrt[10], 
             Sqrt[2/5], 0, 0, 0}, {-Sqrt[2/5], -(1/Sqrt[10]), 0, 1/Sqrt[10], 
             Sqrt[2/5], 0, 0, 0}}, {{
            1/Sqrt[6], 1/Sqrt[6], 1/Sqrt[6], 1/Sqrt[6], 1/Sqrt[6], 1/Sqrt[6], 
             0, 0}, {-Sqrt[5/14], (-3)/Sqrt[70], -(1/Sqrt[70]), 1/Sqrt[70], 3/
             Sqrt[70], 
             Sqrt[5/14], 0, 0}, {
             Sqrt[5/14], 3/Sqrt[70], 1/Sqrt[70], -(1/Sqrt[70]), (-3)/Sqrt[
             70], -Sqrt[5/14], 0, 0}}, {{
            1/Sqrt[7], 1/Sqrt[7], 1/Sqrt[7], 1/Sqrt[7], 1/Sqrt[7], 1/Sqrt[7], 
             1/Sqrt[7], 0}, {(-3)/(2 Sqrt[7]), -(1/Sqrt[7]), (-1)/(2 Sqrt[7]),
              0, 1/(2 Sqrt[7]), 1/Sqrt[7], 3/(2 Sqrt[7]), 0}, {(-3)/(2 
             Sqrt[7]), -(1/Sqrt[7]), (-1)/(2 Sqrt[7]), 0, 1/(2 Sqrt[7]), 1/
             Sqrt[7], 3/(2 Sqrt[7]), 0}}}, $CellContext`coxSubs = {
          "D+1=BC2", "D+1=BC3", "D+1=BC4", "D+1=BC5", "D+1=BC6", "D+1=BC7", 
           "D+1=BC8", "A5(6)", "A7(8)", "E6(12)", "E7(18)", "20", "24", 
           "E8(30)", "Pascal2", "Pascal3", "Pascal4", "Pascal5", "Pascal6", 
           "Pascal7"}, $CellContext`doParticle := 
         Module[{$CellContext`p0$, $CellContext`p1$, $CellContext`c1$}, \
$CellContext`spList = {
              Overscript["L", "\[Vee]"], 
              Overscript["R", "\[Wedge]"], 
              Overscript["L", "\[Wedge]"], 
              Overscript["R", "\[Vee]"]}; $CellContext`p0$ = 
            Part[$CellContext`flavorListStr, $CellContext`r1$$ = \
$CellContext`position[$CellContext`flavorRows, $CellContext`r0$$], 
              If[$CellContext`r1$$ == 1, $CellContext`c0$$ = "w"]; If[
                And[
                 And[$CellContext`r1$$ > 1, $CellContext`r1$$ < 5], 
                 
                 Or[$CellContext`c0$$ == "w", $CellContext`c0$$ == 
                  "\" \""]], $CellContext`c0$$ = "r"]; 
              If[$CellContext`r1$$ == 5, $CellContext`c0$$ = 
                "\" \""]; $CellContext`c1$ = If[
                 Or[$CellContext`c0$$ == "w", $CellContext`c0$$ == "\" \""], 
                 1, $CellContext`position[$CellContext`colorList, \
$CellContext`c0$$] - 5]; $CellContext`ptype$$, $CellContext`g0$$ = 
               If[$CellContext`r1$$ > 2, 0, 
                 If[
                  And[$CellContext`r1$$ < 3, $CellContext`g0$$ == 0], 
                  1, $CellContext`g0$$]]; 
              If[$CellContext`r1$$ > 
                2, $CellContext`c1$, $CellContext`g0$$]]; $CellContext`s1$$ = 
            If[$CellContext`r1$$ == 3, 
              Part[$CellContext`spList, 1], $CellContext`s0$$]; 
           If[$CellContext`r1$$ == 4, 
             
             If[$CellContext`s0$$ == 
              Part[$CellContext`spList, 4], $CellContext`s0$$ = 
              Part[$CellContext`spList, 
                2]]]; $CellContext`p1$ = \
$CellContext`spConv[$CellContext`anti$$, $CellContext`p0$, $CellContext`c0$$, \
$CellContext`s1$$]; If[
             Or[$CellContext`localize, $CellContext`refresh$$], 
             $CellContext`addParticles[{$CellContext`p1$}]]; Text[
             Grid[{{
                $CellContext`pDisp[$CellContext`p1$]}, {
                $CellContext`pToolTipTxt[$CellContext`p1$]}}]]], \
$CellContext`flavorRows = {
          "l", "q", "\[Omega]g", "\[Phi]\[CapitalPhi]", 
           "Ex"}, $CellContext`s1$$ = 
         "HeptaHepteHeptiHexiPentiSteriRunciCantiPentellated", \
$CellContext`doMeson := Module[{}, If[
             Or[$CellContext`localize, $CellContext`refresh$$], 
             $CellContext`addParticles[{
               $CellContext`spConv[
               False, $CellContext`q2a$$, $CellContext`c2a$$, \
$CellContext`s2$$], 
               $CellContext`spConv[
               True, $CellContext`q2b$$, $CellContext`c2a$$, \
$CellContext`s3$$]}]]; Column[{
              Graphics3D[{
                Sphere[{0.05, -0.45, 0}, 0.5], 
                Text[
                 Style[
                  ReplaceAll[$CellContext`q2a$$, $CellContext`qConvDoAnti], 
                  48, Bold], {0.05, -0.45, 0}], Gray, 
                Sphere[{0.3, 0.6, 0}, 0.5], 
                Text[
                 Style[
                  ReplaceAll[$CellContext`q2b$$, $CellContext`qConvDoAnti], 
                  48, White, Bold], {0.3, 0.6, 0}], 
                Opacity[0.5], Gray, 
                Sphere[{0.15, 0, 0}, 1]}, 
               ImageSize -> {$CellContext`imageSize, 175}, Boxed -> False], 
              Graphics[
               Scale[{
                 $CellContext`txt["Spin\[Dash]0 Mesons", {250, 375}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(K\), \(0\)]\)", {200, 325}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(K\), \(+\)]\)", {300, 325}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[Pi]\), \(-\)]\)", {150, 275}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[Pi]\), \(0\)]\)", {250, 260}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[Pi]\), \(+\)]\)", {350, 275}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[Eta]\), \(0\)]\)", {230, 290}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[Eta]\), \(0\)]\)'", {270, 290}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(K\), \(-\)]\)", {200, 225}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[OverscriptBox[\(K\), \(_\)], \
\(0\)]\)", {300, 222}]}, 0.75], ImageSize -> {$CellContext`imageSize, 100}], 
              
              If[$CellContext`more$$, $CellContext`qc = \
$CellContext`symQuarkContent[
                 "Meson", {$CellContext`q2a$$, $CellContext`q2b$$}]; Row[{
                  Length[$CellContext`qc], 
                  " Mesons with this quark content. These are: ", \
$CellContext`qc}], Null]}]], $CellContext`qConvDoAnti = {
          "BottomQuark" -> "b", "BottomQuarkBar" -> 
           "\!\(\*OverscriptBox[\(b\), \(_\)]\)", "CharmQuark" -> "c", 
           "CharmQuarkBar" -> "\!\(\*OverscriptBox[\(c\), \(_\)]\)", 
           "DownQuark" -> "d", "DownQuarkBar" -> 
           "\!\(\*OverscriptBox[\(d\), \(_\)]\)", "StrangeQuark" -> "s", 
           "StrangeQuarkBar" -> "\!\(\*OverscriptBox[\(s\), \(_\)]\)", 
           "TopQuark" -> "t", "TopQuarkBar" -> 
           "\!\(\*OverscriptBox[\(t\), \(_\)]\)", "UpQuark" -> "u", 
           "UpQuarkBar" -> 
           "\!\(\*OverscriptBox[\(u\), \(_\)]\)"}, \
$CellContext`symQuarkContent[
           Pattern[$CellContext`type, 
            Blank[]], 
           Pattern[$CellContext`quarks, 
            Blank[]]] := $CellContext`noDups[
           Flatten[
            Map[Part[
              ParticleData[$CellContext`type, "FullSymbol"], 
              Part[
               Position[
                ParticleData[$CellContext`type, "QuarkContent"], #], All, 
               1]]& , 
             Permutations[$CellContext`quarks]]]], $CellContext`doBaryon := 
         Module[{}, If[
             Or[$CellContext`localize, $CellContext`refresh$$], 
             $CellContext`addParticles[{
               $CellContext`spConv[
               False, $CellContext`q3a$$, "r", $CellContext`s4$$], 
               $CellContext`spConv[
               False, $CellContext`q3b$$, "g", $CellContext`s5$$], 
               $CellContext`spConv[
               False, $CellContext`q3c$$, "b", $CellContext`s6$$]}]]; Column[{
              Graphics3D[{
                Sphere[{0, Sqrt[3]/2, 0}, 0.5], 
                Text[
                 Style[
                  ReplaceAll[$CellContext`q3a$$, $CellContext`qConvDoAnti], 
                  48, Bold], {0, Sqrt[3]/2, 0.2}], 
                Sphere[{(-1)/2, 0, 0}, 0.5], 
                Text[
                 Style[
                  ReplaceAll[$CellContext`q3b$$, $CellContext`qConvDoAnti], 
                  48, Bold], {(-1)/2, 0, 0}], 
                Sphere[{1/2, 0, 0}, 0.5], 
                Text[
                 Style[
                  ReplaceAll[$CellContext`q3c$$, $CellContext`qConvDoAnti], 
                  48, Bold], {1/2, 0, 0}], 
                Opacity[0.5], LightGray, 
                Sphere[{0, Sqrt[3]/6, 0}, 
                 Sqrt[3/2]]}, ImageSize -> {$CellContext`imageSize, 175}, 
               Boxed -> False], 
              Graphics[
               Scale[{
                 $CellContext`txt["Spin\[Dash]1/2 Baryons", {125, 375}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalXi]\), \(-\)]\)", {100, 
                  350}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalXi]\), \(0\)]\)", {150, 
                  350}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalSigma]\), \(-\)]\)", {75, 
                  313}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalLambda]\), \(0\)]\)", {125, 
                  324}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalSigma]\), \(0\)]\)", {125, 
                  302}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalSigma]\), \(+\)]\)", {175, 
                  313}], 
                 $CellContext`txt["n", {100, 275}], 
                 $CellContext`txt["p", {150, 274}], 
                 $CellContext`txt["Spin\[Dash]3/2 Baryons", {375, 375}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalOmega]\), \(-\)]\)", {375, 
                  350}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalXi]\), \(\(*\)\(-\)\)]\)", {
                  350, 325}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalXi]\), \(\(*\)\(0\)\)]\)", {
                  400, 325}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalSigma]\), \
\(\(*\)\(-\)\)]\)", {325, 300}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalSigma]\), \
\(\(*\)\(0\)\)]\)", {375, 300}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalSigma]\), \
\(\(*\)\(+\)\)]\)", {425, 300}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalDelta]\), \(-\)]\)", {300, 
                  275}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalDelta]\), \(0\)]\)", {350, 
                  275}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalDelta]\), \(+\)]\)", {400, 
                  275}], 
                 $CellContext`txt[
                 "\!\(\*SuperscriptBox[\(\[CapitalDelta]\), \(++\)]\)", {450, 
                  275}]}, 0.75], ImageSize -> {$CellContext`imageSize, 100}], 
              
              If[$CellContext`more$$, $CellContext`qc = \
$CellContext`symQuarkContent[
                 "Baryon", {$CellContext`q3a$$, $CellContext`q3b$$, \
$CellContext`q3c$$}]; Row[{
                  Length[$CellContext`qc], 
                  " Baryons with this quark content. These are: ", \
$CellContext`qc}], Null]}]], $CellContext`doAtom := 
         With[{$CellContext`local$ = $CellContext`localAtom}, 
           
           Module[$CellContext`local$, $CellContext`param2DA := {
              PlotRange -> Part[$CellContext`plotRangeA, 
                 Span[1, 2]], ImageSize -> $CellContext`imageSize, Axes -> 
               True, AxesLabel -> Part[$CellContext`axesLabelA, 
                 Span[1, 2]]}; $CellContext`param3DA := {
              PlotRange -> $CellContext`plotRangeA, 
               ImageSize -> $CellContext`imageSize, Boxed -> True, Axes -> 
               True, AxesLabel -> $CellContext`axesLabelA, FaceGrids -> All, 
               FaceGridsStyle -> Directive[Gray, Dotted], SphericalRegion -> 
               True, ViewPoint -> $CellContext`viewPointA, 
               ViewVertical -> $CellContext`viewVerticalA, 
               ViewAngle -> $CellContext`viewAngleA}; $CellContext`z1[
               Pattern[$CellContext`x, 
                Blank[]], 
               Pattern[$CellContext`z, 
                Blank[]]] := 
             ReplaceAll[$CellContext`x, {
               Condition[71, $CellContext`z == 5] -> 57, 
                Condition[103, $CellContext`z == 6] -> 89}]; $CellContext`z2[
               Pattern[$CellContext`x, 
                Blank[]], 
               Pattern[$CellContext`y, 
                Blank[]], 
               Pattern[$CellContext`z, 
                Blank[]]] := ReplaceAll[
               Part[$CellContext`posA, $CellContext`z, $CellContext`y, 1], {
               Condition[71, 
                  And[$CellContext`z == 5, $CellContext`x == 71]] -> 57, 
                Condition[103, 
                  And[$CellContext`z == 6, $CellContext`x == 103]] -> 
                89}]; $CellContext`plotRangeA := {{-7.5 + $CellContext`dx, 
                1.5 + $CellContext`dx}, {-3.5, 4.5}, {0, 1 + Max[8, 
                  
                  If[$CellContext`stowe$$, $CellContext`n0$$ + \
($CellContext`n0$$ - 1) (($CellContext`explode$$ - 1)/2), $CellContext`n0$$ + 
                   3 $CellContext`explode$$]]}}; $CellContext`coords3A[
               Pattern[$CellContext`y$, 
                Blank[]], 
               Pattern[$CellContext`z$, 
                Blank[]]] := Table[
               Flatten[{
                 Mean[
                  Part[
                   $CellContext`coords2A[$CellContext`y$], $CellContext`i, 
                   All, 1]], 
                 Mean[
                  Part[
                   $CellContext`coords2A[$CellContext`y$], $CellContext`i, 
                   All, 2]], 
                 
                 If[$CellContext`stowe$$, $CellContext`z$ + ($CellContext`z$ - \
($CellContext`y$ + 3)/4) (($CellContext`explode$$ - 1)/
                    2), $CellContext`z$ + ($CellContext`y$ - 
                    1) $CellContext`explode$$]}], {$CellContext`i, 
                Length[
                 $CellContext`coords2A[$CellContext`y$]]}]; $CellContext`gOut = 
             If[$CellContext`view3D$$, 
               Graphics3D[{
                 Table[{
                   EdgeForm[Black], 
                   Part[$CellContext`clrA, $CellContext`y], 
                   If[$CellContext`density$$, 
                    Inset[
                    $CellContext`getGraphic[
                    $CellContext`getNLM[
                    $CellContext`z1[$CellContext`x, $CellContext`z]], \
$CellContext`orb3D], Part[
                    $CellContext`coords3A[$CellContext`y, $CellContext`z], \
$CellContext`z1[$CellContext`x, $CellContext`z] - \
$CellContext`z2[$CellContext`x, $CellContext`y, $CellContext`z] + 
                    1] + {$CellContext`dx, 0, 0}], 
                    $CellContext`squ[Part[
                    $CellContext`coords3A[$CellContext`y, $CellContext`z], \
$CellContext`z1[$CellContext`x, $CellContext`z] - \
$CellContext`z2[$CellContext`x, $CellContext`y, $CellContext`z] + 
                    1] + {$CellContext`dx, 0, 0}, 0.8, 3]]}, {$CellContext`z, 
                   1, $CellContext`n0$$}, {$CellContext`y, 
                   Length[
                    
                    Part[$CellContext`posA, $CellContext`z]]}, \
{$CellContext`x, 
                   Part[$CellContext`posA, $CellContext`z, $CellContext`y, 1], 
                   
                   Part[$CellContext`posA, $CellContext`z, $CellContext`y, 
                    2]}], 
                 Table[
                  
                  With[{$CellContext`x0$ = $CellContext`z1[$CellContext`x, \
$CellContext`z]}, 
                   EventHandler[{
                    If[$CellContext`density$$, Red, Black], 
                    Text[
                    Style[
                    Tooltip[
                    If[
                    And[$CellContext`density$$, False], "       ", 
                    Row[{
                    Superscript["\[InvisiblePrefixScriptBase]", 
                    ElementData[$CellContext`x0$, "AtomicNumber"]], 
                    ElementData[$CellContext`x0$, "Abbreviation"]}]], 
                    Row[{
                    Superscript["\[InvisiblePrefixScriptBase]", 
                    ElementData[$CellContext`x0$, "AtomicNumber"]], 
                    ElementData[$CellContext`x0$, "Abbreviation"], 
                    "\[InvisiblePrefixScriptBase]  ", 
                    ElementData[$CellContext`x0$, $CellContext`ttED$$]}]], 
                    Background -> 
                    If[$CellContext`density$$, LightYellow