diff --git a/π–£ βšͺβˆ£ββˆ£βœ€βœ»Π­Π„α—©ί¦ΰ΄±βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺΰ΄±ί¦α—©Π­Π„βœ»βœ€βˆ£ββˆ£βšͺπ–£ /π–£ βšͺИNβ“„κ–΄βœ€α‘α‘•Π˜Nα‘Žκ—³π–£“α”“α”•α‘Žκ–΄βš­α—©κ—³βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺκ—³α—©βš­κ–΄α‘Žα”“α”•π–£“κ—³α‘ŽΠ˜Nα‘α‘•βœ€κ–΄β“„Π˜Nβšͺπ–£ /α—ΊΠ˜..π–£ βšͺπ”—’βšͺИNβšͺβ“„βšͺα”“α”•βšͺκ–΄βšͺα΄₯βšͺα—©βšͺί¦βšͺᙏβšͺβ“„βšͺᑐᑕβšͺ𖣓βšͺИNβšͺβ“„βšͺκ–΄βšͺ✀βšͺα—©βšͺᙏβšͺκ–΄βšͺκ•€βšͺβ“„βšͺα΄₯βšͺί¦βšͺα—©βšͺ𖣓βšͺИNβšͺβ“„βšͺκ–΄βšͺ✀βšͺᑐᑕβšͺИNβšͺα‘Žβšͺκ—³βšͺ𖣓βšͺα”“α”•βšͺα‘Žβšͺκ–΄βšͺ⚭βšͺα—©βšͺκ—³βšͺπ”—’βšͺπ–£ βšͺπ”—’βšͺπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όβšͺπ”—’βšͺπ–£ βšͺπ”—’βšͺκ—³βšͺα—©βšͺ⚭βšͺκ–΄βšͺα‘Žβšͺα”“α”•βšͺ𖣓βšͺκ—³βšͺα‘ŽβšͺИNβšͺᑐᑕβšͺ✀βšͺκ–΄βšͺβ“„βšͺИNβšͺ𖣓βšͺα—©βšͺί¦βšͺα΄₯βšͺβ“„βšͺκ•€βšͺκ–΄βšͺᙏβšͺα—©βšͺ✀βšͺκ–΄βšͺβ“„βšͺИNβšͺ𖣓βšͺᑐᑕβšͺβ“„βšͺᙏβšͺί¦βšͺα—©βšͺα΄₯βšͺκ–΄βšͺα”“α”•βšͺβ“„βšͺИNβšͺπ”—’βšͺπ–£ ..NB b/π–£ βšͺβˆ£ββˆ£βœ€βœ»Π­Π„α—©ί¦ΰ΄±βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺΰ΄±ί¦α—©Π­Π„βœ»βœ€βˆ£ββˆ£βšͺπ–£ /π–£ βšͺИNβ“„κ–΄βœ€α‘α‘•Π˜Nα‘Žκ—³π–£“α”“α”•α‘Žκ–΄βš­α—©κ—³βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺκ—³α—©βš­κ–΄α‘Žα”“α”•π–£“κ—³α‘ŽΠ˜Nα‘α‘•βœ€κ–΄β“„Π˜Nβšͺπ–£ /α—ΊΠ˜..π–£ βšͺπ”—’βšͺИNβšͺβ“„βšͺα”“α”•βšͺκ–΄βšͺα΄₯βšͺα—©βšͺί¦βšͺᙏβšͺβ“„βšͺᑐᑕβšͺ𖣓βšͺИNβšͺβ“„βšͺκ–΄βšͺ✀βšͺα—©βšͺᙏβšͺκ–΄βšͺκ•€βšͺβ“„βšͺα΄₯βšͺί¦βšͺα—©βšͺ𖣓βšͺИNβšͺβ“„βšͺκ–΄βšͺ✀βšͺᑐᑕβšͺИNβšͺα‘Žβšͺκ—³βšͺ𖣓βšͺα”“α”•βšͺα‘Žβšͺκ–΄βšͺ⚭βšͺα—©βšͺκ—³βšͺπ”—’βšͺπ–£ βšͺπ”—’βšͺπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όβšͺπ”—’βšͺπ–£ βšͺπ”—’βšͺκ—³βšͺα—©βšͺ⚭βšͺκ–΄βšͺα‘Žβšͺα”“α”•βšͺ𖣓βšͺκ—³βšͺα‘ŽβšͺИNβšͺᑐᑕβšͺ✀βšͺκ–΄βšͺβ“„βšͺИNβšͺ𖣓βšͺα—©βšͺί¦βšͺα΄₯βšͺβ“„βšͺκ•€βšͺκ–΄βšͺᙏβšͺα—©βšͺ✀βšͺκ–΄βšͺβ“„βšͺИNβšͺ𖣓βšͺᑐᑕβšͺβ“„βšͺᙏβšͺί¦βšͺα—©βšͺα΄₯βšͺκ–΄βšͺα”“α”•βšͺβ“„βšͺИNβšͺπ”—’βšͺπ–£ ..NB index a8dadf94..1d6f39f4 100644 --- a/π–£ βšͺβˆ£ββˆ£βœ€βœ»Π­Π„α—©ί¦ΰ΄±βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺΰ΄±ί¦α—©Π­Π„βœ»βœ€βˆ£ββˆ£βšͺπ–£ /π–£ βšͺИNβ“„κ–΄βœ€α‘α‘•Π˜Nα‘Žκ—³π–£“α”“α”•α‘Žκ–΄βš­α—©κ—³βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺκ—³α—©βš­κ–΄α‘Žα”“α”•π–£“κ—³α‘ŽΠ˜Nα‘α‘•βœ€κ–΄β“„Π˜Nβšͺπ–£ /α—ΊΠ˜..π–£ βšͺπ”—’βšͺИNβšͺβ“„βšͺα”“α”•βšͺκ–΄βšͺα΄₯βšͺα—©βšͺί¦βšͺᙏβšͺβ“„βšͺᑐᑕβšͺ𖣓βšͺИNβšͺβ“„βšͺκ–΄βšͺ✀βšͺα—©βšͺᙏβšͺκ–΄βšͺκ•€βšͺβ“„βšͺα΄₯βšͺί¦βšͺα—©βšͺ𖣓βšͺИNβšͺβ“„βšͺκ–΄βšͺ✀βšͺᑐᑕβšͺИNβšͺα‘Žβšͺκ—³βšͺ𖣓βšͺα”“α”•βšͺα‘Žβšͺκ–΄βšͺ⚭βšͺα—©βšͺκ—³βšͺπ”—’βšͺπ–£ βšͺπ”—’βšͺπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όβšͺπ”—’βšͺπ–£ βšͺπ”—’βšͺκ—³βšͺα—©βšͺ⚭βšͺκ–΄βšͺα‘Žβšͺα”“α”•βšͺ𖣓βšͺκ—³βšͺα‘ŽβšͺИNβšͺᑐᑕβšͺ✀βšͺκ–΄βšͺβ“„βšͺИNβšͺ𖣓βšͺα—©βšͺί¦βšͺα΄₯βšͺβ“„βšͺκ•€βšͺκ–΄βšͺᙏβšͺα—©βšͺ✀βšͺκ–΄βšͺβ“„βšͺИNβšͺ𖣓βšͺᑐᑕβšͺβ“„βšͺᙏβšͺί¦βšͺα—©βšͺα΄₯βšͺκ–΄βšͺα”“α”•βšͺβ“„βšͺИNβšͺπ”—’βšͺπ–£ ..NB +++ b/π–£ βšͺβˆ£ββˆ£βœ€βœ»Π­Π„α—©ί¦ΰ΄±βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺΰ΄±ί¦α—©Π­Π„βœ»βœ€βˆ£ββˆ£βšͺπ–£ /π–£ βšͺИNβ“„κ–΄βœ€α‘α‘•Π˜Nα‘Žκ—³π–£“α”“α”•α‘Žκ–΄βš­α—©κ—³βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όπ–‘Όπ–‘Όπ–‘Όβšͺκ—³α—©βš­κ–΄α‘Žα”“α”•π–£“κ—³α‘ŽΠ˜Nα‘α‘•βœ€κ–΄β“„Π˜Nβšͺπ–£ /α—ΊΠ˜..π–£ βšͺπ”—’βšͺИNβšͺβ“„βšͺα”“α”•βšͺκ–΄βšͺα΄₯βšͺα—©βšͺί¦βšͺᙏβšͺβ“„βšͺᑐᑕβšͺ𖣓βšͺИNβšͺβ“„βšͺκ–΄βšͺ✀βšͺα—©βšͺᙏβšͺκ–΄βšͺκ•€βšͺβ“„βšͺα΄₯βšͺί¦βšͺα—©βšͺ𖣓βšͺИNβšͺβ“„βšͺκ–΄βšͺ✀βšͺᑐᑕβšͺИNβšͺα‘Žβšͺκ—³βšͺ𖣓βšͺα”“α”•βšͺα‘Žβšͺκ–΄βšͺ⚭βšͺα—©βšͺκ—³βšͺπ”—’βšͺπ–£ βšͺπ”—’βšͺπ–‘Όβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺπ–‘Όβšͺπ”—’βšͺπ–£ βšͺπ”—’βšͺκ—³βšͺα—©βšͺ⚭βšͺκ–΄βšͺα‘Žβšͺα”“α”•βšͺ𖣓βšͺκ—³βšͺα‘ŽβšͺИNβšͺᑐᑕβšͺ✀βšͺκ–΄βšͺβ“„βšͺИNβšͺ𖣓βšͺα—©βšͺί¦βšͺα΄₯βšͺβ“„βšͺκ•€βšͺκ–΄βšͺᙏβšͺα—©βšͺ✀βšͺκ–΄βšͺβ“„βšͺИNβšͺ𖣓βšͺᑐᑕβšͺβ“„βšͺᙏβšͺί¦βšͺα—©βšͺα΄₯βšͺκ–΄βšͺα”“α”•βšͺβ“„βšͺИNβšͺπ”—’βšͺπ–£ ..NB @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 104668, 2368] -NotebookOptionsPosition[ 103602, 2340] -NotebookOutlinePosition[ 104481, 2366] -CellTagsIndexPosition[ 104438, 2363] +NotebookDataLength[ 104750, 2369] +NotebookOptionsPosition[ 103684, 2341] +NotebookOutlinePosition[ 104563, 2367] +CellTagsIndexPosition[ 104520, 2364] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -202,8 +202,8 @@ Cell[BoxData[ FontSize->12, FontWeight->"Normal", CellLabel-> - "4/6/24 16:19:06 \ -In[623]:=",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"], + "4/6/24 17:54:39 \ +In[352]:=",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"], Cell[CellGroupData[{ @@ -680,21 +680,22 @@ Cell[BoxData[{ RowBox[{"T", "+", "1"}], ")"}]}]}]}], ")"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", - RowBox[{"StringReplace", "[", - RowBox[{ - RowBox[{"StringReplace", "[", - RowBox[{ - RowBox[{"StringReplace", "[", - RowBox[{ - RowBox[{"ToString", "[", - RowBox[{ - RowBox[{"R", "[", "x", "]"}], ",", "InputForm"}], "]"}], ",", - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<(\>\""}]}], "]"}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<)\>\""}]}], "]"}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], "*)"}], - "\[IndentingNewLine]", + RowBox[{"ToUpperCase", "[", + RowBox[{"StringReplace", "[", + RowBox[{ + RowBox[{"StringReplace", "[", + RowBox[{ + RowBox[{"StringReplace", "[", + RowBox[{ + RowBox[{"ToString", "[", + RowBox[{ + RowBox[{"R", "[", "x", "]"}], ",", "InputForm"}], "]"}], ",", + RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<(\>\""}]}], "]"}], ",", + RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<)\>\""}]}], "]"}], ",", + RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], "]"}], + "*)"}], "\[IndentingNewLine]", RowBox[{"(*", - RowBox[{ + RowBox[{"ToUpperCase", "[", RowBox[{"StringReplace", "[", RowBox[{ RowBox[{"StringReplace", "[", @@ -708,7 +709,7 @@ Cell[BoxData[{ ",", RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<(\>\""}]}], "]"}], ",", RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<)\>\""}]}], "]"}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], ";"}], + RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ @@ -983,8 +984,8 @@ Cell[BoxData[{ FontSize->12, FontWeight->"Normal", CellLabel-> - "4/6/24 16:20:01 \ -In[820]:=",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"], + "4/6/24 18:53:13 \ +In[1218]:=",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"], Cell[BoxData[ TagBox[GridBox[{ @@ -1142,7 +1143,7 @@ J0cn2t6zq0Ndn3nT+O1TbxerIFrvwra/0RtJDpwnyY7Z5smm+RYzW+p/CY1D r8p323DIgXz8vLaGX1FBY8MEs7vHW2h7H2tPu2oQNN80Y5p0C0nbO5bY2/fP +//H9z95pjBK "]]}, - Annotation[#, "Charting`Private`Tag$11742#1"]& ], + Annotation[#, "Charting`Private`Tag$359331#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], Thickness[0.00001], Opacity[1.], LineBox[CompressedData[" @@ -1231,7 +1232,7 @@ tqLqWPr/r+uGrvWm3AkY8bMC9mb7zSNuzFF1avQYcVeDx5bVfiPewrS52Rsx 4iRr+hs35ojrTNf+l5M24qAc2Z9WrBH/7PiEV1o6YsNTpg+O1424r/KMkzJ7 xDXz50l2kSM+ltg7OLIP3fgf7Z6Nkw== "]]}, - Annotation[#, "Charting`Private`Tag$11742#2"]& ], + Annotation[#, "Charting`Private`Tag$359331#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], Thickness[0.00001], Opacity[1.], @@ -1356,7 +1357,7 @@ C8wHAHL6LX4= 0.9999999999999929}, {0.9960948612117012, 1.0000000000000036`}, {0.9979714921804486, 1.0000000000000018`}, {0.999999998046875, 0.9999999999999964}}]}, - Annotation[#, "Charting`Private`Tag$11742#3"]& ], + Annotation[#, "Charting`Private`Tag$359331#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], Thickness[0.00001], Opacity[1.], LineBox[CompressedData[" @@ -1446,7 +1447,7 @@ TX4Ou+Ot94YVgVTf5Wb8HvYGlsP9nkgSo+e9HRx2gj3jgyeLhKAsa2jYjRZ2 XblUjtHvi/9zaK58/0o2ifmV/f9Z17WSX0rlTlP40H82vmBRHNtIYnbf//zj ZdImNQ4J+dD/XDfXVLqdpPr8v08nTsX3/Pe//+//A/HyjRU= "]]}, - Annotation[#, "Charting`Private`Tag$11742#4"]& ], {}}, {}}, + Annotation[#, "Charting`Private`Tag$359331#4"]& ], {}}, {}}, InsetBox[ TemplateBox[{ RowBox[{"OO", "(", @@ -1923,7 +1924,7 @@ nthPx/ffe3IAk72/e51ikAPx+GWs5gv0yIH9Nq9LH59g0vxkuzX5Y0HzD4sI J0cn2t6zq0Ndn3nT+O1TbxerIFrvwra/0RtJDpwnyY7Z5smm+RYzW+p/CY1D r8p323DIgXz8vLaGX1FBY8MEs7vHW2h7H2tPu2oQNN80Y5p0C0nbO5bY2/fP +//H9z95pjBK - "]]}, "Charting`Private`Tag$11742#1"], + "]]}, "Charting`Private`Tag$359331#1"], Annotation[{ Directive[ Opacity[1.], @@ -2015,7 +2016,7 @@ bCMIqpe/OzT0de3UIQIXB7/7ex5I3PhhsjfY/YQ2iZah7/ZOteXxqV4f+GGr tqLqWPr/r+uGrvWm3AkY8bMC9mb7zSNuzFF1avQYcVeDx5bVfiPewrS52Rsx 4iRr+hs35ojrTNf+l5M24qAc2Z9WrBH/7PiEV1o6YsNTpg+O1424r/KMkzJ7 xDXz50l2kSM+ltg7OLIP3fgf7Z6Nkw== - "]]}, "Charting`Private`Tag$11742#2"], + "]]}, "Charting`Private`Tag$359331#2"], Annotation[{ Directive[ Opacity[1.], @@ -2156,7 +2157,7 @@ C8wHAHL6LX4= 0.9999999999999929}, {0.9960948612117012, 1.0000000000000036`}, {0.9979714921804486, 1.0000000000000018`}, {0.999999998046875, - 0.9999999999999964}}]}, "Charting`Private`Tag$11742#3"], + 0.9999999999999964}}]}, "Charting`Private`Tag$359331#3"], Annotation[{ Directive[ Opacity[1.], @@ -2249,7 +2250,7 @@ fH2aQSJzzIfyYRvYO+WNp3I0/F5r27Cr8jnO651JpJ0MJob9Lldz0zsqJ6Xn TX4Ou+Ot94YVgVTf5Wb8HvYGlsP9nkgSo+e9HRx2gj3jgyeLhKAsa2jYjRZ2 XblUjtHvi/9zaK58/0o2ifmV/f9Z17WSX0rlTlP40H82vmBRHNtIYnbf//zj ZdImNQ4J+dD/XDfXVLqdpPr8v08nTsX3/Pe//+//A/HyjRU= - "]]}, "Charting`Private`Tag$11742#4"], {}}}, {}}, { + "]]}, "Charting`Private`Tag$359331#4"], {}}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0.5, 0.5000000039062495}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, @@ -2334,8 +2335,8 @@ ZdImNQ4J+dD/XDfXVLqdpPr8v08nTsX3/Pe//+//A/HyjRU= GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellLabel-> - "4/6/24 16:20:02 \ -Out[857]=",ExpressionUUID->"0fbc87f2-a2b3-49b7-8356-7dc6c2e8d2a6"] + "4/6/24 18:53:13 \ +Out[1255]=",ExpressionUUID->"35032fd1-788b-4412-adfc-29fcc32645f8"] }, Open ]] }, WindowSize->{1680, 984}, @@ -2367,8 +2368,8 @@ CellTagsIndex->{} Notebook[{ Cell[558, 20, 6971, 185, 431, "Input",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"], Cell[CellGroupData[{ -Cell[7554, 209, 23817, 777, 995, "Input",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"], -Cell[31374, 988, 72212, 1349, 1165, "Output",ExpressionUUID->"0fbc87f2-a2b3-49b7-8356-7dc6c2e8d2a6"] +Cell[7554, 209, 23890, 778, 995, "Input",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"], +Cell[31447, 989, 72221, 1349, 1165, "Output",ExpressionUUID->"35032fd1-788b-4412-adfc-29fcc32645f8"] }, Open ]] } ]