(* 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[ 2133620, 39364] NotebookOptionsPosition[ 2098914, 38651] NotebookOutlinePosition[ 2115295, 38946] CellTagsIndexPosition[ 2115252, 38943] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["e8Viewer 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[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["\<\ 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. \ \>", "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["Main Viewer", "Subsection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{Typeset`show$$ = True, Typeset`bookmarkList$$ = { "\"E8\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["E8"]; $CellContext`refreshToggle), "\"E7\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["E7"]; $CellContext`refreshToggle), "\"E6\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["E6"]; $CellContext`refreshToggle), "\"E6a\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["E6a"]; $CellContext`refreshToggle), "\"F4\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["F4"]; $CellContext`refreshToggle), "\"Cell5\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["Cell5"]; $CellContext`refreshToggle), "\"Cell24\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["Cell24"]; $CellContext`refreshToggle), "\"H4\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["H4"]; $CellContext`refreshToggle), "\"Tris\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["Tris"]; $CellContext`refreshToggle), "\"F4G2\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["F4G2"]; $CellContext`refreshToggle), "\"Hexes\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["Hexes"]; $CellContext`refreshToggle), "\"Gosset\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["Gosset"]; $CellContext`refreshToggle), "\"E83\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["E83"]; $CellContext`refreshToggle), "\"none\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["none"]; $CellContext`refreshToggle), "\"inFile\"" :> ($CellContext`E8; If[$CellContext`bAND != 1, $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; ToExpression["inFile"]; $CellContext`refreshToggle), "\"G2\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["G2"]; $CellContext`refreshToggle), "\"lepInf\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["lepInf"]; $CellContext`refreshToggle), "\"qInf\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["qInf"]; $CellContext`refreshToggle), "\"a3D\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["a3D"]; $CellContext`refreshToggle), "\"o3D\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["o3D"]; $CellContext`refreshToggle), "\"qCol\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["qCol"]; $CellContext`refreshToggle), "\"binary\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["binary"]; $CellContext`refreshToggle), "\"binStar\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["binStar"]; $CellContext`refreshToggle), "\"binSqu\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["binSqu"]; $CellContext`refreshToggle), "\"binTri\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["binTri"]; $CellContext`refreshToggle), "\"binRect\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["binRect"]; $CellContext`refreshToggle), "\"Cell16\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["Cell16"]; $CellContext`refreshToggle), "\"Cube\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["Cube"]; $CellContext`refreshToggle), "\"auxXLS\"" :> ($CellContext`E8; If[$CellContext`bAND != 2, $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; ToExpression["auxXLS"]; $CellContext`refreshToggle)}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Row[{ Button["Refresh", $CellContext`refreshToggle, ImageSize -> Small], " MetaFavorites ", PopupMenu[ Dynamic[$CellContext`bAND1mfName], { "E8", "E7", "E6", "E6a", "F4", "Cell5", "Cell24", "H4", "Tris", "F4G2", "Hexes", "Gosset", "E83", "none", "inFile"}], "\[DoubleLeftArrow]OR ", PopupMenu[ Dynamic[$CellContext`bAND2mfName], { "G2", "lepInf", "qInf", "a3D", "o3D", "qCol", "binary", "binStar", "binSqu", "binTri", "binRect", "Cell16", "Cube", "auxXLS"}], "\[DoubleLeftArrow]AND ", " DataSets: ", Dynamic[ PopupMenu[ Dynamic[$CellContext`dsName], $CellContext`dsNames]], Dynamic[$CellContext`ds = \ $CellContext`position[$CellContext`dsNames, $CellContext`dsName]]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" inFile ", FileNameSetter[ Dynamic[$CellContext`infile]], " OutToFile ", Checkbox[ Dynamic[$CellContext`fileOut]], " FileOnly ", Checkbox[ Dynamic[$CellContext`fileOnly]], " Dir ", FileNameSetter[ Dynamic[$CellContext`outFileDir], "Directory"], " Name ", Dynamic[ InputField[ Dynamic[$CellContext`outFile], FieldSize -> 6]], PopupMenu[ Dynamic[$CellContext`outFileType], { ".avi", ".bmp", ".dxf", ".eps", ".gif", ".jpeg", ".html", ".obj", ".lwo", ".Maya", ".MathML", ".pdf", ".png", ".stl", ".tiff", ".vrml", ".wmf", ".x3d", ".xls", ".bi", ".lsl", ".tri"}], " Particles=", Dynamic[ Length[$CellContext`fltrdSubPlot]], " tLines=", Dynamic[ Length[$CellContext`tlines]]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{" Show:", " Edges ", Checkbox[ Dynamic[$CellContext`showEdges]], " PhysEdges ", Checkbox[ Dynamic[$CellContext`showPhysEdges]], Null}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{ RadioButtonBar[ Dynamic[$CellContext`p3D], {" 2D", " 3D", " Stereo", " Anaglyph"}], " ", Button[ "Clear PhysEdges", $CellContext`plines = {}; \ $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[{" Trialities ", TogglerBar[ Dynamic[$CellContext`tT], {"T12-", "T12+", "T-", "T+"}], " eRadius ", Dynamic[ Slider[ Dynamic[$CellContext`cylR], {0.001, 0.1, 1/1000.}, ImageSize -> 100]], Dynamic[$CellContext`cylR]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Row[{ Button["Reset Path", $CellContext`clearPath, ImageSize -> Small], " dimLocs ", Checkbox[ Dynamic[$CellContext`useDimLocs]]}]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`fileOnly], False}}, {{ Hold[$CellContext`scale], 0.02}}, {{ Hold[$CellContext`cylR], 0.001}}, {{ 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`ds], 2}}, {{ Hold[$CellContext`pGrad], 0}}, {{ Hold[$CellContext`pSize], "big"}}, {{ Hold[$CellContext`tT], {}}}, {{ 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`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], 6720}}}, {{ Hold[$CellContext`anim8EdgeList], False}}, {{ Hold[$CellContext`eSteps], 1}}, {{ Hold[$CellContext`eWnd], 100}}, {{ Hold[$CellContext`innerMag], 1}}, {{ Hold[$CellContext`showPhysEdges], False}}, {{ Hold[$CellContext`plines], {}}}, {{ Hold[$CellContext`XY], {24, 24}}}, {{ Hold[$CellContext`showClr], False}}, {{ Hold[$CellContext`useDimLocs], False}}, {{ Hold[$CellContext`dlXs], {" y "}}}, {{ Hold[$CellContext`dlYs], {" z "}}}, {{ Hold[$CellContext`dlZs], {" x "}}}, {{ Hold[$CellContext`xy], {1, 1}}}, {{ Hold[$CellContext`zz], 1}}, {{ Hold[$CellContext`xyVwPnt], {1, 1}}}, {{ Hold[$CellContext`zVwPnt], 1}}, {{ Hold[$CellContext`steps], 1}}, {{ Hold[$CellContext`pthRot], "Rotational"}}, {{ Hold[$CellContext`pthPtCds], "Identity"}}, {{ Hold[$CellContext`fileOut], False}}, {{ Hold[$CellContext`outFileDir], "First@{\"./\"}"}}, {{ Hold[$CellContext`outFile], "First@{\"E8out\"<>ToString[RandomInteger@{10,99}]}"}}, {{ Hold[$CellContext`outFileType], "First@{\".png\"}"}}, {{ Hold[$CellContext`pListName], "First@{\"!Excluded\"}"}}, {{ Hold[$CellContext`p3D], "First@{\" 2D\"}"}}, {{ Hold[$CellContext`H], { 0, -0.5567934404522487, 0.19694925177037628`, -0.19694925177037628`, 0.08054772639440974, -0.3852908761710236, 0, 0.3852908761710236}}}, {{ Hold[$CellContext`V], { 0.18091315553621948`, 0, 0.16021295504274685`, 0.16021295504274685`, 0, 0.09901705165447641, 0.766360424875418, 0.09901705165447641}}}, {{ Hold[$CellContext`Z], { 0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 0.1715025642812252, 0, -0.1715025642812252}}}}, Typeset`size$$ = { 675., {336., 339.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`anim8EdgeList = False, $CellContext`auxData = False, $CellContext`cylR = 0.001, $CellContext`dlXs = { " y "}, $CellContext`dlYs = { " z "}, $CellContext`dlZs = { " x "}, $CellContext`ds = 2, $CellContext`edgeVal = { 2^Rational[1, 2], 6720}, $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.19694925177037628`, -0.19694925177037628`, 0.08054772639440974, -0.3852908761710236, 0, 0.3852908761710236}, $CellContext`innerMag = 1, $CellContext`limitToRange = True, $CellContext`outFile = "First@{\"E8out\"<>ToString[RandomInteger@{10,99}]}", \ $CellContext`outFileDir = "First@{\"./\"}", $CellContext`outFileType = "First@{\".png\"}", $CellContext`p3D = "First@{\" 2D\"}", $CellContext`pGrad = 0, $CellContext`plines = {}, $CellContext`pListName = "First@{\"!Excluded\"}", $CellContext`pSize = "big", $CellContext`pt = {0, 0, 0}, $CellContext`pthPtCds = "Identity", $CellContext`pthRot = "Rotational", $CellContext`range = 1.5, $CellContext`scale = 0.02, $CellContext`showAxes = True, $CellContext`showClr = False, $CellContext`showEdges = False, $CellContext`showPartVert = True, $CellContext`showPerim = False, $CellContext`showPhysEdges = False, $CellContext`showPlocs = False, $CellContext`showPmass = False, $CellContext`showPtext = False, $CellContext`showPvecs = False, $CellContext`showSurfaces = False, $CellContext`steps = 1, $CellContext`tickNum = 4, $CellContext`tT = {}, $CellContext`useDimLocs = False, $CellContext`V = { 0.18091315553621948`, 0, 0.16021295504274685`, 0.16021295504274685`, 0, 0.09901705165447641, 0.766360424875418, 0.09901705165447641}, $CellContext`xy = {1, 1}, $CellContext`XY = { 24, 24}, $CellContext`xyVwPnt = {1, 1}, $CellContext`Z = { 0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 0.1715025642812252, 0, -0.1715025642812252}, $CellContext`zoom = 0, $CellContext`zVwPnt = 1, $CellContext`zz = 1}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ( If[$CellContext`auxDataTrk != $CellContext`auxData, \ $CellContext`e8init; $CellContext`initLocPtCds; $CellContext`fltrdSubPlot = Last[$CellContext`pls]; $CellContext`auxDataTrk = \ $CellContext`auxData, If[$CellContext`infileTrk != $CellContext`infile, \ $CellContext`bAND1mfName = "inFile"; $CellContext`infileTrk = $CellContext`infile]; If[ And[$CellContext`bAND != 1, $CellContext`bAND1mfName != ""], $CellContext`bANDTrk = ($CellContext`bAND = 1); $CellContext`switchFilter]; If[ And[$CellContext`bAND != 2, $CellContext`bAND2mfName != ""], $CellContext`bANDTrk = ($CellContext`bAND = 2); $CellContext`switchFilter]; If[ Or[$CellContext`refresh != $CellContext`refreshTrk, \ $CellContext`bAND1mfName != "", $CellContext`bAND2mfName != "", $CellContext`bANDTrk != $CellContext`bAND], \ $CellContext`oldFltrdSubPlot = $CellContext`fltrdSubPlot; If[$CellContext`bAND1mfName != "", $CellContext`E8; Switch[$CellContext`bAND1mfName, "E7", $CellContext`E7, "E6", $CellContext`E6, "E6a", $CellContext`E6a, "F4", $CellContext`F4, "Cell5", $CellContext`Cell5, "Cell24", $CellContext`Cell24, "H4", $CellContext`H4, "Tris", $CellContext`Tris, "F4G2", $CellContext`F4G2, "Hexes", $CellContext`Hexes, "Gosset", $CellContext`Gosset, "E83", $CellContext`E83, "none", $CellContext`none, "inFile", $CellContext`inFile]]; If[$CellContext`bAND2mfName != "", $CellContext`E8; Switch[$CellContext`bAND2mfName, "G2", $CellContext`G2, "lepInf", $CellContext`lepInf, "qInf", $CellContext`qInf, "a3D", $CellContext`a3D, "o3D", $CellContext`o3D, "qCol", $CellContext`qCol, "binary", $CellContext`binary, "binStar", $CellContext`binStar, "binSqu", $CellContext`binSqu, "binTri", $CellContext`binTri, "binRect", $CellContext`binRect, "Cell16", $CellContext`Cell16, "Cube", $CellContext`Cube, "auxXLS", $CellContext`auxXLS]]; If[ Or[$CellContext`favoriteTrk != $CellContext`favorite, \ $CellContext`newPTcd != {}, $CellContext`bAND1mfName != "", $CellContext`bAND2mfName != ""], If[$CellContext`newPTcd != {}, $CellContext`setPTcd[$CellContext`newPTcd], $CellContext`setPTcd[ Part[$CellContext`favorites, $CellContext`favorite]]]]; \ $CellContext`refreshTrk = $CellContext`refresh; $CellContext`favoriteTrk = \ $CellContext`favorite; $CellContext`newPTcd = {}; $CellContext`bAND1mfName = ""; $CellContext`bAND2mfName = ""; If[$CellContext`bANDTrk != $CellContext`bAND, $CellContext`bANDTrk = \ $CellContext`bAND; $CellContext`switchFilter, $CellContext`doFilter]; If[ Or[$CellContext`oldFltrdSubPlot != $CellContext`fltrdSubPlot, \ $CellContext`tTValTrk != $CellContext`tT, $CellContext`dsTrk != \ $CellContext`ds, $CellContext`showPhysEdgesTrk != $CellContext`showPhysEdges, \ $CellContext`innerMagTrk != $CellContext`innerMag, ToString[$CellContext`edgeValTrk] != ToString[$CellContext`edgeVal]], If[$CellContext`dsTrk != $CellContext`ds, $CellContext`clearPath; \ $CellContext`dsTrk = $CellContext`ds]; $CellContext`tlines = \ $CellContext`tLines; $CellContext`tTValTrk = $CellContext`tT; \ $CellContext`getEdges; $CellContext`elines = ($CellContext`elinesNew = \ $CellContext`eLines[$CellContext`edgeVal]); $CellContext`edgeValTrk = \ $CellContext`edgeVal; If[$CellContext`showPhysEdgesTrk != $CellContext`showPhysEdges, If[$CellContext`showPhysEdges, $CellContext`pLines[$CellContext`fltrdSubPlot], \ $CellContext`plines = {}]; $CellContext`showPhysEdgesTrk = \ $CellContext`showPhysEdges]; $CellContext`edgeMag = $CellContext`maxEdge; \ $CellContext`innerMagTrk = $CellContext`innerMag]]; If[$CellContext`fileOut, $CellContext`mOutDo]; $CellContext`loop = \ {}; $CellContext`lastViewPoint = { First[ Subscript[$CellContext`xyVwPnt, $CellContext`scaled]], $CellContext`second[ Subscript[$CellContext`xyVwPnt, $CellContext`scaled]], Subscript[$CellContext`zVwPnt, $CellContext`scaled]}; If[ Not[$CellContext`needMovie], If[$CellContext`locPtCdTrk != $CellContext`locPtCdArr, If[ Not[$CellContext`auxData], $CellContext`useDimLocs = True]; Do[$CellContext`fVal = Map[Part[ $CellContext`locPtCd[#], \ $CellContext`i]/$CellContext`zoomFct& , Range[$CellContext`dims]]; Switch[ Part[$CellContext`faceList, $CellContext`face, \ $CellContext`i], "H", $CellContext`H = $CellContext`fVal, "V", $CellContext`V = $CellContext`fVal, "Z", $CellContext`Z = $CellContext`fVal], {$CellContext`i, 2}]]; $CellContext`initLocPtCds; $CellContext`processOut[ 0], $CellContext`doMovie]; If[ And[$CellContext`fileOut, $CellContext`outFileType == First[$CellContext`fileTypeList]], $CellContext`doFileOut[0]]; If[ And[$CellContext`loop != {}, Not[$CellContext`fileOnly]], $CellContext`out = ListAnimate[$CellContext`loop, DefaultDuration -> 3, AnimationRunning -> False]]]; $CellContext`out), "Specifications" :> { Row[{ Button["Refresh", $CellContext`refreshToggle, ImageSize -> Small], " MetaFavorites ", PopupMenu[ Dynamic[$CellContext`bAND1mfName], { "E8", "E7", "E6", "E6a", "F4", "Cell5", "Cell24", "H4", "Tris", "F4G2", "Hexes", "Gosset", "E83", "none", "inFile"}], "\[DoubleLeftArrow]OR ", PopupMenu[ Dynamic[$CellContext`bAND2mfName], { "G2", "lepInf", "qInf", "a3D", "o3D", "qCol", "binary", "binStar", "binSqu", "binTri", "binRect", "Cell16", "Cube", "auxXLS"}], "\[DoubleLeftArrow]AND ", " DataSets: ", Dynamic[ PopupMenu[ Dynamic[$CellContext`dsName], $CellContext`dsNames]], Dynamic[$CellContext`ds = \ $CellContext`position[$CellContext`dsNames, $CellContext`dsName]]}], Row[{" inFile ", FileNameSetter[ Dynamic[$CellContext`infile]], " OutToFile ", Checkbox[ Dynamic[$CellContext`fileOut]], " FileOnly ", Checkbox[ Dynamic[$CellContext`fileOnly]], " Dir ", FileNameSetter[ Dynamic[$CellContext`outFileDir], "Directory"], " Name ", Dynamic[ InputField[ Dynamic[$CellContext`outFile], FieldSize -> 6]], PopupMenu[ Dynamic[$CellContext`outFileType], { ".avi", ".bmp", ".dxf", ".eps", ".gif", ".jpeg", ".html", ".obj", ".lwo", ".Maya", ".MathML", ".pdf", ".png", ".stl", ".tiff", ".vrml", ".wmf", ".x3d", ".xls", ".bi", ".lsl", ".tri"}], " Particles=", Dynamic[ Length[$CellContext`fltrdSubPlot]], " tLines=", Dynamic[ Length[$CellContext`tlines]]}], Delimiter, Row[{" Show:", " Edges ", Checkbox[ Dynamic[$CellContext`showEdges]], " PhysEdges ", Checkbox[ Dynamic[$CellContext`showPhysEdges]], Null}], Row[{ RadioButtonBar[ Dynamic[$CellContext`p3D], {" 2D", " 3D", " Stereo", " Anaglyph"}], " ", Button[ "Clear PhysEdges", $CellContext`plines = {}; \ $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[{" Trialities ", TogglerBar[ Dynamic[$CellContext`tT], {"T12-", "T12+", "T-", "T+"}], " eRadius ", Dynamic[ Slider[ Dynamic[$CellContext`cylR], {0.001, 0.1, 1/1000.}, ImageSize -> 100]], Dynamic[$CellContext`cylR]}], Delimiter, Row[{ Button["Reset Path", $CellContext`clearPath, ImageSize -> Small], " dimLocs ", Checkbox[ Dynamic[$CellContext`useDimLocs]]}], {{$CellContext`fileOnly, False}, ControlType -> None}, {{$CellContext`scale, 0.02}, ControlType -> None}, {{$CellContext`cylR, 0.001}, 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`ds, 2}, ControlType -> None}, {{$CellContext`pGrad, 0}, ControlType -> None}, {{$CellContext`pSize, "big"}, ControlType -> None}, {{$CellContext`tT, {}}, 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`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], 6720}}, ControlType -> None}, {{$CellContext`anim8EdgeList, False}, ControlType -> None}, {{$CellContext`eSteps, 1}, ControlType -> None}, {{$CellContext`eWnd, 100}, ControlType -> None}, {{$CellContext`innerMag, 1}, ControlType -> None}, {{$CellContext`showPhysEdges, False}, ControlType -> None}, {{$CellContext`plines, {}}, ControlType -> None}, {{$CellContext`XY, {24, 24}}, ControlType -> None}, {{$CellContext`showClr, False}, ControlType -> None}, {{$CellContext`useDimLocs, False}, ControlType -> None}, {{$CellContext`dlXs, {" y "}}, ControlType -> None}, {{$CellContext`dlYs, {" z "}}, ControlType -> None}, {{$CellContext`dlZs, {" x "}}, ControlType -> None}, {{$CellContext`xy, {1, 1}}, ControlType -> None}, {{$CellContext`zz, 1}, ControlType -> None}, {{$CellContext`xyVwPnt, {1, 1}}, ControlType -> None}, {{$CellContext`zVwPnt, 1}, ControlType -> None}, {{$CellContext`steps, 1}, ControlType -> None}, {{$CellContext`pthRot, "Rotational"}, ControlType -> None}, {{$CellContext`pthPtCds, "Identity"}, ControlType -> None}, {{$CellContext`fileOut, False}, ControlType -> None}, {{$CellContext`outFileDir, "First@{\"./\"}"}, ControlType -> None}, {{$CellContext`outFile, "First@{\"E8out\"<>ToString[RandomInteger@{10,99}]}"}, ControlType -> None}, {{$CellContext`outFileType, "First@{\".png\"}"}, ControlType -> None}, {{$CellContext`pListName, "First@{\"!Excluded\"}"}, ControlType -> None}, {{$CellContext`p3D, "First@{\" 2D\"}"}, ControlType -> None}, {{$CellContext`H, { 0, -0.5567934404522487, 0.19694925177037628`, -0.19694925177037628`, 0.08054772639440974, -0.3852908761710236, 0, 0.3852908761710236}}, ControlType -> None}, {{$CellContext`V, { 0.18091315553621948`, 0, 0.16021295504274685`, 0.16021295504274685`, 0, 0.09901705165447641, 0.766360424875418, 0.09901705165447641}}, ControlType -> None}, {{$CellContext`Z, { 0.3382612127177164, 0, 0, -0.3382612127177164, 0.672816364803188, 0.1715025642812252, 0, -0.1715025642812252}}, 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->{722., {459., 464.}}, 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[#, $CellContext`lAuxVerts]], #, ToString[#], #, {"r", "m"}, {$CellContext`cir, 1/2}, 5, Units`MassUnit, Units`TimeUnit}& , Range[$CellContext`le8]]; $CellContext`dsAppend; If[$CellContext`auxData, $CellContext`do[ Range[$CellContext`lAuxVerts], {}, {$CellContext`row -> 5, $CellContext`oAnti -> 1, $CellContext`oPtype -> 1, $CellContext`oColor -> 1, $CellContext`oSpin -> $CellContext`lAuxVerts, \ $CellContext`oGen -> 0}], $CellContext`do[{12, 18, 23, 28}, {13, 19, 24, 99}, $CellContext`L1]; $CellContext`do[{14, 15, 16, 20, 21, 22, 25, 26, 27, 29, 30, 31}, {100, 101, 102, 103, 104, 105, 113, 114, 115, 119, 120, 121}, $CellContext`Q1]; $CellContext`do[{ 40, 45, 49, 64}, {74, 59, 60, 44}, $CellContext`L2]; $CellContext`do[{41, 42, 43, 46, 47, 48, 50, 51, 52, 65, 66, 67}, {75, 76, 77, 53, 54, 55, 61, 62, 63, 68, 69, 70}, $CellContext`Q2]; $CellContext`do[{94, 11, 10, 1}, {95, 17, 109, 128}, $CellContext`L3]; $CellContext`do[{37, 36, 35, 32, 33, 34, 118, 117, 116, 124, 123, 122}, {96, 97, 98, 108, 107, 106, 110, 111, 112, 127, 126, 125}, $CellContext`Q3]; $CellContext`do[{84, 85, 86}, {78, 79, 80}, $CellContext`W\[Omega]G]; $CellContext`do[{39, 57, 56, 58, 38, 71, 73, 72, 93}, {92, 91, 90, 89, 88, 87, 83, 82, 81}, $CellContext`e\[Phi]Bx\[CapitalPhi]]; $CellContext`do[{2, 3, 4, 5}, {6, 7, 8, 9}, $CellContext`Exc]]; $CellContext`e8Bin = Part[$CellContext`e8b, All, 1]; $CellContext`e8bit = Part[$CellContext`e8b, All, $CellContext`sets + 3]; $CellContext`plsDo}, $CellContext`doAuxData := { Part[$CellContext`dl, $CellContext`ds] = Rest[ Import[$CellContext`auxFile, { "Data", 1, 2}]]; $CellContext`auxVertNames = Rest[ Rest[ Part[ Import[$CellContext`auxFile, {"Data", 1}], All, 1]]]; $CellContext`auxVerts = Rest[ Rest[ Part[ Import[$CellContext`auxFile, {"Data", 1}], All, Span[ 2, All]]]]; $CellContext`le8 = $CellContext`lAuxVerts; \ $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 "}, { " \!\(\*\n StyleBox[FractionBox[\"1\", \n \ RowBox[{\"2\", \"i\"}]],\nFontFamily->\"Courier New\",\n\ FontSize->8]\)\!\(\*SubsuperscriptBox[\"\[Omega]\", \"T\", \"3\"]\) ", " \!\(\*\n StyleBox[FractionBox[\"1\", \"2\"],\n\ FontFamily->\"Courier New\",\n\ FontSize->8]\)\!\(\*SubsuperscriptBox[\"\[Omega]\", \"S\", \"3\"]\) \ ", " \!\(\*SuperscriptBox[\"U\", \"3\"]\) ", " \!\(\*SuperscriptBox[\"V\", \"3\"]\) ", " w ", " x ", " y ", " z "}, { " \!\(\*\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 "}}, $CellContext`ds = 2, $CellContext`auxFile = "./auxData.xls", $CellContext`auxVertNames = { "vert1", "vert2", "vert3", "vert4", "vert5"}, $CellContext`auxVerts = {{1, 0, 1, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {(-1 - Sqrt[5])/4, Sqrt[5/8 - Sqrt[5]/8], (-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], 0, 0, 0, 0}, {(-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], (-1 + Sqrt[5])/4, Sqrt[5/8 + Sqrt[5]/8], 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}}, $CellContext`le8 = 256, $CellContext`lAuxVerts := Length[$CellContext`auxVerts], $CellContext`position[ Pattern[$CellContext`x, Blank[]], Pattern[$CellContext`y, Blank[]]] := First[ First[ Position[$CellContext`x, $CellContext`y]]], $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, "Dodecahedron"], $CellContext`scale = 0.02, $CellContext`polyTri[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]], Pattern[$CellContext`pm, Blank[]], Pattern[$CellContext`shape, Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], Translate[ Scale[{ PolyhedronData[$CellContext`shape, "Faces"]}, {1, 1, 1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], Polygon[{{First[$CellContext`coords] - $CellContext`scale, $CellContext`pm[ $CellContext`second[$CellContext`coords], $CellContext`scale/ Sqrt[3]]}, {First[$CellContext`coords] + $CellContext`scale, $CellContext`pm[ $CellContext`second[$CellContext`coords], $CellContext`scale/ Sqrt[3]]}, { First[$CellContext`coords], $CellContext`pm[ $CellContext`second[$CellContext`coords], (-2) \ ($CellContext`scale/Sqrt[3])]}}]], $CellContext`pm[ Pattern[$CellContext`n, Blank[]]] := Flatten[ Outer[List, Apply[Sequence, Table[{-1, 1}, {$CellContext`n}]]], $CellContext`n - 1], $CellContext`p3D = " 2D", $CellContext`p3DList = { " 2D", " 3D", " Stereo", " Anaglyph"}, $CellContext`second[{1, 8, 28, 56, 70, 56, 28, 8, 1}] = 8, Pattern[$CellContext`secondPattern, $CellContext`second[ Pattern[$CellContext`x, Blank[]]]] := Part[$CellContext`x, 2], $CellContext`utr[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]]] := $CellContext`polyTri[$CellContext`coords, \ $CellContext`scale, Plus, "GreatStellatedDodecahedron"], $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 = { " x "}, $CellContext`dia[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]]] := If[$CellContext`p3D != First[$CellContext`p3DList], Translate[ Scale[{ PolyhedronData["Tetrahedron", "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["SnubCube", "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.5418986532624117, -0.5418986532624117, 0, 0.5448835825396744, 0.08054772639440974, 0, 0.3852908761710236, 0.27852830295289943`}, $CellContext`dims := Length[ Part[$CellContext`dl, $CellContext`ds]], $CellContext`V = { 0.5448835825396744, -0.5448835825396744, 0.3852908761710236, 0, 0, -0.27852830295289943`, 0, 0}, $CellContext`Z = { 0, 0.5448835825396744, -0.5448835825396744, 0.3852908761710236, -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/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2}, {1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, {1, 1, 0, 0, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0, 0}, {1, 0, 0, 1, 0, 0, 0, 0}, {1, 0, 0, 0, 1, 0, 0, 0}, {1, 0, 0, 0, 0, 1, 0, 0}, {1, 0, 0, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 0, 0, 1}, {0, 1, 1, 0, 0, 0, 0, 0}, {0, 1, 0, 1, 0, 0, 0, 0}, {0, 1, 0, 0, 1, 0, 0, 0}, {0, 1, 0, 0, 0, 1, 0, 0}, {0, 1, 0, 0, 0, 0, 1, 0}, {0, 1, 0, 0, 0, 0, 0, 1}, {0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 1, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 0, 0, 0, 0, 1}, {0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 0}, {0, 0, 0, 1, 0, 0, 1, 0}, {0, 0, 0, 1, 0, 0, 0, 1}, {0, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0}, {0, 0, 0, 0, 1, 0, 0, 1}, {0, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 0, 1, 1}, {0, 0, 0, 0, 0, 0, -1, -1}, {0, 0, 0, 0, 0, -1, 0, -1}, {0, 0, 0, 0, 0, -1, -1, 0}, {0, 0, 0, 0, -1, 0, 0, -1}, {0, 0, 0, 0, -1, 0, -1, 0}, {0, 0, 0, 0, -1, -1, 0, 0}, {0, 0, 0, -1, 0, 0, 0, -1}, {0, 0, 0, -1, 0, 0, -1, 0}, {0, 0, 0, -1, 0, -1, 0, 0}, {0, 0, 0, -1, -1, 0, 0, 0}, {0, 0, -1, 0, 0, 0, 0, -1}, {0, 0, -1, 0, 0, 0, -1, 0}, {0, 0, -1, 0, 0, -1, 0, 0}, {0, 0, -1, 0, -1, 0, 0, 0}, {0, 0, -1, -1, 0, 0, 0, 0}, {0, -1, 0, 0, 0, 0, 0, -1}, {0, -1, 0, 0, 0, 0, -1, 0}, {0, -1, 0, 0, 0, -1, 0, 0}, { 0, -1, 0, 0, -1, 0, 0, 0}, {0, -1, 0, -1, 0, 0, 0, 0}, {0, -1, -1, 0, 0, 0, 0, 0}, {-1, 0, 0, 0, 0, 0, 0, -1}, {-1, 0, 0, 0, 0, 0, -1, 0}, {-1, 0, 0, 0, 0, -1, 0, 0}, {-1, 0, 0, 0, -1, 0, 0, 0}, {-1, 0, 0, -1, 0, 0, 0, 0}, {-1, 0, -1, 0, 0, 0, 0, 0}, {-1, -1, 0, 0, 0, 0, 0, 0}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/ 2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/ 2, (-1)/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/ 2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/ 2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/ 2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/ 2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/ 2}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/ 2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/ 2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/ 2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/ 2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/ 2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/ 2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/ 2, 1/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1)/ 2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/ 2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {1, 0, 0, 0, 0, 0, 0, -1}, {1, 0, 0, 0, 0, 0, -1, 0}, {1, 0, 0, 0, 0, -1, 0, 0}, {1, 0, 0, 0, -1, 0, 0, 0}, {1, 0, 0, -1, 0, 0, 0, 0}, {1, 0, -1, 0, 0, 0, 0, 0}, { 1, -1, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, -1}, {0, 1, 0, 0, 0, 0, -1, 0}, {0, 1, 0, 0, 0, -1, 0, 0}, {0, 1, 0, 0, -1, 0, 0, 0}, {0, 1, 0, -1, 0, 0, 0, 0}, {0, 1, -1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, -1}, {0, 0, 1, 0, 0, 0, -1, 0}, {0, 0, 1, 0, 0, -1, 0, 0}, {0, 0, 1, 0, -1, 0, 0, 0}, {0, 0, 1, -1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, -1}, {0, 0, 0, 1, 0, 0, -1, 0}, {0, 0, 0, 1, 0, -1, 0, 0}, {0, 0, 0, 1, -1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, -1}, {0, 0, 0, 0, 1, 0, -1, 0}, {0, 0, 0, 0, 1, -1, 0, 0}, {0, 0, 0, 0, 0, 1, 0, -1}, {0, 0, 0, 0, 0, 1, -1, 0}, {0, 0, 0, 0, 0, 0, 1, -1}, {0, 0, 0, 0, 0, 0, -1, 1}, {0, 0, 0, 0, 0, -1, 1, 0}, {0, 0, 0, 0, 0, -1, 0, 1}, {0, 0, 0, 0, -1, 1, 0, 0}, {0, 0, 0, 0, -1, 0, 1, 0}, {0, 0, 0, 0, -1, 0, 0, 1}, {0, 0, 0, -1, 1, 0, 0, 0}, {0, 0, 0, -1, 0, 1, 0, 0}, {0, 0, 0, -1, 0, 0, 1, 0}, {0, 0, 0, -1, 0, 0, 0, 1}, {0, 0, -1, 1, 0, 0, 0, 0}, {0, 0, -1, 0, 1, 0, 0, 0}, {0, 0, -1, 0, 0, 1, 0, 0}, {0, 0, -1, 0, 0, 0, 1, 0}, {0, 0, -1, 0, 0, 0, 0, 1}, {0, -1, 1, 0, 0, 0, 0, 0}, {0, -1, 0, 1, 0, 0, 0, 0}, { 0, -1, 0, 0, 1, 0, 0, 0}, {0, -1, 0, 0, 0, 1, 0, 0}, {0, -1, 0, 0, 0, 0, 1, 0}, {0, -1, 0, 0, 0, 0, 0, 1}, {-1, 1, 0, 0, 0, 0, 0, 0}, {-1, 0, 1, 0, 0, 0, 0, 0}, {-1, 0, 0, 1, 0, 0, 0, 0}, {-1, 0, 0, 0, 1, 0, 0, 0}, {-1, 0, 0, 0, 0, 1, 0, 0}, {-1, 0, 0, 0, 0, 0, 1, 0}, {-1, 0, 0, 0, 0, 0, 0, 1}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/ 2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/ 2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/ 2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 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/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-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.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}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/ 2}, {1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, 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.238123, 0.732867, -0.426464, -0.473637, -0.041174, -0.193707, -0.435072, \ -0.391741}}, $CellContext`lcel = 256, $CellContext`cell600 = {{ 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 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}, {0, 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, 0, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, { 0, (-1)/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, (-1)/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 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, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 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)]/2, (-1)/2, 0, 0, 0, 0}, {Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0}, { 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 0, (-1)/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/ 2, (-1)/2, (-1)/2, (-1)/2, 0, 0, 0, 0}, { 1/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1)/ 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, { 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, { 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, 1/2, 1/2, 1/2, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0, 0}, { 1/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, - 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, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, { 0, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/ 2, (5/8 - Sqrt[5]/8)/(2 (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)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 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)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, (-1)/2, (-1)/2, 1/2, 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)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 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, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {1/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - 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/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 1/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, - 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/2, 0, - 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, 0, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0}, {(-1)/2, 1/2, 1/2, (-1)/2, 0, 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)]/2, (-1)/2, 0, 0, 0, 0}, {0, (-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 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, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 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)]/2, (-1)/2, 0, 0, 0, 0}, {0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, { 0, 1/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - 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, 0, 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (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)]/2, 0, (-1)/2, 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/2, 1/2, 1/2, 1/2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, (-1)/2, 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, 0, 1/2, - 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, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {0, 0, 0, -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)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 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)]/2, 0, (-1)/2, 0, 0, 0, 0}, {0, 0, 0, -1, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 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, 0, (-1)/2, 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, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {-1, 0, 0, 0, 0, 0, 0, 0}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, (-1)/2, - 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)/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/ 2, -(5/8 - Sqrt[5]/8)/(2 (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)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - 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/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, - 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, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/ 2, (-1)/2, 1/2, (-1)/2, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1)/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 0, 1/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/2, 1/2, (-1)/2, 1/2, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 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/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, - 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, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 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)]/2, (-1)/2, 0, 0, 0, 0, 0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 0, 0, 0, 0}, { 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {(-1)/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1)/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, - 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, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - 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, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0}, {1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 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)]/2, 1/2, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1)/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1)/ 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 0, 0, 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)]/2, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 0, (-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, (-1)/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 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, 0, 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1)/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 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)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 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)]/2, 1/2, 0, 0, 0, 0}, { 1/2, (-1)/2, 1/2, (-1)/2, 0, 0, 0, 0}, {(-1)/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, (5/8 - Sqrt[5]/8)/(2 (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)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - 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, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {(-1)/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {1, 0, 0, 0, 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)]/2, 1/2, 0, 0, 0, 0, 0}, {0, 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - 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)/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0, 0}, { 0, 1/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - 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, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0, 0}, { 1/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 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)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, 1/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 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, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, 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)]/2, (-1)/2, 0, 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {1/2, 1/2, 1/2, (-1)/2, 0, 0, 0, 0}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0, 0}, {(-1)/2, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 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)]/2, (-1)/2, 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)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, - 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, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0}, { 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 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, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 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)]/2, 1/2, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, 1/2, (-1)/2, 1/2, 0, 0, 0, 0}, { 0, 1/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {0, -1, 0, 0, 0, 0, 0, 0}, { 1/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 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, 0, 1/2, 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, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 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)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 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, 0, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/ 2, (-1)/2, 1/2, 1/2, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, (-1)/2, 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, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 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)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - 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, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1)/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 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)]/2, 0, (-1)/2, 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)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 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)/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 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)]/2, (-1)/2, 0, 0, 0, 0, 0}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0, 0}, { 0, (-1)/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, 1/2, (-1)/2, (-1)/2, 0, 0, 0, 0}, {(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, 0, (-1)/2, 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)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 1/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 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, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0}, { 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1)/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, 1/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - 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, 0, 0, 0, 0, 0, 0}, { 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 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)]/2, 1/2, 0, 0, 0, 0, 0}, {Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {(-1)/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, { 0, (-1)/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, { 1/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, - 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, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0, 0}, { 1/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0, 0}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 1/2, (-1)/2, 1/2, 1/2, 0, 0, 0, 0}, {(-1)/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, - 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, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, { 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 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)]/2, 1/2, 0, 0, 0, 0, 0}, {(-1)/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {0, 0, -1, 0, 0, 0, 0, 0}, { 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0, 0}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 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}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}}, $CellContext`e8b = {{{0, 0, 0, 0, 0, 0, 0, 0}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, (-1)/2, Sqrt[3]/2, 0, 0}, {0.238123, -0.732867, 0.426464, 0.473637, 0.041174, 0.193707, 0.435072, 0.391741}, { 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, { 1, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 1, HoldForm[ HoldForm[ Overscript[ Underscript["e", Subscript["w", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"-"]], 74, { "w", "l"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{1, 0, 0, 0, 0, 0, 0, 0}, { 1/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}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1 + Sqrt[5])/4, Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {1., 0., 1., 0., 0., 0., 0., 0.}, 2, HoldForm[ HoldForm[ Overscript[ Underscript["Ex1", "\" \""], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\ ], 0, {"y", "d"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{0, 1, 0, 0, 0, 0, 0, 0}, {(-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}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1 - Sqrt[5])/4, Sqrt[5/8 - Sqrt[5]/8], (-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], 0, 0, 0, 0}, {0.30901699437494745`, 0.9510565162951535, -0.8090169943749475, 0.5877852522924731, 0., 0., 0., 0.}, 3, HoldForm[ HoldForm[ Overscript[ Underscript["Ex1", "\" \""], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\ ], 2, {"y", "l"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{0, 0, 1, 0, 0, 0, 0, 0}, {(-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}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], (-1 + Sqrt[5])/4, Sqrt[5/8 + Sqrt[5]/8], 0, 0, 0, 0}, {-0.8090169943749475, 0.5877852522924731, 0.30901699437494745`, -0.9510565162951535, 0., 0., 0., 0.}, 4, HoldForm[ HoldForm[ Overscript[ Underscript["Ex1", "\" \""], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\ ], 4, {"y", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{0, 0, 0, 1, 0, 0, 0, 0}, {(-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}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {-0.8090169943749475, -0.5877852522924731, 0.30901699437494745`, 0.9510565162951535, 0., 0., 0., 0.}, 5, HoldForm[ HoldForm[ Overscript[ Underscript["Ex1", "\" \""], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 6, { "y", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{0, 0, 0, 0, 1, 0, 0, 0}, {(-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}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/ 2}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, { 0.30901699437494745`, -0.9510565162951535, -0.8090169943749475, \ -0.5877852522924731, 0., 0., 0., 0.}, 6, HoldForm[ HoldForm[ Overscript[ Underscript["Ex2", "\" \""], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\ ], 8, {"w", "d"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{0, 0, 0, 0, 0, 1, 0, 0}, {(-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])}, {(-1)/2, (-1)/2, (-1)/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 7, HoldForm[ HoldForm[ Overscript[ Underscript["Ex2", "\" \""], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\ 3\)\)\)\)"]], 10, {"w", "l"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{0, 0, 0, 0, 0, 0, 1, 0}, {(-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])}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2, (-1)/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 8, HoldForm[ HoldForm[ Overscript[ Underscript["Ex2", "\" \""], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\ 3\)\)\)\)"]], 12, {"w", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{0, 0, 0, 0, 0, 0, 0, 1}, {(-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]}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 9, HoldForm[ HoldForm[ Overscript[ Underscript["Ex2", "\" \""], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-\(\(2\/\ 3\)\)\)\)"]], 14, {"w", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{1, 1, 0, 0, 0, 0, 0, 0}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, -(1/Sqrt[2]), 0, (-1)/2, Sqrt[3]/2, 0, 0}, {-0.318671, -0.551954, 0.385291, 0.667343, 0.121721, -0.572654, -0.147168, 0.132511}, { 0, 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 10, HoldForm[ HoldForm[ Overscript[ Underscript["e", Subscript["w", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"-"]], 72, { "w", "d"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{1, 0, 1, 0, 0, 0, 0, 0}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), (-1)/2, Sqrt[3]/2, 0, 0}, { 0.435072, -0.391741, -0.188342, -0.061196, -0.238123, 0.732867, -0.196949, -0.606147}, {0, 0, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 11, HoldForm[ HoldForm[ Overscript[ Underscript["e", Subscript["w", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"-"]], 78, { "w", "m"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{1, 0, 0, 1, 0, 0, 0, 0}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 0, -(1/Sqrt[2]), 0, 1/Sqrt[2], (-1)/2, Sqrt[3]/2, 0, 0}, { 0.041174, -0.391741, -0.049781, 0.473637, 0.942084, -0.099017, 0.130329, 0.292724}, { 0, (-1)/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 12, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", Subscript["y", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 70, {"y", "m"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 0, 0, 0, 1, 0, 0, 0}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/2, Sqrt[3]/2, 0, 0}, { 0.318671, -0.551954, 0.770582, 0., 0.556793, -0.180913, -0.188342, -0.061196}, { 1/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 13, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", Subscript["y", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\ ], 193, {"y", "d"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{1, 0, 0, 0, 0, 1, 0, 0}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.147168, -0.452937, 0.385291, 0.081896, 0.318671, 0.033494, -0.385291, 0.865377}, { 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 14, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["o", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 209, { "o", "d"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 0, 0, 0, 0, 1, 0}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.238123, 0.214407, -0.703961, -0.63385, -0.359844, 0.160213, -0.049781, -0.473637}, {(-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 15, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["c", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 225, { "c", "d"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 0, 0, 0, 0, 0, 1}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.623414, -0.452937, 0.06662, 0.63385, 0.171503, -0.099017, -0.507012, 0.292724}, { 1/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 16, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["m", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 241, { "m", "d"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 1, 1, 0, 0, 0, 0, 0}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 0, 1/Sqrt[2], 0, -(1/Sqrt[2]), (-1)/2, Sqrt[3]/2, 0, 0}, {-0.121721, -0.572654, -0.041174, -0.193707, 0.51562, 0.572654, -0.623414, -0.132511}, {(-1)/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 17, HoldForm[ HoldForm[ Overscript[ Underscript["e", Subscript["w", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"-"]], 76, { "w", "m"}, {$CellContext`tri, 1/2}, 1, 1722.0451594629521` Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{0, 1, 0, 1, 0, 0, 0, 0}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 0, 1/Sqrt[2], 0, 1/Sqrt[2], (-1)/2, Sqrt[3]/2, 0, 0}, {-0.51562, -0.572654, -0.196949, 0.606147, 0.188342, 0.061196, 0.556793, -0.180913}, { 0, (-1)/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 18, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", Subscript["y", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 68, {"y", "m"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{0, 1, 0, 0, 1, 0, 0, 0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/2, Sqrt[3]/2, 0, 0}, {-0.238123, -0.732867, 0.623414, 0.132511, -0.196949, -0.0207, 0.238123, -0.534833}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 19, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", Subscript["y", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\ ], 195, {"y", "l"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{0, 1, 0, 0, 0, 1, 0, 0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[ 6])}, {-0.703961, -0.63385, -0.238123, -0.214407, 0.435072, -0.193707, -0.041174, -0.391741}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 20, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["o", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 211, { "o", "l"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 1, 0, 0, 0, 0, 1, 0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.318671, 0.033494, -0.556793, -0.76636, 0.393899, 0., -0.476246, 0.}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 21, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["c", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 227, { "c", "l"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 1, 0, 0, 0, 0, 0, 1}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, (-1)/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.06662, -0.63385, -0.080548, 0.76636, -0.58224, 0.061196, -0.080548, -0.180913}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 22, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["m", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 243, { "m", "l"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 1, 1, 0, 0, 0, 0}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, (-1)/2, Sqrt[3]/2, 0, 0}, { 0.238123, -0.412441, -0.393899, 0., 0.304743, -0.099017, 0.900911, 0.292724}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 23, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", Subscript["y", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 66, {"y", "l"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{0, 0, 1, 0, 1, 0, 0, 0}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), 1/2, Sqrt[3]/2, 0, 0}, { 0.51562, -0.572654, 0.426464, -0.473637, -0.080548, -0.180913, 0.58224, -0.061196}, { 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 24, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", Subscript["y", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\ ], 197, {"y", "m"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{0, 0, 1, 0, 0, 1, 0, 0}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.049781, -0.473637, 0.041174, -0.391741, -0.318671, 0.033494, 0.385291, 0.865377}, { 0, (-1)/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 25, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["o", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 213, { "o", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 1, 0, 0, 0, 1, 0}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), 1/ Sqrt[2], -(1/Sqrt[6])}, {0.435072, 0.193707, 0.359844, 0.160213, -0.277497, -0.160213, 0.820363, 0.473637}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 26, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["c", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 229, { "c", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 1, 0, 0, 0, 0, 1}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.820363, -0.473637, 0.277497, -0.160213, 0.465839, 0.099017, -0.26357, -0.292724}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 27, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["m", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 245, { "m", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 0, 1, 1, 0, 0, 0}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], 1/2, Sqrt[3]/2, 0, 0}, { 0.121721, -0.572654, -0.188342, 0.061196, -0.623414, -0.452937, -0.51562, 0.37462}, { 1/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 28, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", Subscript["y", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 199, {"y", "m"}, {$CellContext`utr, 3/2}, 1, 1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{0, 0, 0, 1, 0, 1, 0, 0}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.344117, -0.473637, 0.196949, -0.0207, -0.385291, -0.667343, -0.318671, -0.551954}, \ {(-1)/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 29, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["o", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 215, {"o", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 0, 1, 0, 0, 1, 0}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), 1/ Sqrt[2], -(1/Sqrt[6])}, {0.041174, 0.193707, -0.121721, -0.572654, -0.426464, -0.473637, -0.753743, \ -0.160213}, { 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 30, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["c", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 231, {"c", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 0, 1, 0, 0, 0, 1}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.426464, -0.473637, -0.51562, 0.572654, 0.238123, 0.534833, 0.196949, -0.0207}, { 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 31, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["m", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 247, {"m", "m"}, {$CellContext`dia, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 0, 0, 0, 1, 1, 0, 0}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.06662, -0.63385, 0.623414, -0.452937, 0., 0.585447, 0., 0.198034}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 32, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["o", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 81, { "o", "d"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 0, 0, 1, 0, 1, 0}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), 1/ Sqrt[2], -(1/Sqrt[6])}, {0.318671, 0.033494, -0.942084, -0.099017, -0.041174, -0.391741, -0.435072, 0.193707}, { 1/2, 1/2, 1/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 33, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["c", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 97, { "c", "d"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 0, 0, 1, 0, 0, 1}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/ 2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.703961, -0.63385, -0.304743, -0.099017, 0.147168, -0.452937, 0.121721, 0.37462}, {0, 0, 0, 1, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 34, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["m", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 113, { "m", "d"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 0, 0, 0, 1, 1, 0}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), 0, -Sqrt[2/3]}, {-0.147168, 0.132511, -0.556793, -0.180913, 0.196949, -0.606147, -0.238123, -0.732867}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 35, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["b", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 122, { "b", "l"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 0, 0, 0, 0, 1, 0, 1}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/ 2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.238123, -0.534833, 0.080548, -0.180913, 0.385291, -0.667343, 0.318671, -0.551954}, { 1/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 36, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["g", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 106, { "g", "l"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 0, 0, 0, 0, 0, 1, 1}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/ 2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/Sqrt[6]}, {0.623414, 0.132511, 0.238123, 0.732867, -0.344117, 0.473637, 0.116402, 0.160213}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 37, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["r", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 90, { "r", "l"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 1, 0, 0, 0, 0, 0}, {1, 1, 0, 0, 0, 0, 0, 0}, { Sqrt[2], 0, 0, 0, 0, 0, 0, 0}, {-0.556793, 0.180913, 0.041174, -0.193707, -0.080548, 0.76636, 0.58224, 0.25923}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 38, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(L\)]\)", Subscript["o", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 16, {"o", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 3, 2.6744608811831626`*^8 Units`MassUnit, 1.2492183972290087`*^-27 Units`TimeUnit}, {{1, 1, 0, 1, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, { 0.196949, 0.341126, -0.238123, -0.412441, 0.196949, -0.926573, -0.238123, 0.214407}, {(-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 39, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", Subscript["o", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 22, {"o", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 0, 0, 1, 0, 0, 0}, {1, 0, 0, 1, 0, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {-0.196949, 0.341126, -0.476246, 0., 0.900911, -0.292724, -0.304743, -0.099017}, { 0, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 40, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", Subscript["m", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"+"]], 50, {"m", "d"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 0, 0, 0, 1, 0, 0}, {1, 0, 0, 0, 1, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 1, 0, 0, 0}, {0.080548, 0.180913, -0.344117, 0.473637, -0.51562, 0.37462, 0.623414, 0.452937}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 41, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", Subscript["w", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "-\[Rule]\!\(TraditionalForm\`0\)"]], 140, { "w", "m"}, {$CellContext`tri, 1}, 1, 353973.26987649983` Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 1, 0, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 1, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.385291, 0.27993, -0.041174, -0.391741, 0.277497, -0.160213, -0.820363, 0.473637}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 42, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["o", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 151, {"o", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1, 0}, {1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0., 0.947274, -0.277497, -0.160213, -0.318671, 0.35392, 0.385291, -0.081896}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 43, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["c", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 167, {"c", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1, 1, 0, 0, 0, 0}, {1, 0, 0, 0, 0, 0, 0, 1}, {1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.385291, 0.27993, -0.359844, 0.160213, 0.130329, -0.292724, -0.942084, -0.099017}, {(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 44, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["m", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 183, {"m", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1, 0, 1, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0}, {1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {-0.359844, 0.160213, -0.385291, -0.27993, -0.556793, -0.76636, 0.188342, -0.25923}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 45, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", Subscript["c", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 36, {"c", "l"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 1, 0, 0, 1, 0, 0}, {0, 1, 0, 1, 0, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {-0.753743, 0.160213, -0.623414, 0.132511, 0.147168, -0.132511, 0.121721, -0.572654}, { 1/2, (-1)/2, (-1)/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 46, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", Subscript["o", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"+"]], 18, {"o", "d"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 0, 1, 0, 0, 0, 1, 0}, {0, 1, 0, 0, 1, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 1, 0, 0, 0}, {-0.476246, 0., 0.196949, -0.341126, -0.238123, -0.214407, -0.196949, -0.926573}, \ {Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 47, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", Subscript["y", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 132, {"y", "m"}, {$CellContext`tri, 1}, 1, 2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{1, 0, 1, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 1, 0, 0}, {1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.942084, 0.099017, 0.188342, 0.25923, 0.476246, 0., 0.393899, 0.}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 48, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["r", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 159, {"r", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 0, 1, 1, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 1, 0}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.556793, 0.76636, -0.130329, -0.292724, 0.435072, 0.193707, -0.041174, 0.391741}, { 1/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 49, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["g", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 175, {"g", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 0, 1, 0, 1, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 1}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {-0.171503, 0.099017, 0.507012, -0.292724, 0.623414, 0.132511, 0.51562, 0.572654}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 50, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["b", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 191, {"b", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 0, 1, 0, 0, 1, 0}, {0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, Sqrt[2], 0, 0, 0, 0, 0}, {0., 0.320426, 0.820363, 0.473637, -0.26357, 0.292724, -0.465839, 0.099017}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 51, HoldForm[ HoldForm[ Overscript[ Underscript["W", Subscript["m", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"+"]], 48, {"m", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 0, 1, 0, 0, 0, 1}, {0, 0, 1, 0, 1, 0, 0, 0}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 1, 0, 0, 0}, {0.277497, 0.160213, 0., 0.947274, 0.121721, 0.37462, -0.147168, 0.452937}, {(-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 52, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", Subscript["y", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 130, {"y", "l"}, {$CellContext`tri, 1}, 1, 2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{1, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 1, 0, 0, 1, 0, 0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.188342, 0.25923, 0.385291, 0.865377, 0.359844, 0.160213, 0.049781, -0.473637}, { 1/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 53, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["r", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 153, {"r", "d"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 0, 0, 1, 0, 1, 0}, {0, 0, 1, 0, 0, 0, 1, 0}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.196949, 0.926573, 0.06662, 0.313424, 0.318671, 0.35392, -0.385291, -0.081896}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 54, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["g", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 169, {"g", "d"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 0, 0, 1, 0, 0, 1}, {0, 0, 1, 0, 0, 0, 0, 1}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.58224, 0.25923, -0.703961, -0.313424, -0.507012, -0.292724, -0.171503, \ -0.099017}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 55, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["b", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 185, {"b", "d"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 0, 1, 1, 0, 0, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 1, 0, 0, 0}, {-0.116402, 0.160213, 0.238123, 0.534833, -0.58224, -0.25923, -0.080548, 0.76636}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 56, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", Subscript["y", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 128, {"y", "d"}, {$CellContext`tri, 1}, 1, 2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{1, 0, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 1, 0, 1, 0, 0}, {0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.58224, 0.25923, -0.623414, -0.452937, 0.344117, 0.473637, -0.116402, 0.160213}, {(-1)/2, 1/2, 1/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 57, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["r", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`4\/3\)\ "]], 155, {"r", "l"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 0, 0, 0, 0, 0, 1, 1}, {0, 0, 0, 1, 0, 0, 1, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.196949, 0.926573, 0.304743, -0.099017, -0.385291, -0.27993, -0.318671, 0.231528}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 58, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["g", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`4\/3\)\ "]], 171, {"g", "l"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 1}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.188342, 0.25923, 0.942084, -0.099017, -0.196949, -0.341126, 0.238123, 0.412441}, { 0, (-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 59, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["b", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`4\/3\)\ "]], 187, {"b", "l"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 1, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0}, { 0, 0, 0, 0, 1, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.304743, 0.099017, -0.196949, 0.926573, 0.041174, -0.391741, 0.435072, 0.193707}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 60, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", Subscript["r", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 30, {"r", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 1, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0}, { 0, 0, 0, 0, 1, -(1/Sqrt[3]), 1/Sqrt[2], -(1/Sqrt[6])}, {0.080548, 0.76636, 0.51562, -0.37462, 0., 0.198034, 0., -0.585447}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 61, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", Subscript["g", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 46, {"g", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 1, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 1, 0, 0, 1}, { 0, 0, 0, 0, 1, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.465839, 0.099017, -0.121721, -0.37462, -0.188342, 0.25923, -0.556793, -0.76636}, {(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, 0, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 62, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", Subscript["b", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 62, {"b", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 1, 0, 0, 0, 0, 1}, {0, 0, 0, 0, 0, 1, 1, 0}, { 0, 0, 0, 0, 0, (-2)/Sqrt[3], 0, -Sqrt[2/3]}, {-0.385291, 0.865377, -0.130329, 0.292724, 0.238123, -0.412441, 0.196949, -0.341126}, { 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 63, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", Subscript["b", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 61, {"b", "l"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 1}, { 0, 0, 0, 0, 0, (-2)/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, {0., 0.198034, 0.507012, 0.292724, 0.426464, -0.473637, 0.753743, -0.160213}, { 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 64, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", Subscript["g", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 45, {"g", "l"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0, 1, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 1}, { 0, 0, 0, 0, 0, (-2)/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, {0.385291, 0.865377, 0.188342, -0.25923, 0.385291, -0.27993, 0.318671, 0.231528}, { 0, 1/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 65, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", Subscript["r", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 29, {"r", "l"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0, 1, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, -1, -1}, { 0, 0, 0, 0, 0, 2/Sqrt[ 3], -(1/Sqrt[2]), -(1/Sqrt[ 6])}, {-0.385291, -0.865377, -0.188342, 0.25923, -0.385291, 0.27993, -0.318671, -0.231528}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 66, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", Subscript["r", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 28, {"r", "l"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0, 1, 0, 0, 0, 1}, {0, 0, 0, 0, 0, -1, 0, -1}, { 0, 0, 0, 0, 0, 2/Sqrt[3], 1/Sqrt[2], -(1/Sqrt[6])}, { 0., -0.198034, -0.507012, -0.292724, -0.426464, 0.473637, -0.753743, 0.160213}, { 1/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 67, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", Subscript["g", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 44, {"g", "l"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 0, 0, -1, -1, 0}, { 0, 0, 0, 0, 0, 2/Sqrt[3], 0, Sqrt[2/3]}, {0.385291, -0.865377, 0.130329, -0.292724, -0.238123, 0.412441, -0.196949, 0.341126}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 68, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", Subscript["b", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 60, {"b", "l"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0, 0, 1, 0, 1, 0}, {0, 0, 0, 0, -1, 0, 0, -1}, { 0, 0, 0, 0, -1, 1/Sqrt[3], 0, -Sqrt[2/3]}, {-0.465839, -0.099017, 0.121721, 0.37462, 0.188342, -0.25923, 0.556793, 0.76636}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 69, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", Subscript["b", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 63, {"b", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0, 0, 1, 0, 0, 1}, {0, 0, 0, 0, -1, 0, -1, 0}, { 0, 0, 0, 0, -1, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.080548, -0.76636, -0.51562, 0.37462, 0., -0.198034, 0., 0.585447}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 70, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", Subscript["g", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 47, {"g", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0, 0, 0, 1, 1, 0}, {0, 0, 0, 0, -1, -1, 0, 0}, { 0, 0, 0, 0, -1, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, { 0.304743, -0.099017, 0.196949, -0.926573, -0.041174, 0.391741, -0.435072, -0.193707}, {(-1)/2, 1/2, 1/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 71, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", Subscript["r", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 31, {"r", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{0, 1, 0, 0, 0, 1, 0, 1}, {0, 0, 0, -1, 0, 0, 0, -1}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.188342, -0.25923, -0.942084, 0.099017, 0.196949, 0.341126, -0.238123, -0.412441}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 72, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["b", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`\(-\(\(4\/3\)\)\)\)"]], 186, { "b", "l"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 1, 0, 0, 0, 0, 1, 1}, {0, 0, 0, -1, 0, 0, -1, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/ Sqrt[6]}, {0.196949, -0.926573, -0.304743, 0.099017, 0.385291, 0.27993, 0.318671, -0.231528}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 73, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["g", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`\(-\(\(4\/3\)\)\)\)"]], 170, { "g", "l"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 1, 1, 1, 0, 0, 0}, {0, 0, 0, -1, 0, -1, 0, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[ 6]}, {0.58224, -0.25923, 0.623414, 0.452937, -0.344117, -0.473637, 0.116402, -0.160213}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 74, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["r", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`\(-\(\(4\/3\)\)\)\)"]], 154, { "r", "l"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 1, 1, 0, 1, 0, 0}, {0, 0, 0, -1, -1, 0, 0, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), -1, 0, 0, 0}, { 0.116402, -0.160213, -0.238123, -0.534833, 0.58224, 0.25923, 0.080548, -0.76636}, { 0, 0, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 75, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", Subscript["y", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`\(-1\)\)"]\ ], 129, {"y", "d"}, {$CellContext`utr, 1}, 1, 2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{0, 0, 1, 1, 0, 0, 1, 0}, {0, 0, -1, 0, 0, 0, 0, -1}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.58224, -0.25923, 0.703961, 0.313424, 0.507012, 0.292724, 0.171503, 0.099017}, {(-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 76, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["b", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 184, { "b", "d"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 1, 1, 0, 0, 0, 1}, {0, 0, -1, 0, 0, 0, -1, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.196949, -0.926573, -0.06662, -0.313424, -0.318671, \ -0.35392, 0.385291, 0.081896}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 77, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["g", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 168, { "g", "d"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 1, 0, 1, 1, 0, 0}, {0, 0, -1, 0, 0, -1, 0, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[ 6]}, {0.188342, -0.25923, -0.385291, -0.865377, -0.359844, \ -0.160213, -0.049781, 0.473637}, {0, 0, 0, -1, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 78, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["r", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 152, { "r", "d"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 1, 0, 1, 0, 1, 0}, {0, 0, -1, 0, -1, 0, 0, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], -1, 0, 0, 0}, {-0.277497, -0.160213, 0., -0.947274, -0.121721, -0.37462, 0.147168, -0.452937}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 79, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", Subscript["y", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 131, {"y", "l"}, {$CellContext`utr, 1}, 1, 2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{0, 0, 1, 0, 1, 0, 0, 1}, {0, 0, -1, -1, 0, 0, 0, 0}, {0, 0, -Sqrt[2], 0, 0, 0, 0, 0}, { 0., -0.320426, -0.820363, -0.473637, 0.26357, -0.292724, 0.465839, -0.099017}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 80, HoldForm[ HoldForm[ Overscript[ Underscript["W", Subscript["m", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"-"]], 49, {"m", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{0, 0, 1, 0, 0, 1, 1, 0}, {0, -1, 0, 0, 0, 0, 0, -1}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {0.171503, -0.099017, -0.507012, 0.292724, -0.623414, -0.132511, -0.51562, -0.572654}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 81, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["b", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 190, { "b", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 1, 0, 0, 1, 0, 1}, {0, -1, 0, 0, 0, 0, -1, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, {0.556793, -0.76636, 0.130329, 0.292724, -0.435072, -0.193707, 0.041174, -0.391741}, {-1, 0, 0, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 82, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["g", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 174, { "g", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 1, 0, 0, 0, 1, 1}, {0, -1, 0, 0, 0, -1, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/ Sqrt[6]}, {0.942084, -0.099017, -0.188342, -0.25923, -0.476246, 0., -0.393899, 0.}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 83, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["r", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 158, { "r", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 0, 1, 1, 1, 0, 0}, {0, -1, 0, 0, -1, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, -1, 0, 0, 0}, {0.476246, 0., -0.196949, 0.341126, 0.238123, 0.214407, 0.196949, 0.926573}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 84, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", Subscript["y", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 133, {"y", "m"}, {$CellContext`utr, 1}, 1, 2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{0, 0, 0, 1, 1, 0, 1, 0}, {0, -1, 0, -1, 0, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0}, {0.753743, -0.160213, 0.623414, -0.132511, -0.147168, 0.132511, -0.121721, 0.572654}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 85, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", Subscript["o", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"-"]], 19, {"o", "d"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 0, 1, 1, 0, 0, 1}, {0, -1, -1, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0}, {0.359844, -0.160213, 0.385291, 0.27993, 0.556793, 0.76636, -0.188342, 0.25923}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 86, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", Subscript["c", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 37, {"c", "l"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 0, 1, 0, 1, 1, 0}, {-1, 0, 0, 0, 0, 0, 0, -1}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.385291, -0.27993, 0.359844, -0.160213, -0.130329, 0.292724, 0.942084, 0.099017}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 87, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["m", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 182, {"m", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 0, 0, 1, 0, 1, 0, 1}, {-1, 0, 0, 0, 0, 0, -1, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 1/Sqrt[ 3], -(1/Sqrt[2]), 1/Sqrt[6]}, {0., -0.947274, 0.277497, 0.160213, 0.318671, -0.35392, -0.385291, 0.081896}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 88, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["c", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 166, {"c", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 0, 0, 1, 0, 0, 1, 1}, {-1, 0, 0, 0, 0, -1, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/ Sqrt[6]}, {0.385291, -0.27993, 0.041174, 0.391741, -0.277497, 0.160213, 0.820363, -0.473637}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 89, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["o", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 150, {"o", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 0, 0, 0, 1, 1, 1, 0}, {-1, 0, 0, 0, -1, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, -1, 0, 0, 0}, {-0.080548, -0.180913, 0.344117, -0.473637, 0.51562, -0.37462, -0.623414, -0.452937}, {(-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 90, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", Subscript["w", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "+\[Rule]\!\(TraditionalForm\`0\)"]], 141, { "w", "m"}, {$CellContext`utr, 1}, 1, 353973.26987649983` Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 0, 0, 0, 1, 1, 0, 1}, {-1, 0, 0, -1, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0}, {0.196949, -0.341126, 0.476246, 0., -0.900911, 0.292724, 0.304743, 0.099017}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 91, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", Subscript["m", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"-"]], 51, {"m", "d"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 0, 0, 1, 0, 1, 1}, {-1, 0, -1, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0}, {-0.196949, -0.341126, 0.238123, 0.412441, -0.196949, 0.926573, 0.238123, -0.214407}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 92, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", Subscript["o", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 23, {"o", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 0, 0, 0, 1, 1, 1}, {-1, -1, 0, 0, 0, 0, 0, 0}, {-Sqrt[2], 0, 0, 0, 0, 0, 0, 0}, { 0.556793, -0.180913, -0.041174, 0.193707, 0.080548, -0.76636, -0.58224, -0.25923}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 93, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(L\)]\)", Subscript["o", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 17, {"o", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 3, 2.6744608811831626`*^8 Units`MassUnit, 1.2492183972290087`*^-27 Units`TimeUnit}, {{1, 1, 1, 1, 0, 0, 0, 0}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, (-1)/2, Sqrt[3]/2, 0, 0}, {-0.318671, -0.231528, -0.435072, 0.193707, 0.385291, -0.865377, 0.318671, 0.033494}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 94, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", Subscript["y", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 64, {"y", "d"}, {$CellContext`tri, 1/2}, 1, 0.0005807048639257906 Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 1, 1, 0, 1, 0, 0, 0}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, 0, -(1/Sqrt[2]), 1/2, Sqrt[3]/2, 0, 0}, {-0.041174, -0.391741, 0.385291, -0.27993, 0., -0.947274, 0., -0.320426}, { 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 95, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", Subscript["w", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "+\[Rule]\!\(TraditionalForm\`\(-1\)\)"]], 205, { "w", "m"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{1, 1, 1, 0, 0, 1, 0, 0}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.507012, -0.292724, 0., 0.198034, 0.238123, 0.732867, 0.196949, -0.606147}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 96, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["r", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 2\/3\)\)\)\)"]], 221, {"r", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 1, 1, 0, 0, 0, 1, 0}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/Sqrt[2], 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.121721, 0.37462, 0.318671, 0.35392, -0.196949, -0.926573, 0.238123, 0.214407}, { 1/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 97, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["g", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 2\/3\)\)\)\)"]], 237, {"g", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 1, 1, 0, 0, 0, 0, 1}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/Sqrt[2], 0, 0, -(1/Sqrt[2]), (-1)/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.26357, -0.292724, -0.318671, 0.35392, -0.385291, -0.865377, -0.318671, 0.033494}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/ 4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 98, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["b", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`1\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 2\/3\)\)\)\)"]], 253, {"b", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 1, 0, 1, 1, 0, 0, 0}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, 0, 1/Sqrt[2], 1/2, Sqrt[3]/2, 0, 0}, {-0.435072, -0.391741, -0.147168, -0.132511, -0.703961, 0.313424, 0.06662, 0.63385}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 99, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", Subscript["w", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "+\[Rule]\!\(TraditionalForm\`0\)"]], 207, { "w", "m"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{1, 1, 0, 1, 0, 1, 0, 0}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.900911, -0.292724, 0.238123, -0.214407, -0.465839, 0.099017, 0.26357, -0.292724}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 100, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["r", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 223, {"r", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 1, 0, 1, 0, 0, 1, 0}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/Sqrt[2], 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.51562, 0.37462, 0.080548, 0.76636, 0.507012, -0.292724, 0.171503, -0.099017}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 101, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["g", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 239, {"g", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 1, 0, 1, 0, 0, 0, 1}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/Sqrt[2], 0, 0, 1/Sqrt[2], (-1)/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {-0.130329, -0.292724, 0.556793, -0.76636, -0.318671, 0.231528, 0.385291, 0.27993}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 102, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["b", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 255, {"b", "m"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 1, 0, 0, 1, 1, 0, 0}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.623414, -0.452937, 0.58224, -0.25923, 0.080548, -0.180913, -0.58224, -0.061196}, {(-1)/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 103, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["o", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 83, { "o", "l"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 0, 0, 1, 0, 1, 0}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/Sqrt[2], 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.238123, 0.214407, -0.900911, -0.292724, -0.121721, 0.37462, 0.147168, 0.452937}, { 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 104, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["c", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 99, { "c", "l"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 0, 0, 1, 0, 0, 1}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/Sqrt[2], 0, -(1/Sqrt[2]), 0, 1/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.147168, -0.452937, 0.26357, 0.292724, -0.06662, -0.313424, -0.703961, -0.63385}, { 0, 1/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 105, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["m", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 115, { "m", "l"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 0, 0, 0, 1, 1, 0}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/Sqrt[2], 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.703961, 0.313424, 0.51562, 0.37462, -0.116402, -0.160213, -0.344117, 0.473637}, {(-1)/2, 1/2, (-1)/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 106, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["b", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 120, { "b", "d"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 0, 0, 0, 1, 0, 1}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/Sqrt[2], 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.318671, -0.35392, -0.121721, 0.37462, -0.304743, -0.099017, -0.900911, 0.292724}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 107, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["g", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 104, { "g", "d"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 0, 0, 0, 0, 1, 1}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/Sqrt[2], 0, -(1/Sqrt[2]), 0, (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[ 2], 1/Sqrt[6]}, {0.06662, 0.313424, -0.196949, -0.926573, 0.26357, 0.292724, 0.465839, 0.099017}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 108, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["r", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 88, { "r", "d"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 1, 1, 1, 0, 0, 0}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/2, Sqrt[3]/2, 0, 0}, { 0.318671, -0.231528, -0.049781, -0.473637, 0.820363, -0.473637, 0.277497, -0.160213}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 109, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", Subscript["w", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "+\[Rule]\!\(TraditionalForm\`0\)"]], 201, { "w", "d"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{1, 0, 1, 1, 0, 1, 0, 0}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.147168, -0.132511, 0.435072, 0.391741, -0.58224, 0.25923, -0.080548, -0.76636}, {(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 110, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["r", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 217, {"r", "d"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 0, 1, 1, 0, 0, 1, 0}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.238123, 0.534833, 0.116402, -0.160213, -0.623414, 0.452937, -0.51562, -0.37462}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 111, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["g", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 233, {"g", "d"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 0, 1, 1, 0, 0, 0, 1}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.623414, -0.132511, -0.753743, 0.160213, 0.435072, -0.391741, -0.041174, 0.193707}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 112, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["b", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 249, {"b", "d"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 0, 1, 0, 1, 1, 0, 0}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, { 0.130329, -0.292724, -0.385291, 0.865377, -0.196949, 0.341126, 0.238123, -0.412441}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 113, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["o", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 85, { "o", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 1, 0, 1, 0, 1, 0}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.51562, 0.37462, 0.703961, -0.313424, 0.238123, -0.534833, 0.196949, 0.0207}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 114, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["c", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 101, { "c", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 1, 0, 1, 0, 0, 1}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.900911, -0.292724, -0.06662, 0.313424, -0.049781, 0.473637, 0.359844, 0.160213}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 115, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["m", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 117, { "m", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 1, 0, 0, 1, 1, 0}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {0.049781, 0.473637, 0.318671, -0.231528, 0., -0.320426, 0., 0.947274}, { 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 116, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["b", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 126, { "b", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 1, 0, 0, 1, 0, 1}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, { 0.435072, -0.193707, -0.318671, -0.231528, -0.188342, -0.25923, \ -0.556793, 0.76636}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 117, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["g", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 110, { "g", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 1, 0, 0, 0, 1, 1}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), 1/ Sqrt[2], 1/Sqrt[6]}, {0.820363, 0.473637, 0., -0.320426, 0.147168, 0.452937, 0.121721, -0.37462}, {(-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 118, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["r", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 94, { "r", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 0, 1, 1, 1, 0, 0}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 0, -(1/Sqrt[2]), 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.26357, -0.292724, 0.147168, -0.452937, 0.900911, 0.292724, -0.304743, 0.099017}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 119, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["r", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 93, {"r", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 0, 1, 1, 0, 1, 0}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 0, -(1/Sqrt[2]), 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.121721, 0.37462, 0.465839, 0.099017, 0.942084, 0.099017, 0.130329, -0.292724}, {(-1)/2, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 120, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["g", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 109, {"g", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 0, 1, 1, 0, 0, 1}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 0, -(1/Sqrt[2]), 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.507012, -0.292724, 0.171503, -0.099017, -0.753743, -0.160213, 0.426464, 0.473637}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 121, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["b", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 125, {"b", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 0, 0, 1, 0, 1, 1, 0}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 0, -(1/Sqrt[2]), 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.344117, 0.473637, -0.080548, -0.180913, -0.703961, -0.313424, 0.06662, -0.63385}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 122, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["m", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 118, {"m", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 0, 1, 0, 1, 0, 1}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 0, -(1/Sqrt[2]), 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.041174, -0.193707, 0.556793, -0.180913, -0.51562, -0.37462, 0.623414, -0.452937}, { 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 123, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["c", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 102, {"c", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 0, 1, 0, 0, 1, 1}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 0, -(1/Sqrt[2]), 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[ 2], 1/Sqrt[6]}, {0.426464, 0.473637, -0.238123, 0.732867, 0.556793, 0.180913, -0.188342, 0.061196}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, (-1)/ 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 124, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["o", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 86, {"o", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 0, 0, 0, 1, 1, 1, 0}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, { 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.06662, 0.313424, -0.900911, 0.292724, -0.318671, -0.231528, 0.385291, -0.27993}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 125, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["b", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 250, { "b", "l"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 0, 0, 0, 1, 1, 0, 1}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, { 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.318671, -0.35392, 0.26357, -0.292724, 0.130329, 0.292724, -0.942084, 0.099017}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 126, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["g", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 234, { "g", "l"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 0, 0, 0, 1, 0, 1, 1}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, { 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[ 2], 1/Sqrt[6]}, {0.703961, 0.313424, 0.58224, 0.25923, 0.171503, 0.099017, -0.507012, -0.292724}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 127, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["r", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 218, { "r", "l"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{1, 0, 0, 0, 0, 1, 1, 1}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, { 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, (-1)/2, -Sqrt[3]/2, 0, 0}, { 0.238123, 0.412441, 0.196949, 0.341126, -0.06662, 0.313424, -0.703961, 0.63385}, {(-1)/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 128, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", Subscript["w", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "-\[Rule]\!\(TraditionalForm\`0\)"]], 202, { "w", "l"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 1, 1, 1, 1, 0, 0, 0}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/2, Sqrt[3]/2, 0, 0}, {-0.238123, -0.412441, -0.196949, -0.341126, 0.06662, -0.313424, 0.703961, -0.63385}, { 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 129, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", Subscript["w", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "+\[Rule]\!\(TraditionalForm\`0\)"]], 203, { "w", "l"}, {$CellContext`utr, 3/2}, 1, 6.063385112102079*^6 Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 1, 1, 1, 0, 1, 0, 0}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 0, 1/Sqrt[2], 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[ 6])}, {-0.703961, -0.313424, -0.58224, -0.25923, -0.171503, \ -0.099017, 0.507012, 0.292724}, {(-1)/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 130, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["r", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 219, {"r", "l"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 1, 1, 1, 0, 0, 1, 0}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 0, 1/Sqrt[2], 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.318671, 0.35392, -0.26357, 0.292724, -0.130329, -0.292724, 0.942084, -0.099017}, {0, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 131, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["g", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 235, {"g", "l"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 1, 1, 1, 0, 0, 0, 1}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 0, 1/Sqrt[2], 1/Sqrt[2], 0, (-1)/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.06662, -0.313424, 0.900911, -0.292724, 0.318671, 0.231528, -0.385291, 0.27993}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 132, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["b", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 251, {"b", "l"}, {$CellContext`dia, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 1, 1, 0, 1, 1, 0, 0}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 0, 1/Sqrt[2], 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.426464, -0.473637, 0.238123, -0.732867, -0.556793, -0.180913, 0.188342, -0.061196}, { 0, (-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 133, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["o", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 87, { "o", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 1, 0, 1, 0, 1, 0}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 0, 1/Sqrt[2], 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.041174, 0.193707, -0.556793, 0.180913, 0.51562, 0.37462, -0.623414, 0.452937}, { 0, (-1)/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 134, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["c", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 103, { "c", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 1, 0, 1, 0, 0, 1}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 0, 1/Sqrt[2], 0, -(1/Sqrt[2]), 1/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.344117, -0.473637, 0.080548, 0.180913, 0.703961, 0.313424, -0.06662, 0.63385}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 135, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["m", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 119, { "m", "m"}, {$CellContext`dia, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 1, 0, 0, 1, 1, 0}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 0, 1/Sqrt[2], 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.507012, 0.292724, -0.171503, 0.099017, 0.753743, 0.160213, -0.426464, -0.473637}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 136, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["b", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 124, { "b", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 1, 0, 0, 1, 0, 1}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 0, 1/Sqrt[2], 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.121721, -0.37462, -0.465839, -0.099017, -0.942084, \ -0.099017, -0.130329, 0.292724}, { 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 137, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["g", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 108, { "g", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 1, 0, 0, 0, 1, 1}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 0, 1/Sqrt[2], 0, -(1/Sqrt[2]), (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[ 2], 1/Sqrt[6]}, {0.26357, 0.292724, -0.147168, 0.452937, -0.900911, -0.292724, 0.304743, -0.099017}, {(-1)/2, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 138, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["r", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 92, { "r", "m"}, {$CellContext`squ, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 0, 1, 1, 1, 0, 0}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 0, 1/Sqrt[2], 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.820363, -0.473637, 0., 0.320426, -0.147168, -0.452937, -0.121721, 0.37462}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 139, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["r", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 95, {"r", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 0, 1, 1, 0, 1, 0}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 0, 1/Sqrt[2], 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.435072, 0.193707, 0.318671, 0.231528, 0.188342, 0.25923, 0.556793, -0.76636}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 140, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["g", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 111, {"g", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 0, 1, 1, 0, 0, 1}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 0, 1/Sqrt[2], 0, 1/Sqrt[2], 1/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {-0.049781, -0.473637, -0.318671, 0.231528, 0., 0.320426, 0., -0.947274}, { 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 141, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["b", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 127, {"b", "m"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 1, 0, 1, 0, 1, 1, 0}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 0, 1/Sqrt[2], 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.900911, 0.292724, 0.06662, -0.313424, 0.049781, -0.473637, -0.359844, -0.160213}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 142, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["m", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 116, {"m", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 0, 1, 0, 1, 0, 1}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 0, 1/Sqrt[2], 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.51562, -0.37462, -0.703961, 0.313424, -0.238123, 0.534833, -0.196949, -0.0207}, {(-1)/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 143, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["c", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 100, {"c", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 0, 1, 0, 0, 1, 1}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 0, 1/Sqrt[2], 0, 1/Sqrt[2], (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/Sqrt[6]}, {-0.130329, 0.292724, 0.385291, -0.865377, 0.196949, -0.341126, -0.238123, 0.412441}, { 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 144, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["o", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 84, {"o", "m"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 1, 0, 0, 1, 1, 1, 0}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, { 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.623414, 0.132511, 0.753743, -0.160213, -0.435072, 0.391741, 0.041174, -0.193707}, { 1/2, (-1)/2, 1/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 145, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["b", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 248, { "b", "d"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 1, 0, 0, 1, 1, 0, 1}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, { 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.238123, -0.534833, -0.116402, 0.160213, 0.623414, -0.452937, 0.51562, 0.37462}, {(-1)/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 146, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["g", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 232, { "g", "d"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 1, 0, 0, 1, 0, 1, 1}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, { 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/Sqrt[6]}, {0.147168, 0.132511, -0.435072, -0.391741, 0.58224, -0.25923, 0.080548, 0.76636}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 147, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["r", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 216, { "r", "d"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 1, 0, 0, 0, 1, 1, 1}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, { 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, (-1)/2, -Sqrt[3]/2, 0, 0}, {-0.318671, 0.231528, 0.049781, 0.473637, -0.820363, 0.473637, -0.277497, 0.160213}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 148, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", Subscript["w", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "-\[Rule]\!\(TraditionalForm\`0\)"]], 200, { "w", "d"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 0, 1, 1, 1, 1, 0, 0}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.06662, -0.313424, 0.196949, 0.926573, -0.26357, -0.292724, -0.465839, -0.099017}, {- Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 149, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["r", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 89, {"r", "d"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 0, 1, 1, 1, 0, 1, 0}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.318671, 0.35392, 0.121721, -0.37462, 0.304743, 0.099017, 0.900911, -0.292724}, {(-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 150, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["g", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 105, {"g", "d"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 0, 1, 1, 1, 0, 0, 1}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/ 2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.703961, -0.313424, -0.51562, -0.37462, 0.116402, 0.160213, 0.344117, -0.473637}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (-1)/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 151, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["b", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 121, {"b", "d"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{0, 0, 1, 1, 0, 1, 1, 0}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), 0, -Sqrt[2/3]}, {-0.147168, 0.452937, -0.26357, -0.292724, 0.06662, 0.313424, 0.703961, 0.63385}, { 1/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 152, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["m", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 114, {"m", "l"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 1, 1, 0, 1, 0, 1}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/ 2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.238123, -0.214407, 0.900911, 0.292724, 0.121721, -0.37462, -0.147168, -0.452937}, {1, 0, 0, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 153, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["c", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 98, {"c", "l"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 1, 1, 0, 0, 1, 1}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/ 2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), 1/ Sqrt[2], 1/Sqrt[6]}, {0.623414, 0.452937, -0.58224, 0.25923, -0.080548, 0.180913, 0.58224, 0.061196}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 154, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["o", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 82, {"o", "l"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{0, 0, 1, 0, 1, 1, 1, 0}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), 0, -Sqrt[2/3]}, {0.130329, 0.292724, -0.556793, 0.76636, 0.318671, -0.231528, -0.385291, -0.27993}, { 0, 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 155, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["b", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 254, { "b", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 0, 1, 0, 1, 1, 0, 1}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/ 2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, { 0.51562, -0.37462, -0.080548, -0.76636, -0.507012, 0.292724, -0.171503, 0.099017}, { 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 156, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["g", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 238, { "g", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 0, 1, 0, 1, 0, 1, 1}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/ 2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), 1/ Sqrt[2], 1/Sqrt[6]}, {0.900911, 0.292724, -0.238123, 0.214407, 0.465839, -0.099017, -0.26357, 0.292724}, {(-1)/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 157, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["r", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 222, { "r", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 0, 1, 0, 0, 1, 1, 1}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/ 2}, {-(1/Sqrt[2]), 0, 0, -(1/Sqrt[2]), (-1)/2, -Sqrt[3]/2, 0, 0}, {0.435072, 0.391741, 0.147168, 0.132511, 0.703961, -0.313424, -0.06662, -0.63385}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 158, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", Subscript["w", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "-\[Rule]\!\(TraditionalForm\`0\)"]], 206, { "w", "m"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 0, 0, 1, 1, 1, 1, 0}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/ 2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.26357, 0.292724, 0.318671, -0.35392, 0.385291, 0.865377, 0.318671, -0.033494}, {0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 159, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["b", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`2\/3\)"]], 252, {"b", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 0, 0, 1, 1, 1, 0, 1}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/ 2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, { 0.121721, -0.37462, -0.318671, -0.35392, 0.196949, 0.926573, -0.238123, -0.214407}, { 0, 1/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 160, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["g", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`2\/3\)"]], 236, {"g", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 0, 0, 1, 1, 0, 1, 1}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/ 2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), 1/ Sqrt[2], 1/Sqrt[6]}, {0.507012, 0.292724, 0., -0.198034, -0.238123, -0.732867, -0.196949, 0.606147}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 161, HoldForm[ HoldForm[ Overscript[ Underscript["b", Subscript["r", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`2\/3\)"]], 220, {"r", "m"}, {$CellContext`squ, 3/2}, 2, 1.1020180577837463`*^7 Units`MassUnit, 3.104228606788203*^-13 Units`TimeUnit}, {{0, 0, 0, 1, 0, 1, 1, 1}, {(-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/ 2}, {-(1/Sqrt[2]), 0, 0, 1/Sqrt[2], (-1)/2, -Sqrt[3]/2, 0, 0}, { 0.041174, 0.391741, -0.385291, 0.27993, 0., 0.947274, 0., 0.320426}, { 1/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 162, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)", Subscript["w", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "-\[Rule]\!\(TraditionalForm\`1\)"]], 204, { "w", "m"}, {$CellContext`tri, 3/2}, 1, 6.063385112102079*^6 Units`MassUnit, 1.025417707079008*^-12 Units`TimeUnit}, {{0, 0, 0, 0, 1, 1, 1, 1}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/ 2}, {-(1/Sqrt[2]), 0, -(1/Sqrt[2]), 0, 1/2, -Sqrt[3]/2, 0, 0}, { 0.318671, 0.231528, 0.435072, -0.193707, -0.385291, 0.865377, -0.318671, -0.033494}, {(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 163, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", Subscript["y", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 65, {"y", "d"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 1, 1, 1, 1, 0, 0, 0}, {1, 0, 0, 0, 0, 0, 0, -1}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.385291, 0.081896, 0.465839, -0.099017, 0.703961, -0.63385, -0.06662, 0.313424}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 164, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["b", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 188, { "b", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 1, 1, 0, 1, 0, 0}, {1, 0, 0, 0, 0, 0, -1, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[ 6]}, {0., -0.585447, 0.171503, 0.099017, -0.51562, 0.572654, 0.623414, -0.132511}, { 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 165, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["g", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 172, { "g", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 1, 1, 0, 0, 1, 0}, {1, 0, 0, 0, 0, -1, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[ 6]}, {0.385291, 0.081896, 0.147168, 0.452937, 0.556793, -0.76636, -0.188342, -0.25923}, {(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 166, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["r", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 156, { "r", "m"}, {$CellContext`squ, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 1, 1, 0, 0, 0, 1}, {1, 0, 0, 0, -1, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, -1, 0, 0, 0}, {-0.080548, 0.180913, 0.238123, -0.534833, -0.318671, 0.551954, 0.385291, -0.667343}, { 0, 1/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 167, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", Subscript["y", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 135, {"y", "m"}, {$CellContext`utr, 1}, 1, 2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{1, 1, 1, 0, 1, 1, 0, 0}, {1, 0, 0, -1, 0, 0, 0, 0}, {1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0}, {0.196949, 0.0207, -0.58224, -0.061196, 0.06662, 0.63385, 0.703961, -0.313424}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 168, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", Subscript["m", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"-"]], 53, {"m", "l"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 1, 0, 1, 0, 1, 0}, {1, 0, -1, 0, 0, 0, 0, 0}, { 1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0}, {-0.196949, 0.0207, -0.344117, -0.473637, -0.637341, 0., 0.770582, 0.}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 169, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", Subscript["c", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 34, {"c", "d"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 1, 0, 1, 0, 0, 1}, {1, -1, 0, 0, 0, 0, 0, 0}, { 0, -Sqrt[2], 0, 0, 0, 0, 0, 0}, {0.556793, 0.180913, -0.147168, 0.132511, -0.753743, 0.160213, 0.426464, -0.473637}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 170, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(R\)]\)", Subscript["c", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 33, {"c", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 1, 1, 0, 0, 1, 1, 0}, {0, 1, 0, 0, 0, 0, 0, -1}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.942084, -0.099017, -0.318671, -0.033494, 0.049781, 0.473637, -0.359844, 0.160213}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 171, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["m", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 180, {"m", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 1, 0, 0, 1, 0, 1}, {0, 1, 0, 0, 0, 0, -1, 0}, {1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/ Sqrt[6]}, {-0.556793, -0.76636, 0.318671, -0.033494, 0.238123, 0.412441, 0.196949, 0.341126}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/ 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 172, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["c", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 164, {"c", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 1, 0, 0, 0, 1, 1}, {0, 1, 0, 0, 0, -1, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[ 6]}, {-0.171503, -0.099017, 0., -0.585447, 0.196949, 0.606147, -0.238123, 0.732867}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 173, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["o", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 148, {"o", "m"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0, 1, 1, 1, 0, 0}, {0, 1, 0, 0, -1, 0, 0, 0}, {1/Sqrt[2], 1/Sqrt[2], 0, 0, -1, 0, 0, 0}, {-0.637341, 0., -0.385291, 0.667343, -0.435072, -0.391741, 0.041174, 0.193707}, { 1/2, 1/2, 1/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 174, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", Subscript["w", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "+\[Rule]\!\(TraditionalForm\`0\)"]], 143, { "w", "m"}, {$CellContext`utr, 1}, 1, 353973.26987649983` Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 1, 0, 1, 1, 0, 1, 0}, {0, 1, 0, -1, 0, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, 0}, {-0.359844, -0.160213, 0.435072, 0.193707, -0.820363, -0.473637, -0.277497, -0.160213}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/ 4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 175, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", Subscript["o", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "+\[Rule]\!\(TraditionalForm\`\(-1\)\)"]], 20, {"o", "l"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 0, 1, 1, 0, 0, 1}, {0, 1, -1, 0, 0, 0, 0, 0}, { 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0}, {-0.753743, -0.160213, 0.196949, 0.606147, -0.116402, 0.160213, -0.344117, -0.473637}, {(-1)/2, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 176, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", Subscript["c", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 38, {"c", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 0, 1, 0, 1, 1, 0}, {0, 0, 1, 0, 0, 0, 0, -1}, { 0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.188342, 0.061196, -0.121721, 0.572654, -0.06662, 0.63385, -0.703961, -0.313424}, {-(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 177, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["m", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 178, {"m", "l"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0, 1, 0, 1, 0, 1}, {0, 0, 1, 0, 0, 0, -1, 0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, { 0.196949, -0.606147, -0.51562, -0.572654, -0.121721, -0.572654, 0.147168, 0.132511}, { 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 178, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["c", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 162, {"c", "l"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0, 1, 0, 0, 1, 1}, {0, 0, 1, 0, 0, -1, 0, 0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), 0, 1/Sqrt[3], 1/Sqrt[2], 1/ Sqrt[6]}, {0.58224, 0.061196, 0.196949, 0.0207, 0.080548, 0.76636, -0.58224, 0.25923}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 179, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["o", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 146, {"o", "l"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0, 0, 1, 1, 1, 0}, {0, 0, 1, 0, -1, 0, 0, 0}, {0, 0, 1/Sqrt[2], -(1/Sqrt[2]), -1, 0, 0, 0}, {0.116402, 0.160213, 0.58224, -0.061196, 0.318671, 0.551954, -0.385291, -0.667343}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 180, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", Subscript["w", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "+\[Rule]\!\(TraditionalForm\`0\)"]], 137, { "w", "d"}, {$CellContext`utr, 1}, 1, 353973.26987649983` Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 1, 0, 0, 1, 1, 0, 1}, {0, 0, 1, -1, 0, 0, 0, 0}, { 0, 0, 0, -Sqrt[2], 0, 0, 0, 0}, {0.393899, 0., 0.238123, -0.412441, -0.703961, -0.63385, 0.06662, 0.313424}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 181, HoldForm[ HoldForm[ Overscript[ Underscript["B", Subscript["m", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"-"]], 55, {"m", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{1, 1, 0, 0, 1, 0, 1, 1}, {0, 0, 0, 1, 0, 0, 0, -1}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.58224, 0.061196, 0.116402, 0.160213, -0.770582, 0., -0.637341, 0.}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 182, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["m", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 176, {"m", "d"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 1, 0, 0, 0, 1, 1, 1}, {0, 0, 0, 1, 0, 0, -1, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[ 6]}, {-0.196949, -0.606147, -0.753743, -0.160213, 0.58224, 0.061196, 0.080548, -0.180913}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 183, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["c", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 160, {"c", "d"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 0, -1, 0, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, { 0.188342, 0.061196, 0.435072, -0.391741, -0.623414, 0.132511, -0.51562, 0.572654}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 184, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["o", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 144, {"o", "d"}, {$CellContext`squ, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{1, 0, 1, 1, 1, 0, 1, 0}, {0, 0, 0, 1, -1, 0, 0, 0}, { 0, 0, 1/Sqrt[2], 1/Sqrt[2], -1, 0, 0, 0}, {-0.277497, 0.160213, 0.820363, -0.473637, -0.385291, -0.081896, -0.318671, -0.35392}, { 1/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 185, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", Subscript["w", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"+"]], 139, { "w", "l"}, {$CellContext`utr, 1}, 1, 353973.26987649983` Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{1, 0, 1, 1, 1, 0, 0, 1}, {0, 0, 0, 0, 1, 0, 0, -1}, { 0, 0, 0, 0, 1, 1/Sqrt[3], 0, - Sqrt[2/3]}, {-0.304743, -0.099017, -0.703961, 0.63385, -0.385291, 0.081896, -0.318671, 0.35392}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 186, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", Subscript["b", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 59, {"b", "d"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 1, 1, 0, 1, 1, 0}, {0, 0, 0, 0, 1, 0, -1, 0}, { 0, 0, 0, 0, 1, 1/Sqrt[3], -(1/Sqrt[2]), 1/Sqrt[6]}, { 0.080548, -0.76636, 0.06662, -0.63385, 0.196949, -0.0207, -0.238123, -0.534833}, { 0, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 187, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", Subscript["g", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 43, {"g", "d"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 1, 1, 0, 1, 0, 1}, {0, 0, 0, 0, 1, -1, 0, 0}, { 0, 0, 0, 0, 1, 1/Sqrt[3], 1/Sqrt[2], 1/Sqrt[6]}, { 0.465839, -0.099017, 0.385291, -0.081896, 0.238123, -0.214407, 0.196949, -0.926573}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 188, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", Subscript["r", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]], 27, {"r", "d"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 1, 1, 0, 0, 1, 1}, {0, 0, 0, 0, 0, 1, 0, -1}, { 0, 0, 0, 0, 0, 0, -(1/Sqrt[2]), -Sqrt[3/2]}, {-0.770582, 0., 0.318671, -0.551954, 0.147168, 0.132511, 0.121721, 0.572654}, { 1/2, 1/2, (-1)/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 189, HoldForm[ HoldForm[ Overscript[ Underscript[ "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(g\), \ \(_\)]\)]\)", Subscript["b", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 57, {"b", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 1, 0, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 1, -1, 0}, { 0, 0, 0, 0, 0, 0, -Sqrt[2], 0}, {-0.385291, -0.667343, -0.318671, -0.551954, -0.041174, 0.193707, -0.435072, 0.391741}, { 0, 1/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 190, HoldForm[ HoldForm[ Overscript[ Underscript[ "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(b\), \ \(_\)]\)]\)", Subscript["g", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 41, {"g", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 1, 0, 1, 1, 0, 1}, {0, 0, 0, 0, 0, 0, 1, -1}, { 0, 0, 0, 0, 0, 0, 1/Sqrt[2], -Sqrt[3/2]}, {-0.385291, 0.667343, 0.637341, 0., 0.188342, -0.061196, 0.556793, 0.180913}, {0, -1, 0, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 191, HoldForm[ HoldForm[ Overscript[ Underscript[ "\!\(\*SuperscriptBox[\(g\), \(g \*OverscriptBox[\(b\), \ \(_\)]\)]\)", Subscript["r", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 25, {"r", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 1, 0, 1, 0, 1, 1}, {0, 0, 0, 0, 0, 0, -1, 1}, { 0, 0, 0, 0, 0, 0, -(1/Sqrt[2]), Sqrt[3/2]}, {0.385291, -0.667343, -0.637341, 0., -0.188342, 0.061196, -0.556793, -0.180913}, { 1/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 192, HoldForm[ HoldForm[ Overscript[ Underscript[ "\!\(\*SuperscriptBox[\(g\), \(g \*OverscriptBox[\(b\), \ \(_\)]\)]\)", Subscript["r", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 24, {"r", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 1, 0, 0, 1, 1, 1}, {0, 0, 0, 0, 0, -1, 1, 0}, {0, 0, 0, 0, 0, 0, Sqrt[2], 0}, {0.385291, 0.667343, 0.318671, 0.551954, 0.041174, -0.193707, 0.435072, -0.391741}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/ 2, 0, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 193, HoldForm[ HoldForm[ Overscript[ Underscript[ "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(b\), \ \(_\)]\)]\)", Subscript["g", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 40, {"g", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 0, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, -1, 0, 1}, { 0, 0, 0, 0, 0, 0, 1/Sqrt[2], Sqrt[3/2]}, {0.770582, 0., -0.318671, 0.551954, -0.147168, -0.132511, -0.121721, -0.572654}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 194, HoldForm[ HoldForm[ Overscript[ Underscript[ "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(g\), \ \(_\)]\)]\)", Subscript["b", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 56, {"b", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{1, 0, 0, 1, 1, 1, 0, 1}, {0, 0, 0, 0, -1, 1, 0, 0}, { 0, 0, 0, 0, -1, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {-0.465839, 0.099017, -0.385291, 0.081896, -0.238123, 0.214407, -0.196949, 0.926573}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 195, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", Subscript["r", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 26, {"r", "d"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 0, 1, 1, 0, 1, 1}, {0, 0, 0, 0, -1, 0, 1, 0}, { 0, 0, 0, 0, -1, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.080548, 0.76636, -0.06662, 0.63385, -0.196949, 0.0207, 0.238123, 0.534833}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 196, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", Subscript["g", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 42, {"g", "d"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 0, 1, 0, 1, 1, 1}, {0, 0, 0, 0, -1, 0, 0, 1}, { 0, 0, 0, 0, -1, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.304743, 0.099017, 0.703961, -0.63385, 0.385291, -0.081896, 0.318671, -0.35392}, {(-1)/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 197, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]", Subscript["b", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 58, {"b", "d"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 9.974328853106121*^8 Units`MassUnit, 6.434526741627899*^-34 Units`TimeUnit}, {{1, 0, 0, 0, 1, 1, 1, 1}, {0, 0, 0, -1, 1, 0, 0, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 1, 0, 0, 0}, { 0.277497, -0.160213, -0.820363, 0.473637, 0.385291, 0.081896, 0.318671, 0.35392}, {(-1)/2, (-1)/2, 1/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/ 4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 198, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", Subscript["w", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"-"]], 138, { "w", "l"}, {$CellContext`tri, 1}, 1, 353973.26987649983` Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, -1, 0, 1, 0, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[ 6])}, {-0.188342, -0.061196, -0.435072, 0.391741, 0.623414, -0.132511, 0.51562, -0.572654}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 199, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["o", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 145, { "o", "d"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1, 1, 1, 0, 1, 0}, {0, 0, 0, -1, 0, 0, 1, 0}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.196949, 0.606147, 0.753743, 0.160213, -0.58224, -0.061196, -0.080548, 0.180913}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 200, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["c", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 161, { "c", "d"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1, 1, 1, 0, 0, 1}, {0, 0, 0, -1, 0, 0, 0, 1}, { 0, 0, -(1/Sqrt[2]), -(1/Sqrt[2]), 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.58224, -0.061196, -0.116402, -0.160213, 0.770582, 0., 0.637341, 0.}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 201, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["m", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]], 177, { "m", "d"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1, 1, 0, 1, 1, 0}, {0, 0, -1, 1, 0, 0, 0, 0}, {0, 0, 0, Sqrt[2], 0, 0, 0, 0}, {-0.393899, 0., -0.238123, 0.412441, 0.703961, 0.63385, -0.06662, -0.313424}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 202, HoldForm[ HoldForm[ Overscript[ Underscript["B", Subscript["m", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"+"]], 54, {"m", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 1, 1, 0, 1, 0, 1}, {0, 0, -1, 0, 1, 0, 0, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 1, 0, 0, 0}, {-0.116402, -0.160213, -0.58224, 0.061196, -0.318671, -0.551954, 0.385291, 0.667343}, {(-1)/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 203, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", Subscript["w", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "-\[Rule]\!\(TraditionalForm\`0\)"]], 136, { "w", "d"}, {$CellContext`tri, 1}, 1, 353973.26987649983` Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 1, 1, 1, 0, 0, 1, 1}, {0, 0, -1, 0, 0, 1, 0, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[ 6])}, {-0.58224, -0.061196, -0.196949, -0.0207, -0.080548, \ -0.76636, 0.58224, -0.25923}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/ 2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 204, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["o", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 147, {"o", "l"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1, 0, 1, 1, 1, 0}, {0, 0, -1, 0, 0, 0, 1, 0}, {0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.196949, 0.606147, 0.51562, 0.572654, 0.121721, 0.572654, -0.147168, -0.132511}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 205, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["c", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 163, {"c", "l"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1, 0, 1, 1, 0, 1}, {0, 0, -1, 0, 0, 0, 0, 1}, {0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.188342, -0.061196, 0.121721, -0.572654, 0.06662, -0.63385, 0.703961, 0.313424}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 206, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["m", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 179, {"m", "l"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 1, 0, 1, 0, 1, 1}, {0, -1, 1, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {0.753743, 0.160213, -0.196949, -0.606147, 0.116402, -0.160213, 0.344117, 0.473637}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 207, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", Subscript["c", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 39, {"c", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 1, 0, 0, 1, 1, 1}, {0, -1, 0, 1, 0, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {0.359844, 0.160213, -0.435072, -0.193707, 0.820363, 0.473637, 0.277497, 0.160213}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 208, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", Subscript["o", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "-\[Rule]\!\(TraditionalForm\`1\)"]], 21, {"o", "l"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 1, 0, 1, 1, 1, 1, 0}, {0, -1, 0, 0, 1, 0, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 1, 0, 0, 0}, {0.637341, 0., 0.385291, -0.667343, 0.435072, 0.391741, -0.041174, -0.193707}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 209, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", Subscript["w", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "-\[Rule]\!\(TraditionalForm\`0\)"]], 142, { "w", "m"}, {$CellContext`tri, 1}, 1, 353973.26987649983` Units`MassUnit, 8.526206773401496*^-6 Units`TimeUnit}, {{0, 1, 0, 1, 1, 1, 0, 1}, {0, -1, 0, 0, 0, 1, 0, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[6])}, {0.171503, 0.099017, 0., 0.585447, -0.196949, -0.606147, 0.238123, -0.732867}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 210, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["o", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 149, {"o", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 0, 1, 1, 0, 1, 1}, {0, -1, 0, 0, 0, 0, 1, 0}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0.556793, 0.76636, -0.318671, 0.033494, -0.238123, -0.412441, -0.196949, -0.341126}, { 0, (-1)/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 211, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["c", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 165, {"c", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 0, 1, 0, 1, 1, 1}, {0, -1, 0, 0, 0, 0, 0, 1}, {-(1/Sqrt[2]), -(1/Sqrt[2]), 0, 0, 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.942084, 0.099017, 0.318671, 0.033494, -0.049781, -0.473637, 0.359844, -0.160213}, { 1/2, 1/2, (-1)/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 212, HoldForm[ HoldForm[ Overscript[ Underscript["c", Subscript["m", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)\[Rule]\!\(\ TraditionalForm\`1\/3\)"]], 181, {"m", "m"}, {$CellContext`dia, 1}, 2, 4.448159296844679*^6 Units`MassUnit, 2.720862158913755*^-11 Units`TimeUnit}, {{0, 1, 0, 0, 1, 1, 1, 1}, {-1, 1, 0, 0, 0, 0, 0, 0}, {0, Sqrt[2], 0, 0, 0, 0, 0, 0}, {-0.556793, -0.180913, 0.147168, -0.132511, 0.753743, -0.160213, -0.426464, 0.473637}, {(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 213, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Omega]\), \(R\)]\)", Subscript["c", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 32, {"c", "m"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 3, 3.038911449543925*^8 Units`MassUnit, 3.0643517903912676`*^-28 Units`TimeUnit}, {{0, 0, 1, 1, 1, 1, 1, 0}, {-1, 0, 1, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], -(1/Sqrt[2]), 0, 0, 0, 0}, {0.196949, -0.0207, 0.344117, 0.473637, 0.637341, 0., -0.770582, 0.}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 214, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", Subscript["c", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 35, {"c", "d"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 1, 1, 1, 1, 0, 1}, {-1, 0, 0, 1, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, {-0.196949, -0.0207, 0.58224, 0.061196, -0.06662, -0.63385, -0.703961, 0.313424}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 215, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", Subscript["m", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"+"]], 52, {"m", "l"}, Subscript[$CellContext`cir, Hold[$CellContext`pSize]], 4, 4.9871644265530604`*^8 Units`MassUnit, 1.3177910766853937`*^-30 Units`TimeUnit}, {{0, 0, 1, 1, 1, 0, 1, 1}, {-1, 0, 0, 0, 1, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 1, 0, 0, 0}, { 0.080548, -0.180913, -0.238123, 0.534833, 0.318671, -0.551954, -0.385291, 0.667343}, { 1/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 216, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", Subscript["y", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 134, {"y", "m"}, {$CellContext`tri, 1}, 1, 2.8250720749306774`*^-6 Units`MassUnit, 2.6330586807007118`*^50 Units`TimeUnit}, {{0, 0, 1, 1, 0, 1, 1, 1}, {-1, 0, 0, 0, 0, 1, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[ 6])}, {-0.385291, -0.081896, -0.147168, -0.452937, -0.556793, 0.76636, 0.188342, 0.25923}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 217, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["r", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 157, {"r", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 1, 0, 1, 1, 1, 1}, {-1, 0, 0, 0, 0, 0, 1, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {0., 0.585447, -0.171503, -0.099017, 0.51562, -0.572654, -0.623414, 0.132511}, { 0, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 218, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["g", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 173, {"g", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{0, 0, 0, 1, 1, 1, 1, 1}, {-1, 0, 0, 0, 0, 0, 0, 1}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, -(1/Sqrt[3]), 0, Sqrt[2/3]}, {0.385291, -0.081896, -0.465839, 0.099017, -0.703961, 0.63385, 0.06662, -0.313424}, {-(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 219, HoldForm[ HoldForm[ Overscript[ Underscript["s", Subscript["b", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`1\/3\)"]], 189, {"b", "m"}, {$CellContext`dia, 1}, 2, 330611.4177795745 Units`MassUnit, 0.000011995516689868707` Units`TimeUnit}, {{1, 1, 1, 1, 1, 1, 0, 0}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), -(1/Sqrt[2]), -(1/Sqrt[ 6])}, {-0.623414, -0.132511, -0.238123, -0.732867, 0.344117, -0.473637, -0.116402, -0.160213}, {(-1)/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 220, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["r", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 91, {"r", "l"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 1, 1, 1, 0, 1, 0}, {1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), 1/Sqrt[ 2], -(1/Sqrt[6])}, {-0.238123, 0.534833, -0.080548, 0.180913, -0.385291, 0.667343, -0.318671, 0.551954}, { 0, 1/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 221, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["g", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 107, {"g", "l"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 1, 1, 1, 0, 0, 1}, {1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, 1/2, 1/(2 Sqrt[3]), 0, Sqrt[2/3]}, {0.147168, -0.132511, 0.556793, 0.180913, -0.196949, 0.606147, 0.238123, 0.732867}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 222, HoldForm[ HoldForm[ Overscript[ Underscript["d", Subscript["b", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`1\/3\)"]], 123, {"b", "l"}, {$CellContext`dia, 1/2}, 2, 10819.928844237349` Units`MassUnit, 6.433514672085797*^11 Units`TimeUnit}, {{1, 1, 1, 1, 0, 1, 1, 0}, {1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.703961, 0.63385, 0.304743, 0.099017, -0.147168, 0.452937, -0.121721, -0.37462}, { 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, - Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 223, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["m", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 112, {"m", "d"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 1, 1, 0, 1, 0, 1}, {1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.318671, -0.033494, 0.942084, 0.099017, 0.041174, 0.391741, 0.435072, -0.193707}, {-Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 224, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["c", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 96, {"c", "d"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 1, 1, 0, 0, 1, 1}, {1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, (-1)/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/Sqrt[6]}, {0.06662, 0.63385, -0.623414, 0.452937, 0., -0.585447, 0., -0.198034}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, (-1)/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 225, HoldForm[ HoldForm[ Overscript[ Underscript["u", Subscript["o", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 80, {"o", "d"}, {$CellContext`squ, 1/2}, 2, 5409.9644221186745` Units`MassUnit, 1.646979756053964*^14 Units`TimeUnit}, {{1, 1, 1, 0, 1, 1, 1, 0}, {1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/Sqrt[2], 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.426464, 0.473637, 0.51562, -0.572654, -0.238123, -0.534833, -0.196949, 0.0207}, {0, 1, 0, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 226, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["m", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 246, {"m", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 1, 1, 0, 1, 1, 0, 1}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/Sqrt[2], 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.041174, -0.193707, 0.121721, 0.572654, 0.426464, 0.473637, 0.753743, 0.160213}, {(-1)/2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 227, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["c", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 230, {"c", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 1, 1, 0, 1, 0, 1, 1}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/Sqrt[2], 0, 0, -(1/Sqrt[2]), 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/Sqrt[6]}, {0.344117, 0.473637, -0.196949, 0.0207, 0.385291, 0.667343, 0.318671, 0.551954}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 228, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["o", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`2\/3\)\[Rule]\!\(TraditionalForm\`\(-\(\(\ 1\/3\)\)\)\)"]], 214, {"o", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 1, 1, 0, 0, 1, 1, 1}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/Sqrt[2], 0, 0, -(1/Sqrt[2]), (-1)/2, -Sqrt[3]/2, 0, 0}, {-0.121721, 0.572654, 0.188342, -0.061196, 0.623414, 0.452937, 0.51562, -0.37462}, { 0, (-1)/2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 229, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", Subscript["y", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 198, {"y", "m"}, {$CellContext`tri, 3/2}, 1, 1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{1, 1, 0, 1, 1, 1, 1, 0}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/Sqrt[2], 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.820363, 0.473637, -0.277497, 0.160213, -0.465839, -0.099017, 0.26357, 0.292724}, { 1/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 230, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["m", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 244, {"m", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 1, 0, 1, 1, 1, 0, 1}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/Sqrt[2], 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.435072, -0.193707, -0.359844, -0.160213, 0.277497, 0.160213, -0.820363, -0.473637}, {- Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 1/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 231, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["c", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 228, {"c", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 1, 0, 1, 1, 0, 1, 1}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/Sqrt[2], 0, 0, 1/Sqrt[2], 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/ Sqrt[6]}, {-0.049781, 0.473637, -0.041174, 0.391741, 0.318671, -0.033494, -0.385291, -0.865377}, { 1/2, 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, (5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 232, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["o", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 212, {"o", "m"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 1, 0, 1, 0, 1, 1, 1}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/Sqrt[2], 0, 0, 1/Sqrt[2], (-1)/2, -Sqrt[3]/2, 0, 0}, {-0.51562, 0.572654, -0.426464, 0.473637, 0.080548, 0.180913, -0.58224, 0.061196}, {0, 0, 1, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 233, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", Subscript["y", "m"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 196, {"y", "m"}, {$CellContext`tri, 3/2}, 1, 1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{1, 1, 0, 0, 1, 1, 1, 1}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/Sqrt[2], 0, -(1/Sqrt[2]), 0, 1/2, -Sqrt[3]/2, 0, 0}, {-0.238123, 0.412441, 0.393899, 0., -0.304743, 0.099017, -0.900911, -0.292724}, { 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)], 0, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 234, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", Subscript["y", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 67, {"y", "l"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 0, 1, 1, 1, 1, 1, 0}, {1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.06662, 0.63385, 0.080548, -0.76636, 0.58224, -0.061196, 0.080548, 0.180913}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 235, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["m", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 242, {"m", "l"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 1, 1, 1, 1, 0, 1}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {0.318671, -0.033494, 0.556793, 0.76636, -0.393899, 0., 0.476246, 0.}, { 1/2, (-1)/2, 1/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 236, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["c", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 226, {"c", "l"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 1, 1, 1, 0, 1, 1}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/Sqrt[6]}, {0.703961, 0.63385, 0.238123, 0.214407, -0.435072, 0.193707, 0.041174, 0.391741}, {(-1)/2, -Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 0, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 237, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["o", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"\!\(TraditionalForm\`2\/3\)"]], 210, {"o", "l"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{1, 0, 1, 1, 0, 1, 1, 1}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, (-1)/2, -Sqrt[3]/2, 0, 0}, { 0.238123, 0.732867, -0.623414, -0.132511, 0.196949, 0.0207, -0.238123, 0.534833}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 238, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", Subscript["y", "l"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 194, {"y", "l"}, {$CellContext`tri, 3/2}, 1, 1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{1, 0, 1, 0, 1, 1, 1, 1}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 0, -(1/Sqrt[2]), 0, -(1/Sqrt[2]), 1/2, -Sqrt[3]/2, 0, 0}, { 0.51562, 0.572654, 0.196949, -0.606147, -0.188342, -0.061196, -0.556793, 0.180913}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, (-1)/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 239, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", Subscript["y", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 69, {"y", "m"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{1, 0, 0, 1, 1, 1, 1, 1}, {1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 0, -(1/Sqrt[2]), 0, 1/Sqrt[2], 1/2, -Sqrt[3]/2, 0, 0}, {0.121721, 0.572654, 0.041174, 0.193707, -0.51562, -0.572654, 0.623414, 0.132511}, { 0, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, (-1)/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 240, HoldForm[ HoldForm[ Overscript[ Underscript["e", Subscript["w", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^"+"]], 77, { "w", "m"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{0, 1, 1, 1, 1, 1, 1, 0}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), 0, - Sqrt[2/3]}, {-0.623414, 0.452937, -0.06662, -0.63385, -0.171503, 0.099017, 0.507012, -0.292724}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 241, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["m", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 240, {"m", "d"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 1, 1, 1, 1, 1, 0, 1}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), -(1/Sqrt[2]), 1/Sqrt[6]}, {-0.238123, -0.214407, 0.703961, 0.63385, 0.359844, -0.160213, 0.049781, 0.473637}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, 1/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 242, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["c", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 224, {"c", "d"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 1, 1, 1, 1, 0, 1, 1}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 0, 1/Sqrt[2], 1/Sqrt[2], 0, 1/2, (-1)/(2 Sqrt[3]), 1/Sqrt[2], 1/ Sqrt[6]}, {0.147168, 0.452937, -0.385291, -0.081896, -0.318671, -0.033494, 0.385291, -0.865377}, {(-1)/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), 0, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 243, HoldForm[ HoldForm[ Overscript[ Underscript["t", Subscript["o", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`2\/3\)"]], 208, {"o", "d"}, {$CellContext`squ, 3/2}, 2, 5.930771419745365*^8 Units`MassUnit, 1.0717876456119173`*^-16 Units`TimeUnit}, {{0, 1, 1, 1, 0, 1, 1, 1}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 0, 1/Sqrt[2], 1/Sqrt[2], 0, (-1)/2, -Sqrt[3]/2, 0, 0}, {-0.318671, 0.551954, -0.770582, 0., -0.556793, 0.180913, 0.188342, 0.061196}, {0, 0, -1, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 244, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)", Subscript["y", "d"]], ""]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 192, {"y", "d"}, {$CellContext`tri, 3/2}, 1, 1.6492437500037268`*^-7 Units`MassUnit, 1.385994238197179*^15 Units`TimeUnit}, {{0, 1, 1, 0, 1, 1, 1, 1}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 0, 1/Sqrt[2], 0, -(1/Sqrt[2]), 1/2, -Sqrt[3]/2, 0, 0}, {-0.041174, 0.391741, 0.049781, -0.473637, -0.942084, 0.099017, -0.130329, -0.292724}, { 1/2, Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/ 2, -(5/8 - Sqrt[5]/8)/(2 (5/8 + Sqrt[5]/8)), 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 245, HoldForm[ HoldForm[ Overscript[ Underscript["\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", Subscript["y", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"\!\(TraditionalForm\`0\)"]], 71, {"y", "m"}, {$CellContext`utr, 1/2}, 1, 0.0005807048639257906 Units`MassUnit, 9.345441518227019*^69 Units`TimeUnit}, {{0, 1, 0, 1, 1, 1, 1, 1}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 0, 1/Sqrt[2], 0, 1/Sqrt[2], 1/2, -Sqrt[3]/2, 0, 0}, {-0.435072, 0.391741, 0.188342, 0.061196, 0.238123, -0.732867, 0.196949, 0.606147}, { Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, -(5/8 - Sqrt[5]/8)/( 2 (5/8 + Sqrt[5]/8)), (-1)/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/ 4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, - Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 246, HoldForm[ HoldForm[ Overscript[ Underscript["e", Subscript["w", "m"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^"+"]], 79, { "w", "m"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{0, 0, 1, 1, 1, 1, 1, 1}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {-(1/Sqrt[2]), 0, 1/Sqrt[2], 0, 1/2, -Sqrt[3]/2, 0, 0}, {0.318671, 0.551954, -0.385291, -0.667343, -0.121721, 0.572654, 0.147168, -0.132511}, {-Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/ 2, 1/2, -Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 247, HoldForm[ HoldForm[ Overscript[ Underscript["e", Subscript["w", "d"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"+"]], 73, { "w", "d"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}, {{1, 1, 1, 1, 1, 1, 1, 0}, {(-1)/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}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 248, HoldForm[ HoldForm[ Overscript[ Underscript["Ex2", "\" \""], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 15, {"w", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{1, 1, 1, 1, 1, 1, 0, 1}, { 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}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 249, HoldForm[ HoldForm[ Overscript[ Underscript["Ex2", "\" \""], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 13, {"w", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{1, 1, 1, 1, 1, 0, 1, 1}, { 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}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 250, HoldForm[ HoldForm[ Overscript[ Underscript["Ex2", "\" \""], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 11, {"w", "l"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{1, 1, 1, 1, 0, 1, 1, 1}, { 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}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 251, HoldForm[ HoldForm[ Overscript[ Underscript["Ex2", "\" \""], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^"\!\(TraditionalForm\`0\)"]], 9, {"w", "d"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{1, 1, 1, 0, 1, 1, 1, 1}, { 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}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 252, HoldForm[ HoldForm[ Overscript[ Underscript["Ex1", "\" \""], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Vee]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`1\)"]], 7, {"y", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{1, 1, 0, 1, 1, 1, 1, 1}, { 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]}, {1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 253, HoldForm[ HoldForm[ Overscript[ Underscript["Ex1", "\" \""], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["R", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]], 5, {"y", "m"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{1, 0, 1, 1, 1, 1, 1, 1}, { 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]}, {1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 254, HoldForm[ HoldForm[ Overscript[ Underscript["Ex1", "\" \""], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]], 3, {"y", "l"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{0, 1, 1, 1, 1, 1, 1, 1}, { 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]}, {1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1 + Sqrt[5])/4, - Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 255, HoldForm[ HoldForm[ Overscript[ Underscript["Ex1", "\" \""], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Wedge]"]]^ "\!\(TraditionalForm\`0\)\[Rule]\!\(TraditionalForm\`2\/3\)"]], 1, {"y", "d"}, Subscript[$CellContext`inv, Hold[$CellContext`pSize]], 5, Units`MassUnit/10000000000, 6.255141244738540258209329833685`15.954589770191005*^175 Units`TimeUnit}, {{1, 1, 1, 1, 1, 1, 1, 1}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, { 1/Sqrt[2], 0, 1/Sqrt[2], 0, 1/2, -Sqrt[3]/2, 0, 0}, {-0.238123, 0.732867, -0.426464, -0.473637, -0.041174, -0.193707, -0.435072, \ -0.391741}, { Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)]/2, - Sqrt[(5/8 - Sqrt[5]/8)/(5/8 + Sqrt[5]/8)]/2, 0, 1/2, 0, 0, 0, 0}, {(-1 + Sqrt[5])/4, -Sqrt[5/8 + Sqrt[5]/8], (-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8], 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, 256, HoldForm[ HoldForm[ Overscript[ Underscript["e", Subscript["w", "l"]], Blank[]]]] HoldForm[ Invisible[Subscript[$CellContext`\[VerticalLine], Overscript["L", "\[Vee]"]]^"+"]], 75, { "w", "l"}, {$CellContext`utr, 1/2}, 1, 1722.0451594629521` Units`MassUnit, 1.5627418498158385`*^18 Units`TimeUnit}}, Attributes[Overscript] = {NHoldRest}, Attributes[Underscript] = {NHoldRest}, Pattern[$CellContext`flavorPattern, Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`fl]] := Flatten[{ OverBar[$CellContext`prt], $CellContext`prt}], Pattern[$CellContext`antiWhitePattern, Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`w]] := \ $CellContext`position[$CellContext`e8Orig, -Part[$CellContext`e8Orig, OverBar[ Underscript[$CellContext`prt, $CellContext`y]]]], Pattern[$CellContext`antiRedPattern, Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`r]] := \ $CellContext`position[$CellContext`e8Orig, -Part[$CellContext`e8Orig, OverBar[ Underscript[$CellContext`prt, $CellContext`bg]]]], Pattern[$CellContext`antiGreenPattern, Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`g]] := \ $CellContext`position[$CellContext`e8Orig, -Part[$CellContext`e8Orig, OverBar[ Underscript[$CellContext`prt, $CellContext`rb]]]], Pattern[$CellContext`antiBluePattern, Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`b]] := \ $CellContext`position[$CellContext`e8Orig, -Part[$CellContext`e8Orig, OverBar[ Underscript[$CellContext`prt, $CellContext`rg]]]], Pattern[$CellContext`antiExPattern, Underscript[ Pattern[$CellContext`prt, Blank[]], " "]] := $CellContext`pAnti[ OverBar[$CellContext`prt]], OverBar[$CellContext`ex1] = {255, 254, 253, 252}, OverBar[$CellContext`Ex1] = 255, OverBar[$CellContext`ex2] = {251, 250, 249, 248}, OverBar[$CellContext`Ex2] = 251, OverBar[$CellContext`l1] = {163, 75, 13}, OverBar[$CellContext`l2] = {247, 180, 109}, OverBar[$CellContext`q1] = {32, 199, 14}, OverBar[$CellContext`q2] = {149, 53, 110}, OverBar[$CellContext`\[Phi]\[CapitalPhi]1] = {85, 214, 91}, OverBar[$CellContext`\[Phi]\[CapitalPhi]2] = {188, 187, 186}, OverBar[$CellContext`\[Omega]g1] = {93, 170, 80}, OverBar[$CellContext`\[Omega]g2] = {191, 190, 189}, OverBar[{38, 213, 51, 192, 193, 194}] = {93, 170, 80, 191, 190, 189}, OverBar[{2, 6, 3, 7, 4, 8, 5, 9}] = {255, 251, 254, 250, 253, 249, 252, 248}, OverBar[{46, 195, 169, 196, 40, 197, 175, 66, 45, 67, 215, 68, 39, 60, 176, 61, 202, 62}] = {85, 188, 214, 187, 91, 186, 208, 65, 86, 64, 168, 63, 92, 71, 207, 70, 181, 69}, OverBar[{94, 56, 244, 10, 203, 148, 23, 52, 238, 1, 198, 128, 18, 47, 233, 17, 41, 162, 12, 216, 229, 11, 209, 158}] = {163, 75, 13, 247, 180, 109, 234, 79, 19, 256, 185, 129, 239, 84, 24, 240, 90, 95, 245, 167, 28, 246, 174, 99}, OverBar[{225, 184, 243, 108, 78, 147, 154, 179, 237, 37, 74, 127, 144, 173, 232, 138, 166, 161, 124, 89, 228, 118, 83, 157, 224, 183, 242, 107, 77, 146, 153, 178, 236, 36, 73, 126, 143, 172, 231, 137, 165, 160, 123, 88, 227, 117, 82, 156, 223, 182, 241, 106, 76, 145, 152, 177, 235, 35, 72, 125, 142, 171, 230, 136, 164, 159, 122, 87, 226, 116, 81, 155}] = {32, 199, 14, 149, 53, 110, 103, 204, 20, 220, 57, 130, 113, 210, 25, 119, 217, 96, 133, 42, 29, 139, 48, 100, 33, 200, 15, 150, 54, 111, 104, 205, 21, 221, 58, 131, 114, 211, 26, 120, 218, 97, 134, 43, 30, 140, 49, 101, 34, 201, 16, 151, 55, 112, 105, 206, 22, 222, 59, 132, 115, 212, 27, 121, 219, 98, 135, 44, 31, 141, 50, 102}, OverBar[ Underscript[ Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], $CellContext`bg]] = 85, OverBar[ Underscript[ Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)], $CellContext`y]] = 85, OverBar[ Underscript[$CellContext`b, $CellContext`bg]] = 110, OverBar[ Underscript[$CellContext`B, $CellContext`bg]] = 85, OverBar[ Underscript[$CellContext`B, $CellContext`rb]] = 214, OverBar[ Underscript[$CellContext`B, $CellContext`rg]] = 91, OverBar[ Underscript[$CellContext`c, $CellContext`bg]] = 199, OverBar[ Underscript[$CellContext`d, $CellContext`bg]] = 149, OverBar[ Underscript[$CellContext`e, $CellContext`bg]] = 247, OverBar[ Underscript[$CellContext`e, $CellContext`y]] = 247, OverBar[ Underscript[E^((I/30) Pi), $CellContext`bg]] = 93, OverBar[ Underscript[E^((I/30) Pi), $CellContext`y]] = 93, OverBar[ Underscript[$CellContext`g, $CellContext`bg]] = 191, OverBar[ Underscript[$CellContext`g, $CellContext`y]] = 191, OverBar[ Underscript[$CellContext`g^($CellContext`g OverBar[$CellContext`b]), $CellContext`bg]] = 191, OverBar[ Underscript[$CellContext`g^($CellContext`g OverBar[$CellContext`b]), $CellContext`y]] = 191, OverBar[ Underscript[$CellContext`g^($CellContext`r OverBar[$CellContext`b]), $CellContext`rb]] = 190, OverBar[ Underscript[$CellContext`g^($CellContext`r OverBar[$CellContext`b]), $CellContext`y]] = 190, OverBar[ Underscript[$CellContext`g^($CellContext`r OverBar[$CellContext`g]), $CellContext`rg]] = 189, OverBar[ Underscript[$CellContext`g^($CellContext`r OverBar[$CellContext`g]), $CellContext`y]] = 189, OverBar[ Underscript[$CellContext`s, $CellContext`bg]] = 53, OverBar[ Underscript[$CellContext`t, $CellContext`bg]] = 14, OverBar[ Underscript[$CellContext`u, $CellContext`bg]] = 32, OverBar[ Underscript[$CellContext`W, $CellContext`rg]] = 80, OverBar[ Underscript[$CellContext`W, $CellContext`y]] = 80, OverBar[ Underscript[$CellContext`\[Nu], $CellContext`bg]] = 163, OverBar[ Underscript[$CellContext`\[Nu], $CellContext`y]] = 163, OverBar[ Underscript[$CellContext`\[CapitalPhi], $CellContext`bg]] = 188, OverBar[ Underscript[$CellContext`\[CapitalPhi], $CellContext`y]] = 188, OverBar[ Underscript[ Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)] Subscript[$CellContext`e, $CellContext`S], $CellContext`bg]] = 85, OverBar[ Underscript[ Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)] Subscript[$CellContext`e, $CellContext`S], $CellContext`rg]] = 91, OverBar[ Underscript[ Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)] Subscript[$CellContext`e, $CellContext`S], $CellContext`y]] = 91, OverBar[ Underscript[ Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)] Subscript[$CellContext`e, $CellContext`T], $CellContext`bg]] = 214, OverBar[ Underscript[ Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)] Subscript[$CellContext`e, $CellContext`T], $CellContext`rb]] = 214, OverBar[ Underscript[ Sqrt[(5/8 + Sqrt[5]/8)/(5/8 - Sqrt[5]/8)] Subscript[$CellContext`e, $CellContext`T], $CellContext`y]] = 214, OverBar[ Underscript[ Subscript[$CellContext`e, $CellContext`\[Mu]], $CellContext`y]] = 180, OverBar[ Underscript[ Subscript[$CellContext`e, $CellContext`\[Tau]], $CellContext`y]] = 109, OverBar[ Underscript[ Subscript[E^((I/30) Pi), $CellContext`L], $CellContext`bg]] = 93, OverBar[ Underscript[ Subscript[E^((I/30) Pi), $CellContext`L], $CellContext`y]] = 93, OverBar[ Underscript[ Subscript[E^((I/30) Pi), $CellContext`R], $CellContext`rb]] = 170, OverBar[ Underscript[ Subscript[E^((I/30) Pi), $CellContext`R], $CellContext`y]] = 170, OverBar[ Underscript[$CellContext`\[CapitalPhi] Subscript[$CellContext`x, 1], $CellContext`bg]] = 188, OverBar[ Underscript[$CellContext`\[CapitalPhi] Subscript[$CellContext`x, 2], $CellContext`bg]] = 187, OverBar[ Underscript[$CellContext`\[CapitalPhi] Subscript[$CellContext`x, 2], $CellContext`rb]] = 187, OverBar[ Underscript[$CellContext`\[CapitalPhi] Subscript[$CellContext`x, 3], $CellContext`bg]] = 186, OverBar[ Underscript[$CellContext`\[CapitalPhi] Subscript[$CellContext`x, 3], $CellContext`rg]] = 186, OverBar[ Underscript[ Subscript[$CellContext`\[Nu], $CellContext`e], $CellContext`y]] = 163, OverBar[ Underscript[ Subscript[$CellContext`\[Nu], $CellContext`\[Mu]], \ $CellContext`y]] = 75, OverBar[ Underscript[ Subscript[$CellContext`\[Nu], $CellContext`\[Tau]], \ $CellContext`y]] = 13, Pattern[$CellContext`colorGreenPattern, OverBar[ Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`rb]]] := \ $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ OverBar[ Underscript[$CellContext`prt, $CellContext`bg]]] + 2^$CellContext`third[$CellContext`bOrd]], Pattern[$CellContext`colorBluePattern, OverBar[ Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`rg]]] := \ $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ OverBar[ Underscript[$CellContext`prt, $CellContext`bg]]] + 2^($CellContext`third[$CellContext`bOrd] + 1)], Attributes[Subscript] = {NHoldRest}, Subscript[0.007297352537652497, $CellContext`s] = 0.11273663626113875`, Subscript[23, Overscript["L", "\[Vee]"]] = 215, Subscript[91, Overscript["L", "\[Vee]"]] = 168, Subscript[214, Overscript["L", "\[Vee]"]] = 168, Subscript[234, Overscript["L", "\[Vee]"]] = 168, Subscript[$CellContext`g, $CellContext`w] = Sqrt[($CellContext`el Sqrt[ Subscript[$CellContext`x, \ $CellContext`W]]^(-1)/$CellContext`CTC)^2], Subscript[$CellContext`g, $CellContext`W] = 0.26813441992643994`, Subscript[$CellContext`G, $CellContext`F] = (2 Subscript[$CellContext`m, $CellContext`Hg])^(-2), Subscript[$CellContext`G, N] = $CellContext`\[Alpha]^8 $CellContext`gc2 (Units`LengthUnit/ Units`TimeUnit)^2 (Units`LengthUnit/Units`MassUnit), Subscript[$CellContext`H, 0] = $CellContext`LTC/(4 Pi $CellContext`c), Subscript[$CellContext`m, $CellContext`Hg] = 4.9871644265530604`*^8 Units`MassUnit, Subscript[$CellContext`m, $CellContext`W] = 2.6744608811831626`*^8 Units`MassUnit, Subscript[$CellContext`m, $CellContext`z] = 3.038911449543925*^8 Units`MassUnit, Subscript[$CellContext`R, $CellContext`H] = $CellContext`c/ Subscript[$CellContext`H, 0], Subscript[$CellContext`x, $CellContext`W] = ($CellContext`\[Alpha] ( Pi/2))^(1/3), Subscript[$CellContext`\[Epsilon], 0] = Subscript[$CellContext`\[Mu], 0], Subscript[$CellContext`\[Theta], $CellContext`W] = ArcSin[ Sqrt[ Subscript[$CellContext`x, $CellContext`W]]], Subscript[$CellContext`\[Mu], 0] = 1/Sqrt[$CellContext`c], Subscript[$CellContext`\[CapitalOmega], 0] = Sqrt[Subscript[$CellContext`\[Mu], 0]/ Subscript[$CellContext`\[Epsilon], 0]], Subscript[$CellContext`\[CapitalOmega], $CellContext`k] = \ -0.00021110347721027366`, Subscript[$CellContext`\[CapitalOmega], $CellContext`m] = 1/4, Subscript[$CellContext`\[CapitalOmega], $CellContext`mDrk] = 5/24, Subscript[$CellContext`\[CapitalOmega], $CellContext`mVis] = 1/24, Subscript[$CellContext`\[CapitalOmega], $CellContext`\[Gamma]] = 0.00021110347721027366`, Subscript[$CellContext`\[CapitalOmega], Subscript[$CellContext`mDrk, 0]] = 1/3, Subscript[$CellContext`\[CapitalOmega]\[CapitalLambda], 0] = 2/3, Pattern[$CellContext`scaledPattern, Subscript[ Pattern[$CellContext`p, Blank[]], $CellContext`scaled]] := $CellContext`p \ $CellContext`zoomFct, Pattern[$CellContext`tinyPattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`tiny]] := {$CellContext`x, 1/2}, Pattern[$CellContext`smallPattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`small]] := {$CellContext`x, 3/4}, Pattern[$CellContext`nrmlPattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`nrml]] := {$CellContext`x, 1}, Pattern[$CellContext`bigPattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`big]] := {$CellContext`x, 5/4}, Pattern[$CellContext`hugePattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`huge]] := {$CellContext`x, 3/2}, Pattern[$CellContext`varPattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`varS]] := Subscript[$CellContext`x, Hold[$CellContext`pSize]], Pattern[$CellContext`spinLuPattern, Subscript[ Pattern[$CellContext`prt, Blank[]], Overscript[ "L", "\[Wedge]"]]] := $CellContext`position[$CellContext`e8bit, $CellContext`pBit[$CellContext`prt]], Pattern[$CellContext`spinLdPattern, Subscript[ Pattern[$CellContext`prt, Blank[]], Overscript[ "L", "\[Vee]"]]] := $CellContext`position[$CellContext`e8bit, \ $CellContext`pBit[$CellContext`prt] + 2^$CellContext`fourth[$CellContext`bOrd]], Pattern[$CellContext`spinRuPattern, Subscript[ Pattern[$CellContext`prt, Blank[]], Overscript[ "R", "\[Wedge]"]]] := $CellContext`position[$CellContext`e8bit, \ $CellContext`pBit[$CellContext`prt] + 2^($CellContext`fourth[$CellContext`bOrd] + 1)], Pattern[$CellContext`spinRdPattern, Subscript[ Pattern[$CellContext`prt, Blank[]], Overscript[ "R", "\[Vee]"]]] := $CellContext`position[$CellContext`e8bit, \ $CellContext`pBit[$CellContext`prt] + 2^$CellContext`fourth[$CellContext`bOrd] + 2^($CellContext`fourth[$CellContext`bOrd] + 1)], Pattern[$CellContext`particlePattern, Subscript[ Overscript[ Underscript[ Pattern[$CellContext`prt, Blank[]], Pattern[$CellContext`clr, Blank[]]], Pattern[$CellContext`anti, Blank[]]], Pattern[$CellContext`sp, Blank[]]]] := $CellContext`spConv[ If[$CellContext`anti == "", False, True], $CellContext`prt, $CellContext`clr, $CellContext`sp], \ $CellContext`el := Subscript[$CellContext`m, $CellContext`Hg] Sqrt[((4 Pi $CellContext`\[Alpha])/(2 Units`LengthUnit)) $CellContext`LTC \ ($CellContext`CTC/$CellContext`MTC)^2], $CellContext`\[Alpha] = 0.007297352537652497, TagSet[Units`LengthUnit, MessageName[Units`LengthUnit, "usage"], "LengthUnit is a unit of length."], $CellContext`LTC = Units`LengthUnit/Units`TimeUnit^2, TagSet[Units`TimeUnit, MessageName[Units`TimeUnit, "usage"], "TimeUnit is a unit of time."], $CellContext`CTC = Units`ChargeUnit/Units`TimeUnit^4, TagSet[Units`ChargeUnit, MessageName[Units`ChargeUnit, "usage"], "ChargeUnit is a unit of electric charge."], $CellContext`MTC = Units`MassUnit/Units`TimeUnit^5, TagSet[Units`MassUnit, MessageName[Units`MassUnit, "usage"], "MassUnit is a unit of mass."], $CellContext`gc2 := ReplaceAll[ Sqrt[1 - 2 ($CellContext`\[Alpha] (Pi/2))^2]/Sqrt[ 1 - $CellContext`xw], $CellContext`xw -> ($CellContext`\[Alpha] ( Pi/2))^(1/3)], $CellContext`\[CapitalOmega]\[CapitalLambda] = 3/4, $CellContext`\[Theta] = 0.020362174606600513`, $CellContext`p = 16, $CellContext`zoomFct := 1. 10^$CellContext`zoom, $CellContext`zoom = 0, $CellContext`pSize = $CellContext`big, $CellContext`e8bit = {74, 0, 2, 4, 6, 8, 10, 12, 14, 72, 78, 70, 193, 209, 225, 241, 76, 68, 195, 211, 227, 243, 66, 197, 213, 229, 245, 199, 215, 231, 247, 81, 97, 113, 122, 106, 90, 16, 22, 50, 140, 151, 167, 183, 36, 18, 132, 159, 175, 191, 48, 130, 153, 169, 185, 128, 155, 171, 187, 30, 46, 62, 61, 45, 29, 28, 44, 60, 63, 47, 31, 186, 170, 154, 129, 184, 168, 152, 131, 49, 190, 174, 158, 133, 19, 37, 182, 166, 150, 141, 51, 23, 17, 64, 205, 221, 237, 253, 207, 223, 239, 255, 83, 99, 115, 120, 104, 88, 201, 217, 233, 249, 85, 101, 117, 126, 110, 94, 93, 109, 125, 118, 102, 86, 250, 234, 218, 202, 203, 219, 235, 251, 87, 103, 119, 124, 108, 92, 95, 111, 127, 116, 100, 84, 248, 232, 216, 200, 89, 105, 121, 114, 98, 82, 254, 238, 222, 206, 252, 236, 220, 204, 65, 188, 172, 156, 135, 53, 34, 33, 180, 164, 148, 143, 20, 38, 178, 162, 146, 137, 55, 176, 160, 144, 139, 59, 43, 27, 57, 41, 25, 24, 40, 56, 26, 42, 58, 138, 145, 161, 177, 54, 136, 147, 163, 179, 39, 21, 142, 149, 165, 181, 32, 35, 52, 134, 157, 173, 189, 91, 107, 123, 112, 96, 80, 246, 230, 214, 198, 244, 228, 212, 196, 67, 242, 226, 210, 194, 69, 77, 240, 224, 208, 192, 71, 79, 73, 15, 13, 11, 9, 7, 5, 3, 1, 75}, $CellContext`pBit[ Pattern[$CellContext`p, Blank[]]] := Part[$CellContext`e8b, $CellContext`p, $CellContext`sets + 3], $CellContext`sets := Length[$CellContext`dsNames], $CellContext`dsNames = { "binary", "e8", "physics", "richter", "cell600", "auxData", "Cell5"}, Pattern[$CellContext`fourthPattern, $CellContext`fourth[ Pattern[$CellContext`x, Blank[]]]] := Part[$CellContext`x, 4], $CellContext`bOrd = {0, 3, 4, 1, 6}, $CellContext`clr = "w", $CellContext`spConv[ Pattern[$CellContext`anti, Blank[]], Pattern[$CellContext`prt, Blank[]], Pattern[$CellContext`clr, Blank[]], Pattern[$CellContext`sp, Blank[]]] := If[ MemberQ[ Flatten[ $CellContext`fList[ $CellContext`fifth[$CellContext`flavorRows]]], \ $CellContext`prt], Switch[$CellContext`sp, First[$CellContext`spList], If[$CellContext`anti, $CellContext`pAnti[ $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[ ToString[$CellContext`prt], "\" \""]]]], $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[ ToString[$CellContext`prt], "\" \""]]]], $CellContext`second[$CellContext`spList], If[$CellContext`anti, $CellContext`pAnti[ $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[ ToString[$CellContext`prt], "\" \""]] + 2^$CellContext`fourth[$CellContext`bOrd]]], $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[ ToString[$CellContext`prt], "\" \""]] + 2^$CellContext`fourth[$CellContext`bOrd]]], $CellContext`third[$CellContext`spList], If[$CellContext`anti, $CellContext`pAnti[ $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[ ToString[$CellContext`prt], "\" \""]] + 2^($CellContext`fourth[$CellContext`bOrd] + 1)]], $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[ ToString[$CellContext`prt], "\" \""]] + 2^($CellContext`fourth[$CellContext`bOrd] + 1)]], $CellContext`fourth[$CellContext`spList], If[$CellContext`anti, $CellContext`pAnti[ $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[ ToString[$CellContext`prt], "\" \""]] + 2^$CellContext`fourth[$CellContext`bOrd] + 2^($CellContext`fourth[$CellContext`bOrd] + 1)]], $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[ ToString[$CellContext`prt], "\" \""]] + 2^$CellContext`fourth[$CellContext`bOrd] + 2^($CellContext`fourth[$CellContext`bOrd] + 1)]]], Switch[$CellContext`sp, First[$CellContext`spList], $CellContext`position[$CellContext`e8Orig, If[$CellContext`anti, Subtract, Plus][0, Part[$CellContext`e8Orig, $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[$CellContext`prt, $CellContext`clr]]]]]], $CellContext`second[$CellContext`spList], $CellContext`position[$CellContext`e8Orig, If[$CellContext`anti, Subtract, Plus][0, Part[$CellContext`e8Orig, $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[$CellContext`prt, $CellContext`clr]] + 2^$CellContext`fourth[$CellContext`bOrd]]]]], $CellContext`third[$CellContext`spList], $CellContext`position[$CellContext`e8Orig, If[$CellContext`anti, Subtract, Plus][0, Part[$CellContext`e8Orig, $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[$CellContext`prt, $CellContext`clr]] + 2^($CellContext`fourth[$CellContext`bOrd] + 1)]]]], $CellContext`fourth[$CellContext`spList], $CellContext`position[$CellContext`e8Orig, If[$CellContext`anti, Subtract, Plus][0, Part[$CellContext`e8Orig, $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ $CellContext`qcConv[$CellContext`prt, $CellContext`clr]] + 2^$CellContext`fourth[$CellContext`bOrd] + 2^($CellContext`fourth[$CellContext`bOrd] + 1)]]]]]], $CellContext`fList[ "Ex"] = {{"Ex1"}, {"Ex2"}}, $CellContext`fList[ "l"] = {{ "\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", "\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", "\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)"}, { "e", "\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", "\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)"}}, $CellContext`fList[ "q"] = {{"u", "c", "t"}, {"d", "s", "b"}}, $CellContext`fList[ "\[Phi]\[CapitalPhi]"] = {{ "\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", "\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", "B"}, { "\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", "\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", "\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]"}}, \ $CellContext`fList[ "\[Omega]g"] = {{ "\!\(\*SubscriptBox[\(\[Omega]\), \(L\)]\)", "\!\(\*SubscriptBox[\(\[Omega]\), \(R\)]\)", "W"}, { "\!\(\*SuperscriptBox[\(g\), \(g \*OverscriptBox[\(b\), \ \(_\)]\)]\)", "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(b\), \(_\)]\)]\ \)", "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(g\), \(_\)]\)]\)"}}, Pattern[$CellContext`fifthPattern, $CellContext`fifth[ Pattern[$CellContext`x, Blank[]]]] := Part[$CellContext`x, 5], $CellContext`flavorRows = { "l", "q", "\[Omega]g", "\[Phi]\[CapitalPhi]", "Ex"}, $CellContext`spList = { Overscript["L", "\[Wedge]"], Overscript["L", "\[Vee]"], Overscript["R", "\[Wedge]"], Overscript["R", "\[Vee]"]}, $CellContext`pAnti[ Pattern[$CellContext`pSet, Blank[]]] := 2^8 + 1 + BitNot[$CellContext`pSet - 1], $CellContext`qcConv[ Pattern[$CellContext`prt, Blank[]], Pattern[$CellContext`clr, Blank[]]] := Underscript[ ToExpression[ ReplaceAll[$CellContext`prt, $CellContext`qConvNota]], ToExpression[$CellContext`clr]], $CellContext`qConvNota = { "UpQuark" -> "u", "DownQuark" -> "d", "StrangeQuark" -> "s", "CharmQuark" -> "c", "BottomQuark" -> "b", "TopQuark" -> "t", "UpQuarkBar" -> "u", "DownQuarkBar" -> "d", "StrangeQuarkBar" -> "s", "CharmQuarkBar" -> "c", "BottomQuarkBar" -> "b", "TopQuarkBar" -> "t"}, Pattern[$CellContext`thirdPattern, $CellContext`third[ Pattern[$CellContext`x, Blank[]]]] := Part[$CellContext`x, 3], $CellContext`\[Phi]\[CapitalPhi]1 = {46, 169, 40}, $CellContext`L[ Pattern[$CellContext`oG, Blank[]]] := (Units`TimeUnit Units`MassUnit^(11 - 3 $CellContext`oG) (2 Pi)^20 (Pi/2)^( 2 $CellContext`oG^2))/(Pi^(1 + 12 $CellContext`oG) 3^((1 - $CellContext`oG) ((4 - $CellContext`oG)/ 2)) $CellContext`\[Alpha]^( 8 (3 - $CellContext`oG))), $CellContext`oG = 1, $CellContext`ex1 = {2, 3, 4, 5}, $CellContext`ex2 = {6, 7, 8, 9}, $CellContext`l1 = {94, 56, 244}, $CellContext`l2 = {10, 203, 148}, $CellContext`\[Tau][ Pattern[$CellContext`pMass, Blank[]], Pattern[$CellContext`oG, Blank[]]] := Sqrt[($CellContext`L[$CellContext`oG]/$CellContext`pMass^(11 - 3 $CellContext`oG))^2] (Units`TimeUnit/Sqrt[ Units`TimeUnit^2]), $CellContext`pMass[ Pattern[$CellContext`p, Blank[]]] := Units`Convert[ Part[$CellContext`e8b, $CellContext`p, $CellContext`sets + 7], Units`Mega Units`eVperC2]/(Units`Mega Units`eVperC2), Units`Convert[ Pattern[Units`Private`old, Blank[]], Pattern[Units`Private`new, Blank[]]] := Module[{Units`Private`x, Units`Private`y, Units`Private`t1, Units`Private`oldUU, Units`Private`t1UU}, Condition[ Units`Private`oldUU = Units`Private`UniqueCasesUnit[Units`Private`old]; If[ MatchQ[Units`Private`old, Pattern[Units`Private`x, Blank[]]^Pattern[Units`Private`y, Blank[Rational]]], Units`Private`x = Part[Units`Private`old, 1]; Units`Private`y = Part[Units`Private`old, 2]; Units`Private`t1 = Units`Private`myConvert[ Units`Private`x, Units`Private`oldUU, Units`Private`new^(1/Units`Private`y)]; Units`Private`t1UU = Units`Private`UniqueCasesUnit[Units`Private`t1]; Units`Private`t1 = PowerExpand[ Units`Private`t1^Units`Private`y, Units`Private`t1UU], Units`Private`t1 = Units`Private`myConvert[ Units`Private`old, Units`Private`oldUU, Units`Private`new]; Units`Private`t1UU = Units`Private`UniqueCasesUnit[Units`Private`t1]; Units`Private`t1 = PowerExpand[Units`Private`t1, Units`Private`t1UU]]; If[ Units`Private`HasUnitQ[ N[Units`Private`t1]], Message[ MessageName[Units`Convert, "incomp"], Units`Private`old, Units`Private`new]; Return[Units`Private`old], If[ Apply[Or, Map[ Position[Units`Private`new, #] != {}& , { Units`Centigrade, Units`Celsius, Units`Kelvin, Units`Fahrenheit, Units`Rankine}]], Message[ MessageName[Units`Convert, "temp"]]]; Return[Units`Private`t1 Units`Private`new]], And[ If[Head[Units`Private`old] === List, Message[ MessageName[Units`Convert, "old"], Units`Private`old]; False, True], If[Head[Units`Private`new] === List, Message[ MessageName[Units`Convert, "new"], Units`Private`new]; False, True]]]], TagSet[Units`Convert, MessageName[Units`Convert, "incomp"], "Incompatible units in `1` and `2`."], TagSet[Units`Convert, MessageName[Units`Convert, "new"], "Argument `` should be a simple expression involving units, not a \ list."], TagSet[Units`Convert, MessageName[Units`Convert, "old"], "Argument `` should be a simple expression involving units, not a \ list."], TagSet[Units`Convert, MessageName[Units`Convert, "temp"], "Warning: Convert[old,new] converts units of temperature. \ ConvertTemperature[temp,old,new] converts absolute temperature."], TagSet[Units`Convert, MessageName[Units`Convert, "usage"], "\!\(\*RowBox[{\" Convert \", \"[\", RowBox[{StyleBox[\" expr \", \ \" TI \"], \",\", StyleBox[\" newunits \", \" TI \"]}], \"]\"}]\) converts \!\ \(\*StyleBox[\" expr \", \" TI \"]\) to a form involving a combination of \ units \!\(\*StyleBox[\" newunits \", \" TI \"]\)."], Units`Private`UniqueCasesUnit[ Pattern[Units`Private`expr, Blank[]]] := Union[ Cases[Units`Private`expr, PatternTest[ Blank[Symbol], And[ MatchQ[#, Blank[Symbol]], Or[ MemberQ[{"Units`", "SIUnits`"}, Context[#]], MemberQ[{ Span, Cup, Degree, Circle, Point, Last, Drop, Gamma, Byte}, #]]]& ], Infinity]], TagSet[Cup, MessageName[Cup, "usage"], "\!\(\*RowBox[{\"Cup\", \"[\", RowBox[{StyleBox[\"x\", \"TI\"], \",\ \", StyleBox[\"y\", \"TI\"], \",\", StyleBox[\"\[Ellipsis]\", \"TR\"]}], \ \"]\"}]\) displays as \!\(\*RowBox[{StyleBox[\"x\", \"TI\"], \"\[Cup]\", \ StyleBox[\"y\", \"TI\"], \"\[Cup]\", \"\[Ellipsis]\"}]\). It is also a unit \ of volume."], Units`Private`myConvert[ Pattern[Units`Private`x, Blank[]], Pattern[Units`Private`uniqueUnits, Blank[]], Pattern[Units`Private`new, Blank[]]] := Module[{Units`Private`temp1, Units`Private`temp2, Units`Private`temp3, Units`Private`tempUniqueUnits}, Units`Private`temp1 = Collect[Units`Private`x, Units`Private`uniqueUnits]; Units`Private`temp2 = Units`SI[Units`Private`temp1/Units`Private`new]; Units`Private`tempUniqueUnits = Units`Private`UniqueCasesUnit[Units`Private`temp2]; Units`Private`temp3 = Collect[Units`Private`temp2, Units`Private`tempUniqueUnits]; ReplaceRepeated[ Units`Private`temp3, Units`Private`$ToFundamental]], Units`SI[ Pattern[Units`Private`expr, Blank[]]] := ReplaceRepeated[ ReplaceRepeated[ ReplaceRepeated[ Units`Private`expr, Units`Private`$ToIntermediate], Units`Private`$SIPrefixes], Units`Private`$ToSI], TagSet[Units`SI, MessageName[Units`SI, "usage"], "\!\(\*RowBox[{\" SI \", \"[\", StyleBox[\" expr \", \" TI \"], \"]\ \"}]\) converts \!\(\*StyleBox[\" expr \", \" TI \"]\) to SI units \ (International System)."], Units`Private`$ToIntermediate = Dispatch[{ Units`Percent -> 1/100, Units`Gross -> 144, Units`Dozen -> 12, Units`BakersDozen -> 13, Units`Mole -> 6.0221367*^23, Units`ArcMinute -> Degree/60, Units`ArcSecond -> Units`ArcMinute/60, Units`Quadrant -> Units`RightAngle, Units`Grade -> Units`RightAngle/100, Units`AU -> Units`AstronomicalUnit, Units`DidotPoint -> Units`Didot, Units`Cicero -> 12 Units`Didot, Units`Mil -> Units`Inch/1000, Units`Caliber -> Units`Inch/100, Units`Hand -> 4 Units`Inch, Units`Link -> 7.92 Units`Inch, Span -> 9 Units`Inch, Units`Cubit -> 18 Units`Inch, Units`Ell -> 45 Units`Inch, Point -> Units`Inch/72, Units`PrintersPoint -> 0.013837 Units`Inch, Units`Pica -> 12 Point, Units`Foot -> 12 Units`Inch, Units`Feet -> Units`Foot, Units`Fathom -> 6 Units`Foot, Units`Rope -> 20 Units`Foot, Units`Chain -> 66 Units`Foot, Units`Cable -> 720 Units`Foot, Units`Skein -> 360 Units`Foot, Units`Stadion -> 622 Units`Foot, Units`Yard -> 3 Units`Foot, Units`Bolt -> 40 Units`Yard, Units`Furlong -> 220 Units`Yard, Units`Stadium -> 202 Units`Yard, Units`Rod -> 5.5 Units`Yard, Units`Pole -> Units`Rod, Units`Perch -> Units`Rod, Units`SurveyMile -> 320 Units`Rod, Units`Mile -> 5280 Units`Foot, Units`StatuteMile -> Units`Mile, Units`League -> 3 Units`Mile, Units`Acre -> 43560 Units`Foot^2, Units`Rood -> Units`Acre/4, Units`Section -> Units`Mile^2, Units`Township -> 36 Units`Section, Units`Cord -> 128 Units`Foot^3, Units`RegisterTon -> 100 Units`Foot^3, Units`BoardFoot -> 144 Units`Inch^3, Units`UKPint -> 0.568261 Units`Liter, Units`ImperialPint -> 0.568261 Units`Liter, Units`WineBottle -> 0.7576778 Units`Liter, Last -> 2909.414 Units`Liter, Units`UKGallon -> 4.54609 Units`Liter, Units`ImperialGallon -> 4.54609 Units`Liter, Units`Firkin -> 9 Units`UKGallon, Units`Gallon -> 4 Units`Quart, Units`Jeroboam -> (4 Units`Gallon)/5, Units`Bucket -> 4 Units`Gallon, Units`Puncheon -> 84 Units`Gallon, Units`Butt -> 126 Units`Gallon, Units`Hogshead -> Units`Butt/2, Units`Tun -> 4 Units`Hogshead, Units`Pint -> 2 Cup, Cup -> 0.236588 Units`Liter, Units`FluidOunce -> Units`Pint/16, Units`Minim -> Units`FluidOunce/480, Units`Shot -> Units`FluidOunce, Units`Jigger -> 1.5 Units`Shot, Units`Pony -> 0.5 Units`Jigger, Units`FluidDram -> Units`FluidOunce/8, Units`Tablespoon -> 4 Units`FluidDram, Units`Teaspoon -> Units`Tablespoon/3, Units`Gill -> Units`Pint/4, Units`Noggin -> Units`Gill, Units`Quart -> 2 Units`Pint, Units`Fifth -> (4 Units`Quart)/5, Units`Magnum -> 2 Units`Quart, Units`Peck -> 8.81 Units`Liter, Units`Bushel -> 4 Units`Peck, Units`Seam -> 8 Units`Bushel, Units`Bag -> 3 Units`Bushel, Units`Omer -> 0.45 Units`Peck, Units`Ephah -> 10 Units`Omer, Units`Hour -> 60 Units`Minute, Units`Day -> 24 Units`Hour, Units`Week -> 7 Units`Day, Units`Fortnight -> 2 Units`Week, Units`Year -> 365 Units`Day, Units`Month -> Units`Year/12, Units`Decade -> 10 Units`Year, Units`Century -> 100 Units`Year, Units`Millennium -> 1000 Units`Year, Units`TropicalYear -> 365.24219 Units`Day, Units`SiderealYear -> 365.25636 Units`Day, Units`Knot -> Units`NauticalMile/Units`Hour, Units`Quintal -> 100000 Units`Gram, Units`SolarMass -> 1.9891*^33 Units`Gram, Units`AssayTon -> 29.167 Units`Gram, Units`Grain -> 0.06479900000000001 Units`Gram, Units`Carat -> 0.2 Units`Gram, Units`Shekel -> 14.1 Units`Gram, Units`Obolos -> 0.71538 Units`Gram, Units`Drachma -> 4.2923 Units`Gram, Units`Libra -> 325.971 Units`Gram, Units`TroyOunce -> 31.103 Units`Gram, Units`Pennyweight -> 1.555 Units`Gram, Units`eVperC2 -> 1.78266*^-33 Units`Gram, Units`Tonne -> 1000000 Units`Gram, Units`MetricTon -> Units`Tonne, Units`AMU -> 1.6605402000000002`*^-24 Units`Gram, Units`AtomicMassUnit -> Units`AMU, Units`Dalton -> Units`AMU, Units`Pound -> 16 Units`Ounce, Units`AvoirdupoisPound -> Units`Pound, Units`Pondus -> 0.71864 Units`Pound, Units`Stone -> 14 Units`Pound, Units`Wey -> 252 Units`Pound, Units`Bale -> 500 Units`Pound, Units`LongTon -> 2240 Units`Pound, Units`Cental -> 100 Units`Pound, Units`ShortTon -> 2000 Units`Pound, Units`Ton -> 2000 Units`Pound, Units`NetHundredweight -> 100 Units`Pound, Units`ShortHundredweight -> 100 Units`Pound, Units`Hundredweight -> 112 Units`Pound, Units`GrossHundredweight -> Units`Hundredweight, Units`Mina -> 0.9463 Units`Pound, Units`Talent -> 60 Units`Mina, Units`Ounce -> 28.3495 Units`Gram, Units`AvoirdupoisOunce -> Units`Ounce, Units`Geepound -> Units`Slug, Units`Denier -> Units`Gram/(9000 Units`Meter), Units`Dyne -> Units`Newton/100000, Units`Poundal -> 0.138255 Units`Newton, Units`TonForce -> 9964.02 Units`Newton, Units`PoundForce -> 4.44822 Units`Newton, Units`PoundWeight -> Units`PoundForce, Units`KilogramForce -> 9.80665 Units`Newton, Units`KilogramWeight -> Units`KilogramForce, Units`GramWeight -> Units`KilogramWeight/1000, Units`Atmosphere -> 101325. Units`Pascal, Units`InchMercury -> 3386.39 Units`Pascal, Units`Barye -> Units`Pascal/10, Units`Bar -> 100000 Units`Pascal, Units`PSI -> 6894.7570000000005` Units`Pascal, Units`PoundsPerSquareInch -> Units`PSI, Units`Torr -> 133.322 Units`Pascal, Units`MillimeterMercury -> Units`Torr, Units`Rydberg -> 2.1799*^-11 Units`Erg, Units`BritishThermalUnit -> Units`BTU, Units`Therm -> 100000 Units`BTU, Units`Centigrade -> Units`Kelvin, Units`Celsius -> Units`Centigrade, Units`Fahrenheit -> (5 Units`Kelvin)/9, Units`Rankine -> Units`Fahrenheit, Units`Poise -> 0.1 Units`Pascal Units`Second, Units`Reyn -> 68947.59999999999 Units`Poise, Units`Rhes -> Units`Poise^(-1), Units`Phot -> 10000 Units`Lux, Units`FootCandle -> (Units`Lux Units`Meter^2)/Units`Foot^2, Units`Apostilb -> Units`Lambert/10000, Units`Lumerg -> Units`Talbot, Units`Rad -> 0.01 Units`GrayDose, Units`Curie -> 37000000000 Units`Becquerel, Units`Rontgen -> (0.00025800000000000004` Units`Coulomb)/ Units`Kilogram, Units`Roentgen -> Units`Rontgen, Units`Abmho -> 1000000000 Units`Mho, Units`Gauss -> Units`Tesla/10000, Gamma -> Units`Tesla/1000000000, Units`BohrMagneton -> (9.2740154*^-21 Units`Erg)/Units`Gauss, Units`NuclearMagneton -> (5.050786600000001*^-24 Units`Erg)/ Units`Gauss, Byte -> 8 Units`Bit, Units`Nibble -> 4 Units`Bit, Units`Baud -> Units`Bit/Units`Second}], TagSet[Units`Percent, MessageName[Units`Percent, "usage"], "Percent is a unit multiplier."], TagSet[Units`Gross, MessageName[Units`Gross, "usage"], "Gross is a unit multiplier."], TagSet[Units`Dozen, MessageName[Units`Dozen, "usage"], "Dozen is a unit multiplier."], TagSet[Units`BakersDozen, MessageName[Units`BakersDozen, "usage"], "BakersDozen is a unit multiplier."], TagSet[Units`Mole, MessageName[Units`Mole, "symbol"], "mol"], TagSet[Units`Mole, MessageName[Units`Mole, "usage"], "Mole is the fundamental SI unit of amount of substance."], TagSet[Units`ArcMinute, MessageName[Units`ArcMinute, "usage"], "ArcMinute is a unit multiplier."], TagSet[Units`ArcSecond, MessageName[Units`ArcSecond, "usage"], "ArcSecond is a unit multiplier."], TagSet[Units`Quadrant, MessageName[Units`Quadrant, "usage"], "Quadrant is a unit multiplier."], TagSet[Units`RightAngle, MessageName[Units`RightAngle, "usage"], "RightAngle is a unit multiplier."], TagSet[Units`Grade, MessageName[Units`Grade, "usage"], "Grade is a unit multiplier."], TagSet[Units`AU, MessageName[Units`AU, "usage"], "AU is a unit of length."], Units`AstronomicalUnit = 149597870691 Units`Meter, TagSet[Units`AstronomicalUnit, MessageName[Units`AstronomicalUnit, "symbol"], "AU"], TagSet[Units`AstronomicalUnit, MessageName[Units`AstronomicalUnit, "usage"], "AstronomicalUnit is a unit of length."], TagSet[Units`Meter, MessageName[Units`Meter, "symbol"], "m"], TagSet[Units`Meter, MessageName[Units`Meter, "usage"], "Meter is the fundamental SI unit of length."], TagSet[Units`DidotPoint, MessageName[Units`DidotPoint, "usage"], "DidotPoint is a unit of length."], TagSet[Units`Didot, MessageName[Units`Didot, "usage"], "Didot is a unit of length."], TagSet[Units`Cicero, MessageName[Units`Cicero, "usage"], "Cicero is a unit of length."], TagSet[Units`Mil, MessageName[Units`Mil, "usage"], "Mil is a unit of length."], TagSet[Units`Inch, MessageName[Units`Inch, "symbol"], "in"], TagSet[Units`Inch, MessageName[Units`Inch, "usage"], "Inch is a unit of length."], TagSet[Units`Caliber, MessageName[Units`Caliber, "usage"], "Caliber is a unit of length."], TagSet[Units`Hand, MessageName[Units`Hand, "usage"], "Hand is a unit of length."], TagSet[Units`Link, MessageName[Units`Link, "usage"], "Link is a unit of length."], TagSet[Units`Cubit, MessageName[Units`Cubit, "usage"], "Cubit is a unit of length."], TagSet[Units`Ell, MessageName[Units`Ell, "usage"], "Ell is a unit of length."], TagSet[Units`PrintersPoint, MessageName[Units`PrintersPoint, "usage"], "PrintersPoint is a unit of length."], TagSet[Units`Pica, MessageName[Units`Pica, "usage"], "Pica is a unit of length."], TagSet[Units`Foot, MessageName[Units`Foot, "symbol"], "ft"], TagSet[Units`Foot, MessageName[Units`Foot, "usage"], "Foot is a unit of length."], TagSet[Units`Feet, MessageName[Units`Feet, "usage"], "Feet is a unit of length."], TagSet[Units`Fathom, MessageName[Units`Fathom, "usage"], "Fathom is a unit of length."], TagSet[Units`Rope, MessageName[Units`Rope, "usage"], "Rope is a unit of length."], TagSet[Units`Chain, MessageName[Units`Chain, "usage"], "Chain is a unit of length."], TagSet[Units`Cable, MessageName[Units`Cable, "usage"], "Cable is a unit of length."], TagSet[Units`Skein, MessageName[Units`Skein, "usage"], "Skein is a unit of length."], TagSet[Units`Stadion, MessageName[Units`Stadion, "usage"], "Stadion is a unit of length."], TagSet[Units`Yard, MessageName[Units`Yard, "symbol"], "yd"], TagSet[Units`Yard, MessageName[Units`Yard, "usage"], "Yard is a unit of length."], TagSet[Units`Bolt, MessageName[Units`Bolt, "usage"], "Bolt is a unit of length."], TagSet[Units`Furlong, MessageName[Units`Furlong, "usage"], "Furlong is a unit of length."], TagSet[Units`Stadium, MessageName[Units`Stadium, "usage"], "Stadium is a unit of length."], TagSet[Units`Rod, MessageName[Units`Rod, "usage"], "Rod is a unit of length."], TagSet[Units`Pole, MessageName[Units`Pole, "usage"], "Pole is a unit of length."], TagSet[Units`Perch, MessageName[Units`Perch, "usage"], "Perch is a unit of length."], TagSet[Units`SurveyMile, MessageName[Units`SurveyMile, "usage"], "SurveyMile is a unit of length."], TagSet[Units`Mile, MessageName[Units`Mile, "symbol"], "mi"], TagSet[Units`Mile, MessageName[Units`Mile, "usage"], "Mile is a unit of length."], TagSet[Units`StatuteMile, MessageName[Units`StatuteMile, "usage"], "StatuteMile is a unit of length."], TagSet[Units`League, MessageName[Units`League, "usage"], "League is a unit of length."], TagSet[Units`Acre, MessageName[Units`Acre, "usage"], "Acre is a unit of area."], TagSet[Units`Rood, MessageName[Units`Rood, "usage"], "Rood is a unit of area."], TagSet[Units`Section, MessageName[Units`Section, "usage"], "Section is a unit of area."], TagSet[Units`Township, MessageName[Units`Township, "usage"], "Township is a unit of area."], TagSet[Units`Cord, MessageName[Units`Cord, "usage"], "Cord is a unit of volume."], TagSet[Units`RegisterTon, MessageName[Units`RegisterTon, "usage"], "RegisterTon is a unit of volume."], TagSet[Units`BoardFoot, MessageName[Units`BoardFoot, "usage"], "BoardFoot is a unit of volume."], TagSet[Units`UKPint, MessageName[Units`UKPint, "symbol"], "ipt"], TagSet[Units`UKPint, MessageName[Units`UKPint, "usage"], "UKPint is a British volume unit."], TagSet[Units`Liter, MessageName[Units`Liter, "symbol"], "l"], TagSet[Units`Liter, MessageName[Units`Liter, "usage"], "Liter is a unit of volume."], TagSet[Units`ImperialPint, MessageName[Units`ImperialPint, "symbol"], "ipt"], TagSet[Units`ImperialPint, MessageName[Units`ImperialPint, "usage"], "ImperialPint is a British volume unit."], TagSet[Units`WineBottle, MessageName[Units`WineBottle, "usage"], "WineBottle is a unit of volume."], TagSet[Units`UKGallon, MessageName[Units`UKGallon, "symbol"], "impgal"], TagSet[Units`UKGallon, MessageName[Units`UKGallon, "usage"], "UKGallon is a British volume unit."], TagSet[Units`ImperialGallon, MessageName[Units`ImperialGallon, "symbol"], "impgal"], TagSet[Units`ImperialGallon, MessageName[Units`ImperialGallon, "usage"], "ImperialGallon is a British volume unit."], TagSet[Units`Firkin, MessageName[Units`Firkin, "usage"], "Firkin is a unit of volume."], TagSet[Units`Gallon, MessageName[Units`Gallon, "symbol"], "gal"], TagSet[Units`Gallon, MessageName[Units`Gallon, "usage"], "Gallon is a US volume unit."], TagSet[Units`Quart, MessageName[Units`Quart, "usage"], "Quart is a unit of volume."], TagSet[Units`Jeroboam, MessageName[Units`Jeroboam, "usage"], "Jeroboam is a unit of volume."], TagSet[Units`Bucket, MessageName[Units`Bucket, "usage"], "Bucket is a unit of volume."], TagSet[Units`Puncheon, MessageName[Units`Puncheon, "usage"], "Puncheon is a unit of volume."], TagSet[Units`Butt, MessageName[Units`Butt, "usage"], "Butt is a unit of volume."], TagSet[Units`Hogshead, MessageName[Units`Hogshead, "usage"], "Hogshead is a unit of volume."], TagSet[Units`Tun, MessageName[Units`Tun, "usage"], "Tun is a unit of volume."], TagSet[Units`Pint, MessageName[Units`Pint, "symbol"], "pt"], TagSet[Units`Pint, MessageName[Units`Pint, "usage"], "Pint is a unit of volume."], TagSet[Units`FluidOunce, MessageName[Units`FluidOunce, "usage"], "FluidOunce is a unit of volume."], TagSet[Units`Minim, MessageName[Units`Minim, "usage"], "Minim is a unit of volume."], TagSet[Units`Shot, MessageName[Units`Shot, "usage"], "Shot is a unit of volume."], TagSet[Units`Jigger, MessageName[Units`Jigger, "usage"], "Jigger is a unit of volume."], TagSet[Units`Pony, MessageName[Units`Pony, "usage"], "Pony is a unit of volume."], TagSet[Units`FluidDram, MessageName[Units`FluidDram, "usage"], "FluidDram is a unit of volume."], TagSet[Units`Tablespoon, MessageName[Units`Tablespoon, "usage"], "Tablespoon is a unit of volume."], TagSet[Units`Teaspoon, MessageName[Units`Teaspoon, "usage"], "Teaspoon is a unit of volume."], TagSet[Units`Gill, MessageName[Units`Gill, "usage"], "Gill is a unit of volume."], TagSet[Units`Noggin, MessageName[Units`Noggin, "usage"], "Noggin is a unit of volume."], TagSet[Units`Fifth, MessageName[Units`Fifth, "usage"], "Fifth is a unit of volume."], TagSet[Units`Magnum, MessageName[Units`Magnum, "usage"], "Magnum is a unit of volume."], TagSet[Units`Peck, MessageName[Units`Peck, "usage"], "Peck is a unit of volume."], TagSet[Units`Bushel, MessageName[Units`Bushel, "usage"], "Bushel is a unit of volume."], TagSet[Units`Seam, MessageName[Units`Seam, "usage"], "Seam is a unit of volume."], TagSet[Units`Bag, MessageName[Units`Bag, "usage"], "Bag is a unit of volume."], TagSet[Units`Omer, MessageName[Units`Omer, "usage"], "Omer is a unit of volume."], TagSet[Units`Ephah, MessageName[Units`Ephah, "usage"], "Ephah is a unit of volume."], TagSet[Units`Hour, MessageName[Units`Hour, "symbol"], "h"], TagSet[Units`Hour, MessageName[Units`Hour, "usage"], "Hour is a unit of time."], TagSet[Units`Minute, MessageName[Units`Minute, "symbol"], "min"], TagSet[Units`Minute, MessageName[Units`Minute, "usage"], "Minute is a unit of time."], TagSet[Units`Day, MessageName[Units`Day, "symbol"], "d"], TagSet[Units`Day, MessageName[Units`Day, "usage"], "Day is a unit of time."], TagSet[Units`Week, MessageName[Units`Week, "usage"], "Week is a unit of time."], TagSet[Units`Fortnight, MessageName[Units`Fortnight, "usage"], "Fortnight is a unit of time."], TagSet[Units`Year, MessageName[Units`Year, "symbol"], "yr"], TagSet[Units`Year, MessageName[Units`Year, "usage"], "Year is a unit of time."], TagSet[Units`Month, MessageName[Units`Month, "usage"], "Month is a unit of time."], TagSet[Units`Decade, MessageName[Units`Decade, "usage"], "Decade is a unit of time."], TagSet[Units`Century, MessageName[Units`Century, "usage"], "Century is a unit of time."], TagSet[Units`Millennium, MessageName[Units`Millennium, "usage"], "Millennium is a unit of time."], TagSet[Units`TropicalYear, MessageName[Units`TropicalYear, "usage"], "TropicalYear is a unit of time."], Units`SiderealYear = 3.15581960131*^7 Units`Second, TagSet[Units`SiderealYear, MessageName[Units`SiderealYear, "usage"], "SiderealYear is a unit of time."], TagSet[Units`Second, MessageName[Units`Second, "symbol"], "s"], TagSet[Units`Second, MessageName[Units`Second, "usage"], "Second is the fundamental SI unit of time."], TagSet[Units`Knot, MessageName[Units`Knot, "usage"], "Knot is a unit of speed."], TagSet[Units`NauticalMile, MessageName[Units`NauticalMile, "symbol"], "nm"], TagSet[Units`NauticalMile, MessageName[Units`NauticalMile, "usage"], "NauticalMile is a unit of length."], TagSet[Units`Quintal, MessageName[Units`Quintal, "usage"], "Quintal is a unit of mass."], TagSet[Units`Gram, MessageName[Units`Gram, "symbol"], "g"], TagSet[Units`Gram, MessageName[Units`Gram, "usage"], "Gram is the fundamental CGS unit of mass."], Units`SolarMass = 1.9884351948099865`*^30 Units`Kilogram, TagSet[Units`SolarMass, MessageName[Units`SolarMass, "usage"], "SolarMass is a unit of mass."], TagSet[Units`Kilogram, MessageName[Units`Kilogram, "symbol"], "kg"], TagSet[Units`Kilogram, MessageName[Units`Kilogram, "usage"], "Kilogram is the fundamental SI unit of mass."], TagSet[Units`AssayTon, MessageName[Units`AssayTon, "usage"], "AssayTon is a unit of mass."], TagSet[Units`Grain, MessageName[Units`Grain, "usage"], "Grain is a unit of weight."], TagSet[Units`Carat, MessageName[Units`Carat, "usage"], "Carat is a unit of weight."], TagSet[Units`Shekel, MessageName[Units`Shekel, "usage"], "Shekel is a unit of weight."], TagSet[Units`Obolos, MessageName[Units`Obolos, "usage"], "Obolos is a unit of weight."], TagSet[Units`Drachma, MessageName[Units`Drachma, "usage"], "Drachma is a unit of weight."], TagSet[Units`Libra, MessageName[Units`Libra, "usage"], "Libra is a unit of weight."], TagSet[Units`TroyOunce, MessageName[Units`TroyOunce, "usage"], "TroyOunce is a unit of weight."], TagSet[Units`Pennyweight, MessageName[Units`Pennyweight, "usage"], "Pennyweight is a unit of weight."], TagSet[Units`eVperC2, MessageName[Units`eVperC2, "usage"], "eVperC2 is a unit of mass."], TagSet[Units`Tonne, MessageName[Units`Tonne, "symbol"], "t"], TagSet[Units`Tonne, MessageName[Units`Tonne, "usage"], "Tonne is a unit of mass."], TagSet[Units`MetricTon, MessageName[Units`MetricTon, "usage"], "MetricTon is a unit of mass."], TagSet[Units`AMU, MessageName[Units`AMU, "usage"], "AMU is a unit of mass. "], TagSet[Units`AtomicMassUnit, MessageName[Units`AtomicMassUnit, "usage"], "AtomicMassUnit is a unit of mass."], TagSet[Units`Dalton, MessageName[Units`Dalton, "usage"], "Dalton is a unit of mass."], TagSet[Units`Pound, MessageName[Units`Pound, "symbol"], "lb"], TagSet[Units`Pound, MessageName[Units`Pound, "usage"], "Pound is a unit of weight."], TagSet[Units`Ounce, MessageName[Units`Ounce, "symbol"], "oz"], TagSet[Units`Ounce, MessageName[Units`Ounce, "usage"], "Ounce is a unit of weight."], TagSet[Units`AvoirdupoisPound, MessageName[Units`AvoirdupoisPound, "usage"], "AvoirdupoisPound is a unit of weight."], TagSet[Units`Pondus, MessageName[Units`Pondus, "usage"], "Pondus is a unit of weight."], TagSet[Units`Stone, MessageName[Units`Stone, "usage"], "Stone is a unit of weight."], TagSet[Units`Wey, MessageName[Units`Wey, "usage"], "Wey is a unit of weight."], TagSet[Units`Bale, MessageName[Units`Bale, "usage"], "Bale is a unit of weight."], TagSet[Units`LongTon, MessageName[Units`LongTon, "usage"], "LongTon is a unit of weight."], TagSet[Units`Cental, MessageName[Units`Cental, "usage"], "Cental is a unit of weight."], TagSet[Units`ShortTon, MessageName[Units`ShortTon, "usage"], "ShortTon is a unit of weight."], TagSet[Units`Ton, MessageName[Units`Ton, "usage"], "Ton is a unit of weight."], TagSet[Units`NetHundredweight, MessageName[Units`NetHundredweight, "usage"], "NetHundredweight is a unit of weight."], TagSet[Units`ShortHundredweight, MessageName[Units`ShortHundredweight, "usage"], "ShortHundredweight is a unit of weight."], TagSet[Units`Hundredweight, MessageName[Units`Hundredweight, "symbol"], "cwt"], TagSet[Units`Hundredweight, MessageName[Units`Hundredweight, "usage"], "Hundredweight is a unit of weight."], TagSet[Units`GrossHundredweight, MessageName[Units`GrossHundredweight, "usage"], "GrossHundredweight is a unit of weight."], TagSet[Units`Mina, MessageName[Units`Mina, "usage"], "Mina is a unit of weight."], TagSet[Units`Talent, MessageName[Units`Talent, "usage"], "Talent is a unit of weight."], TagSet[Units`AvoirdupoisOunce, MessageName[Units`AvoirdupoisOunce, "usage"], "AvoirdupoisOunce is a unit of weight."], TagSet[Units`Geepound, MessageName[Units`Geepound, "usage"], "Geepound is a unit of mass."], TagSet[Units`Slug, MessageName[Units`Slug, "usage"], "Slug is a unit of mass."], TagSet[Units`Denier, MessageName[Units`Denier, "usage"], "Denier is a unit of fineness for yarn or thread."], TagSet[Units`Dyne, MessageName[Units`Dyne, "symbol"], "dyn"], TagSet[Units`Dyne, MessageName[Units`Dyne, "usage"], "Dyne is the derived CGS unit of force."], TagSet[Units`Newton, MessageName[Units`Newton, "symbol"], "N"], TagSet[Units`Newton, MessageName[Units`Newton, "usage"], "Newton is the derived SI unit of force."], TagSet[Units`Poundal, MessageName[Units`Poundal, "symbol"], "pdl"], TagSet[Units`Poundal, MessageName[Units`Poundal, "usage"], "Poundal is a unit of force."], TagSet[Units`TonForce, MessageName[Units`TonForce, "usage"], "TonForce is a unit of force."], TagSet[Units`PoundForce, MessageName[Units`PoundForce, "symbol"], "lbf"], TagSet[Units`PoundForce, MessageName[Units`PoundForce, "usage"], "PoundForce is a unit of force."], TagSet[Units`PoundWeight, MessageName[Units`PoundWeight, "usage"], "PoundWeight is a unit of force."], TagSet[Units`KilogramForce, MessageName[Units`KilogramForce, "usage"], "KilogramForce is a unit of force."], TagSet[Units`KilogramWeight, MessageName[Units`KilogramWeight, "usage"], "KilogramWeight is a unit of force."], TagSet[Units`GramWeight, MessageName[Units`GramWeight, "usage"], "GramWeight is a unit of force."], TagSet[Units`Atmosphere, MessageName[Units`Atmosphere, "symbol"], "atm"], TagSet[Units`Atmosphere, MessageName[Units`Atmosphere, "usage"], "Atmosphere is a unit of pressure."], TagSet[Units`Pascal, MessageName[Units`Pascal, "symbol"], "Pa"], TagSet[Units`Pascal, MessageName[Units`Pascal, "usage"], "Pascal is the derived SI unit of pressure."], TagSet[Units`InchMercury, MessageName[Units`InchMercury, "usage"], "InchMercury is a unit of pressure."], TagSet[Units`Barye, MessageName[Units`Barye, "usage"], "Barye is a unit of pressure."], TagSet[Units`Bar, MessageName[Units`Bar, "symbol"], "bar"], TagSet[Units`Bar, MessageName[Units`Bar, "usage"], "Bar is a unit of pressure."], TagSet[Units`PSI, MessageName[Units`PSI, "usage"], "PSI is a unit of pressure."], TagSet[Units`PoundsPerSquareInch, MessageName[Units`PoundsPerSquareInch, "usage"], "PoundsPerSquareInch is a unit of pressure."], TagSet[Units`Torr, MessageName[Units`Torr, "usage"], "Torr is a unit of pressure."], TagSet[Units`MillimeterMercury, MessageName[Units`MillimeterMercury, "usage"], "MillimeterMercury is a unit of pressure."], TagSet[Units`Rydberg, MessageName[Units`Rydberg, "usage"], "Rydberg is a unit of energy."], TagSet[Units`Erg, MessageName[Units`Erg, "symbol"], "erg"], TagSet[Units`Erg, MessageName[Units`Erg, "usage"], "Erg is the derived CGS unit of energy."], TagSet[Units`BritishThermalUnit, MessageName[Units`BritishThermalUnit, "symbol"], "Btu"], TagSet[Units`BritishThermalUnit, MessageName[Units`BritishThermalUnit, "usage"], "BritishThermalUnit is a unit of energy."], TagSet[Units`BTU, MessageName[Units`BTU, "symbol"], "Btu"], TagSet[Units`BTU, MessageName[Units`BTU, "usage"], "BTU is a unit of energy."], TagSet[Units`Therm, MessageName[Units`Therm, "usage"], "Therm is a unit of energy."], TagSet[Units`Centigrade, MessageName[Units`Centigrade, "usage"], "Centigrade is a unit of temperature."], TagSet[Units`Kelvin, MessageName[Units`Kelvin, "symbol"], "K"], TagSet[Units`Kelvin, MessageName[Units`Kelvin, "usage"], "Kelvin is the fundamental SI unit of thermodynamic temperature."], TagSet[Units`Celsius, MessageName[Units`Celsius, "usage"], "Celsius is a unit of temperature."], TagSet[Units`Fahrenheit, MessageName[Units`Fahrenheit, "usage"], "Fahrenheit is a unit of temperature."], TagSet[Units`Rankine, MessageName[Units`Rankine, "usage"], "Rankine is a unit of temperature."], TagSet[Units`Poise, MessageName[Units`Poise, "symbol"], "P"], TagSet[Units`Poise, MessageName[Units`Poise, "usage"], "Poise is the derived CGS unit of absolute viscosity."], TagSet[Units`Reyn, MessageName[Units`Reyn, "usage"], "Reyn is a unit of absolute viscosity."], TagSet[Units`Rhes, MessageName[Units`Rhes, "usage"], "Rhes is a unit of viscosity."], TagSet[Units`Phot, MessageName[Units`Phot, "symbol"], "ph"], TagSet[Units`Phot, MessageName[Units`Phot, "usage"], "Phot is the derived CGS unit of illumination (illuminance)."], TagSet[Units`Lux, MessageName[Units`Lux, "symbol"], "lx"], TagSet[Units`Lux, MessageName[Units`Lux, "usage"], "Lux is the derived SI unit of illumination (illuminance)."], TagSet[Units`FootCandle, MessageName[Units`FootCandle, "usage"], "FootCandle is a unit of illumination (illuminance)."], TagSet[Units`Apostilb, MessageName[Units`Apostilb, "usage"], "Apostilb is a unit of luminance (photometric brightness)."], TagSet[Units`Lambert, MessageName[Units`Lambert, "usage"], "Lambert is a unit of luminance (photometric brightness)."], TagSet[Units`Lumerg, MessageName[Units`Lumerg, "usage"], "Lumerg is a unit of luminous energy (quantity of light)."], TagSet[Units`Talbot, MessageName[Units`Talbot, "usage"], "Talbot is a unit of luminous energy (quantity of light)."], TagSet[Units`Rad, MessageName[Units`Rad, "symbol"], "rad"], TagSet[Units`Rad, MessageName[Units`Rad, "usage"], "Rad is a unit of absorbed dose of radiation."], TagSet[Units`GrayDose, MessageName[Units`GrayDose, "symbol"], "Gy"], TagSet[Units`GrayDose, MessageName[Units`GrayDose, "usage"], "GrayDose is the derived SI unit of absorbed dose of radiation."], TagSet[Units`Curie, MessageName[Units`Curie, "symbol"], "Ci"], TagSet[Units`Curie, MessageName[Units`Curie, "usage"], "Curie is a unit of radioactivity."], TagSet[Units`Becquerel, MessageName[Units`Becquerel, "symbol"], "Bq"], TagSet[Units`Becquerel, MessageName[Units`Becquerel, "usage"], "Becquerel is the derived SI unit of radioactivity."], TagSet[Units`Rontgen, MessageName[Units`Rontgen, "symbol"], "R"], TagSet[Units`Rontgen, MessageName[Units`Rontgen, "usage"], "Rontgen is a unit of exposure to X or gamma radiation."], TagSet[Units`Coulomb, MessageName[Units`Coulomb, "symbol"], "C"], TagSet[Units`Coulomb, MessageName[Units`Coulomb, "usage"], "Coulomb is the derived SI unit of electric charge."], TagSet[Units`Roentgen, MessageName[Units`Roentgen, "symbol"], "R"], TagSet[Units`Roentgen, MessageName[Units`Roentgen, "usage"], "Roentgen is a unit of exposure to X or gamma radiation."], TagSet[Units`Abmho, MessageName[Units`Abmho, "usage"], "Abmho is a unit of electric conductance in the CGS system."], TagSet[Units`Mho, MessageName[Units`Mho, "usage"], "Mho is a unit of electric conductance."], TagSet[Units`Gauss, MessageName[Units`Gauss, "symbol"], "G"], TagSet[Units`Gauss, MessageName[Units`Gauss, "usage"], "Gauss is the derived CGS unit of magnetic flux density."], TagSet[Units`Tesla, MessageName[Units`Tesla, "symbol"], "T"], TagSet[Units`Tesla, MessageName[Units`Tesla, "usage"], "Tesla is the derived SI unit of magnetic flux density."], Units`BohrMagneton = (9.274009146701912*^-24 Units`Coulomb Units`Meter^2)/Units`Second, TagSet[Units`BohrMagneton, MessageName[Units`BohrMagneton, "usage"], "BohrMagneton is a unit of magnetic moment."], Units`NuclearMagneton = (5.0507832413665674`*^-27 Units`Coulomb Units`Meter^2)/Units`Second, TagSet[Units`NuclearMagneton, MessageName[Units`NuclearMagneton, "usage"], "NuclearMagneton is a unit of magnetic moment."], TagSet[Units`Bit, MessageName[Units`Bit, "symbol"], "bit"], TagSet[Units`Bit, MessageName[Units`Bit, "usage"], "Bit is the fundamental unit of information."], TagSet[Units`Nibble, MessageName[Units`Nibble, "usage"], "Nibble is a unit of information."], TagSet[Units`Baud, MessageName[Units`Baud, "usage"], "Baud is a unit of information."], Units`Private`$SIPrefixes = Dispatch[{ Units`Yotta -> 1000000000000000000000000, Units`Zetta -> 1000000000000000000000, Units`Exa -> 1000000000000000000, Units`Peta -> 1000000000000000, Units`Tera -> 1000000000000, Units`Giga -> 1000000000, Units`Mega -> 1000000, Units`Kilo -> 1000, Units`Hecto -> 100, Units`Deca -> 10, Units`Deci -> 1/10, Units`Centi -> 1/100, Units`Milli -> 1/1000, Units`Micro -> 1/1000000, Units`Nano -> 1/1000000000, Units`Pico -> 1/1000000000000, Units`Femto -> 1/1000000000000000, Units`Atto -> 1/1000000000000000000, Units`Zepto -> 1/1000000000000000000000, Units`Yocto -> 1/1000000000000000000000000}], TagSet[Units`Yotta, MessageName[Units`Yotta, "symbol"], "Y"], TagSet[Units`Yotta, MessageName[Units`Yotta, "usage"], "Yotta is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 24\"]\)."], TagSet[Units`Zetta, MessageName[Units`Zetta, "symbol"], "Z"], TagSet[Units`Zetta, MessageName[Units`Zetta, "usage"], "Zetta is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 21\"]\)."], TagSet[Units`Exa, MessageName[Units`Exa, "symbol"], "E"], TagSet[Units`Exa, MessageName[Units`Exa, "usage"], "Exa is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 18\"]\)."], TagSet[Units`Peta, MessageName[Units`Peta, "symbol"], "P"], TagSet[Units`Peta, MessageName[Units`Peta, "usage"], "Peta is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 15\"]\)."], TagSet[Units`Tera, MessageName[Units`Tera, "symbol"], "T"], TagSet[Units`Tera, MessageName[Units`Tera, "usage"], "Tera is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 12\"]\)."], TagSet[Units`Giga, MessageName[Units`Giga, "symbol"], "G"], TagSet[Units`Giga, MessageName[Units`Giga, "usage"], "Giga is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 9\"]\)."], TagSet[Units`Mega, MessageName[Units`Mega, "symbol"], "M"], TagSet[Units`Mega, MessageName[Units`Mega, "usage"], "Mega is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 6\"]\)."], TagSet[Units`Kilo, MessageName[Units`Kilo, "symbol"], "k"], TagSet[Units`Kilo, MessageName[Units`Kilo, "usage"], "Kilo is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 3\"]\)."], TagSet[Units`Hecto, MessageName[Units`Hecto, "symbol"], "h"], TagSet[Units`Hecto, MessageName[Units`Hecto, "usage"], "Hecto is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 2\"]\)."], TagSet[Units`Deca, MessageName[Units`Deca, "symbol"], "da"], TagSet[Units`Deca, MessageName[Units`Deca, "usage"], "Deca is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ \" 1\"]\)."], TagSet[Units`Deci, MessageName[Units`Deci, "symbol"], "d"], TagSet[Units`Deci, MessageName[Units`Deci, "usage"], "Deci is the SI unit prefix denoting \!\(\*FractionBox[\" 1\", \" \ 10\"]\)."], TagSet[Units`Centi, MessageName[Units`Centi, "symbol"], "c"], TagSet[Units`Centi, MessageName[Units`Centi, "usage"], "Centi is the SI unit prefix denoting \ \!\(\*SuperscriptBox[StyleBox[\" 10\", \" TR \"], RowBox[{\"-\", StyleBox[\" \ 2\", \" TR \"]}]]\)."], TagSet[Units`Milli, MessageName[Units`Milli, "symbol"], "m"], TagSet[Units`Milli, MessageName[Units`Milli, "usage"], "Milli is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ RowBox[{\"-\", \" 3\"}]]\)."], TagSet[Units`Micro, MessageName[Units`Micro, "symbol"], "mu"], TagSet[Units`Micro, MessageName[Units`Micro, "usage"], "Micro is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ RowBox[{\"-\", \" 6\"}]]\)."], TagSet[Units`Nano, MessageName[Units`Nano, "symbol"], "n"], TagSet[Units`Nano, MessageName[Units`Nano, "usage"], "Nano is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ RowBox[{\"-\", \" 9\"}]]\)."], TagSet[Units`Pico, MessageName[Units`Pico, "symbol"], "p"], TagSet[Units`Pico, MessageName[Units`Pico, "usage"], "Pico is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ RowBox[{\"-\", \" 12\"}]]\)."], TagSet[Units`Femto, MessageName[Units`Femto, "symbol"], "f"], TagSet[Units`Femto, MessageName[Units`Femto, "usage"], "Femto is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ RowBox[{\"-\", \" 15\"}]]\)."], TagSet[Units`Atto, MessageName[Units`Atto, "symbol"], "a"], TagSet[Units`Atto, MessageName[Units`Atto, "usage"], "Atto is the SI unit prefix denoting \!\(\*SuperscriptBox[StyleBox[\ \" 10\", \" TR \"], StyleBox[RowBox[{\"-\", \" 18\"}], \" TR \"]]\)."], TagSet[Units`Zepto, MessageName[Units`Zepto, "symbol"], "z"], TagSet[Units`Zepto, MessageName[Units`Zepto, "usage"], "Zepto is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ RowBox[{\"-\", \" 21\"}]]\)."], TagSet[Units`Yocto, MessageName[Units`Yocto, "symbol"], "y"], TagSet[Units`Yocto, MessageName[Units`Yocto, "usage"], "Yocto is the SI unit prefix denoting \!\(\*SuperscriptBox[\" 10\", \ RowBox[{\"-\", \" 24\"}]]\)."], Units`Private`$ToSI = Dispatch[{ Degree -> (Pi Units`Radian)/180, Circle -> 2 Pi Units`Radian, Units`RightAngle -> (Pi Units`Radian)/2, Units`Centimeter -> Units`Meter/100, Units`Angstrom -> Units`Meter/10000000000, Units`XUnit -> 1.0019999999999999`*^-13 Units`Meter, Units`Fermi -> Units`Meter/1000000000000000, Units`Micron -> Units`Meter/1000000, Units`NauticalMile -> 1852. Units`Meter, Units`LightYear -> 9.46073*^15 Units`Meter, Units`Parsec -> 30857000000000000 Units`Meter, Units`AstronomicalUnit -> 1.4959787066*^11 Units`Meter, Units`Didot -> Units`Meter/2660, Units`Inch -> (127 Units`Meter)/5000, Units`LengthUnit -> 6.64983692227*^-10 Units`Meter, Units`NaturalLengthUnit -> 1.6168100000000001`*^-35 Units`Meter, Units`Barn -> Units`Meter^2/10000000000000000000000000000, Units`Hectare -> 10000 Units`Meter^2, Units`Are -> 100 Units`Meter^2, Units`Stere -> Units`Meter^3, Units`Barrel -> 0.159 Units`Meter^3, Drop -> 3.*^-8 Units`Meter^3, Units`Liter -> Units`Meter^3/1000, Units`Kayser -> 100/Units`Meter, Units`Diopter -> Units`Meter^(-1), Units`Minute -> 60 Units`Second, Units`SiderealSecond -> 0.9972696 Units`Second, Units`TimeUnit -> 0.275846622918 Units`Second, Units`NaturalTimeUnit -> 5.3931*^-44 Units`Second, Units`Gravity -> (9.80665 Units`Meter)/Units`Second^2, Units`Gal -> Units`Meter/(100 Units`Second^2), Units`Gram -> Units`Kilogram/1000, Units`Slug -> 14.5939 Units`Kilogram, Units`MassUnit -> 5.289862804660001*^-34 Units`Kilogram, Units`NaturalMassUnit -> 2.17569*^-8 Units`Kilogram, Units`eVperC2 -> 1.7826599999999998`*^-36 Units`Kilogram, Units`Erg -> Units`Joule/10000000, Units`BTU -> 1055.0600000000002` Units`Joule, Units`Horsepower -> 745.7 Units`Watt, Units`ChevalVapeur -> 735.499 Units`Watt, Units`Stokes -> Units`Meter^2/(10000 Units`Second), Units`Stilb -> (10000 Units`Candela)/Units`Meter^2, Units`Nit -> Units`Candela/Units`Meter^2, Units`Hefner -> 0.92 Units`Candela, Units`Candle -> Units`Candela, Units`Lambert -> (10000 Units`Lumen)/(Units`Meter^2 Pi), Units`Talbot -> Units`Lumen Units`Second, Units`Rutherford -> 1000000/Units`Second, Units`Amp -> Units`Ampere, Units`Abampere -> 10 Units`Ampere, Units`Statampere -> 3.335635*^-10 Units`Ampere, Units`Gilbert -> (5 Units`Ampere)/(2 Pi), Units`Biot -> 10 Units`Ampere, Units`Abohm -> Units`Ohm/1000000000, Units`Statohm -> 8.987584*^11 Units`Ohm, Units`Mho -> Units`Ohm^(-1), Units`Abcoulomb -> 10 Units`Coulomb, Units`Statcoulomb -> 3.335635*^-10 Units`Coulomb, Units`Abfarad -> 1000000000 Units`Farad, Units`Statfarad -> 1.112646*^-12 Units`Farad, Units`Abhenry -> Units`Henry/1000000000, Units`Stathenry -> 8.987584*^11 Units`Henry, Units`Abvolt -> Units`Volt/100000000, Units`Statvolt -> 299.793 Units`Volt, Units`ChargeUnit -> 1.50032062662*^-27 Units`Coulomb, Units`NaturalChargeUnit -> 1.3262100000000002`*^-18 Units`Coulomb, Units`ElectronVolt -> 1.6021773300000002`*^-19 Units`Joule, Units`Calorie -> 4.1868 Units`Joule, Units`Oersted -> (250 Units`Ampere)/(Units`Meter Pi), Units`Maxwell -> Units`Weber/100000000, Units`TempUnit -> 3.44352*^6 Units`Kelvin, Units`NaturalTempUnit -> 1.95541*^9 Units`Kelvin}], TagSet[Units`Radian, MessageName[Units`Radian, "symbol"], "rad"], TagSet[Units`Radian, MessageName[Units`Radian, "usage"], "Radian is a dimensionless measure of plane angle."], TagSet[Units`Centimeter, MessageName[Units`Centimeter, "symbol"], "cm"], TagSet[Units`Centimeter, MessageName[Units`Centimeter, "usage"], "Centimeter is the fundamental CGS unit of length."], TagSet[Units`Angstrom, MessageName[Units`Angstrom, "usage"], "Angstrom is a unit of length."], TagSet[Units`XUnit, MessageName[Units`XUnit, "usage"], "XUnit is a unit of length."], TagSet[Units`Fermi, MessageName[Units`Fermi, "usage"], "Fermi is a unit of length."], TagSet[Units`Micron, MessageName[Units`Micron, "usage"], "Micron is a unit of length."], TagSet[Units`LightYear, MessageName[Units`LightYear, "symbol"], "ly"], TagSet[Units`LightYear, MessageName[Units`LightYear, "usage"], "LightYear is a unit of length."], TagSet[Units`Parsec, MessageName[Units`Parsec, "symbol"], "pc"], TagSet[Units`Parsec, MessageName[Units`Parsec, "usage"], "Parsec is a unit of length."], TagSet[Units`NaturalLengthUnit, MessageName[Units`NaturalLengthUnit, "usage"], "NaturalLengthUnit is a unit of length."], TagSet[Units`Barn, MessageName[Units`Barn, "symbol"], "b"], TagSet[Units`Barn, MessageName[Units`Barn, "usage"], "Barn is a unit of area."], TagSet[Units`Hectare, MessageName[Units`Hectare, "symbol"], "ha"], TagSet[Units`Hectare, MessageName[Units`Hectare, "usage"], "Hectare is a unit of area."], TagSet[Units`Are, MessageName[Units`Are, "usage"], "Are is a unit of area."], TagSet[Units`Stere, MessageName[Units`Stere, "symbol"], "st"], TagSet[Units`Stere, MessageName[Units`Stere, "usage"], "Stere is a unit of volume."], TagSet[Units`Barrel, MessageName[Units`Barrel, "symbol"], "bbl"], TagSet[Units`Barrel, MessageName[Units`Barrel, "usage"], "Barrel is a unit of volume."], TagSet[Units`Kayser, MessageName[Units`Kayser, "usage"], "Kayser is a unit of inverse length."], TagSet[Units`Diopter, MessageName[Units`Diopter, "usage"], "Diopter is a unit of inverse length."], TagSet[Units`SiderealSecond, MessageName[Units`SiderealSecond, "usage"], "SiderealSecond is a unit of time."], TagSet[Units`NaturalTimeUnit, MessageName[Units`NaturalTimeUnit, "usage"], "NaturalTimeUnit is a unit of time."], TagSet[Units`Gravity, MessageName[Units`Gravity, "symbol"], "g"], TagSet[Units`Gravity, MessageName[Units`Gravity, "usage"], "Gravity is a measure of the acceleration due to gravity."], TagSet[Units`Gal, MessageName[Units`Gal, "symbol"], "gal"], TagSet[Units`Gal, MessageName[Units`Gal, "usage"], "Gal is the derived CGS measure of acceleration due to gravity."], TagSet[Units`NaturalMassUnit, MessageName[Units`NaturalMassUnit, "usage"], "NaturalMassUnit is a unit of mass."], TagSet[Units`Joule, MessageName[Units`Joule, "symbol"], "J"], TagSet[Units`Joule, MessageName[Units`Joule, "usage"], "Joule is the derived SI unit of energy."], TagSet[Units`Horsepower, MessageName[Units`Horsepower, "usage"], "Horsepower is a unit of power."], TagSet[Units`Watt, MessageName[Units`Watt, "symbol"], "W"], TagSet[Units`Watt, MessageName[Units`Watt, "usage"], "Watt is the derived SI unit of power."], TagSet[Units`ChevalVapeur, MessageName[Units`ChevalVapeur, "usage"], "ChevalVapeur is a unit of power."], TagSet[Units`Stokes, MessageName[Units`Stokes, "symbol"], "St"], TagSet[Units`Stokes, MessageName[Units`Stokes, "usage"], "Stokes is the derived CGS unit of kinematic viscosity."], TagSet[Units`Stilb, MessageName[Units`Stilb, "symbol"], "sb"], TagSet[Units`Stilb, MessageName[Units`Stilb, "usage"], "Stilb is the derived CGS unit of luminance (photometric \ brightness)."], TagSet[Units`Candela, MessageName[Units`Candela, "symbol"], "cd"], TagSet[Units`Candela, MessageName[Units`Candela, "usage"], "Candela is the fundamental SI unit of luminous intensity."], TagSet[Units`Nit, MessageName[Units`Nit, "usage"], "Nit is a unit of luminance (photometric brightness)."], TagSet[Units`Hefner, MessageName[Units`Hefner, "usage"], "Hefner is a unit of luminous intensity."], TagSet[Units`Candle, MessageName[Units`Candle, "usage"], "Candle is a unit of luminous intensity."], TagSet[Units`Lumen, MessageName[Units`Lumen, "symbol"], "lm"], TagSet[Units`Lumen, MessageName[Units`Lumen, "usage"], "Lumen is the derived SI unit of luminous flux."], TagSet[Units`Rutherford, MessageName[Units`Rutherford, "usage"], "Rutherford is a unit of radioactivity."], TagSet[Units`Amp, MessageName[Units`Amp, "usage"], "Amp is an abbreviation for Ampere."], TagSet[Units`Ampere, MessageName[Units`Ampere, "symbol"], "A"], TagSet[Units`Ampere, MessageName[Units`Ampere, "usage"], "Ampere is the fundamental SI unit of electric current."], TagSet[Units`Abampere, MessageName[Units`Abampere, "usage"], "Abampere is a unit of electric current in the CGS system."], TagSet[Units`Statampere, MessageName[Units`Statampere, "usage"], "Statampere is a unit of electric current."], TagSet[Units`Gilbert, MessageName[Units`Gilbert, "usage"], "Gilbert is a unit of magnetomotive force."], TagSet[Units`Biot, MessageName[Units`Biot, "usage"], "Biot is a unit of electric current."], TagSet[Units`Abohm, MessageName[Units`Abohm, "usage"], "Abohm is a unit of electric resistance in the CGS system."], TagSet[Units`Ohm, MessageName[Units`Ohm, "symbol"], "Omega"], TagSet[Units`Ohm, MessageName[Units`Ohm, "usage"], "Ohm is the derived SI unit of electric resistance."], TagSet[Units`Statohm, MessageName[Units`Statohm, "usage"], "Statohm is a unit of electric resistance."], TagSet[Units`Abcoulomb, MessageName[Units`Abcoulomb, "usage"], "Abcoulomb is a unit of electric charge in the CGS system."], TagSet[Units`Statcoulomb, MessageName[Units`Statcoulomb, "usage"], "Statcoulomb is a unit of electric charge."], TagSet[Units`Abfarad, MessageName[Units`Abfarad, "usage"], "Abfarad is a unit of electric capacitance in the CGS system."], TagSet[Units`Farad, MessageName[Units`Farad, "symbol"], "F"], TagSet[Units`Farad, MessageName[Units`Farad, "usage"], "Farad is the derived SI unit of electric capacitance."], TagSet[Units`Statfarad, MessageName[Units`Statfarad, "usage"], "Statfarad is a unit of electric capacitance."], TagSet[Units`Abhenry, MessageName[Units`Abhenry, "usage"], "Abhenry is a unit of inductance in the CGS system."], TagSet[Units`Henry, MessageName[Units`Henry, "symbol"], "H"], TagSet[Units`Henry, MessageName[Units`Henry, "usage"], "Henry is the derived SI unit of inductance."], TagSet[Units`Stathenry, MessageName[Units`Stathenry, "usage"], "Stathenry is a unit of inductance."], TagSet[Units`Abvolt, MessageName[Units`Abvolt, "usage"], "Abvolt is a unit of electric potential difference in the CGS \ system."], TagSet[Units`Volt, MessageName[Units`Volt, "symbol"], "V"], TagSet[Units`Volt, MessageName[Units`Volt, "usage"], "Volt is the derived SI unit of electric potential difference."], TagSet[Units`Statvolt, MessageName[Units`Statvolt, "usage"], "Statvolt is a unit of electric potential difference."], TagSet[Units`NaturalChargeUnit, MessageName[Units`NaturalChargeUnit, "usage"], "NaturalChargeUnit is a unit of electric charge."], TagSet[Units`ElectronVolt, MessageName[Units`ElectronVolt, "symbol"], "eV"], TagSet[Units`ElectronVolt, MessageName[Units`ElectronVolt, "usage"], "ElectronVolt is a unit of energy."], TagSet[Units`Calorie, MessageName[Units`Calorie, "usage"], "Calorie is a unit of energy."], TagSet[Units`Oersted, MessageName[Units`Oersted, "symbol"], "Oe"], TagSet[Units`Oersted, MessageName[Units`Oersted, "usage"], "Oersted is the derived CGS unit of magnetic intensity."], TagSet[Units`Maxwell, MessageName[Units`Maxwell, "symbol"], "Mx"], TagSet[Units`Maxwell, MessageName[Units`Maxwell, "usage"], "Maxwell is the derived CGS unit of magnetic flux."], TagSet[Units`Weber, MessageName[Units`Weber, "symbol"], "Wb"], TagSet[Units`Weber, MessageName[Units`Weber, "usage"], "Weber is the derived SI unit of magnetic flux."], TagSet[Units`TempUnit, MessageName[Units`TempUnit, "usage"], "TempUnit is a unit of temperature."], TagSet[Units`NaturalTempUnit, MessageName[Units`NaturalTempUnit, "usage"], "NaturalTempUnit is a unit of temperature."], Units`Private`$ToFundamental = Dispatch[{ Units`Radian -> 1, Units`Steradian -> Units`Radian^2, Units`Newton -> (Units`Kilogram Units`Meter)/Units`Second^2, Units`Pascal -> Units`Newton/Units`Meter^2, Units`Joule -> Units`Meter Units`Newton, Units`Watt -> Units`Joule/Units`Second, Units`Coulomb -> Units`Ampere Units`Second, Units`Volt -> Units`Watt/Units`Ampere, Units`Ohm -> Units`Volt/Units`Ampere, Units`Siemens -> Units`Ampere/Units`Volt, Units`Farad -> Units`Coulomb/Units`Volt, Units`Weber -> Units`Second Units`Volt, Units`Henry -> Units`Ohm Units`Second, Units`Tesla -> Units`Weber/Units`Meter^2, Units`Lumen -> Units`Candela Units`Steradian, Units`Lux -> Units`Lumen/Units`Meter^2, Units`Hertz -> Units`Second^(-1), Units`Becquerel -> Units`Second^(-1), Units`GrayDose -> Units`Joule/Units`Kilogram}], TagSet[Units`Steradian, MessageName[Units`Steradian, "symbol"], "sr"], TagSet[Units`Steradian, MessageName[Units`Steradian, "usage"], "Steradian is a dimensionless measure of solid angle."], TagSet[Units`Siemens, MessageName[Units`Siemens, "symbol"], "S"], TagSet[Units`Siemens, MessageName[Units`Siemens, "usage"], "Siemens is the derived SI unit of electric conductance."], TagSet[Units`Hertz, MessageName[Units`Hertz, "symbol"], "Hz"], TagSet[Units`Hertz, MessageName[Units`Hertz, "usage"], "Hertz is the derived SI unit of frequency."], Units`Private`HasUnitQ[ Pattern[Units`Private`expr, Blank[]]] := Count[Units`Private`expr, PatternTest[ Blank[Symbol], And[ MatchQ[#, Blank[Symbol]], Or[ MemberQ[{"Units`", "SIUnits`"}, Context[#]], MemberQ[{ Span, Cup, Degree, Circle, Point, Last, Drop, Gamma, Byte}, #]]]& ], Infinity] =!= 0, $CellContext`\[Omega]g1 = { 38, 213, 51}, $CellContext`\[Omega]g2 = {192, 193, 194}, $CellContext`q1 = {225, 184, 243}, $CellContext`q2 = {108, 78, 147}, $CellContext`\[Phi]\[CapitalPhi]2 = {195, 196, 197}, $CellContext`rot3 = {{ 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0, 0, 0}, {-(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0, 0, 0}, {0, 0, 1/Sqrt[2], 1/Sqrt[2], 0, 0, 0, 0}, { 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, -(1/Sqrt[3]), -(1/Sqrt[3]), -(1/Sqrt[3])}, { 0, 0, 0, 0, 0, -(1/Sqrt[2]), 1/Sqrt[2], 0}, { 0, 0, 0, 0, 0, -(1/Sqrt[6]), -(1/Sqrt[6]), Sqrt[2/3]}}, $CellContext`dsAppend := {$CellContext`e8b = Map[Insert[ Part[$CellContext`e8b, #], If[ Or[# == 1, # > $CellContext`lAuxVerts + 1], Array[0& , 8], N[ Part[$CellContext`auxVerts, # - 1]]], $CellContext`sets]& , Range[$CellContext`le8]]}, $CellContext`do[ Pattern[$CellContext`ptPos, Blank[List]], Pattern[$CellContext`pTypePos, Blank[List]], OptionsPattern[]] := {$CellContext`p = 0; $CellContext`oG = 1; Do[Increment[$CellContext`p]; $CellContext`i4 = 1 + $CellContext`sets; $CellContext`pset = \ $CellContext`pSetr[$CellContext`oA, $CellContext`oP, $CellContext`oC, \ $CellContext`oS, $CellContext`oG, OptionValue[$CellContext`row], OptionValue[$CellContext`oColor], OptionValue[$CellContext`oPtype], OptionValue[$CellContext`oGen], $CellContext`p, \ $CellContext`ptPos, $CellContext`pTypePos]; Part[$CellContext`e8b, $CellContext`pset, PreIncrement[$CellContext`i4]] = \ $CellContext`pSym[$CellContext`oA, $CellContext`oP, $CellContext`oC, \ $CellContext`oS, $CellContext`oG, OptionValue[$CellContext`row], OptionValue[$CellContext`oColor], OptionValue[$CellContext`oSpin], OptionValue[$CellContext`oGen], $CellContext`pset]; Part[$CellContext`e8b, $CellContext`pset, PreIncrement[$CellContext`i4]] = \ $CellContext`e8B[$CellContext`oA, $CellContext`oP, $CellContext`oC, \ $CellContext`oS, $CellContext`oG, OptionValue[$CellContext`row], OptionValue[$CellContext`oColor], OptionValue[$CellContext`oSpin], OptionValue[$CellContext`oGen]]; $CellContext`clr = Part[$CellContext`colorList, $CellContext`shpColor[$CellContext`oP, $CellContext`oC, OptionValue[$CellContext`row], OptionValue[$CellContext`oColor], $CellContext`pset]]; \ $CellContext`shde = Part[$CellContext`shadeList, $CellContext`shpShade[$CellContext`oS, OptionValue[$CellContext`oSpin], $CellContext`pset]]; Part[$CellContext`e8b, $CellContext`pset, PreIncrement[$CellContext`i4]] = {$CellContext`clr, \ $CellContext`shde}; Part[$CellContext`e8b, $CellContext`pset, PreIncrement[$CellContext`i4]] = Subscript[ Part[$CellContext`shapeList, $CellContext`shpType[$CellContext`oA, OptionValue[$CellContext`row], $CellContext`pset]], Part[$CellContext`sizeList, $CellContext`shpSize[$CellContext`oG, OptionValue[$CellContext`row], OptionValue[$CellContext`oGen], $CellContext`pset]]]; Part[$CellContext`e8b, $CellContext`pset, PreIncrement[$CellContext`i4]] = OptionValue[$CellContext`row]; Part[$CellContext`e8b, $CellContext`pset, PreIncrement[$CellContext`i4]] = ($CellContext`pmass = \ $CellContext`M[$CellContext`oP, $CellContext`oC, OptionValue[$CellContext`oGen], OptionValue[$CellContext`row], $CellContext`pset]); Part[$CellContext`e8b, $CellContext`pset, PreIncrement[$CellContext`i4]] = \ $CellContext`\[Tau][$CellContext`pmass, OptionValue[$CellContext`oGen]]; Null, {$CellContext`oS, 1, OptionValue[$CellContext`oSpin]}, {$CellContext`oC, 1, OptionValue[$CellContext`oColor]}, {$CellContext`oP, 1, OptionValue[$CellContext`oPtype]}, {$CellContext`oA, 1, OptionValue[$CellContext`oAnti]}]}, Options[$CellContext`do] = {$CellContext`row -> 1, $CellContext`oAnti -> 2, $CellContext`oPtype -> 2, $CellContext`oColor -> 1, $CellContext`oSpin -> 4, $CellContext`oGen -> 1}, $CellContext`i4 = 15, $CellContext`pset = 248, $CellContext`pSetr[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`oColor, Blank[]], Pattern[$CellContext`oPtype, Blank[]], Pattern[$CellContext`oGen, Blank[]], Pattern[$CellContext`p, Blank[]], Pattern[$CellContext`ptPos, Blank[List]], Pattern[$CellContext`pTypePos, Blank[List]]] := Condition[$CellContext`p, $CellContext`auxData], $CellContext`pSetr[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`oColor, Blank[]], Pattern[$CellContext`oPtype, Blank[]], Pattern[$CellContext`oGen, Blank[]], Pattern[$CellContext`p, Blank[]], Pattern[$CellContext`ptPos, Blank[List]], Pattern[$CellContext`pTypePos, Blank[List]]] := Condition[ $CellContext`pPosSet[$CellContext`oA, If[$CellContext`oP == 1, Part[$CellContext`ptPos, Ceiling[$CellContext`p/(2 $CellContext`oPtype)]], Part[$CellContext`pTypePos, Ceiling[$CellContext`p/(2 $CellContext`oPtype)]]]], And[ Or[$CellContext`ds == 1, $CellContext`row == 5], Not[$CellContext`auxData]]], $CellContext`pSetr[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`oColor, Blank[]], Pattern[$CellContext`oPtype, Blank[]], Pattern[$CellContext`oGen, Blank[]], Pattern[$CellContext`p, Blank[]], Pattern[$CellContext`ptPos, Blank[List]], Pattern[$CellContext`pTypePos, Blank[List]]] := Condition[ $CellContext`position[$CellContext`e8Orig, (3 - 2 $CellContext`oA) Join[ $CellContext`pSetrSpin[$CellContext`oP, $CellContext`oC, \ $CellContext`oS, $CellContext`oGen, $CellContext`row], $CellContext`pSetrGen[$CellContext`oP, $CellContext`oC, \ $CellContext`oS, $CellContext`oGen, $CellContext`row], $CellContext`pSetrColor[$CellContext`oP, $CellContext`oC, \ $CellContext`oS, $CellContext`oGen, $CellContext`row]]], And[$CellContext`ds != 1, $CellContext`row != 5, Not[$CellContext`auxData]]], $CellContext`pPosSet[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`pSet, Blank[]]] := If[$CellContext`oA == 1, $CellContext`pSet, $CellContext`pAnti[$CellContext`pSet]], $CellContext`pSetrSpin[ Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]]] := First[{ If[$CellContext`row < 3, If[$CellContext`oG == 1, Dot[$CellContext`rot1, $CellContext`fSpin[$CellContext`oP, $CellContext`oS]], If[$CellContext`oG == 2, Dot[$CellContext`Tspin, $CellContext`rot1, $CellContext`fSpin[$CellContext`oP, $CellContext`oS]], Dot[$CellContext`Tspin, $CellContext`Tspin, $CellContext`rot1, $CellContext`fSpin[$CellContext`oP, $CellContext`oS]]]], If[$CellContext`oP == 1, If[$CellContext`row == 3, Dot[$CellContext`rot1, $CellContext`W\[Omega]Spin[$CellContext`oC]], If[$CellContext`row == 4, Dot[$CellContext`rot1, Part[$CellContext`e\[Phi]Spin, 3 ($CellContext`oC - 1) + $CellContext`oS]]]], {0, 0, 0, 0}]]}], $CellContext`rot1 = {{1, -1, 0, 0}, {1, 1, 0, 0}, {0, 0, 1, -1}, {0, 0, 1, 1}}, $CellContext`fSpin[ Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oS, Blank[]]] = {( BitAnd[2, 2 Abs[(1 - 2 BitAnd[1, -1 + $CellContext`oS])/(1 + BitAnd[2, -1 + $CellContext`oS]/2)]] Sign[1 - 2 BitAnd[1, -1 + $CellContext`oS]])/(4 Sign[1 + BitAnd[2, -1 + $CellContext`oS]/2]), ( BitAnd[1, 2 Abs[(1 - 2 BitAnd[1, -1 + $CellContext`oS])/(1 + BitAnd[2, -1 + $CellContext`oS]/2)]] Sign[1 - 2 BitAnd[1, -1 + $CellContext`oS]])/(2 Sign[1 + BitAnd[2, -1 + $CellContext`oS]/2]), ( BitAnd[2, 2 Abs[(3 - 2 $CellContext`oP)/(1 + BitAnd[2, -1 + $CellContext`oS]/2)]] Sign[3 - 2 $CellContext`oP])/(4 Sign[1 + BitAnd[2, -1 + $CellContext`oS]/2]), ( BitAnd[1, 2 Abs[(3 - 2 $CellContext`oP)/(1 + BitAnd[2, -1 + $CellContext`oS]/2)]] Sign[3 - 2 $CellContext`oP])/(2 Sign[1 + BitAnd[2, -1 + $CellContext`oS]/ 2])}, $CellContext`Tspin = {{(-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, 1/2}}, $CellContext`W\[Omega]Spin[ Pattern[$CellContext`oC, Blank[]]] := ReplacePart[{0, 0, 0, 0}, {$CellContext`oC -> 1}], $CellContext`e\[Phi]Spin = {{ 1/2, 1/2, 1/2, 1/2}, {1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2}, {1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2}, {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, 1}}, $CellContext`pSetrGen[ Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]]] := { If[$CellContext`row == 1, If[$CellContext`oG != 2, (-1)/2, 1], If[$CellContext`row == 2, Part[$CellContext`genMat, $CellContext`oG], If[ And[$CellContext`row == 4, $CellContext`oP == 2], 2 Part[$CellContext`genMat, $CellContext`oS], 0]]]}, $CellContext`genMat = {(-1)/2, 0, 1/2, 0}, $CellContext`pSetrColor[ Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]]] := First[{ If[$CellContext`row == 1, Part[$CellContext`genMat, $CellContext`oG] {1, 1, 1}, If[$CellContext`row == 2, If[$CellContext`oG != 2, ReplacePart[{1, 1, 1}, {$CellContext`oC -> 0}] - 1/2, ReplacePart[{0, 0, 0}, {$CellContext`oC -> -1}]], If[$CellContext`row == 3, If[$CellContext`oP == 1, {0, 0, 0}, Part[$CellContext`a2, $CellContext`oC]], If[$CellContext`row == 4, If[$CellContext`oP == 1, {0, 0, 0}, If[$CellContext`oS == 2, ReplacePart[-{1, 1, 1}, {$CellContext`oC -> 0}], ReplacePart[{0, 0, 0}, {$CellContext`oC -> 1}]]]]]]]}], $CellContext`a2 = {{ 0, -1, 1}, {-1, 1, 0}, {-1, 0, 1}}, $CellContext`pSym[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`oColor, Blank[]], Pattern[$CellContext`oSpin, Blank[]], Pattern[$CellContext`oGen, Blank[]], Pattern[$CellContext`pSet, Blank[]]] := If[$CellContext`auxData, Part[$CellContext`auxVertNames, $CellContext`pSet], $CellContext`pSymbol[ If[$CellContext`oA == 1, "", Blank[]], Part[$CellContext`flavorList, $CellContext`row, $CellContext`oP, If[$CellContext`row < 3, $CellContext`oGen, If[ And[$CellContext`row == 4, $CellContext`oP == 1, $CellContext`oC == 3], $CellContext`oS, If[$CellContext`row == 5, 1, $CellContext`oC]]]], If[$CellContext`row == 5, "\" \"", Subscript[ Part[$CellContext`colorList, $CellContext`shpColor[$CellContext`oP, $CellContext`oC, \ $CellContext`row, $CellContext`oColor, $CellContext`pSet]], Part[$CellContext`shadeList, $CellContext`shpShade[$CellContext`oS, $CellContext`oSpin, \ $CellContext`pSet]]]], Part[$CellContext`spList, $CellContext`oS + If[$CellContext`row == 4, 1, 0]], $CellContext`shpCharge[$CellContext`oA, $CellContext`oP, \ $CellContext`oC, $CellContext`oS, $CellContext`oG, $CellContext`row, \ $CellContext`pSet]]], $CellContext`pSymbol[ Pattern[$CellContext`anti, Blank[]], Pattern[$CellContext`prt, Blank[]], Pattern[$CellContext`clr, Blank[]], Pattern[$CellContext`sp, Blank[]], Pattern[$CellContext`chg, Blank[]]] := HoldForm[ HoldForm[ Overscript[ Underscript[$CellContext`prt, $CellContext`clr], \ $CellContext`anti]]] HoldForm[ Invisible[ Subscript[$CellContext`\[VerticalLine], \ $CellContext`sp]^$CellContext`chg]], $CellContext`flavorList = {{{ "\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)", "\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)", "\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)"}, { "e", "\!\(\*SubscriptBox[\(e\), \(\[Mu]\)]\)", "\!\(\*SubscriptBox[\(e\), \(\[Tau]\)]\)"}}, {{"u", "c", "t"}, { "d", "s", "b"}}, {{ "\!\(\*SubscriptBox[\(\[Omega]\), \(L\)]\)", "\!\(\*SubscriptBox[\(\[Omega]\), \(R\)]\)", "W"}, { "\!\(\*SuperscriptBox[\(g\), \(g \*OverscriptBox[\(b\), \(_\)]\)]\ \)", "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(b\), \(_\)]\)]\)", "\!\(\*SuperscriptBox[\(g\), \(r \*OverscriptBox[\(g\), \ \(_\)]\)]\)"}}, {{ "\!\(\*SubscriptBox[\(e\), \(S\)]\)\[Phi]", "\!\(\*SubscriptBox[\(e\), \(T\)]\)\[Phi]", "B"}, { "\!\(\*SubscriptBox[\(x\), \(1\)]\)\[CapitalPhi]", "\!\(\*SubscriptBox[\(x\), \(2\)]\)\[CapitalPhi]", "\!\(\*SubscriptBox[\(x\), \(3\)]\)\[CapitalPhi]"}}, {{"Ex1"}, { "Ex2"}}}, $CellContext`shpColor[ Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`oColor, Blank[]]] := 6, $CellContext`shpColor[ Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`oColor, Blank[]], Pattern[$CellContext`pSet, Blank[]]] := If[$CellContext`auxData, Part[$CellContext`colorData, $CellContext`pSet], 1 + If[$CellContext`oColor == 1, 0, $CellContext`oC] + 4 ($CellContext`oP - 1)], $CellContext`shadeList = { "d", "m", "l"}, $CellContext`shpShade[ Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oSpin, Blank[]]] := 2, $CellContext`shpShade[ Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oSpin, Blank[]], Pattern[$CellContext`pSet, Blank[]]] := If[$CellContext`auxData, 2, 2 + If[$CellContext`oSpin == 1, 0, BitAnd[$CellContext`oS, 2]/2 - BitAnd[$CellContext`oS, 1]]], $CellContext`shpCharge[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`pSetr, Blank[]]] := First[{$CellContext`chgAssign = $CellContext`chargeSym[ Part[$CellContext`chargeList, 7 + 3 $CellContext`Q[$CellContext`oA, $CellContext`oP, \ $CellContext`oC, $CellContext`oS, $CellContext`oG, $CellContext`row]]]; \ $CellContext`chgCalc = ($CellContext`third[ $CellContext`pPhys[$CellContext`pSetr]] + $CellContext`fourth[ $CellContext`pPhys[$CellContext`pSetr]] - Sqrt[2/3] $CellContext`sixth[ $CellContext`pPhys[$CellContext`pSetr]])/Sqrt[2]; If[ Or[ If[ And[$CellContext`chgAssign == "--", $CellContext`chgCalc == -2], True, False], If[ And[$CellContext`chgAssign == "-", $CellContext`chgCalc == -1], True, False], If[ And[$CellContext`chgAssign == "+", $CellContext`chgCalc == 1], True, False], If[ And[$CellContext`chgAssign == "++", $CellContext`chgCalc == 2], True, False], If[$CellContext`chgAssign == ($CellContext`chgCalc = ToString[$CellContext`chgCalc, FormatType -> TraditionalForm]), True, False]], $CellContext`chgAssign, StringJoin[$CellContext`chgAssign, "\[Rule]", $CellContext`chgCalc]]}], $CellContext`chgAssign = "\!\(TraditionalForm\`0\)", $CellContext`chargeSym[ Pattern[$CellContext`x, BlankSequence[String]]] := StringJoin[$CellContext`x], $CellContext`chargeList = { "--", "\!\(TraditionalForm\`\(-\(\(5\/3\)\)\)\)", "\!\(TraditionalForm\`\(-\(\(4\/3\)\)\)\)", "-", "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)", "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)", "\!\(TraditionalForm\`0\)", "\!\(TraditionalForm\`1\/3\)", "\!\(TraditionalForm\`2\/3\)", "+", "\!\(TraditionalForm\`4\/3\)", "\!\(TraditionalForm\`5\/3\)", "++"}, $CellContext`Q[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]]] := If[$CellContext`row == 1, If[$CellContext`oP == 1, 0, -1], If[$CellContext`row == 2, If[$CellContext`oP == 1, 2/3, (-1)/3], If[$CellContext`row == 3, If[$CellContext`oP == 1, If[$CellContext`oC == 3, 1, 0], 0], If[$CellContext`row == 4, If[$CellContext`oP == 1, If[ Or[$CellContext`oC == 2, And[$CellContext`oC == 1, $CellContext`oS == 3]], 0, 1], If[$CellContext`oS == 2, (-2)/3, 1/3]], 0]]]] (3 - 2 $CellContext`oA), $CellContext`chgCalc = "\!\(TraditionalForm\`1\)", $CellContext`pPhys[ Pattern[$CellContext`p, Blank[]]] := Part[$CellContext`e8b, $CellContext`p, 3], Pattern[$CellContext`sixthPattern, $CellContext`sixth[ Pattern[$CellContext`x, Blank[]]]] := Part[$CellContext`x, 6], $CellContext`e8B[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oS, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`oColor, Blank[]], Pattern[$CellContext`oSpin, Blank[]], Pattern[$CellContext`oGen, Blank[]]] := 2^First[$CellContext`bOrd] ($CellContext`oA - 1) + 2^$CellContext`second[$CellContext`bOrd] ($CellContext`oP - 1) + 2^$CellContext`third[$CellContext`bOrd] If[$CellContext`oColor == 1, 0, $CellContext`oC] + 2^$CellContext`fourth[$CellContext`bOrd] ($CellContext`oS - If[$CellContext`row == 4, 0, 1]) + 2^$CellContext`fifth[$CellContext`bOrd] $CellContext`oGen, \ $CellContext`shde = "m", $CellContext`shpType[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`row, Blank[]]] := 5, $CellContext`shpType[ Pattern[$CellContext`oA, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`pSet, Blank[]]] := If[$CellContext`auxData, Part[$CellContext`shapeData, $CellContext`pSet], If[$CellContext`row > 3, 5, 1 + 2 ($CellContext`row - 1)] + ($CellContext`oA - 1)], $CellContext`shpSize[ Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`oGen, Blank[]]] := 6, $CellContext`shpSize[ Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`oGen, Blank[]], Pattern[$CellContext`pSet, Blank[]]] := If[$CellContext`auxData, Part[$CellContext`sizeData, $CellContext`pSet], If[$CellContext`oGen == 0, 6, 5 - 2 (3 - $CellContext`oGen)]], $CellContext`pmass = Units`MassUnit/10000000000, $CellContext`M[ Pattern[$CellContext`oP, Blank[]], Pattern[$CellContext`oC, Blank[]], Pattern[$CellContext`oG, Blank[]], Pattern[$CellContext`row, Blank[]], Pattern[$CellContext`pset, Blank[]]] := If[$CellContext`row == 1, If[$CellContext`oP == 1, $CellContext`m\[Nu][$CellContext`oG], $CellContext`me[$CellContext`oG]], If[$CellContext`row == 2, If[$CellContext`oP == 1, $CellContext`mu[$CellContext`oG], $CellContext`md[$CellContext`oG]], If[$CellContext`row == 3, If[ And[$CellContext`oP == 1, $CellContext`oC == 1], Subscript[$CellContext`m, $CellContext`W], Subscript[$CellContext`m, $CellContext`z]], If[$CellContext`row == 4, If[$CellContext`oP == 1, Subscript[$CellContext`m, $CellContext`Hg], 2 Subscript[$CellContext`m, $CellContext`Hg]], Units`MassUnit/ 10^10]]]], $CellContext`m\[Nu][ Pattern[$CellContext`oG, Blank[]]] := Units`MassUnit^2/$CellContext`me[$CellContext`oG], $CellContext`me[ Pattern[$CellContext`oG, Blank[]]] := Condition[8 Pi Units`MassUnit, $CellContext`oG == 0], $CellContext`me[ Pattern[$CellContext`oG, Blank[]]] := Condition[ If[$CellContext`oG == 2, 6, 1] ($CellContext`me[$CellContext`oG - 1]/($CellContext`\[Alpha] 2^$CellContext`oG)), $CellContext`oG > 0], $CellContext`mu[ Pattern[$CellContext`oG, Blank[]]] := $CellContext`qu[$CellContext`oG] \ ($CellContext`L[$CellContext`oG]/$CellContext`\[Tau][ $CellContext`me[$CellContext`oG], $CellContext`oG])^(1/(11 - 3 $CellContext`oG)) ( Units`MassUnit/(Units`MassUnit^(11 - 3 $CellContext`oG))^(1/(11 - 3 $CellContext`oG))), $CellContext`qu[ Pattern[$CellContext`oG, Blank[]]] := 2 Pi 2^(2 $CellContext`oG - 3) ((2/Sqrt[ Sqrt[2]]) (1/(3 Pi)) (1/(4 Pi $CellContext`\[Alpha])))^(( 1 - $CellContext`oG) ((2 - $CellContext`oG)/2)), $CellContext`md[ Pattern[$CellContext`oG, Blank[]]] := $CellContext`qd[$CellContext`oG] \ ($CellContext`L[$CellContext`oG]/$CellContext`\[Tau][ $CellContext`me[$CellContext`oG], $CellContext`oG])^(1/(11 - 3 $CellContext`oG)) ( Units`MassUnit/(Units`MassUnit^(11 - 3 $CellContext`oG))^(1/(11 - 3 $CellContext`oG))), $CellContext`qd[ Pattern[$CellContext`oG, Blank[]]] := $CellContext`qu[$CellContext`oG] 2^(3 - 2 $CellContext`oG) ((Sqrt[ Sqrt[2]]/2) (1/ 4))^(($CellContext`oG - (2 - $CellContext`oG)^2)/ 2), $CellContext`L1 = {}, $CellContext`Q1 = {$CellContext`row -> 2, $CellContext`oColor -> 3}, $CellContext`L2 = {$CellContext`oGen -> 2}, $CellContext`Q2 = {$CellContext`row -> 2, $CellContext`oColor -> 3, $CellContext`oGen -> 2}, $CellContext`L3 = {$CellContext`oGen -> 3}, $CellContext`Q3 = {$CellContext`row -> 2, $CellContext`oColor -> 3, $CellContext`oGen -> 3}, $CellContext`W\[Omega]G = {$CellContext`row -> 3, $CellContext`oColor -> 3, $CellContext`oSpin -> 1, $CellContext`oGen -> 0}, $CellContext`e\[Phi]Bx\[CapitalPhi] = {$CellContext`row -> 4, $CellContext`oColor -> 3, $CellContext`oSpin -> 3, $CellContext`oGen -> 0}, $CellContext`Exc = {$CellContext`row -> 5, $CellContext`oGen -> 0}, $CellContext`e8Bin = CompressedData[" 1:eJylkt2RwjAMhL08XRvXEiXQAP2/cQzez7FknQOYyRDL0v45v7f79XZpf0ut /bSx9OWL5Ip8Inf4oUjX8+XNwdMD28ayIR087YkjZiFBFXakUemE6gQ6VF8w hqCF137mDdMGN8pEe1LoVmApLAnqNjbEJWEisu0CMAERRxgYsXCBki2Y2pDj WMaQsdSmMT+dYcB4eIZDNCkQv3Ss8HOzd4Ge1LgmaaKIsri2pbxNMGUgKQjb KQwno9gMhqLdQmASRgxBQIojAOZY+GAkNBp7lGUQtblNbdmOamLVYbOAIeY1 HG6JXZoYIg3XUNBxHf/TFsGkQJATjCdZwUgpLxDXMrlAaZCMrdq6jI3iGDub NmydbA9C92MY/PCP9QCHvgWy "], $CellContext`plsDo := {$CellContext`plNames = { "None"}; $CellContext`pl = {}; $CellContext`pls = \ {$CellContext`pl}; AppendTo[$CellContext`plNames, "Even"]; $CellContext`pl = Join[{1}, Range[10, 37], Range[94, 163], Range[220, 247], {$CellContext`le8}]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "Odd"]; $CellContext`pl = Join[ Range[38, 93], Range[164, 219]]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "!Excluded"]; $CellContext`pl = Join[{1}, Range[10, $CellContext`le8 - 9], {$CellContext`le8}]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "Excluded"]; $CellContext`pl = Join[ Range[2, 9], Range[$CellContext`le8 - 8, $CellContext`le8 - 1]]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "!Anti"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fa = {1}; $CellContext`bChk[Equal]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "Anti"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fa = {1}; $CellContext`bChk[Greater]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "!pType"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fp = {1}; $CellContext`bChk[Equal]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "pType"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fp = {1}; $CellContext`bChk[Greater]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "!Color"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fc = {3}; $CellContext`bChk[Equal]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "Color"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fc = {3}; $CellContext`bChk[Greater]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "!Spin"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fs = {3}; $CellContext`bChk[Equal]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "Spin"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fs = {3}; $CellContext`bChk[Greater]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "!Generation"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fg = {3}; $CellContext`bChk[Equal]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "Generation"]; $CellContext`pl = {}; $CellContext`zeroFilter; \ $CellContext`fg = {3}; $CellContext`bChk[Greater]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "Boson4a"]; $CellContext`pl = Range[38, 93]; AppendTo[$CellContext`pls, $CellContext`pl]; AppendTo[$CellContext`plNames, "H4"]; AppendTo[$CellContext`pls, $CellContext`h4]; AppendTo[$CellContext`plNames, "H4/\[Phi]"]; AppendTo[$CellContext`pls, $CellContext`notH4]; AppendTo[$CellContext`plNames, "HammingCode"]; AppendTo[$CellContext`pls, $CellContext`E8H84b]; AppendTo[$CellContext`plNames, "All"]; AppendTo[$CellContext`pls, Range[$CellContext`le8]]}, $CellContext`plNames = { "None", "Even", "Odd", "!Excluded", "Excluded", "!Anti", "Anti", "!pType", "pType", "!Color", "Color", "!Spin", "Spin", "!Generation", "Generation", "Boson4a", "H4", "H4/\[Phi]", "HammingCode", "All"}, $CellContext`pl = {38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93}, $CellContext`pls = {{}, CompressedData[" 1:eJwt0cVWFAAAheFhK91I5wvxACBDSc0ISDeS0kiHAr4WrdKdWz7OcfGdf33P zQuGi0MRgUCgn/d+IJIoookhljjiSSCRJJJJIZU0PpJOBplkkU0OueSRTwGF FFFCKZ8oI0g5FVRSRTWfqaGWOuppIESYLzTSRDNfaaGVNtrpoJMuuumhl77/ +wcY5BtDDDPCKGOM850JJplimhlmmWOeHyywyBLLrLDKGutssMlPfrHFNjv8 Zpc99jngkCOO+cNf/nHCKWecc8ElV1xzwy133PPAI08888Ir7+e/AbEEQXU= "], {38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219}, CompressedData[" 1:eJwl01N3FgAAgOGv27Tccsu2bddq2bWsLdu2W7Zt27Zt27c9O1085/0Fb0h4 ZFhEjEAg8I3oxiQWsYlDXIKIR3wSkJBEJCYJSQkmGclJQUpSkZo0pCWEdKQn AxnJRGaykJVsZCcHOclFbvKQl3zkpwAFKURhilCUYhSnBCUpRWnKUJZylKcC FalEZapQlWpUpwY1qUUotalDGHWpR30a0JBGNKYJTWlGc1rQkla0Jpw2tKUd 7elARzrRmS50pRsRRNKdHvSkF73pQ1/60Z8BDGQQgxnCUIYxnBGMZBSjGcNY xjGeCUxkEpOZwlSmMZ0ZzGQWs5lDFHOZx3wWsJBFLGYJS1nGclawklWsZg1r Wcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCSU5zmDGc5 x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9HvCQRzzmCU95xnNe8JJXvOYNb3nH ez7wkU985gtfA////M4PfvKL3/zhL9Hz/gNnDnod "], {2, 3, 4, 5, 6, 7, 8, 9, 248, 249, 250, 251, 252, 253, 254, 255}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 17, 18, 23, 35, 36, 37, 38, 39, 40, 41, 45, 46, 47, 51, 52, 56, 60, 61, 62, 66, 67, 68, 72, 73, 74, 76, 77, 78, 81, 82, 83, 87, 88, 89, 94, 106, 107, 108, 116, 117, 118, 122, 123, 124, 125, 126, 127, 128, 136, 137, 138, 142, 143, 144, 145, 146, 147, 148, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 164, 165, 166, 169, 171, 172, 173, 175, 176, 177, 178, 179, 182, 183, 184, 192, 193, 194, 195, 196, 197, 198, 202, 203, 209, 213, 215, 216, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 235, 236, 237, 238, 241, 242, 243, 244}, CompressedData[" 1:eJwN0rkuHgAAAODfAzgSRxx1/MbWgATBQAcMBiJqKFJ+FAO/Y8BGXQNGPICB GEzt4B6RtCWIxPkAXVjcV7/he4MvGArXdEcEAoFhIokimhhiiSOeBBJJIpkU PpBKGulkECSTj3wii2xyyCWPfAoopIhiSijlM2WUU0ElVVRTyxfq+Eo9DTTy jSaaCdFCK218p50OOumimzA99NJHPwMMMsQIPxhljHEmmGSKaWaYZY55Flhk iWVW+MkvVlljnQ022WKbHXbZ4zd/+Ms+BxxyxDEnnHLGORdccsU/rrnhljvu eeCRJ5554ZU33glI8B+eqUFD "], {2, 3, 4, 5, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 38, 39, 40, 42, 43, 44, 45, 46, 47, 51, 52, 56, 75, 79, 80, 84, 85, 86, 87, 88, 89, 91, 92, 93, 94, 103, 104, 105, 113, 114, 115, 122, 123, 124, 133, 134, 135, 142, 143, 144, 152, 153, 154, 163, 167, 168, 169, 170, 171, 172, 173, 175, 176, 177, 178, 179, 181, 182, 183, 184, 199, 200, 201, 202, 204, 205, 206, 207, 208, 210, 211, 212, 213, 214, 215, 216, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 241, 242, 243, 244, 245, 252, 253, 254, 255}, CompressedData[" 1:eJwt0TczHgAAxvHXok4+gsNgwx05NUrUI3demwVvwiC8DFoG3aAO+qC7xGiy SFETi8mofgaTuvi5M/zuvz9PQqg9GI4IBAKDvDWSKKKJIZY44kkkiWRSSCWN dDLI5ANZZJNDLnnk85ECCimimE+UUEoZ5VRQSRXVfKaGILXUUU8DjYT4wlea aKaFb7TSRph2Ouiki2566OU7ffQz8L7HEMOMMMoY40wwyRTTzDDLHPMssMgS y6ywyhrrbLDJFj/4yTY77LLHL37zh7/sc8AhRxxzwj/+c8oZ51xwyRXX3HDL Hfc88MgTz7zwdv4rx/A/fQ== "], {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 17, 18, 19, 23, 24, 28, 41, 47, 52, 56, 75, 79, 84, 90, 94, 95, 99, 109, 128, 129, 14