(* 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[     42710,       1122]
NotebookOptionsPosition[     34140,        962]
NotebookOutlinePosition[     36200,       1011]
CellTagsIndexPosition[     36122,       1006]
WindowTitle->BitcoinPublicKeyHash
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->
           "342a9905-451c-4398-a7e0-ab95a203278f"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "ce402b0c-0c21-49fb-9c41-45cde164f2fa"],
        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->
           "a31c86d8-13e3-4cb7-a96e-4c0600af9e0b"]
         }],ExpressionUUID->"a69c0e78-f124-4aaf-838e-2633c7ebca79"],
         StripOnInput->False],{
        StyleBox["\"Hash\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/Hash"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"BitcoinAddress\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress"], 
         StyleBox[
          StyleBox[
           "\"BitcoinAddressData\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinAddressData"], 
         StyleBox[
          StyleBox[
           "\"BIP32KeyFingerprint\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32KeyFingerprint"], 
         StyleBox[
          StyleBox["\"HashChain\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HashChain"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "d7a6ea11-6af5-4bab-9b79-eec785cac1eb"],
     "\[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->
           "3c30bbc2-57f8-48ad-87dc-a67132666ebd"]
         }],ExpressionUUID->"f79624cc-8ab7-43e0-b7af-812a70a5f8ec"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "354d0378-7ab6-4578-a722-3262a0fdec70"],
     "\[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->
           "af8b1d50-773c-46e9-9218-0f25e179bc03"]
         }],ExpressionUUID->"4d0f7e89-8130-4d9c-995c-695bdf8d5ffc"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash"],
          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/BitcoinPublicKeyHash.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/BitcoinPublicKeyHash" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b9f4ad20-64b0-47c5-b8e6-fe182857fb64"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "54992ec7-5a11-4397-aa4e-a3f13cfec106"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"7c0451c1-ae5d-45a6-8a2a-4e9ddf03c597"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"6caf54fb-92b5-4e91-b43d-2ff7647a78f4"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BitcoinPublicKeyHash", "ObjectName",ExpressionUUID->
      "22a4be45-f1e6-43b3-81b0-81d8388a3895"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"7ebfab7c-2994-4eb9-b681-93ce74c0daaf"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "0a78da54-7ed1-427a-aea4-d7f6df0f0d3b"]
    }],ExpressionUUID->"94c17270-df08-4095-bcbb-9b65c2a5494a"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"f82a4002-c8eb-46bf-bc7b-\
0ef067fb8953"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BitcoinPublicKeyHash"]], 
         "paclet:WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["key", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "9e46d56f-d57c-4eb0-93ba-f31def774598"],
     "\[LineSeparator]",
     "gives the 20-byte ",
     Cell[BoxData["HASH160"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "83a32683-95ae-441d-bf0c-8765a721dc3e"],
     " of a public ",
     StyleBox["key", "TI"],
     ", as a ByteArray."
    }],ExpressionUUID->"b94d29af-974a-4b11-a51e-9be824b2b7c5"]}
  }]], "Usage",ExpressionUUID->"4e614f40-a419-4670-86f4-06c9270d8cc8"]
}, 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->"f61f42d7-806b-4c66-a023-0c9f33e1ba80"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"f797dda7-4398-4384-9fc2-de05001f9fce"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "e91c2c54-fbec-467e-a018-70bdbd311e46"]],ExpressionUUID->"9f84417a-b892-\
4ab3-be59-e2d4b4183785"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1080026712,ExpressionUUID->"42ae5299-f31e-4721-a1b4-03ae4dee80a9"],

Cell[TextData[{
 Cell[BoxData["HASH160"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6f733340-6414-4560-ad50-0fef892481f6"],
 " is ",
 Cell[BoxData["RIPEMD160"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "72e47111-273a-4164-8f8b-108c235f53d6"],
 " of ",
 Cell[BoxData["SHA256"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d6eed4c2-021b-4385-937f-01777bb92731"],
 " of the input, the digest Bitcoin uses wherever it commits to a key or a \
script."
}], "Notes",ExpressionUUID->"5faab411-a921-416a-be46-6f56e41bb4c9"],

Cell["\<\
The key is a compressed or uncompressed SEC1 public key, as a ByteArray or a \
hexadecimal string, or a BIP32 extended key, in which case its public key is \
used.\
\>", "Notes",ExpressionUUID->"cb7430f5-249b-40bb-98f3-f1c770893c44"],

Cell["\<\
The hash is taken over the key exactly as encoded, so the compressed and \
uncompressed forms of one key give different hashes.\
\>", "Notes",ExpressionUUID->"0934b703-004d-4313-b612-ff559fe607b9"],

Cell["\<\
This 20-byte value is the payload of a P2PKH address and the witness program \
of a P2WPKH output.\
\>", "Notes",ExpressionUUID->"d8d2f8d8-1844-410b-b302-afa29fd77e5c"],

Cell["\<\
Input that is not a public key matches no definition and the call is returned \
unevaluated.\
\>", "Notes",ExpressionUUID->"853c6067-f81a-499e-87dc-daf81a067df4"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32KeyFingerprint"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32KeyFingerprint", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "da6cea8c-a85a-45c1-aba2-955d7df9efb5"],
 " is the first four bytes of the same hash."
}], "Notes",ExpressionUUID->"e5fdff55-886c-4da8-8ef4-ccc74d44675b"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"fb523690-7183-443e-a363-4c65b789dbbd"],

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->"2e42dd56-04cb-4b03-97f2-09346015e292"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6f9eccb4-d0e6-44ed-8a6b-3369ae2e884a"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "e1772b58-1625-4ea0-8097-0dcbef852efa"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1477164140,ExpressionUUID->"6c57f366-27bf-4824-9b35-6ef81b8bc64d"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"e0025cb5-ad90-426e-a3a0-2768bdcaa67a"],

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->
  "628bd7bf-f63e-440c-918b-f2685cc5c8e1"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"75db7d5e-7a0d-4497-9bbc-507c72e811e6"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "1238661f-e4a5-406a-b12b-ee19072f1e02"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1786741660,ExpressionUUID->"890428b6-076b-4992-8d0d-ee6109ec6743"],

Cell["\<\
The genesis coinbase key hashes to the payload of the genesis address:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"ccd4034a-aa34-4e7a-8cde-6d57dbad6c37"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"Normal", "[", 
   RowBox[{
   "BitcoinPublicKeyHash", 
    "[", "\"\<\
04678afdb0fe5548271967f1a67130b7105cd6a828e03909a67962e0ea1f61deb649f6bc3f4cef\
38c4f35504e51ec112de5c384df7ba0b8d578a4c702b6bf11d5f\>\"", "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"770de5d4-c1bf-45d6-97df-c5043855f38d"],

Cell[BoxData["\<\"62e907b15cbf27d5425399ebf6f0fb50ebb88f18\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b7832620-70c7-4d98-bacd-ad985e49507d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d39238ad-bb00-4224-8e2d-8d81ff2f0c9d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c7ba3f5a-5057-46d5-\
9811-3a24bdda9e65"],

Cell["The BIP49 test vector quotes this key hash explicitly:", "ExampleText",ExpressionUUID->"c57e9e47-4cf1-4d5e-84a9-5a335b8d50fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"Normal", "[", 
   RowBox[{
   "BitcoinPublicKeyHash", 
    "[", "\"\<\
03a1af804ac108a8a51782198c2d034b28bf90c8803f5a53f76276fa69a4eae77f\>\"", 
    "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"eb56b937-cbc1-489a-8b61-19d45c0cd0d3"],

Cell[BoxData["\<\"38971f73930f6c141d977ac4fd4a727c854935b3\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"aa1a0b94-a315-4609-8877-bbaf667408f0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d1bcb083-3c86-47f3-90b8-7ba862b0866e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7753e88b-d915-4690-\
a1b4-a13058b6a3f3"],

Cell["The result is 20 bytes:", "ExampleText",ExpressionUUID->"114d5d34-0927-40cc-abc7-dc5dcfda40fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
  "BitcoinPublicKeyHash", 
   "[", "\"\<\
03a1af804ac108a8a51782198c2d034b28bf90c8803f5a53f76276fa69a4eae77f\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"47361929-ecf6-40b0-a7bf-1b9649b24656"],

Cell[BoxData["20"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"60ffeb97-c03b-4e5e-be44-60f16fa2af00"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

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->
  "acd7a87e-afb1-4f50-a890-da44cc973690"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"07b406dd-d03b-4313-b58d-f3f8d8d8bfa8"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "6727b222-fbb8-4fae-9f4b-3417f1a1a983"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"62c41f12-5139-4ef2-bbee-869e4d153e1d"],

Cell["An extended key is hashed through its public key:", "ExampleText",ExpressionUUID->"76fabda6-8684-4c1d-8445-bdb97c149b8f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BitcoinPublicKeyHash", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}], " ", "===", " ", 
  RowBox[{"BitcoinPublicKeyHash", "[", 
   RowBox[{
    RowBox[{"BIP32PublicKey", "[", 
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      "]"}], "[", "\"\<Key\>\"", "]"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d32fd3c6-c33a-410d-8551-5ea50a449e5d"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8200f788-c1a3-4384-80e9-e31ff49cc3bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d2d3656c-6371-46a4-a7c1-1dc3d396fc14"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"755838d6-cfd8-44a9-\
b92c-2da4ecde3814"],

Cell["\<\
The compressed and uncompressed encodings of one key hash differently:\
\>", "ExampleText",ExpressionUUID->"cd2515d1-7f97-4b04-8849-1e1c87411d68"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BitcoinPublicKeyHash", "[", 
   RowBox[{"Secp256k1PublicKey", "[", "1", "]"}], "]"}], " ", "===", " ", 
  RowBox[{"BitcoinPublicKeyHash", "[", 
   RowBox[{"Secp256k1PublicKey", "[", 
    RowBox[{"1", ",", " ", "\"\<Uncompressed\>\""}], "]"}], "]"}]}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d50adee4-7b72-46ce-9688-fa772aabb301"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2e58e0ec-62de-4ccf-b8de-d19197e6c2b3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9f3b9933-5281-43f6-89d3-fcad7d2d818b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"91cf33e8-a9b3-4248-\
8d14-95359a40d4be"],

Cell["Input that is not a public key is returned unevaluated:", "ExampleText",ExpressionUUID->"b15ed777-6c24-404d-ba95-0faea43098b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BitcoinPublicKeyHash", "[", "12345", "]"}], ",", " ", 
   "_BitcoinPublicKeyHash"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"25cfd013-a1c7-4f6e-b0e4-b3442b0d1227"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bba04ecb-fd7b-48b5-8480-c41d903a101b"]
}, Open  ]]
}, Open  ]]
}, Closed]],

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->
  "62e11196-3fc3-476c-9fe5-ed5227c2f9b5"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b69f1af7-2d9c-43bc-b4cc-b712181adfe0"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "74bb707c-5437-4a4f-9a6a-32b5f2d13850"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"c3c6fd60-e661-4965-be3d-6c9f3e34365a"],

Cell["\<\
The hash is the witness program of the P2WPKH address of the same key:\
\>", "ExampleText",ExpressionUUID->"32d0c77b-6a4d-4c12-910d-908dfd478f95"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BitcoinAddressData", "[", 
    RowBox[{"BitcoinAddress", "[", 
     RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
      " ", "\"\<P2WPKH\>\""}], "]"}], "]"}], "[", "\"\<Hash\>\"", "]"}], " ", 
  "===", " ", 
  RowBox[{
  "BitcoinPublicKeyHash", 
   "[", "\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2ec4900d-4fdf-4a9e-a2fe-155b5d3ddf1d"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"adc4b64f-49c8-4022-9f53-9e86faf72146"]
}, Open  ]]
}, Closed]],

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->
  "cb7497e2-6eb3-46ec-a848-3f125e2971bd"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"57a922e1-d987-4d03-b4eb-d64f5b867b51"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "4ff8166d-88e3-4b27-aa0f-4343bc8913a3"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"48bb5715-bf60-4f2a-9354-f27ba7faa8c1"],

Cell[TextData[{
 "It is ",
 Cell[BoxData["RIPEMD160"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "39d3abcf-0d25-48a6-a920-0044c0d89009"],
 " composed with ",
 Cell[BoxData["SHA256"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8abd037e-6e4e-4c44-9e35-a9f8447f8b6e"],
 ":"
}], "ExampleText",ExpressionUUID->"77dd54f9-1ced-4158-804a-7b878432fe02"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "BitcoinPublicKeyHash", 
   "[", "\"\<\
03a1af804ac108a8a51782198c2d034b28bf90c8803f5a53f76276fa69a4eae77f\>\"", 
   "]"}], " ", "===", " ", 
  RowBox[{"Hash", "[", 
   RowBox[{
    RowBox[{"Hash", "[", 
     RowBox[{
      RowBox[{"ByteArray", "[", 
       RowBox[{
       "HexStringToByteList", 
        "[", "\"\<\
03a1af804ac108a8a51782198c2d034b28bf90c8803f5a53f76276fa69a4eae77f\>\"", 
        "]"}], "]"}], ",", " ", "\"\<SHA256\>\"", ",", 
      " ", "\"\<ByteArray\>\""}], "]"}], ",", " ", "\"\<RIPEMD160\>\"", ",", 
    " ", "\"\<ByteArray\>\""}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0bed30e2-a2a6-41ba-bf6f-b13feb5607e8"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fefd467c-6332-486f-83d4-fd89513c7849"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "38dce17d-1aab-424f-9cc2-bdf7baf4353b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"5e2aa4e0-eb78-4aff-\
a3db-1b9dd891451e"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32KeyFingerprint"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32KeyFingerprint", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ac023ba9-67d8-4610-bf22-894148cdc05f"],
 " takes its first four bytes:"
}], "ExampleText",ExpressionUUID->"10cd4eb2-8c9f-444e-8784-fac293ef304b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"Normal", "[", 
     RowBox[{"BitcoinPublicKeyHash", "[", 
      RowBox[{
      "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
       "]"}], "]"}], "]"}], ",", " ", "4"}], "]"}], " ", "===", " ", 
  RowBox[{"Normal", "[", 
   RowBox[{"BIP32KeyFingerprint", "[", 
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    "]"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"eeac2994-dc4f-41ac-ada0-cf93a70bcaa9"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c1ddac95-60c1-430f-8e5f-1e057f0ac769"]
}, Open  ]]
}, Open  ]]
}, Closed]],

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->
  "b5a725ab-b8c5-470f-8c54-fdf22c0b3a5b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e2c11f33-eb14-4b5d-9d6b-827b7c74adc9"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "8dc6affa-de92-4a6f-926c-9ce17706671a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"90d8fdb0-3719-47e4-abcb-dd421b281911"],

Cell["\<\
The digest is over the encoded key, so the two encodings of one private key \
produce two unrelated addresses; a wallet that funded the uncompressed form \
is invisible to a search over the compressed one:\
\>", "ExampleText",ExpressionUUID->"f808e696-c042-4864-94a2-b5cd5c0e0765"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ByteListToHexString", "[", 
     RowBox[{"Normal", "[", 
      RowBox[{"BitcoinPublicKeyHash", "[", 
       RowBox[{"Secp256k1PublicKey", "[", 
        RowBox[{"1", ",", " ", "#"}], "]"}], "]"}], "]"}], "]"}], " ", "&"}], 
   ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Compressed\>\"", ",", " ", "\"\<Uncompressed\>\""}], "}"}]}],
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f85aeca1-b2ce-4d23-bb29-815696503b60"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"751e76e8199196d454941c45d1b3a323f1433bd6\"\>", 
   ",", "\<\"91b24bf9f5288532960ac687abb035127b1d28a5\"\>"}], "}"}]], "Output",\

 CellLabel->"Out[1]= ",ExpressionUUID->"e7078b35-4f2e-494a-8211-41d2145ca4c1"]
}, Open  ]]
}, Closed]]
}, 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["BitcoinAddress"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "438ac7da-a41a-48ff-a07c-cc1697683a11"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BitcoinAddressData"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitcoinAddressData", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "0bff3237-07d9-4784-9a9d-c79420a5a35f"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32KeyFingerprint"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32KeyFingerprint", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c4a37d18-1826-4820-b31f-3189d45f40ac"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HashChain"]], 
           "paclet:WolframInstitute/Puzzles/ref/HashChain", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a804318c-2a46-4c6c-ae46-4882caa50800"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Hash"]], "paclet:ref/Hash"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c009b79b-1083-412c-9c52-907130d3a9d7"]
       }], "SeeAlso",ExpressionUUID->"ddf1c16c-4967-46a3-a40b-7ab41b5f93d9"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"a73eb748-2f8b-4ff1-825b-\
0c4f02a59664"],

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["Derivation"]], 
           "paclet:WolframInstitute/Puzzles/guide/Derivation"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "ee6ead48-0dab-46fe-94b5-ecd12344cea8"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"25414982-172f-420f-adba-\
85157d2c1b0a"],

Cell[" ", "FooterCell",ExpressionUUID->"36c5202d-f81f-46b1-8107-76695b52be35"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BitcoinPublicKeyHash",
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, 21.543386}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BitcoinPublicKeyHash, paclet : \
WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash, WolframInstitute/Puzzles \
Package Symbol][key] gives the 20-byte HASH160 of a public key, as a \
ByteArray.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "BitcoinPublicKeyHash", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "BitcoinPublicKeyHash", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"75e62da3-9f89-4222-9e28-1ff4dcf57ec4"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15061, 401, 188, 4, 70, "ExampleText",ExpressionUUID->"ccd4034a-aa34-4e7a-8cde-6d57dbad6c37",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 35965, 1000}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[588, 21, 6308, 152, 70, "AnchorBarGrid",ExpressionUUID->"7c0451c1-ae5d-45a6-8a2a-4e9ddf03c597",
 CellID->1],
Cell[6899, 175, 107, 0, 70, "ContextNameCell",ExpressionUUID->"6caf54fb-92b5-4e91-b43d-2ff7647a78f4"],
Cell[CellGroupData[{
Cell[7031, 179, 563, 14, 70, "ObjectNameGrid",ExpressionUUID->"f82a4002-c8eb-46bf-bc7b-0ef067fb8953"],
Cell[7597, 195, 977, 25, 70, "Usage",ExpressionUUID->"4e614f40-a419-4670-86f4-06c9270d8cc8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8611, 225, 1444, 34, 70, "NotesSection",ExpressionUUID->"42ae5299-f31e-4721-a1b4-03ae4dee80a9",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1080026712],
Cell[10058, 261, 674, 17, 70, "Notes",ExpressionUUID->"5faab411-a921-416a-be46-6f56e41bb4c9"],
Cell[10735, 280, 243, 4, 70, "Notes",ExpressionUUID->"cb7430f5-249b-40bb-98f3-f1c770893c44"],
Cell[10981, 286, 207, 3, 70, "Notes",ExpressionUUID->"0934b703-004d-4313-b612-ff559fe607b9"],
Cell[11191, 291, 178, 3, 70, "Notes",ExpressionUUID->"d8d2f8d8-1844-410b-b302-afa29fd77e5c"],
Cell[11372, 296, 172, 3, 70, "Notes",ExpressionUUID->"853c6067-f81a-499e-87dc-daf81a067df4"],
Cell[11547, 301, 509, 13, 70, "Notes",ExpressionUUID->"e5fdff55-886c-4da8-8ef4-ccc74d44675b"]
}, Closed]],
Cell[12071, 317, 80, 0, 70, "PageDelimiter",ExpressionUUID->"fb523690-7183-443e-a363-4c65b789dbbd"],
Cell[CellGroupData[{
Cell[12176, 321, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"6c57f366-27bf-4824-9b35-6ef81b8bc64d",
 CellID->1477164140],
Cell[13581, 360, 216, 4, 70, "Input",ExpressionUUID->"e0025cb5-ad90-426e-a3a0-2768bdcaa67a",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13822, 368, 1236, 31, 70, "ExampleSection",ExpressionUUID->"890428b6-076b-4992-8d0d-ee6109ec6743",
 CellID->1786741660],
Cell[15061, 401, 188, 4, 70, "ExampleText",ExpressionUUID->"ccd4034a-aa34-4e7a-8cde-6d57dbad6c37",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15274, 409, 433, 10, 70, "Input",ExpressionUUID->"770de5d4-c1bf-45d6-97df-c5043855f38d"],
Cell[15710, 421, 154, 1, 70, "Output",ExpressionUUID->"b7832620-70c7-4d98-bacd-ad985e49507d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15901, 427, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c7ba3f5a-5057-46d5-9811-3a24bdda9e65"],
Cell[16128, 434, 132, 0, 70, "ExampleText",ExpressionUUID->"c57e9e47-4cf1-4d5e-84a9-5a335b8d50fd"],
Cell[CellGroupData[{
Cell[16285, 438, 369, 9, 70, "Input",ExpressionUUID->"eb56b937-cbc1-489a-8b61-19d45c0cd0d3"],
Cell[16657, 449, 154, 1, 70, "Output",ExpressionUUID->"aa1a0b94-a315-4609-8877-bbaf667408f0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16860, 456, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7753e88b-d915-4690-a1b4-a13058b6a3f3"],
Cell[17087, 463, 101, 0, 70, "ExampleText",ExpressionUUID->"114d5d34-0927-40cc-abc7-dc5dcfda40fd"],
Cell[CellGroupData[{
Cell[17213, 467, 319, 8, 70, "Input",ExpressionUUID->"47361929-ecf6-40b0-a7bf-1b9649b24656"],
Cell[17535, 477, 108, 1, 70, "Output",ExpressionUUID->"60ffeb97-c03b-4e5e-be44-60f16fa2af00"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17704, 485, 1227, 31, 70, "ExampleSection",ExpressionUUID->"62c41f12-5139-4ef2-bbee-869e4d153e1d",
 CellID->1293636265],
Cell[18934, 518, 127, 0, 70, "ExampleText",ExpressionUUID->"76fabda6-8684-4c1d-8445-bdb97c149b8f"],
Cell[CellGroupData[{
Cell[19086, 522, 548, 13, 70, "Input",ExpressionUUID->"d32fd3c6-c33a-410d-8551-5ea50a449e5d"],
Cell[19637, 537, 110, 1, 70, "Output",ExpressionUUID->"8200f788-c1a3-4384-80e9-e31ff49cc3bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19784, 543, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"755838d6-cfd8-44a9-b92c-2da4ecde3814"],
Cell[20011, 550, 156, 2, 70, "ExampleText",ExpressionUUID->"cd2515d1-7f97-4b04-8849-1e1c87411d68"],
Cell[CellGroupData[{
Cell[20192, 556, 425, 9, 70, "Input",ExpressionUUID->"d50adee4-7b72-46ce-9688-fa772aabb301"],
Cell[20620, 567, 111, 1, 70, "Output",ExpressionUUID->"2e58e0ec-62de-4ccf-b8de-d19197e6c2b3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20780, 574, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"91cf33e8-a9b3-4248-8d14-95359a40d4be"],
Cell[21007, 581, 133, 0, 70, "ExampleText",ExpressionUUID->"b15ed777-6c24-404d-ba95-0faea43098b2"],
Cell[CellGroupData[{
Cell[21165, 585, 290, 6, 70, "Input",ExpressionUUID->"25cfd013-a1c7-4f6e-b0e4-b3442b0d1227"],
Cell[21458, 593, 110, 1, 70, "Output",ExpressionUUID->"bba04ecb-fd7b-48b5-8480-c41d903a101b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[21629, 601, 1233, 31, 70, "ExampleSection",ExpressionUUID->"c3c6fd60-e661-4965-be3d-6c9f3e34365a",
 CellID->258228157],
Cell[22865, 634, 156, 2, 70, "ExampleText",ExpressionUUID->"32d0c77b-6a4d-4c12-910d-908dfd478f95"],
Cell[CellGroupData[{
Cell[23046, 640, 578, 15, 70, "Input",ExpressionUUID->"2ec4900d-4fdf-4a9e-a2fe-155b5d3ddf1d"],
Cell[23627, 657, 110, 1, 70, "Output",ExpressionUUID->"adc4b64f-49c8-4022-9f53-9e86faf72146"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23786, 664, 1244, 31, 70, "ExampleSection",ExpressionUUID->"48bb5715-bf60-4f2a-9354-f27ba7faa8c1",
 CellID->2123667759],
Cell[25033, 697, 450, 12, 70, "ExampleText",ExpressionUUID->"77dd54f9-1ced-4158-804a-7b878432fe02"],
Cell[CellGroupData[{
Cell[25508, 713, 740, 20, 70, "Input",ExpressionUUID->"0bed30e2-a2a6-41ba-bf6f-b13feb5607e8"],
Cell[26251, 735, 110, 1, 70, "Output",ExpressionUUID->"fefd467c-6332-486f-83d4-fd89513c7849"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26398, 741, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"5e2aa4e0-eb78-4aff-a3db-1b9dd891451e"],
Cell[26625, 748, 501, 13, 70, "ExampleText",ExpressionUUID->"10cd4eb2-8c9f-444e-8784-fac293ef304b"],
Cell[CellGroupData[{
Cell[27151, 765, 604, 15, 70, "Input",ExpressionUUID->"eeac2994-dc4f-41ac-ada0-cf93a70bcaa9"],
Cell[27758, 782, 110, 1, 70, "Output",ExpressionUUID->"c1ddac95-60c1-430f-8e5f-1e057f0ac769"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27929, 790, 1237, 31, 70, "ExampleSection",ExpressionUUID->"90d8fdb0-3719-47e4-abcb-dd421b281911",
 CellID->1305812373],
Cell[29169, 823, 291, 4, 70, "ExampleText",ExpressionUUID->"f808e696-c042-4864-94a2-b5cd5c0e0765"],
Cell[CellGroupData[{
Cell[29485, 831, 551, 14, 70, "Input",ExpressionUUID->"f85aeca1-b2ce-4d23-bb29-815696503b60"],
Cell[30039, 847, 252, 5, 70, "Output",ExpressionUUID->"e7078b35-4f2e-494a-8211-41d2145ca4c1"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[30330, 857, 3022, 80, 70, "SeeAlsoSection",ExpressionUUID->"a73eb748-2f8b-4ff1-825b-0c4f02a59664"],
Cell[33355, 939, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"25414982-172f-420f-adba-85157d2c1b0a"],
Cell[34058, 960, 78, 0, 70, "FooterCell",ExpressionUUID->"36c5202d-f81f-46b1-8107-76695b52be35"]
}
]
*)

(* End of internal cache information *)

