From 1a2dc62a5e75c94e3cfc7da8334061743ba70d05 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Wed, 12 Jun 2024 18:15:51 +0200 Subject: More writing. --- figs/large_deviation.pdf | Bin 11785 -> 11785 bytes figs/spectrum_eq.pdf | Bin 7907 -> 6593 bytes figs/spectrum_less.pdf | Bin 11112 -> 8355 bytes figs/spectrum_more.pdf | Bin 8089 -> 6789 bytes figures.nb | 549 +++++++++++++++++++++++------------------------ marginal.tex | 169 ++++++++++----- 6 files changed, 390 insertions(+), 328 deletions(-) diff --git a/figs/large_deviation.pdf b/figs/large_deviation.pdf index a46b83f..73e0aeb 100644 Binary files a/figs/large_deviation.pdf and b/figs/large_deviation.pdf differ diff --git a/figs/spectrum_eq.pdf b/figs/spectrum_eq.pdf index 69db15c..03f5572 100644 Binary files a/figs/spectrum_eq.pdf and b/figs/spectrum_eq.pdf differ diff --git a/figs/spectrum_less.pdf b/figs/spectrum_less.pdf index 439d485..8d2944e 100644 Binary files a/figs/spectrum_less.pdf and b/figs/spectrum_less.pdf differ diff --git a/figs/spectrum_more.pdf b/figs/spectrum_more.pdf index 8db227a..f1555a9 100644 Binary files a/figs/spectrum_more.pdf and b/figs/spectrum_more.pdf differ diff --git a/figures.nb b/figures.nb index 80d3ffc..e11cccd 100644 --- a/figures.nb +++ b/figures.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 1194152, 24077] -NotebookOptionsPosition[ 1174526, 23766] -NotebookOutlinePosition[ 1174925, 23782] -CellTagsIndexPosition[ 1174882, 23779] +NotebookDataLength[ 1194592, 24070] +NotebookOptionsPosition[ 1174966, 23759] +NotebookOutlinePosition[ 1175365, 23775] +CellTagsIndexPosition[ 1175322, 23772] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -29,7 +29,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"fontSize", "=", "11"}], ";"}]], "Input", CellChangeTimes->{{3.9267606761876593`*^9, 3.926760678954088*^9}}, - CellLabel->"In[13]:=",ExpressionUUID->"ee12c51c-6b29-47d4-ae25-f1f7fff92040"], + CellLabel->"In[1]:=",ExpressionUUID->"ee12c51c-6b29-47d4-ae25-f1f7fff92040"], Cell[BoxData[ RowBox[{ @@ -43,7 +43,7 @@ Cell[BoxData[ 3.9155307742942944`*^9, 3.915530775499718*^9}, {3.91553085987768*^9, 3.915530886189825*^9}, {3.924161179907159*^9, 3.924161182353354*^9}, { 3.926760681810741*^9, 3.9267606859704237`*^9}}, - CellLabel->"In[14]:=",ExpressionUUID->"a4718025-6526-4aa1-b1d9-23f283157609"], + CellLabel->"In[2]:=",ExpressionUUID->"a4718025-6526-4aa1-b1d9-23f283157609"], Cell[BoxData[{ RowBox[{ @@ -63,7 +63,7 @@ Cell[BoxData[{ RowBox[{"LineLegend", ",", "labelStyle"}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.915530863366059*^9, 3.915530917598553*^9}, { 3.9155330354943447`*^9, 3.915533038598446*^9}}, - CellLabel->"In[15]:=",ExpressionUUID->"6297bd5f-9997-4788-b876-fdf7032919da"] + CellLabel->"In[3]:=",ExpressionUUID->"6297bd5f-9997-4788-b876-fdf7032919da"] }, Open ]], Cell[CellGroupData[{ @@ -102,7 +102,7 @@ Cell[BoxData[ RowBox[{"2", "\[Sigma]"}], ")"}], "2"]], "-", "1"}]]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.915530599745296*^9, 3.915530671233981*^9}}, - CellLabel->"In[18]:=",ExpressionUUID->"50c08a66-4e65-4112-8ad7-d5d45f281a8c"], + CellLabel->"In[6]:=",ExpressionUUID->"50c08a66-4e65-4112-8ad7-d5d45f281a8c"], Cell[CellGroupData[{ @@ -154,10 +154,9 @@ Cell[BoxData[ 3.915530780148059*^9}, {3.915530891127125*^9, 3.915530922455567*^9}, { 3.9241609780538807`*^9, 3.924160982965692*^9}, {3.924162186828877*^9, 3.9241621901083317`*^9}, {3.924162311335291*^9, 3.924162320022914*^9}, { - 3.9267607225073347`*^9, 3.926760768524247*^9}, {3.9267620978944073`*^9, + 3.9267607225073357`*^9, 3.926760768524247*^9}, {3.9267620978944073`*^9, 3.9267621072226877`*^9}, {3.926762329962654*^9, 3.9267623500744543`*^9}}, - CellLabel-> - "In[250]:=",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"], + CellLabel->"In[7]:=",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"], Cell[BoxData[ GraphicsBox[ @@ -741,9 +740,8 @@ bjB/r4OXJvt0ej38B+c4z40= 3.924161184537413*^9, 3.924162190364997*^9, {3.924162312284491*^9, 3.9241623202322807`*^9}, {3.926760723533168*^9, 3.926760740655086*^9}, 3.926760772978333*^9, {3.926762098244166*^9, 3.926762107827166*^9}, { - 3.92676233110467*^9, 3.926762350345076*^9}}, - CellLabel-> - "Out[250]=",ExpressionUUID->"91d0dd3d-b26c-45d4-b0c1-2273c50e7d81"] + 3.92676233110467*^9, 3.926762350345076*^9}, 3.9271760125323677`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"96d8c022-71f7-4175-ad56-0b948701a2c3"] }, Open ]], Cell[CellGroupData[{ @@ -753,19 +751,18 @@ Cell[BoxData[ RowBox[{ "\"\<~/doc/research/frsb_kac-rice/papers/marginal/figs/large_deviation.pdf\>\ \"", ",", "pG"}], "]"}]], "Input", - CellChangeTimes->{{3.92416107227991*^9, 3.9241611012234797`*^9}, { + CellChangeTimes->{{3.92416107227991*^9, 3.92416110122348*^9}, { 3.926760703598503*^9, 3.926760712779284*^9}}, - CellLabel-> - "In[251]:=",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"], + CellLabel->"In[8]:=",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"], Cell[BoxData["\<\"~/doc/research/frsb_kac-rice/papers/marginal/figs/large_\ deviation.pdf\"\>"], "Output", CellChangeTimes->{{3.924161094512546*^9, 3.924161102039678*^9}, - 3.9241611864665627`*^9, 3.924162191599287*^9, 3.924162320711782*^9, { + 3.924161186466563*^9, 3.924162191599287*^9, 3.924162320711782*^9, { 3.926760725505782*^9, 3.926760742789874*^9}, 3.926760774237672*^9, { - 3.926762102041052*^9, 3.926762108382854*^9}, 3.926762353553878*^9}, - CellLabel-> - "Out[251]=",ExpressionUUID->"bb552b18-713a-411e-b9bb-b974b3ab87fd"] + 3.926762102041052*^9, 3.926762108382854*^9}, 3.926762353553878*^9, + 3.9271760149471283`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"85074921-98fb-4fbd-91ef-b733df3a8845"] }, Open ]], Cell[BoxData[ @@ -780,7 +777,7 @@ Cell[BoxData[ SuperscriptBox["q", "3"], "+", SuperscriptBox["q", "4"]}], ")"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.924161369901463*^9, 3.924161381181401*^9}}, - CellLabel->"In[21]:=",ExpressionUUID->"06818f5b-ee0e-4634-b547-e05e415c12a6"], + CellLabel->"In[9]:=",ExpressionUUID->"06818f5b-ee0e-4634-b547-e05e415c12a6"], Cell[BoxData[ RowBox[{ @@ -790,7 +787,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"f", "''"}], "[", "1", "]"}]}]]}]], "Input", CellChangeTimes->{{3.893505745813592*^9, 3.893505753575885*^9}}, - CellLabel->"In[22]:=",ExpressionUUID->"ab28ae26-b52f-4a56-978d-e7ee3f806eda"], + CellLabel->"In[10]:=",ExpressionUUID->"ab28ae26-b52f-4a56-978d-e7ee3f806eda"], Cell[BoxData[ RowBox[{ @@ -811,20 +808,19 @@ Cell[BoxData[ RowBox[{"\[Mu]m", "[", "f", "]"}], "2"]]}]]}]}]], "Input", CellChangeTimes->{{3.895206238820385*^9, 3.895206269434855*^9}, { 3.895206301235565*^9, 3.895206327707943*^9}}, - CellLabel->"In[23]:=",ExpressionUUID->"eec97d73-ae34-443d-825f-cbb8adebe02f"], + CellLabel->"In[11]:=",ExpressionUUID->"eec97d73-ae34-443d-825f-cbb8adebe02f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"340", "/", "3."}]], "Input", CellChangeTimes->{{3.92676122589403*^9, 3.926761230869504*^9}}, - CellLabel-> - "In[107]:=",ExpressionUUID->"83c0ad8f-8d45-4089-b5a6-d03efc9cdfbe"], + CellLabel->"In[12]:=",ExpressionUUID->"83c0ad8f-8d45-4089-b5a6-d03efc9cdfbe"], Cell[BoxData["113.33333333333333`"], "Output", - CellChangeTimes->{{3.926761228984556*^9, 3.926761231318728*^9}}, - CellLabel-> - "Out[107]=",ExpressionUUID->"28c77ad6-9821-4980-bae1-816090bc8085"] + CellChangeTimes->{{3.926761228984556*^9, 3.926761231318728*^9}, + 3.927176015496025*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8a53c8d7-c295-47d2-aa7f-189bb8a2f899"] }, Open ]], Cell[BoxData[ @@ -872,7 +868,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", RowBox[{"{", - RowBox[{"2", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",\ + RowBox[{"4", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.895206335716663*^9, 3.895206991361381*^9}, { 3.895207039378053*^9, 3.895207059810026*^9}, {3.895207141811533*^9, @@ -882,12 +878,12 @@ Cell[BoxData[ 3.926760792780966*^9, 3.926760811804823*^9}, {3.926760862262025*^9, 3.926760865550117*^9}, {3.9267609191675*^9, 3.926761098970653*^9}, { 3.926761143347569*^9, 3.9267611774925413`*^9}, {3.926761234053639*^9, - 3.9267612615498877`*^9}, {3.926761382752357*^9, 3.926761382912137*^9}, { - 3.926761546923317*^9, 3.9267615499875097`*^9}, {3.9267615927161493`*^9, + 3.926761261549888*^9}, {3.926761382752357*^9, 3.926761382912137*^9}, { + 3.926761546923317*^9, 3.92676154998751*^9}, {3.9267615927161493`*^9, 3.926761666941782*^9}, {3.926761736607151*^9, 3.9267617376231403`*^9}, { - 3.926761851425713*^9, 3.926761878833948*^9}}, - CellLabel-> - "In[215]:=",ExpressionUUID->"def223fd-aeee-4091-9e76-97462b62b6cc"], + 3.926761851425713*^9, 3.926761878833948*^9}, {3.9271760310236397`*^9, + 3.9271760311464663`*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"def223fd-aeee-4091-9e76-97462b62b6cc"], Cell[BoxData[ RowBox[{ @@ -938,9 +934,10 @@ Cell[BoxData[ RowBox[{"SingleLetterItalics", "->", "False"}], ",", RowBox[{"Directive", "[", RowBox[{ - RowBox[{"FontFamily", "->", "\"\\""}], ",", - "Black", ",", - RowBox[{"FontSize", "->", "10"}]}], "]"}]}], "]"}], ",", + RowBox[{"FontFamily", "->", "\"\\""}], ",", "Black", + ",", + RowBox[{"FontSize", "->", "fontSize"}]}], "]"}]}], "]"}], ",", + RowBox[{"{", RowBox[{ RowBox[{"\[Mu]", "/", "2"}], ",", @@ -981,9 +978,8 @@ Cell[BoxData[ RowBox[{"SingleLetterItalics", "->", "False"}], ",", RowBox[{"Directive", "[", RowBox[{ - RowBox[{"FontFamily", "->", "\"\\""}], ",", "Black", - ",", - RowBox[{"FontSize", "->", "10"}]}], "]"}]}], "]"}], ",", + RowBox[{"FontFamily", "->", "\"\\""}], ",", "Black", ",", + RowBox[{"FontSize", "->", "fontSize"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Mu]", "+", @@ -1025,10 +1021,10 @@ Cell[BoxData[ 3.92416160537091*^9, {3.924161669195086*^9, 3.924161677339909*^9}, { 3.924161885591449*^9, 3.924161886295874*^9}, {3.924163229224842*^9, 3.924163238832789*^9}, {3.926760887735845*^9, 3.926760895487254*^9}, { - 3.926761390288784*^9, 3.926761432385374*^9}, {3.9267618276411123`*^9, - 3.9267618299854116`*^9}, {3.926761917490697*^9, 3.926761920730276*^9}}, - CellLabel-> - "In[224]:=",ExpressionUUID->"f1078ecd-48ad-4003-b086-93bd8c2242bb"], + 3.926761390288784*^9, 3.926761432385374*^9}, {3.926761827641113*^9, + 3.9267618299854116`*^9}, {3.926761917490697*^9, 3.926761920730276*^9}, { + 3.927175932778327*^9, 3.927175942497558*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"f1078ecd-48ad-4003-b086-93bd8c2242bb"], Cell[BoxData[ RowBox[{ @@ -1117,9 +1113,10 @@ Cell[BoxData[ RowBox[{"SingleLetterItalics", "->", "False"}], ",", RowBox[{"Directive", "[", RowBox[{ - RowBox[{"FontFamily", "->", "\"\\""}], ",", - "Black", ",", - RowBox[{"FontSize", "->", "10"}]}], "]"}]}], "]"}], ",", + RowBox[{"FontFamily", "->", "\"\\""}], ",", "Black", + ",", + RowBox[{"FontSize", "->", "fontSize"}]}], "]"}]}], "]"}], ",", + RowBox[{"{", RowBox[{ RowBox[{"\[Mu]", "/", "2"}], ",", @@ -1160,9 +1157,8 @@ Cell[BoxData[ RowBox[{"SingleLetterItalics", "->", "False"}], ",", RowBox[{"Directive", "[", RowBox[{ - RowBox[{"FontFamily", "->", "\"\\""}], ",", "Black", - ",", - RowBox[{"FontSize", "->", "10"}]}], "]"}]}], "]"}], ",", + RowBox[{"FontFamily", "->", "\"\\""}], ",", "Black", ",", + RowBox[{"FontSize", "->", "fontSize"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Mu]", "+", @@ -1180,7 +1176,7 @@ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ColorData", "[", "97", "]"}], "[", "1", "]"}], ",", - RowBox[{"PointSize", "[", "0.035", "]"}], ",", + RowBox[{"PointSize", "[", "0.05", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"\[Lambda]i", ",", "0"}], "}"}], "]"}]}], "}"}], @@ -1219,10 +1215,10 @@ Cell[BoxData[ 3.924161706499589*^9}, {3.924161755060856*^9, 3.924161863463529*^9}, { 3.92416326394566*^9, 3.924163267761709*^9}, {3.926761195167242*^9, 3.926761202022335*^9}, {3.926761477210664*^9, 3.9267614847470922`*^9}, { - 3.9267618341854877`*^9, 3.926761834514394*^9}, {3.9267619242107487`*^9, - 3.926761945522861*^9}}, - CellLabel-> - "In[234]:=",ExpressionUUID->"244eac76-0bbb-4e5a-9b06-0f294e654a3f"], + 3.9267618341854877`*^9, 3.926761834514394*^9}, {3.926761924210748*^9, + 3.926761945522861*^9}, {3.927175946998015*^9, 3.927175962055725*^9}, { + 3.927176043113257*^9, 3.927176043208865*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"244eac76-0bbb-4e5a-9b06-0f294e654a3f"], Cell[CellGroupData[{ @@ -1236,9 +1232,8 @@ Cell[BoxData[ 3.895207930386267*^9}, {3.895208671944873*^9, 3.89520867356842*^9}, { 3.924161638762431*^9, 3.9241616551542883`*^9}, {3.924161914919391*^9, 3.924161915904595*^9}, 3.924163199007743*^9, 3.926760876790394*^9, - 3.9267612092132807`*^9, {3.92676142139275*^9, 3.926761424824665*^9}}, - CellLabel-> - "In[235]:=",ExpressionUUID->"28a195c1-e132-4911-80e7-05e2e1470f78"], + 3.92676120921328*^9, {3.92676142139275*^9, 3.926761424824665*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"28a195c1-e132-4911-80e7-05e2e1470f78"], Cell[BoxData[ GraphicsBox[ @@ -1751,7 +1746,7 @@ uheZ2Bv9d32MjQ38H2V+zho= GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], - ImagePadding->{{Automatic, Automatic}, {2, Automatic}}, + ImagePadding->{{Automatic, Automatic}, {4, Automatic}}, ImageSize->118, LabelStyle->{FontFamily -> "Times", GrayLevel[0], FontSize -> 11}, @@ -1788,8 +1783,8 @@ uheZ2Bv9d32MjQ38H2V+zho= InsetBox[ FormBox[ StyleBox["\"\[Mu]\"", SingleLetterItalics -> False, - Directive[FontFamily -> "Helvetica", - GrayLevel[0], FontSize -> 10], StripOnInput -> False], + Directive[FontFamily -> "Times", + GrayLevel[0], FontSize -> 11], StripOnInput -> False], TraditionalForm], NCache[{2, Rational[5, 48]/Pi}, {2, 0.033157279810811534`}]]}, { Arrowheads[{-Automatic, Automatic}], @@ -1799,14 +1794,14 @@ uheZ2Bv9d32MjQ38H2V+zho= InsetBox[ FormBox[ StyleBox["\"2\[Sigma]\"", SingleLetterItalics -> False, - Directive[FontFamily -> "Helvetica", - GrayLevel[0], FontSize -> 10], StripOnInput -> False], + Directive[FontFamily -> "Times", + GrayLevel[0], FontSize -> 11], StripOnInput -> False], TraditionalForm], NCache[{7, Rational[5, 48]/Pi}, {7, 0.033157279810811534`}]]}, RotateLabel->False, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ - 3.8952066993691463`*^9, 3.89520674386379*^9, {3.895206800311884*^9, + 3.895206699369146*^9, 3.89520674386379*^9, {3.895206800311884*^9, 3.8952068894420347`*^9}, {3.895206959308638*^9, 3.895206992894684*^9}, { 3.8952070620060863`*^9, 3.895207067724165*^9}, {3.895207143255886*^9, 3.895207260626754*^9}, {3.895207406363961*^9, 3.895207444229038*^9}, @@ -1818,15 +1813,15 @@ uheZ2Bv9d32MjQ38H2V+zho= 3.924161707916535*^9}, 3.924161917425612*^9, {3.924163199195035*^9, 3.9241632684587812`*^9}, 3.926760829972809*^9, {3.9267608635048943`*^9, 3.926760947218087*^9}, {3.926760983716619*^9, 3.9267609989132347`*^9}, { - 3.926761038325932*^9, 3.926761077719367*^9}, 3.9267611570845547`*^9, { + 3.926761038325932*^9, 3.926761077719367*^9}, 3.926761157084555*^9, { 3.926761202690482*^9, 3.926761262528049*^9}, 3.926761385096426*^9, { 3.926761425364373*^9, 3.92676143349012*^9}, 3.926761485486828*^9, 3.926761551172861*^9, {3.926761617471798*^9, 3.926761626745406*^9}, { 3.926761661177988*^9, 3.926761668201248*^9}, 3.926761738520466*^9, { 3.926761836696477*^9, 3.926761880005011*^9}, {3.926761921727672*^9, - 3.926761946295723*^9}}, - CellLabel-> - "Out[235]=",ExpressionUUID->"d05fb8f0-b7b9-47a5-a984-00b2a18f0f10"] + 3.926761946295723*^9}, {3.9271759563276386`*^9, 3.9271759631334057`*^9}, { + 3.927176015783972*^9, 3.927176044384246*^9}}, + CellLabel->"Out[32]=",ExpressionUUID->"577d2755-a6c5-47a3-9e67-78c4a4c9e8b1"] }, Open ]], Cell[CellGroupData[{ @@ -1844,8 +1839,7 @@ Cell[BoxData[ 3.8952079709309177`*^9}, {3.895208773410845*^9, 3.895208774210402*^9}, 3.924163254848674*^9, 3.926761180572352*^9, {3.926761451041807*^9, 3.926761459473476*^9}}, - CellLabel-> - "In[236]:=",ExpressionUUID->"e68d9ce5-814e-4498-aeeb-52ccf1b87537"], + CellLabel->"In[33]:=",ExpressionUUID->"e68d9ce5-814e-4498-aeeb-52ccf1b87537"], Cell[BoxData[ GraphicsBox[ @@ -2354,7 +2348,7 @@ AVhmp4Y= GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], - ImagePadding->{{Automatic, Automatic}, {2, Automatic}}, + ImagePadding->{{Automatic, Automatic}, {4, Automatic}}, ImageSize->118, LabelStyle->{FontFamily -> "Times", GrayLevel[0], FontSize -> 11}, @@ -2391,8 +2385,8 @@ AVhmp4Y= InsetBox[ FormBox[ StyleBox["\"\[Mu]\"", SingleLetterItalics -> False, - Directive[FontFamily -> "Helvetica", - GrayLevel[0], FontSize -> 10], StripOnInput -> False], + Directive[FontFamily -> "Times", + GrayLevel[0], FontSize -> 11], StripOnInput -> False], TraditionalForm], NCache[{3, Rational[5, 48]/Pi}, {3, 0.033157279810811534`}]]}, { Arrowheads[{-Automatic, Automatic}], @@ -2402,8 +2396,8 @@ AVhmp4Y= InsetBox[ FormBox[ StyleBox["\"2\[Sigma]\"", SingleLetterItalics -> False, - Directive[FontFamily -> "Helvetica", - GrayLevel[0], FontSize -> 10], StripOnInput -> False], + Directive[FontFamily -> "Times", + GrayLevel[0], FontSize -> 11], StripOnInput -> False], TraditionalForm], NCache[{9, Rational[5, 48]/Pi}, {9, 0.033157279810811534`}]]}, RotateLabel->False, @@ -2416,13 +2410,14 @@ AVhmp4Y= 3.895207672440133*^9, 3.89520776704414*^9}, 3.895207869061739*^9, 3.895207971302621*^9, 3.895208774788427*^9, 3.895208856296947*^9, 3.895208911233605*^9, 3.924161607806319*^9, 3.924161708547617*^9, - 3.924161888307276*^9, {3.9241632469636397`*^9, 3.924163268743547*^9}, + 3.924161888307276*^9, {3.92416324696364*^9, 3.924163268743547*^9}, 3.9267609838904743`*^9, {3.9267611808104887`*^9, 3.926761262911172*^9}, { - 3.926761436461685*^9, 3.926761485701083*^9}, 3.9267615513295307`*^9, + 3.926761436461685*^9, 3.926761485701083*^9}, 3.926761551329531*^9, 3.926761627535708*^9, 3.9267616683618813`*^9, 3.926761738675971*^9, { - 3.9267618371538763`*^9, 3.9267618801693287`*^9}, 3.9267619465042458`*^9}, - CellLabel-> - "Out[236]=",ExpressionUUID->"4fdf1572-8b7c-4352-8f24-df96a72089dd"] + 3.9267618371538763`*^9, 3.9267618801693287`*^9}, 3.9267619465042458`*^9, { + 3.927175957106708*^9, 3.9271759633798437`*^9}, {3.927176016114229*^9, + 3.927176044606139*^9}}, + CellLabel->"Out[33]=",ExpressionUUID->"9496b18b-d8fb-4070-8783-a932a49d22f3"] }, Open ]], Cell[CellGroupData[{ @@ -2438,10 +2433,9 @@ Cell[BoxData[ CellChangeTimes->{{3.89520778997552*^9, 3.8952077901675262`*^9}, { 3.895207839433116*^9, 3.8952078422645893`*^9}, {3.895208024284871*^9, 3.895208026220129*^9}, {3.895208867468687*^9, 3.8952088688522387`*^9}, { - 3.924161720316*^9, 3.9241617206431518`*^9}, 3.924163261168485*^9, - 3.926761190108756*^9, {3.926761464570071*^9, 3.9267614648664703`*^9}}, - CellLabel-> - "In[237]:=",ExpressionUUID->"9df7247c-bae3-4562-95d7-d5d547f8369d"], + 3.924161720316*^9, 3.924161720643152*^9}, 3.924163261168485*^9, + 3.926761190108756*^9, {3.926761464570071*^9, 3.926761464866471*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"9df7247c-bae3-4562-95d7-d5d547f8369d"], Cell[BoxData[ GraphicsBox[ @@ -2943,7 +2937,7 @@ a0Tpd86A6YzNkbw/bMx7GC1ewuMJQ4f97McXyPYtbRMrL+2E/wCiOZhr DisplayFunction->Identity, Epilog->{{ RGBColor[0.368417, 0.506779, 0.709798], - PointSize[0.035], + PointSize[0.05], PointBox[{0, 0}]}}, Frame->{{True, True}, {True, True}}, FrameLabel->{None, @@ -2957,7 +2951,7 @@ a0Tpd86A6YzNkbw/bMx7GC1ewuMJQ4f97McXyPYtbRMrL+2E/wCiOZhr GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], - ImagePadding->{{Automatic, Automatic}, {2, Automatic}}, + ImagePadding->{{Automatic, Automatic}, {4, Automatic}}, ImageSize->118, LabelStyle->{FontFamily -> "Times", GrayLevel[0], FontSize -> 11}, @@ -2994,8 +2988,8 @@ a0Tpd86A6YzNkbw/bMx7GC1ewuMJQ4f97McXyPYtbRMrL+2E/wCiOZhr InsetBox[ FormBox[ StyleBox["\"\[Mu]\"", SingleLetterItalics -> False, - Directive[FontFamily -> "Helvetica", - GrayLevel[0], FontSize -> 10], StripOnInput -> False], + Directive[FontFamily -> "Times", + GrayLevel[0], FontSize -> 11], StripOnInput -> False], TraditionalForm], NCache[{4, Rational[5, 48]/Pi}, {4, 0.033157279810811534`}]]}, { Arrowheads[{-Automatic, Automatic}], @@ -3005,8 +2999,8 @@ a0Tpd86A6YzNkbw/bMx7GC1ewuMJQ4f97McXyPYtbRMrL+2E/wCiOZhr InsetBox[ FormBox[ StyleBox["\"2\[Sigma]\"", SingleLetterItalics -> False, - Directive[FontFamily -> "Helvetica", - GrayLevel[0], FontSize -> 10], StripOnInput -> False], + Directive[FontFamily -> "Times", + GrayLevel[0], FontSize -> 11], StripOnInput -> False], TraditionalForm], NCache[{11, Rational[5, 48]/Pi}, {11, 0.033157279810811534`}]]}, RotateLabel->False, @@ -3014,15 +3008,15 @@ a0Tpd86A6YzNkbw/bMx7GC1ewuMJQ4f97McXyPYtbRMrL+2E/wCiOZhr CellChangeTimes->{ 3.895207790740121*^9, {3.895207839744895*^9, 3.895207870243621*^9}, 3.895208026480008*^9, 3.895208869333159*^9, 3.895208913648329*^9, - 3.924161611725056*^9, {3.9241617105380588`*^9, 3.924161720851728*^9}, - 3.924161760789225*^9, {3.924161828428911*^9, 3.9241618666389933`*^9}, { - 3.924163256019329*^9, 3.9241632689619217`*^9}, {3.926761187709559*^9, + 3.924161611725056*^9, {3.924161710538059*^9, 3.924161720851728*^9}, + 3.924161760789225*^9, {3.924161828428911*^9, 3.924161866638994*^9}, { + 3.924163256019329*^9, 3.9241632689619226`*^9}, {3.926761187709559*^9, 3.926761263193915*^9}, {3.9267614370306377`*^9, 3.9267614865111933`*^9}, 3.926761551544959*^9, 3.926761627762596*^9, 3.926761670173362*^9, 3.926761738825984*^9, {3.926761837375955*^9, 3.926761880360046*^9}, - 3.926761946675086*^9}, - CellLabel-> - "Out[237]=",ExpressionUUID->"085d89e1-1412-44e2-9992-5f811f7e8263"] + 3.926761946675086*^9, {3.927175957860818*^9, 3.927175963570401*^9}, { + 3.927176016405114*^9, 3.927176044825283*^9}}, + CellLabel->"Out[34]=",ExpressionUUID->"9cd54024-e29b-456b-a509-0492f8827637"] }, Open ]], Cell[BoxData[{ @@ -3043,9 +3037,8 @@ Cell[BoxData[{ \"", ",", "ps6"}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.924161919335609*^9, 3.924161984768268*^9}, { 3.924162080650302*^9, 3.924162081777878*^9}, {3.92676129203915*^9, - 3.9267613047263823`*^9}}, - CellLabel-> - "In[238]:=",ExpressionUUID->"9c8fbe7e-534f-4567-b9e1-d7a5c3ce1086"] + 3.9267613047263827`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"9c8fbe7e-534f-4567-b9e1-d7a5c3ce1086"] }, Open ]], Cell[CellGroupData[{ @@ -6662,7 +6655,7 @@ M8mtd2mT5w2wnqXn2WOfNnneAF72ntCBB7Vt/w9HjB69 Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.909043955430275*^9, 3.909046701012884*^9, 3.915533054748672*^9, 3.915772001814284*^9, 3.916380445982705*^9, - 3.9163872507924776`*^9}, + 3.916387250792478*^9}, CellLabel-> "Out[241]=",ExpressionUUID->"471fcd6b-1223-49d9-962f-85e668fab430"] }, Open ]], @@ -7188,7 +7181,7 @@ decrease in the merit function. You may need more than \ \\!\\(\\*RowBox[{\\\"20.`\\\"}]\\) digits of working precision to meet these \ tolerances.\"", 2, 242, 34, 23804047810745838865, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.916386517291394*^9, 3.9163872747219143`*^9}, + CellChangeTimes->{3.916386517291394*^9, 3.916387274721915*^9}, CellLabel-> "During evaluation of \ In[242]:=",ExpressionUUID->"2a251b03-af55-4ee8-b6ee-dc27429eff8a"], @@ -7202,7 +7195,7 @@ decrease in the merit function. You may need more than \ \\!\\(\\*RowBox[{\\\"20.`\\\"}]\\) digits of working precision to meet these \ tolerances.\"", 2, 242, 35, 23804047810745838865, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.916386517291394*^9, 3.9163872750673237`*^9}, + CellChangeTimes->{3.916386517291394*^9, 3.916387275067324*^9}, CellLabel-> "During evaluation of \ In[242]:=",ExpressionUUID->"466d17bf-ce0f-47a2-8764-46320b67ac6e"], @@ -23783,300 +23776,300 @@ CellTagsIndex->{} Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 153, 3, 50, "Section",ExpressionUUID->"926df485-ea0b-4c71-a1d6-03ba4988e06d"], -Cell[736, 27, 222, 4, 22, "Input",ExpressionUUID->"ee12c51c-6b29-47d4-ae25-f1f7fff92040"], -Cell[961, 33, 606, 12, 22, "Input",ExpressionUUID->"a4718025-6526-4aa1-b1d9-23f283157609"], -Cell[1570, 47, 751, 18, 53, "Input",ExpressionUUID->"6297bd5f-9997-4788-b876-fdf7032919da"] +Cell[736, 27, 221, 4, 22, "Input",ExpressionUUID->"ee12c51c-6b29-47d4-ae25-f1f7fff92040"], +Cell[960, 33, 605, 12, 22, "Input",ExpressionUUID->"a4718025-6526-4aa1-b1d9-23f283157609"], +Cell[1568, 47, 750, 18, 53, "Input",ExpressionUUID->"6297bd5f-9997-4788-b876-fdf7032919da"] }, Open ]], Cell[CellGroupData[{ -Cell[2358, 70, 171, 3, 50, "Section",ExpressionUUID->"e26a72a6-0937-45b0-a625-f1bdf166fa4e"], -Cell[2532, 75, 900, 29, 48, "Input",ExpressionUUID->"50c08a66-4e65-4112-8ad7-d5d45f281a8c"], +Cell[2355, 70, 171, 3, 50, "Section",ExpressionUUID->"e26a72a6-0937-45b0-a625-f1bdf166fa4e"], +Cell[2529, 75, 899, 29, 48, "Input",ExpressionUUID->"50c08a66-4e65-4112-8ad7-d5d45f281a8c"], Cell[CellGroupData[{ -Cell[3457, 108, 2089, 51, 24, "Input",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"], -Cell[5549, 161, 29581, 584, 187, "Output",ExpressionUUID->"91d0dd3d-b26c-45d4-b0c1-2273c50e7d81"] +Cell[3453, 108, 2084, 50, 24, "Input",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"], +Cell[5540, 160, 29600, 583, 177, "Output",ExpressionUUID->"96d8c022-71f7-4175-ad56-0b948701a2c3"] }, Open ]], Cell[CellGroupData[{ -Cell[35167, 750, 363, 8, 22, "Input",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"], -Cell[35533, 760, 471, 7, 35, "Output",ExpressionUUID->"bb552b18-713a-411e-b9bb-b974b3ab87fd"] +Cell[35177, 748, 355, 7, 22, "Input",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"], +Cell[35535, 757, 492, 7, 25, "Output",ExpressionUUID->"85074921-98fb-4fbd-91ef-b733df3a8845"] }, Open ]], -Cell[36019, 770, 436, 12, 35, "Input",ExpressionUUID->"06818f5b-ee0e-4634-b547-e05e415c12a6"], -Cell[36458, 784, 312, 8, 27, "Input",ExpressionUUID->"ab28ae26-b52f-4a56-978d-e7ee3f806eda"], -Cell[36773, 794, 676, 19, 44, "Input",ExpressionUUID->"eec97d73-ae34-443d-825f-cbb8adebe02f"], +Cell[36042, 767, 435, 12, 35, "Input",ExpressionUUID->"06818f5b-ee0e-4634-b547-e05e415c12a6"], +Cell[36480, 781, 312, 8, 27, "Input",ExpressionUUID->"ab28ae26-b52f-4a56-978d-e7ee3f806eda"], +Cell[36795, 791, 676, 19, 44, "Input",ExpressionUUID->"eec97d73-ae34-443d-825f-cbb8adebe02f"], Cell[CellGroupData[{ -Cell[37474, 817, 200, 4, 22, "Input",ExpressionUUID->"83c0ad8f-8d45-4089-b5a6-d03efc9cdfbe"], -Cell[37677, 823, 195, 3, 35, "Output",ExpressionUUID->"28c77ad6-9821-4980-bae1-816090bc8085"] +Cell[37496, 814, 196, 3, 22, "Input",ExpressionUUID->"83c0ad8f-8d45-4089-b5a6-d03efc9cdfbe"], +Cell[37695, 819, 217, 3, 25, "Output",ExpressionUUID->"8a53c8d7-c295-47d2-aa7f-189bb8a2f899"] }, Open ]], -Cell[37887, 829, 2461, 60, 39, "Input",ExpressionUUID->"def223fd-aeee-4091-9e76-97462b62b6cc"], -Cell[40351, 891, 5558, 139, 116, "Input",ExpressionUUID->"f1078ecd-48ad-4003-b086-93bd8c2242bb"], -Cell[45912, 1032, 7561, 192, 193, "Input",ExpressionUUID->"244eac76-0bbb-4e5a-9b06-0f294e654a3f"], +Cell[37927, 825, 2505, 60, 39, "Input",ExpressionUUID->"def223fd-aeee-4091-9e76-97462b62b6cc"], +Cell[40435, 887, 5604, 139, 116, "Input",ExpressionUUID->"f1078ecd-48ad-4003-b086-93bd8c2242bb"], +Cell[46042, 1028, 7652, 192, 193, "Input",ExpressionUUID->"244eac76-0bbb-4e5a-9b06-0f294e654a3f"], Cell[CellGroupData[{ -Cell[53498, 1228, 701, 12, 22, "Input",ExpressionUUID->"28a195c1-e132-4911-80e7-05e2e1470f78"], -Cell[54202, 1242, 32223, 586, 83, "Output",ExpressionUUID->"d05fb8f0-b7b9-47a5-a984-00b2a18f0f10"] +Cell[53719, 1224, 694, 11, 22, "Input",ExpressionUUID->"28a195c1-e132-4911-80e7-05e2e1470f78"], +Cell[54416, 1237, 32307, 586, 74, "Output",ExpressionUUID->"577d2755-a6c5-47a3-9e67-78c4a4c9e8b1"] }, Open ]], Cell[CellGroupData[{ -Cell[86462, 1833, 680, 14, 22, "Input",ExpressionUUID->"e68d9ce5-814e-4498-aeeb-52ccf1b87537"], -Cell[87145, 1849, 31407, 575, 83, "Output",ExpressionUUID->"4fdf1572-8b7c-4352-8f24-df96a72089dd"] +Cell[86760, 1828, 676, 13, 22, "Input",ExpressionUUID->"e68d9ce5-814e-4498-aeeb-52ccf1b87537"], +Cell[87439, 1843, 31492, 576, 74, "Output",ExpressionUUID->"9496b18b-d8fb-4070-8783-a932a49d22f3"] }, Open ]], Cell[CellGroupData[{ -Cell[118589, 2429, 733, 14, 22, "Input",ExpressionUUID->"9df7247c-bae3-4562-95d7-d5d547f8369d"], -Cell[119325, 2445, 31577, 579, 83, "Output",ExpressionUUID->"085d89e1-1412-44e2-9992-5f811f7e8263"] +Cell[118968, 2424, 725, 13, 22, "Input",ExpressionUUID->"9df7247c-bae3-4562-95d7-d5d547f8369d"], +Cell[119696, 2439, 31656, 579, 74, "Output",ExpressionUUID->"9cd54024-e29b-456b-a509-0492f8827637"] }, Open ]], -Cell[150917, 3027, 799, 20, 53, "Input",ExpressionUUID->"9c8fbe7e-534f-4567-b9e1-d7a5c3ce1086"] +Cell[151367, 3021, 795, 19, 53, "Input",ExpressionUUID->"9c8fbe7e-534f-4567-b9e1-d7a5c3ce1086"] }, Open ]], Cell[CellGroupData[{ -Cell[151753, 3052, 157, 3, 50, "Section",ExpressionUUID->"8475cc42-326a-4ebf-b66b-7d80366a5280"], -Cell[151913, 3057, 6536, 183, 341, "Input",ExpressionUUID->"830d12ec-ccc1-4fbc-9de0-2282430f4840"], -Cell[158452, 3242, 1571, 48, 22, "Input",ExpressionUUID->"bcf9e08b-5bc8-4156-8987-ae991b3777be"], -Cell[160026, 3292, 706, 19, 38, "Input",ExpressionUUID->"90676af5-535d-4801-950c-574cc68db098"], +Cell[152199, 3045, 157, 3, 50, "Section",ExpressionUUID->"8475cc42-326a-4ebf-b66b-7d80366a5280"], +Cell[152359, 3050, 6536, 183, 341, "Input",ExpressionUUID->"830d12ec-ccc1-4fbc-9de0-2282430f4840"], +Cell[158898, 3235, 1571, 48, 22, "Input",ExpressionUUID->"bcf9e08b-5bc8-4156-8987-ae991b3777be"], +Cell[160472, 3285, 706, 19, 38, "Input",ExpressionUUID->"90676af5-535d-4801-950c-574cc68db098"], Cell[CellGroupData[{ -Cell[160757, 3315, 241, 5, 22, "Input",ExpressionUUID->"3e4fb69d-9599-4326-945e-414023395a5f"], -Cell[161001, 3322, 1351, 30, 111, "Output",ExpressionUUID->"31ed0430-b8ee-4e74-8482-c51b4ee8b6d3"] +Cell[161203, 3308, 241, 5, 22, "Input",ExpressionUUID->"3e4fb69d-9599-4326-945e-414023395a5f"], +Cell[161447, 3315, 1351, 30, 111, "Output",ExpressionUUID->"31ed0430-b8ee-4e74-8482-c51b4ee8b6d3"] }, Open ]], Cell[CellGroupData[{ -Cell[162389, 3357, 472, 13, 22, "Input",ExpressionUUID->"692c829b-e066-4a5e-bd71-7d2bb33fb03d"], -Cell[162864, 3372, 1358, 31, 111, "Output",ExpressionUUID->"5c44de21-95e3-40ea-8171-bdba9bd0ca88"] +Cell[162835, 3350, 472, 13, 22, "Input",ExpressionUUID->"692c829b-e066-4a5e-bd71-7d2bb33fb03d"], +Cell[163310, 3365, 1358, 31, 111, "Output",ExpressionUUID->"5c44de21-95e3-40ea-8171-bdba9bd0ca88"] }, Open ]], Cell[CellGroupData[{ -Cell[164259, 3408, 714, 21, 22, "Input",ExpressionUUID->"9dee447a-c909-40cb-8546-4295c33c7ecb"], -Cell[164976, 3431, 579, 9, 25, "Output",ExpressionUUID->"a4b05569-f206-413a-a53c-79ed31b50a77"] +Cell[164705, 3401, 714, 21, 22, "Input",ExpressionUUID->"9dee447a-c909-40cb-8546-4295c33c7ecb"], +Cell[165422, 3424, 579, 9, 25, "Output",ExpressionUUID->"a4b05569-f206-413a-a53c-79ed31b50a77"] }, Open ]], -Cell[165570, 3443, 3810, 99, 78, "Input",ExpressionUUID->"ae225317-c8f2-42eb-a092-5a3d6696fcf1"], +Cell[166016, 3436, 3810, 99, 78, "Input",ExpressionUUID->"ae225317-c8f2-42eb-a092-5a3d6696fcf1"], Cell[CellGroupData[{ -Cell[169405, 3546, 998, 25, 22, "Input",ExpressionUUID->"27f3f5fd-a103-416e-9e22-49288939ab46"], -Cell[170406, 3573, 6479, 175, 73, "Output",ExpressionUUID->"7c116b5c-7bb6-4259-98ab-703694af8842"] +Cell[169851, 3539, 998, 25, 22, "Input",ExpressionUUID->"27f3f5fd-a103-416e-9e22-49288939ab46"], +Cell[170852, 3566, 6479, 175, 73, "Output",ExpressionUUID->"7c116b5c-7bb6-4259-98ab-703694af8842"] }, Open ]], Cell[CellGroupData[{ -Cell[176922, 3753, 910, 26, 24, "Input",ExpressionUUID->"ad63e4bc-666e-46ed-8c23-6d418adb2b5d"], -Cell[177835, 3781, 3851, 116, 55, "Output",ExpressionUUID->"2f3c957d-28b6-4286-a434-e11d516208bf"] +Cell[177368, 3746, 910, 26, 24, "Input",ExpressionUUID->"ad63e4bc-666e-46ed-8c23-6d418adb2b5d"], +Cell[178281, 3774, 3851, 116, 55, "Output",ExpressionUUID->"2f3c957d-28b6-4286-a434-e11d516208bf"] }, Open ]], -Cell[181701, 3900, 988, 21, 22, "Input",ExpressionUUID->"c88cdbf9-9e5d-49a2-927e-12c0fc1e998e"], -Cell[182692, 3923, 2608, 55, 24, "Input",ExpressionUUID->"13c828e2-dc96-418a-98b1-bcedb602773f"], +Cell[182147, 3893, 988, 21, 22, "Input",ExpressionUUID->"c88cdbf9-9e5d-49a2-927e-12c0fc1e998e"], +Cell[183138, 3916, 2608, 55, 24, "Input",ExpressionUUID->"13c828e2-dc96-418a-98b1-bcedb602773f"], Cell[CellGroupData[{ -Cell[185325, 3982, 423, 11, 22, "Input",ExpressionUUID->"5547b70f-6ccc-4c3c-b7a2-430267adff70"], -Cell[185751, 3995, 5699, 145, 160, "Output",ExpressionUUID->"36211747-6213-49d3-af64-0c1c0cf9c4be"] +Cell[185771, 3975, 423, 11, 22, "Input",ExpressionUUID->"5547b70f-6ccc-4c3c-b7a2-430267adff70"], +Cell[186197, 3988, 5699, 145, 160, "Output",ExpressionUUID->"36211747-6213-49d3-af64-0c1c0cf9c4be"] }, Open ]], Cell[CellGroupData[{ -Cell[191487, 4145, 435, 11, 22, "Input",ExpressionUUID->"87393889-0e58-4140-85b8-c09bdfb83fa6"], -Cell[191925, 4158, 11216, 318, 177, "Output",ExpressionUUID->"45c1ecc4-6c35-4af1-a8c6-4c6db7168bb2"] +Cell[191933, 4138, 435, 11, 22, "Input",ExpressionUUID->"87393889-0e58-4140-85b8-c09bdfb83fa6"], +Cell[192371, 4151, 11216, 318, 177, "Output",ExpressionUUID->"45c1ecc4-6c35-4af1-a8c6-4c6db7168bb2"] }, Open ]], Cell[CellGroupData[{ -Cell[203178, 4481, 476, 13, 22, "Input",ExpressionUUID->"4d2d8f62-3f6d-45b3-9a63-780219e0e7e8"], -Cell[203657, 4496, 1353, 37, 27, "Output",ExpressionUUID->"76297447-9a1b-4498-9d3f-c2078f821920"] +Cell[203624, 4474, 476, 13, 22, "Input",ExpressionUUID->"4d2d8f62-3f6d-45b3-9a63-780219e0e7e8"], +Cell[204103, 4489, 1353, 37, 27, "Output",ExpressionUUID->"76297447-9a1b-4498-9d3f-c2078f821920"] }, Open ]], Cell[CellGroupData[{ -Cell[205047, 4538, 951, 21, 22, "Input",ExpressionUUID->"83eebe5d-3503-4b31-b14f-639ea14a0248"], -Cell[206001, 4561, 800, 15, 22, "Message",ExpressionUUID->"8caaea4c-f1d2-4f89-97f5-7e5b71ca8e2a"] +Cell[205493, 4531, 951, 21, 22, "Input",ExpressionUUID->"83eebe5d-3503-4b31-b14f-639ea14a0248"], +Cell[206447, 4554, 800, 15, 22, "Message",ExpressionUUID->"8caaea4c-f1d2-4f89-97f5-7e5b71ca8e2a"] }, Open ]], -Cell[206816, 4579, 1110, 23, 22, "Input",ExpressionUUID->"4c448220-e031-41d2-9096-b9e341dcd981"], -Cell[207929, 4604, 3839, 84, 41, "Input",ExpressionUUID->"63ea8c17-6059-4955-9b14-1b9deb692962"], +Cell[207262, 4572, 1110, 23, 22, "Input",ExpressionUUID->"4c448220-e031-41d2-9096-b9e341dcd981"], +Cell[208375, 4597, 3839, 84, 41, "Input",ExpressionUUID->"63ea8c17-6059-4955-9b14-1b9deb692962"], Cell[CellGroupData[{ -Cell[211793, 4692, 1255, 27, 24, "Input",ExpressionUUID->"7fe546c9-0af1-4973-85bb-971e16ca3307"], -Cell[213051, 4721, 1678, 39, 38, "Output",ExpressionUUID->"fafa3e14-532d-4f8f-a8ed-c5504aa4836f"] +Cell[212239, 4685, 1255, 27, 24, "Input",ExpressionUUID->"7fe546c9-0af1-4973-85bb-971e16ca3307"], +Cell[213497, 4714, 1678, 39, 38, "Output",ExpressionUUID->"fafa3e14-532d-4f8f-a8ed-c5504aa4836f"] }, Open ]], -Cell[214744, 4763, 968, 26, 24, "Input",ExpressionUUID->"84934d64-fc27-4a55-a1de-6f9f09494033"], -Cell[215715, 4791, 362, 10, 22, "Input",ExpressionUUID->"83f76904-20b3-4c92-8479-9704a86e9bc3"], -Cell[216080, 4803, 890, 19, 22, "Input",ExpressionUUID->"82f4b3f0-5071-4e29-8e26-febf3110e5e0"], +Cell[215190, 4756, 968, 26, 24, "Input",ExpressionUUID->"84934d64-fc27-4a55-a1de-6f9f09494033"], +Cell[216161, 4784, 362, 10, 22, "Input",ExpressionUUID->"83f76904-20b3-4c92-8479-9704a86e9bc3"], +Cell[216526, 4796, 890, 19, 22, "Input",ExpressionUUID->"82f4b3f0-5071-4e29-8e26-febf3110e5e0"], Cell[CellGroupData[{ -Cell[216995, 4826, 3664, 87, 107, "Input",ExpressionUUID->"acfb6249-e04b-4f94-810b-05af73aac0bc"], -Cell[220662, 4915, 3554, 69, 59, "Output",ExpressionUUID->"22fa23af-56ac-41f0-bad7-75e203e68dfd"] +Cell[217441, 4819, 3664, 87, 107, "Input",ExpressionUUID->"acfb6249-e04b-4f94-810b-05af73aac0bc"], +Cell[221108, 4908, 3554, 69, 59, "Output",ExpressionUUID->"22fa23af-56ac-41f0-bad7-75e203e68dfd"] }, Open ]], Cell[CellGroupData[{ -Cell[224253, 4989, 2813, 63, 24, "Input",ExpressionUUID->"2a2f7dd9-b465-4d3a-81cf-abf195bcfc21"], -Cell[227069, 5054, 680, 13, 22, "Message",ExpressionUUID->"fd049e2d-b962-42ba-8dca-46fc9644cce9"], -Cell[227752, 5069, 505, 11, 22, "Message",ExpressionUUID->"5cb44bf7-173f-499b-851b-adf000d36880"], -Cell[228260, 5082, 505, 11, 22, "Message",ExpressionUUID->"3413d04c-3008-4bee-a8ec-f365f773087f"], -Cell[228768, 5095, 505, 11, 22, "Message",ExpressionUUID->"982a2288-fc78-4c1e-8b15-7a87bdc87b9b"], -Cell[229276, 5108, 549, 11, 22, "Message",ExpressionUUID->"a6869e09-be0b-47fc-9d8f-a7b647e3ebf2"], -Cell[229828, 5121, 680, 13, 22, "Message",ExpressionUUID->"3e572292-7317-4d82-b804-f7ec1744c5da"], -Cell[230511, 5136, 680, 13, 22, "Message",ExpressionUUID->"d651ce85-ec36-45c7-9151-74cc477901a5"], -Cell[231194, 5151, 549, 11, 22, "Message",ExpressionUUID->"9996e476-8dd5-4dff-abe4-3dc38d2bcc7b"] +Cell[224699, 4982, 2813, 63, 24, "Input",ExpressionUUID->"2a2f7dd9-b465-4d3a-81cf-abf195bcfc21"], +Cell[227515, 5047, 680, 13, 22, "Message",ExpressionUUID->"fd049e2d-b962-42ba-8dca-46fc9644cce9"], +Cell[228198, 5062, 505, 11, 22, "Message",ExpressionUUID->"5cb44bf7-173f-499b-851b-adf000d36880"], +Cell[228706, 5075, 505, 11, 22, "Message",ExpressionUUID->"3413d04c-3008-4bee-a8ec-f365f773087f"], +Cell[229214, 5088, 505, 11, 22, "Message",ExpressionUUID->"982a2288-fc78-4c1e-8b15-7a87bdc87b9b"], +Cell[229722, 5101, 549, 11, 22, "Message",ExpressionUUID->"a6869e09-be0b-47fc-9d8f-a7b647e3ebf2"], +Cell[230274, 5114, 680, 13, 22, "Message",ExpressionUUID->"3e572292-7317-4d82-b804-f7ec1744c5da"], +Cell[230957, 5129, 680, 13, 22, "Message",ExpressionUUID->"d651ce85-ec36-45c7-9151-74cc477901a5"], +Cell[231640, 5144, 549, 11, 22, "Message",ExpressionUUID->"9996e476-8dd5-4dff-abe4-3dc38d2bcc7b"] }, Open ]], Cell[CellGroupData[{ -Cell[231780, 5167, 1907, 53, 39, "Input",ExpressionUUID->"f6acd6ad-220b-4828-a7d3-5558b5c91e4c"], -Cell[233690, 5222, 3373, 87, 75, "Output",ExpressionUUID->"9b8635de-045e-4f3a-b8b3-4a1dc739d03e"] +Cell[232226, 5160, 1907, 53, 39, "Input",ExpressionUUID->"f6acd6ad-220b-4828-a7d3-5558b5c91e4c"], +Cell[234136, 5215, 3373, 87, 75, "Output",ExpressionUUID->"9b8635de-045e-4f3a-b8b3-4a1dc739d03e"] }, Open ]], -Cell[237078, 5312, 1583, 41, 24, "Input",ExpressionUUID->"b04acde6-1c4d-4632-b34e-b05a8c3158f7"], +Cell[237524, 5305, 1583, 41, 24, "Input",ExpressionUUID->"b04acde6-1c4d-4632-b34e-b05a8c3158f7"], Cell[CellGroupData[{ -Cell[238686, 5357, 310, 8, 22, "Input",ExpressionUUID->"bb7ea87c-a295-4530-bdcd-103371a64b77"], -Cell[238999, 5367, 75439, 1299, 183, "Output",ExpressionUUID->"471fcd6b-1223-49d9-962f-85e668fab430"] +Cell[239132, 5350, 310, 8, 22, "Input",ExpressionUUID->"bb7ea87c-a295-4530-bdcd-103371a64b77"], +Cell[239445, 5360, 75437, 1299, 183, "Output",ExpressionUUID->"471fcd6b-1223-49d9-962f-85e668fab430"] }, Open ]], -Cell[314453, 6669, 23716, 405, 174, "Input",ExpressionUUID->"c8acd08e-419d-47df-95d8-cd474e7cf4f4"], +Cell[314897, 6662, 23716, 405, 174, "Input",ExpressionUUID->"c8acd08e-419d-47df-95d8-cd474e7cf4f4"], Cell[CellGroupData[{ -Cell[338194, 7078, 3692, 87, 56, "Input",ExpressionUUID->"0012cb53-2118-4c32-9687-3900486d9017"], -Cell[341889, 7167, 609, 12, 22, "Message",ExpressionUUID->"a407657b-19ae-486f-b6cf-16ca559b3fb6"], -Cell[342501, 7181, 611, 12, 22, "Message",ExpressionUUID->"2a251b03-af55-4ee8-b6ee-dc27429eff8a"], -Cell[343115, 7195, 611, 12, 22, "Message",ExpressionUUID->"466d17bf-ce0f-47a2-8764-46320b67ac6e"], -Cell[343729, 7209, 478, 10, 22, "Message",ExpressionUUID->"841bbca7-6ddd-4432-bc00-7d704794b41e"] +Cell[338638, 7071, 3692, 87, 56, "Input",ExpressionUUID->"0012cb53-2118-4c32-9687-3900486d9017"], +Cell[342333, 7160, 609, 12, 22, "Message",ExpressionUUID->"a407657b-19ae-486f-b6cf-16ca559b3fb6"], +Cell[342945, 7174, 609, 12, 22, "Message",ExpressionUUID->"2a251b03-af55-4ee8-b6ee-dc27429eff8a"], +Cell[343557, 7188, 609, 12, 22, "Message",ExpressionUUID->"466d17bf-ce0f-47a2-8764-46320b67ac6e"], +Cell[344169, 7202, 478, 10, 22, "Message",ExpressionUUID->"841bbca7-6ddd-4432-bc00-7d704794b41e"] }, Open ]], Cell[CellGroupData[{ -Cell[344244, 7224, 2254, 58, 22, "Input",ExpressionUUID->"abdd1227-571e-42c2-ba14-b0236a50da8f"], -Cell[346501, 7284, 258497, 4393, 294, "Output",ExpressionUUID->"ccc0c10d-374b-4561-9b69-130306acddb0"] +Cell[344684, 7217, 2254, 58, 22, "Input",ExpressionUUID->"abdd1227-571e-42c2-ba14-b0236a50da8f"], +Cell[346941, 7277, 258497, 4393, 283, "Output",ExpressionUUID->"ccc0c10d-374b-4561-9b69-130306acddb0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[605047, 11683, 157, 3, 50, "Section",ExpressionUUID->"3e089f73-01c1-4198-8f45-28504d7853b6"], -Cell[605207, 11688, 8352, 226, 562, "Input",ExpressionUUID->"32615cc9-ab89-4fec-9507-d4081e5ab9af"], -Cell[613562, 11916, 665, 21, 24, "Input",ExpressionUUID->"b5146e99-78bb-48d4-9374-7b833d3a6574"], -Cell[614230, 11939, 1566, 47, 22, "Input",ExpressionUUID->"ae37dedd-da6c-42ec-ae9b-796780482b37"], -Cell[615799, 11988, 701, 18, 38, "Input",ExpressionUUID->"3d84f495-773b-4ce0-a779-44c19e0915c3"], -Cell[616503, 12008, 371, 9, 22, "Input",ExpressionUUID->"618a42f8-b051-4cdf-8473-21e9de937b82"], -Cell[616877, 12019, 373, 9, 22, "Input",ExpressionUUID->"9a83e28a-4231-4cff-9a04-fac75f5e1b4d"], -Cell[617253, 12030, 427, 11, 22, "Input",ExpressionUUID->"43300cae-9f4f-47cf-9813-49db8b5d69a9"], -Cell[617683, 12043, 379, 10, 22, "Input",ExpressionUUID->"e7afa4f7-6f52-45c9-9d8a-53932a27bcf7"], +Cell[605487, 11676, 157, 3, 50, "Section",ExpressionUUID->"3e089f73-01c1-4198-8f45-28504d7853b6"], +Cell[605647, 11681, 8352, 226, 562, "Input",ExpressionUUID->"32615cc9-ab89-4fec-9507-d4081e5ab9af"], +Cell[614002, 11909, 665, 21, 24, "Input",ExpressionUUID->"b5146e99-78bb-48d4-9374-7b833d3a6574"], +Cell[614670, 11932, 1566, 47, 22, "Input",ExpressionUUID->"ae37dedd-da6c-42ec-ae9b-796780482b37"], +Cell[616239, 11981, 701, 18, 38, "Input",ExpressionUUID->"3d84f495-773b-4ce0-a779-44c19e0915c3"], +Cell[616943, 12001, 371, 9, 22, "Input",ExpressionUUID->"618a42f8-b051-4cdf-8473-21e9de937b82"], +Cell[617317, 12012, 373, 9, 22, "Input",ExpressionUUID->"9a83e28a-4231-4cff-9a04-fac75f5e1b4d"], +Cell[617693, 12023, 427, 11, 22, "Input",ExpressionUUID->"43300cae-9f4f-47cf-9813-49db8b5d69a9"], +Cell[618123, 12036, 379, 10, 22, "Input",ExpressionUUID->"e7afa4f7-6f52-45c9-9d8a-53932a27bcf7"], Cell[CellGroupData[{ -Cell[618087, 12057, 384, 7, 22, "Input",ExpressionUUID->"c1a6934f-6252-4ba2-8a31-abb6a974a91c"], -Cell[618474, 12066, 617, 15, 35, "Output",ExpressionUUID->"bafdc24d-ce74-44fa-81b1-b5eed3c1c110"] +Cell[618527, 12050, 384, 7, 22, "Input",ExpressionUUID->"c1a6934f-6252-4ba2-8a31-abb6a974a91c"], +Cell[618914, 12059, 617, 15, 35, "Output",ExpressionUUID->"bafdc24d-ce74-44fa-81b1-b5eed3c1c110"] }, Open ]], -Cell[619106, 12084, 146, 3, 22, "Input",ExpressionUUID->"c7e4db28-e1d9-4e45-8d64-b45ae3f3b02a"], +Cell[619546, 12077, 146, 3, 22, "Input",ExpressionUUID->"c7e4db28-e1d9-4e45-8d64-b45ae3f3b02a"], Cell[CellGroupData[{ -Cell[619277, 12091, 237, 4, 22, "Input",ExpressionUUID->"90f8e6cf-a2cb-4fc4-af6b-a2643f1c18bc"], -Cell[619517, 12097, 1350, 30, 111, "Output",ExpressionUUID->"761ce714-4f2f-4e7a-9a77-4aeb97c7b9e3"] +Cell[619717, 12084, 237, 4, 22, "Input",ExpressionUUID->"90f8e6cf-a2cb-4fc4-af6b-a2643f1c18bc"], +Cell[619957, 12090, 1350, 30, 111, "Output",ExpressionUUID->"761ce714-4f2f-4e7a-9a77-4aeb97c7b9e3"] }, Open ]], Cell[CellGroupData[{ -Cell[620904, 12132, 468, 12, 22, "Input",ExpressionUUID->"8fc542b7-ffb8-43ab-82fe-a6e3bc6c4dc1"], -Cell[621375, 12146, 1356, 31, 111, "Output",ExpressionUUID->"ba200cb0-9e0e-423b-9f5f-963ad56ef299"] +Cell[621344, 12125, 468, 12, 22, "Input",ExpressionUUID->"8fc542b7-ffb8-43ab-82fe-a6e3bc6c4dc1"], +Cell[621815, 12139, 1356, 31, 111, "Output",ExpressionUUID->"ba200cb0-9e0e-423b-9f5f-963ad56ef299"] }, Open ]], Cell[CellGroupData[{ -Cell[622768, 12182, 710, 20, 22, "Input",ExpressionUUID->"d97a16cb-8f13-463e-9235-10cf798e882c"], -Cell[623481, 12204, 575, 8, 25, "Output",ExpressionUUID->"ab9cfbb0-fc67-419d-ba7f-6c7524f65677"] +Cell[623208, 12175, 710, 20, 22, "Input",ExpressionUUID->"d97a16cb-8f13-463e-9235-10cf798e882c"], +Cell[623921, 12197, 575, 8, 25, "Output",ExpressionUUID->"ab9cfbb0-fc67-419d-ba7f-6c7524f65677"] }, Open ]], -Cell[624071, 12215, 4382, 113, 78, "Input",ExpressionUUID->"1be6ad59-07a8-4e68-a148-615473405a94"], +Cell[624511, 12208, 4382, 113, 78, "Input",ExpressionUUID->"1be6ad59-07a8-4e68-a148-615473405a94"], Cell[CellGroupData[{ -Cell[628478, 12332, 244, 5, 22, "Input",ExpressionUUID->"31ecc6b1-3013-4df7-a379-762ad87db2ba"], -Cell[628725, 12339, 4838, 148, 66, "Output",ExpressionUUID->"c29d260e-8842-437a-a5aa-1328cb436e45"] +Cell[628918, 12325, 244, 5, 22, "Input",ExpressionUUID->"31ecc6b1-3013-4df7-a379-762ad87db2ba"], +Cell[629165, 12332, 4838, 148, 66, "Output",ExpressionUUID->"c29d260e-8842-437a-a5aa-1328cb436e45"] }, Open ]], -Cell[633578, 12490, 5182, 145, 95, "Input",ExpressionUUID->"95097ec5-8784-4805-b556-6daf94695fcf"], +Cell[634018, 12483, 5182, 145, 95, "Input",ExpressionUUID->"95097ec5-8784-4805-b556-6daf94695fcf"], Cell[CellGroupData[{ -Cell[638785, 12639, 197, 3, 22, "Input",ExpressionUUID->"54fb42a2-4e37-42ef-bcb5-a2ee989bb8c3"], -Cell[638985, 12644, 9842, 287, 152, "Output",ExpressionUUID->"75df506e-ff6a-4923-b1da-38da451a259d"] +Cell[639225, 12632, 197, 3, 22, "Input",ExpressionUUID->"54fb42a2-4e37-42ef-bcb5-a2ee989bb8c3"], +Cell[639425, 12637, 9842, 287, 152, "Output",ExpressionUUID->"75df506e-ff6a-4923-b1da-38da451a259d"] }, Open ]], Cell[CellGroupData[{ -Cell[648864, 12936, 5332, 137, 148, "Input",ExpressionUUID->"f0db1c0b-165f-4f87-9592-b5d10a026867"], -Cell[654199, 13075, 13259, 326, 176, "Output",ExpressionUUID->"94abb570-dead-4d27-9ab4-47b0a6832b02"] +Cell[649304, 12929, 5332, 137, 148, "Input",ExpressionUUID->"f0db1c0b-165f-4f87-9592-b5d10a026867"], +Cell[654639, 13068, 13259, 326, 176, "Output",ExpressionUUID->"94abb570-dead-4d27-9ab4-47b0a6832b02"] }, Open ]], Cell[CellGroupData[{ -Cell[667495, 13406, 458, 12, 22, "Input",ExpressionUUID->"dca0231b-2ccb-4ad8-ba7d-c5644fabf4cd"], -Cell[667956, 13420, 10619, 274, 154, "Output",ExpressionUUID->"93fcca29-6cfb-44b9-a537-5fa298b15766"] +Cell[667935, 13399, 458, 12, 22, "Input",ExpressionUUID->"dca0231b-2ccb-4ad8-ba7d-c5644fabf4cd"], +Cell[668396, 13413, 10619, 274, 154, "Output",ExpressionUUID->"93fcca29-6cfb-44b9-a537-5fa298b15766"] }, Open ]], Cell[CellGroupData[{ -Cell[678612, 13699, 192, 2, 22, "Input",ExpressionUUID->"b5c3d02d-a185-4dd1-b953-b06af4d48aed"], -Cell[678807, 13703, 10234, 310, 107, "Output",ExpressionUUID->"a298f61a-4c39-4526-8144-4a1ce684b3a3"] +Cell[679052, 13692, 192, 2, 22, "Input",ExpressionUUID->"b5c3d02d-a185-4dd1-b953-b06af4d48aed"], +Cell[679247, 13696, 10234, 310, 107, "Output",ExpressionUUID->"a298f61a-4c39-4526-8144-4a1ce684b3a3"] }, Open ]], Cell[CellGroupData[{ -Cell[689078, 14018, 1098, 27, 22, "Input",ExpressionUUID->"85b738a2-9ed8-4758-a6c3-13831de84fcb"], -Cell[690179, 14047, 5347, 154, 66, "Output",ExpressionUUID->"7780f5a5-3b9f-4878-bca1-49d638b2ede5"] +Cell[689518, 14011, 1098, 27, 22, "Input",ExpressionUUID->"85b738a2-9ed8-4758-a6c3-13831de84fcb"], +Cell[690619, 14040, 5347, 154, 66, "Output",ExpressionUUID->"7780f5a5-3b9f-4878-bca1-49d638b2ede5"] }, Open ]], Cell[CellGroupData[{ -Cell[695563, 14206, 910, 26, 24, "Input",ExpressionUUID->"54f4b878-a43b-49d6-b99e-acf114036072"], -Cell[696476, 14234, 4849, 146, 66, "Output",ExpressionUUID->"8ab0a219-d516-4630-ab17-d2c9ecd07701"] +Cell[696003, 14199, 910, 26, 24, "Input",ExpressionUUID->"54f4b878-a43b-49d6-b99e-acf114036072"], +Cell[696916, 14227, 4849, 146, 66, "Output",ExpressionUUID->"8ab0a219-d516-4630-ab17-d2c9ecd07701"] }, Open ]], -Cell[701340, 14383, 3835, 83, 41, "Input",ExpressionUUID->"19946ab1-9943-42ba-8c04-694cc1f0098d"], +Cell[701780, 14376, 3835, 83, 41, "Input",ExpressionUUID->"19946ab1-9943-42ba-8c04-694cc1f0098d"], Cell[CellGroupData[{ -Cell[705200, 14470, 1251, 26, 24, "Input",ExpressionUUID->"623df1f0-acb4-43e6-b11b-11cede6c62f1"], -Cell[706454, 14498, 1648, 37, 38, "Output",ExpressionUUID->"f98a2dfe-f238-4006-aca1-8b523c40cf8d"] +Cell[705640, 14463, 1251, 26, 24, "Input",ExpressionUUID->"623df1f0-acb4-43e6-b11b-11cede6c62f1"], +Cell[706894, 14491, 1648, 37, 38, "Output",ExpressionUUID->"f98a2dfe-f238-4006-aca1-8b523c40cf8d"] }, Open ]], Cell[CellGroupData[{ -Cell[708139, 14540, 490, 11, 22, "Input",ExpressionUUID->"2dd75e13-4f61-4be7-b65b-acbf57a3d45b"], -Cell[708632, 14553, 8242, 189, 117, "Output",ExpressionUUID->"c4f58aa5-4d98-4810-9646-4e8d42c22b4d"] +Cell[708579, 14533, 490, 11, 22, "Input",ExpressionUUID->"2dd75e13-4f61-4be7-b65b-acbf57a3d45b"], +Cell[709072, 14546, 8242, 189, 117, "Output",ExpressionUUID->"c4f58aa5-4d98-4810-9646-4e8d42c22b4d"] }, Open ]], Cell[CellGroupData[{ -Cell[716911, 14747, 1216, 36, 24, "Input",ExpressionUUID->"785da43f-dcbf-49db-b834-5c4280942ceb"], -Cell[718130, 14785, 7508, 186, 122, "Output",ExpressionUUID->"ef9ef3d0-78d5-4ee8-9f3f-0ea8bcf8e2ee"] +Cell[717351, 14740, 1216, 36, 24, "Input",ExpressionUUID->"785da43f-dcbf-49db-b834-5c4280942ceb"], +Cell[718570, 14778, 7508, 186, 122, "Output",ExpressionUUID->"ef9ef3d0-78d5-4ee8-9f3f-0ea8bcf8e2ee"] }, Open ]], Cell[CellGroupData[{ -Cell[725675, 14976, 1044, 24, 22, "Input",ExpressionUUID->"aff1542a-e458-46e1-bc4e-b34eedfeafcd"], -Cell[726722, 15002, 207, 3, 25, "Output",ExpressionUUID->"540af864-3347-4186-9e31-aa1340e04ef2"] +Cell[726115, 14969, 1044, 24, 22, "Input",ExpressionUUID->"aff1542a-e458-46e1-bc4e-b34eedfeafcd"], +Cell[727162, 14995, 207, 3, 25, "Output",ExpressionUUID->"540af864-3347-4186-9e31-aa1340e04ef2"] }, Open ]], -Cell[726944, 15008, 2604, 54, 24, "Input",ExpressionUUID->"b1a9bc1c-abed-43f0-a0e6-669043a8612a"], +Cell[727384, 15001, 2604, 54, 24, "Input",ExpressionUUID->"b1a9bc1c-abed-43f0-a0e6-669043a8612a"], Cell[CellGroupData[{ -Cell[729573, 15066, 919, 22, 22, "Input",ExpressionUUID->"d0e2a3ad-c754-4c6f-892c-e1eb7382819e"], -Cell[730495, 15090, 9406, 209, 75, "Output",ExpressionUUID->"2ab0480a-d3ff-4a97-b7ed-5c8b82ae738f"] +Cell[730013, 15059, 919, 22, 22, "Input",ExpressionUUID->"d0e2a3ad-c754-4c6f-892c-e1eb7382819e"], +Cell[730935, 15083, 9406, 209, 75, "Output",ExpressionUUID->"2ab0480a-d3ff-4a97-b7ed-5c8b82ae738f"] }, Open ]], Cell[CellGroupData[{ -Cell[739938, 15304, 1564, 47, 24, "Input",ExpressionUUID->"bb7b14e3-b7dc-4aab-b889-d2be5f9e5ca1"], -Cell[741505, 15353, 3570, 109, 76, "Output",ExpressionUUID->"dc4be792-83a9-4fbe-af25-cb419d9bd7f5"] +Cell[740378, 15297, 1564, 47, 24, "Input",ExpressionUUID->"bb7b14e3-b7dc-4aab-b889-d2be5f9e5ca1"], +Cell[741945, 15346, 3570, 109, 76, "Output",ExpressionUUID->"dc4be792-83a9-4fbe-af25-cb419d9bd7f5"] }, Open ]], Cell[CellGroupData[{ -Cell[745112, 15467, 711, 18, 22, "Input",ExpressionUUID->"e749859b-f1bb-4500-b28b-6db621a38217"], -Cell[745826, 15487, 4407, 112, 76, "Output",ExpressionUUID->"d7d109d7-3932-47b3-bf98-64b81ad6ca17"] +Cell[745552, 15460, 711, 18, 22, "Input",ExpressionUUID->"e749859b-f1bb-4500-b28b-6db621a38217"], +Cell[746266, 15480, 4407, 112, 76, "Output",ExpressionUUID->"d7d109d7-3932-47b3-bf98-64b81ad6ca17"] }, Open ]], Cell[CellGroupData[{ -Cell[750270, 15604, 635, 15, 23, "Input",ExpressionUUID->"1e958760-e7cd-4052-b9b9-908474376dba"], -Cell[750908, 15621, 489, 10, 35, "Output",ExpressionUUID->"2ad54e2e-1894-4c5a-b49c-69dc3d8f2778"] +Cell[750710, 15597, 635, 15, 23, "Input",ExpressionUUID->"1e958760-e7cd-4052-b9b9-908474376dba"], +Cell[751348, 15614, 489, 10, 35, "Output",ExpressionUUID->"2ad54e2e-1894-4c5a-b49c-69dc3d8f2778"] }, Open ]], Cell[CellGroupData[{ -Cell[751434, 15636, 718, 14, 22, "Input",ExpressionUUID->"e3e9458f-95e8-4772-8a74-726345ff1051"], -Cell[752155, 15652, 12022, 346, 180, "Output",ExpressionUUID->"365b5ad7-7989-4846-bb39-0e6808cb0ccd"] +Cell[751874, 15629, 718, 14, 22, "Input",ExpressionUUID->"e3e9458f-95e8-4772-8a74-726345ff1051"], +Cell[752595, 15645, 12022, 346, 180, "Output",ExpressionUUID->"365b5ad7-7989-4846-bb39-0e6808cb0ccd"] }, Open ]], Cell[CellGroupData[{ -Cell[764214, 16003, 698, 14, 22, "Input",ExpressionUUID->"13c24c5e-bb61-4d7d-b2bf-3c3997d9edaa"], -Cell[764915, 16019, 205, 4, 35, "Output",ExpressionUUID->"98447f30-3d37-4177-8919-efee0d8245af"] +Cell[764654, 15996, 698, 14, 22, "Input",ExpressionUUID->"13c24c5e-bb61-4d7d-b2bf-3c3997d9edaa"], +Cell[765355, 16012, 205, 4, 35, "Output",ExpressionUUID->"98447f30-3d37-4177-8919-efee0d8245af"] }, Open ]], Cell[CellGroupData[{ -Cell[765157, 16028, 177, 3, 22, "Input",ExpressionUUID->"af6aac65-5a4e-453d-b4b6-17d282a20e18"], -Cell[765337, 16033, 11800, 322, 196, "Output",ExpressionUUID->"3e4a980e-1533-48dd-9ff1-621494d5b9c2"] +Cell[765597, 16021, 177, 3, 22, "Input",ExpressionUUID->"af6aac65-5a4e-453d-b4b6-17d282a20e18"], +Cell[765777, 16026, 11800, 322, 196, "Output",ExpressionUUID->"3e4a980e-1533-48dd-9ff1-621494d5b9c2"] }, Open ]], Cell[CellGroupData[{ -Cell[777174, 16360, 234, 5, 22, "Input",ExpressionUUID->"f42329fb-b20f-4aaa-a8d2-db55af9748ac"], -Cell[777411, 16367, 225, 4, 35, "Output",ExpressionUUID->"05e474ca-1e55-4d23-afd9-d0f3a09207a6"] +Cell[777614, 16353, 234, 5, 22, "Input",ExpressionUUID->"f42329fb-b20f-4aaa-a8d2-db55af9748ac"], +Cell[777851, 16360, 225, 4, 35, "Output",ExpressionUUID->"05e474ca-1e55-4d23-afd9-d0f3a09207a6"] }, Open ]], Cell[CellGroupData[{ -Cell[777673, 16376, 179, 3, 22, "Input",ExpressionUUID->"d10961b8-b152-4e5e-9c29-4145a2972d3d"], -Cell[777855, 16381, 22623, 476, 264, "Output",ExpressionUUID->"c36222bd-4f89-4cc7-a993-0cf35af05bc7"] +Cell[778113, 16369, 179, 3, 22, "Input",ExpressionUUID->"d10961b8-b152-4e5e-9c29-4145a2972d3d"], +Cell[778295, 16374, 22623, 476, 264, "Output",ExpressionUUID->"c36222bd-4f89-4cc7-a993-0cf35af05bc7"] }, Open ]], Cell[CellGroupData[{ -Cell[800515, 16862, 419, 10, 22, "Input",ExpressionUUID->"58abea83-2416-4b80-aea1-49c6f03cd553"], -Cell[800937, 16874, 5669, 143, 160, "Output",ExpressionUUID->"e15a4a61-3508-49a6-873c-f26ddee17deb"] +Cell[800955, 16855, 419, 10, 22, "Input",ExpressionUUID->"58abea83-2416-4b80-aea1-49c6f03cd553"], +Cell[801377, 16867, 5669, 143, 160, "Output",ExpressionUUID->"e15a4a61-3508-49a6-873c-f26ddee17deb"] }, Open ]], Cell[CellGroupData[{ -Cell[806643, 17022, 431, 10, 22, "Input",ExpressionUUID->"4538f42b-62c4-4651-9986-8bec11748d70"], -Cell[807077, 17034, 11191, 317, 177, "Output",ExpressionUUID->"7c39a957-cd36-48d3-a034-eee66c14231d"] +Cell[807083, 17015, 431, 10, 22, "Input",ExpressionUUID->"4538f42b-62c4-4651-9986-8bec11748d70"], +Cell[807517, 17027, 11191, 317, 177, "Output",ExpressionUUID->"7c39a957-cd36-48d3-a034-eee66c14231d"] }, Open ]], Cell[CellGroupData[{ -Cell[818305, 17356, 472, 12, 22, "Input",ExpressionUUID->"b2530e76-38c3-48b8-85fb-23b713cd8c3c"], -Cell[818780, 17370, 1322, 35, 27, "Output",ExpressionUUID->"abded75c-64eb-402a-9a69-78d296d1035c"] +Cell[818745, 17349, 472, 12, 22, "Input",ExpressionUUID->"b2530e76-38c3-48b8-85fb-23b713cd8c3c"], +Cell[819220, 17363, 1322, 35, 27, "Output",ExpressionUUID->"abded75c-64eb-402a-9a69-78d296d1035c"] }, Open ]], Cell[CellGroupData[{ -Cell[820139, 17410, 947, 20, 22, "Input",ExpressionUUID->"583ab52e-3647-429c-9c33-fd12ede259b8"], -Cell[821089, 17432, 775, 15, 22, "Message",ExpressionUUID->"2f4c2728-fd8d-46d6-a68a-371b7c8a7ba9"] +Cell[820579, 17403, 947, 20, 22, "Input",ExpressionUUID->"583ab52e-3647-429c-9c33-fd12ede259b8"], +Cell[821529, 17425, 775, 15, 22, "Message",ExpressionUUID->"2f4c2728-fd8d-46d6-a68a-371b7c8a7ba9"] }, Open ]], -Cell[821879, 17450, 1004, 20, 22, "Input",ExpressionUUID->"e570420b-e9e0-4c23-ae5b-1941f99cb727"], -Cell[822886, 17472, 3835, 83, 41, "Input",ExpressionUUID->"83b8cb66-7a5d-443e-8848-d633f7da5d42"], +Cell[822319, 17443, 1004, 20, 22, "Input",ExpressionUUID->"e570420b-e9e0-4c23-ae5b-1941f99cb727"], +Cell[823326, 17465, 3835, 83, 41, "Input",ExpressionUUID->"83b8cb66-7a5d-443e-8848-d633f7da5d42"], Cell[CellGroupData[{ -Cell[826746, 17559, 1251, 26, 24, "Input",ExpressionUUID->"408b9498-9f18-42c3-a258-3358b138cc65"], -Cell[828000, 17587, 1626, 37, 38, "Output",ExpressionUUID->"e46e4e60-dba7-4188-9de8-05742c779360"] +Cell[827186, 17552, 1251, 26, 24, "Input",ExpressionUUID->"408b9498-9f18-42c3-a258-3358b138cc65"], +Cell[828440, 17580, 1626, 37, 38, "Output",ExpressionUUID->"e46e4e60-dba7-4188-9de8-05742c779360"] }, Open ]], -Cell[829641, 17627, 964, 25, 24, "Input",ExpressionUUID->"59c41cae-4e24-4a51-a7a3-7d500a289340"], -Cell[830608, 17654, 358, 9, 22, "Input",ExpressionUUID->"10d3cd49-4d16-4520-bb58-ea59fc8d7b92"], -Cell[830969, 17665, 886, 18, 22, "Input",ExpressionUUID->"93de0c72-ab3d-4e0e-91df-edd506da949b"], +Cell[830081, 17620, 964, 25, 24, "Input",ExpressionUUID->"59c41cae-4e24-4a51-a7a3-7d500a289340"], +Cell[831048, 17647, 358, 9, 22, "Input",ExpressionUUID->"10d3cd49-4d16-4520-bb58-ea59fc8d7b92"], +Cell[831409, 17658, 886, 18, 22, "Input",ExpressionUUID->"93de0c72-ab3d-4e0e-91df-edd506da949b"], Cell[CellGroupData[{ -Cell[831880, 17687, 3660, 86, 107, "Input",ExpressionUUID->"9e5141ea-32bd-48b0-8277-cb026f090ea9"], -Cell[835543, 17775, 3546, 66, 59, "Output",ExpressionUUID->"0ec956b2-4200-4dbd-bf3a-8e1ba4f9fb29"] +Cell[832320, 17680, 3660, 86, 107, "Input",ExpressionUUID->"9e5141ea-32bd-48b0-8277-cb026f090ea9"], +Cell[835983, 17768, 3546, 66, 59, "Output",ExpressionUUID->"0ec956b2-4200-4dbd-bf3a-8e1ba4f9fb29"] }, Open ]], Cell[CellGroupData[{ -Cell[839126, 17846, 2809, 62, 24, "Input",ExpressionUUID->"15a4bc43-3d38-4bf8-ab87-9fe6c3c52fd5"], -Cell[841938, 17910, 633, 13, 22, "Message",ExpressionUUID->"021c4989-876c-4967-bcac-1f978a0f6419"], -Cell[842574, 17925, 633, 13, 22, "Message",ExpressionUUID->"4c8cb9d5-8149-4cd8-9ae8-7fb98ffaf525"], -Cell[843210, 17940, 633, 13, 22, "Message",ExpressionUUID->"9bc6aaf1-acad-42a4-8e8c-3d1bc23999cc"], -Cell[843846, 17955, 502, 11, 22, "Message",ExpressionUUID->"f629becb-1a0a-41c4-982d-075455cd242a"] +Cell[839566, 17839, 2809, 62, 24, "Input",ExpressionUUID->"15a4bc43-3d38-4bf8-ab87-9fe6c3c52fd5"], +Cell[842378, 17903, 633, 13, 22, "Message",ExpressionUUID->"021c4989-876c-4967-bcac-1f978a0f6419"], +Cell[843014, 17918, 633, 13, 22, "Message",ExpressionUUID->"4c8cb9d5-8149-4cd8-9ae8-7fb98ffaf525"], +Cell[843650, 17933, 633, 13, 22, "Message",ExpressionUUID->"9bc6aaf1-acad-42a4-8e8c-3d1bc23999cc"], +Cell[844286, 17948, 502, 11, 22, "Message",ExpressionUUID->"f629becb-1a0a-41c4-982d-075455cd242a"] }, Open ]], Cell[CellGroupData[{ -Cell[844385, 17971, 1903, 52, 39, "Input",ExpressionUUID->"a6ab04f8-b182-4e06-87d3-44cf4d55f296"], -Cell[846291, 18025, 3335, 87, 75, "Output",ExpressionUUID->"e43b3e00-885a-43e1-b26b-8b1a2615d3fc"] +Cell[844825, 17964, 1903, 52, 39, "Input",ExpressionUUID->"a6ab04f8-b182-4e06-87d3-44cf4d55f296"], +Cell[846731, 18018, 3335, 87, 75, "Output",ExpressionUUID->"e43b3e00-885a-43e1-b26b-8b1a2615d3fc"] }, Open ]], -Cell[849641, 18115, 1579, 40, 24, "Input",ExpressionUUID->"cc4f2eca-a54d-413e-8b18-94ba1c2bbbc2"], +Cell[850081, 18108, 1579, 40, 24, "Input",ExpressionUUID->"cc4f2eca-a54d-413e-8b18-94ba1c2bbbc2"], Cell[CellGroupData[{ -Cell[851245, 18159, 306, 7, 22, "Input",ExpressionUUID->"971b5a9c-8ceb-429f-9eab-88056cb74ad9"], -Cell[851554, 18168, 75499, 1300, 183, "Output",ExpressionUUID->"e2ba4c38-edde-4b75-bc95-88dc47d04160"] +Cell[851685, 18152, 306, 7, 22, "Input",ExpressionUUID->"971b5a9c-8ceb-429f-9eab-88056cb74ad9"], +Cell[851994, 18161, 75499, 1300, 183, "Output",ExpressionUUID->"e2ba4c38-edde-4b75-bc95-88dc47d04160"] }, Open ]], -Cell[927068, 19471, 23714, 405, 174, "Input",ExpressionUUID->"596a8ce7-fc36-4ac8-af24-031757805468"], +Cell[927508, 19464, 23714, 405, 174, "Input",ExpressionUUID->"596a8ce7-fc36-4ac8-af24-031757805468"], Cell[CellGroupData[{ -Cell[950807, 19880, 3572, 83, 39, "Input",ExpressionUUID->"22832d0e-448c-47f2-8f0e-e89d73befd40"], -Cell[954382, 19965, 702, 14, 22, "Message",ExpressionUUID->"0e26f2eb-9d86-492c-91a9-5ea47d8e976a"], -Cell[955087, 19981, 702, 14, 22, "Message",ExpressionUUID->"d7d2d2b6-5759-4cc8-9a15-621a513b57c6"] +Cell[951247, 19873, 3572, 83, 39, "Input",ExpressionUUID->"22832d0e-448c-47f2-8f0e-e89d73befd40"], +Cell[954822, 19958, 702, 14, 22, "Message",ExpressionUUID->"0e26f2eb-9d86-492c-91a9-5ea47d8e976a"], +Cell[955527, 19974, 702, 14, 22, "Message",ExpressionUUID->"d7d2d2b6-5759-4cc8-9a15-621a513b57c6"] }, Open ]], Cell[CellGroupData[{ -Cell[955826, 20000, 2196, 57, 22, "Input",ExpressionUUID->"e61533c0-9653-4007-9f77-db9184a97720"], -Cell[958025, 20059, 216473, 3703, 282, "Output",ExpressionUUID->"0062a0bc-735d-4365-b826-64b7fedf2201"] +Cell[956266, 19993, 2196, 57, 22, "Input",ExpressionUUID->"e61533c0-9653-4007-9f77-db9184a97720"], +Cell[958465, 20052, 216473, 3703, 282, "Output",ExpressionUUID->"0062a0bc-735d-4365-b826-64b7fedf2201"] }, Open ]] }, Closed]] } diff --git a/marginal.tex b/marginal.tex index 39adc40..0eb6e5b 100644 --- a/marginal.tex +++ b/marginal.tex @@ -103,24 +103,24 @@ expressed as \begin{equation} \label{eq:λmin} g(\lambda_\textrm{min}(A)) =\lim_{\beta\to\infty}\int - \frac{d\mathbf s\,\delta(N-\mathbf s^T\mathbf s)e^{-\beta\mathbf s^TA\mathbf s}} - {\int d\mathbf s'\,\delta(N-\mathbf s'^T\mathbf s')e^{-\beta\mathbf s'^TA\mathbf s'}} + \frac{d\mathbf s\,\delta(N-\|\mathbf s\|^2)e^{-\beta\mathbf s^TA\mathbf s}} + {\int d\mathbf s'\,\delta(N-\|\mathbf s'\|^2)e^{-\beta\mathbf s'^TA\mathbf s'}} g\left(\frac{\mathbf s^TA\mathbf s}N\right) \end{equation} Assuming \begin{equation} \begin{aligned} &\lim_{\beta\to\infty}\int\frac{ - d\mathbf s\,\delta(N-\mathbf s^T\mathbf s)e^{-\beta\mathbf s^TA\mathbf s} + d\mathbf s\,\delta(N-\|\mathbf s\|^2)e^{-\beta\mathbf s^TA\mathbf s} }{ - \int d\mathbf s'\,\delta(N-\mathbf s'^T\mathbf s')e^{-\beta\mathbf s'^TA\mathbf s'} + \int d\mathbf s'\,\delta(N-\|\mathbf s'\|^2)e^{-\beta\mathbf s'^TA\mathbf s'} }g\left(\frac{\mathbf s^TA\mathbf s}N\right) \\ &=\int\frac{ - d\mathbf s\,\delta(N-\mathbf s^T\mathbf s)\mathbb 1_{\operatorname{ker}(A-\lambda_\mathrm{min}(A)I)}(\mathbf s) + d\mathbf s\,\delta(N-\|\mathbf s\|^2)\mathbb 1_{\operatorname{ker}(A-\lambda_\mathrm{min}(A)I)}(\mathbf s) }{ - \int d\mathbf s'\,\delta(N-\mathbf s'^T\mathbf s')\mathbb 1_{\operatorname{ker}(A-\lambda_\mathrm{min}(A)I)}(\mathbf s')}g\left(\frac{\mathbf s^TA\mathbf s}N\right) \\ + \int d\mathbf s'\,\delta(N-\|\mathbf s'\|^2)\mathbb 1_{\operatorname{ker}(A-\lambda_\mathrm{min}(A)I)}(\mathbf s')}g\left(\frac{\mathbf s^TA\mathbf s}N\right) \\ &=g(\lambda_\mathrm{min}(A)) - \frac{\int d\mathbf s\,\delta(N-\mathbf s^T\mathbf s)\mathbb 1_{\operatorname{ker}(A-\lambda_\mathrm{min}(A)I)}(\mathbf s)}{\int d\mathbf s'\,\delta(N-\mathbf s'^T\mathbf s')\mathbb 1_{\operatorname{ker}(A-\lambda_\mathrm{min}(A)I)}(\mathbf s')} \\ + \frac{\int d\mathbf s\,\delta(N-\|\mathbf s\|^2)\mathbb 1_{\operatorname{ker}(A-\lambda_\mathrm{min}(A)I)}(\mathbf s)}{\int d\mathbf s'\,\delta(N-\|\mathbf s'\|^2)\mathbb 1_{\operatorname{ker}(A-\lambda_\mathrm{min}(A)I)}(\mathbf s')} \\ &=g(\lambda_\mathrm{min}(A)) \end{aligned} \end{equation} @@ -174,17 +174,17 @@ Using the representation of $\lambda_\mathrm{min}$ defined in \eqref{eq:λmin}, \begin{equation} e^{NG_{\lambda^*}(\mu)} =\overline{ - \lim_{\beta\to\infty}\int\frac{d\mathbf s\,\delta(N-\mathbf s^T\mathbf s)e^{-\beta\mathbf s^T(B+\mu I)\mathbf s}} - {\int d\mathbf s'\,\delta(N-\mathbf s'^T\mathbf s')e^{-\beta\mathbf s'^T(B+\mu I)\mathbf s'}}\,\delta\big(N\lambda^*-\mathbf s^T(B+\mu I)\mathbf s\big) + \lim_{\beta\to\infty}\int\frac{d\mathbf s\,\delta(N-\|\mathbf s\|^2)e^{-\beta\mathbf s^T(B+\mu I)\mathbf s}} + {\int d\mathbf s'\,\delta(N-\|\mathbf s'\|^2)e^{-\beta\mathbf s'^T(B+\mu I)\mathbf s'}}\,\delta\big(N\lambda^*-\mathbf s^T(B+\mu I)\mathbf s\big) } \end{equation} -Using replicas to treat the denominator ($x^{-1}=\lim_{n\to0}x^{n-1}$) +Using replicas to treat the denominator ($x^{-1}=\lim_{m\to0}x^{m-1}$) and transforming the $\delta$-function to its Fourier representation, we have \begin{equation} e^{NG_{\lambda^*}(\mu)} - =\overline{\lim_{\beta\to\infty}\lim_{n\to0}\int d\hat\lambda\prod_{a=1}^n\left[d\mathbf s_a\,\delta(N-\mathbf s_a^T\mathbf s_a)\right] - \exp\left\{-\beta\sum_{a=1}^n\mathbf s_a^T(B+\mu I)\mathbf s_a+\hat\lambda\left[N\lambda^*-\mathbf s_1^T(B+\mu I)\mathbf s_1\right]\right\}} + =\overline{\lim_{\beta\to\infty}\lim_{m\to0}\int d\hat\lambda\prod_{\alpha=1}^m\left[d\mathbf s^\alpha\,\delta(N-\|\mathbf s^\alpha\|^2)\right] + \exp\left\{-\beta\sum_{\alpha=1}^m(\mathbf s^\alpha)^T(B+\mu I)\mathbf s^\alpha+\hat\lambda\left[N\lambda^*-(\mathbf s^1)^T(B+\mu I)\mathbf s^1\right]\right\}} \end{equation} having introduced the parameter $\hat\lambda$ in the Fourier representation of the $\delta$-function. The whole expression, so transformed, is a simple @@ -193,9 +193,9 @@ have \begin{equation} \begin{aligned} &e^{NG_{\lambda^*}(\mu)} - =\lim_{\beta\to\infty}\lim_{n\to0}\int d\hat\lambda\prod_{a=1}^n\left[d\mathbf s_a\,\delta(N-\mathbf s_a^T\mathbf s_a)\right] \\ - &\hspace{10em}\exp\left\{N\left[\hat\lambda(\lambda^*-\mu)-n\beta\mu\right]+\frac{\sigma^2}{N}\left[\beta^2\sum_{ab}^n(\mathbf s_a^T\mathbf s_b)^2 - +2\beta\hat\lambda\sum_a^n(\mathbf s_a^T\mathbf s_1)^2 + =\lim_{\beta\to\infty}\lim_{m\to0}\int d\hat\lambda\prod_{\alpha=1}^m\left[d\mathbf s^\alpha\,\delta(N-\|\mathbf s^\alpha\|^2)\right] \\ + &\hspace{10em}\exp\left\{N\left[\hat\lambda(\lambda^*-\mu)-m\beta\mu\right]+\frac{\sigma^2}{N}\left[\beta^2\sum_{\alpha\gamma}^m(\mathbf s^\alpha\cdot\mathbf s^\gamma)^2 + +2\beta\hat\lambda\sum_\alpha^m(\mathbf s^\alpha\cdot\mathbf s^1)^2 +\hat\lambda^2N^2 \right]\right\} \end{aligned} @@ -231,12 +231,14 @@ and \end{equation} Inserting these expressions and taking the limit of $n$ to zero, we find \begin{equation} - e^{NG_{\lambda^*}(\mu)}=\lim_{\beta\to\infty}\int d\hat\lambda\,dq_0\,d\tilde q_0\,e^{N\mathcal S_\beta(q_0,\tilde q_0,\hat\lambda)} + e^{NG_{\lambda^*}(\mu)} + =\lim_{\beta\to\infty}\int d\hat\lambda\,dq_0\,d\tilde q_0\, + e^{N\mathcal U_\textrm{GOE}(q_0,\tilde q_0,\hat\lambda\mid\beta)} \end{equation} with the effective action \begin{equation} \begin{aligned} - &\mathcal S_\beta(q_0,\tilde q_0,\hat\lambda) \\ + &\mathcal U_\mathrm{GOE}(q_0,\tilde q_0,\hat\lambda\mid\beta) \\ &\quad=\hat\lambda(\lambda^*-\mu)+\sigma^2\left[ 2\beta^2(q_0^2-\tilde q_0^2)+2\beta\hat\lambda(1-\tilde q_0^2)+\hat\lambda^2 \right] \\ @@ -256,7 +258,7 @@ However, taking the limit with $y\neq\tilde y$ results in an expression for the action that diverges with $\beta$. To cure this, we must take $\tilde y=y$. The result is \begin{equation} \begin{aligned} - \mathcal S_\infty(y,\Delta z,\hat\lambda) + \mathcal U_\textrm{GOE}(y,\Delta z,\hat\lambda\mid\infty) &=\hat\lambda(\lambda^*-\mu) +\sigma^2\big[ \hat\lambda^2-4(y+\Delta z) @@ -276,7 +278,8 @@ Inserting this solution into $\mathcal S_\infty$ we find \begin{equation} \label{eq:goe.large.dev} \begin{aligned} &G_{\lambda^*}(\mu) - =\mathop{\textrm{extremum}}_{y,\Delta z,\hat\lambda}\mathcal S_\infty(y,\Delta z,\hat\lambda) \\ + =\mathop{\textrm{extremum}}_{y,\Delta z,\hat\lambda} + \mathcal U_\mathrm{GOE}(y,\Delta z,\hat\lambda\mid\infty) \\ &=-\tfrac{\mu+\lambda^*}{2\sigma}\sqrt{\Big(\tfrac{\mu+\lambda^*}{2\sigma}\Big)^2-1} +\log\left( \tfrac{\mu+\lambda^*}{2\sigma}+\sqrt{\Big(\tfrac{\mu+\lambda^*}{2\sigma}\Big)^2-1} @@ -411,8 +414,8 @@ We further want to control the value of the minimum eigenvalue of the Hessian at &\mathcal N_H(E,\mu,\lambda^*) =\int d\nu_H(\mathbf x,\pmb\omega\mid E,\mu)\,\delta\big(N\lambda^*-\lambda_\mathrm{min}(\operatorname{Hess}H(\mathbf x,\pmb\omega))\big) \\ &=\lim_{\beta\to\infty}\int d\nu_H(\mathbf x,\pmb\omega\mid E,\mu) - \frac{d\mathbf s\,\delta(N-\mathbf s^T\mathbf s)\delta(\mathbf s^T\partial\mathbf g(\mathbf x))e^{-\beta\mathbf s^T\operatorname{Hess}H(\mathbf x,\pmb\omega)\mathbf s}} - {\int d\mathbf s'\,\delta(N-\mathbf s'^T\mathbf s')\delta(\mathbf s'^T\partial\mathbf g(\mathbf x))e^{-\beta\mathbf s'^T\operatorname{Hess}H(\mathbf x,\pmb\omega)\mathbf s'}} + \frac{d\mathbf s\,\delta(N-\|\mathbf s\|^2)\delta(\mathbf s^T\partial\mathbf g(\mathbf x))e^{-\beta\mathbf s^T\operatorname{Hess}H(\mathbf x,\pmb\omega)\mathbf s}} + {\int d\mathbf s'\,\delta(N-\|\mathbf s'\|^2)\delta(\mathbf s'^T\partial\mathbf g(\mathbf x))e^{-\beta\mathbf s'^T\operatorname{Hess}H(\mathbf x,\pmb\omega)\mathbf s'}} \delta\big(N\lambda^*-\mathbf s^T\operatorname{Hess}H(\mathbf x,\pmb\omega)\mathbf s\big) \end{aligned} \end{equation} @@ -437,7 +440,7 @@ again to treat each of the normalizations in the numerator. This leads to the ex &=\lim_{\beta\to\infty}\lim_{n\to0}\frac1N\frac\partial{\partial n}\int\prod_{a=1}^n\Bigg[d\nu_H(\mathbf x_a,\pmb\omega_a\mid E,\mu)\,\delta\big(N\lambda^*-(\mathbf s_a^1)^T\operatorname{Hess}H(\mathbf x_a,\pmb\omega_a)\mathbf s_a^1\big)\\ &\hspace{12em}\times\lim_{m_a\to0} \left(\prod_{\alpha=1}^{m_a} d\mathbf s_a^\alpha - \,\delta\big(N-(\mathbf s_a^\alpha)^T\mathbf s_a^\alpha\big) + \,\delta\big(N-\|\mathbf s_a^\alpha\|^2\big) \,\delta\big((\mathbf s_a^\alpha)^T\partial\mathbf g(\mathbf x_a)\big) \,e^{-\beta(\mathbf s_a^\alpha)^T\operatorname{Hess}H(\mathbf x_a,\pmb\omega_a)\mathbf s_a^\alpha}\right) \Bigg] @@ -651,7 +654,7 @@ have introduced through their scalar products with each other. We therefore make &D_{ab}=\frac1N\hat{\mathbf x}_a\cdot\hat{\mathbf x}_b &G_{ab}=\frac1N\bar{\pmb\eta}_a^T\pmb\eta_b& \\ - &A_{ab}^{\alpha\gamma}=\frac1N\mathbf s_a^\alpha\cdot\mathbf s_b^\gamma + &Q_{ab}^{\alpha\gamma}=\frac1N\mathbf s_a^\alpha\cdot\mathbf s_b^\gamma &X^\alpha_{ab}=\frac1N\mathbf x_a\cdot\mathbf s_b^\alpha& \\ &\hat X^\alpha_{ab}=-i\frac1N\hat{\mathbf x}_a\cdot\mathbf s_b^\alpha&& @@ -663,34 +666,57 @@ This transformation changes the measure of the integral, with \begin{equation} \begin{aligned} &\prod_{a=1}^nd\mathbf x_a\,\frac{d\hat{\mathbf x}_a}{(2\pi)^N}\,d\bar{\pmb\eta}_a\,d\pmb\eta\,\prod_{\alpha=1}^{m_a}d\mathbf s_a^\alpha \\ - &\quad=dC\,dR\,dD\,dG\,dA\,dX\,d\hat X\,(\det J)^{N/2}(\det G)^{-N/2} + &\quad=dC\,dR\,dD\,dG\,dQ\,dX\,d\hat X\,(\det J)^{N/2}(\det G)^{-N} \end{aligned} \end{equation} where $J$ is the Jacobian of the transformation and takes the form \begin{equation} \label{eq:coordinate.jacobian} J=\begin{bmatrix} - C&iR&X^1&\cdots&X^n \\ - iR&D&i\hat X^1&\cdots&i\hat X^m\\ - (X^1)^T&i(\hat X^1)^T&A^{11}&\cdots&A^{1n}\\ + C&iR&X_1&\cdots&X_n \\ + iR&D&i\hat X_1&\cdots&i\hat X_n\\ + X_1^T&i\hat X_1^T&Q_{11}&\cdots&Q_{1n}\\ \vdots&\vdots&\vdots&\ddots&\vdots\\ - (X^n)^T&i(\hat X^n)^T&A^{n1}&\cdots&A^{nn} + X_n^T&i\hat X_n^T&Q_{n1}&\cdots&Q_{nn} \end{bmatrix} \end{equation} and the contribution of the Grassmann integrals produces its own inverted -Jacobian. +Jacobian. The block matrices indicated above are such that $A_{ab}$ is an +$m_a\times m_b$ matrix indexed by the upper indices, while $X_a$ is an $n\times +m_a$ matrix with one lower and one upper index. After these steps, which follow identically to those more carefully outlined in the cited papers \cite{Folena_2020_Rethinking, Kent-Dobias_2023_How}, we arrive at a form of the integral as over an effective action +\begin{widetext} \begin{equation} \begin{aligned} &\Sigma_{\lambda^*}(E,\mu) - =\lim_{\beta\to\infty}\lim_{n\to0}\frac1N\frac\partial{\partial n} - \int dC\,dR\,dD\,dG \\ - &dA\,dX\,d\hat X\, - d\hat\beta\,d\hat\lambda\,e^{N - n\mathcal S_\mathrm{KR}(\hat\beta,\omega,C,R,D,G) - +N\mathcal S_\beta(\omega,\hat\lambda,A,X,\hat X) - } + =\lim_{\beta\to\infty}\lim_{n\to0}\lim_{m_1\cdots m_n\to0} + \frac1N\frac\partial{\partial n} + \int dC\,dR\,dD\,dG\,dQ\,dX\,d\hat X\,d\hat\beta\,d\hat\lambda\, + \exp\Bigg\{ + nN\mathcal S_\mathrm{SSG}(\hat\beta,C,R,D,G\mid E,\mu) \\ + &\qquad + +nN\mathcal U_\mathrm{SSG}(\hat\lambda,C,Q,X,\hat X\mid\beta) + +\frac N2\log\det\left[ + I+\begin{bmatrix} + Q_{11}&\cdots&Q_{1n}\\ + \vdots&\ddots&\vdots\\ + Q_{n1}&\cdots&Q_{nn} + \end{bmatrix}^{-1} + \begin{bmatrix} + X_1^T&i\hat X_1^T\\ + \vdots&\vdots\\ + X_n^T&i\hat X_n^T + \end{bmatrix} + \begin{bmatrix} + C&iR\\iR&D + \end{bmatrix}^{-1} + \begin{bmatrix} + X_1\cdots X_n\\ + i\hat X_1\cdots i\hat X_n + \end{bmatrix} + \right] + \Bigg\} \end{aligned} \end{equation} where the matrix $J$ is the Jacobian associated with the change of variables @@ -700,20 +726,52 @@ terms which only share a dependence on the Lagrange multiplier $\omega$ that enforces the constraint, is generic to Gaussian problems. This is the appearance in practice of the fact mentioned before that conditions on the Hessian do not mostly effect the rest of the complexity problem. -\begin{widetext} - \begin{equation} - \mathcal S_\mathrm{KR} - =\frac12\sum_{ab}\left( - \hat\beta_a\hat\beta_bf(C_{ab}) - +\big(2\hat\beta_a(R_{ab}-F_{ab})-D_{ab}\big)f'(C_{ab}) - +(R_{ab}^2-F_{ab}^2)f''(C_{ab}) + +The effective action $\mathcal S_\mathrm{SSG}$ is precisely that for the +ordinary complexity of stationary points, or +\begin{equation} + \begin{aligned} + &\mathcal S_\mathrm{SSG}(\hat\beta,C,R,D,G\mid E,\mu) + =\hat\beta E-(r_d+g_d)\mu \\ + &+\frac1n\left\{\frac12\sum_{ab}\left( + \hat\beta^2f(C_{ab}) + +\big(2\hat\beta R_{ab}-D_{ab}\big)f'(C_{ab}) + +(R_{ab}^2-G_{ab}^2)f''(C_{ab}) \right) - -\log\det F - \end{equation} - \begin{equation} - \mathcal S_\beta - =\sum_{ab}^n\left[\beta\omega A_{aa}^{bb}+\hat x\omega A_{aa}^{11}+\beta^2f''(1)\sum_{cd}^m(A_{ab}^{cd})^2+\hat x^2f''(1)(A_{ab}^{11})^2+\beta\hat xf''(1)\sum_c^m A_{ab}^{1c}\right] - \end{equation} + +\frac12\log\det\begin{bmatrix}C&iR\\iR^T&D\end{bmatrix} + -\log\det G\right\} + \end{aligned} +\end{equation} +where $r_d$ and $g_d$ are the diagonal elements of $R$ and $G$, respectively. +\begin{equation} + \begin{aligned} + &\mathcal U_\mathrm{SSG}(\hat\lambda,Q,X,\hat X\mid\lambda^*,\mu,C) + =\hat\lambda\lambda^* + +\frac1n\Bigg\{ + \frac12\log\det Q+ + \sum_{a=1}^n\bigg( + \sum_{\alpha=1}^{m_a}\beta\mu Q_{aa}^{\alpha\alpha} + +\hat\lambda\mu Q_{aa}^{11} + \bigg) + +2\sum_{ab}^nf''(C_{ab}) + \\ + &\qquad\times\Bigg[\beta\sum_\alpha^{m_a}\left( + \sum_\gamma^{m_b}(Q_{ab}^{\alpha\gamma})^2 + -\hat\beta(X_{ab}^\alpha)^2 + -2X_{ab}^\alpha\hat X_{ab}^\alpha + \right) + +\hat\lambda\left( + \hat\lambda(Q_{ab}^{11})^2 + -\hat\beta(X_{ab}^1)^2 + -2X_{ab}^1\hat X_{ab}^1 + \right) + +\beta\hat\lambda\left( + \sum_\alpha^{m_a} Q_{ab}^{\alpha1} + +\sum_\alpha^{m_b} Q_{ab}^{1\alpha} + \right)\Bigg] + \Bigg\} + \end{aligned} +\end{equation} \end{widetext} There are some dramatic simplifications that emerge from the structure of this particular problem. First, notice that (outside of the `volume' term due to @@ -730,7 +788,18 @@ external field, the preferred direction can polarize both the direction of typical stationary points \emph{and} their soft eigenvectors. Therefore, in these instances one must account for solutions with nonzero $X$ and $\hat X$. -When the $X$ and $\hat X$ order parameters are zero, as they are here, the term associated with the Jacobian separates into two terms, one dependent only on the order parameters of the traditional complexity problem $C$, $R$, and $D$, and one dependent only on the overlap of the minimum eigenvector, $A$. Now we see that, outside of the Lagrange multiplier $\omega$, the Kac--Rice complexity problem and the problem of fixing the smallest eigenvalue completely decouple. + + +When we take $X=\hat X=0$, $Q^{\alpha\beta}_{ab}=\delta_{ab}Q^{\alpha\beta}$ +independent, and $Q$ to have the planted replica symmetric form of +\eqref{eq:Q.structure}, we find that +\begin{equation} + \mathcal U_\mathrm{SSG}(\hat\lambda,Q,0,0\mid\beta,\lambda^*,\mu,C) + =\mathcal U_\mathrm{GOE}(\hat\lambda,q_0,\tilde q_0\mid\beta) +\end{equation} +with $\sigma=f''(1)$. That is, the effective action for the terms related to +fixing the eigenvalue in the spherical Kac--Rice problem is exactly the same as +that for the \textrm{GOE} problem. \begin{equation} \Sigma_{\lambda^*}(E,\mu) -- cgit v1.2.3-70-g09d2