(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 39810, 1139] NotebookOptionsPosition[ 33591, 987] NotebookOutlinePosition[ 35339, 1038] CellTagsIndexPosition[ 35296, 1035] WindowTitle->KurepaK | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Evaluate numerically:", "Text", TaggingRules->{}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", "10", "]"}]], "Input", TaggingRules->{}, CellID->443871870], Cell[BoxData["409114"], "Output", TaggingRules->{}, CellID->29101086] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->290209662], Cell["Plot over a subset of the reals:", "Text", TaggingRules->{}, CellID->234089675], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellID->91808669], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVxX04FHYAB/A7LlduuHNMJZu3vKQSxwpNr14STjZ5ybw97XrbtMWmY0+R FRq6kCJv0cp7EaM339+DVKTm0lhduXPH3TEvo8Uhbfvj83xMoo76f61GoVBC /vP/YwF1Dq/DRkCpddxXY6xHbEuuF/mvGcH+wNQ4OZdNHAq4tX2mI3gCTZvT HDZxvjRzP9RwBM0De8cOGbCJu8DjNe+jEcTJ2qJpYl0Smig3TBhXoiLMxCky VpekRljmldUr8Wlvg5OinEUyQ5+VW1UpsZdjGZYsYJHsoLjmmjIl7HWS3+09 ziJFfg/7mnKUaGPUf3vVk0Uatx74+MmPSrQriq61jTLJoPH17LfOSnT4Rp6L c2ESxSpuGZ+jRFwTL3KnBZOMLZ+pX7RR4kDxn52uLCaZZXoIlxopkdLUbRb7 TIdoU+VMow8KOF/T5P+wToe4SCwy3doUsL9h+V40q0VyrlxLzd2tQGU7a7Sx g0GCNqz24u9Q4CONubuUMgZZhTJGqIsCMVvvRuacZJCropJMExsFOvUTS7Oc GKTB4HJOtaYCZ0fmqM9vapLejHMlrY/l0AvelldbtYzoxx9vHveQo9J8Ex53 08nLpTP8ni1yiPy0Fhvq6KTo4g8uDRvlmMt3yRJeoBOLxmMtfEs57J62CkrD 6OSzyW/aaXQ59hRK16dMaZC9vMjfV3YMI4BftGPaVIPk+nsp3HcO407v2lsb ymikRVu0q2HzMNx4Fr6LGTQy1PltlYnjMIxOlCWMHqcRhx3noxdWD0PStOSI GZdGhJz+t3X0YZzu6n1Bfa9OdPR5VKOuIXQYNkZ9HqZOUvuSVk7vGQLnmeny eQc1cjOb/VOE1xBWRkdKNpupkT7ur6+7tw8hqZSbm8tSIxaPHpWUc4Zgnjmv EoxTSXuzjmWY/hBGK79yL6igEmp+Iedxvwz7TC0uSc2oJD70tndxuAw9+6Q/ q1tRSESVScThQBkW4gOWlhtQiPtcWowjV4aahF7/KDqF6F4Kye9yleEV6xMt 26cfUPl8Xj5jJIOPxmc6H3w/4KWXa7KfSIqHY0LJ1qBFODu13aYGS0HPyowy SVmAcapN9xM/KZQPMjI2H1mARl+2+KKnFB3CjLN87gKEsfvp6zdJMVg6+0/g 8gUcvrkkIMRAiuHYtNziqnnkW3pO1r8YRJ7BWmvz/jnM63db7PcfROo9rs0x DxWilg2cDfAahDlPSntgq0LnwuS4+/ZBkIimG3bLVciX6jVZ2w/CWLKtPVA5 C+e6UI8J1iAYayu0hOmzOO7914H4HgnmpB1Zwf0zeHeKUSHwk0AjwtLlcuI7 TE3ssrnvK4YsQMRar/0WLcyjtk4eYqRbf3dsyftppNnlcBq3iFF6e0fT6Og0 jGPeuNRsEMPUvuiS7PE0fN4d8y7UFcN21/mjp89MY49q46u56gFs9izM+15t Gi26ovCEe2+g7s1r/YY2hYtu5od+eiXCE2Z3vcm6SVRWG76w7RLhQR1HNWU0 iRY2e5v0jggCnRVNv2tPYlhCXeGVL8KVZYXlUZIJOJwYeGQQLAJFfvmo5uEJ CH/Lt7r1xyvcqb3vJjw5Di0rlkLZ8xJV9XumePf+QrLmIi/wUT9UGtaR0TFK OCZFR5+a60WP3Lu8RlOG55vqOl9s6UGnGbu/YPwNAorjzWkHO3Eu9HzwzW1/ QLCBdCy8bMWtw9pfDtg8RQLF7qRvYCMOnrUPlGwiMMysZLL1L2DK36fLqrgI Lb3hce6rc2B90FN9lWshIgz13/Ads8HPP5V46vVlXC0/WSUOOI/28ANj143y EHSmIj103S+Y8Duhv7ssGwVsvZA2nzTEmLSqnrplQVxywnJNdAqCs4XftSkE OHT3i9aZ2mRU2y1JVYWno9az5VzYsyT4CGLHk8rTkKGV/nfjxkTEFcS6MkJS 8C8onAsb "]], LineBox[CompressedData[" 1:eJwVxXk02wcAB3C6roRhh6NxrWnTbqtrM1NnvyWji2od77m2OkdRZY3jmdeW 9G017dRte9UaEglBRCQkjnUxOlr1Vucwi9sEyw8tU4Ztf3zehxLxhW/UARUV Faf//H/ve8X8FvtykB0y/AJ+5qJIShlml5XDPyepzftCFWh63ZQ7BhWASkzm s/UqeFtEShi3K2AV5lCpyKkG7S3DRD8tFhgn3QQMGg/eZhI15wwWtrr3Ys0n eWjbO7dwfJmFlKImSXZiDRrO33YZC2djkNYzcF23FvKY36l2EZWgu5r+VMqo Q9+GUo3Dr8TsfV0ns9E6HEpttjTbqMRnO6SwIHs++qrWg21TORhT9ydNKvgo GrW86/KSg5LuE+vmJfW4SIpr97zGRUg4053mIQDVoWo5YJcLY56z9dFtARic 0J65giocOZZ3TCeiAeL7b3skqFajI/MMSusaQJdl8zcjqrHsz07xUzbA6FLH qVdf46Gfu/DCMEwITcuh33K/4cFt5uGvFJEQ56lFQeRNHob4kTf9d4UoyfW0 5X5bA/6Hj1sfhDciQpYVJdSqxfN/SCVCaSMEZi6up9m1iNUqPtxkLMI6RbWr +406UFbJ3925JEKrr/PzgcI6yMUmf1z4UYRaQ+/CYB0+WKXxvWwdMY6YTE7F /sDHVpAtdzxBjNfn15gvyPU4rWjp35GJIUgPAJNVD0YK83OuURPK3S9PapgK 4GNDDy2Ob0JMKldbv1yA49tf1rR2NmFwj9Z1alQI43XXTUeGFF6aatKlrRa0 ci5aRSd34J7lPaesgi6UbI987yV7AgPyA3fFk6f4U2xlRDEZgPzMjcHrCQNQ mXCk5n01giudets21iNoSTJMC04Yh2wh8iPds+N4p+eQYPamHF6BJtFsfTmk gWfTt/SnkdalevSWYgrMap+TqSMzsLB4Zui5OgOh7eyKRDCHPadB7bihOZTJ 3NKNwxZgXfrBXZPpBZS71LycM1/E6sSJace5RRSlXx0NWlbgaaf3+41dS+gd 12BSs5ahuTNMau9bQXLgYjHT7S9Ej+XKTcRKbPxy45XMOSVCjO318tuUuPzu lZHpJSX8Q2fOHexUQq6VIHJeU8J93qZlqV+J1sSJ7I1dJahrY4USQon9FOGj KAMCU+pUuo8ZgQmPW/mfeBD41E4q+ppFYPjqQAW5gYDvtfClv3kEmsNY9NRm AvSHGpQ4IYHD+6sHh9sJ2H0cnOMjI5A2ayPJe0zAwPtArKmcgHpxxpukWQLa hbVl+fMExpPiQ6IVBPgF+2mcFQI6Vo8ckgkC/wI1i+L1 "]], LineBox[CompressedData[" 1:eJwVj39Q03Ucxjcw9IwIMEx+KL8EG5inHiDRxoNrNnKzET+cOA6JxsF5cHQc 4Aw7xXPaFBS7lQJyoVEJzKXBGcJERIERQoLsYOSvxAoQ4yObw7Efn7798b7n 7nXP89zzDs4uTM5xYbFYscz9r4Y+SfgFb4J1h7aw5t4keFL6+zbJWwSX2ens TC+CK6XWzca3CTqK7SNyhquqlbJMfwLju221uQyXJewIeT2I4K8pgSSX4Xft wS3RoQSmftUvAWsI9BiYvhhBEFiXLD2wlkDwZ6AyewPByVIBT7OOoC/XHNG8 mUB8wfPbnZEE3LX9HYZogoIzto3ujO/XntXSU+8RPG9YDu4mAmWPUODLY3aK UPFBFIF2WV+ly1Zmp1vikXNbCCKa/Dk6AcExt66OO3EExRZZeWMi05MXLuLE E3R/bzx6SExw2OE3VMTkHtn4H51IIuDJxpunmNwqjc9Q/S4Cd5enNaMiguPu HWMDeQS62izxpXSCwsHXngWrCO6ppsOySwhiJbVeQ/1MrsdsndAQDCT3ZoaL XkC++7xoRcALHLx01XKYO4+BsON7Hs4y/PJoCodvQuFNnvW74XmMu1Vqy2LM WGl/PBPYZILXoKfZNfwlJtLU67XlZhx4v9tp4FjwoU5Ybyx8iRLHG0tTAxZg XKKr/iPZgvrcY6P+oa/AlunCdB8voGrrnQrfMCv2KVYNtotfwaOwmX/LZxGy +7yxjAQrOgVt16/62ZDlfcLUkLQIR8GemJ0edoTxfrzGk9rAXjpSHemwo6zu QX7Sp3bEJBZ1b2c58WAfZ+jrCgcW72umfOadiCrxlDdqnRDk66t2WJxQsGcn h1ucqLRNxioXGf8PUqGtzYkgP3+V2YViMn5je9ItJ4RSFefeCgpHSmi627gT 6uGcvVXRFEfVwt5zbIoNvWtml++nUGR81qpIYzQtTs3/kuKdf9JFnbspbj5N 435RTnH24tm7S7IoUl0rK6ZVFOIj4p/UeynKEmzr9TUUt1NDT904SKFvHytQ 6iiebzr9Db+Jwnu7yed6F8W8gRt35meKDKNHp/k201PaMjLbSjG3sM1DPkjR 5ch5XHODYmV0q5b/kML3kwaFi4HC9bcomeAJRWReUIjfBEVjyjPnlb8ppKf1 y3SPKLhFIZLgOQqwtMX7Z5i/2PELu0wUmbyZOiPDr53/SvOvhUL+uWp1vpni PydJzwE= "]], LineBox[{{-0.0031620004479603297`, -0.004538299271609547}, \ {-0.002292977112136516, -0.0032890922770762447`}, {-0.0013782157060061857`, \ -0.0019757209384836574`}, {-0.00046345429987585556`, -0.0006639689204615536}, \ {-0.00032624008895630586`, -0.00046734549036554134`}}], LineBox[{{0.02633905489974283, 0.037072946834193286`}, { 0.026979387884034055`, 0.03795850171460771}, {0.027894149290164386`, 0.03922232244925759}, {0.02853448227445561, 0.04010611861912104}}], LineBox[{{0.01768998580478055, 0.02503983191428365}, { 0.018106202244569852`, 0.025621988569165057`}, {0.018746535228861078`, 0.026516999067447564`}, {0.019386868213152303`, 0.027411265291473384`}}]}, Annotation[#, "Charting`Private`Tag$1819742#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1, 2}, {-5.031911301757191, 1.9971734193595916`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellID->212147543] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->63605954], Cell["Series expansion at the origin:", "Text", TaggingRules->{}, CellID->393900187], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Series", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", "FullSimplify"}], "//", "Quiet"}]], "Input", TaggingRules->{}, CellID->856219041], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", "\[ExponentialE]"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EulerGamma", " ", RowBox[{"ExpIntegralE", "[", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "]"}]}], "+", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}]}], ")"}], " ", "x"}]}]}], "+", RowBox[{ FractionBox["1", "\[ExponentialE]"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["EulerGamma", "2"]}], "+", SuperscriptBox["\[Pi]", "2"]}], ")"}], " ", RowBox[{"ExpIntegralE", "[", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "]"}]}], "+", RowBox[{"EulerGamma", " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "+", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}]}], ")"}], " ", SuperscriptBox["x", "2"]}]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "x", "]"}], "3"], SeriesData[$CellContext`x, 0, {}, 1, 3, 1], Editable->False]}], SeriesData[$CellContext`x, 0, {((-1)/E) (EulerGamma ExpIntegralE[1, -1] + MeijerG[{{}, {1, 1}}, {{0, 0, 0}, {}}, -1]), E^(-1) (Rational[1, 12] (6 EulerGamma^2 + Pi^2) ExpIntegralE[1, -1] + EulerGamma MeijerG[{{}, {1, 1}}, {{0, 0, 0}, {}}, -1] + MeijerG[{{}, {1, 1, 1}}, {{0, 0, 0, 0}, {}}, -1])}, 1, 3, 1], Editable->False]], "Output", TaggingRules->{}, CellID->872915086] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Evaluate for complex arguments:", "Text", TaggingRules->{}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", RowBox[{"1.43", "+", "I"}], "]"}]], "Input", TaggingRules->{}, CellID->836153427], Cell[BoxData[ RowBox[{"1.221772780360163`", "\[VeryThinSpace]", "+", RowBox[{"0.8314989223477783`", " ", "\[ImaginaryI]"}]}]], "Output", TaggingRules->{}, CellID->204042599] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->956365887], Cell["Evaluate to high precision:", "Text", TaggingRules->{}, CellID->120847827], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", RowBox[{"1", "/", "3"}], "]"}], ",", "50"}], "]"}]], "Input", TaggingRules->{}, CellID->274386566], Cell[BoxData[ RowBox[{"0.\ 39918300218444135399516682601877636277350944748106629298003184584836851593058`\ 50.15051499783199", "+", RowBox[{"0``50.54934295773837", " ", "\[ImaginaryI]"}]}]], "Output", TaggingRules->{}, CellID->270385683] }, Open ]], Cell["\<\ The precision of the output tracks the precision of the input:\ \>", "Text", TaggingRules->{}, CellID->103281291], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", "0.333333333333333333333333333333333333", "]"}]], "Input", TaggingRules->{}, CellID->445742880], Cell[BoxData["0.3991830021844413539951668260187763624712278929087499685034`34.\ 484331479721654"], "Output", TaggingRules->{}, CellID->350971285] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->104319647], Cell[TextData[{ Cell[BoxData[ StyleBox["KurepaK", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " threads elementwise over lists:" }], "Text", TaggingRules->{}, CellID->116678275], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], "]"}]], "Input", TaggingRules->{}, CellID->47217379], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "10", ",", "34"}], "}"}]], "Output", TaggingRules->{}, CellID->62492965] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell[TextData[{ "A functional equation satisfied by ", Cell[BoxData[ StyleBox["KurepaK", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->1162600], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", "z", "]"}], "-", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", RowBox[{"z", "-", "1"}], "]"}]}], "\[Equal]", RowBox[{"Gamma", "[", "z", "]"}]}], "//", "FullSimplify"}]], "Input", TaggingRules->{}, CellID->310466153], Cell[BoxData["True"], "Output", TaggingRules->{}, CellID->255700357] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->102359512], Cell[TextData[{ "Compare ", Cell[BoxData[ StyleBox["KurepaK", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with its integral representation:" }], "Text", TaggingRules->{}, CellID->323292044], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"z", "=", RowBox[{"4", "/", "3"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"KurepaK\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"KurepaK\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["KurepaK"], BoxID -> "KurepaK", Selectable->False], "[", "z", "]"}], ",", "25"}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "z"], "-", "1"}], RowBox[{"t", "-", "1"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "25"}]}], "]"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellID->97982534], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "1.29216251375369056521373113967862518931`25.15051499783199", "+", RowBox[{"0``25.039197860033628", " ", "\[ImaginaryI]"}]}], ",", "1.29216251375369056521372475813794017159`25."}], "}"}]], "Output", TaggingRules->{}, CellID->213458993] }, Open ]] }, Open ]] }, Closed]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"KurepaK | Example Notebook", FrontEndVersion->"12.2 for Linux x86 (64-bit) (November 16, 2020)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "12.2 for Linux x86 (64-bit) (November 16, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[620, 23, 168, 7, 70, "Subsection",ExpressionUUID->"4959458d-78a8-4ac2-a9a2-d56b6565c619", CellID->462042388], Cell[791, 32, 75, 2, 70, "Text",ExpressionUUID->"c04153fb-4e86-43d1-b64a-a63af62f99ac", CellID->13078159], Cell[CellGroupData[{ Cell[891, 38, 1669, 47, 70, "Input",ExpressionUUID->"5d7bc377-1c64-4d47-ba49-5059407cb6c6", CellID->443871870], Cell[2563, 87, 71, 2, 70, "Output",ExpressionUUID->"1e20c9a6-8942-46e6-a94e-a0b7710d3c0a", CellID->29101086] }, Open ]], Cell[CellGroupData[{ Cell[2671, 94, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"d6f11179-0435-4205-8aa8-f6a3304a16ea", CellID->290209662], Cell[2818, 100, 87, 2, 70, "Text",ExpressionUUID->"07f5cf1e-6d7c-4e83-af30-a31388d78417", CellID->234089675], Cell[CellGroupData[{ Cell[2930, 106, 1890, 52, 70, "Input",ExpressionUUID->"1c78dfc8-c520-4d0e-9dd9-9441f039deee", CellID->91808669], Cell[4823, 160, 7007, 137, 70, "Output",ExpressionUUID->"1f4ff4a3-eb86-4910-aff5-50f2f6d653fe", CellID->212147543] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11879, 303, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9d9bc99e-8d53-4d02-8ddb-93699b00ec20", CellID->63605954], Cell[12025, 309, 86, 2, 70, "Text",ExpressionUUID->"4cbe681d-8e5d-4a5b-8dc4-3bb6855a08aa", CellID->393900187], Cell[CellGroupData[{ Cell[12136, 315, 2061, 56, 70, "Input",ExpressionUUID->"8f2d4918-b678-4b8c-b56b-b73788b8962a", CellID->856219041], Cell[14200, 373, 2771, 82, 70, "Output",ExpressionUUID->"0fcaf883-4b1b-4aa8-8122-2dfa3f80836a", CellID->872915086] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17032, 462, 159, 7, 70, "Subsection",ExpressionUUID->"5e462ddf-93d2-4dcd-9f38-723c2a85c93e", CellID->964056545], Cell[17194, 471, 86, 2, 70, "Text",ExpressionUUID->"5cf3e189-43e8-454f-bf41-8cc569ef9fc3", CellID->649685796], Cell[CellGroupData[{ Cell[17305, 477, 1694, 48, 70, "Input",ExpressionUUID->"d5e635e0-3431-4cc3-9ff6-50d78e64924a", CellID->836153427], Cell[19002, 527, 179, 4, 70, "Output",ExpressionUUID->"6bfb7a81-c6f5-4d8a-8c98-6916f8be4aca", CellID->204042599] }, Open ]], Cell[CellGroupData[{ Cell[19218, 536, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"bf00a9b3-aa00-469a-973a-b8dbf13b12d6", CellID->956365887], Cell[19365, 542, 82, 2, 70, "Text",ExpressionUUID->"12344190-17a4-4e0b-9e80-ae431761a71e", CellID->120847827], Cell[CellGroupData[{ Cell[19472, 548, 1834, 50, 70, "Input",ExpressionUUID->"01f9d816-a047-4f9f-b1f9-20049e5b1037", CellID->274386566], Cell[21309, 600, 243, 6, 70, "Output",ExpressionUUID->"e5b8c65e-3cf7-4350-bd45-35cfb1db4cd7", CellID->270385683] }, Open ]], Cell[21567, 609, 125, 4, 70, "Text",ExpressionUUID->"6ff9f7ea-c361-4099-8d9d-6def059a64ea", CellID->103281291], Cell[CellGroupData[{ Cell[21717, 617, 1708, 48, 70, "Input",ExpressionUUID->"dfdceaff-4f2a-4be5-bb92-2db636ba7594", CellID->445742880], Cell[23428, 667, 147, 3, 70, "Output",ExpressionUUID->"1aaec6a1-b09a-4ae7-8afc-f7176c951588", CellID->350971285] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23624, 676, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"942ff7f8-5e87-4270-b7a1-3eab04d454c9", CellID->104319647], Cell[23771, 682, 218, 7, 70, "Text",ExpressionUUID->"5084b0bc-5ddf-4590-9083-f539ac757af8", CellID->116678275], Cell[CellGroupData[{ Cell[24014, 693, 1747, 50, 70, "Input",ExpressionUUID->"4fe5b904-bfa0-4c38-ab66-2cdca2ffbba4", CellID->47217379], Cell[25764, 745, 143, 4, 70, "Output",ExpressionUUID->"dfc93919-5fff-4789-bfde-2a3df836395d", CellID->62492965] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[25968, 756, 178, 7, 70, "Subsection",ExpressionUUID->"630ede78-5347-4866-82a6-8b53ba4dc3ac", CellID->754506620], Cell[26149, 765, 225, 8, 70, "Text",ExpressionUUID->"8c752502-76e2-4b90-8fc4-3cea31aa27d2", CellID->1162600], Cell[CellGroupData[{ Cell[26399, 777, 3687, 97, 70, "Input",ExpressionUUID->"21298409-c453-4237-a18f-b5be9751af62", CellID->310466153], Cell[30089, 876, 70, 2, 70, "Output",ExpressionUUID->"5497a1f1-4144-4cca-b116-70bea678ba18", CellID->255700357] }, Open ]], Cell[CellGroupData[{ Cell[30196, 883, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"4fbbd43a-7f6d-48c0-86dd-358d7c3bfa2a", CellID->102359512], Cell[30343, 889, 233, 8, 70, "Text",ExpressionUUID->"2f72753d-7dfd-4723-b4c4-95aba2e180ba", CellID->323292044], Cell[CellGroupData[{ Cell[30601, 901, 2646, 71, 70, "Input",ExpressionUUID->"dcef6979-1389-43ab-9a1c-3ae117adc63e", CellID->97982534], Cell[33250, 974, 301, 8, 70, "Output",ExpressionUUID->"88c5719a-4072-4258-8246-da936f2b903b", CellID->213458993] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)