diff options
| author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2024-07-01 17:01:56 +0200 |
|---|---|---|
| committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2024-07-01 17:01:56 +0200 |
| commit | 6b3c35bc28bdf803f2aa35065e2c52b6da75c446 (patch) | |
| tree | bb49082b106f1b31e2555c5913c6dd56169584d1 | |
| parent | b9bc5d83ad80562222007bcb71bd610b606e4942 (diff) | |
| download | marginal-6b3c35bc28bdf803f2aa35065e2c52b6da75c446.tar.gz marginal-6b3c35bc28bdf803f2aa35065e2c52b6da75c446.tar.bz2 marginal-6b3c35bc28bdf803f2aa35065e2c52b6da75c446.zip | |
Fixed minus sign.
| -rw-r--r-- | figures.nb | 1272 | ||||
| -rw-r--r-- | marginal.tex | 2 |
2 files changed, 1065 insertions, 209 deletions
@@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 1232002, 24522] -NotebookOptionsPosition[ 1215345, 24246] -NotebookOutlinePosition[ 1215742, 24262] -CellTagsIndexPosition[ 1215699, 24259] +NotebookDataLength[ 1259902, 25378] +NotebookOptionsPosition[ 1242767, 25094] +NotebookOutlinePosition[ 1243165, 25110] +CellTagsIndexPosition[ 1243122, 25107] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -154,7 +154,7 @@ 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.9267607225073366`*^9, 3.926760768524247*^9}, {3.9267620978944073`*^9, + 3.926760722507337*^9, 3.926760768524247*^9}, {3.9267620978944073`*^9, 3.9267621072226877`*^9}, {3.926762329962654*^9, 3.9267623500744543`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"], @@ -3230,7 +3230,7 @@ Cell[BoxData[ 3.90601616215897*^9}, {3.9060164087157993`*^9, 3.9060164195478573`*^9}, { 3.906016724777636*^9, 3.906016759546612*^9}, {3.906017868966701*^9, 3.906017993144882*^9}}, - CellLabel->"In[11]:=",ExpressionUUID->"830d12ec-ccc1-4fbc-9de0-2282430f4840"], + CellLabel->"In[1]:=",ExpressionUUID->"830d12ec-ccc1-4fbc-9de0-2282430f4840"], Cell[BoxData[ RowBox[{ @@ -3279,7 +3279,7 @@ Cell[BoxData[ RowBox[{"_", ",", "_"}], "]"}], ":>", "a0"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.90601619406374*^9, 3.906016261000745*^9}}, - CellLabel->"In[12]:=",ExpressionUUID->"bcf9e08b-5bc8-4156-8987-ae991b3777be"], + CellLabel->"In[2]:=",ExpressionUUID->"bcf9e08b-5bc8-4156-8987-ae991b3777be"], Cell[BoxData[{ RowBox[{ @@ -3299,7 +3299,7 @@ Cell[BoxData[{ CellChangeTimes->{{3.906016273153998*^9, 3.906016296681038*^9}, { 3.906016335065982*^9, 3.906016335785755*^9}, {3.906016425291695*^9, 3.906016427035625*^9}}, - CellLabel->"In[13]:=",ExpressionUUID->"90676af5-535d-4801-950c-574cc68db098"], + CellLabel->"In[3]:=",ExpressionUUID->"90676af5-535d-4801-950c-574cc68db098"], Cell[CellGroupData[{ @@ -3307,7 +3307,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"matForm", "[", "A", "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.90601650742142*^9, 3.906016511901194*^9}}, - CellLabel->"In[15]:=",ExpressionUUID->"3e4fb69d-9599-4326-945e-414023395a5f"], + CellLabel->"In[5]:=",ExpressionUUID->"3e4fb69d-9599-4326-945e-414023395a5f"], Cell[BoxData[ TagBox[ @@ -3337,10 +3337,10 @@ Cell[BoxData[ 3.908621322305964*^9, 3.908959013422355*^9, 3.909041244953446*^9, 3.915532039997315*^9, 3.915532490361631*^9, 3.9157715661300697`*^9, 3.916379988951159*^9, 3.92726705097127*^9, 3.927267091691385*^9, - 3.928307087937766*^9}, + 3.928307087937766*^9, 3.928834300011047*^9}, CellLabel-> - "Out[15]//MatrixForm=",ExpressionUUID->"dc8c4d24-e3b9-4519-b25a-\ -d1b37a8ca665"] + "Out[5]//MatrixForm=",ExpressionUUID->"5b6dfc95-6cda-4b27-a377-\ +f74ab71517d2"] }, Open ]], Cell[CellGroupData[{ @@ -3357,7 +3357,7 @@ Cell[BoxData[ "MatrixForm"}]], "Input", CellChangeTimes->{{3.90601630021717*^9, 3.9060163020008*^9}, { 3.906016344778521*^9, 3.906016369306422*^9}}, - CellLabel->"In[16]:=",ExpressionUUID->"692c829b-e066-4a5e-bd71-7d2bb33fb03d"], + CellLabel->"In[6]:=",ExpressionUUID->"692c829b-e066-4a5e-bd71-7d2bb33fb03d"], Cell[BoxData[ TagBox[ @@ -3388,10 +3388,10 @@ Cell[BoxData[ 3.908621322502807*^9, 3.9089590134471207`*^9, 3.909041245152533*^9, 3.915532040420734*^9, 3.915532490902354*^9, 3.9157715661819*^9, 3.916379989103819*^9, 3.927267051024227*^9, 3.927267091746293*^9, - 3.928307087994485*^9}, + 3.928307087994485*^9, 3.928834300074581*^9}, CellLabel-> - "Out[16]//MatrixForm=",ExpressionUUID->"1d662128-382e-4f15-b860-\ -f781d0e058f9"] + "Out[6]//MatrixForm=",ExpressionUUID->"157a005e-ef56-4427-8003-\ +7bf5e0bbee2d"] }, Open ]], Cell[CellGroupData[{ @@ -3416,7 +3416,7 @@ Cell[BoxData[ RowBox[{"ad", ">", "0"}], ",", RowBox[{"ad", ">", "0"}]}], "}"}]}]}], "]"}], "&"}]}]], "Input", CellChangeTimes->{{3.906016432156065*^9, 3.906016492940791*^9}}, - CellLabel->"In[17]:=",ExpressionUUID->"9dee447a-c909-40cb-8546-4295c33c7ecb"], + CellLabel->"In[7]:=",ExpressionUUID->"9dee447a-c909-40cb-8546-4295c33c7ecb"], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.906016435385942*^9, 3.906016493093434*^9}, @@ -3426,8 +3426,8 @@ Cell[BoxData["0"], "Output", 3.908611419701027*^9, 3.908621322735462*^9, 3.908959013614911*^9, 3.909041245371322*^9, 3.915532041003538*^9, 3.915532491323807*^9, 3.9157715663195257`*^9, 3.916379989663705*^9, 3.927267051079937*^9, - 3.927267091844021*^9, 3.9283070880533533`*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"f17e3a44-13b0-4bd9-987a-b8c0d0f58652"] + 3.927267091844021*^9, 3.9283070880533543`*^9, 3.928834300292862*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"eca32abc-9cef-4928-b496-8f693beedfaa"] }, Open ]], Cell[BoxData[ @@ -3528,36 +3528,38 @@ Cell[BoxData[ 3.905850823299843*^9}, {3.906016526231467*^9, 3.906016610960813*^9}, { 3.906016648120619*^9, 3.906016668361017*^9}, {3.906018022634241*^9, 3.906018040601918*^9}, {3.906018074803009*^9, 3.906018131963895*^9}}, - CellLabel->"In[18]:=",ExpressionUUID->"ae225317-c8f2-42eb-a092-5a3d6696fcf1"], + CellLabel->"In[8]:=",ExpressionUUID->"ae225317-c8f2-42eb-a092-5a3d6696fcf1"], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{ - RowBox[{"FullSimplify", "[", - RowBox[{ - RowBox[{"Limit", "[", - RowBox[{"\[ScriptCapitalS]twin", ",", - RowBox[{"n", "->", "0"}]}], "]"}], ",", - RowBox[{"Assumptions", "->", - RowBox[{"{", - RowBox[{ - RowBox[{"0", "<", "q11d0", "<", "1"}], ",", - RowBox[{"0", "<", "q11d1", "<", "1"}], ",", - RowBox[{"0", "<", "q110", "<", "1"}], ",", - RowBox[{"0", "<", "q220", "<", "1"}]}], "}"}]}]}], "]"}], "/.", + RowBox[{"e00", "=", RowBox[{ + RowBox[{"FullSimplify", "[", + RowBox[{ + RowBox[{"Limit", "[", + RowBox[{"\[ScriptCapitalS]twin", ",", + RowBox[{"n", "->", "0"}]}], "]"}], ",", + RowBox[{"Assumptions", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"0", "<", "q11d0", "<", "1"}], ",", + RowBox[{"0", "<", "q11d1", "<", "1"}], ",", + RowBox[{"0", "<", "q110", "<", "1"}], ",", + RowBox[{"0", "<", "q220", "<", "1"}]}], "}"}]}]}], "]"}], "/.", RowBox[{ RowBox[{ - RowBox[{"-", "2"}], - RowBox[{"Log", "[", "a_", "]"}]}], "+", - RowBox[{"Log", "[", "b_", "]"}]}], ":>", - RowBox[{"Log", "[", - RowBox[{"FullSimplify", "[", - RowBox[{"b", "/", - SuperscriptBox["a", "2"]}], "]"}], "]"}]}]}]], "Input", - CellChangeTimes->{{3.9272803840094433`*^9, 3.927280410881407*^9}}, - CellLabel->"In[19]:=",ExpressionUUID->"441c736d-f94a-4b61-ae4a-050ffb34f1d4"], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Log", "[", "a_", "]"}]}], "+", + RowBox[{"Log", "[", "b_", "]"}]}], ":>", + RowBox[{"Log", "[", + RowBox[{"FullSimplify", "[", + RowBox[{"b", "/", + SuperscriptBox["a", "2"]}], "]"}], "]"}]}]}]}]], "Input", + CellChangeTimes->{{3.9272803840094433`*^9, 3.927280410881407*^9}, { + 3.92883430197756*^9, 3.928834304729701*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"441c736d-f94a-4b61-ae4a-050ffb34f1d4"], Cell[BoxData[ RowBox[{ @@ -3626,18 +3628,6 @@ Cell[BoxData[ FractionBox["1", "2"], " ", RowBox[{"Log", "[", RowBox[{ - FractionBox["1", - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - RowBox[{"q120", "-", "q12d0"}], ")"}], "2"], "-", - RowBox[{ - RowBox[{"(", - RowBox[{"q110", "-", "q11d0"}], ")"}], " ", - RowBox[{"(", - RowBox[{"q220", "-", "q22d0"}], ")"}]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ RowBox[{ @@ -3691,12 +3681,870 @@ Cell[BoxData[ SuperscriptBox["q121", "2"], "-", SuperscriptBox["q12d1", "2"], "-", RowBox[{"q111", " ", "q221"}], "+", - RowBox[{"q11d1", " ", "q22d1"}]}], ")"}]}]}], ")"}]}], + RowBox[{"q11d1", " ", "q22d1"}]}], ")"}]}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"q120", "-", "q12d0"}], ")"}], "2"], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"q110", "-", "q11d0"}], ")"}], " ", + RowBox[{"(", + RowBox[{"q220", "-", "q22d0"}], ")"}]}]}], ")"}], "2"]}], "]"}]}]}]], "Output", CellChangeTimes->{ 3.927277343768147*^9, {3.9272804001319532`*^9, 3.927280411646502*^9}, - 3.928307089831167*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"7e5b218a-4bf7-4e16-b6af-f640354de52c"] + 3.928307089831167*^9, {3.928834302219067*^9, 3.928834305024976*^9}}, + CellLabel->"Out[10]=",ExpressionUUID->"1e108568-0a21-4daf-a8ee-a4654bc765f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"e00", "/.", + RowBox[{"{", + RowBox[{ + RowBox[{"q110", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "11"], ")"}], "0"]}], ",", + RowBox[{"q220", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "22"], ")"}], "0"]}], ",", + RowBox[{"q120", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "0"]}], ",", + RowBox[{"q11d0", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "11"], ")"}], "d"]}], ",", + RowBox[{"q11d0", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "11"], ")"}], "d"]}], ",", + RowBox[{"q22d0", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "22"], ")"}], "d"]}], ",", + RowBox[{"q12d0", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "d"]}], ",", + RowBox[{"q11d1", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], ")"}], "d"]}], ",", + RowBox[{"q22d1", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], ")"}], "d"]}], ",", + RowBox[{"q12d1", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "d"]}], ",", + RowBox[{"q111", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], ")"}], "0"]}], ",", + RowBox[{"q221", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], ")"}], "0"]}], ",", + RowBox[{"q121", "->", + SubscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0"]}]}], "}"}]}]], "Input", + CellChangeTimes->{{3.928834305402545*^9, 3.9288344381642303`*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"da099c4a-d072-47b7-a4c0-1d2e953c1613"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"Log", "[", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "22"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"]}], "+", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"]}], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "12"], "d"], "+", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "d"]}], ")"}]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"]}], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "12"], "d"], "+", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "d"]}], ")"}]}], "-", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}], "-", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"3", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "0", "2"]}], "-", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "d"]}], "-", + RowBox[{"3", " ", + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "d"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "d", "2"], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "0", "2"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "d", "2"], "-", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "d"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "d", "2"], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}]}], ")"}], "/", + + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], "-", + SubscriptBox[ + SuperscriptBox["q", "12"], "d"]}], ")"}], "2"], "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], "-", + SubscriptBox[ + SuperscriptBox["q", "11"], "d"]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "22"], "0"], "-", + SubscriptBox[ + SuperscriptBox["q", "22"], "d"]}], ")"}]}]}], ")"}], "2"]}], + "]"}]}], "+", + RowBox[{ + SuperscriptBox["\[Sigma]1", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox["\[Lambda]", "2"], " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], ")"}], "d", "2"]}], "+", + RowBox[{"2", " ", "\[Beta]", " ", "\[Lambda]", " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], "-", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], "+", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"]}], ")"}]}], "+", + RowBox[{ + SuperscriptBox["\[Beta]", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "11"], ")"}], "0", "2"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "11"], ")"}], "d", "2"], "-", + RowBox[{"2", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], ")"}], "0", "2"]}], "+", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], ")"}], "d", "2"]}], ")"}]}]}], + ")"}]}], "+", + RowBox[{"\[Beta]", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"\[Omega]1", " ", + SubscriptBox[ + SuperscriptBox["q", "11"], "d"]}], "+", + RowBox[{"2", " ", "\[Epsilon]", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "d"]}], "+", + RowBox[{"\[Omega]2", " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "d"]}], "-", + RowBox[{"\[Omega]1", " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"]}], "-", + RowBox[{"2", " ", "\[Epsilon]", " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "d"]}], "-", + RowBox[{"\[Omega]2", " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}], "+", + RowBox[{"\[Lambda]", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"\[Omega]1", " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"]}], "+", + RowBox[{"2", " ", "\[Epsilon]", " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "d"]}], "+", + RowBox[{"\[Omega]2", " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}], "+", + RowBox[{ + SuperscriptBox["\[Sigma]2", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox["\[Lambda]", "2"], " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], ")"}], "d", "2"]}], "+", + RowBox[{"2", " ", "\[Beta]", " ", "\[Lambda]", " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"], "-", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"], "+", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}], ")"}]}], "+", + RowBox[{ + SuperscriptBox["\[Beta]", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "22"], ")"}], "0", "2"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "22"], ")"}], "d", "2"], "-", + RowBox[{"2", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], ")"}], "0", "2"]}], "+", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], ")"}], "d", "2"]}], ")"}]}]}], + ")"}]}]}]], "Output", + CellChangeTimes->{ + 3.928834317909019*^9, {3.928834348162314*^9, 3.9288343601265783`*^9}, { + 3.928834393210747*^9, 3.928834438402287*^9}}, + CellLabel->"Out[17]=",ExpressionUUID->"2e335f2a-9fef-43a8-9084-365867a1db49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + RowBox[{"(", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "22"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"]}], "+", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"]}], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "12"], "d"], "+", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "d"]}], ")"}]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"]}], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "12"], "d"], "+", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "d"]}], ")"}]}], "-", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}], "-", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"3", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "0", "2"]}], "-", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "d"]}], "-", + RowBox[{"3", " ", + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "d"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "d", "2"], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "0", "2"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "d", "2"], "-", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "d"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "d", "2"], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}]}], ")"}], + ")"}]}], "//", "Simplify"}]], "Input", + CellChangeTimes->{{3.928834838844556*^9, 3.928834848548061*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"c0add40d-eaa6-456f-8505-abe2286e5787"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "22"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"]}], "+", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"]}], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "12"], "d"], "+", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "d"]}], ")"}]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"]}], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "0"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "12"], "d"], "+", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], "d"]}], ")"}]}], "-", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}], ")"}]}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "0", "2"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "d", "2"], "-", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "d"]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "d", "2"], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}], "+", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"3", " ", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox["q", "12"], ")"}], "0", "2"]}], "-", + RowBox[{"2", " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "0"], " ", + SubscriptBox[ + SuperscriptBox["q", "12"], "d"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox["q", "11"], "0"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], " ", + SubscriptBox[ + SuperscriptBox["q", "22"], "0"]}], "+", + SubscriptBox[ + SuperscriptBox["q", "22"], "d"]}], ")"}]}], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "0", "2"], "-", + SubsuperscriptBox[ + RowBox[{"(", + SuperscriptBox[ + OverscriptBox["q", "~"], "12"], ")"}], "d", "2"], "-", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "0"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "0"]}], "+", + RowBox[{ + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "11"], "d"], " ", + SubscriptBox[ + SuperscriptBox[ + OverscriptBox["q", "~"], "22"], "d"]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{{3.928834831950756*^9, 3.928834848765751*^9}}, + CellLabel->"Out[20]=",ExpressionUUID->"13ac65e6-8e7b-45f5-9963-38143953c129"] }, Open ]], Cell[CellGroupData[{ @@ -5771,7 +6619,7 @@ tolerances.\"", 2, 412, 67, 23882815617388216864, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.909042535149797*^9, 3.9155328751204443`*^9, 3.915771850129451*^9, 3.916380287761401*^9, 3.916387078856232*^9, - 3.927267371956482*^9, 3.928307368436137*^9, 3.9283329154271393`*^9}, + 3.927267371956482*^9, 3.928307368436137*^9, 3.9283329154271398`*^9}, CellLabel-> "During evaluation of \ In[412]:=",ExpressionUUID->"022a1ca5-a3f6-4746-885d-a0317a32fe74"], @@ -10456,19 +11304,19 @@ e497kHuRe5J78x/wSPRS 3.927269574612711*^9}, 3.9272696110843987`*^9, 3.927269963911026*^9, 3.927270023369107*^9, 3.927270070957769*^9, 3.927270263068353*^9, 3.927270298337522*^9, {3.927270370098089*^9, 3.927270408689001*^9}, { - 3.927270474927936*^9, 3.927270530976882*^9}, 3.9283084778592854`*^9, + 3.927270474927936*^9, 3.927270530976882*^9}, 3.928308477859285*^9, 3.9283095916600018`*^9, 3.928310786330997*^9, 3.928334055128286*^9, - 3.928334171522675*^9, 3.9283384685124273`*^9, 3.928340137031719*^9, { - 3.9283698354720163`*^9, 3.928369856307811*^9}, 3.928371006381309*^9, + 3.928334171522675*^9, 3.9283384685124283`*^9, 3.928340137031719*^9, { + 3.928369835472017*^9, 3.928369856307811*^9}, 3.928371006381309*^9, 3.928371131600775*^9, 3.928371268374576*^9, 3.9283713499502*^9, 3.92837142613761*^9, 3.928382384241624*^9, 3.928382741904481*^9, 3.928382901388444*^9, 3.928383045162767*^9, 3.928384622513546*^9, 3.928385667996121*^9, {3.928385744256181*^9, 3.928385781748316*^9}, { 3.9283860233987513`*^9, 3.928386071232974*^9}, 3.928386173831628*^9, 3.928386528341237*^9, 3.928392404758099*^9, 3.928392867458043*^9, - 3.92839329782364*^9, 3.928393931734811*^9, 3.9283943979057617`*^9, + 3.92839329782364*^9, 3.928393931734811*^9, 3.928394397905762*^9, 3.928394808732456*^9, 3.928395251656701*^9, 3.928395681147725*^9, - 3.928396347796915*^9, 3.9283971447758007`*^9, 3.928397789603183*^9, + 3.928396347796915*^9, 3.928397144775801*^9, 3.928397789603183*^9, 3.928398720424361*^9, 3.928399159357809*^9}, CellLabel-> "Out[762]=",ExpressionUUID->"9e89ad7d-0b3a-4232-a289-73138258011c"] @@ -10567,8 +11415,8 @@ Cell[BoxData[ TemplateBox[<|"shortenedBoxes" -> TagBox[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], Short[#, 16]& ], "line" -> 59, "sessionID" -> 23882815617388216864, "byteCount" -> 2146480, "size" -> - 16, "stored" -> False, "expr" -> Missing["NotStored"], "wrap" -> - OutputSizeLimit`Defer, "version" -> 1|>, + 16, "stored" -> False, "expr" -> Missing["NotAvailable", "NewSessionID"], + "wrap" -> OutputSizeLimit`Defer, "version" -> 1|>, "OutputSizeLimitTemplate"]], "Output", CellChangeTimes->{{3.905941916302861*^9, 3.905941963097375*^9}, 3.905942388134901*^9, {3.905942438623794*^9, 3.905942464087213*^9}, @@ -24244,8 +25092,8 @@ Cell[BoxData[ 6cb9b2e573e2"] }, Open ]] }, -WindowSize->{1920, 1023.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +WindowSize->{952.5, 1023.75}, +WindowMargins->{{0, Automatic}, {-538.5, -1.5}}, FrontEndVersion->"14.0 for Linux x86 (64-bit) (December 12, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"fe7785c4-a5eb-46c5-8188-772697b31ba4" @@ -24271,258 +25119,266 @@ Cell[CellGroupData[{ 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[3453, 108, 2084, 50, 24, "Input",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"], -Cell[5540, 160, 29582, 583, 177, "Output",ExpressionUUID->"96d8c022-71f7-4175-ad56-0b948701a2c3"] +Cell[3453, 108, 2082, 50, 58, "Input",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"], +Cell[5538, 160, 29582, 583, 177, "Output",ExpressionUUID->"96d8c022-71f7-4175-ad56-0b948701a2c3"] }, Open ]], Cell[CellGroupData[{ -Cell[35159, 748, 355, 7, 22, "Input",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"], -Cell[35517, 757, 492, 7, 25, "Output",ExpressionUUID->"85074921-98fb-4fbd-91ef-b733df3a8845"] +Cell[35157, 748, 355, 7, 22, "Input",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"], +Cell[35515, 757, 492, 7, 25, "Output",ExpressionUUID->"85074921-98fb-4fbd-91ef-b733df3a8845"] }, Open ]], -Cell[36024, 767, 435, 12, 35, "Input",ExpressionUUID->"06818f5b-ee0e-4634-b547-e05e415c12a6"], -Cell[36462, 781, 312, 8, 27, "Input",ExpressionUUID->"ab28ae26-b52f-4a56-978d-e7ee3f806eda"], -Cell[36777, 791, 676, 19, 44, "Input",ExpressionUUID->"eec97d73-ae34-443d-825f-cbb8adebe02f"], +Cell[36022, 767, 435, 12, 35, "Input",ExpressionUUID->"06818f5b-ee0e-4634-b547-e05e415c12a6"], +Cell[36460, 781, 312, 8, 27, "Input",ExpressionUUID->"ab28ae26-b52f-4a56-978d-e7ee3f806eda"], +Cell[36775, 791, 676, 19, 44, "Input",ExpressionUUID->"eec97d73-ae34-443d-825f-cbb8adebe02f"], Cell[CellGroupData[{ -Cell[37478, 814, 196, 3, 22, "Input",ExpressionUUID->"83c0ad8f-8d45-4089-b5a6-d03efc9cdfbe"], -Cell[37677, 819, 217, 3, 25, "Output",ExpressionUUID->"8a53c8d7-c295-47d2-aa7f-189bb8a2f899"] +Cell[37476, 814, 196, 3, 22, "Input",ExpressionUUID->"83c0ad8f-8d45-4089-b5a6-d03efc9cdfbe"], +Cell[37675, 819, 217, 3, 25, "Output",ExpressionUUID->"8a53c8d7-c295-47d2-aa7f-189bb8a2f899"] }, Open ]], -Cell[37909, 825, 2505, 60, 39, "Input",ExpressionUUID->"def223fd-aeee-4091-9e76-97462b62b6cc"], -Cell[40417, 887, 5604, 139, 116, "Input",ExpressionUUID->"f1078ecd-48ad-4003-b086-93bd8c2242bb"], -Cell[46024, 1028, 7652, 192, 193, "Input",ExpressionUUID->"244eac76-0bbb-4e5a-9b06-0f294e654a3f"], +Cell[37907, 825, 2505, 60, 77, "Input",ExpressionUUID->"def223fd-aeee-4091-9e76-97462b62b6cc"], +Cell[40415, 887, 5604, 139, 228, "Input",ExpressionUUID->"f1078ecd-48ad-4003-b086-93bd8c2242bb"], +Cell[46022, 1028, 7652, 192, 311, "Input",ExpressionUUID->"244eac76-0bbb-4e5a-9b06-0f294e654a3f"], Cell[CellGroupData[{ -Cell[53701, 1224, 694, 11, 22, "Input",ExpressionUUID->"28a195c1-e132-4911-80e7-05e2e1470f78"], -Cell[54398, 1237, 32305, 586, 74, "Output",ExpressionUUID->"577d2755-a6c5-47a3-9e67-78c4a4c9e8b1"] +Cell[53699, 1224, 694, 11, 22, "Input",ExpressionUUID->"28a195c1-e132-4911-80e7-05e2e1470f78"], +Cell[54396, 1237, 32305, 586, 74, "Output",ExpressionUUID->"577d2755-a6c5-47a3-9e67-78c4a4c9e8b1"] }, Open ]], Cell[CellGroupData[{ -Cell[86740, 1828, 676, 13, 22, "Input",ExpressionUUID->"e68d9ce5-814e-4498-aeeb-52ccf1b87537"], -Cell[87419, 1843, 31492, 576, 74, "Output",ExpressionUUID->"9496b18b-d8fb-4070-8783-a932a49d22f3"] +Cell[86738, 1828, 676, 13, 22, "Input",ExpressionUUID->"e68d9ce5-814e-4498-aeeb-52ccf1b87537"], +Cell[87417, 1843, 31492, 576, 74, "Output",ExpressionUUID->"9496b18b-d8fb-4070-8783-a932a49d22f3"] }, Open ]], Cell[CellGroupData[{ -Cell[118948, 2424, 725, 13, 22, "Input",ExpressionUUID->"9df7247c-bae3-4562-95d7-d5d547f8369d"], -Cell[119676, 2439, 31654, 579, 74, "Output",ExpressionUUID->"9cd54024-e29b-456b-a509-0492f8827637"] +Cell[118946, 2424, 725, 13, 22, "Input",ExpressionUUID->"9df7247c-bae3-4562-95d7-d5d547f8369d"], +Cell[119674, 2439, 31654, 579, 74, "Output",ExpressionUUID->"9cd54024-e29b-456b-a509-0492f8827637"] }, Open ]], -Cell[151345, 3021, 795, 19, 53, "Input",ExpressionUUID->"9c8fbe7e-534f-4567-b9e1-d7a5c3ce1086"] +Cell[151343, 3021, 795, 19, 53, "Input",ExpressionUUID->"9c8fbe7e-534f-4567-b9e1-d7a5c3ce1086"] }, Open ]], Cell[CellGroupData[{ -Cell[152177, 3045, 157, 3, 50, "Section",ExpressionUUID->"8475cc42-326a-4ebf-b66b-7d80366a5280"], -Cell[152337, 3050, 6532, 182, 341, "Input",ExpressionUUID->"830d12ec-ccc1-4fbc-9de0-2282430f4840"], -Cell[158872, 3234, 1567, 47, 22, "Input",ExpressionUUID->"bcf9e08b-5bc8-4156-8987-ae991b3777be"], -Cell[160442, 3283, 702, 18, 38, "Input",ExpressionUUID->"90676af5-535d-4801-950c-574cc68db098"], +Cell[152175, 3045, 157, 3, 50, "Section",ExpressionUUID->"8475cc42-326a-4ebf-b66b-7d80366a5280"], +Cell[152335, 3050, 6531, 182, 341, "Input",ExpressionUUID->"830d12ec-ccc1-4fbc-9de0-2282430f4840"], +Cell[158869, 3234, 1566, 47, 53, "Input",ExpressionUUID->"bcf9e08b-5bc8-4156-8987-ae991b3777be"], +Cell[160438, 3283, 701, 18, 38, "Input",ExpressionUUID->"90676af5-535d-4801-950c-574cc68db098"], +Cell[CellGroupData[{ +Cell[161164, 3305, 236, 4, 22, "Input",ExpressionUUID->"3e4fb69d-9599-4326-945e-414023395a5f"], +Cell[161403, 3311, 1439, 31, 111, "Output",ExpressionUUID->"5b6dfc95-6cda-4b27-a377-f74ab71517d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162879, 3347, 467, 12, 22, "Input",ExpressionUUID->"692c829b-e066-4a5e-bd71-7d2bb33fb03d"], +Cell[163349, 3361, 1448, 32, 111, "Output",ExpressionUUID->"157a005e-ef56-4427-8003-7bf5e0bbee2d"] +}, Open ]], Cell[CellGroupData[{ -Cell[161169, 3305, 237, 4, 22, "Input",ExpressionUUID->"3e4fb69d-9599-4326-945e-414023395a5f"], -Cell[161409, 3311, 1418, 31, 111, "Output",ExpressionUUID->"dc8c4d24-e3b9-4519-b25a-d1b37a8ca665"] +Cell[164834, 3398, 709, 20, 22, "Input",ExpressionUUID->"9dee447a-c909-40cb-8546-4295c33c7ecb"], +Cell[165546, 3420, 668, 9, 25, "Output",ExpressionUUID->"eca32abc-9cef-4928-b496-8f693beedfaa"] }, Open ]], +Cell[166229, 3432, 3805, 98, 110, "Input",ExpressionUUID->"ae225317-c8f2-42eb-a092-5a3d6696fcf1"], Cell[CellGroupData[{ -Cell[162864, 3347, 468, 12, 22, "Input",ExpressionUUID->"692c829b-e066-4a5e-bd71-7d2bb33fb03d"], -Cell[163335, 3361, 1427, 32, 111, "Output",ExpressionUUID->"1d662128-382e-4f15-b860-f781d0e058f9"] +Cell[170059, 3534, 1020, 27, 39, "Input",ExpressionUUID->"441c736d-f94a-4b61-ae4a-050ffb34f1d4"], +Cell[171082, 3563, 4956, 136, 124, "Output",ExpressionUUID->"1e108568-0a21-4daf-a8ee-a4654bc765f6"] }, Open ]], Cell[CellGroupData[{ -Cell[164799, 3398, 710, 20, 22, "Input",ExpressionUUID->"9dee447a-c909-40cb-8546-4295c33c7ecb"], -Cell[165512, 3420, 647, 9, 25, "Output",ExpressionUUID->"f17e3a44-13b0-4bd9-987a-b8c0d0f58652"] +Cell[176075, 3704, 1980, 63, 41, "Input",ExpressionUUID->"da099c4a-d072-47b7-a4c0-1d2e953c1613"], +Cell[178058, 3769, 12182, 366, 143, "Output",ExpressionUUID->"2e335f2a-9fef-43a8-9084-365867a1db49"] }, Open ]], -Cell[166174, 3432, 3806, 98, 78, "Input",ExpressionUUID->"ae225317-c8f2-42eb-a092-5a3d6696fcf1"], Cell[CellGroupData[{ -Cell[170005, 3534, 925, 25, 24, "Input",ExpressionUUID->"441c736d-f94a-4b61-ae4a-050ffb34f1d4"], -Cell[170933, 3561, 4940, 137, 84, "Output",ExpressionUUID->"7e5b218a-4bf7-4e16-b6af-f640354de52c"] +Cell[190277, 4140, 6837, 203, 59, "Input",ExpressionUUID->"c0add40d-eaa6-456f-8505-abe2286e5787"], +Cell[197117, 4345, 6167, 201, 62, "Output",ExpressionUUID->"13ac65e6-8e7b-45f5-9963-38143953c129"] }, Open ]], Cell[CellGroupData[{ -Cell[175910, 3703, 994, 24, 22, "Input",ExpressionUUID->"27f3f5fd-a103-416e-9e22-49288939ab46"], -Cell[176907, 3729, 6542, 175, 73, "Output",ExpressionUUID->"1b144bac-a028-45f3-a721-bd16185eb07c"] +Cell[203321, 4551, 994, 24, 22, "Input",ExpressionUUID->"27f3f5fd-a103-416e-9e22-49288939ab46"], +Cell[204318, 4577, 6542, 175, 141, "Output",ExpressionUUID->"1b144bac-a028-45f3-a721-bd16185eb07c"] }, Open ]], Cell[CellGroupData[{ -Cell[183486, 3909, 906, 25, 24, "Input",ExpressionUUID->"ad63e4bc-666e-46ed-8c23-6d418adb2b5d"], -Cell[184395, 3936, 3915, 116, 55, "Output",ExpressionUUID->"85986fc9-5212-4924-bbb0-44c85aa62f64"] +Cell[210897, 4757, 906, 25, 24, "Input",ExpressionUUID->"ad63e4bc-666e-46ed-8c23-6d418adb2b5d"], +Cell[211806, 4784, 3915, 116, 89, "Output",ExpressionUUID->"85986fc9-5212-4924-bbb0-44c85aa62f64"] }, Open ]], -Cell[188325, 4055, 984, 20, 22, "Input",ExpressionUUID->"c88cdbf9-9e5d-49a2-927e-12c0fc1e998e"], -Cell[189312, 4077, 2604, 54, 24, "Input",ExpressionUUID->"13c828e2-dc96-418a-98b1-bcedb602773f"], +Cell[215736, 4903, 984, 20, 22, "Input",ExpressionUUID->"c88cdbf9-9e5d-49a2-927e-12c0fc1e998e"], +Cell[216723, 4925, 2604, 54, 41, "Input",ExpressionUUID->"13c828e2-dc96-418a-98b1-bcedb602773f"], Cell[CellGroupData[{ -Cell[191941, 4135, 419, 10, 22, "Input",ExpressionUUID->"5547b70f-6ccc-4c3c-b7a2-430267adff70"], -Cell[192363, 4147, 5767, 145, 160, "Output",ExpressionUUID->"f66850fa-e64c-45dd-b704-5045a5ac66bd"] +Cell[219352, 4983, 419, 10, 22, "Input",ExpressionUUID->"5547b70f-6ccc-4c3c-b7a2-430267adff70"], +Cell[219774, 4995, 5767, 145, 309, "Output",ExpressionUUID->"f66850fa-e64c-45dd-b704-5045a5ac66bd"] }, Open ]], Cell[CellGroupData[{ -Cell[198167, 4297, 431, 10, 22, "Input",ExpressionUUID->"87393889-0e58-4140-85b8-c09bdfb83fa6"], -Cell[198601, 4309, 11262, 318, 177, "Output",ExpressionUUID->"f6ce55a2-7f04-49c0-800a-b712e2e93692"] +Cell[225578, 5145, 431, 10, 22, "Input",ExpressionUUID->"87393889-0e58-4140-85b8-c09bdfb83fa6"], +Cell[226012, 5157, 11262, 318, 390, "Output",ExpressionUUID->"f6ce55a2-7f04-49c0-800a-b712e2e93692"] }, Open ]], Cell[CellGroupData[{ -Cell[209900, 4632, 472, 12, 22, "Input",ExpressionUUID->"4d2d8f62-3f6d-45b3-9a63-780219e0e7e8"], -Cell[210375, 4646, 1391, 36, 27, "Output",ExpressionUUID->"de5a6a45-70fe-4fde-8b20-59e5cc7175f7"] +Cell[237311, 5480, 472, 12, 22, "Input",ExpressionUUID->"4d2d8f62-3f6d-45b3-9a63-780219e0e7e8"], +Cell[237786, 5494, 1391, 36, 27, "Output",ExpressionUUID->"de5a6a45-70fe-4fde-8b20-59e5cc7175f7"] }, Open ]], Cell[CellGroupData[{ -Cell[211803, 4687, 947, 20, 22, "Input",ExpressionUUID->"83eebe5d-3503-4b31-b14f-639ea14a0248"], -Cell[212753, 4709, 844, 16, 22, "Message",ExpressionUUID->"55c5134f-0549-48cf-b7a6-054801bf5ad4"] +Cell[239214, 5535, 947, 20, 22, "Input",ExpressionUUID->"83eebe5d-3503-4b31-b14f-639ea14a0248"], +Cell[240164, 5557, 844, 16, 22, "Message",ExpressionUUID->"55c5134f-0549-48cf-b7a6-054801bf5ad4"] }, Open ]], -Cell[213612, 4728, 1160, 24, 22, "Input",ExpressionUUID->"4c448220-e031-41d2-9096-b9e341dcd981"], -Cell[214775, 4754, 3839, 84, 41, "Input",ExpressionUUID->"63ea8c17-6059-4955-9b14-1b9deb692962"], +Cell[241023, 5576, 1160, 24, 22, "Input",ExpressionUUID->"4c448220-e031-41d2-9096-b9e341dcd981"], +Cell[242186, 5602, 3839, 84, 58, "Input",ExpressionUUID->"63ea8c17-6059-4955-9b14-1b9deb692962"], Cell[CellGroupData[{ -Cell[218639, 4842, 1255, 27, 24, "Input",ExpressionUUID->"7fe546c9-0af1-4973-85bb-971e16ca3307"], -Cell[219897, 4871, 1752, 40, 48, "Output",ExpressionUUID->"39969724-0d91-4ef4-b410-c18d0a8e2303"] +Cell[246050, 5690, 1255, 27, 24, "Input",ExpressionUUID->"7fe546c9-0af1-4973-85bb-971e16ca3307"], +Cell[247308, 5719, 1752, 40, 38, "Output",ExpressionUUID->"39969724-0d91-4ef4-b410-c18d0a8e2303"] }, Open ]], -Cell[221664, 4914, 968, 26, 24, "Input",ExpressionUUID->"84934d64-fc27-4a55-a1de-6f9f09494033"], -Cell[222635, 4942, 362, 10, 22, "Input",ExpressionUUID->"83f76904-20b3-4c92-8479-9704a86e9bc3"], +Cell[249075, 5762, 968, 26, 24, "Input",ExpressionUUID->"84934d64-fc27-4a55-a1de-6f9f09494033"], +Cell[250046, 5790, 362, 10, 22, "Input",ExpressionUUID->"83f76904-20b3-4c92-8479-9704a86e9bc3"], Cell[CellGroupData[{ -Cell[223022, 4956, 178, 3, 22, "Input",ExpressionUUID->"18644ace-46f3-463e-bb29-b07ed4d9811c"], -Cell[223203, 4961, 26005, 545, 291, "Output",ExpressionUUID->"d9254789-0045-43f6-9526-bb536e039a69"] +Cell[250433, 5804, 178, 3, 22, "Input",ExpressionUUID->"18644ace-46f3-463e-bb29-b07ed4d9811c"], +Cell[250614, 5809, 26005, 545, 611, "Output",ExpressionUUID->"d9254789-0045-43f6-9526-bb536e039a69"] }, Open ]], -Cell[249223, 5509, 890, 19, 22, "Input",ExpressionUUID->"82f4b3f0-5071-4e29-8e26-febf3110e5e0"], +Cell[276634, 6357, 890, 19, 22, "Input",ExpressionUUID->"82f4b3f0-5071-4e29-8e26-febf3110e5e0"], Cell[CellGroupData[{ -Cell[250138, 5532, 3664, 87, 107, "Input",ExpressionUUID->"acfb6249-e04b-4f94-810b-05af73aac0bc"], -Cell[253805, 5621, 3577, 71, 70, "Output",ExpressionUUID->"1f705e83-d82e-4eb3-b5d0-7016c511c55a"] +Cell[277549, 6380, 3664, 87, 125, "Input",ExpressionUUID->"acfb6249-e04b-4f94-810b-05af73aac0bc"], +Cell[281216, 6469, 3577, 71, 90, "Output",ExpressionUUID->"1f705e83-d82e-4eb3-b5d0-7016c511c55a"] }, Open ]], Cell[CellGroupData[{ -Cell[257419, 5697, 2813, 63, 24, "Input",ExpressionUUID->"2a2f7dd9-b465-4d3a-81cf-abf195bcfc21"], -Cell[260235, 5762, 751, 14, 22, "Message",ExpressionUUID->"022a1ca5-a3f6-4746-885d-a0317a32fe74"], -Cell[260989, 5778, 749, 14, 22, "Message",ExpressionUUID->"ccb61a53-c9d0-4b66-9a6d-5527317cf820"], -Cell[261741, 5794, 748, 14, 22, "Message",ExpressionUUID->"e67913d1-7922-45b2-a3fc-422e54270fef"], -Cell[262492, 5810, 618, 12, 22, "Message",ExpressionUUID->"8897a997-3fdd-4724-8013-1940d466953d"] +Cell[284830, 6545, 2813, 63, 72, "Input",ExpressionUUID->"2a2f7dd9-b465-4d3a-81cf-abf195bcfc21"], +Cell[287646, 6610, 751, 14, 36, "Message",ExpressionUUID->"022a1ca5-a3f6-4746-885d-a0317a32fe74"], +Cell[288400, 6626, 749, 14, 36, "Message",ExpressionUUID->"ccb61a53-c9d0-4b66-9a6d-5527317cf820"], +Cell[289152, 6642, 748, 14, 36, "Message",ExpressionUUID->"e67913d1-7922-45b2-a3fc-422e54270fef"], +Cell[289903, 6658, 618, 12, 22, "Message",ExpressionUUID->"8897a997-3fdd-4724-8013-1940d466953d"] }, Open ]], Cell[CellGroupData[{ -Cell[263147, 5827, 1907, 53, 39, "Input",ExpressionUUID->"f6acd6ad-220b-4828-a7d3-5558b5c91e4c"], -Cell[265057, 5882, 3429, 88, 85, "Output",ExpressionUUID->"cf13c926-28f8-45f7-af10-fb9df9bfa856"] +Cell[290558, 6675, 1907, 53, 70, "Input",ExpressionUUID->"f6acd6ad-220b-4828-a7d3-5558b5c91e4c"], +Cell[292468, 6730, 3429, 88, 136, "Output",ExpressionUUID->"cf13c926-28f8-45f7-af10-fb9df9bfa856"] }, Open ]], -Cell[268501, 5973, 1583, 41, 24, "Input",ExpressionUUID->"b04acde6-1c4d-4632-b34e-b05a8c3158f7"], +Cell[295912, 6821, 1583, 41, 72, "Input",ExpressionUUID->"b04acde6-1c4d-4632-b34e-b05a8c3158f7"], Cell[CellGroupData[{ -Cell[270109, 6018, 310, 8, 22, "Input",ExpressionUUID->"bb7ea87c-a295-4530-bdcd-103371a64b77"], -Cell[270422, 6028, 75679, 1309, 194, "Output",ExpressionUUID->"f3df510c-64d4-493f-be4b-77179f3e1041"] +Cell[297520, 6866, 310, 8, 22, "Input",ExpressionUUID->"bb7ea87c-a295-4530-bdcd-103371a64b77"], +Cell[297833, 6876, 75679, 1309, 183, "Output",ExpressionUUID->"f3df510c-64d4-493f-be4b-77179f3e1041"] }, Open ]], -Cell[346116, 7340, 573, 14, 38, "Input",ExpressionUUID->"e965b82f-c267-4cf2-88c2-30c8f6edbaa7"], -Cell[346692, 7356, 6173, 126, 56, "Input",ExpressionUUID->"0e4fc5bc-9f3c-4021-8d39-840e7c78e01d"], +Cell[373527, 8188, 573, 14, 38, "Input",ExpressionUUID->"e965b82f-c267-4cf2-88c2-30c8f6edbaa7"], +Cell[374103, 8204, 6173, 126, 108, "Input",ExpressionUUID->"0e4fc5bc-9f3c-4021-8d39-840e7c78e01d"], Cell[CellGroupData[{ -Cell[352890, 7486, 915, 26, 24, "Input",ExpressionUUID->"f60a2b45-e619-4e66-a5fe-f654a250e3c1"], -Cell[353808, 7514, 721, 12, 35, "Output",ExpressionUUID->"96d1045a-9474-43ec-8292-bc7debf68953"] +Cell[380301, 8334, 915, 26, 24, "Input",ExpressionUUID->"f60a2b45-e619-4e66-a5fe-f654a250e3c1"], +Cell[381219, 8362, 721, 12, 25, "Output",ExpressionUUID->"96d1045a-9474-43ec-8292-bc7debf68953"] }, Open ]], Cell[CellGroupData[{ -Cell[354566, 7531, 1101, 29, 24, "Input",ExpressionUUID->"966871e9-cb76-4279-9fae-2e272197164a"], -Cell[355670, 7562, 869, 14, 35, "Output",ExpressionUUID->"bd005f2c-3540-40bc-973d-0f7a71b82930"] +Cell[381977, 8379, 1101, 29, 24, "Input",ExpressionUUID->"966871e9-cb76-4279-9fae-2e272197164a"], +Cell[383081, 8410, 869, 14, 25, "Output",ExpressionUUID->"bd005f2c-3540-40bc-973d-0f7a71b82930"] }, Open ]], Cell[CellGroupData[{ -Cell[356576, 7581, 1007, 28, 24, "Input",ExpressionUUID->"d19d89e4-a282-47a0-a129-6bfc594811ce"], -Cell[357586, 7611, 775, 13, 35, "Output",ExpressionUUID->"ce944e89-67da-4135-b451-ebdaa58d62aa"] +Cell[383987, 8429, 1007, 28, 24, "Input",ExpressionUUID->"d19d89e4-a282-47a0-a129-6bfc594811ce"], +Cell[384997, 8459, 775, 13, 25, "Output",ExpressionUUID->"ce944e89-67da-4135-b451-ebdaa58d62aa"] }, Open ]], Cell[CellGroupData[{ -Cell[358398, 7629, 758, 19, 22, "Input",ExpressionUUID->"0a707b26-1c87-4e49-9fde-e91e569d127e"], -Cell[359159, 7650, 13763, 316, 72, "Output",ExpressionUUID->"01979e1e-9bf7-4837-a6a1-76d3e2ca2f24"] +Cell[385809, 8477, 758, 19, 22, "Input",ExpressionUUID->"0a707b26-1c87-4e49-9fde-e91e569d127e"], +Cell[386570, 8498, 13763, 316, 62, "Output",ExpressionUUID->"01979e1e-9bf7-4837-a6a1-76d3e2ca2f24"] }, Open ]], Cell[CellGroupData[{ -Cell[372959, 7971, 3983, 94, 38, "Input",ExpressionUUID->"abdd1227-571e-42c2-ba14-b0236a50da8f"], -Cell[376945, 8067, 136157, 2406, 145, "Output",ExpressionUUID->"9e89ad7d-0b3a-4232-a289-73138258011c"] +Cell[400370, 8819, 3983, 94, 38, "Input",ExpressionUUID->"abdd1227-571e-42c2-ba14-b0236a50da8f"], +Cell[404356, 8915, 136149, 2406, 135, "Output",ExpressionUUID->"9e89ad7d-0b3a-4232-a289-73138258011c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[513151, 10479, 166, 3, 50, "Section",ExpressionUUID->"e8e3024e-103e-44c3-bff6-eeb43f1280c8"], -Cell[513320, 10484, 2020, 56, 35, "Input",ExpressionUUID->"01b4718d-1b06-4ca9-9828-eb7538126c81"], +Cell[540554, 11327, 166, 3, 50, "Section",ExpressionUUID->"e8e3024e-103e-44c3-bff6-eeb43f1280c8"], +Cell[540723, 11332, 2020, 56, 35, "Input",ExpressionUUID->"01b4718d-1b06-4ca9-9828-eb7538126c81"], Cell[CellGroupData[{ -Cell[515365, 10544, 683, 19, 22, "Input",ExpressionUUID->"18b98bab-0eb8-4c66-8662-8b5e34efa820"], -Cell[516051, 10565, 1017, 15, 65, "Output",ExpressionUUID->"28d11ee2-0596-4d50-9a1e-cbeee6fe020f"] +Cell[542768, 11392, 683, 19, 22, "Input",ExpressionUUID->"18b98bab-0eb8-4c66-8662-8b5e34efa820"], +Cell[543454, 11413, 1036, 15, 63, "Output",ExpressionUUID->"28d11ee2-0596-4d50-9a1e-cbeee6fe020f"] }, Open ]], -Cell[517083, 10583, 3356, 76, 53, "Input",ExpressionUUID->"54eb6310-6546-48ff-bb13-776eec083f58"], +Cell[544505, 11431, 3356, 76, 53, "Input",ExpressionUUID->"54eb6310-6546-48ff-bb13-776eec083f58"], Cell[CellGroupData[{ -Cell[520464, 10663, 1619, 42, 24, "Input",ExpressionUUID->"dfdd1eea-966a-4bd0-8f13-2b14628904cd"], -Cell[522086, 10707, 47641, 852, 186, "Output",ExpressionUUID->"4b18b0e6-da57-47d7-8170-1cbe02c23f44"] +Cell[547886, 11511, 1619, 42, 24, "Input",ExpressionUUID->"dfdd1eea-966a-4bd0-8f13-2b14628904cd"], +Cell[549508, 11555, 47641, 852, 186, "Output",ExpressionUUID->"4b18b0e6-da57-47d7-8170-1cbe02c23f44"] }, Open ]], Cell[CellGroupData[{ -Cell[569764, 11564, 618, 17, 22, "Input",ExpressionUUID->"f71f24e9-9817-4053-9bea-a250d010efff"], -Cell[570385, 11583, 87714, 1572, 288, "Output",ExpressionUUID->"b61fdba8-e6cc-4e49-8ada-29b397873cb1"] +Cell[597186, 12412, 618, 17, 22, "Input",ExpressionUUID->"f71f24e9-9817-4053-9bea-a250d010efff"], +Cell[597807, 12431, 87714, 1572, 288, "Output",ExpressionUUID->"b61fdba8-e6cc-4e49-8ada-29b397873cb1"] }, Open ]], Cell[CellGroupData[{ -Cell[658136, 13160, 707, 19, 22, "Input",ExpressionUUID->"de157c7b-b709-4e1e-8df1-e3e28f52b43f"], -Cell[658846, 13181, 44199, 801, 179, "Output",ExpressionUUID->"ee7cf310-ffc9-4000-8be1-72457e8e1cb8"] +Cell[685558, 14008, 707, 19, 22, "Input",ExpressionUUID->"de157c7b-b709-4e1e-8df1-e3e28f52b43f"], +Cell[686268, 14029, 44199, 801, 179, "Output",ExpressionUUID->"ee7cf310-ffc9-4000-8be1-72457e8e1cb8"] }, Open ]], Cell[CellGroupData[{ -Cell[703082, 13987, 703, 20, 35, "Input",ExpressionUUID->"c481b209-2bcd-4c5b-9300-64e792165889"], -Cell[703788, 14009, 191, 3, 25, "Output",ExpressionUUID->"e229148f-e3cd-49b3-a2a8-d25d53f79d45"] +Cell[730504, 14835, 703, 20, 35, "Input",ExpressionUUID->"c481b209-2bcd-4c5b-9300-64e792165889"], +Cell[731210, 14857, 191, 3, 25, "Output",ExpressionUUID->"e229148f-e3cd-49b3-a2a8-d25d53f79d45"] }, Open ]], -Cell[703994, 14015, 480, 14, 39, "Input",ExpressionUUID->"f117b50a-92dc-4e32-abab-3922821a7857"], +Cell[731416, 14863, 480, 14, 39, "Input",ExpressionUUID->"f117b50a-92dc-4e32-abab-3922821a7857"], Cell[CellGroupData[{ -Cell[704499, 14033, 5205, 126, 61, "Input",ExpressionUUID->"ac3f0bd9-271b-4050-a7c4-8134f5842c06"], -Cell[709707, 14161, 168828, 2864, 145, "Output",ExpressionUUID->"dd8dc669-3267-4282-8329-809350365c56"] +Cell[731921, 14881, 5205, 126, 144, "Input",ExpressionUUID->"ac3f0bd9-271b-4050-a7c4-8134f5842c06"], +Cell[737129, 15009, 168828, 2864, 135, "Output",ExpressionUUID->"dd8dc669-3267-4282-8329-809350365c56"] }, Open ]], -Cell[878550, 17028, 770, 19, 53, "Input",ExpressionUUID->"c4b7a709-0c12-406e-817b-d5ab6248e215"] +Cell[905972, 17876, 770, 19, 53, "Input",ExpressionUUID->"c4b7a709-0c12-406e-817b-d5ab6248e215"] }, Open ]], Cell[CellGroupData[{ -Cell[879357, 17052, 166, 3, 50, "Section",ExpressionUUID->"30f349f0-0201-45b2-b5a3-8e49839759e0"], -Cell[879526, 17057, 2725, 67, 35, "Input",ExpressionUUID->"45a50f4a-d97f-42b1-ada9-24fc0845df15"], -Cell[882254, 17126, 440, 13, 35, "Input",ExpressionUUID->"70d06993-9c98-4ef4-85b3-edb1c3ba7f4e"], +Cell[906779, 17900, 166, 3, 50, "Section",ExpressionUUID->"30f349f0-0201-45b2-b5a3-8e49839759e0"], +Cell[906948, 17905, 2725, 67, 35, "Input",ExpressionUUID->"45a50f4a-d97f-42b1-ada9-24fc0845df15"], +Cell[909676, 17974, 440, 13, 35, "Input",ExpressionUUID->"70d06993-9c98-4ef4-85b3-edb1c3ba7f4e"], Cell[CellGroupData[{ -Cell[882719, 17143, 1050, 28, 22, "Input",ExpressionUUID->"8c463f84-76c8-4379-88b6-1e727102231e"], -Cell[883772, 17173, 10958, 307, 106, "Output",ExpressionUUID->"2ae85ee5-ac37-40ff-9e25-33aba3eab114"] +Cell[910141, 17991, 1050, 28, 22, "Input",ExpressionUUID->"8c463f84-76c8-4379-88b6-1e727102231e"], +Cell[911194, 18021, 10958, 307, 96, "Output",ExpressionUUID->"2ae85ee5-ac37-40ff-9e25-33aba3eab114"] }, Open ]], Cell[CellGroupData[{ -Cell[894767, 17485, 1348, 36, 39, "Input",ExpressionUUID->"96d20562-b958-4d4f-ac54-fb5edc1b11d7"], -Cell[896118, 17523, 2211, 72, 56, "Output",ExpressionUUID->"a162cdc1-705f-4672-ae1a-890773989108"] +Cell[922189, 18333, 1348, 36, 39, "Input",ExpressionUUID->"96d20562-b958-4d4f-ac54-fb5edc1b11d7"], +Cell[923540, 18371, 2211, 72, 45, "Output",ExpressionUUID->"a162cdc1-705f-4672-ae1a-890773989108"] }, Open ]], Cell[CellGroupData[{ -Cell[898366, 17600, 872, 26, 25, "Input",ExpressionUUID->"45b7bda0-6295-48d7-9a9b-df79450c99c1"], -Cell[899241, 17628, 18704, 355, 192, "Output",ExpressionUUID->"a27c23e2-1920-4360-9a69-b257e0d81f2f"] +Cell[925788, 18448, 872, 26, 25, "Input",ExpressionUUID->"45b7bda0-6295-48d7-9a9b-df79450c99c1"], +Cell[926663, 18476, 18704, 355, 182, "Output",ExpressionUUID->"a27c23e2-1920-4360-9a69-b257e0d81f2f"] }, Open ]], -Cell[917960, 17986, 3196, 86, 73, "Input",ExpressionUUID->"4214fe68-3ea2-4071-92ec-d501f3d25cf0"], +Cell[945382, 18834, 3196, 86, 73, "Input",ExpressionUUID->"4214fe68-3ea2-4071-92ec-d501f3d25cf0"], Cell[CellGroupData[{ -Cell[921181, 18076, 951, 27, 39, "Input",ExpressionUUID->"a5cb9abb-ed86-4976-9ecc-fd5518916c55"], -Cell[922135, 18105, 3246, 93, 100, "Output",ExpressionUUID->"9b8c1e46-3986-413d-b7bf-6aa94b87eb6e"] +Cell[948603, 18924, 951, 27, 39, "Input",ExpressionUUID->"a5cb9abb-ed86-4976-9ecc-fd5518916c55"], +Cell[949557, 18953, 3246, 93, 100, "Output",ExpressionUUID->"9b8c1e46-3986-413d-b7bf-6aa94b87eb6e"] }, Open ]], Cell[CellGroupData[{ -Cell[925418, 18203, 1329, 34, 22, "Input",ExpressionUUID->"db85a58a-435c-4d0a-8c51-0c2640969430"], -Cell[926750, 18239, 1880, 60, 55, "Output",ExpressionUUID->"8a35ea3d-ed21-4e33-8824-c132d8b27c9e"] +Cell[952840, 19051, 1329, 34, 22, "Input",ExpressionUUID->"db85a58a-435c-4d0a-8c51-0c2640969430"], +Cell[954172, 19087, 1880, 60, 55, "Output",ExpressionUUID->"8a35ea3d-ed21-4e33-8824-c132d8b27c9e"] }, Open ]], Cell[CellGroupData[{ -Cell[928667, 18304, 579, 15, 22, "Input",ExpressionUUID->"c9ffbb5d-6b37-4a76-8c79-d0de5c139a97"], -Cell[929249, 18321, 11398, 234, 186, "Output",ExpressionUUID->"b59006fe-f37c-4871-a973-46e0413200d9"] +Cell[956089, 19152, 579, 15, 22, "Input",ExpressionUUID->"c9ffbb5d-6b37-4a76-8c79-d0de5c139a97"], +Cell[956671, 19169, 11398, 234, 186, "Output",ExpressionUUID->"b59006fe-f37c-4871-a973-46e0413200d9"] }, Open ]], -Cell[940662, 18558, 1144, 26, 22, "Input",ExpressionUUID->"4c8d0c76-a2a7-40b1-b6fe-f45c16cb33a3"], +Cell[968084, 19406, 1144, 26, 22, "Input",ExpressionUUID->"4c8d0c76-a2a7-40b1-b6fe-f45c16cb33a3"], Cell[CellGroupData[{ -Cell[941831, 18588, 212, 4, 22, "Input",ExpressionUUID->"ad57fc71-fcc6-4fd4-b0f7-b878c240416d"], -Cell[942046, 18594, 222, 4, 35, "Output",ExpressionUUID->"68f8c96a-c11c-48fd-b259-2e0770fb9704"] +Cell[969253, 19436, 212, 4, 22, "Input",ExpressionUUID->"ad57fc71-fcc6-4fd4-b0f7-b878c240416d"], +Cell[969468, 19442, 222, 4, 35, "Output",ExpressionUUID->"68f8c96a-c11c-48fd-b259-2e0770fb9704"] }, Open ]], Cell[CellGroupData[{ -Cell[942305, 18603, 260, 6, 22, "Input",ExpressionUUID->"98247650-d262-4810-9a09-b82172ed14d1"], -Cell[942568, 18611, 156, 3, 35, "Output",ExpressionUUID->"b42de7f5-fb90-493f-8730-505cb6f4fbaf"] +Cell[969727, 19451, 260, 6, 22, "Input",ExpressionUUID->"98247650-d262-4810-9a09-b82172ed14d1"], +Cell[969990, 19459, 156, 3, 35, "Output",ExpressionUUID->"b42de7f5-fb90-493f-8730-505cb6f4fbaf"] }, Open ]], Cell[CellGroupData[{ -Cell[942761, 18619, 499, 14, 22, "Input",ExpressionUUID->"8d2f4cc8-be70-40f0-8030-791191ae6af8"], -Cell[943263, 18635, 294, 5, 35, "Output",ExpressionUUID->"bbd7e664-d32d-4da1-af9c-c2d14ddb0f87"] +Cell[970183, 19467, 499, 14, 22, "Input",ExpressionUUID->"8d2f4cc8-be70-40f0-8030-791191ae6af8"], +Cell[970685, 19483, 294, 5, 35, "Output",ExpressionUUID->"bbd7e664-d32d-4da1-af9c-c2d14ddb0f87"] }, Open ]], Cell[CellGroupData[{ -Cell[943594, 18645, 1565, 45, 22, "Input",ExpressionUUID->"92fb26f6-6860-4b79-9533-0d2feb1db965"], -Cell[945162, 18692, 17579, 350, 103, "Output",ExpressionUUID->"a5ca0d9b-697f-41aa-9bc9-c6e41f8638f8"] +Cell[971016, 19493, 1565, 45, 22, "Input",ExpressionUUID->"92fb26f6-6860-4b79-9533-0d2feb1db965"], +Cell[972584, 19540, 17579, 350, 103, "Output",ExpressionUUID->"a5ca0d9b-697f-41aa-9bc9-c6e41f8638f8"] }, Open ]], Cell[CellGroupData[{ -Cell[962778, 19047, 2811, 69, 22, "Input",ExpressionUUID->"158567f8-2e36-4711-872a-8fa10d905ad7"], -Cell[965592, 19118, 13910, 313, 191, "Output",ExpressionUUID->"5236b89e-0d98-43ce-b98e-febb8307486e"] +Cell[990200, 19895, 2811, 69, 22, "Input",ExpressionUUID->"158567f8-2e36-4711-872a-8fa10d905ad7"], +Cell[993014, 19966, 13910, 313, 191, "Output",ExpressionUUID->"5236b89e-0d98-43ce-b98e-febb8307486e"] }, Open ]], Cell[CellGroupData[{ -Cell[979539, 19436, 269, 6, 22, "Input",ExpressionUUID->"8cb36fc2-3856-4f28-9961-910e48ddac2e"], -Cell[979811, 19444, 1863, 40, 36, "Output",ExpressionUUID->"ff0ed560-b332-4bb4-8ac7-253cabf4858e"] +Cell[1006961, 20284, 269, 6, 22, "Input",ExpressionUUID->"8cb36fc2-3856-4f28-9961-910e48ddac2e"], +Cell[1007233, 20292, 1863, 40, 36, "Output",ExpressionUUID->"ff0ed560-b332-4bb4-8ac7-253cabf4858e"] }, Open ]], Cell[CellGroupData[{ -Cell[981711, 19489, 409, 7, 22, "Input",ExpressionUUID->"3293d30f-7d68-4b6a-8ed3-a65763303491"], -Cell[982123, 19498, 375, 6, 35, "Output",ExpressionUUID->"e5929c2e-7bce-452b-8da3-30291fa9c8df"] +Cell[1009133, 20337, 409, 7, 22, "Input",ExpressionUUID->"3293d30f-7d68-4b6a-8ed3-a65763303491"], +Cell[1009545, 20346, 375, 6, 35, "Output",ExpressionUUID->"e5929c2e-7bce-452b-8da3-30291fa9c8df"] }, Open ]], Cell[CellGroupData[{ -Cell[982535, 19509, 4913, 119, 38, "Input",ExpressionUUID->"79ade24b-fc27-4e0b-9ecf-ddb0de8aaff7"], -Cell[987451, 19630, 56348, 1071, 191, "Output",ExpressionUUID->"d49dfd16-6e40-4701-8389-f2ecef5947c4"] +Cell[1009957, 20357, 4913, 119, 38, "Input",ExpressionUUID->"79ade24b-fc27-4e0b-9ecf-ddb0de8aaff7"], +Cell[1014873, 20478, 56348, 1071, 191, "Output",ExpressionUUID->"d49dfd16-6e40-4701-8389-f2ecef5947c4"] }, Open ]], Cell[CellGroupData[{ -Cell[1043836, 20706, 4715, 99, 104, "Input",ExpressionUUID->"95fd3173-4c7c-4968-a5e5-50349f8991ff"], -Cell[1048554, 20807, 78288, 1482, 164, "Output",ExpressionUUID->"5520b420-ca48-4374-9f40-3cf6b68c1fc7"] +Cell[1071258, 21554, 4715, 99, 104, "Input",ExpressionUUID->"95fd3173-4c7c-4968-a5e5-50349f8991ff"], +Cell[1075976, 21655, 78288, 1482, 164, "Output",ExpressionUUID->"5520b420-ca48-4374-9f40-3cf6b68c1fc7"] }, Open ]], Cell[CellGroupData[{ -Cell[1126879, 22294, 320, 7, 22, "Input",ExpressionUUID->"f8b772de-8c0c-4a56-b222-57a41ad73da1"], -Cell[1127202, 22303, 642, 10, 35, "Output",ExpressionUUID->"e59eb3bf-6625-4f33-ac38-e54b885b4202"] +Cell[1154301, 23142, 320, 7, 22, "Input",ExpressionUUID->"f8b772de-8c0c-4a56-b222-57a41ad73da1"], +Cell[1154624, 23151, 642, 10, 35, "Output",ExpressionUUID->"e59eb3bf-6625-4f33-ac38-e54b885b4202"] }, Open ]], Cell[CellGroupData[{ -Cell[1127881, 22318, 254, 6, 22, "Input",ExpressionUUID->"ca871bd4-fd4b-4992-8467-b1ea8a130f23"], -Cell[1128138, 22326, 2505, 61, 85, "Output",ExpressionUUID->"edd14cfb-2ab3-48f0-858e-ba2c420a7c8a"] +Cell[1155303, 23166, 254, 6, 22, "Input",ExpressionUUID->"ca871bd4-fd4b-4992-8467-b1ea8a130f23"], +Cell[1155560, 23174, 2505, 61, 85, "Output",ExpressionUUID->"edd14cfb-2ab3-48f0-858e-ba2c420a7c8a"] }, Open ]], Cell[CellGroupData[{ -Cell[1130680, 22392, 6507, 158, 69, "Input",ExpressionUUID->"18770a82-a9ab-4dc0-96f6-90b9a602b037"], -Cell[1137190, 22552, 26467, 566, 287, "Output",ExpressionUUID->"99a6f973-7b2f-4b45-b8d4-9dbde1fc2de6"] +Cell[1158102, 23240, 6507, 158, 69, "Input",ExpressionUUID->"18770a82-a9ab-4dc0-96f6-90b9a602b037"], +Cell[1164612, 23400, 26467, 566, 287, "Output",ExpressionUUID->"99a6f973-7b2f-4b45-b8d4-9dbde1fc2de6"] }, Open ]], Cell[CellGroupData[{ -Cell[1163694, 23123, 2354, 65, 143, "Input",ExpressionUUID->"c6046f7d-b5c6-4523-81fd-2e2ab01a6f97"], -Cell[1166051, 23190, 46183, 950, 520, "Output",ExpressionUUID->"f8fee0d7-6b40-4fdc-8252-25053ddb879b"] +Cell[1191116, 23971, 2354, 65, 143, "Input",ExpressionUUID->"c6046f7d-b5c6-4523-81fd-2e2ab01a6f97"], +Cell[1193473, 24038, 46183, 950, 520, "Output",ExpressionUUID->"f8fee0d7-6b40-4fdc-8252-25053ddb879b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[1212283, 24146, 160, 3, 50, "Section",ExpressionUUID->"f122010c-d89c-48b6-a849-06e9f4254e7f"], -Cell[1212446, 24151, 2883, 92, 49, "Input",ExpressionUUID->"97f59fe8-af38-42ea-9678-6cb9b2e573e2"] +Cell[1239705, 24994, 160, 3, 50, "Section",ExpressionUUID->"f122010c-d89c-48b6-a849-06e9f4254e7f"], +Cell[1239868, 24999, 2883, 92, 49, "Input",ExpressionUUID->"97f59fe8-af38-42ea-9678-6cb9b2e573e2"] }, Open ]] } ] diff --git a/marginal.tex b/marginal.tex index 798d199..8668b68 100644 --- a/marginal.tex +++ b/marginal.tex @@ -1183,7 +1183,7 @@ limit of $m\to0$ is taken, we find \right)\left( (\tilde q^{12}_0)^2-(\tilde q^{12}_d)^2-\tilde q^{11}_0\tilde q^{22}_0+\tilde q^{11}_d\tilde q^{22}_d \right) \notag \\ - &\qquad\qquad+\left( + &\qquad\qquad-\left( 2(q^{12}_0)^2-(\tilde q^{12}_0)^2-(q^{12}_d)^2-2q^{11}_0q^{22}_0+\tilde q^{11}_0\tilde q^{22}_0+q^{11}_dq^{22}_d \right)\left( (\tilde q^{12}_0)^2-(\tilde q^{12}_d)^2-\tilde q^{11}_0\tilde q^{22}_0+\tilde q^{11}_d\tilde q^{22}_d |