(* 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[     21021,        536]
NotebookOptionsPosition[     17022,        459]
NotebookOutlinePosition[     19152,        506]
CellTagsIndexPosition[     19109,        503]
WindowTitle->PlayfairCipher
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->
           "bd764436-3d35-42ec-beb3-ec6b9e45bb00"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "af1ab5d5-5990-47f1-8ac7-bfe167fd405f"],
        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->
           "49030674-7fdb-4d35-b2fd-969a26d308c8"]
         }],ExpressionUUID->"c2789492-1434-4b5d-a7c3-da341c48a713"],
         StripOnInput->False],{
        StyleBox[
          "\"PolybiusSquare\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare"], 
         StyleBox["\"BifidCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BifidCipher"], 
         StyleBox["\"BifidSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BifidSolve"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "dac7c53b-973a-4cab-a5e5-8cb25449c921"],
     "\[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->
           "2912d174-f655-413c-9c9f-33936bfb1c08"]
         }],ExpressionUUID->"f87d08f4-6e07-46a0-9cff-e51f9b2c5d2b"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "a77c436b-bf61-43a0-9090-4516dd634a0f"],
     "\[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->
           "711e0a86-5f6c-4a0f-b92d-b10778618dde"]
         }],ExpressionUUID->"cb893071-788c-4588-b705-a3e794eaf8b9"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/PlayfairCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/PlayfairCipher"], 
         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/PlayfairCipher.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/PlayfairCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "088cf146-4ccf-4636-a5e8-3162894a3a1e"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "a2b97fe2-8e8c-4f16-a07c-a849852e161d"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"ba5eb822-3917-47d1-bd8a-d3d354f23cc9"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"0f5e2171-52cf-47ff-a46d-a8b552d0c47b"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "PlayfairCipher", "ObjectName",ExpressionUUID->
      "b645a80e-bc9d-42cf-8c40-12981832b1e0"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"065a2034-4eab-4ae6-bd22-6e4070c5f2a0"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "ffb897d8-5e79-42a1-bc99-d98295e36962"]
    }],ExpressionUUID->"1bfae765-9fc8-4b6e-8fff-5d9d4fcc6040"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"2b5652b0-e330-4249-8a9d-\
d5d05da6c978"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["PlayfairCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f071a227-ea06-48f2-97f7-a9315828068f"],
     "\[LineSeparator]",
     "enciphers text with the Playfair digraphic cipher over the ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["PolybiusSquare"]], 
        "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "c842a6af-8a2e-43d5-a693-c6d983c8258d"],
     " of key."
    }],ExpressionUUID->"fc7d4382-efcb-4a18-8b0e-1acdde49fe57"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["PlayfairCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c6debb9a-3f08-4ccc-8280-cd4b144ad489"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"84bd6191-1f71-40d4-b550-0819552a3287"]}
  }]], "Usage",ExpressionUUID->"13b3effd-6fe0-4570-9034-29cd1fe03636"]
}, 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->"8da415b6-afdc-47b9-bef3-bf5955ce7396"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"d8131c2c-35ce-4ad4-98d5-66f712a21dd4"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "8563b876-a85e-4773-bf89-d87424958ec7"]],ExpressionUUID->"c8f5813c-4093-\
44dd-9160-2d6fb36fa3c1"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->2185354,ExpressionUUID->"5d4df517-9f37-425d-a731-c4a412560920"],

Cell["\<\
Each pair of letters is replaced by another pair read off the 5x5 square: \
same row shifts one column right, same column shifts one row down, otherwise \
the pair is the other two corners of the rectangle they span.\
\>", "Notes",ExpressionUUID->"7416c750-ed89-4344-a22d-539adde8bda9"],

Cell["\<\
J is merged into I; a doubled pair is split with an X (a doubled X with a Z), \
and an odd final letter is padded with X - so decryption returns the padded \
plaintext, not necessarily the exact original.\
\>", "Notes",ExpressionUUID->"f55896e2-c4d0-4e4f-8f62-cbba5e528ac3"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"c4bad2e1-a847-49f4-a2fb-333f8a53af32"],

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->"5e702c8c-3b6d-4a66-bb03-f93c363a9124"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"28595d7b-9996-4573-a027-29755bbb9f0f"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "e912aea7-1ca8-472d-99e2-6d7e4e23fb04"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->222022679,ExpressionUUID->"7c25a0b5-0830-45f7-af8f-b87c99f05f60"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"349a3ee8-fe2f-4660-ba48-c1bc79244c33"],

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->
  "0f195411-c8c6-4c3f-9450-d188732b5eaa"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"82854a67-b9f4-4f71-8049-5c79275c78dd"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "c88b3ddf-9594-454d-a397-e18811306716"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1356071114,ExpressionUUID->"54cc01d0-9ebe-44cd-95fc-aeae7c94a7fe"],

Cell["The canonical Playfair example:", "ExampleText",ExpressionUUID->"dca70513-0ac9-45a5-89c1-4a5e6988c086"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlayfairCipher", "[", 
  RowBox[{"\"\<hide the gold in the tree stump\>\"", ",", 
   " ", "\"\<PLAYFAIR EXAMPLE\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"32f437f2-9bfa-442f-b733-d0ba2cfdc625"],

Cell[BoxData["\<\"BMODZBXDNABEKUDMUIXMMOUVIF\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2ed2a54e-100e-42c8-9525-2af76bf12d2b"]
}, 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["PolybiusSquare"]], 
           "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "76134fe3-ab26-402f-b48d-d1934370aa51"],
        "\[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->
         "ebfbcb20-747d-4b3d-97f7-f9996d9c06a1"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BifidSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/BifidSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1b330885-598d-4b22-98aa-13110221f482"]
       }], "SeeAlso",ExpressionUUID->"930f5c2d-08e9-499c-83fa-a6e0b4f7de81"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"3774f3a8-23fb-4dde-b926-\
d4bfcc2c8d6f"],

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->
         "f705d533-23d1-4be7-b64d-19a67f73a022"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"21c346bc-03d8-420e-a581-\
49c3c91852ad"],

Cell[" ", "FooterCell",ExpressionUUID->"ee1e3ab4-82bc-4a0b-9548-b04d2ec54ffa"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"PlayfairCipher",
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, 48.070710}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[PlayfairCipher,paclet : \
WolframInstitute/Puzzles/ref/PlayfairCipher, WolframInstitute/Puzzles Package \
Symbol][text, key] enciphers text with the Playfair digraphic cipher over the \
PackageLink[PolybiusSquare, paclet : \
WolframInstitute/Puzzles/ref/PolybiusSquare, WolframInstitute/Puzzles Package \
Symbol] of key. PackageLink[PlayfairCipher,paclet : \
WolframInstitute/Puzzles/ref/PlayfairCipher, WolframInstitute/Puzzles Package \
Symbol][text, key, Decrypt] deciphers.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "PlayfairCipher", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "PlayfairCipher", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/PlayfairCipher", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"3bb01e92-0fed-431c-ada2-92e63017857f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 5388, 133, 70, "AnchorBarGrid",ExpressionUUID->"ba5eb822-3917-47d1-bd8a-d3d354f23cc9",
 CellID->1],
Cell[5973, 156, 107, 0, 70, "ContextNameCell",ExpressionUUID->"0f5e2171-52cf-47ff-a46d-a8b552d0c47b"],
Cell[CellGroupData[{
Cell[6105, 160, 557, 14, 70, "ObjectNameGrid",ExpressionUUID->"2b5652b0-e330-4249-8a9d-d5d05da6c978"],
Cell[6665, 176, 1923, 51, 70, "Usage",ExpressionUUID->"13b3effd-6fe0-4570-9034-29cd1fe03636"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8625, 232, 1441, 34, 70, "NotesSection",ExpressionUUID->"5d4df517-9f37-425d-a731-c4a412560920",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->2185354],
Cell[10069, 268, 296, 4, 70, "Notes",ExpressionUUID->"7416c750-ed89-4344-a22d-539adde8bda9"],
Cell[10368, 274, 284, 4, 70, "Notes",ExpressionUUID->"f55896e2-c4d0-4e4f-8f62-cbba5e528ac3"]
}, Closed]],
Cell[10667, 281, 80, 0, 70, "PageDelimiter",ExpressionUUID->"c4bad2e1-a847-49f4-a2fb-333f8a53af32"],
Cell[CellGroupData[{
Cell[10772, 285, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"7c25a0b5-0830-45f7-af8f-b87c99f05f60",
 CellID->222022679],
Cell[12175, 324, 216, 4, 70, "Input",ExpressionUUID->"349a3ee8-fe2f-4660-ba48-c1bc79244c33",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12416, 332, 1236, 31, 70, "ExampleSection",ExpressionUUID->"54cc01d0-9ebe-44cd-95fc-aeae7c94a7fe",
 CellID->1356071114],
Cell[13655, 365, 109, 0, 70, "ExampleText",ExpressionUUID->"dca70513-0ac9-45a5-89c1-4a5e6988c086"],
Cell[CellGroupData[{
Cell[13789, 369, 287, 5, 70, "Input",ExpressionUUID->"32f437f2-9bfa-442f-b733-d0ba2cfdc625"],
Cell[14079, 376, 140, 1, 70, "Output",ExpressionUUID->"2ed2a54e-100e-42c8-9525-2af76bf12d2b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14258, 382, 1978, 52, 70, "SeeAlsoSection",ExpressionUUID->"3774f3a8-23fb-4dde-b926-d4bfcc2c8d6f"],
Cell[16239, 436, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"21c346bc-03d8-420e-a581-49c3c91852ad"],
Cell[16940, 457, 78, 0, 70, "FooterCell",ExpressionUUID->"ee1e3ab4-82bc-4a0b-9548-b04d2ec54ffa"]
}
]
*)

(* End of internal cache information *)

