|
|
|
@ -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,6 +680,7 @@ Cell[BoxData[{
|
|
|
|
|
RowBox[{"T", "+", "1"}], ")"}]}]}]}], ")"}], "]"}]}], ";"}], |
|
|
|
|
"\[IndentingNewLine]", |
|
|
|
|
RowBox[{"(*", |
|
|
|
|
RowBox[{"ToUpperCase", "[", |
|
|
|
|
RowBox[{"StringReplace", "[", |
|
|
|
|
RowBox[{ |
|
|
|
|
RowBox[{"StringReplace", "[", |
|
|
|
@ -691,10 +692,10 @@ Cell[BoxData[{
|
|
|
|
|
RowBox[{"R", "[", "x", "]"}], ",", "InputForm"}], "]"}], ",", |
|
|
|
|
RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<(\>\""}]}], "]"}], ",", |
|
|
|
|
RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<)\>\""}]}], "]"}], ",", |
|
|
|
|
RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], "*)"}], |
|
|
|
|
"\[IndentingNewLine]", |
|
|
|
|
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 ]] |
|
|
|
|
} |
|
|
|
|
] |
|
|
|
|