(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 364659, 7242] NotebookOptionsPosition[ 360132, 7105] NotebookOutlinePosition[ 362766, 7178] CellTagsIndexPosition[ 362723, 7175] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Mechanics - Morin 9.5 Nice Cylinder 10-29-18", "Title", CellChangeTimes->{{3.536077645587881*^9, 3.536077646960683*^9}, { 3.536942498675558*^9, 3.5369425100011783`*^9}, {3.5369464426788855`*^9, 3.5369464464228926`*^9}, {3.538493603479248*^9, 3.5384936100936594`*^9}, { 3.5384945513211217`*^9, 3.5384945540355263`*^9}, {3.54154440872928*^9, 3.54154442590491*^9}, {3.541544867916086*^9, 3.5415448748736987`*^9}, { 3.545076836919593*^9, 3.5450768508333883`*^9}, {3.545076882122178*^9, 3.5450768851833534`*^9}, {3.5525126509788747`*^9, 3.5525126646288986`*^9}, {3.552945237203588*^9, 3.552945241618396*^9}, { 3.554494105756062*^9, 3.5544941180488834`*^9}, {3.554512497930321*^9, 3.554512500800726*^9}, {3.5575466546798677`*^9, 3.557546676551106*^9}, { 3.5575519066046953`*^9, 3.557551910270702*^9}, {3.559220601100362*^9, 3.559220606388771*^9}, {3.559257993781634*^9, 3.5592579980248413`*^9}, 3.564838481178846*^9, {3.5681145356458635`*^9, 3.56811453923387*^9}, { 3.5681257023136053`*^9, 3.568125707603613*^9}, {3.5684847031169615`*^9, 3.5684847214781933`*^9}, {3.5685457270006876`*^9, 3.5685457333030987`*^9}, {3.5688239618817196`*^9, 3.5688239804925528`*^9}, {3.568844277529973*^9, 3.568844282724782*^9}, { 3.5704645829145365`*^9, 3.5704646054097767`*^9}, {3.570539174912021*^9, 3.5705391823098116`*^9}, 3.5716596660680656`*^9, {3.5716598595278063`*^9, 3.5716598775458374`*^9}, {3.573145920015252*^9, 3.573145928142866*^9}, { 3.573154784140503*^9, 3.5731547898813133`*^9}, {3.577890272172906*^9, 3.5778902968677497`*^9}, {3.579688952787259*^9, 3.5796889553924637`*^9}, { 3.5838589707248187`*^9, 3.5838589820348387`*^9}, {3.5839652832571354`*^9, 3.5839652859559402`*^9}, {3.596974341556508*^9, 3.5969743474065185`*^9}, { 3.5970621759170465`*^9, 3.5970621790771008`*^9}, {3.597411093936283*^9, 3.5974110985763474`*^9}, {3.597593781033225*^9, 3.597593786384034*^9}, { 3.6053793289336205`*^9, 3.6053793599932747`*^9}, {3.6065658716361685`*^9, 3.606565874077308*^9}, {3.6126107174281034`*^9, 3.612610732995994*^9}, { 3.6133208522126923`*^9, 3.613320869315671*^9}, {3.6190056377425795`*^9, 3.619005639099782*^9}, {3.6190057969784594`*^9, 3.6190058100044823`*^9}, { 3.6204248786871877`*^9, 3.6204249105472326`*^9}, {3.6205015665883455`*^9, 3.620501593027383*^9}, {3.6267975320067225`*^9, 3.6267975453804874`*^9}, { 3.627079302340148*^9, 3.6270793174253745`*^9}, {3.6673403856384945`*^9, 3.6673404061434546`*^9}, {3.6673967634142265`*^9, 3.6673967903874617`*^9}, 3.6675592828870726`*^9, {3.668945260426219*^9, 3.6689452930272875`*^9}, { 3.6690323922136126`*^9, 3.669032406748433*^9}, {3.672294597317524*^9, 3.672294598733309*^9}, {3.673178886134198*^9, 3.6731788911548595`*^9}, { 3.6737999203564*^9, 3.6737999327702494`*^9}, {3.6744797590718565`*^9, 3.6744797896519337`*^9}, {3.6845992485377064`*^9, 3.6845992653040175`*^9}, {3.6846263301171403`*^9, 3.684626350041132*^9}, { 3.6850171128181214`*^9, 3.6850171459311666`*^9}, {3.6851022536519513`*^9, 3.6851023053390837`*^9}, {3.6852289870519123`*^9, 3.685228991739908*^9}, { 3.6867615733947673`*^9, 3.6867616022207766`*^9}, {3.6868179429880724`*^9, 3.6868179892583694`*^9}, {3.6934911190483723`*^9, 3.6934911387116613`*^9}, {3.6934938877013016`*^9, 3.6934938951552095`*^9}, {3.6956036089270563`*^9, 3.6956036167128143`*^9}, {3.6956476202311063`*^9, 3.6956476568384476`*^9}, {3.696976843483818*^9, 3.696976867346637*^9}, { 3.6971230511574874`*^9, 3.6971230683937044`*^9}, {3.6993170677606516`*^9, 3.699317073604884*^9}, {3.6993566655808735`*^9, 3.699356694868391*^9}, { 3.7010410085558243`*^9, 3.7010410290336695`*^9}, {3.701210939189864*^9, 3.701210948247204*^9}, {3.712838912803268*^9, 3.7128389218823547`*^9}, { 3.7291709999101877`*^9, 3.729171015536956*^9}, {3.729348477770893*^9, 3.729348507502909*^9}, {3.7298656551811104`*^9, 3.729865689586557*^9}, { 3.730384922858051*^9, 3.730384974988496*^9}, {3.730385034038291*^9, 3.7303850698544393`*^9}, {3.738759038892825*^9, 3.738759053888105*^9}, { 3.7396349616198425`*^9, 3.7396349654315944`*^9}, {3.740080018875437*^9, 3.740080019629182*^9}, {3.7403146595267706`*^9, 3.7403146605500336`*^9}, { 3.7404287185382476`*^9, 3.7404287294343863`*^9}, {3.7497471692013006`*^9, 3.7497471896906343`*^9}, {3.7497490020770845`*^9, 3.749749036023037*^9}, { 3.7498592931640654`*^9, 3.7498593100863056`*^9}, {3.749859549031496*^9, 3.7498595561627965`*^9}, 3.751731641139533*^9}], Cell["N. T. Gladd", "Subtitle", CellChangeTimes->{{3.691434597547227*^9, 3.691434612619321*^9}}], Cell[TextData[{ StyleBox["Initialization: ", FontWeight->"Bold"], "Be sure the file ", StyleBox["NTGUtilityFunctions.m", FontSlant->"Italic"], " is in the same directory as that from which this notebook was loaded. Then \ execute the cell immediately below by mousing left on the cell bar to the \ right of that cell and then typing \[OpenCurlyDoubleQuote]shift\ \[CloseCurlyDoubleQuote] + \[OpenCurlyDoubleQuote]enter\ \[CloseCurlyDoubleQuote]. Respond \[OpenCurlyDoubleQuote]Yes\ \[CloseCurlyDoubleQuote] in response to the query to evaluate initialization \ cells." }], "Text", CellChangeTimes->{{3.69023148371922*^9, 3.6902314907825966`*^9}, { 3.690231568228395*^9, 3.690231573307065*^9}, {3.690231629378787*^9, 3.6902317034648433`*^9}, {3.6902318285880823`*^9, 3.6902318790622425`*^9}, {3.690561803160874*^9, 3.690561837304328*^9}, 3.6914346883149395`*^9, {3.691434721455573*^9, 3.691434844326234*^9}, { 3.6914349066404066`*^9, 3.6914349142663536`*^9}, {3.691434956254755*^9, 3.6914349884966564`*^9}, {3.7330653691000385`*^9, 3.733065381155084*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "set", " ", "directory", " ", "where", " ", "source", " ", "files", " ", "are", " ", "located"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Get", "[", "\"\\"", "]"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Load", " ", "utilities", " ", "package"}], " ", "*)"}]}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.690231304262511*^9, 3.6902313300154333`*^9}, { 3.6902313821303463`*^9, 3.6902313878808374`*^9}, {3.690231423337756*^9, 3.6902314287291145`*^9}, {3.6902315145507984`*^9, 3.6902315306304874`*^9}, {3.6905614204501295`*^9, 3.6905616087617702`*^9}, {3.690561669084352*^9, 3.6905616745378094`*^9}, { 3.690561776716816*^9, 3.6905617961927767`*^9}, 3.6911973050047274`*^9, { 3.733065402347458*^9, 3.733065404123144*^9}, {3.733066601122711*^9, 3.733066602035139*^9}}], Cell[CellGroupData[{ Cell["Background", "Section", CellChangeTimes->{{3.751721279324704*^9, 3.751721283875556*^9}}], Cell[TextData[{ "This is the third in a series of Mathematica notebooks on classical \ mechanics. This series was motivated by a close reading and problem solving \ project I undertook in 2014. The focus of my attention was the text ", StyleBox["Introduction to Classical Mechanics with Problems and Solutions", FontWeight->"Bold", FontSlant->"Italic"], ", by David Morin. This is a good book from which to learn and has a great \ collection of problems. I purchased it and recommend that those with \ interests in this topic acquire it for their library. I do note that an \ earlier version can be found on the web. This year, when I returned to this \ project, I decided to focus on generating Mathematica notebooks on material \ covered in ", StyleBox["Chapter 9 Angular Momentum, Part II (General ", FontSlant->"Italic"], Cell[BoxData[ FormBox[ OverscriptBox["L", "\[Rule]"], TraditionalForm]], FontSlant->"Italic"], StyleBox["), ", FontSlant->"Italic"], "which deals the 3-D rigid body dynamics. This topic is notorious \ difficult/confusing for students and I felt I just skimmed by as a graduate \ student. I return in retirement after all these years to pay my dues and \ really understand how to solve problems is this area.\n\nAlthough Morin\ \[CloseCurlyQuote]s Chapter 9 guides these notebooks, I made frequent use of \ other sources such as textbooks available in libraries or on the web. I also \ found lots of video lectures available on YouTube. Confused about some \ physics topics? Google it and you\[CloseCurlyQuote]ll be amazed what you \ find. Some relevant texts are\n\n", StyleBox["Classical Mechanics", FontSlant->"Italic"], ", Hebert Goldstein (my original text at University, late 60s). Newer \ versions exist.\n", StyleBox["Mechanics: Volume1 A Course in Theoretical Physics", FontSlant->"Italic"], ", L. D. Landau and E. M. Lifshitz. \n", StyleBox["Classical Mechanics", FontSlant->"Italic"], ", John. R. Taylor\n", StyleBox["Classical Mechanics of Particles and Systems", FontSlant->"Italic"], ", Stephen T. Thornton, Jerry B. Marion\n", StyleBox["Analytical Mechanics", FontSlant->"Italic"], ", G. R. Fowles, G. L. Cassiday \n", StyleBox["Analytical Mechanics", FontSlant->"Italic"], ", Louis N. Hand, Janet D. Finch\n\nI find Mathematica useful for this \ topic. It facilitates calculations, provides a vehicle for creating \ instructive visualizations and allows one to quickly generate numerical \ solutions. Mathematica is a favorite tool of mine but I think it is crucially \ important to also work with pen and paper. Our brains are closely linked to \ our hands and one thinks differently with a pen in hand than when sitting \ before a computer screen. For serious thoughts on this, read ", StyleBox["The Craftsman", FontSlant->"Italic"], ", by Richard Sennett." }], "Text", CellChangeTimes->{{3.7517212869713*^9, 3.751721405924246*^9}, { 3.7517214427856855`*^9, 3.7517219272682652`*^9}, {3.7517219649225845`*^9, 3.751722083622211*^9}, {3.751722126316057*^9, 3.7517223827474065`*^9}, { 3.751722526024325*^9, 3.751722595896468*^9}, {3.7517226837091446`*^9, 3.751722725475541*^9}, {3.751722829740032*^9, 3.7517228326293473`*^9}, { 3.751722895999816*^9, 3.7517229758483105`*^9}, {3.75172302861619*^9, 3.751723038944604*^9}, {3.7517231106189227`*^9, 3.7517231445811167`*^9}, { 3.751723190547211*^9, 3.7517232594450283`*^9}, {3.7517232899564576`*^9, 3.7517234370102606`*^9}, {3.751723528564426*^9, 3.751723613146309*^9}, { 3.751723674889554*^9, 3.751723695104499*^9}, {3.751723823407473*^9, 3.7517238267505035`*^9}, {3.751723905179801*^9, 3.751723947609353*^9}, { 3.7517239800396757`*^9, 3.7517240207388544`*^9}, {3.7517316776239986`*^9, 3.7517316816612234`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Nice cylinder", "Section", CellChangeTimes->{{3.744562600871478*^9, 3.744562605979538*^9}, { 3.744662730511375*^9, 3.744662736512497*^9}}], Cell["\<\ A nice cylinder is one for which the moment of inertia is the same for each \ of the three axes of rotation through its center of mass.\ \>", "Text", CellChangeTimes->{{3.744662777210539*^9, 3.7446628333146925`*^9}, { 3.7499092007710333`*^9, 3.749909210186813*^9}}], Cell["\<\ There are several ways I can use Mathematica to calculate the moment of \ inertia of a cylinder. For convenience, I define the inertial tensor\ \>", "Text", CellChangeTimes->{{3.74466330848921*^9, 3.744663353591786*^9}, { 3.7498606553684034`*^9, 3.7498606825425262`*^9}, {3.749907723964463*^9, 3.749907736681492*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[ScriptCapitalI]", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}], ",", RowBox[{ RowBox[{"-", "x"}], " ", "y"}], ",", RowBox[{ RowBox[{"-", "x"}], " ", "z"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "x"}], " ", "y"}], ",", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["z", "2"]}], ",", RowBox[{ RowBox[{"-", "y"}], " ", "z"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "x"}], " ", "z"}], ",", RowBox[{ RowBox[{"-", "y"}], " ", "z"}], ",", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"\[ScriptCapitalI]", " ", "//", " ", "MatrixForm"}]}], "Input", CellChangeTimes->{{3.7499077623308783`*^9, 3.74990778345739*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}], RowBox[{ RowBox[{"-", "x"}], " ", "y"}], RowBox[{ RowBox[{"-", "x"}], " ", "z"}]}, { RowBox[{ RowBox[{"-", "x"}], " ", "y"}], RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["z", "2"]}], RowBox[{ RowBox[{"-", "y"}], " ", "z"}]}, { RowBox[{ RowBox[{"-", "x"}], " ", "z"}], RowBox[{ RowBox[{"-", "y"}], " ", "z"}], RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7499077839031982`*^9, 3.7517317745967093`*^9}] }, Open ]], Cell["\<\ I can perform a general integration over all space, restricting the range of \ integration with Booleans.\ \>", "Text", CellChangeTimes->{{3.7499078509539547`*^9, 3.7499078742745667`*^9}, { 3.751731793471245*^9, 3.751731796945925*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"w", "[", "1", "]"}], " ", "=", " ", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]", "=", FractionBox["M", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "2"], " ", "h"}]]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"\[Rho]", " ", RowBox[{"Integrate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalI]", " ", RowBox[{"Boole", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], " ", "<", " ", SuperscriptBox["R", "2"]}], "]"}], RowBox[{"Boole", "[", RowBox[{ RowBox[{ RowBox[{"-", "h"}], "/", "2"}], "<", "z", " ", "<", " ", RowBox[{"h", "/", "2"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"R", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}]}], "]"}]}]}], "]"}], " ", "//", " ", "Expand"}]}]], "Input", CellChangeTimes->{{3.6139282717326527`*^9, 3.6139283398579726`*^9}, { 3.6139283767676373`*^9, 3.6139283890292587`*^9}, {3.7498603275633583`*^9, 3.749860425211094*^9}, {3.7498604844159164`*^9, 3.7498604891757417`*^9}, { 3.7498605413846254`*^9, 3.749860597811494*^9}, {3.7499077928632445`*^9, 3.749907796006839*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "2"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.6139283724620295`*^9, 3.6139283841308503`*^9}, 3.6139284166881075`*^9, 3.7498604797592583`*^9, 3.7498605116435814`*^9, 3.7498605536326437`*^9, {3.7498605857002077`*^9, 3.749860611804554*^9}, 3.749907823031578*^9, 3.751731797041669*^9}] }, Open ]], Cell["\<\ I can transform to cylindrical coordinates and perform the appropriate \ definite integrals\ \>", "Text", CellChangeTimes->{{3.749907892578664*^9, 3.749907977961361*^9}, { 3.749909284371255*^9, 3.7499092862736344`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tranformationRules", " ", "=", " ", RowBox[{"Thread", "[", RowBox[{"Rule", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", "y", ",", " ", "z"}], "}"}], ",", RowBox[{"CoordinateTransform", "[", RowBox[{ RowBox[{ "\"\\"", " ", "\[Rule]", " ", "\"\\""}], ",", RowBox[{"{", RowBox[{"\[ScriptR]", ",", " ", "\[Theta]", ",", " ", "\[ScriptZ]"}], "}"}]}], "]"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.749860860189212*^9, 3.749860871225089*^9}, { 3.749861016381524*^9, 3.7498610516963763`*^9}, {3.74986113113737*^9, 3.7498611543105955`*^9}, {3.7498612519162235`*^9, 3.749861260148161*^9}, { 3.7498613050706453`*^9, 3.749861368723713*^9}, {3.7498614306749477`*^9, 3.749861442909194*^9}, {3.749861529613942*^9, 3.749861532641145*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"\[ScriptR]", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"\[ScriptR]", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ",", RowBox[{"z", "\[Rule]", "\[ScriptZ]"}]}], "}"}]], "Output", CellChangeTimes->{3.7498613338914385`*^9, 3.749861369460469*^9, 3.7498614443966293`*^9, 3.7498615402018714`*^9, 3.749907988952982*^9, 3.7517318089727993`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalI]cyl", " ", "=", " ", RowBox[{ RowBox[{"\[ScriptCapitalI]", " ", "/.", " ", "tranformationRules"}], " ", "//", " ", "Simplify"}]}]], "Input", CellChangeTimes->{{3.749861387419486*^9, 3.7498613996149454`*^9}, { 3.7498614750225663`*^9, 3.749861497709465*^9}, {3.7499080519285564`*^9, 3.7499080756212044`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ScriptZ]", "2"], "+", RowBox[{ SuperscriptBox["\[ScriptR]", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ",", RowBox[{ RowBox[{"-", SuperscriptBox["\[ScriptR]", "2"]}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ScriptR]"}], " ", "\[ScriptZ]", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ScriptR]", "2"]}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{ SuperscriptBox["\[ScriptZ]", "2"], "+", RowBox[{ SuperscriptBox["\[ScriptR]", "2"], " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ",", RowBox[{ RowBox[{"-", "\[ScriptR]"}], " ", "\[ScriptZ]", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ScriptR]"}], " ", "\[ScriptZ]", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ScriptR]"}], " ", "\[ScriptZ]", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", SuperscriptBox["\[ScriptR]", "2"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.749861393147997*^9, 3.7498614003345976`*^9}, 3.74986144722126*^9, {3.749861477442161*^9, 3.749861498772313*^9}, 3.749861542656167*^9, 3.7499079910543184`*^9, {3.7499080697080145`*^9, 3.7499080767501893`*^9}, 3.751731810374044*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"w", "[", "2", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]", "=", FractionBox["M", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "2"], " ", "h"}]]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"\[Rho]", " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[ScriptR]", " ", "\[ScriptCapitalI]cyl"}], ",", RowBox[{"{", RowBox[{"\[ScriptR]", ",", " ", "0", ",", " ", "R"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\[Theta]", ",", " ", "0", ",", " ", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\[ScriptZ]", ",", " ", RowBox[{ RowBox[{"-", "h"}], "/", "2"}], ",", " ", RowBox[{"h", "/", "2"}]}], "}"}]}], "]"}]}]}], "]"}], " ", "//", " ", "Expand"}]}]], "Input", CellChangeTimes->{{3.6139282717326527`*^9, 3.6139283398579726`*^9}, { 3.6139283767676373`*^9, 3.6139283890292587`*^9}, {3.7498603275633583`*^9, 3.749860425211094*^9}, {3.7498604844159164`*^9, 3.7498604891757417`*^9}, { 3.7498605413846254`*^9, 3.749860597811494*^9}, {3.749860703492605*^9, 3.7498607724917765`*^9}, {3.749860818335318*^9, 3.7498608531277895`*^9}, { 3.7498613756077843`*^9, 3.7498613794077945`*^9}, {3.7498615522361946`*^9, 3.749861638675252*^9}, {3.749861750525959*^9, 3.749861756360039*^9}, { 3.7499080037473865`*^9, 3.749908044235124*^9}, {3.7499080815004835`*^9, 3.7499080938405304`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "2"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7498616433364024`*^9, 3.749861759589054*^9, {3.74990801304161*^9, 3.7499080269663086`*^9}, 3.7499080957284408`*^9, 3.751731813780945*^9}] }, Open ]], Cell[TextData[{ "I can take advantage of ", StyleBox["Region", FontSlant->"Italic"], " capabilities." }], "Text", CellChangeTimes->{{3.7499084357769117`*^9, 3.7499084549147816`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"w", "[", "3", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", "=", FractionBox["M", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "2"], " ", "h"}]]}], ",", " ", "\[ScriptCapitalR]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]", "=", RowBox[{"ImplicitRegion", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], " ", "+", " ", SuperscriptBox["y", "2"]}], " ", "\[LessEqual]", " ", SuperscriptBox["R", "2"]}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"-", "h"}], "/", "2"}], " ", "<", " ", "z", " ", "<", " ", RowBox[{"h", "/", "2"}]}]}], " ", ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "y", ",", " ", "z"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", " ", RowBox[{"Integrate", "[", RowBox[{"\[ScriptCapitalI]", ",", " ", RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", "y", ",", " ", "z"}], "}"}], " ", "\[Element]", " ", "\[ScriptCapitalR]"}], ",", " ", RowBox[{"Assumptions", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"R", " ", ">", " ", "0"}], ",", " ", RowBox[{"h", " ", ">", " ", "0"}]}], "}"}]}]}], "]"}]}]}]}], "]"}], " ", "//", " ", "Expand"}]}]], "Input", CellChangeTimes->{{3.7499082599749994`*^9, 3.7499083618525963`*^9}, { 3.749908396212702*^9, 3.7499083994201217`*^9}, {3.7517318554604745`*^9, 3.7517318568168426`*^9}, {3.7517323164908037`*^9, 3.751732317153034*^9}, { 3.7517324172723017`*^9, 3.751732419373683*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "2"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.749908343449889*^9, 3.749908387979742*^9, 3.7499084260578976`*^9, { 3.751731855015686*^9, 3.7517318834007635`*^9}, 3.7517323442236447`*^9, 3.7517324398170195`*^9}] }, Open ]], Cell[TextData[{ "Or, even take advantage that ", StyleBox["Cylinder", FontSlant->"Italic"], " is a known entity," }], "Text", CellChangeTimes->{{3.7499086897967196`*^9, 3.749908714763002*^9}, { 3.7499093378433075`*^9, 3.7499093385055275`*^9}}], Cell[CellGroupData[{ Cell[BoxData["TEST"], "Input", CellChangeTimes->{{3.751732731055354*^9, 3.7517327314881506`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"RegionDimension", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"RegionMeasure", ",", RowBox[{"h", " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"RegionCentroid", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Volume", ",", RowBox[{"h", " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"MomentOfInertia", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "12"], " ", SuperscriptBox["h", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{ FractionBox["1", "4"], " ", "h", " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{ FractionBox["1", "12"], " ", SuperscriptBox["h", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{ FractionBox["1", "4"], " ", "h", " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox["1", "2"], " ", "h", " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7517327319778423`*^9, 3.7517327926805706`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapAt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Expand", "@", RowBox[{"Simplify", "[", RowBox[{"#", " ", FractionBox["M", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "2"], " ", "h"}]]}], "]"}]}], ")"}], "&"}], ",", " ", "TEST", ",", " ", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7517327543041816`*^9, 3.7517328184685855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"RegionDimension", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"RegionMeasure", ",", RowBox[{"h", " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"RegionCentroid", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Volume", ",", RowBox[{"h", " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"MomentOfInertia", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "2"]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.75173278500007*^9, 3.751732819380144*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", "=", FractionBox["M", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "2"], " ", "h"}]]}], ",", "object", ",", "measures", ",", " ", "calculations", ",", "results"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"object", " ", "=", " ", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "h"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"h", "/", "2"}]}], "}"}]}], "}"}], ",", " ", "R"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"measures", " ", "=", " ", RowBox[{"{", RowBox[{ "RegionDimension", ",", "RegionMeasure", ",", " ", "RegionCentroid", ",", " ", "Volume", ",", "MomentOfInertia"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"calculations", " ", "=", " ", RowBox[{"Through", "[", RowBox[{"measures", "[", "object", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"results", " ", "=", " ", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"measures", ",", " ", "calculations"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"results", " ", "=", " ", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"results", ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", "y", ",", " ", "z"}], "}"}], " ", "\[Element]", " ", "Reals"}], ",", RowBox[{"R", ">", "0"}], ",", " ", RowBox[{"h", " ", ">", " ", "0"}]}], "}"}]}], "]"}], " ", "//", " ", "Expand"}]}], ";", "\[IndentingNewLine]", RowBox[{"results", " ", "=", " ", RowBox[{"MapAt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Expand", "@", RowBox[{"Simplify", "[", RowBox[{"#", " ", "\[Rho]"}], "]"}]}], ")"}], "&"}], ",", " ", "results", ",", " ", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"results", ",", " ", RowBox[{"Frame", " ", "\[Rule]", " ", "All"}]}], "]"}]}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.749908543127921*^9, 3.7499086779463987`*^9}, { 3.749908781823167*^9, 3.7499088096258717`*^9}, 3.7499088577501926`*^9, 3.7499088902123547`*^9, {3.751732520567152*^9, 3.751732548625125*^9}, { 3.751732586475914*^9, 3.7517326687638626`*^9}, {3.7517327189875746`*^9, 3.7517327240679903`*^9}, {3.7517328406732173`*^9, 3.7517329005311985`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"RegionDimension", "3"}, {"RegionMeasure", RowBox[{"h", " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}]}, {"RegionCentroid", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, {"Volume", RowBox[{"h", " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}]}, {"MomentOfInertia", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "2"], " ", "M"}], "12"], "+", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "4"]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "2"]}], "}"}]}], "}"}]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{{3.749908607069909*^9, 3.749908619885681*^9}, 3.749908681670473*^9, 3.7499088588940973`*^9, 3.7499088912485857`*^9, 3.7517324764052167`*^9, 3.7517325305913105`*^9, 3.75173256221974*^9, 3.751732594357809*^9, {3.7517326534707527`*^9, 3.7517326693473024`*^9}, 3.751732725321642*^9, {3.7517328810941343`*^9, 3.7517329021069803`*^9}}] }, Open ]], Cell[TextData[{ "Equate ", Cell[BoxData[ FormBox[ SubscriptBox["\[ScriptCapitalI]", "xx"], TraditionalForm]], FormatType->"TraditionalForm"], " with ", Cell[BoxData[ FormBox[ SubscriptBox["\[ScriptCapitalI]", "zz"], TraditionalForm]], FormatType->"TraditionalForm"], " to determine the value of h that makes a cylinder \ \[OpenCurlyDoubleQuote]nice.\[CloseCurlyDoubleQuote]" }], "Text", CellChangeTimes->{{3.749908908386762*^9, 3.749908942994261*^9}, { 3.749909365955098*^9, 3.7499093828838778`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"M", " ", SuperscriptBox["R", "2"]}], "2"], " ", "==", " ", RowBox[{"M", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["h", "2"], "12"], "+", " ", FractionBox[ SuperscriptBox["R", "2"], "4"]}], ")"}]}]}], ",", " ", "h"}], "]"}], "\[LeftDoubleBracket]", RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], " "}]], "Input", CellChangeTimes->{{3.744663520111577*^9, 3.744663584246727*^9}}], Cell[BoxData[ RowBox[{"h", "\[Rule]", RowBox[{ SqrtBox["3"], " ", "R"}]}]], "Output", CellChangeTimes->{{3.744663573437293*^9, 3.7446635856160583`*^9}, 3.7499089471012444`*^9, 3.7517329123964386`*^9}] }, Open ]], Cell["\<\ I illustrate the rotations of a nice cylinder about its three principle axes.\ \>", "Text", CellChangeTimes->{{3.7499090881321993`*^9, 3.7499091082733035`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Zeta]Max", " ", "=", " ", RowBox[{"2", " ", "\[Pi]"}]}], ",", " ", RowBox[{"d\[Zeta]", " ", "=", " ", RowBox[{"2", RowBox[{"\[Pi]", "/", "36"}]}]}], ",", " ", "frames"}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"frames", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"ShowNiceCylinder", "[", "\[Zeta]", "]"}], ",", RowBox[{"{", RowBox[{ "\[Zeta]", ",", " ", "0", ",", " ", "\[Zeta]Max", ",", " ", "d\[Zeta]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ListAnimate", "[", "frames", "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`i151$$ = 29, Typeset`show$$ = True, Typeset`bookmarkList$$ = { "\"min\"" :> {$CellContext`i151$$ = 1}, "\"max\"" :> {$CellContext`i151$$ = 37}}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`i151$$], 1, ""}, 1, 37, 1}}, Typeset`size$$ = Automatic, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`i151$219328$$ = 0}, PaneBox[ PanelBox[ DynamicWrapperBox[GridBox[{ { ItemBox[ ItemBox[ TagBox[ StyleBox[GridBox[{ {"\<\"\"\>", AnimatorBox[Dynamic[$CellContext`i151$$], {1, 37, 1}, AnimationRate->Automatic, AnimationRunTime->33.90833568572998, AnimationRunning->False, AnimationTimeIndex->3.871921900156387, AppearanceElements->{ "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}, AutoAction->False, DisplayAllSteps->True]} }, AutoDelete->False, GridBoxAlignment->{ "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "ListAnimateLabel", StripOnInput->False], {"ControlArea", Top}], Alignment->{Automatic, Inherited}, StripOnInput->False], Background->None, StripOnInput->False]}, { ItemBox[ TagBox[ StyleBox[ PaneBox[ TagBox[ PaneSelectorBox[{1-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{1, 0, 0}, {0, 1, 0}, { 0, 0, 1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{1, 0, 0}, {0, 1, 0}, { 0, 0, 1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{1, 0, 0}, {0, 1, 0}, { 0, 0, 1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 2-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Cos[Rational[1, 18] Pi], -Sin[Rational[1, 18] Pi]}, { 0, Sin[Rational[1, 18] Pi], Cos[Rational[1, 18] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.984807753012208, -0.17364817766693033`}, { 0, 0.17364817766693033`, 0.984807753012208}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[1, 18] Pi], 0, Sin[Rational[1, 18] Pi]}, {0, 1, 0}, {-Sin[Rational[1, 18] Pi], 0, Cos[ Rational[1, 18] Pi]}}, {0, 0, 0}}, {{{0.984807753012208, 0, 0.17364817766693033`}, {0, 1, 0}, {-0.17364817766693033`, 0, 0.984807753012208}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[1, 18] Pi], -Sin[Rational[1, 18] Pi], 0}, { Sin[Rational[1, 18] Pi], Cos[Rational[1, 18] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{0.984807753012208, -0.17364817766693033`, 0}, { 0.17364817766693033`, 0.984807753012208, 0}, {0, 0, 1}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 3-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Cos[Rational[1, 9] Pi], -Sin[Rational[1, 9] Pi]}, { 0, Sin[Rational[1, 9] Pi], Cos[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.9396926207859084, -0.3420201433256687}, { 0, 0.3420201433256687, 0.9396926207859084}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[1, 9] Pi], 0, Sin[Rational[1, 9] Pi]}, {0, 1, 0}, {-Sin[Rational[1, 9] Pi], 0, Cos[ Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{0.9396926207859084, 0, 0.3420201433256687}, {0, 1, 0}, {-0.3420201433256687, 0, 0.9396926207859084}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[1, 9] Pi], -Sin[Rational[1, 9] Pi], 0}, { Sin[Rational[1, 9] Pi], Cos[Rational[1, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{0.9396926207859084, -0.3420201433256687, 0}, { 0.3420201433256687, 0.9396926207859084, 0}, {0, 0, 1}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 4-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, { 0, Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}}, {0, 0, 0}}, {{{1, 0, 0}, {0, 0.8660254037844386, -0.5}, { 0, 0.5, 0.8660254037844386}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[1, 2] 3^Rational[1, 2], 0, Rational[1, 2]}, {0, 1, 0}, { Rational[-1, 2], 0, Rational[1, 2] 3^Rational[1, 2]}}, {0, 0, 0}}, {{{0.8660254037844386, 0, 0.5}, {0, 1, 0}, {-0.5, 0, 0.8660254037844386}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2], 0}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{0.8660254037844386, -0.5, 0}, { 0.5, 0.8660254037844386, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 5-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Cos[Rational[2, 9] Pi], -Sin[Rational[2, 9] Pi]}, { 0, Sin[Rational[2, 9] Pi], Cos[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.766044443118978, -0.6427876096865393}, { 0, 0.6427876096865393, 0.766044443118978}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[2, 9] Pi], 0, Sin[Rational[2, 9] Pi]}, {0, 1, 0}, {-Sin[Rational[2, 9] Pi], 0, Cos[ Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{0.766044443118978, 0, 0.6427876096865393}, {0, 1, 0}, {-0.6427876096865393, 0, 0.766044443118978}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[2, 9] Pi], -Sin[Rational[2, 9] Pi], 0}, { Sin[Rational[2, 9] Pi], Cos[Rational[2, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{0.766044443118978, -0.6427876096865393, 0}, { 0.6427876096865393, 0.766044443118978, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 6-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Sin[Rational[2, 9] Pi], -Cos[Rational[2, 9] Pi]}, { 0, Cos[Rational[2, 9] Pi], Sin[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.6427876096865393, -0.766044443118978}, { 0, 0.766044443118978, 0.6427876096865393}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[2, 9] Pi], 0, Cos[Rational[2, 9] Pi]}, {0, 1, 0}, {-Cos[Rational[2, 9] Pi], 0, Sin[ Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{0.6427876096865393, 0, 0.766044443118978}, {0, 1, 0}, {-0.766044443118978, 0, 0.6427876096865393}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[2, 9] Pi], -Cos[Rational[2, 9] Pi], 0}, { Cos[Rational[2, 9] Pi], Sin[Rational[2, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{0.6427876096865393, -0.766044443118978, 0}, { 0.766044443118978, 0.6427876096865393, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 7-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, { 0, Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}}, {0, 0, 0}}, {{{1, 0, 0}, {0, 0.5, -0.8660254037844386}, { 0, 0.8660254037844386, 0.5}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[1, 2], 0, Rational[1, 2] 3^Rational[1, 2]}, {0, 1, 0}, { Rational[-1, 2] 3^Rational[1, 2], 0, Rational[1, 2]}}, {0, 0, 0}}, {{{0.5, 0, 0.8660254037844386}, {0, 1, 0}, {-0.8660254037844386, 0, 0.5}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], 0}, { Rational[1, 2] 3^Rational[1, 2], Rational[1, 2], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{0.5, -0.8660254037844386, 0}, { 0.8660254037844386, 0.5, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 8-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Sin[Rational[1, 9] Pi], -Cos[Rational[1, 9] Pi]}, { 0, Cos[Rational[1, 9] Pi], Sin[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.3420201433256687, -0.9396926207859084}, { 0, 0.9396926207859084, 0.3420201433256687}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[1, 9] Pi], 0, Cos[Rational[1, 9] Pi]}, {0, 1, 0}, {-Cos[Rational[1, 9] Pi], 0, Sin[ Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{0.3420201433256687, 0, 0.9396926207859084}, {0, 1, 0}, {-0.9396926207859084, 0, 0.3420201433256687}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[1, 9] Pi], -Cos[Rational[1, 9] Pi], 0}, { Cos[Rational[1, 9] Pi], Sin[Rational[1, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{0.3420201433256687, -0.9396926207859084, 0}, { 0.9396926207859084, 0.3420201433256687, 0}, {0, 0, 1}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 9-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Sin[Rational[1, 18] Pi], -Cos[Rational[1, 18] Pi]}, { 0, Cos[Rational[1, 18] Pi], Sin[Rational[1, 18] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.17364817766693033`, -0.984807753012208}, { 0, 0.984807753012208, 0.17364817766693033`}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[1, 18] Pi], 0, Cos[Rational[1, 18] Pi]}, {0, 1, 0}, {-Cos[Rational[1, 18] Pi], 0, Sin[ Rational[1, 18] Pi]}}, {0, 0, 0}}, {{{0.17364817766693033`, 0, 0.984807753012208}, {0, 1, 0}, {-0.984807753012208, 0, 0.17364817766693033`}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[1, 18] Pi], -Cos[Rational[1, 18] Pi], 0}, { Cos[Rational[1, 18] Pi], Sin[Rational[1, 18] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{0.17364817766693033`, -0.984807753012208, 0}, { 0.984807753012208, 0.17364817766693033`, 0}, {0, 0, 1}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 10-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{1, 0, 0}, {0, 0, -1}, {0, 1, 0}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXWmUFdW1PtZ07+3bIyCgQSEMAhoFJyQap6jBAYWI2pg8H4hJqzGCYFaj UVkOkeQZk5enPhwSMUbiFNOoATXI1ChgaBVRkIiQVlFBjcsV14r+eVm+/e2z T9Wpuqdud0PMyg97UXXvreHsb39nD2eq4vTzf3DRdy89/wcXX3D+oHGzzr/s oosvuHzQN2bMokP+HkrtUU/bkEEK3z9Tyuw+o3+fNWCHI198/+L7F9/xfSN/ +Oqjjz5SK1as4M8j9KkN/FFQf9+xQ72zebOaOnWqOnrsWPWV/v3V2NGj1cKF C9UYfWkHfwTq/z79VP2ts5O3D9av99Tm+fNVUb0wd66aM2GCGkl3PtbSol5q bVW3y28q5XBdyBqRZxeyra2Ny9g4b55aN2eO8lTHnDmeep6+Bup+KmrvxkZ1 e3Ozeh2Ht9JhX91HP6VkdZguup0/IlYFxX6cLtpHqT5K9dULXMaLtL+OEE4a NYpkbsOJv/CJBVL4+vXr1aG68KVCoSmcFFda84A1p7LN5sUyQojw1Hou9LBB g9QDU6awiFAEXUiSJ02cyBVyiBb0RDWWu5IViayHiLQjSB7qwIOsQHXyiY10 4BjS7J577jECH+tujSTcBZBVgKxQvcS1dD3ReBYpAymdwPEGi7uLDsOKoN/B Wtwj3agll1Y1LMlXG2gPKh8kKosiZpOllYh5YJfri6WVIK3AwvxYHIQVHZqN 1iJ/LCI7SdxnOhepfo7aJG01Ej+FxE/DCGOlywLjWdLycILyBFVuyaG5wJgr MGC8E8m28Kt3j7wuiOs4Yb5RQNxNPIwlEBBfIyBuIy5OOO44ljEqDQLR5jg5 VZ+peVTJqwSgq5rnumiC/FC9zALnO0CAia+PGMFqVwFRyrWLbtYGA6lxACkL kO+SG6A6IOegfCD+rlhG4CClDlh89UouoKVkLydQSIeppgAVGNDX6JTDEVU3 6qMWoksiegLpfTNZAoTWiuhTCApkQNqBWvT1DiuAyIWzZ6vzBg1ySQ3TVsgK FyE1UhtZzOGWg9ZaRjmNkpkl+prcuo9SfCPx/J6Kmw44OazXxiBqq4BYTtR/ Q6gXELOr1/uLFg4vm6zaqPgZJMZLA8qwUgagSG2qQFXnqJWvaFSzeh6VEWJo v5AKn8mYqvFTAJxAvcq3jXFgsqtLMF3aY1cN7ByIdPGogIscuJimYowrVJtz wdnVKOAurJam0/hcPhRJNoOZXYRETb8a83gLgS8CvkD9uQJkvaNWD9Agp0mt 5oT9XF/javQl4i8gOadR2Rs4pFRSmEAsxBBD9VouTrumBed5PbK+jDsWHTjD rqkMY5yh2sIFHOEA+wcUKhFbwE7eDbNkwHVOYk0kLVfFGgFriIZwDmA7DQrg M6ubqjviZIyBbdOXrPdbAY5fUZ4/ZYyhEAMPpQVvo29w5M79NfrTMzbcI9tg 2EUL9niB3SOqC0AcoIOQA/t39Ns0gAT2yVWsBNm1mpUUY+hswp4k2PtJyukk Xf/qKf4I+APpd4x1KGEHOVHihG6aenWzKccmYimxkSshlRlcFhOk8Ud2X8ZW otERBEdqJY7elYSbsaOGdDwJJeWjO3eGKOPnVUaQNv8orUwRyniC3qWR7RKi 0dieu4SrStgHagT8g6LKJo6epkpyTcqlBXf6PPVmrirIxieLm4gqurdW5HCF enuBtpdp66Bu/XpyE1HJq5qpMlbGbhFK++chkjmBsLzK3dRUHnV5SehQKYJK nnorVy/bc0SvA6WBbUZckPDGkerHUWg+hopAHPLVN2kfqJlUww9TkaspdOfE gbIj5ZrWFDScSAVtZg0rrS7jQqFDuYCVK6inSBEgwXY2oaovFtU3hg9XLxOy JoeHjdDKfkXsEZV4JvU4R1OH9CrK8v9LxTze2hqopZwo5lPpGG6ZIPqjs0B9 Wr9qPRYqGmgAB+J0S6hL0yy4VA2yqnrqq1wj0Nj8+bI31Z2XqIQFHTNDrnKc GiIsEAPUSV3KUkHBBCL0bNraWlqiOLa4tK5s9j1CSM4knK9xrPp8tI54H7D2 Jdpw7omWliZHqhPFR0qAheKo/hNJubtbWupY55D1R7Uf2tiophNta+h3fdWa zsROkrpFemSTGG41jw13V+da2fYtFj0m21d3EPqbxo1j3+9lNQyPkvEf4WGE xcNE4YGUb8zU/Tm0EQeFblKQWDeVgQ7gWYQC7b9/JgEFMfVSorzS2gfqEqqz J+nWp2h7pqXFV+/EtmhGGrifZA8xHkK2jyAhzAzPMHMUUfBoa2svy0IsZpIG cTHOUAUJ58tmzGCozYceSgB1AJxM3/G3nM75edGdzmyV3uo5rH5OPAx3iblS zFx/Ooe2Mbi7iJhblDBHZvYOEti7cc/P8FfAviz8nWEF2OE2fz6HFeFO9RGz MuQ107a2tTXMsyiPw2ekfjZpEkNeeOGFvOGPjvmxu2ViCondJj1pTdw/jzO/ u5yVmLMgxdkbaJB1ChYq6hfkpFOlWym07WeNhA4gi7yTyusrtP2BaJsotD0H b0xZWuKDzAtdf/x++6nZJ52kziVj+/p++3mO9BpKDwF4HiOkk1nxymDs7x5T x1pMtTmZitSOlIl1csV3gjDN1UKrISZcDbOmiOCirUQn+2eklsWEfZPImqwJ SwaZMmlKh+xAPTRtWqzGw9Om+Q6uIoEDfI8TpHM53vzLuKoBV2XhCmf3JxvZ QGr2ElzLrHZdhiaT4OGJtaCpDJo8tZxvXCRc/Q+RGFbNbaEE9iWXXBIr0j5j hhe7X5hO6ZJ5zhUn8HeFqKLsS0ISrjitkqSEoybh6DVS6wBSGt2e3sLR0Va0 0v6mhlqmhMHl65qbSdpSFLYMYWM5A11B+3sJ7BhqFtzd3BzGphSmGUrCkae+ Rc4XwP3UJUcfzcGpMoqHQgyCyLcInO6OWAwhP+0GQ2gALbYYYo/rDYYitZNl HWlN9DVg70tgOCOfK9jTOCp9KbfsjD0VwFWRqfLVz4lGlNBB+P28nkyQjLAU 1F2TJ7MiiyjMLzjvPP5+4/jxjCZ0NBiIHGj2bRICqogoj1kK1M/IkEECNvKS GuHHt/i54thju+Cn1sFPCfuS8GOHcOFnSMaWEMKLsRkxNaFayXe30/4/CQDm VP08G2KfMvWx7vLLWZETyKA8secjBg7kY+icFNL0+NJLsg3oemoW9hMGED5c zBxrWU6bZiaMfYuZqQMzoXqvgh5GVdYGvjWO6SZ0ZziCaY2im5fxjSmOInAU gCJPrdJxgpTAOMyvyapyaAozIy6BuosuRkL5KZHzMtoaJvm7fItsxvgWmDF/ JQnWffLZUS56ykJPM117E8nfxkltG67bCrVej4cYTnPTA8uaTTcuZ+tfDu9K MROCmUA9w+XcQpoicawnhcLYsVwROeB4E3AfGX1lbK+gV7srtAQxLdimITqB F1+tJFbQ7tZtb8NOr5idJmYnUO9LGxejlIabonCDxQBfk6Fh4WZwpoX0S3Yv 41QhaAlASwRaAvUsl7Oa9gSNOwZ+uu8Zpps7oUQV6D9OuFkzfXpOVClnLAPb 8QRqHG1gYaWxjFLaMlj3Aqvux8pvNU3+RtH+ZCv4Dktrj+B7Mimzgh0nZRSJ 9iG0D6C8p9boITPCcwxlryX06ceW4aLAFTmgvDGAAVRKWQyg3tL+HGMAUcoA kKCn0OkcKuoyVED/3sLCBda4RYYFTEz/AjQzCymvCNMERCDAV2u5bjEScilt 8MfKRGyNnfUoOmRYYBLQ41xibMB0o/5IB6fSRbqDkPKJRpBRFjLwN47i/J3U /Ynk2KMWQfU6ceqZoPutQQ5h6csZT7mbgHgO/whBUAiCQhAUqOcY2O/o8uOo ltGkNPbxTyEISeYwcZAUQSUhaAkdPJ8uRBOuMU7DvcBNk/AwixpT+FtB7QQf xzz1gXYfwoN09DgVWgBBNSDIk0GZNivWZliCox1MN67iIJ3iJoq5CcFNqP7E qiNrz0gWEO0GN7VVjQf+83sK7qdQZeDThNJQ2rg2XaW0X/VjugLmxlB23Ukn RULWUXQXpvRe5zu3oAa65AmueAohfIZzUsq/EooKoCjgNTqU/0mHrxP2FdyL +VydK1BtRBCc6z6KVa+jNfguzEcT9TTdME2I8tM+1x9EFUAL+51N0H10l/ax LRj51AS9SNCPksSUIQhB6VaMjZvM4+ImAjchz+CE6mJSCCPqYEVasaqLhNMl H9qXtInAJ75PeQwbvtdZfFxABaCNWxPbTF9QUccEEF6rk4c//A4tcn5C8F5j N33NDDz4apyVt3RvQQ3KNIrRjQpiXqKYlxC8FOzFlCsI8J0E9Gpqto7AAOdu GAmTUmTtA2biUmLkUs1KZPeHllrM+GlvMoEGjvWBbPXC1gLpvUyV4T38Nmzd SkyNkYHwGuyLwhbGuMYLY8PSbOHQIXRKp62UAeUThe1aeNOhTNR+u0xUg0XU dCIJ29qWlrLF0XeoALTi6mJ69hYqTLRZKeN1+G2oQBIzVPjYl0BFQSZLbra6 VEPdfDzHF+4WFbrXE/HggKHiv0my0JCwwMk5YJ0DtY0Kvp+uOp3C2WPNzXw4 klb+Mrrzu8JHMXakgawztTRnz44TOo7gk/6ylPyZyaN9vbCxwMrrGTZAElYv 62y0e0QU1HA6hlWj2EaSfWD2AGRspiKCmI2mOGxSMY+je09M4LMkrXmw0CIs GJsYxkoWYlv4OXXocQSfxkYCIWKb5O+FZIq9hYNHrGyU4QDB9nY6rTPNOsSg DsbRTuW0URn2gtmeEBKkCLkel/6K7qFmJZWApU/YMDfUSltCDbdUimIR4GWC 8MNdZV9aL8uFJPxqShiifhkVvhINWtp+B5mX0FVF1UGK3CWD4CALFxsy6bgd kO9Flc3BZMRm2MKr3SHwDjqtWetgWwVvGAc8hRg4DoPQu0iWnyLLwz6QhUR/ IBHoD7zOqS7FXoNY0nN0ydVELrZOxOeEuwuFu7LNHUgy3F07alTE3NWARtVO h0CtictwRtxknJKOuzjkqemiHrfScznrrLTvIBJEPT9HFmVQlcOIv0fwR5M/ 9ZL4W9tDxor2Mqb/oIvR3ENgro0Z4xZMJE09okrNpEg9i7ZODHhU0hbk0UZc adqCmDYc7sBcqqbnr7SfTBrNpdMRmKnRw8QbY/JM4tdjGGogf5SYsTHE3EqC Bx3RX0Fv/EiiZrTQUtwVagr2eiNMe15Bpe5gO07xU2fxMyvhJ5DDK6boVY1Q k458WdKY7ZBiWHQUFIX8HRQZmt7gWeKEJ9M68LH3cMi0HTDVglWumzhVbJKJ LzoxPo/AkA+DmB+RiifTJ0jz1cEcuwcrM/WvbWx/IRCPOGj2ghR7LyGab4DN vAwCXwGyjXGkaKa7EYbLccOnD5MUMnfXkNbY1pHdvM81oXWyCRxQzSXTtkWk NcnVNmeGMU1efMpOl4ZAD/smwX9aHoF+TCDWm3s8XFnkhZ2YmDAbFqVgiBHT hvc0N3sOpooiCWPaZ1NxSzkrGCvrG/cj6JJFFPcnUfxfTJ82TRcLTXtWd0Fj X+KCLtMKXET9lYODiKOiMVTzCH3W6fkv7Sn/ZbWyHETBetazE1nLapdNn87f 9K9KVsyM9+UEHK2k97hpbFipl5bQYosVTmSakYYqHucJI2fTbfiG7VoMNLXr kUZxPhTQkHa2lNvZzPWy4v09dP9GFr4xXi2n4+2vrdZXDkvwJ5eJFOPZIRnX SrUN9wQjfUVlMHGWMAJdvkdXlnoUnrsXduyze1n6wyNe4bp5RZYMKr1G67Tq qqftgO9O1kdy3gwkj75AtYOeN3K6sYd9LA1RyVPImUhzz90UynEK40K2avR9 sNXpwkMeUKlRJwoN+sGutdM05ChWI01TtNcx9oL02gitfEf3cJ+MaT9B9QxT PpVyX7VkUtddj8fniExo1EuGX5ZHwjxZvP9Adb1xY7xW16VyQTqtrZIF3mcp Od3ifd02bFSeiuYlZatziApQgsv65AW0UVZAQ0dpNTccjXolUQ9LcY6U9lmO epajb5IWcjnWLJI+6eNWa8mrXq3dtVRPjACHzifNr6PT2Dp4oLKn7nu4yIb7 4vk2CcuNwgNC92GSCnN42MQOn6pcHpEoy2IIDHnhMSzQQBoO7FFKL0qsx6Hv S7Z7kqq4mar6ScycV9Ptq/rs+7ENQEk0Ysr6CUf9rAwe5zmxaxUz2snIix7P w7AnRjCQk/v3KN7qZFVK6Wd0nKx1jK33qKw678tmmua3UNlnkCXoqjMqFuSB JTxKdapLz4APwReQY1JmXI61LMgkCpLPwyTnAw6E3W/bmnNv0rW9bd/EyUtF cxOyjfaPkCC64TAcNgP2yICmUeHH+hXlSTGjIPQaXFmZUHIzY66sx5L9gMa9 JPl7gqqmRxbbu6pJmmO21r6U/zyVfwV1JrCR1gfgcOSo7kbTE6PrYZ3tvCji RXR4u00Cgm8hrT9PldaK/oul9WDj655FNzq1zqGjZNExXcQFsoelgIorNR1D 8ujoq7NGsoDgLioMRJSxj7gH7asbrWZqFU4y5lAbz+4SoN+gCAq4Uv+eWHim Lcm6eHyRzzoYXV29k79iWLCSgtCi4MqEgi/lUcCNwBprkcC1BPUF4/UFUFCQ J24wRGMew83hQYftlFnUgQdeqqLXihTVOmrCY3QATQ+Q4oprVrVXqG2ajaum 6Mc6dZhP1L4Bc2J0nEJB77y4txf2TaI24gKGleJhk4bua7yFOU9VekkvIUgW 6aFL2s6Ns5x200CHRkU5hoD2bbKTp+izXFUdM+SHAzL0qXj5hydjpW2iZwdb awdqVo9ZootxsltPTJbgxRbxXGZSn6V4zpquu1h0TGywm3481KG78e2nLN39 qrr3hZ4l0XMLGQHW2/yWVxh04MQ6M2Xqq99Yzc/BleNnZi4yU5W1yQNHAbc6 H5FMVi1kH5BXr56M+KByL6MTv8cD4K2t/WJVelmLvlJjyzJzp2cf7q2uCp7c 28r1sRVamCqrgyrmhQx/tLLJoeJEgHtZ0qKoEbDI1VeR32Kj7w1Vba6/KIBR MCxQG8+rXv6ELni3sW9julKwa5L1MXrS2WAfjb0Z2263FKh1oy9URd8P6EvW emCMNz/NT6Q8B/rXxm7jVCHgGepJyfKOxIRq9ArsRAETuEdiHzrs29g8amWm 9AfqHEp1trb2iZnn6VWz2OPPsgB1HqcXo0BR1uPkaqGDHBzpLyysUoWCPN31 tKXH4Dw9Sg49ithHMtiOkT04wuV0cllzc21cEaxMEcoEspILE4ZX06XQoF70 wFz3PaLLELcenRz4jAplqFBvqWBcdO+8UNNHaG+3VMgxo8DMyJGHX0UhbBWH sFT1FPVC6uS5EEwrruFktgasrEYN6rVj8/PrCN3MfalyF3OwS+nWCN1CtZ2L WGopmJsW++t+5nuxF82UAaMGO4+0ky4/JJ3w2SutTi3UKai3dWwhSMg3f+Tp u9VAlauOvXLBPDkWpjWpFU0Q3mFtaPTWVtWkxqEJV1aNpclNyFz0WeOomAbR BIIxO3sr9wCfTRY83l1dEwxgvclG9yYKM0oUpVhosUqSJrddB+SZU8HSZJZo 0lsmhBEEHhs3jn9VVkY9ZJWEOjydiIUzz3JceRYnnkGFr+pKGcQzvKgoXhae KFOGAOOYM0SjODHvCaiBoVvQ41cj9rUOrPUo1Be3xAKUYWTdT3JH5RlI6xKr 8fa3OJq/hXu2Q8DbibfZMHvFMMsOmEWHVTDMBl2RbyXP7r5CGDHrcQvdXgDM Ai+u9nncIAcrmlfHUPPqKV6LksLay4G1rIf2K+2DLd0YhI2/GslFLVCjP0tM o53TSy5we9kjKmc7G6fB3BsCIkk7l1nA/TzDrtFjsTthJDrdrhT08fxZhvgE uuQg3ZBB0BgNV+4efnTo4A3buYlg6K63oIPF99hQTR4qZxC+ywirgTPPvWKV M3oLWP5Y1uvJ9er7X+YjhBkj5rzNkdAgbLCfVJppwSzFRNbpVURakxWC9R3m +h2crYTZX2DCBq5Eb4zDQzvipIZ5R2UHYXAm/2DdTmOM0Cx3wwwdxHey/xqE iUVGYuQ2TC9msy4Ncx/A9KXDgVHkoSR3ET9KpGH+orK/NsSyV+TYd9inDcze mRqFxzSlEZb1yj4dsJfLdW9zKYbIQhqheSJxg8QDoDII51SOJQyxmoxo18hy ZTbFPoBRcISlmhhkIXbsGgfIjJ8zvj6CD48jYP32Sg4sGp+9bC7DICoa6w7Q mizG4Ood4DwHg2x2pi2yTC7ezg5UiXCAIFwsLzH8FbtNLsKhVh2jsf4uJ8cd YmwWuB0crAxpCa46wYUntXDdGl4lmoI0TCDBRa4g4lZyJWhIx+dDQqU2y2IA ZqSfvVxrlRVIXJCKkgXh50ulKVHEfgAgHeTwhJJAQr48Ij0JMTRTj6/xMxqG pXqBNFe6tul4kaApyrMJNiTavgRAYzKGD55KjkAngIZZ1YahiZ2mTbOnYLlc JrXioFDnCAqBxC4Aeloajn2wP9Yyc0NP0RHPMmhMje1kr9gJrjUahLCLqRwg cvl+rQMIHxvnoMUAOZckZabA7UdK0TRYxk0DAjJEOhawmouoHLSDDR8JjD4O GMzRRAcfBYcFCwzzFDDQgQ/IHmg/MvJMvhN/STBAIHCgn3u2xQIeaEHkiUT8 AlLxRHlidGhaPKwVT99A2X4Q32AG80mNWdLKi9KSSyLKiMavM7E3Lyo1ceVH vChOY7jWer+WYBhuUXCLrCVoiOeO6cQPSMBDmGjg/GvENznEn2o/R3wniUVf bxEnxYSC/eXdqcPS4m0KuO23j4hHwx8+spofqngTC1/fwK5S/PHY94F4fmEr FXOHYAAFQAAsp1K1gAJ5ymmE5Z9QH0KHWJUPAbG3DXZIHRtLDeJn8fSMV6Tm kdy9qArQZDuMlAPHVP0Z0XBGvFIXS/SGWBWPId7Yv/Z3iB6VK1rPKm6bO1e9 PX++2j5/vqfeoi8F9Tei+ZPOTvV32V5Yu5Z9AvSPSMMyT3uDlSGWLaT87RAH rOHY8zPAoX6vVFewwgpYn+7YYV6uO9IykIGITGQHXxY46BxD8qtIBA4k++Yi 8VNIPGChYwBjoHgMxGcoQIDtSA1pf8tlJsvc/KBMxUG8C9KeeZA8RhSpN+fN YzTYgGdHWxvwuOCckIZjYikYGpjxHjw5OdYBpy6GE/QIji9w8JopA+c0DecA y6xPIWeDWe9rsTNTxqhccII0nDB+fHMX4JyVhmOb876WOT9IvyF6jB771sHr MsH0F25dOhyMX++Qh0a54Oj3GMr7kJLKupdCxACHOY/So1waDlb0LJ5ivR56 9+G0aDgHChy8Ktt4196W7VxDFQiG2KfNuw8QXPFs3P081Jp2rJ4jmaGRHOQw m70ss/khHXuVTckgSRxI6de4ABNmNgwC7dZBCoHlSjaIK2wQyctoBEg/hzf1 deDQFJSrUoB5pqceeIAx/IMQ3KAlj3JL3jNTFwgtDbHkjM8q/Sqgtyole7be /7D09q30Z9pGP9KIRrsR9RFEPyYkpk6iXERJxN9ePeIDVH0+mIPdYGqToXU9 kQZ+8JrLxt0CgyDbLx/MIRkwh5PjPNzczGM+tdY4fxuZ7QWU/qnpUqyOpxvp cFA+Hp0pk7eLIa5gNfwWHjXQeLA4AQaEKluNx24MFK/nUEbmQzncgoL0iCbd PKKhg1tv78FZds6R/imPm6AbNoU4gjnhcbyt3A3a9RQ9Oh/bEYINLYnvELbx RBPWH88nCHpdeomX7sDDL6AqvZaKWDJ7duxH1cR+NV+sOWVe9wfRgTqTLvTV N2m/iGrsDSr6xPwiftz1KdghFLNO3YgPfn3ZDdYBuvbmm2+OnyvxHedfeukl PvcAhSn9NvD4LeX2qRvTCOxTguAncmottTLNqRuqgbMP/Dv85xhffP/i+7/b 95v4o6DWrVunWiiCbt++nY988skn/HvBggXyNnv1U/6IUpdiw/cNGzbIVTfz RxhfhQLw+fHHH5uCfsYffuqSOfrUVfxR5qsfffTR+PTmzZv5DI6bEs3xAp8J 1IcffsjHb7vtNlx3jV2iz0dxtoVzRwtP/QKAKc2XPaR+JnE4kP2SJUv4OpRB m5T8Q+Fj27Ztccn4jqNUshYS8c04BHgGBMEO5G6DmhiM2SQMV9syfNbTyOBW lindEIPNXERSAqlWCDfs44iRAM2vSouw1TANOXP7qlWriDRNhrEMMYEb7VIC FmTO7ty505OCoJ2pMwu/n8J/Q7rGTM0AqynH4LdBGjsB2BvTRViMpPDjODb6 7jlUlVKuzphOYmzpY6nLA6gdCyUBka2ucS9L3c/Dq9Ue/w+KFkDr\ \>"]], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{0, 0, 1}, {0, 1, 0}, {-1, 0, 0}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXXmYFNW1v6mq7plhj0vUPJfJomLUiKKCC0oCOIoiiAtIQBYVwQVQEDXC 4IIkGhJenkiiMW4h4Iq4RHFJUETZRECBAWVRXEDBJS6QfO99X975nXtu9a3q W9XV04PJH/Jxu3uqq+4953fWu3aPwWOGXXjZ4DHDzx9cW3fF4FHDhp8/uvak kVfQJf9bSn2rFZUDaxU+/0sp8/Iv+v+v1njBlW8+f/O58HkgvwVq2bJlau7c uVzuvvvuFqpz5850edCgQeFluuUP+qF+/OarTz/91DygPH4ip45r21YdU1vL 5ezDDlMPDhxI9TwwcGCg7h840Fcz+e9f9eypOtAdKMe0basf9rkiUILqp+m2 +vBbTdgWKGrXrp06eM89w/r7H3igeoLeffVufb2vNuHlHby8jZeN9fWe2lBf T5Wsp9dlY8eqP9PNKL2pAmqeWzdtT9XtnsVv1dwuvsItJ3TsyHz9hqhHu6vG jvXQJDF0D106vrqa39fI5URKPBDiqXX0ZJV6jei5mZ46mirel5gykKPh32pa evNbnskDLYaOKfTYM0OHeuq9+vqACcmhcdWbqjmcLH844TJv6FCVmZpq9Ra9 vknlMXrsl0JVJ2oOzRJFUzRBvfgtxwSBXtB9DmFJxBCZITVV6qE+fRgWUIP3 MXQTKMS3MYI8EOQnErRWylSqsS0116tXLzT/G03Q6SkE1dgEgQAQYwqgApH4 1gsJCqIEEU/QnHVWEbI8pimnFhNPkwiufUSAEN5kTdppMdJgICI41QKk+YIG JGWw8vjVj2CWTF6rJPKYujVUGqjMovp7UV2WOG/RJHYXEo2uAz2QuJpabW2T aKNnk3hbXR2ISyEx5yRRw1cVkriayv9YAgZBN2saTxFH9eijj7L915FuE4S7 gDxthNURBFGOo3I+/b2ErkcsIE6dH6HOA20u0hYQHj+ldg1pv9Sk1Vnw2RIG fLvZ9ME5GNqOpHI2lclU31vaIlz0xS20eZFBpBH4C01gt5h84T9gHSBwDxCo mjGF0LLzyOBvOfFExjGVxmQvkkzjKqGxJzU+oG9ftolJmsauIl/QCPJFvt+1 yFs6YgS/G6fSSPKCOHke05Zj6lZS+S3VD0OGqt2kqetihUlDHaG3d8E4qtLI ivu6DHStidL1hkUXiJio6fqpZRWW1e7bSLosk2idyaesFshA3o3UtlG8GzV5 P5FEwZB3J5Hyvcppy+5MQNsrYhQwTaHrREvZcLlPhw5qDgIptRuhz1hsefRl dCeGuA7kL4DQDZq4ExyWQJlGEBJn3AnMFSE+zZ14pZ2xkWucxLg5QO2u1yR2 cpOYj5GYd5I49bDD+GtXsCjbVidaSnedJu54N3HVJYlDqHi+T59KiQtCNyda J3Qd56arWSpdP6FycZl0NUs11YcpGEKcC+bOnaAJO9ZNWEu0V1s+YckeLp0w BIXTyBC3NjTUa8KOcRC2cuzY1mhvP9tMEwhLd71luJFHCLO92rRR90+YoP53 xw41XtPX0U0ft9iqEiLL8yVQNyR2p1BZOWMGUzjOplB3rE6itt8gGnJNSV6a K8mHFAK/7xJ+d9H7mlmzhLgOsejwNH0rqu2k0E7vmoRCY68A71pyJAsmTVLb Ghqu1eQdbfVykTHdQU3lUsiz+zpZyEu3jrUC3aPE9BGUkz1D4nmF6CPr+Lmm 7yiLPmjfZOLAQ+3lEinpsXIFjGwmjF7ibdQhfpk+v0xEfrF58zVRIhFloYCv Ext+uUTeHI+6ZROJvtmpJOUFIBAmo83kak3kkZYiHkvBGETmUXuQkciurtTA RWQJn3MfYXgAWcLzEDZdmQ/XKBZ9laa1vZWJwmhuJzKo9qqQXDbvlonkujKZ RN+tWjrJBbFL6NmDqP3fEckL6W+Q+xLQnjUrSqqWPQZ8NjIy9JpvGmKpskWk urdTzHjbVO0i21aGM0gJJhAti+mzIVvMXo3VZB9h5dTQhuXU8AbQaygvqG4j KGetoNpfJNxuILMB5VGH5Sb+T3R/e7p/CX0G8UaTxSeoKzXxh8ecFtTDTyKf lTpzX4HJ1w5azRPq4862mHYMJB1Jd86lWkD7Iot2cRVqTJR2BKszSU4bGKjM tJvBiTTaQfeNRI3WnnT/gbHJO+j+V6HtMcrFf4zWhLeL2eSTxPN6EGtor3I4 k30LmVXzUqk8U29o90qFERD+B7p5Kf1lEx/zKFfYxGsrBerrGS5Dfi5qr07y myWl+SHpL2nSEwMgIQDS0fwNZJzL6LMh3jZU+JcG8i9C+WGWoWIUFyOp60Bj BPuyiR9gxW0hPCl6W/qO4WTo+Qr6nES/sdXLNf0/tmwVQ1oYBfaTOIg5nX3T OoKGA1A/sbbWS4xGmnyQfhSR/jp9Xk7lNSF/iUW+7WpGRcnHYDUiwWucW64D SOWQH808j5Oc5E5y6hPZwSTTPkPoxuCDi3aXqxlp067nNwD7W9pbVUw+spUh VEB6NBGIa04rJh+JkxnesVmI+5z5BZ8zQnNwqKAPnwPlX8qJVTEPLgMuzUNR 7hrjQbVhJjCZg7HaRfS4YcMYQJyNmPe5zGZDCwKx+U0d7gqcpFtzeZx4DjtW rTnA/4i4QPZlD2jFTXlJzBVtIeiFjUOsniDG12dTBFiLZniO4C3QnaBZabyk dXgSeOlICoVUAUlvGi8ut3SpzYsOwxDJWtYB7i5FJFMuN/bodwlu1LeZHTAz nZgxWbxh6PUUhmxHdYlm6OCYn4WccxkZihn+PjwcXcM0P03VQDq2hK4hNSpO VLlXpnbhfgV4eoLkavLohhhfLgdsnNjSadNgOhfbbAXsf2GEmINaA4qLOctg RIYzcIU5gLQ+mJWC78as3U8PIeswwfBNizmXe4t7aMu9DY/KDH4BnbcGbnYN aG+UJu4t8wiGPXsewcFihENwB7HB42Xl0OXAxfMNi3KIieV7qQXNYQPaTpBi Bjb/i9lsHmGzBKt2t2Q3TNQzrzC/OL9rHPzGPX3MPwqvP7KCVUcKVogXQaW8 6qkhP+T1PealuHN+hrMv8B1m2LALJbZZfstiebXFcgY3epHNcsBeFONLq3VN Ma4LAaJgp0Eq13sxn0GEa2uINqED5wvP4PcY6f+4eI572jSeLU87NCpmqPQ9 WB/BaK8Gc2XIOhf6XT/kek83134611rSe4Rc4+Y45+sycp7gi9WFmvWDrBiD BOARXnaxCryWy39M6i1A9h5OXQ8RqEns/AKAX5P/xHSv1pHdIhCsT4GglMcW f3aBjYAOR8jKV+pa/BCESgyeQfiOAwS/oPy1qb1oyP9hevB98YibYroQByIp Lqc49vOjqoDQhemplUzmSpCZpg9ZvQBDsbsDiqAARUsnFDPq6hiG50g339cG FIHCZPYuKErFOMvnx2CAM7iLyHyDSTQaQV+slqob+K+SupEOyG4OQHJpgKCj eSzduJm+/YBKFkCSgr4dBB0RYUgyIB5e/QrsJOfAYlcHFvkCFvtFsNifyvfJ db5ILjQNiywJQalIgQ74YA1GW2vIDPPfLxNJr4O7N8BJxFgYDx+NBY6QmYiH YkDUgpEjsQhW9W/f3pPu7ID27fnSQvqKZ4W/7QCsygXYLvTUAejiE2AvNBKw UqE1NsSoBtmA6dEWM87kAzIvhKwswwpSnS7py9Qzz2SU5lx0kXqGCv7dduaZ PF3dxgFYdRywH1Of5CBYGZXhJQArlX8lRWSHF5YlraGG2YCtAMtGzco3O5cL oha6HnCAGtetG1QMn9kGWzsQ4oWISqchc8gHw/1cSlrVQWENmVIjGwFSuTF7 zaxZA6MKhQT1dMoOlrM7WgG2IlqVaIiJjqkwx6N7UDk1e8gQZf7hM7hhmFo5 YGomMD1E145Dbk661I90KQtMWbO7tDAm00HnRWGC176TKNIwLQf7RpvKt8B0 92WmiOZeckmIGrkxL3TwLRNR+x4neudS2UZ/PUEodSG0ykWu3AQgPpA0oBg6 zEcsY6Ij0CX6+6wuiwHT0/Jsf2KDakSnTnrgkgFrkWiNPi+ChCW+yBk7YKtK Bc5j2HZvFHClgmP/qOuygVsG1pfjpVjtMmDncmI8ok6e/s6+fUNPP3PAAP58 /4ABBfiaJ8IXsJUeT9c+ob8+RotuBCeQAcOQPzAI6kixqxM+V56VJVT+rFjv MIH3Gre5DAwXK59fgd0WoNQjfNVq6ejRDB9U8G1RDnzGvz/07FmAtFkipDk2 4duo4wBIBdZEzfwNxY+NNq56E0RqCpuWttndXCuo9nMju5RbeA38G/3MEEIy OMNCCFE6yj5IfNe1aYP3Aog1SWkIPYTl9fvQAxhD/xSNfMJOElhuk5KCpYZy t4oSOkfo7Vds3wbGpWjUIBkkBZiKvGQKktWJSPq8prgfqeRnLOyvB8ukNMaK z+cWq+TtMlvv8zMBP72sUFyxJ4P5JyY7gTMKvUAKN5rgQmngSblN8KDvYhVA QjdDohC2ND1J33mA2kK6NivSJfshrrQ6Q0DvW6y2vyc6l+gn/KjuNjJKJbpW G1ugNIz4RQmxZQXOJWKrQ9ShhO0meuLvaCkrvH2o/DYF3nIT8njYl0npPja8 uQi8AjExkUWjK8baeNwYzgWYgxQVRtj6HfmKz9lPlAT6frq1o3QP+zUS6Kz5 lSQI5xS7DAO0h1cvSZ0rdhpBSngD2HcTGAMIz4hT9pPGcays9WXOWj9HW6mI v0P3jyKEsyCeNaNNSsmsvKGFQI1/PXr0UDNnzlQnFUsBiwgXMxhLmLtXpVad Xyzla7bqlx8f6ZE3hY2itR5xX5MSJ71EkQSs/z+j8gX99QVuTZLKfl+bVBwp iGopuI8bN47Fsnz5ctkgViSSRQz/YsBUrnVU5OxTBKAH/EP8jTkg29uX7n2F l5A3En24++l1depZqvwZLPwiYQ6kRtDQBVSuxNoKMtTH6bvZVB6l8jdqMI5+ StKiWsTQnzx5chx9DMhgrbJGfxHzt1iqC11VBiNxBeJKPFe2dMezRVU0Gi9m cjuh+CX99SWqTpWWz6vT51I9l5OkPJZVFQfnsyiio264TdSHyZ2HOHvC1uxv q0upnT703TlSfkYFf4+l6w+IBDEPnTaQ0RwiYe8VkxEGFbEqX0tnEagtNpMK 43WGEFIyN2rmEISJ4X/EpCld+4BvThAFNqiTACYQaMPEDIZQuYsAf4zBxsSj z6vPzIwZ86J2D/tEr9cXVuwsFyzmyyb8/6Z6elN9PUmY3alcTrVh9awtEATw 12S2tUZypLVr1yr7H/7umiyiXKIZBREzalrf5iXH+3hyVeOQkx/rGtzB+zu+ Qm0RYZGIIMJZ9PXF9OhQKlcDRqpqBRvkW2H4M8lpuLm0KlzdYDbUvWFJi8c5 VetwfssE+heoWixZwY6Ts6g5OEkMWMyj67GUi3qRWmKPP/44S2rYsGH8jr9j EsNc0NFt2/Luh/xONypXDCqSE7zaAL0aiuVUHZNTISIF3E/GnMdmem476jei 8jglqFIrSLFvoAohpZ/T+1OYBKSb9YrrdWLnSaKqThXVclFa1apo9RhU/6/U zC3YKinO8Fb6jBX5VqpWJYKy8wL8w99di2cwp0l+UNUEptVIP5gtbaiSRdLx JVHvic9EFv0A7t2Oar9ilhCbXidpIQMYLlEf48MbmbnIevumkFlLp8wWSDC6 nxo+nwgB8fDZZulpnqWRV5999lmYX+MK3pWKyiwIZbZQe9WqRPsqnWknJhFe qZy7XNnlHeZmTlzBISwDCJYd9NcO1EryIzQgwI9IrI9h0QtVNV6fc+Al7ZeQ HZVv1ssiVyNAVZYE85FFwpYEPRZhtbqVODsD831Ezly6guzCnLlD7x5LqSo0 ujvuuIOv4N0YY5fi5SVIExcyrQvhm3aiJSqe9wt3Jvqlw52dm0CucKPo5oZJ Yk7W6sUNc47k8os4l9/B6EK2W+nBx6mCEXRvPTE+Hxv207bClBDtXqVEWxT3 7A0RzxE12PI4lcotxN4PiWLsgjiSAljHdu3Y3kaNGqWMZNHzNZLEFSNpXI9J FjqxP1X1HK+SLDbWrLl/1twlQ0xMSzRZmIGsxLOFuYq+xJZoSlwClmPAMrwW u+KJvcfEyDMLMYgIsUH40OlmM6cAsfkM2yyw4vs0Upn2tbUBJ4V5dTi9Ys8v NgN2ImouJXl98emnvojLpClwrrhinCyud4l6VrOsHNqwAEg0pS1m8LXp8bFk 6uk5JIeDtU6ne7bgHi25uaTjI+lr9ATW2gdcZRZfs7j4mJ9XiaRHqGl0336P mQbsVzqXGmqm+kqPrQcKeo24hcp0kurC+jBAepxvBupZqqkPET26Vy9I8rTo OlzjLhfoB3NNYlcud5k4b5gW/EyuiUKJhl6umw+3GUAuODulE71/CPD/wU9t o6eeBGbkex7HOQxmQWgGwVBXCkEZPQSMZ6CgQ4fu3CBJ6c/jzYbw27urUXQd vesHpeB4C5eLNKHPkg+LB4lmTEDq1OLF4UeR93yO+6NRSwoiltSohCWr5/Oy pyeqOefw7aurOWBhFfI/6SqE8zExMZ54vYrKAllv6afKh9rAWAoq/AuVe3v2 9Li7nVPnknvqSwUd78FIArkjiPGLPA98ydJyO4x57AZrEiOZLSadouQjYjqH yD5PH6vSvXi7gng6othIKW5JO9PLlQhSRaIye39xQmBrcuF3Mnz/5Fs/IV7r iderqayDs3tfht39cBeInKn3jAwKzqEyjhdTXwRPNZT3KF5Ir9fQxb/wkMiT vL8IlmXm20zngDkhqI3zK0Nq8Z6BS2q9iYt+WmqnRKWGMcXuROArzE9jbat8 71eyC2AJrqUzVUQo6kjKT26PZRaTGOHwAWp5v96MMGII+HmSwHNUJvDg1MUQ 1HCO+hjDmk41zxFJIkVJDVo5Z9DSOUeuaIhLLw7THYIEwcXl9ozI7Rwtt5Oj e7uMT3xWHwiRb1KDy+ARk6XVIpILdiEJ7U1ucBTh+w+R0gS6fg2V9diWjaD1 t4E4+vNBgv8yuk2Kpy5lJ3eJ5BbPiejm88RWOflFdlGtiIiqKjIEbPJ7E7xM dmFk1Z04uvfuu0+O7pVEdjGOGHvFWGbTGln5/jE52ajhQddqpTdiDifBLYWl EFtYTXAh/T2SfdoINpjrSSSQG8pfqWArBa/eKiPVaBIZufpgLhn9mfTmMH14 X11URrClvembe7lfWbk1eUk9q/S5lFg3mTCeSwQhZqBgEHFXMqQjcLTmySSQ vBpKND9Ml1+grzERgn7xZlRhHF/h/NemM5hWZXeIY9k4ZDGFfHm3jh3h106K 7lqHvZh4FOwke8nq3vQJFDkeikWOYMoVRF/AsSinDiWR7CrH+8JcHq6rI6Ag n4Bls4VqkOJXKhzlRw6B0jnDrqF8yhmwSMrGPRaPr/oTi0MH6R0G3YrPFTDW ko9KKG4tubi1FFZcpmcMGZwZVQ5IsGXpMemiYI4or/qTXFpxKmzktZLkh+Nu TCqOOISM4Wm65yLi5BF670/fPYXsfacJqk2lgvIkSbMTu66UAkAg3aInb9hZ Xd5lRbm4FVmLicq2Il+OXgSXOOvjUZkCx7xUgOlVj4USsICMsJ7HIJ2JQpTi QUD7xPpK8+jzWWRcl6N3C4HR3xAUDGsDp3hbUMFmvFQgrSAirXCMvnWjhVVI wwvSugnDznIeZdfoWSO4dDx5w18Qey/DiprSqFhWchA1hlIekTKSZJHjue8c 9+GN0FCWmSNDCm5Qn03iR8RkRhvQpR1DFU3p0AGi8lhWAc/P/5yyB5QNSPOK hRXrUX1twnL3mQIWFszqSPIKZENd7eOE9ClwyLmfYdV7GXlCZtNKXB5DrWJe 2wyfTOvZM4+hLqoGg16Q1Cx0SWQ1SYlY5avfF8knx/K5joQwicSMs6Iu5zRO CwkLiiwhFfzfzhBSm4qEFOYQPh/8cHS7dmw5Muhqn1Z1AjETCsllTs4B2HyR YeEM3gcGDvT4oAdfXYYdNITduYzfuezSRsgvDWAI7C9waSUTvoLMLHE9yKex /YOpQFgaRxxgVwTEdQU19BHqaqzECkeNlC2xwD0S0SpVYPGk4rmCRcWEZU6o 7M4ZlbEoTr/9uEXhbJSHZDx4PI+zjGAzQacEwyx9pUzlURwtMQxGrhAV81KT wNg0lhcVlz6+ioMbjiI7Xi/IpLswBF4VjuthHdhSInNrfX0oOR+y8yzZIdtA bziSbVQku5zzSHXmTfkRU9PSaxkuBYwf0uGSHmytrnNnY2f2OYL9+/bloBU4 7MwXO7uPvkcX/hIeM77E9OsDHm0zAYktp9zcIz1JJEMyA0yPk0i6kbX0oLIZ 52XrqcPJJMlfUIG0UF7SEgsKxuaHGcdTbJ+R3NCrWFp2B0tLK58+mdys6OQ+ W1gws+N1PqhPfw8PrDQpO2Q1H/gUi0svVuN5sQfDtXK+epHqXCSK0fj0I9Eh Em3TxAMiWdyMLIFXyOzg9hqImkH03VIe8tnK114qeET17xRVy0b1tXSi4au+ pHdI0iEffRZ+eCgqsgwjLC8Ul6un1ai+cAk3WBW6QZzjeoY4u/uJlq+4we38 CvH8SsxnG54vyGY03b6VsbNiFlLBiXQvikkFXb2sphNPm0Yl7RAO9lWSvxMT OjJVKs7cIiUBrNi/4VBLwrIrebLTqLyP+M+rybbr++k7ZOKbOIHfxvfbQtkK apNzicT+VHlyyTvlEs7Ity5bLFjo9AP5oQGxlqPEtRm5YMZ+DjhohMF4jtyc bjWJgxSXzdg/8EOuB4v83+O880s0+xXLZLvYymzuDW/ja/Mtmfh4Df7tUik9 rhfPxzsTA3PnzhWBHG3FGqR0nYj4iECazFZiHkyC5kKRAw68g2m8jMnyL3AP L7TUslglAQUrl12yCEILKSNjcw15VyaLlpllgZiCo4SGUK9HBNHBGlWwBOE3 gWW4jjcgXsyPR+BXLbCdDnu9NkH0n6MJXo38JUMNITxFX/6Sxx6i8G9jbYg6 qKSgvjOxb5EZexxk1r1zZ4Hd/skH9EExUEDBIkiCPd+YYR2dv+fUQ4Q2fhUD S1SnEaDv8IKwvzNkWPgtO42UXmAcMPxY+3gpSYcAd2HP+8iD/3gBmOQXCHTV MwidtQCOtSICRtPQp7wbTiDigILsDoj1nnLuZUKCKSDpQawBJuD3JmhwqMbb UHfem/IZkEiShK8WE+QXy5ZTlxg4aueKQgLEABdUlEDtTEkEcUnoXkgu0gtp r6OAEikcJ4vFzS+KWZJQiS4obgutnLaAtrGRAIet4Fwagz0Wx2Dn1id4PCID 2bKikTcxWDuaYuQDN/KuYPw1If96HPkgRL6LRl1A7xQDHQlRBHQ/GoD9Uvqv O+N5NZMquJ4wO5AqPIQK7w6ATWn4BHWArnx5xdagv0vh3UJENQzhjULozTtd v0G/KPyWQN81POlCX+XDnZGmiAz0/EyuaH6mMGKSLwoCp0QEcKIsDjU/5QgB mHWkEML8+nqVrviqmsH/G6aqCBasasTxo31kZJ7PrPyoXkJkuFUaRR8CUqz8 BPBCrNsTgG3QzbWqqM/3xOcDdDiaP9XVaZ9fSD5dPelkxP0I4nrarrVzbrlU Zw2ZHYAVvH9i4X3rhAl8UBx+hslgfg/ndxG8WecD1vka9Sf6/neFpb98DBhi KRZArCXutzC5H+Kpj+olRQ8B9xK1PxfR/ick06lyIF8dRT6HtoKoclcOdavI eGAWqNH37YyFfIxyF0F5++bNas6UKXw2IbIOoAWku/Miqqk8UITZYN4gybQY 0EkIGJXC9hKU8Vi6iFXWVfr3fWv1LwFjVPdZWQr5AT+/mV8hBWikFkEW7af2 jAQwFkuIu8CviXr6vBZ0E4PfsizwBXij311lB8//7dihPiEdXzlpEo9lI+Wc hNOCjuaRZZymeoSUagEW+wNwZn1HAfjXhZ8kVp59eIBBWx9dFUX8wxDxII64 x5BXhZpvyvsy/o2ulQv0ZqVBd/VsywO9RWbQ74xoul6EUs2avmnWLLWa8F4l T5vxsFfhgqdjNujPeJkhv1ltphqwSAQL3/SS0k1hQvCeKBNJ06BtiqAtMwRb 8Ul7atuzoLyicax2wNr864DVd0wsFA9V/zEC6ckC6WcNDerNadP4rlVSg4E0 nF7R02HrpWwQqvzwzDs/3ElSnvam+Au6A3uGIqEwhm1Lh5P+WrDNRbC9K+ob 9ALemtA3rCJdXSm6GgNXyZqu9fXye0m8rkyKF6IbVKSuOhACs9m8fLAYx1YV 4OgXfsGLGdhQLz9CJDpjpXKebEArXrOmx4liOJ5qRbckm7dXGsU0VDWRiuaL VHSMjlwuJFtHrf3fgeT51syFTntVj3JM3Q+B3GDIKaGJfkQTuQugcmFiYMrW +kJmJggmGnabVKfpNy2M+aJEt2ek73C66GGSPe90PfRCg84A3S6hLX8N0OUi 0B0fHWnolRCzywgwiYpnofZBqvWWBmzX0s7PKx+wXBwwa6GhPnQD3XULrd4x G12ZYqMlA0YWHctH0ve3ZYkYZYcuv7bbTgGpxgkSuMW6g2Nl/ZAAdGZTmKEX nm3sZ1CoIIQIWIytra1xQLN7aZffCGiqnNDcJxFShrTPtizs3VIWVo5fT3BK b1tdCJeW7BH1PU0ERb4Iiil6sEFQ0IfwNYtYjivXEqUwmZ5tPDHvXNLPjC7h U/bMCEThNzDK9ykniLcVFPqKLrjMo2Jvm4uog+HepQJ7ORxF4pBsZs41vdiX 10mvnxGm+5VhAOXJPQg5Hp2c7X03yfS9Spj1+ZCrLtJPE077myND3EqezfEl mPoVJbR571Rt9jOwmY+wCcKG6CxVFnEMKEd5Ux1ZQY7mwL8rS3C3TzncWZtL a8Jz/UwxPOJXCY+Rdf/C4EDxUVDUt2fMSMrA03yUS4J0yywZxExib99Gslfl ZG+mBCBZazjIiskfE7dxzSzE5CCumi65mZ/5+Ks17+Diab8K4owndneW1U0S IQ2xtBAJ66oyvUlMQphMpEA5Vpb7uBipdTgQLyMjVBWOMDxAlt2IRC4QP5Gg aGX4CV94uNyyH9ccxfcdwsjAg9K/MPFrmTeQlfwXWiKAQr1lKVQJRxDrZukx PnWLTCq60P9Bkhp5SZQrLVjsVzpWG7jQfZHYdwnVyWbf9MXzlgW4QP9h+aT7 6kKcECF7xoTu4Q51KQorRbZbgBpzWKSEg2UNqIvU/Us7oAKpSp9G82JBsWXj 1MUVKoYx+5sxX0f6oFdAFlN7YJTaIJ1an6dHBkX34V0a04WEpCSqC/mILjwv ixDewZC2NZBnT8i2zUgpPYa5m33FT8h2zhHW4BoEH/fa4eCk9EQMmKAOm/tB 3TweV9+KdorJOyjVLfgyj4SqTj7wQPbEsul3pAXfJ8mSdpkSNqjfxDsPeH3A 1iKifpRKlCdEYZKxl+wEE6Iut+Z7HDLVdpKP2AnOdx5IdrEES+etARycNHGK 0HNISI/vMGO6eSZ2RYrkZOP66MyS02aAJcCTGBRmVg+K4AiS42RN3aFJRGDo W7YwYs2OHEwxht9aFMnHpd5wlMgun8ZZHoVBmUeldYbkUIceS88bWwixJ4AM TM4yGZtFDj4fBY92N/Kcmm7YNBrOFx/iatjn5VpnifSl1av5rWUq5JiPf0j2 E38oPB5rtpcU2issJjV03UO07icilnN1rolBbNJhA/ELolrYT472Zum2ChKO 8WeGwkxTkKYcsnStlZgaQA1rs+l2nKO4Tg56oib8cIKBmzg4bEIv9Vf3FlrQ g85qfELvHMdp4iQQbD8xv+bHhhjh4eAQMyLfqlwGZVV9zFkAKQyu4fSKkwkh TLCabusWkXGsdqW3wJiKe+qKr7MCI3qWWOMwlCpFhe8XXIU17aJi8LN/RsJA 5GCnoDSgR0XVDdZw34yrruIjOHCu/pv6lAZDtOfAZH+pGKdz4KgvKCspzxm6 4huFcAwNHFarD5S9ku5aa45/SCC8MGv0A6n/YULlJLJ9hDcyht52/TV66JJ6 Ap9s3KiuIwrG6CW9HBYNA/FRNCkFVvZzY3SWhVGeD28LVC98Jb85no2PfaRy WEvPAk5n2wLw+Rhv80+fdp9XT5AeHEHtjdJnFRqeMgidhz9waDE9hQMjT+zY kWMbnMk50YbtYwQDARU+4AKsFMb2fVnqYgMazq8UVIJZ/U6sWayxFrHJwJDI LdpsTnQFzV5Ct59D0r5Pms3G7y5Ww7fK4m40jBrlJ3MmOhrOW8uD+pNY6uSQ 5FesRSZpysNMt5LsGG3jNIFupO0nE97Svvwi103S/IIFC2LNN2N4oMeAvDs9 ifOssesNx35ZXiNmfzXSL4X9mXbBN6zByPq8uAbXOJo8lZo8kx6GmsG/4vAc HBWyEVlfpEm9ioDNBOkMThpDy9hNiZCGTWWmdUA6ON56C9Ev0zpuxAM9qPTG jCtVcHatPjfO5xPkqlRXqRzlcGKvS7t2qivdC3g9rkUfNYGaUeS3Uu8QvM0R qShVcjuaN7fLj23zH62/+fzN528+J32+hd98NX36dDWUXNOzzz6rrre+8vmq r+bNm8dXUXRipH7Fb9Spfvddvgnl448/nqC/nYw3T55Grebp8fbTOTwRPo3y +eefRxso3LJlyxY1depUtXjx4ugtedVAqY65BV/j8/bt26WtcfzWnOuePXs2 fwuG8RS+wXUDgLkexGoGEYYQaiFSs89kGQ4M06DD1KphbM6tGyBQAIypHX+b +4l2qVuy6Lxav3592AQ+4yo1oVvLhxCjJkMN0W4OGjYNgVVcMbWtWLEi2pAf cqzpDqWYD+FCMTdRU154jy81yBf817XRym0uzO2GNuiYJ0oFAMx9pGAT7VoC 5sJ8SyL3pCIwY2RoUe5HKL8hKjmDOKRl6rE12hBp9AbEToxWYWERoR/XUeiz 52BVahkfUyE8UeW4Frk9YE03jVIDeZtd0B9jd2f4DvWt/wdHo4He\ \>"]], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{0, -1, 0}, {1, 0, 0}, {0, 0, 1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 11-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Sin[Rational[1, 18] Pi], -Cos[Rational[1, 18] Pi]}, { 0, Cos[Rational[1, 18] Pi], -Sin[Rational[1, 18] Pi]}}, { 0, 0, 0}}, {{{1, 0, 0}, { 0, -0.17364817766693033`, -0.984807753012208}, { 0, 0.984807753012208, -0.17364817766693033`}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[1, 18] Pi], 0, Cos[ Rational[1, 18] Pi]}, {0, 1, 0}, {-Cos[Rational[1, 18] Pi], 0, - Sin[Rational[1, 18] Pi]}}, {0, 0, 0}}, {{{-0.17364817766693033`, 0, 0.984807753012208}, {0, 1, 0}, {-0.984807753012208, 0, -0.17364817766693033`}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[1, 18] Pi], - Cos[Rational[1, 18] Pi], 0}, { Cos[Rational[1, 18] Pi], -Sin[Rational[1, 18] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.17364817766693033`, -0.984807753012208, 0}, { 0.984807753012208, -0.17364817766693033`, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 12-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Sin[Rational[1, 9] Pi], -Cos[Rational[1, 9] Pi]}, { 0, Cos[Rational[1, 9] Pi], -Sin[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, -0.3420201433256687, -0.9396926207859084}, { 0, 0.9396926207859084, -0.3420201433256687}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[1, 9] Pi], 0, Cos[ Rational[1, 9] Pi]}, {0, 1, 0}, {-Cos[Rational[1, 9] Pi], 0, - Sin[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{-0.3420201433256687, 0, 0.9396926207859084}, {0, 1, 0}, {-0.9396926207859084, 0, -0.3420201433256687}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[1, 9] Pi], - Cos[Rational[1, 9] Pi], 0}, { Cos[Rational[1, 9] Pi], -Sin[Rational[1, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.3420201433256687, -0.9396926207859084, 0}, { 0.9396926207859084, -0.3420201433256687, 0}, {0, 0, 1}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 13-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}, { 0, Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}}, {0, 0, 0}}, {{{1, 0, 0}, {0, -0.5, -0.8660254037844386}, { 0, 0.8660254037844386, -0.5}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[-1, 2], 0, Rational[1, 2] 3^Rational[1, 2]}, {0, 1, 0}, { Rational[-1, 2] 3^Rational[1, 2], 0, Rational[-1, 2]}}, { 0, 0, 0}}, {{{-0.5, 0, 0.8660254037844386}, {0, 1, 0}, {-0.8660254037844386, 0, -0.5}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2], 0}, { Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.5, -0.8660254037844386, 0}, { 0.8660254037844386, -0.5, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 14-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Sin[Rational[2, 9] Pi], -Cos[Rational[2, 9] Pi]}, { 0, Cos[Rational[2, 9] Pi], -Sin[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, -0.6427876096865393, -0.766044443118978}, { 0, 0.766044443118978, -0.6427876096865393}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[2, 9] Pi], 0, Cos[ Rational[2, 9] Pi]}, {0, 1, 0}, {-Cos[Rational[2, 9] Pi], 0, - Sin[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{-0.6427876096865393, 0, 0.766044443118978}, {0, 1, 0}, {-0.766044443118978, 0, -0.6427876096865393}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[2, 9] Pi], - Cos[Rational[2, 9] Pi], 0}, { Cos[Rational[2, 9] Pi], -Sin[Rational[2, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.6427876096865393, -0.766044443118978, 0}, { 0.766044443118978, -0.6427876096865393, 0}, {0, 0, 1}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 15-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Cos[Rational[2, 9] Pi], -Sin[Rational[2, 9] Pi]}, { 0, Sin[Rational[2, 9] Pi], -Cos[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, -0.766044443118978, -0.6427876096865393}, { 0, 0.6427876096865393, -0.766044443118978}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[2, 9] Pi], 0, Sin[ Rational[2, 9] Pi]}, {0, 1, 0}, {-Sin[Rational[2, 9] Pi], 0, - Cos[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{-0.766044443118978, 0, 0.6427876096865393}, {0, 1, 0}, {-0.6427876096865393, 0, -0.766044443118978}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[2, 9] Pi], - Sin[Rational[2, 9] Pi], 0}, { Sin[Rational[2, 9] Pi], -Cos[Rational[2, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.766044443118978, -0.6427876096865393, 0}, { 0.6427876096865393, -0.766044443118978, 0}, {0, 0, 1}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 16-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}, { 0, Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}}, {0, 0, 0}}, {{{1, 0, 0}, {0, -0.8660254037844386, -0.5}, { 0, 0.5, -0.8660254037844386}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[-1, 2] 3^Rational[1, 2], 0, Rational[1, 2]}, {0, 1, 0}, { Rational[-1, 2], 0, Rational[-1, 2] 3^Rational[1, 2]}}, { 0, 0, 0}}, {{{-0.8660254037844386, 0, 0.5}, {0, 1, 0}, {-0.5, 0, -0.8660254037844386}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2], 0}, { Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.8660254037844386, -0.5, 0}, { 0.5, -0.8660254037844386, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 17-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Cos[Rational[1, 9] Pi], -Sin[Rational[1, 9] Pi]}, { 0, Sin[Rational[1, 9] Pi], -Cos[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, -0.9396926207859084, -0.3420201433256687}, { 0, 0.3420201433256687, -0.9396926207859084}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[1, 9] Pi], 0, Sin[ Rational[1, 9] Pi]}, {0, 1, 0}, {-Sin[Rational[1, 9] Pi], 0, - Cos[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{-0.9396926207859084, 0, 0.3420201433256687}, {0, 1, 0}, {-0.3420201433256687, 0, -0.9396926207859084}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnWuUFdWVx4917+1uHgKRwTAT1wqfxMmatWBGXZJEZ8gHZRJlQGEEGXkq bwVERB2wEx/xQ8TJxKBEzIBxjCQqjaJGBQ1Ciw1IdwOKiBERGQVjjC4/mA/z wdn/XftUn3O6qm7dR9UtZ8ni3Hu7bt2qvX91Hrv2PrXP2JnL5s2+duay+VfN HDZm6cwl8+Zfdf2wixYvpU2FU5Q6ZQCV4cMUPn+hlH75gv5/MRAv2PLV568+ 93xexW8F1d3drbZt28alhV/9bV/4tUct83dvld0/+eSTYPeCvM6YMUONHj2a S4lfC+r8s85S3x02jEsRr0X1HfpYUN+lL/TORdl5/fr1fCic91r/fMv5rWSd DwW7FuRn/zRqlDqfDno+H9h/vXfcOLV5+nQuBbx66kn+eGT5cvWn1lb1ERUP r576Y2trQX1IfxfVSXo9THtspH034keP04c+6jF6/Q864rfp2KOofEeEh8aQ BtLN9wVewm9Fiyft5gkVU1aUK0aMIKGeYtG2z5mj/kwC/JlFodeS+ri1tQhx C5C0AEk9SOqxoCV1gl4/kPI+lf9hpY7Ta4s6Rq8HSJUNdOy7SPbz6Gz/SGeH zCTvXF/cBSKuyTcQt2hdPkLqhUjaP5C0BEm9SiXto96j13epHKXyDpW3qWym M1w2fLi6bPx4lm2OL+5sfmtyxWVpCa0n9Wy1cfXfWb7cg3SDIWexHnK+K3Ie ofIHKl1EGbI+RHVS5JzJb30DOVFdIePIkSPV3w0dymL+nIREnXxpzhwPEjUl lNJjIQdYIqJASIh4LETEw1QeoPPNnzFDJJwmJFFPtXSoHmidk0eM8NQmvtJv k24fSXNhiUohUhaCdhQt5fsRUh41pNxPJ5tEdLq2bRMpp/BbS8BRX2v0HpOo 6bSRkC+C34dBQ/5IhKpIUI/l7F9WSlT8ZXSp51Dp3LBBpJwUIiVYorv4T6KO 3uQwquFJ6WkiRXVavNE3FbiCnpBSTt5DRPIROvP4QYPUT+l9K/3duW6dyDsx Rl50c1tIy/c1lAKf8KSUMPG54p5Wq/jHpettIwHmUiWYTYjbSJBdtP1lKt2B +JcZ4qPqolF9i35xN/3yOfrFcf+oXqwO0qjK6uB2EYNCu4g/kOCP0emnkRhT qGD4eZm2vUrfaQVeve8+9b9/+YvfhanxRg8BJcB/AtXo31BdQbd9TK5oL2X8 huUPVR/2lEJwTYoh+kR3eT36UEep2unsPyEpFlBNuIHeMfztou370M1R2Utl N5WdVLZhADh6VPT5F37r10ufp+mCvCMt6F2poVovj9kVmKIm6qtXsNRzmncx YW+pTuOjvEvy7yQ9VpE0V9G1mUHll3R9nifJ3qDvX6dygIqr4ytUXrJ0HGvo OJ4Gpr+lI62ZNIkHrCPS47p6+oNHkTU19JRep3eHkEA59VfqGOnUAaOEdFpM 1+oaKjfSZwzP6EXR379JxdWvW/TbI/ptp/JJoN8l/Naf9cPAeyk1wb10NPTN MTpWqmJk90xjLMaZ43TKXaTIJrpI/06KLaSyiMp/09/ogD0WYgCLpAc3U9nX qOx3lO2gsgNydXc7ymLUxujdKdjekqPGKluwlE3aUTo686ivzlCvk057SN8n Sb8VcjGvo7KSLugW2v4yfe8ORtpOMvU/ROWgo3+noX87/l63ztH/BzScPkpn OSRHqlD/96vSnxrRx/gxMe+ic6N53kPariStr6eylEor/f0ibe/gK47TDIkc ml1TJ4zGPoOG7pK71q1TFo5+aiGNhffRhXBxvB2Cw2NBirqP1jwqGjcHMI4B 6g1Scy+p+xSd+w5S/xYqaNk3SuV/lLZv881Z7ttkOPXPdXqs4WLSeSuEjtn5 mQNWt1NXmtWhjg51OQmzgq4NWqIJx2+VTQGcqgYwZ0BuZjjN6gNSupuUNwG1 UrmWiqduoNcmbjWPo4egfV4l2dDtPzhmTI+1RxaDtkHc4fu4rtsQ+mux0MJG DBNa+513qs9OnFBXm+T68KYX6OvFRO5KknSB9Geo4QdJ0neY4LsMpsahn1sZ GeuoUYCG8oqA8xhdEzeyJVRuxjgvIDfi/m4H7VhU78lNshS+KrQZaC9uaVF7 6MjpUzVtDRmHNVV/ID4NNZR7tRdJ3odIuGswxJMq06TRQLU7advvcJtFBebN y9LfAEkXKWKNVJ4Yqwfoi1dRkah4/FriytcpB9gu3XVB3c7uhqXSbd/AFfIm 3ga+t9PJ2/kY7Xw71WXcOPN1Krh8v6cUt/WAb3MsX78LOo0Rm4DfFsCHIwBH GAIW368x3x2yxy6p6Lg0uDvHmAHz8H4SdiqpOldG6mukOi2Sz56azVVujuyj yzy/Cnpq2bBhBQZXVMvltzjOj0aM8IkUuFKiSoJan8CmDUUH4+4obrU+5M7I vOkw0PmD2ODQ2+VKrApwEatCOei6ItDtk4vwuhzaHGdMGwudgqeeZf2fo9fn qWzhmrQ1uDHXA0zP4OIFvQD7PPrGwxpNZRu8XD3OLwOW9Dv+cG+SirK/ytkf wEH2hwVqqHqjrY2/2WmA6pRfH5CjHYwBFXZjYRhnEX1mPC3eRg0UuG6lJqxh UZ1UcbTKmCjVGGyoRxaxIWin3F7DiO2PIBZlwti3YkVW4kRP6blVVjzABKOC 598gEytukE1BHaNGh/3Q8jW1CTRkHBAnjeEI8C3n5IZdmOmiDbsQ0yWM2kvy dYdA3htB7c2KqJWCGwFN7mSr3LSGoSsEFa48uoupbMW4DHTfKDfSJkYXZ8CI m0JdZeIbzKNvGL6uKvB5vlmQIjuUf6byC3gyM7NSxCPiooPtB7OwXdDtdtCZ wwFOddhAdyQzdLCZZ9Lo2WtgqM0AiWKnh1Htadnus7vK9CYNDAw8F5s7imps 5uDgsTyFoMH63piayEWMp2aLDbAlNj5capUYH2K2qRBs1RofPrZmC5szpqq4 QTULeNXbI64/6GBbm8Wux3BzR9ekhttRlugYV7NK2SUz30yL5FE9OMSZb4Pr 6T6y69qpsfZblDXi8cn7JLHffD9KvB3SA8vo1XzrzTR1F/LdSNXWW7V2iMXr y2G9udSCm9H6mSBxjidtgszqTe5LYcFF4svUCrHo9TbgXCskHwYcrJBL6H4B +MTVVAO6ckZIRLjHRVeNAWcOC/VGV8lIWrv7qII4knAb51hvr7T+f7Pekhkg CQNSFrXTajLedEM9BkF7ByfK+EPiyfF4QRvfXLSIPxnDbwzI7OwSC2O0Haf9 SlnbcZ7g66Qe7sbhw/kv08+E6QN18jNVGwqzCA5RJ7q7K7bsUrZUPMEGjzAc xfgr6eD7N5nYLtR6HYza4DPNli8xxkyjaDNNlNFOqGoswLrZMBXA7BWhyDR4 VgZmmEH4ugHTdEs1EiYCuyk4qiqMlDkwcbuC25ZcmYjKH7I1Sy9HjisdNZtp zobrbTFG2T5ZWoypUKxrRM2CWHvosd6WT1mADXRogZWFb2hZwzHjgKRDr5BD D5cFcAi365x5uKIhZubwShJzm2GDDLMco8ydykDWNkhXTTNT/5cFM6e2YzmS 2brDImJyYSS3tUYbjlnHM3U3adqMCUfp5qhRuqzJGGXsxJiMFsZBsSZjAnsn RXOnCpB1M3fK+csOtrUJx0srDHZG24xpBTurQ5mdx8wCmUu7sRe+BnvMXMvH IhgfC40yHescC7VsHhNfI2yeJEG+6SbCXIZH6dv2qkBmau6EcMxjsDQpzOxd ZWYA0IKZ08lv5Uim6CerICTokMzlXLhIkrkJEU43n3zN3bS4GiCmP+tcjB2L YCODrI6lk4xdRh6yqMCgBS9XU+TC8BWTDtD+eYYmylFQg3/MondGVRPm4kbm XYsXI8uPmnr22YGFM40+41/X4sWR7bfHymmpBWJGLjIdEZxmwvxGKubivRMm MLytc+eqF6jg3xraFmkv9vSEtZHMNBpogRxcV3vR7xWbWfILzzxTtV54IdfI i+hzBcNKIpimlWN5yNKdtu5YOQ7MSufalQ2tCszNs2Yp/e9p+lw3mPkJCDok 6z71TkjuWLgwILmXOtBckKxrUFBATqjbXLyiZTKy0BhyitzEl1xwgWaYLsLs woIWwOhnYSs3elpYzHWTJwejzKNTp/Lnuy65xM6X4Vg7kdxSdotVGhB00CWJ qCZF13399YwKlU7bi6O++U3e9rNx4xI8KBAGsZQza0c7x6aaINOckdccmI7r J03iJGD3UDV6S5JNxJuPzTUBzdRJ5vA0rcf6BliL1r00J//6/vDhhAWZogBT l49aJbGalxilGRSs3UVWbVDQQpmC/ehzbOnlk0CdHEso51FhzeMGmnieGU6c LxMaPJUpFrgXGzt2rNqwYYM8PhoALmdTVuk56xfq9EGWmR9KHrBnqEMoX1PD M1o01nF2sK1tgIBduXIlw923b5/kZBGwfhx2b/VT96rypxGapwnrxEGDGO9H QY6v2shmFzp0ua5atUpznVi3uXxJ4rLNrpeIgWqwlVJ1kj00IKLIYLkjsHBm FZ3t0wvnHwUpugKYk0g9F93B4q/Ez8P5p/zruvjfyllS/RljSR0+fFiZ//D3 xSbpU6uaAFhdFNcfvIrsxLiBxrPlVI5hTNOmVVMteLM1rTTgzZs3M9h58+bx O/62ADdqgmCJq+7yHsxiK+QfsxmZ1JjNAQ3/8LeDuZLpg3UOAfvEjklWVIxV z1IXojuNRLhTcuxVOM2/H7NsUp9++mlgnGEL3iGYSbxxcwybLPMXqC+nAZDe DdxFC3eO8lgYYU7l424OavXatWt5C951bf9Bb+aNmI3YYjF3uKeOva6x0QKj tHPWr1+/3k8C30ctWeIntcdNib4I+FtfJGy3Lkp+5jb6KVaLai/dMsO2Qzm+ fHmpmkuTwZMJ26nPW08y/ZzKCqpFTXwF+gfrDOjFEQBZj6/omfC37qFou1yM f81RrFuSSuLBVxS6BsWYaxDlzqzj8w1I2o8U9xsljSESc06hw0+mMonKJVT+ nsrEMWOUXuACeZGBFOVyk3Fe5k76dzQWaWScLISjrnfaD2SERabNZ6g8SFdt Fh1iJpUZVKYP87NyIlPkGvrut7QPVqYwM7zrEO+/mWiHVDWpMpUZgfrZRODd SDpMor7+OYyxNdLtsR+R1PEF2g0pHpG+H3ky5yBH5my8XE1/DQzSfGNtCyTq ryTm65BNb65l1VOJlH9DSVjVZB8v/63ZeqFJflyHqMeZkovswZpPv5Licc7R 04O82kipidSabxD1Wj2ihNKCO7iu1nc9Zrp54vLQaLHOAj7bWGm4wFi5XXLc YrzEGKjpjhbCcAb8lg7we9pHJ+l2uoVqHp6ICQw7dPM2I7MgyWnR3d5E3S4I 684A21CBMRt7IycNvhYpb8G1iQmDdOhMzSzjxQ5gdMQv5yjnjZ/4l9cGaJdM zromj6XKCdb47PGnkrqNsO4Q5jp9cF6SlcBWENqXN2BCp+V5MmHvxR32du45 dbuXUhCqd593HtOeRZUV/UcenKhh8WeLbj1D93HGWc+aJbt5yYJtnKcZubwx 2vum60KMQoDqU9ohNZl6iILA1COdOQI2Ij9bkuj0FBtz/aaFFgLMb3G79VNe wzK6hajNY5Q8oC/gaolxHundX5JR65hu7AX/ZsL3L5n2mUE3p5Fqi+3gmiaN bhO7HMnEb+YJIWxOsmE5lwFukJUIMJy/kyjm70NtcY3ewKLAOEd9bsrPylSa 303HrqfYvW85O/gZAoj7RKw2hlXUpstNzUyuiLjNaeFlB7Cgg87VjkVbet0l 28saxQ94xRAnqb7VOG7c4L0n69tl5Dut4NEPpwqD8nMk2K9JIaxyhQUEsGAD 7rivoIK77yvlFnEpbX9SbnJws/OamOj1tCjCAOte+D0bsMzKz1Nge4r5XM1Q d7lJ9huNGTWKqyjWX5gnQxDuvXHfjftvLOwVleDHMeHS5q29FjDbUDrZa5En H6nFewj7RPXypXrZ0q2bNqnHFy2q2mRO4cmcSOY6mR/660nis460j2vwfFaT ig7mmuCeVLfZq9U/4+3MwYxEWoxCWo0j8/S0AuFXmGCzMo1rA+t3D30ZKKrl rTILIQNLOCpPnWutWVSznEEQb6UVopA2yS21GRGH0RCCUzUgyG3hzEciStfV EwMVu5tgAdWZr6kaEMp2oKY397VGJ1oUWb8vbWa0YX5J3G+7doGDNY2QtYU1 tXmwdWXas7i4edPwO+peHZ7Zm1kOzZQmvaZJs4EORvORXQtk/CTXxiQbSoyy 2XIo3iRztz4MzoRzpv4Mr+CcbITUq53bWtfHxyMpxvoMsazUA9ozm+3zu5NN kA2Lm8ebTV5VULG29IGa8rNV+yivxbQW67MpamSvPoNOdSzTdw1GBHFtlmlO Va0xkJuEaApuwCoitxbRvMbFY3HmY6kqso4clHkLgoehLOXGOjLDryEgK51D mmawu0qQZfx0KQVbLZaZT/00otnV0ax6rmF1LroEcVXfZhcLPlcuukiSOXpY wnTLOSTTNjaTuuUk7KEpNuWMoBkptQgOiTUts/fEJeIY+bR0prFQh2MOzcp4 mPl4RORgW5tdI/NnTjoYm3P6yIdDsVJLMm0/Ww0Us8mKh0HZYjio1hmTKbjY klF08sU0Jiwpj1NMqdt8yLrFew2I12iIeZmQ59o7FsVcWY61Ucw0+GhBPL3s rMYkyYtCYrncniowGDU5fy5jHL3vZeo/c+wcm178wzsNMRjLc2yg18ywcxyO 7hTFPXXjWMvoEgMzN5aOBTJ/8VmHYmMtnahgosOwlpUDU7IWEzCsIIdySmnx LIyDas1tmYKnLBKk6SSraMGx+jvJJJDoP6ckT3rkKCAbhjBHho4ZNrQQNsxa LPO4rb+ISZY4q40cWjjzE4VNjjFysbH6p8KLCRdaGNM0IKsZblTPem3X8GMf DbB5yhmPZPNYDAdXNNUvZZvHAdgnj+6xrlCAOTEaawCYzuz9MEPHwZejWXzJ 8DXWJSYWzkQTYuYz+MJyUIfBy9oVljT0J/SuNIybJPZhyvlZagKYaeDP4ZeD 0GlF8FKI9lXgBbPgxUdNs8pgo3s/0wxsKev/ssaPTP1fDsIPUnsEpMpRJIZj bqwYi2GuQqUOwHStmGrjew6+WmKkDcFXicMrtcDeBBPioFpn2tU3SBqJMc7d JYbRCbzgdF+v+3R504xx8NVlcl09QqNh6HJmyWg3lyCcmgc3l51w509gRv/y 5NVy43kWvdND7UAzGpqEXtJoaKlXhtXbLryQtkYSS8GBVYXlYhFr1JS53tlp t8tKdg9MmABuffJos3SuW+fQy81EOX0LYmLsWz/vVX3idXp6uwUxb4afJvhL IphP95WDL4nhl1G401/tSz0v6wASwpayE9nLrgGWWozuMpNj5hPkIvPc6WE3 /PY3H7E5QTctL/PhvFxRiwrBWdTSN/WSTt/K3FWVZOUpCbdZyJJFLV1kdY5a OuuKJ/dPZZb2AQsgWdzyFqYMo5cPC4/ql0VucF1nttVjMlElRl06vqgwkyQE Wk4CknHQGuuBEivkUhtdjoKRDrpi/qJoFrsGzlhzJln1zYENEhU4E2TTKww8 xk1Mqz3wmMAMqZ0a8szqlQmeoLJJUqbuoQG7nJsphFp+LTfXz8RdG9JPNQUJ 8X9DN2BYdgDDxrU66XMLA14gBV8jPaexNIbHCVD78GakldUrZyAlKtKj3k1H /S86eueGDTaxHMUYe2wP/egCEnvqPOx+gnE/pc8S0ug6KpcSwosIJTKLz2UP ++JhyEq8iF5bab+NUp828++f5N/r+qXLTjpHp9Qtj5Xvx3XsSbpUSDaLnKeP UEHy2V/heSg67qVkRM4fPZqXdRlv08yhOVeSp631agIoyMG+iKfgLqXXfmou aYTc7NcJWRD+kawXglVZfk3730DbVp13Hl3W13DKAzj8fnzah0/dfMG7RF0h agLdLUQ6pHWCULs05McWLVLfGjSIk6FaQPM1Ba3E6WV17nWkm70uYFjihqr5 oZai1hU4f3ZBdVIt076PJryWAogFqOEFED1mODCok3ulEkUhfJaO3EpX59tn ncX5e3vVyUbYfJ644ZGwUOdWh2fJXzLkOsa1UKqZrmpPcyO1caG04DUBM4+R 9YsE9iu6dCtIhnMJFJLvbtq0SRvH040YY6UWXiIrpfdaybtIGnT56PyhPTqu 2dQAp/MqNPiryEshPSMNcC/WvaJznxrQaAINL55Gn4DG74noGjrOLXTMf6Cj nz9qFFcXpH+eaFOoy3yxvr28RjtJY7080UJ/cENyaY/7oaJaT5ufkqTdryL/ +2tYIzZOY+54VH+uxl1SoPQjdKL7kTmTsJ5JOEeOHBmsg0atQ56lmMFvZ9Q8 v+sggUV+/Idk3MYAPWeYnzMb6wVhjMHIs5v22y/Vt2Qr1xxUbudyEsV2+tkD 9HOUsXS4s+mwF9C1M9NHk1JXmEp9vWIraKsYYLgIEB6JvzGg3iyDKJToIEm6 uX7vC3r+OF34W9LgUTo2TI/b6Njn0DGHyyVxNJhqahC9JIS2SoATkq2V5cLG 0+gBybHI1WO0/WleSaMzaA3dwUC1H5btAbz0FpxrHfU4j9Gv19FRbkd/QUc9 x6BOVckLWdZtuin/gNDMs7iWMCewYtw0MdKW0Wds20xn3KMHzAK3Nz2ORmrA mJsCDbh/oJb0OB0KawGijMMc1HPZNDLkV2EKXG0q0NcK/eASLpBl7mBR/oyw YP21VyDNLu7pd0uPu0d03ctqdPJrl1y3oPYU7NrDKvTlzr7EueUfJMkfFA3G cxDiXO4jtApSdcK0mG9qcSr36BghZ9NRLqIqsojeoU27aLZTGkmHXKbdzHsP C6rV8C3DClQphKjyoKVKSZ1ltALdEsL0WWzrc6ijgxcZxNXYQHpgtEI1S0sf 2ohK1SHLS3r8WlI/lnahyygaUwusR8laclLatrrR1qKdNo8iAGtJAzgMatLC aR6KNeCLvI5tCf/1DkNifQ1GiSWgCyTXKzbqxTJRbjGl9y8PdsUQ6qmR3Li+ T9fjnun++pueWs2nvJde76Oyhret4W2/oNf7pXhqLW+7VTrGc1ioc6zGiuKv plqwwHohYv7YF3MWvxVZTGNN1oFyFN3lohRDKtxP/aPwHwO/+vzV5+SffyIN 5OGHH1ZzqP1t2bJF3Wp8VeCtBbVjx46gurX6398llfb48eO8E8rHH3/8Q//b VXjz5Nc4qtMy/V+X8Ivg1yifffaZfYKeXU6ePKlWr16t9uzZY+/SpA4dOhTs gq/x+fPPP5dzreS3fnzsJ554gr+FwvgVvsF2DUBvLzpHhhBaEDqDdeQCi6U1 0EpDDn1UH2M/PrsGgQIw+uj4W+9Pssux1QoR5MiRI8Ep8Blb6RT+2ZoCxDiS loZk93hjc3AiqIot+mj79++3T1QINPblDq5iU4ALRe9Ep/KCfQpyBPmC/1ph H9zUQu+uZUMd86RSAYDejyrYHeZRiqyF/pYuuScHgjL6GhqSFyzJb7OvnCaO q6WPY9ZoLaSuNxD2DvsQBgtLfmxHoc9eiKpylFucKoRfNIdss3Yvck3XJ6UT NJnqQn5H3TT6DnXK/wGfMBQG\ \>"]], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[1, 9] Pi], - Sin[Rational[1, 9] Pi], 0}, { Sin[Rational[1, 9] Pi], -Cos[Rational[1, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.9396926207859084, -0.3420201433256687, 0}, { 0.3420201433256687, -0.9396926207859084, 0}, {0, 0, 1}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 18-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Cos[Rational[1, 18] Pi], -Sin[Rational[1, 18] Pi]}, { 0, Sin[Rational[1, 18] Pi], -Cos[Rational[1, 18] Pi]}}, { 0, 0, 0}}, {{{1, 0, 0}, { 0, -0.984807753012208, -0.17364817766693033`}, { 0, 0.17364817766693033`, -0.984807753012208}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[1, 18] Pi], 0, Sin[ Rational[1, 18] Pi]}, {0, 1, 0}, {-Sin[Rational[1, 18] Pi], 0, - Cos[Rational[1, 18] Pi]}}, {0, 0, 0}}, {{{-0.984807753012208, 0, 0.17364817766693033`}, {0, 1, 0}, {-0.17364817766693033`, 0, -0.984807753012208}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[1, 18] Pi], - Sin[Rational[1, 18] Pi], 0}, { Sin[Rational[1, 18] Pi], -Cos[Rational[1, 18] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.984807753012208, -0.17364817766693033`, 0}, { 0.17364817766693033`, -0.984807753012208, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 19-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{1, 0, 0}, {0, -1, 0}, {0, 0, -1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{-1, 0, 0}, {0, -1, 0}, {0, 0, 1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 20-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Cos[Rational[1, 18] Pi], Sin[Rational[1, 18] Pi]}, { 0, -Sin[Rational[1, 18] Pi], -Cos[Rational[1, 18] Pi]}}, { 0, 0, 0}}, {{{1, 0, 0}, { 0, -0.984807753012208, 0.17364817766693033`}, { 0, -0.17364817766693033`, -0.984807753012208}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[1, 18] Pi], 0, - Sin[Rational[1, 18] Pi]}, {0, 1, 0}, { Sin[Rational[1, 18] Pi], 0, -Cos[Rational[1, 18] Pi]}}, { 0, 0, 0}}, {{{-0.984807753012208, 0, -0.17364817766693033`}, {0, 1, 0}, { 0.17364817766693033`, 0, -0.984807753012208}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[1, 18] Pi], Sin[ Rational[1, 18] Pi], 0}, {-Sin[Rational[1, 18] Pi], - Cos[Rational[1, 18] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.984807753012208, 0.17364817766693033`, 0}, {-0.17364817766693033`, -0.984807753012208, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 21-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Cos[Rational[1, 9] Pi], Sin[Rational[1, 9] Pi]}, { 0, -Sin[Rational[1, 9] Pi], -Cos[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, -0.9396926207859084, 0.3420201433256687}, { 0, -0.3420201433256687, -0.9396926207859084}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[1, 9] Pi], 0, - Sin[Rational[1, 9] Pi]}, {0, 1, 0}, { Sin[Rational[1, 9] Pi], 0, -Cos[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{-0.9396926207859084, 0, -0.3420201433256687}, { 0, 1, 0}, {0.3420201433256687, 0, -0.9396926207859084}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[1, 9] Pi], Sin[Rational[1, 9] Pi], 0}, {-Sin[Rational[1, 9] Pi], -Cos[Rational[1, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.9396926207859084, 0.3420201433256687, 0}, {-0.3420201433256687, -0.9396926207859084, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 22-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2]}, { 0, Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}}, { 0, 0, 0}}, {{{1, 0, 0}, {0, -0.8660254037844386, 0.5}, { 0, -0.5, -0.8660254037844386}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[-1, 2] 3^Rational[1, 2], 0, Rational[-1, 2]}, {0, 1, 0}, { Rational[1, 2], 0, Rational[-1, 2] 3^Rational[1, 2]}}, {0, 0, 0}}, {{{-0.8660254037844386, 0, -0.5}, {0, 1, 0}, { 0.5, 0, -0.8660254037844386}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2], 0}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.8660254037844386, 0.5, 0}, {-0.5, -0.8660254037844386, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 23-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Cos[Rational[2, 9] Pi], Sin[Rational[2, 9] Pi]}, { 0, -Sin[Rational[2, 9] Pi], -Cos[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, -0.766044443118978, 0.6427876096865393}, { 0, -0.6427876096865393, -0.766044443118978}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[2, 9] Pi], 0, - Sin[Rational[2, 9] Pi]}, {0, 1, 0}, { Sin[Rational[2, 9] Pi], 0, -Cos[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{-0.766044443118978, 0, -0.6427876096865393}, { 0, 1, 0}, {0.6427876096865393, 0, -0.766044443118978}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Cos[Rational[2, 9] Pi], Sin[Rational[2, 9] Pi], 0}, {-Sin[Rational[2, 9] Pi], -Cos[Rational[2, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.766044443118978, 0.6427876096865393, 0}, {-0.6427876096865393, -0.766044443118978, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 24-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Sin[Rational[2, 9] Pi], Cos[Rational[2, 9] Pi]}, { 0, -Cos[Rational[2, 9] Pi], -Sin[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, -0.6427876096865393, 0.766044443118978}, { 0, -0.766044443118978, -0.6427876096865393}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[2, 9] Pi], 0, - Cos[Rational[2, 9] Pi]}, {0, 1, 0}, { Cos[Rational[2, 9] Pi], 0, -Sin[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{-0.6427876096865393, 0, -0.766044443118978}, { 0, 1, 0}, {0.766044443118978, 0, -0.6427876096865393}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[2, 9] Pi], Cos[Rational[2, 9] Pi], 0}, {-Cos[Rational[2, 9] Pi], -Sin[Rational[2, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.6427876096865393, 0.766044443118978, 0}, {-0.766044443118978, -0.6427876096865393, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 25-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { 0, Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}}, { 0, 0, 0}}, {{{1, 0, 0}, {0, -0.5, 0.8660254037844386}, { 0, -0.8660254037844386, -0.5}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[-1, 2], 0, Rational[-1, 2] 3^Rational[1, 2]}, {0, 1, 0}, { Rational[1, 2] 3^Rational[1, 2], 0, Rational[-1, 2]}}, {0, 0, 0}}, {{{-0.5, 0, -0.8660254037844386}, {0, 1, 0}, { 0.8660254037844386, 0, -0.5}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], 0}, { Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.5, 0.8660254037844386, 0}, {-0.8660254037844386, -0.5, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 26-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Sin[Rational[1, 9] Pi], Cos[Rational[1, 9] Pi]}, { 0, -Cos[Rational[1, 9] Pi], -Sin[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, -0.3420201433256687, 0.9396926207859084}, { 0, -0.9396926207859084, -0.3420201433256687}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[1, 9] Pi], 0, - Cos[Rational[1, 9] Pi]}, {0, 1, 0}, { Cos[Rational[1, 9] Pi], 0, -Sin[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{-0.3420201433256687, 0, -0.9396926207859084}, { 0, 1, 0}, {0.9396926207859084, 0, -0.3420201433256687}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[1, 9] Pi], Cos[Rational[1, 9] Pi], 0}, {-Cos[Rational[1, 9] Pi], -Sin[Rational[1, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.3420201433256687, 0.9396926207859084, 0}, {-0.9396926207859084, -0.3420201433256687, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 27-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, -Sin[Rational[1, 18] Pi], Cos[Rational[1, 18] Pi]}, { 0, -Cos[Rational[1, 18] Pi], -Sin[Rational[1, 18] Pi]}}, { 0, 0, 0}}, {{{1, 0, 0}, { 0, -0.17364817766693033`, 0.984807753012208}, { 0, -0.984807753012208, -0.17364817766693033`}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[1, 18] Pi], 0, - Cos[Rational[1, 18] Pi]}, {0, 1, 0}, { Cos[Rational[1, 18] Pi], 0, -Sin[Rational[1, 18] Pi]}}, { 0, 0, 0}}, {{{-0.17364817766693033`, 0, -0.984807753012208}, {0, 1, 0}, { 0.984807753012208, 0, -0.17364817766693033`}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{-Sin[Rational[1, 18] Pi], Cos[ Rational[1, 18] Pi], 0}, {-Cos[Rational[1, 18] Pi], - Sin[Rational[1, 18] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{-0.17364817766693033`, 0.984807753012208, 0}, {-0.984807753012208, -0.17364817766693033`, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 28-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{1, 0, 0}, {0, 0, 1}, { 0, -1, 0}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{0, 0, -1}, {0, 1, 0}, {1, 0, 0}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{0, 1, 0}, {-1, 0, 0}, {0, 0, 1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 29-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Sin[Rational[1, 18] Pi], Cos[Rational[1, 18] Pi]}, { 0, -Cos[Rational[1, 18] Pi], Sin[Rational[1, 18] Pi]}}, { 0, 0, 0}}, {{{1, 0, 0}, { 0, 0.17364817766693033`, 0.984807753012208}, { 0, -0.984807753012208, 0.17364817766693033`}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[1, 18] Pi], 0, -Cos[Rational[1, 18] Pi]}, {0, 1, 0}, { Cos[Rational[1, 18] Pi], 0, Sin[Rational[1, 18] Pi]}}, {0, 0, 0}}, {{{ 0.17364817766693033`, 0, -0.984807753012208}, {0, 1, 0}, { 0.984807753012208, 0, 0.17364817766693033`}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[1, 18] Pi], Cos[Rational[1, 18] Pi], 0}, {- Cos[Rational[1, 18] Pi], Sin[Rational[1, 18] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{ 0.17364817766693033`, 0.984807753012208, 0}, {-0.984807753012208, 0.17364817766693033`, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 30-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Sin[Rational[1, 9] Pi], Cos[Rational[1, 9] Pi]}, { 0, -Cos[Rational[1, 9] Pi], Sin[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.3420201433256687, 0.9396926207859084}, { 0, -0.9396926207859084, 0.3420201433256687}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[1, 9] Pi], 0, -Cos[Rational[1, 9] Pi]}, {0, 1, 0}, { Cos[Rational[1, 9] Pi], 0, Sin[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{0.3420201433256687, 0, -0.9396926207859084}, { 0, 1, 0}, {0.9396926207859084, 0, 0.3420201433256687}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[1, 9] Pi], Cos[Rational[1, 9] Pi], 0}, {- Cos[Rational[1, 9] Pi], Sin[Rational[1, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{ 0.3420201433256687, 0.9396926207859084, 0}, {-0.9396926207859084, 0.3420201433256687, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 31-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { 0, Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2]}}, {0, 0, 0}}, {{{1, 0, 0}, {0, 0.5, 0.8660254037844386}, { 0, -0.8660254037844386, 0.5}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[1, 2], 0, Rational[-1, 2] 3^Rational[1, 2]}, {0, 1, 0}, { Rational[1, 2] 3^Rational[1, 2], 0, Rational[1, 2]}}, {0, 0, 0}}, {{{0.5, 0, -0.8660254037844386}, {0, 1, 0}, { 0.8660254037844386, 0, 0.5}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXXm8FNWZventLezCg6eikmQmMjO/jExMAiaiBKMkEUQFA4lRFhUw4gaK +8OoiTESnTGMMSTyJlEhbuAGBjGiKCKLbC6AgkRNIiYxuI3OJC45597vVt+q d6u6ul/3wz98v3e7uqur6373fOdb7lJVIyacM+WU0yecc+pJE/oNmzbhrCmn njS93xFnTsOu7CeU+kRXlP37Kb7/UCn78iH+P+zGF+75+P3H7/3vL9KbrNq1 a5datmyZLvX6NavWr1+vv2X5vjn8XDmcX/Gg1tZWlVFDhgzBvqF4HTpokPp8 v34qx9e8OhBvC2pQ//76yyFS+COc4DJzyrP0pj6QgN/yKP7iIPySp/vmAQdk 1I3jxuG8rXhdOGmS2tDSwpJR6/myDp+6qCfxuhZljZRlM2aon+H461EuHTlS fQGn+gJO6QihZhoppupNpzZSfAUN+oKRQM3FaVj9Spx2E06fUxtbWrIRKfJt pFiNklGreMBKvC2oJfj9T3Cer+OcfZub1fjx41nvJUaSUyN48NvBESkWTJpU oAj5QALqBK/rpGS0FN3ayAEp1BMoFORxlBUoj6HMBaIU52BUxKazckMNNUlv 6rzyXA5Qb8dPO1GYyuCoD2R4FOURlF/ghAfvv786+uijWemFRoyT9aagdeYR oWsARyYsgUEiGxJBVw+hXSSsBMtRHka5F0r6clEKdYERY4KI4aIxEJSiZiBG j7BWHCDqvEBYfUSxWC5YLEO5RyRBVSLEOAcLaotYDAIWVwKLFTNm9KpcGw0h bVgsHkL5GbRCsrLO840YJ+hNPlDJJ/H1SIOD6pOCnuUpxcLxW5QjUAtrFEGO 9whChcBM1F7VAsPWHwXjPCPDtxJk6JtIzizrTkPJh6T1B0DV5J7UPEZqJiWj Ne8by8ceiXyM+oeoAiIiHOeIYAk5UkT4ZLV8gwvDMJz82pkzpfrRDvbHwl4/ CwR+MmYM61SfqjoRHxYcZsDajhw4UL35yitqhhHk2Igq6Bm+j8MehwlnKMOn Y8Go3D8MgC7+C0HhlfXrRYxj9CanFi5cqFVBNjw2Y0YukCANFxsTAWCljGHr 586VSkd62n4tlEDQC8ltL5+LiwDof0CEX4JgK37wA/UWdGByE3VUpPFHofHL Z8zQdeaT5SiTkASdGc4q+fzsggUiw3CRwdoDTfKaMWN0VbpSDUh1qcnw/T1w bY1Atfb669Xf331XnWNEOtIRiTFtCCIKHLWo3spVAqD0JG2FYpi5gXb6+JWi uF07dohA3xCBrNEOhUAPU08hgSJAZSrT2DeAzdEomwTb1YLb5gULRJqvO6zZ B9oiko/MmCFGUQ5Gpcn8ADAhb+gdn2rRaaw+TpNcyDzdiPU1ybcpVj+IdTUM KqMPNsR4MiBLDGrl8hxmTxGPBFjHomzB+2dQNkpdT4ga4WtEwmGOhP8ECa+D hNmIhIbIbUGs1AAa1VWo5YuAcD2gfI6mh0Io10tbqPQNc+eKjEeIa3JlXCVH RmUtH02/wh+EZDSAOahrOz4/T7qhPC1oWqOwCp9mRD3cgfMoBJd54IhpdF6f do1T1lqQkrGN2oxf3uHQ9nEoL+L9CyjbULaK9q3ZWEcHs7HyftWBlvIuRbNX Bv5glYbWlTujK84FUEup0LpoDqMh9LOo9SV83oFCsKOUiPrEs43wh0Ws6xYN 9kot4BPSXuGJj9Jaomz5sM+C1Ht3764eRHV/wOeXUX4nsJMmWxyauEYH32kl H+q4KyaiV+KUKyiHV/iMieoVIK96hUySv/2xSP9LbHfi8x+lBS8K/pY4zwpx rEmKv5UGfMXpR7HT+QOc7THR0uPWeafXQgpjVT11ExCGVV+I/yts/4TPr6K8 gvJ7lJdEEVF79TloM2yhhkTCKqPMo6zxMW2yK8TKbWmfWfjIhWbZJt2M7WvY 82enWZZf1qwtv6JOnWYNpx5uVr1OXtgXXwwDWy6H1UxNIJttyi3Y7sIe2xxq ypLNairO2B3/L6051Okv01o4wvCIGFUHKAudYbbuWmnbfGzfwOfXUf6K8pcY lcW5hGjkONNtZE7n3ux7sWvwCKVaroWtlebQONuwX2P7FvbYxsUpMMlbRMOM NO4Q4SP9HTsWHBNhAx82jUyvyVxIk2uDbk+M/nSnTe2l01iONH0ZEf1WNPN/ sZdNfVOau8vRZZJXIVc3t4QDE72KBKYz3NYW9ADkhaiVPW72emuqUt1PV311 g9ncr8Dsj0LZiffvYB+b/LY026VvnMeJ0teXRiKiSZMH602jNtEDoeC7UKvb bK+ic1FFZ8vUsW3zf0KlA6HaE2E3r6Lm/8Ped1HecdrsqrqUW9rW4ndLEgND ba7XFjsCNS/Ftw+2tFRX3XH5rB4ZUvtxvFAzex8Y8B2A4W/Y+/8oLgRRtsd5 LpftVvVuDF3bEo6hpxscDtabzjqGfhm5wPVwzw/gsKURLGrDgX00EAUNBPug I1HWQoK/Y+/feDTRaNZ4xJmBS4lXhRLRwOvLp53AG4KiUY+t/TsI+Rt8u0Sg 6AhqaET6CiLWKsaBm38BOiuGDVNvsU9MjuxZkiWlfGKpZB3xO8yQLgEs9+Nr QpOCJapKNNlTpnw4uM3wOpgdeA7pvK9334iP28aN09CkZE05zjMm9k914emk Hck02PJigSeBOao21OnjGJP1Kq3Y/hWfP+DR7+vTzBW0/q5Pk55OcX43bTYR wqurjq9XQQziVQalqsSoJmGUa2brJk3KESjsJlKzsXurwcnAtFcAU5RZ5fhm t38THYCSTOS0sGt2kUrBrtqQq6cGLB8ywYUA70O99wNNPKI2gwNDEPY9vPd4 8XdbKvfiJZKZEGrdtD2eLfZYJse8busJOzafaiwoE8T67hHgaJXjsd0Fq8wS vrxw7rwwcuWaZrme3kmJVAi6rPb0n4U0i3W7+Fq/e0jXNQa79ficL2KX1dht EOwymnd7B8mUBbBaocCXTH23LYCfQl/3Nj31tFhDEOFfRiOYryr9fKlmpwQI 64oQ5kMQWuNtb3jwdTZ9Y5oc/IhAyHx0wIAB2oSzu5OD9U5U5fKPCIiNxDAX wfD9BAzTxI5ye7E2Y/uu27fJ6gGkjwgN84IiacjcZH+INQCF+QlQ7FxEMavO d1DMaBz72lASMuhoLHmzxR9Lkobi3KFeJ7c71QWyOMB4ELontzEJ3418zDpI ulxcBsQQU7oRyayD5MYYJNP0NX2xJc0o4KqWILac6o6qNISQvB209EXmDuCk GRosqNuEjlzMxIxG6LhHEcR8CERr2LWKMb5BbztvMsUdauyidu7YoYZC70Ry NpqxW/odMAIOV3F1IGH8vMDo8LGJUGYkxbFQfmCgbA8l40JNtLvvSRSnhIfZ N8yfryfgmmFI7MDdgQZ1mIdE/bdCeb8AKFwrYd2iA2BzEcBsCEDTn8u7mXaA YEZj2DuRj2kCTUzCGEKwi3obGdBaOM75aAlbwQVK04Hk1VwuCjTbT0Uz7d5Z TxJy9p7zYKzt56iBo3ckHh3hodKVE+z2TsSu2rEl5bjBZHcSrl5tQ/69RiCm O+IkVn9Q4NMow7j09hrInFc/x1d++tVF6adBuwnH/xS/zKgb8FqvDoWb4F+X +np1MJAgUjdCRw/h23VcimIGBwjOh1I0erLPgmct2TrCdnZW4sZv48YRmChG 8LPko5FvENRXgXQ3QdqrRo7M6MWZOb1gYUCx5LiCKac+h08Nev7kELyz5QBA z78GlCugDpPGvUef977wqW8cNg6z9vYyq9wQETduEM39JruT0z1DtCKKzwgp nxeS8pRPA6bbIfidtFOUu1DuRrkH5V6U+1AW6Ybdj9dO6glw6h3RLpuyGp+7 gU/8+xK2z8nI7XsBRfyECltiVQiVFA584wZ6AZd03ia5yPVuQ6inhItbhZs7 RCkvS1U7peo/iyi7RKFviKhvG7EzWv66ADwSjX9dUa5KJlkbvOzAZ8T1m4GW PiVp1p6hgknu6o2mVDR7SZj8ilT5ZxHhrwLWG6JPAUoZpLIBUj+Hm8porHJR mvlYtlciah3h9D3Z2ykubOk49mL7OMapNOvI/BxLgVu2yLZ9vIlGpc4+aVTA WeemTnFXOu12uhVN0+fKsu32/6XGjaN9f7vaYj38fwipjybD9nRA2ySg5arv /0v19aNrOE52V/81qT+Bdh3JsaMB4euA0uUYDv3dmWfqA6YceCAONcDxPf9e xHe94sCMBofQKHz1goMvNQsh2Vv3Wp+C/+tADt4HYCMcLKh5o0bpAzZMnqwL /+aPGtUkCF4gCBanMlLRsT2RItrPd9dHnuSum/2I0NHAMuIzn1GzDj9c05Dv e8cBWO2IEe3c+2aB2DHiIs0QfIaDm2rFwfo2HOyJskQ4GOQnOfX4xInK/q2c ODEZuFpGj7i07iR3Qbkh3Wo5bGNVSVcXIh3/8ignCukcs82pLaedFoAGj2dA y4VAc6bPahBASs3+PCkWO9EFr8Mp1zdMOYveZBipNdSLBw9OQq/drIuLF76u vJvdTXQvtCiybp3Dus1lsM6CVhHrcAyBu3vsWP39esSJm4cP1+8XjRmjfMEi U5J/ze2OGL5uv5P2hRAsn3qvlEO97qWop16ZPl3vHw7OEY+3cGz/zp31vh1T p/ZKxLC9QaOcIYBoCjjBvRCpY4h4ArLlBPdnaEUAr9h/f13exvueHgSdRQT5 KAs1gOVkfmnjRzTzCwFY5OHaWvDQuEB38CnCw5yDIFG7lhesomzHT/ZIRLAa HKw07xvvXpoXz8HnOoyDdmiOEK2EC5zYvTu3PUojWI1YEjcsHJf3dZFJb/6N GDFCzZ8/Xx3tQvrRYGUh1CN2YO3ugTVXwwCTMjPsKrBefPHFpg+1YYNcbSxX tTapVyNMfbrGTD0VCEX6ePUhVC2yhPJBKAA+oGsiutGpNJe30am0SkOPO/rg JI9dIvjOmjUrjK+h7dZ582pF2+hI/v6+IdZ8G4Df1r6CgSmr39v9nbx9mzJC VNwSwaQQlTQ4YZNNjbT2DyPdC8Wb9FDZk0gESvH391Xi78xS42QZoefb4ehv keVuostwVohwuG/NQ5c774QEtLNcg7p161bl/vGzuRuAGiE4b0c/c62coUoc VilJXIxnOQdbJy9oFGzJWGL7odaeXZRUlaAWN/ztm5qyeWknQfeee+4xg4FT pugtP0fQ/cixOCeQOjFONcTBXEaQi14XlHby1LdISdJXC7Mb5PjHzwKz2eyn ZyBcEj9TBRLHzalGSKyKLC54sK1PxLaMUeH2RDjfwqUGuaLu9ddfD7Iz7uFW qTDAyTzevjt4nBc224yCHgPeo+CBu74d+VraMBedMYssbsrJRQP2JnEs9l5y ltZz5szRn7kVuhuNSGT0s3xLh7O8zh8H84nI16oL5xuIeUhuJnfTlVfqxbbm qtEGddZZ5uJn9kGsP3EVwP0hxJuC+bpa0t4uOUhF+4If/JwH/IZqjkC4XmYr 6r5fFqJwUcrZEPrbqPQoFC4D+5ws6PnO2LGy6t4sHCekLBn9WheETXog7rGe iPtFD6aruGeI+dHplmow351qiU1S6iNJCoGG+8kmYp82AXRjJ68CeBRnewTl Nkg2BWedhHIKykkoE7ieDoVSc5XQfBb8xsmrv+PiV0semw72Tmf40eVxzGKQ ek+gzHhgLC7jd3K9vQIceQndWhy+hiujgMVZ+NmZKGegnI4yFeU0lJmy9vC3 KCuAU5rxHyTRguExDgfjpvyqzcHYFQ6N4gVc5LhHUOtUXCJd0MOUXAXBVfu8 hGkWYDi3X7+MOgeYNKvpeJ2G8kPsXoWvn+B9PFH+iJ+VM40QkyUf76LXFFr5 UIqBf2wnA91lDzEMbJAkgr012+GwqYS1c35HXFmuOeAAPamf0VeT7KMvqOMo EnFdh7IFx1YjliWkw3JPR7mjXno+2gGe9vDRTj+/F+VjJ+GjjUfkpLXe7VzA SvCyeryHu1nMIIRZwQ9YNUVZtulbDVU/XJWTFH/bhbjjSXtfdFwyTNo6cZ4E 2xLTOoIx8BjEFe8zAjA5bQ9jeTt0bWMlgSmuUxedk4ibXUQmLAiPEhKXWkdR axJ7htC2ax4a3towf4FerWxe5wwcqNFmueXQQzslxyjfeEQlM93RmUYZCA7B 2dRmbU/1CNuQuLCHbTb2u1HjttSxd4ubS0dgnBUPbOO9G9Eaq9hjS5q5iE4+ OiPA5ua1ch/V2vL0NYB6EUhleJrVwZ/O8XztLM/XtmwdpWvLDeIU3IzJoigD 7OaYnM/eXYJWErVSzkGGcKwOQTeBaExWVqNcDVwyOhrX68jMhGZP6cKSoLOB K2P0G7yNZjho5UPAFS2/7eB5cTg3MTT1rnpokkRUMDS3FO6ViotMc5nuMu29 U1LjswUfJn5MAZELqkW8FmONttnN+Ekql+nLpMJ5e8xQeXTcq7rBJ0VOOtYF skhGXkR8t3Ro7xdStUhf4jTpR7A/cTnvm4vv2Td7DOUP+F1SeE/wltGMPoxf 1oMfyFlXCQ+rEWzElse6waZ3cFtjjq4c1r+/huks4Rct8lY090G0agnKZrSk lH9800ib0WLnQmH8BF5ylZqSvjFXd4aBzlFCTXkzNeXEmVIzjZJyjnExbQ49 dOIxlKUzZ7ZZNmR95Y6WsoN53KR4LDt91u0b5i6UzoKqFWQ8SaWAOMZxkHad ZKXBWshYBC0bGqcug411cTMAMnrthOtcLQNN3LShk02GcGyKXbfWDgKqshno M2a3hx4dBfUmO7WKL3bFmiSN3zT4je14Hh4vqy8SeOibGmnwB+qUi9fa8jAu 0JQ51BHCsSlxhVC1ecjk8RnfyJvPjBv909bR1ZN71zSouMkiLzkV8L4lJHTX AdWUhFk9EZB0palviqhz3FCwod8+XvpVEk6SxijsbJ2d4D/OhbApcalPh/HP Z75dImFERoMTe859EskXvUNhUgCJDkdwjFKQ+7aQLzptvBvJ55si6xqZRGYY fotxpMYhxDfuIPmg6SjLWG+vYHVOe2iXYlHkvp75hhT4dYuEj8tRLH5ViByl Bsk9mWAEvprwrz5xxULM2K1vltAuLrXhg+lMrlphI+0Yg73WSJD7Ti2JV2hD PJlsjZ3v9sHWs5rd4HJGESTLGxVGqsYc8y0PiOGYbwq1CFYlpLLhoJwBA3fK SqA6obakcq8gSkMqH069In2HIk5xSUe5jj8pZ4vgVENKJczUF3MNn9X1qmaf oJw+viRlZk5OnSgQbYuhkl0LVTMqhS8VcObee8cyqJru29dzp6VF4Iku+KiU QZ68IRWDfCbW1NF+O5JamaUI8qjIXm1W09WIQYPNCFGbi8gi7EFe3h76lHLU vlka9yE6EWzi1gvVgD63+wZ9JO6HsMlKr4bzjHZZyyyOC5+rZ8jOkZHnaVI4 25HRQ/g99IKgy/gYGllUxQwkbbfa5keC0HgZqHVXX1SBPdFJazuuM9g3vpgL CCQANTmJJHct1VM4ZuZwmkxksNyC/ffrW0ctxmuzvo3UfXJbqXtlNd/dcssp 3oaMC85ORjkWfUsuQrsYGD7A1S6oJ9qP9iRKR7uQfSRI5bqjHjIqxqzbrk85 T6YwLiOvluhpsWdw6hekrRmqN6MFzmtz2iplizQlo6HooT3QU1IW4/y8n9cN qIOr9iayHgBJFTyFk8flToLehI8A4YzpWfC6OctQLHDTxeJ+jc+PosE76Olf IFjb9e+3iZ6f1yARut4h4DZLi54RXrCFm4QntERy5m6cdzbOfxxEnIqe5hJ8 trMqTjIVwq1XaMa5g1kXwa2LQzh2986TKUVa1LPsNe/gKM8L+nfbRbPbNF6U tTkg3BYHtyTMyBS2mkHuEYh6HcTjOt0zUedvIEMkwZLrryYK39xZ5o7nW9tB 6kIbvgnX6lOQLRtrpS5wFrR1AhybT4vkgvJrUNnX4AZvHDMmlHeFUNvdbNvY ZoqpiNoZ+OkUFKIGtjXWim0EbbUwi8nX9XwgIWMyWEcgJRmT60tO8rBtU5XZ FkweZ0Ns84FWkHFqDghGAFOdkxFLHxBcxEi1tS3FB6LqxQooS1DhCfBxU1D4 cFTmaCHIakq1Vc4ITYRqGQ9qOUHNOjZrnEStWwrrbEgVCvTDG1SnkHW6RGPc /A1qPB6QnYSyfv58C9nJMSyLXiZWA5ZF8fqgxY4/5APTHM8nxQlePWoZBSxc ZBkdGLN/PsdwLOC6YfJkUmqEi1g8yez1ixWRrId39neRs5aQmBGx8wUx4mUn ey9EYYrRqyZ+3z5H1TVGMot3+b0PUI2CRA8VLxQ6xWFWdKq36szqFJrmdTHi Uv+lESY1VZtJcYZHJvF+Dw+1mAe5jhs0iOtYhrsI9QotJoi7ErZsJnUpNX+m ETod9ni5w5zmCHNyIeY8x93EJR9CxSKT0bh0jbUvlzj20fAPovBBere2tgoq kzqSN3WhyTH2m3kHJaJBnuyZwo76pPLQcfmT66FJlN+izIUehhmiyC0VBJNe bZadVIUpjbFMWQHKni6xHnjs1dEOeFmLeTTAYbDjX7W2ChiTO5IgZh0Tnces gQPZj+tbFd/qS3TifCtNhE+Y//qQISoEQY344F+BdBMkYHfMQtDR7pNWMdRY hbk9jjxfolm9tnmznhKIriWqBg++xuuaTOoyWfqjZ+urnNpDAl+2m+QnrRnw Nvhc/SjtN08q6amnjqpEgOAK3OWwfA5tdRUG9MF2zrBhxcYb9edC6n+ecIQH MJK0n+QTLf+tTxxqmh5qeXNoMqgamn8WHBuHVt+N1g8qan4odrHhPGVR817u 9/F2dcr1gZb7VD65fxyox+XE0nzz1KQ+beYMK1X8nxDqLkXImw8TZxuvDpa5 Z7XpT23T9vJY372k64vLDi5i4jZ+fKjd1VH7TmnzBSh2HHMjtv/a3GybPlqa zVLC5fWumsuzpD88RPjTHFP3adxeH1JK47wU2LY4o1tTCDRu/2jqyyZN2rdC ZXcLXFwSy62yLcuPCLs209492qXpjTDmE2G5y/mUTDY1bxUcNJXN3jdZs02p NRvnztxwPizcTPOE0R7eGdtSan0ZbbkEqpyHNphM3a9OthftjqozJrHfo10D WtTmF0PEtS2sRJEL0IqTIT1nArZr/aXSYjEmSeviudq1LMe0FPUO6t+fdyeR 1pkHDncrS3+/w1k4j3InYoyh2XZObqZUnpejPaviffjwncOKKaZpW5fE6fKo 5u6A6C164eHzLdZjUNwXAn7m9R0Z3L//ttqrwNd0TuVr2LjLTSCRtplHqncu qTe27Xnoi1c4PcSlDuFmGVFfIPFMxGCf0UaMvZP9yh4V+RW3m3CQMbRQk0qr i6NSS6GC7+LXW6W5PnVlRPILDz88UFVWXudInhAExtJ+pVvZfuVmuO+Dw73g Mx21rUlQG5dd/A9k3GIlaKu2jHBykdxd/7pRo2h4NvQPMh3eaOiPSXd91Gws 6VqGm6RuuNu2LsGook9/jwASzjWvg2RbhD3J+qsLGnjViBGB0+S49ZyQ2Xkp 2r0itzIPQu6DiuAlpWlnidp802asgRFsMpr1rNSQoLasCGtbNXC//VSszipw KPWxDuVS40BGuE2K1xati6sE3CYlaSsr/v9Oue1+Qz7vaqqEorqW5UuWA6OB JoxJa85OUBDXOfBRW8/I5xIKqk+hjBgX0ViSYkcZiznKlbqtDpaCgKOR990v c+BpdGCx5nhPV2d2545x40r3dn1EKoQawIe2Dza+TISf5oGc9yviCohNLcV7 mKWA3AZWQj1aVl3zj++jgTUfhV6LntGnr2uD/ePClIULF9rJ3GkR0OmtuYKD 913aKHKnBd0lPoVfBIVZ8LnFZy/4JdO6rG7BSOk0y6KH6RHEb4XU4yH1BiFY 1RH3mmpDrKleV+RIWOQi2EydToTI9iEXtQC7hNMshOD+CWSmrwdBZA3YOQ7K 80RcGmbHolwIoTy7KOWxrpQG2HvPO0+z16537ABg671WuEa6FxBT1jyfK2C+ tHKlBnKhrEypMpiOkdVHjUxLtxaSfRVdzdbW1tGuZAbA00Ham6HqDgHQkdBK eQ/9/cCB2tZhPCLhDMFucWurmopG0uTtIGk7sBsklxzwb7LFrk1s+ykYt69h 3Dddcbqop7kuBkp+mMs9qgSYZ/DGAcz4TUciuZL5PAHoVMD2Y5xhdfsBinbM A4ByIskGHPAjJp5GkrGuJF30XT+P7CBsMo5Eh4PafMT3+uCWLOdXgM3WJGwK 3kGLJ884Q+dGMrLxM+joS2i/ENnecet8B55/wRluwGHth6fOCw9Hepm26Zk+ yE6pR0GLh8DGoTC57d8FAg/zguEQmCvo2gkPV3x+Ekmb/aOHemDcuGaBh3JQ Vhcec0WIulCEuQmGPoqz2Dg0BTRJxOEygaKLDKa/+ggo1BNVOWDAAEIwLiwH RRsFNh0DWRbANVUAiu3lcJT2XJyG9dtezonOoHRPQYcec7RoiXd11XcfMVJd 5EjFr/4NcnOdXsXo5DU/JkKqvOTIvO1mkiTyxJ9L9KZRk+ar+JoXCPLuMilx cYeQKMG30JBDUPtxYC0XLujFVNAdJSBT6KgdKeRBfy0ihL0/C7PbK3A0f1Um DKyO80QUYLhhq1kHB9MiXZms6VSF08eoisO+rFaeR3up3tRrq+bX/4zDJuBw UiYVDLmQBKBsg1TOttjKLU2JAmsyE2fqMr2pCypn3slx22PwEz6Geq2eHohp e0bXk9VWYmfFjDANQd1WA2w874HD+i0AZmxfXaE3+eC2LjyEhx4ElWTUQH2D L7oeZpEsZuQwp+Zy0SQnq0w1WV1PXuuaP7dQs2lmTEX9UG9yoTtMo7ZGfXw+ +IUtFMhk3krflLfbx+8/fl+79z/Sm6y6+eab1SSYzwMPPKC+53yV1Xuzavny 5Xovi3Fj6moh9ssvv6wPYnnttddmmm9ncZORX/Os9teXuL/O8xfBr1nefPPN cAXFQ3bu3Klmz56tVq9eHT6koDZv3hwcwq/5/p133pG6LtabTvrcd911l/6W Deav+A33WwDs/lzkzBTCCoIaQmfOarFsC2yjKYc9q4Gxk67dAsFCYOzZ+dke D9nl3BJDC2r79u1BFXzPvajC1FYIIOaZrDSQ3d7S21bEpnKPPdvGjRvDFWWD Fhu5Ay0WArhY7EGoKhMck5UzyBf600Xhk7utsIdb2cixjJCKANjjQLAr3LPk dCvst1B5Rk7ExlgdOpJnQ5JfFtacRZzasudxGW2FtLyhsFeET+FgEZKf+1nw PuNpqpzlkgiF+Is6z77Q4TnNdFspKii4zaX8kebWwneoT/wD9bNx7Q==\ \>"]], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], 0}, { Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{ 0.5, 0.8660254037844386, 0}, {-0.8660254037844386, 0.5, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 32-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Sin[Rational[2, 9] Pi], Cos[Rational[2, 9] Pi]}, { 0, -Cos[Rational[2, 9] Pi], Sin[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.6427876096865393, 0.766044443118978}, { 0, -0.766044443118978, 0.6427876096865393}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[2, 9] Pi], 0, -Cos[Rational[2, 9] Pi]}, {0, 1, 0}, { Cos[Rational[2, 9] Pi], 0, Sin[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{0.6427876096865393, 0, -0.766044443118978}, {0, 1, 0}, {0.766044443118978, 0, 0.6427876096865393}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Sin[Rational[2, 9] Pi], Cos[Rational[2, 9] Pi], 0}, {- Cos[Rational[2, 9] Pi], Sin[Rational[2, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{ 0.6427876096865393, 0.766044443118978, 0}, {-0.766044443118978, 0.6427876096865393, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 33-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Cos[Rational[2, 9] Pi], Sin[Rational[2, 9] Pi]}, { 0, -Sin[Rational[2, 9] Pi], Cos[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.766044443118978, 0.6427876096865393}, { 0, -0.6427876096865393, 0.766044443118978}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[2, 9] Pi], 0, -Sin[Rational[2, 9] Pi]}, {0, 1, 0}, { Sin[Rational[2, 9] Pi], 0, Cos[Rational[2, 9] Pi]}}, {0, 0, 0}}, {{{0.766044443118978, 0, -0.6427876096865393}, {0, 1, 0}, {0.6427876096865393, 0, 0.766044443118978}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXQuYVlW5Xu3/MjMMMuOIBFhCj+cRfHrOkZMWVF4ozVG8EaSDeGFARVBu XhrqSL+FPlFJmB2lJBvS8HC0BLIM1HQQ5TYCA3iBQZDKFK0UhNLSsvN+a39r /2utf+9/7/3/+5+Z8zzysP7L/vfl+971fe/61rcuc+7EG6ZcOX3iDVMvnzi4 8bqJs6ZMvfz6wWfMvA6HUh8S4kN9UIYMFvT5X0Kol3/h/7/q6IWOfPD5g8/J f14g37Kio6NDtLW1eaW5uVl8YeTIrGgcOVKkxCR8pcP79+8X17pXzpNvGXlI XbV48WK6Sjjysnrx2aFDxecGD/bKTeefL+6aMEEsQqH3H6L8AGUhyp0oN+L3 Yf37izGjR9N9Z7lPmivfenky0lM+j/vTMz4/YoQ4BXf+PErT8ceLH0+Y4IhW 3KpePNHSIjbkcmI9yjqUtShPozyFsgblSZQ2lCdQHkf5Dcp9M2aIAfX19Bh+ +NfkW29PTf3hJ0G90/Dgi/Dgu/HMe1B+Pnmy2JTLpcQzuF2VaMfrRi62MI4U p8YTZjULRMKsgPCfGTJEfBbl9zt2CJbmqxYUVC8KhlMhCUkzDyD+FJI81dKS EltyOUdsxg0zJJUUSpV2KQIJlvZEW++KJiVzpGBVnlhzm5rEMaicUyDSryHe /r17lVhflm81BWKdzABdDIBIpOUAxxFbCZ4OeokkXZ0hnV9N3o3bnolHUM19 A9o/Duno9xeWLVMSXhsi4bdw2RJIuA6XZqNLmJIS9vG1s5W41VmQaiCkGo33 n0HKLXwtndPR2srCTY8hXFpsy+WqSEKHJEzLW6akiJu4uLbXEGh7P4EgoyDQ J3DrMXhfge8v4PizKFv5HnTu09/8pji4b99MV8ipLKTuCOTrx8IkbCFrSMis KWTUir4X0pwNqY4CbF/C+8P4vhvHO1F2oDzHUm5mrcgAyBRZzMnyrdrAcviw YeJEiDket7vXNcPDPAntiu7nKyGZVA4aEmYjUG7D51WQ7Hf4bS/KHpRdLOHz KLi7rJl2NgaYIgt4uSagH4bkJ2tbWuqDBHSkfH0lvRF/ngOlTsS1n0X5Pq7v xPFXccYfUH6P8luW7kWUnSzddpZOM0WWrlm+VRnSEc1dlIcOJgipDvepYtFf Ivg/OIeYnrT6d5Q78Xk1jv0Rv72O8hqKLeFLmoS2LZLNblq4ULz3zjszXCkv 1TC8B1KSs5zOUhIJPw0MOlg8S1BHCjpQLIVAxBUnALbPMEX9Cpf+Fpe+iTPe QPkTyh9Z4H0or6C8jKIqPYJZssDjAwRWFgmuJrlkVUvnzle/OJoOiv9leVVV X4IrV+LKP+DKg/j9AD0PJarsQQZLjki8uq+jg2Vv8jHYkzSw10CCzWwBKQ92 qYC0FDFY3A/h52rCU4u9CN9fxaV/xRl/QTmEQoq8xcooRf7MigRZTpBtt+dt mxX5ksZguudR3EAhw2pI8wzbnBOkEq4n66LmXml0EsqluMdjOPY6fvubvP5t aWZB2qmqCtPOzy86Cv3CbUHEGM17ifgoLDiZQwKqA7fJeoZJROqYMnWUvIgA g3RELCXOg15DgNHxKJfh829w7E/47V2c9Xe6BSmbFu/glRT+q1scqW+/Am3L dSqKkt7cu5e1PZ+11euTIs5xkJPce0OOWxaHFHeC9Jb+JlssGPkDuO5mrtfh KBRUteL7E9D7zy0tjniPrn9XKg39pfpU3qHDhMAAicEhrcrL8czn2DM3a575 KiqXETiXo3eFwCfR0H0CNXULJH6MpKVmPCOB2KgVzwzwuonvvlmqZNhCRsNE 2QLhcrKGy5bJk1PinzgtK/6B1/e0YpjIRzwTUWYS1ef3+XhFmM9vaW1lhM7W fJ6I9wvwCIoqqOV8hMPEtexLEi43osvIW+lBQBApwFcIJd1fFEYjURYDozYc f6OlJUs4OQSTtCJgzwjJYsNUKeJ4JmcQxzQXprO0zpyC6QJqm2TAvkbaBtme BpdrXGnDuNq54+PnZimJVo3kobs1pIYzUhPwnZB6E0imxPvklwZertdlbK+T YDmVIB0VBjPpMFJncn9w+fLl0t3OQG9oMVSiHtJqPpvw8kXL3xUtZnJDqV5e q6+D9VEExacyWERJcL9qDyvApvtgD6ApxuwMjaaoWRoBkqZg+iFU9eMkUZsU 1ILOcXuiYRSWlhVFbfe5AAXhnENxkiPhysi2WQH2OADbDEAlYdXkYesx1EX2 AuoyUKuRiJ0OK1sGFR/NuXkKShFQ3qKNLU76qJtPyHh8prrMXjsITRWt3Qcc iAM5Tnco4Yif66qrvVDmMW7q32MvTJuwhTDZUV3GZFtbW5WhfUFLj5wII3sQ 4q/CKY+gPGbBtlplOHrbvipBI+ZbyOkp1fHjvoIj2T0rpg0fLtQ/io8o9vt7 PjwgZP6RLxK+6q4gNgIuCrGtdfv31+jY1UrsjoI210Hpb0P5W1Hmo/wC2i0C KLfh8/dQbkdxxPfxWiezCf8JTKgQUJ/mOJ+8j7o4D+OsX3Nn5S9sEvvw+T/w HNf00uJR/K5M6F0PmkK761ksR5mHa3R/rRJPr1zppVfIYoiIhvG7Q82dIzMI tRKlC3Hig9SvRlmBsgeo/Jnl28/OclCqeUiq/lc2DOr+KeRm4nMk5Lqc6Hbl golux7JlBnD9xKF9+8QG2OQGtlGyVUqntgOTXWzLe7luXuan7eO6+yPXpY7d AVdyBd1fWLFHpOG60FFHNAp0PYrsGLZG+TZIbMeh9XxKBwNNl3byrV7iW/+e H/WqD2RvaJApkzvEqpBKG1AN1DbQP3pvx3dX/WCuk+hlK8R1pEQxrgvIZV6t Q1cndi5bJlFtZ9vczra6k6Hbw9D9jqF7hZ/+uhSX5OnlQad7qw4dqXYKOb1r cUtAq0nTXNqmOUdid0QiLKfyqwZ0/eShtXzKZr7kOb7FLr6l7qyv8KNfz8Vy VsoSKegay3FWNynzN7NliMNvOmZ+/OaT8TUxO5L6W6ID/S4iOOWtz2qYkQG/ xI8o5q06Zo4UPm2Y3CM0COZipsUlHmbSslI9lOA6wGZX612tBrGNCU730igE 93rOIDhHyljl66RBwci7Iabm66XdR29TTeBeQyhn+6iit6g+GgDcoVzONxb5 0f8netOHjwzo/GMRnd56WizSLfQ2VU8eDfL8tKcFIn6dLl+WS9ss51bXkYmS HI9JmODVSV/VQxHdV+1QRPlqmaFI5B5Xvt+wC3DvTyz9b8MWkeWm6Mi5kQhZ 5EY+M+FIxI/lLo3f42qBd28B4AZyVUV7XJWgOQM7NyLZEhCRxHHbYhEJ81yx iCSQ5oC/DpzjQZcEzemYBdHcPrglYzaKW9VOn07DC7m8p9p46Z5aUjiSscMR JrAAfgvErDL8FjCfwEbtQEB/IeFY5BSZZCkpFiHQOmR7nGAQZ6MWRG/akMxV OnD9jE5DUCSiOg1lRCJ6RytqJML0poArSChVlt7sgWGit6v0Ub/BRs+hKyKS qL0tWJcfcF1Hb9osDxOzOq/T0J4r7DQEBSLKUSsXiGQjwVZ5htNGmE3g4ncZ ujIOSYnZGmiRGS4sY14iw7lz9MQ5HITYCUy6Kq6XWqCJJDpaoDcdtW6mtzdB bwZwDaHpy1iRSG0F+luwMT8Eu57naDDaAi8ogdm9AYnLc2kbNhfuKl+PVdhV gup4RNrErl9JiczKxyRFsasw2xWZYnOlPldroOw+JJDNLBqTxOtuZX2biPck aHp+SQGnZ+U0p41LeLtz/oSnzbkRBnZ1vp0IO6FZbmzCfa8YXS8bv394+Pkk mZJmPH3+rj0wbaDnBijrEwxQ3sqFBigRGC+jobdVRy+i3yZPeDvgoQzdeRyi JJHaTDhEKR+3pPmOxqYN3BoKsppBA6xdF6GkLADTBoBeerjizOc3xVmblCOu MIFMIskZM1op3iurDoWwi8gvaLzaALBf0UxnhUKWCL2ztAXgPzUAu43/aGjn Cn2Kfd/AnGeJQUsJg9axgQsYTOwfa0pYEAUWGb02kKvz7WZEHYNNOmRJWfCl DPicbmQ/a4SHF8kxiNFyoGVGLp0zZ0r49Mhl8gknyG97Zs70Y78QEEubR5Ek BTKKo60gppxsaFgQc+WJJ3oQnjBwoPz007Fjg9w4pWUJFITsyhUOAsPmYRMJ Gvg1GJnRYkO0kYKZ3oHBTMbh2diplDh50KBiyeSI8HUXFVr4hSVIy4hh9MTy sAEDvIGz20eN0ptgv95byqclMacKdDsbTnJx/GKRfKkasC0xjCnw4/OGDvX8 eMxxx4XFMQ6D+BWAuM0XxO5hQ33o20Cxr2/XpNgwbgkhzdlDhigMj66vj4Zh ysBQHSthklllKNEA0T+6iZpEjRLd/GzcOAngsX37KpdeeM45YdFNPCQrxo4h M4AMKI8qiHH8Oih+M85CYhwp/UvXXy/RG3XssbKLl5LfUqJz2jQPS78IJxDI KHPQEqVGeyoQ51bFRH3h85FGcrVSIY7exWvA69eHDJGLFgPc2l1u5kGY6nG8 aEA4sGiONUaUEzU//W8gxjlAkAZ1n2pqioBgujs5UZ8fpAbQDQAbQtOsCYQ5 fvOD1jQ1iWaACRD9ONEXxJAFQWl7gLOczGHYfMjDJHwuM5177rli6dKlzI1i bEAW1m+guNTApzB7nfUSOArap11oLZL0Q7a4g1eYH7WxJw/VOXPmSKW2bt3K 8Tij2regWxM2ihwzEDKm/1UbmW0yVfL77wLnt2DSttfrzU7P4U01NmVDO3/+ fBPaOq/HY2dto4dH9aHJn6D8N8FzgPaAmAt2TSl88024H8g9glr1MXuJseSE 0foeLsF9oGIz4sIiJZsK8snwjJ0MJ2SFDq3qeTs6LRRC21MIl8b0e/OeD52d nUL/R9/PN9H2m2hSubCqxs6cS6AI8UdxDvXT14I4UkWR7jEEXMsoP/TQQ1K5 KVOmyHf6bqA8sGiq2J55l0Dk5Zdlx2EyUMJ3Ihq8tRSQBcCcCeSKo4tOU0mK kn3mRyms9caO/tF3A+uGRDLKCUzididsp3XA4+NdIW4Om0/Vi3f1OHDggBe0 0RF6Fyp3Ly7oguRzrLlW+G03msgFoBgqB1taqoLQjpgDTDZT4DPTNKttzUB7 GtI7HVH2vWjRIvmd3pXdn6fDXxjk2dySQJC3iHZdccEPnL7AVgzQxc1oO6kc kjtuhtdAXBpvSITGVy9Y4EjMU3KDrZEjR8qSkq81YtYsdwtP6qwo5PWaoeNG TdSVlQV3Y8K6smLCfGWopK1eG3CNjE9lZAPJZ3BFyH47RPoFnr2MdtRFmQ5P PY83F6G9NE4aMULWQHNzc0pWT63cXIgQVkU1tERP9F3RFB3nKrmwm4PJghSm XiOPgcCoSVjX1JSOVSNlNAcbYSe0rRTt8ncfnn8lHng5yiSUZpTLaONJlDt5 n1LaHKeVlgQicrnMxDQovZ5kyBh9KjwuWsdN7DoZOwYAGpvxX0NNraMdW8lY gcp03HEayjUoV6NMRZmCciPEW4VzaMvONiAWMv/MAHOgMfsn6rzHis0ZFW7P UeFJdkocTscUnu/74Fnj4UnJ0k046xmUdpRvAZvrcOW10kVm4bWvmInXW3D8 KcpsoTyJshfXReVwa16agWeDMRmoi6K/x4pOynAkZFUyMtEbxgJAcacXcQ5N M6UyHxB9WSb0b6DlNNfj40DxK9TIRvy4AWU7Tk4y2taGJd1NeHl72Mqm3uNP pncYskNa2zYd1UFgAmSHc/GqQzlbYjhbbhlHGSnClRZQbkbZKfdALLLQOZnw 2p68YcDbN3ZavkIBnMsA1RJXgpCKYoKzcSlhjM+OtNyMjLDplK1cDsq0SRdH 1QFjmQbAdWWl7UuJyyySFar/Te6t4AJ8WUaSaJbAJZCXnHqqL8V2XYhsTfRg KMcVydOXulw1PJ5KibsaG8VK4NMij+HVdeW0Z37s9W4c5c5SuGv4cBUOBG9I 0rWZDI1bLzEB9UvRl8qtr8Dm1sup5hskBVLrS+3GsbBLNfBBn2/FcaK/LdzU yFyyYoA0259qn4gC6DPxKXy823MVNpkaePaNlJe34yny3TaOROYCmxlQl6KU WdTwXivNjYKYXwIBCmp+2NgYjUx1o1RN/SHC+maZXD5oJ5d7Cn0ypBfx5i9+ fahHANlDUIn21b8XuFzFwfBUDo6v4WD55/iNAr2nydRwTeldWg3RjIEooypc WNMGrF1NogGz5S7R26MPe39n457Zs8VSaEE9CIqNEejJftlE7pt9lXsWtHyE gszdHCWXFldl7LjKClTtruj78m6uBROmKq22W+0L3r20ak0XuVhPxQyQ2RuV 0aFy5ogRYvJg908TUOaBbHczlCp16kPY7JHixGB3Uj2o1awcPWnc5RPFgtae KcY1oD6iIHUZln8Pj7ZqQqMtfUFV8S6tH9QpfV6jlZ/vERy8r6ODQR5vLS0t tkot6vyIstcZBGKqJi0TlrPN0f+wZZMVo2CehGLgeaTX54qbNC81hxWlS+sD qFoLQ/xLI9JU3jL+VkW3Ee5400Dt3HeU+RBx8ljWVlPF+TUQz4wPngcYT8S8 fv7+Nt0uIUYNmqfHWLo2enhoJytC/kqELUUICLgiAJnOA1klgSQv5zl++ryH gsxKghMfbNJU8/UMICubqY6V/U8VBbOKrZImoU3geX6yLrzZI9kgz06SJbe0 tlr4FUtOJxU1xcr065noTB46d+6NBV8evcpNHvObFnKRjmFdaEK6a8OhQAzV ADptA0kpUsoRvEnMWJHsaLHJd4zfJT6balQ88kkZyfzi2MmR7ayOnZrLRNPG f3Lqqbbx+RlgEgSoz9wwwDPDHD8HTpoAi/cw/QD0+/MFtA3pm+ovbiRCf2Gr 2pj+LNMrpScTN6aJkplX4B3kYSMaStLA67p+eIRZcW4ejoc4wkMZPV9csVBG 4UdGR/i5Cc73C3cOjt7ji0N8EWcdG8glmxguK3ZxfNCrMrkvpG/XP1Hasyes 7S+ALmoOuOJhSyB0wY5bE8lxo/Be2GpeNQttx7JljJ87lN4ndNJMQLhSSrQS yHklQFckHUZbJOWS57ytra0GdIMiTadOIFqJNP3LBK/az2WTJ7ywZRbaRjhN OnRHhs6R7rJYhVf9KPD8/thNN3KdgVrfpGOUkmd/pg3M/mlsFennrB8tKUCJ y3P2GmcGbwJHJ3ZWtfToJFvyxKvYyIVm/fsmwnHa8JWBWmHutJzIxG8OQJzZ 9RZ0vr7adSTnM9x/oYldlDRpWGgSPe+c8V1uo0hOw60iJFfK6jDOiDJqzRyQ lJgQTTQgwW9bNcC6i+GC1hMohjOQGxQ7Axo3Hok2dh8buy7gOGuI3sAtfuaz Er2vAOh6HsddoGPXt6yMZ/yQxK/zxTalgMsvilWZdt3ijEx7pfjNGkNnxCZa cUhYjrNCcYgFV6rbyS1gTFwYsOV7DElkN8MDEZ/ccAnAxWC2/blEmM0CLajD 4DdBrtQIJM9s1b7dLA20VBdRWszRbXcxKe+JVPEAJGzmEKAluGZzI2DbWffz mQHXoNi5y8SjjhDAeg6jGcD5Zy4rF3ZU+YYdHQxc4F/6jTRRIjka4wk8jNTl POvMzlGWEWAIvwgDnSjFYH59KAWSsRFPj2KwsTpeh0fqCBRbCBk5xKi2GczG y/5DIl3AXn5zyLWRFwOqYxJNRMbN4VpYCRus7mcuNdJsgBYcVug+mVxYkS0I Kxg0p7hHdj1zbWltZaSu4FgiLOlYRixhzkLOFnhiNJC6lbbG6GB9LHausZxI wl62pfzQ6ZmsZSB1ZMEiNz2zWOmMBS0kaglCqnspS58cw4hdyXmKYkF93BDi oGKP8DSsAivVnVQVMAHGQKgLgwaTqhRCxuyr2OOXHxbPwblpJRytiVMr+Wkh 0stw8lKpSv01FAOpjxmBeyVihqAejwaVv/dl5AT8Dl7tR+VWaZfeovIB8vrL 6uvlui19Y4OreBncdGvTg6VoYcj7n4IMNlfZc1vU3zzh7R4ns+tR9F7OiKVF VFGGeYsg5Q6X95Lzq9SSZprUTOQ/E43CZJQZ7npAMe/441Pi13J55cN4peVZ T8pV5DvpPqTDEdJFnsBB2uZk+QR3q5MHUf4L91Rru2id12x8p4VIW/BcP86i QNQA7nA5v0DPFJY+NbzQIwPGeje7wFnTqdS+PjQXbZu7nlm4S8OzEidaMHk/ oCeAaM+R52ku6W66+EV62SUv7mSr2SmlyoP3PJfnWMPtbFVkKusB1gO4IW1U culgd+OSa/Hwh2nvhFyezehPPRngDQjMFyYVTPhNwy1AL83GppYtEni0Apyg mwQvnMUeRjdbS9sZvETX7KGrd9OnF+lTAHyORO/wQOw62MA2M07LgNnteNZF tFqTjBHfFcEZ2BXG92EDl3HDC9Upcimu1tvQkoryywW80ID9UEEEi1MYpTwT kxg5BJF0TRABmdcLXBRAjoSojwTJBmgTWwpp/AQkmIInnoEK+lFTk6I13rny qggBRTHnjB1QpMQFH/+4UP9SnMwhouetBcQMQDkFhSxpDSDqFQ6R64CpQHyU Edn4EFutZ6e7A9g0AqO78A5vM/A5PFJa0J4cVVI4UWv/gRI5rf0RYKFwIfOh dP4LwKw3PTjjuVgIQ9WEMlSHPJcgqpamsJGNiFQnWv9vgHMaQHpw3jwDoGNC 039JRxH3AR36d8mgQXIN5FwNlfogiwkmnobIxKP8isiGUqHUpbmNtmIeMYJW R/MGg1O0aEH5VYWjhXGwjYvZdr5+2mny9g0Vp5f1DANl09tQJqAe7l+82IBh gBGN26OEUWcrBU1F/xNq/CRtzs1wfH4Wx34+aZI8cjssJQIOSXCIAmEhDPGs kSMtEMIG5kttw5+A9V0NpUfBDapI44ZYrBAet3RoKvuxwmqUH7gqC0PnaOsQ 4rS9tHMUESAF9rQX3NoZM8Rx/ftnuTXZwzBSKYEFoocffizwQ0AwKg/BVK72 EpNmRtP6B9jzCooaUcW0Z8U2fN/FZjNc23Pm2/htD8Pq0Gu5BHBYLAIgI2i0 EYg2665Y47kKBk6dmDmo+NUwgE4pHumfldeT1uofoSEVVcpbfhDZ6w+L5fU5 iNDc3GxqfoRvZivKoBhtKkct2njU9/3Q3rXTTmXArtoU8vbhJhE+QH0xqfYR ceJukEW57v85QN7W1saqXx1h+Yxfy0cN/FeGDBHXoTyOzzukhDs9qXdxcaTu aVnR6t99Eyaki1o7bSiuab6TZXG9vr4kr/8uquUko82/WosVo6aefoG7fAmV vBj2Q33pFzzJdnpm6spPV46BSah/Y/G5uNIRXbw21MUf5w4O7TU7Wte1T+Tk 0XLoORZ63of35xXdpqRUeXO07HsJ2CRxt64NdeuvoyrGjh4tt7phba/hBbFh uZ8HuTaX4P1Z/v15Bp2bGdK0xjBo25Xp/Zf4XoIv18X25e9A0o+gamkHlC/q yvYpmq95AJdRGmgV5NzOv7GyIVWb8dos9Y/Yuwzv7R3Je+dD4I9Cz+XLl48x 1dwf0DgtxRXncV1u4+PR1YzQMJXhslUFLrsaLvqpoUNJPzW86SpY65v+WIl6 O4doB8p18K22ebdPFRoujpFQnVyC3JSaoQ5uhspy06xRkwsgJmvHcymm+YxI UnptKloPSq9tZmyUYr61lzZqrzPvWaQWbbF0nDaDDm1MUGgVxTV7FXXN2/Lm eYGpoB47LSRmwllrKDnHFV9UwRAvjNecFPXCqgK1vpdXSc3snsYWqRqNJ6HH eNrZCqe2s3Vu0Spuu2cOac8auYG028cILUaIv9X4+ts6iHg+oLl03DjJkbye ZLrWINCW05SF3MC1tIkpp4j5ldEgRPaqrKfH9wHvCHgPxado1MbpKvSR0Qol oRfAuMiTNrI3RTIwfw+KFqJF8Zq02IgKGA3xTkaoBVMabwpP5H0hnrKYhsl8 hO8oyTuqCsibvINyCs/JzfqKekm1oUY7LvgmbqThf7GugkvPk6FcK6tQzIzi 0XNVgU98GJbUDJ9cJbP9RdXIyhs9A/HnaeLDBXhX1RlcA1egu/djSmbncl60 oEQv0XygzAZ062kc7zCR/9vXw/G6Kk/Cfo4Aqen6TZD6W5Ca6HvYsGFkNxNM qambfjcNqbLUsYy+SKN/E+zkKJH/xzKnfCzfYYGpnfm2JiwF2bCSZl3gWnEv jlISnfpbtpWUTJm05fvpMAn6e5Ek9enB0uJsoiAS9NOwBdqXkAWdpAtaL6Pm Rpgzkc7aEHP2YUWNFLMFpEjonkkGcZY0iJVai6wkdlNAWQpCZItNjns0kGXj dce8xUw2A2qbhuJXyv0nxH0cPdCfirhCRg9nyehhpW/0AEF/BVRJSL36Iaib Vhfu3/E4TApKZ9wJQZWQetX7oRkpBFiCCiUJqZCMssbrpGxVUrZbcQLx+Cmo UwKRtkukOnYzHOJa+VYjBTwGAo6DKtRdLJ+9sh6OF+O+Sj7VotdKEauliEu5 nkcUiulGHOI6+dZbtuD0K8WSN0Gxpbi6zDaOhtRGwod04aqkcDWecIQhCUeG qDxH4eiaorhBvvXyJKTm7kRcMheXPhC3k+XKlhJNAOUBVy63YvFKkmlyOVKw jMSN/3SJtyPm9a5oLfKtytv6VRfvkyjny7G9n9AA1j1ya5x78UoNh6pPqs3N NIa+RG7bdGNjo5iDQu6pXNSRNpb2qpBFUX/kRv8rKl92pfqqfEt7UlEBrhl5 aUY2WJ/CzVQh0srybwp+VegWc9y7zpVvGW9jUFXo+zz3FClF3QefP/gc/fN3 5FtKLFmyREyG8z366KPiG9pPKXk0JdasWePZec79/Va285dfflmeROWNN964 yf11Pr05fDXdVV39Nf3qDF3hXU3l4MGD5gPyp7z22mvijjvuEO3t7eYpWbFj xw7vFPqZPr/99tv8LNeFauW9V6xYIX8lhekq+oWOKwDU8bR1ZxJCCYInGHdO SbGUBkppkkPd1YWxVj5dAUGFgFF3p+/qfMiuHP9GFmTPnj3eI+gzHcUj3Kdl PYjpTkoayO7Ig1Xeg0hVOqLutm3bNvNBKU9jV26vFrMeXFTUSXiU452T4jvw D/LbjebNdS3U6Uo2sjGHjYoAUOfBwG7R75KWWqhfUeUO34iUUXWoSZ4yJJ9r 1pxCnGpL3Ue3aCWkshsS9hbzFhoWhvx0nAo+Oz6q8l2+ZpkQXVHlc8w4PS0t XT0UD8jq6pL8lrqV4A7xof8DAirWGw==\ \>"]], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[2, 9] Pi], Sin[Rational[2, 9] Pi], 0}, {- Sin[Rational[2, 9] Pi], Cos[Rational[2, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{ 0.766044443118978, 0.6427876096865393, 0}, {-0.6427876096865393, 0.766044443118978, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 34-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}, { 0, Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}}, {0, 0, 0}}, {{{1, 0, 0}, {0, 0.8660254037844386, 0.5}, { 0, -0.5, 0.8660254037844386}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[1, 2] 3^Rational[1, 2], 0, Rational[-1, 2]}, {0, 1, 0}, { Rational[1, 2], 0, Rational[1, 2] 3^Rational[1, 2]}}, {0, 0, 0}}, {{{0.8660254037844386, 0, -0.5}, {0, 1, 0}, { 0.5, 0, 0.8660254037844386}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Rational[1, 2] 3^Rational[1, 2], Rational[1, 2], 0}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{ 0.8660254037844386, 0.5, 0}, {-0.5, 0.8660254037844386, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 35-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Cos[Rational[1, 9] Pi], Sin[Rational[1, 9] Pi]}, { 0, -Sin[Rational[1, 9] Pi], Cos[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{1, 0, 0}, { 0, 0.9396926207859084, 0.3420201433256687}, { 0, -0.3420201433256687, 0.9396926207859084}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[1, 9] Pi], 0, -Sin[Rational[1, 9] Pi]}, {0, 1, 0}, { Sin[Rational[1, 9] Pi], 0, Cos[Rational[1, 9] Pi]}}, {0, 0, 0}}, {{{0.9396926207859084, 0, -0.3420201433256687}, { 0, 1, 0}, {0.3420201433256687, 0, 0.9396926207859084}}, { 0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[1, 9] Pi], Sin[Rational[1, 9] Pi], 0}, {- Sin[Rational[1, 9] Pi], Cos[Rational[1, 9] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{ 0.9396926207859084, 0.3420201433256687, 0}, {-0.3420201433256687, 0.9396926207859084, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 36-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{1, 0, 0}, { 0, Cos[Rational[1, 18] Pi], Sin[Rational[1, 18] Pi]}, { 0, -Sin[Rational[1, 18] Pi], Cos[Rational[1, 18] Pi]}}, { 0, 0, 0}}, {{{1, 0, 0}, { 0, 0.984807753012208, 0.17364817766693033`}, { 0, -0.17364817766693033`, 0.984807753012208}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[1, 18] Pi], 0, -Sin[Rational[1, 18] Pi]}, {0, 1, 0}, { Sin[Rational[1, 18] Pi], 0, Cos[Rational[1, 18] Pi]}}, {0, 0, 0}}, {{{ 0.984807753012208, 0, -0.17364817766693033`}, {0, 1, 0}, { 0.17364817766693033`, 0, 0.984807753012208}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, NCache[{{{ Cos[Rational[1, 18] Pi], Sin[Rational[1, 18] Pi], 0}, {- Sin[Rational[1, 18] Pi], Cos[Rational[1, 18] Pi], 0}, {0, 0, 1}}, {0, 0, 0}}, {{{ 0.984807753012208, 0.17364817766693033`, 0}, {-0.17364817766693033`, 0.984807753012208, 0}, {0, 0, 1}}, {0, 0, 0}}]]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 37-> TagBox[GridBox[{ { Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{1, 0, 0}, {0, 1, 0}, { 0, 0, 1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(x\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{1, 0, 0}, {0, 1, 0}, { 0, 0, 1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}], Graphics3DBox[{ {GrayLevel[0], Line3DBox[{{-1.25, 0., 0.}, {1.25, 0., 0.}}], Line3DBox[{{0., -1.25, 0.}, {0., 1.25, 0.}}], Line3DBox[{{0., 0., -1.25}, {0., 0., 1.25}}], StyleBox[Text3DBox["\<\"x\"\>", {1.35, 0., 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"y\"\>", {0., 1.35, 0.}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold], StyleBox[Text3DBox["\<\"z\"\>", {0., 0., 1.35}], StripOnInput->False, FontFamily->"Helvetica", FontWeight->Bold]}, GeometricTransformation3DBox[{ {RGBColor[1, 0, 0], Opacity[0.3], CylinderBox[ NCache[{{0, 0, -3^Rational[1, 2]}, { 0, 0, 3^Rational[1, 2]}}, {{0, 0, -1.7320508075688772`}, { 0, 0, 1.7320508075688772`}}], 1]}, {GrayLevel[0], Thickness[Large], Arrow3DBox[ NCache[{{1, 0, -3^Rational[1, 2]}, { 1, 0, 3^Rational[1, 2]}}, {{1, 0, -1.7320508075688772`}, { 1, 0, 1.7320508075688772`}}]]}}, {{{1, 0, 0}, {0, 1, 0}, { 0, 0, 1}}, {0, 0, 0}}]}, Boxed->False, PlotLabel->FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)\"", Bold, FontFamily -> "Helvetica", StripOnInput -> False], TraditionalForm], SphericalRegion->True, ViewPoint->{2.4, 1, 1}]} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}, Dynamic[$CellContext`i151$$], Alignment->Automatic, ImageSize->All, TransitionDirection->Horizontal, TransitionDuration->0.5, TransitionEffect->Automatic], Identity, Editable->True, Selectable->True], ImageMargins->10], Deployed->False, StripOnInput->False, ScriptLevel->0, GraphicsBoxOptions->{PreserveImageOptions->True}, Graphics3DBoxOptions->{PreserveImageOptions->True}], Identity, Editable->False, Selectable->False], Alignment->{Left, Center}, Background->GrayLevel[1], Frame->1, FrameStyle->GrayLevel[0, 0.2], ItemSize->Automatic, StripOnInput->False]} }, AutoDelete->False, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> { Offset[0.7], { Offset[0.5599999999999999]}, Offset[0.7]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.4], { Offset[0.8]}, Offset[0.4]}, "RowsIndexed" -> {}}], If[ And[ CurrentValue["NotebookSelected"], CurrentValue["SelectionOver"]], Manipulate`Dump`ReadControllerState[ Map[Manipulate`Dump`updateOneVar[#, CurrentValue["PreviousFormatTime"], CurrentValue["CurrentFormatTime"]]& , { Manipulate`Dump`controllerLink[{$CellContext`i151$$, \ $CellContext`i151$219328$$}, "X1", If["DefaultAbsolute", True, "JB1"], False, {1, 37, 1}, 37, 1.]}], CurrentValue[{ "ControllerData", { "Gamepad", "Joystick", "Multi-Axis Controller"}}], {}]], ImageSizeCache->{886., {188., 197.}}], DefaultBaseStyle->{}, FrameMargins->{{5, 5}, {5, 5}}], BaselinePosition->Automatic, ImageMargins->0], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "ListAnimate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.749909038040127*^9, 3.7517329271430087`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "ShowNiceCylinder", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ShowNiceCylinder", "[", "\[Zeta]_", "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"scale", " ", "=", " ", "1.25"}], ",", " ", RowBox[{"\[Delta]", " ", "=", " ", "0.1"}], ",", " ", RowBox[{"viewPoint", " ", "=", " ", RowBox[{"{", RowBox[{"2.4", ",", " ", "1", ",", " ", "1"}], "}"}]}], ",", " ", "cylinder", ",", " ", "gCylinder", ",", " ", "gCylinderZ", ",", "gCylinderX", ",", "gCylinderY", ",", "O", ",", " ", "ex", ",", " ", "ey", ",", " ", "ez", ",", " ", "axes", ",", "markerLine", ",", " ", "StoC", ",", " ", "G"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"O", ",", " ", "ex", ",", " ", "ey", ",", " ", "ez"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"StoC", "[", RowBox[{"r_", ",", " ", "\[Theta]_", ",", " ", "\[Phi]_"}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"axes", " ", "=", " ", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"scale", RowBox[{"{", RowBox[{ RowBox[{"-", "ex"}], ",", "ex"}], "}"}]}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"scale", RowBox[{"{", " ", RowBox[{ RowBox[{"-", "ey"}], ",", "ey"}], "}"}]}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"scale", RowBox[{"{", RowBox[{ RowBox[{"-", " ", "ez"}], ",", "ez"}], "}"}]}], "]"}], ",", " ", RowBox[{"Stl", "@", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", " ", RowBox[{ RowBox[{"(", RowBox[{"scale", "+", "\[Delta]"}], ")"}], " ", "ex"}]}], "]"}]}], ",", RowBox[{"Stl", "@", " ", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"(", RowBox[{"scale", "+", "\[Delta]"}], ")"}], " ", "ey"}]}], "]"}]}], ",", " ", RowBox[{"Stl", "@", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", " ", RowBox[{ RowBox[{"(", RowBox[{"scale", "+", "\[Delta]"}], ")"}], " ", "ez"}]}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"cylinder", ",", " ", "markerLine"}], "}"}], " ", "=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", " ", "=", " ", "1"}], ",", " ", RowBox[{"h", " ", "=", " ", SqrtBox["3"]}], ",", RowBox[{"\[Theta]", " ", "=", " ", RowBox[{"\[Pi]", "/", "2"}]}], ",", " ", RowBox[{"d\[Phi]", " ", "=", " ", RowBox[{"2", " ", RowBox[{"\[Pi]", "/", "64"}]}]}]}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", RowBox[{"-", "h"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "h"}], "}"}]}], "}"}], ",", " ", "R"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"markerLine", " ", "=", " ", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"R", ",", " ", "0", ",", " ", RowBox[{"-", "h"}]}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", " ", "h"}], "}"}]}], "}"}], "]"}]}]}], "}"}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"gCylinder", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Opacity", "[", "0.3", "]"}], ",", " ", "cylinder"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Black", ",", " ", "Thick"}], "]"}], ",", " ", "markerLine"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"gCylinderZ", " ", "=", " ", RowBox[{"Rotate", "[", RowBox[{ "gCylinder", ",", " ", "\[Zeta]", ",", " ", "ez", ",", " ", "O"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"gCylinderY", " ", "=", " ", RowBox[{"Rotate", "[", RowBox[{ "gCylinder", ",", " ", "\[Zeta]", ",", " ", "ey", ",", " ", "O"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"gCylinderX", " ", "=", " ", RowBox[{"Rotate", "[", RowBox[{ "gCylinder", ",", " ", "\[Zeta]", ",", " ", "ex", ",", " ", "O"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"G", "[", "1", "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{"axes", ",", "gCylinderX"}], "}"}], ",", " ", RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"ViewPoint", " ", "\[Rule]", " ", "viewPoint"}], ",", " ", RowBox[{"PlotLabel", " ", "\[Rule]", " ", RowBox[{ "Stl", "[", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(x\)]\)\>\"", "]"}]}], ",", " ", RowBox[{"SphericalRegion", " ", "\[Rule]", " ", "True"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"G", "[", "2", "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{"axes", ",", "gCylinderY"}], "}"}], ",", " ", RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"ViewPoint", " ", "\[Rule]", " ", "viewPoint"}], ",", " ", RowBox[{"PlotLabel", " ", "\[Rule]", " ", RowBox[{ "Stl", "[", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(y\)]\)\>\"", "]"}]}], ",", " ", RowBox[{"SphericalRegion", " ", "\[Rule]", " ", "True"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"G", "[", "3", "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{"axes", ",", "gCylinderZ"}], "}"}], ",", " ", RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"ViewPoint", " ", "\[Rule]", " ", "viewPoint"}], ",", " ", RowBox[{"PlotLabel", " ", "\[Rule]", " ", RowBox[{ "Stl", "[", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(z\)]\)\>\"", "]"}]}], ",", " ", RowBox[{"SphericalRegion", " ", "\[Rule]", " ", "True"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"G", "[", "1", "]"}], ",", RowBox[{"G", "[", "2", "]"}], ",", RowBox[{"G", "[", "3", "]"}]}], "}"}], "}"}], "]"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.744666451424796*^9, 3.744666838323674*^9}, { 3.7446668853760247`*^9, 3.744666992556696*^9}, {3.7446670275803394`*^9, 3.7446670761409035`*^9}, {3.744667111763914*^9, 3.744667378254498*^9}, { 3.7446674798977356`*^9, 3.7446675367505894`*^9}, {3.7446675974607897`*^9, 3.7446676518228617`*^9}, {3.744667785042*^9, 3.7446678180582294`*^9}, { 3.744667879926218*^9, 3.7446679614592323`*^9}, {3.744667994665481*^9, 3.744668006801758*^9}, {3.744668047753607*^9, 3.7446681403524756`*^9}, { 3.7499089702423825`*^9, 3.7499089828865986`*^9}, {3.749909126440728*^9, 3.7499091274760036`*^9}}] }, Open ]] }, Open ]] }, WindowSize->{1536, 781}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, Magnification:>1.5 Inherited, FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData["Notebook"], MenuSortingValue -> 10000, Background -> RGBColor[1., 1., 0.878431]], Cell[ StyleData["Title"], FontColor -> GrayLevel[0.3]], Cell[ StyleData["Subsubtitle"]], Cell[ StyleData["Subsubtitle"]], Cell[ StyleData["Section"], CellFrameColor -> RGBColor[0.266667, 0.403922, 0.631373], FontColor -> RGBColor[0.266667, 0.403922, 0.631373]], Cell[ StyleData["Subsection"], FontColor -> RGBColor[0.266667, 0.403922, 0.631373]], Cell[ StyleData["Subsubsection"], CellMargins -> {{48, Inherited}, {Inherited, Inherited}}, FontFamily -> "Gill Sans MT", FontSize -> 16, FontWeight -> "Plain", FontSlant -> "Plain", FontVariations -> { "StrikeThrough" -> False, "Underline" -> False}, FontColor -> RGBColor[0.266667, 0.403922, 0.631373]], Cell[ StyleData["Input"], Background -> GrayLevel[1]], Cell[ StyleData["Output"], Background -> GrayLevel[1]], Cell[ StyleData["Graphics"], MenuSortingValue -> 10000, Background -> GrayLevel[1]], Cell[ StyleData["Figure"], CellFrame -> {{1, 1}, {0, 1}}, CellMargins -> {{60, 10}, {0, 0}}, MenuSortingValue -> 10000, Background -> RGBColor[1., 1., 1]], Cell[ StyleData["FigureCaption"], CellFrame -> {{1, 1}, {1, 0}}, CellMargins -> {{60, 10}, {0, 0}}, MenuSortingValue -> 10000, FontFamily -> "Arial Narrow", FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", FontVariations -> { "StrikeThrough" -> False, "Underline" -> False}, Background -> RGBColor[1, 1, 1]], Cell[ StyleData["Text"]], Cell[ StyleData["DisplayFormulaNumbered"], CellFrame -> {{1, 1}, {0, 1}}, Background -> GrayLevel[1]], Cell[ StyleData["DisplayFormula"], CellFrame -> {{2, 2}, {2, 2}}, CellMargins -> {{50, 50}, {5, 5}}, CellFrameMargins -> 8, CellFrameColor -> RGBColor[0, 0, 0], Background -> GrayLevel[1]]}, Visible -> False, FrontEndVersion -> "11.0 for Microsoft Windows (64-bit) (July 28, 2016)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 4578, 62, 147, "Title"], Cell[5161, 86, 97, 1, 54, "Subtitle"], Cell[5261, 89, 1085, 20, 102, "Text"], Cell[6349, 111, 1050, 23, 118, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[7424, 138, 95, 1, 109, "Section"], Cell[7522, 141, 3782, 71, 683, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[11341, 217, 147, 2, 109, "Section"], Cell[11491, 221, 278, 5, 45, "Text"], Cell[11772, 228, 333, 6, 45, "Text"], Cell[CellGroupData[{ Cell[12130, 238, 1121, 34, 162, "Input"], Cell[13254, 274, 1240, 40, 136, "Output"] }, Open ]], Cell[14509, 317, 248, 5, 45, "Text"], Cell[CellGroupData[{ Cell[14782, 326, 1803, 45, 211, "Input"], Cell[16588, 373, 996, 29, 83, "Output"] }, Open ]], Cell[17599, 405, 232, 5, 45, "Text"], Cell[CellGroupData[{ Cell[17856, 414, 875, 18, 59, "Input"], Cell[18734, 434, 496, 12, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19267, 451, 363, 7, 59, "Input"], Cell[19633, 460, 1785, 47, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21455, 512, 1585, 36, 143, "Input"], Cell[23043, 550, 892, 28, 83, "Output"] }, Open ]], Cell[23950, 581, 188, 6, 45, "Text"], Cell[CellGroupData[{ Cell[24163, 591, 1865, 46, 177, "Input"], Cell[26031, 639, 921, 29, 83, "Output"] }, Open ]], Cell[26967, 671, 251, 7, 45, "Text"], Cell[CellGroupData[{ Cell[27243, 682, 98, 1, 59, "Input"], Cell[27344, 685, 1655, 47, 124, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29036, 737, 472, 14, 96, "Input"], Cell[29511, 753, 1479, 46, 128, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31027, 804, 2811, 72, 317, "Input"], Cell[33841, 878, 1726, 48, 209, "Output"] }, Open ]], Cell[35582, 929, 522, 15, 45, "Text"], Cell[CellGroupData[{ Cell[36129, 948, 593, 18, 101, "Input"], Cell[36725, 968, 212, 5, 63, "Output"] }, Open ]], Cell[36952, 976, 171, 3, 45, "Text"], Cell[CellGroupData[{ Cell[37148, 983, 743, 20, 118, "Input"], Cell[37894, 1005, 313495, 5879, 447, "Output"] }, Open ]], Cell[351404, 6887, 8700, 214, 794, "Input"] }, Open ]] }, Open ]] } ] *)