(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 7446278, 180883] NotebookOptionsPosition[ 7410140, 179983] NotebookOutlinePosition[ 7410514, 180000] CellTagsIndexPosition[ 7410471, 179997] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Dirichlet Beta Function", "Title",ExpressionUUID->"95207a57-fd23-456e-bed7-cbd4dce7e7e0"], Cell[CellGroupData[{ Cell["Author", "Subsection",ExpressionUUID->"834afb27-69db-4730-afb2-9fa90193f5a3"], Cell["\", "Text",ExpressionUUID->"38594006-5cb7-4b35-80c3-e2921e4b718c"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/SpecialFunctions/\ DirichletBetaFunction.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/SpecialFunctions/\ DirichletBetaFunction.nb"], None}], "." }], "Text",ExpressionUUID->"c99db525-accd-430d-8dcb-0e06cada6161"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/DirichletBetaFunction.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/DirichletBetaFunction.html"], None}], "." }], "Text",ExpressionUUID->"f844a8fe-aafa-468a-bab6-ec5057ed2746"], Cell["\", "Text",ExpressionUUID->"fee74127-81d5-46d3-bf8e-ecdcdf302d73"] }, Open ]], Cell[CellGroupData[{ Cell["Definition", "Section",ExpressionUUID->"7f702e4a-95b5-45ce-b3ad-d2bb6285da49"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirichletBeta", "[", "x", "]"}]], "Input",ExpressionUUID->"0d626436-a653-44e6-9e7a-012e9d36c241"], Cell[BoxData[ RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}]}], "-", RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}]}], ")"}]}]], "Output",ExpressionUUID->\ "9e1d5885-b6a3-4cd0-84d5-3ff37ec62d45"] }, Open ]], Cell[CellGroupData[{ Cell["V6", "Subsubsection",ExpressionUUID->"d6ebfdc6-383a-4803-9d05-63f42ab54580"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "n"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"-", "x"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",Expr\ essionUUID->"5a180760-83ee-4619-a330-45574eba4148"], Cell[BoxData[ RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "c6f9c267-1e47-4f32-8928-2f3d95ad08fd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "2"}], " ", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}], "//", "FullSimplify"}]], "Input",E\ xpressionUUID->"11b43d7c-29b6-4feb-8dce-012c4a743ee4"], Cell[BoxData[ FractionBox["\[Pi]", "4"]], "Output",ExpressionUUID->"59e55bb5-3b0a-405f-b2d2-766b0916330f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "n"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",Expr\ essionUUID->"d891b77a-c0bc-46b0-93b3-7e7d31c40c75"], Cell[BoxData[ FractionBox["\[Pi]", "4"]], "Output",ExpressionUUID->"ea29366c-f109-4b54-b302-92c21e59edff"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["V7", "Subsubsection",ExpressionUUID->"326f2d84-db2c-453b-9f30-601885f5cb7e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "n"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"-", "x"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",Expr\ essionUUID->"3bdea082-423e-4ad8-ad69-99ca01504666"], Cell[BoxData[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "2"}], " ", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "37b7df47-bed8-4068-b1d6-934e7ebbab31"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "2"}], " ", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}], "//", "FullSimplify"}]], "Input",E\ xpressionUUID->"ce04b901-f1be-4849-a363-f02921c9780e"], Cell[BoxData[ FractionBox["\[Pi]", "4"]], "Output",ExpressionUUID->"3292e849-280e-47e1-809c-817ab32d4c91"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "n"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",Expr\ essionUUID->"2a9b566f-7e1b-45cc-a335-5a66f2946e17"], Cell[BoxData[ FractionBox["\[Pi]", "4"]], "Output",ExpressionUUID->"ade93d99-60d1-4d8d-b8e7-f97803e390a3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["V10", "Subsubsection",ExpressionUUID->"becb686d-1fbe-4ba8-8a59-46651895737f"], Cell[TextData[{ "bug(", ButtonBox["265447", BaseStyle->"Hyperlink", ButtonData->{ URL["https://bugs.wolfram.com/show?number=265447"], None}, ButtonNote->"https://bugs.wolfram.com/show?number=265447"], ")" }], "Text",ExpressionUUID->"1591ae26-c84b-49ce-8160-cba3543b2b10"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sum", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "n"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"-", "x"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}]], "Input",E\ xpressionUUID->"8ce60f14-3fb5-4abb-aafb-e60f81c2663c"], Cell[BoxData[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "2"}], " ", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "babb9ab8-b30c-4074-83ee-88471a42cb70"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "sum", "]"}]], "Input",ExpressionUUID->"fa64047a-ddd3-40df-88b4-a2fe49691728"], Cell[BoxData[ RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "266a8078-3ff4-4777-bd0f-a8cea68d22e2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"%", "-", RowBox[{"DirichletBeta", "[", "x", "]"}]}], "]"}]], "Input",ExpressionUUID-\ >"965a0fd1-0c15-4bb1-9d54-ae8e6905453c"], Cell[BoxData["0"], "Output",ExpressionUUID->"3db1b810-8713-4c72-ad64-9a24997aefcc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionExpand", "[", RowBox[{"DirichletBeta", "[", "x", "]"}], "]"}]], "Input",ExpressionUUID->\ "3b83ef70-bfcc-4f5f-a2c6-d093f10168a6"], Cell[BoxData[ RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}]}], "-", RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}]}], ")"}]}]], "Output",ExpressionUUID->\ "9b8938e9-7b02-4f45-92d3-42375ead7976"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plots", "Section",ExpressionUUID->"a0eb14e5-1101-4633-a76d-b31969822349"], Cell[BoxData[{ RowBox[{"\ "19c7a3ae-1c0c-4b09-ad17-cc7425721f62"], Cell[CellGroupData[{ Cell["Real Axis", "Subsection",ExpressionUUID->"9b511e8a-40ee-4d47-8a9a-289b5f73e3a1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{"x", ",", RowBox[{"DirichletBeta", "[", "x", "]"}]}], "}"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]], "Input",ExpressionUUID->\ "062d1af2-c1bd-4b80-95aa-21e8bf0da7da"], Cell[GraphicsData["PostScript", "\"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\"],ImageRangeCache->{{{0., 287.}, {176.938, 0.}} -> {-6., -6., 0., \ 0.}},ExpressionUUID->"c0457029-a0f3-487e-96f2-bd544cfbbde4"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"f7c669b5-42d6-45f8-8164-\ 05e90ac17e9a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Complex Plane", "Subsection",ExpressionUUID->"c92658d0-d8c5-4e7b-a896-99d98e782c39"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ComplexPlot3D", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "200"}]}], "]"}], "//", "Timing"}]], "Input",ExpressionUUID->"c1407f14-7266-4991-ac5b-734322c11157"], Cell[GraphicsData["PostScript", "\"], "Graphics", ImageSize->{500, 126.688},ImageCache->GraphicsData["CompressedBitmap", "\"],ImageRangeCache->{{{0., 499.}, {125.688, 0.}} -> {0., 0., 0., 0.}, \ {{13.375, 160.938}, {122.688, 2.9375}} -> {0., 0., 0., 0.}, {{175.688, \ 323.25}, {122.688, 2.9375}} -> {-1., 0., 0., 0.}, {{338., 485.562}, {122.688, \ 2.9375}} -> {-2., 0., 0., \ 0.}},ExpressionUUID->"4d5f2606-6e6e-4d0c-a4c0-8663a4e05f57"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"27.28`", " ", "Second"}], ",", TagBox[ RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}], False, Editable->False]}], "}"}]], "Output",ExpressionUUID->"486d5a27-5465-4a11-\ 8399-d98d296c0599"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ComplexContourPlot", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}], "//", "Timing"}]], "Input",Exp\ ressionUUID->"4066fbe2-872f-4c17-ab9c-4340bbd72930"], Cell[GraphicsData["PostScript", "\"], "Graphics", ImageSize->{500, 172.375},ImageCache->GraphicsData["CompressedBitmap", "\"],ImageRangeCache->{{{0., 499.}, {171.375, 0.}} -> {0., 0., 0., 0.}, \ {{12.8125, 176.}, {167.25, 4.0625}} -> {-11., -9., 0., 0.}, {{167.875, \ 331.062}, {167.25, 4.0625}} -> {-27., -9., 0., 0.}, {{322.938, 486.125}, \ {167.25, 4.0625}} -> {-42., -9., 0., \ 0.}},ExpressionUUID->"bc74b622-c965-4bce-9b6c-05cd37cba7fe"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"66.06`", " ", "Second"}], ",", TagBox[ RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}], False, Editable->False]}], "}"}]], "Output",ExpressionUUID->"bdcbe8f2-99c0-4cec-\ ab55-e8a712bcdf74"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Special Values", "Section",ExpressionUUID->"407de4ea-5327-4c3a-9b9a-d40c27d84143"], Cell[CellGroupData[{ Cell[TextData[{ "Negative Odd ", Cell[BoxData[ FormBox["n", TraditionalForm]],ExpressionUUID-> "07bb903f-9022-4e1c-b85a-c603ab85e8b0"] }], "Subsection",ExpressionUUID->"082f4479-b4d3-47db-9966-d05d9152c369"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"DirichletBeta", "[", RowBox[{"Range", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "20"}], ",", RowBox[{"-", "2"}]}], "]"}], "]"}], "]"}]], "Input",ExpressionUUID->\ "c49baade-70a7-444c-bb35-3135a3e386f1"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionUUID->"fd5990d4-482d-4390-\ 88b6-5eea1f7b02e5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirichletBeta", "[", RowBox[{"Range", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "20"}], ",", RowBox[{"-", "2"}]}], "]"}], "]"}]], "Input",ExpressionUUID->"e19a7cd9-\ 5766-4f66-ba5b-1ec250638c93"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionUUID->"9e2baceb-acac-452c-\ 9677-8e2c395bd9b5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "&&", RowBox[{"n", ""b3c99efa-f199-4173-84d9-26e6195638bb"], Cell[BoxData["0"], "Output",ExpressionUUID->"c453e7a3-f6c6-430a-a82d-5ddd672f0a2e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Negative Even ", Cell[BoxData[ FormBox["n", TraditionalForm]],ExpressionUUID-> "dc2e231e-3bae-482e-812e-4f7f380cfe6f"] }], "Subsection",ExpressionUUID->"bacc233d-d343-43c8-a629-ad559a1dbba8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ FractionBox[ RowBox[{"EulerE", "[", RowBox[{"-", "k"}], "]"}], "2"], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "20"}], ",", RowBox[{"-", "2"}]}], "}"}]}], "]"}]], "Input",ExpressionUUID->"80db7ed0-\ 56f4-45cb-af57-d2e9fee17f91"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["5", "2"], ",", RowBox[{"-", FractionBox["61", "2"]}], ",", FractionBox["1385", "2"], ",", RowBox[{"-", FractionBox["50521", "2"]}], ",", FractionBox["2702765", "2"], ",", RowBox[{"-", FractionBox["199360981", "2"]}], ",", FractionBox["19391512145", "2"], ",", RowBox[{"-", FractionBox["2404879675441", "2"]}], ",", FractionBox["370371188237525", "2"]}], "}"}]], "Output",ExpressionUUID->\ "9de329f9-5885-40a9-9b67-7d68202adafe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirichletBeta", "[", RowBox[{"Range", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "20"}], ",", RowBox[{"-", "2"}]}], "]"}], "]"}]], "Input",ExpressionUUID->"8241f0d1-\ 5275-468c-b0b0-6d48e054051f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["5", "2"], ",", RowBox[{"-", FractionBox["61", "2"]}], ",", FractionBox["1385", "2"], ",", RowBox[{"-", FractionBox["50521", "2"]}], ",", FractionBox["2702765", "2"], ",", RowBox[{"-", FractionBox["199360981", "2"]}], ",", FractionBox["19391512145", "2"], ",", RowBox[{"-", FractionBox["2404879675441", "2"]}], ",", FractionBox["370371188237525", "2"]}], "}"}]], "Output",ExpressionUUID->\ "427e908a-6f9f-4bbc-92fb-0055e2ac6bab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "&&", RowBox[{"n", ""f2892fc8-b57a-4800-ae1e-53616ee948e0"], Cell[BoxData[ FractionBox[ RowBox[{"EulerE", "[", RowBox[{"-", "n"}], "]"}], "2"]], "Output",ExpressionUUID->"49ec7cf9-2cd4-\ 463f-aa59-9cce46dc3c05"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Odd positive ", Cell[BoxData[ FormBox["n", TraditionalForm]],ExpressionUUID-> "9361bcd6-0fca-4397-9a9d-e2732d7a3eac"] }], "Subsection",ExpressionUUID->"a253f4eb-51ac-4c98-9cb5-e7ada540e96d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "&&", RowBox[{"n", ">", "0"}], "&&", RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "2"}], "]"}], "\[Equal]", "1"}]}], ",", RowBox[{"FullSimplify", "[", RowBox[{"FunctionExpand", "[", RowBox[{"DirichletBeta", "[", "n", "]"}], "]"}], "]"}]}], "]"}]], "Input",\ ExpressionUUID->"818e27b7-2f49-425f-815c-b91ad1a3984e"], Cell[BoxData[ RowBox[{ SuperscriptBox["4", RowBox[{"-", "n"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"n", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"n", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "84c797b6-2e58-40cf-be00-f6f43c580581"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], RowBox[{"EulerE", "[", RowBox[{"2", "k"}], "]"}]}], RowBox[{"2", RowBox[{ RowBox[{"(", RowBox[{"2", "k"}], ")"}], "!"}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["\[Pi]", "2"], ")"}], RowBox[{ RowBox[{"2", "k"}], "+", "1"}]]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "10", ",", "2"}], "}"}]}], "]"}]], "Input",Exp\ ressionUUID->"e6a1545f-5f31-498c-8fcf-4cd66a3c5de5"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ SuperscriptBox["\[Pi]", "3"], "32"], ",", FractionBox[ RowBox[{"61", " ", SuperscriptBox["\[Pi]", "7"]}], "184320"], ",", FractionBox[ RowBox[{"50521", " ", SuperscriptBox["\[Pi]", "11"]}], "14863564800"], ",", FractionBox[ RowBox[{"199360981", " ", SuperscriptBox["\[Pi]", "15"]}], "5713316492083200"], ",", FractionBox[ RowBox[{"2404879675441", " ", SuperscriptBox["\[Pi]", "19"]}], "6713375410857443328000"]}], "}"}]], "Output",ExpressionUUID->"be64ccb6-7520-4076-9087-7306b0f7b51e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"DirichletBeta", "[", RowBox[{"Range", "[", RowBox[{"1", ",", "20", ",", "2"}], "]"}], "]"}], "]"}]], "Input",Expressi\ onUUID->"5577a6bf-e6c3-491d-8e7d-d6a694365a1f"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "4"], ",", FractionBox[ SuperscriptBox["\[Pi]", "3"], "32"], ",", FractionBox[ RowBox[{"5", " ", SuperscriptBox["\[Pi]", "5"]}], "1536"], ",", FractionBox[ RowBox[{"61", " ", SuperscriptBox["\[Pi]", "7"]}], "184320"], ",", FractionBox[ RowBox[{"277", " ", SuperscriptBox["\[Pi]", "9"]}], "8257536"], ",", FractionBox[ RowBox[{"50521", " ", SuperscriptBox["\[Pi]", "11"]}], "14863564800"], ",", FractionBox[ RowBox[{"540553", " ", SuperscriptBox["\[Pi]", "13"]}], "1569592442880"], ",", FractionBox[ RowBox[{ RowBox[{"Zeta", "[", RowBox[{"15", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"15", ",", FractionBox["3", "4"]}], "]"}]}], "1073741824"], ",", FractionBox[ RowBox[{ RowBox[{"Zeta", "[", RowBox[{"17", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"17", ",", FractionBox["3", "4"]}], "]"}]}], "17179869184"], ",", FractionBox[ RowBox[{ RowBox[{"Zeta", "[", RowBox[{"19", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"19", ",", FractionBox["3", "4"]}], "]"}]}], "274877906944"]}], "}"}]], "Output",E\ xpressionUUID->"06941218-5b31-4c4f-8e33-3125b162979b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",ExpressionUUID->"5afe1a62-3ec2-475f-ac27-ec734705f091"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "4"], ",", FractionBox[ SuperscriptBox["\[Pi]", "3"], "32"], ",", FractionBox[ RowBox[{"5", " ", SuperscriptBox["\[Pi]", "5"]}], "1536"], ",", FractionBox[ RowBox[{"61", " ", SuperscriptBox["\[Pi]", "7"]}], "184320"], ",", FractionBox[ RowBox[{"277", " ", SuperscriptBox["\[Pi]", "9"]}], "8257536"], ",", FractionBox[ RowBox[{"50521", " ", SuperscriptBox["\[Pi]", "11"]}], "14863564800"], ",", FractionBox[ RowBox[{"540553", " ", SuperscriptBox["\[Pi]", "13"]}], "1569592442880"], ",", FractionBox[ RowBox[{ RowBox[{"Zeta", "[", RowBox[{"15", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"15", ",", FractionBox["3", "4"]}], "]"}]}], "1073741824"], ",", FractionBox[ RowBox[{ RowBox[{"Zeta", "[", RowBox[{"17", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"17", ",", FractionBox["3", "4"]}], "]"}]}], "17179869184"], ",", FractionBox[ RowBox[{ RowBox[{"Zeta", "[", RowBox[{"19", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"19", ",", FractionBox["3", "4"]}], "]"}]}], "274877906944"]}], "}"}]], "Output",E\ xpressionUUID->"86c6ffca-6cad-4fc7-bde3-ed49e68de00c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Through", "[", RowBox[{ RowBox[{"{", RowBox[{"Numerator", ",", "Denominator"}], "}"}], "[", "%", "]"}], "]"}]], "Input",ExpressionUUID->"4a2095d8-2c4e-4955-a60b-f29725b0000d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "5", ",", "61", ",", "277", ",", "50521", ",", "540553", ",", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"15", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"15", ",", FractionBox["3", "4"]}], "]"}]}], ",", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"17", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"17", ",", FractionBox["3", "4"]}], "]"}]}], ",", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"19", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"19", ",", FractionBox["3", "4"]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ "4", ",", "32", ",", "1536", ",", "184320", ",", "8257536", ",", "14863564800", ",", "1569592442880", ",", RowBox[{"1073741824", " ", SuperscriptBox["\[Pi]", "15"]}], ",", RowBox[{"17179869184", " ", SuperscriptBox["\[Pi]", "17"]}], ",", RowBox[{"274877906944", " ", SuperscriptBox["\[Pi]", "19"]}]}], "}"}]}], "}"}]], "Output",ExpressionU\ UID->"098f662a-6e58-4d3e-9529-93748fc20b63"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Beta]", "(", "1", ")"}], "\[LongEqual]", FractionBox["\[Pi]", "4"]}], TraditionalForm]], "Subsection",ExpressionUUID\ ->"bc04ec99-6fa0-41af-baa0-25d2c452e2a6"], Cell[CellGroupData[{ Cell["Numeric", "Subsubsection",ExpressionUUID->"7faacccf-2b15-41d6-8262-f64d31ca53fe"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DirichletBeta", "[", "x", "]"}], "/.", RowBox[{"x", "\[Rule]", "1.00001"}]}]], "Input",ExpressionUUID->"d8f3b23e-\ 78b0-4b93-a429-0106a0799bd9"], Cell[BoxData["0.7854000924066742`"], "Output",ExpressionUUID->"f427de59-738f-4300-8ded-64cb3fde745c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pi", "/", "4."}]], "Input",ExpressionUUID->"a7dcb2b0-3d75-4e05-81a1-d7f493832fce"], Cell[BoxData["0.7853981633974483`"], "Output",ExpressionUUID->"5645d54a-d3e5-4332-89f5-fd2326ddb100"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["V6", "Subsubsection",ExpressionUUID->"02824e8f-3a04-49e1-8a07-4cd7a4382b25"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]], "Input",ExpressionUUID->"13048ceb-\ 8b1a-4408-b1e5-897c922a437b"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"PolyGamma", "[", RowBox[{"0", ",", FractionBox["1", "4"]}], "]"}]}], "+", RowBox[{"PolyGamma", "[", RowBox[{"0", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "47327538-24d3-41cc-a203-18f178b0c8c6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",ExpressionUUID->"386efb10-da97-4add-8883-2e1f8a0e3957"], Cell[BoxData[ FractionBox["\[Pi]", "4"]], "Output",ExpressionUUID->"a7233b3b-623a-4b34-8696-e2c8fc0541d0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["V10", "Subsubsection",ExpressionUUID->"48d3be15-c893-4cc3-a685-31171039d5ea"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirichletBeta", "[", "1", "]"}]], "Input",ExpressionUUID->"5aea6277-1e12-46e9-9ab9-76e721d206d4"], Cell[BoxData[ FractionBox["\[Pi]", "4"]], "Output",ExpressionUUID->"8cc67a5b-9588-422b-9e9f-52957ce744f0"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Beta]", "(", "\[Infinity]", ")"}], "\[LongEqual]", "1"}], TraditionalForm]], "Subsection",ExpressionUUID->"0dcb17c1-f6d8-4738-ad08-\ eb35d4e821c1"], Cell[CellGroupData[{ Cell["Numeric", "Subsubsection",ExpressionUUID->"d3db2d3b-b892-457e-9296-f54f443f8ff5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DirichletBeta", "[", "x", "]"}], "/.", RowBox[{"x", "\[Rule]", "999."}]}]], "Input",ExpressionUUID->"893f2ae3-cf5b-\ 43d3-83bd-34ca576f193b"], Cell[BoxData["1.0000000000000270166747122346`12.812855347580136"], "Output",ExpressionUUID->"8c5086bb-bc6b-420e-97d1-2348f65e649b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["v4.2", "Subsubsection",ExpressionUUID->"799f933b-2d78-461d-9980-0d3308a9baf5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "Infinity"}]}], "]"}]], "Input",ExpressionUUID->\ "f3f70628-c945-4c7d-a338-19abeedc2161"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", InterpretationBox["\[Infinity]", DirectedInfinity[1]]}]}], "]"}]], "Output",ExpressionUUID->"cfc73c96-\ 2995-4afd-ac9c-bf798686bcb3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["v5.0", "Subsubsection",ExpressionUUID->"d6f43cc6-9075-459c-b779-d8e17d114935"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "Infinity"}]}], "]"}]], "Input",ExpressionUUID->\ "6654c715-9833-4d0c-8d3a-3a9cf23f3d2d"], Cell["Limit[(Zeta[x, 1/4] - Zeta[x, 3/4])/4^x, x -> Infinity]", "Output",ExpressionUUID->"58ade524-596b-4a8d-8d2d-f9fdd41ca7d4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["v5.2", "Subsubsection",ExpressionUUID->"88370c8b-dfd3-4550-ac5c-6765dd8a4d86"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "Infinity"}]}], "]"}]], "Input",ExpressionUUID->\ "2a389134-7954-48db-8791-6bac6fe7cf1e"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Output",ExpressionUUID-\ >"c11a69c6-b2e9-49aa-a0b3-8e72a3e96cc3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["v6", "Subsubsection",ExpressionUUID->"89c19ae9-5991-4a7e-b526-4979288b999d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "Infinity"}]}], "]"}]], "Input",ExpressionUUID->\ "95584970-3970-4e37-a202-601713e0958e"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Output",ExpressionUUID-\ >"a6fa1b31-27c4-4101-825e-82396d4eb4c5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["V10", "Subsubsection",ExpressionUUID->"fc6b8481-2684-4750-a392-82552b6302c3"], Cell[TextData[{ "bug(", ButtonBox["265449", BaseStyle->"Hyperlink", ButtonData->{ URL["https://bugs.wolfram.com/show?number=265449"], None}, ButtonNote->"https://bugs.wolfram.com/show?number=265449"], ")" }], "Text",ExpressionUUID->"a39d6fe2-107f-4a40-8750-d695557bd45c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirichletBeta", "[", "\[Infinity]", "]"}]], "Input",ExpressionUUID->"407818de-6d18-4da4-a55c-35b1d343f680"], Cell[BoxData[ RowBox[{"0", " ", RowBox[{"(", RowBox[{ RowBox[{"0", " ", RowBox[{"Zeta", "[", RowBox[{"\[Infinity]", ",", FractionBox["1", "4"]}], "]"}]}], "+", RowBox[{"0", " ", RowBox[{"Zeta", "[", RowBox[{"\[Infinity]", ",", FractionBox["3", "4"]}], "]"}]}]}], ")"}]}]], "Output",ExpressionUUID->\ "3515477e-99c1-4fb1-9ec9-8dc9434c77aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input",ExpressionUUID->\ "ad948ea6-83e3-4d7c-bd22-dbdbc52c262d"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}]}], "-", RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Output",ExpressionUUID-\ >"60ce4ba3-c28f-4fb1-8255-efdf79543796"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirichletBeta", "[", "100.", "]"}]], "Input",ExpressionUUID->"7449a566-eed9-4240-98a4-6bf62d7968b6"], Cell[BoxData["1.`"], "Output",ExpressionUUID->"8e62cce3-ff11-4cff-9f1c-1d3e56a102d0"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[Beta]", "(", "n", ")"}], TraditionalForm]], "Subsection",Expressi\ onUUID->"e165ec68-801a-475f-b332-3010c219c258"], Cell[CellGroupData[{ Cell["Old", "Subsubsection",ExpressionUUID->"5314c6fc-ffda-4eec-bafd-4df2fedc0d0b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Beta2", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"-", "x"}], ")"}]}], RowBox[{"LerchPhi", "[", RowBox[{ RowBox[{"-", "1"}], ",", "x", ",", RowBox[{"1", "/", "2"}]}], "]"}]}]}]], "Input",ExpressionUUID->"98254c2c-\ f97e-4389-8526-c47e0bc7c4ef"], Cell[BoxData[ RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}]}], "-", RowBox[{ SuperscriptBox["2", RowBox[{"-", "x"}]], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}]}], ")"}]}]], "Output",ExpressionUUID->\ "91189595-fe03-4a94-80d7-8fd38d5fb126"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionExpand", "[", RowBox[{"FullSimplify", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Beta2", "[", "n", "]"}], "/.", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x_", ",", "nn_", ",", "o___"}], "]"}], "\[RuleDelayed]", RowBox[{"Zeta", "[", RowBox[{"x", ",", "nn"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "5"}], "}"}]}], "]"}], "]"}], "]"}]], "Input",Expressi\ onUUID->"3f920b20-f2f6-4b0e-b146-3183102442aa"], Cell[BoxData[ RowBox[{ RowBox[{"\[Infinity]", "::", "\"}], ":", " ", "\\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"function::indet\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "1d2f9ce5-6c0a-4140-bc5b-9fcf495bf21c"], Cell[BoxData[ RowBox[{ RowBox[{"Zeta", "::", "\"}], ":", " ", "\\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"function::nonopt\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "4230403d-6345-401c-b8d1-7cf5c9c13a9f"], Cell[BoxData[ RowBox[{"{", RowBox[{"Indeterminate", ",", "Catalan", ",", FractionBox[ SuperscriptBox["\[Pi]", "3"], "32"], ",", RowBox[{ FractionBox["1", "768"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", SuperscriptBox["\[Pi]", "4"]}], "+", RowBox[{"PolyGamma", "[", RowBox[{"3", ",", FractionBox["1", "4"]}], "]"}]}], ")"}]}], ",", FractionBox[ RowBox[{"5", " ", SuperscriptBox["\[Pi]", "5"]}], "1536"]}], "}"}]], "Output",ExpressionUUI\ D->"458cd3d6-049e-4f91-9705-60c99fe994ee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ FractionBox["1", "768"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", SuperscriptBox["\[Pi]", "4"]}], "+", RowBox[{"PolyGamma", "[", RowBox[{"3", ",", FractionBox["1", "4"]}], "]"}]}], ")"}]}], "-", FractionBox[ RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"3", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"PolyGamma", "[", RowBox[{"3", ",", FractionBox["3", "4"]}], "]"}]}], "1536"]}], "]"}]], "Input",Expression\ UUID->"39c65119-2b9a-4915-ad6b-7cb821e394ac"], Cell[BoxData["0"], "Output",ExpressionUUID->"25c69891-e497-43e2-9588-c1413bc3a92c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"FunctionExpand", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], "]"}], "]"}]], "Input",ExpressionUUID->"55f18e89-db1b-4cad-9b1b-7add78f561a7"], Cell[BoxData[ RowBox[{ RowBox[{"\[Infinity]", "::", "\"}], ":", " ", "\\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"function::indet\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "e9a1b8f7-42c2-467f-857c-7286baf02b2c"], Cell[BoxData[ RowBox[{"{", RowBox[{"Indeterminate", ",", "Catalan", ",", FractionBox[ SuperscriptBox["\[Pi]", "3"], "32"], ",", FractionBox[ RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"3", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"PolyGamma", "[", RowBox[{"3", ",", FractionBox["3", "4"]}], "]"}]}], "1536"], ",", FractionBox[ RowBox[{"5", " ", SuperscriptBox["\[Pi]", "5"]}], "1536"], ",", FractionBox[ RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"5", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"PolyGamma", "[", RowBox[{"5", ",", FractionBox["3", "4"]}], "]"}]}], "491520"], ",", FractionBox[ RowBox[{"61", " ", SuperscriptBox["\[Pi]", "7"]}], "184320"], ",", FractionBox[ RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"7", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"PolyGamma", "[", RowBox[{"7", ",", FractionBox["3", "4"]}], "]"}]}], "330301440"], ",", FractionBox[ RowBox[{"277", " ", SuperscriptBox["\[Pi]", "9"]}], "8257536"], ",", FractionBox[ RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"9", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"PolyGamma", "[", RowBox[{"9", ",", FractionBox["3", "4"]}], "]"}]}], "380507258880"]}], "}"}]], "Output",E\ xpressionUUID->"1427557f-6d00-42a9-9791-6ef00e3f234e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "k"}], " ", RowBox[{"EulerE", "[", RowBox[{"2", "k"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "2"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "+", "1"}], ")"}]}], "/", "2"}], "/", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"2", "k"}], ")"}], "!"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "5"}], "}"}]}], "]"}]}]], "Input",ExpressionU\ UID->"afc6b162-03df-4975-ba5c-8aa0edc7de1c"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "4"], ",", FractionBox[ SuperscriptBox["\[Pi]", "3"], "32"], ",", FractionBox[ RowBox[{"5", " ", SuperscriptBox["\[Pi]", "5"]}], "1536"], ",", FractionBox[ RowBox[{"61", " ", SuperscriptBox["\[Pi]", "7"]}], "184320"], ",", FractionBox[ RowBox[{"277", " ", SuperscriptBox["\[Pi]", "9"]}], "8257536"], ",", FractionBox[ RowBox[{"50521", " ", SuperscriptBox["\[Pi]", "11"]}], "14863564800"]}], "}"}]], "Output",Expre\ ssionUUID->"06de88b1-2563-4492-8c6e-0db40c61916e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["V10", "Subsubsection",ExpressionUUID->"fb5c778c-4ff7-49f9-aa04-ebc2a95ca002"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"DirichletBeta", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "4"}], "}"}]}], "]"}], "//", "FullSimplify"}]], "Input",\ ExpressionUUID->"c469a74e-3904-41a3-b6c0-1ac1417745c9"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "4"], ",", "Catalan", ",", FractionBox[ SuperscriptBox["\[Pi]", "3"], "32"], ",", RowBox[{ FractionBox["1", "256"], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"4", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"4", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]}], "}"}]], "Output",Expressi\ onUUID->"f81939fd-d534-4697-8803-de8543182fda"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Sums", "Section",ExpressionUUID->"bf81b54e-a0c5-4fee-b124-0340777f4fbd"], Cell[BoxData[ RowBox[{""ab20c669-17fe-4c8a-95c1-0280e518ad0d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], "n"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], "n"]}]]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",ExpressionUUID\ ->"7c51c073-752c-4e77-ba6e-5d393fcfcb7a"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", "k", "\[Infinity]"], RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "k"}]}], ")"}], RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "k"}]}], ")"}], RowBox[{"-", "n"}]]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "k"}]}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "k"}]}], ")"}], RowBox[{"-", "n"}]]]}], "]"}]}]], "Output",ExpressionUUID->"bf99df4d-\ 9165-4f91-9c5d-fa6d0b5ec079"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "2"}], " ", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], ",", "x"}], "]"}]}], "/.", RowBox[{"x", "\[Rule]", "n"}]}], ",", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "&&", RowBox[{"n", ">", "0"}]}]}], "]"}]], "Input",ExpressionUUID->"655456de-\ 14b7-46b3-ba6a-de3948940939"], Cell[BoxData[ RowBox[{ SuperscriptBox["4", RowBox[{"-", "n"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"n", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"n", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"n", ",", FractionBox["1", "4"]}], "]"}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"n", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "4a237011-d6bf-4af2-95f0-daaec7ac29cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"log", "(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "+", "1"}], ")"}], FractionBox["1", RowBox[{ RowBox[{"4", " ", "k"}], "+", "1"}]]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "-", "1"}], ")"}], FractionBox["1", RowBox[{ RowBox[{"4", " ", "k"}], "-", "1"}]]]], ")"}]}], "\[LongEqual]", RowBox[{"-", RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "(", "1", ")"}]}]}], TraditionalForm]], "Subsection",ExpressionUUID->"37db7dba-b12b-4893-93c6-\ e1c3cb549ad6"], Cell[CellGroupData[{ Cell["V6", "Subsubsection",ExpressionUUID->"ddc7c188-da63-4e3f-8d2d-72bd35eaf741"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}]}]]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Infinity]"}], "}"}]}], "]"}], "//", "Expand"}]], "Input",ExpressionUUID->"4cff0f61-c8ba-43b0-aad8-c0a688de8231"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "k"}]}], ")"}], RowBox[{"-", FractionBox["1", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "k"}]}]]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "k"}]}], ")"}], FractionBox["1", RowBox[{"1", "+", RowBox[{"4", " ", "k"}]}]]]}], "]"}]}]], "Output",ExpressionUUID->\ "a0275edc-a5e2-44f4-8f36-805d24e1ab61"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", RowBox[{"N", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}]}]]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"10", "^", "4"}]}], "}"}]}], "]"}], "]"}], "]"}]], "Input",Expr\ essionUUID->"0fbb370f-f514-4974-97e7-2836494e0545"], Cell[BoxData[ RowBox[{"-", "0.19276886486044048`"}]], "Output",ExpressionUUID->"4584b640-3205-49c7-9dad-0f30d2f8278e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "4"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"log", "(", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], "2"]}], SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]], ")"}], "+", TagBox["\[DoubledGamma]", Function[{}, EulerGamma]]}], ")"}]}], "//", "N"}], TraditionalForm]], "Input",ExpressionUUID->"30c0696d-4874-4429-a098-\ 136f4c493c1c"], Cell[BoxData["0.19290131679691258`"], "Output",ExpressionUUID->"0bb29853-03c7-473a-98ec-1f0c80679c48"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["V7", "Subsubsection",ExpressionUUID->"5463af1b-b560-4ff1-8b13-fd6c9e005df5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}]}]]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Infinity]"}], "}"}]}], "]"}], "//", "GammaSimplify"}], "//", "LogExpand"}]], "Input",ExpressionUUID->"fec0e164-\ c17c-446e-8548-048491ed421d"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{"EulerGamma", "+", RowBox[{"2", " ", RowBox[{"Log", "[", "2", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"Log", "[", RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "]"}]}]}], ")"}]}]], "Output",ExpressionU\ UID->"d0cbf26b-2be3-43d7-a19c-b59619233c8d"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"log", "(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "+", "1"}], ")"}], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "+", "1"}], ")"}], "2"]]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "-", "1"}], ")"}], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "-", "1"}], ")"}], "2"]]]], ")"}]}], "\[LongEqual]", RowBox[{"-", RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "(", "2", ")"}]}]}], TraditionalForm]], "Subsection",ExpressionUUID->"b65c3133-27ff-411d-bc70-\ 06dbdc7cf5b5"], Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], "2"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], "2"]}]]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Infinity]"}], "}"}]}], "]"}], "//", "Expand"}]], "Input",ExpressionUUID->"06190b85-b424-4229-a238-6146760de51f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], "2"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], "2"]}]]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Infinity]"}], "}"}]}], "]"}], "//", "Expand"}]], "Input",ExpressionUUID->"a21ac703-ef71-41a6-a03a-3c8c9003a4b2"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", "Catalan", " ", RowBox[{"Log", "[", "2", "]"}]}], "-", RowBox[{ FractionBox["1", "16"], " ", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"2", ",", FractionBox["1", "4"]}], "]"}]}], "+", RowBox[{ FractionBox["1", "16"], " ", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"2", ",", FractionBox["3", "4"]}], "]"}]}]}]], "Output",ExpressionUUID->"5f29159d-\ 80d3-4a55-8b40-2124918eb644"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "2", "]"}]}], "//", "FullSimplify"}], "//", "LogExpand"}], "//", "Expand"}]], "Input",ExpressionUUID->"16f59793-87f5-4fa4-9eb3-75672d7b4816"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", "Catalan", " ", RowBox[{"Log", "[", "2", "]"}]}], "-", RowBox[{ FractionBox["1", "16"], " ", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"2", ",", FractionBox["1", "4"]}], "]"}]}], "+", RowBox[{ FractionBox["1", "16"], " ", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"2", ",", FractionBox["3", "4"]}], "]"}]}]}]], "Output",ExpressionUUID->"f1f5e437-\ 5c21-41db-9a06-707376130a5b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"log", "(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "+", "1"}], ")"}], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "+", "1"}], ")"}], "3"]]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "-", "1"}], ")"}], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "-", "1"}], ")"}], "3"]]]], ")"}]}], "\[LongEqual]", RowBox[{"-", RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "(", "3", ")"}]}]}], TraditionalForm]], "Subsection",ExpressionUUID->"34202a96-5db4-48c3-9c88-\ c1db4c9fb149"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], "3"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], "3"]}]]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",ExpressionUUID\ ->"da3950ef-aa51-49ee-a5ce-2a36d495233e"], Cell[BoxData[ RowBox[{ FractionBox["1", "64"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[Pi]", "3"], " ", RowBox[{"Log", "[", "2", "]"}]}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"3", ",", FractionBox["1", "4"]}], "]"}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"3", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "30f5f352-21b0-467a-8ae2-c9c9aa35f9d8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "3", "]"}]}], "//", "FullSimplify"}], "//", "LogExpand"}]], "Input",Expr\ essionUUID->"98df850c-2551-48c5-8424-563094857812"], Cell[BoxData[ RowBox[{ FractionBox["1", "64"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[Pi]", "3"], " ", RowBox[{"Log", "[", "2", "]"}]}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"3", ",", FractionBox["1", "4"]}], "]"}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"3", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "753bcb0c-2bd9-4ae0-91b3-327236bc1729"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"log", "(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "+", "1"}], ")"}], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "+", "1"}], ")"}], "4"]]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "-", "1"}], ")"}], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "k"}], "-", "1"}], ")"}], "4"]]]], ")"}]}], "\[LongEqual]", RowBox[{"-", RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "(", "4", ")"}]}]}], TraditionalForm]], "Subsection",ExpressionUUID->"f748a20c-c3d6-40c7-8685-\ ebef3edab919"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "+", "1"}], ")"}], "4"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "k"}], "-", "1"}], ")"}], "4"]}]]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",ExpressionUUID\ ->"667b7d62-14f4-4bc8-b9ef-30008bb8f6c7"], Cell[BoxData[ RowBox[{ FractionBox["1", "64"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[Pi]", "3"], " ", RowBox[{"Log", "[", "2", "]"}]}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"3", ",", FractionBox["1", "4"]}], "]"}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"3", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "36247922-eda6-4989-9fb8-d5ce6f4d192a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "3", "]"}]}], "//", "FullSimplify"}], "//", "LogExpand"}]], "Input",Expr\ essionUUID->"8fbd4e16-2d35-483f-b384-905a012c54b2"], Cell[BoxData[ RowBox[{ FractionBox["1", "64"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[Pi]", "3"], " ", RowBox[{"Log", "[", "2", "]"}]}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"3", ",", FractionBox["1", "4"]}], "]"}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"3", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "0650a5cb-de84-48de-a34e-659ffa2d5fa4"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Derivatives", "Section",ExpressionUUID->"e9145b40-9c79-4439-9370-d3a9486b8615"], Cell[CellGroupData[{ Cell["Directly", "Subsection",ExpressionUUID->"657120ea-8896-401a-a8e6-86eb2c58bde0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionExpand", "[", RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "x", "]"}], "]"}]], "Input",ExpressionUUID->"2c0b57c9-3e6b-45b8-9c52-\ a8abf7491d76"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["4", RowBox[{"-", "x"}]]}], " ", RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}]}], "+", RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], "+", RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}]}], "-", RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}]}]], "Output",ExpressionUUID->"1c296efa-\ fc3b-47e8-a377-6a6172d931d8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Via Sum", "Subsection",ExpressionUUID->"b4a08254-de36-4a6c-a49c-77bdfb170e3e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"-", "x"}]]}], ",", "x"}], "]"}]], "Input",ExpressionUUID->\ "573499bc-806d-48dd-a1c9-ec86692dbae5"], Cell[BoxData[ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], ")"}], RowBox[{"-", "x"}]], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}]], "Output",ExpressionUUID->"e24690d1-\ e3b7-407f-b83b-36519a5d2388"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], ")"}], RowBox[{"-", "x"}]], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",Expr\ essionUUID->"e13b6d12-96c9-4541-be78-13b25e5badea"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], ")"}], RowBox[{"-", "x"}]], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}]}]], "Output",ExpressionUUID->\ "27b922cc-0a3a-4188-946b-61067b8c4215"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "(", RowBox[{"-", "1"}], ")"}], TraditionalForm]], "Subsection",ExpressionUUID->\ "575f690f-292b-4805-b262-96a74595b662"], Cell[CellGroupData[{ Cell["Old", "Subsubsection",ExpressionUUID->"a3b52436-fb74-4fbf-953a-12d2af629dbf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", RowBox[{"-", "1"}], "]"}]], "Input",ExpressionUUID->"dd4b9e01-dbd1-4140-\ b771-ad7f41209419"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "96"]}], "+", FractionBox["Catalan", RowBox[{"4", " ", "\[Pi]"}]], "+", FractionBox[ RowBox[{"Log", "[", "Glaisher", "]"}], "8"], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]}]], "Output",ExpressionUUID->\ "c9cbd884-91ef-4e4b-be94-ab64cafb45a6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",ExpressionUUID->"06c49054-9eb1-4821-9087-46d079516b73"], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", "Catalan"}], "\[Pi]"]], "Output",ExpressionUUID->\ "709d0d55-7a0b-44a2-ac62-ffde79a76e21"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"%", ",", "10"}], "]"}]], "Input",ExpressionUUID->"0f2c157d-e0b2-4ec4-9216-2653e12d0a0f"], Cell[BoxData["0.5831218080616375605597996510503457719`9.999999999999998"], \ "Output",ExpressionUUID->"4e2e19fa-96ca-4609-9dae-a64cb3d52f1f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["V10", "Subsubsection",ExpressionUUID->"1b887a90-986b-407a-8a66-a0cb69321ced"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", RowBox[{"-", "1"}], "]"}]], "Input",ExpressionUUID->"ef8ff186-79b9-41db-\ bff7-b32a2a0982be"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Log", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Zeta", "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["1", "4"]}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Zeta", "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["3", "4"]}], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "96"]}], "+", FractionBox["Catalan", RowBox[{"4", " ", "\[Pi]"}]], "+", FractionBox[ RowBox[{"Log", "[", "Glaisher", "]"}], "8"]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"Log", "[", "2", "]"}], " ", RowBox[{"Zeta", "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["1", "4"]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", "2", "]"}], " ", RowBox[{"Zeta", "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["3", "4"]}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["3", "4"]}], "]"}]}]}], ")"}]}]}]], "Output",ExpressionUUI\ D->"ceb4a524-e195-4789-8db3-264c0c4cfb3a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",ExpressionUUID->"bed95967-1ec7-45ee-bc85-dd7e82854fbd"], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", "Catalan"}], "\[Pi]"]], "Output",ExpressionUUID->\ "600f5c0f-cf4a-4e6f-9236-4b4b56b8d044"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "(", "0", ")"}], TraditionalForm]], "Subsection",\ ExpressionUUID->"f67228ac-f735-4f68-8d52-5c3674b09958"], Cell[CellGroupData[{ Cell["Old", "Subsubsection",ExpressionUUID->"8aafcf1c-4e8f-4506-9843-184355419fb6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "0", "]"}]], "Input",ExpressionUUID->"1fc84209-92ba-4a8a-86ea-2e8d5b733eaf"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"Log", "[", "4", "]"}], "2"]}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"0", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"0", ",", FractionBox["3", "4"]}], "]"}]}]], "Output",ExpressionUUID->"df54eaf9-\ 1eed-4953-9ab5-5c38946562cd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "FullSimplify"}]], "Input",ExpressionUUID->"3c7f7055-e7d0-4111-83da-bb541cafc362"], Cell[BoxData[ RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", RowBox[{"Gamma", "[", FractionBox["5", "4"], "]"}]}], RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}]], "]"}]], "Output",ExpressionUUID->"3ae19b03-\ eaf1-4ce0-9d6c-2ffd068430a1"] }, Open ]], Cell[BoxData[ RowBox[{""0458ce3f-cbeb-41be-8ce2-09ee10506d18"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GammaSimplify", "[", RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", RowBox[{"Gamma", "[", FractionBox["5", "4"], "]"}]}], RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}]], "]"}], "]"}]], "Input",ExpressionUUID->\ "2e1a3bd9-0170-402a-adc6-ea4ec3132006"], Cell[BoxData[ RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"], RowBox[{"2", " ", SqrtBox["2"], " ", "\[Pi]"}]], "]"}]], "Output",ExpressionUUID->"bbbcd2c8-\ 0927-4295-ad21-dbae4cd971cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"%", ",", "20"}], "]"}]], "Input",ExpressionUUID->"6d900862-aac4-4e7a-a711-5237841c403e"], Cell[BoxData["0.3915943927068367764719453468990336728174503697115555284833`20.\ "], "Output",ExpressionUUID->"578f3c6d-391d-4b52-9ceb-25f0c51ba503"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50"}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Thickness", "[", ".02", "]"}]}], "}"}]}]}], "]"}]], "Input",Exp\ ressionUUID->"70b9de55-9b91-4e7a-bd08-c6cb1b9a1e0f"], Cell[BoxData[ GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.02], PointBox[CompressedData[" 1:eJxV0l1IE1AUB/DVlpv73tBprjKH1dbWbFs5tdX+UzcnmWU9hEtDhZFQZJZG DUKTIosUnT4NfCh7Ml2YVGZfsxCRMDBo9BJBs4g+J0rNQlexcx86cLj87+88 HC43q65hv3clh8Ox/O1/Z6Kids7/BRF3yPepZ47uBbB0fP3pCC0+SWQ5DnrM wZOaOHkKza8IJXI6yqwt9yJGLhJ5DSqumvS8izzy9ch078lXDawi18DX8mv8 6EASeTYMI7yk3E4++UYMBxt6jYcE5FpER2aWzqUmk2+m/ZLJDei6wB19Wy0k NyJzefp5XlRIvhUefbf7xRkRuQkzo68WXsdE5GZMzMsOeBrF5BY8miz4po2I ybchLGmvXyyXkG9H+WCn03tHQp4LxZcUVVQlJbfixlT/aVGTlDwPd6NdORnT zPPpPWXkBYhzKuI1TTLyHbhp09RrnzG3YX55rLKNLyfficrA0LVUg5x8F87q Jhe9e5nbITmm/NzeyBxQp0c+dvvJW4FmXW+P/zZzB7YotHOBGeYOPMjo7bv/ nXkhpsLZC7/FCvJCfMjRWI7rFORFqOJfD6idzItgM5ddktYwL8ap4VuX9/mY F9P/Ye5E22xdx+wgcyeE/bHDrgnmLry0+3lpb5i78ONKMK16gXkJHldtGF8n UpKX4ER4/mltlpLcjcjDpVa9lbkbsd3vBefLmJdCv1a1+kgt81KYxtSb3jUr Q38AUwTOtQ== "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, Automatic}, PlotRange->Automatic, PlotRangeClipping->True]], "Output",ExpressionUUID->"93084ed3-b3b1-4808-\ a006-94c93dbb8202"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["V6", "Subsubsection",ExpressionUUID->"1b9a7dd8-d0a1-4f12-8316-49f6a4d46b4b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",Expr\ essionUUID->"8270a93d-a2a5-445f-b56f-5bd56d6b7555"], Cell[BoxData[ RowBox[{ RowBox[{"Sum", "::", "\"}], ":", " ", "\\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Sum/div\\\", ButtonNote \ -> \\\"Sum::div\\\"]\\)\"\>"}]], "Message", \ "MSG",ExpressionUUID->"76cf1e4d-1f03-41e0-a51f-467d7ddf0031"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}]}]], "Output",ExpressionUUID->\ "3133e892-10f3-4636-8df3-990d058424fc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["V7", "Subsubsection",ExpressionUUID->"a5edea0d-4ef5-4700-aea9-70e72845b205"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], ")"}], RowBox[{"-", "x"}]], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}]], "Input",ExpressionUUID->"60369a89-3dab-\ 4769-b927-24c1ff070c16"], Cell[BoxData[ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}]], "Output",ExpressionUUID->"ca208e12-\ 3ac0-4eb5-b887-160b39eac03e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",Expr\ essionUUID->"4076e974-bf19-4337-afe8-73ce70dfbe1c"], Cell[BoxData[ RowBox[{ RowBox[{"Sum", "::", "\"}], ":", " ", "\\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Sum/div\\\", ButtonNote -> \ \\\"Sum::div\\\"]\\)\"\>"}]], "Message", \ "MSG",ExpressionUUID->"d9ca16ee-f7e0-4200-82cd-74c14ac83c1d"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}]}]], "Output",ExpressionUUID->\ "6b775d82-2370-4241-b7c2-7aa551361e0b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NSum", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",Expr\ essionUUID->"3a6286a5-69df-46c8-840c-a44a6fd53dc3"], Cell[BoxData[ RowBox[{ RowBox[{"SequenceLimit", "::", "\"}], ":", " ", "\\\\"Link\\\ \", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/SequenceLimit/seqlim\\\", ButtonNote -> \\\ \"SequenceLimit::seqlim\\\"]\\)\"\>"}]], "Message", \ "MSG",ExpressionUUID->"dc142ac3-ce85-451f-9a09-b1fb6962efcd"], Cell[BoxData["0.3915943927068213`"], "Output",ExpressionUUID->"ec1e12c6-3ccb-487a-961e-f9cfb63a7010"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], " ", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", RowBox[{"10", "^", "4"}]}], "}"}]}], "]"}], "//", "N"}]], "Input",Expres\ sionUUID->"bb1c13e0-252d-42bc-be24-e030f954c115"], Cell[BoxData[ RowBox[{"-", "4.560199381686319`"}]], "Output",ExpressionUUID->"43d5f6ab-820c-4653-9f79-55927c577e60"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["V10", "Subsubsection",ExpressionUUID->"850b4d93-cdab-44eb-8fc1-9b13a981f182"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "0", "]"}]], "Input",ExpressionUUID->"2354452a-3a59-44f3-8843-7e1bc4777b75"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"Log", "[", "2", "]"}]}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"0", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"0", ",", FractionBox["3", "4"]}], "]"}]}]], "Output",ExpressionUUID->"d8a3851a-\ e65d-4800-9c20-47cf5cb7e7a1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",ExpressionUUID->"b73471e5-8177-4806-82f3-48b3ecb41945"], Cell[BoxData[ RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", RowBox[{"Gamma", "[", FractionBox["5", "4"], "]"}]}], RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}]], "]"}]], "Output",ExpressionUUID->"7240e779-\ 5215-4c18-ba9d-498044e16ae8"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "(", "1", ")"}], "\[LongEqual]", RowBox[{ FractionBox["1", "4"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"log", "(", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"\[CapitalGamma]", "(", FractionBox["3", "4"], ")"}], "2"]}], SuperscriptBox[ RowBox[{"\[CapitalGamma]", "(", FractionBox["1", "4"], ")"}], "2"]], ")"}], "+", TagBox["\[DoubledGamma]", Function[{}, EulerGamma]]}], ")"}]}]}], TraditionalForm]], "Subsection",\ ExpressionUUID->"849a5aa8-3057-4b36-aa40-8bf95988f9b2"], Cell[CellGroupData[{ Cell["Old", "Subsubsection",ExpressionUUID->"e4d185a2-ac9b-416f-ac4b-af8ca014e80d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "1", "]"}]], "Input",ExpressionUUID->"ff918b1c-c0bf-4bc6-8536-443b4a14ac92"], Cell[BoxData[ RowBox[{ RowBox[{"\[Infinity]", "::", "\"}], ":", " ", "\\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"General::indet\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2eac6b3a-d00a-4160-a4db-5769f12aa734"], Cell[BoxData["Indeterminate"], "Output",ExpressionUUID->"eb1351d9-4e94-40fb-b2bb-ad188f1fff84"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", RowBox[{"1.", "+", RowBox[{"10", "^", RowBox[{"-", "10"}]}]}], "]"}]], "Input",ExpressionUUID->"a341884f-e0ce-\ 4d3f-a15b-1e0f5c2a18a0"], Cell[BoxData["0.192900212475839`"], "Output",ExpressionUUID->"29001f57-19b2-4622-83b3-4d14d8bd3693"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ FractionBox["1", "4"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{"EulerGamma", "+", RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], "2"]}], SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]], "]"}]}], ")"}]}], "]"}]], "Input",ExpressionUUID->"2e8e454e-eecf-4de7-aa57-f632d0248dac"], Cell[BoxData["0.19290131679691258`"], "Output",ExpressionUUID->"05749413-6fcc-4197-8b8a-41435f8b7b70"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["v5.2", "Subsubsection",ExpressionUUID->"0ea4cec3-80b4-42a1-8816-4ae2c2226378"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l", "=", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]}]], "Input",ExpressionUUID->\ "e6a358c8-8f33-48ca-b92a-085f8966aeee"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["4", RowBox[{"-", "x"}]]}], " ", RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]], "Output",ExpressionUUID->\ "6e9ed29d-c080-4d43-8e38-46580004ab07"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["v6", "Subsubsection",ExpressionUUID->"e5b7db01-3fd8-4b13-b356-e28943da5548"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]], "Input",ExpressionUUID->"d5e82159-\ 31d3-49a0-86eb-cd952251fdb4"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["4", RowBox[{"-", "x"}]]}], " ", RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]], "Output",ExpressionUUID->\ "7daaa48f-d5f6-43a9-8e3f-fa91a787fbc3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["V10", "Subsubsection",ExpressionUUID->"aca1381f-7f58-4f73-93f2-159a72f5bb7b"], Cell[TextData[{ "bug(", ButtonBox["265453", BaseStyle->"Hyperlink", ButtonData->{ URL["https://bugs.wolfram.com/show?number=265453"], None}, ButtonNote->"https://bugs.wolfram.com/show?number=265453"], ")" }], "Text",ExpressionUUID->"30677540-b1d5-4cc0-a39e-72ace706504d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "1", "]"}]], "Input",ExpressionUUID->"e96f2736-d074-49bc-8a7a-c4fa7f17a0aa"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Infinity", "::", "indet"}], "MessageName"], ":", " ", "\\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \ \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", \ "MSG",ExpressionUUID->"ca364e57-5ca7-41ec-8330-572a0563c609"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Infinity", "::", "indet"}], "MessageName"], ":", " ", "\\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \ \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", \ "MSG",ExpressionUUID->"5cd466d8-0738-4c77-a0f7-486b27ac4ea4"], Cell[BoxData["Indeterminate"], "Output",ExpressionUUID->"43d9971c-8327-4f6e-b74a-b5f55ae268f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]], "Input",ExpressionUUID->"8d8c63b0-\ db87-4de2-ab83-4d9fa15946af"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"0", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"PolyGamma", "[", RowBox[{"0", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "-", RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}], "+", RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "60a100e7-b9a1-408e-8ef0-8e2dadf47847"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",ExpressionUUID->"9495ffd2-2cf0-446a-bbb5-0f7e67e6d257"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], " ", RowBox[{"Log", "[", "4", "]"}]}], "-", RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}], "+", RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "2df90d7d-91ec-486d-a754-5420cf36e858"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionExpand", "[", "%", "]"}]], "Input",ExpressionUUID->"7960492e-d0dc-45fc-8759-2fb40dd5a334"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], " ", RowBox[{"Log", "[", "4", "]"}]}], "-", RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}], "+", RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "bdde63b2-ffff-4dc4-b17a-0af98c8512b0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input",ExpressionUUID->"2a4c95ca-83c5-434d-8794-97051758d8be"], Cell[BoxData["0.19290131679691233`"], "Output",ExpressionUUID->"049df3f9-71e1-4f50-937a-6935d6d22b40"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "4"], "Pi", RowBox[{"(", RowBox[{"EulerGamma", "+", RowBox[{"2", RowBox[{"Log", "[", "2", "]"}]}], "+", RowBox[{"3", RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-", RowBox[{"4", RowBox[{"Log", "[", RowBox[{"Gamma", "[", RowBox[{"1", "/", "4"}], "]"}], "]"}]}]}], ")"}]}], "//", "N"}]], "Input",ExpressionUUID->"e68f7710-d744-485a-87f4-5a1ab90639d0"], Cell[BoxData["0.19290131679691272`"], "Output",ExpressionUUID->"5cfbd051-23a3-4903-8fad-f7ceb19a3b66"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "(", RowBox[{"1", "-", RowBox[{"2", "n"}]}], ")"}], TraditionalForm]], "Subsection",ExpressionUUI\ D->"21c6491d-d5c4-4dd7-8f51-decfa2d4ea73"], Cell["\ Wed, 25 Jan 2006 15:03:03 -0600\ \>", "Text",ExpressionUUID->"c846b3c4-9158-438f-b2ab-badf3f0c74e0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", RowBox[{"1", "-", RowBox[{"2", "n"}]}], "]"}], "//", "FullSimplify"}]], "Input",ExpressionUU\ ID->"7a5ccbda-c70e-4f40-8766-3ec80f6b28d7"], Cell[BoxData[ RowBox[{ SuperscriptBox["4", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Zeta", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "n"}]}], ",", FractionBox["1", "4"]}], "]"}]}], "+", RowBox[{"Zeta", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "n"}]}], ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "n"}]}], ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "n"}]}], ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "695cee26-2286-44b3-a1b6-37ebfa609b74"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", RowBox[{"1", "-", RowBox[{"2", "n"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1"}], "}"}]}], "]"}], "//", "FullSimplify"}]], "Input",\ ExpressionUUID->"b0e4e28f-ec9c-460a-8e18-3ed0e87fb2cd"], Cell[BoxData[ RowBox[{"{", FractionBox[ RowBox[{"2", " ", "Catalan"}], "\[Pi]"], "}"}]], "Output",ExpressionUUID->\ "a5e29829-4261-480b-99a8-4c8ff507281b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", FractionBox["1", "2"]}], ")"}], RowBox[{"EulerE", "[", RowBox[{"2", "n"}], "]"}], FractionBox[ RowBox[{"DirichletBeta", "[", RowBox[{"2", "n"}], "]"}], RowBox[{"DirichletBeta", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "1"}], "}"}]}], "]"}], "//", "FullSimplify"}]], "Input",\ ExpressionUUID->"7d5c7113-d92f-40a4-ab8d-14167196a528"], Cell[BoxData[ RowBox[{"{", RowBox[{"-", FractionBox[ RowBox[{"6", " ", "Catalan"}], "\[Pi]"]}], "}"}]], "Output",ExpressionUUID\ ->"f3c1b67e-44e9-4953-ac72-94f693672598"] }, Open ]], Cell["...not quite right...", "Text",ExpressionUUID->"ade41f41-5102-4685-875c-93c5d031d92b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input",ExpressionUUID->"8830f144-0a56-4138-91a1-e97bfd6d0943"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.7493654241849128`"}], ",", "12.757991705201322`", ",", RowBox[{"-", "214.04167987639053`"}], ",", "6234.342414566731`"}], "}"}]], "Output",ExpressionUUID->"4179fd15-a12b-4257-9f96-041964171c80"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]\[Prime]", MultilineFunction->None], "(", "1", ")"}]}], TraditionalForm]], "Subsection",ExpressionUUID->"5a0c7b76-ed19-4f88-bec6-\ 1e3841eea971"], Cell[CellGroupData[{ Cell["v5.2", "Subsubsection",ExpressionUUID->"689451cc-35bb-49ad-a8c1-7986bc54ae51"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "DirichletBeta", "]"}], "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}], "//", "InputForm"}]], "Input",Expr\ essionUUID->"18da9dc0-76db-41bf-8c08-e0ec76202d52"], Cell["\ \ 1]\ \>", "Output",ExpressionUUID->"fa6b1ebc-a0aa-4b33-8798-f43b65558f1d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l", "=", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "2", "]"}], "[", "DirichletBeta", "]"}], "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]}]], "Input",ExpressionUUID->\ "68d1f412-ca82-499d-9557-00117d7c7b79"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", SuperscriptBox[ RowBox[{"Log", "[", "4", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"Zeta", "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["4", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]], "Output",ExpressionUUID->\ "a7dac938-4182-44c9-845f-5535ac7236a6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["v6", "Subsubsection",ExpressionUUID->"b2673701-41ed-4d45-8667-29f389c8599b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l", "=", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "2", "]"}], "[", "DirichletBeta", "]"}], "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]}]], "Input",ExpressionUUID->\ "6e24be24-5f6d-4085-aa77-7716d338c4ef"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Log", "[", "4", "]"}], "2"]}], " ", RowBox[{"PolyGamma", "[", RowBox[{"0", ",", FractionBox["1", "4"]}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Log", "[", "4", "]"}], "2"], " ", RowBox[{"PolyGamma", "[", RowBox[{"0", ",", FractionBox["3", "4"]}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}]}], "+", RowBox[{ RowBox[{"Log", "[", "16", "]"}], " ", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "58f4342f-f0e0-4e6c-9fbe-4d4c2625e308"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"FunctionExpand", "[", "l", "]"}], "]"}]], "Input",ExpressionUUID->\ "2d976c60-a90a-40a9-9999-75b92e43d941"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], " ", RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EulerGamma"}], "+", RowBox[{"Log", "[", FractionBox[ RowBox[{"16", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], "4"]}], SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "4"]], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "e8efa862-1a66-4a3a-afd5-1ccfd091087c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GammaSimplify", "[", RowBox[{"FullSimplify", "[", RowBox[{"FunctionExpand", "[", "l", "]"}], "]"}], "]"}]], "Input",Expressio\ nUUID->"f49c8eff-0294-4f94-a775-4936723be217"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], " ", RowBox[{"Log", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EulerGamma"}], "+", RowBox[{"Log", "[", FractionBox[ RowBox[{"64", " ", SuperscriptBox["\[Pi]", "6"]}], SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "8"]], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{ SuperscriptBox["Zeta", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "6f5d4fa5-e954-49af-8146-36d916042620"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["V10", "Subsubsection",ExpressionUUID->"815318bd-ef05-460b-aab6-9c3c8981d0ef"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "2", "]"}], "[", "DirichletBeta", "]"}], "[", "1", "]"}]], "Input",ExpressionUUID->"d3dfa282-6886-4177-8bbc-4c45c24f0c48"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Infinity", "::", "indet"}], "MessageName"], ":", " ", "\\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \ \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", \ "MSG",ExpressionUUID->"4c0f6f34-5582-4f8b-9ff0-cdf427b3aa93"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Infinity", "::", "indet"}], "MessageName"], ":", " ", "\\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \ \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", \ "MSG",ExpressionUUID->"dd38dbc6-83b9-495f-b676-2d49bbde39b3"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Infinity", "::", "indet"}], "MessageName"], ":", " ", "\\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \ \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", \ "MSG",ExpressionUUID->"4531d696-7b66-4c74-ba56-f5b2c6b61de9"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"General", "::", "stop"}], "MessageName"], ":", " ", "\\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \ \\\"General::stop\\\"]\\)\"\>"}]], "Message", \ "MSG",ExpressionUUID->"c47c11fc-a437-4f8a-a8b3-0fd17f190c7d"], Cell[BoxData["Indeterminate"], "Output",ExpressionUUID->"f295d5b2-283c-42ac-ba36-6a69a795bc64"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "2", "]"}], "[", "DirichletBeta", "]"}], "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]], "Input",ExpressionUUID->"71e2e79a-\ d224-4a7d-8ae6-129a65d65896"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox[ RowBox[{"Log", "[", "2", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"0", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"PolyGamma", "[", RowBox[{"0", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Log", "[", "16", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "+", RowBox[{"StieltjesGamma", "[", RowBox[{"2", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"StieltjesGamma", "[", RowBox[{"2", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "69d4639a-4f34-44dd-a0b7-042e5081242e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",ExpressionUUID->"edb9385a-40f9-4247-b0be-3139c976aad4"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"Log", "[", "2", "]"}], "2"]}], "+", RowBox[{ RowBox[{"Log", "[", "16", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "+", RowBox[{"StieltjesGamma", "[", RowBox[{"2", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"StieltjesGamma", "[", RowBox[{"2", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "b3682443-b17f-4a9a-b14d-010592d07ede"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionExpand", "[", "%", "]"}]], "Input",ExpressionUUID->"007eabc0-9a42-4931-92f6-04155c7d907a"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"Log", "[", "2", "]"}], "2"]}], "+", RowBox[{ RowBox[{"Log", "[", "16", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"StieltjesGamma", "[", RowBox[{"1", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}], "+", RowBox[{"StieltjesGamma", "[", RowBox[{"2", ",", FractionBox["1", "4"]}], "]"}], "-", RowBox[{"StieltjesGamma", "[", RowBox[{"2", ",", FractionBox["3", "4"]}], "]"}]}], ")"}]}]], "Output",ExpressionUUID->\ "220fee2e-5ff0-4d45-b215-93afd1c272e8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input",ExpressionUUID->"472fcef3-59d1-4a63-a80a-bbbc29cf21c0"], Cell[BoxData[ RowBox[{"-", "0.1541417244293355`"}]], "Output",ExpressionUUID->"04d55c90-9376-4eec-9c50-5779d0fb01c5"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{769, 748}, WindowMargins->{{334, Automatic}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 2, \ 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 95, 0, 92, "Title", "ExpressionUUID" -> \ "95207a57-fd23-456e-bed7-cbd4dce7e7e0"], Cell[CellGroupData[{ Cell[700, 26, 83, 0, 44, "Subsection", "ExpressionUUID" -> \ "834afb27-69db-4730-afb2-9fa90193f5a3"], Cell[786, 28, 114, 3, 49, "Text", "ExpressionUUID" -> \ "38594006-5cb7-4b35-80c3-e2921e4b718c"], Cell[903, 33, 364, 9, 49, "Text", "ExpressionUUID" -> \ "c99db525-accd-430d-8dcb-0e06cada6161"], Cell[1270, 44, 372, 10, 49, "Text", "ExpressionUUID" -> \ "f844a8fe-aafa-468a-bab6-ec5057ed2746"], Cell[1645, 56, 154, 2, 30, "Text", "ExpressionUUID" -> \ "fee74127-81d5-46d3-bf8e-ecdcdf302d73"] }, Open ]], Cell[CellGroupData[{ Cell[1836, 63, 84, 0, 64, "Section", "ExpressionUUID" -> \ "7f702e4a-95b5-45ce-b3ad-d2bb6285da49"], Cell[CellGroupData[{ Cell[1945, 67, 121, 1, 32, "Input", "ExpressionUUID" -> \ "0d626436-a653-44e6-9e7a-012e9d36c241"], Cell[2069, 70, 519, 18, 48, "Output", "ExpressionUUID" -> \ "9e1d5885-b6a3-4cd0-84d5-3ff37ec62d45"] }, Open ]], Cell[CellGroupData[{ Cell[2625, 93, 82, 0, 35, "Subsubsection", "ExpressionUUID" -> \ "d6ebfdc6-383a-4803-9d05-63f42ab54580"], Cell[CellGroupData[{ Cell[2732, 97, 420, 14, 70, "Input", "ExpressionUUID" -> \ "5a180760-83ee-4619-a330-45574eba4148"], Cell[3155, 113, 365, 12, 70, "Output", "ExpressionUUID" -> \ "c6f9c267-1e47-4f32-8928-2f3d95ad08fd"] }, Open ]], Cell[CellGroupData[{ Cell[3557, 130, 546, 17, 70, "Input", "ExpressionUUID" -> \ "11b43d7c-29b6-4feb-8dce-012c4a743ee4"], Cell[4106, 149, 107, 1, 70, "Output", "ExpressionUUID" -> \ "59e55bb5-3b0a-405f-b2d2-766b0916330f"] }, Open ]], Cell[CellGroupData[{ Cell[4250, 155, 446, 15, 70, "Input", "ExpressionUUID" -> \ "d891b77a-c0bc-46b0-93b3-7e7d31c40c75"], Cell[4699, 172, 107, 1, 70, "Output", "ExpressionUUID" -> \ "ea29366c-f109-4b54-b302-92c21e59edff"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[4855, 179, 82, 0, 29, "Subsubsection", "ExpressionUUID" -> \ "326f2d84-db2c-453b-9f30-601885f5cb7e"], Cell[CellGroupData[{ Cell[4962, 183, 420, 14, 70, "Input", "ExpressionUUID" -> \ "3bdea082-423e-4ad8-ad69-99ca01504666"], Cell[5385, 199, 390, 13, 70, "Output", "ExpressionUUID" -> \ "37b7df47-bed8-4068-b1d6-934e7ebbab31"] }, Open ]], Cell[CellGroupData[{ Cell[5812, 217, 546, 17, 70, "Input", "ExpressionUUID" -> \ "ce04b901-f1be-4849-a363-f02921c9780e"], Cell[6361, 236, 107, 1, 70, "Output", "ExpressionUUID" -> \ "3292e849-280e-47e1-809c-817ab32d4c91"] }, Open ]], Cell[CellGroupData[{ Cell[6505, 242, 446, 15, 70, "Input", "ExpressionUUID" -> \ "2a9b566f-7e1b-45cc-a335-5a66f2946e17"], Cell[6954, 259, 107, 1, 70, "Output", "ExpressionUUID" -> \ "ade93d99-60d1-4d8d-b8e7-f97803e390a3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7110, 266, 83, 0, 29, "Subsubsection", "ExpressionUUID" -> \ "becb686d-1fbe-4ba8-8a59-46651895737f"], Cell[7196, 268, 284, 8, 30, "Text", "ExpressionUUID" -> \ "1591ae26-c84b-49ce-8160-cba3543b2b10"], Cell[CellGroupData[{ Cell[7505, 280, 457, 15, 35, "Input", "ExpressionUUID" -> \ "8ce60f14-3fb5-4abb-aafb-e60f81c2663c"], Cell[7965, 297, 390, 13, 48, "Output", "ExpressionUUID" -> \ "babb9ab8-b30c-4074-83ee-88471a42cb70"] }, Open ]], Cell[CellGroupData[{ Cell[8392, 315, 122, 1, 32, "Input", "ExpressionUUID" -> \ "fa64047a-ddd3-40df-88b4-a2fe49691728"], Cell[8517, 318, 365, 12, 48, "Output", "ExpressionUUID" -> \ "266a8078-3ff4-4777-bd0f-a8cea68d22e2"] }, Open ]], Cell[CellGroupData[{ Cell[8919, 335, 186, 4, 32, "Input", "ExpressionUUID" -> \ "965a0fd1-0c15-4bb1-9d54-ae8e6905453c"], Cell[9108, 341, 83, 0, 32, "Output", "ExpressionUUID" -> \ "3db1b810-8713-4c72-ad64-9a24997aefcc"] }, Open ]], Cell[CellGroupData[{ Cell[9228, 346, 164, 3, 32, "Input", "ExpressionUUID" -> \ "3b83ef70-bfcc-4f5f-a2c6-d093f10168a6"], Cell[9395, 351, 519, 18, 70, "Output", "ExpressionUUID" -> \ "9b8938e9-7b02-4f45-92d3-42375ead7976"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9975, 376, 79, 0, 70, "Section", "ExpressionUUID" -> \ "a0eb14e5-1101-4633-a76d-b31969822349"], Cell[10057, 378, 168, 3, 70, "Input", "ExpressionUUID" -> \ "19c7a3ae-1c0c-4b09-ad17-cc7425721f62"], Cell[CellGroupData[{ Cell[10250, 385, 86, 0, 70, "Subsection", "ExpressionUUID" -> \ "9b511e8a-40ee-4d47-8a9a-289b5f73e3a1"], Cell[CellGroupData[{ Cell[10361, 389, 521, 14, 70, "Input", "ExpressionUUID" -> \ "062d1af2-c1bd-4b80-95aa-21e8bf0da7da"], Cell[10885, 405, 9077, 443, 70, 7305, 412, "GraphicsData", "PostScript", \ "Graphics", "ExpressionUUID" -> "c0457029-a0f3-487e-96f2-bd544cfbbde4"], Cell[19965, 850, 191, 5, 70, "Output", "ExpressionUUID" -> \ "f7c669b5-42d6-45f8-8164-05e90ac17e9a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20205, 861, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "c92658d0-d8c5-4e7b-a896-99d98e782c39"], Cell[CellGroupData[{ Cell[20320, 865, 407, 11, 70, "Input", "ExpressionUUID" -> \ "c1407f14-7266-4991-ac5b-734322c11157"], Cell[20730, 878, 6980008, 156322, 70, 6941135, 155685, "GraphicsData", \ "PostScript", "Graphics", "ExpressionUUID" -> \ "4d5f2606-6e6e-4d0c-a4c0-8663a4e05f57"], Cell[7000741, 157202, 288, 9, 70, "Output", "ExpressionUUID" -> \ "486d5a27-5465-4a11-8399-d98d296c0599"] }, Open ]], Cell[CellGroupData[{ Cell[7001066, 157216, 359, 10, 70, "Input", "ExpressionUUID" -> \ "4066fbe2-872f-4c17-ab9c-4340bbd72930"], Cell[7001428, 157228, 309427, 19260, 70, 301381, 19128, "GraphicsData", \ "PostScript", "Graphics", "ExpressionUUID" -> \ "bc74b622-c965-4bce-9b6c-05cd37cba7fe"], Cell[7310858, 176490, 288, 9, 70, "Output", "ExpressionUUID" -> \ "bdcbe8f2-99c0-4cec-ab55-e8a712bcdf74"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7311207, 176506, 88, 0, 70, "Section", "ExpressionUUID" -> \ "407de4ea-5327-4c3a-9b9a-d40c27d84143"], Cell[CellGroupData[{ Cell[7311320, 176510, 213, 5, 70, "Subsection", "ExpressionUUID" -> \ "082f4479-b4d3-47db-9966-d05d9152c369"], Cell[CellGroupData[{ Cell[7311558, 176519, 294, 8, 70, "Input", "ExpressionUUID" -> \ "c49baade-70a7-444c-bb35-3135a3e386f1"], Cell[7311855, 176529, 217, 5, 70, "Output", "ExpressionUUID" -> \ "fd5990d4-482d-4390-88b6-5eea1f7b02e5"] }, Open ]], Cell[CellGroupData[{ Cell[7312109, 176539, 250, 7, 70, "Input", "ExpressionUUID" -> \ "e19a7cd9-5766-4f66-ba5b-1ec250638c93"], Cell[7312362, 176548, 217, 5, 70, "Output", "ExpressionUUID" -> \ "9e2baceb-acac-452c-9677-8e2c395bd9b5"] }, Open ]], Cell[CellGroupData[{ Cell[7312616, 176558, 461, 12, 70, "Input", "ExpressionUUID" -> \ "b3c99efa-f199-4173-84d9-26e6195638bb"], Cell[7313080, 176572, 83, 0, 70, "Output", "ExpressionUUID" -> \ "c453e7a3-f6c6-430a-a82d-5ddd672f0a2e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7313212, 176578, 214, 5, 70, "Subsection", "ExpressionUUID" -> \ "bacc233d-d343-43c8-a629-ad559a1dbba8"], Cell[CellGroupData[{ Cell[7313451, 176587, 349, 11, 70, "Input", "ExpressionUUID" -> \ "80db7ed0-56f4-45cb-af57-d2e9fee17f91"], Cell[7313803, 176600, 588, 18, 70, "Output", "ExpressionUUID" -> \ "9de329f9-5885-40a9-9b67-7d68202adafe"] }, Open ]], Cell[CellGroupData[{ Cell[7314428, 176623, 250, 7, 70, "Input", "ExpressionUUID" -> \ "8241f0d1-5275-468c-b0b0-6d48e054051f"], Cell[7314681, 176632, 588, 18, 70, "Output", "ExpressionUUID" -> \ "427e908a-6f9f-4bbc-92fb-0055e2ac6bab"] }, Open ]], Cell[CellGroupData[{ Cell[7315306, 176655, 461, 12, 70, "Input", "ExpressionUUID" -> \ "f2892fc8-b57a-4800-ae1e-53616ee948e0"], Cell[7315770, 176669, 157, 4, 70, "Output", "ExpressionUUID" -> \ "49ec7cf9-2cd4-463f-aa59-9cce46dc3c05"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7315976, 176679, 213, 5, 70, "Subsection", "ExpressionUUID" -> \ "a253f4eb-51ac-4c98-9cb5-e7ada540e96d"], Cell[CellGroupData[{ Cell[7316214, 176688, 461, 12, 70, "Input", "ExpressionUUID" -> \ "818e27b7-2f49-425f-815c-b91ad1a3984e"], Cell[7316678, 176702, 365, 12, 70, "Output", "ExpressionUUID" -> \ "84c797b6-2e58-40cf-be00-f6f43c580581"] }, Open ]], Cell[CellGroupData[{ Cell[7317080, 176719, 635, 22, 70, "Input", "ExpressionUUID" -> \ "e6a1545f-5f31-498c-8fcf-4cd66a3c5de5"], Cell[7317718, 176743, 605, 17, 70, "Output", "ExpressionUUID" -> \ "be64ccb6-7520-4076-9087-7306b0f7b51e"] }, Open ]], Cell[CellGroupData[{ Cell[7318360, 176765, 231, 5, 70, "Input", "ExpressionUUID" -> \ "5577a6bf-e6c3-491d-8e7d-d6a694365a1f"], Cell[7318594, 176772, 1428, 45, 70, "Output", "ExpressionUUID" -> \ "06941218-5b31-4c4f-8e33-3125b162979b"] }, Open ]], Cell[CellGroupData[{ Cell[7320059, 176822, 120, 1, 70, "Input", "ExpressionUUID" -> \ "5afe1a62-3ec2-475f-ac27-ec734705f091"], Cell[7320182, 176825, 1428, 45, 70, "Output", "ExpressionUUID" -> \ "86c6ffca-6cad-4fc7-bde3-ed49e68de00c"] }, Open ]], Cell[CellGroupData[{ Cell[7321647, 176875, 213, 5, 70, "Input", "ExpressionUUID" -> \ "4a2095d8-2c4e-4955-a60b-f29725b0000d"], Cell[7321863, 176882, 1290, 38, 70, "Output", "ExpressionUUID" -> \ "098f662a-6e58-4d3e-9529-93748fc20b63"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7323202, 176926, 212, 5, 70, "Subsection", "ExpressionUUID" -> \ "bc04ec99-6fa0-41af-baa0-25d2c452e2a6"], Cell[CellGroupData[{ Cell[7323439, 176935, 87, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "7faacccf-2b15-41d6-8262-f64d31ca53fe"], Cell[CellGroupData[{ Cell[7323551, 176939, 182, 4, 70, "Input", "ExpressionUUID" -> \ "d8f3b23e-78b0-4b93-a429-0106a0799bd9"], Cell[7323736, 176945, 101, 0, 70, "Output", "ExpressionUUID" -> \ "f427de59-738f-4300-8ded-64cb3fde745c"] }, Open ]], Cell[CellGroupData[{ Cell[7323874, 176950, 106, 1, 70, "Input", "ExpressionUUID" -> \ "a7dcb2b0-3d75-4e05-81a1-d7f493832fce"], Cell[7323983, 176953, 101, 0, 70, "Output", "ExpressionUUID" -> \ "5645d54a-d3e5-4332-89f5-fd2326ddb100"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7324133, 176959, 82, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "02824e8f-3a04-49e1-8a07-4cd7a4382b25"], Cell[CellGroupData[{ Cell[7324240, 176963, 209, 5, 70, "Input", "ExpressionUUID" -> \ "13048ceb-8b1a-4408-b1e5-897c922a437b"], Cell[7324452, 176970, 376, 12, 70, "Output", "ExpressionUUID" -> \ "47327538-24d3-41cc-a203-18f178b0c8c6"] }, Open ]], Cell[CellGroupData[{ Cell[7324865, 176987, 120, 1, 70, "Input", "ExpressionUUID" -> \ "386efb10-da97-4add-8883-2e1f8a0e3957"], Cell[7324988, 176990, 107, 1, 70, "Output", "ExpressionUUID" -> \ "a7233b3b-623a-4b34-8696-e2c8fc0541d0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7325144, 176997, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "48d3be15-c893-4cc3-a685-31171039d5ea"], Cell[CellGroupData[{ Cell[7325252, 177001, 121, 1, 70, "Input", "ExpressionUUID" -> \ "5aea6277-1e12-46e9-9ab9-76e721d206d4"], Cell[7325376, 177004, 107, 1, 70, "Output", "ExpressionUUID" -> \ "8cc67a5b-9588-422b-9e9f-52957ce744f0"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7325544, 177012, 199, 5, 70, "Subsection", "ExpressionUUID" -> \ "0dcb17c1-f6d8-4738-ad08-eb35d4e821c1"], Cell[CellGroupData[{ Cell[7325768, 177021, 87, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "d3db2d3b-b892-457e-9296-f54f443f8ff5"], Cell[CellGroupData[{ Cell[7325880, 177025, 179, 4, 70, "Input", "ExpressionUUID" -> \ "893f2ae3-cf5b-43d3-83bd-34ca576f193b"], Cell[7326062, 177031, 131, 0, 70, "Output", "ExpressionUUID" -> \ "8c5086bb-bc6b-420e-97d1-2348f65e649b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7326242, 177037, 84, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "799f933b-2d78-461d-9980-0d3308a9baf5"], Cell[CellGroupData[{ Cell[7326351, 177041, 216, 5, 70, "Input", "ExpressionUUID" -> \ "f3f70628-c945-4c7d-a338-19abeedc2161"], Cell[7326570, 177048, 531, 17, 70, "Output", "ExpressionUUID" -> \ "cfc73c96-2995-4afd-ac9c-bf798686bcb3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7327150, 177071, 84, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "d6f43cc6-9075-459c-b779-d8e17d114935"], Cell[CellGroupData[{ Cell[7327259, 177075, 216, 5, 70, "Input", "ExpressionUUID" -> \ "6654c715-9833-4d0c-8d3a-3a9cf23f3d2d"], Cell[7327478, 177082, 128, 0, 70, "Output", "ExpressionUUID" -> \ "58ade524-596b-4a8d-8d2d-f9fdd41ca7d4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7327655, 177088, 84, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "88370c8b-dfd3-4550-ac5c-6765dd8a4d86"], Cell[CellGroupData[{ Cell[7327764, 177092, 216, 5, 70, "Input", "ExpressionUUID" -> \ "2a389134-7954-48db-8791-6bac6fe7cf1e"], Cell[7327983, 177099, 481, 15, 70, "Output", "ExpressionUUID" -> \ "c11a69c6-b2e9-49aa-a0b3-8e72a3e96cc3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7328513, 177120, 82, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "89c19ae9-5991-4a7e-b526-4979288b999d"], Cell[CellGroupData[{ Cell[7328620, 177124, 216, 5, 70, "Input", "ExpressionUUID" -> \ "95584970-3970-4e37-a202-601713e0958e"], Cell[7328839, 177131, 481, 15, 70, "Output", "ExpressionUUID" -> \ "a6fa1b31-27c4-4101-825e-82396d4eb4c5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7329369, 177152, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "fc6b8481-2684-4750-a392-82552b6302c3"], Cell[7329455, 177154, 284, 8, 70, "Text", "ExpressionUUID" -> \ "a39d6fe2-107f-4a40-8750-d695557bd45c"], Cell[CellGroupData[{ Cell[7329764, 177166, 131, 1, 70, "Input", "ExpressionUUID" -> \ "407818de-6d18-4da4-a55c-35b1d343f680"], Cell[7329898, 177169, 398, 12, 70, "Output", "ExpressionUUID" -> \ "3515477e-99c1-4fb1-9ec9-8dc9434c77aa"] }, Open ]], Cell[CellGroupData[{ Cell[7330333, 177186, 219, 5, 70, "Input", "ExpressionUUID" -> \ "ad948ea6-83e3-4d7c-bd22-dbdbc52c262d"], Cell[7330555, 177193, 647, 21, 70, "Output", "ExpressionUUID" -> \ "60ce4ba3-c28f-4fb1-8255-efdf79543796"] }, Open ]], Cell[CellGroupData[{ Cell[7331239, 177219, 124, 1, 70, "Input", "ExpressionUUID" -> \ "7449a566-eed9-4240-98a4-6bf62d7968b6"], Cell[7331366, 177222, 85, 0, 70, "Output", "ExpressionUUID" -> \ "8e62cce3-ff11-4cff-9f1c-1d3e56a102d0"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7331512, 177229, 151, 3, 70, "Subsection", "ExpressionUUID" -> \ "e165ec68-801a-475f-b332-3010c219c258"], Cell[CellGroupData[{ Cell[7331688, 177236, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "5314c6fc-ffda-4eec-bafd-4df2fedc0d0b"], Cell[CellGroupData[{ Cell[7331796, 177240, 345, 11, 70, "Input", "ExpressionUUID" -> \ "98254c2c-f97e-4389-8526-c47e0bc7c4ef"], Cell[7332144, 177253, 519, 18, 70, "Output", "ExpressionUUID" -> \ "91189595-fe03-4a94-80d7-8fd38d5fb126"] }, Open ]], Cell[CellGroupData[{ Cell[7332700, 177276, 524, 14, 70, "Input", "ExpressionUUID" -> \ "3f920b20-f2f6-4b0e-b146-3183102442aa"], Cell[7333227, 177292, 507, 9, 70, "Message", "ExpressionUUID" -> \ "1d2f9ce5-6c0a-4140-bc5b-9fcf495bf21c"], Cell[7333737, 177303, 480, 8, 70, "Message", "ExpressionUUID" -> \ "4230403d-6345-401c-b8d1-7cf5c9c13a9f"], Cell[7334220, 177313, 590, 18, 70, "Output", "ExpressionUUID" -> \ "458cd3d6-049e-4f91-9705-60c99fe994ee"] }, Open ]], Cell[CellGroupData[{ Cell[7334847, 177336, 657, 21, 70, "Input", "ExpressionUUID" -> \ "39c65119-2b9a-4915-ad6b-7cb821e394ac"], Cell[7335507, 177359, 83, 0, 70, "Output", "ExpressionUUID" -> \ "25c69891-e497-43e2-9588-c1413bc3a92c"] }, Open ]], Cell[CellGroupData[{ Cell[7335627, 177364, 329, 8, 70, "Input", "ExpressionUUID" -> \ "55f18e89-db1b-4cad-9b1b-7add78f561a7"], Cell[7335959, 177374, 507, 9, 70, "Message", "ExpressionUUID" -> \ "e9a1b8f7-42c2-467f-857c-7286baf02b2c"], Cell[7336469, 177385, 1483, 46, 70, "Output", "ExpressionUUID" -> \ "1427557f-6d00-42a9-9791-6ef00e3f234e"] }, Open ]], Cell[CellGroupData[{ Cell[7337989, 177436, 718, 24, 70, "Input", "ExpressionUUID" -> \ "afc6b162-03df-4975-ba5c-8aa0edc7de1c"], Cell[7338710, 177462, 593, 18, 70, "Output", "ExpressionUUID" -> \ "06de88b1-2563-4492-8c6e-0db40c61916e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7339352, 177486, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "fb5c778c-4ff7-49f9-aa04-ebc2a95ca002"], Cell[CellGroupData[{ Cell[7339460, 177490, 267, 7, 70, "Input", "ExpressionUUID" -> \ "c469a74e-3904-41a3-b6c0-1ac1417745c9"], Cell[7339730, 177499, 515, 16, 70, "Output", "ExpressionUUID" -> \ "f81939fd-d534-4697-8803-de8543182fda"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7340318, 177523, 78, 0, 70, "Section", "ExpressionUUID" -> \ "bf81b54e-a0c5-4fee-b124-0340777f4fbd"], Cell[7340399, 177525, 118, 1, 70, "Input", "ExpressionUUID" -> \ "ab20c669-17fe-4c8a-95c1-0280e518ad0d"], Cell[CellGroupData[{ Cell[7340542, 177530, 743, 25, 70, "Input", "ExpressionUUID" -> \ "7c51c073-752c-4e77-ba6e-5d393fcfcb7a"], Cell[7341288, 177557, 758, 26, 70, "Output", "ExpressionUUID" -> \ "bf99df4d-9165-4f91-9c5d-fa6d0b5ec079"] }, Open ]], Cell[CellGroupData[{ Cell[7342083, 177588, 747, 23, 70, "Input", "ExpressionUUID" -> \ "655456de-14b7-46b3-ba6a-de3948940939"], Cell[7342833, 177613, 970, 34, 70, "Output", "ExpressionUUID" -> \ "4a237011-d6bf-4af2-95f0-daaec7ac29cc"] }, Open ]], Cell[CellGroupData[{ Cell[7343840, 177652, 825, 27, 70, "Subsection", "ExpressionUUID" -> \ "37db7dba-b12b-4893-93c6-e1c3cb549ad6"], Cell[CellGroupData[{ Cell[7344690, 177683, 82, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "ddc7c188-da63-4e3f-8d2d-72bd35eaf741"], Cell[CellGroupData[{ Cell[7344797, 177687, 730, 24, 70, "Input", "ExpressionUUID" -> \ "4cff0f61-c8ba-43b0-aad8-c0a688de8231"], Cell[7345530, 177713, 671, 23, 70, "Output", "ExpressionUUID" -> \ "a0275edc-a5e2-44f4-8f36-805d24e1ab61"] }, Open ]], Cell[CellGroupData[{ Cell[7346238, 177741, 803, 26, 70, "Input", "ExpressionUUID" -> \ "0fbb370f-f514-4974-97e7-2836494e0545"], Cell[7347044, 177769, 119, 1, 70, "Output", "ExpressionUUID" -> \ "4584b640-3205-49c7-9dad-0f30d2f8278e"] }, Open ]], Cell[CellGroupData[{ Cell[7347200, 177775, 615, 19, 70, "Input", "ExpressionUUID" -> \ "30c0696d-4874-4429-a098-136f4c493c1c"], Cell[7347818, 177796, 102, 0, 70, "Output", "ExpressionUUID" -> \ "0bb29853-03c7-473a-98ec-1f0c80679c48"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7347969, 177802, 82, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "5463af1b-b560-4ff1-8b13-fd6c9e005df5"], Cell[CellGroupData[{ Cell[7348076, 177806, 794, 26, 70, "Input", "ExpressionUUID" -> \ "fec0e164-c17c-446e-8548-048491ed421d"], Cell[7348873, 177834, 477, 14, 70, "Output", "ExpressionUUID" -> \ "d0cbf26b-2be3-43d7-a19c-b59619233c8d"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7349411, 177855, 957, 32, 70, "Subsection", "ExpressionUUID" -> \ "b65c3133-27ff-411d-bc70-06dbdc7cf5b5"], Cell[7350371, 177889, 796, 26, 70, "Input", "ExpressionUUID" -> \ "06190b85-b424-4229-a238-6146760de51f"], Cell[CellGroupData[{ Cell[7351192, 177919, 796, 26, 70, "Input", "ExpressionUUID" -> \ "a21ac703-ef71-41a6-a03a-3c8c9003a4b2"], Cell[7351991, 177947, 727, 26, 70, "Output", "ExpressionUUID" -> \ "5f29159d-80d3-4a55-8b40-2124918eb644"] }, Open ]], Cell[CellGroupData[{ Cell[7352755, 177978, 325, 9, 70, "Input", "ExpressionUUID" -> \ "16f59793-87f5-4fa4-9eb3-75672d7b4816"], Cell[7353083, 177989, 727, 26, 70, "Output", "ExpressionUUID" -> \ "f1f5e437-5c21-41db-9a06-707376130a5b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7353859, 178021, 957, 32, 70, "Subsection", "ExpressionUUID" -> \ "34202a96-5db4-48c3-9c88-c1db4c9fb149"], Cell[CellGroupData[{ Cell[7354841, 178057, 743, 25, 70, "Input", "ExpressionUUID" -> \ "da3950ef-aa51-49ee-a5ce-2a36d495233e"], Cell[7355587, 178084, 751, 26, 70, "Output", "ExpressionUUID" -> \ "30f5f352-21b0-467a-8ae2-c9c9aa35f9d8"] }, Open ]], Cell[CellGroupData[{ Cell[7356375, 178115, 289, 8, 70, "Input", "ExpressionUUID" -> \ "98df850c-2551-48c5-8424-563094857812"], Cell[7356667, 178125, 751, 26, 70, "Output", "ExpressionUUID" -> \ "753bcb0c-2bd9-4ae0-91b3-327236bc1729"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7357467, 178157, 957, 32, 70, "Subsection", "ExpressionUUID" -> \ "f748a20c-c3d6-40c7-8685-ebef3edab919"], Cell[CellGroupData[{ Cell[7358449, 178193, 743, 25, 70, "Input", "ExpressionUUID" -> \ "667b7d62-14f4-4bc8-b9ef-30008bb8f6c7"], Cell[7359195, 178220, 751, 26, 70, "Output", "ExpressionUUID" -> \ "36247922-eda6-4989-9fb8-d5ce6f4d192a"] }, Open ]], Cell[CellGroupData[{ Cell[7359983, 178251, 289, 8, 70, "Input", "ExpressionUUID" -> \ "8fbd4e16-2d35-483f-b384-905a012c54b2"], Cell[7360275, 178261, 751, 26, 70, "Output", "ExpressionUUID" -> \ "0650a5cb-de84-48de-a34e-659ffa2d5fa4"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[7361087, 178294, 85, 0, 70, "Section", "ExpressionUUID" -> \ "e9145b40-9c79-4439-9370-d3a9486b8615"], Cell[CellGroupData[{ Cell[7361197, 178298, 85, 0, 70, "Subsection", "ExpressionUUID" -> \ "657120ea-8896-401a-a8e6-86eb2c58bde0"], Cell[CellGroupData[{ Cell[7361307, 178302, 236, 6, 70, "Input", "ExpressionUUID" -> \ "2c0b57c9-3e6b-45b8-9c52-a8abf7491d76"], Cell[7361546, 178310, 1112, 41, 70, "Output", "ExpressionUUID" -> \ "1c296efa-fc3b-47e8-a377-6a6172d931d8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7362707, 178357, 84, 0, 70, "Subsection", "ExpressionUUID" -> \ "b4a08254-de36-4a6c-a49c-77bdfb170e3e"], Cell[CellGroupData[{ Cell[7362816, 178361, 350, 12, 70, "Input", "ExpressionUUID" -> \ "573499bc-806d-48dd-a1c9-ec86692dbae5"], Cell[7363169, 178375, 403, 14, 70, "Output", "ExpressionUUID" -> \ "e24690d1-e3b7-407f-b83b-36519a5d2388"] }, Open ]], Cell[CellGroupData[{ Cell[7363609, 178394, 549, 18, 70, "Input", "ExpressionUUID" -> \ "e13b6d12-96c9-4541-be78-13b25e5badea"], Cell[7364161, 178414, 505, 17, 70, "Output", "ExpressionUUID" -> \ "27b922cc-0a3a-4188-946b-61067b8c4215"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7364715, 178437, 231, 6, 70, "Subsection", "ExpressionUUID" -> \ "575f690f-292b-4805-b262-96a74595b662"], Cell[CellGroupData[{ Cell[7364971, 178447, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "a3b52436-fb74-4fbf-953a-12d2af629dbf"], Cell[CellGroupData[{ Cell[7365079, 178451, 207, 5, 70, "Input", "ExpressionUUID" -> \ "dd4b9e01-dbd1-4140-b771-ad7f41209419"], Cell[7365289, 178458, 989, 34, 70, "Output", "ExpressionUUID" -> \ "c9cbd884-91ef-4e4b-be94-ab64cafb45a6"] }, Open ]], Cell[CellGroupData[{ Cell[7366315, 178497, 120, 1, 70, "Input", "ExpressionUUID" -> \ "06c49054-9eb1-4821-9087-46d079516b73"], Cell[7366438, 178500, 138, 3, 70, "Output", "ExpressionUUID" -> \ "709d0d55-7a0b-44a2-ac62-ffde79a76e21"] }, Open ]], Cell[CellGroupData[{ Cell[7366613, 178508, 133, 2, 70, "Input", "ExpressionUUID" -> \ "0f2c157d-e0b2-4ec4-9216-2653e12d0a0f"], Cell[7366749, 178512, 141, 1, 70, "Output", "ExpressionUUID" -> \ "4e2e19fa-96ca-4609-9dae-a64cb3d52f1f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7366939, 178519, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "1b887a90-986b-407a-8a66-a0cb69321ced"], Cell[CellGroupData[{ Cell[7367047, 178523, 207, 5, 70, "Input", "ExpressionUUID" -> \ "ef8ff186-79b9-41db-bff7-b32a2a0982be"], Cell[7367257, 178530, 1562, 52, 70, "Output", "ExpressionUUID" -> \ "ceb4a524-e195-4789-8db3-264c0c4cfb3a"] }, Open ]], Cell[CellGroupData[{ Cell[7368856, 178587, 120, 1, 70, "Input", "ExpressionUUID" -> \ "bed95967-1ec7-45ee-bc85-dd7e82854fbd"], Cell[7368979, 178590, 138, 3, 70, "Output", "ExpressionUUID" -> \ "600f5c0f-cf4a-4e6f-9236-4b4b56b8d044"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7369178, 178600, 212, 5, 70, "Subsection", "ExpressionUUID" -> \ "f67228ac-f735-4f68-8d52-5c3674b09958"], Cell[CellGroupData[{ Cell[7369415, 178609, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "8aafcf1c-4e8f-4506-9843-184355419fb6"], Cell[CellGroupData[{ Cell[7369523, 178613, 190, 4, 70, "Input", "ExpressionUUID" -> \ "1fc84209-92ba-4a8a-86ea-2e8d5b733eaf"], Cell[7369716, 178619, 619, 23, 70, "Output", "ExpressionUUID" -> \ "df54eaf9-1eed-4953-9ab5-5c38946562cd"] }, Open ]], Cell[CellGroupData[{ Cell[7370372, 178647, 116, 1, 70, "Input", "ExpressionUUID" -> \ "3c7f7055-e7d0-4111-83da-bb541cafc362"], Cell[7370491, 178650, 273, 8, 70, "Output", "ExpressionUUID" -> \ "3ae19b03-eaf1-4ce0-9d6c-2ffd068430a1"] }, Open ]], Cell[7370779, 178661, 118, 1, 70, "Input", "ExpressionUUID" -> \ "0458ce3f-cbeb-41be-8ce2-09ee10506d18"], Cell[CellGroupData[{ Cell[7370922, 178666, 318, 9, 70, "Input", "ExpressionUUID" -> \ "2e1a3bd9-0170-402a-adc6-ea4ec3132006"], Cell[7371243, 178677, 270, 8, 70, "Output", "ExpressionUUID" -> \ "bbbcd2c8-0927-4295-ad21-dbae4cd971cc"] }, Open ]], Cell[CellGroupData[{ Cell[7371550, 178690, 133, 2, 70, "Input", "ExpressionUUID" -> \ "6d900862-aac4-4e7a-a711-5237841c403e"], Cell[7371686, 178694, 148, 1, 70, "Output", "ExpressionUUID" -> \ "578f3c6d-391d-4b52-9ceb-25f0c51ba503"] }, Open ]], Cell[CellGroupData[{ Cell[7371871, 178700, 618, 19, 70, "Input", "ExpressionUUID" -> \ "70b9de55-9b91-4e7a-bd08-c6cb1b9a1e0f"], Cell[7372492, 178721, 1074, 22, 70, "Output", "ExpressionUUID" -> \ "93084ed3-b3b1-4808-a006-94c93dbb8202"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7373615, 178749, 82, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "1b9a7dd8-d0a1-4f12-8316-49f6a4d46b4b"], Cell[CellGroupData[{ Cell[7373722, 178753, 411, 13, 70, "Input", "ExpressionUUID" -> \ "8270a93d-a2a5-445f-b56f-5bd56d6b7555"], Cell[7374136, 178768, 368, 7, 70, "Message", "ExpressionUUID" -> \ "76cf1e4d-1f03-41e0-a51f-467d7ddf0031"], Cell[7374507, 178777, 372, 12, 70, "Output", "ExpressionUUID" -> \ "3133e892-10f3-4636-8df3-990d058424fc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7374928, 178795, 82, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "a5edea0d-4ef5-4700-aea9-70e72845b205"], Cell[CellGroupData[{ Cell[7375035, 178799, 467, 16, 70, "Input", "ExpressionUUID" -> \ "60369a89-3dab-4769-b927-24c1ff070c16"], Cell[7375505, 178817, 275, 9, 70, "Output", "ExpressionUUID" -> \ "ca208e12-3ac0-4eb5-b887-160b39eac03e"] }, Open ]], Cell[CellGroupData[{ Cell[7375817, 178831, 411, 13, 70, "Input", "ExpressionUUID" -> \ "4076e974-bf19-4337-afe8-73ce70dfbe1c"], Cell[7376231, 178846, 428, 8, 70, "Message", "ExpressionUUID" -> \ "d9ca16ee-f7e0-4200-82cd-74c14ac83c1d"], Cell[7376662, 178856, 372, 12, 70, "Output", "ExpressionUUID" -> \ "6b775d82-2370-4241-b7c2-7aa551361e0b"] }, Open ]], Cell[CellGroupData[{ Cell[7377071, 178873, 412, 13, 70, "Input", "ExpressionUUID" -> \ "3a6286a5-69df-46c8-840c-a44a6fd53dc3"], Cell[7377486, 178888, 537, 9, 70, "Message", "ExpressionUUID" -> \ "dc142ac3-ce85-451f-9a09-b1fb6962efcd"], Cell[7378026, 178899, 101, 0, 70, "Output", "ExpressionUUID" -> \ "ec1e12c6-3ccb-487a-961e-f9cfb63a7010"] }, Open ]], Cell[CellGroupData[{ Cell[7378164, 178904, 464, 15, 70, "Input", "ExpressionUUID" -> \ "bb1c13e0-252d-42bc-be24-e030f954c115"], Cell[7378631, 178921, 117, 1, 70, "Output", "ExpressionUUID" -> \ "43d5f6ab-820c-4653-9f79-55927c577e60"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7378797, 178928, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "850b4d93-cdab-44eb-8fc1-9b13a981f182"], Cell[CellGroupData[{ Cell[7378905, 178932, 190, 4, 70, "Input", "ExpressionUUID" -> \ "2354452a-3a59-44f3-8843-7e1bc4777b75"], Cell[7379098, 178938, 596, 22, 70, "Output", "ExpressionUUID" -> \ "d8a3851a-e65d-4800-9c20-47cf5cb7e7a1"] }, Open ]], Cell[CellGroupData[{ Cell[7379731, 178965, 120, 1, 70, "Input", "ExpressionUUID" -> \ "b73471e5-8177-4806-82f3-48b3ecb41945"], Cell[7379854, 178968, 273, 8, 70, "Output", "ExpressionUUID" -> \ "7240e779-5215-4c18-ba9d-498044e16ae8"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7380188, 178983, 745, 21, 70, "Subsection", "ExpressionUUID" -> \ "849a5aa8-3057-4b36-aa40-8bf95988f9b2"], Cell[CellGroupData[{ Cell[7380958, 179008, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "e4d185a2-ac9b-416f-ac4b-af8ca014e80d"], Cell[CellGroupData[{ Cell[7381066, 179012, 190, 4, 70, "Input", "ExpressionUUID" -> \ "ff918b1c-c0bf-4bc6-8536-443b4a14ac92"], Cell[7381259, 179018, 396, 7, 70, "Message", "ExpressionUUID" -> \ "2eac6b3a-d00a-4160-a4db-5769f12aa734"], Cell[7381658, 179027, 95, 0, 70, "Output", "ExpressionUUID" -> \ "eb1351d9-4e94-40fb-b2bb-ad188f1fff84"] }, Open ]], Cell[CellGroupData[{ Cell[7381790, 179032, 259, 7, 70, "Input", "ExpressionUUID" -> \ "a341884f-e0ce-4d3f-a15b-1e0f5c2a18a0"], Cell[7382052, 179041, 100, 0, 70, "Output", "ExpressionUUID" -> \ "29001f57-19b2-4622-83b3-4d14d8bd3693"] }, Open ]], Cell[CellGroupData[{ Cell[7382189, 179046, 522, 15, 70, "Input", "ExpressionUUID" -> \ "2e8e454e-eecf-4de7-aa57-f632d0248dac"], Cell[7382714, 179063, 102, 0, 70, "Output", "ExpressionUUID" -> \ "05749413-6fcc-4197-8b8a-41435f8b7b70"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7382865, 179069, 84, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "0ea4cec3-80b4-42a1-8816-4ae2c2226378"], Cell[CellGroupData[{ Cell[7382974, 179073, 313, 9, 70, "Input", "ExpressionUUID" -> \ "e6a358c8-8f33-48ca-b92a-085f8966aeee"], Cell[7383290, 179084, 1219, 41, 70, "Output", "ExpressionUUID" -> \ "6e9ed29d-c080-4d43-8e38-46580004ab07"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7384558, 179131, 82, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "e5b7db01-3fd8-4b13-b356-e28943da5548"], Cell[CellGroupData[{ Cell[7384665, 179135, 284, 8, 70, "Input", "ExpressionUUID" -> \ "d5e82159-31d3-49a0-86eb-cd952251fdb4"], Cell[7384952, 179145, 1219, 41, 70, "Output", "ExpressionUUID" -> \ "7daaa48f-d5f6-43a9-8e3f-fa91a787fbc3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7386220, 179192, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "aca1381f-7f58-4f73-93f2-159a72f5bb7b"], Cell[7386306, 179194, 284, 8, 70, "Text", "ExpressionUUID" -> \ "30677540-b1d5-4cc0-a39e-72ace706504d"], Cell[CellGroupData[{ Cell[7386615, 179206, 190, 4, 70, "Input", "ExpressionUUID" -> \ "e96f2736-d074-49bc-8a7a-c4fa7f17a0aa"], Cell[7386808, 179212, 489, 9, 70, "Message", "ExpressionUUID" -> \ "ca364e57-5ca7-41ec-8330-572a0563c609"], Cell[7387300, 179223, 833, 14, 70, "Message", "ExpressionUUID" -> \ "5cd466d8-0738-4c77-a0f7-486b27ac4ea4"], Cell[7388136, 179239, 95, 0, 70, "Output", "ExpressionUUID" -> \ "43d9971c-8327-4f6e-b74a-b5f55ae268f7"] }, Open ]], Cell[CellGroupData[{ Cell[7388268, 179244, 284, 8, 70, "Input", "ExpressionUUID" -> \ "8d8c63b0-db87-4de2-ab83-4d9fa15946af"], Cell[7388555, 179254, 680, 21, 70, "Output", "ExpressionUUID" -> \ "60a100e7-b9a1-408e-8ef0-8e2dadf47847"] }, Open ]], Cell[CellGroupData[{ Cell[7389272, 179280, 120, 1, 70, "Input", "ExpressionUUID" -> \ "9495ffd2-2cf0-446a-bbb5-0f7e67e6d257"], Cell[7389395, 179283, 456, 14, 70, "Output", "ExpressionUUID" -> \ "2df90d7d-91ec-486d-a754-5420cf36e858"] }, Open ]], Cell[CellGroupData[{ Cell[7389888, 179302, 122, 1, 70, "Input", "ExpressionUUID" -> \ "7960492e-d0dc-45fc-8759-2fb40dd5a334"], Cell[7390013, 179305, 456, 14, 70, "Output", "ExpressionUUID" -> \ "bdde63b2-ffff-4dc4-b17a-0af98c8512b0"] }, Open ]], Cell[CellGroupData[{ Cell[7390506, 179324, 109, 1, 70, "Input", "ExpressionUUID" -> \ "2a4c95ca-83c5-434d-8794-97051758d8be"], Cell[7390618, 179327, 102, 0, 70, "Output", "ExpressionUUID" -> \ "049df3f9-71e1-4f50-937a-6935d6d22b40"] }, Open ]], Cell[CellGroupData[{ Cell[7390757, 179332, 467, 14, 70, "Input", "ExpressionUUID" -> \ "e68f7710-d744-485a-87f4-5a1ab90639d0"], Cell[7391227, 179348, 102, 0, 70, "Output", "ExpressionUUID" -> \ "5cfbd051-23a3-4903-8fad-f7ceb19a3b66"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7391390, 179355, 256, 7, 70, "Subsection", "ExpressionUUID" -> \ "21c6491d-d5c4-4dd7-8f51-decfa2d4ea73"], Cell[7391649, 179364, 143, 3, 70, "Text", "ExpressionUUID" -> \ "c846b3c4-9158-438f-b2ab-badf3f0c74e0"], Cell[CellGroupData[{ Cell[7391817, 179371, 270, 7, 70, "Input", "ExpressionUUID" -> \ "7a5ccbda-c70e-4f40-8766-3ec80f6b28d7"], Cell[7392090, 179380, 1280, 45, 70, "Output", "ExpressionUUID" -> \ "695cee26-2286-44b3-a1b6-37ebfa609b74"] }, Open ]], Cell[CellGroupData[{ Cell[7393407, 179430, 387, 11, 70, "Input", "ExpressionUUID" -> \ "b0e4e28f-ec9c-460a-8e18-3ed0e87fb2cd"], Cell[7393797, 179443, 162, 4, 70, "Output", "ExpressionUUID" -> \ "a5e29829-4261-480b-99a8-4c8ff507281b"] }, Open ]], Cell[CellGroupData[{ Cell[7393996, 179452, 574, 18, 70, "Input", "ExpressionUUID" -> \ "7d5c7113-d92f-40a4-ab8d-14167196a528"], Cell[7394573, 179472, 182, 5, 70, "Output", "ExpressionUUID" -> \ "f3c1b67e-44e9-4953-ac72-94f693672598"] }, Open ]], Cell[7394770, 179480, 92, 0, 70, "Text", "ExpressionUUID" -> \ "ade41f41-5102-4685-875c-93c5d031d92b"], Cell[CellGroupData[{ Cell[7394887, 179484, 109, 1, 70, "Input", "ExpressionUUID" -> \ "8830f144-0a56-4138-91a1-e97bfd6d0943"], Cell[7394999, 179487, 260, 5, 70, "Output", "ExpressionUUID" -> \ "4179fd15-a12b-4257-9f96-041964171c80"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7395308, 179498, 244, 7, 70, "Subsection", "ExpressionUUID" -> \ "5a0c7b76-ed19-4f88-bec6-1e3841eea971"], Cell[CellGroupData[{ Cell[7395577, 179509, 84, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "689451cc-35bb-49ad-a8c1-7986bc54ae51"], Cell[CellGroupData[{ Cell[7395686, 179513, 322, 9, 70, "Input", "ExpressionUUID" -> \ "18da9dc0-76db-41bf-8c08-e0ec76202d52"], Cell[7396011, 179524, 218, 4, 70, "Output", "ExpressionUUID" -> \ "fa6b1ebc-a0aa-4b33-8798-f43b65558f1d"] }, Open ]], Cell[CellGroupData[{ Cell[7396266, 179533, 313, 9, 70, "Input", "ExpressionUUID" -> \ "68d1f412-ca82-499d-9557-00117d7c7b79"], Cell[7396582, 179544, 1934, 65, 70, "Output", "ExpressionUUID" -> \ "a7dac938-4182-44c9-845f-5535ac7236a6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7398565, 179615, 82, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "b2673701-41ed-4d45-8667-29f389c8599b"], Cell[CellGroupData[{ Cell[7398672, 179619, 313, 9, 70, "Input", "ExpressionUUID" -> \ "6e24be24-5f6d-4085-aa77-7716d338c4ef"], Cell[7398988, 179630, 1671, 58, 70, "Output", "ExpressionUUID" -> \ "58f4342f-f0e0-4e6c-9fbe-4d4c2625e308"] }, Open ]], Cell[CellGroupData[{ Cell[7400696, 179693, 163, 3, 70, "Input", "ExpressionUUID" -> \ "2d976c60-a90a-40a9-9999-75b92e43d941"], Cell[7400862, 179698, 1178, 39, 70, "Output", "ExpressionUUID" -> \ "e8efa862-1a66-4a3a-afd5-1ccfd091087c"] }, Open ]], Cell[CellGroupData[{ Cell[7402077, 179742, 204, 4, 70, "Input", "ExpressionUUID" -> \ "f49c8eff-0294-4f94-a775-4936723be217"], Cell[7402284, 179748, 1064, 36, 70, "Output", "ExpressionUUID" -> \ "6f5d4fa5-e954-49af-8146-36d916042620"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7403397, 179790, 83, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "815318bd-ef05-460b-aab6-9c3c8981d0ef"], Cell[CellGroupData[{ Cell[7403505, 179794, 190, 4, 70, "Input", "ExpressionUUID" -> \ "d3dfa282-6886-4177-8bbc-4c45c24f0c48"], Cell[7403698, 179800, 489, 9, 70, "Message", "ExpressionUUID" -> \ "4c0f6f34-5582-4f8b-9ff0-cdf427b3aa93"], Cell[7404190, 179811, 833, 14, 70, "Message", "ExpressionUUID" -> \ "dd38dbc6-83b9-495f-b676-2d49bbde39b3"], Cell[7405026, 179827, 833, 14, 70, "Message", "ExpressionUUID" -> \ "4531d696-7b66-4c74-ba56-f5b2c6b61de9"], Cell[7405862, 179843, 534, 10, 70, "Message", "ExpressionUUID" -> \ "c47c11fc-a437-4f8a-a8b3-0fd17f190c7d"], Cell[7406399, 179855, 95, 0, 70, "Output", "ExpressionUUID" -> \ "f295d5b2-283c-42ac-ba36-6a69a795bc64"] }, Open ]], Cell[CellGroupData[{ Cell[7406531, 179860, 284, 8, 70, "Input", "ExpressionUUID" -> \ "71e2e79a-d224-4a7d-8ae6-129a65d65896"], Cell[7406818, 179870, 1067, 33, 70, "Output", "ExpressionUUID" -> \ "69d4639a-4f34-44dd-a0b7-042e5081242e"] }, Open ]], Cell[CellGroupData[{ Cell[7407922, 179908, 120, 1, 70, "Input", "ExpressionUUID" -> \ "edb9385a-40f9-4247-b0be-3139c976aad4"], Cell[7408045, 179911, 801, 24, 70, "Output", "ExpressionUUID" -> \ "b3682443-b17f-4a9a-b14d-010592d07ede"] }, Open ]], Cell[CellGroupData[{ Cell[7408883, 179940, 122, 1, 70, "Input", "ExpressionUUID" -> \ "007eabc0-9a42-4931-92f6-04155c7d907a"], Cell[7409008, 179943, 801, 24, 70, "Output", "ExpressionUUID" -> \ "220fee2e-5ff0-4d45-b215-93afd1c272e8"] }, Open ]], Cell[CellGroupData[{ Cell[7409846, 179972, 109, 1, 70, "Input", "ExpressionUUID" -> \ "472fcef3-59d1-4a63-a80a-bbbc29cf21c0"], Cell[7409958, 179975, 118, 1, 70, "Output", "ExpressionUUID" -> \ "04d55c90-9376-4eec-9c50-5779d0fb01c5"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)