(* 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[ 4539094, 88059] NotebookOptionsPosition[ 4432149, 85665] NotebookOutlinePosition[ 4448548, 85961] CellTagsIndexPosition[ 4448505, 85958] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["e8Flyer notes", "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[TextData[{ "If you have any questions, comments, problems, suggestions, ", ButtonBox["mailto:jgmoxness@theoryofeverything.org", BaseStyle->"Hyperlink", ButtonData->{ URL["mailto:jgmoxness@theoryofeverything.org"], None}], ". " }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[TextData[{ "Use the file in and out operations to save/use desirable configurations, \ pics and animations (needs full ", StyleBox["Mathematica", FontSlant->"Italic"], " or ", StyleBox["Mathematica", FontSlant->"Italic"], "Player Pro)." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell["MouseOver the shapes to show the particle labels (pLabels).", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell["\<\ Use pList menu to select major subsets of particles. Use the binary (bitwise) \ filters (OR to build up/AND to narrow down) particle subsets. If you select more than a few of the OR filters or choose a metaFavorite (or \ manually configure a graph) with many particles and a large number of flight \ time steps, it will take time to process (from minutes to several hours, even \ on a fast computer).\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[TextData[{ "Atoms can be visualized by using the \"Atomic Element Selector\" below the \ main viewer control panel.. Best to select MetaFavorite or pList=none before \ selecting. This was created using a modified \"Properties of the Elements\" \ from The Wolfram Demonstrations Project ", ButtonBox["http://demonstrations.wolfram.com/PropertiesOfTheElements/ ", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/PropertiesOfTheElements/"], None}], "Contributed by: Theodore Gray. Currently, the code does not change \ representations requiring electron or quark orbitals.\nThat means only \ Hydrogen and Helium w/isotopes are interesting." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[TextData[{ "Composite Hadron particles (Baryons/Mesons) and independant particles can \ be visualized by using the \"Particle Selector\" below the main viewer \ control panel. Best to select MetaFavorite or pList=none before selecting. \ This was created using a modified \"Combining Quarks into Hadrons\" from The \ Wolfram Demonstrations Project ", ButtonBox["http://demonstrations.wolfram.com/CombiningQuarksIntoHadrons", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/CombiningQuarksIntoHadrons"], None}], " Contributed by: S. M. Blinder. This has been integrated with the \ ParticleData functions available from Wolfram data sets." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell["\<\ You can force individual particles to display (or not display) from the \ PlotList below the main viewer control panel.\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell["\<\ The 4 buttons in the lower right {-T12,+T12,-T,+T} of the second section \ select different sets of triality rotations for tLines.\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell["\<\ Selecting which 2 faces are shown in 2D is done by selecting the order of the \ 3 {H,V,Z} faces.\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell["\<\ Viewing the static positions of particles by flying through the 8D space is \ done by projecting them (dot product) into a 2D or 3D view. There are several ways to change the 3 {H,V,Z} sets of 8D projection \ parameters. \t1) Move the Axis Locators shown in 2D mode (selecting various faces to \ determine which coordinates get modified) \t\tPlease note: this is currently configured to recalculate in realtime, so \ depending on computer speed - the mouse drag responses can be sluggish. \t2) Move the Sliders for individual coordinates In this version, you can also manipulate the initial/final \ translational/rotational flight paths. The numeric fields displaying the values are not able to be modified in .nbp \ files.\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[TextData[{ "pMass gives \"first principle generated\" particle mass/lifetime \ predictions based on my prior work. Notice how nicely it fits into the ", Cell[BoxData[ FormBox[ SubscriptBox["E", "8"], TraditionalForm]]], "model." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell["\<\ Perim is a recent addition to simply put a shaded unit perimeter to detect \ particles or vertices outside unity.\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[TextData[{ "Check out the stereo viewing option, but you will need some of the \ red/green-blue(cyan) stereo glasses handy. Thanks to Mark Fisher at ", ButtonBox["www.markfisher.net/~mefisher/mma/StereoImagery.m", BaseStyle->"Hyperlink", ButtonData->{"www.markfisher.net/~mefisher/mma/StereoImagery.m", None}], "). This was modified to work w/current version. BTW - this adds significant \ time to the graph generation process (and can eat all your memeory w/many \ time steps/particles/lines)." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[TextData[{ "Edge calculation done with a code snippet from Eric Weisstein's ", ButtonBox["http://mathworld.wolfram.com/notebooks/Polyhedra/600-Cell.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/Polyhedra/600-Cell.nb"], None}], ", MathWorld Packages 2007-10-10 and Utility Packages 2008-05-19 [for \ Mathematica 6.0]" }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[TextData[{ "Of course, none of this would have existed w/o the generous sharing of \ A.Garrett Lisi's ", StyleBox["Mathematica", FontSlant->"Italic"], " source notebook. Thanks." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]], Cell[CellGroupData[{ Cell["Flyer Main", "Subsection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{Typeset`show$$ = True, Typeset`bookmarkList$$ = { "\"E8\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["E8"]; $CellContext`refreshToggle), "\"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), "\"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), "\"E8Coxeter\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["E8Coxeter"]; $CellContext`refreshToggle), "\"E7Coxeter\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["E7Coxeter"]; $CellContext`refreshToggle), "\"E6Coxeter\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["E6Coxeter"]; $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), "\"C4Tesseract\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["C4Tesseract"]; $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), "\"F4Rect\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["F4Rect"]; $CellContext`refreshToggle), "\"F4BiRect\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["F4BiRect"]; $CellContext`refreshToggle), "\"F4Star\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["F4Star"]; $CellContext`refreshToggle), "\"C2Pascal\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C2Pascal"]; $CellContext`refreshToggle), "\"C3Pascal\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C3Pascal"]; $CellContext`refreshToggle), "\"C4Pascal\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C4Pascal"]; $CellContext`refreshToggle), "\"C5Pascal\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C5Pascal"]; $CellContext`refreshToggle), "\"C6Pascal\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C6Pascal"]; $CellContext`refreshToggle), "\"C7Pascal\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C7Pascal"]; $CellContext`refreshToggle), "\"C8Pascal\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C8Pascal"]; $CellContext`refreshToggle), "\"C2Petrie\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C2Petrie"]; $CellContext`refreshToggle), "\"C3Petrie\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C3Petrie"]; $CellContext`refreshToggle), "\"C4Petrie\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C4Petrie"]; $CellContext`refreshToggle), "\"C5Petrie\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C5Petrie"]; $CellContext`refreshToggle), "\"C6Petrie\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C6Petrie"]; $CellContext`refreshToggle), "\"C7Petrie\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C7Petrie"]; $CellContext`refreshToggle), "\"C8Petrie\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["C8Petrie"]; $CellContext`refreshToggle), "\"lepInf\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["lepInf"]; $CellContext`refreshToggle), "\"qInf\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["qInf"]; $CellContext`refreshToggle), "\"a3D\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["a3D"]; $CellContext`refreshToggle), "\"o3D\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["o3D"]; $CellContext`refreshToggle), "\"qCol\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["qCol"]; $CellContext`refreshToggle), "\"binary\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["binary"]; $CellContext`refreshToggle), "\"binStar\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["binStar"]; $CellContext`refreshToggle), "\"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", "E812x5", "E8Petrie", "E8Coxeter", "E7Coxeter", "E6Coxeter", "E6", "E6a", "E5", "E4", "H4", "F4", "F4Tris", "F4G2", "C4Tesseract", "Cell5", "Cell16", "Cell24", "Cell24D4", "Cell24G2", "c1202DPetrie", "c1202DSquare", "c1202DPent", "c1203D", "c6002DPetrie", "c6002DPent", "c6002DHex", "c6003D", "none", "inFile"}], "\[DoubleLeftArrow]OR ", PopupMenu[ Dynamic[$CellContext`bAND2mfName], { "G2", "F4Rect", "F4BiRect", "F4Star", "C2Pascal", "C3Pascal", "C4Pascal", "C5Pascal", "C6Pascal", "C7Pascal", "C8Pascal", "C2Petrie", "C3Petrie", "C4Petrie", "C5Petrie", "C6Petrie", "C7Petrie", "C8Petrie", "lepInf", "qInf", "a3D", "o3D", "qCol", "binary", "binStar", "binSquare", "binTri", "Cube", "Hydrogen", "Devolution", "auxXLS"}], "\[DoubleLeftArrow]AND ", " DataSets: ", Dynamic[ PopupMenu[ Dynamic[$CellContext`dsName], $CellContext`dsNames]], Dynamic[$CellContext`ds = \ $CellContext`position[$CellContext`dsNames, $CellContext`dsName]]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" inFile ", FileNameSetter[ Dynamic[$CellContext`infile]], " OutToFile ", Checkbox[ Dynamic[$CellContext`fileOut]], " FileOnly ", Checkbox[ Dynamic[$CellContext`fileOnly]], " Dir ", FileNameSetter[ Dynamic[$CellContext`outFileDir], "Directory"], " Name ", Dynamic[ InputField[ Dynamic[$CellContext`outFile], FieldSize -> 6]], PopupMenu[ Dynamic[$CellContext`outFileType], { ".avi", ".bmp", ".dxf", ".eps", ".gif", ".jpeg", ".html", ".obj", ".lwo", ".Maya", ".MathML", ".pdf", ".png", ".stl", ".svg", ".tiff", ".vrml", ".wmf", ".x3d", ".xls", ".bi", ".lsl", ".tri"}], " Particles=", Dynamic[ Length[$CellContext`fltrdSubPlot]], " tLines=", Dynamic[ Length[$CellContext`tlines]]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" pSize ", PopupMenu[ Dynamic[$CellContext`pSize], {$CellContext`tiny, \ $CellContext`small, $CellContext`nrml, $CellContext`big, $CellContext`huge}], " Zoom Exp ", Dynamic[ Slider[ Dynamic[$CellContext`zoom], {-24, 25, 0.5}, ImageSize -> 100]], Dynamic[$CellContext`zoom], " pScale ", Dynamic[ Slider[ Dynamic[$CellContext`scale], {0, 1, 1/50.}, ImageSize -> 50]], Dynamic[ Subscript[$CellContext`scale, $CellContext`scaled]], " Ticks ", Dynamic[ Slider[ Dynamic[$CellContext`tickNum], {0, 50, 1}, ImageSize -> 50]], Dynamic[$CellContext`tickNum], " Frame ", Dynamic[ Slider[ Dynamic[$CellContext`range], {0, 2, 0.01}, ImageSize -> 50]], Dynamic[ Subscript[$CellContext`range, $CellContext`scaled]], " Limit ", Checkbox[ Dynamic[$CellContext`limitToRange]]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" Frame Center: ", Button[ "\!\(\*OverscriptBox[\"\[Wedge]\", \"\[Wedge]\"]\)", Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] + 1/2, Appearance -> Small], Button[ "\[Wedge]", Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] + 1/8, Appearance -> Small], " {x,y}=", Dynamic[ Round[ Part[ Subscript[$CellContext`pt, $CellContext`scaled], Span[1, 2]], 0.01]], " ViewPoint ", Button[ "\!\(\*OverscriptBox[\"\[Wedge]\", \"\[Wedge]\"]\)", Part[$CellContext`xyVwPnt, 2] = $CellContext`second[$CellContext`xyVwPnt] + 1, Appearance -> Small], Button[ "\[Wedge]", Part[$CellContext`xyVwPnt, 2] = $CellContext`second[$CellContext`xyVwPnt] + 1/10, Appearance -> Small], " {x,y}=", Dynamic[ Round[ Subscript[$CellContext`xyVwPnt, $CellContext`scaled], 0.01]]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" ", Button[ "<<", Part[$CellContext`pt, 1] = First[$CellContext`pt] - 1/2, Appearance -> Small], Button[ "<", Part[$CellContext`pt, 1] = First[$CellContext`pt] - 1/8, Appearance -> Small], Slider2D[ Dynamic[ Part[$CellContext`pt, Span[1, 2]]], {{-1, -1}, {1, 1}, {0.02, 0.02}}], Button[ ">", Part[$CellContext`pt, 1] = First[$CellContext`pt] + 1/4, Appearance -> Small], Button[ ">>", Part[$CellContext`pt, 1] = First[$CellContext`pt] + 1, Appearance -> Small], " ", Button[ "<<", Part[$CellContext`xyVwPnt, 1] = First[$CellContext`xyVwPnt] - 1, Appearance -> Small], Button[ "<", Part[$CellContext`xyVwPnt, 1] = First[$CellContext`xyVwPnt] - 1/10, Appearance -> Small], Slider2D[ Dynamic[$CellContext`xyVwPnt], {{0.1, 0.1}, {10, 10}, {0.1, 0.1}}], Button[ ">", Part[$CellContext`xyVwPnt, 1] = First[$CellContext`xyVwPnt] + 1/10, Appearance -> Small], Button[ ">>", Part[$CellContext`xyVwPnt, 1] = First[$CellContext`xyVwPnt] + 1, Appearance -> Small], " nDim CameraLoc ", Dynamic[ VerticalSlider[ Dynamic[$CellContext`nDcamera], {0, 10, 1/4}, ImageSize -> Tiny]], Dynamic[$CellContext`nDcamera], " Rectify Edges ", Dynamic[ VerticalSlider[ Dynamic[$CellContext`rectification], {0, 5, 1}, ImageSize -> Tiny]], Dynamic[$CellContext`rectification], " Edge Dimension ", Dynamic[ VerticalSlider[ Dynamic[$CellContext`edgeDimTrim], {2, $CellContext`dims, 1}, ImageSize -> Tiny]], Dynamic[$CellContext`edgeDimTrim]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" z ", Slider[ Dynamic[ $CellContext`third[$CellContext`pt]], {-1, 1, 0.02}, ImageSize -> 50], Dynamic[ $CellContext`third[ Subscript[$CellContext`pt, $CellContext`scaled]]], " ", Button[ "\!\(\*UnderscriptBox[\"\[Vee]\", \"\[Vee]\"]\)", Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] - 1/ 2, Appearance -> Small], Button[ "\[Vee]", Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] - 1/ 8, Appearance -> Small], " z ", Slider[ Dynamic[$CellContext`zVwPnt], {0.1, 10, 0.1}, ImageSize -> 50], Dynamic[ Subscript[$CellContext`zVwPnt, $CellContext`scaled]], " ", Button[ "\!\(\*UnderscriptBox[\"\[Vee]\", \"\[Vee]\"]\)", Part[$CellContext`xyVwPnt, 2] = $CellContext`second[$CellContext`xyVwPnt] - 1, Appearance -> Small], Button[ "\[Vee]", Part[$CellContext`xyVwPnt, 2] = $CellContext`second[$CellContext`xyVwPnt] - 1/10, Appearance -> Small], " pColors ", Slider[ Dynamic[$CellContext`pGrad], {0, 51, 1}, ImageSize -> Small], Dynamic[ $CellContext`showGrads[$CellContext`pGrad]], " ", Dynamic[$CellContext`pGrad], " ", Dynamic[ $CellContext`gradName[$CellContext`pGrad]]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" Show:", " Axes ", Checkbox[ Dynamic[$CellContext`showAxes]], " 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[ Row[{ Grid[{{"Anti(shape) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fa], {0, 1}], TogglerBar[ Dynamic[$CellContext`fa], {0, 1}]]], "0=p(lepton=tri/quark=squ/boson=cir),1=\!\(\*OverscriptBox[\"p\", \ \"_\"]\)(utr/dia/inv)"}, {"Type(color) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fp], {0, 1}], TogglerBar[ Dynamic[$CellContext`fp], {0, 1}]]], "0=\[Nu](w),uct(o/c/m),1=e(y),dsb(r/g/b)"}, {"Color(color) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fc], {0, 1, 2, 3}], TogglerBar[ Dynamic[$CellContext`fc], {0, 1, 2, 3}]]], "0(y/w),1(o/r),2(c/g) 3(m/b)"}, {"Spin(shade) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fs], {0, 1, 2, 3}], TogglerBar[ Dynamic[$CellContext`fs], {0, 1, 2, 3}]]], "0=\!\(\*OverscriptBox[\"L\", \ \"\[Wedge]\"]\),1=\!\(\*OverscriptBox[\"L\", \ \"\[Vee]\"]\),2=\!\(\*OverscriptBox[\"R\", \ \"\[Wedge]\"]\),3=\!\(\*OverscriptBox[\"R\", \"\[Vee]\"]\) \ (light/med/dark)"}, {"Gen(size) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fg], {0, 1, 2, 3}], TogglerBar[ Dynamic[$CellContext`fg], {0, 1, 2, 3}]]], "0=bosons(pSize),1=e(tiny),2=\[Mu](nrml),3=\[Tau](huge)"}}, Alignment -> Left]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{ Button["Reset Path", $CellContext`clearPath, ImageSize -> Small], " t Steps ", Slider[ Dynamic[$CellContext`steps], {1, 90, 1}, ImageSize -> 90], Dynamic[$CellContext`steps], " ", RadioButtonBar[ Dynamic[$CellContext`pthRot], { "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[ Row[{" H Dim ", Dynamic[ TogglerBar[ Dynamic[$CellContext`dlXs], Part[$CellContext`dl, $CellContext`ds]]], Dynamic[$CellContext`dlXl]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ Row[ Flatten[ Join[{" H "}, Map[With[{$CellContext`i = #}, { Dynamic[ VerticalSlider[ Dynamic[ Part[$CellContext`H, $CellContext`i]], {-1, 1, 0.01}, ImageSize -> Tiny]], Dynamic[ InputField[ Dynamic[ Part[$CellContext`H, $CellContext`i]], FieldSize -> 6]]}]& , Range[$CellContext`dims]]]]]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" V Dim ", Dynamic[ TogglerBar[ Dynamic[$CellContext`dlYs], Part[$CellContext`dl, $CellContext`ds]]], Dynamic[$CellContext`dlYl]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ Row[ Flatten[ Join[{" V "}, Map[With[{$CellContext`i = #}, { Dynamic[ VerticalSlider[ Dynamic[ Part[$CellContext`V, $CellContext`i]], {-1, 1, 0.01}, ImageSize -> Tiny]], Dynamic[ InputField[ Dynamic[ Part[$CellContext`V, $CellContext`i]], FieldSize -> 6]]}]& , Range[$CellContext`dims]]]]]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" Z Dim ", Dynamic[ TogglerBar[ Dynamic[$CellContext`dlZs], Part[$CellContext`dl, $CellContext`ds]]], Dynamic[$CellContext`dlZl]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ Row[ Flatten[ Join[{" Z "}, Map[With[{$CellContext`i = #}, { Dynamic[ VerticalSlider[ Dynamic[ Part[$CellContext`Z, $CellContext`i]], {-1, 1, 0.01}, ImageSize -> Tiny]], Dynamic[ InputField[ Dynamic[ Part[$CellContext`Z, $CellContext`i]], FieldSize -> 6]]}]& , Range[$CellContext`dims]]]]]]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`fileOnly], False}}, {{ Hold[$CellContext`artPrint], False}}, {{ Hold[$CellContext`scale], 0.02}}, {{ Hold[$CellContext`cylR], 0.01}}, {{ Hold[$CellContext`tickNum], 4}}, {{ Hold[$CellContext`range], 1.5}}, {{ Hold[$CellContext`limitToRange], True}}, {{ Hold[$CellContext`pt], {0, 0, 0}}}, {{ Hold[$CellContext`zoom], 0}}, {{ Hold[$CellContext`favorite], 15}}, {{ Hold[$CellContext`pGrad], 0}}, {{ Hold[$CellContext`face], 1}}, {{ Hold[$CellContext`auxData], False}}, {{ Hold[$CellContext`showAxes], True}}, {{ Hold[$CellContext`showPartVert], True}}, {{ Hold[$CellContext`showEdges], False}}, {{ Hold[$CellContext`showSurfaces], False}}, {{ Hold[$CellContext`showPolySurfaces], False}}, {{ Hold[$CellContext`rectification], 0}}, {{ Hold[$CellContext`showPvecs], False}}, {{ Hold[$CellContext`showPtext], False}}, {{ Hold[$CellContext`showPlocs], False}}, {{ Hold[$CellContext`showPmass], False}}, {{ Hold[$CellContext`showPerim], False}}, {{ Hold[$CellContext`eGrad], 10}}, {{ Hold[$CellContext`edgeVal], {2^Rational[1, 2], 6840}}}, {{ Hold[$CellContext`anim8EdgeList], False}}, {{ Hold[$CellContext`eSteps], 1}}, {{ Hold[$CellContext`eColorPos], True}}, {{ Hold[$CellContext`eWnd], 100}}, {{ Hold[$CellContext`innerMag], 0}}, {{ Hold[$CellContext`edgeDimTrim], 8}}, {{ Hold[$CellContext`tT], {}}}, {{ Hold[$CellContext`XY], {24, 24, 24}}}, {{ Hold[$CellContext`showClr], False}}, {{ Hold[$CellContext`showClickVerts], False}}, {{ Hold[$CellContext`ltps], {}}}, {{ Hold[$CellContext`vOverlapColor], False}}, {{ Hold[$CellContext`pLineToggle], False}}, {{ Hold[$CellContext`useDimLocs], False}}, {{ Hold[$CellContext`dlXs], {" c7 "}}}, {{ Hold[$CellContext`dlYs], {" c8 "}}}, {{ Hold[$CellContext`dlZs], {" c6 "}}}, {{ Hold[$CellContext`xy], {1, 1}}}, {{ Hold[$CellContext`zz], 1}}, {{ Hold[$CellContext`xyVwPnt], {1.3, 2.4}}}, {{ Hold[$CellContext`zVwPnt], 2}}, {{ Hold[$CellContext`steps], 1}}, {{ Hold[$CellContext`nDcamera], 0}}, {{ Hold[$CellContext`perspective], False}}, {{ Hold[$CellContext`pthRot], "Trans&Rot"}}, {{ Hold[$CellContext`pthPtCds], "Identity"}}, {{ Hold[$CellContext`ds], 2}}, {{ Hold[$CellContext`pSize], $CellContext`nrml}}, {{ Hold[$CellContext`pListName], "(second@plNames)"}}, {{ Hold[$CellContext`dsName], InputForm["e8"]}}, {{ Hold[$CellContext`p3D], InputForm[" 2D"]}}, {{ Hold[$CellContext`auxFile], "(\"./auxData.xls\")"}}, {{ Hold[$CellContext`fileOut], False}}, {{ Hold[$CellContext`outFileDir], "(\"./\")"}}, {{ Hold[$CellContext`outFile], "(\"E8out\"<>ToString[RandomInteger@{10,99}])"}}, {{ Hold[$CellContext`outFileType], "(\".png\")"}}, {{ Hold[$CellContext`H], { 0, -0.5567934404522487, 0.19694925177037625`, -0.19694925177037625`, 0.08054772639440969, -0.38529087617102353`, 0, 0.38529087617102353`}}}, {{ Hold[$CellContext`V], { 0.18091315553621937`, 0, 0.16021295504274685`, 0.16021295504274685`, 0, 0.09901705165447641, 0.7663604248754181, 0.09901705165447641}}}, {{ Hold[$CellContext`Z], { 0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 0.17150256428122515`, 0, -0.17150256428122515`}}}}, Typeset`size$$ = { 648., {323., 325.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`anim8EdgeList = False, $CellContext`artPrint = False, $CellContext`auxData = False, $CellContext`auxFile = "(\"./auxData.xls\")", $CellContext`cylR = 0.01, $CellContext`dlXs = { " c7 "}, $CellContext`dlYs = { " c8 "}, $CellContext`dlZs = { " c6 "}, $CellContext`ds = 2, $CellContext`dsName = InputForm["e8"], $CellContext`eColorPos = True, $CellContext`edgeDimTrim = 8, $CellContext`edgeVal = { 2^Rational[1, 2], 6840}, $CellContext`eGrad = 10, $CellContext`eSteps = 1, $CellContext`eWnd = 100, $CellContext`face = 1, $CellContext`favorite = 15, $CellContext`fileOnly = False, $CellContext`fileOut = False, $CellContext`H = { 0, -0.5567934404522487, 0.19694925177037625`, -0.19694925177037625`, 0.08054772639440969, -0.38529087617102353`, 0, 0.38529087617102353`}, $CellContext`innerMag = 0, $CellContext`limitToRange = True, $CellContext`ltps = {}, $CellContext`nDcamera = 0, $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.18091315553621937`, 0, 0.16021295504274685`, 0.16021295504274685`, 0, 0.09901705165447641, 0.7663604248754181, 0.09901705165447641}, $CellContext`vOverlapColor = False, $CellContext`xy = {1, 1}, $CellContext`XY = {24, 24, 24}, $CellContext`xyVwPnt = {1.3, 2.4}, $CellContext`Z = { 0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 0.17150256428122515`, 0, -0.17150256428122515`}, $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`e8init; $CellContext`initLocPtCds; $CellContext`fltrdSubPlot = Last[$CellContext`pls]; $CellContext`auxDataTrk = \ $CellContext`auxData, If[$CellContext`infileTrk != $CellContext`infile, \ $CellContext`bAND1mfName = "inFile"; $CellContext`infileTrk = $CellContext`infile]; If[ And[$CellContext`bAND != 1, $CellContext`bAND1mfName != ""], $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; If[ And[$CellContext`bAND != 2, $CellContext`bAND2mfName != ""], $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; If[$CellContext`dsTrk != $CellContext`ds, $CellContext`setPthPrm]; If[ Or[$CellContext`refresh != $CellContext`refreshTrk, \ $CellContext`bAND1mfName != "", $CellContext`bAND2mfName != "", $CellContext`bANDTrk != $CellContext`bAND], \ $CellContext`oldFltrdSubPlot = $CellContext`fltrdSubPlot; If[$CellContext`bAND1mfName != "", $CellContext`E8; Switch[$CellContext`bAND1mfName, "E8", $CellContext`E8, "E8Hexes", $CellContext`E8Hexes, "E8Hyper", $CellContext`E8Hyper, "E83", $CellContext`E83, "E83D", $CellContext`E83D, "E812x5", $CellContext`E812x5, "E8Petrie", $CellContext`E8Petrie, "E8Coxeter", $CellContext`E8Coxeter, "E7Coxeter", $CellContext`E7Coxeter, "E6Coxeter", $CellContext`E6Coxeter, "E6", $CellContext`E6, "E6a", $CellContext`E6a, "E5", $CellContext`E5, "E4", $CellContext`E4, "F4", $CellContext`F4, "H4", $CellContext`H4, "F4Tris", $CellContext`F4Tris, "F4G2", $CellContext`F4G2, "C4Tesseract", $CellContext`C4Tesseract, "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, "F4Rect", $CellContext`F4Rect, "F4BiRect", $CellContext`F4BiRect, "F4Star", $CellContext`F4Star, "C2Pascal", $CellContext`C2Pascal, "C3Pascal", $CellContext`C3Pascal, "C4Pascal", $CellContext`C4Pascal, "C5Pascal", $CellContext`C5Pascal, "C6Pascal", $CellContext`C6Pascal, "C7Pascal", $CellContext`C7Pascal, "C8Pascal", $CellContext`C8Pascal, "C2Petrie", $CellContext`C2Petrie, "C3Petrie", $CellContext`C3Petrie, "C4Petrie", $CellContext`C4Petrie, "C5Petrie", $CellContext`C5Petrie, "C6Petrie", $CellContext`C6Petrie, "C7Petrie", $CellContext`C7Petrie, "C8Petrie", $CellContext`C8Petrie, "lepInf", $CellContext`lepInf, "qInf", $CellContext`qInf, "a3D", $CellContext`a3D, "o3D", $CellContext`o3D, "qCol", $CellContext`qCol, "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`bANDTrk != $CellContext`bAND, $CellContext`bANDTrk = \ $CellContext`bAND; $CellContext`switchFilter, $CellContext`doFilter]; If[ Or[$CellContext`oldFltrdSubPlot != $CellContext`fltrdSubPlot, \ $CellContext`tTValTrk != $CellContext`tT, $CellContext`dsTrk != \ $CellContext`ds, $CellContext`pLineToggleTrk != $CellContext`pLineToggle, \ $CellContext`showClickVertsTrk != $CellContext`showClickVerts, \ $CellContext`innerMagTrk != $CellContext`innerMag, \ $CellContext`edgeDimTrimTrk != $CellContext`edgeDimTrim, ToString[$CellContext`edgeValTrk] != ToString[$CellContext`edgeVal]], If[$CellContext`dsTrk != $CellContext`ds, $CellContext`setPthPrm; \ $CellContext`dsTrk = $CellContext`ds]; $CellContext`tlines = \ $CellContext`tLines; $CellContext`tTValTrk = $CellContext`tT; \ $CellContext`getEdges; $CellContext`elines = \ $CellContext`eLines[$CellContext`edgeVal]; $CellContext`edgeMag = Max[$CellContext`chop, $CellContext`maxEdge]; \ $CellContext`elines = ($CellContext`elinesNew = ($CellContext`eSort = \ $CellContext`elineSort[ If[$CellContext`eSteps > 1, "Ascending", "Descending"]])); If[$CellContext`ltps != {}, $CellContext`ltpsSav = \ $CellContext`ltps; $CellContext`clearClickVerts; If[$CellContext`pLineToggle, $CellContext`pLines, \ $CellContext`vLines][$CellContext`ltpsSav]]; $CellContext`edgeValTrk = \ $CellContext`edgeVal; $CellContext`pLineToggleTrk = $CellContext`pLineToggle; \ $CellContext`edgeDimTrimTrk = $CellContext`edgeDimTrim; If[$CellContext`showClickVertsTrk != $CellContext`showClickVerts, If[$CellContext`showClickVerts, If[$CellContext`pLineToggle, $CellContext`pLines, \ $CellContext`vLines][$CellContext`fltrdSubPlot]]; \ $CellContext`showClickVertsTrk = $CellContext`showClickVerts]; \ $CellContext`innerMagTrk = $CellContext`innerMag]]; If[$CellContext`fileOut, $CellContext`mOutDo]; $CellContext`loop = \ {}; $CellContext`lastViewPoint = { First[ Subscript[$CellContext`xyVwPnt, $CellContext`scaled]], $CellContext`second[ Subscript[$CellContext`xyVwPnt, $CellContext`scaled]], Subscript[$CellContext`zVwPnt, $CellContext`scaled]}; If[ Not[$CellContext`needMovie], If[$CellContext`locPtCdTrk != $CellContext`locPtCdArr, If[ Not[$CellContext`auxData], $CellContext`useDimLocs = True]; Do[$CellContext`fVal = Map[Part[ $CellContext`locPtCd[#], \ $CellContext`i]/$CellContext`zoomFct& , Range[$CellContext`dims]]; Switch[ Part[$CellContext`faceList, $CellContext`face, \ $CellContext`i], "H", $CellContext`H = $CellContext`fVal, "V", $CellContext`V = $CellContext`fVal, "Z", $CellContext`Z = $CellContext`fVal], {$CellContext`i, 2}]]; $CellContext`initLocPtCds; $CellContext`processOut[ 0], $CellContext`doMovie]; If[ And[$CellContext`fileOut, $CellContext`outFileType == First[$CellContext`fileTypeList]], $CellContext`doFileOut[0]]; If[ And[$CellContext`loop != {}, Not[$CellContext`fileOnly]], $CellContext`out = ListAnimate[$CellContext`loop, DefaultDuration -> 3, AnimationRunning -> False]]]; $CellContext`out), "Specifications" :> { Row[{ Button["Refresh", $CellContext`refreshToggle, ImageSize -> Small], " MetaFavorites ", PopupMenu[ Dynamic[$CellContext`bAND1mfName], { "E8", "E8Hexes", "E8Hyper", "E83", "E83D", "E812x5", "E8Petrie", "E8Coxeter", "E7Coxeter", "E6Coxeter", "E6", "E6a", "E5", "E4", "H4", "F4", "F4Tris", "F4G2", "C4Tesseract", "Cell5", "Cell16", "Cell24", "Cell24D4", "Cell24G2", "c1202DPetrie", "c1202DSquare", "c1202DPent", "c1203D", "c6002DPetrie", "c6002DPent", "c6002DHex", "c6003D", "none", "inFile"}], "\[DoubleLeftArrow]OR ", PopupMenu[ Dynamic[$CellContext`bAND2mfName], { "G2", "F4Rect", "F4BiRect", "F4Star", "C2Pascal", "C3Pascal", "C4Pascal", "C5Pascal", "C6Pascal", "C7Pascal", "C8Pascal", "C2Petrie", "C3Petrie", "C4Petrie", "C5Petrie", "C6Petrie", "C7Petrie", "C8Petrie", "lepInf", "qInf", "a3D", "o3D", "qCol", "binary", "binStar", "binSquare", "binTri", "Cube", "Hydrogen", "Devolution", "auxXLS"}], "\[DoubleLeftArrow]AND ", " DataSets: ", Dynamic[ PopupMenu[ Dynamic[$CellContext`dsName], $CellContext`dsNames]], Dynamic[$CellContext`ds = \ $CellContext`position[$CellContext`dsNames, $CellContext`dsName]]}], Row[{" inFile ", FileNameSetter[ Dynamic[$CellContext`infile]], " OutToFile ", Checkbox[ Dynamic[$CellContext`fileOut]], " FileOnly ", Checkbox[ Dynamic[$CellContext`fileOnly]], " Dir ", FileNameSetter[ Dynamic[$CellContext`outFileDir], "Directory"], " Name ", Dynamic[ InputField[ Dynamic[$CellContext`outFile], FieldSize -> 6]], PopupMenu[ Dynamic[$CellContext`outFileType], { ".avi", ".bmp", ".dxf", ".eps", ".gif", ".jpeg", ".html", ".obj", ".lwo", ".Maya", ".MathML", ".pdf", ".png", ".stl", ".svg", ".tiff", ".vrml", ".wmf", ".x3d", ".xls", ".bi", ".lsl", ".tri"}], " Particles=", Dynamic[ Length[$CellContext`fltrdSubPlot]], " tLines=", Dynamic[ Length[$CellContext`tlines]]}], Delimiter, Row[{" pSize ", PopupMenu[ Dynamic[$CellContext`pSize], {$CellContext`tiny, \ $CellContext`small, $CellContext`nrml, $CellContext`big, $CellContext`huge}], " Zoom Exp ", Dynamic[ Slider[ Dynamic[$CellContext`zoom], {-24, 25, 0.5}, ImageSize -> 100]], Dynamic[$CellContext`zoom], " pScale ", Dynamic[ Slider[ Dynamic[$CellContext`scale], {0, 1, 1/50.}, ImageSize -> 50]], Dynamic[ Subscript[$CellContext`scale, $CellContext`scaled]], " Ticks ", Dynamic[ Slider[ Dynamic[$CellContext`tickNum], {0, 50, 1}, ImageSize -> 50]], Dynamic[$CellContext`tickNum], " Frame ", Dynamic[ Slider[ Dynamic[$CellContext`range], {0, 2, 0.01}, ImageSize -> 50]], Dynamic[ Subscript[$CellContext`range, $CellContext`scaled]], " Limit ", Checkbox[ Dynamic[$CellContext`limitToRange]]}], Row[{" Frame Center: ", Button[ "\!\(\*OverscriptBox[\"\[Wedge]\", \"\[Wedge]\"]\)", Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] + 1/2, Appearance -> Small], Button[ "\[Wedge]", Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] + 1/8, Appearance -> Small], " {x,y}=", Dynamic[ Round[ Part[ Subscript[$CellContext`pt, $CellContext`scaled], Span[1, 2]], 0.01]], " ViewPoint ", Button[ "\!\(\*OverscriptBox[\"\[Wedge]\", \"\[Wedge]\"]\)", Part[$CellContext`xyVwPnt, 2] = $CellContext`second[$CellContext`xyVwPnt] + 1, Appearance -> Small], Button[ "\[Wedge]", Part[$CellContext`xyVwPnt, 2] = $CellContext`second[$CellContext`xyVwPnt] + 1/10, Appearance -> Small], " {x,y}=", Dynamic[ Round[ Subscript[$CellContext`xyVwPnt, $CellContext`scaled], 0.01]]}], Row[{" ", Button[ "<<", Part[$CellContext`pt, 1] = First[$CellContext`pt] - 1/2, Appearance -> Small], Button[ "<", Part[$CellContext`pt, 1] = First[$CellContext`pt] - 1/8, Appearance -> Small], Slider2D[ Dynamic[ Part[$CellContext`pt, Span[1, 2]]], {{-1, -1}, {1, 1}, {0.02, 0.02}}], Button[ ">", Part[$CellContext`pt, 1] = First[$CellContext`pt] + 1/4, Appearance -> Small], Button[ ">>", Part[$CellContext`pt, 1] = First[$CellContext`pt] + 1, Appearance -> Small], " ", Button[ "<<", Part[$CellContext`xyVwPnt, 1] = First[$CellContext`xyVwPnt] - 1, Appearance -> Small], Button[ "<", Part[$CellContext`xyVwPnt, 1] = First[$CellContext`xyVwPnt] - 1/10, Appearance -> Small], Slider2D[ Dynamic[$CellContext`xyVwPnt], {{0.1, 0.1}, {10, 10}, {0.1, 0.1}}], Button[ ">", Part[$CellContext`xyVwPnt, 1] = First[$CellContext`xyVwPnt] + 1/10, Appearance -> Small], Button[ ">>", Part[$CellContext`xyVwPnt, 1] = First[$CellContext`xyVwPnt] + 1, Appearance -> Small], " nDim CameraLoc ", Dynamic[ VerticalSlider[ Dynamic[$CellContext`nDcamera], {0, 10, 1/4}, ImageSize -> Tiny]], Dynamic[$CellContext`nDcamera], " Rectify Edges ", Dynamic[ VerticalSlider[ Dynamic[$CellContext`rectification], {0, 5, 1}, ImageSize -> Tiny]], Dynamic[$CellContext`rectification], " Edge Dimension ", Dynamic[ VerticalSlider[ Dynamic[$CellContext`edgeDimTrim], {2, $CellContext`dims, 1}, ImageSize -> Tiny]], Dynamic[$CellContext`edgeDimTrim]}], Row[{" z ", Slider[ Dynamic[ $CellContext`third[$CellContext`pt]], {-1, 1, 0.02}, ImageSize -> 50], Dynamic[ $CellContext`third[ Subscript[$CellContext`pt, $CellContext`scaled]]], " ", Button[ "\!\(\*UnderscriptBox[\"\[Vee]\", \"\[Vee]\"]\)", Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] - 1/2, Appearance -> Small], Button[ "\[Vee]", Part[$CellContext`pt, 2] = $CellContext`second[$CellContext`pt] - 1/8, Appearance -> Small], " z ", Slider[ Dynamic[$CellContext`zVwPnt], {0.1, 10, 0.1}, ImageSize -> 50], Dynamic[ Subscript[$CellContext`zVwPnt, $CellContext`scaled]], " ", Button[ "\!\(\*UnderscriptBox[\"\[Vee]\", \"\[Vee]\"]\)", Part[$CellContext`xyVwPnt, 2] = $CellContext`second[$CellContext`xyVwPnt] - 1, Appearance -> Small], Button[ "\[Vee]", Part[$CellContext`xyVwPnt, 2] = $CellContext`second[$CellContext`xyVwPnt] - 1/10, Appearance -> Small], " pColors ", Slider[ Dynamic[$CellContext`pGrad], {0, 51, 1}, ImageSize -> Small], Dynamic[ $CellContext`showGrads[$CellContext`pGrad]], " ", Dynamic[$CellContext`pGrad], " ", Dynamic[ $CellContext`gradName[$CellContext`pGrad]]}], Row[{" Show:", " Axes ", Checkbox[ Dynamic[$CellContext`showAxes]], " 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"}]]]}], Row[{ Grid[{{"Anti(shape) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fa], {0, 1}], TogglerBar[ Dynamic[$CellContext`fa], {0, 1}]]], "0=p(lepton=tri/quark=squ/boson=cir),1=\!\(\*OverscriptBox[\"p\",\ \"_\"]\)(utr/dia/inv)"}, {"Type(color) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fp], {0, 1}], TogglerBar[ Dynamic[$CellContext`fp], {0, 1}]]], "0=\[Nu](w),uct(o/c/m),1=e(y),dsb(r/g/b)"}, {"Color(color) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fc], {0, 1, 2, 3}], TogglerBar[ Dynamic[$CellContext`fc], {0, 1, 2, 3}]]], "0(y/w),1(o/r),2(c/g) 3(m/b)"}, {"Spin(shade) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fs], {0, 1, 2, 3}], TogglerBar[ Dynamic[$CellContext`fs], {0, 1, 2, 3}]]], "0=\!\(\*OverscriptBox[\"L\", \ \"\[Wedge]\"]\),1=\!\(\*OverscriptBox[\"L\", \ \"\[Vee]\"]\),2=\!\(\*OverscriptBox[\"R\", \ \"\[Wedge]\"]\),3=\!\(\*OverscriptBox[\"R\", \"\[Vee]\"]\) \ (light/med/dark)"}, {"Gen(size) ", Dynamic[ If[$CellContext`bAND == 2, RadioButtonBar[ Dynamic[$CellContext`fg], {0, 1, 2, 3}], TogglerBar[ Dynamic[$CellContext`fg], {0, 1, 2, 3}]]], "0=bosons(pSize),1=e(tiny),2=\[Mu](nrml),3=\[Tau](huge)"}}, Alignment -> Left]}], Delimiter, Row[{ Button["Reset Path", $CellContext`clearPath, ImageSize -> Small], " t Steps ", Slider[ Dynamic[$CellContext`steps], {1, 90, 1}, ImageSize -> 90], Dynamic[$CellContext`steps], " ", RadioButtonBar[ Dynamic[$CellContext`pthRot], { "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]]}], Row[{" H Dim ", Dynamic[ TogglerBar[ Dynamic[$CellContext`dlXs], Part[$CellContext`dl, $CellContext`ds]]], Dynamic[$CellContext`dlXl]}], Dynamic[ Row[ Flatten[ Join[{" H "}, Map[With[{$CellContext`i = #}, { Dynamic[ VerticalSlider[ Dynamic[ Part[$CellContext`H, $CellContext`i]], {-1, 1, 0.01}, ImageSize -> Tiny]], Dynamic[ InputField[ Dynamic[ Part[$CellContext`H, $CellContext`i]], FieldSize -> 6]]}]& , Range[$CellContext`dims]]]]]], Row[{" V Dim ", Dynamic[ TogglerBar[ Dynamic[$CellContext`dlYs], Part[$CellContext`dl, $CellContext`ds]]], Dynamic[$CellContext`dlYl]}], Dynamic[ Row[ Flatten[ Join[{" V "}, Map[With[{$CellContext`i = #}, { Dynamic[ VerticalSlider[ Dynamic[ Part[$CellContext`V, $CellContext`i]], {-1, 1, 0.01}, ImageSize -> Tiny]], Dynamic[ InputField[ Dynamic[ Part[$CellContext`V, $CellContext`i]], FieldSize -> 6]]}]& , Range[$CellContext`dims]]]]]], Row[{" Z Dim ", Dynamic[ TogglerBar[ Dynamic[$CellContext`dlZs], Part[$CellContext`dl, $CellContext`ds]]], Dynamic[$CellContext`dlZl]}], Dynamic[ Row[ Flatten[ Join[{" Z "}, Map[With[{$CellContext`i = #}, { Dynamic[ VerticalSlider[ Dynamic[ Part[$CellContext`Z, $CellContext`i]], {-1, 1, 0.01}, ImageSize -> Tiny]], Dynamic[ InputField[ Dynamic[ Part[$CellContext`Z, $CellContext`i]], FieldSize -> 6]]}]& , Range[$CellContext`dims]]]]]], {{$CellContext`fileOnly, False}, ControlType -> None}, {{$CellContext`artPrint, False}, ControlType -> None}, {{$CellContext`scale, 0.02}, ControlType -> None}, {{$CellContext`cylR, 0.01}, ControlType -> None}, {{$CellContext`tickNum, 4}, ControlType -> None}, {{$CellContext`range, 1.5}, ControlType -> None}, {{$CellContext`limitToRange, True}, ControlType -> None}, {{$CellContext`pt, {0, 0, 0}}, ControlType -> None}, {{$CellContext`zoom, 0}, ControlType -> None}, {{$CellContext`favorite, 15}, ControlType -> None}, {{$CellContext`pGrad, 0}, ControlType -> None}, {{$CellContext`face, 1}, ControlType -> None}, {{$CellContext`auxData, False}, ControlType -> None}, {{$CellContext`showAxes, True}, ControlType -> None}, {{$CellContext`showPartVert, True}, ControlType -> None}, {{$CellContext`showEdges, False}, ControlType -> None}, {{$CellContext`showSurfaces, False}, ControlType -> None}, {{$CellContext`showPolySurfaces, False}, ControlType -> None}, {{$CellContext`rectification, 0}, ControlType -> None}, {{$CellContext`showPvecs, False}, ControlType -> None}, {{$CellContext`showPtext, False}, ControlType -> None}, {{$CellContext`showPlocs, False}, ControlType -> None}, {{$CellContext`showPmass, False}, ControlType -> None}, {{$CellContext`showPerim, False}, ControlType -> None}, {{$CellContext`eGrad, 10}, ControlType -> None}, {{$CellContext`edgeVal, {2^Rational[1, 2], 6840}}, ControlType -> None}, {{$CellContext`anim8EdgeList, False}, ControlType -> None}, {{$CellContext`eSteps, 1}, ControlType -> None}, {{$CellContext`eColorPos, True}, ControlType -> None}, {{$CellContext`eWnd, 100}, ControlType -> None}, {{$CellContext`innerMag, 0}, ControlType -> None}, {{$CellContext`edgeDimTrim, 8}, ControlType -> None}, {{$CellContext`tT, {}}, ControlType -> None}, {{$CellContext`XY, {24, 24, 24}}, ControlType -> None}, {{$CellContext`showClr, False}, ControlType -> None}, {{$CellContext`showClickVerts, False}, ControlType -> None}, {{$CellContext`ltps, {}}, ControlType -> None}, {{$CellContext`vOverlapColor, False}, ControlType -> None}, {{$CellContext`pLineToggle, False}, ControlType -> None}, {{$CellContext`useDimLocs, False}, ControlType -> None}, {{$CellContext`dlXs, {" c7 "}}, ControlType -> None}, {{$CellContext`dlYs, {" c8 "}}, ControlType -> None}, {{$CellContext`dlZs, {" c6 "}}, ControlType -> None}, {{$CellContext`xy, {1, 1}}, ControlType -> None}, {{$CellContext`zz, 1}, ControlType -> None}, {{$CellContext`xyVwPnt, {1.3, 2.4}}, ControlType -> None}, {{$CellContext`zVwPnt, 2}, ControlType -> None}, {{$CellContext`steps, 1}, ControlType -> None}, {{$CellContext`nDcamera, 0}, ControlType -> None}, {{$CellContext`perspective, False}, ControlType -> None}, {{$CellContext`pthRot, "Trans&Rot"}, ControlType -> None}, {{$CellContext`pthPtCds, "Identity"}, ControlType -> None}, {{$CellContext`ds, 2}, ControlType -> None}, {{$CellContext`pSize, $CellContext`nrml}, ControlType -> None}, {{$CellContext`pListName, "(second@plNames)"}, ControlType -> None}, {{$CellContext`dsName, InputForm["e8"]}, ControlType -> None}, {{$CellContext`p3D, InputForm[" 2D"]}, ControlType -> None}, {{$CellContext`auxFile, "(\"./auxData.xls\")"}, ControlType -> None}, {{$CellContext`fileOut, False}, ControlType -> None}, {{$CellContext`outFileDir, "(\"./\")"}, ControlType -> None}, {{$CellContext`outFile, "(\"E8out\"<>ToString[RandomInteger@{10,99}])"}, ControlType -> None}, {{$CellContext`outFileType, "(\".png\")"}, ControlType -> None}, {{$CellContext`H, { 0, -0.5567934404522487, 0.19694925177037625`, -0.19694925177037625`, 0.08054772639440969, -0.38529087617102353`, 0, 0.38529087617102353`}}, ControlType -> None}, {{$CellContext`V, { 0.18091315553621937`, 0, 0.16021295504274685`, 0.16021295504274685`, 0, 0.09901705165447641, 0.7663604248754181, 0.09901705165447641}}, ControlType -> None}, {{$CellContext`Z, { 0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 0.17150256428122515`, 0, -0.17150256428122515`}}, ControlType -> None}}, "Options" :> { ControlType -> SetterBar, ControlPlacement -> Top, LocalizeVariables -> False, PreserveImageOptions -> Automatic, SynchronousUpdating -> False, SynchronousInitialization -> False, TrackedSymbols :> {$CellContext`refresh, $CellContext`bAND, \ $CellContext`bAND1mfName, $CellContext`bAND2mfName, $CellContext`infile, \ $CellContext`auxData, $CellContext`ds, $CellContext`face, \ $CellContext`showAxes, $CellContext`showPartVert, $CellContext`showPerim, \ $CellContext`useDimLocs, $CellContext`locPtCd}}, "DefaultOptions" :> {}], ImageSizeCache->{759., {793., 798.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`auxDataTrk = False, $CellContext`auxData = False, $CellContext`e8init := ( If[$CellContext`auxData, $CellContext`doAuxData]; $CellContext`lbin = Length[$CellContext`e8bin]; $CellContext`lorg = Length[$CellContext`e8Orig]; $CellContext`lrch = Length[$CellContext`richter]; $CellContext`lcel = Length[$CellContext`cell600]; $CellContext`e8b = Map[{ Part[$CellContext`e8bin, Min[#, $CellContext`lbin]], Part[$CellContext`e8Orig, Min[#, $CellContext`lorg]], FullSimplify[ PowerExpand[ Dot[$CellContext`rot3, Part[$CellContext`e8Orig, Min[#, $CellContext`lorg]]]]], Part[$CellContext`richter, Min[#, $CellContext`lrch]], Part[$CellContext`cell600, Min[#, $CellContext`lcel]], Part[$CellContext`auxVerts, Min[#, Length[$CellContext`auxVerts]]], #, ToString[#], #, {"r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, Units`TimeUnit}& , Range[$CellContext`le8]]; $CellContext`dsAppend; If[$CellContext`auxData, $CellContext`do[ Range[ Length[$CellContext`auxVerts]], {}, {$CellContext`row -> 5, $CellContext`oAnti -> 1, $CellContext`oPtype -> 1, $CellContext`oColor -> 1, $CellContext`oSpin -> Length[$CellContext`auxVerts], $CellContext`oGen -> 0}], $CellContext`do[{12, 18, 23, 28}, {13, 19, 24, 99}, $CellContext`L1]; $CellContext`do[{14, 15, 16, 20, 21, 22, 25, 26, 27, 29, 30, 31}, {100, 101, 102, 103, 104, 105, 113, 114, 115, 119, 120, 121}, $CellContext`Q1]; $CellContext`do[{40, 45, 49, 64}, {74, 59, 60, 44}, $CellContext`L2]; $CellContext`do[{41, 42, 43, 46, 47, 48, 50, 51, 52, 65, 66, 67}, {75, 76, 77, 53, 54, 55, 61, 62, 63, 68, 69, 70}, $CellContext`Q2]; $CellContext`do[{94, 11, 10, 1}, {95, 17, 109, 128}, $CellContext`L3]; $CellContext`do[{37, 36, 35, 32, 33, 34, 118, 117, 116, 124, 123, 122}, {96, 97, 98, 108, 107, 106, 110, 111, 112, 127, 126, 125}, $CellContext`Q3]; $CellContext`do[{84, 85, 86}, {78, 79, 80}, $CellContext`W\[Omega]G]; $CellContext`do[{39, 57, 56, 58, 38, 71, 73, 72, 93}, {92, 91, 90, 89, 88, 87, 83, 82, 81}, $CellContext`e\[Phi]Bx\[CapitalPhi]]; $CellContext`do[{2, 3, 4, 5}, {6, 7, 8, 9}, $CellContext`Exc]]; $CellContext`e8Bin = Part[$CellContext`e8b, All, 1]; $CellContext`e8bit = Part[$CellContext`e8b, All, $CellContext`sets + 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 = {{ " b1 ", " b2 ", " b3 ", " b4 ", " b5 ", " b6 ", " b7 ", " b8 "}, { " A ", " B ", " C ", " D ", " E ", " F ", " G ", " H "}, { " \!\(\*\n StyleBox[FractionBox[\"1\", \"2\"],\n\ FontFamily->\"Courier New\",\n\ FontSize->8]\)\!\(\*SubsuperscriptBox[\"\[Omega]\", \"L\", \"3\"]\) ", " \!\(\*\n StyleBox[FractionBox[\"1\", \"2\"],\n\ FontFamily->\"Courier New\",\n\ FontSize->8]\)\!\(\*SubsuperscriptBox[\"\[Omega]\", \"R\", \"3\"]\) ", " \!\(\*SuperscriptBox[\"W\", \"3\"]\) ", " \!\(\*SubsuperscriptBox[\"B\", \"1\", \"3\"]\) \ ", " w ", " \!\(\*SubscriptBox[\"B\", \"2\"]\) ", " \!\(\*SuperscriptBox[\"g\", \"3\"]\) ", " \!\(\*SuperscriptBox[\"g\", \"8\"]\) "}, { " A ", " B ", " C ", " D ", " E ", " F ", " G ", " H "}, { " c1 ", " c2 ", " c3 ", " c4 ", " c5 ", " c6 ", " c7 ", " c8 "}, { " a1 ", " a2 ", " a3 ", " a4 ", " a5 ", " a6 ", " a7 ", " a8 "}, { " a1 ", " a2 ", " a3 ", " a4 ", " a5 ", " a6 ", " a7 ", " a8 "}, { " a1 ", " a2 ", " a3 ", " a4 ", " a5 ", " a6 ", " a7 ", " a8 "}}, $CellContext`ds = 5, $CellContext`auxFile = "./auxData.xls", $CellContext`auxVertNames = { "vert1", "vert2", "vert3", "vert4", "vert5", "vert6", "vert7", "vert8", "vert9", "vert10", "vert11", "vert12", "vert13", "vert14", "vert15", "vert16", "vert17", "vert18", "vert19", "vert20", "vert21", "vert22", "vert23", "vert24", "vert25", "vert26", "vert27", "vert28", "vert29", "vert30", "vert31", "vert32", "vert33", "vert34", "vert35", "vert36", "vert37", "vert38", "vert39", "vert40", "vert41", "vert42", "vert43", "vert44", "vert45", "vert46", "vert47", "vert48", "vert49", "vert50", "vert51", "vert52", "vert53", "vert54", "vert55", "vert56", "vert57", "vert58", "vert59", "vert60", "vert61", "vert62", "vert63", "vert64", "vert65", "vert66", "vert67", "vert68", "vert69", "vert70", "vert71", "vert72", "vert73", "vert74", "vert75", "vert76", "vert77", "vert78", "vert79", "vert80", "vert81", "vert82", "vert83", "vert84", "vert85", "vert86", "vert87", "vert88", "vert89", "vert90", "vert91", "vert92", "vert93", "vert94", "vert95", "vert96", "vert97", "vert98", "vert99", "vert100", "vert101", "vert102", "vert103", "vert104", "vert105", "vert106", "vert107", "vert108", "vert109", "vert110", "vert111", "vert112", "vert113", "vert114", "vert115", "vert116", "vert117", "vert118", "vert119", "vert120", "vert121", "vert122", "vert123", "vert124", "vert125", "vert126", "vert127", "vert128", "vert129", "vert130", "vert131", "vert132", "vert133", "vert134", "vert135", "vert136", "vert137", "vert138", "vert139", "vert140", "vert141", "vert142", "vert143", "vert144", "vert145", "vert146", "vert147", "vert148", "vert149", "vert150", "vert151", "vert152", "vert153", "vert154", "vert155", "vert156", "vert157", "vert158", "vert159", "vert160", "vert161", "vert162", "vert163", "vert164", "vert165", "vert166", "vert167", "vert168", "vert169", "vert170", "vert171", "vert172", "vert173", "vert174", "vert175", "vert176", "vert177", "vert178", "vert179", "vert180", "vert181", "vert182", "vert183", "vert184", "vert185", "vert186", "vert187", "vert188", "vert189", "vert190", "vert191", "vert192", "vert193", "vert194", "vert195", "vert196", "vert197", "vert198", "vert199", "vert200", "vert201", "vert202", "vert203", "vert204", "vert205", "vert206", "vert207", "vert208", "vert209", "vert210", "vert211", "vert212", "vert213", "vert214", "vert215", "vert216", "vert217", "vert218", "vert219", "vert220", "vert221", "vert222", "vert223", "vert224", "vert225", "vert226", "vert227", "vert228", "vert229", "vert230", "vert231", "vert232", "vert233", "vert234", "vert235", "vert236", "vert237", "vert238", "vert239", "vert240", "vert241", "vert242", "vert243", "vert244", "vert245", "vert246", "vert247", "vert248", "vert249", "vert250", "vert251", "vert252", "vert253", "vert254", "vert255", "vert256", "vert257", "vert258", "vert259", "vert260", "vert261", "vert262", "vert263", "vert264", "vert265", "vert266", "vert267", "vert268", "vert269", "vert270", "vert271", "vert272", "vert273", "vert274", "vert275", "vert276", "vert277", "vert278", "vert279", "vert280", "vert281", "vert282", "vert283", "vert284", "vert285", "vert286", "vert287", "vert288", "vert289", "vert290", "vert291", "vert292", "vert293", "vert294", "vert295", "vert296", "vert297", "vert298", "vert299", "vert300", "vert301", "vert302", "vert303", "vert304", "vert305", "vert306", "vert307", "vert308", "vert309", "vert310", "vert311", "vert312", "vert313", "vert314", "vert315", "vert316", "vert317", "vert318", "vert319", "vert320", "vert321", "vert322", "vert323", "vert324", "vert325", "vert326", "vert327", "vert328", "vert329", "vert330", "vert331", "vert332", "vert333", "vert334", "vert335", "vert336", "vert337", "vert338", "vert339", "vert340", "vert341", "vert342", "vert343", "vert344", "vert345", "vert346", "vert347", "vert348", "vert349", "vert350", "vert351", "vert352", "vert353", "vert354", "vert355", "vert356", "vert357", "vert358", "vert359", "vert360", "vert361", "vert362", "vert363", "vert364", "vert365", "vert366", "vert367", "vert368", "vert369", "vert370", "vert371", "vert372", "vert373", "vert374", "vert375", "vert376", "vert377", "vert378", "vert379", "vert380", "vert381", "vert382", "vert383", "vert384", "vert385", "vert386", "vert387", "vert388", "vert389", "vert390", "vert391", "vert392", "vert393", "vert394", "vert395", "vert396", "vert397", "vert398", "vert399", "vert400", "vert401", "vert402", "vert403", "vert404", "vert405", "vert406", "vert407", "vert408", "vert409", "vert410", "vert411", "vert412", "vert413", "vert414", "vert415", "vert416", "vert417", "vert418", "vert419", "vert420", "vert421", "vert422", "vert423", "vert424", "vert425", "vert426", "vert427", "vert428", "vert429", "vert430", "vert431", "vert432", "vert433", "vert434", "vert435", "vert436", "vert437", "vert438", "vert439", "vert440", "vert441", "vert442", "vert443", "vert444", "vert445", "vert446", "vert447", "vert448", "vert449", "vert450", "vert451", "vert452", "vert453", "vert454", "vert455", "vert456", "vert457", "vert458", "vert459", "vert460", "vert461", "vert462", "vert463", "vert464", "vert465", "vert466", "vert467", "vert468", "vert469", "vert470", "vert471", "vert472", "vert473", "vert474", "vert475", "vert476", "vert477", "vert478", "vert479", "vert480", "vert481", "vert482", "vert483", "vert484", "vert485", "vert486", "vert487", "vert488", "vert489", "vert490", "vert491", "vert492", "vert493", "vert494", "vert495", "vert496", "vert497", "vert498", "vert499", "vert500", "vert501", "vert502", "vert503", "vert504", "vert505", "vert506", "vert507", "vert508", "vert509", "vert510", "vert511", "vert512", "vert513", "vert514", "vert515", "vert516", "vert517", "vert518", "vert519", "vert520", "vert521", "vert522", "vert523", "vert524", "vert525", "vert526", "vert527", "vert528", "vert529", "vert530", "vert531", "vert532", "vert533", "vert534", "vert535", "vert536", "vert537", "vert538", "vert539", "vert540", "vert541", "vert542", "vert543", "vert544", "vert545", "vert546", "vert547", "vert548", "vert549", "vert550", "vert551", "vert552", "vert553", "vert554", "vert555", "vert556", "vert557", "vert558", "vert559", "vert560", "vert561", "vert562", "vert563", "vert564", "vert565", "vert566", "vert567", "vert568", "vert569", "vert570", "vert571", "vert572", "vert573", "vert574", "vert575", "vert576", "vert577", "vert578", "vert579", "vert580", "vert581", "vert582", "vert583", "vert584", "vert585", "vert586", "vert587", "vert588", "vert589", "vert590", "vert591", "vert592", "vert593", "vert594", "vert595", "vert596", "vert597", "vert598", "vert599", "vert600"}, $CellContext`auxVerts = {{-2, -2, 0, 0, 0, 0, 0, 0}, {-2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 0, -2, 0, 0, 0, 0, 0}, {-2, 0, 0, -2, 0, 0, 0, 0}, {-2, 0, 0, 2, 0, 0, 0, 0}, {-2, 0, 2, 0, 0, 0, 0, 0}, {-2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-2, 2, 0, 0, 0, 0, 0, 0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {-2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {-2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, {-1, -1, -1, Sqrt[5], 0, 0, 0, 0}, {-1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, {-1, -1, 1, Sqrt[5], 0, 0, 0, 0}, {-1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, {-1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, {-1, -1, Sqrt[5], -1, 0, 0, 0, 0}, {-1, -1, Sqrt[5], 1, 0, 0, 0, 0}, {-1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {-1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {-1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, {-1, 1, -1, Sqrt[5], 0, 0, 0, 0}, {-1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, {-1, 1, 1, Sqrt[5], 0, 0, 0, 0}, {-1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, {-1, 1, - Sqrt[5], 1, 0, 0, 0, 0}, {-1, 1, Sqrt[5], -1, 0, 0, 0, 0}, {-1, 1, Sqrt[5], 1, 0, 0, 0, 0}, {-1, 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-1, - Sqrt[5], -1, -1, 0, 0, 0, 0}, {-1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, {-1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, {-1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, {-1, Sqrt[5], -1, -1, 0, 0, 0, 0}, {-1, Sqrt[5], -1, 1, 0, 0, 0, 0}, {-1, Sqrt[5], 1, -1, 0, 0, 0, 0}, {-1, Sqrt[5], 1, 1, 0, 0, 0, 0}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, {-1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, {-1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, {-1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {-1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {-1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {0, -2, -2, 0, 0, 0, 0, 0}, {0, -2, 0, -2, 0, 0, 0, 0}, {0, -2, 0, 2, 0, 0, 0, 0}, {0, -2, 2, 0, 0, 0, 0, 0}, { 0, -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8)), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 0, 0, 0}, { 0, -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {0, 0, -2, -2, 0, 0, 0, 0}, {0, 0, -2, 2, 0, 0, 0, 0}, {0, 0, 2, -2, 0, 0, 0, 0}, {0, 0, 2, 2, 0, 0, 0, 0}, {0, 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8)), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 0, 0, 0}, { 0, 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {0, 2, -2, 0, 0, 0, 0, 0}, {0, 2, 0, -2, 0, 0, 0, 0}, {0, 2, 0, 2, 0, 0, 0, 0}, {0, 2, 2, 0, 0, 0, 0, 0}, { 0, -Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 0, -Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 0, -Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 0, -Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {0, Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {0, Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {0, Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {0, Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, {0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, {0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -1, 0, 0, 0, 0}, { 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 1, 0, 0, 0, 0}, { 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, 0, 0, 0}, { 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, 0, 0, 0}, { 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, 0, 0, 0}, { 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 0, 0, 0, 0}, { 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, 0, 0, 0}, { 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, 0, 0, 0}, { 1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {1, -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {1, -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, {1, -1, -1, Sqrt[5], 0, 0, 0, 0}, {1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, {1, -1, 1, Sqrt[5], 0, 0, 0, 0}, {1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, { 1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, {1, -1, Sqrt[5], -1, 0, 0, 0, 0}, {1, -1, Sqrt[5], 1, 0, 0, 0, 0}, { 1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, { 1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0}, { 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, { 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, { 1, 1, -1, Sqrt[5], 0, 0, 0, 0}, {1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, {1, 1, 1, Sqrt[5], 0, 0, 0, 0}, {1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, { 1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, {1, 1, Sqrt[5], -1, 0, 0, 0, 0}, {1, 1, Sqrt[5], 1, 0, 0, 0, 0}, { 1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {1, 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {1, 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 1, -Sqrt[5], -1, -1, 0, 0, 0, 0}, { 1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, { 1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, {1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, { 1, Sqrt[5], -1, -1, 0, 0, 0, 0}, {1, Sqrt[5], -1, 1, 0, 0, 0, 0}, {1, Sqrt[5], 1, -1, 0, 0, 0, 0}, {1, Sqrt[5], 1, 1, 0, 0, 0, 0}, { 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, { 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, { 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, {1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, { 1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, { 1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, { 1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, { 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 0, 0, 0}, { 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {2, -2, 0, 0, 0, 0, 0, 0}, { 2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, 0, -2, 0, 0, 0, 0, 0}, {2, 0, 0, -2, 0, 0, 0, 0}, {2, 0, 0, 2, 0, 0, 0, 0}, {2, 0, 2, 0, 0, 0, 0, 0}, { 2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { 2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {2, 2, 0, 0, 0, 0, 0, 0}, { 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, { 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, { 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, { 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, {2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, {2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, { 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[5], -1, -1, -1, 0, 0, 0, 0}, {-Sqrt[5], -1, -1, 1, 0, 0, 0, 0}, {-Sqrt[5], -1, 1, -1, 0, 0, 0, 0}, {-Sqrt[5], -1, 1, 1, 0, 0, 0, 0}, {-Sqrt[5], 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5], 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5], 1, -1, -1, 0, 0, 0, 0}, {-Sqrt[5], 1, -1, 1, 0, 0, 0, 0}, {- Sqrt[5], 1, 1, -1, 0, 0, 0, 0}, {-Sqrt[5], 1, 1, 1, 0, 0, 0, 0}, {-Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {- Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {- Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {- Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, { Sqrt[5], -1, -1, -1, 0, 0, 0, 0}, { Sqrt[5], -1, -1, 1, 0, 0, 0, 0}, { Sqrt[5], -1, 1, -1, 0, 0, 0, 0}, { Sqrt[5], -1, 1, 1, 0, 0, 0, 0}, { Sqrt[5], 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[5], 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[5], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[5], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[5], 1, -1, -1, 0, 0, 0, 0}, { Sqrt[5], 1, -1, 1, 0, 0, 0, 0}, { Sqrt[5], 1, 1, -1, 0, 0, 0, 0}, { Sqrt[5], 1, 1, 1, 0, 0, 0, 0}, { Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, { Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, { Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, { Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -1, 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 1, 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -1, 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 1, 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), -1, 0, 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 1, 0, 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), -1, 0, 0, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 1, 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -1, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 1, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), -1, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 1, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -1, 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 1, 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -1, 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 1, 0, 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -Sqrt[5], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -1, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 1, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[5], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -1, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 1, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -1, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 1, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -1, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 1, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -Sqrt[5], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -Sqrt[5], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[5], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, -1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, 1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -Sqrt[5], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[5], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, -1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, 1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, -2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, -2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -2, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 2, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -2, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 2, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -2, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 2, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -2, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 2, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8)), -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -1, (5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, -1, 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 1, 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, -1, 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 1, 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {-((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, -1, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 1, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, -1, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 1, 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}}, $CellContext`le8 = 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.02, $CellContext`polyTri[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]], Pattern[$CellContext`pm, Blank[]], Pattern[$CellContext`shape, Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], Translate[ Scale[{ PolyhedronData[$CellContext`shape, "Faces"]}, {1, 1, 1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], Polygon[{{First[$CellContext`coords] - $CellContext`scale, $CellContext`pm[ $CellContext`second[$CellContext`coords], $CellContext`scale/ Sqrt[3]]}, {First[$CellContext`coords] + $CellContext`scale, $CellContext`pm[ $CellContext`second[$CellContext`coords], $CellContext`scale/ Sqrt[3]]}, { First[$CellContext`coords], $CellContext`pm[ $CellContext`second[$CellContext`coords], (-2) \ ($CellContext`scale/Sqrt[3])]}}]], $CellContext`pm[ Pattern[$CellContext`n, Blank[]]] := Flatten[ Outer[List, Apply[Sequence, Table[{-1, 1}, {$CellContext`n}]]], $CellContext`n - 1], $CellContext`p3D = " 3D", $CellContext`p3DList = {" 2D", " 3D", " Stereo", " Anaglyph"}, Pattern[$CellContext`secondPattern, $CellContext`second[ Pattern[$CellContext`x, Blank[]]]] := Part[$CellContext`x, 2], $CellContext`utr[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]]] := $CellContext`polyTri[$CellContext`coords, \ $CellContext`scale, Plus, "Icosahedron"], $CellContext`squ[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], Translate[ Scale[{ PolyhedronData["Cube", "Faces"]}, {1, 1, 1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], $CellContext`poly2D[ 4, $CellContext`coords, $CellContext`scale]], $CellContext`poly2D[ Pattern[$CellContext`sides, Blank[]], Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]]] := Polygon[ Table[{First[$CellContext`coords] + $CellContext`scale Cos[2 Pi ($CellContext`i/$CellContext`sides)], \ $CellContext`second[$CellContext`coords] + $CellContext`scale Sin[2 Pi ($CellContext`i/$CellContext`sides)]}, \ {$CellContext`i, (-1)/2, $CellContext`sides - 1/2}]], $CellContext`i = {0, 0, 0, 0, 0, 1, 0, 0}, $CellContext`dia[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], Translate[ Scale[{ PolyhedronData["Octahedron", "Faces"]}, {1, 1, 1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], Polygon[{{First[$CellContext`coords] - $CellContext`scale, $CellContext`second[$CellContext`coords]}, { First[$CellContext`coords], \ $CellContext`second[$CellContext`coords] + $CellContext`scale Sqrt[2]}, { First[$CellContext`coords] + $CellContext`scale, $CellContext`second[$CellContext`coords]}, { First[$CellContext`coords], \ $CellContext`second[$CellContext`coords] - $CellContext`scale Sqrt[3]}}]], $CellContext`cir[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], Sphere[$CellContext`coords, $CellContext`scale], Disk[ Part[$CellContext`coords, Span[1, 2]], $CellContext`scale]], $CellContext`inv[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], Translate[ Scale[{ PolyhedronData["Dodecahedron", "Faces"]}, {1, 1, 1} ($CellContext`scale/2), {0, 0, 0}], $CellContext`coords], $CellContext`poly2D[ 5, $CellContext`coords, $CellContext`scale]], \ $CellContext`colorList = { "y", "o", "c", "m", "w", "r", "g", "b", "e", "k"}, $CellContext`auxPtCd := ($CellContext`H = Flatten[ AppendTo[$CellContext`H, Array[ 0& , $CellContext`dims - Length[$CellContext`H]]]]; $CellContext`V = Flatten[ AppendTo[$CellContext`V, Array[ 0& , $CellContext`dims - Length[$CellContext`V]]]]; $CellContext`Z = Flatten[ AppendTo[$CellContext`Z, Array[ 0& , $CellContext`dims - Length[$CellContext`Z]]]]), $CellContext`H = \ {-0.5418986532624118, -0.5418986532624118, 0, 0.5448835825396743, 0.08054772639440969, 0, 0.38529087617102353`, 0.27852830295289943`}, $CellContext`dims := Length[ Part[$CellContext`dl, $CellContext`ds]], $CellContext`V = { 0.5448835825396743, -0.5448835825396743, 0.38529087617102353`, 0, 0, -0.27852830295289943`, 0, 0}, $CellContext`Z = { 0, 0.5448835825396743, -0.5448835825396743, 0.38529087617102353`, -0.27852830295289943`, 0, 0, 0}, $CellContext`lbin = 256, $CellContext`e8bin = CompressedData[" 1:eJylkt2RwjAMhL08XRvXEiXQAP2/cQzez7FknQOYyRDL0v45v7f79XZpf0ut /bSx9OWL5Ip8Inf4oUjX8+XNwdMD28ayIR087YkjZiFBFXakUemE6gQ6VF8w hqCF137mDdMGN8pEe1LoVmApLAnqNjbEJWEisu0CMAERRxgYsXCBki2Y2pDj WMaQsdSmMT+dYcB4eIZDNCkQv3Ss8HOzd4Ge1LgmaaKIsri2pbxNMGUgKQjb KQwno9gMhqLdQmASRgxBQIojAOZY+GAkNBp7lGUQtblNbdmOamLVYbOAIeY1 HG6JXZoYIg3XUNBxHf/TFsGkQJATjCdZwUgpLxDXMrlAaZCMrdq6jI3iGDub NmydbA9C92MY/PCP9QCHvgWy "], $CellContext`lorg = 256, $CellContext`e8Orig = {{(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2, (-1)/2, (-1)/2, (-1)/2}, {1, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, { 0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 1}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, {1, 1, 0, 0, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0, 0}, {1, 0, 0, 1, 0, 0, 0, 0}, {1, 0, 0, 0, 1, 0, 0, 0}, {1, 0, 0, 0, 0, 1, 0, 0}, {1, 0, 0, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 0, 0, 1}, {0, 1, 1, 0, 0, 0, 0, 0}, {0, 1, 0, 1, 0, 0, 0, 0}, {0, 1, 0, 0, 1, 0, 0, 0}, {0, 1, 0, 0, 0, 1, 0, 0}, {0, 1, 0, 0, 0, 0, 1, 0}, {0, 1, 0, 0, 0, 0, 0, 1}, {0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 1, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 0, 0, 0, 0, 1}, {0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 0}, {0, 0, 0, 1, 0, 0, 1, 0}, {0, 0, 0, 1, 0, 0, 0, 1}, {0, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0}, {0, 0, 0, 0, 1, 0, 0, 1}, {0, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 0, 1, 1}, {0, 0, 0, 0, 0, 0, -1, -1}, {0, 0, 0, 0, 0, -1, 0, -1}, {0, 0, 0, 0, 0, -1, -1, 0}, {0, 0, 0, 0, -1, 0, 0, -1}, {0, 0, 0, 0, -1, 0, -1, 0}, {0, 0, 0, 0, -1, -1, 0, 0}, {0, 0, 0, -1, 0, 0, 0, -1}, {0, 0, 0, -1, 0, 0, -1, 0}, {0, 0, 0, -1, 0, -1, 0, 0}, {0, 0, 0, -1, -1, 0, 0, 0}, {0, 0, -1, 0, 0, 0, 0, -1}, {0, 0, -1, 0, 0, 0, -1, 0}, {0, 0, -1, 0, 0, -1, 0, 0}, {0, 0, -1, 0, -1, 0, 0, 0}, {0, 0, -1, -1, 0, 0, 0, 0}, {0, -1, 0, 0, 0, 0, 0, -1}, {0, -1, 0, 0, 0, 0, -1, 0}, {0, -1, 0, 0, 0, -1, 0, 0}, { 0, -1, 0, 0, -1, 0, 0, 0}, {0, -1, 0, -1, 0, 0, 0, 0}, {0, -1, -1, 0, 0, 0, 0, 0}, {-1, 0, 0, 0, 0, 0, 0, -1}, {-1, 0, 0, 0, 0, 0, -1, 0}, {-1, 0, 0, 0, 0, -1, 0, 0}, {-1, 0, 0, 0, -1, 0, 0, 0}, {-1, 0, 0, -1, 0, 0, 0, 0}, {-1, 0, -1, 0, 0, 0, 0, 0}, {-1, -1, 0, 0, 0, 0, 0, 0}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/ 2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/ 2, (-1)/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/ 2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/ 2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/ 2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/ 2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/ 2}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/ 2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/ 2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/ 2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/ 2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/ 2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/ 2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/ 2, 1/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1)/ 2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/ 2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {1, 0, 0, 0, 0, 0, 0, -1}, {1, 0, 0, 0, 0, 0, -1, 0}, {1, 0, 0, 0, 0, -1, 0, 0}, {1, 0, 0, 0, -1, 0, 0, 0}, {1, 0, 0, -1, 0, 0, 0, 0}, {1, 0, -1, 0, 0, 0, 0, 0}, { 1, -1, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, -1}, {0, 1, 0, 0, 0, 0, -1, 0}, {0, 1, 0, 0, 0, -1, 0, 0}, {0, 1, 0, 0, -1, 0, 0, 0}, {0, 1, 0, -1, 0, 0, 0, 0}, {0, 1, -1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, -1}, {0, 0, 1, 0, 0, 0, -1, 0}, {0, 0, 1, 0, 0, -1, 0, 0}, {0, 0, 1, 0, -1, 0, 0, 0}, {0, 0, 1, -1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, -1}, {0, 0, 0, 1, 0, 0, -1, 0}, {0, 0, 0, 1, 0, -1, 0, 0}, {0, 0, 0, 1, -1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, -1}, {0, 0, 0, 0, 1, 0, -1, 0}, {0, 0, 0, 0, 1, -1, 0, 0}, {0, 0, 0, 0, 0, 1, 0, -1}, {0, 0, 0, 0, 0, 1, -1, 0}, {0, 0, 0, 0, 0, 0, 1, -1}, {0, 0, 0, 0, 0, 0, -1, 1}, {0, 0, 0, 0, 0, -1, 1, 0}, {0, 0, 0, 0, 0, -1, 0, 1}, {0, 0, 0, 0, -1, 1, 0, 0}, {0, 0, 0, 0, -1, 0, 1, 0}, {0, 0, 0, 0, -1, 0, 0, 1}, {0, 0, 0, -1, 1, 0, 0, 0}, {0, 0, 0, -1, 0, 1, 0, 0}, {0, 0, 0, -1, 0, 0, 1, 0}, {0, 0, 0, -1, 0, 0, 0, 1}, {0, 0, -1, 1, 0, 0, 0, 0}, {0, 0, -1, 0, 1, 0, 0, 0}, {0, 0, -1, 0, 0, 1, 0, 0}, {0, 0, -1, 0, 0, 0, 1, 0}, {0, 0, -1, 0, 0, 0, 0, 1}, {0, -1, 1, 0, 0, 0, 0, 0}, {0, -1, 0, 1, 0, 0, 0, 0}, { 0, -1, 0, 0, 1, 0, 0, 0}, {0, -1, 0, 0, 0, 1, 0, 0}, {0, -1, 0, 0, 0, 0, 1, 0}, {0, -1, 0, 0, 0, 0, 0, 1}, {-1, 1, 0, 0, 0, 0, 0, 0}, {-1, 0, 1, 0, 0, 0, 0, 0}, {-1, 0, 0, 1, 0, 0, 0, 0}, {-1, 0, 0, 0, 1, 0, 0, 0}, {-1, 0, 0, 0, 0, 1, 0, 0}, {-1, 0, 0, 0, 0, 0, 1, 0}, {-1, 0, 0, 0, 0, 0, 0, 1}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/ 2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/ 2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 0, 0, 0, 0, 0, 0, 0, -1}, {0, 0, 0, 0, 0, 0, -1, 0}, {0, 0, 0, 0, 0, -1, 0, 0}, {0, 0, 0, 0, -1, 0, 0, 0}, {0, 0, 0, -1, 0, 0, 0, 0}, {0, 0, -1, 0, 0, 0, 0, 0}, {0, -1, 0, 0, 0, 0, 0, 0}, {-1, 0, 0, 0, 0, 0, 0, 0}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}}, $CellContext`lrch = 256, $CellContext`richter = {{0.238123, -0.732867, 0.426464, 0.473637, 0.041174, 0.193707, 0.435072, 0.391741}, {1, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 1}, {-0.318671, -0.551954, 0.385291, 0.667343, 0.121721, -0.572654, -0.147168, 0.132511}, { 0.435072, -0.391741, -0.188342, -0.061196, -0.238123, 0.732867, -0.196949, -0.606147}, {0.041174, -0.391741, -0.049781, 0.473637, 0.942084, -0.099017, 0.130329, 0.292724}, { 0.318671, -0.551954, 0.770582, 0., 0.556793, -0.180913, -0.188342, -0.061196}, {-0.147168, -0.452937, 0.385291, 0.081896, 0.318671, 0.033494, -0.385291, 0.865377}, { 0.238123, 0.214407, -0.703961, -0.63385, -0.359844, 0.160213, -0.049781, -0.473637}, {0.623414, -0.452937, 0.06662, 0.63385, 0.171503, -0.099017, -0.507012, 0.292724}, {-0.121721, -0.572654, -0.041174, -0.193707, 0.51562, 0.572654, -0.623414, -0.132511}, {-0.51562, -0.572654, -0.196949, 0.606147, 0.188342, 0.061196, 0.556793, -0.180913}, {-0.238123, -0.732867, 0.623414, 0.132511, -0.196949, -0.0207, 0.238123, -0.534833}, {-0.703961, -0.63385, -0.238123, -0.214407, 0.435072, -0.193707, -0.041174, -0.391741}, {-0.318671, 0.033494, -0.556793, -0.76636, 0.393899, 0., -0.476246, 0.}, { 0.06662, -0.63385, -0.080548, 0.76636, -0.58224, 0.061196, -0.080548, -0.180913}, {0.238123, -0.412441, -0.393899, 0., 0.304743, -0.099017, 0.900911, 0.292724}, {0.51562, -0.572654, 0.426464, -0.473637, -0.080548, -0.180913, 0.58224, -0.061196}, { 0.049781, -0.473637, 0.041174, -0.391741, -0.318671, 0.033494, 0.385291, 0.865377}, {0.435072, 0.193707, 0.359844, 0.160213, -0.277497, -0.160213, 0.820363, 0.473637}, { 0.820363, -0.473637, 0.277497, -0.160213, 0.465839, 0.099017, -0.26357, -0.292724}, {0.121721, -0.572654, -0.188342, 0.061196, -0.623414, -0.452937, -0.51562, 0.37462}, {-0.344117, -0.473637, 0.196949, -0.0207, -0.385291, -0.667343, -0.318671, -0.551954}, { 0.041174, 0.193707, -0.121721, -0.572654, -0.426464, -0.473637, -0.753743, \ -0.160213}, {0.426464, -0.473637, -0.51562, 0.572654, 0.238123, 0.534833, 0.196949, -0.0207}, {-0.06662, -0.63385, 0.623414, -0.452937, 0., 0.585447, 0., 0.198034}, {0.318671, 0.033494, -0.942084, -0.099017, -0.041174, -0.391741, -0.435072, 0.193707}, {0.703961, -0.63385, -0.304743, -0.099017, 0.147168, -0.452937, 0.121721, 0.37462}, {-0.147168, 0.132511, -0.556793, -0.180913, 0.196949, -0.606147, -0.238123, -0.732867}, {0.238123, -0.534833, 0.080548, -0.180913, 0.385291, -0.667343, 0.318671, -0.551954}, { 0.623414, 0.132511, 0.238123, 0.732867, -0.344117, 0.473637, 0.116402, 0.160213}, {-0.556793, 0.180913, 0.041174, -0.193707, -0.080548, 0.76636, 0.58224, 0.25923}, { 0.196949, 0.341126, -0.238123, -0.412441, 0.196949, -0.926573, -0.238123, 0.214407}, {-0.196949, 0.341126, -0.476246, 0., 0.900911, -0.292724, -0.304743, -0.099017}, {0.080548, 0.180913, -0.344117, 0.473637, -0.51562, 0.37462, 0.623414, 0.452937}, {-0.385291, 0.27993, -0.041174, -0.391741, 0.277497, -0.160213, -0.820363, 0.473637}, {0., 0.947274, -0.277497, -0.160213, -0.318671, 0.35392, 0.385291, -0.081896}, {0.385291, 0.27993, -0.359844, 0.160213, 0.130329, -0.292724, -0.942084, -0.099017}, {-0.359844, 0.160213, -0.385291, -0.27993, -0.556793, -0.76636, 0.188342, -0.25923}, {-0.753743, 0.160213, -0.623414, 0.132511, 0.147168, -0.132511, 0.121721, -0.572654}, {-0.476246, 0., 0.196949, -0.341126, -0.238123, -0.214407, -0.196949, -0.926573}, \ {-0.942084, 0.099017, 0.188342, 0.25923, 0.476246, 0., 0.393899, 0.}, {-0.556793, 0.76636, -0.130329, -0.292724, 0.435072, 0.193707, -0.041174, 0.391741}, {-0.171503, 0.099017, 0.507012, -0.292724, 0.623414, 0.132511, 0.51562, 0.572654}, {0., 0.320426, 0.820363, 0.473637, -0.26357, 0.292724, -0.465839, 0.099017}, {0.277497, 0.160213, 0., 0.947274, 0.121721, 0.37462, -0.147168, 0.452937}, {-0.188342, 0.25923, 0.385291, 0.865377, 0.359844, 0.160213, 0.049781, -0.473637}, {0.196949, 0.926573, 0.06662, 0.313424, 0.318671, 0.35392, -0.385291, -0.081896}, {0.58224, 0.25923, -0.703961, -0.313424, -0.507012, -0.292724, -0.171503, \ -0.099017}, {-0.116402, 0.160213, 0.238123, 0.534833, -0.58224, -0.25923, -0.080548, 0.76636}, {-0.58224, 0.25923, -0.623414, -0.452937, 0.344117, 0.473637, -0.116402, 0.160213}, {-0.196949, 0.926573, 0.304743, -0.099017, -0.385291, -0.27993, -0.318671, 0.231528}, { 0.188342, 0.25923, 0.942084, -0.099017, -0.196949, -0.341126, 0.238123, 0.412441}, {-0.304743, 0.099017, -0.196949, 0.926573, 0.041174, -0.391741, 0.435072, 0.193707}, {0.080548, 0.76636, 0.51562, -0.37462, 0., 0.198034, 0., -0.585447}, {0.465839, 0.099017, -0.121721, -0.37462, -0.188342, 0.25923, -0.556793, -0.76636}, {-0.385291, 0.865377, -0.130329, 0.292724, 0.238123, -0.412441, 0.196949, -0.341126}, {0., 0.198034, 0.507012, 0.292724, 0.426464, -0.473637, 0.753743, -0.160213}, { 0.385291, 0.865377, 0.188342, -0.25923, 0.385291, -0.27993, 0.318671, 0.231528}, {-0.385291, -0.865377, -0.188342, 0.25923, -0.385291, 0.27993, -0.318671, -0.231528}, { 0., -0.198034, -0.507012, -0.292724, -0.426464, 0.473637, -0.753743, 0.160213}, {0.385291, -0.865377, 0.130329, -0.292724, -0.238123, 0.412441, -0.196949, 0.341126}, {-0.465839, -0.099017, 0.121721, 0.37462, 0.188342, -0.25923, 0.556793, 0.76636}, {-0.080548, -0.76636, -0.51562, 0.37462, 0., -0.198034, 0., 0.585447}, {0.304743, -0.099017, 0.196949, -0.926573, -0.041174, 0.391741, -0.435072, -0.193707}, {-0.188342, -0.25923, -0.942084, 0.099017, 0.196949, 0.341126, -0.238123, -0.412441}, { 0.196949, -0.926573, -0.304743, 0.099017, 0.385291, 0.27993, 0.318671, -0.231528}, {0.58224, -0.25923, 0.623414, 0.452937, -0.344117, -0.473637, 0.116402, -0.160213}, { 0.116402, -0.160213, -0.238123, -0.534833, 0.58224, 0.25923, 0.080548, -0.76636}, {-0.58224, -0.25923, 0.703961, 0.313424, 0.507012, 0.292724, 0.171503, 0.099017}, {-0.196949, -0.926573, -0.06662, -0.313424, -0.318671, \ -0.35392, 0.385291, 0.081896}, { 0.188342, -0.25923, -0.385291, -0.865377, -0.359844, -0.160213, \ -0.049781, 0.473637}, {-0.277497, -0.160213, 0., -0.947274, -0.121721, -0.37462, 0.147168, -0.452937}, { 0., -0.320426, -0.820363, -0.473637, 0.26357, -0.292724, 0.465839, -0.099017}, {0.171503, -0.099017, -0.507012, 0.292724, -0.623414, -0.132511, -0.51562, -0.572654}, { 0.556793, -0.76636, 0.130329, 0.292724, -0.435072, -0.193707, 0.041174, -0.391741}, { 0.942084, -0.099017, -0.188342, -0.25923, -0.476246, 0., -0.393899, 0.}, {0.476246, 0., -0.196949, 0.341126, 0.238123, 0.214407, 0.196949, 0.926573}, {0.753743, -0.160213, 0.623414, -0.132511, -0.147168, 0.132511, -0.121721, 0.572654}, { 0.359844, -0.160213, 0.385291, 0.27993, 0.556793, 0.76636, -0.188342, 0.25923}, {-0.385291, -0.27993, 0.359844, -0.160213, -0.130329, 0.292724, 0.942084, 0.099017}, { 0., -0.947274, 0.277497, 0.160213, 0.318671, -0.35392, -0.385291, 0.081896}, {0.385291, -0.27993, 0.041174, 0.391741, -0.277497, 0.160213, 0.820363, -0.473637}, {-0.080548, -0.180913, 0.344117, -0.473637, 0.51562, -0.37462, -0.623414, -0.452937}, { 0.196949, -0.341126, 0.476246, 0., -0.900911, 0.292724, 0.304743, 0.099017}, {-0.196949, -0.341126, 0.238123, 0.412441, -0.196949, 0.926573, 0.238123, -0.214407}, {0.556793, -0.180913, -0.041174, 0.193707, 0.080548, -0.76636, -0.58224, -0.25923}, {-0.318671, -0.231528, \ -0.435072, 0.193707, 0.385291, -0.865377, 0.318671, 0.033494}, {-0.041174, -0.391741, 0.385291, -0.27993, 0., -0.947274, 0., -0.320426}, {-0.507012, -0.292724, 0., 0.198034, 0.238123, 0.732867, 0.196949, -0.606147}, {-0.121721, 0.37462, 0.318671, 0.35392, -0.196949, -0.926573, 0.238123, 0.214407}, { 0.26357, -0.292724, -0.318671, 0.35392, -0.385291, -0.865377, -0.318671, 0.033494}, {-0.435072, -0.391741, -0.147168, -0.132511, -0.703961, 0.313424, 0.06662, 0.63385}, {-0.900911, -0.292724, 0.238123, -0.214407, -0.465839, 0.099017, 0.26357, -0.292724}, {-0.51562, 0.37462, 0.080548, 0.76636, 0.507012, -0.292724, 0.171503, -0.099017}, {-0.130329, -0.292724, 0.556793, -0.76636, -0.318671, 0.231528, 0.385291, 0.27993}, {-0.623414, -0.452937, 0.58224, -0.25923, 0.080548, -0.180913, -0.58224, -0.061196}, {-0.238123, 0.214407, -0.900911, -0.292724, -0.121721, 0.37462, 0.147168, 0.452937}, {0.147168, -0.452937, 0.26357, 0.292724, -0.06662, -0.313424, -0.703961, -0.63385}, {-0.703961, 0.313424, 0.51562, 0.37462, -0.116402, -0.160213, -0.344117, 0.473637}, {-0.318671, -0.35392, -0.121721, 0.37462, -0.304743, -0.099017, -0.900911, 0.292724}, {0.06662, 0.313424, -0.196949, -0.926573, 0.26357, 0.292724, 0.465839, 0.099017}, {0.318671, -0.231528, -0.049781, -0.473637, 0.820363, -0.473637, 0.277497, -0.160213}, {-0.147168, -0.132511, 0.435072, 0.391741, -0.58224, 0.25923, -0.080548, -0.76636}, { 0.238123, 0.534833, 0.116402, -0.160213, -0.623414, 0.452937, -0.51562, -0.37462}, {0.623414, -0.132511, -0.753743, 0.160213, 0.435072, -0.391741, -0.041174, 0.193707}, { 0.130329, -0.292724, -0.385291, 0.865377, -0.196949, 0.341126, 0.238123, -0.412441}, {0.51562, 0.37462, 0.703961, -0.313424, 0.238123, -0.534833, 0.196949, 0.0207}, { 0.900911, -0.292724, -0.06662, 0.313424, -0.049781, 0.473637, 0.359844, 0.160213}, {0.049781, 0.473637, 0.318671, -0.231528, 0., -0.320426, 0., 0.947274}, { 0.435072, -0.193707, -0.318671, -0.231528, -0.188342, -0.25923, \ -0.556793, 0.76636}, {0.820363, 0.473637, 0., -0.320426, 0.147168, 0.452937, 0.121721, -0.37462}, {-0.26357, -0.292724, 0.147168, -0.452937, 0.900911, 0.292724, -0.304743, 0.099017}, {0.121721, 0.37462, 0.465839, 0.099017, 0.942084, 0.099017, 0.130329, -0.292724}, { 0.507012, -0.292724, 0.171503, -0.099017, -0.753743, -0.160213, 0.426464, 0.473637}, {-0.344117, 0.473637, -0.080548, -0.180913, -0.703961, -0.313424, 0.06662, -0.63385}, {0.041174, -0.193707, 0.556793, -0.180913, -0.51562, -0.37462, 0.623414, -0.452937}, { 0.426464, 0.473637, -0.238123, 0.732867, 0.556793, 0.180913, -0.188342, 0.061196}, {-0.06662, 0.313424, -0.900911, 0.292724, -0.318671, -0.231528, 0.385291, -0.27993}, { 0.318671, -0.35392, 0.26357, -0.292724, 0.130329, 0.292724, -0.942084, 0.099017}, {0.703961, 0.313424, 0.58224, 0.25923, 0.171503, 0.099017, -0.507012, -0.292724}, {0.238123, 0.412441, 0.196949, 0.341126, -0.06662, 0.313424, -0.703961, 0.63385}, {-0.238123, -0.412441, -0.196949, -0.341126, 0.06662, -0.313424, 0.703961, -0.63385}, {-0.703961, -0.313424, -0.58224, -0.25923, \ -0.171503, -0.099017, 0.507012, 0.292724}, {-0.318671, 0.35392, -0.26357, 0.292724, -0.130329, -0.292724, 0.942084, -0.099017}, { 0.06662, -0.313424, 0.900911, -0.292724, 0.318671, 0.231528, -0.385291, 0.27993}, {-0.426464, -0.473637, 0.238123, -0.732867, -0.556793, -0.180913, 0.188342, -0.061196}, {-0.041174, 0.193707, -0.556793, 0.180913, 0.51562, 0.37462, -0.623414, 0.452937}, {0.344117, -0.473637, 0.080548, 0.180913, 0.703961, 0.313424, -0.06662, 0.63385}, {-0.507012, 0.292724, -0.171503, 0.099017, 0.753743, 0.160213, -0.426464, -0.473637}, {-0.121721, -0.37462, -0.465839, \ -0.099017, -0.942084, -0.099017, -0.130329, 0.292724}, {0.26357, 0.292724, -0.147168, 0.452937, -0.900911, -0.292724, 0.304743, -0.099017}, {-0.820363, -0.473637, 0., 0.320426, -0.147168, -0.452937, -0.121721, 0.37462}, {-0.435072, 0.193707, 0.318671, 0.231528, 0.188342, 0.25923, 0.556793, -0.76636}, {-0.049781, -0.473637, -0.318671, 0.231528, 0., 0.320426, 0., -0.947274}, {-0.900911, 0.292724, 0.06662, -0.313424, 0.049781, -0.473637, -0.359844, -0.160213}, {-0.51562, -0.37462, \ -0.703961, 0.313424, -0.238123, 0.534833, -0.196949, -0.0207}, {-0.130329, 0.292724, 0.385291, -0.865377, 0.196949, -0.341126, -0.238123, 0.412441}, {-0.623414, 0.132511, 0.753743, -0.160213, -0.435072, 0.391741, 0.041174, -0.193707}, {-0.238123, -0.534833, -0.116402, 0.160213, 0.623414, -0.452937, 0.51562, 0.37462}, {0.147168, 0.132511, -0.435072, -0.391741, 0.58224, -0.25923, 0.080548, 0.76636}, {-0.318671, 0.231528, 0.049781, 0.473637, -0.820363, 0.473637, -0.277497, 0.160213}, {-0.06662, -0.313424, 0.196949, 0.926573, -0.26357, -0.292724, -0.465839, -0.099017}, {0.318671, 0.35392, 0.121721, -0.37462, 0.304743, 0.099017, 0.900911, -0.292724}, {0.703961, -0.313424, -0.51562, -0.37462, 0.116402, 0.160213, 0.344117, -0.473637}, {-0.147168, 0.452937, -0.26357, -0.292724, 0.06662, 0.313424, 0.703961, 0.63385}, {0.238123, -0.214407, 0.900911, 0.292724, 0.121721, -0.37462, -0.147168, -0.452937}, {0.623414, 0.452937, -0.58224, 0.25923, -0.080548, 0.180913, 0.58224, 0.061196}, {0.130329, 0.292724, -0.556793, 0.76636, 0.318671, -0.231528, -0.385291, -0.27993}, { 0.51562, -0.37462, -0.080548, -0.76636, -0.507012, 0.292724, -0.171503, 0.099017}, {0.900911, 0.292724, -0.238123, 0.214407, 0.465839, -0.099017, -0.26357, 0.292724}, {0.435072, 0.391741, 0.147168, 0.132511, 0.703961, -0.313424, -0.06662, -0.63385}, {-0.26357, 0.292724, 0.318671, -0.35392, 0.385291, 0.865377, 0.318671, -0.033494}, { 0.121721, -0.37462, -0.318671, -0.35392, 0.196949, 0.926573, -0.238123, -0.214407}, {0.507012, 0.292724, 0., -0.198034, -0.238123, -0.732867, -0.196949, 0.606147}, { 0.041174, 0.391741, -0.385291, 0.27993, 0., 0.947274, 0., 0.320426}, {0.318671, 0.231528, 0.435072, -0.193707, -0.385291, 0.865377, -0.318671, -0.033494}, {-0.385291, 0.081896, 0.465839, -0.099017, 0.703961, -0.63385, -0.06662, 0.313424}, { 0., -0.585447, 0.171503, 0.099017, -0.51562, 0.572654, 0.623414, -0.132511}, {0.385291, 0.081896, 0.147168, 0.452937, 0.556793, -0.76636, -0.188342, -0.25923}, {-0.080548, 0.180913, 0.238123, -0.534833, -0.318671, 0.551954, 0.385291, -0.667343}, { 0.196949, 0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 0.703961, -0.313424}, {-0.196949, 0.0207, -0.344117, -0.473637, -0.637341, 0., 0.770582, 0.}, { 0.556793, 0.180913, -0.147168, 0.132511, -0.753743, 0.160213, 0.426464, -0.473637}, {-0.942084, -0.099017, -0.318671, -0.033494, 0.049781, 0.473637, -0.359844, 0.160213}, {-0.556793, -0.76636, 0.318671, -0.033494, 0.238123, 0.412441, 0.196949, 0.341126}, {-0.171503, -0.099017, 0., -0.585447, 0.196949, 0.606147, -0.238123, 0.732867}, {-0.637341, 0., -0.385291, 0.667343, -0.435072, -0.391741, 0.041174, 0.193707}, {-0.359844, -0.160213, 0.435072, 0.193707, -0.820363, -0.473637, -0.277497, -0.160213}, {-0.753743, \ -0.160213, 0.196949, 0.606147, -0.116402, 0.160213, -0.344117, -0.473637}, {-0.188342, 0.061196, -0.121721, 0.572654, -0.06662, 0.63385, -0.703961, -0.313424}, { 0.196949, -0.606147, -0.51562, -0.572654, -0.121721, -0.572654, 0.147168, 0.132511}, {0.58224, 0.061196, 0.196949, 0.0207, 0.080548, 0.76636, -0.58224, 0.25923}, {0.116402, 0.160213, 0.58224, -0.061196, 0.318671, 0.551954, -0.385291, -0.667343}, { 0.393899, 0., 0.238123, -0.412441, -0.703961, -0.63385, 0.06662, 0.313424}, {-0.58224, 0.061196, 0.116402, 0.160213, -0.770582, 0., -0.637341, 0.}, {-0.196949, -0.606147, -0.753743, -0.160213, 0.58224, 0.061196, 0.080548, -0.180913}, {0.188342, 0.061196, 0.435072, -0.391741, -0.623414, 0.132511, -0.51562, 0.572654}, {-0.277497, 0.160213, 0.820363, -0.473637, -0.385291, -0.081896, -0.318671, -0.35392}, \ {-0.304743, -0.099017, -0.703961, 0.63385, -0.385291, 0.081896, -0.318671, 0.35392}, {0.080548, -0.76636, 0.06662, -0.63385, 0.196949, -0.0207, -0.238123, -0.534833}, {0.465839, -0.099017, 0.385291, -0.081896, 0.238123, -0.214407, 0.196949, -0.926573}, {-0.770582, 0., 0.318671, -0.551954, 0.147168, 0.132511, 0.121721, 0.572654}, {-0.385291, -0.667343, -0.318671, -0.551954, -0.041174, 0.193707, -0.435072, 0.391741}, {-0.385291, 0.667343, 0.637341, 0., 0.188342, -0.061196, 0.556793, 0.180913}, { 0.385291, -0.667343, -0.637341, 0., -0.188342, 0.061196, -0.556793, -0.180913}, {0.385291, 0.667343, 0.318671, 0.551954, 0.041174, -0.193707, 0.435072, -0.391741}, {0.770582, 0., -0.318671, 0.551954, -0.147168, -0.132511, -0.121721, -0.572654}, {-0.465839, 0.099017, -0.385291, 0.081896, -0.238123, 0.214407, -0.196949, 0.926573}, {-0.080548, 0.76636, -0.06662, 0.63385, -0.196949, 0.0207, 0.238123, 0.534833}, {0.304743, 0.099017, 0.703961, -0.63385, 0.385291, -0.081896, 0.318671, -0.35392}, { 0.277497, -0.160213, -0.820363, 0.473637, 0.385291, 0.081896, 0.318671, 0.35392}, {-0.188342, -0.061196, -0.435072, 0.391741, 0.623414, -0.132511, 0.51562, -0.572654}, {0.196949, 0.606147, 0.753743, 0.160213, -0.58224, -0.061196, -0.080548, 0.180913}, { 0.58224, -0.061196, -0.116402, -0.160213, 0.770582, 0., 0.637341, 0.}, {-0.393899, 0., -0.238123, 0.412441, 0.703961, 0.63385, -0.06662, -0.313424}, {-0.116402, -0.160213, -0.58224, 0.061196, -0.318671, -0.551954, 0.385291, 0.667343}, {-0.58224, -0.061196, -0.196949, -0.0207, -0.080548, \ -0.76636, 0.58224, -0.25923}, {-0.196949, 0.606147, 0.51562, 0.572654, 0.121721, 0.572654, -0.147168, -0.132511}, {0.188342, -0.061196, 0.121721, -0.572654, 0.06662, -0.63385, 0.703961, 0.313424}, { 0.753743, 0.160213, -0.196949, -0.606147, 0.116402, -0.160213, 0.344117, 0.473637}, {0.359844, 0.160213, -0.435072, -0.193707, 0.820363, 0.473637, 0.277497, 0.160213}, {0.637341, 0., 0.385291, -0.667343, 0.435072, 0.391741, -0.041174, -0.193707}, { 0.171503, 0.099017, 0., 0.585447, -0.196949, -0.606147, 0.238123, -0.732867}, {0.556793, 0.76636, -0.318671, 0.033494, -0.238123, -0.412441, -0.196949, -0.341126}, {0.942084, 0.099017, 0.318671, 0.033494, -0.049781, -0.473637, 0.359844, -0.160213}, {-0.556793, -0.180913, 0.147168, -0.132511, 0.753743, -0.160213, -0.426464, 0.473637}, {0.196949, -0.0207, 0.344117, 0.473637, 0.637341, 0., -0.770582, 0.}, {-0.196949, -0.0207, 0.58224, 0.061196, -0.06662, -0.63385, -0.703961, 0.313424}, { 0.080548, -0.180913, -0.238123, 0.534833, 0.318671, -0.551954, -0.385291, 0.667343}, {-0.385291, -0.081896, -0.147168, -0.452937, -0.556793, 0.76636, 0.188342, 0.25923}, {0., 0.585447, -0.171503, -0.099017, 0.51562, -0.572654, -0.623414, 0.132511}, { 0.385291, -0.081896, -0.465839, 0.099017, -0.703961, 0.63385, 0.06662, -0.313424}, {-0.623414, -0.132511, -0.238123, -0.732867, 0.344117, -0.473637, -0.116402, -0.160213}, {-0.238123, 0.534833, -0.080548, 0.180913, -0.385291, 0.667343, -0.318671, 0.551954}, {0.147168, -0.132511, 0.556793, 0.180913, -0.196949, 0.606147, 0.238123, 0.732867}, {-0.703961, 0.63385, 0.304743, 0.099017, -0.147168, 0.452937, -0.121721, -0.37462}, {-0.318671, -0.033494, 0.942084, 0.099017, 0.041174, 0.391741, 0.435072, -0.193707}, {0.06662, 0.63385, -0.623414, 0.452937, 0., -0.585447, 0., -0.198034}, {-0.426464, 0.473637, 0.51562, -0.572654, -0.238123, -0.534833, -0.196949, 0.0207}, {-0.041174, -0.193707, 0.121721, 0.572654, 0.426464, 0.473637, 0.753743, 0.160213}, {0.344117, 0.473637, -0.196949, 0.0207, 0.385291, 0.667343, 0.318671, 0.551954}, {-0.121721, 0.572654, 0.188342, -0.061196, 0.623414, 0.452937, 0.51562, -0.37462}, {-0.820363, 0.473637, -0.277497, 0.160213, -0.465839, -0.099017, 0.26357, 0.292724}, {-0.435072, -0.193707, -0.359844, -0.160213, 0.277497, 0.160213, -0.820363, -0.473637}, {-0.049781, 0.473637, -0.041174, 0.391741, 0.318671, -0.033494, -0.385291, -0.865377}, {-0.51562, 0.572654, -0.426464, 0.473637, 0.080548, 0.180913, -0.58224, 0.061196}, {-0.238123, 0.412441, 0.393899, 0., -0.304743, 0.099017, -0.900911, -0.292724}, {-0.06662, 0.63385, 0.080548, -0.76636, 0.58224, -0.061196, 0.080548, 0.180913}, { 0.318671, -0.033494, 0.556793, 0.76636, -0.393899, 0., 0.476246, 0.}, {0.703961, 0.63385, 0.238123, 0.214407, -0.435072, 0.193707, 0.041174, 0.391741}, {0.238123, 0.732867, -0.623414, -0.132511, 0.196949, 0.0207, -0.238123, 0.534833}, {0.51562, 0.572654, 0.196949, -0.606147, -0.188342, -0.061196, -0.556793, 0.180913}, { 0.121721, 0.572654, 0.041174, 0.193707, -0.51562, -0.572654, 0.623414, 0.132511}, {-0.623414, 0.452937, -0.06662, -0.63385, -0.171503, 0.099017, 0.507012, -0.292724}, {-0.238123, -0.214407, 0.703961, 0.63385, 0.359844, -0.160213, 0.049781, 0.473637}, {0.147168, 0.452937, -0.385291, -0.081896, -0.318671, -0.033494, 0.385291, -0.865377}, {-0.318671, 0.551954, -0.770582, 0., -0.556793, 0.180913, 0.188342, 0.061196}, {-0.041174, 0.391741, 0.049781, -0.473637, -0.942084, 0.099017, -0.130329, -0.292724}, {-0.435072, 0.391741, 0.188342, 0.061196, 0.238123, -0.732867, 0.196949, 0.606147}, {0.318671, 0.551954, -0.385291, -0.667343, -0.121721, 0.572654, 0.147168, -0.132511}, {0, 0, 0, 0, 0, 0, 0, -1}, {0, 0, 0, 0, 0, 0, -1, 0}, {0, 0, 0, 0, 0, -1, 0, 0}, {0, 0, 0, 0, -1, 0, 0, 0}, { 0, 0, 0, -1, 0, 0, 0, 0}, {0, 0, -1, 0, 0, 0, 0, 0}, {0, -1, 0, 0, 0, 0, 0, 0}, {-1, 0, 0, 0, 0, 0, 0, 0}, {-0.238123, 0.732867, -0.426464, -0.473637, -0.041174, -0.193707, -0.435072, \ -0.391741}}, $CellContext`lcel = 256, $CellContext`cell600 = {{0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {1, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 1}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8)), -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1}, {0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-1, -1, -1, -1, 1, 1, 1, 1}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-1, -1, 1, -1, 1, 1, -1, 1}, {0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8))}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {1, -1, -1, -1, -1, 1, 1, 1}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {1, -1, 1, -1, -1, 1, -1, 1}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1}, {0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1}, {-1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, -1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, -1}, { 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, { 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 2, 0, 0, 0, -2, 0, 0}, {0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, { 0, 0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 0, 0, 2, 0, 0, 0, -2}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {(5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, { 1, 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, { 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, 0, 0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, 0, 0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {0, 0, 0, -2, 0, 0, 0, 2}, { 1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, 0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, -2, 0, 0, 0, 2, 0, 0}, {0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 1}, {1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1}, { 0, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 1}, {-1, 1, -1, -1, 1, -1, 1, 1}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)}, {-1, 1, 1, -1, 1, -1, -1, 1}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8)), 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1}, {0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8))}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {(5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {1, 1, -1, -1, -1, -1, 1, 1}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)}, {1, 1, 1, -1, -1, -1, -1, 1}, {0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, { 0, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8), 0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8))}, {-1, -1, -1, 1, 1, 1, 1, -1}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {-1, -1, 1, 1, 1, 1, -1, -1}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1}, { 0, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 1}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)}, {1, -1, -1, 1, -1, 1, 1, -1}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {1, -1, 1, 1, -1, 1, -1, -1}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1}, {0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {(5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {(5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)}, { 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, (5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 1}, { 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-2, 0, 0, 0, 2, 0, 0, 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, { 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8))}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, { 1, 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, { 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 0, -2, 0, 0, 0, 2, 0}, {0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, 0, 2, 0, 0, 0, -2, 0}, {-1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {-1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, {(-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {(5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1}, {2, 0, 0, 0, -2, 0, 0, 0}, {1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, {1, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {-1, -((5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, -1}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, -1}, { 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, -1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, 2 Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, (-2) Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1}, { 0, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8), 0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8))}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -1}, {-1, 1, -1, 1, 1, -1, 1, -1}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {-1, 1, 1, 1, 1, -1, -1, -1}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/ 8)/(5/8 + Sqrt[5]/8)), 0}, {-((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 1, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, { 0, 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)}, {1, 1, -1, 1, -1, -1, 1, -1}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {1, 1, 1, 1, -1, -1, -1, -1}, {0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {(5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 1, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1}, { 0, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -1}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]}, {0, 0, 0, 0, 0, 0, 0, -1}, {0, 0, 0, 0, 0, 0, -1, 0}, {0, 0, 0, 0, 0, -1, 0, 0}, {0, 0, 0, 0, -1, 0, 0, 0}, {0, 0, 0, -1, 0, 0, 0, 0}, {0, 0, -1, 0, 0, 0, 0, 0}, {0, -1, 0, 0, 0, 0, 0, 0}, {-1, 0, 0, 0, 0, 0, 0, 0}, { 0, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8)]}}, $CellContext`e8b = {{{0, 0, 0, 0, 0, 0, 0, 0}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, (-1)/2, Sqrt[3]/2, 0, 0}, {0.900911, 0.292724, -0.238123, 0.214407, 0.465839, -0.099017, -0.26357, 0.292724}, {-2., 0., 0., 0., 2., 0., 0., 0.}, {-2, -2, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, -2, 0, 0, 0, 0, 0, 0}, 1, 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}, {1, 0, 0, 0, 0, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0, 0, 0}, {1, 0, 0, 0, 0, 0, 0, 0}, {1., 0., 0., 0., 0., 0., 0., 0.}, {-2, -1, (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {1., 0., 1., 0., 0., 0., 0., 0.}, {-2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 2, 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, 1, 0, 0, 0, 0, 0, 0}, {1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {0., 1., 0., 0., 0., 0., 0., 0.}, {-2, -1, (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, { 0.30901699437494745`, 0.9510565162951535, -0.8090169943749475, 0.5877852522924731, 0., 0., 0., 0.}, {-2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 3, 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, 1, 0, 0, 0, 0, 0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0., 0., 1., 0., 0., 0., 0., 0.}, {-2, -1, GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {-0.8090169943749475, 0.5877852522924731, 0.30901699437494745`, -0.9510565162951535, 0., 0., 0., 0.}, {-2, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 4, 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, 1, 0, 0, 0, 0}, {0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0., 0., 0., 1., 0., 0., 0., 0.}, {-2, -1, GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, {-0.8090169943749475, -0.5877852522924731, 0.30901699437494745`, 0.9510565162951535, 0., 0., 0., 0.}, {-2, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 5, 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, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0., 0., 0., 0., 1., 0., 0., 0.}, {-2, 0, -2, 0, 0, 0, 0, 0}, { 0.30901699437494745`, -0.9510565162951535, -0.8090169943749475, \ -0.5877852522924731, 0., 0., 0., 0.}, {-2, 0, -2, 0, 0, 0, 0, 0}, 6, 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, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0, 0, 0, 0, 0, 1, 0, 0}, {0., 0., 0., 0., 0., 1., 0., 0.}, {-2, 0, 0, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 0, 0, -2, 0, 0, 0, 0}, 7, 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, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[2], -(1/Sqrt[6])}, {0, 0, 0, 0, 0, 0, 1, 0}, {0., 0., 0., 0., 0., 0., 1., 0.}, {-2, 0, 0, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 0, 0, 2, 0, 0, 0, 0}, 8, 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}, {0, 0, 0, 0, 0, 0, 0, 1}, {0, 0, 0, 0, 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0, 0, 0, 0, 0, 0, 0, 1}, {0., 0., 0., 0., 0., 0., 0., 1.}, {-2, 0, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 0, 2, 0, 0, 0, 0, 0}, 9, 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.}, {-2, 1, (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 10, 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.}, {-2, 1, (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 11, 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.}, {-2, 1, GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 12, 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.}, {-2, 1, GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 13, 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}, {-2, 2, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, 2, 0, 0, 0, 0, 0, 0}, 14, 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}, {-2, (-1)/GoldenRatio, -GoldenRatio, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 15, 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}, {-2, (-1)/GoldenRatio, -GoldenRatio, 1, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 16, 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, (-1)/GoldenRatio, GoldenRatio, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 17, 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, (-1)/GoldenRatio, GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 18, 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, GoldenRatio^(-1), -GoldenRatio, -1, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 19, 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, GoldenRatio^(-1), -GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 20, 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, GoldenRatio^(-1), GoldenRatio, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 21, 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}, {-2, GoldenRatio^(-1), GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 22, 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, -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, -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, -GoldenRatio, 1, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 25, 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, -GoldenRatio, 1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 26, 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.}, {-2, GoldenRatio, -1, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 27, 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, GoldenRatio, -1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 28, 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, GoldenRatio, 1, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 29, 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, GoldenRatio, 1, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 30, 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}, {-1, -2, -GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 31, 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}, {-1, -2, -GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 32, 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}, {-1, -2, GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 33, 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}, {-1, -2, GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 34, 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.}, {-1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, 35, 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.}, {-1, -1, -1, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, -1, Sqrt[5], 0, 0, 0, 0}, 36, 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.}, {-1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, 37, 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.}, {-1, -1, 1, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, 1, Sqrt[5], 0, 0, 0, 0}, 38, 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, 0, 1, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {-0.26357, -0.292724, 0.147168, -0.452937, 0.900911, 0.292724, -0.304743, 0.099017}, {0., 1., -0.618034, -1.618034, 0., -1., 0.618034, 1.618034}, {-1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, 39, 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}, {{1, 1, 0, 0, 1, 0, 0, 0}, {1, 0, 0, 1, 0, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, { 0.116402, 0.160213, 0.58224, -0.061196, 0.318671, 0.551954, -0.385291, -0.667343}, {0., 1., -0.618034, 1.618034, 0., -1., 0.618034, -1.618034}, {-1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, 40, 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}, {{1, 1, 0, 0, 0, 1, 0, 0}, {1, 0, 0, 0, 1, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 1, 0, 0, 0}, {0.385291, 0.865377, 0.188342, -0.25923, 0.385291, -0.27993, 0.318671, 0.231528}, {0., 1., 0.618034, -1.618034, 0., -1., -0.618034, 1.618034}, {-1, -1, Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, Sqrt[5], -1, 0, 0, 0, 0}, 41, 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}, {{1, 1, 0, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 1, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[ 6])}, {-0.385291, -0.667343, -0.318671, -0.551954, -0.041174, 0.193707, -0.435072, 0.391741}, {0., 1., 0.618034, 1.618034, 0., -1., -0.618034, -1.618034}, {-1, -1, Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -1, Sqrt[5], 1, 0, 0, 0, 0}, 42, 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}, {{1, 1, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.318671, -0.551954, 0.385291, 0.667343, 0.121721, -0.572654, -0.147168, 0.132511}, {0., 2., 0., 0., 0., -2., 0., 0.}, {-1, 0, (-1) GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 43, 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}, {{1, 0, 1, 1, 0, 0, 0, 0}, {1, 0, 0, 0, 0, 0, 0, 1}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.130329, 0.292724, -0.556793, 0.76636, 0.318671, -0.231528, -0.385291, -0.27993}, { 0., -0.618034, -1.618034, -1., 0., 0.618034, 1.618034, 1.}, {-1, 0, (-1) GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 44, 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}, {{1, 0, 1, 0, 1, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, { 0.238123, 0.534833, 0.116402, -0.160213, -0.623414, 0.452937, -0.51562, -0.37462}, {0., -0.618034, -1.618034, 1., 0., 0.618034, 1.618034, -1.}, {-1, 0, GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 45, 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}, {{1, 0, 1, 0, 0, 1, 0, 0}, {0, 1, 0, 1, 0, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {-0.238123, -0.412441, -0.196949, -0.341126, 0.06662, -0.313424, 0.703961, -0.63385}, {0., -0.618034, 1.618034, -1., 0., 0.618034, -1.618034, 1.}, {-1, 0, GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 46, 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}, {{1, 0, 1, 0, 0, 0, 1, 0}, {0, 1, 0, 0, 1, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 1, 0, 0, 0}, {-0.196949, -0.341126, 0.238123, 0.412441, -0.196949, 0.926573, 0.238123, -0.214407}, { 0., -0.618034, 1.618034, 1., 0., 0.618034, -1.618034, -1.}, {-1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, 47, 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}, {{1, 0, 1, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 1, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.080548, 0.180913, -0.344117, 0.473637, -0.51562, 0.37462, 0.623414, 0.452937}, {0., 0.618034, -1.618034, -1., 0., -0.618034, 1.618034, 1.}, {-1, 1, -1, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, -1, Sqrt[5], 0, 0, 0, 0}, 48, 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}, {{1, 0, 0, 1, 1, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 1, 0}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.196949, 0.926573, 0.06662, 0.313424, 0.318671, 0.35392, -0.385291, -0.081896}, {0., 0.618034, -1.618034, 1., 0., -0.618034, 1.618034, -1.}, {-1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, 49, 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}, {{1, 0, 0, 1, 0, 1, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 1}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {-0.238123, -0.732867, 0.623414, 0.132511, -0.196949, -0.0207, 0.238123, -0.534833}, {0., 0.618034, 1.618034, -1., 0., -0.618034, -1.618034, 1.}, {-1, 1, 1, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, 1, Sqrt[5], 0, 0, 0, 0}, 50, 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}, {{1, 0, 0, 1, 0, 0, 1, 0}, {0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, Sqrt[2], 0, 0, 0, 0, 0}, {-0.196949, -0.606147, -0.753743, -0.160213, 0.58224, 0.061196, 0.080548, -0.180913}, {0., 0.618034, 1.618034, 1., 0., -0.618034, -1.618034, -1.}, {-1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, 51, 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, 0, 0, 0, 1}, {0, 0, 1, 0, 1, 0, 0, 0}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 1, 0, 0, 0}, {0.06662, 0.313424, -0.196949, -0.926573, 0.26357, 0.292724, 0.465839, 0.099017}, {0., -1.618034, -1., -0.618034, 0., 1.618034, 1., 0.618034}, {-1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, 52, 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, 0, 0, 1, 1, 0, 0}, {0, 0, 1, 0, 0, 1, 0, 0}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.121721, 0.572654, 0.041174, 0.193707, -0.51562, -0.572654, 0.623414, 0.132511}, {0., -1.618034, -1., 0.618034, 0., 1.618034, 1., -0.618034}, {-1, 1, Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, Sqrt[5], -1, 0, 0, 0, 0}, 53, 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, 0, 0, 1, 0, 1, 0}, {0, 0, 1, 0, 0, 0, 1, 0}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.147168, -0.452937, 0.385291, 0.081896, 0.318671, 0.033494, -0.385291, 0.865377}, {0., -1.618034, 1., -0.618034, 0., 1.618034, -1., 0.618034}, {-1, 1, Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 1, Sqrt[5], 1, 0, 0, 0, 0}, 54, 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, 0, 0, 1, 0, 0, 1}, {0, 0, 1, 0, 0, 0, 0, 1}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 0, Sqrt[ 2/3]}, {-0.121721, -0.37462, -0.465839, -0.099017, -0.942084, \ -0.099017, -0.130329, 0.292724}, {0., -1.618034, 1., 0.618034, 0., 1.618034, -1., -0.618034}, {-1, 2, -GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 55, 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, 0, 0, 0, 1, 1, 0}, {0, 0, 0, 1, 1, 0, 0, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 1, 0, 0, 0}, {0.041174, 0.193707, -0.121721, -0.572654, -0.426464, -0.473637, -0.753743, \ -0.160213}, {0., 1.618034, -1., -0.618034, 0., -1.618034, 1., 0.618034}, {-1, 2, -GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 56, 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, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 1, 0, 1, 0, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0., 0.947274, -0.277497, -0.160213, -0.318671, 0.35392, 0.385291, -0.081896}, {0., 1.618034, -1., 0.618034, 0., -1.618034, 1., -0.618034}, {-1, 2, GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 57, 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, 0, 0, 0, 0, 0, 1, 1}, {0, 0, 0, 1, 0, 0, 1, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.080548, -0.76636, -0.51562, 0.37462, 0., -0.198034, 0., 0.585447}, {0., 1.618034, 1., -0.618034, 0., -1.618034, -1., 0.618034}, {-1, 2, GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 58, 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}, {{0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 1}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {-0.06662, -0.63385, 0.623414, -0.452937, 0., 0.585447, 0., 0.198034}, {0., 1.618034, 1., 0.618034, 0., -1.618034, -1., -0.618034}, {-1, -Sqrt[5], -1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[5], -1, -1, 0, 0, 0, 0}, 59, 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}, {{0, 1, 1, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0}, { 0, 0, 0, 0, 1, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0., 0.320426, 0.820363, 0.473637, -0.26357, 0.292724, -0.465839, 0.099017}, {1., -1., -1., -1., -1., 1., 1., 1.}, {-1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, 60, 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}, {{0, 1, 1, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0}, { 0, 0, 0, 0, 1, -(1/Sqrt[3]), 1/Sqrt[2], -(1/Sqrt[6])}, {0., 0.585447, -0.171503, -0.099017, 0.51562, -0.572654, -0.623414, 0.132511}, {1., -1., -1., 1., -1., 1., 1., -1.}, {-1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, 61, 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}, {{0, 1, 1, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 1, 0, 0, 1}, { 0, 0, 0, 0, 1, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {-0.049781, -0.473637, -0.318671, 0.231528, 0., 0.320426, 0., -0.947274}, {1., -1., 1., -1., -1., 1., -1., 1.}, {-1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, 62, 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}, {{0, 1, 1, 0, 0, 0, 0, 1}, {0, 0, 0, 0, 0, 1, 1, 0}, { 0, 0, 0, 0, 0, (-2)/Sqrt[3], 0, - Sqrt[2/3]}, {-0.041174, -0.391741, 0.385291, -0.27993, 0., -0.947274, 0., -0.320426}, {1., -1., 1., 1., -1., 1., -1., -1.}, {-1, Sqrt[5], -1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[5], -1, -1, 0, 0, 0, 0}, 63, 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}, {{0, 1, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 1}, { 0, 0, 0, 0, 0, (-2)/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, {0., 0.198034, 0.507012, 0.292724, 0.426464, -0.473637, 0.753743, -0.160213}, {1., 0., -1.618034, -0.618034, -1., 0., 1.618034, 0.618034}, {-1, Sqrt[5], -1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[5], -1, 1, 0, 0, 0, 0}, 64, 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}, {{0, 1, 0, 1, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 1}, { 0, 0, 0, 0, 0, (-2)/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, {-0.196949, 0.926573, 0.304743, -0.099017, -0.385291, -0.27993, -0.318671, 0.231528}, {1., 0., -1.618034, 0.618034, -1., 0., 1.618034, -0.618034}, {-1, Sqrt[5], 1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[5], 1, -1, 0, 0, 0, 0}, 65, 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}, {{0, 1, 0, 1, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, -1, -1}, { 0, 0, 0, 0, 0, 2/Sqrt[3], -(1/Sqrt[2]), -(1/Sqrt[6])}, { 0.080548, -0.76636, 0.06662, -0.63385, 0.196949, -0.0207, -0.238123, -0.534833}, {1., 0., 1.618034, -0.618034, -1., 0., -1.618034, 0.618034}, {-1, Sqrt[5], 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[5], 1, 1, 0, 0, 0, 0}, 66, 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, 1, 0, 1, 0, 0, 0, 1}, {0, 0, 0, 0, 0, -1, 0, -1}, { 0, 0, 0, 0, 0, 2/Sqrt[3], 1/Sqrt[2], -(1/Sqrt[6])}, { 0.06662, -0.63385, -0.080548, 0.76636, -0.58224, 0.061196, -0.080548, -0.180913}, {1., 0., 1.618034, 0.618034, -1., 0., -1.618034, -0.618034}, {-1, (-1) GoldenRatio^(-2), - GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, 67, 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, 1, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 0, 0, -1, -1, 0}, { 0, 0, 0, 0, 0, 2/Sqrt[3], 0, Sqrt[2/3]}, {-0.06662, 0.313424, -0.900911, 0.292724, -0.318671, -0.231528, 0.385291, -0.27993}, {1., 1., -1., -1., -1., -1., 1., 1.}, {-1, (-1) GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, 68, 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, 1, 0, 0, 1, 0, 1, 0}, {0, 0, 0, 0, -1, 0, 0, -1}, { 0, 0, 0, 0, -1, 1/Sqrt[3], 0, -Sqrt[2/3]}, {-0.121721, 0.572654, 0.188342, -0.061196, 0.623414, 0.452937, 0.51562, -0.37462}, {1., 1., -1., 1., -1., -1., 1., -1.}, {-1, GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, 69, 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, 1, 0, 0, 1, 0, 0, 1}, {0, 0, 0, 0, -1, 0, -1, 0}, { 0, 0, 0, 0, -1, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, { 0.049781, -0.473637, 0.041174, -0.391741, -0.318671, 0.033494, 0.385291, 0.865377}, {1., 1., 1., -1., -1., -1., -1., 1.}, {-1, GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, 70, 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, 1, 0, 0, 0, 1, 1, 0}, {0, 0, 0, 0, -1, -1, 0, 0}, { 0, 0, 0, 0, -1, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, { 0.041174, -0.391741, -0.049781, 0.473637, 0.942084, -0.099017, 0.130329, 0.292724}, {1., 1., 1., 1., -1., -1., -1., -1.}, {-1, (-1)/GoldenRatio, -2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 71, 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, 1, 0, 0, 0, 1, 0, 1}, {0, 0, 0, -1, 0, 0, 0, -1}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.041174, 0.193707, -0.556793, 0.180913, 0.51562, 0.37462, -0.623414, 0.452937}, {1., -0.618034, 0., -1.618034, -1., 0.618034, 0., 1.618034}, {-1, (-1)/GoldenRatio, -2, GoldenRatio, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 72, 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, 1, 0, 0, 0, 0, 1, 1}, {0, 0, 0, -1, 0, 0, -1, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/ Sqrt[6]}, {-0.385291, 0.865377, -0.130329, 0.292724, 0.238123, -0.412441, 0.196949, -0.341126}, {1., -0.618034, 0., 1.618034, -1., 0.618034, 0., -1.618034}, {-1, (-1)/GoldenRatio, 2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 73, 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, 1, 0, 0, 0}, {0, 0, 0, -1, 0, -1, 0, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[ 6]}, {0.238123, -0.732867, 0.426464, 0.473637, 0.041174, 0.193707, 0.435072, 0.391741}, {1., 0.618034, 0., -1.618034, -1., -0.618034, 0., 1.618034}, {-1, (-1)/GoldenRatio, 2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 74, 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, 1, 0, 0}, {0, 0, 0, -1, -1, 0, 0, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), -1, 0, 0, 0}, { 0.196949, -0.606147, -0.51562, -0.572654, -0.121721, -0.572654, 0.147168, 0.132511}, {1., 0.618034, 0., 1.618034, -1., -0.618034, 0., -1.618034}, {-1, GoldenRatio^(-1), -2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 75, 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, 0, 1, 0}, {0, 0, -1, 0, 0, 0, 0, -1}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.130329, 0.292724, 0.385291, -0.865377, 0.196949, -0.341126, -0.238123, 0.412441}, { 1., -1.618034, -0.618034, 0., -1., 1.618034, 0.618034, 0.}, {-1, GoldenRatio^(-1), -2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 76, 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, 0, 1, 1, 0, 0, 0, 1}, {0, 0, -1, 0, 0, 0, -1, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.238123, 0.534833, -0.080548, 0.180913, -0.385291, 0.667343, -0.318671, 0.551954}, {1., -1.618034, 0.618034, 0., -1., 1.618034, -0.618034, 0.}, {-1, GoldenRatio^(-1), 2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 77, 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, 0, 1, 0, 1, 1, 0, 0}, {0, 0, -1, 0, 0, -1, 0, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[ 6]}, {0.147168, -0.452937, 0.26357, 0.292724, -0.06662, -0.313424, -0.703961, -0.63385}, {1., 1.618034, -0.618034, 0., -1., -1.618034, 0.618034, 0.}, {-1, GoldenRatio^(-1), 2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 78, 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, 0, 1, 0, 1, 0, 1, 0}, {0, 0, -1, 0, -1, 0, 0, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], -1, 0, 0, 0}, { 0.121721, -0.37462, -0.318671, -0.35392, 0.196949, 0.926573, -0.238123, -0.214407}, {1., 1.618034, 0.618034, 0., -1., -1.618034, -0.618034, 0.}, {-1, -GoldenRatio, (-1)/GoldenRatio, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 79, 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, 0, 1, 0, 1, 0, 0, 1}, {0, 0, -1, -1, 0, 0, 0, 0}, { 0, 0, -Sqrt[2], 0, 0, 0, 0, 0}, {-0.080548, 0.180913, 0.238123, -0.534833, -0.318671, 0.551954, 0.385291, -0.667343}, { 2., 0., 0., 0., -2., 0., 0., 0.}, {-1, -GoldenRatio, (-1)/GoldenRatio, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 80, 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, 0, 1, 0, 0, 1, 1, 0}, {0, -1, 0, 0, 0, 0, 0, -1}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.556793, 0.76636, -0.130329, -0.292724, 0.435072, 0.193707, -0.041174, 0.391741}, {-0.618034, -1., -1.618034, 0., 0.618034, 1., 1.618034, 0.}, {-1, -GoldenRatio, GoldenRatio^(-1), -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 81, 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}, {{0, 0, 1, 0, 0, 1, 0, 1}, {0, -1, 0, 0, 0, 0, -1, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, {0.385291, -0.667343, -0.637341, 0., -0.188342, 0.061196, -0.556793, -0.180913}, {-0.618034, -1., 1.618034, 0., 0.618034, 1., -1.618034, 0.}, {-1, -GoldenRatio, GoldenRatio^(-1), 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 82, 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}, {{0, 0, 1, 0, 0, 0, 1, 1}, {0, -1, 0, 0, 0, -1, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/ Sqrt[6]}, {0.318671, -0.551954, 0.770582, 0., 0.556793, -0.180913, -0.188342, -0.061196}, {-0.618034, 0., -1., -1.618034, 0.618034, 0., 1., 1.618034}, {-1, GoldenRatio, (-1)/GoldenRatio, -2, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 83, 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}, {{0, 0, 0, 1, 1, 1, 0, 0}, {0, -1, 0, 0, -1, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, -1, 0, 0, 0}, {-0.188342, 0.25923, 0.385291, 0.865377, 0.359844, 0.160213, 0.049781, -0.473637}, {-0.618034, 0., -1., 1.618034, 0.618034, 0., 1., -1.618034}, {-1, GoldenRatio, (-1)/GoldenRatio, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 84, 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}, {{0, 0, 0, 1, 1, 0, 1, 0}, {0, -1, 0, -1, 0, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0}, {-0.344117, 0.473637, -0.080548, -0.180913, -0.703961, -0.313424, 0.06662, -0.63385}, {-0.618034, 0., 1., -1.618034, 0.618034, 0., -1., 1.618034}, {-1, GoldenRatio, GoldenRatio^(-1), -2, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 85, 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}, {{0, 0, 0, 1, 1, 0, 0, 1}, {0, -1, -1, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0}, {0.238123, -0.412441, -0.393899, 0., 0.304743, -0.099017, 0.900911, 0.292724}, {-0.618034, 0., 1., 1.618034, 0.618034, 0., -1., -1.618034}, {-1, GoldenRatio, GoldenRatio^(-1), 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 86, 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}, {{0, 0, 0, 1, 0, 1, 1, 0}, {-1, 0, 0, 0, 0, 0, 0, -1}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {0.196949, -0.341126, 0.476246, 0., -0.900911, 0.292724, 0.304743, 0.099017}, {-0.618034, 1., -1.618034, 0., 0.618034, -1., 1.618034, 0.}, {-1, -GoldenRatio^2, 0, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 87, 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}, {{0, 0, 0, 1, 0, 1, 0, 1}, {-1, 0, 0, 0, 0, 0, -1, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/ Sqrt[6]}, {-0.116402, 0.160213, 0.238123, 0.534833, -0.58224, -0.25923, -0.080548, 0.76636}, {-0.618034, 1., 1.618034, 0., 0.618034, -1., -1.618034, 0.}, {-1, -GoldenRatio^2, 0, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {-1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 88, 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}, {{0, 0, 0, 1, 0, 0, 1, 1}, {-1, 0, 0, 0, 0, -1, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/ Sqrt[6]}, {-0.703961, 0.63385, 0.304743, 0.099017, -0.147168, 0.452937, -0.121721, -0.37462}, {-0.618034, -1.618034, 0., -1., 0.618034, 1.618034, 0., 1.}, {-1, GoldenRatio^2, 0, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 89, 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}, {{0, 0, 0, 0, 1, 1, 1, 0}, {-1, 0, 0, 0, -1, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, -1, 0, 0, 0}, { 0.51562, -0.572654, 0.426464, -0.473637, -0.080548, -0.180913, 0.58224, -0.061196}, {-0.618034, -1.618034, 0., 1., 0.618034, 1.618034, 0., -1.}, {-1, GoldenRatio^2, 0, GoldenRatio^(-2), 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {-1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 90, 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}, {{0, 0, 0, 0, 1, 1, 0, 1}, {-1, 0, 0, -1, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0}, {0.426464, -0.473637, -0.51562, 0.572654, 0.238123, 0.534833, 0.196949, -0.0207}, {-0.618034, 1.618034, 0., -1., 0.618034, -1.618034, 0., 1.}, {0, -2, -2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, -2, -2, 0, 0, 0, 0, 0}, 91, 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}, {{0, 0, 0, 0, 1, 0, 1, 1}, {-1, 0, -1, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0}, {-0.238123, 0.214407, -0.900911, -0.292724, -0.121721, 0.37462, 0.147168, 0.452937}, {-0.618034, 1.618034, 0., 1., 0.618034, -1.618034, 0., -1.}, {0, -2, 0, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, -2, 0, -2, 0, 0, 0, 0}, 92, 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}, {{0, 0, 0, 0, 0, 1, 1, 1}, {-1, -1, 0, 0, 0, 0, 0, 0}, {-Sqrt[2], 0, 0, 0, 0, 0, 0, 0}, {-0.435072, 0.391741, 0.188342, 0.061196, 0.238123, -0.732867, 0.196949, 0.606147}, { 0.618034, -1., -1.618034, 0., -0.618034, 1., 1.618034, 0.}, { 0, -2, 0, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, -2, 0, 2, 0, 0, 0, 0}, 93, 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, 1, 1, 0, 0, 0, 0}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, (-1)/2, Sqrt[3]/2, 0, 0}, { 0.318671, -0.35392, 0.26357, -0.292724, 0.130329, 0.292724, -0.942084, 0.099017}, {0.618034, -1., 1.618034, 0., -0.618034, 1., -1.618034, 0.}, {0, -2, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, -2, 2, 0, 0, 0, 0, 0}, 94, 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}, { 0, -1, -GoldenRatio^2, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8)), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 95, 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}, { 0, -1, -GoldenRatio^2, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 96, 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}, { 0, -1, GoldenRatio^2, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 97, 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}, { 0, -1, GoldenRatio^2, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 98, 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.}, {0, 0, -2, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, -2, -2, 0, 0, 0, 0}, 99, 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.}, {0, 0, -2, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, -2, 2, 0, 0, 0, 0}, 100, 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.}, {0, 0, 2, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 2, -2, 0, 0, 0, 0}, 101, 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.}, {0, 0, 2, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 2, 2, 0, 0, 0, 0}, 102, 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.}, { 0, 1, -GoldenRatio^2, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8)), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 103, 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.}, { 0, 1, -GoldenRatio^2, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 104, 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}, { 0, 1, GoldenRatio^2, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 105, 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}, { 0, 1, GoldenRatio^2, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 106, 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.}, {0, 2, -2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 2, -2, 0, 0, 0, 0, 0}, 107, 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.}, {0, 2, 0, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 2, 0, -2, 0, 0, 0, 0}, 108, 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.}, {0, 2, 0, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 2, 0, 2, 0, 0, 0, 0}, 109, 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.}, {0, 2, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 2, 2, 0, 0, 0, 0, 0}, 110, 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}, { 0, -Sqrt[5], (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 111, 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}, { 0, -Sqrt[5], (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 112, 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.}, {0, -Sqrt[5], GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {0, -Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 113, 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.}, {0, -Sqrt[5], GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {0, -Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 114, 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.}, {0, Sqrt[5], (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 115, 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.}, {0, Sqrt[5], (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 116, 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}, {0, Sqrt[5], GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 117, 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}, {0, Sqrt[5], GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 118, 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.}, { 0, (-1) GoldenRatio^(-2), -1, -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 119, 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.}, { 0, (-1) GoldenRatio^(-2), -1, GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 120, 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.}, { 0, (-1) GoldenRatio^(-2), 1, -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 121, 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.}, { 0, (-1) GoldenRatio^(-2), 1, GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 122, 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}, { 0, GoldenRatio^(-2), -1, -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 123, 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}, { 0, GoldenRatio^(-2), -1, GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 124, 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.}, { 0, GoldenRatio^(-2), 1, -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 125, 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.}, { 0, GoldenRatio^(-2), 1, GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 126, 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.}, { 0, (-1)/GoldenRatio, -GoldenRatio, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, 127, 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.}, { 0, (-1)/GoldenRatio, -GoldenRatio, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, 128, 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.}, { 0, (-1)/GoldenRatio, GoldenRatio, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, 129, 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}, {0, (-1)/GoldenRatio, GoldenRatio, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, 130, 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}, { 0, GoldenRatio^(-1), -GoldenRatio, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, 131, 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}, { 0, GoldenRatio^(-1), -GoldenRatio, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, 132, 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}, { 0, GoldenRatio^(-1), GoldenRatio, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], 0, 0, 0, 0}, 133, 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`}, {0, GoldenRatio^(-1), GoldenRatio, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], 0, 0, 0, 0}, 134, 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`}, { 0, -GoldenRatio, -Sqrt[5], (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 135, 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`}, { 0, -GoldenRatio, -Sqrt[5], GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 136, 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`}, {0, -GoldenRatio, Sqrt[5], (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 137, 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}, {0, -GoldenRatio, Sqrt[5], GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 138, 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}, { 0, GoldenRatio, -Sqrt[5], (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 139, 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}, { 0, GoldenRatio, -Sqrt[5], GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 140, 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}, { 0, GoldenRatio, Sqrt[5], (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 141, 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.}, {0, GoldenRatio, Sqrt[5], GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[5], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 142, 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.}, { 0, -GoldenRatio^2, (-1) GoldenRatio^(-2), -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), -1, 0, 0, 0, 0}, 143, 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.}, { 0, -GoldenRatio^2, (-1) GoldenRatio^(-2), 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), -((5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8)), 1, 0, 0, 0, 0}, 144, 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.}, {0, -GoldenRatio^2, GoldenRatio^(-2), -1, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, { 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, 0, 0, 0}, 145, 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.}, { 0, -GoldenRatio^2, GoldenRatio^(-2), 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, 0, 0, 0}, 146, 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.}, {0, GoldenRatio^2, (-1) GoldenRatio^(-2), -1, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, { 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -1, 0, 0, 0, 0}, 147, 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.}, { 0, GoldenRatio^2, (-1) GoldenRatio^(-2), 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/ 8), -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 1, 0, 0, 0, 0}, 148, 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.}, { 0, GoldenRatio^2, GoldenRatio^(-2), -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -1, 0, 0, 0, 0}, 149, 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.}, { 0, GoldenRatio^2, GoldenRatio^(-2), 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 0, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 1, 0, 0, 0, 0}, 150, 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.}, { 1, -2, -GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 151, 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, -2, -GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 152, 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.}, { 1, -2, GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 153, 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.}, { 1, -2, GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 154, 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, -1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, -1, -Sqrt[5], 0, 0, 0, 0}, 155, 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}, {1, -1, -1, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, -1, Sqrt[5], 0, 0, 0, 0}, 156, 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}, { 1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -1, 1, -Sqrt[5], 0, 0, 0, 0}, 157, 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.}, {1, -1, 1, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, 1, Sqrt[5], 0, 0, 0, 0}, 158, 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, -Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, -Sqrt[5], -1, 0, 0, 0, 0}, 159, 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.}, {1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, -Sqrt[5], 1, 0, 0, 0, 0}, 160, 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.}, {1, -1, Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, Sqrt[5], -1, 0, 0, 0, 0}, 161, 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.}, {1, -1, Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -1, Sqrt[5], 1, 0, 0, 0, 0}, 162, 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.}, {1, 0, (-1) GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, { 1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 163, 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}, {1, 0, 0, 0, 0, 0, 0, -1}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.130329, -0.292724, 0.556793, -0.76636, -0.318671, 0.231528, 0.385291, 0.27993}, { 0., -0.38196599999999997`, -1., -0.618034, 0., 0.38196599999999997`, 1., 0.618034}, { 1, 0, (-1) GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 164, 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}, {{1, 1, 1, 1, 0, 1, 0, 0}, {1, 0, 0, 0, 0, 0, -1, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.238123, -0.534833, -0.116402, 0.160213, 0.623414, -0.452937, 0.51562, 0.37462}, { 0., -0.38196599999999997`, -1., 0.618034, 0., 0.38196599999999997`, 1., -0.618034}, { 1, 0, GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0}, 165, 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}, {{1, 1, 1, 1, 0, 0, 1, 0}, {1, 0, 0, 0, 0, -1, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[ 6]}, {0.238123, 0.412441, 0.196949, 0.341126, -0.06662, 0.313424, -0.703961, 0.63385}, {0., -0.38196599999999997`, 1., -0.618034, 0., 0.38196599999999997`, -1., 0.618034}, { 1, 0, GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0}, 166, 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}, {{1, 1, 1, 1, 0, 0, 0, 1}, {1, 0, 0, 0, -1, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, -1, 0, 0, 0}, {0.196949, 0.341126, -0.238123, -0.412441, 0.196949, -0.926573, -0.238123, 0.214407}, {0., -0.38196599999999997`, 1., 0.618034, 0., 0.38196599999999997`, -1., -0.618034}, { 1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, 1, -1, -Sqrt[5], 0, 0, 0, 0}, 167, 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}, {{1, 1, 1, 0, 1, 1, 0, 0}, {1, 0, 0, -1, 0, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0}, {-0.080548, -0.180913, 0.344117, -0.473637, 0.51562, -0.37462, -0.623414, -0.452937}, {0., 0.38196599999999997`, -1., -0.618034, 0., -0.38196599999999997`, 1., 0.618034}, {1, 1, -1, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, -1, Sqrt[5], 0, 0, 0, 0}, 168, 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}, {{1, 1, 1, 0, 1, 0, 1, 0}, {1, 0, -1, 0, 0, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0}, {-0.196949, -0.926573, -0.06662, -0.313424, -0.318671, \ -0.35392, 0.385291, 0.081896}, {0., 0.38196599999999997`, -1., 0.618034, 0., -0.38196599999999997`, 1., -0.618034}, { 1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, 1, 1, -Sqrt[5], 0, 0, 0, 0}, 169, 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}, {{1, 1, 1, 0, 1, 0, 0, 1}, {1, -1, 0, 0, 0, 0, 0, 0}, { 0, -Sqrt[2], 0, 0, 0, 0, 0, 0}, {0.238123, 0.732867, -0.623414, -0.132511, 0.196949, 0.0207, -0.238123, 0.534833}, {0., 0.38196599999999997`, 1., -0.618034, 0., -0.38196599999999997`, -1., 0.618034}, {1, 1, 1, Sqrt[5], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, 1, Sqrt[5], 0, 0, 0, 0}, 170, 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}, {{1, 1, 1, 0, 0, 1, 1, 0}, {0, 1, 0, 0, 0, 0, 0, -1}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 0, -Sqrt[2/3]}, { 0.196949, 0.606147, 0.753743, 0.160213, -0.58224, -0.061196, -0.080548, 0.180913}, {0., 0.38196599999999997`, 1., 0.618034, 0., -0.38196599999999997`, -1., -0.618034}, { 1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, 1, -Sqrt[5], -1, 0, 0, 0, 0}, 171, 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}, {{1, 1, 1, 0, 0, 1, 0, 1}, {0, 1, 0, 0, 0, 0, -1, 0}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.06662, -0.313424, 0.196949, 0.926573, -0.26357, -0.292724, -0.465839, -0.099017}, { 0., -1., -0.618034, -0.38196599999999997`, 0., 1., 0.618034, 0.38196599999999997`}, {1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, -Sqrt[5], 1, 0, 0, 0, 0}, 172, 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}, {{1, 1, 1, 0, 0, 0, 1, 1}, {0, 1, 0, 0, 0, -1, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[ 6]}, {-0.121721, -0.572654, -0.041174, -0.193707, 0.51562, 0.572654, -0.623414, -0.132511}, {0., -1., -0.618034, 0.38196599999999997`, 0., 1., 0.618034, -0.38196599999999997`}, { 1, 1, Sqrt[5], -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, Sqrt[5], -1, 0, 0, 0, 0}, 173, 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, 1, 0, 1, 1, 1, 0, 0}, {0, 1, 0, 0, -1, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, -1, 0, 0, 0}, {0.147168, 0.452937, -0.385291, -0.081896, -0.318671, -0.033494, 0.385291, -0.865377}, {0., -1., 0.618034, -0.38196599999999997`, 0., 1., -0.618034, 0.38196599999999997`}, {1, 1, Sqrt[5], 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, Sqrt[5], 1, 0, 0, 0, 0}, 174, 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, 1, 0, 1, 1, 0, 1, 0}, {0, 1, 0, -1, 0, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0}, { 0.121721, 0.37462, 0.465839, 0.099017, 0.942084, 0.099017, 0.130329, -0.292724}, {0., -1., 0.618034, 0.38196599999999997`, 0., 1., -0.618034, -0.38196599999999997`}, { 1, 2, -GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 175, 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, 1, 0, 1, 1, 0, 0, 1}, {0, 1, -1, 0, 0, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0}, {-0.041174, -0.193707, 0.121721, 0.572654, 0.426464, 0.473637, 0.753743, 0.160213}, {0., 1., -0.618034, -0.38196599999999997`, 0., -1., 0.618034, 0.38196599999999997`}, { 1, 2, -GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 176, 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, 1, 0, 1, 0, 1, 1, 0}, {0, 0, 1, 0, 0, 0, 0, -1}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/Sqrt[3], 0, -Sqrt[2/3]}, { 0., -0.947274, 0.277497, 0.160213, 0.318671, -0.35392, -0.385291, 0.081896}, {0., 1., -0.618034, 0.38196599999999997`, 0., -1., 0.618034, -0.38196599999999997`}, { 1, 2, GoldenRatio, (-1)/GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 177, 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, 1, 0, 1, 0, 1, 0, 1}, {0, 0, 1, 0, 0, 0, -1, 0}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[ 6]}, {0.080548, 0.76636, 0.51562, -0.37462, 0., 0.198034, 0., -0.585447}, {0., 1., 0.618034, -0.38196599999999997`, 0., -1., -0.618034, 0.38196599999999997`}, { 1, 2, GoldenRatio, GoldenRatio^(-1), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, 178, 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, 1, 0, 1, 0, 0, 1, 1}, {0, 0, 1, 0, 0, -1, 0, 0}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[ 6]}, {0.06662, 0.63385, -0.623414, 0.452937, 0., -0.585447, 0., -0.198034}, {0., 1., 0.618034, 0.38196599999999997`, 0., -1., -0.618034, -0.38196599999999997`}, { 1, -Sqrt[5], -1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -Sqrt[5], -1, -1, 0, 0, 0, 0}, 179, 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, 1, 0, 0, 1, 1, 1, 0}, {0, 0, 1, 0, -1, 0, 0, 0}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), -1, 0, 0, 0}, { 0., -0.320426, -0.820363, -0.473637, 0.26357, -0.292724, 0.465839, -0.099017}, { 0.618034, -0.618034, -0.618034, -0.618034, -0.618034, 0.618034, 0.618034, 0.618034}, {1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -Sqrt[5], -1, 1, 0, 0, 0, 0}, 180, 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, 1, 0, 0, 1, 1, 0, 1}, {0, 0, 1, -1, 0, 0, 0, 0}, { 0, 0, 0, -Sqrt[2], 0, 0, 0, 0}, {0., -0.585447, 0.171503, 0.099017, -0.51562, 0.572654, 0.623414, -0.132511}, { 0.618034, -0.618034, -0.618034, 0.618034, -0.618034, 0.618034, 0.618034, -0.618034}, {1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -Sqrt[5], 1, -1, 0, 0, 0, 0}, 181, 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, 1, 0, 0, 1, 0, 1, 1}, {0, 0, 0, 1, 0, 0, 0, -1}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/Sqrt[3], 0, -Sqrt[2/3]}, { 0.049781, 0.473637, 0.318671, -0.231528, 0., -0.320426, 0., 0.947274}, {0.618034, -0.618034, 0.618034, -0.618034, -0.618034, 0.618034, -0.618034, 0.618034}, {1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {1, -Sqrt[5], 1, 1, 0, 0, 0, 0}, 182, 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, 0, 1, 1, 1}, {0, 0, 0, 1, 0, 0, -1, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[ 6]}, {0.041174, 0.391741, -0.385291, 0.27993, 0., 0.947274, 0., 0.320426}, {0.618034, -0.618034, 0.618034, 0.618034, -0.618034, 0.618034, -0.618034, -0.618034}, {1, Sqrt[5], -1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[5], -1, -1, 0, 0, 0, 0}, 183, 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, 0, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 0, -1, 0, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, { 0., -0.198034, -0.507012, -0.292724, -0.426464, 0.473637, -0.753743, 0.160213}, {0.618034, 0., -1., -0.38196599999999997`, -0.618034, 0., 1., 0.38196599999999997`}, {1, Sqrt[5], -1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[5], -1, 1, 0, 0, 0, 0}, 184, 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, 0, 1, 1, 1, 0, 1, 0}, {0, 0, 0, 1, -1, 0, 0, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], -1, 0, 0, 0}, { 0.196949, -0.926573, -0.304743, 0.099017, 0.385291, 0.27993, 0.318671, -0.231528}, {0.618034, 0., -1., 0.38196599999999997`, -0.618034, 0., 1., -0.38196599999999997`}, { 1, Sqrt[5], 1, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[5], 1, -1, 0, 0, 0, 0}, 185, 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, 0, 1, 1, 1, 0, 0, 1}, {0, 0, 0, 0, 1, 0, 0, -1}, { 0, 0, 0, 0, 1, 1/Sqrt[3], 0, -Sqrt[2/3]}, {-0.080548, 0.76636, -0.06662, 0.63385, -0.196949, 0.0207, 0.238123, 0.534833}, {0.618034, 0., 1., -0.38196599999999997`, -0.618034, 0., -1., 0.38196599999999997`}, {1, Sqrt[5], 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[5], 1, 1, 0, 0, 0, 0}, 186, 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, 0, 1, 1, 0, 1, 1, 0}, {0, 0, 0, 0, 1, 0, -1, 0}, { 0, 0, 0, 0, 1, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.06662, 0.63385, 0.080548, -0.76636, 0.58224, -0.061196, 0.080548, 0.180913}, {0.618034, 0., 1., 0.38196599999999997`, -0.618034, 0., -1., -0.38196599999999997`}, { 1, (-1) GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), -((5/8 + Sqrt[5]/8)/( 5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, 187, 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, 0, 1, 1, 0, 1, 0, 1}, {0, 0, 0, 0, 1, -1, 0, 0}, { 0, 0, 0, 0, 1, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, { 0.06662, -0.313424, 0.900911, -0.292724, 0.318671, 0.231528, -0.385291, 0.27993}, {0.618034, 0.618034, -0.618034, -0.618034, -0.618034, -0.618034, 0.618034, 0.618034}, { 1, (-1) GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, 188, 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, 0, 1, 1, 0, 0, 1, 1}, {0, 0, 0, 0, 0, 1, 0, -1}, { 0, 0, 0, 0, 0, 0, -(1/Sqrt[2]), -Sqrt[3/2]}, { 0.121721, -0.572654, -0.188342, 0.061196, -0.623414, -0.452937, -0.51562, 0.37462}, {0.618034, 0.618034, -0.618034, 0.618034, -0.618034, -0.618034, 0.618034, -0.618034}, { 1, GoldenRatio^(-2), -GoldenRatio^2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, 0, 0, 0, 0}, 189, 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, 0, 1, 0, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 1, -1, 0}, { 0, 0, 0, 0, 0, 0, -Sqrt[2], 0}, {-0.049781, 0.473637, -0.041174, 0.391741, 0.318671, -0.033494, -0.385291, -0.865377}, {0.618034, 0.618034, 0.618034, -0.618034, -0.618034, -0.618034, -0.618034, 0.618034}, {1, GoldenRatio^(-2), GoldenRatio^2, 0, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, { 1, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, 0, 0, 0, 0}, 190, 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, 0, 1, 0, 1, 1, 0, 1}, {0, 0, 0, 0, 0, 0, 1, -1}, { 0, 0, 0, 0, 0, 0, 1/Sqrt[2], -Sqrt[3/2]}, {-0.041174, 0.391741, 0.049781, -0.473637, -0.942084, 0.099017, -0.130329, -0.292724}, { 0.618034, 0.618034, 0.618034, 0.618034, -0.618034, -0.618034, -0.618034, -0.618034}, { 1, (-1)/GoldenRatio, -2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 191, 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, 0, 1, 0, 1, 0, 1, 1}, {0, 0, 0, 0, 0, 0, -1, 1}, { 0, 0, 0, 0, 0, 0, -(1/Sqrt[2]), Sqrt[3/2]}, {0.041174, -0.193707, 0.556793, -0.180913, -0.51562, -0.37462, 0.623414, -0.452937}, { 0.618034, -0.38196599999999997`, 0., -1., -0.618034, 0.38196599999999997`, 0., 1.}, { 1, (-1)/GoldenRatio, -2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 192, 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, 0, 1, 0, 0, 1, 1, 1}, {0, 0, 0, 0, 0, -1, 1, 0}, {0, 0, 0, 0, 0, 0, Sqrt[2], 0}, {0.385291, -0.865377, 0.130329, -0.292724, -0.238123, 0.412441, -0.196949, 0.341126}, { 0.618034, -0.38196599999999997`, 0., 1., -0.618034, 0.38196599999999997`, 0., -1.}, { 1, (-1)/GoldenRatio, 2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 193, 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}, {{1, 0, 0, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, -1, 0, 1}, { 0, 0, 0, 0, 0, 0, 1/Sqrt[2], Sqrt[3/2]}, {-0.238123, 0.732867, -0.426464, -0.473637, -0.041174, -0.193707, -0.435072, \ -0.391741}, {0.618034, 0.38196599999999997`, 0., -1., -0.618034, -0.38196599999999997`, 0., 1.}, { 1, (-1)/GoldenRatio, 2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 194, 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}, {{1, 0, 0, 1, 1, 1, 0, 1}, {0, 0, 0, 0, -1, 1, 0, 0}, { 0, 0, 0, 0, -1, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.196949, 0.606147, 0.51562, 0.572654, 0.121721, 0.572654, -0.147168, -0.132511}, {0.618034, 0.38196599999999997`, 0., 1., -0.618034, -0.38196599999999997`, 0., -1.}, { 1, GoldenRatio^(-1), -2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 195, 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}, {{1, 0, 0, 1, 1, 0, 1, 1}, {0, 0, 0, 0, -1, 0, 1, 0}, { 0, 0, 0, 0, -1, -(1/Sqrt[3]), 1/Sqrt[2], -(1/Sqrt[6])}, { 0.130329, -0.292724, -0.385291, 0.865377, -0.196949, 0.341126, 0.238123, -0.412441}, {0.618034, -1., -0.38196599999999997`, 0., -0.618034, 1., 0.38196599999999997`, 0.}, { 1, GoldenRatio^(-1), -2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 196, 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}, {{1, 0, 0, 1, 0, 1, 1, 1}, {0, 0, 0, 0, -1, 0, 0, 1}, { 0, 0, 0, 0, -1, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.238123, -0.534833, 0.080548, -0.180913, 0.385291, -0.667343, 0.318671, -0.551954}, {0.618034, -1., 0.38196599999999997`, 0., -0.618034, 1., -0.38196599999999997`, 0.}, {1, GoldenRatio^(-1), 2, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 197, 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}, {{1, 0, 0, 0, 1, 1, 1, 1}, {0, 0, 0, -1, 1, 0, 0, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 1, 0, 0, 0}, {-0.147168, 0.452937, -0.26357, -0.292724, 0.06662, 0.313424, 0.703961, 0.63385}, {0.618034, 1., -0.38196599999999997`, 0., -0.618034, -1., 0.38196599999999997`, 0.}, { 1, GoldenRatio^(-1), 2, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 198, 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, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, -1, 0, 1, 0, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.121721, 0.37462, 0.318671, 0.35392, -0.196949, -0.926573, 0.238123, 0.214407}, {0.618034, 1., 0.38196599999999997`, 0., -0.618034, -1., -0.38196599999999997`, 0.}, { 1, -GoldenRatio, (-1)/GoldenRatio, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 199, 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, 1, 1, 1, 1, 0, 1, 0}, {0, 0, 0, -1, 0, 0, 1, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.080548, -0.180913, -0.238123, 0.534833, 0.318671, -0.551954, -0.385291, 0.667343}, {1.236068, 0., 0., 0., -1.236068, 0., 0., 0.}, { 1, -GoldenRatio, (-1)/GoldenRatio, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 200, 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, 1, 1, 1, 1, 0, 0, 1}, {0, 0, 0, -1, 0, 0, 0, 1}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.556793, -0.76636, 0.130329, 0.292724, -0.435072, -0.193707, 0.041174, -0.391741}, {-0.38196599999999997`, -0.618034, -1., 0., 0.38196599999999997`, 0.618034, 1., 0.}, { 1, -GoldenRatio, GoldenRatio^(-1), -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 201, 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, 1, 1, 1, 0, 1, 1, 0}, {0, 0, -1, 1, 0, 0, 0, 0}, {0, 0, 0, Sqrt[2], 0, 0, 0, 0}, {-0.385291, 0.667343, 0.637341, 0., 0.188342, -0.061196, 0.556793, 0.180913}, {-0.38196599999999997`, -0.618034, 1., 0., 0.38196599999999997`, 0.618034, -1., 0.}, { 1, -GoldenRatio, GoldenRatio^(-1), 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 202, 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, 1, 1, 1, 0, 1, 0, 1}, {0, 0, -1, 0, 1, 0, 0, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 1, 0, 0, 0}, {-0.318671, 0.551954, -0.770582, 0., -0.556793, 0.180913, 0.188342, 0.061196}, {-0.38196599999999997`, 0., -0.618034, -1., 0.38196599999999997`, 0., 0.618034, 1.}, { 1, GoldenRatio, (-1)/GoldenRatio, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 203, 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, 1, 1, 0, 0, 1, 1}, {0, 0, -1, 0, 0, 1, 0, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, { 0.188342, -0.25923, -0.385291, -0.865377, -0.359844, -0.160213, \ -0.049781, 0.473637}, {-0.38196599999999997`, 0., -0.618034, 1., 0.38196599999999997`, 0., 0.618034, -1.}, { 1, GoldenRatio, (-1)/GoldenRatio, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 204, 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, 1, 0, 1, 1, 1, 0}, {0, 0, -1, 0, 0, 0, 1, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.344117, -0.473637, 0.080548, 0.180913, 0.703961, 0.313424, -0.06662, 0.63385}, {-0.38196599999999997`, 0., 0.618034, -1., 0.38196599999999997`, 0., -0.618034, 1.}, { 1, GoldenRatio, GoldenRatio^(-1), -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], -2, 0, 0, 0, 0}, 205, 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, 1, 0, 1, 1, 0, 1}, {0, 0, -1, 0, 0, 0, 0, 1}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {-0.238123, 0.412441, 0.393899, 0., -0.304743, 0.099017, -0.900911, -0.292724}, {-0.38196599999999997`, 0., 0.618034, 1., 0.38196599999999997`, 0., -0.618034, -1.}, { 1, GoldenRatio, GoldenRatio^(-1), 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {1, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 2, 0, 0, 0, 0}, 206, 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, 1, 0, 1, 0, 1, 1}, {0, -1, 1, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {-0.196949, 0.341126, -0.476246, 0., 0.900911, -0.292724, -0.304743, -0.099017}, \ {-0.38196599999999997`, 0.618034, -1., 0., 0.38196599999999997`, -0.618034, 1., 0.}, { 1, -GoldenRatio^2, 0, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 207, 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, 1, 0, 0, 1, 1, 1}, {0, -1, 0, 1, 0, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {0.116402, -0.160213, -0.238123, -0.534833, 0.58224, 0.25923, 0.080548, -0.76636}, {-0.38196599999999997`, 0.618034, 1., 0., 0.38196599999999997`, -0.618034, -1., 0.}, { 1, -GoldenRatio^2, 0, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, -((5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)), 0, (5/8 - Sqrt[5]/8)/( 5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 208, 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, 0, 1, 1, 1, 1, 0}, {0, -1, 0, 0, 1, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 1, 0, 0, 0}, { 0.703961, -0.63385, -0.304743, -0.099017, 0.147168, -0.452937, 0.121721, 0.37462}, {-0.38196599999999997`, -1., 0., -0.618034, 0.38196599999999997`, 1., 0., 0.618034}, { 1, GoldenRatio^2, 0, (-1) GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, -((5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, 209, 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, 0, 1, 1, 1, 0, 1}, {0, -1, 0, 0, 0, 1, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.51562, 0.572654, -0.426464, 0.473637, 0.080548, 0.180913, -0.58224, 0.061196}, {-0.38196599999999997`, -1., 0., 0.618034, 0.38196599999999997`, 1., 0., -0.618034}, { 1, GoldenRatio^2, 0, GoldenRatio^(-2), 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 1, (5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8), 0, (5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8), 0, 0, 0, 0}, 210, 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, 0, 1, 1, 0, 1, 1}, {0, -1, 0, 0, 0, 0, 1, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.426464, 0.473637, 0.51562, -0.572654, -0.238123, -0.534833, -0.196949, 0.0207}, {-0.38196599999999997`, 1., 0., -0.618034, 0.38196599999999997`, -1., 0., 0.618034}, {2, -2, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, -2, 0, 0, 0, 0, 0, 0}, 211, 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, 0, 1, 0, 1, 1, 1}, {0, -1, 0, 0, 0, 0, 0, 1}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.238123, -0.214407, 0.900911, 0.292724, 0.121721, -0.37462, -0.147168, -0.452937}, {-0.38196599999999997`, 1., 0., 0.618034, 0.38196599999999997`, -1., 0., -0.618034}, { 2, -1, (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 212, 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, 0, 0, 1, 1, 1, 1}, {-1, 1, 0, 0, 0, 0, 0, 0}, {0, Sqrt[2], 0, 0, 0, 0, 0, 0}, { 0.435072, -0.391741, -0.188342, -0.061196, -0.238123, 0.732867, -0.196949, -0.606147}, { 0.38196599999999997`, -0.618034, -1., 0., -0.38196599999999997`, 0.618034, 1., 0.}, { 2, -1, (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, -1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 213, 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}, {{0, 0, 1, 1, 1, 1, 1, 0}, {-1, 0, 1, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {-0.318671, 0.35392, -0.26357, 0.292724, -0.130329, -0.292724, 0.942084, -0.099017}, { 0.38196599999999997`, -0.618034, 1., 0., -0.38196599999999997`, 0.618034, -1., 0.}, { 2, -1, GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 214, 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}, {{0, 0, 1, 1, 1, 1, 0, 1}, {-1, 0, 0, 1, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {-0.26357, 0.292724, 0.318671, -0.35392, 0.385291, 0.865377, 0.318671, -0.033494}, {0.38196599999999997`, 0., -0.618034, -1., -0.38196599999999997`, 0., 0.618034, 1.}, { 2, -1, GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, -1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 215, 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}, {{0, 0, 1, 1, 1, 0, 1, 1}, {-1, 0, 0, 0, 1, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 1, 0, 0, 0}, { 0.147168, -0.132511, 0.556793, 0.180913, -0.196949, 0.606147, 0.238123, 0.732867}, {0.38196599999999997`, 0., -0.618034, 1., -0.38196599999999997`, 0., 0.618034, -1.}, {2, 0, -2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 0, -2, 0, 0, 0, 0, 0}, 216, 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}, {{0, 0, 1, 1, 0, 1, 1, 1}, {-1, 0, 0, 0, 0, 1, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, { 0.820363, -0.473637, 0.277497, -0.160213, 0.465839, 0.099017, -0.26357, -0.292724}, {0.38196599999999997`, 0., 0.618034, -1., -0.38196599999999997`, 0., -0.618034, 1.}, {2, 0, 0, -2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 0, 0, -2, 0, 0, 0, 0}, 217, 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}, {{0, 0, 1, 0, 1, 1, 1, 1}, {-1, 0, 0, 0, 0, 0, 1, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.623414, 0.452937, -0.06662, -0.63385, -0.171503, 0.099017, 0.507012, -0.292724}, {0.38196599999999997`, 0., 0.618034, 1., -0.38196599999999997`, 0., -0.618034, -1.}, {2, 0, 0, 2, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 0, 0, 2, 0, 0, 0, 0}, 218, 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}, {{0, 0, 0, 1, 1, 1, 1, 1}, {-1, 0, 0, 0, 0, 0, 0, 1}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {-0.51562, 0.37462, 0.080548, 0.76636, 0.507012, -0.292724, 0.171503, -0.099017}, {0.38196599999999997`, 0.618034, -1., 0., -0.38196599999999997`, -0.618034, 1., 0.}, {2, 0, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 0, 2, 0, 0, 0, 0, 0}, 219, 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, 1, 1, 1, 1, 1, 0, 0}, {1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, { 0.277497, -0.160213, -0.820363, 0.473637, 0.385291, 0.081896, 0.318671, 0.35392}, {0.38196599999999997`, 0.618034, 1., 0., -0.38196599999999997`, -0.618034, -1., 0.}, { 2, 1, (-1)/GoldenRatio, -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 220, 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}, { 2, 1, (-1)/GoldenRatio, GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 1, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 221, 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, 1, GoldenRatio^(-1), -GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 222, 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}, { 2, 1, GoldenRatio^(-1), GoldenRatio, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 1, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 0, 0, 0, 0}, 223, 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, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, 2, 0, 0, 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, (-1)/GoldenRatio, -GoldenRatio, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 225, 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`}, { 2, (-1)/GoldenRatio, -GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, { 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 226, 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, (-1)/GoldenRatio, GoldenRatio, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 227, 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, (-1)/GoldenRatio, GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 228, 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, GoldenRatio^(-1), -GoldenRatio, -1, 0, 0, 0, 0}, { 0, 0, 0, 0, 0, 0, 0, 0}, {2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 229, 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}, { 2, GoldenRatio^(-1), -GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 230, 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, GoldenRatio^(-1), GoldenRatio, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], -1, 0, 0, 0, 0}, 231, 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, GoldenRatio^(-1), GoldenRatio, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], 1, 0, 0, 0, 0}, 232, 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