(* 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[     20336,        516]
NotebookOptionsPosition[     16439,        441]
NotebookOutlinePosition[     18375,        485]
CellTagsIndexPosition[     18332,        482]
WindowTitle->EnglishNgramScore
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->
           "69510fa8-aba7-4fae-9370-79c47915e09f"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "43b3b6b2-3e01-4247-ace5-571c7e39e0d9"],
        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->
           "411df68f-7866-43fd-8e1b-4ff796e58881"]
         }],ExpressionUUID->"bb499d46-2438-45d5-b16c-dc5036a30aa6"],
         StripOnInput->False],{
        StyleBox[
          "\"VigenereSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereSolve"], 
         StyleBox[
          "\"ColumnarTranspositionSolve\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve"], 
         StyleBox[
          "\"IndexOfCoincidence\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/IndexOfCoincidence"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c256105b-b376-4c2e-b289-2c7e37d71945"],
     "\[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->
           "26739eed-9697-4086-95e4-09bc9671b7ef"]
         }],ExpressionUUID->"98261116-5500-4906-bb99-401af68a42db"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "df306fe5-e742-4c1b-8a2d-4ab48053f814"],
     "\[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->
           "8ac1cbd4-fdea-4cfc-bf36-f81c19e57956"]
         }],ExpressionUUID->"71223702-fb24-46a3-96fa-176483ebe7ea"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/EnglishNgramScore\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/EnglishNgramScore"], 
         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/EnglishNgramScore.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/EnglishNgramScore" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "637cf9a8-14f5-40f2-a050-cca70850b09f"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "dda05866-c728-4a00-9c83-7f87f7230582"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"6f08d156-0a58-4bec-b035-4c074097cced"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"c6f1b4e7-6df7-40de-ad40-efdf8ba51d8f"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "EnglishNgramScore", "ObjectName",ExpressionUUID->
      "9db6ba5d-39b0-49b5-8db7-a07f3b1d065a"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"14b93648-eed0-4b49-b0ce-4e93411bb7e8"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "119f1369-e70e-4ea2-a494-ee8c43e332e4"]
    }],ExpressionUUID->"6da16d3b-f1f3-49ac-8d97-60d91d72863e"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"f4863369-2065-4271-8bd1-\
fb804321be4f"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["EnglishNgramScore"]], 
         "paclet:WolframInstitute/Puzzles/ref/EnglishNgramScore", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["text", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "5c063a91-6f71-4a46-ad26-e64b2c9bbaf8"],
     "\[LineSeparator]",
     "gives the total log-probability of the letters in text under an English \
quadgram model; larger (less negative) values are more English-like."
    }],ExpressionUUID->"c13c0fa6-3662-4fb7-88e9-8f731af6c961"]}
  }]], "Usage",ExpressionUUID->"e6537677-3571-4322-8647-51a30bbe8bf8"]
}, 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->"982e1f3c-7280-4d52-b478-72c5607e380a"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"64dbf311-8f2e-4e4d-8a19-802d0297583c"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "3d0e9f76-77bf-4f56-91da-c81b458b3a2d"]],ExpressionUUID->"515210c0-b3ba-\
41b1-89dd-cc137c2b32a8"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->2077503592,ExpressionUUID->"49932d41-639b-47f0-b582-5cf66ced091b"],

Cell["\<\
This is the fitness function the cipher solvers rank their candidate \
decryptions by: a plausible English decryption scores far above a scrambled \
one, so a hill-climb or an exhaustive sweep can find the key without a crib.\
\>", "Notes",ExpressionUUID->"c6116c21-8c2c-442f-b266-b01cbf0a71ab"],

Cell[TextData[{
 "The quadgram model is built once, from the kernel's own ",
 Cell[BoxData[
  RowBox[{"DictionaryLookup", "[", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "38a7da68-a0d0-4c2f-91ae-30465af7329e"],
 ", and cached in the session \[LongDash] so the paclet ships no external \
corpus. Unseen quadgrams fall back to a small floor probability."
}], "Notes",ExpressionUUID->"8a58e023-0aa3-4807-b383-e88a4bcb924b"],

Cell["\<\
Non-letters are ignored; fewer than four letters scores at the floor.\
\>", "Notes",ExpressionUUID->"bf35430a-131c-4b79-b240-4b585f1618b1"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"3a30d302-aeb7-4ccb-b00a-228717ef94b7"],

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->"ef83e382-378b-4788-8dba-c0032270e2da"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"426c931d-cdf4-4b68-a2e6-b1655dd00260"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "c96571e5-8b41-4a94-aa75-624b60535621"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->666254171,ExpressionUUID->"206ff2fc-08e7-4c27-af8c-401efd92bb57"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"9d4b1821-5100-4538-9119-61424e1e0765"],

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->
  "a68c55d9-5872-49a5-af7e-45c7e3eebcca"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d4a0ac73-2f49-417e-9b4f-f24f6a10a9d9"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "8d2299ed-af18-4d4f-a1fd-90dc369493db"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->754116539,ExpressionUUID->"007d8861-046d-4f2d-9fa3-f7a394d2c1b1"],

Cell["English scores above gibberish:", "ExampleText",ExpressionUUID->"0ceeb909-545a-4cf8-be5c-8c3babeeafd3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"EnglishNgramScore", "[", "\"\<THISISPLAINENGLISHTEXT\>\"", "]"}], 
  " ", ">", " ", 
  RowBox[{
  "EnglishNgramScore", "[", "\"\<ZXQWKVBJZXQWKVBJZXQW\>\"", "]"}]}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"35b64f0f-0392-41c4-aeb7-fff66d7992c2"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cd835144-afd6-4a4f-83a6-e854db13c520"]
}, 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["VigenereSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/VigenereSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e63ce631-d7e3-4f59-9c4b-f4df0ddd01a4"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ColumnarTranspositionSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "dddfbba8-6382-4372-9e81-85df0b79654a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["IndexOfCoincidence"]], 
           "paclet:WolframInstitute/Puzzles/ref/IndexOfCoincidence", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "9c5c6f17-4ee7-4295-8f4d-7e43d630e0b0"]
       }], "SeeAlso",ExpressionUUID->"e7a4505d-b71a-439a-8b8e-4b899b422561"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"02dce075-c2a1-45ff-8d8f-\
a6a78c580e40"],

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["Search"]], 
           "paclet:WolframInstitute/Puzzles/guide/Search"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "2c3a4e91-3ab4-479d-9e11-99f97b2b0a32"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"d3e89a85-93b0-4d08-9a08-\
5736ceb93490"],

Cell[" ", "FooterCell",ExpressionUUID->"9e11b270-ca3c-4967-b9f8-4bc9b0253745"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"EnglishNgramScore",
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, 36.134294}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[EnglishNgramScore, paclet : \
WolframInstitute/Puzzles/ref/EnglishNgramScore, WolframInstitute/Puzzles \
Package Symbol][text] gives the total log-probability of the letters in text \
under an English quadgram model; larger (less negative) values are more \
English-like.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "EnglishNgramScore", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "EnglishNgramScore", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/EnglishNgramScore", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"ba55d199-cf0f-4a2f-91a6-d1e289145b0c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 5462, 135, 70, "AnchorBarGrid",ExpressionUUID->"6f08d156-0a58-4bec-b035-4c074097cced",
 CellID->1],
Cell[6050, 158, 107, 0, 70, "ContextNameCell",ExpressionUUID->"c6f1b4e7-6df7-40de-ad40-efdf8ba51d8f"],
Cell[CellGroupData[{
Cell[6182, 162, 560, 14, 70, "ObjectNameGrid",ExpressionUUID->"f4863369-2065-4271-8bd1-fb804321be4f"],
Cell[6745, 178, 842, 19, 70, "Usage",ExpressionUUID->"e6537677-3571-4322-8647-51a30bbe8bf8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7624, 202, 1444, 34, 70, "NotesSection",ExpressionUUID->"49932d41-639b-47f0-b582-5cf66ced091b",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->2077503592],
Cell[9071, 238, 305, 4, 70, "Notes",ExpressionUUID->"c6116c21-8c2c-442f-b266-b01cbf0a71ab"],
Cell[9379, 244, 480, 9, 70, "Notes",ExpressionUUID->"8a58e023-0aa3-4807-b383-e88a4bcb924b"],
Cell[9862, 255, 149, 2, 70, "Notes",ExpressionUUID->"bf35430a-131c-4b79-b240-4b585f1618b1"]
}, Closed]],
Cell[10026, 260, 80, 0, 70, "PageDelimiter",ExpressionUUID->"3a30d302-aeb7-4ccb-b00a-228717ef94b7"],
Cell[CellGroupData[{
Cell[10131, 264, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"206ff2fc-08e7-4c27-af8c-401efd92bb57",
 CellID->666254171],
Cell[11534, 303, 216, 4, 70, "Input",ExpressionUUID->"9d4b1821-5100-4538-9119-61424e1e0765",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[11775, 311, 1235, 31, 70, "ExampleSection",ExpressionUUID->"007d8861-046d-4f2d-9fa3-f7a394d2c1b1",
 CellID->754116539],
Cell[13013, 344, 109, 0, 70, "ExampleText",ExpressionUUID->"0ceeb909-545a-4cf8-be5c-8c3babeeafd3"],
Cell[CellGroupData[{
Cell[13147, 348, 338, 8, 70, "Input",ExpressionUUID->"35b64f0f-0392-41c4-aeb7-fff66d7992c2"],
Cell[13488, 358, 110, 1, 70, "Output",ExpressionUUID->"cd835144-afd6-4a4f-83a6-e854db13c520"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[13637, 364, 2022, 52, 70, "SeeAlsoSection",ExpressionUUID->"02dce075-c2a1-45ff-8d8f-a6a78c580e40"],
Cell[15662, 418, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"d3e89a85-93b0-4d08-9a08-5736ceb93490"],
Cell[16357, 439, 78, 0, 70, "FooterCell",ExpressionUUID->"9e11b270-ca3c-4967-b9f8-4bc9b0253745"]
}
]
*)

(* End of internal cache information *)

