(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[   4159620,      81203]
NotebookOptionsPosition[   4065347,      79120]
NotebookOutlinePosition[   4081746,      79416]
CellTagsIndexPosition[   4081703,      79413]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["e8Flyer notes", "Subsection",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[TextData[{
 "If you have any questions, comments, problems, suggestions, ",
 ButtonBox["mailto:jgmoxness@theoryofeverything.org",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["mailto:jgmoxness@theoryofeverything.org"], None}],
 ". "
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[TextData[{
 "Use the file in and out operations to save/use desirable configurations, \
pics and animations (needs full ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " or ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "Player Pro)."
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell["MouseOver the shapes to show the particle labels (pLabels).", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell["\<\
Use pList menu to select major subsets of particles. Use the binary (bitwise) \
filters (OR to build up/AND to narrow down) particle subsets. 
If you select more than a few of the OR filters or choose a metaFavorite (or \
manually configure a graph) with many particles and a large number of flight \
time steps, it will take time to process (from minutes to several hours, even \
on a fast computer).\
\>", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[TextData[{
 "Atoms can be visualized by using the \"Atomic Element Selector\" below the \
main viewer control panel.. Best to select MetaFavorite or pList=none before \
selecting. This was created using a modified \"Properties of the Elements\" \
from The Wolfram Demonstrations Project ",
 ButtonBox["http://demonstrations.wolfram.com/PropertiesOfTheElements/ ",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/PropertiesOfTheElements/"], None}],
 "Contributed by: Theodore Gray. Currently, the code does not change \
representations requiring electron or quark orbitals.\nThat means only \
Hydrogen and Helium w/isotopes are interesting."
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[TextData[{
 "Composite Hadron particles (Baryons/Mesons) and independant particles can \
be visualized by using the \"Particle Selector\" below the main viewer \
control panel. Best to select MetaFavorite or pList=none  before selecting. \
This was created using a modified \"Combining Quarks into Hadrons\" from The \
Wolfram Demonstrations Project ",
 ButtonBox["http://demonstrations.wolfram.com/CombiningQuarksIntoHadrons",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/CombiningQuarksIntoHadrons"], 
    None}],
 " Contributed by: S. M. Blinder. This has been integrated with the \
ParticleData functions available from Wolfram data sets."
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell["\<\
You can force individual particles to display (or not display) from the \
PlotList below the main viewer control panel.\
\>", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell["\<\
The 4 buttons in the lower right {-T12,+T12,-T,+T} of the second section \
select different sets of triality rotations for tLines.\
\>", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell["\<\
Selecting which 2 faces are shown in 2D is done by selecting the order of the \
3 {H,V,Z} faces.\
\>", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell["\<\
Viewing the static positions of particles by flying through the 8D space is \
done by projecting them (dot product) into a 2D or 3D view. 
There are several ways to change the 3 {H,V,Z} sets of 8D projection \
parameters. 
\t1) Move the Axis Locators shown in 2D mode (selecting various faces to \
determine which coordinates get modified)
\t\tPlease note: this is currently configured to recalculate in realtime, so \
depending on computer speed - the mouse drag responses can be sluggish.
\t2) Move the Sliders for individual coordinates
In this version, you can also manipulate the initial/final \
translational/rotational flight paths.
The numeric fields displaying the values are not able to be modified in .nbp \
files.\
\>", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[TextData[{
 "pMass gives \"first principle generated\" particle mass/lifetime \
predictions based on my prior work. Notice how nicely it fits into the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["E", "8"], TraditionalForm]]],
 "model."
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell["\<\
Perim is a recent addition to simply put a shaded unit perimeter to detect \
particles or vertices outside unity.\
\>", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[TextData[{
 "Check out the stereo viewing option, but you will need some of the \
red/green-blue(cyan)  stereo glasses handy. Thanks to Mark Fisher at ",
 ButtonBox["www.markfisher.net/~mefisher/mma/StereoImagery.m",
  BaseStyle->"Hyperlink",
  ButtonData->{"www.markfisher.net/~mefisher/mma/StereoImagery.m", None}],
 "). This was modified to work w/current version. BTW - this adds significant \
time to the graph generation process (and can eat all your memeory w/many \
time steps/particles/lines)."
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[TextData[{
 "Edge calculation done with a code snippet from Eric Weisstein's ",
 ButtonBox["http://mathworld.wolfram.com/notebooks/Polyhedra/600-Cell.nb",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["http://mathworld.wolfram.com/notebooks/Polyhedra/600-Cell.nb"], 
    None}],
 ", MathWorld Packages 2007-10-10 and Utility Packages 2008-05-19 [for \
Mathematica 6.0]"
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[TextData[{
 "Of course, none of this would have existed w/o the generous sharing of \
A.Garrett Lisi's ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " source notebook. Thanks."
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],

Cell[CellGroupData[{

Cell["Flyer Main", "Subsection"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{Typeset`show$$ = True, Typeset`bookmarkList$$ = {
    "\"E8\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E8"]; $CellContext`refreshToggle), 
     "\"E7\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E7"]; $CellContext`refreshToggle), 
     "\"E6\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E6"]; $CellContext`refreshToggle), 
     "\"E6a\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E6a"]; $CellContext`refreshToggle), 
     "\"F4\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["F4"]; $CellContext`refreshToggle), 
     "\"cell5\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["cell5"]; $CellContext`refreshToggle), 
     "\"Cell24\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Cell24"]; $CellContext`refreshToggle), 
     "\"H4\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["H4"]; $CellContext`refreshToggle), 
     "\"Tris\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Tris"]; $CellContext`refreshToggle), 
     "\"F4G2\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["F4G2"]; $CellContext`refreshToggle), 
     "\"Hexes\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Hexes"]; $CellContext`refreshToggle), 
     "\"Gosset\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Gosset"]; $CellContext`refreshToggle), 
     "\"E83\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E83"]; $CellContext`refreshToggle), 
     "\"none\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["none"]; $CellContext`refreshToggle), 
     "\"inFile\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["inFile"]; $CellContext`refreshToggle), 
     "\"G2\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["G2"]; $CellContext`refreshToggle), 
     "\"lepInf\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["lepInf"]; $CellContext`refreshToggle), 
     "\"qInf\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["qInf"]; $CellContext`refreshToggle), 
     "\"a3D\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["a3D"]; $CellContext`refreshToggle), 
     "\"o3D\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["o3D"]; $CellContext`refreshToggle), 
     "\"qCol\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["qCol"]; $CellContext`refreshToggle), 
     "\"binary\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["binary"]; $CellContext`refreshToggle), 
     "\"binStar\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["binStar"]; $CellContext`refreshToggle), 
     "\"binSqu\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["binSqu"]; $CellContext`refreshToggle), 
     "\"binTri\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["binTri"]; $CellContext`refreshToggle), 
     "\"E8Cell600\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["E8Cell600"]; $CellContext`refreshToggle), 
     "\"Cell16\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cell16"]; $CellContext`refreshToggle), 
     "\"Cube\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube"]; $CellContext`refreshToggle), 
     "\"auxXLS\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["auxXLS"]; $CellContext`refreshToggle)}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Row[{
         Button["Refresh", $CellContext`refreshToggle, ImageSize -> Small], 
         " MetaFavorites ", 
         PopupMenu[
          Dynamic[$CellContext`bAND1mfName], {
          "E8", "E7", "E6", "E6a", "F4", "cell5", "Cell24", "H4", "Tris", 
           "F4G2", "Hexes", "Gosset", "E83", "none", "inFile"}], 
         "\[DoubleLeftArrow]OR ", 
         PopupMenu[
          Dynamic[$CellContext`bAND2mfName], {
          "G2", "lepInf", "qInf", "a3D", "o3D", "qCol", "binary", "binStar", 
           "binSqu", "binTri", "E8Cell600", "Cell16", "Cube", "auxXLS"}], 
         "\[DoubleLeftArrow]AND ", "   DataSets: ", 
         Dynamic[
          PopupMenu[
           Dynamic[$CellContext`dsName], $CellContext`dsNames]], 
         Dynamic[$CellContext`ds = \
$CellContext`position[$CellContext`dsNames, $CellContext`dsName]]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{" inFile ", 
         FileNameSetter[
          Dynamic[$CellContext`infile]], " OutToFile ", 
         Checkbox[
          Dynamic[$CellContext`fileOut]], " FileOnly ", 
         Checkbox[
          Dynamic[$CellContext`fileOnly]], " Dir ", 
         FileNameSetter[
          Dynamic[$CellContext`outFileDir], "Directory"], " Name ", 
         Dynamic[
          InputField[
           Dynamic[$CellContext`outFile], FieldSize -> 6]], 
         PopupMenu[
          Dynamic[$CellContext`outFileType], {
          ".avi", ".bmp", ".dxf", ".eps", ".gif", ".jpeg", ".html", ".obj", 
           ".lwo", ".Maya", ".MathML", ".pdf", ".png", ".stl", ".svg", 
           ".tiff", ".vrml", ".wmf", ".x3d", ".xls", ".bi", ".lsl", ".tri"}], 
         "    Particles=", 
         Dynamic[
          Length[$CellContext`fltrdSubPlot]], "  tLines=", 
         Dynamic[
          Length[$CellContext`tlines]]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{" pSize ", 
         PopupMenu[
          
          Dynamic[$CellContext`pSize], {$CellContext`tiny, \
$CellContext`small, $CellContext`nrml, $CellContext`big, $CellContext`huge}], 
         "  Zoom Exp ", 
         Dynamic[
          Slider[
           Dynamic[$CellContext`zoom], {-24, 25, 0.5}, ImageSize -> 100]], 
         Dynamic[$CellContext`zoom], "  pScale ", 
         Dynamic[
          Slider[
           Dynamic[$CellContext`scale], {0, 1, 1/50.}, ImageSize -> 50]], 
         Dynamic[
          Subscript[$CellContext`scale, $CellContext`scaled]], "  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[
          Subscript[$CellContext`range, $CellContext`scaled]], "  Limit ", 
         Checkbox[
          Dynamic[$CellContext`limitToRange]]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{" Frame Center:      ", 
         Button[
         "\!\(\*OverscriptBox[\"\[Wedge]\", \"\[Wedge]\"]\)", 
          Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] + 
           1/2, Appearance -> Small], 
         Button[
         "\[Wedge]", 
          Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] + 
           1/8, Appearance -> Small], "   {x,y}=", 
         Dynamic[
          Round[
           Part[
            Subscript[$CellContext`pt, $CellContext`scaled], 
            Span[1, 2]], 0.01]], "     ViewPoint    ", 
         Button[
         "\!\(\*OverscriptBox[\"\[Wedge]\", \"\[Wedge]\"]\)", 
          Part[$CellContext`xyVwPnt, 
            2] = $CellContext`second[$CellContext`xyVwPnt] + 1, Appearance -> 
          Small], 
         Button[
         "\[Wedge]", 
          Part[$CellContext`xyVwPnt, 
            2] = $CellContext`second[$CellContext`xyVwPnt] + 1/10, Appearance -> 
          Small], "   {x,y}=", 
         Dynamic[
          Round[
           Subscript[$CellContext`xyVwPnt, $CellContext`scaled], 0.01]]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{"       ", 
         Button[
         "<<", Part[$CellContext`pt, 1] = First[$CellContext`pt] - 1/2, 
          Appearance -> Small], 
         Button[
         "<", Part[$CellContext`pt, 1] = First[$CellContext`pt] - 1/8, 
          Appearance -> Small], 
         Slider2D[
          Dynamic[
           Part[$CellContext`pt, 
            Span[1, 2]]], {{-1, -1}, {1, 1}, {0.02, 0.02}}], 
         Button[
         ">", Part[$CellContext`pt, 1] = First[$CellContext`pt] + 1/4, 
          Appearance -> Small], 
         Button[
         ">>", Part[$CellContext`pt, 1] = First[$CellContext`pt] + 1, 
          Appearance -> Small], "    ", 
         Button[
         "<<", Part[$CellContext`xyVwPnt, 1] = 
          First[$CellContext`xyVwPnt] - 1, Appearance -> Small], 
         Button[
         "<", Part[$CellContext`xyVwPnt, 1] = 
          First[$CellContext`xyVwPnt] - 1/10, Appearance -> Small], 
         Slider2D[
          Dynamic[$CellContext`xyVwPnt], {{0.1, 0.1}, {10, 10}, {0.1, 0.1}}], 
         Button[
         ">", Part[$CellContext`xyVwPnt, 1] = 
          First[$CellContext`xyVwPnt] + 1/10, Appearance -> Small], 
         Button[
         ">>", Part[$CellContext`xyVwPnt, 1] = 
          First[$CellContext`xyVwPnt] + 1, Appearance -> Small], 
         "             Rectify Edges ", 
         Dynamic[
          VerticalSlider[
           Dynamic[$CellContext`rectification], {0, 5, 1}, ImageSize -> 
           Tiny]], 
         Dynamic[$CellContext`rectification], "  Edge Dimension ", 
         Dynamic[
          VerticalSlider[
           Dynamic[$CellContext`edgeDimTrim], {2, $CellContext`dims, 1}, 
           ImageSize -> Tiny]], 
         Dynamic[$CellContext`edgeDimTrim]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{"  z ", 
         Slider[
          Dynamic[
           $CellContext`third[$CellContext`pt]], {-1, 1, 0.02}, ImageSize -> 
          50], 
         Dynamic[
          $CellContext`third[
           Subscript[$CellContext`pt, $CellContext`scaled]]], "    ", 
         Button[
         "\!\(\*UnderscriptBox[\"\[Vee]\", \"\[Vee]\"]\)", 
          Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] - 1/
           2, Appearance -> Small], 
         Button[
         "\[Vee]", 
          Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] - 1/
           8, Appearance -> Small], "                  z ", 
         Slider[
          Dynamic[$CellContext`zVwPnt], {0.1, 10, 0.1}, ImageSize -> 50], 
         Dynamic[
          Subscript[$CellContext`zVwPnt, $CellContext`scaled]], "    ", 
         Button[
         "\!\(\*UnderscriptBox[\"\[Vee]\", \"\[Vee]\"]\)", 
          Part[$CellContext`xyVwPnt, 
            2] = $CellContext`second[$CellContext`xyVwPnt] - 1, Appearance -> 
          Small], 
         Button[
         "\[Vee]", 
          Part[$CellContext`xyVwPnt, 
            2] = $CellContext`second[$CellContext`xyVwPnt] - 1/10, Appearance -> 
          Small], " pColors ", 
         Slider[
          Dynamic[$CellContext`pGrad], {0, 51, 1}, ImageSize -> Small], 
         Dynamic[
          $CellContext`showGrads[$CellContext`pGrad]], " ", 
         Dynamic[$CellContext`pGrad], " ", 
         Dynamic[
          $CellContext`gradName[$CellContext`pGrad]]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{" Show:", "  Axes ", 
         Checkbox[
          Dynamic[$CellContext`showAxes]], "  Particles(Vertices) ", 
         Checkbox[
          Dynamic[$CellContext`showPartVert]], "  Edges ", 
         Checkbox[
          Dynamic[$CellContext`showEdges]], "  ClickAllVerts ", 
         Checkbox[
          Dynamic[$CellContext`showClickVerts]], "  PolygonFaces ", 
         Checkbox[
          Dynamic[$CellContext`showPolySurfaces]], "  pOverlaps ", 
         Checkbox[
          Dynamic[$CellContext`vOverlapColor]], "  pLabels ", 
         Checkbox[
          Dynamic[$CellContext`showPtext]], "  pLocations ", 
         Checkbox[
          Dynamic[$CellContext`showPlocs]], "  pMassLife ", 
         Checkbox[
          Dynamic[$CellContext`showPmass]]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{
         RadioButtonBar[
          Dynamic[$CellContext`p3D], {" 2D", " 3D", " Stereo", " Anaglyph"}], 
         " ", " PhysEdge-NotCnts ", 
         Checkbox[
          Dynamic[$CellContext`pLineToggle]], " ", 
         Button[
         "Clear ClickVerts", $CellContext`clearClickVerts; \
$CellContext`refreshToggle, ImageSize -> Small], " 2D Face Select: ", 
         RadioButtonBar[
          Dynamic[$CellContext`face], {
          1 -> {"H", "V", "Z"}, 2 -> {"Z", "H", "V"}, 
           3 -> {"V", "Z", "H"}}]}]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{" Norm'd Edges {Value,Count}: ", 
         Dynamic[
          PopupMenu[
           Dynamic[$CellContext`edgeVal], $CellContext`edgeList]], 
         "  eFrames ", 
         Dynamic[
          Slider[
           Dynamic[$CellContext`eSteps], {1, $CellContext`eLim, 1}, ImageSize -> 
           Small]], 
         Dynamic[
          $CellContext`eFct[$CellContext`eSteps]], "\[ShortLeftArrow]", 
         Dynamic[$CellContext`eSteps], " eWindow ", 
         Dynamic[
          Slider[
           Dynamic[$CellContext`eWnd], {1, $CellContext`eLim, 1}, ImageSize -> 
           Small]], 
         Dynamic[
          $CellContext`eFct[$CellContext`eWnd]], "\[ShortLeftArrow]", 
         Dynamic[$CellContext`eWnd]}]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{" EdgeListAnim8 ", 
         Checkbox[
          Dynamic[$CellContext`anim8EdgeList]], " InnerFilter% ", 
         Dynamic[
          Slider[
           Dynamic[$CellContext`innerMag], {0, 1, 1/100}, ImageSize -> 
           Small]], 
         Dynamic[100 $CellContext`innerMag], "    eColors ", 
         Slider[
          Dynamic[$CellContext`eGrad], {0, 51, 1}, ImageSize -> Small], 
         Dynamic[
          $CellContext`showGrads[$CellContext`eGrad]], " ", 
         Dynamic[$CellContext`eGrad], " ", 
         Dynamic[
          $CellContext`gradName[$CellContext`eGrad]]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{"  Scale Surface: ", 
         Slider[
          Dynamic[
           $CellContext`third[$CellContext`XY]], {1, 50, 1}, ImageSize -> 50], 
         Dynamic[
          $CellContext`third[$CellContext`XY]], "  Show: Surface Color ", 
         Checkbox[
          Dynamic[$CellContext`showClr]], "   Trialities ", 
         TogglerBar[
          Dynamic[$CellContext`tT], {"T12m", "T12p", "Tm", "Tp"}], 
         "  eRadius ", 
         Dynamic[
          Slider[
           Dynamic[$CellContext`cylR], {0.001, 0.1, 1/1000.}, ImageSize -> 
           100]], 
         Dynamic[$CellContext`cylR]}]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{
         Button[
         "Clear Filters", $CellContext`clearFilter, ImageSize -> Small], 
         "  Binary (bitwise) Filter Type: ", 
         RadioButtonBar[
          Dynamic[$CellContext`bAND], {1 -> "OR", 2 -> "AND"}], "   pLists ", 
         Dynamic[
          PopupMenu[
           Dynamic[$CellContext`pListName], $CellContext`plNames]], 
         Dynamic[$CellContext`pList]}]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{"SM Row(shape) ", 
         Dynamic[
          If[$CellContext`bAND == 2, 
           RadioButtonBar[
            Dynamic[$CellContext`fr], {
            1 -> "1=Leptons", 2 -> " 2=Quarks", 3 -> 
             "3=WeakStrong=W/\[Omega]-g", 4 -> 
             "4=Higgs=e\[Phi]/B-x\[CapitalPhi]", 5 -> 
             "5=Excluded=Dimensions"}], 
           TogglerBar[
            Dynamic[$CellContext`fr], {
            1 -> "1=Leptons", 2 -> " 2=Quarks", 3 -> 
             "3=WeakStrong=W/\[Omega]-g", 4 -> 
             "4=Higgs=e\[Phi]/B-x\[CapitalPhi]", 5 -> 
             "5=Excluded=Dimensions"}]]]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{
         Grid[{{"Anti(shape) ", 
            Dynamic[
             If[$CellContext`bAND == 2, 
              RadioButtonBar[
               Dynamic[$CellContext`fa], {0, 1}], 
              TogglerBar[
               Dynamic[$CellContext`fa], {0, 1}]]], 
            "0=p(lepton=tri/quark=squ/boson=cir),1=\!\(\*OverscriptBox[\"p\", \
\"_\"]\)(utr/dia/inv)"}, {"Type(color) ", 
            Dynamic[
             If[$CellContext`bAND == 2, 
              RadioButtonBar[
               Dynamic[$CellContext`fp], {0, 1}], 
              TogglerBar[
               Dynamic[$CellContext`fp], {0, 1}]]], 
            "0=\[Nu](w),uct(o/c/m),1=e(y),dsb(r/g/b)"}, {"Color(color) ", 
            Dynamic[
             If[$CellContext`bAND == 2, 
              RadioButtonBar[
               Dynamic[$CellContext`fc], {0, 1, 2, 3}], 
              TogglerBar[
               Dynamic[$CellContext`fc], {0, 1, 2, 3}]]], 
            "0(y/w),1(o/r),2(c/g) 3(m/b)"}, {"Spin(shade) ", 
            Dynamic[
             If[$CellContext`bAND == 2, 
              RadioButtonBar[
               Dynamic[$CellContext`fs], {0, 1, 2, 3}], 
              TogglerBar[
               Dynamic[$CellContext`fs], {0, 1, 2, 3}]]], 
            "0=\!\(\*OverscriptBox[\"L\", \
\"\[Wedge]\"]\),1=\!\(\*OverscriptBox[\"L\", \
\"\[Vee]\"]\),2=\!\(\*OverscriptBox[\"R\", \
\"\[Wedge]\"]\),3=\!\(\*OverscriptBox[\"R\", \"\[Vee]\"]\) \
(light/med/dark)"}, {"Gen(size)   ", 
            Dynamic[
             If[$CellContext`bAND == 2, 
              RadioButtonBar[
               Dynamic[$CellContext`fg], {0, 1, 2, 3}], 
              TogglerBar[
               Dynamic[$CellContext`fg], {0, 1, 2, 3}]]], 
            "0=bosons(pSize),1=e(tiny),2=\[Mu](nrml),3=\[Tau](huge)"}}, 
          Alignment -> Left]}]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{
         Button["Reset Path", $CellContext`clearPath, ImageSize -> Small], 
         "  t Steps ", 
         Slider[
          Dynamic[$CellContext`steps], {1, 90, 1}, ImageSize -> 90], 
         Dynamic[$CellContext`steps], "  ", 
         RadioButtonBar[
          Dynamic[$CellContext`pthRot], {
          "Translational", "Rotational", "Spin3D"}], "   ", "  ", 
         RadioButtonBar[
          Dynamic[$CellContext`pthPtCds], {"Identity", "PtCoords"}], 
         "  Favorites ", 
         PopupMenu[
          Dynamic[$CellContext`favorite], {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, 31, 32, 33, 34, 35}], "  dimLocs ", 
         Checkbox[
          Dynamic[$CellContext`useDimLocs]]}]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{" H Dim ", 
         Dynamic[
          TogglerBar[
           Dynamic[$CellContext`dlXs], 
           Part[$CellContext`dl, $CellContext`ds]]], 
         Dynamic[$CellContext`dlXl]}]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Dynamic[
        Row[
         Flatten[
          Join[{"  H   "}, 
           Map[With[{$CellContext`i = #}, {
              Dynamic[
               VerticalSlider[
                Dynamic[
                 Part[$CellContext`H, $CellContext`i]], {-1, 1, 0.01}, 
                ImageSize -> Tiny]], 
              Dynamic[
               InputField[
                Dynamic[
                 Part[$CellContext`H, $CellContext`i]], FieldSize -> 6]]}]& , 
            Range[$CellContext`dims]]]]]]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{" V Dim ", 
         Dynamic[
          TogglerBar[
           Dynamic[$CellContext`dlYs], 
           Part[$CellContext`dl, $CellContext`ds]]], 
         Dynamic[$CellContext`dlYl]}]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Dynamic[
        Row[
         Flatten[
          Join[{"  V   "}, 
           Map[With[{$CellContext`i = #}, {
              Dynamic[
               VerticalSlider[
                Dynamic[
                 Part[$CellContext`V, $CellContext`i]], {-1, 1, 0.01}, 
                ImageSize -> Tiny]], 
              Dynamic[
               InputField[
                Dynamic[
                 Part[$CellContext`V, $CellContext`i]], FieldSize -> 6]]}]& , 
            Range[$CellContext`dims]]]]]]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Row[{" Z Dim ", 
         Dynamic[
          TogglerBar[
           Dynamic[$CellContext`dlZs], 
           Part[$CellContext`dl, $CellContext`ds]]], 
         Dynamic[$CellContext`dlZl]}]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Dynamic[
        Row[
         Flatten[
          Join[{"  Z   "}, 
           Map[With[{$CellContext`i = #}, {
              Dynamic[
               VerticalSlider[
                Dynamic[
                 Part[$CellContext`Z, $CellContext`i]], {-1, 1, 0.01}, 
                ImageSize -> Tiny]], 
              Dynamic[
               InputField[
                Dynamic[
                 Part[$CellContext`Z, $CellContext`i]], FieldSize -> 6]]}]& , 
            Range[$CellContext`dims]]]]]]], 
      Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`fileOnly], False}}, {{
       Hold[$CellContext`artPrint], False}}, {{
       Hold[$CellContext`scale], 0.02}}, {{
       Hold[$CellContext`cylR], 0.01}}, {{
       Hold[$CellContext`tickNum], 4}}, {{
       Hold[$CellContext`range], 1.5}}, {{
       Hold[$CellContext`limitToRange], True}}, {{
       Hold[$CellContext`pt], {0, 0, 0}}}, {{
       Hold[$CellContext`zoom], 0}}, {{
       Hold[$CellContext`favorite], 15}}, {{
       Hold[$CellContext`pGrad], 0}}, {{
       Hold[$CellContext`face], 1}}, {{
       Hold[$CellContext`auxData], False}}, {{
       Hold[$CellContext`showAxes], True}}, {{
       Hold[$CellContext`showPartVert], True}}, {{
       Hold[$CellContext`showEdges], False}}, {{
       Hold[$CellContext`showSurfaces], False}}, {{
       Hold[$CellContext`showPolySurfaces], False}}, {{
       Hold[$CellContext`rectification], 0}}, {{
       Hold[$CellContext`showPvecs], False}}, {{
       Hold[$CellContext`showPtext], False}}, {{
       Hold[$CellContext`showPlocs], False}}, {{
       Hold[$CellContext`showPmass], False}}, {{
       Hold[$CellContext`showPerim], False}}, {{
       Hold[$CellContext`eGrad], 10}}, {{
       Hold[$CellContext`edgeVal], {2^Rational[1, 2], 6840}}}, {{
       Hold[$CellContext`anim8EdgeList], False}}, {{
       Hold[$CellContext`eSteps], 1}}, {{
       Hold[$CellContext`eWnd], 100}}, {{
       Hold[$CellContext`innerMag], 0}}, {{
       Hold[$CellContext`edgeDimTrim], 8}}, {{
       Hold[$CellContext`tT], {}}}, {{
       Hold[$CellContext`XY], {24, 24, 24}}}, {{
       Hold[$CellContext`showClr], False}}, {{
       Hold[$CellContext`showClickVerts], False}}, {{
       Hold[$CellContext`ltps], {}}}, {{
       Hold[$CellContext`vOverlapColor], False}}, {{
       Hold[$CellContext`pLineToggle], False}}, {{
       Hold[$CellContext`useDimLocs], False}}, {{
       Hold[$CellContext`dlXs], {"             c7          "}}}, {{
       Hold[$CellContext`dlYs], {"             c8         "}}}, {{
       Hold[$CellContext`dlZs], {"             c6           "}}}, {{
       Hold[$CellContext`xy], {1, 1}}}, {{
       Hold[$CellContext`zz], 1}}, {{
       Hold[$CellContext`xyVwPnt], {1, 1}}}, {{
       Hold[$CellContext`zVwPnt], 1}}, {{
       Hold[$CellContext`steps], 1}}, {{
       Hold[$CellContext`pthRot], "Rotational"}}, {{
       Hold[$CellContext`pthPtCds], "Identity"}}, {{
       Hold[$CellContext`ds], 2}}, {{
       Hold[$CellContext`pSize], $CellContext`nrml}}, {{
       Hold[$CellContext`pListName], "(second@plNames)"}}, {{
       Hold[$CellContext`dsName], 
       InputForm["e8"]}}, {{
       Hold[$CellContext`p3D], 
       InputForm[" 2D"]}}, {{
       Hold[$CellContext`auxFile], "(\"./auxData.xls\")"}}, {{
       Hold[$CellContext`fileOut], False}}, {{
       Hold[$CellContext`outFileDir], "(\"./\")"}}, {{
       Hold[$CellContext`outFile], 
       "(\"E8out\"<>ToString[RandomInteger@{10,99}])"}}, {{
       Hold[$CellContext`outFileType], "(\".png\")"}}, {{
       Hold[$CellContext`H], {
       0, -0.5567934404522487, 0.19694925177037625`, -0.19694925177037625`, 
        0.08054772639440969, -0.38529087617102353`, 0, 
        0.38529087617102353`}}}, {{
       Hold[$CellContext`V], {
       0.18091315553621937`, 0, 0.16021295504274685`, 0.16021295504274685`, 0,
         0.09901705165447641, 0.7663604248754181, 0.09901705165447641}}}, {{
       Hold[$CellContext`Z], {
       0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 
        0.17150256428122515`, 0, -0.17150256428122515`}}}}, Typeset`size$$ = {
    648., {323., 325.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`anim8EdgeList = 
        False, $CellContext`artPrint = False, $CellContext`auxData = 
        False, $CellContext`auxFile = 
        "(\"./auxData.xls\")", $CellContext`cylR = 
        0.01, $CellContext`dlXs = {
         "             c7          "}, $CellContext`dlYs = {
         "             c8         "}, $CellContext`dlZs = {
         "             c6           "}, $CellContext`ds = 
        2, $CellContext`dsName = InputForm["e8"], $CellContext`edgeDimTrim = 
        8, $CellContext`edgeVal = {
         2^Rational[1, 2], 6840}, $CellContext`eGrad = 
        10, $CellContext`eSteps = 1, $CellContext`eWnd = 
        100, $CellContext`face = 1, $CellContext`favorite = 
        15, $CellContext`fileOnly = False, $CellContext`fileOut = 
        False, $CellContext`H = {
         0, -0.5567934404522487, 0.19694925177037625`, -0.19694925177037625`, 
          0.08054772639440969, -0.38529087617102353`, 0, 
          0.38529087617102353`}, $CellContext`innerMag = 
        0, $CellContext`limitToRange = 
        True, $CellContext`ltps = {}, $CellContext`outFile = 
        "(\"E8out\"<>ToString[RandomInteger@{10,99}])", \
$CellContext`outFileDir = "(\"./\")", $CellContext`outFileType = 
        "(\".png\")", $CellContext`p3D = InputForm[" 2D"], $CellContext`pGrad = 
        0, $CellContext`pLineToggle = False, $CellContext`pListName = 
        "(second@plNames)", $CellContext`pSize = $CellContext`nrml, \
$CellContext`pt = {0, 0, 0}, $CellContext`pthPtCds = 
        "Identity", $CellContext`pthRot = "Rotational", $CellContext`range = 
        1.5, $CellContext`rectification = 0, $CellContext`scale = 
        0.02, $CellContext`showAxes = True, $CellContext`showClickVerts = 
        False, $CellContext`showClr = False, $CellContext`showEdges = 
        False, $CellContext`showPartVert = True, $CellContext`showPerim = 
        False, $CellContext`showPlocs = False, $CellContext`showPmass = 
        False, $CellContext`showPolySurfaces = False, $CellContext`showPtext = 
        False, $CellContext`showPvecs = False, $CellContext`showSurfaces = 
        False, $CellContext`steps = 1, $CellContext`tickNum = 
        4, $CellContext`tT = {}, $CellContext`useDimLocs = 
        False, $CellContext`V = {
         0.18091315553621937`, 0, 0.16021295504274685`, 0.16021295504274685`, 
          0, 0.09901705165447641, 0.7663604248754181, 
          0.09901705165447641}, $CellContext`vOverlapColor = 
        False, $CellContext`xy = {1, 1}, $CellContext`XY = {24, 24, 
         24}, $CellContext`xyVwPnt = {1, 1}, $CellContext`Z = {
         0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 
          0.17150256428122515`, 0, -0.17150256428122515`}, $CellContext`zoom = 
        0, $CellContext`zVwPnt = 1, $CellContext`zz = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> (
       If[$CellContext`auxDataTrk != $CellContext`auxData, \
$CellContext`e8init; $CellContext`initLocPtCds; $CellContext`fltrdSubPlot = 
          Last[$CellContext`pls]; $CellContext`auxDataTrk = \
$CellContext`auxData, 
         If[$CellContext`infileTrk != $CellContext`infile, \
$CellContext`bAND1mfName = 
            "inFile"; $CellContext`infileTrk = $CellContext`infile]; If[
           
           And[$CellContext`bAND != 1, $CellContext`bAND1mfName != 
            ""], $CellContext`bANDTrk = ($CellContext`bAND = 
             1); $CellContext`switchFilter]; If[
           
           And[$CellContext`bAND != 2, $CellContext`bAND2mfName != 
            ""], $CellContext`bANDTrk = ($CellContext`bAND = 
             2); $CellContext`switchFilter]; 
         If[$CellContext`dsTrk != $CellContext`ds, $CellContext`setPthPrm]; If[
           
           Or[$CellContext`refresh != $CellContext`refreshTrk, \
$CellContext`bAND1mfName != "", $CellContext`bAND2mfName != 
            "", $CellContext`bANDTrk != $CellContext`bAND], \
$CellContext`oldFltrdSubPlot = $CellContext`fltrdSubPlot; 
           If[$CellContext`bAND1mfName != "", $CellContext`E8; 
             Switch[$CellContext`bAND1mfName, "E7", $CellContext`E7, 
               "E6", $CellContext`E6, "E6a", $CellContext`E6a, 
               "F4", $CellContext`F4, "Cell5", $CellContext`Cell5, 
               "Cell24", $CellContext`Cell24, "H4", $CellContext`H4, 
               "Tris", $CellContext`Tris, "F4G2", $CellContext`F4G2, 
               "Hexes", $CellContext`Hexes, "Gosset", $CellContext`Gosset, 
               "E83", $CellContext`E83, "none", $CellContext`none, 
               "inFile", $CellContext`inFile]]; 
           If[$CellContext`bAND2mfName != "", $CellContext`E8; 
             Switch[$CellContext`bAND2mfName, "G2", $CellContext`G2, 
               "lepInf", $CellContext`lepInf, "qInf", $CellContext`qInf, 
               "a3D", $CellContext`a3D, "o3D", $CellContext`o3D, 
               "qCol", $CellContext`qCol, "binary", $CellContext`binary, 
               "binStar", $CellContext`binStar, "binSqu", $CellContext`binSqu,
                "binTri", $CellContext`binTri, 
               "E8Cell600", $CellContext`E8Cell600, 
               "Cell16", $CellContext`Cell16, "Cube", $CellContext`Cube, 
               "auxXLS", $CellContext`auxXLS]]; If[
             
             Or[$CellContext`favoriteTrk != $CellContext`favorite, \
$CellContext`newPTcd != {}, $CellContext`bAND1mfName != 
              "", $CellContext`bAND2mfName != ""], 
             If[$CellContext`newPTcd != {}, 
              $CellContext`setPTcd[$CellContext`newPTcd], 
              $CellContext`setPTcd[
               
               Part[$CellContext`favorites, $CellContext`favorite]]]]; \
$CellContext`refreshTrk = $CellContext`refresh; $CellContext`favoriteTrk = \
$CellContext`favorite; $CellContext`newPTcd = {}; $CellContext`bAND1mfName = 
            ""; $CellContext`bAND2mfName = ""; 
           If[$CellContext`bANDTrk != $CellContext`bAND, $CellContext`bANDTrk = \
$CellContext`bAND; $CellContext`switchFilter, $CellContext`doFilter]; If[
             
             Or[$CellContext`oldFltrdSubPlot != $CellContext`fltrdSubPlot, \
$CellContext`tTValTrk != $CellContext`tT, $CellContext`dsTrk != \
$CellContext`ds, $CellContext`pLineToggleTrk != $CellContext`pLineToggle, \
$CellContext`showClickVertsTrk != $CellContext`showClickVerts, \
$CellContext`innerMagTrk != $CellContext`innerMag, \
$CellContext`edgeDimTrimTrk != $CellContext`edgeDimTrim, 
              ToString[$CellContext`edgeValTrk] != 
              ToString[$CellContext`edgeVal]], 
             If[$CellContext`dsTrk != $CellContext`ds, $CellContext`setPthPrm; \
$CellContext`dsTrk = $CellContext`ds]; $CellContext`tlines = \
$CellContext`tLines; $CellContext`tTValTrk = $CellContext`tT; \
$CellContext`getEdges; $CellContext`elines = \
$CellContext`eLines[$CellContext`edgeVal]; $CellContext`edgeMag = 
              Max[$CellContext`chop, $CellContext`maxEdge]; \
$CellContext`elines = ($CellContext`elinesNew = ($CellContext`eSort = \
$CellContext`elineSort[
                  If[$CellContext`eSteps > 1, "Ascending", "Descending"]])); 
             If[$CellContext`ltps != {}, $CellContext`ltpsSav = \
$CellContext`ltps; $CellContext`clearClickVerts; 
               If[$CellContext`pLineToggle, $CellContext`pLines, \
$CellContext`vLines][$CellContext`ltpsSav]]; $CellContext`edgeValTrk = \
$CellContext`edgeVal; $CellContext`pLineToggleTrk = $CellContext`pLineToggle; \
$CellContext`edgeDimTrimTrk = $CellContext`edgeDimTrim; 
             If[$CellContext`showClickVertsTrk != $CellContext`showClickVerts,
                If[$CellContext`showClickVerts, 
                 
                 If[$CellContext`pLineToggle, $CellContext`pLines, \
$CellContext`vLines][$CellContext`fltrdSubPlot]]; \
$CellContext`showClickVertsTrk = $CellContext`showClickVerts]; \
$CellContext`innerMagTrk = $CellContext`innerMag]]; 
         If[$CellContext`fileOut, $CellContext`mOutDo]; $CellContext`loop = \
{}; $CellContext`lastViewPoint = {
            First[
             Subscript[$CellContext`xyVwPnt, $CellContext`scaled]], 
            $CellContext`second[
             Subscript[$CellContext`xyVwPnt, $CellContext`scaled]], 
            Subscript[$CellContext`zVwPnt, $CellContext`scaled]}; If[
           Not[$CellContext`needMovie], 
           If[$CellContext`locPtCdTrk != $CellContext`locPtCdArr, If[
               Not[$CellContext`auxData], $CellContext`useDimLocs = True]; 
             Do[$CellContext`fVal = Map[Part[
                    $CellContext`locPtCd[#], \
$CellContext`i]/$CellContext`zoomFct& , 
                  Range[$CellContext`dims]]; Switch[
                 
                 Part[$CellContext`faceList, $CellContext`face, \
$CellContext`i], "H", $CellContext`H = $CellContext`fVal, 
                 "V", $CellContext`V = $CellContext`fVal, 
                 "Z", $CellContext`Z = $CellContext`fVal], {$CellContext`i, 
                2}]]; $CellContext`initLocPtCds; $CellContext`processOut[
            0], $CellContext`doMovie]; If[
           
           And[$CellContext`fileOut, $CellContext`outFileType == 
            First[$CellContext`fileTypeList]], 
           $CellContext`doFileOut[0]]; If[
           And[$CellContext`loop != {}, 
            Not[$CellContext`fileOnly]], $CellContext`out = 
           ListAnimate[$CellContext`loop, DefaultDuration -> 3, 
             AnimationRunning -> False]]]; $CellContext`out), 
      "Specifications" :> {
        Row[{
          Button["Refresh", $CellContext`refreshToggle, ImageSize -> Small], 
          " MetaFavorites ", 
          PopupMenu[
           Dynamic[$CellContext`bAND1mfName], {
           "E8", "E7", "E6", "E6a", "F4", "cell5", "Cell24", "H4", "Tris", 
            "F4G2", "Hexes", "Gosset", "E83", "none", "inFile"}], 
          "\[DoubleLeftArrow]OR ", 
          PopupMenu[
           Dynamic[$CellContext`bAND2mfName], {
           "G2", "lepInf", "qInf", "a3D", "o3D", "qCol", "binary", "binStar", 
            "binSqu", "binTri", "E8Cell600", "Cell16", "Cube", "auxXLS"}], 
          "\[DoubleLeftArrow]AND ", "   DataSets: ", 
          Dynamic[
           PopupMenu[
            Dynamic[$CellContext`dsName], $CellContext`dsNames]], 
          
          Dynamic[$CellContext`ds = \
$CellContext`position[$CellContext`dsNames, $CellContext`dsName]]}], 
        Row[{" inFile ", 
          FileNameSetter[
           Dynamic[$CellContext`infile]], " OutToFile ", 
          Checkbox[
           Dynamic[$CellContext`fileOut]], " FileOnly ", 
          Checkbox[
           Dynamic[$CellContext`fileOnly]], " Dir ", 
          FileNameSetter[
           Dynamic[$CellContext`outFileDir], "Directory"], " Name ", 
          Dynamic[
           InputField[
            Dynamic[$CellContext`outFile], FieldSize -> 6]], 
          PopupMenu[
           Dynamic[$CellContext`outFileType], {
           ".avi", ".bmp", ".dxf", ".eps", ".gif", ".jpeg", ".html", ".obj", 
            ".lwo", ".Maya", ".MathML", ".pdf", ".png", ".stl", ".svg", 
            ".tiff", ".vrml", ".wmf", ".x3d", ".xls", ".bi", ".lsl", ".tri"}],
           "    Particles=", 
          Dynamic[
           Length[$CellContext`fltrdSubPlot]], "  tLines=", 
          Dynamic[
           Length[$CellContext`tlines]]}], Delimiter, 
        Row[{" pSize ", 
          PopupMenu[
           
           Dynamic[$CellContext`pSize], {$CellContext`tiny, \
$CellContext`small, $CellContext`nrml, $CellContext`big, $CellContext`huge}], 
          "  Zoom Exp ", 
          Dynamic[
           Slider[
            Dynamic[$CellContext`zoom], {-24, 25, 0.5}, ImageSize -> 100]], 
          Dynamic[$CellContext`zoom], "  pScale ", 
          Dynamic[
           Slider[
            Dynamic[$CellContext`scale], {0, 1, 1/50.}, ImageSize -> 50]], 
          Dynamic[
           Subscript[$CellContext`scale, $CellContext`scaled]], "  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[
           Subscript[$CellContext`range, $CellContext`scaled]], "  Limit ", 
          Checkbox[
           Dynamic[$CellContext`limitToRange]]}], 
        Row[{" Frame Center:      ", 
          Button[
          "\!\(\*OverscriptBox[\"\[Wedge]\", \"\[Wedge]\"]\)", 
           Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] + 
            1/2, Appearance -> Small], 
          Button[
          "\[Wedge]", 
           Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] + 
            1/8, Appearance -> Small], "   {x,y}=", 
          Dynamic[
           Round[
            Part[
             Subscript[$CellContext`pt, $CellContext`scaled], 
             Span[1, 2]], 0.01]], "     ViewPoint    ", 
          Button[
          "\!\(\*OverscriptBox[\"\[Wedge]\", \"\[Wedge]\"]\)", 
           Part[$CellContext`xyVwPnt, 
             2] = $CellContext`second[$CellContext`xyVwPnt] + 1, Appearance -> 
           Small], 
          Button[
          "\[Wedge]", 
           Part[$CellContext`xyVwPnt, 
             2] = $CellContext`second[$CellContext`xyVwPnt] + 1/10, 
           Appearance -> Small], "   {x,y}=", 
          Dynamic[
           Round[
            Subscript[$CellContext`xyVwPnt, $CellContext`scaled], 0.01]]}], 
        Row[{"       ", 
          Button[
          "<<", Part[$CellContext`pt, 1] = First[$CellContext`pt] - 1/2, 
           Appearance -> Small], 
          Button[
          "<", Part[$CellContext`pt, 1] = First[$CellContext`pt] - 1/8, 
           Appearance -> Small], 
          Slider2D[
           Dynamic[
            Part[$CellContext`pt, 
             Span[1, 2]]], {{-1, -1}, {1, 1}, {0.02, 0.02}}], 
          Button[
          ">", Part[$CellContext`pt, 1] = First[$CellContext`pt] + 1/4, 
           Appearance -> Small], 
          Button[
          ">>", Part[$CellContext`pt, 1] = First[$CellContext`pt] + 1, 
           Appearance -> Small], "    ", 
          Button[
          "<<", Part[$CellContext`xyVwPnt, 1] = 
           First[$CellContext`xyVwPnt] - 1, Appearance -> Small], 
          Button[
          "<", Part[$CellContext`xyVwPnt, 1] = 
           First[$CellContext`xyVwPnt] - 1/10, Appearance -> Small], 
          Slider2D[
           Dynamic[$CellContext`xyVwPnt], {{0.1, 0.1}, {10, 10}, {0.1, 0.1}}], 
          Button[
          ">", Part[$CellContext`xyVwPnt, 1] = 
           First[$CellContext`xyVwPnt] + 1/10, Appearance -> Small], 
          Button[
          ">>", Part[$CellContext`xyVwPnt, 1] = 
           First[$CellContext`xyVwPnt] + 1, Appearance -> Small], 
          "             Rectify Edges ", 
          Dynamic[
           VerticalSlider[
            Dynamic[$CellContext`rectification], {0, 5, 1}, ImageSize -> 
            Tiny]], 
          Dynamic[$CellContext`rectification], "  Edge Dimension ", 
          Dynamic[
           VerticalSlider[
            Dynamic[$CellContext`edgeDimTrim], {2, $CellContext`dims, 1}, 
            ImageSize -> Tiny]], 
          Dynamic[$CellContext`edgeDimTrim]}], 
        Row[{"  z ", 
          Slider[
           Dynamic[
            $CellContext`third[$CellContext`pt]], {-1, 1, 0.02}, ImageSize -> 
           50], 
          Dynamic[
           $CellContext`third[
            Subscript[$CellContext`pt, $CellContext`scaled]]], "    ", 
          Button[
          "\!\(\*UnderscriptBox[\"\[Vee]\", \"\[Vee]\"]\)", 
           Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] - 
            1/2, Appearance -> Small], 
          Button[
          "\[Vee]", 
           Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] - 
            1/8, Appearance -> Small], "                  z ", 
          Slider[
           Dynamic[$CellContext`zVwPnt], {0.1, 10, 0.1}, ImageSize -> 50], 
          Dynamic[
           Subscript[$CellContext`zVwPnt, $CellContext`scaled]], "    ", 
          Button[
          "\!\(\*UnderscriptBox[\"\[Vee]\", \"\[Vee]\"]\)", 
           Part[$CellContext`xyVwPnt, 
             2] = $CellContext`second[$CellContext`xyVwPnt] - 1, Appearance -> 
           Small], 
          Button[
          "\[Vee]", 
           Part[$CellContext`xyVwPnt, 
             2] = $CellContext`second[$CellContext`xyVwPnt] - 1/10, 
           Appearance -> Small], " pColors ", 
          Slider[
           Dynamic[$CellContext`pGrad], {0, 51, 1}, ImageSize -> Small], 
          Dynamic[
           $CellContext`showGrads[$CellContext`pGrad]], " ", 
          Dynamic[$CellContext`pGrad], " ", 
          Dynamic[
           $CellContext`gradName[$CellContext`pGrad]]}], 
        Row[{" Show:", "  Axes ", 
          Checkbox[
           Dynamic[$CellContext`showAxes]], "  Particles(Vertices) ", 
          Checkbox[
           Dynamic[$CellContext`showPartVert]], "  Edges ", 
          Checkbox[
           Dynamic[$CellContext`showEdges]], "  ClickAllVerts ", 
          Checkbox[
           Dynamic[$CellContext`showClickVerts]], "  PolygonFaces ", 
          Checkbox[
           Dynamic[$CellContext`showPolySurfaces]], "  pOverlaps ", 
          Checkbox[
           Dynamic[$CellContext`vOverlapColor]], "  pLabels ", 
          Checkbox[
           Dynamic[$CellContext`showPtext]], "  pLocations ", 
          Checkbox[
           Dynamic[$CellContext`showPlocs]], "  pMassLife ", 
          Checkbox[
           Dynamic[$CellContext`showPmass]]}], 
        Row[{
          RadioButtonBar[
           Dynamic[$CellContext`p3D], {" 2D", " 3D", " Stereo", " Anaglyph"}],
           " ", " PhysEdge-NotCnts ", 
          Checkbox[
           Dynamic[$CellContext`pLineToggle]], " ", 
          Button[
          "Clear ClickVerts", $CellContext`clearClickVerts; \
$CellContext`refreshToggle, ImageSize -> Small], " 2D Face Select: ", 
          RadioButtonBar[
           Dynamic[$CellContext`face], {
           1 -> {"H", "V", "Z"}, 2 -> {"Z", "H", "V"}, 
            3 -> {"V", "Z", "H"}}]}], Delimiter, 
        Row[{" Norm'd Edges {Value,Count}: ", 
          Dynamic[
           PopupMenu[
            Dynamic[$CellContext`edgeVal], $CellContext`edgeList]], 
          "  eFrames ", 
          Dynamic[
           Slider[
            Dynamic[$CellContext`eSteps], {1, $CellContext`eLim, 1}, 
            ImageSize -> Small]], 
          Dynamic[
           $CellContext`eFct[$CellContext`eSteps]], "\[ShortLeftArrow]", 
          Dynamic[$CellContext`eSteps], " eWindow ", 
          Dynamic[
           Slider[
            Dynamic[$CellContext`eWnd], {1, $CellContext`eLim, 1}, ImageSize -> 
            Small]], 
          Dynamic[
           $CellContext`eFct[$CellContext`eWnd]], "\[ShortLeftArrow]", 
          Dynamic[$CellContext`eWnd]}], 
        Row[{" EdgeListAnim8 ", 
          Checkbox[
           Dynamic[$CellContext`anim8EdgeList]], " InnerFilter% ", 
          Dynamic[
           Slider[
            Dynamic[$CellContext`innerMag], {0, 1, 1/100}, ImageSize -> 
            Small]], 
          Dynamic[100 $CellContext`innerMag], "    eColors ", 
          Slider[
           Dynamic[$CellContext`eGrad], {0, 51, 1}, ImageSize -> Small], 
          Dynamic[
           $CellContext`showGrads[$CellContext`eGrad]], " ", 
          Dynamic[$CellContext`eGrad], " ", 
          Dynamic[
           $CellContext`gradName[$CellContext`eGrad]]}], 
        Row[{"  Scale Surface: ", 
          Slider[
           Dynamic[
            $CellContext`third[$CellContext`XY]], {1, 50, 1}, ImageSize -> 
           50], 
          Dynamic[
           $CellContext`third[$CellContext`XY]], "  Show: Surface Color ", 
          Checkbox[
           Dynamic[$CellContext`showClr]], "   Trialities ", 
          TogglerBar[
           Dynamic[$CellContext`tT], {"T12m", "T12p", "Tm", "Tp"}], 
          "  eRadius ", 
          Dynamic[
           Slider[
            Dynamic[$CellContext`cylR], {0.001, 0.1, 1/1000.}, ImageSize -> 
            100]], 
          Dynamic[$CellContext`cylR]}], Delimiter, 
        Row[{
          Button[
          "Clear Filters", $CellContext`clearFilter, ImageSize -> Small], 
          "  Binary (bitwise) Filter Type: ", 
          RadioButtonBar[
           Dynamic[$CellContext`bAND], {1 -> "OR", 2 -> "AND"}], "   pLists ", 
          Dynamic[
           PopupMenu[
            Dynamic[$CellContext`pListName], $CellContext`plNames]], 
          Dynamic[$CellContext`pList]}], 
        Row[{"SM Row(shape) ", 
          Dynamic[
           If[$CellContext`bAND == 2, 
            RadioButtonBar[
             Dynamic[$CellContext`fr], {
             1 -> "1=Leptons", 2 -> " 2=Quarks", 3 -> 
              "3=WeakStrong=W/\[Omega]-g", 4 -> 
              "4=Higgs=e\[Phi]/B-x\[CapitalPhi]", 5 -> 
              "5=Excluded=Dimensions"}], 
            TogglerBar[
             Dynamic[$CellContext`fr], {
             1 -> "1=Leptons", 2 -> " 2=Quarks", 3 -> 
              "3=WeakStrong=W/\[Omega]-g", 4 -> 
              "4=Higgs=e\[Phi]/B-x\[CapitalPhi]", 5 -> 
              "5=Excluded=Dimensions"}]]]}], 
        Row[{
          Grid[{{"Anti(shape) ", 
             Dynamic[
              If[$CellContext`bAND == 2, 
               RadioButtonBar[
                Dynamic[$CellContext`fa], {0, 1}], 
               TogglerBar[
                Dynamic[$CellContext`fa], {0, 1}]]], 
             "0=p(lepton=tri/quark=squ/boson=cir),1=\!\(\*OverscriptBox[\"p\",\
 \"_\"]\)(utr/dia/inv)"}, {"Type(color) ", 
             Dynamic[
              If[$CellContext`bAND == 2, 
               RadioButtonBar[
                Dynamic[$CellContext`fp], {0, 1}], 
               TogglerBar[
                Dynamic[$CellContext`fp], {0, 1}]]], 
             "0=\[Nu](w),uct(o/c/m),1=e(y),dsb(r/g/b)"}, {"Color(color) ", 
             Dynamic[
              If[$CellContext`bAND == 2, 
               RadioButtonBar[
                Dynamic[$CellContext`fc], {0, 1, 2, 3}], 
               TogglerBar[
                Dynamic[$CellContext`fc], {0, 1, 2, 3}]]], 
             "0(y/w),1(o/r),2(c/g) 3(m/b)"}, {"Spin(shade) ", 
             Dynamic[
              If[$CellContext`bAND == 2, 
               RadioButtonBar[
                Dynamic[$CellContext`fs], {0, 1, 2, 3}], 
               TogglerBar[
                Dynamic[$CellContext`fs], {0, 1, 2, 3}]]], 
             "0=\!\(\*OverscriptBox[\"L\", \
\"\[Wedge]\"]\),1=\!\(\*OverscriptBox[\"L\", \
\"\[Vee]\"]\),2=\!\(\*OverscriptBox[\"R\", \
\"\[Wedge]\"]\),3=\!\(\*OverscriptBox[\"R\", \"\[Vee]\"]\) \
(light/med/dark)"}, {"Gen(size)   ", 
             Dynamic[
              If[$CellContext`bAND == 2, 
               RadioButtonBar[
                Dynamic[$CellContext`fg], {0, 1, 2, 3}], 
               TogglerBar[
                Dynamic[$CellContext`fg], {0, 1, 2, 3}]]], 
             "0=bosons(pSize),1=e(tiny),2=\[Mu](nrml),3=\[Tau](huge)"}}, 
           Alignment -> Left]}], Delimiter, 
        Row[{
          Button["Reset Path", $CellContext`clearPath, ImageSize -> Small], 
          "  t Steps ", 
          Slider[
           Dynamic[$CellContext`steps], {1, 90, 1}, ImageSize -> 90], 
          Dynamic[$CellContext`steps], "  ", 
          RadioButtonBar[
           Dynamic[$CellContext`pthRot], {
           "Translational", "Rotational", "Spin3D"}], "   ", "  ", 
          RadioButtonBar[
           Dynamic[$CellContext`pthPtCds], {"Identity", "PtCoords"}], 
          "  Favorites ", 
          PopupMenu[
           Dynamic[$CellContext`favorite], {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, 31, 32, 33, 34, 35}], "  dimLocs ", 
          Checkbox[
           Dynamic[$CellContext`useDimLocs]]}], 
        Row[{" H Dim ", 
          Dynamic[
           TogglerBar[
            Dynamic[$CellContext`dlXs], 
            Part[$CellContext`dl, $CellContext`ds]]], 
          Dynamic[$CellContext`dlXl]}], 
        Dynamic[
         Row[
          Flatten[
           Join[{"  H   "}, 
            Map[With[{$CellContext`i = #}, {
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`H, $CellContext`i]], {-1, 1, 0.01}, 
                 ImageSize -> Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`H, $CellContext`i]], FieldSize -> 6]]}]& , 
             Range[$CellContext`dims]]]]]], 
        Row[{" V Dim ", 
          Dynamic[
           TogglerBar[
            Dynamic[$CellContext`dlYs], 
            Part[$CellContext`dl, $CellContext`ds]]], 
          Dynamic[$CellContext`dlYl]}], 
        Dynamic[
         Row[
          Flatten[
           Join[{"  V   "}, 
            Map[With[{$CellContext`i = #}, {
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`V, $CellContext`i]], {-1, 1, 0.01}, 
                 ImageSize -> Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`V, $CellContext`i]], FieldSize -> 6]]}]& , 
             Range[$CellContext`dims]]]]]], 
        Row[{" Z Dim ", 
          Dynamic[
           TogglerBar[
            Dynamic[$CellContext`dlZs], 
            Part[$CellContext`dl, $CellContext`ds]]], 
          Dynamic[$CellContext`dlZl]}], 
        Dynamic[
         Row[
          Flatten[
           Join[{"  Z   "}, 
            Map[With[{$CellContext`i = #}, {
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`Z, $CellContext`i]], {-1, 1, 0.01}, 
                 ImageSize -> Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`Z, $CellContext`i]], FieldSize -> 6]]}]& , 
             Range[$CellContext`dims]]]]]], {{$CellContext`fileOnly, False}, 
         ControlType -> None}, {{$CellContext`artPrint, False}, ControlType -> 
         None}, {{$CellContext`scale, 0.02}, ControlType -> 
         None}, {{$CellContext`cylR, 0.01}, ControlType -> 
         None}, {{$CellContext`tickNum, 4}, ControlType -> 
         None}, {{$CellContext`range, 1.5}, ControlType -> 
         None}, {{$CellContext`limitToRange, True}, ControlType -> 
         None}, {{$CellContext`pt, {0, 0, 0}}, ControlType -> 
         None}, {{$CellContext`zoom, 0}, ControlType -> 
         None}, {{$CellContext`favorite, 15}, ControlType -> 
         None}, {{$CellContext`pGrad, 0}, ControlType -> 
         None}, {{$CellContext`face, 1}, ControlType -> 
         None}, {{$CellContext`auxData, False}, ControlType -> 
         None}, {{$CellContext`showAxes, True}, ControlType -> 
         None}, {{$CellContext`showPartVert, True}, ControlType -> 
         None}, {{$CellContext`showEdges, False}, ControlType -> 
         None}, {{$CellContext`showSurfaces, False}, ControlType -> 
         None}, {{$CellContext`showPolySurfaces, False}, ControlType -> 
         None}, {{$CellContext`rectification, 0}, ControlType -> 
         None}, {{$CellContext`showPvecs, False}, ControlType -> 
         None}, {{$CellContext`showPtext, False}, ControlType -> 
         None}, {{$CellContext`showPlocs, False}, ControlType -> 
         None}, {{$CellContext`showPmass, False}, ControlType -> 
         None}, {{$CellContext`showPerim, False}, ControlType -> 
         None}, {{$CellContext`eGrad, 10}, ControlType -> 
         None}, {{$CellContext`edgeVal, {2^Rational[1, 2], 6840}}, 
         ControlType -> None}, {{$CellContext`anim8EdgeList, False}, 
         ControlType -> None}, {{$CellContext`eSteps, 1}, ControlType -> 
         None}, {{$CellContext`eWnd, 100}, ControlType -> 
         None}, {{$CellContext`innerMag, 0}, ControlType -> 
         None}, {{$CellContext`edgeDimTrim, 8}, ControlType -> 
         None}, {{$CellContext`tT, {}}, ControlType -> 
         None}, {{$CellContext`XY, {24, 24, 24}}, ControlType -> 
         None}, {{$CellContext`showClr, False}, ControlType -> 
         None}, {{$CellContext`showClickVerts, False}, ControlType -> 
         None}, {{$CellContext`ltps, {}}, ControlType -> 
         None}, {{$CellContext`vOverlapColor, False}, ControlType -> 
         None}, {{$CellContext`pLineToggle, False}, ControlType -> 
         None}, {{$CellContext`useDimLocs, False}, ControlType -> 
         None}, {{$CellContext`dlXs, {"             c7          "}}, 
         ControlType -> 
         None}, {{$CellContext`dlYs, {"             c8         "}}, 
         ControlType -> 
         None}, {{$CellContext`dlZs, {"             c6           "}}, 
         ControlType -> None}, {{$CellContext`xy, {1, 1}}, ControlType -> 
         None}, {{$CellContext`zz, 1}, ControlType -> 
         None}, {{$CellContext`xyVwPnt, {1, 1}}, ControlType -> 
         None}, {{$CellContext`zVwPnt, 1}, ControlType -> 
         None}, {{$CellContext`steps, 1}, ControlType -> 
         None}, {{$CellContext`pthRot, "Rotational"}, ControlType -> 
         None}, {{$CellContext`pthPtCds, "Identity"}, ControlType -> 
         None}, {{$CellContext`ds, 2}, ControlType -> 
         None}, {{$CellContext`pSize, $CellContext`nrml}, ControlType -> 
         None}, {{$CellContext`pListName, "(second@plNames)"}, ControlType -> 
         None}, {{$CellContext`dsName, 
          InputForm["e8"]}, ControlType -> None}, {{$CellContext`p3D, 
          InputForm[" 2D"]}, ControlType -> 
         None}, {{$CellContext`auxFile, "(\"./auxData.xls\")"}, ControlType -> 
         None}, {{$CellContext`fileOut, False}, ControlType -> 
         None}, {{$CellContext`outFileDir, "(\"./\")"}, ControlType -> 
         None}, {{$CellContext`outFile, 
          "(\"E8out\"<>ToString[RandomInteger@{10,99}])"}, ControlType -> 
         None}, {{$CellContext`outFileType, "(\".png\")"}, ControlType -> 
         None}, {{$CellContext`H, {
          0, -0.5567934404522487, 0.19694925177037625`, -0.19694925177037625`,
            0.08054772639440969, -0.38529087617102353`, 0, 
           0.38529087617102353`}}, ControlType -> 
         None}, {{$CellContext`V, {
          0.18091315553621937`, 0, 0.16021295504274685`, 0.16021295504274685`,
            0, 0.09901705165447641, 0.7663604248754181, 0.09901705165447641}},
          ControlType -> 
         None}, {{$CellContext`Z, {
          0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 
           0.17150256428122515`, 0, -0.17150256428122515`}}, ControlType -> 
         None}}, "Options" :> {
       ControlType -> SetterBar, ControlPlacement -> Top, LocalizeVariables -> 
        False, PreserveImageOptions -> Automatic, SynchronousUpdating -> 
        False, SynchronousInitialization -> False, 
        TrackedSymbols :> {$CellContext`refresh, $CellContext`bAND, \
$CellContext`bAND1mfName, $CellContext`bAND2mfName, $CellContext`infile, \
$CellContext`auxData, $CellContext`ds, $CellContext`face, \
$CellContext`showAxes, $CellContext`showPartVert, $CellContext`showPerim, \
$CellContext`useDimLocs, $CellContext`locPtCd}}, "DefaultOptions" :> {}],
     ImageSizeCache->{759., {793., 798.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`auxDataTrk = False, $CellContext`auxData = 
         False, $CellContext`e8init := (
          If[$CellContext`auxData, $CellContext`doAuxData]; $CellContext`lbin = 
           Length[$CellContext`e8bin]; $CellContext`lorg = 
           Length[$CellContext`e8Orig]; $CellContext`lrch = 
           Length[$CellContext`richter]; $CellContext`lcel = 
           Length[$CellContext`cell600]; $CellContext`e8b = Map[{
              Part[$CellContext`e8bin, 
               Min[#, $CellContext`lbin]], 
              Part[$CellContext`e8Orig, 
               Min[#, $CellContext`lorg]], 
              FullSimplify[
               PowerExpand[
                Dot[$CellContext`rot3, 
                 Part[$CellContext`e8Orig, 
                  Min[#, $CellContext`lorg]]]]], 
              Part[$CellContext`richter, 
               Min[#, $CellContext`lrch]], 
              Part[$CellContext`cell600, 
               Min[#, $CellContext`lcel]], 
              Part[$CellContext`auxVerts, 
               Min[#, 
                Length[$CellContext`auxVerts]]], #, 
              ToString[#], #, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
              Units`MassUnit, Units`TimeUnit}& , 
             Range[$CellContext`le8]]; $CellContext`dsAppend; 
          If[$CellContext`auxData, 
            $CellContext`do[
             Range[
              Length[$CellContext`auxVerts]], {}, {$CellContext`row -> 
              5, $CellContext`oAnti -> 1, $CellContext`oPtype -> 
              1, $CellContext`oColor -> 1, $CellContext`oSpin -> 
              Length[$CellContext`auxVerts], $CellContext`oGen -> 
              0}], $CellContext`do[{12, 18, 23, 28}, {13, 19, 24, 
              99}, $CellContext`L1]; $CellContext`do[{14, 15, 16, 20, 21, 22, 
              25, 26, 27, 29, 30, 31}, {100, 101, 102, 103, 104, 105, 113, 
              114, 115, 119, 120, 121}, $CellContext`Q1]; $CellContext`do[{40,
               45, 49, 64}, {74, 59, 60, 
              44}, $CellContext`L2]; $CellContext`do[{41, 42, 43, 46, 47, 48, 
              50, 51, 52, 65, 66, 67}, {75, 76, 77, 53, 54, 55, 61, 62, 63, 
              68, 69, 70}, $CellContext`Q2]; $CellContext`do[{94, 11, 10, 
              1}, {95, 17, 109, 128}, $CellContext`L3]; $CellContext`do[{37, 
              36, 35, 32, 33, 34, 118, 117, 116, 124, 123, 122}, {96, 97, 98, 
              108, 107, 106, 110, 111, 112, 127, 126, 
              125}, $CellContext`Q3]; $CellContext`do[{84, 85, 86}, {78, 79, 
              80}, $CellContext`W\[Omega]G]; $CellContext`do[{39, 57, 56, 58, 
              38, 71, 73, 72, 93}, {92, 91, 90, 89, 88, 87, 83, 82, 
              81}, $CellContext`e\[Phi]Bx\[CapitalPhi]]; $CellContext`do[{2, 
              3, 4, 5}, {6, 7, 8, 9}, $CellContext`Exc]]; $CellContext`e8Bin = 
           Part[$CellContext`e8b, All, 1]; $CellContext`e8bit = 
           Part[$CellContext`e8b, All, $CellContext`sets + 
             3]; $CellContext`plsDo), $CellContext`doAuxData := (
          Part[$CellContext`dl, $CellContext`ds] = Rest[
             
             Import[$CellContext`auxFile, {
              "Data", 1, 2}]]; $CellContext`auxVertNames = Rest[
             Rest[
              Part[
               Import[$CellContext`auxFile, {"Data", 1}], All, 
               1]]]; $CellContext`auxVerts = Rest[
             Rest[
              Part[
               Import[$CellContext`auxFile, {"Data", 1}], All, 
               Span[2, All]]]]; $CellContext`le8 = 
           Length[$CellContext`auxVerts]; $CellContext`sizePos = \
$CellContext`position[
             Rest[
              Import[$CellContext`auxFile, {"Data", 1, 1}]], 
             "size"]; $CellContext`shapePos = $CellContext`position[
             Rest[
              Import[$CellContext`auxFile, {"Data", 1, 1}]], 
             "shape"]; $CellContext`colorPos = $CellContext`position[
             Rest[
              Import[$CellContext`auxFile, {"Data", 1, 1}]], 
             "color"]; $CellContext`sizeData = 
           Floor[1 + (Length[$CellContext`sizeList] - 1) Rescale[
                
                Part[$CellContext`auxVerts, 
                 All, $CellContext`sizePos]]]; $CellContext`shapeData = 
           Floor[1 + (Length[$CellContext`shapeList] - 1) Rescale[
                
                Part[$CellContext`auxVerts, 
                 All, $CellContext`shapePos]]]; $CellContext`colorData = 
           Floor[1 + (Length[$CellContext`colorList] - 3) Rescale[
                Part[$CellContext`auxVerts, 
                 All, $CellContext`colorPos]]]; $CellContext`auxPtCd), \
$CellContext`dl = {{
           "            b1         ", "            b2          ", 
            "             b3          ", "             b4          ", 
            "             b5         ", "             b6          ", 
            "             b7         ", "             b8         "}, {
           "             A          ", "             B           ", 
            "             C            ", "             D           ", 
            "             E            ", "             F            ", 
            "             G           ", "             H          "}, {
           "          \!\(\*\n    StyleBox[FractionBox[\"1\", \"2\"],\n\
FontFamily->\"Courier New\",\n\
FontSize->8]\)\!\(\*SubsuperscriptBox[\"\[Omega]\", \"L\", \"3\"]\)        ", 
            "           \!\(\*\n    StyleBox[FractionBox[\"1\", \"2\"],\n\
FontFamily->\"Courier New\",\n\
FontSize->8]\)\!\(\*SubsuperscriptBox[\"\[Omega]\", \"R\", \"3\"]\)         ",
             "           \!\(\*SuperscriptBox[\"W\", \"3\"]\)          ", 
            "            \!\(\*SubsuperscriptBox[\"B\", \"1\", \"3\"]\)       \
   ", "            w            ", 
            "           \!\(\*SubscriptBox[\"B\", \"2\"]\)            ", 
            "             \!\(\*SuperscriptBox[\"g\", \"3\"]\)          ", 
            "           \!\(\*SuperscriptBox[\"g\", \"8\"]\)          "}, {
           "             A          ", "             B           ", 
            "             C            ", "             D           ", 
            "             E            ", "             F            ", 
            "             G           ", "             H          "}, {
           "             c1         ", "             c2          ", 
            "             c3          ", "             c4          ", 
            "             c5          ", "             c6           ", 
            "             c7          ", "             c8         "}, {
           "             a1         ", "             a2          ", 
            "             a3          ", "             a4          ", 
            "             a5          ", "             a6           ", 
            "             a7          ", "             a8         "}, {
           "            a1        ", "            a2         ", 
            "            a3         ", "            a4         ", 
            "            a5         ", "            a6         ", 
            "            a7         ", "            a8         "}, {
           "            a1        ", "            a2         ", 
            "            a3         ", "            a4         ", 
            "            a5         ", "            a6         ", 
            "            a7         ", 
            "            a8         "}}, $CellContext`ds = 
         5, $CellContext`auxFile = 
         "./auxData.xls", $CellContext`auxVertNames = {
          "vert1", "vert2", "vert3", "vert4", "vert5", "vert6", "vert7", 
           "vert8", "vert9", "vert10", "vert11", "vert12", "vert13", "vert14",
            "vert15", "vert16", "vert17", "vert18", "vert19", "vert20", 
           "vert21", "vert22", "vert23", "vert24", "vert25", "vert26", 
           "vert27", "vert28", "vert29", "vert30", "vert31", "vert32", 
           "vert33", "vert34", "vert35", "vert36", "vert37", "vert38", 
           "vert39", "vert40", "vert41", "vert42", "vert43", "vert44", 
           "vert45", "vert46", "vert47", "vert48", "vert49", "vert50", 
           "vert51", "vert52", "vert53", "vert54", "vert55", "vert56", 
           "vert57", "vert58", "vert59", "vert60", "vert61", "vert62", 
           "vert63", "vert64", "vert65", "vert66", "vert67", "vert68", 
           "vert69", "vert70", "vert71", "vert72", "vert73", "vert74", 
           "vert75", "vert76", "vert77", "vert78", "vert79", "vert80", 
           "vert81", "vert82", "vert83", "vert84", "vert85", "vert86", 
           "vert87", "vert88", "vert89", "vert90", "vert91", "vert92", 
           "vert93", "vert94", "vert95", "vert96", "vert97", "vert98", 
           "vert99", "vert100", "vert101", "vert102", "vert103", "vert104", 
           "vert105", "vert106", "vert107", "vert108", "vert109", "vert110", 
           "vert111", "vert112", "vert113", "vert114", "vert115", "vert116", 
           "vert117", "vert118", "vert119", "vert120", "vert121", "vert122", 
           "vert123", "vert124", "vert125", "vert126", "vert127", "vert128", 
           "vert129", "vert130", "vert131", "vert132", "vert133", "vert134", 
           "vert135", "vert136", "vert137", "vert138", "vert139", "vert140", 
           "vert141", "vert142", "vert143", "vert144", "vert145", "vert146", 
           "vert147", "vert148", "vert149", "vert150", "vert151", "vert152", 
           "vert153", "vert154", "vert155", "vert156", "vert157", "vert158", 
           "vert159", "vert160", "vert161", "vert162", "vert163", "vert164", 
           "vert165", "vert166", "vert167", "vert168", "vert169", "vert170", 
           "vert171", "vert172", "vert173", "vert174", "vert175", "vert176", 
           "vert177", "vert178", "vert179", "vert180", "vert181", "vert182", 
           "vert183", "vert184", "vert185", "vert186", "vert187", "vert188", 
           "vert189", "vert190", "vert191", "vert192", "vert193", "vert194", 
           "vert195", "vert196", "vert197", "vert198", "vert199", "vert200", 
           "vert201", "vert202", "vert203", "vert204", "vert205", "vert206", 
           "vert207", "vert208", "vert209", "vert210", "vert211", "vert212", 
           "vert213", "vert214", "vert215", "vert216", "vert217", "vert218", 
           "vert219", "vert220", "vert221", "vert222", "vert223", "vert224", 
           "vert225", "vert226", "vert227", "vert228", "vert229", "vert230", 
           "vert231", "vert232", "vert233", "vert234", "vert235", "vert236", 
           "vert237", "vert238", "vert239", "vert240", "vert241", "vert242", 
           "vert243", "vert244", "vert245", "vert246", "vert247", "vert248", 
           "vert249", "vert250", "vert251", "vert252", "vert253", "vert254", 
           "vert255", "vert256"}, $CellContext`auxVerts = {{-2, -2, 0, 0, 0, 
           0, 0, 0}, {-2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 
           0, -2, 0, 0, 0, 0, 0}, {-2, 0, 0, -2, 0, 0, 0, 0}, {-2, 0, 0, 2, 0,
            0, 0, 0}, {-2, 0, 2, 0, 0, 0, 0, 
           0}, {-2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 2, 0,
            0, 0, 0, 0, 
           0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, {-1, -1, -1, 
            Sqrt[5], 0, 0, 0, 0}, {-1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, {-1, -1, 
            1, 
            Sqrt[5], 0, 0, 0, 0}, {-1, -1, -Sqrt[5], -1, 0, 0, 0, 
            0}, {-1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, {-1, -1, 
            Sqrt[5], -1, 0, 0, 0, 0}, {-1, -1, 
            Sqrt[5], 1, 0, 0, 0, 0}, {-1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {-1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 
            0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {-1,
             1, -1, -Sqrt[5], 0, 0, 0, 0}, {-1, 1, -1, 
            Sqrt[5], 0, 0, 0, 0}, {-1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, {-1, 1, 1, 
            Sqrt[5], 0, 0, 0, 0}, {-1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, {-1, 1, -
            Sqrt[5], 1, 0, 0, 0, 0}, {-1, 1, 
            Sqrt[5], -1, 0, 0, 0, 0}, {-1, 1, 
            Sqrt[5], 1, 0, 0, 0, 0}, {-1, 2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -
            Sqrt[5], -1, -1, 0, 0, 0, 0}, {-1, -Sqrt[5], -1, 1, 0, 0, 0, 
            0}, {-1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, {-1, -Sqrt[5], 1, 1, 0, 0, 
            0, 0}, {-1, 
            Sqrt[5], -1, -1, 0, 0, 0, 0}, {-1, 
            Sqrt[5], -1, 1, 0, 0, 0, 0}, {-1, 
            Sqrt[5], 1, -1, 0, 0, 0, 0}, {-1, 
            Sqrt[5], 1, 1, 0, 0, 0, 
            0}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 
            0}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + 
             Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0, 
            0}, {-1, (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 
            0}, {-1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(
            5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, {-1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 
            0}, {-1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 
            0}, {-1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 
            0}, {-1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 
            0}, {-1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {0, -2, -2, 
           0, 0, 0, 0, 0}, {0, -2, 0, -2, 0, 0, 0, 0}, {0, -2, 0, 2, 0, 0, 0, 
           0}, {0, -2, 2, 0, 0, 0, 0, 0}, {
           0, -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
             8)), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
           0, -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {
           0, -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
            8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
           0, -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {0, 0, -2, -2, 0, 0, 0, 0}, {0, 0, -2, 2,
            0, 0, 0, 0}, {0, 0, 2, -2, 0, 0, 0, 0}, {0, 0, 2, 2, 0, 0, 0, 
           0}, {0, 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
             8)), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
           0, 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {
           0, 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
            8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
           0, 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {0, 2, -2, 0, 0, 0, 0, 0}, {0, 2, 0, -2, 
           0, 0, 0, 0}, {0, 2, 0, 2, 0, 0, 0, 0}, {0, 2, 2, 0, 0, 0, 0, 0}, {
           0, -Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           0, -Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           0, -Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           0, -Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {0, 
            Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {0, 
            Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {0, 
            Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {0, 
            Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           0, -((5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8)), -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0,
             0}, {0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, (5/8 + 
             Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {
           0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {
           0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, (5/8 + Sqrt[5]/8)/(
            5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {
           0, (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 
            0}, {0, (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 
            0}, {0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {
           0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {
           0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 
            0}, {0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0}, {
           0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 
            0}, {0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 
            0}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 
            0}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0}, {
           0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -1, 0, 0, 0, 0}, {
           0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 1, 0, 0, 0, 0}, {
           0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1, 0, 0, 0, 0}, {
           0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 1, 0, 0, 0, 0}, {
           0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
            8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, 0, 0, 0}, {
           0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
            8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 0, 0, 0, 0}, {
           0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1, 0, 0, 0, 0}, {
           0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 1, 0, 0, 0, 0}, {
           1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {1, -2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {1, -2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, {1, -1, -1, 
            Sqrt[5], 0, 0, 0, 0}, {1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, {1, -1, 1, 
            Sqrt[5], 0, 0, 0, 0}, {1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, {
           1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, {1, -1, 
            Sqrt[5], -1, 0, 0, 0, 0}, {1, -1, 
            Sqrt[5], 1, 0, 0, 0, 0}, {
           1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {
           1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(
            5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {
           1, 0, (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {
           1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, {
           1, 1, -1, 
            Sqrt[5], 0, 0, 0, 0}, {1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, {1, 1, 1, 
            Sqrt[5], 0, 0, 0, 0}, {1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, {
           1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, {1, 1, 
            Sqrt[5], -1, 0, 0, 0, 0}, {1, 1, 
            Sqrt[5], 1, 0, 0, 0, 0}, {
           1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {1, 2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {1, 2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           1, -Sqrt[5], -1, -1, 0, 0, 0, 0}, {
           1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, {
           1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, {1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, {
           1, 
            Sqrt[5], -1, -1, 0, 0, 0, 0}, {1, 
            Sqrt[5], -1, 1, 0, 0, 0, 0}, {1, 
            Sqrt[5], 1, -1, 0, 0, 0, 0}, {1, 
            Sqrt[5], 1, 1, 0, 0, 0, 0}, {
           1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, {
           1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0, 0}, {
           1, (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 
            0}, {1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(
            5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, {
           1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {
           1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {
           1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {
           1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {
           1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
           1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {
           1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
           1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {2, -2, 0, 0, 0, 0, 0, 0}, {
           2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, 0, -2,
            0, 0, 0, 0, 0}, {2, 0, 0, -2, 0, 0, 0, 0}, {2, 0, 0, 2, 0, 0, 0, 
           0}, {2, 0, 2, 0, 0, 0, 0, 0}, {
           2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
           2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, 2, 0, 
           0, 0, 0, 0, 0}, {
           2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {
           2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {
           2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {
           2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {
           2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
           2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {2, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[5], -1, -1, -1, 0, 0, 0, 0}, {-Sqrt[5], -1, -1, 1, 0, 0, 0, 
            0}, {-Sqrt[5], -1, 1, -1, 0, 0, 0, 0}, {-Sqrt[5], -1, 1, 1, 0, 0, 
            0, 0}, {-Sqrt[5], 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5],
             0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5],
             0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5],
             0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5],
             1, -1, -1, 0, 0, 0, 0}, {-Sqrt[5], 1, -1, 1, 0, 0, 0, 0}, {-
            Sqrt[5], 1, 1, -1, 0, 0, 0, 0}, {-Sqrt[5], 1, 1, 1, 0, 0, 0, 
            0}, {-Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {-
            Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {-
            Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {-
            Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {
            Sqrt[5], -1, -1, -1, 0, 0, 0, 0}, {
            Sqrt[5], -1, -1, 1, 0, 0, 0, 0}, {
            Sqrt[5], -1, 1, -1, 0, 0, 0, 0}, {
            Sqrt[5], -1, 1, 1, 0, 0, 0, 0}, {
            Sqrt[5], 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[5], 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[5], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[5], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[5], 1, -1, -1, 0, 0, 0, 0}, {
            Sqrt[5], 1, -1, 1, 0, 0, 0, 0}, {
            Sqrt[5], 1, 1, -1, 0, 0, 0, 0}, {
            Sqrt[5], 1, 1, 1, 0, 0, 0, 0}, {
            Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[5], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {
            Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {
            Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {
            Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -1, 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 1, 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -1, 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 1, 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), -1, 0, 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 1, 0, 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(
            5/8 - Sqrt[5]/8), -1, 0, 0, 0, 0, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(
            5/8 - Sqrt[5]/8), 1, 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1, 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 
            0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -1, 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 1, 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, (5/8 + Sqrt[5]/8)/(
            5/8 - Sqrt[5]/8), -1, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 1, 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -1, 0, 0, 0, 
            0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 1, 0, 0, 0, 0,
             0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -1, 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 1, 0, 0, 0, 0, 
            0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -Sqrt[5], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 
            0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0,
             0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0,
             0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -Sqrt[5], 0, 0, 0, 
            0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[5], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -Sqrt[5], 0, 0, 0, 
            0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -Sqrt[5], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 
            0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0,
             0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0,
             0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -1, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 1, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -Sqrt[5], 0, 0, 0, 
            0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[5], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -1, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 1, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -1, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 1, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -Sqrt[5], 0, 0, 0, 
            0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[5], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -1, 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 1, 0, 0, 0, 0}, {
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 
            0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)],
             0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 
            0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)],
             1, -2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0, 
            0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 2, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0, 
            0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0,
             0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0,
             0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[5], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -2, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 2, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -2, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 2, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0, 
            0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -2, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 2, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -2, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 2, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0, 
            0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[5], 0, 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0,
             0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0,
             0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 
            0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
             8)), -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -1, (5/8 - Sqrt[5]/
             8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, -1, 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 1, 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, -1, 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 1, 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
            8), -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), 0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 
            0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
            0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - 
            Sqrt[5]/8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -1, 0, 0, 
            0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
            8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 1, 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, -1, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
            8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 1, 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            0}}, $CellContext`le8 = 256, $CellContext`position[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`y, 
            Blank[]]] := First[
           First[
            
            Position[$CellContext`x, $CellContext`y, 1, Heads -> 
             False]]], $CellContext`sizeList = {$CellContext`tiny, \
$CellContext`small, $CellContext`nrml, $CellContext`big, $CellContext`huge, \
$CellContext`varS}, $CellContext`shapeList = {$CellContext`tri, \
$CellContext`utr, $CellContext`squ, $CellContext`dia, $CellContext`cir, \
$CellContext`inv}, $CellContext`tri[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            
            Blank[]]] := $CellContext`polyTri[$CellContext`coords, \
$CellContext`scale, Subtract, "Tetrahedron"], $CellContext`scale = 
         0.02, $CellContext`polyTri[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`pm, 
            Blank[]], 
           Pattern[$CellContext`shape, 
            Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], 
           Translate[
            Scale[{
              PolyhedronData[$CellContext`shape, "Faces"]}, {1, 1, 
              1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], 
           Polygon[{{First[$CellContext`coords] - $CellContext`scale, 
              $CellContext`pm[
               $CellContext`second[$CellContext`coords], $CellContext`scale/
               Sqrt[3]]}, {First[$CellContext`coords] + $CellContext`scale, 
              $CellContext`pm[
               $CellContext`second[$CellContext`coords], $CellContext`scale/
               Sqrt[3]]}, {
              First[$CellContext`coords], 
              $CellContext`pm[
               $CellContext`second[$CellContext`coords], (-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`p3D = 
         " 2D", $CellContext`p3DList = {
          " 2D", " 3D", " Stereo", " Anaglyph"}, $CellContext`second[{1, 0, 
           28, 56, 70, 56, 28, 0, 1}] = 8, Pattern[$CellContext`secondPattern, 
           $CellContext`second[
            Pattern[$CellContext`x, 
             Blank[]]]] := Part[$CellContext`x, 2], $CellContext`utr[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            
            Blank[]]] := $CellContext`polyTri[$CellContext`coords, \
$CellContext`scale, Plus, "Icosahedron"], $CellContext`squ[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], 
           Translate[
            Scale[{
              PolyhedronData["Cube", "Faces"]}, {1, 1, 
              1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], 
           $CellContext`poly2D[
           4, $CellContext`coords, $CellContext`scale]], $CellContext`poly2D[
           Pattern[$CellContext`sides, 
            Blank[]], 
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]]] := Polygon[
           
           Table[{First[$CellContext`coords] + $CellContext`scale 
              Cos[2 Pi ($CellContext`i/$CellContext`sides)], \
$CellContext`second[$CellContext`coords] + $CellContext`scale 
              Sin[2 Pi ($CellContext`i/$CellContext`sides)]}, \
{$CellContext`i, (-1)/2, $CellContext`sides - 1/2}]], $CellContext`i = {0, 0, 
          0, 0, 0, 1, 0, 0}, $CellContext`dia[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], 
           Translate[
            Scale[{
              PolyhedronData["Octahedron", "Faces"]}, {1, 1, 
              1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], 
           Polygon[{{First[$CellContext`coords] - $CellContext`scale, 
              $CellContext`second[$CellContext`coords]}, {
              
              First[$CellContext`coords], \
$CellContext`second[$CellContext`coords] + $CellContext`scale Sqrt[2]}, {
             First[$CellContext`coords] + $CellContext`scale, 
              $CellContext`second[$CellContext`coords]}, {
              
              First[$CellContext`coords], \
$CellContext`second[$CellContext`coords] - $CellContext`scale 
              Sqrt[3]}}]], $CellContext`cir[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], 
           Sphere[$CellContext`coords, $CellContext`scale], 
           Disk[
            Part[$CellContext`coords, 
             Span[1, 2]], $CellContext`scale]], $CellContext`inv[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], 
           Translate[
            Scale[{
              PolyhedronData["Dodecahedron", "Faces"]}, {1, 1, 
              1} ($CellContext`scale/2), {0, 0, 0}], $CellContext`coords], 
           $CellContext`poly2D[
           5, $CellContext`coords, $CellContext`scale]], \
$CellContext`colorList = {
          "y", "o", "c", "m", "w", "r", "g", "b", "e", 
           "k"}, $CellContext`auxPtCd := ($CellContext`H = Flatten[
             AppendTo[$CellContext`H, 
              Array[
              0& , $CellContext`dims - 
               Length[$CellContext`H]]]]; $CellContext`V = Flatten[
             AppendTo[$CellContext`V, 
              Array[
              0& , $CellContext`dims - 
               Length[$CellContext`V]]]]; $CellContext`Z = Flatten[
             AppendTo[$CellContext`Z, 
              Array[
              0& , $CellContext`dims - 
               Length[$CellContext`Z]]]]), $CellContext`H = \
{-0.5418986532624118, -0.5418986532624118, 0, 0.5448835825396743, 
           0.08054772639440969, 0, 0.38529087617102353`, 
           0.27852830295289943`}, $CellContext`dims := Length[
           Part[$CellContext`dl, $CellContext`ds]], $CellContext`V = {
          0.5448835825396743, -0.5448835825396743, 0.38529087617102353`, 0, 
           0, -0.27852830295289943`, 0, 0}, $CellContext`Z = {
          0, 0.5448835825396743, -0.5448835825396743, 
           0.38529087617102353`, -0.27852830295289943`, 0, 0, 
           0}, $CellContext`lbin = 256, $CellContext`e8bin = CompressedData["
1:eJylkt2RwjAMhL08XRvXEiXQAP2/cQzez7FknQOYyRDL0v45v7f79XZpf0ut
/bSx9OWL5Ip8Inf4oUjX8+XNwdMD28ayIR087YkjZiFBFXakUemE6gQ6VF8w
hqCF137mDdMGN8pEe1LoVmApLAnqNjbEJWEisu0CMAERRxgYsXCBki2Y2pDj
WMaQsdSmMT+dYcB4eIZDNCkQv3Ss8HOzd4Ge1LgmaaKIsri2pbxNMGUgKQjb
KQwno9gMhqLdQmASRgxBQIojAOZY+GAkNBp7lGUQtblNbdmOamLVYbOAIeY1
HG6JXZoYIg3XUNBxHf/TFsGkQJATjCdZwUgpLxDXMrlAaZCMrdq6jI3iGDub
NmydbA9C92MY/PCP9QCHvgWy
          "], $CellContext`lorg = 
         256, $CellContext`e8Orig = {{(-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}, {
           1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2,
             1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 
            1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/
            2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 
            1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 
            1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/
            2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 
            1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/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}, {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, 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, 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, 
           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, 0, 1, 1, 0}, {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, 0, -1, -1, 0}, {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, 
           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, 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, 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, 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/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 
            1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/
            2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/
            2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/
            2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/
            2, (-1)/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/
            2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2,
             1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/
            2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/
            2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/
            2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/
            2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/
            2}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2,
             1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/
            2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 
            1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/
            2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 
            1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/
            2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 
            1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/
            2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 
            1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/
            2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/
            2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 
            1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2,
             1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/
            2, 1/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/
            2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1)/
            2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/
            2, (-1)/2, 1/2, (-1)/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, -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, 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,
            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, 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, 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, 
           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}, {0, 0, 0, 0, 0, -1, 1, 0}, {0, 0, 0, 0, 
           0, -1, 0, 1}, {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, -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, -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, -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}, {-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/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
           1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
           1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
           1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
           1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
           1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
           1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {
           1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {
           1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {
           1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {
           1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {
           1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {
           1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {
           1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {
           1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {
           1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {
           1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {
           1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {
           1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {
           1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {
           1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 
            1/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/
            2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/
            2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 
            1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/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`lrch = 
         256, $CellContext`richter = {{0.238123, -0.732867, 0.426464, 
           0.473637, 0.041174, 0.193707, 0.435072, 0.391741}, {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}, {-0.318671, -0.551954, 0.385291, 0.667343, 
           0.121721, -0.572654, -0.147168, 0.132511}, {
           0.435072, -0.391741, -0.188342, -0.061196, -0.238123, 
           0.732867, -0.196949, -0.606147}, {0.041174, -0.391741, -0.049781, 
           0.473637, 0.942084, -0.099017, 0.130329, 0.292724}, {
           0.318671, -0.551954, 0.770582, 0., 
           0.556793, -0.180913, -0.188342, -0.061196}, {-0.147168, -0.452937, 
           0.385291, 0.081896, 0.318671, 0.033494, -0.385291, 0.865377}, {
           0.238123, 0.214407, -0.703961, -0.63385, -0.359844, 
           0.160213, -0.049781, -0.473637}, {0.623414, -0.452937, 0.06662, 
           0.63385, 0.171503, -0.099017, -0.507012, 
           0.292724}, {-0.121721, -0.572654, -0.041174, -0.193707, 0.51562, 
           0.572654, -0.623414, -0.132511}, {-0.51562, -0.572654, -0.196949, 
           0.606147, 0.188342, 0.061196, 
           0.556793, -0.180913}, {-0.238123, -0.732867, 0.623414, 
           0.132511, -0.196949, -0.0207, 
           0.238123, -0.534833}, {-0.703961, -0.63385, -0.238123, -0.214407, 
           0.435072, -0.193707, -0.041174, -0.391741}, {-0.318671, 
           0.033494, -0.556793, -0.76636, 0.393899, 0., -0.476246, 0.}, {
           0.06662, -0.63385, -0.080548, 0.76636, -0.58224, 
           0.061196, -0.080548, -0.180913}, {0.238123, -0.412441, -0.393899, 
           0., 0.304743, -0.099017, 0.900911, 0.292724}, {0.51562, -0.572654, 
           0.426464, -0.473637, -0.080548, -0.180913, 0.58224, -0.061196}, {
           0.049781, -0.473637, 0.041174, -0.391741, -0.318671, 0.033494, 
           0.385291, 0.865377}, {0.435072, 0.193707, 0.359844, 
           0.160213, -0.277497, -0.160213, 0.820363, 0.473637}, {
           0.820363, -0.473637, 0.277497, -0.160213, 0.465839, 
           0.099017, -0.26357, -0.292724}, {0.121721, -0.572654, -0.188342, 
           0.061196, -0.623414, -0.452937, -0.51562, 
           0.37462}, {-0.344117, -0.473637, 
           0.196949, -0.0207, -0.385291, -0.667343, -0.318671, -0.551954}, {
           0.041174, 
           0.193707, -0.121721, -0.572654, -0.426464, -0.473637, -0.753743, \
-0.160213}, {0.426464, -0.473637, -0.51562, 0.572654, 0.238123, 0.534833, 
           0.196949, -0.0207}, {-0.06662, -0.63385, 0.623414, -0.452937, 0., 
           0.585447, 0., 0.198034}, {0.318671, 
           0.033494, -0.942084, -0.099017, -0.041174, -0.391741, -0.435072, 
           0.193707}, {0.703961, -0.63385, -0.304743, -0.099017, 
           0.147168, -0.452937, 0.121721, 0.37462}, {-0.147168, 
           0.132511, -0.556793, -0.180913, 
           0.196949, -0.606147, -0.238123, -0.732867}, {0.238123, -0.534833, 
           0.080548, -0.180913, 0.385291, -0.667343, 0.318671, -0.551954}, {
           0.623414, 0.132511, 0.238123, 0.732867, -0.344117, 0.473637, 
           0.116402, 0.160213}, {-0.318671, -0.231528, -0.435072, 0.193707, 
           0.385291, -0.865377, 0.318671, 0.033494}, {-0.041174, -0.391741, 
           0.385291, -0.27993, 0., -0.947274, 
           0., -0.320426}, {-0.507012, -0.292724, 0., 0.198034, 0.238123, 
           0.732867, 0.196949, -0.606147}, {-0.121721, 0.37462, 0.318671, 
           0.35392, -0.196949, -0.926573, 0.238123, 0.214407}, {
           0.26357, -0.292724, -0.318671, 
           0.35392, -0.385291, -0.865377, -0.318671, 
           0.033494}, {-0.435072, -0.391741, -0.147168, -0.132511, -0.703961, 
           0.313424, 0.06662, 0.63385}, {-0.900911, -0.292724, 
           0.238123, -0.214407, -0.465839, 0.099017, 
           0.26357, -0.292724}, {-0.51562, 0.37462, 0.080548, 0.76636, 
           0.507012, -0.292724, 0.171503, -0.099017}, {-0.130329, -0.292724, 
           0.556793, -0.76636, -0.318671, 0.231528, 0.385291, 
           0.27993}, {-0.623414, -0.452937, 0.58224, -0.25923, 
           0.080548, -0.180913, -0.58224, -0.061196}, {-0.238123, 
           0.214407, -0.900911, -0.292724, -0.121721, 0.37462, 0.147168, 
           0.452937}, {0.147168, -0.452937, 0.26357, 
           0.292724, -0.06662, -0.313424, -0.703961, -0.63385}, {-0.703961, 
           0.313424, 0.51562, 0.37462, -0.116402, -0.160213, -0.344117, 
           0.473637}, {-0.318671, -0.35392, -0.121721, 
           0.37462, -0.304743, -0.099017, -0.900911, 0.292724}, {0.06662, 
           0.313424, -0.196949, -0.926573, 0.26357, 0.292724, 0.465839, 
           0.099017}, {0.318671, -0.231528, -0.049781, -0.473637, 
           0.820363, -0.473637, 0.277497, -0.160213}, {-0.147168, -0.132511, 
           0.435072, 0.391741, -0.58224, 0.25923, -0.080548, -0.76636}, {
           0.238123, 0.534833, 0.116402, -0.160213, -0.623414, 
           0.452937, -0.51562, -0.37462}, {0.623414, -0.132511, -0.753743, 
           0.160213, 0.435072, -0.391741, -0.041174, 0.193707}, {
           0.130329, -0.292724, -0.385291, 0.865377, -0.196949, 0.341126, 
           0.238123, -0.412441}, {0.51562, 0.37462, 0.703961, -0.313424, 
           0.238123, -0.534833, 0.196949, 0.0207}, {
           0.900911, -0.292724, -0.06662, 0.313424, -0.049781, 0.473637, 
           0.359844, 0.160213}, {0.049781, 0.473637, 0.318671, -0.231528, 
           0., -0.320426, 0., 0.947274}, {
           0.435072, -0.193707, -0.318671, -0.231528, -0.188342, -0.25923, \
-0.556793, 0.76636}, {0.820363, 0.473637, 0., -0.320426, 0.147168, 0.452937, 
           0.121721, -0.37462}, {-0.26357, -0.292724, 0.147168, -0.452937, 
           0.900911, 0.292724, -0.304743, 0.099017}, {0.121721, 0.37462, 
           0.465839, 0.099017, 0.942084, 0.099017, 0.130329, -0.292724}, {
           0.507012, -0.292724, 0.171503, -0.099017, -0.753743, -0.160213, 
           0.426464, 0.473637}, {-0.344117, 
           0.473637, -0.080548, -0.180913, -0.703961, -0.313424, 
           0.06662, -0.63385}, {0.041174, -0.193707, 
           0.556793, -0.180913, -0.51562, -0.37462, 0.623414, -0.452937}, {
           0.426464, 0.473637, -0.238123, 0.732867, 0.556793, 
           0.180913, -0.188342, 0.061196}, {-0.06662, 0.313424, -0.900911, 
           0.292724, -0.318671, -0.231528, 0.385291, -0.27993}, {
           0.318671, -0.35392, 0.26357, -0.292724, 0.130329, 
           0.292724, -0.942084, 0.099017}, {0.703961, 0.313424, 0.58224, 
           0.25923, 0.171503, 0.099017, -0.507012, -0.292724}, {0.238123, 
           0.412441, 0.196949, 0.341126, -0.06662, 0.313424, -0.703961, 
           0.63385}, {-0.238123, -0.412441, -0.196949, -0.341126, 
           0.06662, -0.313424, 
           0.703961, -0.63385}, {-0.703961, -0.313424, -0.58224, -0.25923, \
-0.171503, -0.099017, 0.507012, 0.292724}, {-0.318671, 0.35392, -0.26357, 
           0.292724, -0.130329, -0.292724, 0.942084, -0.099017}, {
           0.06662, -0.313424, 0.900911, -0.292724, 0.318671, 
           0.231528, -0.385291, 0.27993}, {-0.426464, -0.473637, 
           0.238123, -0.732867, -0.556793, -0.180913, 
           0.188342, -0.061196}, {-0.041174, 0.193707, -0.556793, 0.180913, 
           0.51562, 0.37462, -0.623414, 0.452937}, {0.344117, -0.473637, 
           0.080548, 0.180913, 0.703961, 0.313424, -0.06662, 
           0.63385}, {-0.507012, 0.292724, -0.171503, 0.099017, 0.753743, 
           0.160213, -0.426464, -0.473637}, {-0.121721, -0.37462, -0.465839, \
-0.099017, -0.942084, -0.099017, -0.130329, 0.292724}, {0.26357, 
           0.292724, -0.147168, 0.452937, -0.900911, -0.292724, 
           0.304743, -0.099017}, {-0.820363, -0.473637, 0., 
           0.320426, -0.147168, -0.452937, -0.121721, 0.37462}, {-0.435072, 
           0.193707, 0.318671, 0.231528, 0.188342, 0.25923, 
           0.556793, -0.76636}, {-0.049781, -0.473637, -0.318671, 0.231528, 
           0., 0.320426, 0., -0.947274}, {-0.900911, 0.292724, 
           0.06662, -0.313424, 
           0.049781, -0.473637, -0.359844, -0.160213}, {-0.51562, -0.37462, \
-0.703961, 0.313424, -0.238123, 0.534833, -0.196949, -0.0207}, {-0.130329, 
           0.292724, 0.385291, -0.865377, 0.196949, -0.341126, -0.238123, 
           0.412441}, {-0.623414, 0.132511, 0.753743, -0.160213, -0.435072, 
           0.391741, 0.041174, -0.193707}, {-0.238123, -0.534833, -0.116402, 
           0.160213, 0.623414, -0.452937, 0.51562, 0.37462}, {0.147168, 
           0.132511, -0.435072, -0.391741, 0.58224, -0.25923, 0.080548, 
           0.76636}, {-0.318671, 0.231528, 0.049781, 0.473637, -0.820363, 
           0.473637, -0.277497, 0.160213}, {-0.06662, -0.313424, 0.196949, 
           0.926573, -0.26357, -0.292724, -0.465839, -0.099017}, {0.318671, 
           0.35392, 0.121721, -0.37462, 0.304743, 0.099017, 
           0.900911, -0.292724}, {0.703961, -0.313424, -0.51562, -0.37462, 
           0.116402, 0.160213, 0.344117, -0.473637}, {-0.147168, 
           0.452937, -0.26357, -0.292724, 0.06662, 0.313424, 0.703961, 
           0.63385}, {0.238123, -0.214407, 0.900911, 0.292724, 
           0.121721, -0.37462, -0.147168, -0.452937}, {0.623414, 
           0.452937, -0.58224, 0.25923, -0.080548, 0.180913, 0.58224, 
           0.061196}, {0.130329, 0.292724, -0.556793, 0.76636, 
           0.318671, -0.231528, -0.385291, -0.27993}, {
           0.51562, -0.37462, -0.080548, -0.76636, -0.507012, 
           0.292724, -0.171503, 0.099017}, {0.900911, 0.292724, -0.238123, 
           0.214407, 0.465839, -0.099017, -0.26357, 0.292724}, {0.435072, 
           0.391741, 0.147168, 0.132511, 
           0.703961, -0.313424, -0.06662, -0.63385}, {-0.26357, 0.292724, 
           0.318671, -0.35392, 0.385291, 0.865377, 0.318671, -0.033494}, {
           0.121721, -0.37462, -0.318671, -0.35392, 0.196949, 
           0.926573, -0.238123, -0.214407}, {0.507012, 0.292724, 
           0., -0.198034, -0.238123, -0.732867, -0.196949, 0.606147}, {
           0.041174, 0.391741, -0.385291, 0.27993, 0., 0.947274, 0., 
           0.320426}, {0.318671, 0.231528, 0.435072, -0.193707, -0.385291, 
           0.865377, -0.318671, -0.033494}, {-0.623414, -0.132511, -0.238123, \
-0.732867, 0.344117, -0.473637, -0.116402, -0.160213}, {-0.238123, 
           0.534833, -0.080548, 0.180913, -0.385291, 0.667343, -0.318671, 
           0.551954}, {0.147168, -0.132511, 0.556793, 0.180913, -0.196949, 
           0.606147, 0.238123, 0.732867}, {-0.703961, 0.63385, 0.304743, 
           0.099017, -0.147168, 
           0.452937, -0.121721, -0.37462}, {-0.318671, -0.033494, 0.942084, 
           0.099017, 0.041174, 0.391741, 0.435072, -0.193707}, {0.06662, 
           0.63385, -0.623414, 0.452937, 0., -0.585447, 
           0., -0.198034}, {-0.426464, 0.473637, 
           0.51562, -0.572654, -0.238123, -0.534833, -0.196949, 
           0.0207}, {-0.041174, -0.193707, 0.121721, 0.572654, 0.426464, 
           0.473637, 0.753743, 0.160213}, {0.344117, 0.473637, -0.196949, 
           0.0207, 0.385291, 0.667343, 0.318671, 0.551954}, {-0.121721, 
           0.572654, 0.188342, -0.061196, 0.623414, 0.452937, 
           0.51562, -0.37462}, {-0.820363, 0.473637, -0.277497, 
           0.160213, -0.465839, -0.099017, 0.26357, 
           0.292724}, {-0.435072, -0.193707, -0.359844, -0.160213, 0.277497, 
           0.160213, -0.820363, -0.473637}, {-0.049781, 0.473637, -0.041174, 
           0.391741, 0.318671, -0.033494, -0.385291, -0.865377}, {-0.51562, 
           0.572654, -0.426464, 0.473637, 0.080548, 0.180913, -0.58224, 
           0.061196}, {-0.238123, 0.412441, 0.393899, 0., -0.304743, 
           0.099017, -0.900911, -0.292724}, {-0.06662, 0.63385, 
           0.080548, -0.76636, 0.58224, -0.061196, 0.080548, 0.180913}, {
           0.318671, -0.033494, 0.556793, 0.76636, -0.393899, 0., 0.476246, 
           0.}, {0.703961, 0.63385, 0.238123, 0.214407, -0.435072, 0.193707, 
           0.041174, 0.391741}, {0.238123, 0.732867, -0.623414, -0.132511, 
           0.196949, 0.0207, -0.238123, 0.534833}, {0.51562, 0.572654, 
           0.196949, -0.606147, -0.188342, -0.061196, -0.556793, 0.180913}, {
           0.121721, 0.572654, 0.041174, 0.193707, -0.51562, -0.572654, 
           0.623414, 0.132511}, {-0.623414, 
           0.452937, -0.06662, -0.63385, -0.171503, 0.099017, 
           0.507012, -0.292724}, {-0.238123, -0.214407, 0.703961, 0.63385, 
           0.359844, -0.160213, 0.049781, 0.473637}, {0.147168, 
           0.452937, -0.385291, -0.081896, -0.318671, -0.033494, 
           0.385291, -0.865377}, {-0.318671, 0.551954, -0.770582, 
           0., -0.556793, 0.180913, 0.188342, 0.061196}, {-0.041174, 0.391741,
            0.049781, -0.473637, -0.942084, 
           0.099017, -0.130329, -0.292724}, {-0.435072, 0.391741, 0.188342, 
           0.061196, 0.238123, -0.732867, 0.196949, 0.606147}, {0.318671, 
           0.551954, -0.385291, -0.667343, -0.121721, 0.572654, 
           0.147168, -0.132511}, {-0.238123, 
           0.732867, -0.426464, -0.473637, -0.041174, -0.193707, -0.435072, \
-0.391741}, {-0.556793, 0.180913, 0.041174, -0.193707, -0.080548, 0.76636, 
           0.58224, 0.25923}, {0.196949, 0.341126, -0.238123, -0.412441, 
           0.196949, -0.926573, -0.238123, 0.214407}, {-0.196949, 
           0.341126, -0.476246, 0., 
           0.900911, -0.292724, -0.304743, -0.099017}, {0.080548, 
           0.180913, -0.344117, 0.473637, -0.51562, 0.37462, 0.623414, 
           0.452937}, {-0.385291, 0.27993, -0.041174, -0.391741, 
           0.277497, -0.160213, -0.820363, 0.473637}, {0., 
           0.947274, -0.277497, -0.160213, -0.318671, 0.35392, 
           0.385291, -0.081896}, {0.385291, 0.27993, -0.359844, 0.160213, 
           0.130329, -0.292724, -0.942084, -0.099017}, {-0.359844, 
           0.160213, -0.385291, -0.27993, -0.556793, -0.76636, 
           0.188342, -0.25923}, {-0.753743, 0.160213, -0.623414, 0.132511, 
           0.147168, -0.132511, 0.121721, -0.572654}, {-0.476246, 0., 
           0.196949, -0.341126, -0.238123, -0.214407, -0.196949, -0.926573}, \
{-0.942084, 0.099017, 0.188342, 0.25923, 0.476246, 0., 0.393899, 
           0.}, {-0.556793, 0.76636, -0.130329, -0.292724, 0.435072, 
           0.193707, -0.041174, 0.391741}, {-0.171503, 0.099017, 
           0.507012, -0.292724, 0.623414, 0.132511, 0.51562, 0.572654}, {0., 
           0.320426, 0.820363, 0.473637, -0.26357, 0.292724, -0.465839, 
           0.099017}, {0.277497, 0.160213, 0., 0.947274, 0.121721, 
           0.37462, -0.147168, 0.452937}, {-0.188342, 0.25923, 0.385291, 
           0.865377, 0.359844, 0.160213, 0.049781, -0.473637}, {0.196949, 
           0.926573, 0.06662, 0.313424, 0.318671, 
           0.35392, -0.385291, -0.081896}, {0.58224, 
           0.25923, -0.703961, -0.313424, -0.507012, -0.292724, -0.171503, \
-0.099017}, {-0.116402, 0.160213, 0.238123, 
           0.534833, -0.58224, -0.25923, -0.080548, 0.76636}, {-0.58224, 
           0.25923, -0.623414, -0.452937, 0.344117, 0.473637, -0.116402, 
           0.160213}, {-0.196949, 0.926573, 
           0.304743, -0.099017, -0.385291, -0.27993, -0.318671, 0.231528}, {
           0.188342, 0.25923, 0.942084, -0.099017, -0.196949, -0.341126, 
           0.238123, 0.412441}, {-0.304743, 0.099017, -0.196949, 0.926573, 
           0.041174, -0.391741, 0.435072, 0.193707}, {0.080548, 0.76636, 
           0.51562, -0.37462, 0., 0.198034, 0., -0.585447}, {0.465839, 
           0.099017, -0.121721, -0.37462, -0.188342, 
           0.25923, -0.556793, -0.76636}, {-0.385291, 0.865377, -0.130329, 
           0.292724, 0.238123, -0.412441, 0.196949, -0.341126}, {0., 0.198034,
            0.507012, 0.292724, 0.426464, -0.473637, 0.753743, -0.160213}, {
           0.385291, 0.865377, 0.188342, -0.25923, 0.385291, -0.27993, 
           0.318671, 0.231528}, {-0.385291, -0.865377, -0.188342, 
           0.25923, -0.385291, 0.27993, -0.318671, -0.231528}, {
           0., -0.198034, -0.507012, -0.292724, -0.426464, 
           0.473637, -0.753743, 0.160213}, {0.385291, -0.865377, 
           0.130329, -0.292724, -0.238123, 0.412441, -0.196949, 
           0.341126}, {-0.465839, -0.099017, 0.121721, 0.37462, 
           0.188342, -0.25923, 0.556793, 
           0.76636}, {-0.080548, -0.76636, -0.51562, 0.37462, 0., -0.198034, 
           0., 0.585447}, {0.304743, -0.099017, 
           0.196949, -0.926573, -0.041174, 
           0.391741, -0.435072, -0.193707}, {-0.188342, -0.25923, -0.942084, 
           0.099017, 0.196949, 0.341126, -0.238123, -0.412441}, {
           0.196949, -0.926573, -0.304743, 0.099017, 0.385291, 0.27993, 
           0.318671, -0.231528}, {0.58224, -0.25923, 0.623414, 
           0.452937, -0.344117, -0.473637, 0.116402, -0.160213}, {
           0.116402, -0.160213, -0.238123, -0.534833, 0.58224, 0.25923, 
           0.080548, -0.76636}, {-0.58224, -0.25923, 0.703961, 0.313424, 
           0.507012, 0.292724, 0.171503, 
           0.099017}, {-0.196949, -0.926573, -0.06662, -0.313424, -0.318671, \
-0.35392, 0.385291, 0.081896}, {
           0.188342, -0.25923, -0.385291, -0.865377, -0.359844, -0.160213, \
-0.049781, 0.473637}, {-0.277497, -0.160213, 
           0., -0.947274, -0.121721, -0.37462, 0.147168, -0.452937}, {
           0., -0.320426, -0.820363, -0.473637, 0.26357, -0.292724, 
           0.465839, -0.099017}, {0.171503, -0.099017, -0.507012, 
           0.292724, -0.623414, -0.132511, -0.51562, -0.572654}, {
           0.556793, -0.76636, 0.130329, 0.292724, -0.435072, -0.193707, 
           0.041174, -0.391741}, {
           0.942084, -0.099017, -0.188342, -0.25923, -0.476246, 0., -0.393899,
            0.}, {0.476246, 0., -0.196949, 0.341126, 0.238123, 0.214407, 
           0.196949, 0.926573}, {0.753743, -0.160213, 
           0.623414, -0.132511, -0.147168, 0.132511, -0.121721, 0.572654}, {
           0.359844, -0.160213, 0.385291, 0.27993, 0.556793, 
           0.76636, -0.188342, 0.25923}, {-0.385291, -0.27993, 
           0.359844, -0.160213, -0.130329, 0.292724, 0.942084, 0.099017}, {
           0., -0.947274, 0.277497, 0.160213, 0.318671, -0.35392, -0.385291, 
           0.081896}, {0.385291, -0.27993, 0.041174, 0.391741, -0.277497, 
           0.160213, 0.820363, -0.473637}, {-0.080548, -0.180913, 
           0.344117, -0.473637, 0.51562, -0.37462, -0.623414, -0.452937}, {
           0.196949, -0.341126, 0.476246, 0., -0.900911, 0.292724, 0.304743, 
           0.099017}, {-0.196949, -0.341126, 0.238123, 0.412441, -0.196949, 
           0.926573, 0.238123, -0.214407}, {0.556793, -0.180913, -0.041174, 
           0.193707, 0.080548, -0.76636, -0.58224, -0.25923}, {-0.385291, 
           0.081896, 0.465839, -0.099017, 0.703961, -0.63385, -0.06662, 
           0.313424}, {0., -0.585447, 0.171503, 0.099017, -0.51562, 0.572654, 
           0.623414, -0.132511}, {0.385291, 0.081896, 0.147168, 0.452937, 
           0.556793, -0.76636, -0.188342, -0.25923}, {-0.080548, 0.180913, 
           0.238123, -0.534833, -0.318671, 0.551954, 0.385291, -0.667343}, {
           0.196949, 0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
           0.703961, -0.313424}, {-0.196949, 
           0.0207, -0.344117, -0.473637, -0.637341, 0., 0.770582, 0.}, {
           0.556793, 0.180913, -0.147168, 0.132511, -0.753743, 0.160213, 
           0.426464, -0.473637}, {-0.942084, -0.099017, -0.318671, -0.033494, 
           0.049781, 0.473637, -0.359844, 0.160213}, {-0.556793, -0.76636, 
           0.318671, -0.033494, 0.238123, 0.412441, 0.196949, 
           0.341126}, {-0.171503, -0.099017, 0., -0.585447, 0.196949, 
           0.606147, -0.238123, 0.732867}, {-0.637341, 0., -0.385291, 
           0.667343, -0.435072, -0.391741, 0.041174, 
           0.193707}, {-0.359844, -0.160213, 0.435072, 
           0.193707, -0.820363, -0.473637, -0.277497, -0.160213}, {-0.753743, \
-0.160213, 0.196949, 0.606147, -0.116402, 
           0.160213, -0.344117, -0.473637}, {-0.188342, 0.061196, -0.121721, 
           0.572654, -0.06662, 0.63385, -0.703961, -0.313424}, {
           0.196949, -0.606147, -0.51562, -0.572654, -0.121721, -0.572654, 
           0.147168, 0.132511}, {0.58224, 0.061196, 0.196949, 0.0207, 
           0.080548, 0.76636, -0.58224, 0.25923}, {0.116402, 0.160213, 
           0.58224, -0.061196, 0.318671, 0.551954, -0.385291, -0.667343}, {
           0.393899, 0., 0.238123, -0.412441, -0.703961, -0.63385, 0.06662, 
           0.313424}, {-0.58224, 0.061196, 0.116402, 0.160213, -0.770582, 
           0., -0.637341, 0.}, {-0.196949, -0.606147, -0.753743, -0.160213, 
           0.58224, 0.061196, 0.080548, -0.180913}, {0.188342, 0.061196, 
           0.435072, -0.391741, -0.623414, 0.132511, -0.51562, 
           0.572654}, {-0.277497, 0.160213, 
           0.820363, -0.473637, -0.385291, -0.081896, -0.318671, -0.35392}, \
{-0.304743, -0.099017, -0.703961, 0.63385, -0.385291, 0.081896, -0.318671, 
           0.35392}, {0.080548, -0.76636, 0.06662, -0.63385, 
           0.196949, -0.0207, -0.238123, -0.534833}, {0.465839, -0.099017, 
           0.385291, -0.081896, 0.238123, -0.214407, 
           0.196949, -0.926573}, {-0.770582, 0., 0.318671, -0.551954, 
           0.147168, 0.132511, 0.121721, 
           0.572654}, {-0.385291, -0.667343, -0.318671, -0.551954, -0.041174, 
           0.193707, -0.435072, 0.391741}, {-0.385291, 0.667343, 0.637341, 0.,
            0.188342, -0.061196, 0.556793, 0.180913}, {
           0.385291, -0.667343, -0.637341, 0., -0.188342, 
           0.061196, -0.556793, -0.180913}, {0.385291, 0.667343, 0.318671, 
           0.551954, 0.041174, -0.193707, 0.435072, -0.391741}, {0.770582, 
           0., -0.318671, 
           0.551954, -0.147168, -0.132511, -0.121721, -0.572654}, {-0.465839, 
           0.099017, -0.385291, 0.081896, -0.238123, 0.214407, -0.196949, 
           0.926573}, {-0.080548, 0.76636, -0.06662, 0.63385, -0.196949, 
           0.0207, 0.238123, 0.534833}, {0.304743, 0.099017, 
           0.703961, -0.63385, 0.385291, -0.081896, 0.318671, -0.35392}, {
           0.277497, -0.160213, -0.820363, 0.473637, 0.385291, 0.081896, 
           0.318671, 0.35392}, {-0.188342, -0.061196, -0.435072, 0.391741, 
           0.623414, -0.132511, 0.51562, -0.572654}, {0.196949, 0.606147, 
           0.753743, 0.160213, -0.58224, -0.061196, -0.080548, 0.180913}, {
           0.58224, -0.061196, -0.116402, -0.160213, 0.770582, 0., 0.637341, 
           0.}, {-0.393899, 0., -0.238123, 0.412441, 0.703961, 
           0.63385, -0.06662, -0.313424}, {-0.116402, -0.160213, -0.58224, 
           0.061196, -0.318671, -0.551954, 0.385291, 
           0.667343}, {-0.58224, -0.061196, -0.196949, -0.0207, -0.080548, \
-0.76636, 0.58224, -0.25923}, {-0.196949, 0.606147, 0.51562, 0.572654, 
           0.121721, 0.572654, -0.147168, -0.132511}, {0.188342, -0.061196, 
           0.121721, -0.572654, 0.06662, -0.63385, 0.703961, 0.313424}, {
           0.753743, 0.160213, -0.196949, -0.606147, 0.116402, -0.160213, 
           0.344117, 0.473637}, {0.359844, 0.160213, -0.435072, -0.193707, 
           0.820363, 0.473637, 0.277497, 0.160213}, {0.637341, 0., 
           0.385291, -0.667343, 0.435072, 0.391741, -0.041174, -0.193707}, {
           0.171503, 0.099017, 0., 0.585447, -0.196949, -0.606147, 
           0.238123, -0.732867}, {0.556793, 0.76636, -0.318671, 
           0.033494, -0.238123, -0.412441, -0.196949, -0.341126}, {0.942084, 
           0.099017, 0.318671, 0.033494, -0.049781, -0.473637, 
           0.359844, -0.160213}, {-0.556793, -0.180913, 0.147168, -0.132511, 
           0.753743, -0.160213, -0.426464, 0.473637}, {0.196949, -0.0207, 
           0.344117, 0.473637, 0.637341, 0., -0.770582, 
           0.}, {-0.196949, -0.0207, 0.58224, 
           0.061196, -0.06662, -0.63385, -0.703961, 0.313424}, {
           0.080548, -0.180913, -0.238123, 0.534833, 
           0.318671, -0.551954, -0.385291, 
           0.667343}, {-0.385291, -0.081896, -0.147168, -0.452937, -0.556793, 
           0.76636, 0.188342, 0.25923}, {0., 0.585447, -0.171503, -0.099017, 
           0.51562, -0.572654, -0.623414, 0.132511}, {-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}, {
           0.385291, -0.081896, -0.465839, 0.099017, -0.703961, 0.63385, 
           0.06662, -0.313424}}, $CellContext`lcel = 
         256, $CellContext`cell600 = {{0, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {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, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
           0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 1, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, -1}, {
           1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1}, {
           0, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-1, -1, -1, -1, 1, 1,
            1, 1}, {-1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-1, -1, 1, -1, 1, 
           1, -1, 1}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {1, -1, -1, 1, -1,
            1, 1, -1}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8)}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {0, 0, 2, 0, 0, 
           0, -2, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 1}, {
           0, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/
             8)/(5/8 + Sqrt[5]/8), 0, 1, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8))}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 1}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            1}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8)}, {1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, -1}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-1, 1, -1, -1, 1, -1,
            1, 1}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {-1, 1, 1, -1, 
           1, -1, -1, 1}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/
              8)/(5/8 + Sqrt[5]/8)), 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0}, {1, 1, -1, 1, -1, -1, 1, -1}, {1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {1, 1, 
           1, -1, -1, -1, -1, 
           1}, {-1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1}, {
           1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8)}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1}, {
           1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {
           0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {
           0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {-1, -1, -1, 1,
            1, 1, 1, -1}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {-1, -1, 1, 1, 1, 
           1, -1, -1}, {
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 1}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {-1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {-1, (5/8 - Sqrt[5]/
             8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
           1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8)}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1}, {0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1}, {1, -1, -1, -1, -1,
            1, 1, 1}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {0, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -1}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1}, {0, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {
           0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 2 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0}, {1, 1, 1, 
           1, -1, -1, -1, -1}, {1, -1, 1, -1, -1, 1, -1, 1}, {
           1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {(5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {
           1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, -1, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 
            1}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-1, 1, -1, 1, 1, -1, 
           1, -1}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-1, 1, 1, 1, 
           1, -1, -1, -1}, {0, 2, 0, 0, 0, -2, 0, 
           0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, {1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            1}, {0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           0, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - 
              Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8)}, {
           0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {1, 1, -1, -1, -1, -1,
            1, 1}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0}, {
           0, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {(5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {0, -1, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8)}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {(5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 1, 0, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 1}, {
           2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, (-2) 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 
            0}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
           0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {-1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 0, 0, 2, 0, 0, 
           0, -2}, {
           1, 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           0, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1}, {0, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {
           1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {
           0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           0, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/
             8)/(5/8 + Sqrt[5]/8), 0, -1, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8))}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           0, 0, 0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 
            2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1}, {
           0, 0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, (-2) 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
           0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/
              8)/(5/8 + Sqrt[5]/8)), -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 1}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {
           0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), -1, 0, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 1}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {-1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           0, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {
           0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1}, {0, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
             8)]}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, {
           0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 0, 0, -2, 0, 0, 0,
            2}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {
           0, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/
              8)/(5/8 + Sqrt[5]/8)), 0, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8)}, {0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1}, {
           1, 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, -1}, {0, -2, 0, 0, 0, 2, 0, 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, -1}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {(5/8 - Sqrt[5]/
             8)/(5/8 + Sqrt[5]/8), -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/
              8)/(5/8 + Sqrt[5]/8)), 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {(5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, {-1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-2, 0, 0, 0, 2, 0, 0,
            0}, {-1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1}, {(5/8 - Sqrt[5]/
             8)/(5/8 + Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)],
             1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {
           0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            1}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {-1, (5/8 - 
             Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, 
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {
           0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, (-2) 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0}, {0, -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8))}, {(-2) 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 2 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0}, {0, 0, -2, 0,
            0, 0, 2, 0}, {
           0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), -1}, {
           0, 0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 2 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
           0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 1, 0, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), -1}, {
           0, 0, 0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 
            0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {-1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {1, -1, 1, 1, -1, 
           1, -1, -1}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {
           0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1}, {(5/8 - Sqrt[5]/
             8)/(5/8 + Sqrt[5]/8), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/
              8)/(5/8 + Sqrt[5]/8)), 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {
           1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {2, 0, 0, 0, -2, 0, 0,
            0}, {1, 0, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
           1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {0, 1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8))}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {0, 1, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8)}, {
           0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), -1, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            1}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, 
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 1, 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {-
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + 
            Sqrt[5]/8), 0, -1, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8)), 0, 1}, {-
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 
            Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {-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}, {
            
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -
            Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/(
            5/8 + Sqrt[5]/8), 0}}, $CellContext`e8b = {{{0, 0, 0, 0, 0, 0, 0, 
            0}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, (-1)/2, Sqrt[3]/2, 0, 
             0}, {0.900911, 0.292724, -0.238123, 0.214407, 
            0.465839, -0.099017, -0.26357, 0.292724}, {-2., 0., 0., 0., 2., 
            0., 0., 0.}, {-2, -2, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-2, -2, 0, 0, 0, 0, 0, 0}, 1, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["w", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"-"]], 74, {
            "w", "l"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{1, 0, 
            0, 0, 0, 0, 0, 0}, {1, 0, 0, 0, 0, 0, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0, 0, 0}, {1, 0, 0, 0, 0, 0, 0, 
            0}, {1., 0., 0., 0., 0., 0., 0., 
            0.}, {-2, -1, (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {1., 
            0., 1., 0., 0., 0., 0., 
            0.}, {-2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 2, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            0, {"y", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{0, 1, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 
            0}, {1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 
            0, 0}, {0., 1., 0., 0., 0., 0., 0., 
            0.}, {-2, -1, (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {
            0.30901699437494745`, 0.9510565162951535, -0.8090169943749475, 
            0.5877852522924731, 0., 0., 0., 
            0.}, {-2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 3, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 2, {
            "y", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 
            0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {0, 0, 1, 0, 0, 
            0, 0, 0}, {0., 0., 1., 0., 0., 0., 0., 
            0.}, {-2, -1, GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 
             0}, {-0.8090169943749475, 0.5877852522924731, 
            0.30901699437494745`, -0.9510565162951535, 0., 0., 0., 
            0.}, {-2, -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 4, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            4, {"y", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 
            0}, {0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 
            0, 0}, {0., 0., 0., 1., 0., 0., 0., 
            0.}, {-2, -1, GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 
             0}, {-0.8090169943749475, -0.5877852522924731, 
            0.30901699437494745`, 0.9510565162951535, 0., 0., 0., 
            0.}, {-2, -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 5, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 
            6, {"y", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 
            0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0., 0., 
            0., 0., 1., 0., 0., 0.}, {-2, 0, -2, 0, 0, 0, 0, 0}, {
            0.30901699437494745`, -0.9510565162951535, -0.8090169943749475, \
-0.5877852522924731, 0., 0., 0., 0.}, {-2, 0, -2, 0, 0, 0, 0, 0}, 6, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            8, {"w", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 
            0}, {0, 0, 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0,
             0, 0, 0, 0, 1, 0, 0}, {0., 0., 0., 0., 0., 1., 0., 0.}, {-2, 0, 
            0, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 0, 0, -2, 0, 0,
             0, 0}, 7, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\/3\)"]],
             10, {"w", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1, 
            0}, {0, 0, 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[2], -(1/Sqrt[6])}, {0, 0,
             0, 0, 0, 0, 1, 0}, {0., 0., 0., 0., 0., 0., 1., 0.}, {-2, 0, 0, 
            2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 0, 0, 2, 0, 0, 0, 
            0}, 8, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\/3\)"]],
             12, {"w", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{0, 0, 0, 0, 0, 0, 0, 1}, {0, 0, 0, 0, 0, 0, 0, 
            1}, {0, 0, 0, 0, 0, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {0, 0, 0, 0, 0, 0, 0, 1}, {0., 0., 0., 0., 0., 0., 
            0., 1.}, {-2, 0, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2,
             0, 2, 0, 0, 0, 0, 0}, 9, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\/3\)"]],
             14, {"w", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{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/Sqrt[2], 0, -(1/Sqrt[2]), 0, (-1)/2, Sqrt[3]/2, 0, 
             0}, {-0.753743, -0.160213, 0.196949, 0.606147, -0.116402, 
            0.160213, -0.344117, -0.473637}, {-1., -1., -1., -1., 1., 1., 1., 
            1.}, {-2, 1, (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 
            0}, {-2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 10, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["w", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"-"]], 72, {
            "w", "d"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{1, 0, 
            1, 0, 0, 0, 0, 0}, {
            1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), (-1)/2, Sqrt[3]/2, 0, 
             0}, {-0.623414, -0.132511, -0.238123, -0.732867, 
            0.344117, -0.473637, -0.116402, -0.160213}, {-1., -1., -1., 1., 
            1., 1., 1., -1.}, {-2, 1, (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 11, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"-"]], 78, {
            "w", "m"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{1, 0, 
            0, 1, 0, 0, 0, 0}, {
            1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 0, 1/Sqrt[2], (-1)/2, Sqrt[3]/2, 0, 0}, {
            0.304743, 0.099017, 0.703961, -0.63385, 0.385291, -0.081896, 
            0.318671, -0.35392}, {-1., -1., 1., -1., 1., 1., -1., 
            1.}, {-2, 1, GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {-2, 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 12, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            70, {"y", "m"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 0, 0, 
            0, 1, 0, 0, 0}, {
            1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
            0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/2, Sqrt[3]/2, 0, 0}, {
            0.556793, 0.180913, -0.147168, 0.132511, -0.753743, 0.160213, 
            0.426464, -0.473637}, {-1., -1., 1., 1., 1., 
            1., -1., -1.}, {-2, 1, GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 13, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["y", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\
], 193, {"y", "d"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{1, 0, 0, 
            0, 0, 1, 0, 0}, {
            1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
            0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, (-1)/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.465839, -0.099017, 
            0.121721, 0.37462, 0.188342, -0.25923, 0.556793, 0.76636}, {-1., 
            0., -1.618034, -0.618034, 1., 0., 1.618034, 0.618034}, {-2, 2, 0, 
            0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 2, 0, 0, 0, 0, 0, 
            0}, 14, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["o", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 209, {
            "o", "d"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 
            0, 0, 0, 0, 1, 0}, {
            1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
            0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[
              6])}, {-0.385291, -0.081896, -0.147168, -0.452937, -0.556793, 
            0.76636, 0.188342, 0.25923}, {-1., 0., -1.618034, 0.618034, 1., 
            0., 1.618034, -0.618034}, {-2, (-1)/GoldenRatio, -GoldenRatio, -1,
              0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 15, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["c", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 225, {
            "c", "d"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 
            0, 0, 0, 0, 0, 1}, {
            1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {
            0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.188342, 0.061196, 0.435072, -0.391741, -0.623414, 
            0.132511, -0.51562, 0.572654}, {-1., 0., 1.618034, -0.618034, 1., 
            0., -1.618034, 
            0.618034}, {-2, (-1)/GoldenRatio, -GoldenRatio, 1, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 16, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["m", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 241, {
            "m", "d"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 1, 
            1, 0, 0, 0, 0, 
            0}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
            0, 1/Sqrt[2], 0, -(1/Sqrt[2]), (-1)/2, Sqrt[3]/2, 0, 0}, {
            0.820363, 0.473637, 0., -0.320426, 0.147168, 0.452937, 
            0.121721, -0.37462}, {-1., 0., 1.618034, 0.618034, 1., 
            0., -1.618034, -0.618034}, {-2, (-1)/GoldenRatio, GoldenRatio, -1,
              0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 17, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"-"]], 76, {
            "w", "m"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{0, 1, 
            0, 1, 0, 0, 0, 
            0}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
            0, 1/Sqrt[2], 0, 1/Sqrt[2], (-1)/2, Sqrt[3]/2, 0, 
             0}, {-0.703961, -0.313424, -0.58224, -0.25923, -0.171503, \
-0.099017, 0.507012, 0.292724}, {-1., 1., -1., -1., 1., -1., 1., 
            1.}, {-2, (-1)/GoldenRatio, GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 18, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            68, {"y", "m"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{0, 1, 0, 
            0, 1, 0, 0, 
            0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
            0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/2, Sqrt[3]/2, 0, 
             0}, {-0.58224, -0.25923, 0.703961, 0.313424, 0.507012, 0.292724, 
            0.171503, 0.099017}, {-1., 1., -1., 1., 1., -1., 
            1., -1.}, {-2, GoldenRatio^(-1), -GoldenRatio, -1, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {-2, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 19, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["y", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\
], 195, {"y", "l"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{0, 1, 0, 
            0, 0, 1, 0, 
            0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
            0, 1/Sqrt[2], -(1/Sqrt[2]), 0, (-1)/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.277497, 0.160213, 0., 
            0.947274, 0.121721, 0.37462, -0.147168, 0.452937}, {-1., 1., 
            1., -1., 1., -1., -1., 
            1.}, {-2, GoldenRatio^(-1), -GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {-2, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 20, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["o", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 211, {
            "o", "l"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 1, 
            0, 0, 0, 0, 1, 
            0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
            0, 1/Sqrt[2], -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.507012, 0.292724, 
            0., -0.198034, -0.238123, -0.732867, -0.196949, 0.606147}, {-1., 
            1., 1., 1., 
            1., -1., -1., -1.}, {-2, GoldenRatio^(-1), GoldenRatio, -1, 0, 0, 
             0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 21, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["c", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 227, {
            "c", "l"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 1, 
            0, 0, 0, 0, 0, 
            1}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {
            0, 1/Sqrt[2], -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.435072, -0.193707, -0.359844, -0.160213, 
            0.277497, 0.160213, -0.820363, -0.473637}, {-1., -0.618034, 
            0., -1.618034, 1., 0.618034, 0., 
            1.618034}, {-2, GoldenRatio^(-1), GoldenRatio, 1, 0, 0, 0, 0}, {0,
             0, 0, 0, 0, 0, 0, 0}, {-2, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 22, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["m", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 243, {
            "m", "l"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 
            1, 1, 0, 0, 0, 
            0}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, (-1)/2, Sqrt[3]/2, 0, 
             0}, {-0.359844, -0.160213, 0.435072, 
            0.193707, -0.820363, -0.473637, -0.277497, -0.160213}, {-1., \
-0.618034, 0., 1.618034, 1., 0.618034, 
            0., -1.618034}, {-2, -GoldenRatio, -1, (-1)/GoldenRatio, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 23, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["y", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            66, {"y", "l"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{0, 0, 1, 
            0, 1, 0, 0, 
            0}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), 1/2, Sqrt[3]/2, 0, 0}, {
            0.171503, 0.099017, 0., 0.585447, -0.196949, -0.606147, 
            0.238123, -0.732867}, {-1., 0.618034, 0., -1.618034, 
            1., -0.618034, 0., 
            1.618034}, {-2, -GoldenRatio, -1, GoldenRatio^(-1), 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 24, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\
], 197, {"y", "m"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{0, 0, 1, 
            0, 0, 1, 0, 
            0}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.703961, 0.63385, 
            0.238123, 0.214407, -0.435072, 0.193707, 0.041174, 
            0.391741}, {-1., 0.618034, 0., 1.618034, 1., -0.618034, 
            0., -1.618034}, {-2, -GoldenRatio, 1, (-1)/GoldenRatio, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 25, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 213, {
            "o", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 
            1, 0, 0, 0, 1, 
            0}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), 1/
             Sqrt[2], -(1/Sqrt[6])}, {-0.623414, -0.452937, 0.58224, -0.25923,
             0.080548, -0.180913, -0.58224, -0.061196}, {-1., -1.618034, \
-0.618034, 0., 1., 1.618034, 0.618034, 
            0.}, {-2, -GoldenRatio, 1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 
            0}, {-2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 26, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 229, {
            "c", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 
            1, 0, 0, 0, 0, 
            1}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/
             2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.51562, -0.37462, -0.703961, 0.313424, -0.238123, 
            0.534833, -0.196949, -0.0207}, {-1., -1.618034, 0.618034, 0., 1., 
            1.618034, -0.618034, 
            0.}, {-2, GoldenRatio, -1, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {-2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 27, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 245, {
            "m", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 
            0, 1, 1, 0, 0, 
            0}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], 1/2, Sqrt[3]/2, 0, 0}, {
            0.238123, 0.214407, -0.703961, -0.63385, -0.359844, 
            0.160213, -0.049781, -0.473637}, {-1., 1.618034, -0.618034, 0., 
            1., -1.618034, 0.618034, 
            0.}, {-2, GoldenRatio, -1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {-2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 28, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            199, {"y", "m"}, {$CellContext`utr, 3/2}, 1, 
            1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 
            Units`TimeUnit}, {{0, 0, 0, 1, 0, 1, 0, 
            0}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.435072, 0.391741, 
            0.147168, 0.132511, 
            0.703961, -0.313424, -0.06662, -0.63385}, {-1., 1.618034, 
            0.618034, 0., 1., -1.618034, -0.618034, 
            0.}, {-2, GoldenRatio, 1, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {-2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 29, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 215, {"o", "m"}, {$CellContext`dia, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{0, 0, 0, 1, 0, 0, 1, 
            0}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), 1/
             Sqrt[2], -(1/Sqrt[6])}, {-0.385291, -0.27993, 
            0.359844, -0.160213, -0.130329, 0.292724, 0.942084, 0.099017}, {
            0., -2., 0., 0., 0., 2., 0., 
            0.}, {-2, GoldenRatio, 1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {-2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 30, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 231, {"c", "m"}, {$CellContext`dia, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{0, 0, 0, 1, 0, 0, 0, 
            1}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/
             2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.318671, -0.231528, -0.435072, 0.193707, 
            0.385291, -0.865377, 0.318671, 0.033494}, {
            0., -1., -0.618034, -1.618034, 0., 1., 0.618034, 
            1.618034}, {-1, -2, -GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 31, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 247, {"m", "m"}, {$CellContext`dia, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{0, 0, 0, 0, 1, 1, 0, 
            0}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.147168, 
            0.132511, -0.435072, -0.391741, 0.58224, -0.25923, 0.080548, 
            0.76636}, {0., -1., -0.618034, 1.618034, 0., 1., 
            0.618034, -1.618034}, {-1, -2, -GoldenRatio, GoldenRatio^(-1), 0, 
             0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 32, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["o", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 81, {
            "o", "d"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 0, 
            0, 1, 0, 1, 
            0}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), 1/
             Sqrt[2], -(1/Sqrt[6])}, {0.556793, 0.76636, -0.318671, 
            0.033494, -0.238123, -0.412441, -0.196949, -0.341126}, {0., -1., 
            0.618034, -1.618034, 0., 1., -0.618034, 
            1.618034}, {-1, -2, GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {-1, -2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 33, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["c", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 97, {
            "c", "d"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 0, 
            0, 1, 0, 0, 
            1}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/
             2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.51562, -0.572654, -0.196949, 0.606147, 0.188342, 
            0.061196, 0.556793, -0.180913}, {0., -1., 0.618034, 1.618034, 0., 
            1., -0.618034, -1.618034}, {-1, -2, GoldenRatio, GoldenRatio^(-1),
              0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 34, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["m", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 113, {
            "m", "d"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 0, 
            0, 0, 1, 1, 
            0}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), 
             0, -Sqrt[2/3]}, {-0.426464, -0.473637, 
            0.238123, -0.732867, -0.556793, -0.180913, 0.188342, -0.061196}, {
            0., 0., -2., 0., 0., 0., 2., 
            0.}, {-1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, 35, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["b", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 122, {
            "b", "l"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 0, 0, 
            0, 0, 1, 0, 
            1}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/
             2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.188342, 0.25923, 
            0.942084, -0.099017, -0.196949, -0.341126, 0.238123, 0.412441}, {
            0., 0., 0., -2., 0., 0., 0., 2.}, {-1, -1, -1, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, -1, 
             Sqrt[5], 0, 0, 0, 0}, 36, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["g", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 106, {
            "g", "l"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{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/Sqrt[2]), 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), 
             1/Sqrt[2], 1/Sqrt[6]}, {0.344117, 0.473637, -0.196949, 0.0207, 
            0.385291, 0.667343, 0.318671, 0.551954}, {0., 0., 0., 2., 0., 0., 
            0., -2.}, {-1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0,
             0}, {-1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, 37, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["r", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 90, {
            "r", "l"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 1, 
            0, 0, 0, 0, 0}, {1, 1, 0, 0, 0, 0, 0, 0}, {
             Sqrt[2], 0, 0, 0, 0, 0, 0, 0}, {-0.318671, -0.35392, -0.121721, 
            0.37462, -0.304743, -0.099017, -0.900911, 0.292724}, {0., 0., 2., 
            0., 0., 0., -2., 0.}, {-1, -1, 1, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, 1, 
             Sqrt[5], 0, 0, 0, 0}, 38, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(L\)]\)", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            16, {"o", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 2.6744608811831626`*^8 
            Units`MassUnit, 1.2492183972290087`*^-27 Units`TimeUnit}, {{1, 1, 
            0, 1, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 
             0}, {-0.26357, -0.292724, 0.147168, -0.452937, 0.900911, 
            0.292724, -0.304743, 0.099017}, {0., 1., -0.618034, -1.618034, 
            0., -1., 0.618034, 
            1.618034}, {-1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 
            0, 0}, {-1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, 39, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            22, {"o", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 
            0, 0, 1, 0, 0, 0}, {1, 0, 0, 1, 0, 0, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {
            0.116402, 0.160213, 0.58224, -0.061196, 0.318671, 
            0.551954, -0.385291, -0.667343}, {0., 1., -0.618034, 1.618034, 
            0., -1., 
            0.618034, -1.618034}, {-1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {-1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, 40, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["m", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"+"]], 50, {"m", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 
            0, 0, 0, 1, 0, 0}, {1, 0, 0, 0, 1, 0, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 1, 0, 0, 0}, {0.385291, 0.865377, 
            0.188342, -0.25923, 0.385291, -0.27993, 0.318671, 0.231528}, {0., 
            1., 0.618034, -1.618034, 0., -1., -0.618034, 1.618034}, {-1, -1, 
             Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, 
             Sqrt[5], -1, 0, 0, 0, 0}, 41, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`0\)"]], 140, {
            "w", "m"}, {$CellContext`tri, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 1, 0, 
            0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 1, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 
             0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[
              6])}, {-0.385291, -0.667343, -0.318671, -0.551954, -0.041174, 
            0.193707, -0.435072, 0.391741}, {0., 1., 0.618034, 1.618034, 
            0., -1., -0.618034, -1.618034}, {-1, -1, 
             Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, 
             Sqrt[5], 1, 0, 0, 0, 0}, 42, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 151, {"o", "m"}, {$CellContext`dia, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{1, 1, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1, 
            0}, {1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.318671, -0.551954, 0.385291, 0.667343, 
            0.121721, -0.572654, -0.147168, 0.132511}, {0., 2., 0., 0., 
            0., -2., 0., 
            0.}, {-1, 0, (-1) GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, 
             0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(
              5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 43, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 167, {"c", "m"}, {$CellContext`dia, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{1, 0, 1, 1, 0, 0, 0, 0}, {1, 0, 0, 0, 0, 0, 0, 
            1}, {1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.130329, 0.292724, -0.556793, 0.76636, 
            0.318671, -0.231528, -0.385291, -0.27993}, {
            0., -0.618034, -1.618034, -1., 0., 0.618034, 1.618034, 
            1.}, {-1, 0, (-1) GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, 
             0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 44, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 183, {"m", "m"}, {$CellContext`dia, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{1, 0, 1, 0, 1, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 
            0}, {1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {
            0.238123, 0.534833, 0.116402, -0.160213, -0.623414, 
            0.452937, -0.51562, -0.37462}, {0., -0.618034, -1.618034, 1., 0., 
            0.618034, 
            1.618034, -1.}, {-1, 0, GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0,
              0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 
            45, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["c", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            36, {"c", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 
            1, 0, 0, 1, 0, 0}, {0, 1, 0, 1, 0, 0, 0, 0}, {
            1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 
             0}, {-0.238123, -0.412441, -0.196949, -0.341126, 
            0.06662, -0.313424, 0.703961, -0.63385}, {0., -0.618034, 
            1.618034, -1., 0., 0.618034, -1.618034, 
            1.}, {-1, 0, GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 
            0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 46, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["o", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"+"]], 18, {"o", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 
            1, 0, 0, 0, 1, 0}, {0, 1, 0, 0, 1, 0, 0, 0}, {
            1/Sqrt[2], 1/Sqrt[2], 0, 0, 1, 0, 0, 0}, {-0.196949, -0.341126, 
            0.238123, 0.412441, -0.196949, 0.926573, 0.238123, -0.214407}, {
            0., -0.618034, 1.618034, 1., 0., 
            0.618034, -1.618034, -1.}, {-1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, {0, 
            0, 0, 0, 0, 0, 0, 0}, {-1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, 47, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            132, {"y", "m"}, {$CellContext`tri, 1}, 1, 
            2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 
            Units`TimeUnit}, {{1, 0, 1, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 1, 0, 
            0}, {1/Sqrt[2], 1/Sqrt[2], 0, 0, 
             0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.080548, 
            0.180913, -0.344117, 0.473637, -0.51562, 0.37462, 0.623414, 
            0.452937}, {0., 0.618034, -1.618034, -1., 0., -0.618034, 1.618034,
             1.}, {-1, 1, -1, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, -1, 
             Sqrt[5], 0, 0, 0, 0}, 48, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            159, {"r", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            0, 1, 1, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 1, 0}, {
            1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.196949, 0.926573, 0.06662, 0.313424, 
            0.318671, 0.35392, -0.385291, -0.081896}, {0., 
            0.618034, -1.618034, 1., 0., -0.618034, 
            1.618034, -1.}, {-1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {-1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, 49, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            175, {"g", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            0, 1, 0, 1, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 1}, {
            1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.238123, -0.732867, 0.623414, 
            0.132511, -0.196949, -0.0207, 0.238123, -0.534833}, {0., 0.618034,
             1.618034, -1., 0., -0.618034, -1.618034, 1.}, {-1, 1, 1, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, 1, 
             Sqrt[5], 0, 0, 0, 0}, 50, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            191, {"b", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            0, 1, 0, 0, 1, 0}, {0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, 
             Sqrt[2], 0, 0, 0, 0, 
             0}, {-0.196949, -0.606147, -0.753743, -0.160213, 0.58224, 
            0.061196, 0.080548, -0.180913}, {0., 0.618034, 1.618034, 1., 
            0., -0.618034, -1.618034, -1.}, {-1, 1, -Sqrt[5], -1, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, 
            51, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["W", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"+"]], 48, {"m", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 
            0, 1, 0, 0, 0, 1}, {0, 0, 1, 0, 1, 0, 0, 0}, {
            0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 1, 0, 0, 0}, {0.06662, 
            0.313424, -0.196949, -0.926573, 0.26357, 0.292724, 0.465839, 
            0.099017}, {0., -1.618034, -1., -0.618034, 0., 1.618034, 1., 
            0.618034}, {-1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0,
             0}, {-1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, 52, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["y", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            130, {"y", "l"}, {$CellContext`tri, 1}, 1, 
            2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 
            Units`TimeUnit}, {{1, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 1, 0, 0, 1, 0, 
            0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 
             0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.121721, 
            0.572654, 0.041174, 0.193707, -0.51562, -0.572654, 0.623414, 
            0.132511}, {0., -1.618034, -1., 0.618034, 0., 1.618034, 
            1., -0.618034}, {-1, 1, 
             Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, 
             Sqrt[5], -1, 0, 0, 0, 0}, 53, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["r", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             153, {"r", "d"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            0, 0, 1, 0, 1, 0}, {0, 0, 1, 0, 0, 0, 1, 0}, {
            0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.147168, -0.452937, 0.385291, 0.081896, 
            0.318671, 0.033494, -0.385291, 0.865377}, {0., -1.618034, 
            1., -0.618034, 0., 1.618034, -1., 0.618034}, {-1, 1, 
             Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, 
             Sqrt[5], 1, 0, 0, 0, 0}, 54, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["g", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             169, {"g", "d"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            0, 0, 1, 0, 0, 1}, {0, 0, 1, 0, 0, 0, 0, 1}, {
            0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 0, 
             Sqrt[
             2/3]}, {-0.121721, -0.37462, -0.465839, -0.099017, -0.942084, \
-0.099017, -0.130329, 0.292724}, {0., -1.618034, 1., 0.618034, 0., 
            1.618034, -1., -0.618034}, {-1, 2, -GoldenRatio, (-1)/GoldenRatio,
              0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 55, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["b", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             185, {"b", "d"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            0, 0, 0, 1, 1, 0}, {0, 0, 0, 1, 1, 0, 0, 0}, {
            0, 0, 1/Sqrt[2], 1/Sqrt[2], 1, 0, 0, 0}, {0.041174, 
            0.193707, -0.121721, -0.572654, -0.426464, -0.473637, -0.753743, \
-0.160213}, {0., 1.618034, -1., -0.618034, 0., -1.618034, 1., 
            0.618034}, {-1, 2, -GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 56, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["y", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 
            128, {"y", "d"}, {$CellContext`tri, 1}, 1, 
            2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 
            Units`TimeUnit}, {{1, 0, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 1, 0, 1, 0, 
            0}, {0, 0, 1/Sqrt[2], 1/Sqrt[2], 
             0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0., 
            0.947274, -0.277497, -0.160213, -0.318671, 0.35392, 
            0.385291, -0.081896}, {0., 1.618034, -1., 0.618034, 0., -1.618034,
             1., -0.618034}, {-1, 2, GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 57, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["r", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`4\/3\)\
"]], 155, {"r", "l"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            0, 0, 0, 0, 1, 1}, {0, 0, 0, 1, 0, 0, 1, 0}, {
            0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, -(1/Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.080548, -0.76636, -0.51562, 0.37462, 
            0., -0.198034, 0., 0.585447}, {0., 1.618034, 1., -0.618034, 
            0., -1.618034, -1., 
            0.618034}, {-1, 2, GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0,
             0, 0, 0, 0, 0, 0, 0}, {-1, 2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 58, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["g", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`4\/3\)\
"]], 171, {"g", "l"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 1}, {
            0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.06662, -0.63385, 0.623414, -0.452937, 0., 
            0.585447, 0., 0.198034}, {0., 1.618034, 1., 0.618034, 
            0., -1.618034, -1., -0.618034}, {-1, -Sqrt[5], -1, -1, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[5], -1, -1, 0, 0, 0, 0},
             59, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["b", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`4\/3\)\
"]], 187, {"b", "l"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            1, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0}, {
            0, 0, 0, 0, 1, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0., 
            0.320426, 0.820363, 0.473637, -0.26357, 0.292724, -0.465839, 
            0.099017}, {1., -1., -1., -1., -1., 1., 1., 
            1.}, {-1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, 60, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            30, {"r", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 1,
             0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0}, {
            0, 0, 0, 0, 1, -(1/Sqrt[3]), 1/Sqrt[2], -(1/Sqrt[6])}, {0., 
            0.585447, -0.171503, -0.099017, 0.51562, -0.572654, -0.623414, 
            0.132511}, {1., -1., -1., 1., -1., 1., 
            1., -1.}, {-1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0,
             0}, {-1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, 61, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            46, {"g", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 1,
             0, 0, 0, 1, 0}, {0, 0, 0, 0, 1, 0, 0, 1}, {
            0, 0, 0, 0, 1, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.049781, -0.473637, -0.318671, 0.231528, 0., 
            0.320426, 0., -0.947274}, {1., -1., 1., -1., -1., 1., -1., 
            1.}, {-1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, 62, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            62, {"b", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 1,
             0, 0, 0, 0, 1}, {0, 0, 0, 0, 0, 1, 1, 0}, {
            0, 0, 0, 0, 0, (-2)/Sqrt[3], 0, -
             Sqrt[2/3]}, {-0.041174, -0.391741, 0.385291, -0.27993, 
            0., -0.947274, 0., -0.320426}, {1., -1., 1., 1., -1., 
            1., -1., -1.}, {-1, 
             Sqrt[5], -1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[5], -1, -1, 0, 0, 0, 0}, 63, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["b", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             61, {"b", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0,
             1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 1}, {
            0, 0, 0, 0, 0, (-2)/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, {0., 
            0.198034, 0.507012, 0.292724, 0.426464, -0.473637, 
            0.753743, -0.160213}, {1., 0., -1.618034, -0.618034, -1., 0., 
            1.618034, 0.618034}, {-1, 
             Sqrt[5], -1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[5], -1, 1, 0, 0, 0, 0}, 64, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["g", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             45, {"g", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0,
             1, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 1}, {
            0, 0, 0, 0, 0, (-2)/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, {-0.196949, 
            0.926573, 0.304743, -0.099017, -0.385291, -0.27993, -0.318671, 
            0.231528}, {1., 0., -1.618034, 0.618034, -1., 0., 
            1.618034, -0.618034}, {-1, 
             Sqrt[5], 1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[5], 1, -1, 0, 0, 0, 0}, 65, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["r", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             29, {"r", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0,
             1, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, -1, -1}, {
            0, 0, 0, 0, 0, 2/Sqrt[3], -(1/Sqrt[2]), -(1/Sqrt[6])}, {
            0.080548, -0.76636, 0.06662, -0.63385, 
            0.196949, -0.0207, -0.238123, -0.534833}, {1., 0., 
            1.618034, -0.618034, -1., 0., -1.618034, 0.618034}, {-1, 
             Sqrt[5], 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[5], 1, 1, 0, 0, 0, 0}, 66, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["r", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 28, {"r", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0,
             1, 0, 0, 0, 1}, {0, 0, 0, 0, 0, -1, 0, -1}, {
            0, 0, 0, 0, 0, 2/Sqrt[3], 1/Sqrt[2], -(1/Sqrt[6])}, {
            0.06662, -0.63385, -0.080548, 0.76636, -0.58224, 
            0.061196, -0.080548, -0.180913}, {1., 0., 1.618034, 0.618034, -1.,
             0., -1.618034, -0.618034}, {-1, (-1) GoldenRatio^(-2), -
             GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + 
              Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0,
              0}, 67, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["g", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 44, {"g", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0,
             0, 1, 1, 0, 0}, {0, 0, 0, 0, 0, -1, -1, 0}, {
            0, 0, 0, 0, 0, 2/Sqrt[3], 0, 
             Sqrt[2/3]}, {-0.06662, 0.313424, -0.900911, 
            0.292724, -0.318671, -0.231528, 0.385291, -0.27993}, {1., 
            1., -1., -1., -1., -1., 1., 
            1.}, {-1, (-1) GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + 
              Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, 68, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["b", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 60, {"b", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0,
             0, 1, 0, 1, 0}, {0, 0, 0, 0, -1, 0, 0, -1}, {
            0, 0, 0, 0, -1, 1/Sqrt[3], 0, -Sqrt[2/3]}, {-0.121721, 0.572654, 
            0.188342, -0.061196, 0.623414, 0.452937, 0.51562, -0.37462}, {1., 
            1., -1., 1., -1., -1., 
            1., -1.}, {-1, GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 
             0}, 69, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 63, {"b", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0,
             0, 1, 0, 0, 1}, {0, 0, 0, 0, -1, 0, -1, 0}, {
            0, 0, 0, 0, -1, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, {
            0.049781, -0.473637, 0.041174, -0.391741, -0.318671, 0.033494, 
            0.385291, 0.865377}, {1., 1., 1., -1., -1., -1., -1., 
            1.}, {-1, GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 
            0}, {-1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, 70, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 47, {"g", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0,
             0, 0, 1, 1, 0}, {0, 0, 0, 0, -1, -1, 0, 0}, {
            0, 0, 0, 0, -1, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, {
            0.041174, -0.391741, -0.049781, 0.473637, 0.942084, -0.099017, 
            0.130329, 0.292724}, {1., 1., 1., 
            1., -1., -1., -1., -1.}, {-1, (-1)/GoldenRatio, -2, -GoldenRatio, 
             0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 71, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 31, {"r", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0,
             0, 0, 1, 0, 1}, {0, 0, 0, -1, 0, 0, 0, -1}, {
            0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/Sqrt[3], 0, -
             Sqrt[2/3]}, {-0.041174, 0.193707, -0.556793, 0.180913, 0.51562, 
            0.37462, -0.623414, 0.452937}, {1., -0.618034, 0., -1.618034, -1.,
             0.618034, 0., 
            1.618034}, {-1, (-1)/GoldenRatio, -2, GoldenRatio, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 72, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["b", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`\(-\(\(4\/3\)\)\)\)"]], 186, {
            "b", "l"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            0, 0, 0, 0, 1, 1}, {0, 0, 0, -1, 0, 0, -1, 0}, {
            0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/
             Sqrt[6]}, {-0.385291, 0.865377, -0.130329, 0.292724, 
            0.238123, -0.412441, 0.196949, -0.341126}, {1., -0.618034, 0., 
            1.618034, -1., 0.618034, 
            0., -1.618034}, {-1, (-1)/GoldenRatio, 2, -GoldenRatio, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 73, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["g", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`\(-\(\(4\/3\)\)\)\)"]], 170, {
            "g", "l"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 1, 1, 0, 0, 0}, {0, 0, 0, -1, 0, -1, 0, 0}, {
            0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[
             6]}, {0.238123, -0.732867, 0.426464, 0.473637, 0.041174, 
            0.193707, 0.435072, 0.391741}, {1., 0.618034, 
            0., -1.618034, -1., -0.618034, 0., 
            1.618034}, {-1, (-1)/GoldenRatio, 2, GoldenRatio, 0, 0, 0, 0}, {0,
             0, 0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 74, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["r", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`\(-\(\(4\/3\)\)\)\)"]], 154, {
            "r", "l"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 1, 0, 1, 0, 0}, {0, 0, 0, -1, -1, 0, 0, 0}, {
            0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), -1, 0, 0, 0}, {
            0.196949, -0.606147, -0.51562, -0.572654, -0.121721, -0.572654, 
            0.147168, 0.132511}, {1., 0.618034, 0., 1.618034, -1., -0.618034, 
            0., -1.618034}, {-1, GoldenRatio^(-1), -2, -GoldenRatio, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 75, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["y", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\
], 129, {"y", "d"}, {$CellContext`utr, 1}, 1, 2.8250720749306774`*^-6 
            Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{0, 0, 
            1, 1, 0, 0, 1, 0}, {0, 0, -1, 0, 0, 0, 0, -1}, {
            0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/Sqrt[3], 0, -
             Sqrt[2/3]}, {-0.130329, 0.292724, 0.385291, -0.865377, 
            0.196949, -0.341126, -0.238123, 0.412441}, {
            1., -1.618034, -0.618034, 0., -1., 1.618034, 0.618034, 
            0.}, {-1, GoldenRatio^(-1), -2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 76, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["b", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 184, {
            "b", "d"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 1, 0, 0, 0, 1}, {0, 0, -1, 0, 0, 0, -1, 0}, {
            0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[
             6]}, {-0.238123, 0.534833, -0.080548, 0.180913, -0.385291, 
            0.667343, -0.318671, 0.551954}, {1., -1.618034, 0.618034, 0., -1.,
             1.618034, -0.618034, 
            0.}, {-1, GoldenRatio^(-1), 2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 77, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["g", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 168, {
            "g", "d"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 0, 1, 1, 0, 0}, {0, 0, -1, 0, 0, -1, 0, 0}, {
            0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[
             6]}, {0.147168, -0.452937, 0.26357, 
            0.292724, -0.06662, -0.313424, -0.703961, -0.63385}, {1., 
            1.618034, -0.618034, 0., -1., -1.618034, 0.618034, 
            0.}, {-1, GoldenRatio^(-1), 2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {-1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 78, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["r", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 152, {
            "r", "d"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 0, 1, 0, 1, 0}, {0, 0, -1, 0, -1, 0, 0, 0}, {
            0, 0, -(1/Sqrt[2]), 1/Sqrt[2], -1, 0, 0, 0}, {
            0.121721, -0.37462, -0.318671, -0.35392, 0.196949, 
            0.926573, -0.238123, -0.214407}, {1., 1.618034, 0.618034, 
            0., -1., -1.618034, -0.618034, 
            0.}, {-1, -GoldenRatio, (-1)/GoldenRatio, -2, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 79, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["y", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            131, {"y", "l"}, {$CellContext`utr, 1}, 1, 
            2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 
            Units`TimeUnit}, {{0, 0, 1, 0, 1, 0, 0, 1}, {0, 0, -1, -1, 0, 0, 
            0, 0}, {0, 0, -Sqrt[2], 0, 0, 0, 0, 0}, {-0.080548, 0.180913, 
            0.238123, -0.534833, -0.318671, 0.551954, 0.385291, -0.667343}, {
            2., 0., 0., 0., -2., 0., 0., 
            0.}, {-1, -GoldenRatio, (-1)/GoldenRatio, 2, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 80, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["W", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"-"]], 49, {"m", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{0, 0, 
            1, 0, 0, 1, 1, 0}, {0, -1, 0, 0, 0, 0, 
            0, -1}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 0, -
             Sqrt[2/3]}, {-0.556793, 0.76636, -0.130329, -0.292724, 0.435072, 
            0.193707, -0.041174, 0.391741}, {-0.618034, -1., -1.618034, 0., 
            0.618034, 1., 1.618034, 
            0.}, {-1, -GoldenRatio, GoldenRatio^(-1), -2, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 81, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 190, {
            "b", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 0, 0, 1, 0, 1}, {0, -1, 0, 0, 0, 0, -1, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]),
              1/Sqrt[6]}, {0.385291, -0.667343, -0.637341, 0., -0.188342, 
            0.061196, -0.556793, -0.180913}, {-0.618034, -1., 1.618034, 0., 
            0.618034, 1., -1.618034, 
            0.}, {-1, -GoldenRatio, GoldenRatio^(-1), 2, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 
            0}, {-1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 82, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 174, {
            "g", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 0, 0, 0, 1, 1}, {0, -1, 0, 0, 0, -1, 0, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/
             Sqrt[6]}, {0.318671, -0.551954, 0.770582, 0., 
            0.556793, -0.180913, -0.188342, -0.061196}, {-0.618034, 
            0., -1., -1.618034, 0.618034, 0., 1., 
            1.618034}, {-1, GoldenRatio, (-1)/GoldenRatio, -2, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 83, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 158, {
            "r", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            0, 1, 1, 1, 0, 0}, {0, -1, 0, 0, -1, 0, 0, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, -1, 0, 0, 0}, {-0.188342, 
            0.25923, 0.385291, 0.865377, 0.359844, 0.160213, 
            0.049781, -0.473637}, {-0.618034, 0., -1., 1.618034, 0.618034, 0.,
             1., -1.618034}, {-1, GoldenRatio, (-1)/GoldenRatio, 2, 0, 0, 0, 
             0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 84, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            133, {"y", "m"}, {$CellContext`utr, 1}, 1, 
            2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 
            Units`TimeUnit}, {{0, 0, 0, 1, 1, 0, 1, 0}, {0, -1, 0, -1, 0, 0, 
            0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 0,
              0, 0, 0}, {-0.344117, 
            0.473637, -0.080548, -0.180913, -0.703961, -0.313424, 
            0.06662, -0.63385}, {-0.618034, 0., 1., -1.618034, 0.618034, 
            0., -1., 
            1.618034}, {-1, GoldenRatio, GoldenRatio^(-1), -2, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 85, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["o", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"-"]], 19, {"o", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 
            0, 1, 1, 0, 0, 1}, {0, -1, -1, 0, 0, 0, 0, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0,
              0}, {0.238123, -0.412441, -0.393899, 0., 0.304743, -0.099017, 
            0.900911, 0.292724}, {-0.618034, 0., 1., 1.618034, 0.618034, 
            0., -1., -1.618034}, {-1, GoldenRatio, GoldenRatio^(-1), 2, 0, 0, 
             0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 86, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["c", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            37, {"c", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 
            0, 1, 0, 1, 1, 0}, {-1, 0, 0, 0, 0, 0, 
            0, -1}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 0, -
             Sqrt[2/3]}, {0.196949, -0.341126, 0.476246, 0., -0.900911, 
            0.292724, 0.304743, 0.099017}, {-0.618034, 1., -1.618034, 0., 
            0.618034, -1., 1.618034, 
            0.}, {-1, -GoldenRatio^2, 0, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
             0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 87, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 182, {"m", "m"}, {$CellContext`squ, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{0, 0, 0, 1, 0, 1, 0, 1}, {-1, 0, 0, 0, 0, 
            0, -1, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 1/Sqrt[
             3], -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.116402, 0.160213, 0.238123, 
            0.534833, -0.58224, -0.25923, -0.080548, 0.76636}, {-0.618034, 1.,
             1.618034, 0., 0.618034, -1., -1.618034, 
            0.}, {-1, -GoldenRatio^2, 0, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0,
             0, 0, 0, 0, 0, 
            0}, {-1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
             0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 88, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 166, {"c", "m"}, {$CellContext`squ, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{0, 0, 0, 1, 0, 0, 1, 1}, {-1, 0, 0, 0, 0, -1, 
            0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/
             Sqrt[6]}, {-0.703961, 0.63385, 0.304743, 0.099017, -0.147168, 
            0.452937, -0.121721, -0.37462}, {-0.618034, -1.618034, 0., -1., 
            0.618034, 1.618034, 0., 
            1.}, {-1, GoldenRatio^2, 0, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
             0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 89, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 150, {"o", "m"}, {$CellContext`squ, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{0, 0, 0, 0, 1, 1, 1, 0}, {-1, 0, 0, 0, -1, 0, 
            0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, -1, 0, 0, 0}, {
            0.51562, -0.572654, 0.426464, -0.473637, -0.080548, -0.180913, 
            0.58224, -0.061196}, {-0.618034, -1.618034, 0., 1., 0.618034, 
            1.618034, 
            0., -1.}, {-1, GoldenRatio^2, 0, GoldenRatio^(-2), 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
             0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 90, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`0\)"]], 141, {
            "w", "m"}, {$CellContext`utr, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 0, 0, 
            0, 1, 1, 0, 1}, {-1, 0, 0, -1, 0, 0, 0, 
            0}, {-(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0,
              0}, {0.426464, -0.473637, -0.51562, 0.572654, 0.238123, 
            0.534833, 0.196949, -0.0207}, {-0.618034, 1.618034, 0., -1., 
            0.618034, -1.618034, 0., 1.}, {0, -2, -2, 0, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {0, -2, -2, 0, 0, 0, 0, 0}, 91, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["m", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"-"]], 51, {"m", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 
            0, 0, 1, 0, 1, 1}, {-1, 0, -1, 0, 0, 0, 0, 
            0}, {-(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 
             0}, {-0.238123, 0.214407, -0.900911, -0.292724, -0.121721, 
            0.37462, 0.147168, 0.452937}, {-0.618034, 1.618034, 0., 1., 
            0.618034, -1.618034, 0., -1.}, {0, -2, 0, -2, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {0, -2, 0, -2, 0, 0, 0, 0}, 92, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            23, {"o", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 
            0, 0, 0, 1, 1, 1}, {-1, -1, 0, 0, 0, 0, 0, 
            0}, {-Sqrt[2], 0, 0, 0, 0, 0, 0, 0}, {-0.435072, 0.391741, 
            0.188342, 0.061196, 0.238123, -0.732867, 0.196949, 0.606147}, {
            0.618034, -1., -1.618034, 0., -0.618034, 1., 1.618034, 0.}, {
            0, -2, 0, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, -2, 0, 2, 
            0, 0, 0, 0}, 93, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(L\)]\)", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            17, {"o", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 2.6744608811831626`*^8 
            Units`MassUnit, 1.2492183972290087`*^-27 Units`TimeUnit}, {{1, 1, 
            1, 1, 0, 0, 0, 0}, {
            1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {
            1/Sqrt[2], 0, 1/Sqrt[2], 0, (-1)/2, Sqrt[3]/2, 0, 0}, {
            0.318671, -0.35392, 0.26357, -0.292724, 0.130329, 
            0.292724, -0.942084, 0.099017}, {0.618034, -1., 1.618034, 
            0., -0.618034, 1., -1.618034, 0.}, {0, -2, 2, 0, 0, 0, 0, 0}, {0, 
            0, 0, 0, 0, 0, 0, 0}, {0, -2, 2, 0, 0, 0, 0, 0}, 94, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["y", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            64, {"y", "d"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 1, 1, 
            0, 1, 0, 0, 0}, {
            1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
            1/Sqrt[2], 0, 0, -(1/Sqrt[2]), 1/2, Sqrt[3]/2, 0, 0}, {
            0.26357, -0.292724, -0.318671, 
            0.35392, -0.385291, -0.865377, -0.318671, 0.033494}, {0.618034, 
            0., -1., -1.618034, -0.618034, 0., 1., 1.618034}, {
            0, -1, -GoldenRatio^2, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
              8)), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 95, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`\(-1\)\)"]], 205, {
            "w", "m"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{1, 1, 1,
             0, 0, 1, 0, 0}, {
            1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
            1/Sqrt[2], 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.147168, 
            0.132511, -0.556793, -0.180913, 
            0.196949, -0.606147, -0.238123, -0.732867}, {0.618034, 0., -1., 
            1.618034, -0.618034, 0., 1., -1.618034}, {
            0, -1, -GoldenRatio^2, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0,
             0, 0, 0, 0}, {
            0, -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 96, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
2\/3\)\)\)\)"]], 221, {"r", "m"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{1, 1, 1, 0, 0, 0, 1, 0}, {
            1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
            1/Sqrt[2], 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.820363, 0.473637, -0.277497, 
            0.160213, -0.465839, -0.099017, 0.26357, 0.292724}, {0.618034, 0.,
             1., -1.618034, -0.618034, 0., -1., 1.618034}, {
            0, -1, GoldenRatio^2, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
             8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 97, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
2\/3\)\)\)\)"]], 237, {"g", "m"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{1, 1, 1, 0, 0, 0, 0, 1}, {
            1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {
            1/Sqrt[2], 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.623414, -0.452937, 0.06662, 0.63385, 
            0.171503, -0.099017, -0.507012, 0.292724}, {0.618034, 0., 1., 
            1.618034, -0.618034, 0., -1., -1.618034}, {
            0, -1, GoldenRatio^2, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            0, -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 98, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
2\/3\)\)\)\)"]], 253, {"b", "m"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{1, 1, 0, 1, 1, 0, 0, 0}, {
            1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
            1/Sqrt[2], 0, 0, 1/Sqrt[2], 1/2, Sqrt[3]/2, 0, 0}, {
            0.51562, -0.37462, -0.080548, -0.76636, -0.507012, 
            0.292724, -0.171503, 0.099017}, {0.618034, 1., -1.618034, 
            0., -0.618034, -1., 1.618034, 0.}, {0, 0, -2, -2, 0, 0, 0, 0}, {0,
             0, 0, 0, 0, 0, 0, 0}, {0, 0, -2, -2, 0, 0, 0, 0}, 99, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "+\[Rule]\!\(TraditionalForm\`0\)"]], 207, {
            "w", "m"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{1, 1, 0,
             1, 0, 1, 0, 0}, {
            1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
            1/Sqrt[2], 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.277497, 0.160213, 
            0.820363, -0.473637, -0.385291, -0.081896, -0.318671, -0.35392}, {
            0.618034, 1., 1.618034, 0., -0.618034, -1., -1.618034, 0.}, {0, 
            0, -2, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, -2, 2, 0, 
            0, 0, 0}, 100, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            223, {"r", "m"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{1, 1, 0, 1, 0, 0, 1, 0}, {
            1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
            1/Sqrt[2], 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.507012, 0.292724, -0.171503, 0.099017, 
            0.753743, 0.160213, -0.426464, -0.473637}, {0.618034, -1.618034, 
            0., -1., -0.618034, 1.618034, 0., 1.}, {0, 0, 2, -2, 0, 0, 0, 
            0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 2, -2, 0, 0, 0, 0}, 101, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            239, {"g", "m"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{1, 1, 0, 1, 0, 0, 0, 1}, {
            1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {
            1/Sqrt[2], 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.385291, -0.27993, 0.041174, 0.391741, -0.277497, 
            0.160213, 0.820363, -0.473637}, {0.618034, -1.618034, 0., 
            1., -0.618034, 1.618034, 0., -1.}, {0, 0, 2, 2, 0, 0, 0, 0}, {0, 
            0, 0, 0, 0, 0, 0, 0}, {0, 0, 2, 2, 0, 0, 0, 0}, 102, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            255, {"b", "m"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{1, 1, 0, 0, 1, 1, 0, 0}, {
            1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
            1/Sqrt[2], 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {
            0.318671, -0.231528, -0.049781, -0.473637, 0.820363, -0.473637, 
            0.277497, -0.160213}, {0.618034, 1.618034, 
            0., -1., -0.618034, -1.618034, 0., 1.}, {
            0, 1, -GoldenRatio^2, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
              8)), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 103, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["o", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 83, {
            "o", "l"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 0, 
            0, 1, 0, 1, 0}, {
            1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
            1/Sqrt[2], 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.171503, 0.099017, 0.507012, -0.292724, 
            0.623414, 0.132511, 0.51562, 0.572654}, {0.618034, 1.618034, 0., 
            1., -0.618034, -1.618034, 0., -1.}, {
            0, 1, -GoldenRatio^2, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            0, 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 104, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["c", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 99, {
            "c", "l"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 0, 
            0, 1, 0, 0, 1}, {
            1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
            1/Sqrt[2], 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.900911, 0.292724, 0.06662, -0.313424, 
            0.049781, -0.473637, -0.359844, -0.160213}, {-1.618034, -1., 
            0., -0.618034, 1.618034, 1., 0., 0.618034}, {
            0, 1, GoldenRatio^2, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {
            0, 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
             8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 105, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["m", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 115, {
            "m", "l"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 0, 
            0, 0, 1, 1, 0}, {
            1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
            1/Sqrt[2], 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {0.703961, -0.313424, -0.51562, -0.37462, 0.116402, 
            0.160213, 0.344117, -0.473637}, {-1.618034, -1., 0., 0.618034, 
            1.618034, 1., 0., -0.618034}, {
            0, 1, GoldenRatio^2, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            0, 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), 0, 0, 0, 0}, 106, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["b", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 120, {
            "b", "d"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 0, 
            0, 0, 1, 0, 1}, {
            1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
            1/Sqrt[2], 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.58224, -0.25923, 0.623414,
             0.452937, -0.344117, -0.473637, 0.116402, -0.160213}, {-1.618034,
             0., -0.618034, -1., 1.618034, 0., 0.618034, 1.}, {0, 2, -2, 0, 0,
             0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 2, -2, 0, 0, 0, 0, 0}, 
            107, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["g", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 104, {
            "g", "d"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 0, 
            0, 0, 0, 1, 1}, {
            1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
            1/Sqrt[2], 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[
             2], 1/Sqrt[6]}, {-0.304743, 0.099017, -0.196949, 0.926573, 
            0.041174, -0.391741, 0.435072, 0.193707}, {-1.618034, 
            0., -0.618034, 1., 1.618034, 0., 0.618034, -1.}, {0, 2, 0, -2, 0, 
            0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 2, 0, -2, 0, 0, 0, 0}, 
            108, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["r", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 88, {
            "r", "d"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 1, 
            1, 1, 0, 0, 0}, {
            1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/2, Sqrt[3]/2, 0, 0}, {-0.556793, 
            0.180913, 0.041174, -0.193707, -0.080548, 0.76636, 0.58224, 
            0.25923}, {-1.618034, 0., 0.618034, -1., 1.618034, 0., -0.618034, 
            1.}, {0, 2, 0, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 2, 0,
             2, 0, 0, 0, 0}, 109, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["w", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`0\)"]], 201, {
            "w", "d"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{1, 0, 1,
             1, 0, 1, 0, 0}, {
            1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 1/Sqrt[2], 0, (-1)/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {
            0.435072, -0.193707, -0.318671, -0.231528, -0.188342, -0.25923, \
-0.556793, 0.76636}, {-1.618034, 0., 0.618034, 1., 1.618034, 
            0., -0.618034, -1.}, {0, 2, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 
            0, 0}, {0, 2, 2, 0, 0, 0, 0, 0}, 110, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["r", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             217, {"r", "d"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{1, 0, 1, 1, 0, 0, 1, 0}, {
            1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.359844, -0.160213, 0.385291, 0.27993, 
            0.556793, 0.76636, -0.188342, 0.25923}, {-1.618034, 1., 
            0., -0.618034, 1.618034, -1., 0., 0.618034}, {
            0, -Sqrt[5], (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 111, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["g", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             233, {"g", "d"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{1, 0, 1, 1, 0, 0, 0, 1}, {
            1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {
            0, -(1/Sqrt[2]), 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.188342, 0.061196, -0.121721, 0.572654, -0.06662, 
            0.63385, -0.703961, -0.313424}, {-1.618034, 1., 0., 0.618034, 
            1.618034, -1., 0., -0.618034}, {
            0, -Sqrt[5], (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {
            0, -Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 112, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["b", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             249, {"b", "d"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{1, 0, 1, 0, 1, 1, 0, 0}, {
            1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), 1/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.942084, 0.099017, 
            0.188342, 0.25923, 0.476246, 0., 0.393899, 
            0.}, {-1.618034, -0.618034, -1., 0., 1.618034, 0.618034, 1., 
            0.}, {0, -Sqrt[5], GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {0, -Sqrt[5], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 113, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 85, {
            "o", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 1, 
            0, 1, 0, 1, 0}, {
            1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.753743, -0.160213, 
            0.623414, -0.132511, -0.147168, 0.132511, -0.121721, 
            0.572654}, {-1.618034, -0.618034, 1., 0., 1.618034, 0.618034, -1.,
             0.}, {0, -Sqrt[5], GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {0, -Sqrt[5], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 114, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 101, {
            "c", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 1, 
            0, 1, 0, 0, 1}, {
            1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
            0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.623414, -0.132511, -0.753743, 0.160213, 
            0.435072, -0.391741, -0.041174, 0.193707}, {-1.618034, 
            0.618034, -1., 0., 1.618034, -0.618034, 1., 0.}, {0, 
             Sqrt[5], (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 
            0, 0, 0, 0, 0}, {0, 
             Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 115, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 117, {
            "m", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 1, 
            0, 0, 1, 1, 0}, {
            1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {-0.318671, 0.033494, -0.556793, -0.76636, 0.393899, 
            0., -0.476246, 0.}, {-1.618034, 0.618034, 1., 0., 
            1.618034, -0.618034, -1., 0.}, {0, 
             Sqrt[5], (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0,
             0, 0, 0, 0}, {0, 
             Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 116, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 126, {
            "b", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 1, 
            0, 0, 1, 0, 1}, {
            1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
            0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.58224, 0.061196, 
            0.116402, 0.160213, -0.770582, 0., -0.637341, 0.}, {1.618034, -1.,
             0., -0.618034, -1.618034, 1., 0., 0.618034}, {0, 
             Sqrt[5], GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 
            0, 0, 0, 0, 0}, {0, 
             Sqrt[5], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 117, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 110, {
            "g", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 1, 
            0, 0, 0, 1, 1}, {
            1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
            0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), 1/
             Sqrt[2], 1/Sqrt[6]}, {0.465839, -0.099017, 0.385291, -0.081896, 
            0.238123, -0.214407, 0.196949, -0.926573}, {1.618034, -1., 0., 
            0.618034, -1.618034, 1., 0., -0.618034}, {0, 
             Sqrt[5], GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0,
             0, 0, 0, 0}, {0, 
             Sqrt[5], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 118, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 94, {
            "r", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 0, 
            1, 1, 1, 0, 0}, {
            1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 0, 1/Sqrt[2], 1/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {
            0.385291, -0.081896, -0.465839, 0.099017, -0.703961, 0.63385, 
            0.06662, -0.313424}, {1.618034, 0., -0.618034, -1., -1.618034, 0.,
             0.618034, 1.}, {
            0, (-1) GoldenRatio^(-2), -1, -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -((5/8 - Sqrt[5]/8)/(5/8 + 
              Sqrt[5]/8)), -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 
             0, 0}, 119, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             93, {"r", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 0, 
            1, 1, 0, 1, 0}, {
            1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.196949, 
            0.0207, -0.344117, -0.473637, -0.637341, 0., 0.770582, 0.}, {
            1.618034, 0., -0.618034, 1., -1.618034, 0., 0.618034, -1.}, {
            0, (-1) GoldenRatio^(-2), -1, GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, (5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 120, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             109, {"g", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 0, 
            1, 1, 0, 0, 1}, {
            1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
            0, -(1/Sqrt[2]), 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.942084, -0.099017, -0.318671, -0.033494, 
            0.049781, 0.473637, -0.359844, 0.160213}, {1.618034, 0., 
            0.618034, -1., -1.618034, 0., -0.618034, 1.}, {
            0, (-1) GoldenRatio^(-2), 1, -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 
             1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 121, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             125, {"b", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 0, 
            1, 0, 1, 1, 0}, {
            1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {0.770582, 0., -0.318671, 
            0.551954, -0.147168, -0.132511, -0.121721, -0.572654}, {1.618034, 
            0., 0.618034, 1., -1.618034, 0., -0.618034, -1.}, {
            0, (-1) GoldenRatio^(-2), 1, GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {
            0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, (5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 122, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 
            118, {"m", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 0, 
            1, 0, 1, 0, 1}, {
            1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
            0, -(1/Sqrt[2]), 0, 1/Sqrt[2], (-1)/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.637341, 0., 
            0.385291, -0.667343, 0.435072, 0.391741, -0.041174, -0.193707}, {
            1.618034, 1., 0., -0.618034, -1.618034, -1., 0., 0.618034}, {
            0, GoldenRatio^(-2), -1, -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0,
             0, 0, 0, 0}, {
            0, (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 
             0}, 123, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 
            102, {"c", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 0, 
            1, 0, 0, 1, 1}, {
            1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
            0, -(1/Sqrt[2]), 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[
             2], 1/Sqrt[6]}, {-0.318671, -0.033494, 0.942084, 0.099017, 
            0.041174, 0.391741, 0.435072, -0.193707}, {1.618034, 1., 0., 
            0.618034, -1.618034, -1., 0., -0.618034}, {
            0, GoldenRatio^(-2), -1, GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, (5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 124, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 
            86, {"o", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 0, 
            0, 1, 1, 1, 0}, {
            1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {
            0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {-0.58224, -0.061196, -0.196949, -0.0207, -0.080548, \
-0.76636, 0.58224, -0.25923}, {1.618034, -0.618034, -1., 0., -1.618034, 
            0.618034, 1., 0.}, {
            0, GoldenRatio^(-2), 1, -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 
             1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 125, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["b", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 250, {
            "b", "l"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 0, 0,
             0, 1, 1, 0, 1}, {
            1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {
            0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.476246, 0., -0.196949, 
            0.341126, 0.238123, 0.214407, 0.196949, 0.926573}, {
            1.618034, -0.618034, 1., 0., -1.618034, 0.618034, -1., 0.}, {
            0, GoldenRatio^(-2), 1, GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, (5/8 + Sqrt[5]/8)/(5/8 - 
             Sqrt[5]/8), 0, 0, 0, 0}, 126, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["g", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 234, {
            "g", "l"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 0, 0,
             0, 1, 0, 1, 1}, {
            1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {
            0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[
             2], 1/Sqrt[6]}, {0.393899, 0., 
            0.238123, -0.412441, -0.703961, -0.63385, 0.06662, 0.313424}, {
            1.618034, 0.618034, -1., 0., -1.618034, -0.618034, 1., 0.}, {
            0, (-1)/GoldenRatio, -GoldenRatio, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0},
             127, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["r", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 218, {
            "r", "l"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 0, 0,
             0, 0, 1, 1, 1}, {
            1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {
            0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, (-1)/2, -Sqrt[3]/2, 0, 
             0}, {-0.196949, -0.0207, 0.58224, 
            0.061196, -0.06662, -0.63385, -0.703961, 0.313424}, {1.618034, 
            0.618034, 1., 0., -1.618034, -0.618034, -1., 0.}, {
            0, (-1)/GoldenRatio, -GoldenRatio, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {
            0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[5], 0, 0, 0, 0}, 128, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["w", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "-\[Rule]\!\(TraditionalForm\`0\)"]], 202, {
            "w", "l"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 1, 1,
             1, 1, 0, 0, 
            0}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {
            0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/2, Sqrt[3]/2, 0, 
             0}, {-0.900911, -0.292724, 0.238123, -0.214407, -0.465839, 
            0.099017, 0.26357, -0.292724}, {-1.236068, 0., 0., 0., 1.236068, 
            0., 0., 0.}, {
            0, (-1)/GoldenRatio, GoldenRatio, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0},
             129, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["w", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "+\[Rule]\!\(TraditionalForm\`0\)"]], 203, {
            "w", "l"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 1, 1,
             1, 0, 1, 0, 
            0}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {
            0, 1/Sqrt[2], 1/Sqrt[2], 0, (-1)/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.753743, 
            0.160213, -0.196949, -0.606147, 0.116402, -0.160213, 0.344117, 
            0.473637}, {-0.618034, -0.618034, -0.618034, -0.618034, 0.618034, 
            0.618034, 0.618034, 0.618034}, {0, (-1)/GoldenRatio, GoldenRatio, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {
            0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[5], 0, 0, 0, 0}, 130, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["r", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            219, {"r", "l"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{0, 1, 1, 1, 0, 0, 1, 
            0}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {
            0, 1/Sqrt[2], 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.623414, 0.132511, 0.238123, 
            0.732867, -0.344117, 0.473637, 0.116402, 
            0.160213}, {-0.618034, -0.618034, -0.618034, 0.618034, 0.618034, 
            0.618034, 0.618034, -0.618034}, {
            0, GoldenRatio^(-1), -GoldenRatio, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {0, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0},
             131, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["g", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            235, {"g", "l"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{0, 1, 1, 1, 0, 0, 0, 
            1}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {
            0, 1/Sqrt[2], 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.304743, -0.099017, -0.703961, 0.63385, -0.385291,
             0.081896, -0.318671, 0.35392}, {-0.618034, -0.618034, 
            0.618034, -0.618034, 0.618034, 0.618034, -0.618034, 0.618034}, {
            0, GoldenRatio^(-1), -GoldenRatio, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[5], 0, 0, 0, 0}, 132, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["b", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            251, {"b", "l"}, {$CellContext`dia, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{0, 1, 1, 0, 1, 1, 0, 
            0}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
            0, 1/Sqrt[2], 0, -(1/Sqrt[2]), 1/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.556793, -0.180913, 
            0.147168, -0.132511, 0.753743, -0.160213, -0.426464, 
            0.473637}, {-0.618034, -0.618034, 0.618034, 0.618034, 0.618034, 
            0.618034, -0.618034, -0.618034}, {
            0, GoldenRatio^(-1), GoldenRatio, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {0, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0},
             133, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 87, {
            "o", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 1, 
            0, 1, 0, 1, 
            0}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
            0, 1/Sqrt[2], 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.465839, 
            0.099017, -0.121721, -0.37462, -0.188342, 
            0.25923, -0.556793, -0.76636}, {-0.618034, 
            0., -1., -0.38196599999999997`, 0.618034, 0., 1., 
            0.38196599999999997`}, {0, GoldenRatio^(-1), GoldenRatio, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[5], 0, 0, 0, 0}, 134, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 103, {
            "c", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 1, 
            0, 1, 0, 0, 
            1}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
            0, 1/Sqrt[2], 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.385291, 0.081896, 0.147168, 0.452937, 
            0.556793, -0.76636, -0.188342, -0.25923}, {-0.618034, 0., -1., 
            0.38196599999999997`, 0.618034, 0., 1., -0.38196599999999997`}, {
            0, -GoldenRatio, -Sqrt[5], (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 135, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 119, {
            "m", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 1, 
            0, 0, 1, 1, 
            0}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
            0, 1/Sqrt[2], 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {-0.188342, -0.061196, -0.435072, 0.391741, 
            0.623414, -0.132511, 0.51562, -0.572654}, {-0.618034, 0., 
            1., -0.38196599999999997`, 0.618034, 0., -1., 
            0.38196599999999997`}, {
            0, -GoldenRatio, -Sqrt[5], GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 136, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 124, {
            "b", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 1, 
            0, 0, 1, 0, 
            1}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
            0, 1/Sqrt[2], 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.820363, -0.473637, 0., 
            0.320426, -0.147168, -0.452937, -0.121721, 0.37462}, {-0.618034, 
            0., 1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`}, {0, -GoldenRatio, 
             Sqrt[5], (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0},
             137, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 108, {
            "g", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 1, 
            0, 0, 0, 1, 
            1}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
            0, 1/Sqrt[2], 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[
             2], 1/Sqrt[6]}, {0.703961, 0.313424, 0.58224, 0.25923, 0.171503, 
            0.099017, -0.507012, -0.292724}, {-0.618034, 
            0.618034, -0.618034, -0.618034, 0.618034, -0.618034, 0.618034, 
            0.618034}, {0, -GoldenRatio, 
             Sqrt[5], GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[5], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 138, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 92, {
            "r", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 0, 
            1, 1, 1, 0, 
            0}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
            0, 1/Sqrt[2], 0, 1/Sqrt[2], 1/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.58224, 
            0.25923, -0.703961, -0.313424, -0.507012, -0.292724, -0.171503, \
-0.099017}, {-0.618034, 0.618034, -0.618034, 0.618034, 0.618034, -0.618034, 
            0.618034, -0.618034}, {
            0, GoldenRatio, -Sqrt[5], (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 139, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            95, {"r", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 0, 
            1, 1, 0, 1, 
            0}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
            0, 1/Sqrt[2], 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.277497, -0.160213, 
            0., -0.947274, -0.121721, -0.37462, 
            0.147168, -0.452937}, {-0.618034, 0.618034, 0.618034, -0.618034, 
            0.618034, -0.618034, -0.618034, 0.618034}, {
            0, GoldenRatio, -Sqrt[5], GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 140, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            111, {"g", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 0, 
            1, 1, 0, 0, 
            1}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
            0, 1/Sqrt[2], 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.507012, -0.292724, 0., 0.198034, 0.238123, 
            0.732867, 0.196949, -0.606147}, {-0.618034, 0.618034, 0.618034, 
            0.618034, 0.618034, -0.618034, -0.618034, -0.618034}, {
            0, GoldenRatio, 
             Sqrt[5], (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0},
             141, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            127, {"b", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 0, 
            1, 0, 1, 1, 
            0}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
            0, 1/Sqrt[2], 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {0.435072, 0.193707, 0.359844, 
            0.160213, -0.277497, -0.160213, 0.820363, 
            0.473637}, {-0.618034, -0.38196599999999997`, 0., -1., 0.618034, 
            0.38196599999999997`, 0., 1.}, {0, GoldenRatio, 
             Sqrt[5], GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[5], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 142, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             116, {"m", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 0, 
            1, 0, 1, 0, 
            1}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
            0, 1/Sqrt[2], 0, 1/Sqrt[2], (-1)/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.359844, 
            0.160213, -0.435072, -0.193707, 0.820363, 0.473637, 0.277497, 
            0.160213}, {-0.618034, -0.38196599999999997`, 0., 1., 0.618034, 
            0.38196599999999997`, 0., -1.}, {
            0, -GoldenRatio^2, (-1) GoldenRatio^(-2), -1, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/(
              5/8 + Sqrt[5]/8)), -1, 0, 0, 0, 0}, 143, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             100, {"c", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 0, 
            1, 0, 0, 1, 
            1}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
            0, 1/Sqrt[2], 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 
             1/Sqrt[6]}, {-0.171503, -0.099017, 0., -0.585447, 0.196949, 
            0.606147, -0.238123, 0.732867}, {-0.618034, 0.38196599999999997`, 
            0., -1., 0.618034, -0.38196599999999997`, 0., 1.}, {
            0, -GoldenRatio^2, (-1) GoldenRatio^(-2), 1, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/(
              5/8 + Sqrt[5]/8)), 1, 0, 0, 0, 0}, 144, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             84, {"o", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 0, 
            0, 1, 1, 1, 
            0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {
            0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {-0.703961, -0.63385, -0.238123, -0.214407, 
            0.435072, -0.193707, -0.041174, -0.391741}, {-0.618034, 
            0.38196599999999997`, 0., 1., 0.618034, -0.38196599999999997`, 
            0., -1.}, {0, -GoldenRatio^2, GoldenRatio^(-2), -1, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), -1, 0, 0, 0, 0}, 145, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["b", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 248, {
            "b", "d"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 1, 0,
             0, 1, 1, 0, 
            1}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {
            0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.623414, 
            0.452937, -0.58224, 0.25923, -0.080548, 0.180913, 0.58224, 
            0.061196}, {-0.618034, -1., -0.38196599999999997`, 0., 0.618034, 
            1., 0.38196599999999997`, 0.}, {
            0, -GoldenRatio^2, GoldenRatio^(-2), 1, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), 1, 0, 0, 0, 0}, 146, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["g", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 232, {
            "g", "d"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 1, 0,
             0, 1, 0, 1, 
            1}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {
            0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 
             1/Sqrt[6]}, {0.51562, 0.37462, 0.703961, -0.313424, 
            0.238123, -0.534833, 0.196949, 0.0207}, {-0.618034, -1., 
            0.38196599999999997`, 0., 0.618034, 1., -0.38196599999999997`, 
            0.}, {0, GoldenRatio^2, (-1) GoldenRatio^(-2), -1, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
             8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, 0, 0, 0}, 147, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["r", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 216, {
            "r", "d"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 1, 0,
             0, 0, 1, 1, 
            1}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {
            0, 1/Sqrt[2], -(1/Sqrt[2]), 0, (-1)/2, -Sqrt[3]/2, 0, 
             0}, {-0.238123, -0.214407, 0.703961, 0.63385, 
            0.359844, -0.160213, 0.049781, 0.473637}, {-0.618034, 
            1., -0.38196599999999997`, 0., 0.618034, -1., 
            0.38196599999999997`, 0.}, {
            0, GoldenRatio^2, (-1) GoldenRatio^(-2), 1, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/
             8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 0, 0, 0, 0}, 148, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["w", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`0\)"]], 200, {
            "w", "d"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 0, 1,
             1, 1, 1, 0, 
            0}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, 1/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[
              6])}, {-0.435072, -0.391741, -0.147168, -0.132511, -0.703961, 
            0.313424, 0.06662, 0.63385}, {-0.618034, 1., 0.38196599999999997`,
             0., 0.618034, -1., -0.38196599999999997`, 0.}, {
            0, GoldenRatio^2, GoldenRatio^(-2), -1, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), -1, 0, 0, 0, 0}, 149, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["r", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             89, {"r", "d"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 0, 1, 
            1, 1, 0, 1, 
            0}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.385291, 0.27993, -0.359844, 0.160213, 
            0.130329, -0.292724, -0.942084, -0.099017}, {0., -1.236068, 0., 
            0., 0., 1.236068, 0., 0.}, {
            0, GoldenRatio^2, GoldenRatio^(-2), 1, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), 1, 0, 0, 0, 0}, 150, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["g", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             105, {"g", "d"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 0, 1, 
            1, 1, 0, 0, 
            1}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/
             2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.318671, 0.231528, 0.435072, -0.193707, -0.385291, 
            0.865377, -0.318671, -0.033494}, {
            0., -0.618034, -0.38196599999999997`, -1., 0., 0.618034, 
            0.38196599999999997`, 1.}, {
            1, -2, -GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 151, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["b", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             121, {"b", "d"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 0, 1, 
            1, 0, 1, 1, 
            0}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), 
             0, -Sqrt[2/3]}, {-0.147168, -0.132511, 0.435072, 
            0.391741, -0.58224, 0.25923, -0.080548, -0.76636}, {
            0., -0.618034, -0.38196599999999997`, 1., 0., 0.618034, 
            0.38196599999999997`, -1.}, {
            1, -2, -GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 152, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["m", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 
            114, {"m", "l"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 1, 
            1, 0, 1, 0, 
            1}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/
             2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.556793, -0.76636, 
            0.318671, -0.033494, 0.238123, 0.412441, 0.196949, 0.341126}, {
            0., -0.618034, 0.38196599999999997`, -1., 0., 
            0.618034, -0.38196599999999997`, 1.}, {
            1, -2, GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {1, -2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 153, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["c", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 
            98, {"c", "l"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 1, 
            1, 0, 0, 1, 
            1}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/
             2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), 1/
             Sqrt[2], 1/Sqrt[6]}, {0.51562, 0.572654, 
            0.196949, -0.606147, -0.188342, -0.061196, -0.556793, 0.180913}, {
            0., -0.618034, 0.38196599999999997`, 1., 0., 
            0.618034, -0.38196599999999997`, -1.}, {
            1, -2, GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {1, -2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 154, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["o", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 
            82, {"o", "l"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 1, 
            0, 1, 1, 1, 
            0}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), 
             0, -Sqrt[2/3]}, {0.426464, 0.473637, -0.238123, 0.732867, 
            0.556793, 0.180913, -0.188342, 0.061196}, {0., 0., -1.236068, 0., 
            0., 0., 1.236068, 0.}, {1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, 155, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 254, {
            "b", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 0, 1,
             0, 1, 1, 0, 
            1}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/
             2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[
             6]}, {-0.188342, -0.25923, -0.942084, 0.099017, 0.196949, 
            0.341126, -0.238123, -0.412441}, {0., 0., 0., -1.236068, 0., 0., 
            0., 1.236068}, {1, -1, -1, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, -1, 
             Sqrt[5], 0, 0, 0, 0}, 156, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 238, {
            "g", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 0, 1,
             0, 1, 0, 1, 
            1}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/
             2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), 1/
             Sqrt[2], 1/Sqrt[6]}, {-0.344117, -0.473637, 
            0.196949, -0.0207, -0.385291, -0.667343, -0.318671, -0.551954}, {
            0., 0., 0., 1.236068, 0., 0., 0., -1.236068}, {
            1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {
            1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, 157, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 222, {
            "r", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 0, 1,
             0, 0, 1, 1, 
            1}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/
             2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), (-1)/2, -Sqrt[3]/2, 0, 
             0}, {0.318671, 0.35392, 0.121721, -0.37462, 0.304743, 0.099017, 
            0.900911, -0.292724}, {0., 0., 1.236068, 0., 0., 0., -1.236068, 
            0.}, {1, -1, 1, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, 1, 
             Sqrt[5], 0, 0, 0, 0}, 158, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "-\[Rule]\!\(TraditionalForm\`0\)"]], 206, {
            "w", "m"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 0, 0,
             1, 1, 1, 1, 
            0}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/
             2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {0.26357, 0.292724, -0.147168, 
            0.452937, -0.900911, -0.292724, 0.304743, -0.099017}, {0., 
            0.618034, -0.38196599999999997`, -1., 0., -0.618034, 
            0.38196599999999997`, 1.}, {1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, {0, 
            0, 0, 0, 0, 0, 0, 0}, {1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, 159, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`2\/3\)"]], 252, {"b", "m"}, {$CellContext`squ, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{0, 0, 0, 1, 1, 1, 0, 
            1}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/
             2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[
             6]}, {-0.116402, -0.160213, -0.58224, 
            0.061196, -0.318671, -0.551954, 0.385291, 0.667343}, {0., 
            0.618034, -0.38196599999999997`, 1., 0., -0.618034, 
            0.38196599999999997`, -1.}, {1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, {0, 
            0, 0, 0, 0, 0, 0, 0}, {1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, 160, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`2\/3\)"]], 236, {"g", "m"}, {$CellContext`squ, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{0, 0, 0, 1, 1, 0, 1, 
            1}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/
             2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), 1/
             Sqrt[2], 1/Sqrt[6]}, {-0.385291, -0.865377, -0.188342, 
            0.25923, -0.385291, 0.27993, -0.318671, -0.231528}, {0., 0.618034,
             0.38196599999999997`, -1., 0., -0.618034, -0.38196599999999997`, 
            1.}, {1, -1, 
             Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, 
             Sqrt[5], -1, 0, 0, 0, 0}, 161, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`2\/3\)"]], 220, {"r", "m"}, {$CellContext`squ, 3/2}, 2, 
            1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 
            Units`TimeUnit}, {{0, 0, 0, 1, 0, 1, 1, 
            1}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/
             2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], (-1)/2, -Sqrt[3]/2, 0, 0}, {
            0.385291, 0.667343, 0.318671, 0.551954, 0.041174, -0.193707, 
            0.435072, -0.391741}, {0., 0.618034, 0.38196599999999997`, 1., 
            0., -0.618034, -0.38196599999999997`, -1.}, {1, -1, 
             Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, 
             Sqrt[5], 1, 0, 0, 0, 0}, 162, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`1\)"]], 204, {
            "w", "m"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 0, 0,
             0, 1, 1, 1, 
            1}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/
             2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, 1/2, -Sqrt[3]/2, 0, 0}, {
            0.318671, 0.551954, -0.385291, -0.667343, -0.121721, 0.572654, 
            0.147168, -0.132511}, {0., 1.236068, 0., 0., 0., -1.236068, 0., 
            0.}, {1, 0, (-1) GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {
            1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + 
              Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 
             0}, 163, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["y", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            65, {"y", "d"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 1, 1, 
            1, 1, 0, 0, 0}, {1, 0, 0, 0, 0, 0, 0, -1}, {
            1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 0, -
             Sqrt[2/3]}, {-0.130329, -0.292724, 0.556793, -0.76636, -0.318671,
             0.231528, 0.385291, 0.27993}, {
            0., -0.38196599999999997`, -1., -0.618034, 0., 
            0.38196599999999997`, 1., 0.618034}, {
            1, 0, (-1) GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {
            1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(
             5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 164, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 188, {
            "b", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 
            1, 1, 0, 1, 0, 0}, {1, 0, 0, 0, 0, 0, -1, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[
             6]}, {-0.238123, -0.534833, -0.116402, 0.160213, 
            0.623414, -0.452937, 0.51562, 0.37462}, {
            0., -0.38196599999999997`, -1., 0.618034, 0., 
            0.38196599999999997`, 1., -0.618034}, {
            1, 0, GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            1, 0, (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 
            165, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 172, {
            "g", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 
            1, 1, 0, 0, 1, 0}, {1, 0, 0, 0, 0, -1, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[
             6]}, {0.238123, 0.412441, 0.196949, 0.341126, -0.06662, 
            0.313424, -0.703961, 0.63385}, {0., -0.38196599999999997`, 
            1., -0.618034, 0., 0.38196599999999997`, -1., 0.618034}, {
            1, 0, GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - 
             Sqrt[5]/8), 0, 0, 0, 0}, 166, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 156, {
            "r", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 
            1, 1, 0, 0, 0, 1}, {1, 0, 0, 0, -1, 0, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 0, 0, -1, 0, 0, 0}, {0.196949, 
            0.341126, -0.238123, -0.412441, 0.196949, -0.926573, -0.238123, 
            0.214407}, {0., -0.38196599999999997`, 1., 0.618034, 0., 
            0.38196599999999997`, -1., -0.618034}, {
            1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {
            1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, 167, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            135, {"y", "m"}, {$CellContext`utr, 1}, 1, 
            2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 
            Units`TimeUnit}, {{1, 1, 1, 0, 1, 1, 0, 0}, {1, 0, 0, -1, 0, 0, 0,
             0}, {1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 
             0, 0}, {-0.080548, -0.180913, 0.344117, -0.473637, 
            0.51562, -0.37462, -0.623414, -0.452937}, {0., 
            0.38196599999999997`, -1., -0.618034, 0., -0.38196599999999997`, 
            1., 0.618034}, {1, 1, -1, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, -1, 
             Sqrt[5], 0, 0, 0, 0}, 168, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["m", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"-"]], 53, {"m", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 
            1, 0, 1, 0, 1, 0}, {1, 0, -1, 0, 0, 0, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 
             0}, {-0.196949, -0.926573, -0.06662, -0.313424, -0.318671, \
-0.35392, 0.385291, 0.081896}, {0., 0.38196599999999997`, -1., 0.618034, 
            0., -0.38196599999999997`, 1., -0.618034}, {
            1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {
            1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, 169, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["c", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            34, {"c", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 
            1, 0, 1, 0, 0, 1}, {1, -1, 0, 0, 0, 0, 0, 0}, {
            0, -Sqrt[2], 0, 0, 0, 0, 0, 0}, {0.238123, 
            0.732867, -0.623414, -0.132511, 0.196949, 0.0207, -0.238123, 
            0.534833}, {0., 0.38196599999999997`, 1., -0.618034, 
            0., -0.38196599999999997`, -1., 0.618034}, {1, 1, 1, 
             Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, 1, 
             Sqrt[5], 0, 0, 0, 0}, 170, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(R\)]\)", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            33, {"c", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 1, 
            1, 0, 0, 1, 1, 0}, {0, 1, 0, 0, 0, 0, 0, -1}, {
            1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 0, -Sqrt[2/3]}, {
            0.196949, 0.606147, 0.753743, 
            0.160213, -0.58224, -0.061196, -0.080548, 0.180913}, {0., 
            0.38196599999999997`, 1., 0.618034, 
            0., -0.38196599999999997`, -1., -0.618034}, {
            1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {
            1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, 171, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 180, {"m", "m"}, {$CellContext`squ, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{1, 1, 1, 0, 0, 1, 0, 1}, {0, 1, 0, 0, 0, 0, -1,
             0}, {1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/
             Sqrt[6]}, {-0.06662, -0.313424, 0.196949, 
            0.926573, -0.26357, -0.292724, -0.465839, -0.099017}, {
            0., -1., -0.618034, -0.38196599999999997`, 0., 1., 0.618034, 
            0.38196599999999997`}, {1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 
            0, 0, 0, 0, 0}, {1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, 172, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 164, {"c", "m"}, {$CellContext`squ, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{1, 1, 1, 0, 0, 0, 1, 1}, {0, 1, 0, 0, 0, -1, 0,
             0}, {1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[
             6]}, {-0.121721, -0.572654, -0.041174, -0.193707, 0.51562, 
            0.572654, -0.623414, -0.132511}, {0., -1., -0.618034, 
            0.38196599999999997`, 0., 1., 0.618034, -0.38196599999999997`}, {
            1, 1, 
             Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, 
             Sqrt[5], -1, 0, 0, 0, 0}, 173, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 148, {"o", "m"}, {$CellContext`squ, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{1, 1, 0, 1, 1, 1, 0, 0}, {0, 1, 0, 0, -1, 0, 0,
             0}, {1/Sqrt[2], 1/Sqrt[2], 0, 0, -1, 0, 0, 0}, {0.147168, 
            0.452937, -0.385291, -0.081896, -0.318671, -0.033494, 
            0.385291, -0.865377}, {0., -1., 0.618034, -0.38196599999999997`, 
            0., 1., -0.618034, 0.38196599999999997`}, {1, 1, 
             Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, 
             Sqrt[5], 1, 0, 0, 0, 0}, 174, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "+\[Rule]\!\(TraditionalForm\`0\)"]], 143, {
            "w", "m"}, {$CellContext`utr, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 1, 0, 
            1, 1, 0, 1, 0}, {0, 1, 0, -1, 0, 0, 0, 0}, {
            1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0}, {
            0.121721, 0.37462, 0.465839, 0.099017, 0.942084, 0.099017, 
            0.130329, -0.292724}, {0., -1., 0.618034, 0.38196599999999997`, 
            0., 1., -0.618034, -0.38196599999999997`}, {
            1, 2, -GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {
            1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 175, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["o", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`\(-1\)\)"]], 20, {"o", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 
            0, 1, 1, 0, 0, 1}, {0, 1, -1, 0, 0, 0, 0, 0}, {
            1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 
             0}, {-0.041174, -0.193707, 0.121721, 0.572654, 0.426464, 
            0.473637, 0.753743, 0.160213}, {0., 
            1., -0.618034, -0.38196599999999997`, 0., -1., 0.618034, 
            0.38196599999999997`}, {
            1, 2, -GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 176, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            38, {"c", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 
            0, 1, 0, 1, 1, 0}, {0, 0, 1, 0, 0, 0, 0, -1}, {
            0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/Sqrt[3], 0, -Sqrt[2/3]}, {
            0., -0.947274, 0.277497, 0.160213, 0.318671, -0.35392, -0.385291, 
            0.081896}, {0., 1., -0.618034, 0.38196599999999997`, 0., -1., 
            0.618034, -0.38196599999999997`}, {
            1, 2, GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {1, 2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 177, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["m", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 178, {"m", "l"}, {$CellContext`squ, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{1, 1, 0, 1, 0, 1, 0, 1}, {0, 0, 1, 0, 0, 0, -1,
             0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/Sqrt[3], -(1/Sqrt[2]), 
             1/Sqrt[6]}, {0.080548, 0.76636, 0.51562, -0.37462, 0., 0.198034, 
            0., -0.585447}, {0., 1., 0.618034, -0.38196599999999997`, 
            0., -1., -0.618034, 0.38196599999999997`}, {
            1, 2, GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {1, 2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 178, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["c", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 162, {"c", "l"}, {$CellContext`squ, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{1, 1, 0, 1, 0, 0, 1, 1}, {0, 0, 1, 0, 0, -1, 0,
             0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/Sqrt[3], 1/Sqrt[2], 1/
             Sqrt[6]}, {0.06662, 0.63385, -0.623414, 0.452937, 0., -0.585447, 
            0., -0.198034}, {0., 1., 0.618034, 0.38196599999999997`, 
            0., -1., -0.618034, -0.38196599999999997`}, {
            1, -Sqrt[5], -1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {
            1, -Sqrt[5], -1, -1, 0, 0, 0, 0}, 179, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["o", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 146, {"o", "l"}, {$CellContext`squ, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{1, 1, 0, 0, 1, 1, 1, 0}, {0, 0, 1, 0, -1, 0, 0,
             0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), -1, 0, 0, 0}, {
            0., -0.320426, -0.820363, -0.473637, 0.26357, -0.292724, 
            0.465839, -0.099017}, {
            0.618034, -0.618034, -0.618034, -0.618034, -0.618034, 0.618034, 
            0.618034, 0.618034}, {1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, {0, 0, 0, 
            0, 0, 0, 0, 0}, {1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, 180, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["w", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`0\)"]], 137, {
            "w", "d"}, {$CellContext`utr, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 1, 0, 
            0, 1, 1, 0, 1}, {0, 0, 1, -1, 0, 0, 0, 0}, {
            0, 0, 0, -Sqrt[2], 0, 0, 0, 0}, {0., -0.585447, 0.171503, 
            0.099017, -0.51562, 0.572654, 0.623414, -0.132511}, {
            0.618034, -0.618034, -0.618034, 0.618034, -0.618034, 0.618034, 
            0.618034, -0.618034}, {1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, {0, 0, 0, 
            0, 0, 0, 0, 0}, {1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, 181, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["B", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"-"]], 55, {"m", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 
            0, 0, 1, 0, 1, 1}, {0, 0, 0, 1, 0, 0, 0, -1}, {
            0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/Sqrt[3], 0, -Sqrt[2/3]}, {
            0.049781, 0.473637, 0.318671, -0.231528, 0., -0.320426, 0., 
            0.947274}, {0.618034, -0.618034, 0.618034, -0.618034, -0.618034, 
            0.618034, -0.618034, 0.618034}, {1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, 182, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["m", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             176, {"m", "d"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0,
             0, 0, 1, 1, 1}, {0, 0, 0, 1, 0, 0, -1, 0}, {
            0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[
             6]}, {0.041174, 0.391741, -0.385291, 0.27993, 0., 0.947274, 0., 
            0.320426}, {0.618034, -0.618034, 0.618034, 0.618034, -0.618034, 
            0.618034, -0.618034, -0.618034}, {1, 
             Sqrt[5], -1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 
             Sqrt[5], -1, -1, 0, 0, 0, 0}, 183, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["c", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             160, {"c", "d"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1,
             1, 1, 1, 0, 0}, {0, 0, 0, 1, 0, -1, 0, 0}, {
            0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, {
            0., -0.198034, -0.507012, -0.292724, -0.426464, 
            0.473637, -0.753743, 0.160213}, {0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0., 1., 
            0.38196599999999997`}, {1, 
             Sqrt[5], -1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 
             Sqrt[5], -1, 1, 0, 0, 0, 0}, 184, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["o", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             144, {"o", "d"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1,
             1, 1, 0, 1, 0}, {0, 0, 0, 1, -1, 0, 0, 0}, {
            0, 0, 1/Sqrt[2], 1/Sqrt[2], -1, 0, 0, 0}, {
            0.196949, -0.926573, -0.304743, 0.099017, 0.385291, 0.27993, 
            0.318671, -0.231528}, {0.618034, 0., -1., 
            0.38196599999999997`, -0.618034, 0., 1., -0.38196599999999997`}, {
            1, 
             Sqrt[5], 1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 
             Sqrt[5], 1, -1, 0, 0, 0, 0}, 185, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["w", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"+"]], 139, {
            "w", "l"}, {$CellContext`utr, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 0, 1, 
            1, 1, 0, 0, 1}, {0, 0, 0, 0, 1, 0, 0, -1}, {
            0, 0, 0, 0, 1, 1/Sqrt[3], 0, -Sqrt[2/3]}, {-0.080548, 
            0.76636, -0.06662, 0.63385, -0.196949, 0.0207, 0.238123, 
            0.534833}, {0.618034, 0., 1., -0.38196599999999997`, -0.618034, 
            0., -1., 0.38196599999999997`}, {1, 
             Sqrt[5], 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 
             Sqrt[5], 1, 1, 0, 0, 0, 0}, 186, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["b", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 59, {"b", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 1,
             1, 0, 1, 1, 0}, {0, 0, 0, 0, 1, 0, -1, 0}, {
            0, 0, 0, 0, 1, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.06662, 
            0.63385, 0.080548, -0.76636, 0.58224, -0.061196, 0.080548, 
            0.180913}, {0.618034, 0., 1., 0.38196599999999997`, -0.618034, 
            0., -1., -0.38196599999999997`}, {
            1, (-1) GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(
              5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, 187, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["g", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 43, {"g", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 1,
             1, 0, 1, 0, 1}, {0, 0, 0, 0, 1, -1, 0, 0}, {
            0, 0, 0, 0, 1, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, {
            0.06662, -0.313424, 0.900911, -0.292724, 0.318671, 
            0.231528, -0.385291, 0.27993}, {0.618034, 
            0.618034, -0.618034, -0.618034, -0.618034, -0.618034, 0.618034, 
            0.618034}, {
            1, (-1) GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {
            1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(5/8 - 
             Sqrt[5]/8), 0, 0, 0, 0, 0}, 188, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["r", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 27, {"r", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 1,
             1, 0, 0, 1, 1}, {0, 0, 0, 0, 0, 1, 0, -1}, {
            0, 0, 0, 0, 0, 0, -(1/Sqrt[2]), -Sqrt[3/2]}, {
            0.121721, -0.572654, -0.188342, 
            0.061196, -0.623414, -0.452937, -0.51562, 0.37462}, {0.618034, 
            0.618034, -0.618034, 0.618034, -0.618034, -0.618034, 
            0.618034, -0.618034}, {
            1, GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            1, (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 
             0}, 189, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(g\), \
\(_\)]\)]\)", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            57, {"b", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 
            1, 0, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 1, -1, 0}, {
            0, 0, 0, 0, 0, 0, -Sqrt[2], 0}, {-0.049781, 0.473637, -0.041174, 
            0.391741, 0.318671, -0.033494, -0.385291, -0.865377}, {0.618034, 
            0.618034, 0.618034, -0.618034, -0.618034, -0.618034, -0.618034, 
            0.618034}, {1, GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {
            1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - 
             Sqrt[5]/8), 0, 0, 0, 0, 0}, 190, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(b\), \
\(_\)]\)]\)", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            41, {"g", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 
            1, 0, 1, 1, 0, 1}, {0, 0, 0, 0, 0, 0, 1, -1}, {
            0, 0, 0, 0, 0, 0, 1/Sqrt[2], -Sqrt[3/2]}, {-0.041174, 0.391741, 
            0.049781, -0.473637, -0.942084, 0.099017, -0.130329, -0.292724}, {
            0.618034, 0.618034, 0.618034, 
            0.618034, -0.618034, -0.618034, -0.618034, -0.618034}, {
            1, (-1)/GoldenRatio, -2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 191, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(g \*OverscriptBox[\(b\), \
\(_\)]\)]\)", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            25, {"r", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 
            1, 0, 1, 0, 1, 1}, {0, 0, 0, 0, 0, 0, -1, 1}, {
            0, 0, 0, 0, 0, 0, -(1/Sqrt[2]), 
             Sqrt[3/2]}, {0.041174, -0.193707, 
            0.556793, -0.180913, -0.51562, -0.37462, 0.623414, -0.452937}, {
            0.618034, -0.38196599999999997`, 0., -1., -0.618034, 
            0.38196599999999997`, 0., 1.}, {
            1, (-1)/GoldenRatio, -2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 192, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(g \*OverscriptBox[\(b\), \
\(_\)]\)]\)", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            24, {"r", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 
            1, 0, 0, 1, 1, 1}, {0, 0, 0, 0, 0, -1, 1, 0}, {0, 0, 0, 0, 0, 0, 
             Sqrt[2], 0}, {0.385291, -0.865377, 
            0.130329, -0.292724, -0.238123, 0.412441, -0.196949, 0.341126}, {
            0.618034, -0.38196599999999997`, 0., 1., -0.618034, 
            0.38196599999999997`, 0., -1.}, {
            1, (-1)/GoldenRatio, 2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {
            1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 193, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(b\), \
\(_\)]\)]\)", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            40, {"g", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 
            0, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, -1, 0, 1}, {
            0, 0, 0, 0, 0, 0, 1/Sqrt[2], 
             Sqrt[3/2]}, {-0.238123, 
            0.732867, -0.426464, -0.473637, -0.041174, -0.193707, -0.435072, \
-0.391741}, {0.618034, 0.38196599999999997`, 
            0., -1., -0.618034, -0.38196599999999997`, 0., 1.}, {
            1, (-1)/GoldenRatio, 2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 194, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(g\), \
\(_\)]\)]\)", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            56, {"b", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 
            0, 1, 1, 1, 0, 1}, {0, 0, 0, 0, -1, 1, 0, 0}, {
            0, 0, 0, 
             0, -1, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.196949, 
            0.606147, 0.51562, 0.572654, 0.121721, 
            0.572654, -0.147168, -0.132511}, {0.618034, 0.38196599999999997`, 
            0., 1., -0.618034, -0.38196599999999997`, 0., -1.}, {
            1, GoldenRatio^(-1), -2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 195, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["r", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            26, {"r", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 0,
             1, 1, 0, 1, 1}, {0, 0, 0, 0, -1, 0, 1, 0}, {
            0, 0, 0, 0, -1, -(1/Sqrt[3]), 1/Sqrt[2], -(1/Sqrt[6])}, {
            0.130329, -0.292724, -0.385291, 0.865377, -0.196949, 0.341126, 
            0.238123, -0.412441}, {0.618034, -1., -0.38196599999999997`, 
            0., -0.618034, 1., 0.38196599999999997`, 0.}, {
            1, GoldenRatio^(-1), -2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 196, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["g", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            42, {"g", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 0,
             1, 0, 1, 1, 1}, {0, 0, 0, 0, -1, 0, 0, 1}, {
            0, 0, 0, 0, -1, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.238123, -0.534833, 0.080548, -0.180913, 
            0.385291, -0.667343, 0.318671, -0.551954}, {0.618034, -1., 
            0.38196599999999997`, 0., -0.618034, 1., -0.38196599999999997`, 
            0.}, {1, GoldenRatio^(-1), 2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 197, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["b", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            58, {"b", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 0,
             0, 1, 1, 1, 1}, {0, 0, 0, -1, 1, 0, 0, 0}, {
            0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 1, 0, 0, 0}, {-0.147168, 
            0.452937, -0.26357, -0.292724, 0.06662, 0.313424, 0.703961, 
            0.63385}, {0.618034, 1., -0.38196599999999997`, 
            0., -0.618034, -1., 0.38196599999999997`, 0.}, {
            1, GoldenRatio^(-1), 2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 198, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["w", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"-"]], 138, {
            "w", "l"}, {$CellContext`tri, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 1, 1, 
            1, 1, 1, 0, 0}, {0, 0, 0, -1, 0, 1, 0, 0}, {
            0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 
             0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.121721, 
            0.37462, 0.318671, 0.35392, -0.196949, -0.926573, 0.238123, 
            0.214407}, {0.618034, 1., 0.38196599999999997`, 
            0., -0.618034, -1., -0.38196599999999997`, 0.}, {
            1, -GoldenRatio, (-1)/GoldenRatio, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 199, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["o", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 145, {
            "o", "d"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1,
             1, 1, 0, 1, 0}, {0, 0, 0, -1, 0, 0, 1, 0}, {
            0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.080548, -0.180913, -0.238123, 0.534833, 
            0.318671, -0.551954, -0.385291, 0.667343}, {1.236068, 0., 0., 
            0., -1.236068, 0., 0., 0.}, {
            1, -GoldenRatio, (-1)/GoldenRatio, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {
            1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 200, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["c", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 161, {
            "c", "d"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1,
             1, 1, 0, 0, 1}, {0, 0, 0, -1, 0, 0, 0, 1}, {
            0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.556793, -0.76636, 0.130329, 
            0.292724, -0.435072, -0.193707, 
            0.041174, -0.391741}, {-0.38196599999999997`, -0.618034, -1., 0., 
            0.38196599999999997`, 0.618034, 1., 0.}, {
            1, -GoldenRatio, GoldenRatio^(-1), -2, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 201, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["m", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 177, {
            "m", "d"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1,
             1, 0, 1, 1, 0}, {0, 0, -1, 1, 0, 0, 0, 0}, {0, 0, 0, 
             Sqrt[2], 0, 0, 0, 0}, {-0.385291, 0.667343, 0.637341, 0., 
            0.188342, -0.061196, 0.556793, 
            0.180913}, {-0.38196599999999997`, -0.618034, 1., 0., 
            0.38196599999999997`, 0.618034, -1., 0.}, {
            1, -GoldenRatio, GoldenRatio^(-1), 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 202, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["B", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"+"]], 54, {"m", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 
            1, 1, 0, 1, 0, 1}, {0, 0, -1, 0, 1, 0, 0, 0}, {
            0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 1, 0, 0, 0}, {-0.318671, 
            0.551954, -0.770582, 0., -0.556793, 0.180913, 0.188342, 
            0.061196}, {-0.38196599999999997`, 0., -0.618034, -1., 
            0.38196599999999997`, 0., 0.618034, 1.}, {
            1, GoldenRatio, (-1)/GoldenRatio, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {1, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 203, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["w", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`0\)"]], 136, {
            "w", "d"}, {$CellContext`tri, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 1, 1, 
            1, 0, 0, 1, 1}, {0, 0, -1, 0, 0, 1, 0, 0}, {
            0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 
             0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {
            0.188342, -0.25923, -0.385291, -0.865377, -0.359844, -0.160213, \
-0.049781, 0.473637}, {-0.38196599999999997`, 0., -0.618034, 1., 
            0.38196599999999997`, 0., 0.618034, -1.}, {
            1, GoldenRatio, (-1)/GoldenRatio, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {1, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 204, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["o", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 147, {"o", "l"}, {$CellContext`dia, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{0, 1, 1, 0, 1, 1, 1, 0}, {0, 0, -1, 0, 0, 0, 1,
             0}, {0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, -(1/Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.344117, -0.473637, 0.080548, 0.180913, 
            0.703961, 0.313424, -0.06662, 0.63385}, {-0.38196599999999997`, 
            0., 0.618034, -1., 0.38196599999999997`, 0., -0.618034, 1.}, {
            1, GoldenRatio, GoldenRatio^(-1), -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {1, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 205, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["c", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 163, {"c", "l"}, {$CellContext`dia, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{0, 1, 1, 0, 1, 1, 0, 1}, {0, 0, -1, 0, 0, 0, 0,
             1}, {0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.238123, 0.412441, 0.393899, 0., -0.304743, 
            0.099017, -0.900911, -0.292724}, {-0.38196599999999997`, 0., 
            0.618034, 1., 0.38196599999999997`, 0., -0.618034, -1.}, {
            1, GoldenRatio, GoldenRatio^(-1), 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {1, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 206, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["m", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 179, {"m", "l"}, {$CellContext`dia, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{0, 1, 1, 0, 1, 0, 1, 1}, {0, -1, 1, 0, 0, 0, 0,
             0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 
             0, 0}, {-0.196949, 0.341126, -0.476246, 0., 
            0.900911, -0.292724, -0.304743, -0.099017}, \
{-0.38196599999999997`, 0.618034, -1., 0., 0.38196599999999997`, -0.618034, 
            1., 0.}, {
            1, -GoldenRatio^2, 0, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {
            1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 
             0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 207, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            39, {"c", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 
            1, 0, 0, 1, 1, 1}, {0, -1, 0, 1, 0, 0, 0, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 
             0}, {0.116402, -0.160213, -0.238123, -0.534833, 0.58224, 0.25923,
             0.080548, -0.76636}, {-0.38196599999999997`, 0.618034, 1., 0., 
            0.38196599999999997`, -0.618034, -1., 0.}, {
            1, -GoldenRatio^2, 0, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, (5/8 - Sqrt[5]/8)/(
             5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 208, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["o", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`1\)"]], 21, {"o", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 
            0, 1, 1, 1, 1, 0}, {0, -1, 0, 0, 1, 0, 0, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 1, 0, 0, 0}, {
            0.703961, -0.63385, -0.304743, -0.099017, 0.147168, -0.452937, 
            0.121721, 0.37462}, {-0.38196599999999997`, -1., 0., -0.618034, 
            0.38196599999999997`, 1., 0., 0.618034}, {
            1, GoldenRatio^2, 0, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0,
             0, 0, 0, 0, 0}, {
            1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 
             0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 209, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "-\[Rule]\!\(TraditionalForm\`0\)"]], 142, {
            "w", "m"}, {$CellContext`tri, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 1, 0, 
            1, 1, 1, 0, 1}, {0, -1, 0, 0, 0, 1, 0, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 
             0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.51562, 
            0.572654, -0.426464, 0.473637, 0.080548, 0.180913, -0.58224, 
            0.061196}, {-0.38196599999999997`, -1., 0., 0.618034, 
            0.38196599999999997`, 1., 0., -0.618034}, {
            1, GoldenRatio^2, 0, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, (5/8 - Sqrt[5]/8)/(5/8 + 
             Sqrt[5]/8), 0, 0, 0, 0}, 210, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 149, {"o", "m"}, {$CellContext`dia, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{0, 1, 0, 1, 1, 0, 1, 1}, {0, -1, 0, 0, 0, 0, 1,
             0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.426464, 0.473637, 
            0.51562, -0.572654, -0.238123, -0.534833, -0.196949, 
            0.0207}, {-0.38196599999999997`, 1., 0., -0.618034, 
            0.38196599999999997`, -1., 0., 0.618034}, {2, -2, 0, 0, 0, 0, 0, 
            0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, -2, 0, 0, 0, 0, 0, 0}, 211, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 165, {"c", "m"}, {$CellContext`dia, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{0, 1, 0, 1, 0, 1, 1, 1}, {0, -1, 0, 0, 0, 0, 0,
             1}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {0.238123, -0.214407, 0.900911, 0.292724, 
            0.121721, -0.37462, -0.147168, -0.452937}, {-0.38196599999999997`,
             1., 0., 0.618034, 0.38196599999999997`, -1., 0., -0.618034}, {
            2, -1, (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 212, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\
TraditionalForm\`1\/3\)"]], 181, {"m", "m"}, {$CellContext`dia, 1}, 2, 
            4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 
            Units`TimeUnit}, {{0, 1, 0, 0, 1, 1, 1, 1}, {-1, 1, 0, 0, 0, 0, 0,
             0}, {0, 
             Sqrt[2], 0, 0, 0, 0, 0, 0}, {
            0.435072, -0.391741, -0.188342, -0.061196, -0.238123, 
            0.732867, -0.196949, -0.606147}, {
            0.38196599999999997`, -0.618034, -1., 0., -0.38196599999999997`, 
            0.618034, 1., 0.}, {
            2, -1, (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 213, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(R\)]\)", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            32, {"c", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{0, 0, 
            1, 1, 1, 1, 1, 0}, {-1, 0, 1, 0, 0, 0, 0, 
            0}, {-(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 
             0}, {-0.318671, 0.35392, -0.26357, 
            0.292724, -0.130329, -0.292724, 0.942084, -0.099017}, {
            0.38196599999999997`, -0.618034, 1., 0., -0.38196599999999997`, 
            0.618034, -1., 0.}, {
            2, -1, GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {2, -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 214, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["c", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            35, {"c", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 
            1, 1, 1, 1, 0, 1}, {-1, 0, 0, 1, 0, 0, 0, 
            0}, {-(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 
             0}, {-0.26357, 0.292724, 0.318671, -0.35392, 0.385291, 0.865377, 
            0.318671, -0.033494}, {0.38196599999999997`, 
            0., -0.618034, -1., -0.38196599999999997`, 0., 0.618034, 1.}, {
            2, -1, GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {2, -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 215, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["m", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"+"]], 52, {"m", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 
            1, 1, 1, 0, 1, 1}, {-1, 0, 0, 0, 1, 0, 0, 
            0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 1, 0, 0, 0}, {
            0.147168, -0.132511, 0.556793, 0.180913, -0.196949, 0.606147, 
            0.238123, 0.732867}, {0.38196599999999997`, 0., -0.618034, 
            1., -0.38196599999999997`, 0., 0.618034, -1.}, {2, 0, -2, 0, 0, 0,
             0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 0, -2, 0, 0, 0, 0, 0}, 216, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            134, {"y", "m"}, {$CellContext`tri, 1}, 1, 
            2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 
            Units`TimeUnit}, {{0, 0, 1, 1, 0, 1, 1, 1}, {-1, 0, 0, 0, 0, 1, 0,
             0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 
             0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {
            0.820363, -0.473637, 0.277497, -0.160213, 0.465839, 
            0.099017, -0.26357, -0.292724}, {0.38196599999999997`, 0., 
            0.618034, -1., -0.38196599999999997`, 0., -0.618034, 1.}, {2, 0, 
            0, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 0, 0, -2, 0, 0, 
            0, 0}, 217, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             157, {"r", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 0, 1, 1, 1, 1}, {-1, 0, 0, 0, 0, 0, 1, 
            0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {-0.623414, 
            0.452937, -0.06662, -0.63385, -0.171503, 0.099017, 
            0.507012, -0.292724}, {0.38196599999999997`, 0., 0.618034, 
            1., -0.38196599999999997`, 0., -0.618034, -1.}, {2, 0, 0, 2, 0, 0,
             0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 0, 0, 2, 0, 0, 0, 0}, 218, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             173, {"g", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            0, 1, 1, 1, 1, 1}, {-1, 0, 0, 0, 0, 0, 0, 
            1}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.51562, 0.37462, 0.080548, 0.76636, 
            0.507012, -0.292724, 0.171503, -0.099017}, {0.38196599999999997`, 
            0.618034, -1., 0., -0.38196599999999997`, -0.618034, 1., 0.}, {2, 
            0, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 0, 2, 0, 0, 0,
             0, 0}, 219, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]],
             189, {"b", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 
            1, 1, 1, 1, 0, 0}, {
            1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {
            1/Sqrt[2], 0, 1/Sqrt[2], 0, 1/2, 1/(2 
             Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {
            0.277497, -0.160213, -0.820363, 0.473637, 0.385291, 0.081896, 
            0.318671, 0.35392}, {0.38196599999999997`, 0.618034, 1., 
            0., -0.38196599999999997`, -0.618034, -1., 0.}, {
            2, 1, (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {
            2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 220, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["r", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            91, {"r", "l"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 1, 
            1, 1, 0, 1, 0}, {1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {
            1/Sqrt[2], 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), 1/Sqrt[
             2], -(1/Sqrt[6])}, {0.507012, -0.292724, 
            0.171503, -0.099017, -0.753743, -0.160213, 0.426464, 0.473637}, {
            0.38196599999999997`, -1., 0., -0.618034, -0.38196599999999997`, 
            1., 0., 0.618034}, {
            2, 1, (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 221, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["g", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            107, {"g", "l"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 1, 
            1, 1, 0, 0, 1}, {1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, {
            1/Sqrt[2], 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), 0, 
             Sqrt[2/3]}, {-0.385291, 0.27993, -0.041174, -0.391741, 
            0.277497, -0.160213, -0.820363, 0.473637}, {
            0.38196599999999997`, -1., 0., 0.618034, -0.38196599999999997`, 
            1., 0., -0.618034}, {
            2, 1, GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {2, 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 222, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["b", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 
            123, {"b", "l"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 1, 
            1, 0, 1, 1, 0}, {1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {
            1/Sqrt[2], 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {-0.318671, 0.231528, 0.049781, 0.473637, -0.820363, 
            0.473637, -0.277497, 0.160213}, {0.38196599999999997`, 1., 
            0., -0.618034, -0.38196599999999997`, -1., 0., 0.618034}, {
            2, 1, GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {2, 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 223, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["m", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             112, {"m", "d"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 1, 
            1, 0, 1, 0, 1}, {1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {
            1/Sqrt[2], 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {
            0.171503, -0.099017, -0.507012, 
            0.292724, -0.623414, -0.132511, -0.51562, -0.572654}, {
            0.38196599999999997`, 1., 0., 
            0.618034, -0.38196599999999997`, -1., 0., -0.618034}, {2, 2, 0, 0,
             0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 2, 0, 0, 0, 0, 0, 0}, 
            224, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["c", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             96, {"c", "d"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 1, 
            1, 0, 0, 1, 1}, {1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {
            1/Sqrt[2], 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 
             1/Sqrt[6]}, {0.900911, -0.292724, -0.06662, 0.313424, -0.049781, 
            0.473637, 0.359844, 0.160213}, {-1., -0.618034, 
            0., -0.38196599999999997`, 1., 0.618034, 0., 
            0.38196599999999997`}, {
            2, (-1)/GoldenRatio, -GoldenRatio, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 225, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["o", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             80, {"o", "d"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 1, 
            0, 1, 1, 1, 0}, {1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {
            1/Sqrt[2], 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {-0.703961, 0.313424, 0.51562, 
            0.37462, -0.116402, -0.160213, -0.344117, 
            0.473637}, {-1., -0.618034, 0., 0.38196599999999997`, 1., 
            0.618034, 0., -0.38196599999999997`}, {
            2, (-1)/GoldenRatio, -GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {
            2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 226, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 246, {"m", "m"}, {$CellContext`squ, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{1, 1, 1, 0, 1, 1, 0, 1}, {
            1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {
            1/Sqrt[2], 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.58224, 
            0.25923, -0.623414, -0.452937, 0.344117, 0.473637, -0.116402, 
            0.160213}, {-1., 0., -0.38196599999999997`, -0.618034, 1., 0., 
            0.38196599999999997`, 0.618034}, {
            2, (-1)/GoldenRatio, GoldenRatio, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 227, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 230, {"c", "m"}, {$CellContext`squ, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{1, 1, 1, 0, 1, 0, 1, 1}, {
            1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {
            1/Sqrt[2], 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 
             1/Sqrt[6]}, {0.304743, -0.099017, 0.196949, -0.926573, -0.041174,
             0.391741, -0.435072, -0.193707}, {-1., 0., -0.38196599999999997`,
             0.618034, 1., 0., 0.38196599999999997`, -0.618034}, {
            2, (-1)/GoldenRatio, GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 228, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\
1\/3\)\)\)\)"]], 214, {"o", "m"}, {$CellContext`squ, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{1, 1, 1, 0, 0, 1, 1, 1}, {
            1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {
            1/Sqrt[2], 0, 0, -(1/Sqrt[2]), (-1)/2, -Sqrt[3]/2, 0, 0}, {
            0.556793, -0.180913, -0.041174, 0.193707, 
            0.080548, -0.76636, -0.58224, -0.25923}, {-1., 0., 
            0.38196599999999997`, -0.618034, 1., 0., -0.38196599999999997`, 
            0.618034}, {2, GoldenRatio^(-1), -GoldenRatio, -1, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 0}, {2, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 229, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            198, {"y", "m"}, {$CellContext`tri, 3/2}, 1, 
            1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 
            Units`TimeUnit}, {{1, 1, 0, 1, 1, 1, 1, 0}, {
            1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {
            1/Sqrt[2], 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {-0.435072, 0.193707, 0.318671, 0.231528, 0.188342, 
            0.25923, 0.556793, -0.76636}, {-1., 0., 0.38196599999999997`, 
            0.618034, 1., 0., -0.38196599999999997`, -0.618034}, {
            2, GoldenRatio^(-1), -GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {2, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 230, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             244, {"m", "m"}, {$CellContext`squ, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{1, 1, 0, 1, 1, 1, 0, 1}, {
            1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {
            1/Sqrt[2], 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 
             1/Sqrt[6]}, {-0.359844, 
            0.160213, -0.385291, -0.27993, -0.556793, -0.76636, 
            0.188342, -0.25923}, {-1., 0.618034, 0., -0.38196599999999997`, 
            1., -0.618034, 0., 0.38196599999999997`}, {
            2, GoldenRatio^(-1), GoldenRatio, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {2, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 231, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             228, {"c", "m"}, {$CellContext`squ, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{1, 1, 0, 1, 1, 0, 1, 1}, {
            1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {
            1/Sqrt[2], 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/
             Sqrt[6]}, {0.188342, -0.061196, 0.121721, -0.572654, 
            0.06662, -0.63385, 0.703961, 0.313424}, {-1., 0.618034, 0., 
            0.38196599999999997`, 1., -0.618034, 0., -0.38196599999999997`}, {
            2, GoldenRatio^(-1), GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {2, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 232, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             212, {"o", "m"}, {$CellContext`squ, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{1, 1, 0, 1, 0, 1, 1, 1}, {
            1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {
            1/Sqrt[2], 0, 0, 1/Sqrt[2], (-1)/2, -Sqrt[3]/2, 0, 0}, {
            0.942084, -0.099017, -0.188342, -0.25923, -0.476246, 
            0., -0.393899, 0.}, {-1., -0.38196599999999997`, -0.618034, 0., 
            1., 0.38196599999999997`, 0.618034, 0.}, {
            2, -GoldenRatio, -1, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {
            2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 233, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 
            196, {"y", "m"}, {$CellContext`tri, 3/2}, 1, 
            1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 
            Units`TimeUnit}, {{1, 1, 0, 0, 1, 1, 1, 1}, {
            1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {
            1/Sqrt[2], 0, -(1/Sqrt[2]), 0, 1/2, -Sqrt[3]/2, 0, 0}, {-0.753743,
             0.160213, -0.623414, 0.132511, 0.147168, -0.132511, 
            0.121721, -0.572654}, {-1., -0.38196599999999997`, 0.618034, 0., 
            1., 0.38196599999999997`, -0.618034, 0.}, {
            2, -GoldenRatio, -1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 
            0, 0, 0, 0}, {2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 234, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["y", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            67, {"y", "l"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 0, 1, 
            1, 1, 1, 1, 0}, {1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {
            0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {-0.623414, 0.132511, 0.753743, -0.160213, -0.435072,
             0.391741, 0.041174, -0.193707}, {-1., 
            0.38196599999999997`, -0.618034, 0., 1., -0.38196599999999997`, 
            0.618034, 0.}, {
            2, -GoldenRatio, 1, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {
            2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 235, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["m", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 
            242, {"m", "l"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 
            1, 1, 1, 1, 0, 1}, {
            1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {
            0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/2, (-1)/(2 
             Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.318671, -0.033494, 
            0.556793, 0.76636, -0.393899, 0., 0.476246, 0.}, {-1., 
            0.38196599999999997`, 0.618034, 0., 
            1., -0.38196599999999997`, -0.618034, 0.}, {
            2, -GoldenRatio, 1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 236, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["c", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 
            226, {"c", "l"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 
            1, 1, 1, 0, 1, 1}, {
            1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {
            0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 
             1/Sqrt[6]}, {0.58224, -0.061196, -0.116402, -0.160213, 0.770582, 
            0., 0.637341, 0.}, {1., -0.618034, 0., -0.38196599999999997`, -1.,
             0.618034, 0., 0.38196599999999997`}, {
            2, GoldenRatio, -1, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 237, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["o", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 
            210, {"o", "l"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 
            1, 1, 0, 1, 1, 1}, {
            1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {
            0, -(1/Sqrt[2]), 1/Sqrt[2], 0, (-1)/2, -Sqrt[3]/2, 0, 
             0}, {-0.465839, 0.099017, -0.385291, 0.081896, -0.238123, 
            0.214407, -0.196949, 0.926573}, {1., -0.618034, 0., 
            0.38196599999999997`, -1., 0.618034, 0., -0.38196599999999997`}, {
            2, GoldenRatio, -1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0,
             0, 0, 0}, {2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 238, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["y", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 
            194, {"y", "l"}, {$CellContext`tri, 3/2}, 1, 
            1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 
            Units`TimeUnit}, {{1, 0, 1, 0, 1, 1, 1, 1}, {
            1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {
            0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), 1/2, -Sqrt[3]/2, 0, 
             0}, {-0.385291, 0.081896, 0.465839, -0.099017, 
            0.703961, -0.63385, -0.06662, 0.313424}, {1., 
            0., -0.38196599999999997`, -0.618034, -1., 0., 
            0.38196599999999997`, 0.618034}, {
            2, GoldenRatio, 1, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 239, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 
            69, {"y", "m"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 0, 0, 
            1, 1, 1, 1, 1}, {1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {
            0, -(1/Sqrt[2]), 0, 1/Sqrt[2], 1/2, -Sqrt[3]/2, 0, 0}, {
            0.196949, -0.0207, 0.344117, 0.473637, 0.637341, 0., -0.770582, 
            0.}, {1., 0., -0.38196599999999997`, 0.618034, -1., 0., 
            0.38196599999999997`, -0.618034}, {
            2, GoldenRatio, 1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 
            0, 0, 0}, {2, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 240, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"+"]], 77, {
            "w", "m"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{0, 1, 
            1, 1, 1, 1, 1, 
            0}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {
            0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), 0, -
             Sqrt[2/3]}, {0.942084, 0.099017, 0.318671, 
            0.033494, -0.049781, -0.473637, 0.359844, -0.160213}, {1., 0., 
            0.38196599999999997`, -0.618034, -1., 0., -0.38196599999999997`, 
            0.618034}, {-Sqrt[5], -1, -1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 
            0, 0}, {-Sqrt[5], -1, -1, -1, 0, 0, 0, 0}, 241, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["m", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             240, {"m", "d"}, {$CellContext`squ, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{0, 1, 1, 1, 1, 1, 0, 
            1}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {
            0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 
             1/Sqrt[6]}, {-0.770582, 0., 0.318671, -0.551954, 0.147168, 
            0.132511, 0.121721, 0.572654}, {1., 0., 0.38196599999999997`, 
            0.618034, -1., 
            0., -0.38196599999999997`, -0.618034}, {-Sqrt[5], -1, -1, 1, 0, 0,
              0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-Sqrt[5], -1, -1, 1, 0, 0, 0, 0}, 242, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["c", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             224, {"c", "d"}, {$CellContext`squ, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{0, 1, 1, 1, 1, 0, 1, 
            1}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {
            0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/
             Sqrt[6]}, {-0.637341, 0., -0.385291, 
            0.667343, -0.435072, -0.391741, 0.041174, 0.193707}, {1., 
            0.618034, 0., -0.38196599999999997`, -1., -0.618034, 0., 
            0.38196599999999997`}, {-Sqrt[5], -1, 1, -1, 0, 0, 0, 0}, {0, 0, 
            0, 0, 0, 0, 0, 0}, {-Sqrt[5], -1, 1, -1, 0, 0, 0, 0}, 243, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["o", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]],
             208, {"o", "d"}, {$CellContext`squ, 3/2}, 2, 
            5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 
            Units`TimeUnit}, {{0, 1, 1, 1, 0, 1, 1, 
            1}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {
            0, 1/Sqrt[2], 1/Sqrt[2], 0, (-1)/2, -Sqrt[3]/2, 0, 0}, {0.318671, 
            0.033494, -0.942084, -0.099017, -0.041174, -0.391741, -0.435072, 
            0.193707}, {1., 0.618034, 0., 
            0.38196599999999997`, -1., -0.618034, 
            0., -0.38196599999999997`}, {-Sqrt[5], -1, 1, 1, 0, 0, 0, 0}, {0, 
            0, 0, 0, 0, 0, 0, 0}, {-Sqrt[5], -1, 1, 1, 0, 0, 0, 0}, 244, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["y", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 
            192, {"y", "d"}, {$CellContext`tri, 3/2}, 1, 
            1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 
            Units`TimeUnit}, {{0, 1, 1, 0, 1, 1, 1, 
            1}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {
            0, 1/Sqrt[2], 0, -(1/Sqrt[2]), 1/2, -Sqrt[3]/2, 0, 0}, {0.58224, 
            0.061196, 0.196949, 0.0207, 0.080548, 0.76636, -0.58224, 
            0.25923}, {1., -0.38196599999999997`, -0.618034, 0., -1., 
            0.38196599999999997`, 0.618034, 
            0.}, {-Sqrt[5], 0, -GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-Sqrt[5], 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 245, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            71, {"y", "m"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{0, 1, 0, 
            1, 1, 1, 1, 1}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {
            0, 1/Sqrt[2], 0, 1/Sqrt[2], 1/2, -Sqrt[3]/2, 0, 0}, {-0.476246, 
            0., 0.196949, -0.341126, -0.238123, -0.214407, -0.196949, \
-0.926573}, {1., -0.38196599999999997`, 0.618034, 0., -1., 
            0.38196599999999997`, -0.618034, 
            0.}, {-Sqrt[5], 0, -GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {
            0, 0, 0, 0, 0, 0, 0, 
            0}, {-Sqrt[5], 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 246, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"+"]], 79, {
            "w", "m"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{0, 0, 
            1, 1, 1, 1, 1, 
            1}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {-(1/Sqrt[2]),
              0, 1/Sqrt[2], 0, 1/2, -Sqrt[3]/2, 0, 0}, {-0.393899, 
            0., -0.238123, 0.412441, 0.703961, 
            0.63385, -0.06662, -0.313424}, {1., 
            0.38196599999999997`, -0.618034, 0., -1., -0.38196599999999997`, 
            0.618034, 
            0.}, {-Sqrt[5], 0, GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0,
             0, 0, 0, 0, 0, 0, 0}, {-Sqrt[5], 0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 247, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["w", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"+"]], 73, {
            "w", "d"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{1, 1, 
            1, 1, 1, 1, 1, 0}, {-1, 0, 0, 0, 0, 0, 0, 
            0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0, 0, 0}, {-1, 0, 0, 0, 0, 
            0, 0, 0}, {-1., 0., 0., 0., 0., 0., 0., 
            0.}, {-Sqrt[5], 0, GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0,
             0, 0, 0, 0, 0, 0, 0}, {-Sqrt[5], 0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 248, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 
            15, {"w", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{1, 1, 1, 1, 1, 1, 0, 1}, {0, -1, 0, 0, 0, 0, 0,
             0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0, 0, 0}, {0, -1, 0, 0,
             0, 0, 0, 0}, {0., -1., 0., 0., 0., 0., 0., 
            0.}, {-Sqrt[5], 1, -1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0}, {-Sqrt[5], 1, -1, -1, 0, 0, 0, 0}, 249, 
            HoldFo