(* 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[     21222,        541]
NotebookOptionsPosition[     17196,        464]
NotebookOutlinePosition[     19349,        511]
CellTagsIndexPosition[     19306,        508]
WindowTitle->BifidCipher
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->
           "08e90527-54eb-4a35-b658-597b46301309"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "acdedbd2-5e3e-4a24-a826-885ef2e00b49"],
        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->
           "3594722f-4e99-4811-b3ce-e9f4401f8079"]
         }],ExpressionUUID->"ad90d103-088a-4035-b182-8568d173d9d6"],
         StripOnInput->False],{
        StyleBox[
          "\"PolybiusSquare\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare"], 
         StyleBox[
          "\"PlayfairCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher"], 
         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->
      "bd88113d-7b66-4b33-b4b1-83049781806e"],
     "\[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->
           "fcf5c58b-4441-43be-a1db-7abb4943f38a"]
         }],ExpressionUUID->"c9ecc0f3-9815-4214-8d28-cbfe3f447e2b"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "06a9c46e-51b7-4094-9297-ff88f39eb81e"],
     "\[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->
           "2d42d8a4-14ed-44b1-a0f4-28bf8341ee70"]
         }],ExpressionUUID->"6fc77f06-9047-4756-b2c9-47f3f3186c1b"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BifidCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BifidCipher"], 
         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/BifidCipher.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/BifidCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "173e9d46-0abb-4bf9-b26c-e7a786dfde8f"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "3205e852-e881-4dd4-b27b-1c41ab232497"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"0766a391-037d-4faf-9a57-7cb292e9956d"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"694c2dc1-e221-4d8f-b783-d064b6b2a59e"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BifidCipher", "ObjectName",ExpressionUUID->
      "a6fe95ac-0378-4bec-9e08-aa2c0eabb46f"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"0cafd745-f288-4f01-88dd-6a5c07e4f4f6"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "98a98fea-fef0-4700-b385-5beceb77d4e4"]
    }],ExpressionUUID->"9508ad14-6654-4c44-91cf-86ba6cb8de1c"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"ab08e2e8-6d28-461f-b665-\
f43c3c9313ef"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BifidCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/BifidCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"], ",", " ", 
        StyleBox["period", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "e8e4f34a-8cfa-4591-8b14-c09fe4e7b810"],
     "\[LineSeparator]",
     "enciphers text with the Bifid fractionating 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->
      "f3d22905-bd50-4bc0-8db4-17699dec8740"],
     " of key, in blocks of period letters."
    }],ExpressionUUID->"3844cbd7-6afe-445c-9973-90b52bccd3af"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BifidCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/BifidCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"], ",", " ", 
        StyleBox["period", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ff190a10-fdcc-4b05-b1eb-83afe9a71ad1"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"bbe69b14-3394-4b3e-95d0-b1945577e49f"]}
  }]], "Usage",ExpressionUUID->"c3c89cc7-3398-45e8-beff-b772eabbecfc"]
}, 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->"a22f9f9e-31f1-4237-b9c4-8ea483374eff"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"b5e0fa36-81aa-4000-8257-2a3eaa262bbe"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "89ae9ee3-b753-4ac1-9dfb-1c1ca5894a4e"]],ExpressionUUID->"600afebb-4a14-\
4703-a7ef-1ef893aafa5b"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->2041372221,ExpressionUUID->"729dd9f0-f29d-4441-8c04-6d24740cae50"],

Cell["\<\
Within each block the row and column coordinates of the letters are written \
out in two rows and then re-paired down the columns, so each plaintext letter \
is spread across two ciphertext letters. This fractionation is what makes \
Bifid resist simple frequency analysis.\
\>", "Notes",ExpressionUUID->"97a9cef3-fd7b-4548-b33d-8073dbdca031"],

Cell["Length-preserving (any length works); J is merged into I.", "Notes",ExpressionUUID->"b6b1e69f-8f45-4c71-9522-9127500c0709"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"b5453323-25cb-4c8c-b9f9-e4dcc2fd1ae5"],

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->"917afe8d-2a47-42f6-ae68-3cc1a6a1c006"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ba5ee64f-11b2-41d4-a2ff-b06a86cd670c"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "334a1367-96f5-45b2-8f00-a0d86cbba5d8"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1144173875,ExpressionUUID->"d9676c0c-5e4e-4148-a23e-f178f2455726"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"090d2437-9f80-47a9-988c-90675ac760e2"],

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->
  "0d180693-34de-4da6-9466-9f9b384de7b0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"356f458f-8482-4524-ba3d-d1641035c097"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "f4bf8c0d-22f4-4f16-9256-7b4f2503da2f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1561741887,ExpressionUUID->"2776c292-3a37-4229-a78f-c25dd087687b"],

Cell["\<\
Encrypt and decrypt are inverse (on letters, with J merged to I):\
\>", "ExampleText",ExpressionUUID->"46b7eecc-1731-467f-bc2d-8d0fe5032860"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BifidCipher", "[", 
  RowBox[{
   RowBox[{"BifidCipher", "[", 
    RowBox[{"\"\<DEFENDTHEEASTWALL\>\"", ",", " ", "\"\<KRYPTOS\>\"", ",", 
     " ", "5"}], "]"}], ",", " ", "\"\<KRYPTOS\>\"", ",", " ", "5", ",", 
   " ", "\"\<Decrypt\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6ab4d930-092b-455d-ae3a-a18452344f71"],

Cell[BoxData["\<\"DEFENDTHEEASTWALL\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f1ec69b5-b606-4fa6-bdd0-03b1c01253ca"]
}, 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->
         "a180c108-4c41-4049-aed8-91ef8bcc1f0a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["PlayfairCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f63c3dc0-e19c-4b6c-9cf2-fa73681f580d"],
        "\[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->
         "c1a3277c-676f-42b8-adcc-a232c92d1266"]
       }], "SeeAlso",ExpressionUUID->"5f7bfc15-4075-4fe3-b215-e911cac8ec73"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"b3694c8f-6444-46c2-9d9d-\
fb88ea4cc1fd"],

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->
         "1b5881a1-058a-4a52-af83-f255b1401533"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"5aada5cf-815a-4cef-b333-\
8ff369d430ce"],

Cell[" ", "FooterCell",ExpressionUUID->"8684368e-5f81-4684-959b-614290b518a9"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BifidCipher",
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, 27.167036}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BifidCipher,paclet : \
WolframInstitute/Puzzles/ref/BifidCipher, WolframInstitute/Puzzles Package \
Symbol][text, key, period] enciphers text with the Bifid fractionating cipher \
over the PackageLink[PolybiusSquare, paclet : \
WolframInstitute/Puzzles/ref/PolybiusSquare, WolframInstitute/Puzzles Package \
Symbol] of key, in blocks of period letters. PackageLink[BifidCipher,paclet : \
WolframInstitute/Puzzles/ref/BifidCipher, WolframInstitute/ Puzzles Package \
Symbol][text, key, period, Decrypt] deciphers.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "BifidCipher", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "BifidCipher", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/BifidCipher", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"dab3c012-f4b1-40a9-b05b-e6280f4836f8"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[579, 21, 5393, 134, 70, "AnchorBarGrid",ExpressionUUID->"0766a391-037d-4faf-9a57-7cb292e9956d",
 CellID->1],
Cell[5975, 157, 107, 0, 70, "ContextNameCell",ExpressionUUID->"694c2dc1-e221-4d8f-b783-d064b6b2a59e"],
Cell[CellGroupData[{
Cell[6107, 161, 554, 14, 70, "ObjectNameGrid",ExpressionUUID->"ab08e2e8-6d28-461f-b665-f43c3c9313ef"],
Cell[6664, 177, 2031, 53, 70, "Usage",ExpressionUUID->"c3c89cc7-3398-45e8-beff-b772eabbecfc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8732, 235, 1444, 34, 70, "NotesSection",ExpressionUUID->"729dd9f0-f29d-4441-8c04-6d24740cae50",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->2041372221],
Cell[10179, 271, 353, 5, 70, "Notes",ExpressionUUID->"97a9cef3-fd7b-4548-b33d-8073dbdca031"],
Cell[10535, 278, 129, 0, 70, "Notes",ExpressionUUID->"b6b1e69f-8f45-4c71-9522-9127500c0709"]
}, Closed]],
Cell[10679, 281, 80, 0, 70, "PageDelimiter",ExpressionUUID->"b5453323-25cb-4c8c-b9f9-e4dcc2fd1ae5"],
Cell[CellGroupData[{
Cell[10784, 285, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"d9676c0c-5e4e-4148-a23e-f178f2455726",
 CellID->1144173875],
Cell[12188, 324, 216, 4, 70, "Input",ExpressionUUID->"090d2437-9f80-47a9-988c-90675ac760e2",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12429, 332, 1236, 31, 70, "ExampleSection",ExpressionUUID->"2776c292-3a37-4229-a78f-c25dd087687b",
 CellID->1561741887],
Cell[13668, 365, 151, 2, 70, "ExampleText",ExpressionUUID->"46b7eecc-1731-467f-bc2d-8d0fe5032860"],
Cell[CellGroupData[{
Cell[13844, 371, 409, 8, 70, "Input",ExpressionUUID->"6ab4d930-092b-455d-ae3a-a18452344f71"],
Cell[14256, 381, 131, 1, 70, "Output",ExpressionUUID->"f1ec69b5-b606-4fa6-bdd0-03b1c01253ca"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14426, 387, 1984, 52, 70, "SeeAlsoSection",ExpressionUUID->"b3694c8f-6444-46c2-9d9d-fb88ea4cc1fd"],
Cell[16413, 441, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"5aada5cf-815a-4cef-b333-8ff369d430ce"],
Cell[17114, 462, 78, 0, 70, "FooterCell",ExpressionUUID->"8684368e-5f81-4684-959b-614290b518a9"]
}
]
*)

(* End of internal cache information *)

