[ewald] jdu domů
Former-commit-id: 297d041a358960dba00ff03a264b5032e0419c84
This commit is contained in:
Marek Nečada
parent
20b24aa43c
commit
8b92c1df1d
|
|
@ -10,10 +10,10 @@
|
|||
NotebookFileLineBreakTest
|
||||
NotebookFileLineBreakTest
|
||||
NotebookDataPosition[ 158, 7]
|
||||
NotebookDataLength[ 111859, 3158]
|
||||
NotebookOptionsPosition[ 102675, 2933]
|
||||
NotebookOutlinePosition[ 103042, 2949]
|
||||
CellTagsIndexPosition[ 102999, 2946]
|
||||
NotebookDataLength[ 124133, 3523]
|
||||
NotebookOptionsPosition[ 113111, 3255]
|
||||
NotebookOutlinePosition[ 113451, 3270]
|
||||
CellTagsIndexPosition[ 113408, 3267]
|
||||
WindowFrame->Normal*)
|
||||
|
||||
(* Beginning of Notebook Content *)
|
||||
|
|
@ -108,8 +108,8 @@ Cell[BoxData[{
|
|||
RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "Input",
|
||||
CellChangeTimes->{{3.714275713710395*^9, 3.714275854008779*^9}, {
|
||||
3.714275901119227*^9, 3.7142759040182943`*^9}, 3.7142759848256273`*^9,
|
||||
3.7142760852880793`*^9,
|
||||
3.714279521167551*^9},ExpressionUUID->"60b62416-1732-4228-8f52-\
|
||||
3.7142760852880793`*^9, 3.714279521167551*^9,
|
||||
3.714376642974696*^9},ExpressionUUID->"60b62416-1732-4228-8f52-\
|
||||
4dd7ea7c260b"],
|
||||
|
||||
Cell[BoxData[
|
||||
|
|
@ -2840,7 +2840,8 @@ Cell[BoxData[
|
|||
RowBox[{"4", ",", "0.1", ",", "1", ",", "3"}], "]"}]], "Input",
|
||||
CellChangeTimes->{{3.71430647467421*^9, 3.71430647483814*^9},
|
||||
3.714306561660407*^9, {3.714306701599392*^9, 3.7143067030037622`*^9},
|
||||
3.7143068783028393`*^9},ExpressionUUID->"ef81724d-7599-4fc6-bc9f-\
|
||||
3.7143068783028393`*^9, {3.714376564639735*^9,
|
||||
3.714376573666842*^9}},ExpressionUUID->"ef81724d-7599-4fc6-bc9f-\
|
||||
faa6548f8c62"],
|
||||
|
||||
Cell[BoxData[
|
||||
|
|
@ -2929,11 +2930,331 @@ Cell[BoxData[
|
|||
CellChangeTimes->{{3.714306340973686*^9,
|
||||
3.7143064115016193`*^9}},ExpressionUUID->"be3bbbd4-9c45-4351-a1ef-\
|
||||
63e78194d774"]
|
||||
}, Open ]],
|
||||
|
||||
Cell[CellGroupData[{
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"HsSq2n0f", "[",
|
||||
RowBox[{"2", ",", "0.1", ",", "1", ",", "1.5"}], "]"}]], "Input",
|
||||
CellChangeTimes->{{3.714376580704068*^9, 3.714376581601132*^9},
|
||||
3.714376625541174*^9},ExpressionUUID->"6ed44f78-9dea-4e9b-9c6f-\
|
||||
054174e7e82b"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"0.0022397494137522678`", "\[VeryThinSpace]", "-",
|
||||
RowBox[{"0.006513830114918795`", " ", "\[ImaginaryI]"}]}]], "Output",
|
||||
CellChangeTimes->{{3.714376584263612*^9, 3.714376626111169*^9},
|
||||
3.71437672167714*^9},ExpressionUUID->"7b8e4d31-ecf7-4029-83ce-\
|
||||
7d91df23700d"]
|
||||
}, Open ]],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{
|
||||
RowBox[{"NInt", "[",
|
||||
RowBox[{
|
||||
"q_", ",", "n_", ",", "\[Kappa]_", ",", "c_", ",", "k0_", ",", "k_"}],
|
||||
"]"}], ":=",
|
||||
RowBox[{"NIntegrate", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"k0", " ", "x"}], ")"}], "^",
|
||||
RowBox[{"(",
|
||||
RowBox[{"-", "q"}], ")"}]}], " ",
|
||||
RowBox[{"Exp", "[",
|
||||
RowBox[{"I", " ", "k0", " ", "x"}], "]"}], " ", "x", " ",
|
||||
RowBox[{"BesselJ", "[",
|
||||
RowBox[{"n", ",", " ",
|
||||
RowBox[{"k", " ", "x"}]}], "]"}], " ",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"1", "-",
|
||||
RowBox[{"Exp", "[",
|
||||
RowBox[{
|
||||
RowBox[{"-", "c"}], " ", "x"}], "]"}]}], ")"}], "^", "\[Kappa]"}]}],
|
||||
",",
|
||||
RowBox[{"{",
|
||||
RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}]], "Input",
|
||||
CellChangeTimes->{{3.714376655892346*^9, 3.714376704247987*^9}, {
|
||||
3.714376741559724*^9,
|
||||
3.7143767467815313`*^9}},ExpressionUUID->"c67c7bd2-b642-48af-8f40-\
|
||||
996a591698e8"],
|
||||
|
||||
Cell[CellGroupData[{
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"NInt", "[",
|
||||
RowBox[{"2", ",", "0", ",", "2", ",", "0.1", ",", "1", ",", "1.5"}],
|
||||
"]"}]], "Input",
|
||||
CellChangeTimes->{{3.714376729806518*^9,
|
||||
3.7143767633704863`*^9}},ExpressionUUID->"614cd318-0372-4398-a331-\
|
||||
06e8a19a7a2b"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"0.0022397494137648237`", "\[VeryThinSpace]", "-",
|
||||
RowBox[{"0.006513830114925522`", " ", "\[ImaginaryI]"}]}]], "Output",
|
||||
CellChangeTimes->{
|
||||
3.714376763959959*^9},ExpressionUUID->"88930c3e-c93e-4369-838f-\
|
||||
286f7ce31f12"]
|
||||
}, Open ]],
|
||||
|
||||
Cell["Small k, q +n <= 2", "Input",
|
||||
CellChangeTimes->{{3.7144498543190403`*^9, 3.7144498940773487`*^9}},
|
||||
FormatType->
|
||||
"TextForm",ExpressionUUID->"bb88952d-82d8-40c6-9199-8918ec79cfd3"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{
|
||||
RowBox[{"HsShortPoly2", "[",
|
||||
RowBox[{
|
||||
"q_", ",", "n_", ",", "\[Kappa]_", ",", "c_", ",", "k0_", ",", "k_"}],
|
||||
"]"}], ":=",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"2", "^",
|
||||
RowBox[{"(",
|
||||
RowBox[{"1", "-", "q"}], ")"}]}], "/",
|
||||
RowBox[{"Sqrt", "[", "Pi", "]"}]}],
|
||||
RowBox[{"Sum", "[", "\[IndentingNewLine]",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"-", "1"}], ")"}], "^", "\[Sigma]"}], " ",
|
||||
RowBox[{"Binomial", "[",
|
||||
RowBox[{"\[Kappa]", ",", "\[Sigma]"}], "]"}],
|
||||
RowBox[{
|
||||
RowBox[{"k", "^", "n"}], "/",
|
||||
RowBox[{"(",
|
||||
RowBox[{
|
||||
RowBox[{"k0", "^", "q"}], " ",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{
|
||||
RowBox[{"\[Sigma]", " ", "c"}], "-",
|
||||
RowBox[{"I", " ", "k0"}]}], ")"}], "^",
|
||||
RowBox[{"(",
|
||||
RowBox[{"2", "-", "q", "+", "n"}], ")"}]}]}], ")"}]}],
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"Gamma", "[",
|
||||
RowBox[{"1", "+", "n"}], "]"}], "/",
|
||||
RowBox[{"Gamma", "[",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"2", "-", "q", "+", "n"}], ")"}], "/", "2"}], "]"}]}], "/",
|
||||
RowBox[{"Gamma", "[",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"3", "-", "q", "+", "n"}], ")"}], "/", "2"}], "]"}]}],
|
||||
"\[IndentingNewLine]",
|
||||
RowBox[{"Sum", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"-", "1"}], ")"}], "^", "s"}], " ",
|
||||
RowBox[{"Binomial", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"2", "-", "q", "+", "n"}], ")"}], "/", "2"}], ",", "s"}],
|
||||
"]"}],
|
||||
RowBox[{
|
||||
RowBox[{"Pochhammer", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"3", "-", "q", "+", "n"}], ")"}], "/", "2"}], ",",
|
||||
"s"}], "]"}], "/",
|
||||
RowBox[{"Pochhammer", "[",
|
||||
RowBox[{
|
||||
RowBox[{"1", "+", "n"}], ",", "s"}], "]"}]}],
|
||||
"\[IndentingNewLine]",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{
|
||||
RowBox[{"-",
|
||||
RowBox[{"k", "^", "2"}]}], "/",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{
|
||||
RowBox[{"\[Sigma]", " ", "c"}], "-",
|
||||
RowBox[{"I", " ", "k0"}]}], ")"}], "^", "2"}]}], ")"}], "^",
|
||||
"s"}]}], ",",
|
||||
RowBox[{"{",
|
||||
RowBox[{"s", ",", "0", ",",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"2", "-", "q", "-", "n"}], ")"}], "/", "2"}]}], "}"}]}],
|
||||
"]"}]}], "\[IndentingNewLine]", ",",
|
||||
RowBox[{"{",
|
||||
RowBox[{"\[Sigma]", ",", "0", ",", "\[Kappa]"}], "}"}]}],
|
||||
"]"}]}]}]], "Input",
|
||||
CellChangeTimes->{{3.714449900855444*^9, 3.7144500244598913`*^9}, {
|
||||
3.714450128012027*^9, 3.714450333156262*^9}, {3.714450377234408*^9,
|
||||
3.714450397809031*^9}},ExpressionUUID->"e172db1f-c3c1-45a5-8f3d-\
|
||||
170a7c1d9a77"],
|
||||
|
||||
Cell[CellGroupData[{
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"NInt", "[",
|
||||
RowBox[{"4", ",", "0", ",", "4", ",", "0.1", ",", "1", ",", "0.3"}],
|
||||
"]"}]], "Input",
|
||||
CellChangeTimes->{{3.7144503464873953`*^9, 3.7144503490025454`*^9}, {
|
||||
3.714450463247095*^9, 3.7144504716236067`*^9},
|
||||
3.71445099306275*^9},ExpressionUUID->"01a283df-a1fc-43b5-8a97-\
|
||||
7bb7e4ef9fbe"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{
|
||||
RowBox[{"-", "0.00009725705172330959`"}], "+",
|
||||
RowBox[{"0.0000461397932493922`", " ", "\[ImaginaryI]"}]}]], "Output",
|
||||
CellChangeTimes->{
|
||||
3.714450349678749*^9, 3.71445039986479*^9, {3.714450465787138*^9,
|
||||
3.714450473110091*^9}},ExpressionUUID->"7b3fee15-7f5e-46f7-b9ab-\
|
||||
64e2cd0009d8"]
|
||||
}, Open ]],
|
||||
|
||||
Cell[CellGroupData[{
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"HsShortPoly2", "[",
|
||||
RowBox[{"4", ",", "0", ",", "4", ",", "0.1", ",", "1", ",", "1.5"}],
|
||||
"]"}]], "Input",
|
||||
CellChangeTimes->{{3.714450354720892*^9, 3.7144503587185497`*^9}, {
|
||||
3.714450476468595*^9,
|
||||
3.714450482001546*^9}},ExpressionUUID->"4ee267c3-1395-4600-9e0d-\
|
||||
9bef997a3c6c"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"0.`", "\[VeryThinSpace]", "+",
|
||||
RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
|
||||
CellChangeTimes->{3.714450359651774*^9, 3.714450400523344*^9,
|
||||
3.714450482387801*^9},ExpressionUUID->"33105fcb-ed74-4431-9f6c-\
|
||||
898062630460"]
|
||||
}, Open ]],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{
|
||||
RowBox[{"HsShort", "[",
|
||||
RowBox[{
|
||||
"q_", ",", "n_", ",", "\[Kappa]_", ",", "c_", ",", "k0_", ",", "k_"}],
|
||||
"]"}], ":=",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"2", "^",
|
||||
RowBox[{"(",
|
||||
RowBox[{"1", "-", "q"}], ")"}]}], "/",
|
||||
RowBox[{"Sqrt", "[", "Pi", "]"}]}],
|
||||
RowBox[{"Sum", "[", "\[IndentingNewLine]",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"-", "1"}], ")"}], "^", "\[Sigma]"}], " ",
|
||||
RowBox[{"Binomial", "[",
|
||||
RowBox[{"\[Kappa]", ",", "\[Sigma]"}], "]"}],
|
||||
RowBox[{
|
||||
RowBox[{"k", "^", "n"}], "/",
|
||||
RowBox[{"(",
|
||||
RowBox[{
|
||||
RowBox[{"k0", "^", "q"}], " ",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{
|
||||
RowBox[{"\[Sigma]", " ", "c"}], "-",
|
||||
RowBox[{"I", " ", "k0"}]}], ")"}], "^",
|
||||
RowBox[{"(",
|
||||
RowBox[{"2", "-", "q", "+", "n"}], ")"}]}]}], ")"}]}],
|
||||
"\[IndentingNewLine]",
|
||||
RowBox[{"Sum", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"Gamma", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"2", "-", "q", "+", "n"}], ")"}], "/", "2"}], "+", "s"}],
|
||||
"]"}], " ",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"Gamma", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{"3", "-", "q", "+", "n"}], ")"}], "/", "2"}], "+",
|
||||
"s"}], "]"}], "/",
|
||||
RowBox[{"Gamma", "[",
|
||||
RowBox[{"1", "+", "n", "+", "s"}], "]"}]}], "/",
|
||||
RowBox[{"s", "!"}]}], "\[IndentingNewLine]",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{
|
||||
RowBox[{"-",
|
||||
RowBox[{"k", "^", "2"}]}], "/",
|
||||
RowBox[{
|
||||
RowBox[{"(",
|
||||
RowBox[{
|
||||
RowBox[{"\[Sigma]", " ", "c"}], "-",
|
||||
RowBox[{"I", " ", "k0"}]}], ")"}], "^", "2"}]}], ")"}], "^",
|
||||
"s"}]}], ",",
|
||||
RowBox[{"{",
|
||||
RowBox[{"s", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}],
|
||||
"\[IndentingNewLine]", ",",
|
||||
RowBox[{"{",
|
||||
RowBox[{"\[Sigma]", ",", "0", ",", "\[Kappa]"}], "}"}]}],
|
||||
"]"}]}]}]], "Input",
|
||||
CellChangeTimes->{{3.714450806482028*^9, 3.714450835238635*^9}, {
|
||||
3.7144509062431183`*^9, 3.71445098397077*^9}, {3.714451423639358*^9,
|
||||
3.7144514249172487`*^9}},ExpressionUUID->"f9b1d3e1-f9e3-47df-b296-\
|
||||
06925e64f0cf"],
|
||||
|
||||
Cell[CellGroupData[{
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"HsShort", "[",
|
||||
RowBox[{"2.001", ",", "0", ",", "4", ",", "0.8", ",", "1", ",", "0.3"}],
|
||||
"]"}]], "Input",
|
||||
CellChangeTimes->{{3.714450997511832*^9, 3.7144510807692423`*^9}, {
|
||||
3.714451517185413*^9,
|
||||
3.714451521313496*^9}},ExpressionUUID->"deb85449-1242-4878-b97a-\
|
||||
2c182c410f03"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{
|
||||
RowBox[{"-", "0.20418154673151268`"}], "+",
|
||||
RowBox[{"0.09043780287300669`", " ", "\[ImaginaryI]"}]}]], "Output",
|
||||
CellChangeTimes->{
|
||||
3.714451521584096*^9},ExpressionUUID->"ecbc543a-2554-49e6-9782-\
|
||||
90f2af4e63f3"]
|
||||
}, Open ]],
|
||||
|
||||
Cell[CellGroupData[{
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"NInt", "[",
|
||||
RowBox[{"2.001", ",", "0", ",", "4", ",", "0.8", ",", "1", ",", "0.3"}],
|
||||
"]"}]], "Input",
|
||||
CellChangeTimes->{{3.714451442123979*^9, 3.7144514465635147`*^9}, {
|
||||
3.714451527937179*^9,
|
||||
3.714451533949725*^9}},ExpressionUUID->"b9f2e7bd-03c7-40fd-904e-\
|
||||
770f888fa55e"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{
|
||||
RowBox[{"-", "0.20418154496208551`"}], "+",
|
||||
RowBox[{"0.09043780575607874`", " ", "\[ImaginaryI]"}]}]], "Output",
|
||||
CellChangeTimes->{3.714451449039239*^9,
|
||||
3.714451535016184*^9},ExpressionUUID->"fe23d9f8-5eb2-48dd-9916-\
|
||||
622dd20f3cdb"]
|
||||
}, Open ]]
|
||||
},
|
||||
Evaluator->"New Kernel 3",
|
||||
WindowSize->{Full, Full},
|
||||
WindowMargins->{{Automatic, -244}, {Automatic, 405}},
|
||||
WindowMargins->{{Automatic, 173}, {187, Automatic}},
|
||||
FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)",
|
||||
StyleDefinitions->"Default.nb"
|
||||
]
|
||||
|
|
@ -2948,217 +3269,261 @@ CellTagsIndex->{}
|
|||
*)
|
||||
(*NotebookFileOutline
|
||||
Notebook[{
|
||||
Cell[558, 20, 1849, 53, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[558, 20, 1849, 53, 103, "Input", "ExpressionUUID" -> \
|
||||
"11f718af-721d-4530-8d00-fc136b151d2a"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[2432, 77, 1214, 35, 126, "Input", "ExpressionUUID" -> \
|
||||
Cell[2432, 77, 1236, 35, 149, "Input", "ExpressionUUID" -> \
|
||||
"60b62416-1732-4228-8f52-4dd7ea7c260b"],
|
||||
Cell[3649, 114, 288, 5, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[3671, 114, 288, 5, 34, "Output", "ExpressionUUID" -> \
|
||||
"e1c0326f-b1f0-4ebb-9de3-0d92c1b9201a"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[3974, 124, 471, 11, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[3996, 124, 471, 11, 34, "Input", "ExpressionUUID" -> \
|
||||
"9bf951ee-4aec-4260-9ddf-ddd1330b6243"],
|
||||
Cell[4448, 137, 3564, 97, 133, "Output", "ExpressionUUID" -> \
|
||||
Cell[4470, 137, 3564, 97, 287, "Output", "ExpressionUUID" -> \
|
||||
"d2edfa46-cbb3-4c0a-a2db-5b706afe5c8f"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[8049, 239, 402, 8, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[8071, 239, 402, 8, 34, "Input", "ExpressionUUID" -> \
|
||||
"8a8a5ec5-4164-415c-a832-378df85c3809"],
|
||||
Cell[8454, 249, 412, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[8476, 249, 412, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
"e6a4d50f-a64a-4c92-bccd-4fd642d8ab43"]
|
||||
}, Open ]],
|
||||
Cell[8881, 260, 4564, 131, 147, "Input", "ExpressionUUID" -> \
|
||||
Cell[8903, 260, 4564, 131, 258, "Input", "ExpressionUUID" -> \
|
||||
"15978efa-9e1d-46b2-b638-930987091033"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[13470, 395, 307, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[13492, 395, 307, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"bd9bb75c-aa2f-4771-820c-573b5d15abe3"],
|
||||
Cell[13780, 404, 293, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[13802, 404, 293, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
"fdc37902-4c0f-48d5-b1f9-b05ced69d16b"]
|
||||
}, Open ]],
|
||||
Cell[14088, 413, 4678, 133, 147, "Input", "ExpressionUUID" -> \
|
||||
Cell[14110, 413, 4678, 133, 236, "Input", "ExpressionUUID" -> \
|
||||
"0270ff41-5dea-48e1-8e61-3ad59c8f3c77"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[18791, 550, 329, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[18813, 550, 329, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"dc1bf119-f620-4298-9861-0bebd50af39b"],
|
||||
Cell[19123, 559, 346, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[19145, 559, 346, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
"502ca379-4501-4726-b8a3-a6d4743d21cf"]
|
||||
}, Open ]],
|
||||
Cell[19484, 570, 2609, 77, 125, "Input", "ExpressionUUID" -> \
|
||||
Cell[19506, 570, 2609, 77, 148, "Input", "ExpressionUUID" -> \
|
||||
"7bdc1e3b-21a7-4b53-8781-12296dcb7e43"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[22118, 651, 254, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[22140, 651, 254, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"e99ec6cf-d99f-42bb-b94e-4c6feeaefe2f"],
|
||||
Cell[22375, 659, 251, 5, 32, "Output", "ExpressionUUID" -> \
|
||||
Cell[22397, 659, 251, 5, 32, "Output", "ExpressionUUID" -> \
|
||||
"9defb7fc-3a2a-4372-b667-e589fcb6d801"]
|
||||
}, Open ]],
|
||||
Cell[22641, 667, 1813, 54, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[22663, 667, 1813, 54, 125, "Input", "ExpressionUUID" -> \
|
||||
"c903db13-544e-45bc-b87f-4a3b87557ce7"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[24479, 725, 254, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[24501, 725, 254, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"c75220ed-031f-49e5-9467-d46ac941cb11"],
|
||||
Cell[24736, 733, 278, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[24758, 733, 278, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
"2ca46fac-dce2-4111-be04-222479370c7c"]
|
||||
}, Open ]],
|
||||
Cell[25029, 742, 2762, 80, 125, "Input", "ExpressionUUID" -> \
|
||||
Cell[25051, 742, 2762, 80, 125, "Input", "ExpressionUUID" -> \
|
||||
"91fb5021-708e-4953-92bf-e65236c1db92"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[27816, 826, 252, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[27838, 826, 252, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"1d288674-7aa8-40c7-ad24-caf62a39a091"],
|
||||
Cell[28071, 834, 316, 7, 32, "Output", "ExpressionUUID" -> \
|
||||
Cell[28093, 834, 316, 7, 32, "Output", "ExpressionUUID" -> \
|
||||
"d5266c94-5c79-4a80-a294-09b967a31d30"]
|
||||
}, Open ]],
|
||||
Cell[28402, 844, 3937, 103, 235, "Input", "ExpressionUUID" -> \
|
||||
Cell[28424, 844, 3937, 103, 258, "Input", "ExpressionUUID" -> \
|
||||
"35e0146b-a88e-4958-9a81-4af639dd5abb"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[32364, 951, 301, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[32386, 951, 301, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"ee4e143e-b867-4930-86b6-de913836ba38"],
|
||||
Cell[32668, 960, 283, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[32690, 960, 283, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
"e7215961-ce53-448f-a9e3-0eda8cc30a4d"]
|
||||
}, Open ]],
|
||||
Cell[32966, 969, 4903, 136, 170, "Input", "ExpressionUUID" -> \
|
||||
Cell[32988, 969, 4903, 136, 236, "Input", "ExpressionUUID" -> \
|
||||
"a95bd250-d811-48c2-87a5-6e237d1225d7"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[37894, 1109, 352, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[37916, 1109, 352, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"2ea68715-88f5-4465-af14-0b3fcd58d31b"],
|
||||
Cell[38249, 1118, 553, 10, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[38271, 1118, 553, 10, 34, "Output", "ExpressionUUID" -> \
|
||||
"a7f32ea2-344b-47e7-80d7-9ffb74f31a08"]
|
||||
}, Open ]],
|
||||
Cell[38817, 1131, 5709, 158, 238, "Input", "ExpressionUUID" -> \
|
||||
Cell[38839, 1131, 5709, 158, 282, "Input", "ExpressionUUID" -> \
|
||||
"3d8bffca-d6ac-482a-b1a2-b2e45fd6aca8"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[44551, 1293, 330, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[44573, 1293, 330, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"1abff5df-c88c-4949-93d7-b00aaf2d034c"],
|
||||
Cell[44884, 1302, 341, 7, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[44906, 1302, 341, 7, 34, "Output", "ExpressionUUID" -> \
|
||||
"69027225-5785-4f7e-9ff2-0a3cee3e176d"]
|
||||
}, Open ]],
|
||||
Cell[45240, 1312, 269, 6, 32, "Input", "ExpressionUUID" -> \
|
||||
Cell[45262, 1312, 269, 6, 32, "Input", "ExpressionUUID" -> \
|
||||
"d5926fc0-c5a2-4b56-894e-116ee99824aa"],
|
||||
Cell[45512, 1320, 6000, 162, 259, "Input", "ExpressionUUID" -> \
|
||||
Cell[45534, 1320, 6000, 162, 347, "Input", "ExpressionUUID" -> \
|
||||
"5e62d660-2944-47ca-8ee0-e6a553ed7d63"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[51537, 1486, 354, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[51559, 1486, 354, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"ac03b840-c27b-4fe3-bb0b-82daba30770b"],
|
||||
Cell[51894, 1495, 296, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[51916, 1495, 296, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
"e5d1f184-d264-4d0a-af52-34362b04d2b6"]
|
||||
}, Open ]],
|
||||
Cell[52205, 1504, 5350, 141, 237, "Input", "ExpressionUUID" -> \
|
||||
Cell[52227, 1504, 5350, 141, 259, "Input", "ExpressionUUID" -> \
|
||||
"4ab261b6-0c49-491c-9869-75df5adc999d"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[57580, 1649, 280, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[57602, 1649, 280, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"28a7cebd-2387-4639-b462-54326a81706f"],
|
||||
Cell[57863, 1657, 249, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[57885, 1657, 249, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
"408303d5-6eab-465e-b43c-43bc1a3b6810"]
|
||||
}, Open ]],
|
||||
Cell[58127, 1666, 5096, 134, 258, "Input", "ExpressionUUID" -> \
|
||||
Cell[58149, 1666, 5096, 134, 258, "Input", "ExpressionUUID" -> \
|
||||
"a0aeba62-9dcc-4486-a26f-5ef44b8b7a21"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[63248, 1804, 257, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[63270, 1804, 257, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"959e5694-67a4-4fb4-a01a-51c9949a29f0"],
|
||||
Cell[63508, 1812, 247, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[63530, 1812, 247, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
"b6a40e5c-36ec-408f-a622-54079303243a"]
|
||||
}, Open ]],
|
||||
Cell[63770, 1821, 5074, 130, 236, "Input", "ExpressionUUID" -> \
|
||||
Cell[63792, 1821, 5074, 130, 236, "Input", "ExpressionUUID" -> \
|
||||
"811cd081-362a-41a3-bd5d-f77c96ca788c"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[68869, 1955, 254, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[68891, 1955, 254, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"dc6edbc3-0394-4cd5-be4f-23c469fcc0bb"],
|
||||
Cell[69126, 1963, 271, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[69148, 1963, 271, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
"d1aa622a-f7c6-4b70-a80c-c09426523c9d"]
|
||||
}, Open ]],
|
||||
Cell[69412, 1972, 4740, 127, 236, "Input", "ExpressionUUID" -> \
|
||||
Cell[69434, 1972, 4740, 127, 236, "Input", "ExpressionUUID" -> \
|
||||
"747e5737-fbc4-443f-8253-54d4a139ee63"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[74177, 2103, 283, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[74199, 2103, 283, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"69f1a251-919e-4400-b0c2-e2d5db4dccff"],
|
||||
Cell[74463, 2111, 368, 7, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[74485, 2111, 368, 7, 34, "Output", "ExpressionUUID" -> \
|
||||
"8b2e58e7-5d5a-4697-824a-0a411cb068bf"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[74868, 2123, 768, 23, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[74890, 2123, 768, 23, 34, "Input", "ExpressionUUID" -> \
|
||||
"c015003f-0699-49e2-b866-714eb92d5c6f"],
|
||||
Cell[75639, 2148, 311, 10, 63, "Output", "ExpressionUUID" -> \
|
||||
Cell[75661, 2148, 311, 10, 63, "Output", "ExpressionUUID" -> \
|
||||
"b5efa070-aee7-4251-898d-4ad75f8ee655"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[75987, 2163, 211, 5, 32, "Input", "ExpressionUUID" -> \
|
||||
Cell[76009, 2163, 211, 5, 32, "Input", "ExpressionUUID" -> \
|
||||
"65bc3149-1111-4cfb-a506-bc566f00020a"],
|
||||
Cell[76201, 2170, 147, 4, 35, "Output", "ExpressionUUID" -> \
|
||||
Cell[76223, 2170, 147, 4, 35, "Output", "ExpressionUUID" -> \
|
||||
"385fc41d-508e-4bcc-87ce-366fda2afa16"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[76385, 2179, 380, 10, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[76407, 2179, 380, 10, 34, "Input", "ExpressionUUID" -> \
|
||||
"fbdde755-24a3-46b6-b157-f28e6b6a8022"],
|
||||
Cell[76768, 2191, 4401, 90, 230, "Output", "ExpressionUUID" -> \
|
||||
Cell[76790, 2191, 4401, 90, 230, "Output", "ExpressionUUID" -> \
|
||||
"f3bbc0c5-f6fc-4fd8-ade3-1015c944f07e"]
|
||||
}, Open ]],
|
||||
Cell[81184, 2284, 3362, 93, 191, "Input", "ExpressionUUID" -> \
|
||||
Cell[81206, 2284, 3362, 93, 191, "Input", "ExpressionUUID" -> \
|
||||
"e139a925-f883-4746-b86a-c2602253404c"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[84571, 2381, 336, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[84593, 2381, 336, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"7c490700-b77f-4e41-bc26-5314e7de681a"],
|
||||
Cell[84910, 2390, 345, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[84932, 2390, 345, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
"2ec8c9bc-264b-4c99-966f-0e16399c5a47"]
|
||||
}, Open ]],
|
||||
Cell[85270, 2401, 3279, 88, 191, "Input", "ExpressionUUID" -> \
|
||||
Cell[85292, 2401, 3279, 88, 191, "Input", "ExpressionUUID" -> \
|
||||
"03b0ced6-4edd-459d-b511-4346ebf0b6b3"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[88574, 2493, 334, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[88596, 2493, 334, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"56fbb4e1-8f74-4c7e-a055-064f55e0a5e4"],
|
||||
Cell[88911, 2502, 419, 9, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[88933, 2502, 419, 9, 34, "Output", "ExpressionUUID" -> \
|
||||
"ccc74805-25fc-4b7a-92ea-ecc47f1289c3"]
|
||||
}, Open ]],
|
||||
Cell[89345, 2514, 1338, 41, 79, "Input", "ExpressionUUID" -> \
|
||||
Cell[89367, 2514, 1338, 41, 79, "Input", "ExpressionUUID" -> \
|
||||
"fdc5165f-652c-4553-b7d6-e673dd5aaf0c"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[90708, 2559, 259, 5, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[90730, 2559, 259, 5, 34, "Input", "ExpressionUUID" -> \
|
||||
"14bbf919-b4de-4582-b295-f820ec4e1863"],
|
||||
Cell[90970, 2566, 233, 5, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[90992, 2566, 233, 5, 34, "Output", "ExpressionUUID" -> \
|
||||
"6f771c74-3b2b-4814-8148-354f0c429799"]
|
||||
}, Open ]],
|
||||
Cell[91218, 2574, 2075, 58, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[91240, 2574, 2075, 58, 103, "Input", "ExpressionUUID" -> \
|
||||
"4fe8906e-3924-4127-922e-cba66e63b281"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[93318, 2636, 283, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[93340, 2636, 283, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"314b1bc8-d2f0-41e7-a76a-821f0a313b1d"],
|
||||
Cell[93604, 2644, 394, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[93626, 2644, 394, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
"a7a1768d-8381-468e-9182-cad6264fbeb4"]
|
||||
}, Open ]],
|
||||
Cell[94013, 2655, 1830, 55, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[94035, 2655, 1830, 55, 103, "Input", "ExpressionUUID" -> \
|
||||
"1b478334-5bf6-4ef1-a489-1d672116aa7a"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[95868, 2714, 230, 5, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[95890, 2714, 230, 5, 34, "Input", "ExpressionUUID" -> \
|
||||
"e3c36c04-d161-4900-98a4-33e7dc51e872"],
|
||||
Cell[96101, 2721, 248, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[96123, 2721, 248, 6, 34, "Output", "ExpressionUUID" -> \
|
||||
"fed7bff7-9bbc-40e2-8c1c-b16c41ea5128"]
|
||||
}, Open ]],
|
||||
Cell[96364, 2730, 1826, 53, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[96386, 2730, 1826, 53, 103, "Input", "ExpressionUUID" -> \
|
||||
"5d9b2d82-846d-4549-b840-40cefa18d8c0"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[98215, 2787, 305, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[98237, 2787, 305, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"d9d5283f-d204-4f19-83d0-7773fcf3cd30"],
|
||||
Cell[98523, 2795, 298, 7, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[98545, 2795, 298, 7, 34, "Output", "ExpressionUUID" -> \
|
||||
"09894aad-397c-465b-b0aa-c9f601a9aec6"]
|
||||
}, Open ]],
|
||||
Cell[98836, 2805, 1048, 28, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[98858, 2805, 1048, 28, 57, "Input", "ExpressionUUID" -> \
|
||||
"8d01b7f4-1b47-4870-bd56-c3d01a3b65f0"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[99909, 2837, 329, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[99931, 2837, 379, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"ef81724d-7599-4fc6-bc9f-faa6548f8c62"],
|
||||
Cell[100241, 2845, 348, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
Cell[100313, 2846, 348, 8, 34, "Output", "ExpressionUUID" -> \
|
||||
"97867d61-9c01-430e-8d6c-36bed05cf8e4"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[100626, 2858, 797, 27, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[100698, 2859, 797, 27, 34, "Input", "ExpressionUUID" -> \
|
||||
"5f8eaeab-440b-4126-be6a-ecb75d7dc208"],
|
||||
Cell[101426, 2887, 186, 5, 32, "Output", "ExpressionUUID" -> \
|
||||
Cell[101498, 2888, 186, 5, 32, "Output", "ExpressionUUID" -> \
|
||||
"a05d118b-1aed-4f6a-99b1-0d4033f8afb2"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[101649, 2897, 795, 26, 34, "Input", "ExpressionUUID" -> \
|
||||
Cell[101721, 2898, 795, 26, 34, "Input", "ExpressionUUID" -> \
|
||||
"ebafb28b-1247-44b5-b0f7-b0ceb9aa700d"],
|
||||
Cell[102447, 2925, 212, 5, 32, "Output", "ExpressionUUID" -> \
|
||||
Cell[102519, 2926, 212, 5, 32, "Output", "ExpressionUUID" -> \
|
||||
"be3bbbd4-9c45-4351-a1ef-63e78194d774"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[102768, 2936, 257, 5, 34, "Input", "ExpressionUUID" -> \
|
||||
"6ed44f78-9dea-4e9b-9c6f-054174e7e82b"],
|
||||
Cell[103028, 2943, 294, 5, 32, "Output", "ExpressionUUID" -> \
|
||||
"7b8e4d31-ecf7-4029-83ce-7d91df23700d"]
|
||||
}, Open ]],
|
||||
Cell[103337, 2951, 1016, 31, 57, "Input", "ExpressionUUID" -> \
|
||||
"c67c7bd2-b642-48af-8f40-996a591698e8"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[104378, 2986, 255, 6, 34, "Input", "ExpressionUUID" -> \
|
||||
"614cd318-0372-4398-a331-06e8a19a7a2b"],
|
||||
Cell[104636, 2994, 248, 5, 32, "Output", "ExpressionUUID" -> \
|
||||
"88930c3e-c93e-4369-838f-286f7ce31f12"]
|
||||
}, Open ]],
|
||||
Cell[104899, 3002, 188, 3, 32, "Input", "ExpressionUUID" -> \
|
||||
"bb88952d-82d8-40c6-9199-8918ec79cfd3"],
|
||||
Cell[105090, 3007, 3046, 91, 171, "Input", "ExpressionUUID" -> \
|
||||
"e172db1f-c3c1-45a5-8f3d-170a7c1d9a77"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[108161, 3102, 331, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"01a283df-a1fc-43b5-8a97-7bb7e4ef9fbe"],
|
||||
Cell[108495, 3111, 319, 7, 32, "Output", "ExpressionUUID" -> \
|
||||
"7b3fee15-7f5e-46f7-b9ab-64e2cd0009d8"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[108851, 3123, 312, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"4ee267c3-1395-4600-9e0d-9bef997a3c6c"],
|
||||
Cell[109166, 3132, 255, 5, 32, "Output", "ExpressionUUID" -> \
|
||||
"33105fcb-ed74-4431-9f6c-898062630460"]
|
||||
}, Open ]],
|
||||
Cell[109436, 3140, 2464, 73, 125, "Input", "ExpressionUUID" -> \
|
||||
"f9b1d3e1-f9e3-47df-b296-06925e64f0cf"],
|
||||
Cell[CellGroupData[{
|
||||
Cell[111925, 3217, 311, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"deb85449-1242-4878-b97a-2c182c410f03"],
|
||||
Cell[112239, 3226, 243, 6, 32, "Output", "ExpressionUUID" -> \
|
||||
"ecbc543a-2554-49e6-9782-90f2af4e63f3"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[112519, 3237, 308, 7, 34, "Input", "ExpressionUUID" -> \
|
||||
"b9f2e7bd-03c7-40fd-904e-770f888fa55e"],
|
||||
Cell[112830, 3246, 265, 6, 32, "Output", "ExpressionUUID" -> \
|
||||
"fe23d9f8-5eb2-48dd-9916-622dd20f3cdb"]
|
||||
}, Open ]]
|
||||
}
|
||||
]
|
||||
|
|
|
|||
|
|
@ -364,8 +364,12 @@ Again we use
|
|||
so
|
||||
\begin_inset Formula
|
||||
\begin{eqnarray*}
|
||||
\pht n{s_{q,k_{0}}^{\textup{L}\kappa,c}}\left(k\right) & = & \koru{\frac{2^{1-q+n}}{\sqrt{\pi}}}\sum_{\sigma=0}^{\kappa}\left(-1\right)^{\sigma}\binom{\kappa}{\sigma}\frac{k^{n}}{2^{n}k_{0}^{q}\left(\sigma c-ik_{0}\right)^{2-q+n}}\sum_{s=0}^{\infty}\frac{\koru{\text{Γ}\left(\frac{2-q+n}{2}+s\right)\text{Γ}\left(\frac{3-q+n}{2}+s\right)}}{\text{Γ}(1+n+s)s!}\left(\frac{-k^{2}}{\left(\sigma c-ik_{0}\right)^{2}}\right)^{s}\\
|
||||
& = & \frac{2^{1-q+n}}{\sqrt{\pi}}\sum_{\sigma=0}^{\kappa}\left(-1\right)^{\sigma}\binom{\kappa}{\sigma}\frac{k^{n}}{2^{n}k_{0}^{q}\left(\sigma c-ik_{0}\right)^{2-q+n}}\sum_{s=0}^{\infty}\frac{\text{Γ}\left(\frac{2-q+n}{2}+s\right)\text{Γ}\left(\frac{3-q+n}{2}+s\right)}{\text{Γ}(1+n+s)s!}\left(\frac{-k^{2}}{\left(\sigma c-ik_{0}\right)^{2}}\right)^{s}
|
||||
\pht n{s_{q,k_{0}}^{\textup{L}\kappa,c}}\left(k\right) & = & \koru{\frac{2^{1-q\kor{+n}}}{\sqrt{\pi}}}\sum_{\sigma=0}^{\kappa}\left(-1\right)^{\sigma}\binom{\kappa}{\sigma}\frac{k^{n}}{\kor{2^{n}}k_{0}^{q}\left(\sigma c-ik_{0}\right)^{2-q+n}}\sum_{s=0}^{\infty}\frac{\koru{\text{Γ}\left(\frac{2-q+n}{2}+s\right)\text{Γ}\left(\frac{3-q+n}{2}+s\right)}}{\text{Γ}(1+n+s)s!}\left(\frac{-k^{2}}{\left(\sigma c-ik_{0}\right)^{2}}\right)^{s}\\
|
||||
\mbox{OKShort} & = & \frac{2^{1-q}}{\sqrt{\pi}}\sum_{\sigma=0}^{\kappa}\left(-1\right)^{\sigma}\binom{\kappa}{\sigma}\frac{k^{n}}{k_{0}^{q}\left(\sigma c-ik_{0}\right)^{2-q+n}}\kor{\sum_{s=0}^{\infty}\frac{\text{Γ}\left(\frac{2-q+n}{2}+s\right)\text{Γ}\left(\frac{3-q+n}{2}+s\right)}{\text{Γ}(1+n+s)s!}\left(\frac{-k^{2}}{\left(\sigma c-ik_{0}\right)^{2}}\right)^{s}}\\
|
||||
\mbox{(D15.2.1)} & = & \frac{2^{1-q}}{\sqrt{\pi}}\sum_{\sigma=0}^{\kappa}\left(-1\right)^{\sigma}\binom{\kappa}{\sigma}\frac{k^{n}}{k_{0}^{q}\left(\sigma c-ik_{0}\right)^{2-q+n}}\koru{\frac{\text{Γ}\left(1+n\right)}{\text{Γ}\left(\frac{2-q+n}{2}\right)\text{Γ}\left(\frac{3-q+n}{2}\right)}\kor{\hgf\left(\begin{array}{c}
|
||||
\frac{2-q+n}{2},\frac{3-q+n}{2}\\
|
||||
1+n
|
||||
\end{array};\frac{-k^{2}}{\left(\sigma c-ik_{0}\right)^{2}}\right)}}
|
||||
\end{eqnarray*}
|
||||
|
||||
\end_inset
|
||||
|
|
|
|||
|
|
@ -726,6 +726,69 @@ What does this mean w.r.t.
|
|||
\end_inset
|
||||
|
||||
|
||||
\end_layout
|
||||
|
||||
\begin_layout Subparagraph*
|
||||
|
||||
\lang english
|
||||
Trash
|
||||
\end_layout
|
||||
|
||||
\begin_layout Standard
|
||||
|
||||
\lang english
|
||||
\begin_inset Note Note
|
||||
status open
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
\lang english
|
||||
Now if
|
||||
\begin_inset Formula $\frac{2-q+n}{2}$
|
||||
\end_inset
|
||||
|
||||
or
|
||||
\begin_inset Formula $\frac{3-q+n}{2}$
|
||||
\end_inset
|
||||
|
||||
is non-positive integer, (D15.2.4) is applicable and the result is simply
|
||||
a polynomial
|
||||
\begin_inset Formula
|
||||
\[
|
||||
\pht n{s_{q,k_{0}}^{\textup{L}\kappa,c}}\left(k\right)=\frac{2^{1-q}}{\sqrt{\pi}}\sum_{\sigma=0}^{\kappa}\left(-1\right)^{\sigma}\binom{\kappa}{\sigma}\frac{k^{n}}{k_{0}^{q}\left(\sigma c-ik_{0}\right)^{2-q+n}}\frac{\text{Γ}\left(1+n\right)}{\text{Γ}\left(\frac{2-q+n}{2}\right)\text{Γ}\left(\frac{3-q+n}{2}\right)}\koru{\sum_{s=0}^{\frac{q-2-n}{2}}\left(-1\right)^{s}\binom{\frac{2-q+n}{2}}{s}\frac{\left(\frac{3-q+n}{2}\right)_{s}}{\left(n+1\right)_{s}}\left(\frac{-k^{2}}{\left(\sigma c-ik_{0}\right)^{2}}\right)^{s}}
|
||||
\]
|
||||
|
||||
\end_inset
|
||||
|
||||
if
|
||||
\begin_inset Formula $-\frac{2-q+n}{2}\in\nats_{0}$
|
||||
\end_inset
|
||||
|
||||
and
|
||||
\begin_inset Formula
|
||||
\[
|
||||
\pht n{s_{q,k_{0}}^{\textup{L}\kappa,c}}\left(k\right)=\frac{2^{1-q}}{\sqrt{\pi}}\sum_{\sigma=0}^{\kappa}\left(-1\right)^{\sigma}\binom{\kappa}{\sigma}\frac{k^{n}}{k_{0}^{q}\left(\sigma c-ik_{0}\right)^{2-q+n}}\frac{\text{Γ}\left(1+n\right)}{\text{Γ}\left(\frac{2-q+n}{2}\right)\text{Γ}\left(\frac{3-q+n}{2}\right)}\koru{\sum_{s=0}^{\frac{q-3-n}{2}}\left(-1\right)^{s}\binom{\frac{3-q+n}{2}}{s}\frac{\left(\frac{2-q+n}{2}\right)_{s}}{\left(n+1\right)_{s}}\left(\frac{-k^{2}}{\left(\sigma c-ik_{0}\right)^{2}}\right)^{s}}
|
||||
\]
|
||||
|
||||
\end_inset
|
||||
|
||||
if
|
||||
\begin_inset Formula $-\frac{3-q+n}{2}\in\nats_{0}$
|
||||
\end_inset
|
||||
|
||||
.
|
||||
\end_layout
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
\lang english
|
||||
This is some kind of shit, as it returns zeroes.
|
||||
Where is the mistake?
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
|
||||
|
||||
\end_layout
|
||||
|
||||
\end_body
|
||||
|
|
|
|||
Loading…
Reference in New Issue