(* 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[ 4822, 141] NotebookOptionsPosition[ 4068, 116] NotebookOutlinePosition[ 4447, 132] CellTagsIndexPosition[ 4404, 129] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Show icons for the states in a 4-state system:", "Text", CellChangeTimes->{{3.752023127963278*^9, 3.7520231480821457`*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"FiniteStateIndicatorIcon\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"FiniteStateIndicatorIcon\""}], ResourceFunction["FiniteStateIndicatorIcon"], BoxID -> "FiniteStateIndicatorIcon", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.752022959171281*^9, 3.75202304500273*^9}}, CellLabel->"In[1]:=", CellID->7099978], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0], DiskBox[{1, 0}, 0.18], PolygonBox[{{1.18, 0.}, {0.8200000000000001, 0.}, {1., 0.6}, {1.18, 0.}}]}, {GrayLevel[0], DiskBox[{2, 0}, 0.18], PolygonBox[{{2., -0.18}, {2., 0.18}, {2.6, 3.6739403974420595`*^-17}, { 2., -0.18}}]}, {GrayLevel[0], DiskBox[{3, 0}, 0.18], PolygonBox[{{2.82, -2.2043642384652358`*^-17}, {3.18, 2.2043642384652358`*^-17}, {3., -0.6}, { 2.82, -2.2043642384652358`*^-17}}]}, {GrayLevel[0], DiskBox[{4, 0}, 0.18], PolygonBox[{{4., 0.18}, {4., -0.18}, {3.4, -1.1021821192326178`*^-16}, { 4., 0.18}}]}}]], "Output", CellChangeTimes->{ 3.752022990869308*^9, {3.7520230252249804`*^9, 3.752023046271015*^9}, 3.752849711213676*^9, 3.7540564309419274`*^9}, CellLabel->"Out[1]=", CellID->628833026] }, Open ]] }, Open ]] }, WindowSize->{808, 855}, WindowMargins->{{436, Automatic}, {Automatic, 50}}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb", $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"ec9ad669-1499-4f9d-8f95-69453a44d7d4", CellID->285421464], Cell[639, 25, 150, 2, 70, "Text",ExpressionUUID->"a92d1805-2e06-44e8-bcdd-55a6f67e53b6", CellID->221583938], Cell[CellGroupData[{ Cell[814, 31, 2400, 60, 70, "Input",ExpressionUUID->"f6fda57a-49f1-45be-9126-e8ddfb413c6f", CellID->7099978], Cell[3217, 93, 823, 19, 70, "Output",ExpressionUUID->"69bbce9e-b606-443e-b2b7-0eecd2a004ef", CellID->628833026] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)