(* 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[   6542935,     140893]
NotebookOptionsPosition[   6409174,     137951]
NotebookOutlinePosition[   6425573,     138247]
CellTagsIndexPosition[   6425530,     138244]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["VisibLie 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[{
 "Clifford Algebra calculations in the E8 subgroups area are done with George \
Stacey Staples' work ",
 ButtonBox["http://www.siue.edu/~sstaple/index_files/research.htm",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.siue.edu/~sstaple/index_files/research.htm"], None},
  ButtonNote->"http://www.siue.edu/~sstaple/index_files/research.htm"]
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[TextData[{
 "Lie Algebra calculations in the VisibLie Dynkin manipulator (to select \
vertices/particles as E8 subgroups) are done with ",
 ButtonBox["http://www.equaonline.com/math/SuperLie/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.equaonline.com/math/SuperLie/"], None},
  ButtonNote->"http://www.equaonline.com/math/SuperLie/"],
 "  "
}], "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["VisibLie_Groups (aka.E8Flyer) 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), 
     "\"E8Hexes\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E8Hexes"]; $CellContext`refreshToggle), 
     "\"E8Hyper\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E8Hyper"]; $CellContext`refreshToggle), 
     "\"E83\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E83"]; $CellContext`refreshToggle), 
     "\"E83D\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E83D"]; $CellContext`refreshToggle), 
     "\"E824x10\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E824x10"]; $CellContext`refreshToggle), 
     "\"E812x5\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E812x5"]; $CellContext`refreshToggle), 
     "\"E8Petrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E8Petrie"]; $CellContext`refreshToggle), 
     "\"E8inE6\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E8inE6"]; $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), 
     "\"E5\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E5"]; $CellContext`refreshToggle), 
     "\"E4\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["E4"]; $CellContext`refreshToggle), 
     "\"H4\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["H4"]; $CellContext`refreshToggle), 
     "\"F4\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["F4"]; $CellContext`refreshToggle), 
     "\"F4Tris\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["F4Tris"]; $CellContext`refreshToggle), 
     "\"F4G2\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["F4G2"]; $CellContext`refreshToggle), 
     "\"Tesseract\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Tesseract"]; $CellContext`refreshToggle), 
     "\"Cell5\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Cell5"]; $CellContext`refreshToggle), 
     "\"Cell16\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Cell16"]; $CellContext`refreshToggle), 
     "\"Cell24\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Cell24"]; $CellContext`refreshToggle), 
     "\"Cell24D4\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Cell24D4"]; $CellContext`refreshToggle), 
     "\"Cell24G2\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["Cell24G2"]; $CellContext`refreshToggle), 
     "\"c1202DPetrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["c1202DPetrie"]; $CellContext`refreshToggle), 
     "\"c1202DSquare\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["c1202DSquare"]; $CellContext`refreshToggle), 
     "\"c1202DPent\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["c1202DPent"]; $CellContext`refreshToggle), 
     "\"c1203D\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["c1203D"]; $CellContext`refreshToggle), 
     "\"c6002DPetrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["c6002DPetrie"]; $CellContext`refreshToggle), 
     "\"c6002DPent\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["c6002DPent"]; $CellContext`refreshToggle), 
     "\"c6002DHex\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["c6002DHex"]; $CellContext`refreshToggle), 
     "\"c6003D\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        1, $CellContext`bANDTrk = ($CellContext`bAND = 
          1); $CellContext`switchFilter]; 
      ToExpression["c6003D"]; $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), 
     "\"F4Star\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["F4Star"]; $CellContext`refreshToggle), 
     "\"F4Rectified\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["F4Rectified"]; $CellContext`refreshToggle), 
     "\"F4BiRect\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["F4BiRect"]; $CellContext`refreshToggle), 
     "\"Cube2Pascal\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube2Pascal"]; $CellContext`refreshToggle), 
     "\"Cube3Pascal\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube3Pascal"]; $CellContext`refreshToggle), 
     "\"Cube4Pascal\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube4Pascal"]; $CellContext`refreshToggle), 
     "\"Cube5Pascal\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube5Pascal"]; $CellContext`refreshToggle), 
     "\"Cube6Pascal\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube6Pascal"]; $CellContext`refreshToggle), 
     "\"Cube7Pascal\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube7Pascal"]; $CellContext`refreshToggle), 
     "\"Cube8Pascal\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube8Pascal"]; $CellContext`refreshToggle), 
     "\"Cube2Petrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube2Petrie"]; $CellContext`refreshToggle), 
     "\"Cube3Petrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube3Petrie"]; $CellContext`refreshToggle), 
     "\"Cube4Petrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube4Petrie"]; $CellContext`refreshToggle), 
     "\"Cube5Petrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube5Petrie"]; $CellContext`refreshToggle), 
     "\"Cube6Petrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube6Petrie"]; $CellContext`refreshToggle), 
     "\"Cube7Petrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube7Petrie"]; $CellContext`refreshToggle), 
     "\"Cube8Petrie\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube8Petrie"]; $CellContext`refreshToggle), 
     "\"LeptonInfo\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["LeptonInfo"]; $CellContext`refreshToggle), 
     "\"QuarkInfo\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["QuarkInfo"]; $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), 
     "\"QuarkCol\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["QuarkCol"]; $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), 
     "\"BinSquare\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["BinSquare"]; $CellContext`refreshToggle), 
     "\"BinTri\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["BinTri"]; $CellContext`refreshToggle), 
     "\"Cube\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Cube"]; $CellContext`refreshToggle), 
     "\"Hydrogen\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Hydrogen"]; $CellContext`refreshToggle), 
     "\"Devolution\"" :> ($CellContext`E8; 
      If[$CellContext`bAND != 
        2, $CellContext`bANDTrk = ($CellContext`bAND = 
          2); $CellContext`switchFilter]; 
      ToExpression["Devolution"]; $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", "E8Hexes", "E8Hyper", "E83", "E83D", "E824x10", "E812x5", 
           "E8Petrie", "E8inE6", "E7", "E6", "E6a", "E5", "E4", "H4", "F4", 
           "F4Tris", "F4G2", "Tesseract", "Cell5", "Cell16", "Cell24", 
           "Cell24D4", "Cell24G2", "c1202DPetrie", "c1202DSquare", 
           "c1202DPent", "c1203D", "c6002DPetrie", "c6002DPent", "c6002DHex", 
           "c6003D", "none", "inFile"}], "\[DoubleLeftArrow]OR ", 
         PopupMenu[
          Dynamic[$CellContext`bAND2mfName], {
          "G2", "F4Star", "F4Rectified", "F4BiRect", "Cube2Pascal", 
           "Cube3Pascal", "Cube4Pascal", "Cube5Pascal", "Cube6Pascal", 
           "Cube7Pascal", "Cube8Pascal", "Cube2Petrie", "Cube3Petrie", 
           "Cube4Petrie", "Cube5Petrie", "Cube6Petrie", "Cube7Petrie", 
           "Cube8Petrie", "LeptonInfo", "QuarkInfo", "a3D", "o3D", "QuarkCol",
            "Binary", "BinStar", "BinSquare", "BinTri", "Cube", "Hydrogen", 
           "Devolution", "auxXLS"}], "\[DoubleLeftArrow]AND ", 
         "   Data Sets: ", 
         Dynamic[
          PopupMenu[
           Dynamic[$CellContext`dsName], $CellContext`dsNames]], 
         Dynamic[$CellContext`ds = \
$CellContext`position[$CellContext`dsNames, $CellContext`dsName]], 
         "     ArtPrint ", 
         Checkbox[
          Dynamic[$CellContext`artPrint]]}]], 
      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], 
         "   nDim CameraLoc ", 
         Dynamic[
          VerticalSlider[
           Dynamic[$CellContext`nDcamera], {0, 10, 1/4}, ImageSize -> Tiny]], 
         Dynamic[$CellContext`nDcamera], " Rectify Edges ", 
         Dynamic[
          VerticalSlider[
           Dynamic[$CellContext`rectification], {0, 3, 1}, ImageSize -> 
           Tiny]], 
         Dynamic[$CellContext`rectification], " Edge Dimension ", 
         Dynamic[
          VerticalSlider[
           Dynamic[$CellContext`dimTrim], {2, $CellContext`dims, 1}, 
           ImageSize -> Tiny]], 
         Dynamic[$CellContext`dimTrim]}]], 
      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]], "  pVertices ", 
         Checkbox[
          Dynamic[$CellContext`showPartVert]], "  Edges ", 
         Checkbox[
          Dynamic[$CellContext`showEdges]], "  ClickVerts ", 
         Checkbox[
          Dynamic[$CellContext`showClickVerts]], "  Polygons ", 
         Checkbox[
          Dynamic[$CellContext`showPolySurfaces]], "  Perspective ", 
         Checkbox[
          Dynamic[$CellContext`perspective]], "  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], " eColorPos ", 
         Checkbox[
          Dynamic[$CellContext`eColorPos]], " 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[
       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], {
          "Trans", "Rot", "Trans&Rot", "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[
       Grid[{{"H", {
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 1], 
                "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                 Part[$CellContext`dl, $CellContext`ds, 1]], Appearance -> If[
                 MemberQ[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 1]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`H, 1]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`H, 1]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 2], 
                "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                 Part[$CellContext`dl, $CellContext`ds, 2]], Appearance -> If[
                 MemberQ[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 2]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`H, 2]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`H, 2]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 3], 
                "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                 Part[$CellContext`dl, $CellContext`ds, 3]], Appearance -> If[
                 MemberQ[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 3]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`H, 3]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`H, 3]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 4], 
                "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                 Part[$CellContext`dl, $CellContext`ds, 4]], Appearance -> If[
                 MemberQ[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 4]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`H, 4]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`H, 4]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 5], 
                "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                 Part[$CellContext`dl, $CellContext`ds, 5]], Appearance -> If[
                 MemberQ[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 5]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`H, 5]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`H, 5]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 6], 
                "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                 Part[$CellContext`dl, $CellContext`ds, 6]], Appearance -> If[
                 MemberQ[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 6]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`H, 6]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`H, 6]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 7], 
                "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                 Part[$CellContext`dl, $CellContext`ds, 7]], Appearance -> If[
                 MemberQ[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 7]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`H, 7]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`H, 7]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 8], 
                "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                 Part[$CellContext`dl, $CellContext`ds, 8]], Appearance -> If[
                 MemberQ[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 8]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`H, 8]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`H, 8]], FieldSize -> 6]]}]}]}, 
          Dynamic[
           ToString[$CellContext`dlXl]]}, {"V", {
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 1], 
                "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                 Part[$CellContext`dl, $CellContext`ds, 1]], Appearance -> If[
                 MemberQ[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 1]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`V, 1]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`V, 1]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 2], 
                "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                 Part[$CellContext`dl, $CellContext`ds, 2]], Appearance -> If[
                 MemberQ[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 2]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`V, 2]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`V, 2]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 3], 
                "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                 Part[$CellContext`dl, $CellContext`ds, 3]], Appearance -> If[
                 MemberQ[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 3]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`V, 3]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`V, 3]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 4], 
                "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                 Part[$CellContext`dl, $CellContext`ds, 4]], Appearance -> If[
                 MemberQ[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 4]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`V, 4]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`V, 4]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 5], 
                "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                 Part[$CellContext`dl, $CellContext`ds, 5]], Appearance -> If[
                 MemberQ[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 5]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`V, 5]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`V, 5]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 6], 
                "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                 Part[$CellContext`dl, $CellContext`ds, 6]], Appearance -> If[
                 MemberQ[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 6]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`V, 6]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`V, 6]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 7], 
                "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                 Part[$CellContext`dl, $CellContext`ds, 7]], Appearance -> If[
                 MemberQ[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 7]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`V, 7]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`V, 7]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 8], 
                "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                 Part[$CellContext`dl, $CellContext`ds, 8]], Appearance -> If[
                 MemberQ[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 8]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`V, 8]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`V, 8]], FieldSize -> 6]]}]}]}, 
          Dynamic[
           ToString[$CellContext`dlYl]]}, {"Z", {
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 1], 
                "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                 Part[$CellContext`dl, $CellContext`ds, 1]], Appearance -> If[
                 MemberQ[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 1]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`Z, 1]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`Z, 1]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 2], 
                "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                 Part[$CellContext`dl, $CellContext`ds, 2]], Appearance -> If[
                 MemberQ[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 2]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`Z, 2]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`Z, 2]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 3], 
                "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                 Part[$CellContext`dl, $CellContext`ds, 3]], Appearance -> If[
                 MemberQ[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 3]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`Z, 3]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`Z, 3]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 4], 
                "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                 Part[$CellContext`dl, $CellContext`ds, 4]], Appearance -> If[
                 MemberQ[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 4]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`Z, 4]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`Z, 4]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 5], 
                "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                 Part[$CellContext`dl, $CellContext`ds, 5]], Appearance -> If[
                 MemberQ[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 5]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`Z, 5]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`Z, 5]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 6], 
                "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                 Part[$CellContext`dl, $CellContext`ds, 6]], Appearance -> If[
                 MemberQ[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 6]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`Z, 6]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`Z, 6]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 7], 
                "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                 Part[$CellContext`dl, $CellContext`ds, 7]], Appearance -> If[
                 MemberQ[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 7]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`Z, 7]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`Z, 7]], FieldSize -> 6]]}]}], 
           Column[{
             Dynamic[
              Button[
               StringJoin["        ", 
                Part[$CellContext`dl, $CellContext`ds, 8], 
                "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                 Part[$CellContext`dl, $CellContext`ds, 8]], Appearance -> If[
                 MemberQ[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 8]], "Pressed", 
                 "DialogBox"]]], 
             Row[{
               Dynamic[
                VerticalSlider[
                 Dynamic[
                  Part[$CellContext`Z, 8]], {-1, 1, 0.01}, ImageSize -> 
                 Tiny]], 
               Dynamic[
                InputField[
                 Dynamic[
                  Part[$CellContext`Z, 8]], FieldSize -> 6]]}]}]}, 
          Dynamic[
           ToString[$CellContext`dlZl]]}}]], 
      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`eColorPos], True}}, {{
       Hold[$CellContext`eSteps], 1}}, {{
       Hold[$CellContext`eWnd], 100}}, {{
       Hold[$CellContext`innerMag], 0}}, {{
       Hold[$CellContext`dimTrim], 8}}, {{
       Hold[$CellContext`tT], {}}}, {{
       Hold[$CellContext`XY], {24, 24, 24}}}, {{
       Hold[$CellContext`showClr], False}}, {{
       Hold[$CellContext`showClickVerts], False}}, {{
       Hold[$CellContext`vOverlapColor], False}}, {{
       Hold[$CellContext`ltps], {}}}, {{
       Hold[$CellContext`pLineToggle], False}}, {{
       Hold[$CellContext`useDimLocs], False}}, {{
       Hold[$CellContext`dlXs], {"7"}}}, {{
       Hold[$CellContext`dlYs], {"8"}}}, {{
       Hold[$CellContext`dlZs], {"6"}}}, {{
       Hold[$CellContext`xy], {1, 1}}}, {{
       Hold[$CellContext`zz], 1}}, {{
       Hold[$CellContext`xyVwPnt], {1.3, 2.4}}}, {{
       Hold[$CellContext`zVwPnt], 2}}, {{
       Hold[$CellContext`steps], 1}}, {{
       Hold[$CellContext`nDcamera], 1}}, {{
       Hold[$CellContext`perspective], False}}, {{
       Hold[$CellContext`pthRot], "Trans&Rot"}}, {{
       Hold[$CellContext`pthPtCds], "Identity"}}, {{
       Hold[$CellContext`lie], ""}}, {{
       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.1969492517703763, -0.1969492517703763, 
        0.08054772639440973, -0.38529087617102353`, 0, 
        0.38529087617102353`}}}, {{
       Hold[$CellContext`V], {
       0.18091315553621942`, 0, 0.16021295504274685`, 0.16021295504274685`, 0,
         0.09901705165447641, 0.7663604248754179, 0.09901705165447641}}}, {{
       Hold[$CellContext`Z], {
       0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 
        0.17150256428122512`, 0, -0.17150256428122512`}}}}, 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`dimTrim = 
        8, $CellContext`dlXs = {"7"}, $CellContext`dlYs = {
         "8"}, $CellContext`dlZs = {"6"}, $CellContext`ds = 
        2, $CellContext`dsName = InputForm["e8"], $CellContext`eColorPos = 
        True, $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.1969492517703763, -0.1969492517703763, 
          0.08054772639440973, -0.38529087617102353`, 0, 
          0.38529087617102353`}, $CellContext`innerMag = 0, $CellContext`lie = 
        "", $CellContext`limitToRange = 
        True, $CellContext`ltps = {}, $CellContext`nDcamera = 
        1, $CellContext`outFile = 
        "(\"E8out\"<>ToString[RandomInteger@{10,99}])", \
$CellContext`outFileDir = "(\"./\")", $CellContext`outFileType = 
        "(\".png\")", $CellContext`p3D = 
        InputForm[" 2D"], $CellContext`perspective = 
        False, $CellContext`pGrad = 0, $CellContext`pLineToggle = 
        False, $CellContext`pListName = 
        "(second@plNames)", $CellContext`pSize = $CellContext`nrml, \
$CellContext`pt = {0, 0, 0}, $CellContext`pthPtCds = 
        "Identity", $CellContext`pthRot = "Trans&Rot", $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.18091315553621942`, 0, 0.16021295504274685`, 0.16021295504274685`, 
          0, 0.09901705165447641, 0.7663604248754179, 
          0.09901705165447641}, $CellContext`vOverlapColor = 
        False, $CellContext`xy = {1, 1}, $CellContext`XY = {24, 24, 
         24}, $CellContext`xyVwPnt = {1.3, 2.4}, $CellContext`Z = {
         0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 
          0.17150256428122512`, 0, -0.17150256428122512`}, $CellContext`zoom = 
        0, $CellContext`zVwPnt = 2, $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`doAux]; 
       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[$CellContext`selCoxeterTrk != $CellContext`selCoxeter, \
$CellContext`setPTcd[
           Part[$CellContext`coxeterProjTbl, 
            $CellContext`position[
             
             ToUpperCase[$CellContext`coxSubs], $CellContext`selCoxeter]]]; \
$CellContext`selCoxeterTrk = $CellContext`selCoxeter]; If[
         NumericQ[$CellContext`rPos = $CellContext`position[
            Part[$CellContext`dynkRectify, All, 2], 
            $CellContext`second[
             $CellContext`calcPermName[$CellContext`selDynkin]]]], \
$CellContext`rectification = $CellContext`rPos]; If[
         Or[$CellContext`lie != 
          "", $CellContext`refresh != $CellContext`refreshTrk, \
$CellContext`bAND1mfName != "", $CellContext`bAND2mfName != 
          "", $CellContext`bANDTrk != $CellContext`bAND], \
$CellContext`oldFltrdSubPlot = $CellContext`fltrdSubPlot; 
         If[$CellContext`bAND1mfName != "", $CellContext`E8; 
           Switch[$CellContext`bAND1mfName, "E8", $CellContext`E8, 
             "E8Hexes", $CellContext`E8Hexes, "E8Hyper", $CellContext`E8Hyper,
              "E83", $CellContext`E83, "E83D", $CellContext`E83D, 
             "E812x5", $CellContext`E812x5, "E8Petrie", $CellContext`E8Petrie,
              "E8inE6", $CellContext`E8inE6, "E7", $CellContext`E7, 
             "E6", $CellContext`E6, "E6a", $CellContext`E6a, 
             "E5", $CellContext`E5, "E4", $CellContext`E4, 
             "H4", $CellContext`H4, "F4", $CellContext`F4, 
             "F4Tris", $CellContext`F4Tris, "F4G2", $CellContext`F4G2, 
             "Tesseract", $CellContext`Tesseract, "Cell5", $CellContext`Cell5,
              "Cell16", $CellContext`Cell16, "Cell24", $CellContext`Cell24, 
             "Cell24D4", $CellContext`Cell24D4, 
             "Cell24G2", $CellContext`Cell24G2, 
             "c1202DPetrie", $CellContext`c1202DPetrie, 
             "c1202DSquare", $CellContext`c1202DSquare, 
             "c1202DPent", $CellContext`c1202DPent, 
             "c1203D", $CellContext`c1203D, 
             "c6002DPetrie", $CellContext`c6002DPetrie, 
             "c6002DPent", $CellContext`c6002DPent, 
             "c6002DHex", $CellContext`c6002DHex, 
             "c6003D", $CellContext`c6003D, "none", $CellContext`none, 
             "inFile", $CellContext`inFile]]; 
         If[$CellContext`bAND2mfName != "", $CellContext`E8; 
           Switch[$CellContext`bAND2mfName, "G2", $CellContext`G2, 
             "F4Star", $CellContext`F4Star, 
             "F4Rectified", $CellContext`F4Rectified, 
             "F4BiRect", $CellContext`F4BiRect, 
             "Cube2Pascal", $CellContext`Cube2Pascal, 
             "Cube3Pascal", $CellContext`Cube3Pascal, 
             "Cube4Pascal", $CellContext`Cube4Pascal, 
             "Cube5Pascal", $CellContext`Cube5Pascal, 
             "Cube6Pascal", $CellContext`Cube6Pascal, 
             "Cube7Pascal", $CellContext`Cube7Pascal, 
             "Cube8Pascal", $CellContext`Cube8Pascal, 
             "Cube2Petrie", $CellContext`Cube2Petrie, 
             "Cube3Petrie", $CellContext`Cube3Petrie, 
             "Cube4Petrie", $CellContext`Cube4Petrie, 
             "Cube5Petrie", $CellContext`Cube5Petrie, 
             "Cube6Petrie", $CellContext`Cube6Petrie, 
             "Cube7Petrie", $CellContext`Cube7Petrie, 
             "Cube8Petrie", $CellContext`Cube8Petrie, 
             "LeptonInfo", $CellContext`LeptonInfo, 
             "QuarkInfo", $CellContext`QuarkInfo, "a3D", $CellContext`a3D, 
             "o3D", $CellContext`o3D, "QuarkCol", $CellContext`QuarkCol, 
             "Binary", $CellContext`Binary, "BinStar", $CellContext`BinStar, 
             "BinSquare", $CellContext`BinSquare, 
             "BinTri", $CellContext`BinTri, "Cube", $CellContext`Cube, 
             "Hydrogen", $CellContext`Hydrogen, 
             "Devolution", $CellContext`Devolution, 
             "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`lie != "", 
           Map[(Part[$CellContext`dispArr, #] = "n")& , 
             Range[$CellContext`le8]]; 
           Map[{Part[$CellContext`dispArr, #] = "y"}& , 
             ToExpression[
              ToLowerCase[$CellContext`lie]]]; $CellContext`lie = ""]; 
         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`dimTrimTrk != \
$CellContext`dimTrim, 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`dimTrimTrk = $CellContext`dimTrim; 
           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", "E8Hexes", "E8Hyper", "E83", "E83D", "E824x10", "E812x5", 
            "E8Petrie", "E8inE6", "E7", "E6", "E6a", "E5", "E4", "H4", "F4", 
            "F4Tris", "F4G2", "Tesseract", "Cell5", "Cell16", "Cell24", 
            "Cell24D4", "Cell24G2", "c1202DPetrie", "c1202DSquare", 
            "c1202DPent", "c1203D", "c6002DPetrie", "c6002DPent", "c6002DHex",
             "c6003D", "none", "inFile"}], "\[DoubleLeftArrow]OR ", 
          PopupMenu[
           Dynamic[$CellContext`bAND2mfName], {
           "G2", "F4Star", "F4Rectified", "F4BiRect", "Cube2Pascal", 
            "Cube3Pascal", "Cube4Pascal", "Cube5Pascal", "Cube6Pascal", 
            "Cube7Pascal", "Cube8Pascal", "Cube2Petrie", "Cube3Petrie", 
            "Cube4Petrie", "Cube5Petrie", "Cube6Petrie", "Cube7Petrie", 
            "Cube8Petrie", "LeptonInfo", "QuarkInfo", "a3D", "o3D", 
            "QuarkCol", "Binary", "BinStar", "BinSquare", "BinTri", "Cube", 
            "Hydrogen", "Devolution", "auxXLS"}], "\[DoubleLeftArrow]AND ", 
          "   Data Sets: ", 
          Dynamic[
           PopupMenu[
            Dynamic[$CellContext`dsName], $CellContext`dsNames]], 
          
          Dynamic[$CellContext`ds = \
$CellContext`position[$CellContext`dsNames, $CellContext`dsName]], 
          "     ArtPrint ", 
          Checkbox[
           Dynamic[$CellContext`artPrint]]}], 
        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], 
          "   nDim CameraLoc ", 
          Dynamic[
           VerticalSlider[
            Dynamic[$CellContext`nDcamera], {0, 10, 1/4}, ImageSize -> Tiny]], 
          Dynamic[$CellContext`nDcamera], " Rectify Edges ", 
          Dynamic[
           VerticalSlider[
            Dynamic[$CellContext`rectification], {0, 3, 1}, ImageSize -> 
            Tiny]], 
          Dynamic[$CellContext`rectification], " Edge Dimension ", 
          Dynamic[
           VerticalSlider[
            Dynamic[$CellContext`dimTrim], {2, $CellContext`dims, 1}, 
            ImageSize -> Tiny]], 
          Dynamic[$CellContext`dimTrim]}], 
        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]], "  pVertices ", 
          Checkbox[
           Dynamic[$CellContext`showPartVert]], "  Edges ", 
          Checkbox[
           Dynamic[$CellContext`showEdges]], "  ClickVerts ", 
          Checkbox[
           Dynamic[$CellContext`showClickVerts]], "  Polygons ", 
          Checkbox[
           Dynamic[$CellContext`showPolySurfaces]], "  Perspective ", 
          Checkbox[
           Dynamic[$CellContext`perspective]], "  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], " eColorPos ", 
          Checkbox[
           Dynamic[$CellContext`eColorPos]], " 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"}]]]}], 
        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], {
           "Trans", "Rot", "Trans&Rot", "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]]}], 
        Grid[{{"H", {
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 1], 
                 "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 1]], Appearance -> If[
                  MemberQ[$CellContext`dlXs, 
                   Part[$CellContext`dl, $CellContext`ds, 1]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`H, 1]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`H, 1]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 2], 
                 "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 2]], Appearance -> If[
                  MemberQ[$CellContext`dlXs, 
                   Part[$CellContext`dl, $CellContext`ds, 2]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`H, 2]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`H, 2]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 3], 
                 "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 3]], Appearance -> If[
                  MemberQ[$CellContext`dlXs, 
                   Part[$CellContext`dl, $CellContext`ds, 3]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`H, 3]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`H, 3]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 4], 
                 "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 4]], Appearance -> If[
                  MemberQ[$CellContext`dlXs, 
                   Part[$CellContext`dl, $CellContext`ds, 4]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`H, 4]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`H, 4]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 5], 
                 "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 5]], Appearance -> If[
                  MemberQ[$CellContext`dlXs, 
                   Part[$CellContext`dl, $CellContext`ds, 5]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`H, 5]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`H, 5]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 6], 
                 "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 6]], Appearance -> If[
                  MemberQ[$CellContext`dlXs, 
                   Part[$CellContext`dl, $CellContext`ds, 6]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`H, 6]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`H, 6]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 7], 
                 
                 "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 7]], Appearance -> If[
                  MemberQ[$CellContext`dlXs, 
                   Part[$CellContext`dl, $CellContext`ds, 7]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`H, 7]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`H, 7]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 8], 
                 "        "], $CellContext`dlXs = \
$CellContext`evalButton[$CellContext`dlXs, 
                  Part[$CellContext`dl, $CellContext`ds, 8]], Appearance -> If[
                  MemberQ[$CellContext`dlXs, 
                   Part[$CellContext`dl, $CellContext`ds, 8]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`H, 8]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`H, 8]], FieldSize -> 6]]}]}]}, 
           Dynamic[
            ToString[$CellContext`dlXl]]}, {"V", {
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 1], 
                 "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 1]], Appearance -> If[
                  MemberQ[$CellContext`dlYs, 
                   Part[$CellContext`dl, $CellContext`ds, 1]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`V, 1]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`V, 1]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 2], 
                 "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 2]], Appearance -> If[
                  MemberQ[$CellContext`dlYs, 
                   Part[$CellContext`dl, $CellContext`ds, 2]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`V, 2]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`V, 2]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 3], 
                 "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 3]], Appearance -> If[
                  MemberQ[$CellContext`dlYs, 
                   Part[$CellContext`dl, $CellContext`ds, 3]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`V, 3]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`V, 3]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 4], 
                 "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 4]], Appearance -> If[
                  MemberQ[$CellContext`dlYs, 
                   Part[$CellContext`dl, $CellContext`ds, 4]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`V, 4]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`V, 4]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 5], 
                 "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 5]], Appearance -> If[
                  MemberQ[$CellContext`dlYs, 
                   Part[$CellContext`dl, $CellContext`ds, 5]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`V, 5]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`V, 5]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 6], 
                 "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 6]], Appearance -> If[
                  MemberQ[$CellContext`dlYs, 
                   Part[$CellContext`dl, $CellContext`ds, 6]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`V, 6]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`V, 6]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 7], 
                 "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 7]], Appearance -> If[
                  MemberQ[$CellContext`dlYs, 
                   Part[$CellContext`dl, $CellContext`ds, 7]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`V, 7]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`V, 7]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 8], 
                 "        "], $CellContext`dlYs = \
$CellContext`evalButton[$CellContext`dlYs, 
                  Part[$CellContext`dl, $CellContext`ds, 8]], Appearance -> If[
                  MemberQ[$CellContext`dlYs, 
                   Part[$CellContext`dl, $CellContext`ds, 8]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`V, 8]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`V, 8]], FieldSize -> 6]]}]}]}, 
           Dynamic[
            ToString[$CellContext`dlYl]]}, {"Z", {
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 1], 
                 "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 1]], Appearance -> If[
                  MemberQ[$CellContext`dlZs, 
                   Part[$CellContext`dl, $CellContext`ds, 1]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`Z, 1]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`Z, 1]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 2], 
                 "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 2]], Appearance -> If[
                  MemberQ[$CellContext`dlZs, 
                   Part[$CellContext`dl, $CellContext`ds, 2]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`Z, 2]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`Z, 2]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 3], 
                 "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 3]], Appearance -> If[
                  MemberQ[$CellContext`dlZs, 
                   Part[$CellContext`dl, $CellContext`ds, 3]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`Z, 3]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`Z, 3]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 4], 
                 "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 4]], Appearance -> If[
                  MemberQ[$CellContext`dlZs, 
                   Part[$CellContext`dl, $CellContext`ds, 4]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`Z, 4]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`Z, 4]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 5], 
                 "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 5]], Appearance -> If[
                  MemberQ[$CellContext`dlZs, 
                   Part[$CellContext`dl, $CellContext`ds, 5]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`Z, 5]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`Z, 5]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 6], 
                 "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 6]], Appearance -> If[
                  MemberQ[$CellContext`dlZs, 
                   Part[$CellContext`dl, $CellContext`ds, 6]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`Z, 6]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`Z, 6]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 7], 
                 "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 7]], Appearance -> If[
                  MemberQ[$CellContext`dlZs, 
                   Part[$CellContext`dl, $CellContext`ds, 7]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`Z, 7]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`Z, 7]], FieldSize -> 6]]}]}], 
            Column[{
              Dynamic[
               Button[
                StringJoin["        ", 
                 Part[$CellContext`dl, $CellContext`ds, 8], 
                 "        "], $CellContext`dlZs = \
$CellContext`evalButton[$CellContext`dlZs, 
                  Part[$CellContext`dl, $CellContext`ds, 8]], Appearance -> If[
                  MemberQ[$CellContext`dlZs, 
                   Part[$CellContext`dl, $CellContext`ds, 8]], "Pressed", 
                  "DialogBox"]]], 
              Row[{
                Dynamic[
                 VerticalSlider[
                  Dynamic[
                   Part[$CellContext`Z, 8]], {-1, 1, 0.01}, ImageSize -> 
                  Tiny]], 
                Dynamic[
                 InputField[
                  Dynamic[
                   Part[$CellContext`Z, 8]], FieldSize -> 6]]}]}]}, 
           Dynamic[
            ToString[$CellContext`dlZl]]}}], {{$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`eColorPos, True}, ControlType -> 
         None}, {{$CellContext`eSteps, 1}, ControlType -> 
         None}, {{$CellContext`eWnd, 100}, ControlType -> 
         None}, {{$CellContext`innerMag, 0}, ControlType -> 
         None}, {{$CellContext`dimTrim, 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`vOverlapColor, False}, ControlType -> 
         None}, {{$CellContext`ltps, {}}, ControlType -> 
         None}, {{$CellContext`pLineToggle, False}, ControlType -> 
         None}, {{$CellContext`useDimLocs, False}, ControlType -> 
         None}, {{$CellContext`dlXs, {"7"}}, ControlType -> 
         None}, {{$CellContext`dlYs, {"8"}}, ControlType -> 
         None}, {{$CellContext`dlZs, {"6"}}, ControlType -> 
         None}, {{$CellContext`xy, {1, 1}}, ControlType -> 
         None}, {{$CellContext`zz, 1}, ControlType -> 
         None}, {{$CellContext`xyVwPnt, {1.3, 2.4}}, ControlType -> 
         None}, {{$CellContext`zVwPnt, 2}, ControlType -> 
         None}, {{$CellContext`steps, 1}, ControlType -> 
         None}, {{$CellContext`nDcamera, 1}, ControlType -> 
         None}, {{$CellContext`perspective, False}, ControlType -> 
         None}, {{$CellContext`pthRot, "Trans&Rot"}, ControlType -> 
         None}, {{$CellContext`pthPtCds, "Identity"}, ControlType -> 
         None}, {{$CellContext`lie, ""}, 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.1969492517703763, -0.1969492517703763, 
           0.08054772639440973, -0.38529087617102353`, 0, 
           0.38529087617102353`}}, ControlType -> 
         None}, {{$CellContext`V, {
          0.18091315553621942`, 0, 0.16021295504274685`, 0.16021295504274685`,
            0, 0.09901705165447641, 0.7663604248754179, 0.09901705165447641}},
          ControlType -> 
         None}, {{$CellContext`Z, {
          0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 
           0.17150256428122512`, 0, -0.17150256428122512`}}, 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->{790., {801., 806.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`auxDataTrk = False, $CellContext`auxData = 
         False, $CellContext`doAux := ($CellContext`e8init; \
$CellContext`initLocPtCds; $CellContext`fltrdSubPlot = 
           First[$CellContext`pls]; $CellContext`auxDataTrk = \
$CellContext`auxData), $CellContext`e8init := (
          If[$CellContext`auxData, $CellContext`doAuxData]; $CellContext`e8b = 
           Map[{
              Part[$CellContext`e8bin, 
               Min[#, 
                Length[$CellContext`e8bin]]], 
              Part[$CellContext`e8Orig, 
               Min[#, 
                Length[$CellContext`e8Orig]]], 
              FullSimplify[
               PowerExpand[
                Dot[$CellContext`rot3, 
                 Part[$CellContext`e8Orig, 
                  Min[#, 
                   Length[$CellContext`e8Orig]]]]]], 
              Part[$CellContext`richter, 
               Min[#, 
                Length[$CellContext`richter]]], 
              Part[$CellContext`cell600, 
               Min[#, 
                Length[$CellContext`cell600]]], 
              Part[$CellContext`algebra, 
               Min[#, 
                Length[$CellContext`algebra]]], 
              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 + 
             2]; $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 = {{"1", "2", "3", "4", "5", "6", "7", "8"}, {
           "A", "B", "C", "D", "E", "F", "G", "H"}, {
           "\!\(\*\nStyleBox[FractionBox[\"1\", \"2\"],\n\
FontFamily->\"Courier New\",\n\
FontSize->8]\)\!\(\*SubsuperscriptBox[\(\[Omega]\), \(L\), \(3\)]\)", 
            "\!\(\*\nStyleBox[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\)]\)"}, {
           "1", "2", "3", "4", "5", "6", "7", "8"}, {
           "1", "2", "3", "4", "5", "6", "7", "8"}, {
           "1", "2", "3", "4", "5", "6", "7", "8"}, {
           "1", "2", "3", "4", "5", "6", "7", "8"}, {
           "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 = 
         "vert1234567891011121314151617181920212223242526272829303132333435363\
738394041424344454647484950515253545556575859606162636465666768697071727374757\
677787980818283848586878889909192939495969798991001011021031041051061071081091\
101111121131141151161171181191201211221231241251261271281291301311321331341351\
361371381391401411421431441451461471481491501511521531541551561571581591601611\
621631641651661671681691701711721731741751761771781791801811821831841851861871\
881891901911921931941951961971981992002012022032042052062072082092102112122132\
142152162172182192202212222232242252262272282292302312322332342352362372382392\
402412422432442452462472482492502512522532542552562572582592602612622632642652\
662672682692702712722732742752762772782792802812822832842852862872882892902912\
922932942952962972982993003013023033043053063073083093103113123133143153163173\
183193203213223233243253263273283293303313323333343353363373383393403413423433\
443453463473483493503513523533543553563573583593603613623633643653663673683693\
703713723733743753763773783793803813823833843853863873883893903913923933943953\
963973983994004014024034044054064074084094104114124134144154164174184194204214\
224234244254264274284294304314324334344354364374384394404414424434444454464474\
484494504514524534544554564574584594604614624634644654664674684694704714724734\
744754764774784794804814824834844854864874884894904914924934944954964974984995\
005015025035045055065075085095105115125135145155165175185195205215225235245255\
265275285295305315325335345355365375385395405415425435445455465475485495505515\
525535545555565575585595605615625635645655665675685695705715725735745755765775\
78579580581582583584585586587588589590591592593594595596597598599600", \
$CellContext`auxVerts = {{-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, 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, -
            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, -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, -((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, -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, -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, 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, -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}, {-2, -2, 
           0, 0, 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, 
           2, 0, 0, 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, 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, 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}, {2, -2, 0, 0, 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, 2, 0, 0, 0, 0, 0, 0}}, $CellContext`le8 = 
         600, $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.1, $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`polyTri[
           Pattern[$CellContext`coords, 
            Blank[]], 
           Pattern[$CellContext`scale, 
            Blank[]], 
           Pattern[$CellContext`pm, 
            Blank[]]] := Rotate[
           Polygon[{{Part[$CellContext`coords, 1] - $CellContext`scale, 
              $CellContext`pm[
               Part[$CellContext`coords, 2], $CellContext`scale/Sqrt[3]]}, {
             Part[$CellContext`coords, 1] + $CellContext`scale, 
              $CellContext`pm[
               Part[$CellContext`coords, 2], $CellContext`scale/Sqrt[3]]}, {
              Part[$CellContext`coords, 1], 
              $CellContext`pm[
               
               Part[$CellContext`coords, 2], (-2) ($CellContext`scale/Sqrt[
                3])]}}], 
           If[
            
            And[$CellContext`ang == 
             Pi/4, $CellContext`second[$CellContext`coords] > 
             2 $CellContext`rangeInc], Plus, Subtract][
           Pi/6, $CellContext`ang]], $CellContext`pm[
           Pattern[$CellContext`n, 
            Blank[]]] := Flatten[
           Outer[List, 
            Apply[Sequence, 
             Table[{-1, 1}, {$CellContext`n}]]], $CellContext`n - 
           1], $CellContext`p3D = 
         " 3D", $CellContext`p3DList = {" 2D", " 3D", " Stereo", " Anaglyph"},
          Pattern[$CellContext`secondPattern, 
           $CellContext`second[
            Pattern[$CellContext`x, 
             Blank[]]]] := Part[$CellContext`x, 2], $CellContext`rangeInc = 
         6, $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 = {
          5.395636257662297, -2.6978181288311487`, 3.815290986609016, 
          1.907645493304508, 0., 
          0., -3.815290986609016, -1.907645493304508}, $CellContext`dims := 
         Length[
           Part[$CellContext`dl, $CellContext`ds]], $CellContext`V = {0., 0., 
          3.815290986609016, 1.907645493304508, 5.395636257662297, 
          2.6978181288311487`, 3.815290986609016, 
          1.907645493304508}, $CellContext`Z = {-5.395636257662297, \
-2.6978181288311487`, 3.815290986609016, 1.907645493304508, 0., 
          0., -3.815290986609016, -1.907645493304508}, $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.}, {-3, -3, -5, -4, -3, -2, -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}, 1, 69, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["w", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "l"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 0, 0, 
            0, 0, 0, 0, 0}, {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.}, {
            1/2, (-1)/2, 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, 0, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"-"]], {"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, 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.}, {(-1)/2, (-1)/2, 0, 0, 0, 0, 0, 0}, {-2, -1, 
             GoldenRatio^(-1), -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, 4, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"-"]], {"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, 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.}, {(-1)/2, (-1)/2, -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, 8, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"-"]], {"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, 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.}, {(-1)/2, (-1)/2, -1, -1, 0, 0, 0, 0}, {-2, 1, (-1)/
             GoldenRatio, -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, 12, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"-"]], {"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, -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.}, {(-1)/2, (-1)/2, -1, -1, -1, 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}, 6, 64, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "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, -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.}, {(-1)/2, (-1)/2, -1, -1, -1, -1, 0, 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}, 7, 68, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "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, -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.}, {(-1)/2, (-1)/2, -1, -1, -1, -1, -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}, 8, 72, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "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}, {-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.}, {(-7)/2, (-5)/2, -5, -4, -3, -2, -1, -2}, {-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}, 9, 
            76, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "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.}, {1, 0, 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}, 10, 
            65, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["w", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "d"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 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.}, {1, 0, 1, 1, 1, 1, 0, 
            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}, 11, 
            77, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 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.}, {1, 0, 
            1, 1, 1, 0, 0, 
            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}, 12, 
            13, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"-"]], {
            "y", "m"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 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.}, {1, 0,
             1, 1, 0, 0, 0, 
            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}, 13, 
            131, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["y", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"+"]], {
            "y", "d"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 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}, {1, 0, 1, 
            0, 0, 0, 0, 
            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}, 14, 
            147, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["o", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "o", "d"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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}, {1, 0, 0, 0, 0, 0, 0, 
            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}, 15, 
            163, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["c", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "c", "d"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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}, {0, 0, 0, 0, 0, 0, 0, 
            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}, 16, 
            179, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["m", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "m", "d"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, -2, -3, -2, -1, 0, 
            0, -1}, {-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}, 17, 73, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 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, -2, -3, -2, -1, -1, 
            0, -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)], -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 18, 9, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"-"]], {
            "y", "m"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 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, -2, -3, -2, -2, -1, 
            0, -1}, {-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}, 19, 135, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["y", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"+"]], {
            "y", "l"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 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, -2, -3, -3, -2, -1, 
            0, -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)], 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 20, 151, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["o", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "o", "l"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, -2, -4, -3, -2, -1, 
            0, -1}, {-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}, 21, 167, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["c", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "c", "l"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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}, {-3, -2, -4, -3, -2, -1, 
            0, -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)], -1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 22, 183, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["m", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "m", "l"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, -2, -3, -2, -1, -1, -1, -1}, {-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, 5, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["y", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"-"]], {
            "y", "l"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 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, -2, -3, -2, -2, -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)], 1, 
             Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 24, 139, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"+"]], {
            "y", "m"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 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, -2, -3, -3, -2, -1, -1, -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}, 25, 155, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "o", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, -2, -4, -3, -2, -1, -1, -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}, 26, 171, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "c", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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.}, {-3, -2, -4, -3, -2, -1, -1, -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}, 27, 187, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "m", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, -2, -3, -2, -2, -2, -1, -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}, 28, 143, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"+"]], {
            "y", "m"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 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, -2, -3, -3, -2, -2, -1, -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}, 29, 159, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "o", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, -2, -4, -3, -2, -2, -1, -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}, 30, 175, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "c", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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}, {-3, -2, -4, -3, -2, -2, -1, -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}, 31, 191, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "m", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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}, {-2, -2, -3, -3, -3, -2, -1, -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}, 32, 145, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["o", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "o", "d"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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}, {-2, -2, -4, -3, -3, -2, -1, -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}, 33, 161, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["c", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "c", "d"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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}, {-3, -2, -4, -3, -3, -2, -1, -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}, 34, 177, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["m", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "m", "d"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {-2, -2, -4, -4, -3, -2, -1, -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}, 35, 117, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["b", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "b", "l"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {-3, -2, -4, -4, -3, -2, -1, -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}, 36, 101, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["g", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "g", "l"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {-3, -2, -5, -4, -3, -2, -1, -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}, 37, 85, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["r", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "r", "l"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {-4, -3, -6, -5, -4, -3, -2, -2}, {-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}, 38, 208, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(L\)]\)", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"r", "m"}, 
            Subscript[$CellContext`inv, 
             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}, {-4, -3, -6, -5, -4, -3, -1, -2}, {-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}, 
            39, 220, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"r", "m"}, 
            Subscript[$CellContext`inv, 
             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}, {-4, -3, -6, -5, -4, -2, -1, -2}, {-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}, 40,
             244, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["b", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"b", "d"}, 
            Subscript[$CellContext`inv, 
             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}, {-4, -3, -6, -5, -3, -2, -1, -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}, 41, 202, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`utr, 1}, 1, 2.8250720749306774`*^-6 
            Units`MassUnit, 2.6330586807007118`*^50 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}, {-4, -3, -6, -4, -3, -2, -1, -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}, 42, 30, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` 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.}, {-4, -3, -5, -4, -3, -2, -1, -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}, 43, 46, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` 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.}, {-3, -3, -5, -4, -3, -2, -1, -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}, 44, 62, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            1, 0, 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.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.}, {-4, -2, -5, -4, -3, -2, -1, -2}, {-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}, 45, 250, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1,
             0, 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.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.}, {-3, -2, -5, -4, -3, -2, -1, -2}, {-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}, 46, 234, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1,
             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.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.}, {-3, -2, -4, -4, -3, -2, -1, -2}, {-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}, 47, 218, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1,
             0, 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.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.}, {-3, -2, -4, -3, -3, -2, -1, -2}, {-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}, 48, 14, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"-"]], {
            "y", "m"}, {$CellContext`tri, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 0, 0, 
            1, 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.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.}, {-3, -2, -4, -3, -2, -2, -1, -2}, {-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}, 49, 120, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["b", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"b", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 
            0, 1, 0, 1, 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.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.}, {-3, -2, -4, -3, -2, -1, -1, -2}, {-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}, 50, 228, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["g", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"g", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 
            0, 1, 0, 0, 1, 0}, {-1, 1, 0, 0, 0, 0, 0, 0}, {0, 
             Sqrt[2], 0, 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.}, {-3, -2, -4, -3, -2, -1, 
            0, -2}, {-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}, 51, 96, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(R\)]\)", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"g", "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, -1, -1, 0, 0, 0, 0, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 0, 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, -2, -2, -2, -2, -1, 
            0}, {-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}, 52, 232, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["g", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"g", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 
            0, 0, 1, 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.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, -2, -2, -2, -1, -1, 
            0}, {-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}, 53, 212, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["r", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"r", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 
            0, 0, 1, 0, 1, 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.618034, 1., -0.618034, 0.,
             1.618034, -1., 0.618034}, {-1, -1, -2, -2, -1, -1, -1, 
            0}, {-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}, 54, 138, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"+"]], {
            "y", "m"}, {$CellContext`utr, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 0, 0, 
            0, 1, 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.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, -1, -2, -1, -1, -1, -1, 
            0}, {-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}, 55, 94, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "r", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 0,
             0, 0, 1, 1, 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.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, -1, -1, -1, -1, -1, -1, 
            0}, {-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}, 56, 110, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "g", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 0,
             0, 0, 1, 0, 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., 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}, {0, -1, -1, -1, -1, -1, -1, 
            0}, {-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}, 57, 126, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "b", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 0,
             0, 0, 0, 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.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, 0, -1, -1, -1, -1, -1, 
            0}, {-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}, 58, 186, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "m", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            1, 1, 0, 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.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}, {0, 0, -1, -1, -1, -1, -1, 
            0}, {-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, 170, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "c", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            1, 0, 1, 0, 0, 0}, {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., 0.320426, 
            0.820363, 0.473637, -0.26357, 0.292724, -0.465839, 0.099017}, {
            1., -1., -1., -1., -1., 1., 1., 1.}, {0, 0, 0, -1, -1, -1, -1, 
            0}, {-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, 154, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "o", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            1, 0, 0, 1, 0, 0}, {0, -1, 0, 0, 1, 0, 0, 
            0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 1, 0, 0, 0}, {0., 
            0.585447, -0.171503, -0.099017, 0.51562, -0.572654, -0.623414, 
            0.132511}, {1., -1., -1., 1., -1., 1., 1., -1.}, {0, 0, 0, 
            0, -1, -1, -1, 
            0}, {-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}, 61, 78, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`tri, 1}, 1, 2.8250720749306774`*^-6 
            Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{0, 1, 
            1, 0, 0, 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.049781, -0.473637, -0.318671, 0.231528, 0., 0.320426, 
            0., -0.947274}, {1., -1., 1., -1., -1., 1., -1., 1.}, {0, 0, 0, 0,
             0, -1, -1, 
            0}, {-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}, 62, 216, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["r", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"r", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 
            1, 0, 0, 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.391741, 0.385291, -0.27993, 0., -0.947274, 
            0., -0.320426}, {1., -1., 1., 1., -1., 1., -1., -1.}, {0, 0, 0, 0,
             0, 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, 
             0}, 63, 236, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"g", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 
            0, 1, 1, 0, 0, 0}, {0, 0, -1, -1, 0, 0, 0, 0}, {
            0, 0, -Sqrt[2], 0, 0, 0, 0, 0}, {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, -1, -2, -2, -2, -1, 0, 
            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, 0}, 64, 240, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["W", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"b", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{0, 1, 
            0, 1, 0, 1, 0, 0}, {0, 0, -1, 0, -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}, {
            1., 0., -1.618034, 0.618034, -1., 0., 
            1.618034, -0.618034}, {-1, -1, -2, -2, -1, -1, 0, 
            0}, {-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}, 65, 134, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["y", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"+"]], {
            "y", "l"}, {$CellContext`utr, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 1, 0, 
            1, 0, 0, 1, 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.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, -1, -2, -1, -1, -1, 0, 
            0}, {-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}, 66, 82, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["r", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "r", "d"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 0,
             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.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, -1, -1, -1, -1, 0, 
            0}, {-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}, 67, 98, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["g", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "g", "d"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 0,
             0, 1, 1, 0, 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.06662, 0.313424, -0.900911, 
            0.292724, -0.318671, -0.231528, 0.385291, -0.27993}, {1., 
            1., -1., -1., -1., -1., 1., 1.}, {0, -1, -1, -1, -1, -1, 0, 
            0}, {-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}, 68, 114, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["b", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "b", "d"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 0,
             0, 1, 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.121721, 0.572654, 0.188342, -0.061196, 0.623414, 
            0.452937, 0.51562, -0.37462}, {1., 1., -1., 1., -1., -1., 
            1., -1.}, {-1, 0, -1, -1, -1, -1, 0, 
            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}, 69, 182, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["m", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "m", "l"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            0, 0, 1, 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.049781, -0.473637, 
            0.041174, -0.391741, -0.318671, 0.033494, 0.385291, 0.865377}, {
            1., 1., 1., -1., -1., -1., -1., 1.}, {0, 0, -1, -1, -1, -1, 0, 
            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}, 70, 166, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["c", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "c", "l"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            0, 0, 0, 1, 1, 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.041174, -0.391741, -0.049781, 0.473637, 0.942084, -0.099017, 
            0.130329, 0.292724}, {1., 1., 1., 1., -1., -1., -1., -1.}, {0, 0, 
            0, -1, -1, -1, 0, 
            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}, 71, 150, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["o", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "o", "l"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            0, 0, 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.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}, {0, 0, 0, 0, -1, -1, 0, 
            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}, 72, 66, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["w", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "d"}, {$CellContext`tri, 1}, 1, 2.8250720749306774`*^-6 
            Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{0, 1, 
            0, 0, 0, 0, 1, 1}, {0, 0, -1, 1, 0, 0, 0, 0}, {0, 0, 0, 
             Sqrt[2], 0, 0, 0, 0}, {-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}, {0, 0, 0, 0, 0, -1, 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}, 73, 
            124, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["B", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"b", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 
            1, 1, 1, 0, 0, 0}, {0, 0, 0, -1, -1, 0, 0, 0}, {
            0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), -1, 0, 0, 0}, {
            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, -2, -2, -1, 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}, 74, 
            130, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["y", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"+"]], {
            "y", "d"}, {$CellContext`utr, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 0, 1, 
            1, 0, 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.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, -1, -2, -1, -1, 0, 0, 
            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}, 75, 
            86, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["r", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "r", "l"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 0, 1,
             1, 0, 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.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, -1, -1, -1, -1, 0, 0, 
            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}, 76, 
            102, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["g", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "g", "l"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 0, 1,
             1, 0, 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.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.}, {0, -1, -1, -1, -1, 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}, 77, 
            118, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["b", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "b", "l"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 0, 1,
             0, 1, 1, 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.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, 
            0, -1, -1, -1, 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}, 78, 
            178, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["m", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "m", "d"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 0, 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.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.}, {0, 0, -1, -1, -1, 
            0, 0, 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}, 79, 
            162, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["c", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "c", "d"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 0, 1, 0, 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.080548, 
            0.180913, 0.238123, -0.534833, -0.318671, 0.551954, 
            0.385291, -0.667343}, {2., 0., 0., 0., -2., 0., 0., 0.}, {0, 0, 
            0, -1, -1, 0, 0, 
            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}, 80, 
            146, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["o", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "o", "d"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 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.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.}, {0, 0, 0, 0, -1, 0, 0, 
            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}, 81, 70, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["w", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "l"}, {$CellContext`tri, 1}, 1, 2.8250720749306774`*^-6 
            Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{0, 0, 
            1, 0, 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.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, -1, -2, -1, 0, 0, 0, 
            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}, 82, 156, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"o", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 0, 1,
             0, 0, 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.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, -1, -1, -1, 
            0, 0, 0, 
            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}, 83, 172, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"c", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 0, 0,
             1, 1, 1, 0, 0}, {0, 0, 0, 0, -1, 0, 0, -1}, {
            0, 0, 0, 0, -1, 1/Sqrt[3], 0, -Sqrt[2/3]}, {-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}, {0, -1, -1, -1, 0, 0, 0, 
            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}, 84, 188, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"m", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 0, 0,
             1, 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.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, 0, -1, -1, 0, 0, 0, 0}, {
            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}, 85, 
            52, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["m", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 0, 0,
             1, 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.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}, {0, 0, -1, -1, 0, 0, 0, 0}, {
            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}, 86, 36, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["c", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 0, 0,
             1, 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.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.}, {0, 0, 0, -1, 0, 0, 0, 0}, {
            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}, 87, 20, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["o", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 0, 0,
             1, 0, 1, 0, 1}, {0, 0, 0, 0, 0, -1, -1, 0}, {
            0, 0, 0, 0, 0, 2/Sqrt[3], 0, 
             Sqrt[2/3]}, {-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, -1, -1, 0, 0, 
            0, 0, 0}, {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}, 88, 56, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["m", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 0, 0,
             1, 0, 0, 1, 1}, {0, 0, 0, 0, 0, -1, 0, -1}, {
            0, 0, 0, 0, 0, 2/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.}, {0, -1, -1, 0, 0, 0, 0, 0}, {
            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}, 89, 
            40, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["c", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 0, 0,
             0, 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.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, 0, -1, 0, 0, 0, 0, 0}, {
            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}, 90, 48, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(g\), \
\(_\)]\)]\)", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{0, 0, 
            0, 0, 1, 1, 0, 1}, {0, 0, 0, 0, 0, -1, 1, 0}, {0, 0, 0, 0, 0, 0, 
             Sqrt[2], 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, 0, -1, 0, 0, 0, 0, 0}, {
            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}, 91, 32, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(b\), \
\(_\)]\)]\)", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{0, 0, 
            0, 0, 1, 0, 1, 1}, {0, 0, 0, 0, 0, 0, -1, -1}, {
            0, 0, 0, 0, 0, 2/Sqrt[3], -(1/Sqrt[2]), -(1/Sqrt[6])}, {-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, -1, 0, 0, 0, 0, 0, 0}, {
            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}, 92, 24, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["o", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 0, 0,
             0, 0, 1, 1, 1}, {0, 0, 0, 0, 0, 0, -1, 1}, {
            0, 0, 0, 0, 0, 0, -(1/Sqrt[2]), 
             Sqrt[3/2]}, {-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.}, {-1, 
            0, 0, 0, 0, 0, 0, 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}, 93, 16, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(g \*OverscriptBox[\(b\), \
\(_\)]\)]\)", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 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.}, {2, 1, 3, 3, 3, 2, 1, 1}, {
            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}, 94, 1, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["y", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"-"]], {
            "y", "d"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 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}, {2, 1, 3, 3, 2, 
            2, 1, 1}, {
            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}, 95, 203, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 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}, {2, 1, 3, 2, 2, 2, 1, 
            1}, {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}, 96, 219, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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}, {2, 1, 2, 2, 2, 2, 
            1, 1}, {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}, 97, 235, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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}, {1, 1, 2, 2, 2, 2, 1, 
            1}, {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}, 98, 251, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {2, 1, 3, 3, 2, 1, 1, 1}, {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}, 99, 207, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 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.}, {2, 1,
             3, 2, 2, 1, 1, 1}, {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}, 100, 223, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {2, 1, 2, 2, 2, 1, 1, 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}, 101, 239, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {1, 1, 2, 2, 2, 1, 1, 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}, 102, 255, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {2, 1, 3, 2, 1, 1, 1, 
            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}, 103, 149, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["o", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "o", "l"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {2, 1, 2, 2, 1, 1, 1, 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}, 104, 165, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["c", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "c", "l"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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}, {1, 1, 2, 2, 1, 1, 1, 
            1}, {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}, 105, 181, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["m", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "m", "l"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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}, {2, 1, 2, 1, 1, 1, 1, 1}, {
            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}, 106, 113, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["b", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "b", "d"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {1, 1, 2, 1, 1, 
            1, 1, 1}, {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}, 107, 97, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["g", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "g", "d"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {1, 1, 1, 1, 1, 
            1, 1, 1}, {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}, 108, 81, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["r", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "r", "d"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {2, 1, 3, 3, 2, 1, 0, 1}, {
            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},
             109, 195, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["w", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "d"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 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.}, {2, 1, 3, 2, 2, 1, 0, 1}, {
            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}, 110, 211, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["r", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "d"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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}, {2, 1, 2, 2, 2, 1, 0,
             1}, {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},
             111, 227, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["g", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "d"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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}, {1, 1, 2, 2, 2, 1, 0, 1}, {
            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}, 112, 243, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["b", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "d"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {2, 1, 3, 2, 1, 1, 0, 1}, {
            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},
             113, 153, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "o", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {2, 1, 2, 2, 1, 1, 0, 1}, {
            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}, 114, 169, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "c", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {1, 1, 2, 2, 1, 
            1, 0, 1}, {
            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},
             115, 185, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`1\/3\)"]], {
            "m", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {2, 1, 2, 1, 1, 1, 0, 1}, {
            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}, 116, 125, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "b", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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}, {1, 1, 2, 1, 1, 1, 
            0, 1}, {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}, 117, 109, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "g", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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}, {1, 1, 1, 1, 1, 1, 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}, 118, 93, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "r", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {2, 1, 3, 2, 1, 0, 0, 1}, {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},
             119, 217, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {2, 1,
             2, 2, 1, 0, 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}, 120, 233, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {1, 1, 2, 2, 1, 0, 
            0, 1}, {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}, 121, 249, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {2, 1, 2, 1, 1, 
            0, 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}, 122, 61, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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}, {1, 1,
             2, 1, 1, 0, 0, 1}, {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},
             123, 45, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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}, {1, 1, 1, 1, 1, 0, 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}, 124, 29, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {2, 1, 2, 1, 0, 0, 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}, 125, 119, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["b", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "b", "l"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {1, 1,
             2, 1, 0, 0, 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}, 126, 103, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["g", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "g", "l"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {1, 1,
             1, 1, 0, 0, 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}, 127, 87, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["r", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "r", "l"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {1, 1, 1, 0, 0, 
            0, 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}, 128, 71, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["w", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "l"}, {$CellContext`tri, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 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.}, {-1, -1, -1, 0, 0, 0, 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}, 129,
             199, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["w", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "l"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 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}, {-1, -1, -1, -1, 0, 0, 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}, 130, 
            215, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["r", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "l"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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}, {-1, -1, -2, -1, 0, 0, 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}, 131, 231, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["g", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "l"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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}, {-2, -1, -2, -1, 0, 0, 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}, 132, 247, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["b", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "l"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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}, {-1, -1, -1, -1, -1, 0, 0, -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}, 133, 157, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "o", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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`}, {-1, -1, -2, -1, -1, 0, 0, -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}, 134, 173, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "c", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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`}, {-2, -1, -2, -1, -1, 0, 0, -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}, 135, 189, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "m", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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`}, {-1, -1, -2, -2, -1, 0, 0, -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}, 136, 121, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "b", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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`}, {-2, -1, -2, -2, -1, 0, 0, -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}, 137, 105, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "g", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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}, {-2, -1, -3, -2, -1, 0, 0, -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}, 138, 89, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "r", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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}, {-1, -1, -1, -1, -1, -1, 0, -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}, 139, 221, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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}, {-1, -1, -2, -1, -1, -1, 0, -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}, 140, 237, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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}, {-2, -1, -2, -1, -1, \
-1, 0, -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}, 141, 253, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {-1, -1, -2, -2, -1, -1, 0, -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}, 142, 57, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {-2, -1, -2, -2, -1, -1, 0, -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}, 143, 41, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {-2, -1, -3, -2, -1, -1, 0, -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}, 144, 25, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {-1, -1, -2, -2, -2, -1, 0, -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}, 145, 115, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["b", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "b", "d"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {-2, -1, -2, -2, -2, -1, 0, -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}, 146, 99, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["g", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "g", "d"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {-2, -1, -3, -2, -2, -1, 0, -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}, 
            147, 83, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["r", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "r", "d"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {-2, -1, -3, -3, -2, -1, 0, -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}, 148, 67, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["w", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "d"}, {$CellContext`tri, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 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.}, {-1, -1, -1, -1, -1, -1, -1, -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}, 149, 209, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["r", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "d"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {-1, -1, -2, -1, -1, -1, -1, -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}, 150, 225, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["g", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "d"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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.}, {-2, -1, -2, -1, -1, -1, -1, -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}, 151, 241, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["b", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "d"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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, -1, -2, -2, -1, -1, -1, -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}, 152, 53, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["m", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "l"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {-2, -1, -2, -2, -1, -1, -1, -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}, 153, 37, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["c", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "l"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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.}, {-2, -1, -3, -2, -1, -1, \
-1, -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}, 154, 21, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["o", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "l"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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, -2, -2, -2, -1, -1, -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}, 155, 127, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "b", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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}, {-2, -1, -2, -2, -2, -1, -1, -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}, 156, 111, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "g", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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}, {-2, -1, -3, -2, -2, -1, -1, -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}, 157, 95, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], {
            "r", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {-2, -1, -3, -3, -2, -1, -1, -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}, 158, 79, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`tri, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 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, -2, -2, -2, -2, -1, -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}, 159, 123, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "b", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {-2, -1, -2, -2, -2, -2, -1, -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}, 160, 107, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "g", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {-2, -1, -3, -2, -2, -2, -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}, 161, 91, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["t", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "r", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 
            Units`MassUnit, 1.0717876456119173`*^-16 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.}, {-2, -1, -3, -3, -2, \
-2, -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}, 162, 75, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`tri, 3/2}, 1, 1.6492437500037268`*^-7 
            Units`MassUnit, 1.385994238197179*^15 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.}, {-2, -1, -3, -3, -3, -2, -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}, 163, 129, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["y", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"+"]], {
            "y", "d"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{1, 1, 
            1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1, -1}, {
            0, 0, 0, 0, 0, 0, 1/Sqrt[2], -Sqrt[3/2]}, {-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, 0, 0, 0, 0, 0, 0}, {
            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}, 164, 144, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(g \*OverscriptBox[\(b\), \
\(_\)]\)]\)", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"o", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 1, 
            1, 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.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}, {0, 1, 0, 0, 0, 0, 0, 0}, {
            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}, 165, 152, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["o", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"o", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 1, 1,
             1, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 1, -1, 0}, {
            0, 0, 0, 0, 0, 0, -Sqrt[2], 0}, {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}, {0, 0, 1, 0, 0, 0, 0, 0}, {
            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}, 166, 160, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(b\), \
\(_\)]\)]\)", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"c", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 1, 
            1, 1, 0, 0, 0, 1}, {0, 0, 0, 0, 0, 1, 0, -1}, {
            0, 0, 0, 0, 0, 0, -(1/Sqrt[2]), -Sqrt[3/2]}, {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, 0, 1, 0, 0, 0, 0, 0}, {
            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}, 167, 176, 
            HoldForm[HoldForm[
               Overscript[
                Underscript[
                "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(g\), \
\(_\)]\)]\)", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"m", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 1, 
            1, 0, 1, 1, 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.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}, {0, 1, 1, 0, 0, 0, 0, 0}, {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}, 168, 168, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["c", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"c", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 1, 1,
             0, 1, 0, 1, 0}, {0, 0, 0, 0, 0, 1, 1, 0}, {
            0, 0, 0, 0, 0, (-2)/Sqrt[3], 0, -
             Sqrt[2/3]}, {-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, 0, 
            0, 0, 0, 0}, {
            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}, 169, 184, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["m", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"m", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 1, 1,
             0, 1, 0, 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.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}, {0, 0, 0, 1, 0, 0, 0, 
            0}, {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}, 170, 148, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["o", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"o", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 1, 1,
             0, 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.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}, {0, 0, 1, 1, 0, 0, 0, 
            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, 
             0}, 171, 164, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["c", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"c", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 1, 1,
             0, 0, 1, 0, 1}, {0, 0, 0, 0, 1, 0, 0, -1}, {
            0, 0, 0, 0, 1, 1/Sqrt[3], 0, -Sqrt[2/3]}, {-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, 0, 1, 1, 0, 0, 0, 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, 0}, 172, 180, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["m", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "+\[Rule]\!\(TraditionalForm\`1\/3\)"]], {"m", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 1, 1,
             0, 0, 0, 1, 1}, {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.041174, -0.193707, 0.51562,
             0.572654, -0.623414, -0.132511}, {0., -1., -0.618034, 
            0.38196599999999997`, 0., 1., 0.618034, -0.38196599999999997`}, {
            0, 1, 1, 1, 0, 0, 0, 0}, {
            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}, 173, 60, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 1, 0,
             1, 1, 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.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, 1, 1, 0, 0, 0, 
            0}, {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}, 174, 44, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 1, 0,
             1, 1, 0, 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.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, 1, 2, 1, 0, 0, 0, 
            0}, {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}, 175, 28, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "-\[Rule]\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 
            Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 1, 0,
             1, 1, 0, 0, 1}, {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., -0.618034, -0.38196599999999997`, 0., -1., 0.618034, 
            0.38196599999999997`}, {0, 0, 0, 0, 1, 0, 0, 0}, {
            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}, 176, 198, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["w", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "l"}, {$CellContext`utr, 1}, 1, 2.8250720749306774`*^-6 
            Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{1, 1, 
            0, 1, 0, 1, 1, 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.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`}, {0, 0, 0, 1, 1, 0, 0, 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}, 177, 18, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["o", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "d"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 
            0, 1, 0, 1, 0, 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., 0.618034, -0.38196599999999997`, 
            0., -1., -0.618034, 0.38196599999999997`}, {0, 0, 1, 1, 1, 0, 0, 
            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}, 178, 34, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["c", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "d"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 
            0, 1, 0, 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.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, 0, 1, 1, 1, 0, 0, 
            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}, 179, 50, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["m", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "d"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 
            0, 0, 1, 1, 1, 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., -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}, {0, 1, 1, 1, 1, 0, 0, 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}, 180, 246, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["b", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "l"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0,
             0, 1, 1, 0, 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., -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, 1, 1, 1, 
            1, 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}, 181, 
            230, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["g", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "l"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0,
             0, 1, 0, 1, 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.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, 1, 2, 1, 1, 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}, 182, 
            214, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["r", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "l"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0,
             0, 0, 1, 1, 1}, {0, 0, 0, 1, 1, 0, 0, 0}, {
            0, 0, 1/Sqrt[2], 1/Sqrt[2], 1, 0, 0, 0}, {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, 1, 2, 2, 1, 0, 0, 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}, 183, 
            2, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["y", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"-"]], {
            "y", "d"}, {$CellContext`tri, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 0, 1, 
            1, 1, 1, 0, 0}, {0, 0, 1, -1, 0, 0, 0, 0}, {
            0, 0, 0, -Sqrt[2], 0, 0, 0, 0}, {
            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`}, {0, 0, 0, 0, 0, 1, 0, 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}, 184, 
            252, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["B", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"b", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 
            1, 1, 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.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`}, {
            0, 0, 0, 0, 1, 1, 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}, 185, 
            194, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["w", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "d"}, {$CellContext`utr, 1}, 1, 2.8250720749306774`*^-6 
            Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{1, 0, 
            1, 1, 1, 0, 0, 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.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`}, {0, 0, 0, 1, 1, 1, 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}, 186, 
            22, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["o", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "l"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            1, 1, 0, 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.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`}, {0, 0, 1, 1, 1, 1, 0, 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}, 187, 
            38, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["c", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "l"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            1, 1, 0, 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.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, 0, 1, 1, 1, 1, 0, 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}, 188, 
            54, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["m", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "l"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            1, 1, 0, 0, 1, 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.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}, {0, 1, 1, 1, 1, 1, 0, 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}, 189, 242, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["b", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "d"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 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.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, 1, 1, 1, 1, 1, 0, 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}, 190, 226, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["g", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "d"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1,
             0, 1, 1, 0, 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.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, 2, 
            1, 1, 1, 0, 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}, 191, 210, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["r", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "d"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1,
             0, 1, 0, 1, 1}, {0, 0, 1, 0, 1, 0, 0, 0}, {
            0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 1, 0, 0, 0}, {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, 2, 2, 1, 1, 0, 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}, 192, 6, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["y", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"-"]], {
            "y", "l"}, {$CellContext`tri, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 0, 1, 
            0, 0, 1, 1, 1}, {0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, 
             Sqrt[2], 0, 0, 0, 0, 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, 2, 2, 2, 1, 0, 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}, 193, 112, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["W", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"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, 1, 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.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.}, {0, 0, 0, 0, 
            0, 0, 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}, 194, 108, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"g", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 
            0, 1, 1, 1, 0, 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.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.}, {0, 0, 0, 0, 
            0, 1, 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}, 195, 88, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["r", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"r", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 
            0, 1, 1, 0, 1, 1}, {0, 1, 0, 0, -1, 0, 0, 0}, {
            1/Sqrt[2], 1/Sqrt[2], 0, 0, -1, 0, 0, 0}, {
            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.}, {0, 0, 0, 0, 1, 1, 
            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}, 196, 206, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`utr, 1}, 1, 2.8250720749306774`*^-6 
            Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{1, 0, 
            0, 1, 0, 1, 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.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.}, {0, 0, 0, 1, 1, 1, 
            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}, 197, 26, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 
            0, 0, 1, 1, 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.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.}, {0, 0, 1, 1, 1, 1, 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}, 198, 42, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            1, 1, 1, 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.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, 0, 1, 1, 1, 1, 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}, 199, 58, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 
            1, 1, 1, 0, 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.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.}, {0, 1, 1, 1, 1, 1, 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}, 200, 254, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["b", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1,
             1, 1, 0, 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.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, 1, 1, 1, 1, 1, 1, 
            0}, {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}, 201, 
            238, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1,
             1, 0, 1, 1, 0}, {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.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, 1, 2, 1, 1, 1, 1, 
            0}, {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}, 202, 
            222, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["r", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1,
             1, 0, 1, 0, 1}, {0, 1, 0, 0, 1, 0, 0, 0}, {
            1/Sqrt[2], 1/Sqrt[2], 0, 0, 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, 1, 2, 2, 1, 1, 1, 
            0}, {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}, 203, 
            10, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"-"]], {
            "y", "m"}, {$CellContext`tri, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 1, 1, 
            1, 0, 0, 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.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, 1, 2, 2, 2, 1, 1, 
            0}, {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}, 204, 
            84, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["r", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"r", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 
            1, 0, 1, 1, 1, 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.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, 1, 2,
             2, 2, 2, 1, 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)], -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 205, 
            104, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["g", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"g", "l"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 
            1, 0, 1, 1, 0, 1}, {1, -1, 0, 0, 0, 0, 0, 0}, {
            0, -Sqrt[2], 0, 0, 0, 0, 0, 0}, {-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.}, {3, 2, 4,
             3, 2, 1, 0, 2}, {
            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}, 206, 
            224, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(R\)]\)", 
                 Subscript["g", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"g", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 
            Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{0, 1, 
            1, 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.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.}, {3, 2, 4, 3, 2, 1, 1, 2}, {
            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}, 207, 
            100, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["g", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"g", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 
            1, 0, 0, 1, 1, 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.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.}, {3, 2, 4, 3, 2, 2, 1, 
            2}, {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}, 208, 
            248, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", 
                 Subscript["b", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\
3\)\)\)\)"]], {"b", "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}, {1, 0, 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}, {3, 2, 4, 3, 3, 2, 1, 
            2}, {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}, 209, 142, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"+"]], {
            "y", "m"}, {$CellContext`utr, 1}, 1, 353973.26987649983` 
            Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 1, 0, 
            1, 1, 1, 0, 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.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}, {3, 2, 4, 4, 
            3, 2, 1, 2}, {
            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}, 210, 90, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "r", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 0,
             1, 1, 0, 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.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}, {3, 2, 5, 4, 3, 2, 1, 
            2}, {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}, 211, 106, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["g", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "g", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 0,
             1, 0, 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.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}, {4, 
            2, 5, 4, 3, 2, 1, 2}, {
            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}, 212, 122, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["c", 
                 Subscript["b", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`2\/3\)"]], {
            "b", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 
            Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 0,
             0, 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.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.}, {3, 3, 5, 4, 3, 2, 1, 2}, {
            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}, 213, 190, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["m", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "m", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 1, 1, 1, 1, 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.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.}, {4, 3, 5, 4, 3, 2, 1, 2}, {
            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}, 214, 174, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["c", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "c", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 
            1, 1, 1, 1, 0, 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.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.}, {4, 
            3, 6, 4, 3, 2, 1, 2}, {
            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}, 215, 158, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["s", 
                 Subscript["o", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], {
            "o", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 
            Units`MassUnit, 0.000011995516689868707` 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.}, {4, 3, 6, 5, 3, 2, 1, 2}, {
            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}, 216, 74, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", 
                 Subscript["w", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "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, 1, 0, 0, 0, 0}, {
            1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {
            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.}, {4, 3, 
            6, 5, 4, 2, 1, 2}, {-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}, 217, 116, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["b", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"b", "d"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 
            1, 0, 1, 1, 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.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.}, {4, 3, 
            6, 5, 4, 3, 1, 2}, {-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}, 218, 92, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"r", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 
            Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 
            0, 1, 1, 1, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0}, {
             Sqrt[2], 0, 0, 0, 0, 0, 0, 0}, {-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.}, {4, 3, 6, 5, 4, 3, 
            2, 2}, {-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}, 219, 80, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(L\)]\)", 
                 Subscript["r", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]],\
 {"r", "m"}, 
            Subscript[$CellContext`cir, 
             Hold[$CellContext`pSize]], 3, 2.6744608811831626`*^8 
            Units`MassUnit, 1.2492183972290087`*^-27 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.}, {3, 2, 5, 4, 3, 2,
             1, 1}, {-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}, 220, 213, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["r", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "r", "l"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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}, {3, 2, 4, 4, 3, 2, 1, 
            1}, {-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}, 221, 229, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["g", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "g", "l"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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, 2, 4, 4, 3, 2, 1, 
            1}, {-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}, 222, 245, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["u", 
                 Subscript["b", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], {
            "b", "l"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` 
            Units`MassUnit, 1.646979756053964*^14 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}, {3, 2, 
            4, 3, 3, 2, 1, 
            1}, {-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}, 223, 49, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["m", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "d"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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, 4, 3,
             3, 2, 1, 
            1}, {-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}, 224, 33, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["c", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "d"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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, 2, 3, 3, 3, 2, 1, 
            1}, {-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}, 225, 17, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["d", 
                 Subscript["o", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "d"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` 
            Units`MassUnit, 6.433514672085797*^11 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`}, {3, 2, 4, 3, 2, 2, 1, 
            1}, {-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}, 226, 63, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, 2, 4, 3, 2, 2, 1, 
            1}, {-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}, 227, 47, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, 2, 3, 3, 
            2, 2, 1, 1}, {-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}, 228, 31, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, 2, 3, 2, 2, 2, 1, 
            1}, {-Sqrt[5], (-1)/GoldenRatio, 0, -GoldenRatio, 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)], 0, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 229, 15, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"-"]], {
            "y", "m"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 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}, {3, 2, 4, 3, 
            2, 1, 1, 
            1}, {-Sqrt[5], (-1)/GoldenRatio, 0, GoldenRatio, 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)], 0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 230, 59, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["m", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, 2, 4, 3, 2, 1, 1, 1}
            , {-Sqrt[5], GoldenRatio^(-1), 0, -GoldenRatio, 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)], 0, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 231, 43, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["c", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, 2, 3, 3, 2, 1, 1, 
            1}, {-Sqrt[5], GoldenRatio^(-1), 0, GoldenRatio, 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)], 0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 232, 27, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["o", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, 2, 3, 2, 2, 1, 1, 
            1}, {-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, 0}, 233, 
            11, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["y", "m"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"-"]], {
            "y", "m"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 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, 2, 3, 2, 1, 1, 1, 
            1}, {-Sqrt[5], -GoldenRatio, GoldenRatio^(-1), 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, 0}, 234, 
            133, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["y", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"+"]], {
            "y", "l"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 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.}, {3, 2, 4, 3, 2, 1, 0, 
            1}, {-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, 0}, 235, 
            55, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["m", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "l"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, 2, 4, 3, 2, 1, 0, 
            1}, {-Sqrt[5], GoldenRatio, GoldenRatio^(-1), 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, 0}, 236, 
            39, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["c", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "l"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, 2, 3, 3, 2, 1, 0, 1}, {
             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}, 237, 23, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["o", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "l"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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, 2, 3, 2, 2, 1, 0, 1}, {
             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}, 238, 7, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["y", "l"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"-"]], {
            "y", "l"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 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, 2, 3, 2, 1, 1, 0, 1}, {
             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}, 239, 137, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"+"]], {
            "y", "m"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 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, 2, 3, 2, 1, 0, 0, 1}, {
             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}, 240, 201, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 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}, {0, 0, 0, 0, 0, 0, 0, -1}, {
             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}, 241, 51, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["m", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "m", "d"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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}, {-1, 0, 0, 
            0, 0, 0, 0, -1}, {
             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}, 242, 35, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["c", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "c", "d"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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`}, {-1, 0, -1, 0, 0, 0, 0, -1}, {
             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}, 243, 19, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["b", 
                 Subscript["o", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^
               "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], {
            "o", "d"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 
            Units`MassUnit, 3.104228606788203*^-13 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`}, {-1, 0, -1, -1, 0, 0, 0, -1}, {
             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}, 244, 3, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", 
                 Subscript["y", "d"]], ""]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"-"]], {
            "y", "d"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 
            Units`MassUnit, 1.025417707079008*^-12 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.}, {-1, 0, -1, -1, -1, 0, 
            0, -1}, {
             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}, 245, 141, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["e", 
                 Subscript["y", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"+"]], {
            "y", "m"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` 
            Units`MassUnit, 1.5627418498158385`*^18 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.}, {-1, 0, -1, -1, -1, -1, 
            0, -1}, {
             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}, 246, 205, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["w", "m"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 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.}, {-1, 0, -1, -1, -1, -1, -1, -1}, {
             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}, 247, 193, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["w", "d"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "d"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 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.}, {
            7/2, 5/2, 5, 4, 3, 2, 1, 2}, {
             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}, 248, 204, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "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.}, {
            1/2, 1/2, 1, 1, 1, 1, 1, 0}, {
             Sqrt[5], (-1)/GoldenRatio, 0, -GoldenRatio, 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)], 0, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 249, 200, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{1, 1, 1, 1, 1, 0, 1, 1}, {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.}, {
            1/2, 1/2, 1, 1, 1, 1, 0, 0}, {
             Sqrt[5], (-1)/GoldenRatio, 0, GoldenRatio, 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)], 0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 250, 196, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{1, 1, 1, 1, 0, 1, 1, 1}, {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.}, {
            1/2, 1/2, 1, 1, 1, 0, 0, 0}, {
             Sqrt[5], GoldenRatio^(-1), 0, -GoldenRatio, 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)], 0, -
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 251, 192, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex2", "\" \""], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{1, 1, 1, 0, 1, 1, 1, 1}, {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.}, {1/2, 1/2, 1, 1, 0, 0, 0, 0}, {
             Sqrt[5], GoldenRatio^(-1), 0, GoldenRatio, 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)], 0, 
             Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 252, 140, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Vee]"]]^"+"]], {"y", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{1, 1, 0, 1, 1, 1, 1, 1}, {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.}, {
            1/2, 1/2, 1, 0, 0, 0, 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, 0}, 253, 
            136, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Wedge]"]]^"+"]], {"y", "m"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{1, 0, 1, 1, 1, 1, 1, 1}, {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.}, {
            1/2, 1/2, 0, 0, 0, 0, 0, 0}, {
             Sqrt[5], -GoldenRatio, GoldenRatio^(-1), 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, 0}, 254, 
            132, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"+"]], {"y", "l"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{0, 1, 1, 1, 1, 1, 1, 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.}, {(-1)/2, 1/2, 0, 0, 0, 0, 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, 0}, 255, 
            128, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["Ex1", "\" \""], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["L", "\[Vee]"]]^"+"]], {"y", "d"}, 
            Subscript[$CellContext`inv, 
             Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 
            6.255141244738540258209329833685`15.954589770191005*^175 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {
             Sqrt[5], GoldenRatio, GoldenRatio^(-1), 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, 0}, 256, 
            197, 
            HoldForm[HoldForm[
               Overscript[
                Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", 
                 Subscript["w", "l"]], 
                Blank[]]] HoldForm[Subscript[
                 Invisible[$CellContext`\[VerticalLine]], 
                 Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], {
            "w", "l"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 
            Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), -1, 0, -GoldenRatio^2, 0, 0, 0, 
             0}, {0, 0, 0, 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}, 257, 
            "257", 257, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), -1, 0, GoldenRatio^2, 0, 0, 0, 
             0}, {0, 0, 0, 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}, 258, "258", 
            258, {"r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), 0, -GoldenRatio^2, -1, 0, 0, 0, 
             0}, {0, 0, 0, 0, 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}, 259, 
            "259", 259, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), 0, -GoldenRatio^2, 1, 0, 0, 0, 
             0}, {0, 0, 0, 0, 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}, 260, 
            "260", 260, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), 0, GoldenRatio^2, -1, 0, 0, 0, 
             0}, {0, 0, 0, 0, 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}, 261, 
            "261", 261, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), 0, GoldenRatio^2, 1, 0, 0, 0, 
             0}, {0, 0, 0, 0, 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}, 262, 
            "262", 262, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 
            1}, {(-1) GoldenRatio^(-2), 1, 0, -GoldenRatio^2, 0, 0, 0, 0}, {0,
             0, 0, 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}, 263, 
            "263", 263, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), 1, 0, GoldenRatio^2, 0, 0, 0, 
             0}, {0, 0, 0, 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}, 264, "264", 
            264, {"r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), -GoldenRatio, -GoldenRatio, -
             GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 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}, 265, 
            "265", 265, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 
            1}, {(-1) GoldenRatio^(-2), -GoldenRatio, -GoldenRatio, 
             GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 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}, 266, 
            "266", 266, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), -GoldenRatio, GoldenRatio, -
             GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 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}, 267, 
            "267", 267, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), -GoldenRatio, GoldenRatio, 
             GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 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}, 268, 
            "268", 268, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), GoldenRatio, -GoldenRatio, -
             GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 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}, 269, 
            "269", 269, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), GoldenRatio, -GoldenRatio, 
             GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 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}, 270, 
            "270", 270, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), GoldenRatio, GoldenRatio, -
             GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 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}, 271, 
            "271", 271, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) GoldenRatio^(-2), GoldenRatio, GoldenRatio, 
             GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 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}, 272, 
            "272", 272, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) 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, 0}, 273, "273", 273, {
            "r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 
            1}, {(-1) 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, 0}, 274, "274", 274, {
            "r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) 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, 0}, 275, "275", 275, {
            "r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {(-1) 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, 0}, 276, "276", 276, {
            "r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {GoldenRatio^(-2), -1, 0, -GoldenRatio^2, 0, 0, 0, 0}, {0,
             0, 0, 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}, 277, 
            "277", 277, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {GoldenRatio^(-2), -1, 0, GoldenRatio^2, 0, 0, 0, 0}, {0, 
            0, 0, 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}, 278, "278", 
            278, {"r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {GoldenRatio^(-2), 0, -GoldenRatio^2, -1, 0, 0, 0, 0}, {0,
             0, 0, 0, 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}, 279, 
            "279", 279, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {GoldenRatio^(-2), 0, -GoldenRatio^2, 1, 0, 0, 0, 0}, {0, 
            0, 0, 0, 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}, 280, 
            "280", 280, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {GoldenRatio^(-2), 0, GoldenRatio^2, -1, 0, 0, 0, 0}, {0, 
            0, 0, 0, 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}, 281, "281", 281, {
            "r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {GoldenRatio^(-2), 0, GoldenRatio^2, 1, 0, 0, 0, 0}, {0, 
            0, 0, 0, 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}, 282, "282", 282, {
            "r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {GoldenRatio^(-2), 1, 0, -GoldenRatio^2, 0, 0, 0, 0}, {0, 
            0, 0, 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}, 283, 
            "283", 283, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {GoldenRatio^(-2), 1, 0, GoldenRatio^2, 0, 0, 0, 0}, {0, 
            0, 0, 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}, 284, "284", 
            284, {"r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, 
            Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {
            GoldenRatio^(-2), -GoldenRatio, -GoldenRatio, -GoldenRatio, 0, 0, 
             0, 0}, {0, 0, 0, 0, 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}, 285, 
            "285", 285, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {
            GoldenRatio^(-2), -GoldenRatio, -GoldenRatio, GoldenRatio, 0, 0, 
             0, 0}, {0, 0, 0, 0, 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}, 286, 
            "286", 286, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {
            GoldenRatio^(-2), -GoldenRatio, GoldenRatio, -GoldenRatio, 0, 0, 
             0, 0}, {0, 0, 0, 0, 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}, 287, 
            "287", 287, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {
            GoldenRatio^(-2), -GoldenRatio, GoldenRatio, GoldenRatio, 0, 0, 0,
              0}, {0, 0, 0, 0, 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}, 288, 
            "288", 288, {"r", "m"}, {$CellContext`cir, 1/2}, 5, 
            Units`MassUnit, Units`TimeUnit}, {{1, 1, 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.196949, 
            0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 
            0.703961, -0.313424}, {1., 0.38196599999999997`, 0.618034, 
            0., -1., -0.38196599999999997`, -0.618034, 0.}, {3, 3, 5, 4, 3, 2,
             1, 1}, {
            GoldenRatio^(-2), GoldenRatio, -GoldenRatio, -GoldenRatio, 0, 0, 
             0, 0}, {0, 0, 0, 0, 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