(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Wolfram 15.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[     20861,        544]
NotebookOptionsPosition[     16964,        469]
NotebookOutlinePosition[     18989,        514]
CellTagsIndexPosition[     18946,        511]
WindowTitle->HillCipherInvertibleQ
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {GridBox[{
      {
       ItemBox[Cell[BoxData[
         RowBox[{
          TemplateBox[{12},
           "Spacer1"], Cell[
          "WOLFRAM INSTITUTE/ PUZZLES SYMBOL", "PacletNameCell",
           TextAlignment->Center,ExpressionUUID->
           "f19bf4fa-9453-446c-9bbb-6a9307697b74"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "38c321ba-bcfc-4c4d-af0c-e5fe8f4b07ac"],
        Background->LightDarkSwitched[
          RGBColor[0.490196, 0.576471, 0.690196]],
        ItemSize->Full], ""}
     },
     GridBoxAlignment->{"Rows" -> {{Center}}},
     GridBoxItemSize->{"Columns" -> {Full, 
         Scaled[0.02]}, "Rows" -> {{2.5}}}], Cell[TextData[{
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "See Also",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "5197b501-e9b4-4a1a-a1fd-3bedadb0f93a"]
         }],ExpressionUUID->"76fdaf10-3a19-4098-a1ed-c966e24ad7f7"],
         StripOnInput->False],{
        StyleBox["\"HillCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HillCipher"], 
         StyleBox[
          "\"HillCipherSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HillCipherSolve"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "70980e82-406e-4ace-9f41-3304a7894e4f"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "Related Guides",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "1995cd21-2a01-4bee-b0e4-de3a44fe2bd1"]
         }],ExpressionUUID->"a4c71f2e-9023-49b7-be0f-629c85b7e0a7"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "66f87047-cb13-4fed-bd1e-b5da6f891fe7"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "URL",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "272a983b-9069-4fc2-9fd6-190cc5edbdc7"]
         }],ExpressionUUID->"1f55cfdf-459c-4c14-b0cd-bf5bb87b116c"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/HillCipherInvertibleQ\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/HillCipherInvertibleQ"], Delimiter, 
         "\"Copy web URL\"" :> 
         Module[{DocumentationSearch`Private`nb$}, 
           DocumentationSearch`Private`nb$ = 
            NotebookPut[
             Notebook[{
               Cell[BoxData[
                 MakeBoxes[
                  Hyperlink[
                   "http://reference.wolfram.com/language/WolframInstitute/\
Puzzles/ref/HillCipherInvertibleQ.html"], StandardForm]], "Input", 
                 TextClipboardType -> "PlainText"]}, Visible -> False]]; 
           SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
           FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
           NotebookClose[DocumentationSearch`Private`nb$]; Null], 
         "\"Go to web URL\"" :> 
         FrontEndExecute[{
           NotebookLocate[{
             URL[If[TrueQ[False], 
                 "http://reference.wolfram.com/system-modeler/", 
                 "http://reference.wolfram.com/language/"] <> 
               "WolframInstitute/Puzzles/ref/HillCipherInvertibleQ" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "007beb7d-7d67-49e5-9984-2af60c2f835c"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "23d94894-e8d8-4a9d-8fa8-ac4816df97ff"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"99332e3c-91fb-4741-a159-a8722496741e"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"2870c532-1a52-4495-8459-098796508d57"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "HillCipherInvertibleQ", "ObjectName",ExpressionUUID->
      "9f0183d0-4436-48fe-a600-ea25b49137eb"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"2b4bc651-2ca7-4307-aa77-d9aaf05b0461"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "a00c8004-4796-4814-a355-2f317687f34a"]
    }],ExpressionUUID->"0e94301d-8e4a-4f66-a7c5-f5d90214e93b"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"553dc8cd-2bfe-4e08-9d2b-\
5e0c5042d6a1"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["HillCipherInvertibleQ"]], 
         "paclet:WolframInstitute/Puzzles/ref/HillCipherInvertibleQ", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["matrix", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "dc091b6d-d37f-4d22-a224-7b8bc9b84748"],
     "\[LineSeparator]",
     "gives ",
     Cell[BoxData["True"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "902bb5b6-4ac6-4ff5-9055-3d1d302d7d10"],
     " if the integer matrix can serve as a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["HillCipher"]], 
        "paclet:WolframInstitute/Puzzles/ref/HillCipher", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "20264f4e-a751-4971-8ee6-396fd1a1416f"],
     " key modulo 26, and ",
     Cell[BoxData["False"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "83ae24d8-9385-407d-8de2-b75d84f2ad92"],
     " otherwise."
    }],ExpressionUUID->"14e6d607-62f4-4bfe-88d3-fc16519fbb76"]}
  }]], "Usage",ExpressionUUID->"7d904fdc-72db-4493-a0dc-9b306c15d0a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[Cell[TextData[{
  Cell[BoxData[
   DynamicBox[ToBoxes[
     If[CurrentValue[
        EvaluationCell[], "CellGroupOpen"] =!= Closed, 
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], 
      Rotate[
       Style[
        Graphics[{
          Thickness[0.18], 
          RGBColor[0.8509803921568627, 0.396078431372549, 0], 
          Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
         PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
        0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
    ImageSizeCache->{
     13.600000000000001`, {-0.1685058593749993, 13.768505859375}}]],
   ExpressionUUID->"9c831d27-b929-42f1-847e-5e66268bc711"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"52325b84-5c6a-46d3-a4e6-21f962f6195d"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "3854cb24-7026-4859-bee6-20fef605cf74"]],ExpressionUUID->"69e5656c-958f-\
4a1c-be75-2c2ccfb2e58e"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1171912059,ExpressionUUID->"7f286b7c-54c3-40b2-8120-93b9d9f9646d"],

Cell["\<\
A Hill key is usable exactly when it is square and its determinant is a unit \
modulo 26 \[LongDash] that is, coprime to 26 (not divisible by 2 or 13). Only \
then does the matrix have an inverse mod 26, which decryption needs.\
\>", "Notes",ExpressionUUID->"9bcab0e2-d728-405a-b165-4555b4536c5b"],

Cell[TextData[{
 "This is the guard ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["HillCipher"]], 
    "paclet:WolframInstitute/Puzzles/ref/HillCipher", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "0f43a596-6a03-41ff-84dd-7f9970af8914"],
 " and ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["HillCipherSolve"]], 
    "paclet:WolframInstitute/Puzzles/ref/HillCipherSolve", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "c2746dad-2050-4ea3-a0bc-936db4224b04"],
 " apply to a candidate key."
}], "Notes",ExpressionUUID->"0544255e-bdce-426a-920d-ba13e7a6634c"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"706008f8-71b8-46cb-8e03-8253e0210bb7"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[
     MatchQ[
      CurrentValue[
       EvaluationNotebook[], {
       TaggingRules, "Openers", "PrimaryExamplesSection"}, Open], 
      Alternatives[True, Open]], 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
   ImageSizeCache->{
    13.600000000000001`, {4.251494140625001, 9.348505859375}}]],
  ExpressionUUID->"8951233b-4874-43fe-8677-8861f14fc2d0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"294d840c-8d0e-4e80-96fa-adcd1bdb561c"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "abd47d02-8623-4bdb-be41-c08b3d519899"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1753448976,ExpressionUUID->"1c94805c-b090-46a8-a5bb-ce5b298039c8"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"760da17b-b8c7-4253-ad40-874445bd6dfb"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "416b2113-7b52-4ebf-8ce0-042c740211a0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"65b996f2-62f1-4522-93e0-3391d6fd1cc8"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "89b42e82-61b5-4847-af61-267b5c3f48ad"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->298851851,ExpressionUUID->"4ad56c46-64a4-4f3f-8a5b-8c247700cb25"],

Cell["\<\
A determinant coprime to 26 is a valid key; a singular or even-determinant \
matrix is not:\
\>", "ExampleText",ExpressionUUID->"a101facd-abdf-489f-a76e-03d90257efe1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"HillCipherInvertibleQ", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", " ", "3"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"2", ",", " ", "5"}], "}"}]}], "}"}], "]"}], ",", " ", 
   RowBox[{"HillCipherInvertibleQ", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", " ", "4"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"2", ",", " ", "4"}], "}"}]}], "}"}], "]"}]}], "}"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"cd165240-8eea-4fbc-b286-88af609d55b9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "False"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d0490f7b-6e79-4149-9a34-1e4149f62aed"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HillCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/HillCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "769f387c-6cfa-4192-aaa3-0e36a64a84e8"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HillCipherSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/HillCipherSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d0eeb374-415b-410d-8e73-a40456d4cb1d"]
       }], "SeeAlso",ExpressionUUID->"57de90c2-cb36-4255-a372-c22b6a870fc8"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"32c84946-756f-41aa-8124-\
b69ce315341a"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "63c66731-b3d0-401b-a3ac-315b85f5f05e"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"9fc5f41a-1a7f-4b59-b870-\
47afd89d29bd"],

Cell[" ", "FooterCell",ExpressionUUID->"62ac98ed-865e-4d45-a45d-e7d072ba27cc"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"HillCipherInvertibleQ",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "", "LinkTrails" -> "", 
  "ExampleCounter" -> 1, 
  "Openers" -> {
   "PrimaryExamplesSection" -> Open, "ExampleSection" -> {"0" -> Open}, 
    "AllOptsTable" -> Closed}, "NewStyles" -> True, 
  "CitationPopupData" -> $Failed, "ShowCitation" -> False, "HasOptions" -> 
  True, "RootCaptions" -> "", "HeaderCoreAreaLink" -> {}, 
  "Metadata" -> {
   "built" -> "{2026, 8, 27, 0, 11, 42.373369}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[HillCipherInvertibleQ, paclet : \
WolframInstitute/Puzzles/ref/HillCipherInvertibleQ, WolframInstitute/Puzzles \
Package Symbol][matrix] gives True if the integer matrix can serve as a \
PackageLink[HillCipher, paclet : WolframInstitute/Puzzles/ref/HillCipher, \
WolframInstitute/Puzzles Package Symbol] key modulo 26, and False otherwise.",
     "synonyms" -> {}, "tabletags" -> {}, "title" -> "HillCipherInvertibleQ", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "HillCipherInvertibleQ", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/HillCipherInvertibleQ", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"fe9b8f5e-eb95-444c-ac3b-8cada48a01a4"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[589, 21, 5250, 131, 70, "AnchorBarGrid",ExpressionUUID->"99332e3c-91fb-4741-a159-a8722496741e",
 CellID->1],
Cell[5842, 154, 107, 0, 70, "ContextNameCell",ExpressionUUID->"2870c532-1a52-4495-8459-098796508d57"],
Cell[CellGroupData[{
Cell[5974, 158, 564, 14, 70, "ObjectNameGrid",ExpressionUUID->"553dc8cd-2bfe-4e08-9d2b-5e0c5042d6a1"],
Cell[6541, 174, 1538, 39, 70, "Usage",ExpressionUUID->"7d904fdc-72db-4493-a0dc-9b306c15d0a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8116, 218, 1444, 34, 70, "NotesSection",ExpressionUUID->"7f286b7c-54c3-40b2-8120-93b9d9f9646d",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1171912059],
Cell[9563, 254, 307, 4, 70, "Notes",ExpressionUUID->"9bcab0e2-d728-405a-b165-4555b4536c5b"],
Cell[9873, 260, 826, 24, 70, "Notes",ExpressionUUID->"0544255e-bdce-426a-920d-ba13e7a6634c"]
}, Closed]],
Cell[10714, 287, 80, 0, 70, "PageDelimiter",ExpressionUUID->"706008f8-71b8-46cb-8e03-8253e0210bb7"],
Cell[CellGroupData[{
Cell[10819, 291, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"1c94805c-b090-46a8-a5bb-ce5b298039c8",
 CellID->1753448976],
Cell[12223, 330, 216, 4, 70, "Input",ExpressionUUID->"760da17b-b8c7-4253-ad40-874445bd6dfb",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12464, 338, 1235, 31, 70, "ExampleSection",ExpressionUUID->"4ad56c46-64a4-4f3f-8a5b-8c247700cb25",
 CellID->298851851],
Cell[13702, 371, 177, 3, 70, "ExampleText",ExpressionUUID->"a101facd-abdf-489f-a76e-03d90257efe1"],
Cell[CellGroupData[{
Cell[13904, 378, 656, 19, 70, "Input",ExpressionUUID->"cd165240-8eea-4fbc-b286-88af609d55b9"],
Cell[14563, 399, 159, 3, 70, "Output",ExpressionUUID->"d0490f7b-6e79-4149-9a34-1e4149f62aed"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14761, 407, 1417, 37, 70, "SeeAlsoSection",ExpressionUUID->"32c84946-756f-41aa-8124-b69ce315341a"],
Cell[16181, 446, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"9fc5f41a-1a7f-4b59-b870-47afd89d29bd"],
Cell[16882, 467, 78, 0, 70, "FooterCell",ExpressionUUID->"62ac98ed-865e-4d45-a45d-e7d072ba27cc"]
}
]
*)

(* End of internal cache information *)

