(* 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[     21273,        543]
NotebookOptionsPosition[     17175,        465]
NotebookOutlinePosition[     19402,        513]
CellTagsIndexPosition[     19359,        510]
WindowTitle->PortaCipher
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->
           "a94bd4ec-3fac-4ad7-9440-01a17d3e6b0a"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "928ee52e-9f16-4e63-9784-7fe179364c86"],
        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->
           "f05be17d-347c-4ee3-9e76-342e3ff59f23"]
         }],ExpressionUUID->"dedff9e5-4ae3-4ccc-9ddd-60b17419e0f2"],
         StripOnInput->False],{
        StyleBox[
          "\"VigenereCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereCipher"], 
         StyleBox[
          "\"AutokeyCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/AutokeyCipher"], 
         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->
      "f4a90b53-6ca8-4c6d-886a-a3a0dadec41a"],
     "\[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->
           "4dcff0ec-6d7c-44de-9d99-2ff8da758ed4"]
         }],ExpressionUUID->"b3ca9666-9e45-4826-83b0-95548521ae64"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "260194ae-3075-4e50-ab07-6a97d5678d43"],
     "\[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->
           "7d5ef519-ace8-48cd-8cbc-56d775a8437a"]
         }],ExpressionUUID->"0da79539-88bb-415c-9760-588dad9cf0c6"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/PortaCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/PortaCipher"], 
         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/PortaCipher.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/PortaCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "fe301728-7f06-43ae-b2ef-4f0c1c064702"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "106c5aab-ce1c-4bb4-af0b-379ee5553f12"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"27578d45-38ab-49a0-9220-158db243b058"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"c4a7e90d-9038-4dbc-b40d-9345dc3d596b"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "PortaCipher", "ObjectName",ExpressionUUID->
      "1e21f3b2-8811-4bd7-81f7-8e589f63bc37"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"ff5bddd9-91c0-409c-8be5-16876409c975"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "ed60d603-2aeb-48ff-b17a-640a543030af"]
    }],ExpressionUUID->"a25515d1-3839-47d9-891e-375e2c3bf04c"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"8d87490e-d208-45e7-845f-\
280e4e30d40f"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["PortaCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/PortaCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["keyword", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c3ad03b9-480e-4abe-9800-337c90151bc8"],
     "\[LineSeparator]",
     "enciphers text with the Porta cipher: each keyword letter selects one \
of 13 fixed reciprocal alphabets (A or B picks the first, C or D the second, \
and so on through Y or Z), and the message letters are looked up through the \
selected alphabet in turn."
    }],ExpressionUUID->"0fa30688-3e6c-4cb3-be77-983c7db71269"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["PortaCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/PortaCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["keyword", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "6e265761-8472-426c-b644-6357b3f1e622"],
     "\[LineSeparator]",
     "is the same operation - the Porta cipher is its own inverse."
    }],ExpressionUUID->"bc988d23-bd4e-4b4d-9721-1f4e344191d6"]}
  }]], "Usage",ExpressionUUID->"3eef98fc-a4b0-4ebb-9ecf-ba9eed62cb94"]
}, 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->"467062fc-d7c7-4e42-a08b-7fa5da4f2777"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"50459432-89c8-40c6-a503-897bc9f62239"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "9367b2f8-f5b7-4283-ab5c-789e7654c717"]],ExpressionUUID->"fcc365fa-11fc-\
4169-8706-b1bc6e7f5015"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->716569847,ExpressionUUID->"ab7d98f2-2170-4ffc-ac85-58f81035adb9"],

Cell["\<\
Each of the 13 alphabets is an involution that swaps the first half of the \
alphabet with a rotated second half, so encryption and decryption are \
identical.\
\>", "Notes",ExpressionUUID->"525fdcac-4a35-416d-9fa9-0253228ffe3c"],

Cell[TextData[{
 "The keyword repeats over the message to give it its period, exactly like a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["VigenereCipher"]], 
    "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "25ed0d95-0fde-4d18-8490-2150b7bd30da"],
 "; only letters are enciphered."
}], "Notes",ExpressionUUID->"73a2c278-5028-48b5-9468-f31446c393ea"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"366fe4c2-b9d8-460e-8398-9367cd0630da"],

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->"b488ad05-8a49-4d67-9945-b377ba570ffd"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"f1e20f3a-e3b1-48bf-b10c-cba725485308"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "6a42d2c5-3038-49a3-9121-d246cfe3e11c"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->301126153,ExpressionUUID->"ba22b53a-0bce-4730-bedd-1dc8c86ae95b"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"4ba1dc42-5d05-4e0c-a716-e66091ca02ea"],

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->
  "1f809363-3ea8-4bd8-bce1-932dcd37b37f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6291b881-a841-4937-bbed-a7695ee4556c"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "413cb446-722b-4aa6-872e-722b2b63b2ba"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1555781139,ExpressionUUID->"faa403ae-ba77-4e3e-a292-d9ee217779d5"],

Cell["The cipher deciphers itself:", "ExampleText",ExpressionUUID->"7fb12882-4460-43bb-9630-8e12427c1e3e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PortaCipher", "[", 
  RowBox[{
   RowBox[{"PortaCipher", "[", 
    RowBox[{"\"\<DEFENDTHEEASTWALLOFTHECASTLE\>\"", ",", 
     " ", "\"\<FORTIFICATION\>\""}], "]"}], ",", 
   " ", "\"\<FORTIFICATION\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"70fcc638-f7c7-4e67-b95f-73a3c1acd3e6"],

Cell[BoxData["\<\"DEFENDTHEEASTWALLOFTHECASTLE\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b1494b65-dca9-4716-870b-ce10be2becae"]
}, 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["VigenereCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "2ab4fdbd-28e9-48f9-b03f-bb8ed9dd5035"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["AutokeyCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/AutokeyCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ff543fee-75e4-485f-9a11-772ce2e6c799"],
        "\[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->
         "039d632d-6a3a-498a-b293-2eec78d1626e"]
       }], "SeeAlso",ExpressionUUID->"9165d5fa-ac8a-4ad1-a13e-96a117e4261b"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"36ca5492-d99f-4029-a5c7-\
bd30e9a04f2a"],

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->
         "2ce4058b-dc08-4039-bdfc-507430f463d4"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"c8421a44-3c0e-47c0-afcf-\
3229c7f832ec"],

Cell[" ", "FooterCell",ExpressionUUID->"71d75bb9-d2be-4d42-8100-5103f4d167b1"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"PortaCipher",
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, 52.363539}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[PortaCipher,paclet : \
WolframInstitute/Puzzles/ref/PortaCipher, WolframInstitute/Puzzles Package \
Symbol][text, keyword] enciphers text with the Porta cipher: each keyword \
letter selects one of 13 fixed reciprocal alphabets (A or B picks the first, \
C or D the second, and so on through Y or Z), and the message letters are \
looked up through the selected alphabet in turn. \
PackageLink[PortaCipher,paclet : WolframInstitute/Puzzles/ref/PortaCipher, \
WolframInstitute/Puzzles Package Symbol][text, keyword, Decrypt] is the same \
operation - the Porta cipher is its own inverse.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "PortaCipher", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "PortaCipher", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/PortaCipher", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"c7ad468a-4b67-41d5-ba5d-9bf26e13342e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[579, 21, 5408, 135, 70, "AnchorBarGrid",ExpressionUUID->"27578d45-38ab-49a0-9220-158db243b058",
 CellID->1],
Cell[5990, 158, 107, 0, 70, "ContextNameCell",ExpressionUUID->"c4a7e90d-9038-4dbc-b40d-9345dc3d596b"],
Cell[CellGroupData[{
Cell[6122, 162, 554, 14, 70, "ObjectNameGrid",ExpressionUUID->"8d87490e-d208-45e7-845f-280e4e30d40f"],
Cell[6679, 178, 1766, 43, 70, "Usage",ExpressionUUID->"3eef98fc-a4b0-4ebb-9ecf-ba9eed62cb94"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8482, 226, 1443, 34, 70, "NotesSection",ExpressionUUID->"ab7d98f2-2170-4ffc-ac85-58f81035adb9",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->716569847],
Cell[9928, 262, 239, 4, 70, "Notes",ExpressionUUID->"525fdcac-4a35-416d-9fa9-0253228ffe3c"],
Cell[10170, 268, 540, 13, 70, "Notes",ExpressionUUID->"73a2c278-5028-48b5-9468-f31446c393ea"]
}, Closed]],
Cell[10725, 284, 80, 0, 70, "PageDelimiter",ExpressionUUID->"366fe4c2-b9d8-460e-8398-9367cd0630da"],
Cell[CellGroupData[{
Cell[10830, 288, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"ba22b53a-0bce-4730-bedd-1dc8c86ae95b",
 CellID->301126153],
Cell[12233, 327, 216, 4, 70, "Input",ExpressionUUID->"4ba1dc42-5d05-4e0c-a716-e66091ca02ea",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12474, 335, 1236, 31, 70, "ExampleSection",ExpressionUUID->"faa403ae-ba77-4e3e-a292-d9ee217779d5",
 CellID->1555781139],
Cell[13713, 368, 106, 0, 70, "ExampleText",ExpressionUUID->"7fb12882-4460-43bb-9630-8e12427c1e3e"],
Cell[CellGroupData[{
Cell[13844, 372, 373, 8, 70, "Input",ExpressionUUID->"70fcc638-f7c7-4e67-b95f-73a3c1acd3e6"],
Cell[14220, 382, 142, 1, 70, "Output",ExpressionUUID->"b1494b65-dca9-4716-870b-ce10be2becae"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14401, 388, 1988, 52, 70, "SeeAlsoSection",ExpressionUUID->"36ca5492-d99f-4029-a5c7-bd30e9a04f2a"],
Cell[16392, 442, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"c8421a44-3c0e-47c0-afcf-3229c7f832ec"],
Cell[17093, 463, 78, 0, 70, "FooterCell",ExpressionUUID->"71d75bb9-d2be-4d42-8100-5103f4d167b1"]
}
]
*)

(* End of internal cache information *)

