(* 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[     20042,        518]
NotebookOptionsPosition[     16324,        445]
NotebookOutlinePosition[     18274,        489]
CellTagsIndexPosition[     18231,        486]
WindowTitle->PolybiusSquare
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->
           "3825c352-e8a0-4e1d-9bc4-102394ef06d7"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "84625870-d50b-4f85-89f5-b30923dc5997"],
        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->
           "77a059d9-d11b-4b4b-9f4b-cec1ed7fcb20"]
         }],ExpressionUUID->"f56cc784-6f88-48e0-9540-dc0a45ace0be"],
         StripOnInput->False],{
        StyleBox[
          "\"PlayfairCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher"], 
         StyleBox["\"BifidCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BifidCipher"], 
         StyleBox[
          "\"KeyedAlphabet\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "24b3e760-92b3-4bb3-8ec7-c653c5d31ca5"],
     "\[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->
           "459092a2-4886-437b-91a7-a8aad1c37164"]
         }],ExpressionUUID->"a6eaa83f-2013-4c8a-865c-b6c3bcf3d588"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e409efbb-c437-4ab3-9e3f-aba64a4ee3e8"],
     "\[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->
           "0287d99a-ed8d-45cd-ac95-b7aa9f9eaeee"]
         }],ExpressionUUID->"4d7c0c94-6f63-42bf-a1da-1256c7337bf0"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/PolybiusSquare\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/PolybiusSquare"], 
         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/PolybiusSquare.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/PolybiusSquare" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "0d18176a-18e0-4cb9-b8b0-8270236d44c6"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "8b93d754-364d-4417-8df6-6359120a90f8"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"7db2297c-36e1-47ff-b03b-46f430a636de"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"1611d7ef-3295-4b82-93f2-16ec8335a98e"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "PolybiusSquare", "ObjectName",ExpressionUUID->
      "95eae0c7-bec0-4a2a-b84f-c775a4003318"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"d669c402-299a-41e1-b0ba-52fa6defe0af"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "fe0d7696-3799-42e8-862d-0c531e179322"]
    }],ExpressionUUID->"c1384c61-cc75-4bc1-9f7b-a8deab20edb4"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"dc1c4774-ff16-42f9-8000-\
c744d0f0d9b2"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["PolybiusSquare"]], 
         "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["keyword", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "85616abc-9e55-4725-9667-c96a3e116980"],
     "\[LineSeparator]",
     "gives the 25-letter Polybius square keyed by keyword, as a string: the \
keyword's distinct letters (with I and J merged) followed by the remaining \
letters of A-Z except J."
    }],ExpressionUUID->"3d6734ed-809b-436e-8971-ef90f23eaf83"]}
  }]], "Usage",ExpressionUUID->"ed279e61-a6b9-433d-ad49-7e9e81c6bdef"]
}, 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->"cedc88dd-7775-4eeb-8f6a-bde1c82e6796"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"bf4c44dc-3ad5-410f-80ae-2e0de50cfd06"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "2d9ce580-d6b6-4729-ba3d-9943fbb55d64"]],ExpressionUUID->"50fa875c-fc4d-\
4e80-a50b-3991c47e5f0d"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->243267387,ExpressionUUID->"78cd44e4-04d5-4ec8-9785-ba8c7f1c732f"],

Cell[TextData[{
 "The square is the shared key of the 5x5 ciphers ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["PlayfairCipher"]], 
    "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "c9738c9b-5965-4902-a4d0-d5ee206fc409"],
 " and ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BifidCipher"]], 
    "paclet:WolframInstitute/Puzzles/ref/BifidCipher", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "f3a7762c-4735-4520-b644-9b406e5d489f"],
 ": reading the 25 letters into a 5x5 grid row by row gives each letter a \
(row, column) coordinate."
}], "Notes",ExpressionUUID->"de99250f-3f8e-4be2-a812-225b13ad0908"],

Cell["\<\
J is merged into I, so the alphabet is 25 letters and the result never \
contains J.\
\>", "Notes",ExpressionUUID->"e6190000-ffd7-4c0b-9b0d-a7caf6c7ac98"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"7f049029-631c-42cc-bb37-4781507e690f"],

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->"443c8655-10f7-4df5-9acb-859c74ee5bbd"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e81e186e-1e0e-471b-9fe0-c2d1323fa38c"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "90fc24a9-13d5-4291-a4ad-6256618c2944"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1933593068,ExpressionUUID->"679ff809-66a8-4f5e-b7b6-cc7ba0486e0e"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"2ec9e93d-06c6-4500-ac36-d169debf0e7c"],

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->
  "cc2da20b-4f9c-4e50-afeb-aed7f36daa3a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"258fc1d7-b012-499d-aa87-68d762ebd39c"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "5b3738d9-ffd2-46bf-84a3-b64206c272d6"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->28663825,ExpressionUUID->"89d94b72-3c7d-453c-b4e6-59c8e6029814"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PolybiusSquare", "[", "\"\<PLAYFAIR EXAMPLE\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"93e51cfc-63aa-4af0-ad3b-7daccbcbeb46"],

Cell[BoxData["\<\"PLAYFIREXMBCDGHKNOQSTUVWZ\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c2a64f5b-1d8e-417d-be8e-01341d983860"]
}, 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["PlayfairCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "bfa42f8e-e2a9-44ea-8a54-4f72ee314bd0"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BifidCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/BifidCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a8f61500-f9cc-4a22-8a91-fe631408e63b"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["KeyedAlphabet"]], 
           "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "002cbef6-dfcf-477d-9d06-800b60ebd0eb"]
       }], "SeeAlso",ExpressionUUID->"408638cd-a362-47b4-ae81-c073bd4631b6"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"9eb8a451-6e21-4ea6-bea9-\
09310d683e32"],

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->
         "af3a8711-3eb7-4141-80b2-6009ceaf8c5e"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"c6e64e80-814f-489a-bb13-\
3b6f5f28309f"],

Cell[" ", "FooterCell",ExpressionUUID->"b83372a9-ab86-4513-a189-7910c17f50ce"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"PolybiusSquare",
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, 50.186085}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[PolybiusSquare,paclet : \
WolframInstitute/Puzzles/ref/PolybiusSquare, WolframInstitute/Puzzles Package \
Symbol][keyword] gives the 25-letter Polybius square keyed by keyword, as a \
string: the keyword's distinct letters (with I and J merged) followed by the \
remaining letters of A-Z except J.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "PolybiusSquare", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "PolybiusSquare", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/PolybiusSquare", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"3ed3db68-79dd-4f50-963c-b442c2907b7e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 5405, 134, 70, "AnchorBarGrid",ExpressionUUID->"7db2297c-36e1-47ff-b03b-46f430a636de",
 CellID->1],
Cell[5990, 157, 107, 0, 70, "ContextNameCell",ExpressionUUID->"1611d7ef-3295-4b82-93f2-16ec8335a98e"],
Cell[CellGroupData[{
Cell[6122, 161, 557, 14, 70, "ObjectNameGrid",ExpressionUUID->"dc1c4774-ff16-42f9-8000-c744d0f0d9b2"],
Cell[6682, 177, 871, 20, 70, "Usage",ExpressionUUID->"ed279e61-a6b9-433d-ad49-7e9e81c6bdef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7590, 202, 1443, 34, 70, "NotesSection",ExpressionUUID->"78cd44e4-04d5-4ec8-9785-ba8c7f1c732f",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->243267387],
Cell[9036, 238, 929, 25, 70, "Notes",ExpressionUUID->"de99250f-3f8e-4be2-a812-225b13ad0908"],
Cell[9968, 265, 164, 3, 70, "Notes",ExpressionUUID->"e6190000-ffd7-4c0b-9b0d-a7caf6c7ac98"]
}, Closed]],
Cell[10147, 271, 80, 0, 70, "PageDelimiter",ExpressionUUID->"7f049029-631c-42cc-bb37-4781507e690f"],
Cell[CellGroupData[{
Cell[10252, 275, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"679ff809-66a8-4f5e-b7b6-cc7ba0486e0e",
 CellID->1933593068],
Cell[11656, 314, 216, 4, 70, "Input",ExpressionUUID->"2ec9e93d-06c6-4500-ac36-d169debf0e7c",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[11897, 322, 1234, 31, 70, "ExampleSection",ExpressionUUID->"89d94b72-3c7d-453c-b4e6-59c8e6029814",
 CellID->28663825],
Cell[CellGroupData[{
Cell[13156, 357, 217, 3, 70, "Input",ExpressionUUID->"93e51cfc-63aa-4af0-ad3b-7daccbcbeb46"],
Cell[13376, 362, 139, 1, 70, "Output",ExpressionUUID->"c2a64f5b-1d8e-417d-be8e-01341d983860"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[13554, 368, 1984, 52, 70, "SeeAlsoSection",ExpressionUUID->"9eb8a451-6e21-4ea6-bea9-09310d683e32"],
Cell[15541, 422, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"c6e64e80-814f-489a-bb13-3b6f5f28309f"],
Cell[16242, 443, 78, 0, 70, "FooterCell",ExpressionUUID->"b83372a9-ab86-4513-a189-7910c17f50ce"]
}
]
*)

(* End of internal cache information *)

