(* 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[ 25864, 544] NotebookOptionsPosition[ 23831, 496] NotebookOutlinePosition[ 24486, 520] CellTagsIndexPosition[ 24400, 515] 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}, {1, 10}, {1, 11}, {2, 1}, {2, 3}, {2, 4}, {2, 5}, {2, 6}, {2, 7}, {2, 8}, {2, 10}, {3, 2}, {3, 5}, {4, 2}, { 4, 3}, {4, 6}, {4, 7}, {4, 8}, {4, 11}, {5, 2}, {5, 6}, {5, 7}, {5, 10}, {6, 2}, {6, 11}, {7, 4}, {7, 8}, {7, 9}, {7, 11}, {8, 2}, {8, 3}, {8, 4}, {8, 6}, {8, 7}, {8, 9}, {8, 11}, {10, 2}, {10, 5}, {11, 2}, {11, 9}}, Null}, { GraphLayout -> {"Dimension" -> 2}, ImagePadding -> Automatic, VertexLabels -> { "Name", "Adviser 2" -> Placed["Adviser 2", {{1.1808918865014815`, 0.33756158429591354`}, {-0.22952702125158742`, 0.6740411596829499}}], "P.Minister" -> Placed["P.Minister", {{0.4245415358673128, -0.19592098703138405`}, { 0.5808483544278793, 1.2456296289621973`}}], "Minister 2" -> Placed["Minister 2", {{0.2759147697609003, 1.163163486320447}, { 0.7400913181133211, -0.2105323067719076}}], "Minister 5" -> Placed["Minister 5", {{0.20271055973387314`, -0.1337341624894881}, { 0.818524400285136, 1.1790008883815943`}}], "Minister 3" -> Placed["Minister 3", {{1.0496970145037952`, 0.06660273161265257}, {-0.08896108696835181, 0.964354216129301}}], "Adviser 1" -> Placed["Adviser 1", {{-0.16810784957475444`, 0.7088825060568673}, { 1.215829838830094, 0.27619731493907096`}}], "Minister 1" -> Placed["Minister 1", {{0.7692189200227545, 1.1461587831963453`}, { 0.21155115711847783`, -0.1923129819960846}}], "Minister 6" -> Placed["Minister 6", {{ 0.20106623574023436`, -0.13296019194376418`}, {0.8202861759926061, 1.1781716342254616`}}], "Minister 7" -> Placed["Minister 7", {{0.337663711692931, 1.1809162426456608`}, { 0.6739317374718595, -0.22955311712035065`}}], "Adviser 3" -> Placed[ "Adviser 3", {{0.38801462223755845`, 1.190984279971262}, { 0.6199843333169017, -0.24034029996920914`}}], "Minister 4" -> Placed["Minister 4", {{0.7245297181537824, -0.16301312631484377`}, { 0.2594324448352332, 1.2103712067659043`}}]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{{2.77303356756591, 1.6063710247329195`}, { 2.5722036074636505`, 1.0630046682965821`}, {2.0880565621821168`, 0.744914572994139}}], 0.03285613559147277], ArrowBox[{{2.77303356756591, 1.6063710247329195`}, {2.089267608480543, 1.3602336327598978`}}, 0.03285613559147277], ArrowBox[{{2.77303356756591, 1.6063710247329195`}, {3.373023927443649, 0.6837085058082696}}, 0.03285613559147277], ArrowBox[{{2.77303356756591, 1.6063710247329195`}, {1.30579372699322, 1.3017946469628143`}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.0880565621821168`, 0.744914572994139}, { 2.2888865222843755`, 1.2882809294312936`}, {2.77303356756591, 1.6063710247329195`}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.0880565621821168`, 0.744914572994139}, { 1.9874785593874327`, 1.0527732482354337`}, {2.089267608480543, 1.3602336327598978`}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.0880565621821168`, 0.744914572994139}, { 1.7763045465262126`, 0.597064966130303}, {1.437652238701327, 0.663121305115657}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.0880565621821168`, 0.744914572994139}, { 2.3421846033011655`, 0.4779051814451252}, {2.388217437094937, 0.11217843280393669`}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.0880565621821168`, 0.744914572994139}, { 1.9221037855905125`, 0.2775923779518452}, {1.5111623910574126`, 0.}}], 0.03285613559147277], ArrowBox[{{2.0880565621821168`, 0.744914572994139}, { 0.9043379728716955, 0.35126733986334824`}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.0880565621821168`, 0.744914572994139}, { 1.449207960950758, 0.6653003863277067}, {0.8878139778176941, 0.9804237744089583}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.0880565621821168`, 0.744914572994139}, { 2.7406050162330686`, 0.9256125330506517}, {3.373023927443649, 0.6837085058082696}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.089267608480543, 1.3602336327598978`}, { 2.189845611275227, 1.0523749575181776`}, {2.0880565621821168`, 0.744914572994139}}], 0.03285613559147277], ArrowBox[{{2.089267608480543, 1.3602336327598978`}, { 2.388217437094937, 0.11217843280393669`}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{1.437652238701327, 0.663121305115657}, { 1.7494042543572337`, 0.8109709119784259}, {2.0880565621821168`, 0.744914572994139}}], 0.03285613559147277], ArrowBox[{{1.437652238701327, 0.663121305115657}, {2.089267608480543, 1.3602336327598978`}}, 0.03285613559147277], ArrowBox[{{1.437652238701327, 0.663121305115657}, { 1.5111623910574126`, 0.}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{1.437652238701327, 0.663121305115657}, { 1.2222766048446185`, 0.4194957261331454}, {0.9043379728716955, 0.35126733986334824`}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{1.437652238701327, 0.663121305115657}, { 1.1105556531258747`, 0.7313567253137058}, {0.8878139778176941, 0.9804237744089583}}], 0.03285613559147277], ArrowBox[{{1.437652238701327, 0.663121305115657}, {1.30579372699322, 1.3017946469628143`}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.388217437094937, 0.11217843280393669`}, { 2.1340893959758884`, 0.3791878243527101}, {2.0880565621821168`, 0.744914572994139}}], 0.03285613559147277], ArrowBox[{{2.388217437094937, 0.11217843280393669`}, { 1.5111623910574126`, 0.}}, 0.03285613559147277], ArrowBox[{{2.388217437094937, 0.11217843280393669`}, { 0.9043379728716955, 0.35126733986334824`}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{2.388217437094937, 0.11217843280393669`}, { 2.7866378500268416`, 0.5598857844100359}, {3.373023927443649, 0.6837085058082696}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{1.5111623910574126`, 0.}, { 1.6771151676490192`, 0.46732219504232253`}, {2.0880565621821168`, 0.744914572994139}}], 0.03285613559147277], ArrowBox[{{1.5111623910574126`, 0.}, {1.30579372699322, 1.3017946469628143`}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{0.9043379728716955, 0.35126733986334824`}, { 1.1197136067284037`, 0.5948929188461222}, {1.437652238701327, 0.663121305115657}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{0.9043379728716955, 0.35126733986334824`}, { 0.7926170211529489, 0.6631283390430277}, {0.8878139778176941, 0.9804237744089583}}], 0.03285613559147277], ArrowBox[{{0.9043379728716955, 0.35126733986334824`}, {0., 1.1487641809322382`}}, 0.03285613559147277], ArrowBox[{{0.9043379728716955, 0.35126733986334824`}, { 1.30579372699322, 1.3017946469628143`}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{0.8878139778176941, 0.9804237744089583}, { 1.526662579049056, 1.06003796107539}, {2.0880565621821168`, 0.744914572994139}}], 0.03285613559147277], ArrowBox[{{0.8878139778176941, 0.9804237744089583}, { 2.089267608480543, 1.3602336327598978`}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{0.8878139778176941, 0.9804237744089583}, { 1.2149105633931476`, 0.9121883542124154}, {1.437652238701327, 0.663121305115657}}], 0.03285613559147277], ArrowBox[{{0.8878139778176941, 0.9804237744089583}, { 1.5111623910574126`, 0.}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{0.8878139778176941, 0.9804237744089583}, { 0.9995349295364402, 0.6685627752292826}, {0.9043379728716955, 0.35126733986334824`}}], 0.03285613559147277], ArrowBox[{{0.8878139778176941, 0.9804237744089583}, {0., 1.1487641809322382`}}, 0.03285613559147277], ArrowBox[{{0.8878139778176941, 0.9804237744089583}, {1.30579372699322, 1.3017946469628143`}}, 0.03285613559147277], ArrowBox[BezierCurveBox[{{3.373023927443649, 0.6837085058082696}, { 2.7204754733927032`, 0.5030105457516573}, {2.0880565621821168`, 0.744914572994139}}], 0.03285613559147277], ArrowBox[BezierCurveBox[{{3.373023927443649, 0.6837085058082696}, { 2.974603514511744, 0.23600115420220288`}, {2.388217437094937, 0.11217843280393669`}}], 0.03285613559147277], ArrowBox[{{1.30579372699322, 1.3017946469628143`}, { 2.0880565621821168`, 0.744914572994139}}, 0.03285613559147277], ArrowBox[{{1.30579372699322, 1.3017946469628143`}, {0., 1.1487641809322382`}}, 0.03285613559147277]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{2.77303356756591, 1.6063710247329195}, 0.03285613559147277], InsetBox["\<\"Minister 1\"\>", {2.790724554246025, 1.6488315859215599}, ImageScaled[{0.21155115711847783, -0.1923129819960846}], BaseStyle->"Graphics"]}, { DiskBox[{2.0880565621821168, 0.744914572994139}, 0.03285613559147277], InsetBox["\<\"P.Minister\"\>", {2.083098015123981, 0.6991840243724294}, ImageScaled[{0.5808483544278793, 1.2456296289621973}], BaseStyle->"Graphics"]}, { DiskBox[{2.089267608480543, 1.3602336327598978}, 0.03285613559147277], InsetBox["\<\"Minister 2\"\>", {2.0745424590629784, 1.4038116116116146}, ImageScaled[{0.7400913181133211, -0.2105323067719076}], BaseStyle->"Graphics"]}, { DiskBox[{1.437652238701327, 0.663121305115657}, 0.03285613559147277], InsetBox["\<\"Minister 3\"\>", {1.473774077986856, 0.6346417862854399}, ImageScaled[{-0.08896108696835181, 0.964354216129301}], BaseStyle->"Graphics"]}, { DiskBox[{2.388217437094937, 0.11217843280393669}, 0.03285613559147277], InsetBox["\<\"Minister 4\"\>", {2.402971794822889, 0.06861033444968315}, ImageScaled[{0.2594324448352332, 1.2103712067659043}], BaseStyle->"Graphics"]}, { DiskBox[{1.5111623910574126, 0.}, 0.03285613559147277], InsetBox["\<\"Minister 5\"\>", {1.4916268267388189, -0.04164411114340611}, ImageScaled[{0.818524400285136, 1.1790008883815943}], BaseStyle->"Graphics"]}, { DiskBox[{0.9043379728716955, 0.35126733986334824}, 0.03285613559147277], InsetBox["\<\"Minister 6\"\>", {0.884694356288919, 0.3096740880823303}, ImageScaled[{0.8202861759926061, 1.1781716342254616}], BaseStyle->"Graphics"]}, { DiskBox[{0.8878139778176941, 0.9804237744089583}, 0.03285613559147277], InsetBox["\<\"Minister 7\"\>", {0.8771464916176271, 1.0251683271985623}, ImageScaled[{0.6739317374718595, -0.22955311712035065}], BaseStyle->"Graphics"]}, { DiskBox[{0., 1.1487641809322382}, 0.03285613559147277], InsetBox["\<\"Adviser 1\"\>", {-0.043902884190710846, 1.1624903248156202}, ImageScaled[{1.215829838830094, 0.27619731493907096}], BaseStyle->"Graphics"]}, { DiskBox[{3.373023927443649, 0.6837085058082696}, 0.03285613559147277], InsetBox["\<\"Adviser 2\"\>", {3.417766879735702, 0.6730343085849946}, ImageScaled[{-0.22952702125158742, 0.6740411596829499}], BaseStyle->"Graphics"]}, { DiskBox[{1.30579372699322, 1.3017946469628143}, 0.03285613559147277], InsetBox["\<\"Adviser 3\"\>", {1.29843491348117, 1.3472007933514383}, ImageScaled[{0.6199843333169017, -0.24034029996920914}], 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.769170583014451*^9, 3.769181163187067*^9, 3.769775806550516*^9, 3.771692081928399*^9, 3.771756482585848*^9, 3.772370666536524*^9, 3.77357724409284*^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\"\>", "\<\"Being Asked Opinion by Recall Network\"\>"}, {"\<\"VertexCount\"\>", "11"}, {"\<\"EdgeCount\"\>", "41"}, {"\<\"Description\"\>", "\<\"Network of members that ask for an opinion \ by recall\"\>"}, {"\<\"ByteCount\"\>", TemplateBox[{"8.26`","\"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.769170584266758*^9, 3.7691811648221188`*^9, 3.769775811525523*^9, 3.771670254325691*^9, 3.771670538721744*^9, 3.771756483916852*^9, 3.772370673033924*^9, 3.773577245290238*^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.769170594891884*^9, 3.769170596644164*^9}, {3.769948285420602*^9, 3.769948290899246*^9}, 3.771688108439802*^9}], Cell[BoxData[ RowBox[{ RowBox[{"g", " ", "=", " ", RowBox[{ "ResourceData", "[", "\"\\"", "]"}]}], ";"}]], "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.769775813019305*^9, 3.7697758142247477`*^9}}, 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.769170578419145*^9}, CellLabel->"In[5]:="], Cell[BoxData[ GraphicsBox[{RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGDghmIQGwI+2OOiH1aJrHN/eMueAQXgVj9QNK3dSS3zh0p4 jtL4aVzxSKo4tcwn1RxqqSeVHijzh3q4DRQ92MKBWvFLa/cPlDsHW/gMtnih NU3rcp7W4tTyF7X8O9hoYt0PAOuKAYk= "], {{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.769170585714294*^9, 3.769181166977984*^9, 3.76977581615095*^9, 3.7717564861778603`*^9, 3.773577248249522*^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->"3a2435e6-1140-48ee-96cf-ec60a85de39b", CellTags->"DataResourceExampleArea"]} } *) (*CellTagsIndex CellTagsIndex->{ {"DataResourceExampleArea", 24225, 509} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"3a2435e6-1140-48ee-96cf-ec60a85de39b", CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell[701, 28, 227, 7, 70, "Subsection",ExpressionUUID->"5c962366-2159-47aa-99ec-2d0a08a91e39"], Cell[931, 37, 35, 0, 70, "Text",ExpressionUUID->"b02a1b77-66b9-4c06-bee5-518faf1f765f"], Cell[CellGroupData[{ Cell[991, 41, 183, 5, 70, "Input",ExpressionUUID->"d22adcda-2343-4b77-b171-25b9a2de4a93"], Cell[1177, 48, 13336, 214, 70, "Output",ExpressionUUID->"39ad8f59-a5f2-48f2-9885-810f27d8b015"] }, Open ]], Cell[14528, 265, 73, 1, 70, "Text",ExpressionUUID->"ee68f1c7-c066-4adb-93c8-939bddf5b5c7", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[14626, 270, 252, 7, 70, "Input",ExpressionUUID->"0e626caf-fe16-4d8c-a511-4d32e96b6fbd"], Cell[14881, 279, 1921, 46, 70, "Output",ExpressionUUID->"fa441d37-84ba-442d-b8da-6b22505654ed"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16851, 331, 231, 7, 70, "Subsection",ExpressionUUID->"2c426e61-6a00-4c6f-a0c6-155f866f6adb"], Cell[17085, 340, 446, 6, 70, "Text",ExpressionUUID->"2a63710c-d3be-45b9-8d48-1b2b50bc04a0"], Cell[17534, 348, 508, 11, 70, "Input",ExpressionUUID->"db8c4765-1ee7-431b-8b7f-2c57f2342db6"], Cell[CellGroupData[{ Cell[18067, 363, 1570, 37, 70, "Input",ExpressionUUID->"b36adcfc-c9dd-4412-a319-48d44db3b041"], Cell[19640, 402, 4151, 89, 70, "Output",ExpressionUUID->"5a493847-fa82-4b6b-82e7-35ac10d81954"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)