ᗺИ..𖣠𔗢ИNᔓᔕߦᑐᑕ𖣓ИNߦ𖣓ИNᑐᑕИN𖣓ᔓᔕ𔗢𖣠𔗢𖡼𔗢🞋𔗢𖡼𔗢𖣠𔗢ᔓᔕ𖣓ИNᑐᑕИN𖣓ߦИN𖣓ᑐᑕߦᔓᔕИN𔗢𖣠..NB

This commit is contained in:
2024-04-06 16:06:29 +00:00
parent 3585ed4e7f
commit 76ace0b4b4

View File

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