(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 157520, 3628] NotebookOptionsPosition[ 150051, 3496] NotebookOutlinePosition[ 150446, 3512] CellTagsIndexPosition[ 150403, 3509] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["Definite Logarithmic Integrals Expressed in term of the Log Gamma \ function with plots", FontSize->18, FontColor->RGBColor[1, 0.5, 0]], "\n\nReferences\n", ButtonBox["https://www.mdpi.com/580662", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.mdpi.com/580662"], None}, ButtonNote->"https://www.mdpi.com/580662"] }], "Text", CellChangeTimes->{{3.79581705035015*^9, 3.7958171511442966`*^9}, 3.79581737158976*^9, {3.7958181764444027`*^9, 3.79581818083962*^9}},ExpressionUUID->"21aebfb9-8022-412e-a031-\ e3af03a881b4"], Cell[BoxData[ RowBox[{ RowBox[{"p11", "[", RowBox[{"k_", ",", "a_", ",", "\[Alpha]_", ",", "n_", ",", "m_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "m"], SuperscriptBox[ RowBox[{"(", RowBox[{"Log", "[", RowBox[{"a", " ", "y"}], "]"}], ")"}], "k"]}], RowBox[{"1", "+", RowBox[{"\[Alpha]", " ", SuperscriptBox["y", "n"]}]}]], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", FractionBox[ RowBox[{"m", "+", "1"}], "n"], ")"}]}], "]"}], SuperscriptBox[ RowBox[{"(", FractionBox["\[ImaginaryI]", "n"], ")"}], RowBox[{"k", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{"k", "+", "1"}]], SuperscriptBox["\[Alpha]", RowBox[{"-", FractionBox[ RowBox[{"m", "+", "1"}], "n"]}]]}], SuperscriptBox["n", "2"]], RowBox[{"HurwitzLerchPhi", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", FractionBox[ RowBox[{"m", "+", "1"}], "n"], ")"}]}], "]"}], ",", RowBox[{"-", "k"}], ",", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"\[ImaginaryI]", " ", "n", " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"2", "\[Pi]"}]]}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7958151911775637`*^9, 3.79581548372221*^9}}, CellLabel-> "In[855]:=",ExpressionUUID->"44eed758-9018-414d-93f1-cfe97675bd8d"], Cell[BoxData[ RowBox[{ RowBox[{"p11closed", "[", RowBox[{"k_", ",", "a_", ",", "\[Alpha]_", ",", "n_", ",", "m_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "m"], SuperscriptBox[ RowBox[{"(", RowBox[{"Log", "[", RowBox[{"a", " ", "y"}], "]"}], ")"}], "k"]}], RowBox[{"1", "+", RowBox[{"\[Alpha]", " ", SuperscriptBox["y", "n"]}]}]], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", FractionBox[ RowBox[{"m", "+", "1"}], "n"], ")"}]}], "]"}], SuperscriptBox[ RowBox[{"(", FractionBox["\[ImaginaryI]", "n"], ")"}], RowBox[{"k", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{"k", "+", "1"}]], SuperscriptBox["\[Alpha]", RowBox[{"-", FractionBox[ RowBox[{"m", "+", "1"}], "n"]}]]}], SuperscriptBox["n", "2"]], RowBox[{"HurwitzLerchPhi", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", FractionBox[ RowBox[{"m", "+", "1"}], "n"], ")"}]}], "]"}], ",", RowBox[{"-", "k"}], ",", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"\[ImaginaryI]", " ", "n", " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"2", "\[Pi]"}]]}], "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.795817413171591*^9, 3.7958174245392723`*^9}}, CellLabel-> "In[876]:=",ExpressionUUID->"8ec94802-b047-46a4-b164-1f3a599f989b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p11closed", "[", RowBox[{"k", ",", "a", ",", "\[Alpha]", ",", "n", ",", "m"}], "]"}]], "Input", CellChangeTimes->{{3.795817436227799*^9, 3.7958174457833567`*^9}}, CellLabel-> "In[877]:=",ExpressionUUID->"9f6e8b58-fc5c-4769-b36d-254cd5362fd7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "m"], " ", SuperscriptBox[ RowBox[{"Log", "[", RowBox[{"a", " ", "y"}], "]"}], "k"]}], RowBox[{"1", "+", RowBox[{ SuperscriptBox["y", "n"], " ", "\[Alpha]"}]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", "\[Pi]"}], "n"]], " ", SuperscriptBox[ RowBox[{"(", FractionBox["\[ImaginaryI]", "n"], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "k"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], RowBox[{"1", "+", "k"}]], " ", SuperscriptBox["\[Alpha]", RowBox[{"-", FractionBox[ RowBox[{"1", "+", "m"}], "n"]}]], " ", RowBox[{"HurwitzLerchPhi", "[", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", "\[Pi]"}], "n"]], ",", RowBox[{"-", "k"}], ",", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"\[ImaginaryI]", " ", "n", " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"2", " ", "\[Pi]"}]]}], "]"}]}], SuperscriptBox["n", "2"]]}], "}"}]], "Output", CellChangeTimes->{3.795817673942975*^9}, CellLabel-> "Out[877]=",ExpressionUUID->"6c492ba9-fc1e-4e94-8dfb-081acfbb326e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p11", "[", RowBox[{"1", ",", "1", ",", "2", ",", "2", ",", RowBox[{"1", "/", "2"}]}], "]"}]], "Input", CellChangeTimes->{{3.795815498781733*^9, 3.795815522676166*^9}}, CellLabel-> "In[856]:=",ExpressionUUID->"1d0c62c0-65a7-4084-8006-0f5144ee4c00"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.6170476559014046`", ",", RowBox[{"1.6170476559014186`", "\[VeryThinSpace]", "+", RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.795815524367012*^9}, CellLabel-> "Out[856]=",ExpressionUUID->"dd5f3dec-f555-4dcc-a770-10957db92184"] }, Open ]], Cell[TextData[StyleBox["Convert the Lerch function to Hurwitz zeta", FontSize->18, FontColor->RGBColor[1, 0.5, 0]]], "Text", CellChangeTimes->{{3.795818204118883*^9, 3.795818258191132*^9}},ExpressionUUID->"04d02508-1d4d-480c-b4d3-\ dcda6a6c0f64"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "m"], SuperscriptBox[ RowBox[{"(", RowBox[{"Log", "[", RowBox[{"a", " ", "y"}], "]"}], ")"}], "k"]}], RowBox[{"1", "+", RowBox[{"\[Alpha]", " ", SuperscriptBox["y", "n"]}]}]], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", FractionBox[ RowBox[{"m", "+", "1"}], "n"], ")"}]}], "]"}], SuperscriptBox[ RowBox[{"(", FractionBox["\[ImaginaryI]", "n"], ")"}], RowBox[{"k", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{"k", "+", "1"}]], SuperscriptBox["\[Alpha]", RowBox[{"-", FractionBox[ RowBox[{"m", "+", "1"}], "n"]}]]}], SuperscriptBox["n", "2"]], RowBox[{"HurwitzLerchPhi", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", FractionBox[ RowBox[{"m", "+", "1"}], "n"], ")"}]}], "]"}], ",", RowBox[{"-", "k"}], ",", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"\[ImaginaryI]", " ", "n", " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"2", "\[Pi]"}]]}], "]"}]}]}], "}"}], "/.", RowBox[{"{", RowBox[{"n", "\[Rule]", RowBox[{"2", "+", RowBox[{"2", " ", "m"}]}]}], "}"}]}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.795815534566751*^9, 3.795815536627877*^9}, { 3.795815591032564*^9, 3.7958156203666058`*^9}}, CellLabel-> "In[860]:=",ExpressionUUID->"9065ac58-be82-4033-9a63-6eb24fad432a"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "m"], " ", SuperscriptBox[ RowBox[{"Log", "[", RowBox[{"a", " ", "y"}], "]"}], "k"]}], RowBox[{"1", "+", RowBox[{ SuperscriptBox["y", RowBox[{"2", "+", RowBox[{"2", " ", "m"}]}]], " ", "\[Alpha]"}]}]], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["\[ImaginaryI]", RowBox[{"1", "+", "m"}]], ")"}], "k"], " ", SuperscriptBox["\[Pi]", RowBox[{"1", "+", "k"}]], " ", RowBox[{"HurwitzLerchPhi", "[", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}]], ",", RowBox[{"-", "k"}], ",", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"2", " ", "\[Pi]"}]]}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", SqrtBox["\[Alpha]"]}]]}], "}"}]], "Input", CellChangeTimes->{{3.795815656615305*^9, 3.795815668885007*^9}}, CellLabel-> "In[861]:=",ExpressionUUID->"99ad15b9-1d6d-4369-8c7a-801aad290adb"], Cell[TextData[StyleBox["Convert the Hurwitz zeta to Log Gamma", FontSize->18, FontColor->RGBColor[1, 0.5, 0]]], "Text", CellChangeTimes->{{3.7958182517921753`*^9, 3.795818277369732*^9}},ExpressionUUID->"a38d1d91-bb6b-464f-a5b4-\ 0e9dbaf8fbf7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "m"], " ", SuperscriptBox[ RowBox[{"Log", "[", RowBox[{"a", " ", "y"}], "]"}], "k"]}], RowBox[{"1", "+", RowBox[{ SuperscriptBox["y", RowBox[{"2", "+", RowBox[{"2", " ", "m"}]}]], " ", "\[Alpha]"}]}]], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["\[ImaginaryI]", RowBox[{"1", "+", "m"}]], ")"}], "k"], " ", SuperscriptBox["\[Pi]", RowBox[{"1", "+", "k"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["2", "k"]}], " ", RowBox[{"HurwitzZeta", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"2", " ", "\[Pi]"}]]}], ")"}]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["2", "k"], " ", RowBox[{"HurwitzZeta", "[", RowBox[{ RowBox[{"-", "k"}], ",", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", SqrtBox["\[Alpha]"]}]]}], "}"}], ",", "k"}], "]"}], "/.", RowBox[{"{", RowBox[{"k", "\[Rule]", "0"}], "}"}]}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.795815693706626*^9, 3.795815721298915*^9}}, CellLabel-> "In[863]:=",ExpressionUUID->"06428d36-1d6a-48a6-b40c-401dd7894c62"], Cell[BoxData[ RowBox[{ RowBox[{"p12", "[", RowBox[{"a_", ",", "\[Alpha]_", ",", "m_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "m"], " ", RowBox[{"Log", "[", RowBox[{"Log", "[", RowBox[{"a", " ", "y"}], "]"}], "]"}]}], RowBox[{"1", "+", RowBox[{ SuperscriptBox["y", RowBox[{"2", "+", RowBox[{"2", " ", "m"}]}]], " ", "\[Alpha]"}]}]], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", RowBox[{"N", "[", FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], RowBox[{"1", "+", "m"}]], "]"}], "-", RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "\[Pi]"}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], "]"}]}], "+", " ", RowBox[{"Log", "[", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}]], ")"}], "2"], "]"}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", SqrtBox["\[Alpha]"]}]], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.795816179283889*^9, 3.795816214497426*^9}, { 3.795816405582301*^9, 3.7958164511112967`*^9}, {3.795816611880109*^9, 3.7958166120067167`*^9}, {3.7958192048576107`*^9, 3.795819205942409*^9}}, CellLabel-> "In[910]:=",ExpressionUUID->"5ce9956c-29e0-4c8a-ad46-651731356fcc"], Cell[BoxData[ RowBox[{ RowBox[{"p12closed", "[", RowBox[{"a_", ",", "\[Alpha]_", ",", "m_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "m"], " ", RowBox[{"Log", "[", RowBox[{"Log", "[", RowBox[{"a", " ", "y"}], "]"}], "]"}]}], RowBox[{"1", "+", RowBox[{ SuperscriptBox["y", RowBox[{"2", "+", RowBox[{"2", " ", "m"}]}]], " ", "\[Alpha]"}]}]], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], RowBox[{"1", "+", "m"}]], "]"}], "-", RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "\[Pi]"}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], "]"}]}], "+", " ", RowBox[{"Log", "[", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}]], ")"}], "2"], "]"}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", SqrtBox["\[Alpha]"]}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.795816558429853*^9, 3.7958165826812973`*^9}, { 3.795819211263678*^9, 3.7958192122060213`*^9}}, CellLabel-> "In[911]:=",ExpressionUUID->"7a79c76d-4d2e-49cb-bd63-c2a5590aa8d3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p12closed", "[", RowBox[{"a", ",", "\[Alpha]", ",", "m"}], "]"}]], "Input", CellChangeTimes->{{3.795817320890005*^9, 3.795817329128271*^9}, { 3.795819215526326*^9, 3.795819215987824*^9}}, CellLabel-> "In[912]:=",ExpressionUUID->"6f37b957-a68d-4204-a59c-6036b5e8a3ca"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "m"], " ", RowBox[{"Log", "[", RowBox[{"Log", "[", RowBox[{"a", " ", "y"}], "]"}], "]"}]}], RowBox[{"1", "+", RowBox[{ SuperscriptBox["y", RowBox[{"2", "+", RowBox[{"2", " ", "m"}]}]], " ", "\[Alpha]"}]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ",", FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], RowBox[{"1", "+", "m"}]], "]"}], "+", RowBox[{"Log", "[", FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}], "2"], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"\[Pi]", "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}], "2"]], "]"}], "-", RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "\[Pi]"}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", RowBox[{"Log", "[", "a", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "\[Alpha]", "]"}]}]}], "]"}]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "m"}], ")"}], " ", SqrtBox["\[Alpha]"]}]]}], "}"}]], "Output", CellChangeTimes->{3.795817403229967*^9, 3.7958192731843567`*^9}, CellLabel-> "Out[912]=",ExpressionUUID->"58b53be4-f605-4ba1-aa72-034aa8842d8a"] }, Open ]], Cell[TextData[StyleBox["Evaluate integrals in terms of Log Gamma with plots", FontSize->18, FontColor->RGBColor[1, 0.5, 0]]], "Text", CellChangeTimes->{{3.795818301310795*^9, 3.795818344836388*^9}},ExpressionUUID->"2a6cb1b3-b296-4b4b-85e3-\ 84f004db3295"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p12", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.795816472224319*^9, 3.795816485164689*^9}, { 3.7958192845234957`*^9, 3.7958192846819763`*^9}}, CellLabel-> "In[913]:=",ExpressionUUID->"ae72b490-1527-44ef-8bff-ee377aa5b7c5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.8048393168314197`"}], "+", RowBox[{"1.233700550136182`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.8048393288768887`"}], "+", RowBox[{"1.2337005501361697`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.7958164865704412`*^9, 3.795816623463985*^9, 3.795819285571419*^9}, CellLabel-> "Out[913]=",ExpressionUUID->"d27f288e-5a86-4bc8-96c6-4dbe277d9cb1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p12closed", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], "//", "FullSimplify"}]], "Input",\ CellChangeTimes->{{3.7958165939617*^9, 3.795816598408805*^9}, { 3.795816637172628*^9, 3.7958166405558157`*^9}, {3.7958192889387493`*^9, 3.795819289826618*^9}}, CellLabel-> "In[914]:=",ExpressionUUID->"3852c914-d3b2-40df-a9b9-b4c14dcd9dbd"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"y", " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["y", "4"]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ",", RowBox[{ FractionBox["1", "8"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox["1", "4"]}], "]"}], "2"]}], RowBox[{"9", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox["3", "4"]}], "]"}], "2"]}]], "]"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.795816612876729*^9, 3.795816654342167*^9, 3.795819304642384*^9}, CellLabel-> "Out[914]=",ExpressionUUID->"a250cf8c-e9c3-4508-bc45-9c25f8c0d29f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{"y", " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["y", "4"]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7957621068102283`*^9, 3.795762126125455*^9}, { 3.795762218403481*^9, 3.7957622379071903`*^9}, {3.795817846559164*^9, 3.795817879499946*^9}}, CellLabel-> "In[882]:=",ExpressionUUID->"aab67044-3b70-4a75-a26b-de05f3da5df3"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlnk01V8Xxo3lVypEISUZSgkppHKfUBpoIJIMDYYGRUUiSQoNpsqQRCEJ UTLdb5Lvxb3XTKaUOVTiDsgY8d73r7M+a511zt7P3uc8W+G0m7mTAB8f32J+ Pr7/r/ud+utpv50oFX/aNq5d5EcRMpK91CWzC1GUOx2X5Cyw+UVMXI6MBXSn w5RWyjvApKYlO17GEXsXJ0tunXcFVo4Tnx7LeGC/Cm1ioPIW6Eay1NI4TwzZ Ciy6/PI2NBX1s0blvbG38K1BiXsARHpuJx1VuQmDpNl7lNm76NC4axQqE4Bt F0oil5aFIfKFNE3ZJhAKGQznt9oPsX9J+o6iuCC0xvh9NRF+hHxOtTZX/j4o KjL91vGPEZYpsc5MJQzRijPLFHKikCB1KOiBTCSSDk8EO9x5Bp+aJ/SjBZHw +K5xulI7DkcDuwUUbaLAptiYvfgZB9Gxy34f46KRkmjflGP0HF5NkV4s+afY 9oXZpuqZALOI1vMHVZ5jReGkhtNsEvxFctbel0nG81jxpLXxr7F+z6N72ZeS Qbhpdlv2v0ZDoNvvtrJk+DUbdLK0UqEkqPZG3fMVKjzq1tswU8H8l6ze1JCC xjtjC079TIPon2ht+ZA0hA/JQEs0A3mbrkbv7U1D3CaXqNCDGbC/dGTi8rZ0 GK8VjXN6mIF37CUf6P3piL/qlxYukQnz/ns7zu/OQEWxnchPsbeI6bhulDf7 Fkr6pgW24+9gIGed3Gn5DgsOlU96Smdh4LiusEjmOywRuP0iQDsLq1jeDpkb s/CLI+Y25JoFt3M6ynztWeiKFLZZ2pUFCcd3qa+2ZqNpt/uRqtz3OGad+G5o OBc9wgXX+nRzwG2zWJAkmwfnW3rfv5vmIMhexOmIUR7c7Jibc07lIMfBTTY/ Mg+nfvdoNzzIwWJX/UAf3Xy8PC72V7gtB4zb347P86WCs3WBmJN7LmyFQ/Oo r6jYz/JtyQ7MxcjdnWLnaqkQtKys+/IkF6tDXzOq5AmULHrYmPgxFzeeXNV8 VEKgNX40Yg9/HrQyxOfJiRQg2qaJjxWQhwp1xskazQIwJp1F3/DiOPne6+NN 6wIUC+rLGSbnITS/69L39AJcmPcka7IkD/20zLaUAx+hKF1+6cFsHp4373u/ KaIQv9p2u1q65kP72L+FvR8L0VeVaJjgk4/q1iznyL5CNOvURNPv5WOqa7nc hPYnWOV7Lo1NyofFwI+gwq+fINLESbzelI+Fc/62e1aR6Cvd46i4iYqYc1b2 asYkKnULVb5tp0KpSe2kuCuJpKwaCRdjKihpLQ5tn0ikbqCmKdpQ8SEtOo+q ToMy5UnU79tU8J3w10k3pMHm4J5zt0OoMJa8QI07SsOvK7E/JqKoaLxp8MH/ Jg0aUQaS3qlUsI+wCk1qaTh5JaOvuYqKLf+16FN6aBB2qnpq2UTF9aLiIs1x GrqM7F2y26mYr/qEJrWqGLIq2bGCbCoUZg3oXReLIdqpmSgsSsAy9UmV+6IS BKgM3I8wIhBnd9vUWaEEJamPFAf3EeiRuFhzTLsE2u7dL1cfJuDma1inb1eC k7fWBynbErhvzm6Yn1kCGRnTBTFXCHye//XIX1oJiqLGJLqvEVj2qaSJ1VSC I76uvD4h8HJtzJf6mRIM7HpUxw4i8GnGsPWZaSkuUc5dUn1KQCh7o03YyVJE LtgS5hhPYP8Z6fZbHjyuPrr9ZiKBlnp2h1NcKSZrKs4dSCOw6u5X+2NZpbim 1f9PIJOA447Srv30UlBcp42fZBEYTon5rsEqxdlhDzlbKoGttndOr+Gjw5ho LAgpIHBT3LVXUpKO3X3SWnGfCCy8YfRjajsdsgvVaq1KCZhvUndmHaJjslZZ SIhJIOan9K9OBzo0xO21w8sJKJtx+kuD6bg2XZ9uWENA1m/PtjOJdLze/d40 po6AWGZC8AIqHZuSX2wvqycg3DbVnllNh1Ilw7+ukcBfkSPqZj10jOupqb5v JjCkk+E3OsG7L+Hj9gstBH44Ctc/WcSA6yb9Ur5vvHfy2H7NdkUGbkwfr3Bt 5elNo7p3bmUga1eCVX4bAQZHjOF/kAGvTu9rLe0ECuTOL1N2ZEDPR0eroYNA 1v7SM+XeDDgLzH+U0knglZfcB5dwBox7Z+MsugjEplxdsOQVA3nOkifaefyw qdYmu4CB3LnV3frdBAIF1mVafmZgKPb7Om8eX9f0n538wYAme9wgjMdu9q2H 4qZ5+2k/Nvvy2DFkcyLEmYg0WD7fmMfHC0JGelSYkNr3rbSfd/6h/h9GQTuY EEy1v+LE413LEKVqzsSSS6RsIS++bbtiflafYWLnjik6ixe/xpVh3Uu+TFz2 4npN8PJTSth/f2kEEy2vXSjtvPxlal+25qcykZO+cuUznj6LZ2Y2HC9iYo1g nNwWnn5C64/6/mtkYlDacddrnr5TVu9qE34zkXqj9dkoT39OoMjqXXNM/FE1 WS/XRKAv59TlX5JlKC3/Pb6ygUDtEklJ9Z1lCLaZfyaLV+9S/YtO9ZZloFE8 pQ2qCBAuzHwPlzJscfujmMHrj5dlXtYfo8vg/nXSQZzXTzFj9en2GWUw3Uq8 WkgjEKa4YYa/pAzt6aM23YUEvPw6nu9ll6H7rR1k8glczNQZGhQox00pMW/f bAKn28INwqXLsfiNyc7CtwQO6Br2NRuVQ/32zfCKFAJruCmqDrHlmHRRalaM IrB8JZ/PvKxyvFgnstruIQFRE+vqNEY5EhLjVS4HE5hIWeg2NFSOoJVXb6j6 E6i2v5Tru6cC2fsYHW3nef90SIWwgl0F0u5lPR10JEAtWGNFv1KBXdvCtn2x J5C0rHlqwfMKVM+eouwwJ3CtVg8xoxXIf2BWb6LL018970eFSCWsPMRjMzUJ JIdqhkzLVaIudMEmriqBetO13+x3V+Lt48gWcTkCG6ok3ZWjKxHxgOHUPEtF Vxk3JVu3Cqp3RiyOFVHhudblQJ9JFdIHq+4TeVSI3v35R+pkFbr75MnJDCr0 jDt2et+rwlT8Vh2ZZ1RE0Ctb8a0K8Wc6E1qvUrGn+NXimuvVoKfceXZKmYrO 1Qp5s2HVCPC/J1oqS4XHrTgbzZfVON978pWQGBWJiEiNqKrGit6FVuv+5mP6 0y3D43I1MGgr+zNcnY93BTaevz7V4FBYSnH4hXwszxXv5Oevg+2ZTDd+nl/Z hkxb9C2rQ+XmDONNPD9LcvxRxVSrQ3NY8Oh2jzyoSX34EHysDkt737Z+P5IH Q8+TUVJZdShQ6B13E8+DTpxVSqTGZ1x2tguM5vnpKfsUu9TOz7j39f58SfMc BOxf8fTp789QuH3gV4J+DlJ0HjY9GP0MiRcphSKqOWAtvm5ycUE9LJNl95+b y4YneUBPS6cec13VMxfTsxGyekyyMLQeVqrbpYKm3iO/x6i6bkcDPkZHpo/4 ZOHLXv/h0D0NqDB7tt3CIQvjb4uWmZo3QKpZRf7x/izo+uidKj/TgPK/DzqS ePMJsVRjnPa4AUpDeuc1nd/hwy7Z1dn9Deh2S3ZOLslEYcqQe2RkI34M9KgJ GaejXVT9qfmLRszvaLJoW5iOmSsuRWLpjRA6tkHKpT4N+vgpEko2Yt9Yim2u TRqKWtriAwcaIe05Msa+kApSpKzMc2cTDgpdK5vxT0HJ+fgV1qwmpLUF3w/w TELObxcX+/EmWG0Ukh3RTULy2W0fHfiaoZ/42EthKhGBzi3HXSWb4Smg85xx PRF7T4vH3tnRjGe9XX6KPgmosw6UfhvSjIq/YSHnu+PQvveilODGL0jYvcbD zioSYyr6SzIvtkBtW9PuoFlbUHoMyx54tUDihvuxrWfMERS/1+/snRbkWk/W SK8AlklacBWftuAxx+ul5AYTUoffpS6W3oKDzxuDWXYXSK+2mPB7K75iZKCD r2f5bXImfHSJY8VXDMyk6wx6R5ICU2/EVii34qBMdn9yYAqpM3cy/8jbdpi0 xjusoxBkdcCWWub6LqyOnqItuVhKyj8cnErjdOO0ptwfqxPV5OBEV2ezZg88 Fs0JHa1vIJMHPlYuDuuFyLCq9IZDX8nFK19z+/r6UKpXMPNdpZMMOZfnnKD0 EyFJjAntue/k+M43fWf9fmGIb59wjcMP0kOLnrustB+ilP8aNWr7ya639OB6 hQGI3RWqO/qdRX5mC7G01g7g24flNLsRFklT220aqTaAoPqn0q6CbDIhnSFq pTsAkfVl5m+U2eTpFGZou+kAtDwqKbHn2eTP+PLwX9cGMG610ttunE2yQ6oj /tUMQHvNnk/Ky7jk9PmmZ6rXB2FcbhKfWTREWujYPVL3G8S3E2FNcuVDZAb/ z6DNAYN4NXzndUT9EGkfM3FZP2wQtBNSl2P6hshihuxes6RBWDz7+oVv4TB5 d/WpUa/KQaindi86aT1MLv3CNi2XZUGgIE5b8N8weSHR07BGnoX2/5TFI+aP kPQLc7oNSiw4DdbkbpQYIT0FxRXb1VlQ2Wv65c7aEfKb5pYpriELN5W11ajm I+SL4OuvlruwYGebZmb9ZoTcYDB/1vkjC14sd9HXzn/IrPQ3a7/SWKg8ZyHT 4/6H3CJ52GwfkwVD+oOlmv5/yB2/YpI31LMwdaKWKxz3hzwYut5k6CcLK+XW +SQ2/CGvfDsQ4y3Bhmb3zt5Oo1Fy3HCkeGA5G/GKia0XzUdJn4zoQZuVbCTN 6QlInRolA/y6KJR1bN6c63gt8+YoGa18+YcAhY3NlOIIiY+j5IfLkVoh59hQ eXdjTkJvjKS0bbX958rGFtdPFdb7xsiSXR2Brh5sNNwTNKNZj5GVy1W+HfZj I1Vi82/O9TGy/RPVTyqKDYX/rE70Fo2RfAvaqp/T2KicH9ZJOzBO7klSOPN+ OQcLB7R/a4ROkFtiFqsw5ThYFNHm6ZM4Qa4Om+5rVeDgzKlI85m8CfKvd/Np ITUO4tz0q5K6JshMs/v2Vjs5sAjI5KZoT5JL+Yct/53l4LDMjFMze5Lkm+iQ lHDloHeFqK/8vCmSxapsVHHnwL/81l/qqimS+TXZ7LAvB+1ONanth6dI76xj B14+4sC07wpF+8MU2XWCtmtfAQduk+rvb8b9JastMwXtSQ7umEy29Rb8JQmT 2JIrdA4wKKjH/PaXfKzrsTOulsPz0e5bS2Wmyd1L1u3g9nDgqxgWeuT5NKkl LDUt2M+Bjk+OpVLxNLlqmr9Ams3BvyGv0Ni+aXLyZ5uu4QQHU9XF0w83zpBv isI3Ry3kwid2KNmtfIaMyb0xkibGxWER+pvNwzNkQPq590VSXGiFZtPaZP+R 9tFGGv3yXJh/KH3Of/kfKe46sX77Fi6OKwU5DKvOkrMOfb8P6XGhvTDCVt5m lhywrk91pHCxIeLso9jQWZK++41K2F4uukPOo2R8lry28sSa77Zc/PI1rNZp nyNPH9Y82n6Ki1LbX6FXRfloB+/wP2hx5iLwmMrm2g18NJXfL4drLnGxbOhh H+0iH01C7qpyxVUuxpPZD24/5KP9O2hsTb/ORZnbadfHuXy0ptx+WkEAF1HB BXzz+flprccOZjwN5OL60hUnFET4af8DaRup7w== "]], LineBox[CompressedData[" 1:eJwVj3tUjAkfxyfCELNMJRTdldKyIRvVb7cLuZQuEtFla6VFkvDK6uIyvWnb FG2ULqhmJCmpFKPfoJYSUUoRjdSky+h5npmmZmrmeb1/fM/3fM73nM85X8Pg CK+9UxgMxn++5/99oPbDK821BJzU1A00ZKoJYg3m2Q3aEjDc2zQv8w1DIK2R t+2zIyB9jfqFewUMwX7vnog+BwJyjGRaF6MZAp+Ee/lCJwIs75gnaJozBMuH fTTeuRGgRdZ2BFrQWL19KyZ5fPdbZv48KVSh0yPHKAdvAqqtxcFkpgr9UlZ8 KNxJQFm761ZPtgrPr5xZfDSEgG3H7AM4C5WolUkHmIcScKPGYCCsexKvqcnY XWEE1JD3o55yJ7G6peek0yEC9D/UBF6ynUTRUf5mdjQBLHFC46fwCTzysVxV /ycBcx+jfan9BCpdisqjYwlosYxeF8+aQC2djEWfzxLAv+yXJy9XoFNNxGBp CgHab80YLtMVeE1plORWQIDaCntjXvM4Lg9d6KDGI6BPb71hXvE43n/1A1VR RIAN3xhME8fxVd7kLr1SAnqJX0MbHcdR+Wv7sqEaAsIHbtHM2jH0SzjfkNj8 fb/yx5XgBhmKvsXF2LUQUCve6ZZ0W4aRvsd/It4ScOsM89TsVBkmmodk+r4n oNBy/iGdnTKsarT7Y2kfAScyGk1Yw6Oo+QPBrFMQcEB5on3IcBRbHiX9d5OS gL9K9+lGaozixYOm05tpAlxv6ppZjUqR3eg39b06CZXHVQdcGr4zp145wiJB /Vy4/YcoKc6dyKJ0jUm4skXl2P5GgrP7XbqitpDQYr/uqaSYwqZ/hH5yNxKy H59IEGRRmOz8Z2esBwk2B5V7Ss5TqHGjrP28Dwm0U+uhvn0UzvLXfZMXSEIG dHc/MaWQ2UrUv4giYbYfw7eDS6I6Xi01ziYhOSisTPWQwPd2zq7duSRcr+FY DNwmsPTBsDDrOgnO3MDE4RwC/ars2WweCavvmFXaxRN4t6T7KKOcBPs0IkXh QmBAtvG6j89I0NiRa+tfPILV0cV1GRISptcqXNOY3zBlzNvfS0aCwqB/MHdE jCHHJkfnyElg+px0bG4XIyvSzYyjImEsbHFJRqEY94aNnI+aScF4s+Z4lbMY 2b6rtnnoUxC0nTkwmjiMB1Y/7Jy5hYI1Tyaqws2GUPC67Xa1GwUcm7j+XPYQ aocTcfs8KDBrnyv+qhxELDRdWu9DAePm4oJ/3w6ipk7qkfggCh6VZBnmnx3E h/LfNcaOUfCbrfbJyr4B1ECWfe81CsR8Q58ZD75i8abga7UyCsxnFlArropw 9XJDB5BTQGmr5QUmi7CWJfyAExRoM+d2ZceI8HWrv85jhgR8Sy9WQZAIpf67 Up7OksACX/lDk6UidDjicer5Egno6k/o7K7ow9dZDjtbNkhAY9WCCEVnL44O LZorypCAVy6zLHHDF0zP6X+WnSkBg+L0tEu2X3DVtoo472wJsCzkz4qWf8HI crcRwXUJJOh8lI2xv6D4RPyrq7cl4N1J8RcKe7BvmijZ84kEGoLWuIWe6sE2 /bszH4klQFU3hdbxP2Ol98ap6c5SMH2510m8S4iJW6o5ehuloD7g4r7IQ4h7 nJYxCzdJIWpHTI77BiFOWaUxp8pdCj/GHh9sshaiO7t5fsdOKahR7w/ozxbi 19c7LPTCpSC4bLTeMr4bF7mHehb8I4US+MvU0u8Txrly8ipEUsgYmrpybFUX Gn7c3JHPGYUlqbwFP8V04Lq159IXWsvAwUF6aIZ2G+5Z0ixXa5WBfurL7NW/ teBo4989h0+PQT5r06sGQTNeUQ846mUyDnAw1KS/9gVqfqq8MaVuHKx2xE6r 8H2O02JOb7eNlIPdXqMC66X1yCgKKO1hK+DNrYoqjbQneCSr9G/2EwXoOx8+ JjMS4CPLROa8QxOwebFJTqoxH+dtPrL8DGsSbgS8+MWsvhq7rF63RvMnYb9n bbbFpUosywWT3gAlqGfYnMyRlaN/qc28xSol1DecpU9XlGE85/rprlsqIOeL HuotLMGSr4uvsrbSsL4pw8YqpQgTczhBn9xpmPK5Jcwzrgh/9xKb3vGkISc1 lxdzuAj1+PwyN18a1rIUa795FWHShd3/JgfTYLNjisGKBUUYZpNJzoqmocvY V25ZcBONzmm5zuDSIJa2viQf81D186k5727SwGDZXmdV8LBT/KWFW0yD49Ok EWsuD1N97/lvuEtDrNqZobQkHtIWXlEcPg0hzx36b3rzsOvNhdyprTQ0ZM2w XNvPxeqEsZDWNhrqvHN5DZ1cTF8fuCy/g4ahyKt+IU1c3FL4Y4XjJxpcFNO9 b9/l4oMTLxtOD9BQaD28IP0UFzOs1lzwHKbhzpLh1sAILkb2ZG83HKGh10Kr wDqYi+ZbD3YLpN//DUdEiTdyUV3tbUHqGA2W76L2t63jorBy/f4gBQ0bN/8S WmfFRf7+/BUrlTTUDzwNfmDAxcv6GqM0TcNnycju+5pc/B+s0RJH "]]}, Annotation[#, "Charting`Private`Tag$6744901#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Re(\\!\\(\\*FractionBox[\\(y\\\\ Log[Log[y]]\\), \\(1 + \ \\*SuperscriptBox[\\(y\\), \\(4\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {-2.128969901098057, 0.0971764479681283}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.795762132155158*^9, {3.7957622308883867`*^9, 3.7957622402729053`*^9}, { 3.795817851329829*^9, 3.795817883176984*^9}}, CellLabel-> "Out[882]=",ExpressionUUID->"781f3d03-5c4b-400b-a4fd-5cd35fa7c908"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Im", "[", FractionBox[ RowBox[{"y", " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["y", "4"]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7958178963792143`*^9, 3.79581790493539*^9}}, CellLabel-> "In[883]:=",ExpressionUUID->"810519c1-ca78-4ea2-9b55-8f3f0fb75c53"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF1nk4lHvYB3BbixYVSrThaJPiZEmRr6JFocUShWQ7KCVpk5KSg8oUziF7 tkqLZElZsqVSogh1JM2MmWcsM5RtZp7yPu91va/n+WeuzzXX9Ty/+3f/7vv+ qbkd2+spJSEhoSopIfG/vzs8iQ+VPE8T6RfT3rP0Q01kzFT8vymbw4hdYbQ4 9iB00xKSC5RtYe+m7fE55hh2NrQ9SVH2QKGm+1hxTAj2eYyWxygHIjVLvzo7 hoGv2n+bXVcOQ8Xmu+opMWlIn7srPEo5DvM+nL6aEJOH0KkFyyOVszCaseXN zZgXcHC8nTcwWIg6OWHpnBNNmD4e6rRt8Qv8CrSssTvWjqV7+ETN1VrElhwQ m6t24fT79UgYeoPFS7wV2h3ZUCqc0ykp2YjQ6gv1NuYEiplm7xqNP+JZaRC/ 6GQfqn1TFjj2tUBUdGPhfgxgeNnGWQ/92jBzyc1fpxR+QEp4f/aCpV/g/ULV aI/oJwzGXYttHnUgPfHL0bl3hvEuTO99neY32DQ9iWnVGsWSG73Ce/wu5DXf Suy7N4aKQyH3nvzswqktFy4vzhuDi66CY+lYF6LzGlOsCseQ3Lqh5J3UdxTf 3uWaWTGG+YuiTgnmfUfUcokBreYxyOeu+KmH71guLdNaLB7DpFrPvheM77ih KVGRuEOI3tFvnZ90mAhUSL9g9U2I4r8Y1TsMmFhefl+8mC3ExTaTnBdGTDi8 Pv68jxBi3tMUv3tbmWBsnDkS/EOIzacOkMFOTHwZGtb1nyRC4lCrskYEE0Zl y83SNUXYPthgG/CNibGWD3UqASIoHDpvyGUzoTdbZunxUyJ0NmktdOphQs1v KLomSITAx1dZW4aZMD1ZFeJ0WYS0YxYBytNZeKa5+55LnAgj/bWMSgMWCn4c r80oEiGrp7ReLpqF4sWyVUuGRTgav+sP31gW8pafrGOOibDOnHXuZQILKm+M Gm+TItSnTFsdnMlC94ymbgUZMQZ3OzJ4JSwom2yVeS0vhsnTEZtaFgtRpYyR o9pifL7859ez69moWyaVmucpRobOS/1PJmxYjYpqB7zFOPLVIVrHnI2/ng3V rz4ihsS6i+BasyHrJDiWFCDGsp73t2092HgzL1lqS4gYgbuPeGkz2IjaPPt0 U7wYcovuCNhsNvwKKk9VvxTD1P7yVxaPDfcFSuXWr8UIYBx8y+Sz8eWDoW1b vRitkvPvdI2xQT6KDfjaKEYqJ8KlY0Y3iCQZ1/LPYqx57NvQrNeNyLr34W/7 xLAyW3O/Oqwb4nzy4aLZJC4ET7tVFdmN8a21irryJB4XccIro7vhdzWm3FyR hOKKNLeKhG7Ud/OaneaT6JgxW+X5g248iwiZ5qpK4kjrYER+SzeCqy85P9Em cc2nyCtdgwNrN++fYTtJ9Jg+jJiuyYHbvJtd5lYkts3Pzj2lzcHdmrMuErtI SL2K41tu4EDmkeIM370kzmoEnhLu4sDZ5/2qqY4kvL6tDd97joOx6h3Hj3mS qC3WvFt+kYN4KQs3wouEerR6/YpwDiwf+7GcvEl8NZaXG7/BwfAdj38ND5Ow TRz8534OB/2mxlXP/UlssnucLfORgyPjplt6gkikat19dayNA7Ncgy0Lg0mQ 0um8Lx0cLFY532ZxnkTJE8bqfC4Hm4u4BfEhJNbMPlbk/IuDgusmNr8vU/Fy vdpeS3HhXpLfN+MKFW+Fi1B3Khe39sSpKIWTyPaz3jhNgYuIm716iyNILHy7 +mXxCi7sG+39Rq+SCMpYylVbw8WdnJwC5jUSbWcXyV7X5SJ2XO/mm+skYlbM tHI34eLk8F2FKAYJ2fC+llm2XCSlvdnUGkPtjzN7JMiRC7uxT1apsdT+6HXM 57hw8TQkbehQHImLrLdOZT5cRDo4K3b8Q2LE9D7bO4QL5d01uUkJJMqyepNO h3HhrJ5YqX+LxKWpWjbhkVxclCud9I6yXNODqsxY6v+a4iX9iSRadPvPPEng Iu9E2PDpJBKJ8at1qlK4YE2/RP6mvOzgo9TOO1xUmcmmS6aQ6Kvm2/U/4OLy 0n83nqf8ZJn2TDKfiyUBjnLDlE34eeeUy7j4qp++83MqCfvz+Q62TVwUn/A1 D0yn9uv74Cz3T1wEn2yP+kCZab721fEvXJR49k5ddZvE0RkF+gw2F8sfOz/6 SFnP/2dfCo+Lw98GWlUzSIiadbMe8Lmoyb6x/jDl8KRC+foxLipyT+QNUbYc H3rT/ouLgUpRjW4mCXl3/VCuFIGKBfPmHqPcXnfScGQKAZfbRzJzKKdqFgtk ZhLYonfn2BfKHtEjOQryBDye+AdNyyKh+cPARV2JgOHQyVoDygN2p+f+uZCA 5DtP64OUi549fQc1Am9kBueHUQ5aNHbZehmBtEP1GtmUTUMNjZxXEUhMzgmo pjy5+8yPwzoEfnsaS3dQfrf92b0gfQLb3M3bBinHPBC6Rm4gYLbmrEA6m4TD 7A3zE0BAyTbeUp7y4sCgxhxqTu23dRYspMxuex5eZEFAPv1q+x+Uc43EG2ut CVQlsKcup+yfZjT80YaKh6EVuoyygXTwg+8OBM7XrNysTpn0KnMfcCYg65Zl qUK5up5UGXcjEBLmdVuOcsSajR9nehNo0DbeNE6tzzrmfORCPwJbbX5q9VFW HCk3XRVAIOvVAc9PlL84/h5df5oAy2pb73PK6eUmeduDCeyIjnyRTNlLLcRr XygVn9IYM4iy1pUXi7zCCVg5+drbUf5BjLcEXiXQWfhMRYtyiaXptcs3COw9 UKUzTuXHXLFKlJ5I4DXzmF0i5WlnJJ/kpRHIT271dKPc9N8mn4osAkM2J98u o+yUWd323yPq/cP8W1nU+VCfIs3oKSDwz+0EGRfKhK/ZVmEJAZMGpdcKlAPX 1hbOqyFgHLzdOZA6f156quk3XxPQ0XUnlCg7GARfnfGeQKje8Oqn1Pk12qDn JvWZwMwFjv1EGhWP8Q2r850EVmxL9TlHebFJn+EYi8r/tk3ZspSlNmfN4vMJ TKrIOKhM1ceQmYTYe4hAxiGiK5Gqn+4tThyWkDpffyYum0/5tYVi+WcZHupq DstMTibB2BPm+1KFh/Krx9fkUfV80abLzlSVh7hFT0blKAfYGW8qXcqDBjnA 8KX6gb3jkFK+Dg9pIV1r58ZT9XfI42XyVh4kmTt9DKl+kutvrhoYwENJqF7r U6o/JQekTxec5uGTyUrDT1T/uh5Ijvic54H/dspFPtXf/M8UNhyM4MH/wfVX ilEk1l3UOLczlYdgo0hXHao/1jJkWtXreWgoZStlU/22+KZrVUojDwmTD8WE Uv34bmzZg/mfqHgmDU3ff47E1fjAy3JdPDAKhqTGz5DYm8bWEQ3z8PrxzzXK gSS+Paq9+kGtB89WmIgYPlR++2X61i7vgWVL3iNdaj5Uam2xjNPqgdfd07eb qfmRnvtyxr51PdgwqXL7VA8Sbjl11zsse+DtF9tg7kKCk/KawT3dg1l82T9n UPOp/9q72F8NPZAtvFXRZUCi8+2MIZfmHrRHP0+dpU/i/TQr28r2Hui+URvZ oEviUUSD4mVWDxSdLOX/puajf9j7f6YKe3Aw6g/94eVUPs81xSto9OJEptpH TWq+in1bklYG9YIvFiyQHRHD1sD55pqQXpj5Xtk5+FOMB5KccN2wXsiQDqmt g2K4JIwe3xjdC7f7hwoT+sWoeqmyfU9GLyzuljaJ2GL8rXpo6Ew99b6NPmaG zWIotPZbvlbpgwKpI5n1UIxVm6b89irtQ+nmV/np+8V4nHt/eXtlH2TFwZWZ +8TQU9y9x6KuD55nK4YzbcUw5iZkrfrQhzlV2l+TrMWwvq65c4DTB9PYkS6f zdT95LNVwln5ftj7Kb26uFKMZ8fj1l7z6YeDantwLnUf25ah9le+Eh8Kcpdm BoSLoJcgt6xuIR/DPVGjctT9TjVazP6ixsfqHf68eyEiiM5+cpPR4qPWldH3 +YwID/dEuuwz5cPPa2+O+mHq/ig5aPfLmw/pEINbDrtE+Haw0tziOR+5+x+M u88T4Z3dQ2mXF3yofj+f+VJehJKdidUBtXw4aHy/tnSWCDHrAk2T3/MRqznZ sGuKCFtmrTAWMKnvjR9YukkoxP0Khu4/0wXQDPwwpeA/IU4vOqj+3UmA+t15 6zzShHDbrWPfcUiA1rmzT2UnCWF9WTKqzUuA0dELW7rjhVjGyxxs8BegJi4u 1fWGEC2FROXzMAGUWzm+W0OF0LEMOBj3QIBuf8nhRjchFoaYxTLyBaj8Jpon dhFiyhPFV1HFAnQoTuFoHBCiU+npmtBKAQwtLGICbYS4xhL/8msRYKbnkI2M uRBn5jX86fNZgKoPk2ctNRXC3SLV06NTgNlHpK6YGwuxIc+0YT8hQIZE/N0Q PWp9zDmS9v0CyGWkOSbpCDFnLktvzw8BTpX7vyvSEoLcVuhtOSrA9a+VUo0r hCCCriRvIwUomrL1N0dDiB77Vd63JQYg8X+P64CC1BJp2q2RZFLyJNo7/+jW V5lKu7KsoTF+Gm0D+2KfuTNpq0f+nTJbnnaCuv+6aEXacmUOH6Yr0RbyV06a spB2k+27I7+W0t7KL5x8bgXtsr9T0sc0ad95frTlpzbtC6pzjHvW09bqs5ve ZkW7xNbyRdRu2mblm0+Y2NDeH639X7YD7Ugd2fuB7rQ5gWU75M/STv+lHmWV RVth1sDUWhFtmRdJeX8kD074sF7pZ9mdPyZ838ItvWKE9nCvymzOvz8nXGSz TTrOfGjCIduvpBVyaKt93dGeeWV4whvWhcUprx2ZsNPiRqFkM+3h+utM/9BR Oj8yLoF7Ncbo9XcWZUjV0p50PtR2/XHhhCXuueQxqbr8fwYk5l2Xr6Zdvipi 6pyj4gnP2RGgdUmOnHDH6qbms2W0H6dCg+3ya8LOeQZzFv2mffHK7dCO3N8T fkgsSpKzHJ9wRMoV105r2h57+5c+2kN7YVnZY6t9tKMYB+quudH2Nrg1OO0s bfUwxe1Tcmj/Ngye2XaX9ud+1sec+7Rv7Ctw3ppPe1xz74krZbQ7PjBSpZtp l4SPujd/oh1ndHBlZjvtndlrCjd30n5+puFNKI/2v6v1GXv6aB9nJtuqCWiv sDzyrXKItoxkS9aNUdpdRUa+riLaZb6Z2jq/aMcvmT48Pk77fwBNpFrG "]]}, Annotation[#, "Charting`Private`Tag$6745550#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Im(\\!\\(\\*FractionBox[\\(y\\\\ Log[Log[y]]\\), \\(1 + \ \\*SuperscriptBox[\\(y\\), \\(4\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {0., 1.790320429552182}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7958179061321163`*^9}, CellLabel-> "Out[883]=",ExpressionUUID->"3a0fbf73-ea3d-4106-8fa2-f0b0fc54f310"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p12", "[", RowBox[{"1", ",", "1", ",", RowBox[{"1", "/", "2"}]}], "]"}]], "Input", CellChangeTimes->{{3.795816906165436*^9, 3.795816913937747*^9}, { 3.795819296880838*^9, 3.795819298104847*^9}}, CellLabel-> "In[915]:=",ExpressionUUID->"7336a1ca-38c4-43c6-8440-6bd7b738ba2a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.7718591433745108`"}], "+", RowBox[{"1.6449340668482395`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.7718591433745178`"}], "+", RowBox[{"1.6449340668482262`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.7958169154629793`*^9, 3.795819304697488*^9}, CellLabel-> "Out[915]=",ExpressionUUID->"484db447-c08c-4386-a0de-4eafbb9ccd83"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p12closed", "[", RowBox[{"1", ",", "1", ",", RowBox[{"1", "/", "2"}]}], "]"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.795816938348012*^9, 3.7958169415678062`*^9}, { 3.79581930165806*^9, 3.7958193017931547`*^9}}, CellLabel-> "In[916]:=",ExpressionUUID->"b507ebbd-74b3-4c61-963a-02f5087e2f8f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SqrtBox["y"], " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["y", "3"]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ",", RowBox[{ FractionBox["1", "6"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox["1", "4"]}], "]"}], "2"]}], RowBox[{"27", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox["3", "4"]}], "]"}], "2"]}]], "]"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.795816955801022*^9, 3.7958193171051702`*^9}, CellLabel-> "Out[916]=",ExpressionUUID->"24880972-3610-40e3-8fd0-2a54fe897983"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{ SqrtBox["y"], " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["y", "3"]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7957621068102283`*^9, 3.795762126125455*^9}, { 3.795762218403481*^9, 3.7957622379071903`*^9}, {3.795817846559164*^9, 3.795817879499946*^9}, {3.795817933637628*^9, 3.795817938419837*^9}}, CellLabel-> "In[884]:=",ExpressionUUID->"116f8c68-e6d7-4e02-ae8e-d19f245c41e2"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlnk01V8XxkmGNChTkTkUSX5FVPIoDZJEZGggRSJRyVxJaVCGZEgylFBI mcf4Xlwz1zcpROaZey8iJHrv+9dZn7XOWmfvZz/PXkf6gvNJ22VsbGwc7Gxs /z/1bIe/UEZstTRa1Xs4yg9guY7otS6Rg1Dd6OdJt0rGzrjI6CwRE6RdZPy2 4stAv5isr7u8JQ4f1aV7q2XjWENLZoyIDXbJ9bZyl+RCNkA88Z+kPWh1P1cM 9eXjr97FF9byTvj10qm7hlqIUb9mqnXEdUT196kJ3/gMM5vZ4uciN6Ex0TPE NlsMqo5oXnm0G2qvGc9onSGgsmlf+rSkJzTKBmRUTlIQvex8stxbb3wrVos/ MkYBT++9eFP5O+D9fGOPr1cpCrubGspN7oLHPblOmr0M1wxt9M5G+OLVvyHx 7XfL8HP7I51AET883fiqqcKhHGFxGyhyZx5AdE9wwIuWcujxpWiWRD/EoNmG BzdBRS6jXo0p6Q+NHSMr59gr4GhpmfnI+gmsu9ydDc9VQIbGVJZ6+xRVb2ZP i+VUICiNf4uRfBDsi2K2rzhTiUPiCQkjdsGIjl64E5FciTuVUWtLTZ5B6jFt 1Y2ZSqjuUgq0iAjBQA7365wHVXgtdOLhE5EwBHZV9WwIqIZ3wwuqaWEYQu48 6emtrobpg+5lm86EQ9YxI5vJUYNVM9d9iqIjcO2AjYiMaw08msM8xiVfor3O NaLxUC2MA37m5lNeIs3LgCverRbKB+Vn/KyjkGcsx6aRVIv+rLzr4m9fwSHs TFMHex2MQn84GMjH4vTkbluFD3VQOrYpWbQqFtqFEor7muvAw+E4NGgXh5Ck 9EfWC3WwKljKIExeo/u9tt384XoIKTxTNo94A88c2UeSzfVY9iD7eMngG5iV xjTenKnHRHero6x6PJx6/4yvEm5AXaR06kRLPILDY8NETjXAlydrs79IAt76 lLnK1jVA8UjI48xrCbg1orzfZqQBTQ+cR9qrEqDsd26ewUWDLIdSqrJbItYW VavNgobKxQTl5qYkNF9KmT+cQoOz5v3gRYV3GPqdV2RcTsMGb+sJed93+O/W PYG6dhrs58QzPbe/h15MfhjXykas+hWhJhmQjOOFySTnxUbk/OcaoduXjKTY d9LF7o2wvGY8e31PCqqLQgx+P23EJzpfAXU4BVM6f3nnMhtxcvixpsOhD6ix 32XgudCIBXm7mNDoD1jTsKSszUUiwfbQ0udfHyBUXuQVuIbETC87hS8+DQbf RTb7S5CI/Omlk7P0EfeKh6vENUnsF7NI6Dz1CZtEYqN4dEiMnlbn5En7BHXd dgHqURIS454X07al48r9+tlPpiRurBwROGCRDub4keaesyQqFc2p3/3SEZSs tXfoAgln+11ybB3pAL+TqbMTCerjxG9h3BkIYtMy/eVCYsN7wYcKOzOg/o/X 47gnCcrg1ODJJxn4N+H05OF9Evw2n94namQiyNZocmMEiUv3JSz22GTidUuQ nHUUiaL4wBWNwZmwVPWj340lYdNzxWFuMBOeu3z+O5lEIp+tXTSQPwtsxx/G L08hsUpKr05aKwtjmz1DQtNI5FhuUToWngW1LzbZutkkeO+86OiiZEHnmkuV cx4JyxiuwJvjWTBZXi7sWkiCq6OfHqOTDRkNzdViFBKnF4xjdzhnQ++14t2S MhKfRMsNqqJYzM1dpV1BwtzizaeJyWyYHpYyHKwhwWw34Y0XzcHw+28Tg3Uk Hlry2Brr5CA7yqyivoGEWE8RsdwxB+5hzUKRjSSyLjqL5oblgGeDgMLRLyT0 BmVc7Ypz0LXH+2B3E4nuy98bNwzmoLlT8sO5ZhJrnPY98FbPhbr1jP2qFhKJ ExNdSudzsbNqYr9WKwlNl4Q9nY9z0S1LszdrI/F1xiw8OCMXg2fcJM1/kHDw WDmh/SMXInYf47TbSbAvlOhNLctDf4qE/LoOll9u30h8uzUPNryn6TUsVmaT ZztlkodX5f3KV36SqLjXdprrdh5SBPdummHxWc7AnLzEPFh+aGG/3Eli6pH2 WntaHkaHdrNTWezPO+0gOpsHomvMdEUXCanAdxV1kvnQPfRYXYPFeXxnpG7r 5uO4AOW7IYsNnq/xVr6ejzT+83bGLB4QLPvW9TIfDFXTjdosvvXCVSWkLB97 KnM3rWexgKjC0wNj+YBHaXor672U6I6BXwIFMDgyOOnHYm3JZ9qJmgXg3Fsr JMbiljc6r0xtC8Dk0NeLZdXvJDs7wx1UgG3ujz+vZPHydymGBbkFuDzSGWnD 6v+VgmWqQ1cB1BxmeJNZeu34sI5LjKcQY92f97Wx9KxRrjjfoFII7lWuZ2ZY ep/P8Ci6Y1EIAZv0wEXWPH7vVBJWuVeI9X1mi5OseQXmdl3rSSnEuYyPTU3f ScjuDq17/rUQEfmn1F5/I1FYdFj+4N9CCEuc0D/NmvcwJa096XgRHs3vVQln +cNHx3qXuVsR6vvVdYVJEsKVgiEr4oqg4hiT4kcjoVPnfdhxoggcuXc6FVj+ i/12NOO/0M+4Ih/59WU5CTXzxZV9RZ/h/KxFwL+URP2P9Eth/Z8RFxmTfokg Md+1XmxWrRhpI7Y+dFYeTEYHHn5uLYab/ervShkkxhxf9lxlL4F5GueF5x9J 3GPqa0oqloCz5LDWUCqJ9OmsSV/vEtS03rWwYuVz5T/fs0ckCNxUF5MJYOU5 0t7MUukwAR1XGw6fF6z+m5XOr3Mi8Od6beqFMBJayS0X24sJuK6XyfwbSKIg OSInT5mCv968cnfukqAbj38+RqOAzVZfuZa1f1RXtOzT6qXgRDavYrMlCa+S 0hKV3xRM7OPXJ0+T4FZ4QRGSKMWZPn+juJMkpJf2U7uuluLI3W9eUftJnHr/ os5ldRkOT40ZCYmTiD53T/+SdBneqJg6620g0ct/tcFcrQwn+D5+vSHA2ne3 DzTuO8e6L6CVGbOC5e+T9CbutDKErKrlKRptRPHfAz9e6Zeja3BLhlx4I+SM GMPlT6koUYyuv9pKg6jPkT12b6gwi1N3+lJLw9q0109586gY15VQ21hMwx8e Y2WjXircbm9Ltn5DA0nJc+nUqIDpSPyp4ss0eKn4Ls0NVGC/R7NM9VQDaHyC gsraVeAzFn3YPV2P8n1Xbb+cqoKU1XSzZn898q9U5t68UoUx3kr3e1/r8bbK w6Ioogo5Cy/5ajPq4eHzM1aXXoWVY8pt+lfrIcNMUrgYVQ2aXlrpju46uNN2 I3K6BlcP8lzgyq3FGuWcgRqeWvga8Vgvva1FQqBKwIJYLeIl5dL7Q2rxRX9z myXrn3B75ujNW1drsbVO0EUuohbNmbOcPzbVoquKmZSpXod2iWPB5oE1OFKa uKbBqx5y1Z1EvnE11mev62Rnb4T6vbQgl/QKnA1YMOkXbsSNu8HNvpEViLcZ qKtUaoRH78Vnd+5WQEmooOCpeSPEjgy80DGswAG38+FC6Y2I9W2TXWRQsSva LClsO4nyxMo5dQUqrC2Tzr1n7YHJOzIZ60PKkNurU9+o2YSc0uq289YlKHOI 2Wgx3oyaI5JrgoM+YUZ+H1/a1RZkUxQeimvbYdl86tqNcj8QfP3uCYnpdGLX v/O5xh87cEKBa9dW3VKi3k+VVqnYhW0ac6/JM7WE5LOx+WRGN2ZaFjL2GjUR Y7Ndnd9UenFbLsbW5WgLkTBaVLsmqA/V4jV7I9o6iDXi75j9/f3g4gzvOYYe IsA+59Jr2UG8UlcWmZzvI35rp/Zf9hnCPZl2vRDBIeLmDmq2cPkwTkQY+LZu GyW6PlKffpEeRbBF7n3XfjpB0peP79g8itgrFl3803SConRIP0xpFH2pOzoL OBjE65SKVWbqoxDuM5GS28QgLiRVBnboj6L7Upm2ywUGMRhTHTzkPgqzKHNl jj4GQQ+oD11sGMUj3YLI1HEm0Vm3atry6yjCa0x+fFxkEjTe4yaU1lEoMbaF W3FPEB8fNwje7xuFg11o8f0NE8Q1P1o4z/wocjxkTojvnSCmvckXArJj2Nd3 a3ui7wSx4ND8SsFrDJ96otaGCk4SJrvOhSj7jOGVqHOMnfgk8YF98OFOvzGU x6kKHpSfJCwjZ6/vCxqDVfAiv5DGJFFaIaprFD+GjH1+aSJnJ4lHUtbTHrVj OPGRQ7g0cZIQ+E7XrxYdx1abvgQN7SnC8Y3bgQbJccQKxv3R0JsiqI7/1Jtk xzH7nvP2QZMpwo1j3aYO5XHs9jQJuH15imhTUZ1nHhjH7TaJ594hU0TcU6/E 9VfGobt7YqlyYIrYup976VLROA65H39WFPmLSE9J3dxKGcfjoVV8Dom/CFVB Q6OjlePQi7rEq5T5i9AcikzY+mUcOy0Fo8bqfhEGgYrHJgbHUbFc/rI12zRx o+14pCc/Hc+603ycr04Tvw9MlY6up6MvXna/t/c04f0hYuyMOB2nNzk0xvlP E34+XVpaW+iIfsA5ppo0TUTIXR9YpkUHO8dsY1T3NFFwPWxHgD0d+o5zbkWn Zwitdo2zi050cF74peHvMEOUHfz5wOkmHR/Fp6zdvWaI2vXybYY+dJRcm9LK i5ohOorzfITC6cjdtvrs944Zgo23vT6WQge1hd1K8fJv4ki8tF3GegZSiJ83 1r2ZJVQj18hXijGg/cnXhj1nlpAKWuj/Ic2Ay3EYba6ZJf54fruwXImBTO5t v0WmZok0I39LM20GhmRuZpYcniME2CdPLV5mgCuobrXh3zmCbfanIL8TA5+U lxcdFZwnxsdrv8q7MLA4vPT4udI8UdmaYGR4m4HIEytWilrOE57p5sffhjDg nJOqtL9inuiyohw8WsgA5zddKf2kP0T9qTQOS4KBGvXoOUfqHyL/WFTZDSoD Tx5pNazs+0M8V7+pHU1joI7x9VKz9AJxiG+LJrOXgYW+AYpg0gKxg1NogWOY gatkfNK76gVCYoG9cAOdAeumk43dYwvE3GC7+oFZBk7dvR5rpfqXSC0J3hm+ kom80iEFC9pfIjL71lTyWibWOp9bPfj7L+GXYp9RIsSErctSh5nUImEZobN9 WJKJz3OhpIDbIrHOaVZxryoT9ZKXHfcoLxFLF/tHTuxmIqKEcU7DaokYtfjy 3kaLidwtW938QpYI6qFU+SBdJk4N8GQZ/lki3MWtZHrOMqFwoStLpOsfccFQ xbTDmomaxbUKX1ezUQzusz9pucREr/9Rpw3b2CjyI28nG64xkaAx2TDgxEbh F3OVq3Fl4pZ/n194CBtl0eCwBdWLieb1O36H5rBRmrOHKYV+TLwX3yU9xM5O oQwVTOf4MyH6lSnsqchOkQkNDbj1hFX/f85j6/5jp/wP0/9WFg== "]], LineBox[CompressedData[" 1:eJwVkHs4lIsaxYeEckw1SaeikijSjrJLkXfXkMqlUiI7w6ErlRDlrssUKklS LiFSSmMmUZS8ujjbbpN7Se5To1y/b26YYb7j/LGe9ax/1m89S8/b3/mwMo1G Ozul/7v+CbVBmTkBNWb+A3PMlCqjls6x6t9IwOrokVWujbRKcdl4y1ErAu4f ateKyaNV+u7t9f9hTUClw9nTJ8NolS6Xn+d2Mwmof5DwTtOIVmky6KLxxZEA y3u35301obB0nwPG7ybAb7tdTDpfgcw3W4Os9xKQ3xp29WWGAt0T1nzLcyPA zYSVf3SeAuNMZxSc8SGAfbUiwlZ3ErVSKdbKIwQcSpy+34U/gdlKUkb7MQKO /Gne1/5kAksbe8OYpwgw6m+Tq1tPoOBM+U5GKAG8frJWK0iOgR1FiqpwAn6m 45g2U46Tto+LQqMIOLW0wWGhlhy15qcs7LlIwNmrj81lpTJklvn3cxMISFjt l7NAU4bZk8viHR8Q0JoqbdzcOoYmRxZYKz0ioC08et/p4jF8+WmWsPgxAX/0 LfE3uzmGn7ImDuhwCbjQMCJ0dBjDyS2fjQbKCLA/xUmLqR5F98txf8fWETA/ 4JG8pUWKguHoSKtGAnJH33Ral0kxwDXEjGgm4Eaa+h3le1KMXemT6tpGgO7E ovybh6X44qPVccMfBHBVwrKSZRKcO4tQ/yAjwHO4JjZ1rQQb38Rf2TFJQIqE ZeelI8GkEwaqddTUn6ty1FiqEmR8dJ/WpkKC90VNb1mbGBnsqskROgnPbE8K 0y6LcbY8TbhIn4QX9MzuYoEI/9Vn2x5kT4JTxocta6qEWHO7233ckYTRhnmS rcVCvGYT/jVqNwns3J7WkFwhauTwPse5kPD1VtWBzReEONNjUUOWJwm6dvE/ LLYIUb2JqPoniISUjJSuhA8kqmA6Vz+DhAUb1PO3dhLYZmWzvSuTBL/5D8Mj 6gjkvhrsTrs/lct7LOsqCXR/sZnBeETCxTWGthW5BD7jdJ2hFZEQ6fdx2Stf AlkZ+ps6/pran5N+q2V8BEtDCz6kiEjYtCUsd9RrGBNG93o4S0n4x/ZhVu72 YfQJnpBojpMQZj7XMtB0GOkBjivYChIgiSYIpg3j4WMjcUEzhKC6XB6imTOE DNd1u3YvEYLZedVVvw8Mop/5668z7IVADO375XVrACvrW56WOgqhOsCaWhk9 gPNOEtFHdwvhuk5F6Qy/AcQ8A8MqFyHsSvT5Q4s5gHPnJwbGeAlBftx/2E7c j6/HD2mMBgtBpXnUSeHejxpI3/w9WwileYIoX4tfWLDDO7tCKoTXB5eeEBn3 obmJnjWMC0FgGMjI1unDCnr3N5QLwcuqQ8md3of1TR7z39JE0P1qw3EJKUCx x4GE9zNFsHaPp151mQCtA3dHVC8WQVJUMr3GXoD1adZujdtEwDK5f6/23A+U DCycLUgRgat3oOtaER+T7/X9lZEqguWCG9e4Aj6u21UcvTdDBCGxA8Ub2vgY UOQ4UnlfBLPygnOOveXj0LmYT+lPRaBMJjnaJ/Lxx3TBtT3vRKBxdoWpmikf W5Y8m/FmSARUWmf0eEgvluy1m5ZsIwbKSf3F4qU9GGtfytaxEwPLZgNkaffg QaaRet4OMbjdyiwx1OxB5XUami+cxDCo89J+p6wbnRh12q1uYpilWGfPb+7G n/X7jXVOiiHW8Zzp/qvduNDpyJ4Ht8VQTcdgXVkXRm9nZxULxFDf32lR870D 9Tp2tuayJWCgoqpfZNeGmzZcSl6wVgp3F96tWkJ+xoOL68aVmqRQ8J+HLpa2 zSj5eL339PlR6FC/rGZY1YB3VVhnnJePwW+quyzCI+twbmdJjvKHMXhs6RBh oVyD0yPP79sYMA7ZvU9MuUXVSHvM4vYyZLDxW5T+VXkVBqZxrzPeySCp07eo y+c9vlkVqz7nlBzSj8YpYg3f4pydgSYX6BPgGjXEv3S3AttX1zeFlk+Acte2 NLnqa+RlwvLvrEnQV6Mx82eXogd3/RxdxSQsKptto322BGPY98+3P1HA4tXG xjVkEXJ+6qbTHSh4ynQO8vzCw9h7bK9OJwo6J1JKwj/x8JDzkEHhHgoyI+PM Mqp4qFNeznN0pWBpW1Ltr+c8jL/x53+veVPQ02zt9jKRh8fWp5IzQylwuX6z ZoE9D5dd0tqu9pAC3/i15m1sLiosIjS/5FOwrfb7y38Hc/HrEL/xYQEFAZ6p Bp6HuJjo+txj27Mp/rsrhdOYXKSMnYPY5RRo14ZMK6Bxsb3hRua0JgqOh0YZ +UcWYunlUZ+mFgrWi1f5GJ8sxGRLT6Pc1ql+9WHboYOFaJ/3W/HWTgpcDaql cVaF+Opc7d/nf1EQlEe7s3iCgymrf7+xZ3CKV3/qifYgBwN6M/bpjVCQymPZ abdzcKXDia5KMQWvzA3pJuUcVFFqfpA4SkHeoLnp1qcc7C6x9PWSUfA+Yl2N ZwYHy31z15hOUnBkBbPz0jUO3lmiIaEoCqTBV7yfRXDwf8BqFEg= "]]}, Annotation[#, "Charting`Private`Tag$6780376#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Re(\\!\\(\\*FractionBox[\\(\\*SqrtBox[\\(y\\)]\\\\ Log[Log[y]]\\), \ \\(1 + \\*SuperscriptBox[\\(y\\), \\(3\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {-2.1489599602993845`, 0.263630724861552}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.795817939776907*^9}, CellLabel-> "Out[884]=",ExpressionUUID->"7bec47d4-ce05-49cc-8493-f1d83d53e1cb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Im", "[", FractionBox[ RowBox[{ SqrtBox["y"], " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["y", "3"]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7957621068102283`*^9, 3.795762126125455*^9}, { 3.795762218403481*^9, 3.7957622379071903`*^9}, {3.795817846559164*^9, 3.795817879499946*^9}, {3.795817933637628*^9, 3.795817963163794*^9}}, CellLabel-> "In[885]:=",ExpressionUUID->"60b92122-072a-4202-8106-dc71fbc6faa7"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF13k0Ff//B3BbpU20iBLJklKoLCl6ylZZyppWqSipKPlqIxE+lJ2kJIo+ hWxZkpS1lCjJlvXeude+XFvLxb3zm885v9Odf+Y8znnNe17vmXm/Xu+RPeFm 5STAx8dny8/H99/ZxKnvW2m/0w6TYonkbTWGEDJYcaFL0hDhK88ZHBjMxZbE uIe5kjZQa/Ayu6hcDKaUvO9lRXswvMfOiuqVwbS2+WWCpCMOpPenaw1WQD5k 1VNS5gyWvmksFTf6gBmTk/eOK7riG06Lajt9hJ3j77dRkh5wql+z8JByDSoN VryqeOiJza/ilapptVCT082elLmKiXuDR/658RXChN+T/Yo3YP1BNnq23jd0 qP5jECrpj33duhYqg98RkyhRqnA4AAsubpJeFdQAk0VpOu8eBkL2RG7yjdWN KBip0WDJBIM4u+7bAqMmhGUsVrJUDEPkaJPjRqcWJC3bF3hbMgZKDz6FGCu3 43rtvcr9RTGoZDRaLY1vx/4AmoDc4bu447Di6pa5HVjw86LPm4exCFWNZWfR OnClIebKkMx9QK59i+ONLlhGt7rsVXyEyTur63tBh69w7tpgyRTspQvd7hxg YP2uyKCXF1Kw+intZtsyJuoD3PrbqlKg8r1hzEuPCXnBDekqnk/B0PkiXhDD xAdOikpD/b8INNritU27GwsmYjVkQlKR4+Y4ttyjB3Ed1wzyuZngdHxLfFPU h51SB1M6bbMQcISWfqSjDwOHtGYJZ2Shw+m2di3ZB+mhqyczNmZjsbRSj4xh P9zOaCrwtWfjkurnksTqfix2zHr+dOtLhE2JeD78OoADBx9njY7l4aUL87nD 2yGw2mzmPVmRD5GqPi/FH0MItBd2sjbIx+vyjb/qJoeQe9JtRUFMPmLO+wg1 Kg9DxFU34LpWAQ5tdPF8HDeM934/Ds32foUmzXmpgedHsPmF2Gwp4SKIFRtP LBIcxXzS98gu6RLopKfqHroxhrgzdvYbjEtw4wF3u2vwGOQbNjiIuZZAt6Mw 6VrMGHakNp9se1uCWwsV6rzSxvA6NTb/lUopstbyySo1jWHYeqjY9EspgtY5 N8tvGIft83ufLy0sx1V7Rx/+7+NQsBzpq7hTCQdPuy/bRSZx+Ys24iY/YYH3 7jtJ7r+wPE+sk5//K5yEBfZaOv5BAWFQ81WnHl7Gyzw+a0+h3CVh5cGhBoQO v+xVej+N3P6zZ+1/NaCK5frWo3oaKc7b3pzka8Sc9NKNb79OI+BU8yHXpY24 lLejy6B1GrtPiD24pdOI0Fq5UCXWNL4eDJDIDGnEKv1U830SM2jffX6Z4MYm pGup8C11nsFPRd1FGeebYb/x95A/ZwY7CP2q21eaMdWtIXtQgIPAhN0+zrea YXHwqtO6ORyIL7Vhyd1vRnFGvvQ7UQ40+c9+fVDZDDUv3wOFchxcaYsLD1rZ gtCszQtGd3MwEz65yPFTC8LEDL3OR3BgaDpVtbOhBbYK9jMVMRyEzOa7KdPV gjNpmyLF73Owynv+aOtkC2SMItlZjznY4bKmznL1DwgxZ3/KfcmBj6FFBC7/ wFD1BV/yOwcC7HTRlQqt8P9caPF8CRcra/UnoNqKdT1XrPSWc6H++Eejo3Yr tHXLhhtWcOG0Z058pnkrXsk6j03IcvHx/gkFfc9WOJsGqc1V4yJ8m+S2M1Wt 8PKJSosw5ULKK/DkqzNtSJjfemPpTS40LFYZt19qw0Bw7ThucbFXPk+J/0Yb hm5nCDkHcuFTQx82iWrDz5bvApkhXBBSulc6i9qQuHPLebH7XKS+nQiZtaAd l/WNZTRzuNAkHQqsM9uhUaGu+aeTCzPzUj+jwnbsst06kkrn4mS8zD6t8na0 XP7f2QNMLiK0OntXNLUjSvp0QXo/F/1uhyUJTjv0zWuilSe5eEiz9bpg3oGz jN3xEcIk+MtN9EOHOmDDT5wdUyEhIZom4vOrAwM/DDV1NpFQsZ/bdoGvE9HG crW3tpA4NFV1yWZpJ45mHj0+dyuJvM1GT1fqdEJIc4vyiB6JU8kQTrvTiZc/ gnylrUjU+Kt/+bC+C/YWK/Sk3ElsW/RZIFKjC4Vzg7eu9yDx/P5xrcN6XRDO trms7kniVmZYEsu2C2aGrz7pXqPiW/rcJXy7kEB+rJXzo+KVE5a7NHeBu3e0 QDeShHjBFjN1ogtn6atMRKNJ+OtV3+QOdWGqpnN9VwyJ7LRpjz38NOjOndN8 MY7EnRKlzg5xGgRi7/e6JJLQ7/fLnq1Pw2w+8uCLFySuqnypPruLhlNNo/yG mdT1lyS768xoeDURTjZnkZDmZknG29GwxmGGM/mSBHtxh5/qeRoc1L6IC76m 4nW0bA/E0fD0w3GNC5Uken393N4m0ECLibxW+566vqo2eE0yDbGFl6TXVpEI sXR8N5RBgzk72//rJxLOpyLX+lbQIDo+1jb5hYRMxCA7dYSG3/rFiGoh8e64 T+rLCRpah+Rtn/wgYb9lycE3f2iYq7vcJKuVxMOmbYU1AnTQDF43lLRT73PV bU+WOB1Gkdzrb2gkFqcpTahTfWK9t2noqj4SOdeLn+ga0sH/PL59mrKFuYWV 8R46Bg1Nlzb3kwgfvZxjZ02HWepy+A+SWKBV5XbtNB3/i8yPej1CYlal01BJ OB1H9QYLIiZJpNxlx3+MocNSdrRe9ycJw9Ohpt/uU/E/GbReyn7z8tOIZDrE Xy9r3PybBNdC6MysQjr4BLXUUtgkEtbESYi8pWOmxGB46xQJnUnlj+LldMhW mD2upnz9nvVapRo6RsjeUeY0iT8dT7pNaHSw3a7p/eSQuJelede6m4615+Kr LnJJaPpWGx4ZoOI3TZoMUv6f/Hjy+Uk6lgX+2d1Iklj6K8Dak01HQbU3sYaP Ty+vSlLQh0uHQOF44kHK4y47T0QIE2hRj3pQTjlSp1Hs/kICzcfPtkxSVhM5 U/Z4MYGtqsvuKfDz6bnmRKzOlSLQX789zo/y4O+uzkY1Alz9yNz1Anx6BafD y000CbgW5K21oXyzece/JdsJlI0Ot1+nLP4q4XyqMYF1cF/wgTJd0dxS2oxA Tu2///RRfhE7ox5tSSBzeaXRXEE+PX3PwzNeRwi8VY4MMaK8sGcebew4AcJK Rfw45RbboopTpwmYsMKY1ygnvz/zrO0cgWHm+j9RlF01JO9YuBPQir5mmUpZ ++lH1/eXCdQ3/Bp9S1lo2RWrbd4ErpMSzXWUv/qv1czyI1DHOCREUH4w2SQp H0RQdVXz6hhlJ8dATlwoASnftZokZbUGDfrCaAI0PN8+X4hPb9qgu9Ivjhqv Qv32MsofcmOe/04g0Is9a6QpR8oZhpxLJvDqxAkhBcpHoifc6M8JTFhx1NZT VhRMtt6fSaAx+97zjZTH3K20PucSiLqbdVaVcjHBv1LvNQHZ6Ipr/znQKoeb 944AX55V03/xluUOxLpKAtPX2m/8N57UZtEPjz4RGCJoHv/dr/dxSeqSrwRu 2NMK/8vnpZhbaFADgcnmw6bilL19pS9yflD5ZjdsWEB591itjXsXgVnlNUf5 KC857r21l0mg6dCHznFq/p11G6SODBC4stMwm0E5Va+drGMROPTyU309ZY/s OwyjnwQEHVqNSylj9faqoikCVe5TC15QnhcxkKbKx4B/UKZCLOVEtz3ukvMZ CLzRa+FE2aXrj22YKAMtjMuOJpTV9z3XFhRnIMc2t2Yj5WqVOfzDqxmYcN6V wKK+n7uPCpjHFRmoV8ua/YWyg8ipj03KDIRa0j6kUf41XBleqslAT0eZ+THK ZUc9LmnoMLBVOGCZFuWQWjm7tJ0MaApraS6kvCbDTzrGjIF5w5H+edT3Piy1 WWCuFQP7ZCxzAygXhtC7ve0YCCpT1qX+AfTMz+llnD7BwJNPjo4sav1ItLMi 2k9T+fN3CBRRJkwTPSzPU+PtTeH6Ub6izN2+/QoDQlEHREUppwy8qRYJY+CZ xC+7jdR6dr23T84lmgGZju3cNGr9axkyrr+Po/a935cHKlCuTpi30SuZgXUN XTvEZkiMWRwM7y9kIDZsyr2CqjdFnKFew3cM3CjSNFSi7J92Uy+pggEfp0Iy +A9VP4Wej+3/woBbzLi2IVWvdrz6ZV3JYOBOrHZrNFXvhB1vv5DpZ6DubrQU bYJEvaj0rOsjDAhELLFaR9nJxahgE5u6n4BQ/Msxqt6vipFIFGFCydS4Momq nz9ubeq4qs2E873cS0O9JJ6ovddo3MFEmX/VBWHK5zoOhKkZMuFxxeKSbA8J Pq2b6N3LhNEu11ATJgnFgS+PbRyZqLIs0rxK1XcPi3OnVMOZsEhqO7WH6hci q56xmEwmAi5Epb2l+o/e/lsdjH4meiRKj0VR/ck9/NhnYoSJnHGDRMcKEk38 Es9of5hwdz5Sxl9G4lFPkH37gm587jbLlC6m9gPZLrXf1bvhdDRAlJlDwtxA Jb3cvxvaC59ppcSTuOE1735ZcDeSqws0Nzyg+mF+T2BpWDcG2o/Rc6j+u1Qp 8cS7uG5YeZbpFtwl0b5AdEXRi26oZGSpJYdT820aC8pp6IbFgUaWyC3qeZ3J P5Uk34PYvXEuGs4kBvQyguav70HSJYv+vadI7JJ4muap2oO7jMvfnRxJCFTF jJht60GUbzHrjgPVz+U9PNn7evDtfLXb6wPU/qRrc6DV9R6cPJ1d82A3iZ22 2U+F6nvQ8KdAwFeRxC+9dKazTy8k5bTzN7RxUZwyGH/ZvxdF6wrlm1u48BPe YB0Y3IuYjldPfZq4EKl7UZYc3Yvf5EJ69TcuFI9lPup81otT1UP2Jh+52O+d c8CmrhezX4YFjuRxkf/6VQ1k+xCTvUGwgdr/eWyuzBOv6EN58Mx3Oy0uujIr 73yTHcBgteQsL2cOpl0a4tddG8TINt26ywEzUN45h3vqzRBCPOcV6Dyexq4n sqdzlo8gZH+vetPDKajHiSh+kBrByZ2LDH7FTWF12DSzVXYE43OTWpbdncLU 1cYTQhtGMN8vO8E6dAoZlsH2dnojONRxPPWT9xSW8I/ZcpxHUJaqGpNkP4Wu Y6WGe4pGwPlUK8y3ego1thmC9iUjcH735cNiqSkUmj4od68cQcyZGSUFiSlE aXnoPfwyArNgu47dolMwWqSkwyJGMONuLB3CN4X0d+Fb7s5nYb2LWZkAnY3L q46toR9hQWH43/8VPGbjhIXa/vbjLKTtn7fvewIbe2/x324+xcKEw+wB1n02 FPuTx2ovsKBv0nRaKYqNhry+0iJ/FsZLpeNi/dhQM3M/FvOChbgBVQ/nk2xI +RhEh+ewMDf+R5nvMTbmvFxadbuAhftWsh0PDrPRufyVim8pC05TXj411myE MKY55xtYSKwe/GejIRtXxGs3nfnBwtqji+yM9Ng4ueeRk2MnC56sVPYRHTa2 ZenVHupjYbG5UvEddSo/Qox//zAL09LeHU/U2BBbxlC3HGeBxVnf+HoDGzO7 8pzNfrMgZtefXKfERt+1gIe7ZlgwVXIz6ZVnY2C/svNjvlHw/f/hMLpEQEaQ 56bgmfiHs3g2levWWCHMc2lx7dd783jW3F9wZtlCntcE/5MgupjnuDUXtMKW 8ixSfODb/OU8s0fWzZojxXOdTc05jgLPxiN5s68r8Vz8T0LSn/U8PytybZhQ 5fnGajGdAW2eNwzZzm8257nQxqzktgXPBm/1L+2w5vlQmGrb0wM8B6vNTfc4 yXOPR7HJ4qs8J3HW3DZP4XnJolHhyimehUris+Qejv31WfU3P+aajv91+p4T Se9+8fxzcIVoT+zEX+db7xKMMZz8a5/dAYl5PTzLdpi0JAf8/OttWv4xkpt/ /fUR6a9s/u88/6wOJS74/ua9HyF7Dyv5P7z8O/OfCFTyPMvb10b7Ivuv+VLt s4jFU3/t/iArdHE5z2+Vg4TFXKf/WszEfYOfyMxft2+s+361mOfsR5Bn2nP+ +miWptgqLs83Ax77tqdx/zqjb1W8iBn510EJAQ6de3l2tBpWyLTkWaq4ONvc jufb4Yc/hJzg2Vnz/ti8qzyv8V+6e86/PHO3ei1sfs7zj2FG/b/pPEfY5R41 zuGZXG91KaCY5/Zv4Y8Ev/NcGPj75PdGnmO2H1uX3MKz6VOVPP1Onouu1H7y 7ec5dqNGuOUQzxeJhzayLJ6VzM51lU7yLMTfkBLxm2da/nYXhymei12SVdU4 PN+Tmf+TJHn+P69ro2g= "]]}, Annotation[#, "Charting`Private`Tag$6781025#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Im(\\!\\(\\*FractionBox[\\(\\*SqrtBox[\\(y\\)]\\\\ Log[Log[y]]\\), \ \\(1 + \\*SuperscriptBox[\\(y\\), \\(3\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {0., 2.0020436850485486`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7958179647760363`*^9}, CellLabel-> "Out[885]=",ExpressionUUID->"8f1daba7-befb-4fd0-9cc0-2085052ffce6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p12", "[", RowBox[{"1", ",", "1", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]}], "]"}]], "Input", CellChangeTimes->{ 3.7958174694522142`*^9, {3.7958193075131702`*^9, 3.795819307669052*^9}}, CellLabel-> "In[917]:=",ExpressionUUID->"3acb7237-67a4-4e92-8622-7289c055b2b4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1.1358148650996496`", "\[VeryThinSpace]", "+", RowBox[{"4.934802200544674`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"1.13581486509965`", "\[VeryThinSpace]", "+", RowBox[{"4.934802200544679`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",\ CellChangeTimes->{3.795817691790708*^9, 3.795819317161337*^9}, CellLabel-> "Out[917]=",ExpressionUUID->"d7767c79-bbd7-45ea-a50e-af8a273ca871"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p12closed", "[", RowBox[{"1", ",", "1", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]}], "]"}], "//", "FullSimplify"}]], "Input",\ CellChangeTimes->{ 3.7958174802055483`*^9, {3.79581931087983*^9, 3.795819311076782*^9}}, CellLabel-> "In[918]:=",ExpressionUUID->"73d24a3a-2c22-4a14-94bc-bedcf212897d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}], RowBox[{ SqrtBox["y"], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ",", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "2"], "+", RowBox[{"Log", "[", FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox["1", "4"]}], "]"}], "2"]}], RowBox[{"9", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox["3", "4"]}], "]"}], "2"]}]], "]"}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.795817701471499*^9, 3.795819322014112*^9}, CellLabel-> "Out[918]=",ExpressionUUID->"4188af02-66a9-4ed5-a028-351410c31f70"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}], RowBox[{ SqrtBox["y"], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7957621068102283`*^9, 3.795762126125455*^9}, { 3.795762218403481*^9, 3.7957622379071903`*^9}, {3.795817846559164*^9, 3.795817879499946*^9}, {3.795817933637628*^9, 3.795818010787426*^9}}, CellLabel-> "In[887]:=",ExpressionUUID->"eeafe2ed-6056-44c7-8ac8-14fd6dc3646c"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVk3k81PkfgGfosJKjSEkZLRJWNhMpvEuXXitRZCVyFEVKCKldKV3rqlCT Lle2JX5qCV2fr2vchnGUI8ekMeb4fmc0ZozJ2H5/PK/nv+e/xzDw7METSiQS KfMH/7fB2mJZk6wWmp8bdGWFSOH9d6eBhy51MHc2M76iRwLG7jinLrkelBL9 lxQ1iUEvYe/WkNx6WCfe46soFINmSU6yamU9xK04fzP5mhhmVQ5ZurPqocSH ouq6UwydWGXU8JYGMJE2pAfVfIN4q0TFzNcGcO+LmPVsnIIODW1ty+2NsNEj u5klEUKdQ/iJLs9GKKqcmTkwKISqMPrr6LBGMH8WmMhGQshvjPN+e68RShuJ 5Wm3hBCX8PmJs6ARZC+g7t1aIawjCjcEZTeBVq70j9s5OMR22AFN3AxFNzRD nzzkgbplxddmlRbIFHLC0iJ4UJBqlSLXb4HILdb55bt50OWyvt9vdwtU2JfO 5wq5YN6qHWV8rwWaZS4MsTMXRhqJwle2rZAT43vEUHkS9tY8U2+Pb4MLM2ql 89lsGKYYVijS2sBn8AVTep4N0Zcf+Vjlt8Hn5Jhbeu5syIWM5xmtbeDXcCR6 eDEb5O8vOx3Rb4dyb49+r9iv8L83PjET79vBOtpCo9N3HHTLtYbJZAZs4DmN Tu1hwdEUucf4CgaIqjJ0yUYsyDv+tZVuwYDZf9T325JZYKFTXZ38OwMGD/sn 670bA6cY/yydMgbsZH0PLbceA5tHXoWZGzthmNr7cGbDKAT4Ffo+H+6ElLwq 0XTAELxm7Wxj2DMh7hx/FXtLL/Q5J4pS9zIhtYehumlBL0hKP6xwOcgE3zXa i8oYPWB70S6gKYQJNQLd0e0hPVC1fKMEu8uEocMF+SW0bqjepUd5xWFCvu9s 1LkFTHhXKIzKzOyGjIMnNQLk7VAb+ni1N78HApa5Zbkya+HfybAwP0kPmAlC loZfrYWCk1vfBpF6YZ2tjU8jtRauBX88cka7F8q5EVstaTXgHKiVfdW+F7gq zuffBWDA8L62sjSlF7Ba6/6N829hyDlcR/mXPvDifnegNb2CaRMHjZLwj/A8 qqdlfVAcKMmKNVcbD8BmRcrZRRcQspn3f32odAiWishY/aJ21JZE7aCbjcCS lrHqvft7kMFtnuwffBQmXfMf6ir6EU86MtxrxQI9iwV1J7jDqID7tkU97Qvo m7hcaFGMIfU1fxPj4+OQs9vRuS18HKWcqgjOMWJD+7ovy0wr2UiyvXj8ZMIE zNP1VB65TKLoTfXlK+o4cOfPn7bhHB4KplJy7jRxYOBageaQmId+t7mUrNbB Af2x3LWdJD7atpUaqNTPgTGT8tWtK/lIyalAA8c5IHnqbKq+j4/S3ZNCG/Qm oeyDeUBvER8VReyiREdOwtBNx7HeKAEaKa1P7jLkwqmA0L5UAwJ1ChbwN63n AuWW/OD+XwiEWex2ybTgwuC6Cg/dbQTKKWpQ87LlwqiHtXPrYQIFFtJTh1y4 AItGcivSCMR+3JQ+EcsFL/MTLp4kIRKktGXMtXPhimdZCj9GiIZb1cR+3VxY ddyjMu1PIepQ3e+BfeKCMG+V0Pa6EJXebNe++oULVc/8up5mCVFEUkeWiowL yn62uxrLhUh8sfP+ciMehL7MpF4TC5E8tOfhhnge3H3/oMMlXoQ8bHzvWCbw 4I++YBRwRYRekNnXrZN4cF+XS0n4S4T8aNJzDmk8OBd+Nrk7W4RqGvSc3fN4 MKS86PjXtyJ0gxIgjmvhwUf+uGvNvAgt7xO4NOnxYepQtdvS9Cl0OjfGqd2A D6lFDzqP0aZQ/el5W6YRH+IyKMs/5E6hGGWtn4cs+aD8c2Lwk/Ip1G9FlRFO fBh3rdWcGphCT5Pjn+mG8UG62CRnodk3ZL5jsSL4LR8esw5QyN3fUFlR8fpP GB/oxq8uqox8Q1RtN/d9dD6g4Ec6RrxvyH6CVmDexYeTB56YPVAWI9dUs9+E bD5Y7ly1+epmMYrs30+7sEwAxke36Tx9LEYSp6karq4A3jF3rdYsFqOLL+7x fNYIoLtpoDq7SoySEkYcHU0FUK/o9lF0i9E943NflRwFED5gKVFVm0bV5zI3 pZwSwOu4sq05idPIcXDL0bkzAoi+379v9PY0qt31+dqZaAEsrKLc25EzjVp0 TfrdEgRA//KvYyiaRkPvKxN0sgRgrqqvd2J+GpFUB9ueYAIg35xgPrguQUlR CRINugBS2HFLHGgS9NPnnymJrQI4NOsjViuSoGVlp6OC+gQgW3vlvE2HBBkd Vqwy5QvgAWViRetKKdqbZxjyUheH9Z/YgfxKKaLS1E3o+jiYsmZ+i2yVIkqa fHzAEAe34q55yxEpmr3QG7jAAoca8qcC98UzqMT9lp/Xdhwuxe5x8D8yg5aT RZ5zJ3G4WeoTJlCTIZL0s/ayMzi8MxAe/8tIhvj8lm6TKBwMsCCfWHsZov/I uP2BQ5vdRvq+cBm6UPb7/vw7OFhmpP6q1S1DI8ewXfve4MC1+TX8xstZ1OZZ ouyH8B8/KNd5M2ZR1W/ZtZH1ODwMayMVC2bRXdvo7Y86cFg4ZEQdNJej3Rqm 9gQLh+ZQO5KkVI42LdSRK3NwwC7bje3okqO1cvKblQIcPG6HzFLFcjTDHrR1 kuIQ+VNcupn9d1T8Id06awkBq+fsAtb0fke08ktT/2gS8Ayz0Ayb+46Sik69 /KBDgEifVfzEZA753du5kWNAgEpmDYxdnENaZ6Rm26gEkJ/SwgytFUgRND55 wI4AD7t5H06QAnG9u54fdyQg0jM7UZGlQPW7i03SnAlY4vxMLVChQLFrjq0b O0oAHo+/CmbNo0A3q8NDAQRsrkuZCtQgYa5XyX99DCZgsZ6t2l1LEmYymS9q jyCgpWB9NTWChC3TP2/cfJ6AMv/rPMZdEjbnuse7Pp4Aegwv5M1rEtZTzsHe JBFA8friO6FExrCJanHFLQK4ETdXhJiTsWK9ZNOXaQTcv7Sv8qUnGbty+Zfb f9MIsOgWdR0qI2Nn/lXU5T0mwCEdOWiNkTFvNkP6OI+A2KtNuie1lTArl8hj mS8IYBrO3NJOUsLCTmkL/UsIsE7afGU0VQn7D/KF+7s= "]], LineBox[CompressedData[" 1:eJwVj2k8lAsbh5kokm2oTqIOUtFCSeUkd1J2kqWRstRUpFJoISotU/FmeYtO lkKihEalMQn3nFJJZa+TIgwRwvM8M8Y2PG/vh//v+vL/cF26e4+67WfIyMhw fu//nN1yMX/BYgJML5ldaI9jCGwGi6dHLiVgjOH5MciFISi7cjtz1IiAuiBp C1uVIbhfGtwkMibA849T8UFpsgJtD1ZwyGoC2BZv17/bLyu4PgAKQ2sIsIlg SrirZQVn/1S36DMnABrOnzNplBGIn499CrAgwOnK0e6DuTKCIHfh0R+WBNyt DzcPjJQReF5+mt1uTcD9J6zWZUYyguW/PJX+dSbgVvAh40JjGvkeThjrSkAp V6qb1j2F1uWbwyzdCTCsEj3szJhC73jjbzleBNgbFl4f+mMKY0wU84+zCXiv 80GQoDuJmim079IDBGzc/XlHQ48UM2UlzJZAAh55GUXEcaXIbxCetg7+3WcR s0DfWordx8scmBEEBOSlHFSKmMDQ1idTryMJcJ7Y9V8b+wmc3Jr3JOIsAbnq 4WkXtSZQc+5NrY6LBIhkD6g04zhaPz/ax40ngLw89aJfcxwzJ/Vine8RoKMQ +EhTOIrLD8yzlL1PgJdM3uHYilEsqVGlivMIECR5uyWkjWJNhnSnNpcANVlQ MWON4qTVZ8P+5wT8knM4Ft00gt6XY95drSWg5G3g7QVdEuwePHfGooGAN2mT 2Q1vJRjCOrmKaPrtTyYOdORL8OpSdgrrKwFH3oexFU9IkFdtcXDxDwKirNqk VkoS1FAlFCrHCeA2t2hVbh3GhvLYK/aTBEyzD8/8bDyM1w8bTK+lCWjP/nns T61hZFZ7T/sqR4J5UcBLzyExMjmvJ4dUSFDZw49cli5GtYlUar4+CVlMLHox JcK6PLOQLAMSZOUdIhr7RZjoVTe0eCkJe9gfX2o2i1CVJz+wagUJup7leurF IlQJOdZju46EutLLM9oOiXBWz9aWMEcS1po83+0opPBDcrv3mDMJBlEaxON6 Cq9tiWw+60oClby8df0/FCrdLfoc40lCdLxBb04mhTN95tdn+JGwSmHtDsKf QoVG4vX7MBICyeqEvm4S5TCNq59OwpjasscT8iR+tdhi13aHBM/qZq8bIwRy S3+1p2aRkBGUwtjSS6A3byOTeZ+ES+uWaA99IPBxYdtxmSckpPCNxtnJBPqm 6//V+pYExZr0MzFGBPIj8itvikigwbd1dtUgxo+4+7hJSEi6L14UXTSI7BPS YeUxEmz6ZsxSThn83e+8hDNFQu28kw5xQYO4P3AoJkyRgsSKPU06qoPIZJlu c11IwXz9zkYz3wE8tOZFs6IjBYJdpdlrmL9QUPepgO9MQW/lzsxnU/04+whx LsCVAuudtXrb+vsRcwwWv/akIOqkXHt1ZT9qzE0MjfanYK3VvtC28H58MbZP aeQEBea3cr65/uhDJVTZ2JVJQX3JfneNml7032WodiObglOmq1/alvfisxHr TqtcCtw/rNRMKOhFP5OImIx8CnRoj1rP//Ti06zOT948CpKDK/lo34u7LvGD 699TML2cvaPn3U/Mt9+bWSGhwC0sMfbB5x5cs1zXEsYo6HCPkpFU9WCFSvs3 nKDgk7s3x/VFD9Y1+sz9R0YEe9IbApZn9qDYZ2f8q5kiqN44zeVMUA9ahrpG VS0QwdjgXZNQ2d//VEuvBhsRtIwdnLl4fTcO92updd8UgX/xuln6r7sw6XbP 2/QUERw2uZZo8bwLTbcVn3NPF4Fb9N+P/Qu7MOSJ85AgSwTF8VrXqpK7cCA8 uiatQARPU+THNQO68Id897XtL0WQq1P47YZSF35a+FixfEAEI72POqt2deIz d9tpSVvEoLvqip7fHCFedeRztG3FcEtbwXG3shB3Wxsq5NiLYUSFpeIvJ0SG qZIyz0UMC/LrbCKpDnRh1s754iWGq5ELC+iaDvxZt8NI+4gYQoQ5X8xjOlDL 5cD2e8liGPUT5m9mdOA5O05GcbcYEicsv2+Sb0fdVocv2ZxhYI/bMkLSWvCv dZeS5q2WgIPldcHwoWbcvaB2TLZRAg9X61lJv37G4eo44bHzI8CetiwxMbgJ b8n5HndbNArPS6PtIkMbUOP7s7uMylHw73i914lfh/JnznuYh4xBZ9+JghPz a1Amz5crZI6DxrG4pFMe7zE0lRvHfDkOyqXec15lVWH5sqsK6sETwFGzLT1j 9QbVHUKXX1CRgkYH+07gpkpsWVHXGFEmhdOiVXcYdi+x6A4s6vKdhBvc8fFl 6QL04a5V15mahPh7fae0zCswmpN1vuXhFAibHkw32PQCC3/qpKk40eApYFWo 8/h49TbH/7sLDWdiFTTN8vm4z23A4NF2GqSnL4TuzuSjdllZkTOLhiUrt20u ieVjbMKuN9f20uBxamQ03Y+PgWtTyJkRNNR0R+gvmclHvUuadjNyabBViy80 3FuCU+ujlP99QEPRs9y4alYJNg90NuTm01Dfft7iqHMJJrKe+tg8psFRlUO/ Wl+CtJFbGKeMBlWWdl+qagm21CfcmdZIA9+4slZazkP+5RF246ffvtElH5qf 8jBpg59h9hcazIMlUaV5PHTMWVm8+TsNzm1pxOVkHpaGf3x3vpeGgqD0Yccj PLy5wixh+y8a+vUnfWzYPAwRpnvoDtGgwHA6vGUnD5c6HW4TiGmwSJ173HEr D+Vkm+4ljtDwMdAuyGMDD9ufbQjyH6fh/cVa2n8VD8uCso1NJmlY7KpoGrKE h38vVBqmaRpK9NwZHB0e/g8sSYwX "]]}, Annotation[#, "Charting`Private`Tag$6804927#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Re(\\!\\(\\*FractionBox[\\(Log[Log[y]]\\), \\(\\*SqrtBox[\\(y\\)]\\\\ \ \\((1 + y)\\)\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {-2.31927587247676, 1.4627893608945206`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.795818012030492*^9}, CellLabel-> "Out[887]=",ExpressionUUID->"135ef12b-b9f5-4f15-96d8-1a5c76a739c0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Im", "[", FractionBox[ RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}], RowBox[{ SqrtBox["y"], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7957621068102283`*^9, 3.795762126125455*^9}, { 3.795762218403481*^9, 3.7957622379071903`*^9}, {3.795817846559164*^9, 3.795817879499946*^9}, {3.795817933637628*^9, 3.795817988049005*^9}}, CellLabel-> "In[886]:=",ExpressionUUID->"c598f926-8cce-470c-a043-71fa35fc794e"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF0Xs01HkfB3CX1CwnzWgGucSMdGOZJLbSfr6PaCi16xaVJlESZYvZjW4o 1iVUSyomsaSLEOsWg1nX3C+NhGKbKIn5NeXSjPDsc85z5vs5533e5/Xf+5wP 3esXp6MKcnJyf/2b/zUUKKvuiC6B/olnxm7BBqj+Ut/+xRdKIWldkOfkAgN5 KMUXl94rBUPzBlH3OAN9jkLk4+2lYKBSv+xNHwPpx9+vb9ErAxcne3F0EQOd v/kr83pNGYgPVoV+9mcgs8eUxTqkcqh4+ORikpCOmkzqPduY5VAonCA0uunI syC44uK+cmiJoBzm/01H8SVDp948Kgfjv8PUL2bQ0Sg/dyB7dwWU/OJrnuZF R2k99gUbEnlQeePA9KKP+khlIdyDtbIaHrkxLUIp+ujWcTe28Y5qEC6dD1BQ 0kerBMaelIBqcLKxd94s1kM/Puz1HqisBs6eXvJ6vh56+jC5uNSED4m6KwXa nnpownmct6udD6aU+vsd91ci1wc3W4KW1oCyDcnb3VkXcQ9ecvCh18Dcdfe4 jaCLhGon29w31YBULaDKxEgX/XLBumPbwRoYyNQZvayoi2KcJrqX5NaAKIdq m16sgyq/WfenOtTCEXH0Hx56OsjQUTRae6UOGDaTnKnF2kgrlLXlWEYdWLPP rHg5qYXIuelXlEvrQKOdv+2FUAtJSc4mjsI68Fi1mzCo1kKd/NKgwR/qQW5r 9tW5YC10lhk+/3WkHs6SgmJPi1eg9mVUqglqhN36P7Prv2ii2m0nj3a5NkKM llVAxrAmKvNvKOH4NwKHafj6eo8mymwM3leR3AiG13ro+aWaKDj0dZrdRCP4 31jt/+K8JmIQ2eu8U56BYDDmdaGyJjrTvhluTTaBw7u+0MSNGkjVpHikidQM tiyrJ9FrNFBWPDNuVqcZxrRFIVe0NVCXw5o+tm0zRHFTg54qaiCjFmqQYXIz 5O7dwCoSqKOhRiK70LIFBH7+IeQQdcT6+55q29lWuFvEOt3YTEOD+vTi+YRW oD2z09jOpyFOGPcAM7MVap3iUpqKaSgDEh8ktrRCTepb0XQ6Dc1Whlnv12mD cy8qujvP0FB++YHf3le2QbLlmw2Ba2hIo4gyKC/fATkDpOqv8VTkETfrMqze AV7z8Smjl6nozyMjLQ3GHRB1yKxPGEJFxrSnT6+4d0BAetTm6aNUZP2b5w3a kw4wurEnM/lHKrLgumUnmXaCNS/i93zxcnSYnX3wwWAnHBiZTRCwl6MS4fbW DqtuKKzZ4SpyVEMv7MLF8axuSDm0pmnNTjU0nVel7uDUDc4GrXK+1mrI8tzm w8+OdcPj5PU3vpmpobLlptP8P7rhws2Bnb9S1dBTGy39wtFuiNRgfeS+pCBe 9qegpKTnMJNgnRR9lIJq/O5o7xsXQPb41hD9a2T01wd/f/a0AKyqAkYtYsko y3dLhbdcDwTmD1x3jCCjSJ/e/QHUHjCY/hyaGExGdl6UlMtWPSBml1rbHyaj jn2RmnlxPZAnn2MXvJGMXtmdpCl+/wKebOKTYouXoanV25blnuyF2+dod319 VZGCJIesbdgPzuF03b4xFWSx4FninPcKXipPyA2Mf4daI8zbG9YPwWBo568u P5CQ3rWPkoeif4As+P3sT7cWo48zQ4M9TCHouM7fLkZKKGusolk14S2QYLHj g0lFpKp7nxgeHobzBU2dml0KKO54sU/6qnewd/tYmOuAPJpGOcO+oe+h4bFt 1q4PcohjVlekXjsKgZryzz215dBQXt2VLvoYPMh8FxWSNg+zfoLUdWc/QsFw y3pX0zkw+s+SeZ+KcYj0Oed39MsssP6kHyvQEAGbHjaSWCIF81uqqxt0RMC9 fzjVoFAK+gmzw/10EVz7aYFblCsFaUiP1yJjEYSsMA/vz5JCrmMM2w2JYIuV pHJTohSWy4td53xF4F+YE7/ulBSGDvFt7MtFoKMpz1MwkkKra64iu1oEsdK+ /vLVUijblVITWCeCh6s3mHMYUvjDkoO47SJQVGMlja2Qgu2ytVaEUASW+Smz IyQp5FRd3XhDhYAaTcak+nsJnNE9xHjjQcCp/mYldpYEvH5m7n11mICAPLMt jukS2HNZPrbXhwCPrtPxtlwJrP6QKW47RQDnXGbChiQJCIpG+eURBEwl6hPq ERJgOgQeSnpMQMujwlr1IxLQCd2eeLWAALNAn3xtTwksKaQ2xpYQ8HqmtpDu IYFBjVKTcD4Bbe5P55kuEoh7Ozt3UkCAOGLHXQ8bCQSrt2043kdAX+bCVj8k AW/7tKNHBglofSscD7aSwJZ81LZ/lIDjQSdibpv/u09Ikd87QUBX3iZODlMC FNpbc8fPBFwUBpyuMpbAN1aRr8MMAZorHoV1r5XA6NlILusbAZduhWS8XyWB sb1Gvhlyn0Du/+f5abmCniL2i5hvqVwl7F0GI5u0SNh8XlvHTWVsi70lx2lL sRkxUXfIati3GKcsE6jYqjz3LhUNbIlondISHexOl9YTc4bYO0RFi8+txeZF 3Un/uh77fnmA4Isp9kV9itXYZmzjcVeV3t3YZS4O1bE/Y2+vtA760Rl7f4Lp wD137Bjmdzkcb+x3HN5OtRDs9DlG7O4s7OXLPpHqpNiLqlPzDbhimf3NK/q+ 2/VZ5hx7r/Sqaeypj1rkd8lfZC52Zikm2UzKHGoXebfoHTb99c6XmZFTMm+x jEhaYTYts8fKDon8c+yp5njhqfAZ/J9FbI7Tqq94/2Dxnwp12EoXwl02n5bI LPeQnS9Uk8ocmJIfr1aDXWkUTaIEzMpM2RlofEn1m8yvvu98HsLDfpIGq4bZ czIfzLeg6M5jh0VmhL96NC9z7qhuqqrDgszRdyI9B/dgH3GaMMxzxNbh8Z7s dsOOvXqgIc4L29fitlg5BJsRQbVbko09/8P5pb0PsPsm3nZn52Bfc/vr4I4C 7IX1TkGRPOxXXVfTFJ9jl/0+4/28Bztp66F1mS+xd90zKbIexC4PbmsK/4Cd /P2mq47j2KeFXBc6gb3W4cQQfxJ7kbwg69oM9j/FW/08pdg8v0xT5hz2TT2V qYUF7P8C2K94kQ== "]]}, Annotation[#, "Charting`Private`Tag$6793060#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Im(\\!\\(\\*FractionBox[\\(Log[Log[y]]\\), \\(\\*SqrtBox[\\(y\\)]\\\\ \ \\((1 + y)\\)\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {0., 9.73504009201763}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.795817989955454*^9}, CellLabel-> "Out[886]=",ExpressionUUID->"c6e4f1fc-9565-4ed6-9c38-fb34fb3d4aab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p12", "[", RowBox[{"1", ",", "1", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.795818059742902*^9, 3.795818073641395*^9}, { 3.795819316695798*^9, 3.795819316974922*^9}}, CellLabel-> "In[919]:=",ExpressionUUID->"ea5d07c9-fafb-4ae7-a531-43c6cc852876"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.7488605867217124`"}], "+", RowBox[{"0.8224670334241143`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.7488605867378593`"}], "+", RowBox[{"0.8224670334241131`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.79581806173702*^9, 3.7958180748820267`*^9}, 3.795819322063163*^9}, CellLabel-> "Out[919]=",ExpressionUUID->"0fba519e-f992-4e2a-8c79-2b64ecf190e9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p12closed", "[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "//", "FullSimplify"}]], "Input",\ CellChangeTimes->{{3.795818088018911*^9, 3.7958180978933697`*^9}, { 3.795819321096854*^9, 3.7958193213235064`*^9}}, CellLabel-> "In[920]:=",ExpressionUUID->"7114a517-38b2-4f36-bfb2-ad96175101e9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["y", "2"], " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["y", "6"]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ",", RowBox[{ FractionBox["1", "6"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "2"], "+", RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox["1", "4"]}], "]"}], "2"]}], RowBox[{"27", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox["3", "4"]}], "]"}], "2"]}]], "]"}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.795818118982945*^9, 3.79581934225113*^9}, CellLabel-> "Out[920]=",ExpressionUUID->"6960aae3-4203-4c4a-8352-16697b2280e2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{ SuperscriptBox["y", "2"], " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["y", "6"]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7957621068102283`*^9, 3.795762126125455*^9}, { 3.795762218403481*^9, 3.7957622379071903`*^9}, {3.795817846559164*^9, 3.795817879499946*^9}, {3.795817933637628*^9, 3.795818010787426*^9}, { 3.7958181378400793`*^9, 3.795818141976981*^9}}, CellLabel-> "In[891]:=",ExpressionUUID->"5f60dcab-c080-4568-b2a0-fad8d572bf51"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVl3c8198Xx0lJEmWFiFL0lTTIKLzKKqMihIwySyKVlFJGZct6k8omoYyE ULmSlflBRvbKCp+kIko/v7/u4/k493Ef57zOua/7uFusLp20XcHAwKDJyMDw /1XLdqypdNxWWaZkPtJF9afiSlUB5z5+NXAZBVpwqqUrS8dHx7ziN4BS//Xc J6uqlYcFt3ldF7MAkwMZ1hTtVNaub8+N5bfBR0f69cSUEeVtQUJP/wnbw1A3 UpBdb0b5j5b1Q0sxJ2jNn0ySvDWvPHHvU7ll1GX4pfpGbrVhgJHN3Ltwfhfw +bFUu/OtQrmqwOsPMa6oplf/NTZixR5RpZwfwm64+0ZKu5t9PWJWnE3fnnwL Txc1fB1luMAy6J10SuwOZgvonvxPeFHc31z/wcAT92J+/8o6LABnXRstsygv hF4PnGIX34ye3b6qwfz3oCZs//SfgSioeL7S7ab3obey3a0uaTu0ODIUS2J8 wPv98Ulm9h0omK7bTxf2x9TAQg7TwV24aGGR62sZgJdNB/9+X9yNrQ10KZHk QAw0yLHpX9yLB5mcO/TEHsDePbB14rIM1IVSUsbPhWAu54hMHYss7lQ+Xv/e IBQ/RCZ8W1/IQUZWMtgkKgxP7PeL5W06iASeEz4B/BRWqJtv5T56GLfqH5af KqawLom1fUhdBafu968QNY2E6NtbymmaqmD7ednjTUwUWq4JGVdZqePGJ+rG pPAjnNoRfOjmZ03oRXReOC4Wh/OPuKwUv+hBUls0XaAqDm78ra8GQk6Cheni 6Mi5eMTu/xXPqKSPM0VLL4lBAvpP3BGJjDMAz3+hUsZRiZjxVTykdccIXiyv xP35U2D4elFELMMcEkfC/HKdU+BqnOffGmCB5vuXxruqUtDg4pc663gG25gk n0u5PkX21nXvs2LPovJvitSn5lQQlRKetW5WYJuN2i8clI67ES2sljZ2iO65 qZq/lAV3i+TEmz+dcFjQJKXXMBsdpmz6X+5fwsRpuVUsmdkQkVkrH7zWGZsn 3awzd+XgoNHqtq+xzrhkL7udoXuZB33itlVdBqdNdtpT+Vws5Ls8lJVwgbFJ Yva3mTwIh0x8f7/DDfQuA9YkgXzsjpeyNbzmBh8LFlt91Xxcza4X5i9zwyvr SwIFVD7Sep+t2WV2E+xOSvdvyRXAYdxC6Hz4LVR4fz7NfPs1dAt4disw38G+ FxuYBVmK0a6bID/l5YW1/7zMjmwmKGnlWPr4wAfR9kYWkhoE0QZm/6QLfLDt k+TZDU4Eh+W0ciJ7fKCc3m7d9Y7grjrjMWVJXxSlR+W/liqFhbZw5saPvpjS n3yr3VCKj8Osx+4z+MMw7WHt1XVl+DmhdWCbdSBizL117LaUIWCetzzZLxCD nI71xvvL8HopM5ItKxCXbqs0KpmXwdUvWzN6PhD+J6eaV2eW4cRes8DAoCC8 +6PS+UTnA1p4/K3vZAdju9702IfAcpg/LeDx7A2BgMeRA+cSyzHbfKmQYgzF +syEQNbX5XDY3F3YwhWKBRZ9Kb3BcnTnxFAc8qGglb6+2itfgZszieOuHqG4 ucdraf5LBRTu6KRXrAnDJYvOEzGLFdjucJ43TiAMNkHSidhQCX1DbiuznWE4 MfZF1UexEsOcwTf8dcKwLUHLnyuiEnqVTzpjg8PQwMHNLXWoCjpPHitdZg3H ByVH2ybDKniaNCr78Iej0KGywMWhCkNHN2S67whHctUNkzdRVWBIdM5j0wjH DY+euKNTVQjzsk576RGOrfTU/6wfV4NFUptOmwzHRiGGW8w51Whq3+HU9Tsc bNomdekV1TgUpzlWxhyBudS1l759q4Z8TcRLcZEI1Fk4590+8hEulGbDIb0I XG9QQPSPjxha69Vy5UUE2KXyv3xkqcGODtvMawURSAneE7QoWIPfZtn/nSqN QJOO+GcL9RpInObdkt0SgZ213Fe3R9VgpqQyu3g+AmUSofxGGTXY5+55OIWR gnHA2lK/khoQXEuxZ6VwX3PFusmRGjSyi/z02UShr4qemitXi5rYastVihRc xR2ODWvXwupNjVCVKgU235FZnrO1kBmN7bDSpqCg0XPIza8W1GE+S/HTFCLK azrxuRajWq+Me69RkNim4XV5qhZS3G9T7d0plN59L57MWIeS8ULhem8KUyqF LswSdSA24mmbQigcef+Uvf5mHWI1A9JoTyn0imzJX3pQh9tXuYZ5n1Nw8Ywx 3ZNch2NvOa5J51BIRERaRG0drA4JvJguoiAfz36ioq8O62WvdAeVUGhY8v/5 a7YOb8JorgwfKCy+81Q5LViPUP3+v3a1FMKF/owF7qnH8N44F5NGCjtuXw95 p1aPawq37EVaKBgqOnWLONbju6zBgEQnhckn494nveqhES447dhDwXvR5r97 kfW4kR8TdK+fQnaxqevou3rk0RjDd45Q0BBoF+Rvrke+kbP3mzEK3W4nP2iN 1IPjUfrGzV8pXPlcb+++UI+/NWa8+lMU1ihors9ib8B1sz2qp+kUEqLLC/q2 NuBj33sr6RkKsvMw3yDXAK2fTxV6v1OoM3rDpKrdAAnZ80Gnf1Cwfi2b4XKm ASeEA4XTflJY4M3VTb3aAPM/vq8rf1EIdd011+7bgJLmBr6COQpibWmxa2Ia 0KpTudp1nsK7/dvUDuY04MjT2qPMvykYRMZPXCxvWK53X4LdMk/8EAiL62jA hr3qzVHL7GkQJUebbMDtGdXk//PGvA29jIyNiPCybbddZrOgRYNh3ka4cI3W /V4+P8nmS22lZCP+/WLhM1jmUcVGlXSVRhy0DLzospyPJE9RUaBxI3bGidw5 vZzvlamkPU5OjVg9e5GBebme1xVBz3TvNeKZJ/Mz11kKf2JdN0s/boSQ2LXt L5b1UXE9G8mT04jj1vt2py7r53dci22+ohE9B9Ov2yzrWy8mc7ezqxHiArK5 IxMUOP8JLbydaYRerli45HJ/Xny9W9jIREPul6Ka/V+W56d9fraUnQbeVGGO FYMUZj447s7lp8H58w3OsN7lfsQYpVK7aQjXVtr6q42CiV/dwP0DNJQJxlG1 zRTcXQ4LXVenYexYT5hVA4X3OjspE1Ma+PbIzbeUUxiWT2jUsqOBOb+mMpNQ YN7Os1bxMg10VqmvR5bfcZ2/S16bfWnoNkj99yaLgtP41Xcc4TSQ768MItMo hLWOzTPE0lDi4f1xVxKFtszmS0O5NDTGx3c9pihYWqSap/XSsMZucLO5K4V7 WpsePRqn4ZT2FbqYE4VU2dBPAT9oqCL+zpm2y/PNflPbkbUJF1de0qbrL99/ ckxhn2wTeD8KNyvtovDoeZmL6OEm8LBcjhzeSuHtQ7kcbp0mcOaWRqrzUWB0 3iI+Z9kEtb1qnPtXUAgS+cn9NrgJ7zyVTd43RyCL7YJuZnQTrqhYW++tXPav +d7AuOQmLK5232dSFAHepuoVXkVN2FckOtgQF4FEr5hv6l+aEDVv3qppF4GC QdW6RsVmpPStUJIfDUfbUa+Z4CPNGNFhPqXbFo5fWSW8OieboS8bxbi5Ihxy txQsq881Q1bmXF9H4rK/c+3+VRreDDsjRtNyo3AUqQmI5I41I01rp9Lu/DB0 ZhipO882o/j4v8fu8WFYWB95QWqpGRoOoyU3/cNwoIcjP4OrBTI1kqJ+ZmEo vrZKK1m5BePFpL93KRRvU79dpagWjGzLWy0vE4puNqlHJ+NbYBj//YQjfyj+ XHEoWZ/Rgr1mXH9i/oRACSMswaQF7iUNiWIPQlDS3hV7f6IF0qZFlorpD0BY qqpcD32Ch/+dLaMlQSi7ELvJZPITBOb1Tndb++HVuIODxa9POGAi6i8h5IeU 8wfeWDO0wkeajbG11Rf37dpPO3G3guFJwRtFdV8ctdrw+K5iKyJvCw8eFfRB o8l9vqyg5f2CTbl9GXdR2qF//lVUK3YfGD+UZ3IXOUZbCwsTWvFt5Z6q7tV3 EW5IjD7ktSJil0uyuJU3Tun9juroboV2QvSXSHYvdB915GHa1QZ/JcXpt0Hu qK86aMsi14ZW+aGXdp9uoUSDNX/d4TZ88fb0fCZwC/Fqzwz4DNsQW7GwOJ7k tuzjAxG7brfhRlJ0gEGSK8bkDDmN69sQfa1fkGbqjJ9iShyZju1I9r3GHf9A HcqDKlUBN9rBcnP1s58XDsIn9qjH+bvtWONdWSMtJw5ebgO66KN2DJoN/845 LUNkGR0aH5e3o/IhJbnigiG50RUd4repA6SIZUDqjQP5E/KDw+ZjB/xUOpxf /udJ1LQXqg5/6oB5GEdAfoUnCWJm8BTu64DMs/ULhVZeROj22m+dPzqg0eHy vjTemyhf2ErTE/mMXX7rJMe23ycearqhuP4ZujE7J+StA8iK38/Xb9reiRnW QmaPlnCyqV5lFrs7Yf1rw9HunRFEJvFzq41CJ8RFG3/n3osgtpqrn2Qd68Qq xtnBejmKVD+y2q7i2onHUcrKZcmRJOQA/wH7qk6ErvjUOhYeTQTdfaxf23dh G3Vk8hgtjuzXFdLovtqFb0/Kwy/Jx5Pj2/J2MN7pQproGxvuxHjiUTcwpRXe tfyvSrX6oZBABgWVbvQWd+GmzRH/QY5Ekv5uNmgVWzfSJY5bH61OIrL/zhbo Z3VDVvtt8fGLqUTnWKm3emE3KF6Zfy+epRLrJ8In5Mq6wdEYs+bEUCoJlesd FWjrBt+6oVVnTJ+R8Uum/IN/u3FSjzsv93gaiek3dHc+1oNWCfcMTZUMwlim pRI82YPMb7raihZZhG99BrvHrx4EW3b2miZlESmLNV3ODL04a7tz9MNIFjm9 UHXVgLsXnWNzXx2ds0nePvWnmxR7wXTDjB6lmkPsksGSEdgLxXGKC5YvSd09 mYZKiT54Eseu3MJX5ABH7Yqw/X2oMZX+WDz4iqQ9spQzPdQH+bgGoW9seeRu 1oMEumEftnjJnx6yzCMHOsau8Hn1IWd+On96XT5J2xm78UJ7HxhMI2IynQqI yrh3DrNKPyrPkZPO+kVEOPTr7/TpfhwQMVfZmE1IiaVHeu5sP+jCRbUhA4RY SHOZvJnvh5sm5SjAWkpi2g4U1q0YgOVoqf0KpVLCJxTgSucdgM5/Puv6kksJ Z8aOWRkMILvqbGHztfdkVbntJAkZgFnOB6N+iQ/k61xfb+ueQeRUDefZd1WS gnMhZVqyg3CQHnjK+7eSeLYrp5KDg3A7wLW7f3MV4X0d65iuMYjyHuM9H62q iIqr6R93s+X4+TXzs1+ryOMfbfzb/AZhULeyOo/pIzk6U29wpW85vkk3datm LUmZeFPD/mAInsl9ymW8NOL08ITohYghhHL55U9J0Iic2tCtiughBOnPfhMH jdTEsu5yTx4Ce3VGWfU5GpnRNQkZLxyC+/MrO94W0Yjy61/65UNDeLi2N/7i 2Sby+e7eHjeFYYj5laxlKWom7ELP6MPDw6C1Xi7LfdhKguzz7RK2jUD9lnpc UlQX+XXo+fB5j1GYDewzo3wGiMu+8jzeD2PIfTW4puH6F9KXVR7YtGUCM5yJ m24cmSC0qZWT+8QnwJdVvDXWdIKUSqrrUJIT4LGz+lB3aYIkZFSwGclNQO9d 4xqd6AlilVoZ3K0zAdXNjmp14xNkJLY6ZPT6BDZ1WgoMPPhKpoLqIv7WT+D+ cTGOzwOTZPHCpyf/3fyKyLY9mzfl0ImBrHmYlMcyrzm2d66CTl4wjvhI3/uK rzrcKwe76MQieu6y0oOvuDKoofCd6Rt5XyFwVC/pK7zlL0jq7vlGfEUsf9yo +Qq1lmtvAwK+Ea62KZ1qgUmcXKw8FKY+Qy4muqrUC0/ito/Fp3C9GVJ+8Z9c 87ZJFNhdfxhnPkNcmTaIdktNItjswtbWazPk8x6Z33SVSRQbl6a8T50h8YE3 n250mITY/iqmfNbvZOfh1Ut2byYR1H4gjq37O8nJeC7eUTqJkmnR9+8mvhMZ bl09zcpJpO4deen5+ztRHI1O2dk0CdE5A3aljbPkeLCE9reRSVxXl/N6qD9L rnw+Fu3GOYXyv1pSG2mzpOgytS/Ifgo9M0Oh1Z0/iHKXvNlfpykc7E4LOD35 g5Sp9dx3cpmCOePBbNalH6Rmo9hnXY8pXHzP865qy0/S/e61B0/kFPJifqZW XPhJGFi76uJKp6Am9YfdlukXOZK05dzLjdNoyRqtWjCYIzLR7GKVgtPI284p pXFhjog8WBzu3DKNACdB4QqPObLg1mq1UnIaxQsZF62ez5FMPX8Lo0PTkH5w /oHyqnnCxThj+Pf8NILSNR5+KJ8nDHM93JxO06DIrQF6zzyZnKxpEbs6DeXM iZjzc/OksiNFT/f2NEzFEzuP7PxN3HKMjyWHTaMx86bn36jfpO9MqZpm8fSy Sf3pj/VcIHWGmUwWZBq1CveMy+MXSKH247Ir5dMoiFvbZksWSLicy6GYhmkY 0/fWSjAsEnWOHYr0wWkkzK90g98i2beKZ5FpbBojSmfek+eLZPMiYzHf1DQy DQWkhhoXyfxIl5zK3DRyfXi4dwn8Ic9LQqQj19KxfbLnYtTrPyQ6z/17+no6 Tm+2EZ3r/0PuZdi/LOGh48yFDTcV1v4lFlGqu8eE6dA/MXsnyOov2eA0J3FQ hg61L1GRhUJLZMl6ePyEAh3D1bIal04skQmTpjQbZTrMBa1jnL2XSLn6c7EH R+kovzv3KmZyiVwXOrN1wIyOYBYl1oWWf8RKd8+pbks6rnWMlYSwMJQev8sY 0G5Hh5+jQ4LwDobSd4mPJP3P0/G8w1nuvDRD6f8AeW5aZA== "]], LineBox[CompressedData[" 1:eJwVz3k41QkXB3BbEXWVFiVLRgkhk0qlnGmUJLuMEmquGO2lTEmyjJ0kKfuW KMl+0y1XB1kqhmtfC8k2yO8u7ma5r/eP85zn8zznOd/nq0q+ZusmJiIiUrQ0 /9/n/I4kShgTkNd93cBDX6TSPqQ0a3DJo6FnNx/fJlKpPWUv02VBAOVHmZu1 mhCpJ80xwpqAcY6arX/PIhpX/H7TyI4ANV+TvOWxi+gYvbMv+xQBph1fpAJX LGK43oq8W64ESJJUklpJC7guUeii4U5A4yRDbF/7PGaIcuT6PQiI9gtxk0ue R2rr97vGVwn4jZy8oV97Hkdv0czkvAnQ9Uw/L3F2Dj2/lizW+hDg4REbdUx3 DheO5pZ43yeAoVXmH74owHXyTxWG/iEgbNitYiBTgMbvrv1XGE0ATSfNqoXJ x4yFXyIsni/9M8xx3PeWh9rum4xEXxCQcHz6c0QsD982yTIpuQS4DYqvvniV h03p86cVCwlYjLOqrdjOw4XDnZqT7wi4HnhA6UQGFx1Dwj+HNRPwNeDPxlU5 HBz96ed7sHWpb1D5tvthHLzh8PevRDsB2VuKpE0vcTBMwzXRoZcAox7J0oFf OVj25eAF9RECjBu3h45Uz+JaWUKqRkDAz/K7J2lMNrZWRIQeXyDgbhWlLKKP jbGXty1vFhIgGhJq/bCGjXJfHMV7JRhQM1a0xiB+ycG1CzMkBnRYUqkjRmxc PZfE3KzGgCdnLF7OP2XhyrGj/TdPMED+qPdLWTcmNj4ZdORbMOCRfuDTTXZM jDri03PfmgGGl4rdjA8zUeZZUWe4PQPGNx/tZysxUdp5c0v6WQb0ND7e/rGb gVJtRG3DTQbkcFalUOwYKIHJhWopDFBLEVeKdCKw9+AR04E0BsCMtE2GOYGF 76cGkzIZYEAE+DYdJNCx7JCc3AsGRNq+jr6lRGBx/sAtkRIGiP/RII84gy4p age+1jOAZBhn9V/LT6R659U8ZTGgNrbqoGDdNEZz7ZxtOQwYKB90vyiYQlev +dlVfAY4/CU6uTAwhaQbFtuDF5f6d15++SBvCt08ZsJvrmDCqN5wh8mRKZRz 0LeyVmGCnZLI2j6fSby0u7xnxQkmaCmQyWmi/2ElveM11YIJejqFGnaTE7j+ CuH3lzUTWh9dKVXtmEDM3qZea8+ExNFJM5ncCVwrH+Ppf44JSa7F8jK2E1jO Py/D9WJC776w749fjqMMkg79yGDCp1UjN1PdxzDvODnjA4cJVUkTNbnKI7hb W9UI+Ez4sNX+zDvSCH4gDfbhHBPOvqAndC3+QHqbs3yVCAsC15u9g4EfyHY+ Hf1RmgW31vpepmX8QCNP63uflFmw3+fTSgf1pfsko1OtJksOaBDGGQ7j7KTC 6tGnLPDZoZL2MWII41LH6lMSWaC+69DC8L0h1Lei+NmlsOBQf9GyNdeG8EaJ xUxlJgu2O8V1xNgN4fQd/6bk1yy4ExfUuE1pCEeWjUbZVLPgQHiieULJIHao FK+omGZBexjJwLdxAN/YHROPO8KG5we5G1709WPYCWqw4jE26F/ovDtS149O xppS2cfZ0HffNWp3ST+K6cusKrNkQ7Uw/bZEeD9ayjVv6D7FhvecQ/kXDPpx nP6HluIVNmi/+tliGN+HCpbuNs+fsEFOpUvnCbkX/UyD0ymjbEjq235DZls3 trp4OOlNsOGkeUWvw7pu3Op1YtPrSTacnvTnFIl345fMNY+zCDb83qi+Mfx7 F66bSw2JFbAhaJbW3JzRhS/zy65cJ81CQ7pSfL5KF9Llxg21985CTdhDnT/V O1H1q1l3VvAsDL+LehZg344R1YaF9mGzYKaww8rXpB2ZL7RDJCNn4Xawt2yw QTtWe5J2X4pZsk1lOnVTO56Xan24K3kWDtTRWgq+teFL/dPHqopmIY3ra9B0 sQ11I/4q+9Y3Cw/aFHc9imzFAwZBcZt2cUBJZ5OazDQdO8mb9qbu5kB1bP2X h0N0vBld0LXFgAMXYh2HFDvp+HqkW0HjIAdebeGDNdJROU4nc68JB+5cE1u+ OZaOYozOfDvHJbPbBg/sp2PDK836B4EcsDJwbZlSaEYn5Wa+aBsHpI5QfpVK bETSJs835R0cOEndLmkW1IhVa9ff8OrmwKGYbvmUa42ovuLM+PhXDpTfSyi9 btKIM6zRzuZxDswHcux62Q0Y+HmxNHWRA/vHI52zTjbgy1u6V/drccHr1G3r IpUvOPvlwffrAVz4Zjn6QDBYj/0yHR7z/3Bhd8udzZIt9VhtrjgTGsKFQTRV Vqmqx5imV3NpkVz4NDF09kZmPWq11q/79wkXjuV69KaS69GlR/SY5isudNb9 KyI7Vod1Y155Q61ckB2d3rWBV4sJEi63bLfyIEsZ5Il9NbjoKr+nRZ0H2XsO c3p31OD5j/RZK00elO75OdakXIN6gca3LXR5cKJHMNYiUYOfhBp3TffxwFKM mWLc8hG5ApafkTkPPNLH55svfcQ/GOGRWrd4cPtNbbXLi2pc++3NM7EaHiw/ rl3A2VuF0St9fd/W8UDem3Jm2Y4qlDY8curyZx6cDxEfVlSpQrGE1lWdTTxQ 8btPdpesQqbNzJ3cHh581BG4kLsrkV6rYWU9w4P7nMhdPJ9KjMpPnktV4IOZ u/tvXbGIy3wDTu6/wYfK5Rn7STwaUhhTfLzJB7VYCb/AERqedz+VbvI3H3L0 28+Lt9Gwxmrnf3Y+fFge5zKlVUDDoF+++l0NXvKC65isGw0lPu3Ly0rkg/lt t1DNjnIUW0uIkqr5kKRi+N7pw3sUyXUp/C4nACVW/thwCRXrprqupq8XwGO9 c5ZTmVSM0rPRddooAJODftKij6goTzXO71ASwFQTycnqGhV16zXyPmkIQPl5 jP19bSo6jTBzCowEEPSs/6hS7lt8pxqadveiAM5ZlnxVyitDz6TCB3LVAtAg P96yn07Bt/NJodU1AnhdS95iU03BeZeQAM96ARQPrx/xpFAwVM3Zq7VRAOQ5 2/S2BAqmvJZ2ju0SwPe5YskVZArWfnDTlpsWwF7j/b8d4pTixuHNDWs2zoHE FWWzxG2lWLEjTGrN1Tn4kSN/+FlaMa4x89QOJM1D5FZmh6t+Afbr0Nu8afMQ 0cESD43NxaI02PrDZQGIb1L/eI5no3Ph3jVKiwsQ6KEZrtbxDP2DMwP6Xy1C htnFEzncdMwfV0ommQuBgLU9BZeTMSw1+Nw3SyGkS/epTZxOxvO209sKbISQ 6cXj7zyWjIo0WpGFgxBWH1LfOqyajBEPz9RFkYWgcf1vr29dSeixN5Eh7S0E lhvJXNUkCX8JWmcqmSOEey4f9JJ3JOLivnurul4KwdsTGfYKidgzPdyakycE JqlAS3FFIsY4lDqbFAtBlZUx/GU0AYVatjeDaUKoqToTXfQsAftbHqaJtwnB KzAPnygmIDWE69rWIYTilY8MJFYmYJzhWc2sbiE02Fx94TsXjyeydSm/fxNC JX3C6lFvPL6/8+/ngAkhjBZoTh5IjMenOnse2kwJ4XXq2HGR8Hi88T3lpOqM EKoipsj0O/GoYX55oJK9lN/smh1zKh4lRNufx3CF4CJTjP6m8Tj4xvDiOcFS nticl8++eKRdzNqptyCEgIqKSn+NeIxXkZkVCoXwXNYnIWZjPP4PhPMK5w== "]]}, Annotation[#, "Charting`Private`Tag$6852446#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Re(\\!\\(\\*FractionBox[\\(\\*SuperscriptBox[\\(y\\), \\(2\\)]\\\\ \ Log[Log[y]]\\), \\(1 + \\*SuperscriptBox[\\(y\\), \\(6\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {-2.0251011210740066`, 0.020483357032660857`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.795818143937347*^9}, CellLabel-> "Out[891]=",ExpressionUUID->"f535d2dc-0d0f-4245-a39b-3dffe5b4360a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Im", "[", FractionBox[ RowBox[{ SuperscriptBox["y", "2"], " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["y", "6"]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7957621068102283`*^9, 3.795762126125455*^9}, { 3.795762218403481*^9, 3.7957622379071903`*^9}, {3.795817846559164*^9, 3.795817879499946*^9}, {3.795817933637628*^9, 3.795818010787426*^9}, { 3.7958181378400793`*^9, 3.795818165316812*^9}}, CellLabel-> "In[892]:=",ExpressionUUID->"7476738b-757e-4a1c-a3da-1ba36567283e"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF1nk0Vd3/B3CkaCJSHiKZK5LI0MC7kiSEiDwhKpokIhmS4TGWoWQqQxRl jMoQKTfRIBQpyRgy3XPvTZnuSfqd71q/5Z5/znqts9dZe3h/9t7SR88dcOLh 4uKy4ubi+t97n9NwM23ESffFuv3KSnFT23n1xN16xHbjUXCjse+nx7rqt5NT H4tZoijR+YPsp4+6AxJyQRcV7GEz8bvjvumgrlFj26M0seNQafOJm279pSsX JZn9V+oUlLdFfyubmdWd2XcsyVHBFcbLU8+Gmy7AaEhrrWOiO+4bPwOXvQCs j089ixPzRI1cwq++1uWo1RMvf5nqhYaQsU0uYmJQldUpHpfygeyrX19TZlYj lcchV/6uH9aOm0xpV8uAvy/4jpXCZehPeGpeNFVAZW9L40vLQNR+Z+bxb1wP N7Pj+2wTg1BR+9SSYaeCro3hetFiISBkFeW+tKoj/vY/NPnDocj+tdDQ4Jgm 9gnmbX+eGoZsjUR+B7EtKGM2aLCkIpE8P986ZkYXLvb2j8Idr+Bn3c1fzSI7 IdPEUllz9yqOVD6K2FS9CzGFwmvNFWIgktMnfs50D/Qls7JGTsTCK4ktaqKx F5df3Vr2wvIafsg69f1V2YfNmsrRNonX4Tq2paffbj8yVpiGXRGLh/Ull6qW Vgv4NSbVWlXGQ6zC8IeI6EFYhfbyyB5OAI27+crOY1ZYMuEe8DQ1ETSPrl82 Yjbwbo33JqRuQvc4PSF8xh4WUV1lT2g3YWR0NUDAwAEquxUmQhxvwfPShRNN Io4YeFzuLnk3BXX6Bs0bqo/C/MbX0/sV0vFuZdeSM6bOUDaSzRV/nQ5VGRHb HpwA/zyXocETt5GWld69V+MkjlTMPqy2zEC7fKH/b5XTWLHumsqhxEz0HsiR 7bFzRRD/Y8VIsSwMMu35PrR6YL3B9YhHblnQ8Z//QC/YEy2h50Y6XmfhmUb3 hky1C5Cbp5yv4pUN5beyFWJUDl79yVJpbbmHGG7iD1ecD5b8StSQisqFqeF7 qVbeQJRuupC4tz8Xl/gCqzrPB8LezWLKfWseuFVf6P/bF4gihmBF7XAexsZ/ SJbUBeHAcMT20/oFMBIcHuhL+w/JXb56pbMPUGnG3aAcH46dEjZZ3QeLUCMt tSlELAKj/2rN5y8swrnWkmCzjAisJnyOFW4ohpaYLt3gUSTOndKU5+oshvlP v+aHQ1chfLwoJ1v7Edo7uqe0ja/hkE1m0Y+xEmwXy89pjkgAq8Ny0R3xUmC1 0/f3nQkIs+d3stArBeuA3GO3TYl4fOyceFl8KS5+y+C+1ZkIAVedUD+tMpSq C56+ujUZdcHt/y7wL0ebzcLjIyIpUCsQWiDBX4mIFf99f5OZgbcqdQ6NqpWo 5F4oMPYpAw4PvZ9etqmEonHC5dOLMhFd1uP2La8SNy7f1zL3zMQwrbDjnslT BDWP8zON7iD9k+HDTTeqkM6Ok3ZalIXFf4NsDVZXY9++tuG9tfeRfMraXnlP Nd7rZho6cOdArlXZQci1GtF3+9/U6eZAN7ftWMezaogXJMn4VeagIjextFyF BtcYoZ2xpblgWBBVRk00ZFTkrLKrzMfBnKR3HktrYGcyVRkzW4RUu2BjZ+ka nLG37y+RKUaf8NnGQxo18Chae9FwTzHO+e96r2NXA4dzWm+GoosReYDRwldY A7elwQLs1Q/xbGbX1xTjl/ALqpdw3fsI8ubM4ZdXa8HvVvw480kJxAMMtp7I rIWmau92u4ESLCvMuLqovBadvN7le5aVguS3UDHvq4WQoXHg3ZOl+EAr9+jW roPbkwO2IavK4KsaNDv9vQ4aZ6+I9UeWo0lQRERlx2u4tOywXh5ZiYtNW5A8 /haXMp47JkfQIKBS+v0tfz1cJVQkD9+hIStaNeq3RD1yB6ZaNlXR0Gys2G6v X49V6zuUV/2gQemdiId8Yj2ilf3juw69QM9r1r1HWu9QsSN+vrRKDQxeZAs0 +jZgbYtiW8bQS4iWCHVzc7+HxScuW8/E1yjr02t4v70Fu4fIEDfzD6g5nbbK hmhFrcyegHSvT5hQ0BEsPNsGp8ZUKZ5vX8HDzl+2Sv4r3rAXByx93AvNvw5l Fg868fWw6BluvgFqH97c9Gp9D7q91XOFw4cgdY3OzmX2ovWO+nTHFTroUz3d n1T7gJYZ9cVnWcgafVovENOPB4I9Fy60jUFA8j5rYGAALn+erPPv/4WoU6XO GXKDOICfe2aKJjC6ozBi8fpBeDnJObqXT8Dgn+w8r42DUCk9yN//fAI8r+OZ xlsH8ebv/YGnjRPwkfP0YpsOItMqSl6PPgHnHrWwA36DmMhcbnRHfhI7DxZn 87YMIqxxTONi0iQmd+QPnAwYAtdauTpJ1ylUZdFTLoYM4ZRmzhdRzykE8ytb hEUOIaFw5tpS3ykIfCh4cffGEJp8wjvpoVNQOPIgvfv+EGKfF1l5pE3Byv/h IcsPQ7j5Y0FK7rsplFaUN0B6GAYM+flxctPwlZz+b7/CMG4X73OeWjeNHUHa 2+yUhsEXFtZqvXEaDXsrcn01hpHXuOzVwq3TGGirDCs1HIYmX9PlTabTEJl8 tkPp/DAUGq/bRXlPw1OttmTly2HwLluz3/z1NJw3r8m4/mYY39Ss+C40TOOQ 5qWrS5qGsSpq2/645mls27r5KE/7MPrVg90qOqbBsytLkMkchtw7d+8K1jRi zUNO14mPgCslQOvSSjby3Hav8Tw/gt8w+jVqz0bq+YzFrIsjuCB2lKl5jI1o z5nJU/4jyFcQ7vU7wYabd0njkYgRhGvZJv44x4ZWoJyfUfoI3Jk6X0MC2aiN 5f0sUz8CBfmN2gcz2Oh5UHu1WXoUfBJdvb5f2fjA4CXUFEdBvLhwpqmLDZqy vnG88ig2W6c+Ff/GRkZe3RJrrVHc39iRkTbExtF7r6I7jUfROyi00XicjcG0 N7FDF0fhXbdw2nAJic+d/D/2+o8irqA9Zq0giderDM3ygkchHxdI+ytEIufm 22Vno0fxUJExmiRK4nRC/fWfd0YhVhstcU6GBCOq4cafxlEo+JEi5Zokut8t Gbf/OArTdFWL1VtINC0ysaR9GcUykwWLL28j8SCiUeS//lFEXrjZq7CDhFtI UwI/m+pfUsO4pCEJh5cCk6dmR7HNW7F5rxEJcx5Tq3fz6PDK0xJ3MSGhFvh+ ZYwAHZ8vvyBSzEmM+31IWi5HxwfFx2czbEgMVC6b9lxHh4F7XmTMYRKf2GaH PqvQkbtljO+CHYmyi83/3NxCR1TAbwUlRxLeHi03V5vSwdsl07LtJInfp1tT 1vnSMaXjLMr0JGGpaXddJYCO19Oi6oZeJAq4B8PUQ+jolYu9k3aRhH3ylLtO DB36r3b7qfmSeFEnvtf8Dh0K0nWLlgSQEL9+V8fqPh1rAo893RRI4rytsvrh Ajr8dIKemQWRkPuls9qpjA5JsqDU9z8S4Wscx73r6TAKSvW4HE6ilz4y4v+e jtH2T4WuESS0y8/3BLf+7//YciiSxKhJSH1UNx2iswK7Ra+S0BNbSrveT4f6 ePVLgnLqQEJp4jAdx5M1Ep5GkTDxu5+R8ZOOJT9tVPRjSNzbo5qYPUWHVs31 yb+UZ4UqrubN0PHWI0OoJJZEcU69V8kCApYNeTv5r5NY6GnhUrGYQIyiq3UO 5aPodHy+jMDM26QXO+NILP/MMH4jTuCSyrwEhxskXDK9djVKETAUNvr7nXKt y1+tFjnif/cX2vF4EpLaERva1hFgjL9p66TsNU9ItlOFwKuX6gb7E0i8b7r5 zzd1Agun6AIVlNfekhEY1CaQY3t7o2QiiXbVzWzWLgKlBZ8uN1NWm6lijhsQ WNz39YF0Eokrr/UH2MYEsr/2bD1DuT+uqX3WnEAvb4XsA8rb7a3fz7MmIBO0 6/Qo5YR1vbX8tgSUpRwE1ySTYI6frFzqSGDb4T/LTSnvoY0VCTsTUDq81Oci 5dtXfbNFzxA4Rb+Cm5SnrealSLgRGPHzPllC2Uwm6pr0BQLjEr3jbyjnMkTC FHyp8fp9/P6ZMk9Fmp9SAIHpnjPbuykfDlFwVw0hEKVQz/6fS0yLnDUiCfyo XinVTnnJKm3brTEECvODChsoOw3SzHGDwBfPXfcqKD9/aGiwO5nAfpXkRRmU V/q3bDdMI0C4vu0IoHxu72G1/XcIJJrIrbKh/Gb5gKLFfQKqdrNvlShL97hI HiogkJFTMjJFzYdv3oSw3UMCoQ/y/Z5Rbrlwmf9oGYFFdqZBlygr7eSbdX5K IG7p8pnNlIvz8hW/0Ahcv31SoJdaj80iZuaGrwjYB8V7/Ef5if+4b+U76rtT 9AYpytuHkrOUmgmMyVnqPqbWl2am05T6mYBD+a/7oKxf+W1qaSfVXjnIpZbK x/7o9UY/BgnwGBIC5VSeWiabPB0Jan71FMbkKFs7eKS3jBGgVSzQukrl0UG9 aqxkhsqf9bfJHVReB1IdVinwMLDQIfzCtWskTi2Yr5/Ex4BRgpLjFyrv59tN kn2EGRD3V4s0p+phctfPF6OiDDgnx9YHR5PwK0ikH5ZkwC6jJ7iAqqeQgB5d 3bUM8PE+OTpyhUSivPt3Hl0GbFS41y+k6lc8doWgpx4DsZUnz86GUnmZrtD+ vpeBHDE/HSKE2l/f8US9tmCgQ1U19mEwiQr3eLWoUwzkW7ca9fuT0O3Qtv3j yoDbEkODtEskanZ3hbp6MrBBx2fI1I9EvahCu1kAA0XHa2Rue5PofFYesCKB gWea9J7v56nxK9rmht1iIPM067CTO4nv17g+Tt1mIFiYN6nrHJXvY4YKX/MY kHireuiJCwmuRR0N6TQGwlK2nBJ1psbnETAp+IqBoI/yO+yOU/XfJbsm6B0D gkXZP1OOkhAudvE49pmBMzd2secdofYzq1mxtQQD5idYk5etSRjckT7xUJQJ aZf01XIGVB6SBRReSTAhax0RsFqfxJqY3wNfpZnwaHLuEtYjQfp8OsqrzMSo z5O0EV0SheaR9tY7mDD8zrhuSp0vy7nHDv45yYRRbNNxLjmqv1NdIsKuTKz4 zL09VZoEQdR/VPBgou51mKGaFIlXX7LMzfyZEF6etNJEnIRP8SGTu9eZ+DTi 1K+zjETPEdpuw0omihnhBYK/2Wg4WDjPvpqJoWdrys2m2XhidKvmfC0TcW8i NKMm2IjT8tyR2sTE5vKFWT9ZbOgLrt3O6mPCyyulwH+AjfznseoJi1kIzXD8 51oDGxclj8h8s2VBXrbbtDaZOo/NVK06HVm40ddpejaBjf3/cV9pc2bhgZBS oFAcGwojd8ca3VgIr3sfbHSVjdaSYVplCAva7jERYf5sqBqfPxJfwMLNb1aO Eo5sSATo3Yh9yIJ51oyLrx0bfI9EXl8po9rfimV+tGGjW7RcJYjGAk/TVief A2xE9f/+c7aVBYareVqMHhveKxs3nWpngbfwd+sbsHHMMN3peDcL/9zcc292 Gxtbi3Y0/jvMAgyrFe02U/3rE+K2YrDQtfNnb6gqG0Ir+jeb/2RBWfeDfp4y GzMGJSeNp1jw8u39t34tG8O+oakGMywsnMmXG5RjY9RK6WQm1w9w/f/j8GM5 j9Q8jj9HzqSkzufYSPa7hjg/x7SqxvdJizjWtCo7tWIpxzKR4WnLhDlOlnHT ihHhWKDqUPNiUY7ZzHXz+SQ4/mDZ4PJHnuM9zJIFfms5rgpPy5hez/H9StfW Xxs5vrxGaPvoFo6ViYOL20w4fmJpXH3FjGO9Z7s8dC04/jdmY0f2IY4jVRfm ex7jeNCzap+wD8cZf2SumGRxvFzwB38tyTFvdUqRbOrYnM9sftq+0OjnnPMN j2Y8n+R4gi6+bDDx15xLLQzmxe8en3PA3tDbJYMcS3ft+3I3dGLOW7VC4sXU Judsu/o9m/sjxxP10X1uQVOc9eG19zxA3fvn+t9deoenluP5/kGWW9zZc+bK tS/qEybnfP5WUbRwDcfPlCL4hVx/z1lo33nlYIGZOXdu+PDRp4rj4nTIDdj/ mbNdkaaQ5CzHgaGZQZ15s3MuHJZMETD+O+eItFCH7v0cHz/AkH9gzrFEVVWx iTXHV2IPv4o6yvFJzZtji3w4lgkR2ct3j+NZ7UtL23I4bmf0t9zL5/ia9WO7 PQ85/rv+gEdoFcedzbHp8z5y/CRs6tjHTxzHbzuy7u4Xjo2yVUp2dXNc6d34 NmiE48QNGrHmBMfufamW0iyO1xq79NDGOeblbs26NsVxb+m20w4kx1Wn725U /cNxktTiib9/Of4/GRbCSw== "]]}, Annotation[#, "Charting`Private`Tag$6853095#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Im(\\!\\(\\*FractionBox[\\(\\*SuperscriptBox[\\(y\\), \\(2\\)]\\\\ \ Log[Log[y]]\\), \\(1 + \\*SuperscriptBox[\\(y\\), \\(6\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {0., 1.6623220212372045`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.795818166350821*^9}, CellLabel-> "Out[892]=",ExpressionUUID->"619bf538-e9ed-436a-9834-057246fcef25"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p12", "[", RowBox[{"1", ",", "2", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.795818810838801*^9, 3.79581881596935*^9}, { 3.7958188922869997`*^9, 3.795818892827483*^9}, {3.795819328787792*^9, 3.795819328934144*^9}}, CellLabel-> "In[921]:=",ExpressionUUID->"26689e7a-917b-43c0-b322-88cda9dfd768"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.3200558861761614`"}], "+", RowBox[{"2.1221799516023045`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.32005588617616676`"}], "+", RowBox[{"2.1221799516022664`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.7958188117627897`*^9, 3.7958188162317877`*^9}, 3.795818893848797*^9, 3.795819342299479*^9}, CellLabel-> "Out[921]=",ExpressionUUID->"836c0bcc-324d-4cc6-8728-952cd9452909"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p12closed", "[", RowBox[{"1", ",", "2", ",", "0"}], "]"}], "//", "FullSimplify"}]], "Input",\ CellChangeTimes->{{3.79581882286312*^9, 3.795818828011435*^9}, { 3.7958188996595583`*^9, 3.795818900031476*^9}, {3.7958193325922203`*^9, 3.795819332737007*^9}}, CellLabel-> "In[922]:=",ExpressionUUID->"540c349b-6e6b-4ee6-aa66-956a3e741eb9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}], RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["y", "2"]}]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ",", FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "2", "]"}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Pi]", "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "2", "]"}]}]}], ")"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "2", "]"}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "\[Pi]"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "2", "]"}]}]}], ")"}], "2"]}]], "]"}]}], RowBox[{"2", " ", SqrtBox["2"]}]]}], "}"}]], "Output", CellChangeTimes->{3.7958188416608057`*^9, 3.7958189077008953`*^9, 3.7958193490741663`*^9}, CellLabel-> "Out[922]=",ExpressionUUID->"7338bb23-dafd-4d00-8855-8fd8a051d464"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}], RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["y", "2"]}]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7957621068102283`*^9, 3.795762126125455*^9}, { 3.795762218403481*^9, 3.7957622379071903`*^9}, {3.795817846559164*^9, 3.795817879499946*^9}, {3.795817933637628*^9, 3.795818010787426*^9}, { 3.7958181378400793`*^9, 3.795818141976981*^9}, {3.7958189366719933`*^9, 3.795818940410009*^9}}, CellLabel-> "In[898]:=",ExpressionUUID->"4435e9f9-b30b-464b-9126-75a4fa5614c5"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVx3s81IkagHFUq12OSzhuFdYlNYXshEpeiVJKpkIiLbVuSUJZrKzMFoeI kN2NbDehxDmkVF7JnUQI61ZmmDHzuzDGTLKye/54Pt/PY+B/9tAPcjIyMiH/ 9H/7O14rHE95CrFUTnJGmwAsH6p+tXplDQwxWJ4XhFOgsJTos2ctgj27mhHC 4IExi+K/Tm2AEK9Si51+4xDduRXyxK1g7ussXX97CDQrVUdlZd/Cpmo77X0y vfBkfFfHW9t34J87l8xTaIX6kHxdL6IX2mKTxx5fqYY5kx3Kj870g/PTXyQf 2s6C3Hypiq7xn/D610SVnXZVaLX0/ZPDZcMwuq4x2lutATvYzM6mDWNQ3L/j gVF2B+pdE84XUx/g8PDpF4XJ71AoHRvtsxiH1CChkuKW93hX8LxNKZ0DIdpH tUpEg6i0pojmcrmQ/HalW3XUCKYFVwUUGk1CoP9fsf1HPqDEvpQblMCDAumZ yyqa4xhl2VD579d8UDwWEm7WzcEApn5hZgsftBkF5fMDHDxq9VOqYicfjtlu 3tbygYPbtzH95Qb5sHndDdez0xyUc7irTFF8CL96nT2pzMUMFjukUWcK1L8N K048yMWScEf9qIgpyLUfivlfNxfHyhpSuw0E4KV8p+QWdwK7yOWE5ToBbBmy uHianMC6jU77szcK4BbDIG6HZAILSxoVPa0FwFTmWIjlJ9H/ftPV4f0CcBxI OlzGmMTJ/JYMXrQAhtRa9pyKmkQyreP64hsB5M9ldHkq8HC0XVHs2yOATfd2 2ypo8LDzmwNH6gYEcMnSzLx5LQ/Lkt+oJ3EEoGj+cYWXJQ/D2Z05K+cF0Lez ewXPi4fiuK4bakZCWGHp+OpVCQ8XQnp/Xx8rhNRthlrmR/h4xOp4plmCEDLL HKggXz4+lJ28/B1bCLquPtaPgvjomyc9tyNdCFWXmrPc4/n4qlHHmXVbCN16 WTmmRXy8ou8n/rFNCIoB9w+J/uKj2ntyf4sOAXmVfpEy/53C0D8uOLzRI2BZ fqpW88spbAhdsn5nRADZkpV+s3UKLyxTNRw2I2Bu81x+1McpHLRgztMOBFCn 1u8eVRXgrdTYe5qnCcjpIZXqzwuQsVP+S8BzAvRYbqJ9LkIsLyldN1BHAJQ3 tCYcEyJT3Y21t4kAGb7uxc5gIdry8u4yugkIqx1fqkkWouvVDS7TkwTUf0wP GmoWYsTggbyYVSQwXsZ/znMhUOIgeiXQJMH72YJ7vg+BcQ9zhd5rSMjg7P2t /gyB7IQxOztTEuqSqM/nrhGYa3xuQs6OBMV2x98j+wl8di7bMi2YBA3K6XFK KIl2QzY+i2EkZDKlGpwEEusdR34JiyKBs2U8OvA6iW2aJoNuCSRIm447iWtI HH5ZnaCRQ4JLYEoPU5FCmW+GOgrqSKhi8jx1n1LIjkyQKDeRUEFaal7tpPDr EUP9xHYSrJPZhM0EhavKQyNPvifhZy+lwl1qNBp5fNE2JUgIzU8rco6gcc9t g8AKTQri4yu0H6ydRmaekknTagoSKnizeoxp1E9f4P5pQAHpcj37ufU0fo7p 81++kYLgQ7Lf+7Gm8RErxdfTngK/AV3jhMvTqCY7474YREHh+Rsao5+mUUY6 or4qjALnfu0FuZUzSBBtPSaRFDhRa9x8NGewaeAuyy2egqwv+8gKqxmMKT96 4E4mBSz1F9VqP87g2Ik6x701FHBC2boO8iLscH+0zBcp0G9icGJ1RPjU5bf6 iAYK+pJCGfJmIsyyjrK/2UnBiSa3RGMPETopm9rS4xSUyC+GdpWI0HKFxsIy PgVD6T1ZC3UiXLsgW6NFUjAXUDmT3S/CT5ND1g5SCpaW9wYbfjWLpbUZ3+Uo 0DDSbXxwS/As5lX+JCpWoeGSnJbAI2kW2SXBFbUaNDjxF9xVCmbRN3eXOV+P hsa0Q1sD+mZRNUy6YTuThlzPyOy4/WL8cpI7dXArDUUFAfesQsUo8Op+cMqO Bst/CULepomxwanUJN2ZBm+Ztk9tXWKMXnPi248+NLD647wv/jCH/m4WHsN+ NJwYCZrlp82ha5Lsf/oD/vn8SrX7VXNoMnVn5k04Dc2/3qKiFCS4avV549bz NNgwLrs/t5Hgoutur4ZYGp541XrUBkqwt5JfV8OmIcRs1OlKuwTreM/EVSk0 bK97UVQgI8VSnVTTinQa3Av2KGjaSPHSz5uuFeXREFYs9075sRRPtk+nS27S kBRjaBUxKcW/AXltnx4= "]], LineBox[CompressedData[" 1:eJwVj3k4lAsbxglFokw6FIdjqUjSojpJnkocCdlK0ciloq+kg+qklCUq84WS yJowo47Kkoosj4rSLkwhzFgGNTN533cGTZnez/fHfd3Xff3++d1GgUc9D0xT UFCInsr/m1I+14YWBJyLNFkTPjSBxY9D2yVWBGTZ6LT7BU6gvrdPaNhKAv7p Vb0inD+BqWJQHbUmgLVJU53XPo5n/9Cy/bqOgIbK5YroNY7Sahk32JYAy2cZ JUt0xvGQV/9RgR0BMawWp7HuMdxx/n4h356AM0Xh3WToGC4V7VD/5EpA9u3F GSm3pFjl7YIsdwKOMBJDJk9I0b5uc4SdFwFkj0GF3FGKvslWn9m7CBA7Hvy2 WyjBxOVqJcf2ETDjQ4TuansJamfS/mZBBPD9akRiPQnmK44zug9O+YabE4Vj FFa19p+yDyWA0J3+mltC4dCxWmdGJAHJqpMRpsYUhvdU/Go6TYD7Hik3VZFC ucPtisizBORs1xLf6yNRWyd9Qd85AoY+PRtsKyTRvvro19JkAvY7WaYYWZGY LzdmuRYR4CB6lMBkErg0aL6dYvGUH/9wo7oDgY/ezaYqbxMQpZT2YoElge9u TO7WLyVg5VW90rzJUZRv+mgurCYgYXafSsrWUfQ9n/jy4nsCrCZCr3ylxTj0 LfqMbevU/2zm7XmdYgzzObGCaCfA2cwqpbZCjBfN9mX6dE3xoaLXYcFifPjK 9j+LBAQwyv5rsfSjCOfOJlQbfxDgt/uLQ/1zIbbWsS5slRPguXPQLOOWEFND Fk5/TxNwtJnnWsMSIuOVr1KXMglJ9SuredundkKTfFSThAqDwBcRPV9xzs8s Ss+EBNtKYXqN8lecNezQHbGNBO8Ob9OuqBF8c43vK3MlIW5tTvz3AyN4acvp zrPuJBj/+dLKfvsIqheUfUzcQYLFyeoBX+MRnMnU+3BjLwmZgwXCuFfDqNpG NL2OIMF53WuVdcbDqIzZpSY5JKTF3LQeFAqwy3aLEy+PhGwtzaxpHQIsfSzi Z90kwa1uKMS+UYC+DzcwGMUkzBy1u7UkV4Dld3nHFCpI2MnTUY53F6B/jolN z4sp/2X3ebPqBrEqsqQxXULCyjy2wLBkAJMnvJie4yTY7Pfa0JU1gPuOT45p yEhQmyNi3WENoGaY6+KEXyTUerpoXj80gAcOjiZGqFGwwGuPbrzFADJ8Vm13 N6SgOd7N7mx5Px62rulU20aB0ha/2LQ3fdjQwr1T5UrBBRthuCn24bwjRHSw OwUJ75XDm8r7ENkLFzXtoMDl0VJlm4w+nKtzOTwmgIKXvMC4L4F9WCPbrz5x nAI905hyezkf1VFzw2A+Bb8JBuNVN/AxwM98ztVCCo4rt284tYKPDybsBzZx KLgyvnaxbCEf9y6PTLxRQkE36/kig9l8vH9zgOv7kIKNzYs8lBt56BdfFfrh NQVN15vN1mvzsGRrYH79OAW9xOXrc5/3oPVSIzuQUfCHdWy/w/0erNfkf8af FJy39jrFyu/BljamzhMFCfwdnWTofLoHpczdyc9mSmBW7YRx/ooetAt3j2o2 kMBrD8mP5Jvd2JJlt6vVUQLHo6oHniV9xjHhgjlD6RII0khqyEjtxLTc4Rc5 mRJQ3d3i4hvXiau2V0Z75UigzH/orUV4J4ZVuI423JSAA7Nq10+PThSfjHmX fUcCO2X6m50ZnShQGbrk8VQCa+JSo65d60CuYblanXiKLzR44Mv5hA+8/lJK 2yIFb1GArFfExYvbqhL0/5LC92UB++/wubjH3lyVvVUKwbn3F59r5+K0Veoa D92k0JB+7pJLLRfdGO9/69glhdE1/RzXS1wcadm5RP+IFKI6NXQVlnFxgVuQ R9E1KRyZdY/R9087Rjsl3KgckkKRo9/0XJM2NOpx7ihMGIMQlm5qTkcL2qyN T5u/chwyLVaRV0+/xT0G72WKbeMQ5F29xN3oFY69Sur/O3YCTqhsPVGs8AKv K/sf8zT9DtuHjNWCIxtxbu+DgmmN3yF0vuFGF9enqHIm1ntdmAy2nUzn/W7b gAq3/Uv7GT/g+BO1zTcYdRieVZrEePoD9KIULWe0VmOdxUVVrdCfEJ3mYiul H6KWc/jSOM1JcDLMyBsprsRuy5a2yNpJMNWbJxIGVmBZHpgO+svBnFd94eGZ MmSWrtH6/ZcclJJYupsL7mJMws3Y7n9/gVvAHkdH5r94d+T3bE0XGpKsdwXH 5xbjxdyEgF43GvKHI8Y6rxTjfk/xwnseNFQcZHKszxejfm1tmasPDWFhM4Nk ocXISvF7fimQhmHp+rkNG4vx4JpMcmYkDZmtDT0g4KBxvLbTDA4Nqk8uukys 4OCvP6M0Pt2iQS7RWi1axMFO8UArp4SG3W3UN4EeBy/73Gc6ltPQVC95M6zC QXqJZ0RCLQ3tIe/Epl1s7P6QkqfURoOtMIsTd46NVecn9rVxaVhnuzHu2Uk2 pq3fa17YQYOGerOqWigbt7GXVW7upSHosLZGwS42Pj759mXsFxqMM5TL1Zex Md1ydYqHiIaG1boFYSZsDOvP8TYapWFPPtOiW5eNZi4hvAYpDc2mG+X1SmxU VmwvujxBw63uTZvWyoqQ/2D9oYAfUzvLTrvyWxHWHiq0Wi6n4bmRKGL1YBFm GKqP0TQNr9IU/Ws6i/B/wUFXhA== "]]}, Annotation[#, "Charting`Private`Tag$6917454#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Re(\\!\\(\\*FractionBox[\\(Log[Log[y]]\\), \\(1 + 2\\\\ \ \\*SuperscriptBox[\\(y\\), \\(2\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {-1.4937612643039706`, 0.8372266452492589}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.795818940879952*^9}, CellLabel-> "Out[898]=",ExpressionUUID->"23804f7e-3492-4bc4-8c22-979f6ae7bfbd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Im", "[", FractionBox[ RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}], RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["y", "2"]}]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.79581895888472*^9, 3.795818964282865*^9}}, CellLabel-> "In[899]:=",ExpressionUUID->"69fa1a21-bc53-496d-9c33-c13b671e43f3"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF0nk41PkfAHBX5jvJrYNGkmNzJF2kpfdnUylK7qNyU7ElV0tp2WlN5QhF qFxltCHkGIqJ2WnKbotcrXucCTGHQu6d3/P8Ht/387yf9/P6732pel628RER EhJiCvJ/1dxntJkx5nNQaMdhuwVVIhIzVQroUzwM/NSJDfMC78lKSy9TtAOf PYuuMwIPk9TJoZquULb7ii5PYIuG9tIMRW+oQWciPwusHqecu6LiCxORZY49 Ai+ae6V6aPqDSkwUrVHg8ag2lkdKIOQH/JtWI7Cj9+zre4ohYE4vFX4uMMtU qfJN+i8gfUmdlyKwvprJi28qV8Fh3tA7UuB0Efc8jZxwKLJZcPERGBu88cRB MwLqun/tPSZwVX9Lwxu738AlqGlQS+AAK2/zsylkUPZb448J3LvzlukdxSho Vz6/oWYrESVnbWJonKHAp5baPfcFNpfON65JvwmzXTbtvgJXcOr3cVWiYWAi oURC4IuurqW3PGLgzJPA0Q4VItrWyNXbmhMLTcJLuTkCxxfKbbfWjIcCjUTa LoGPKFOpY+cTQM20mzC9hYgi3j2U+dMuERzoDgM0gfca6N5xTrkLkeFXtPUF zl5/6maMYjK0v2IqEpSJKLwhleVQlQx8ydm8ChIROVD6RdTO3IeWpSKml8Dr pgMjq9NT4OWQf3zFZiIKa0sOm1B5AHz94eSDSkRkG9db8ZLxAEi5/f5dikSk d1hzOsrjIdgVy7QGCzxcVhmonPMInMaWD2RtIiLrpC4/S81MMNuyLrFjAxHp WqjlKdVlgrtjEtNdYEz04ueR81kgbnyaPLKeiNxeLZfU2mVD5KG/qOMKRLRe K1HPKeUxMLNdYj/KEREZK/shWpEKU5YdygZSRKRtdvd2aQAV1E0taqMliaiF cnmsu44KLSsSlK51gv8R1S3Q+yUXamLPRAZLENG7JapeW8tTwFh9xr9jgnm/ puxTicuD7et1TimJEBFt15WUY0N5MMmHICRMRK4BtrOBB/LhrJE800uIiIon pV+xRvNB2992/PEyhmxGbxv7HXkOnUxD/8V5DKX1XjOlLRfBlbqEZu2vGPqJ 5Exl2xcD2zZYQn0KQ+OnDddghcVgk+JzXYmPoS0TV70Kd7yAn83NxVc4GLrs a6Ah1PMCVC8faXw6jiE57+JnuftLYe85r38DBzDk5Py4mMcvh6Y9eq4L9Rji dtutfaJEg670383K/8HQTVfMx9aUBqfud3b6vcdQmddlpYpkGrAv3lpsqsOQ lL8JJdywAspu7TpFZmLo7Y3O0+K/VoJ49lx7UCWGdj+XFSdhVaD35/cfsrIw 9LfeW/cG/Sp48MiGLpWJIfeSsOoI5yp4PTQjfz0dQ3cq+gIG8qtgYLJcxuoB hkYZhd1PT1ZD/lk35957GMr8eLxkVxIdZrpeTt+hYEhihXzWbEsthFJLRS19 BfvydXTVPVoLzWJkGfJ5DKm36brL+teCh6KtQqkPhg7mtXt1v66FJC22mJQn hl7lpdAq9Rjgd4VJLTyNoUnbCbpFIwN8kjbT4ywwZP8s9Z9gSSaM2V9yaNbB kIY1Z/RNLAvmC58pFY8QkFKk2YHzj1mgfig6wmCYgGQKs2PXVrJgoJXUUD1A QPOYrZ71IAs4gfr6jB4CamJUBrP3v4WjqQsGL1oI6Jo+efn7p7fwc9jau3o1 BNQoraCgh+pgfJPHWFESAYU2GkHat7/Bv2QuU96IgDaWy7KFhT/AT0H9Jy0j xFHFoGn9B+MW+DJ7v1cyaw1i+mVsdp5og+K5Awm95WJoWtNEuvBSO8jLhDFk WkSRyFyBzGaNLmiqDHceaxdBBivuFbZFPVDKkJw7xBFG9VF7G99p98HE3cU3 0uuEkUril7k8Tj8IMQbJASQh9GW2j/1RfxAukyW1Tt1eBup49Xup+CEwKKIt W79bBCnlP7jDw8NgPPZV4Q/VBYjzpZ3LVh8BE5N+uR2FczCDCoYvRH4GxYFE K7Od3yFkN6t8w5tRKHyw5Enpm4G+IlZss+o4XEx9bdYaPQ0Lfm2PtK59gXva r0xFrb6Bzk+E5XPVEzCg5aDxj8lXMHuier5kIwd6MWFK6Q9TsDdNSvMdiQM6 nSd8/1Kbgq3xC8NdqhxwMnxq16cyBfNXP3qK6XKgQy0eZDZNQaF1tKsj4kC2 Z7RbBDYF8sJ8+6ULHDhn1HYvdowPfW6Mw8erOJBkr7v5wnM+1NsXirrWcmDR ieOX+YwPLy0eMoNYHPD5rFT1kcqHe4YhKL2RA3via+zNMvhwRHq7MXeQAzfW Xg83iOdDQU3CnvsSXAhh6FgcDuBDqLLbtoGzXGCmbbQk7eODp5W+Q48HF0gl ORFRu/hg+btwTPs5LpjUWWZM7uCD5lgOvyGACwtdSlSmJh/aykcZVVFceO5i 1By6iQ/6J4Lckp9zoZ9NDJVa5AEp0jQpoYQLE8Yh/pTvPCCUKtTFVHChdNTD aukbD9gbK/XIDC50hPa3cCd5EDe0sHSpjQsbZUj1fX08CNvQsMu3kwuKfjay rj088Dqe6ePN5gLj80Ho7eDBgWLUcHqUC5xPtnbsZh5oDsoKO0xygbuf+KN7 Iw9k1w/ttZ7iQq5dPHHoPQ8WzcovnJjlgnReXu25Oh6MXqOkmy1yYeWZqsuX NzwYd9C58FiIB0L/D3eevIiKKO5/oxcfpa/BbaH2aZ8ShptBb/iQuha3gUOF 73pJ3Nuib2XIyOFO2xZgGK+AW4ru1CyxEfccR2sNgYS7ya7+4pIG7qOccvHw 7bjptzKyv2vj/qPKv+3rTtwRW2WNx41w607YS7SfxP3S7kRtjBVu09eHgg/a 4j4dv7M71wl3tD6xIMQL90gI3VzuKu7spW0xJ6m45aV5GGset1jto2K1dP6q f95b3Um0mFp1wXHP7JoZ3NNflGRGUr6ummZrJpp8+NuqI49RsspHcKv2mnfk UKZXfcAwKllx98yqz275MCfcinv6/Z3BAPIsfh8x1xAb9e94/2zaExEW7jW/ ku2MAudWLZTnWjwoN7/qoIfFd+SYuF/r3MZk/RdWLWsepHtDanHVPTuaWq/S cb/IBPVh16VVuxQbyCov4/6N8pjck7+86sJR5UdSJ1ZWfTuD4s62xO1tM6lR ZI2bRKe/OOmIOybhzLs4T9wXDB7w117FvS1K4RjhKe7l/dcl25/h7pwcanla gDvRsczlaAnuFW2bYAodd09zQqZoK+6XN2e9Wj/iTv7RTSunA7dFrl75ITbu qrCGv8ljuFN27EuwnsAdOJhup8rFvf3ExT7GN9xiwm3UxFnc/bQf/dzncdP9 cnbqL+FOVZGYXlnB/R/7YstM "]]}, Annotation[#, "Charting`Private`Tag$6918103#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Im(\\!\\(\\*FractionBox[\\(Log[Log[y]]\\), \\(1 + 2\\\\ \ \\*SuperscriptBox[\\(y\\), \\(2\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {0., 3.1415926535897825`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.795818964795545*^9}, CellLabel-> "Out[899]=",ExpressionUUID->"70c41dc9-742d-43f8-9313-c7c8ec9bc2e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p12", "[", RowBox[{"1", ",", RowBox[{"1", "/", "2"}], ",", "0"}], "]"}]], "Input", CellChangeTimes->{ 3.795818982132654*^9, {3.795819015140202*^9, 3.7958190166176043`*^9}, { 3.795819046914878*^9, 3.795819088955639*^9}, {3.795819337889599*^9, 3.795819338024008*^9}}, CellLabel-> "In[923]:=",ExpressionUUID->"5fa8bb99-a39c-4b4f-9fb8-7dc73328c238"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.6401117723523296`"}], "+", RowBox[{"2.734504296434366`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.6401117723523336`"}], "+", RowBox[{"2.734504296434346`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",\ CellChangeTimes->{ 3.795818983570374*^9, 3.7958190175709553`*^9, {3.795819054822798*^9, 3.795819089720665*^9}, 3.7958193491283493`*^9}, CellLabel-> "Out[923]=",ExpressionUUID->"943840c3-e67d-45f8-9e95-e0ebb43d7ca9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p12closed", "[", RowBox[{"1", ",", RowBox[{"1", "/", "2"}], ",", "0"}], "]"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.795818995868087*^9, 3.795819026780407*^9}, { 3.795819058412746*^9, 3.795819062271488*^9}, {3.795819096512247*^9, 3.79581909683677*^9}, {3.795819343556383*^9, 3.7958193436849213`*^9}}, CellLabel-> "In[924]:=",ExpressionUUID->"9b1edcdd-685e-4944-a123-d0962f699df4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"2", "+", SuperscriptBox["y", "2"]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ",", FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "2", "]"}]}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Pi]", "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "2", "]"}]}]}], ")"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "2", "]"}]}], RowBox[{"4", " ", "\[Pi]"}]]}], "]"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "\[Pi]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Log", "[", "2", "]"}]}]}], ")"}], "2"]}]], "]"}]}], SqrtBox["2"]]}], "}"}]], "Output", CellChangeTimes->{3.795819004629964*^9, 3.795819034814864*^9, 3.7958190698725767`*^9, 3.79581910947651*^9, 3.795819361333311*^9}, CellLabel-> "Out[924]=",ExpressionUUID->"840dbe61-edad-4c4a-b45c-a7779e062603"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"2", "+", SuperscriptBox["y", "2"]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.795819419345868*^9, 3.795819426259617*^9}}, CellLabel-> "In[926]:=",ExpressionUUID->"38b7e7e2-8a0c-4933-b0ce-e5b92a51e065"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1fk/VPsfwPGx5lKKknJVlAZDU2mQtrcs7ZYpuVSXSxLylUoSXXRRNHaS QlTTYhlFuDeVz0l2ESpLlpHdLOfMMGYs4d7vD6/H8094abtfPH5OmkQiRf/X /1VXbCxrsI2AtL0/b/kzp6F3623LuLWR8Ly0Kf5F2DSkZq/BNp+OAs3tKCjx 8DQcWZ63pyLzFry2elE+rDYNZfgnY2JDDORtyYsZK5GAr4tL8W23OzAQEuW0 47YENjYTVK0nDCCzHkxsPC2BeJaqHp0cD22SY5E+SyRgvY7JHD+fAO0t5OMx bDGE1jxY8cEhEQ44enh0/SMGmolhnHNaEpSHDiaW+4khR83u1p21qUD3Dmfl Dk9BSNO9KsfyVLgiq9jlVT0FjlH90ptO3wVquaEt++kULJ26FPY2Mw06YwTV jV5TEPQ1NYi34T64Z3geqZgSAT3lu48t+SGk+J7mp5JFYHh0U65G7UNoUWTG BSmLQEHGd3TkfDb80LEWlognwfXNQhFyyIHtsisPGtRNgpp+ItUp7REkVdja VfhNwk2F17oxa5mQ4UFX8KubAMrBpOhifyb8vJKYKfN6AtqiLo531zKhkGlB 7ciaAB0Zw3xq4FNwk9o+vS1gAmrmmdSvbc/gOcvzZPimCVg6mWa8ITYXiMu/ 19gyhJDeG2xZulAIHZ03vQyDBLBf05nZd/IlWCynvVPyEgDnlKmcAuslHH1H O77ESQDredfPsra8go9Nh5XpOwVw0dtkM6nnFbiS7Z3NRQSoerx88XRnMURT n+tFyxLg5PzopUBYAicYBqojlnwguh0UH2uUwn62alwbhQ+3XBTOnbAsBVp7 jm+3Ch9en72oUZZaCtm16+vN+3mg7Lc3KsS0DMZ1DgTahfKg+q+uU/J//g0D vTPvqIgLRgUq8poK5aCiy03oonNAafHmmYPrEYyOZeeNs0ZhMx0f+8ioAmPu D6WGVYNwrdkM0kX1kCx9377IphfUS1T6pKQ+A4Ou5KFc9g3KBiw/fd7TBqJA 2n2/2Uao9Mn61Zn3FQKHwmt9NN/CFHnvctb/OiC3RVuoMnQZpGfyV/y6+Tv0 pchnIHI5Mln8o+xEYQ8QsT7hh5Lr0adIWnMNhQ1xWO3rC9/a0IZE7kwu3g/F b3ZkxZ3pQlwJu+/btgGQT39Se/46GzE5bxuU4wfh8GCP77K1g0h53XNiaGgI jh1VoX/7cwTFepd65uiMwBfOy7qcxnEkNs8f8gobBY1H9OEjWXwUYFRVsvrj GIxyY5vFHwTIk6aVk1Q3Blej03cNNQiQk8kNxtLmMXCxx23bvwjQ7l00d+mu MaDvWZ1aNyxA0hbM5Tg+BtZjRvEjvwhRAj3Sp1pjHOZV7a+tOCFEef5WWgGX x6FIkp/iPi5E7MIqRqs2B97QHnfG6U2iFr4sz0iXA/oKf2U1GE0izND6WKoh B2I6n7Qq751EOXnVS38z5UD096BaFn0SuT+ries5xoGHxqNFB0Mm0UhWXcLo NQ785C5zn/08ifixn1Lmmzhw90wE3hMmQn2NS0UuXzgg+sXbhMIQoWZFGwes kwOzbSN2N9NEqDC6aVXEIAeUHfQcbFgi5B/ZfFdhhgMd/bfMXLtFSBTScm+l DhfclpzYGW42heZ8vmboB3PB+/ESpWsLU8jB5PckahgXIlrTrzgqilGB1Mit HZFcyE5jhexfLUYu6ZJLe+O5QKkc7NlFFaMP1RqH6I+5UJhcrVHhIka3tdxE QQ1ckDMPvaddKUYr2/nH6jR4YFFp42mTIkG+jwItmjbwgFuaHNqfI0FVvoum bTo8oCzYFUQUSlCgjMqmHioPRD4TP2frJahrG22GsODBswy52GKpaZTNCH6q foEHvIfrC/wDppHB/iULnm958AO3NSvymkGv8vJ1OzEevJtu/b4keAbRVtnT D9fw4MGaGwrBjBm0ZzSdadDKAwP/OynFhTPINo5yVDDCgyJuYG6YeAZd7rJJ v67Kh+bUaF0uYxaJLSY+cNT5oJPMdNuSPYtCCtK4p9fxgWXkeya5eBZFhrH3 7dPjwzPliPc1XbMobfOlYel9fCgZCpMZ159Dby6lGsV68wFd0v2R1TqH9nXv PDPvx4d8hQmKw+gcqrTqjfIL4MOuyIVQ0/k51KBO7rIP48O+sm1+0fo/Uc/7 v8PU7vLB5DyvwCfyJyIpdn96iPHBeDLBfsFyHh18rH2+SB2HDgOj1FMTC4iW rkyu0cShXcuipHrZItKKnxv6ro2DKD+rOVh/Ec1e/+Yua4iDe5BSSL3bImLR Y1x+M8eBVMC+rd++iFZKCU/Oe+Gw09XwdOd5EkaS9K5S9cMhgXi/xT6IhPF4 DV/IV3BgC5lj89EkrKaTSbf/E4fMXVgLKZ+EXX/lZPMkCYfaodGaz0ISxnbF rA6X4zDq1kLTi5XCPp1kybggHIrtPPY050hh/xx9UHm5CgfhVQGzvlQKSzYN MM9sxqEvznWhsV8Ks16ut4cYwOHevMac425pzEhObU5mDIf9htQ/Fo9LY+vn pMrX8HEws+qnrLkgjU2PdJtaSHCYtsrbUpApjeVXJOy4q0RAXdDU0WE5GSy9 5MZE7goClu3OZKdpy2CRed5FFWoEbE9P6RzYK4O5pFluHdtAQPrzwLZzQTKY ip+EsptGgHp4u5FkSgZbODs0bmdGgGBX/QcndVmM49z6wmMfAaGKVtQMM1ms yjqfHH+IgOHp/oHJcFns2jrXjT/OEGBcfrudoSmHudtvc+xxI2B0aBXllbUc ZhshdafDk4CU6Oscir8cRh5/ImzyJ8DbRMviZr0cpqp5dXP9VQKYfYlfkqbl sHnbA85VwQTE2OmGn9WXx6JFby6kRPz3na36+r2R8ti/7M5+zA== "]], LineBox[CompressedData[" 1:eJwVTns4lIkeHmYiKZfRqWi6iCyl29ZJYf2UlIhc16Udq0ixVstoN5uKyjXh WJxIKEkdyaVRKvb3KbRUkimVKFlNLNb3zTdjjGZ86/zxPu/zPu/leY0PHPE8 qM5isX6ewf+5SVYTwrMmgbvOwqLvrAYhvad4dciWBNHyhFMlbhpEuNfAkU92 JMS9N+4wWqBB+CTdLu13IGGxMulQSMUswnLUR/u1Kwk8YeuvfiMcot57D6a5 k/DA681fkQ84hEPjdoGdFwnZEZaa889ziICMde/K/EhY/Vu5X/kmDpG6Xqsi JpgE69Cvr9Vms4n5+UygeSgJ+7NNQkci2ESJ2gS39zAJJqRjA8+JTdR3Dfzq EDnTF1gMWqmxCXFMgzM3loSb1spLZifUiei+2umW4yTsMXDSpPnqhMrxRm3s SRK06/Z5hoE6MX9hntHHMySwzxQmW3HUCYd7R/6qyiAh9e5XmpU5akSJakWa 61US0jNDDAufsgjLUEM7tXISXB57LBfUsYi7HboS4Q0SnG+56V4vYhEdxUp/ XhUJRNUW3eXRLEK1rdti5B4JazMKyqd5LCIgKbUt5TkJ/IrHfQyLQfHfp07Y dpHgs3pu+KreaYzy/XkD+ZKEtNLazU/vTmOKeXC+bw8Jb23Pi8J+msY77bZh Zp9IuPBQ0U6IVWigS85uniLhdmNGZ+snJXY1piXvVs3si5+pQZsSsyNWajxn SIC0rjXMTSVy2wPYPRwKRHrVtMfRGZ3YohrXoSCLinvO01Ki3pcCyWITCvp7 N/K32X7BuZ8dewUuFHwYTXk0q12BT3P7AxSuFJhd+rv8sFCB6TuOvz3pTsGC j96hsiIFal+p7k71mdkX5KunxShwDn/xi+LvKej2aY/MNFbgbBHZ8kRAAWtX UHv26Unk4MUqk0IKYjNl1fZ8OfbY7nD6UERBpu6VAoGzHKvuj/YXXKZgpYGG sNVKjgF3vuFyyylQbpe8fMKVY03lhxhWLQUnQ+y7d7ZPYGChiXXf45n/kUKm 0m4C62MrmvNoCgR0kyXHRoYZci++5wQFBqsGJrNXyzD4qFI2T0GB6v4hqRVP hjpRrl8lTlOQ0xOb/kglxYOHx1MFWhIIs/llsqdJilzfjXvdl0nAeC3f552r FH/Y9OCtlosE7FqLZR0CGonOVzfrXSVgq19nqAql8V8/kqcOuUtA77TbkHUA jVi20qzFRwLSX1YoBu1pNFiYFR0fJAF7h+R14zo0PlCEaMuPSmBf3Pt0rJSg Nup8M1gigZa2+MgEGYUVuw+U/D4hAbqzMdf4OombLI3tQCGBIn+H7VrFJP6u 0/8Ov0jgWMSsbYpcEjtF/IVNLBpqAgoY6gyJUr5/xqM5NBz7UKbnGESiXbR7 3B9LaSh0eX0w1GgmX2Dn17WThkCtyq5E83GUjRjpifNoWHg36gebLWOYc+nz 48J8Go74c047mo/hxr3CU16FNEj0xSv4i8YwqtZ1nLhMg4IR1AknR3HsWHzH xZs0mMTP47Dvj+KnWeJ0j4c03DBjsebCKL5aVqPVOEZDnMBmro/nCNZ57WLn 7JBC9Yb/vOMXDGOKS30ib5cUjOzCFpllDON3Dhazy3ZL4aC448lEwjCqb9Se d8dNCv6JnUdqwobRjft8wRs/KRhfWV6atnUYhzq/XcX7UQoxHe1FzT1DaOQW 6nE1Vwot7lr2hiZDeMopsVgoloL7rRL3s21iNO5zflOaKIOxUg0URwyitdXZ HMOvJ0BN3nWofvMAfrf0uUJNNAGK/WXyc+H9KGs/P/BTghxyzZR/fj7chxc4 gTGeppPgl7lLyc3rQYP3dVfUmychl7s+XHfJG5x1IsF7a5QClCnL42V3XiHr RmDVAHcKglO8l9wSijC6oOo89+EU6G/c+9scfIGNq1Nm60d+AbbpHkUruxP1 naMtT+soob5qIuOz4TPsXdMpim1QgvuqqahrVu1YXQSmg4Eq+Fhul/xH82Pk V23WXzKtghsLNPefzG7B+MTLCb3/m4bKrm1mkpBHWDm05KLOHgbmv7WvmZfa hCmXEoPeuzHQH9UatDihCUM8x1be8mCg3qlNzzK2CXkNDdWuvgzUcqcivg1r wrTMfa3pBxjQ81tEdexuwsOb86k5sQxUj5uy3bSbcMXZ+U6a1xjQ4Z1wPp5F 4PSWuHmvrzPAdldLEqcQ+Hbsz65rFQxUNE9c8E4gMMv3Nn9nDQMtsm32W6MJ ZFZ5ChIbGFjn3x1l6k1g74vMIrZoxh/S3JuwiMD6JHmw6BUDBZ+ORhrqE5hj 871F6RsG7maJPIRaBLqUrRVuf8+AaZI5DsoQ7x971pYwzMBLtbyRpQ8Q89b8 O9NjlIHk26Vmx28iRg0UehuPM5Cpd6679xKi+Z6ID4SUgWVjx89VxyNy1F5e zZIz8IUnOrciGrG/ziY8aIoBM99ieX4wYkN46br1KgZ0s9KeLvBB/O8ybRnD MLBBAbPzdyL+A6ok/Fc= "]]}, Annotation[#, "Charting`Private`Tag$7348670#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Re(\\!\\(\\*FractionBox[\\(2\\\\ Log[Log[y]]\\), \\(2 + \ \\*SuperscriptBox[\\(y\\), \\(2\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {-2.8148749557202644`, 1.5401463768829209`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7958194196268253`*^9, 3.795819427678768*^9}}, CellLabel-> "Out[926]=",ExpressionUUID->"0d07bd50-ce9d-4152-acff-203681e9e894"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Im", "[", FractionBox[ RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}], RowBox[{"2", "+", SuperscriptBox["y", "2"]}]], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{ "a", ",", "\"\\""}], "}"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7958194356326027`*^9, 3.795819440166519*^9}}, CellLabel-> "In[927]:=",ExpressionUUID->"c9eaacb9-60af-464e-886e-a99c889ce73b"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF0nk01PsbB/AZ63easqXFlqyphqaI6uo+ny6uorqNveUO2Yq6JVTkSgpl dyUka5ZL0iBD2W9NuZYRIokoJEkz9n35fe85v+P7nPOc57z+ez/neZTsL5o5 CZBIpH/x/m+aOA02V39z+llK09BiXomChAxk3XpkDOGTIU/oP2unxCc+lbGA Z8uj6+dw98ur+l9VZ0LLjd9CZnCbctsLk2QcoUtA1HYKt2qYQuayogsstm+8 N457wcQh7rT6BWh1CaSN4B4KaOWcjr0E1/YeURvGbe04XREt4wk3etz8vuLm GMiWvEy8Ajzq6L5e3HSV/fkTit5gENRo3YU7UcAuRy3dB65qrnrXhhvrvfnQ Sv06zE5nsBtxl35q4b60uAH54ylTr3G7HXM0ORXrD1NGC/GVuD/uuG0QLhMA YzMfyY9xx6RsrFY7GQjZMs7/puE2EX+kX5kYBNMSliOxuIt5Dbv5isHgIHzB 0Q/3eSaz8PbpEFC6/iDfHbdyI19rc3ooVHJ0mU64I/KkNBjqEfC8qPLjQdxG ChkZ385EgtE9Fmsv7uuvEyT+sYiCVYXr+7bi1tGlhR+P/QtOSDAuYLhT1/0W FCITA6yoivWVmynIhxvHsSqNgaCerIkc3FaBnwRUTt6Dslw5nXu4V09e8itL jIUEmaJ2F9xerTFew4r34dzUfAEVt3nYx+Jn1fchWy8xcUyRgrQM1ScDTifA nETf4Hvc/U9LLimkP4ADbR5Z6bgZdz+4HlVPhqF/JIt34qaZquTI1iQDe7/V k7W4McHzXwfOpICNgT02uYmCbJ8vFVRZpAJ9c99nNu51W6O0bGLT4FHm6u10 3P7Y0y3BMhlgff6irKgCBW0z/utOoVsGaE4ONHbKU1BL4MVvnTUZ0DxXX8vC rSpIy9W6kgnJWxajLXG/XszQam3Jgkx2h0e8HL7veOxuxbAcUJlrvjIvQ0Hs nZdjD/blQEfU/D0Obqab+fSlfY+guV5uIQw364f4c87gI9jW6pwkh9ts8I6+ q9FjWJ+jv5u+kYLiP14zYC89gYem8y9011PQAfnjGd2WLLBHNlYT6/B/PaEn jOWxoI5rsbMA96Zhb4c8zXxYOnCyUgP3RRddNVJXPojYDu0Wl6YgKUdWduae QuDNdGc+l6Qgm+NprJHRItjqOfMlYDUF8TstVj2UZUOljoDXTtxBTMzJ3IAN /oMvXT9SKeipw0XZ4hg2jD9Nc9fGLXZhf6CPXjGoVmuueU+hoFc3O06I+JbA fRuqt6AoBe16LCkij5VCgH1ZWB+Jgmq1Xtlx6aVQWTb525+47Qq8yq4fL4XQ v7IvS+MOL+5x+/yoFKxq2IO/LGNosDqvM+tIGYz1ql2MX8RQctuhgp13y8H0 dweq+hyGqMv+p4w3VYGqrepU/RiG4l2smbRfqyDY+Hi0OW7VVpqd5IUqYN7c fv/DKIZ+zml36KyogoWJ4YGBEQw9z4lll2hVg5xjfcAMD0M/zIfLTRurgWl+ uWN5CEOW2XH1HmtewIhhlHNKL4bUGLzBl6EcqOhSY6g3YUjWz3jfmTQOhKlc bvJ5gyGJvNTQVSUc+JpQk9nUiKE5zFyL0cuBD7Jfzby4GGqqLvHo3vMKPGdp pVV1GLpG91+a+fIKOAWr32m9wlCjuLS0FqqBLKPVUpHPMXS1cS/ET9TCdX0n B2YqhsS02F9qsTpwaqn0jU/BUEY4PWxevg6Ojr1b1ZKMoebDWzqYRnXAMC30 NUjC0PZ6aQ+12DqI91WrVUzAUE8NP6tQrx683IvFK+9iyPifTDHutQYIpxSr RgdhaEORZDeZ/Aai1bf8SHbFUHGvQcMb/RZ4aapRN6qOoReuSXLHh1uhNYFr EdcpiibV94vn/dEO59LuXJkIF0UCs7kScmofoDS25fGVXaJId9mu2PxJF9T8 HZrZ/U4ENQToNL7e1gNF821uvKsiSDHq+2wO7xNoj3YK91FF0Pfpnu42ei+c uXV+UihdGGUMldWJRfRBn/N97VxNYSSm8De/v78f9DrKo6+UCKEwF7ZzquoA iFQ0qGoYC6EplNt/1u8rqBcda3hWL4g8d3GK1r8cBKrR0lCgtSDqecIJbVYa gndc5sDGDgE079r6YOu178AdCc6ePiWAth8QXXIuGwZry731d7+RkfFDpTMF G3hwNILWZ/YHGenEi6m/lufBmplIgcBzZLQ5Yr7/gxIPCs8+0S5xIaM57zZ7 IRoPvkqeqZdzJqM8RjDTGvHAndHU8oVJRmvJo5aLZ3lw4E4Ow/cYGfXYVhse KuVBb0ZpRKk2GTVY5gkyq3iQbT2L8XeS0TPThBfuHB5Y3dCNU6GTUbSeJ0ps 5EHdljF+GI2MjMQ19Pm9PPjiZhVjp0ZGuZWR2veofHBhjJZQN5DRVQVb5c+n +DBh4fP50hwJ2R+jW3Wd5kN/tctkwQwJHb1FDml35kOuXPymsSkSUv+WPsp1 48MZ2li++zgJtRYNVpcG4K492O45TEL0w+62MY/5UPy2Qc+3m4Tk/QzuRhbw oc+nJ6uyi4REC6VrQor5QPdTpZE6Sah7Q4mWfzUf7q7x977VTkJhffOLf7Ty QZStrBTaREJe67k7XTr4QO1yNuA2kpDDoWQnx24+aHiY/ynOJaF9LMQ9MciH f5l2u2Jq8Xy9kmSrH3zY05bEeldDQpLr+nQYY3xIWK4wkHlNQgvGRWcPT/PB +MQb3kkOCQ1eC0w0XuCD3fFP+ckvSGjIavvZNNIIkP5fdiNrBRQFCb8LXniQ KEzYVOXLblmMcHU5903cKsK6VsUu69YQVg6+nSQhRThe2U0vQpqwWLlNM3UD 4VneVmFRecJNFg3nF9UI/8orEvHRIFx+Oyl1Zhvhv0svtI7vIHx9s6T+0F7C tGFLavsRws8sDleFHCNsUPGLx8/mhE9E7OjMtCEcTKfkejoQHvAsN5HyJpy6 qBxyJIPwWvERjDNHWKjqAUslcXTF53TKOiimYyvOPWSfWjlFePK7rMRA7PiK 2ebGgjGGEyv2OxiYUjRAWOmjyfv0wMkV79MLiJHZNbXiU5vezJLfEp6sC+91 858m7iPE9DRTnSHyd7MfCnAIC/v6W+y9NLtiUg6T1Ss1t2L3BFa41AvCFdvv YJIX5lcsaeJOuym2sOIuzaa33uWE85NBtZ+5uOLfWbqSCkuEbwSm+Xc9Wlpx 3qDCA7HDyyu+kxRo132UsKPZD7UnDMLy5eX5R6wJh0SefB1mT/is7v3RVd6E lQOkD4pmEV7a8+ea9mzCHT/6WrJyCUdZP/391wLCy9vMPALLCXc1RyYLviX8 LGja4W0b4ZifbLemvydsmqlV9Es34VIvbq3/N8KxmrsjGcOEL/UmWijxCWsc Pt9TPUFYiNyaETVN+BP7J1e7OcLlruk76IuE4xSpk8vLhP8HYKfhQw== "]]}, Annotation[#, "Charting`Private`Tag$7349319#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["a", TraditionalForm], FormBox[ "\"Im(\\!\\(\\*FractionBox[\\(2\\\\ Log[Log[y]]\\), \\(2 + \ \\*SuperscriptBox[\\(y\\), \\(2\\)]\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1}, None}, GridLinesStyle->Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {0., 3.1415926535897905`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.795819440740529*^9}, CellLabel-> "Out[927]=",ExpressionUUID->"cacdf14b-1d49-41ad-97ef-3ffb941b5796"] }, Open ]] }, WindowSize->{1612, 719}, WindowMargins->{{20, Automatic}, {Automatic, 16}}, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 13, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"6fb75680-44d8-432e-b47d-f4cb10aac6a3" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 576, 15, 107, "Text",ExpressionUUID->"21aebfb9-8022-412e-a031-e3af03a881b4"], Cell[1137, 37, 2054, 59, 64, "Input",ExpressionUUID->"44eed758-9018-414d-93f1-cfe97675bd8d"], Cell[3194, 98, 1994, 58, 64, "Input",ExpressionUUID->"8ec94802-b047-46a4-b164-1f3a599f989b"], Cell[CellGroupData[{ Cell[5213, 160, 276, 6, 30, "Input",ExpressionUUID->"9f6e8b58-fc5c-4769-b36d-254cd5362fd7"], Cell[5492, 168, 1825, 54, 68, "Output",ExpressionUUID->"6c492ba9-fc1e-4e94-8dfb-081acfbb326e"] }, Open ]], Cell[CellGroupData[{ Cell[7354, 227, 282, 6, 30, "Input",ExpressionUUID->"1d0c62c0-65a7-4084-8006-0f5144ee4c00"], Cell[7639, 235, 317, 7, 34, "Output",ExpressionUUID->"dd5f3dec-f555-4dcc-a770-10957db92184"] }, Open ]], Cell[7971, 245, 252, 5, 38, "Text",ExpressionUUID->"04d02508-1d4d-480c-b4d3-dcda6a6c0f64"], Cell[8226, 252, 1973, 58, 64, "Input",ExpressionUUID->"9065ac58-be82-4033-9a63-6eb24fad432a"], Cell[10202, 312, 1432, 43, 63, InheritFromParent,ExpressionUUID->"99ad15b9-1d6d-4369-8c7a-801aad290adb"], Cell[11637, 357, 249, 5, 38, "Text",ExpressionUUID->"a38d1d91-bb6b-464f-a5b4-0e9dbaf8fbf7"], Cell[11889, 364, 2635, 71, 63, InheritFromParent,ExpressionUUID->"06428d36-1d6a-48a6-b40c-401dd7894c62"], Cell[14527, 437, 3436, 88, 82, InheritFromParent,ExpressionUUID->"5ce9956c-29e0-4c8a-ad46-651731356fcc"], Cell[17966, 527, 3238, 85, 82, "Input",ExpressionUUID->"7a79c76d-4d2e-49cb-bd63-c2a5590aa8d3"], Cell[CellGroupData[{ Cell[21229, 616, 300, 6, 30, "Input",ExpressionUUID->"6f37b957-a68d-4204-a59c-6036b5e8a3ca"], Cell[21532, 624, 2964, 80, 83, "Output",ExpressionUUID->"58b53be4-f605-4ba1-aa72-034aa8842d8a"] }, Open ]], Cell[24511, 707, 261, 5, 38, "Text",ExpressionUUID->"2a6cb1b3-b296-4b4b-85e3-84f004db3295"], Cell[CellGroupData[{ Cell[24797, 716, 291, 6, 30, "Input",ExpressionUUID->"ae72b490-1527-44ef-8bff-ee377aa5b7c5"], Cell[25091, 724, 483, 13, 34, "Output",ExpressionUUID->"d27f288e-5a86-4bc8-96c6-4dbe277d9cb1"] }, Open ]], Cell[CellGroupData[{ Cell[25611, 742, 382, 9, 30, "Input",ExpressionUUID->"3852c914-d3b2-40df-a9b9-b4c14dcd9dbd"], Cell[25996, 753, 1129, 35, 67, "Output",ExpressionUUID->"a250cf8c-e9c3-4508-bc45-9c25f8c0d29f"] }, Open ]], Cell[CellGroupData[{ Cell[27162, 793, 1147, 31, 51, "Input",ExpressionUUID->"aab67044-3b70-4a75-a26b-de05f3da5df3"], Cell[28312, 826, 10307, 191, 251, "Output",ExpressionUUID->"781f3d03-5c4b-400b-a4fd-5cd35fa7c908"] }, Open ]], Cell[CellGroupData[{ Cell[38656, 1022, 1046, 29, 51, "Input",ExpressionUUID->"810519c1-ca78-4ea2-9b55-8f3f0fb75c53"], Cell[39705, 1053, 7185, 139, 258, "Output",ExpressionUUID->"3a0fbf73-ea3d-4106-8fa2-f0b0fc54f310"] }, Open ]], Cell[CellGroupData[{ Cell[46927, 1197, 311, 7, 30, "Input",ExpressionUUID->"7336a1ca-38c4-43c6-8440-6bd7b738ba2a"], Cell[47241, 1206, 459, 12, 34, "Output",ExpressionUUID->"484db447-c08c-4386-a0de-4eafbb9ccd83"] }, Open ]], Cell[CellGroupData[{ Cell[47737, 1223, 357, 8, 30, "Input",ExpressionUUID->"b507ebbd-74b3-4c61-963a-02f5087e2f8f"], Cell[48097, 1233, 1134, 35, 67, "Output",ExpressionUUID->"24880972-3610-40e3-8fd0-2a54fe897983"] }, Open ]], Cell[CellGroupData[{ Cell[49268, 1273, 1224, 32, 57, "Input",ExpressionUUID->"116f8c68-e6d7-4e02-ae8e-d19f245c41e2"], Cell[50495, 1307, 9998, 186, 251, "Output",ExpressionUUID->"7bec47d4-ce05-49cc-8493-f1d83d53e1cb"] }, Open ]], Cell[CellGroupData[{ Cell[60530, 1498, 1224, 32, 57, "Input",ExpressionUUID->"60b92122-072a-4202-8106-dc71fbc6faa7"], Cell[61757, 1532, 8267, 157, 258, "Output",ExpressionUUID->"8f1daba7-befb-4fd0-9cc0-2085052ffce6"] }, Open ]], Cell[CellGroupData[{ Cell[70061, 1694, 311, 8, 30, "Input",ExpressionUUID->"3acb7237-67a4-4e92-8622-7289c055b2b4"], Cell[70375, 1704, 452, 10, 34, "Output",ExpressionUUID->"d7767c79-bbd7-45ea-a50e-af8a273ca871"] }, Open ]], Cell[CellGroupData[{ Cell[70864, 1719, 354, 10, 30, "Input",ExpressionUUID->"73d24a3a-2c22-4a14-94bc-bedcf212897d"], Cell[71221, 1731, 1084, 34, 67, "Output",ExpressionUUID->"4188af02-66a9-4ed5-a028-351410c31f70"] }, Open ]], Cell[CellGroupData[{ Cell[72342, 1770, 1200, 32, 55, "Input",ExpressionUUID->"eeafe2ed-6056-44c7-8ac8-14fd6dc3646c"], Cell[73545, 1804, 7987, 154, 255, "Output",ExpressionUUID->"135ef12b-b9f5-4f15-96d8-1a5c76a739c0"] }, Open ]], Cell[CellGroupData[{ Cell[81569, 1963, 1200, 32, 55, "Input",ExpressionUUID->"c598f926-8cce-470c-a043-71fa35fc794e"], Cell[82772, 1997, 5060, 105, 261, "Output",ExpressionUUID->"c6e4f1fc-9565-4ed6-9c38-fb34fb3d4aab"] }, Open ]], Cell[CellGroupData[{ Cell[87869, 2107, 287, 6, 30, "Input",ExpressionUUID->"ea5d07c9-fafb-4ae7-a531-43c6cc852876"], Cell[88159, 2115, 486, 13, 34, "Output",ExpressionUUID->"0fba519e-f992-4e2a-8c79-2b64ecf190e9"] }, Open ]], Cell[CellGroupData[{ Cell[88682, 2133, 335, 8, 30, "Input",ExpressionUUID->"7114a517-38b2-4f36-bfb2-ad96175101e9"], Cell[89020, 2143, 1130, 35, 67, "Output",ExpressionUUID->"6960aae3-4203-4c4a-8352-16697b2280e2"] }, Open ]], Cell[CellGroupData[{ Cell[90187, 2183, 1304, 34, 54, "Input",ExpressionUUID->"5f60dcab-c080-4568-b2a0-fad8d572bf51"], Cell[91494, 2219, 12652, 231, 253, "Output",ExpressionUUID->"f535d2dc-0d0f-4245-a39b-3dffe5b4360a"] }, Open ]], Cell[CellGroupData[{ Cell[104183, 2455, 1304, 34, 54, "Input",ExpressionUUID->"7476738b-757e-4a1c-a3da-1ba36567283e"], Cell[105490, 2491, 8352, 159, 260, "Output",ExpressionUUID->"619bf538-e9ed-436a-9834-057246fcef25"] }, Open ]], Cell[CellGroupData[{ Cell[113879, 2655, 337, 7, 30, "Input",ExpressionUUID->"26689e7a-917b-43c0-b322-88cda9dfd768"], Cell[114219, 2664, 512, 13, 34, "Output",ExpressionUUID->"836c0bcc-324d-4cc6-8728-952cd9452909"] }, Open ]], Cell[CellGroupData[{ Cell[114768, 2682, 383, 9, 30, "Input",ExpressionUUID->"540c349b-6e6b-4ee6-aa66-956a3e741eb9"], Cell[115154, 2693, 1821, 53, 83, "Output",ExpressionUUID->"7338bb23-dafd-4d00-8855-8fd8a051d464"] }, Open ]], Cell[CellGroupData[{ Cell[117012, 2751, 1295, 33, 51, "Input",ExpressionUUID->"4435e9f9-b30b-464b-9126-75a4fa5614c5"], Cell[118310, 2786, 6990, 137, 254, "Output",ExpressionUUID->"23804f7e-3492-4bc4-8c22-979f6ae7bfbd"] }, Open ]], Cell[CellGroupData[{ Cell[125337, 2928, 1044, 29, 51, "Input",ExpressionUUID->"69fa1a21-bc53-496d-9c33-c13b671e43f3"], Cell[126384, 2959, 5323, 109, 260, "Output",ExpressionUUID->"70c41dc9-742d-43f8-9313-c7c8ec9bc2e1"] }, Open ]], Cell[CellGroupData[{ Cell[131744, 3073, 389, 9, 30, "Input",ExpressionUUID->"5fa8bb99-a39c-4b4f-9fb8-7dc73328c238"], Cell[132136, 3084, 533, 14, 34, "Output",ExpressionUUID->"943840c3-e67d-45f8-9e95-e0ebb43d7ca9"] }, Open ]], Cell[CellGroupData[{ Cell[132706, 3103, 453, 10, 30, "Input",ExpressionUUID->"9b1edcdd-685e-4944-a123-d0962f699df4"], Cell[133162, 3115, 1810, 51, 83, "Output",ExpressionUUID->"840dbe61-edad-4c4a-b45c-a7779e062603"] }, Open ]], Cell[CellGroupData[{ Cell[135009, 3171, 1045, 29, 51, "Input",ExpressionUUID->"38b7e7e2-8a0c-4933-b0ce-e5b92a51e065"], Cell[136057, 3202, 7475, 145, 255, "Output",ExpressionUUID->"0d07bd50-ce9d-4152-acff-203681e9e894"] }, Open ]], Cell[CellGroupData[{ Cell[143569, 3352, 1047, 29, 51, "Input",ExpressionUUID->"c9eaacb9-60af-464e-886e-a99c889ce73b"], Cell[144619, 3383, 5416, 110, 281, "Output",ExpressionUUID->"cacdf14b-1d49-41ad-97ef-3ffb941b5796"] }, Open ]] } ] *)