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

2024-04-06 16:06:29 +00:00
parent 3585ed4e7f
commit 76ace0b4b4
1 changed files with 36 additions and 35 deletions

View File

@ -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 ]]
}
]