(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 24673, 525] NotebookOptionsPosition[ 22641, 477] NotebookOutlinePosition[ 23296, 501] CellTagsIndexPosition[ 23210, 496] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "DataResourceWhiteSection", CellFrameMargins->0, CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}], Cell["Retrieve the graph:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellLabel->"In[2]:="], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "Minister 1", "P.Minister", "Minister 2", "Minister 3", "Minister 4", "Minister 5", "Minister 6", "Minister 7", "Adviser 1", "Adviser 2", "Adviser 3"}, {{{1, 2}, {1, 3}, {2, 4}, {2, 8}, {3, 1}, {3, 2}, {3, 10}, {4, 7}, {4, 8}, {5, 2}, {5, 6}, {5, 8}, {5, 10}, {6, 1}, {6, 2}, { 6, 3}, {6, 4}, {6, 5}, {6, 7}, {6, 8}, {7, 4}, {7, 8}, {7, 9}, {8, 2}, {8, 4}, {8, 11}, {9, 2}, {9, 7}, {9, 8}, {10, 1}, {10, 2}, {10, 3}, {10, 5}, {11, 4}, {11, 6}, {11, 8}}, Null}, { GraphLayout -> {"Dimension" -> 2}, ImagePadding -> Automatic, VertexLabels -> { "Name", "Adviser 2" -> Placed["Adviser 2", {{1.1560330688630311`, 0.7441733248292148}, {-0.20289257378181924`, 0.23838572339726993`}}], "P.Minister" -> Placed["P.Minister", {{0.6189448207970761, -0.18982036038779793`}, { 0.3725591205745613, 1.2390932432726407`}}], "Minister 2" -> Placed["Minister 2", {{0.743336019571094, -0.15634410302774582`}, { 0.239282836173828, 1.2032258246725847`}}], "Minister 5" -> Placed["Minister 5", {{0.517123357940841, 1.1997905333832617`}, { 0.48165354506338487`, -0.24977557148206597`}}], "Minister 3" -> Placed["Minister 3", {{-0.19319969371763634`, 0.5973354233040324}, { 1.2427139575546104`, 0.3957120464599651}}], "Adviser 1" -> Placed["Adviser 1", {{0.480304459942279, -0.19972286349799562`}, { 0.5211023643475583, 1.2497030680335668`}}], "Minister 1" -> Placed["Minister 1", {{0.3661972846221376, 1.1870930310791332`}, { 0.6433600521905671, -0.2361711047276427}}], "Minister 6" -> Placed["Minister 6", {{-0.17958126538286934`, 0.33216286543014956`}, {1.2281227843387887`, 0.6798255013248393}}], "Minister 7" -> Placed["Minister 7", {{0.7081514560311797, 1.1683359719124056`}, { 0.27698058282373605`, -0.21607425562043459`}}], "Adviser 3" -> Placed["Adviser 3", {{0.2070760046473522, 1.1357637398803442`}, { 0.8138471378778369, -0.18117543558608307`}}], "Minister 4" -> Placed["Minister 4", {{0.44295844840891857`, 1.197672029962562}, { 0.5611159481333015, -0.24750574638845924`}}]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{2.400956190920311, 1.1096072148994403`}, { 1.579271550248029, 0.88409538879833}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{2.400956190920311, 1.1096072148994403`}, { 2.5077547896387236`, 0.8220887680623613}, {2.4230451829776545`, 0.527305660509707}}], 0.029211368591658043`], ArrowBox[{{1.579271550248029, 0.88409538879833}, { 0.23872569471420135`, 1.4332368231835915`}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{1.579271550248029, 0.88409538879833}, { 1.0945485195493951`, 0.8550223424893875}, {0.6871923146826607, 1.119337648266254}}], 0.029211368591658043`], ArrowBox[BezierCurveBox[{{2.4230451829776545`, 0.527305660509707}, { 2.316246584259243, 0.8148241073448821}, {2.400956190920311, 1.1096072148994403`}}], 0.029211368591658043`], ArrowBox[{{2.4230451829776545`, 0.527305660509707}, { 1.579271550248029, 0.88409538879833}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{2.4230451829776545`, 0.527305660509707}, { 2.496380570222123, 1.0368561912873582`}, {2.8578496641686044`, 1.4034075745357248`}}], 0.029211368591658043`], ArrowBox[BezierCurveBox[{{0.23872569471420135`, 1.4332368231835915`}, {0.251532055478938, 0.9921057205758316}, {0., 0.6294870811889377}}], 0.029211368591658043`], ArrowBox[BezierCurveBox[{{0.23872569471420135`, 1.4332368231835915`}, {0.5145768195620007, 1.3500334217982397`}, { 0.6871923146826607, 1.119337648266254}}], 0.029211368591658043`], ArrowBox[{{1.8281719407223722`, 1.8357125762824031`}, { 1.579271550248029, 0.88409538879833}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{1.8281719407223722`, 1.8357125762824031`}, { 1.5943101821208663`, 1.4826151275514419`}, {1.196515833447472, 1.337257683319257}}], 0.029211368591658043`], ArrowBox[{{1.8281719407223722`, 1.8357125762824031`}, { 0.6871923146826607, 1.119337648266254}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{1.8281719407223722`, 1.8357125762824031`}, { 2.414099359943709, 1.7888810496068999`}, {2.8578496641686044`, 1.4034075745357248`}}], 0.029211368591658043`], ArrowBox[{{1.196515833447472, 1.337257683319257}, {2.400956190920311, 1.1096072148994403`}}, 0.029211368591658043`], ArrowBox[{{1.196515833447472, 1.337257683319257}, {1.579271550248029, 0.88409538879833}}, 0.029211368591658043`], ArrowBox[{{1.196515833447472, 1.337257683319257}, { 2.4230451829776545`, 0.527305660509707}}, 0.029211368591658043`], ArrowBox[{{1.196515833447472, 1.337257683319257}, { 0.23872569471420135`, 1.4332368231835915`}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{1.196515833447472, 1.337257683319257}, { 1.4303775920489847`, 1.6903551320376955`}, {1.8281719407223722`, 1.8357125762824031`}}], 0.029211368591658043`], ArrowBox[{{1.196515833447472, 1.337257683319257}, {0., 0.6294870811889377}}, 0.029211368591658043`], ArrowBox[{{1.196515833447472, 1.337257683319257}, {0.6871923146826607, 1.119337648266254}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{0., 0.6294870811889377}, {-0.012806360764736879`, 1.0706181837968038`}, { 0.23872569471420135`, 1.4332368231835915`}}], 0.029211368591658043`], ArrowBox[{{0., 0.6294870811889377}, {0.6871923146826607, 1.119337648266254}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{0., 0.6294870811889377}, { 0.41052813103539915`, 0.4157150284760085}, {0.614029610125143, 0.}}], 0.029211368591658043`], ArrowBox[BezierCurveBox[{{0.6871923146826607, 1.119337648266254}, { 1.1719153453812974`, 1.1484106945752135`}, {1.579271550248029, 0.88409538879833}}], 0.029211368591658043`], ArrowBox[BezierCurveBox[{{0.6871923146826607, 1.119337648266254}, { 0.41134118983486045`, 1.202541049649898}, {0.23872569471420135`, 1.4332368231835915`}}], 0.029211368591658043`], ArrowBox[BezierCurveBox[{{0.6871923146826607, 1.119337648266254}, { 0.28516273595924946`, 1.574006663957274}, {0.23148797354514095`, 2.1785484043490673`}}], 0.029211368591658043`], ArrowBox[{{0.614029610125143, 0.}, {1.579271550248029, 0.88409538879833}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{0.614029610125143, 0.}, { 0.20350147908974278`, 0.21377205271295058`}, {0., 0.6294870811889377}}], 0.029211368591658043`], ArrowBox[{{0.614029610125143, 0.}, {0.6871923146826607, 1.119337648266254}}, 0.029211368591658043`], ArrowBox[{{2.8578496641686044`, 1.4034075745357248`}, { 2.400956190920311, 1.1096072148994403`}}, 0.029211368591658043`], ArrowBox[{{2.8578496641686044`, 1.4034075745357248`}, { 1.579271550248029, 0.88409538879833}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{2.8578496641686044`, 1.4034075745357248`}, { 2.7845142769241353`, 0.8938570437570859}, {2.4230451829776545`, 0.527305660509707}}], 0.029211368591658043`], ArrowBox[BezierCurveBox[{{2.8578496641686044`, 1.4034075745357248`}, { 2.2719222449472602`, 1.4502391012109215`}, {1.8281719407223722`, 1.8357125762824031`}}], 0.029211368591658043`], ArrowBox[{{0.23148797354514095`, 2.1785484043490673`}, { 0.23872569471420135`, 1.4332368231835915`}}, 0.029211368591658043`], ArrowBox[{{0.23148797354514095`, 2.1785484043490673`}, { 1.196515833447472, 1.337257683319257}}, 0.029211368591658043`], ArrowBox[BezierCurveBox[{{0.23148797354514095`, 2.1785484043490673`}, {0.6335175522685534, 1.7238793886583847`}, { 0.6871923146826607, 1.119337648266254}}], 0.029211368591658043`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{2.400956190920311, 1.1096072148994403}, 0.029211368591658043], InsetBox["\<\"Minister 1\"\>", {2.393139070045376, 1.1497490704746645}, ImageScaled[{0.6433600521905671, -0.2361711047276427}], BaseStyle->"Graphics"]}, { DiskBox[{1.579271550248029, 0.88409538879833}, 0.029211368591658043], InsetBox["\<\"P.Minister\"\>", {1.5862206322527732, 0.8437941951796933}, ImageScaled[{0.3725591205745613, 1.2390932432726407}], BaseStyle->"Graphics"]}, { DiskBox[{2.4230451829776545, 0.527305660509707}, 0.029211368591658043], InsetBox["\<\"Minister 2\"\>", {2.4372615392962906, 0.4889602414766976}, ImageScaled[{0.239282836173828, 1.2032258246725847}], BaseStyle->"Graphics"]}, { DiskBox[{0.23872569471420135, 1.4332368231835915}, 0.029211368591658043], InsetBox["\<\"Minister 3\"\>", {0.19822707119258068, 1.4389234250379097}, ImageScaled[{1.2427139575546104, 0.3957120464599651}], BaseStyle->"Graphics"]}, { DiskBox[{1.8281719407223722, 1.8357125762824031}, 0.029211368591658043], InsetBox["\<\"Minister 4\"\>", {1.824839417145238, 1.8764724859290565}, ImageScaled[{0.5611159481333015, -0.24750574638845924}], BaseStyle->"Graphics"]}, { DiskBox[{1.196515833447472, 1.337257683319257}, 0.029211368591658043], InsetBox["\<\"Minister 5\"\>", {1.1975162268881454, 1.3781413617344798}, ImageScaled[{0.48165354506338487, -0.24977557148206597}], BaseStyle->"Graphics"]}, { DiskBox[{0., 0.6294870811889377}, 0.029211368591658043], InsetBox["\<\"Minister 6\"\>", {-0.039702997662168754, 0.6196815763863625}, ImageScaled[{1.2281227843387887, 0.6798255013248393}], BaseStyle->"Graphics"]}, { DiskBox[{0.6871923146826607, 1.119337648266254}, 0.029211368591658043], InsetBox["\<\"Minister 7\"\>", {0.699353092492695, 1.1583836651034485}, ImageScaled[{0.27698058282373605, -0.21607425562043459}], BaseStyle->"Graphics"]}, { DiskBox[{0.614029610125143, 0.}, 0.029211368591658043], InsetBox["\<\"Adviser 1\"\>", {0.6128789427646673, -0.040879724955300754}, ImageScaled[{0.5211023643475583, 1.2497030680335668}], BaseStyle->"Graphics"]}, { DiskBox[{2.8578496641686044, 1.4034075745357248}, 0.029211368591658043], InsetBox["\<\"Adviser 2\"\>", {2.896176911734354, 1.4176728485193986}, ImageScaled[{-0.20289257378181924, 0.23838572339726993}], BaseStyle->"Graphics"]}, { DiskBox[{0.23148797354514095, 2.1785484043490673}, 0.029211368591658043], InsetBox["\<\"Adviser 3\"\>", {0.2143745519499663, 2.215691462234779}, ImageScaled[{0.8138471378778369, -0.18117543558608307}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->Automatic]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7691699700493526`*^9, 3.7691810416394053`*^9, 3.7695225310133533`*^9, 3.771692039620801*^9, 3.7723685362922497`*^9, 3.773577186069859*^9}, GraphicsBoxOptions->{ImageSize->225}, CellLabel->"Out[2]="] }, Open ]], Cell["Summary properties:", "Text", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceData", "[", RowBox[{"\"\\"", ",", "All"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellLabel->"In[3]:="], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Name\"\>", "\<\"Asking Opinion by Recognition Network\"\>"}, {"\<\"VertexCount\"\>", "11"}, {"\<\"EdgeCount\"\>", "36"}, {"\<\"Description\"\>", "\<\"Network of members that ask for an opinion \ by recognition\"\>"}, {"\<\"ByteCount\"\>", TemplateBox[{"7.7`","\"kB\"","kilobytes","\"Kilobytes\""}, "Quantity"]} }, AutoDelete->False, FrameStyle->RGBColor[0, 0, 0, 0.4], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxBackground->{"Columns" -> { RGBColor[0.92, 0.92, 0.9]}, "Rows" -> {{ RGBColor[0.985, 0.98, 0.973]}}}, GridBoxDividers->{"Columns" -> { RGBColor[0, 0, 0, 0.4], RGBColor[0, 0, 0, 0.3], { RGBColor[0, 0, 0, 0.09]}, RGBColor[0, 0, 0, 0.4]}, "Rows" -> { RGBColor[0, 0, 0, 0.4], { RGBColor[0, 0, 0, 0.08]}, RGBColor[0, 0, 0, 0.4]}}, GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{1.3}}}, GridBoxItemStyle->{"Columns" -> {{ Directive[FontWeight -> "Light", FontFamily -> "Helvetica Neue"]}}, "Rows" -> {{ Directive[FontWeight -> "Light", FontFamily -> "Helvetica Neue"]}}}, GridBoxSpacings->{"Columns" -> { Offset[1.4], { Offset[1.75]}, Offset[2.1]}, "Rows" -> { Offset[1.2], { Offset[0.48]}, Offset[0.4]}}], "Grid"]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.769169980448827*^9, 3.7691810500775757`*^9, 3.769522533159491*^9, {3.7716701991876183`*^9, 3.7716702054420977`*^9}, 3.771670515366102*^9, 3.77236853792202*^9, 3.773577186718856*^9}, CellLabel->"Out[3]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Basic Applications", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}], Cell["Show the opinions of members asked by others:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7691699790885*^9, 3.769169999024703*^9}, 3.76952267747538*^9, {3.769948248477503*^9, 3.769948258339979*^9}, 3.77168809832001*^9}], Cell[BoxData[ RowBox[{ RowBox[{"g", " ", "=", " ", RowBox[{ "ResourceData", "[", "\"\\"", "]"}]}], ";"}]], "Input", CellLabel->"In[4]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixPlot", "[", RowBox[{ RowBox[{"AdjacencyMatrix", "[", "g", "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression","SequenceIcon",GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Sequence", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1008", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],Dynamic[ Typeset`open]}, "IconizedObject"]], Sequence[FrameTicks -> {{ Thread[{ Range[11], VertexList[$CellContext`g]}], None}, {None, Thread[{ Range[11], Map[Rotate[#, 0.6981317007977318]& , VertexList[$CellContext`g]]}]}}, Mesh -> True], SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.769170013661805*^9, 3.7691700145091047`*^9}}, CellLabel->"In[5]:="], Cell[BoxData[ GraphicsBox[{RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGDghmIQGwI+2FOLflglss794S17BhQwcOqp5X5SxQfK/bSm B8r91Ap/WruHWuoHih6o/EVr86llL7XKB1qXJ0MlX9Da/OGaT0l1/1DPdwNF j+Yj+tg71NMJOg0AkQr3eg== "], {{0, 0}, {11, 11}}, {0, 1}], { {GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]], StyleBox[ LineBox[{{{0, 11}, {11, 11}}, {{0, 10}, {11, 10}}, {{0, 9}, {11, 9}}, {{ 0, 8}, {11, 8}}, {{0, 7}, {11, 7}}, {{0, 6}, {11, 6}}, {{0, 5}, {11, 5}}, {{0, 4}, {11, 4}}, {{0, 3}, {11, 3}}, {{0, 2}, {11, 2}}, {{0, 1}, {11, 1}}, {{0, 0}, {11, 0}}}], Antialiasing->False]}, {GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]], StyleBox[ LineBox[{{{0, 0}, {0, 11}}, {{1, 0}, {1, 11}}, {{2, 0}, {2, 11}}, {{3, 0}, {3, 11}}, {{4, 0}, {4, 11}}, {{5, 0}, {5, 11}}, {{6, 0}, {6, 11}}, {{7, 0}, {7, 11}}, {{8, 0}, {8, 11}}, {{9, 0}, {9, 11}}, {{10, 0}, {10, 11}}, {{11, 0}, {11, 11}}}], Antialiasing->False]}}}, Frame->True, FrameLabel->{None, None}, FrameTicks->{{{{10.5, FormBox["\"Minister 1\"", TraditionalForm]}, {9.5, FormBox["\"P.Minister\"", TraditionalForm]}, {8.5, FormBox["\"Minister 2\"", TraditionalForm]}, {7.5, FormBox["\"Minister 3\"", TraditionalForm]}, {6.5, FormBox["\"Minister 4\"", TraditionalForm]}, {5.5, FormBox["\"Minister 5\"", TraditionalForm]}, {4.5, FormBox["\"Minister 6\"", TraditionalForm]}, {3.5, FormBox["\"Minister 7\"", TraditionalForm]}, {2.5, FormBox["\"Adviser 1\"", TraditionalForm]}, {1.5, FormBox["\"Adviser 2\"", TraditionalForm]}, {0.5, FormBox["\"Adviser 3\"", TraditionalForm]}}, None}, {None, {{0.5, FormBox[ RotationBox["\"Minister 1\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {1.5, FormBox[ RotationBox["\"P.Minister\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {2.5, FormBox[ RotationBox["\"Minister 2\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {3.5, FormBox[ RotationBox["\"Minister 3\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {4.5, FormBox[ RotationBox["\"Minister 4\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {5.5, FormBox[ RotationBox["\"Minister 5\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {6.5, FormBox[ RotationBox["\"Minister 6\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {7.5, FormBox[ RotationBox["\"Minister 7\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {8.5, FormBox[ RotationBox["\"Adviser 1\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {9.5, FormBox[ RotationBox["\"Adviser 2\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}, {10.5, FormBox[ RotationBox["\"Adviser 3\"", BoxRotation -> 0.6981317007977318], TraditionalForm]}}}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.769170015450406*^9, 3.769181061440586*^9, 3.7695225358291073`*^9, 3.7723685409123087`*^9, 3.773577188899398*^9}, GraphicsBoxOptions->{ImageSize->225}, CellLabel->"Out[5]="] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, DockedCells->{}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "DataResourceDefinitionStyles.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "DataResourceExampleArea"->{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"4f7677f6-a2d7-4bcd-9dad-2e993b0750c3", CellTags->"DataResourceExampleArea"]} } *) (*CellTagsIndex CellTagsIndex->{ {"DataResourceExampleArea", 23035, 490} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"4f7677f6-a2d7-4bcd-9dad-2e993b0750c3", CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell[701, 28, 227, 7, 70, "Subsection",ExpressionUUID->"77ddb36a-006f-4dcb-abf7-170a8af2ae51"], Cell[931, 37, 35, 0, 70, "Text",ExpressionUUID->"250a4b00-3862-42db-9909-7380f5c49b1b"], Cell[CellGroupData[{ Cell[991, 41, 183, 5, 70, "Input",ExpressionUUID->"83694a30-1700-4b06-af5b-c92a2dd40ef8"], Cell[1177, 48, 12409, 199, 70, "Output",ExpressionUUID->"f07bb5e0-cbc1-424d-ba15-dd9ff6a2c8dd"] }, Open ]], Cell[13601, 250, 73, 1, 70, "Text",ExpressionUUID->"2e9bf0ae-87c3-4b93-ab90-3c52213f568c", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[13699, 255, 252, 7, 70, "Input",ExpressionUUID->"484ea312-9e5a-4037-a7c2-fe16dc80a05b"], Cell[13954, 264, 1930, 46, 70, "Output",ExpressionUUID->"e0d59344-a973-49b5-a829-fed2ae3d0683"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15933, 316, 231, 7, 70, "Subsection",ExpressionUUID->"26f96801-3a3e-4cf5-9ce9-6c1cf6da4c3d"], Cell[16167, 325, 464, 6, 70, "Text",ExpressionUUID->"cf1de8e5-4e9f-4d70-a741-91a5c9ac8a6b"], Cell[16634, 333, 193, 6, 70, "Input",ExpressionUUID->"3d7d9694-b5d4-4ccd-a3b4-a094d302e045"], Cell[CellGroupData[{ Cell[16852, 343, 1600, 38, 70, "Input",ExpressionUUID->"54ef3801-9c59-43f3-b1c3-e038dcc4c11d"], Cell[18455, 383, 4146, 89, 70, "Output",ExpressionUUID->"55bc6116-facf-4f2b-8aa2-a876524014a9"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)