𖣠ИNⓄᔓᔕⵙᴥᗩߦᙏⓄᑐᑕ🜋ИNⓄⵙ✤ᑐᑕИNᑎꗳ𖡗ᔓᔕᑎⵙ⚭ᗩꗳ𔗢🞋𔗢ꗳᗩ⚭ⵙᑎᔓᔕ𖡗ꗳᑎИNᑐᑕ✤ⵙⓄИN🜋ᑐᑕⓄᙏߦᗩᴥⵙᔓᔕⓄИN𖣠

This commit is contained in:
O 2024-08-01 00:23:54 +00:00
parent 54c581290e
commit 3d82ce9f1f
1 changed files with 76 additions and 101 deletions

View File

@ -10,10 +10,10 @@
NotebookFileLineBreakTest NotebookFileLineBreakTest
NotebookFileLineBreakTest NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7] NotebookDataPosition[ 158, 7]
NotebookDataLength[ 127791, 2720] NotebookDataLength[ 126843, 2695]
NotebookOptionsPosition[ 126389, 2687] NotebookOptionsPosition[ 125442, 2662]
NotebookOutlinePosition[ 127268, 2713] NotebookOutlinePosition[ 126319, 2688]
CellTagsIndexPosition[ 127225, 2710] CellTagsIndexPosition[ 126276, 2685]
WindowFrame->Normal*) WindowFrame->Normal*)
(* Beginning of Notebook Content *) (* Beginning of Notebook Content *)
@ -198,8 +198,8 @@ Cell[BoxData[{
FontSize->12, FontSize->12,
FontWeight->"Normal", FontWeight->"Normal",
CellLabel-> CellLabel->
"7/18/24 18:05:24 \ "8/1/24 03:23:15 \
In[2872]:=",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"], In[329]:=",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -1005,12 +1005,7 @@ Cell[BoxData[{
SuperscriptBox["2", "8"]}]}], ",", SuperscriptBox["2", "8"]}]}], ",",
RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{", RowBox[{"{",
RowBox[{ RowBox[{"Dashed", ",", "Normal"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Thickness", "[",
RowBox[{"64", "/", "65536"}], "]"}], ","}], "}"}], ",",
RowBox[{"{", "Dashed", "}"}]}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]", " ", RowBox[{"PlotLegends", "\[Rule]", " ",
RowBox[{"Placed", "[", RowBox[{"Placed", "[",
RowBox[{"\"\<Expressions\>\"", ",", RowBox[{"\"\<Expressions\>\"", ",",
@ -1053,8 +1048,8 @@ Cell[BoxData[{
FontSize->12, FontSize->12,
FontWeight->"Normal", FontWeight->"Normal",
CellLabel-> CellLabel->
"7/18/24 18:11:38 \ "8/1/24 03:23:15 \
In[3659]:=",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"], In[336]:=",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"],
Cell[BoxData[ Cell[BoxData[
TagBox[GridBox[{ TagBox[GridBox[{
@ -1130,10 +1125,8 @@ Cell[BoxData[
TagBox[ TagBox[
GraphicsBox[{{{{}, {}, GraphicsBox[{{{{}, {},
TagBox[ TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], Thickness[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
NCache[ Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
Rational[1, 1024], 0.0009765625]], Opacity[1.],
LineBox[CompressedData["
1:eJwdmHlYTuv3xtOgiROFSAepKJ1UnNDAXcKJpEGEOkmDcqIiQoPx0Ekc0aCU 1:eJwdmHlYTuv3xtOgiROFSAepKJ1UnNDAXcKJpEGEOkmDcqIiQoPx0Ekc0aCU
4RhLUhS9Ks0JSSkpDSoN9sB+SlRK3t/z/f3z7utz7X2tZ611r3Xvfb0aHgGO 4RhLUhS9Ks0JSSkpDSoN9sB+SlRK3t/z/f3z7utz7X2tZ611r3Xvfb0aHgGO
3pISEhJjxkhI/O/aNt2K/jJo+v+rgJWJFp2NUgzEMy/LN0gJKDfTvCwtx2Bk 3pISEhJjxkhI/O/aNt2K/jJo+v+rgJWJFp2NUgzEMy/LN0gJKDfTvCwtx2Bk
@ -1220,10 +1213,10 @@ lDtfK35728nDq6S9LZlyUKW9+Z2PPMqCar8/pKzOhbjU8DxwN31CFeWVsb2i
DMIjZUFB3nvKEZ42Qkc/zad1883PlMP6tOIkhuh+Yt6YIcp9CmtCGkd43JbP DMIjZUFB3nvKEZ42Qkc/zad1883PlMP6tOIkhuh+Yt6YIcp9CmtCGkd43JbP
aRilrNGVLxaLefzvvwAJiV78H/9ik1Y= aRilrNGVLxaLefzvvwAJiV78H/9ik1Y=
"]]}, "]]},
Annotation[#, "Charting`Private`Tag$1155250#1"]& ], Annotation[#, "Charting`Private`Tag$12753#1"]& ],
TagBox[ TagBox[
{RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6],
Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" Opacity[1.], LineBox[CompressedData["
1:eJwVlnlYSOkXx9tLMW2IGCSUJSVD0fJFMaYoVEKNpU0bRWQJkSUkmvYUmSRL 1:eJwVlnlYSOkXx9tLMW2IGCSUJSVD0fJFMaYoVEKNpU0bRWQJkSUkmvYUmSRL
yNK0a1NKUakoFa3qLnXfok2i3/v7597n89znOec953vO971qDl5bnMVERERE yNK0a1NKUakoFa3qLnXfok2i3/v7597n89znOec953vO971qDl5bnMVERERE
RUVE/v9unmZCnwwunlhaUsz3YG3MqvZ6cQaxf/iZ8aQHxQbqNyVkGPSu8TZ1 RUVE/v9unmZCnwwunlhaUsz3YG3MqvZ6cQaxf/iZ8aQHxQbqNyVkGPSu8TZ1
@ -1310,12 +1303,10 @@ unOaebhpOUT3U25/JzfwoZ1H2AkNf7MB+v9XvsnwQRed56QJNdGUp3PH7ap4
qmdiaiNPeW14b0YK4aGYbxyhN0j1djQXWr/xqAhXyAqkfKJvToTIMA/3yhUB qmdiaiNPeW14b0YK4aGYbxyhN0j1djQXWr/xqAhXyAqkfKJvToTIMA/3yhUB
tZT7ZM2O1//gYZo+5qs6RKDWkTM2NsYjKK/MzIny/wCx2KQg tZT7ZM2O1//gYZo+5qs6RKDWkTM2NsYjKK/MzIny/wCx2KQg
"]]}, "]]},
Annotation[#, "Charting`Private`Tag$1155250#2"]& ], Annotation[#, "Charting`Private`Tag$12753#2"]& ],
TagBox[ TagBox[
{RGBColor[0.560181, 0.691569, 0.194885], Thickness[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6],
NCache[ Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
Rational[1, 1024], 0.0009765625]], Opacity[1.],
LineBox[CompressedData["
1:eJwl1nk4lGsbAHBbyHLIkpLK0olylKJS1J2oFIWQwlGRkD1F0aJVJVpMIlun 1:eJwl1nk4lGsbAHBbyHLIkpLK0olylKJS1J2oFIWQwlGRkD1F0aJVJVpMIlun
FNFirSkiyRIqW8iSPaF5HlEpwvfe7/fPzPW7Zq55nnt9R8XJZ5uLAB8fHz8/ FNFirSkiyRIqW8iSPaF5HlEpwvfe7/fPzPW7Zq55nnt9R8XJZ5uLAB8fHz8/
Hx++t80yYl6/AB/fej7lUh6sj1nb1SiIDp86Us6DYn21BCFRdAdH6T0PXrtb Hx++t80yYl6/AB/fej7lUh6sj1nb1SiIDp86Us6DYn21BCFRdAdH6T0PXrtb
@ -1390,10 +1381,10 @@ Zf5/ZN+wvtyMNj6j+YlCrbPM17w2tGpMDeOuavEf9V3oNbsOtlHwr7AwSO1F
862Z2s7ctz/IvmqAnZ+LKYzXcwa5jynabZl+B1NvZ1PSMYzeMdzA+Oi3edf5 862Z2s7ctz/IvmqAnZ+LKYzXcwa5jynabZl+B1NvZ1PSMYzeMdzA+Oi3edf5
frHzfNenk4lfbHNQ4xibP70xxirdeZOTk2z+Jy93UfgfqDuErg== frHzfNenk4lfbHNQ4xibP70xxirdeZOTk2z+Jy93UfgfqDuErg==
"]]}, "]]},
Annotation[#, "Charting`Private`Tag$1155250#3"]& ], Annotation[#, "Charting`Private`Tag$12753#3"]& ],
TagBox[ TagBox[
{RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6],
Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" Opacity[1.], LineBox[CompressedData["
1:eJwVVnlYTWsfbS6lG+VmlmRKumXWwIoMqaSBDGUICZVUJGWekkRxmoRCFIlU 1:eJwVVnlYTWsfbS6lG+VmlmRKumXWwIoMqaSBDGUICZVUJGWekkRxmoRCFIlU
dJKL5og0CE23ufbg7DdKJdL3fv+c/aznfZ53r9/6rbX20d7uZe8qIyUlJS0t dJKL5og0CE23ufbg7DdKJdL3fv+c/aznfZ53r9/6rbX20d7uZe8qIyUlJS0t
JfX/Z8NYc/rLwH6hss+4IgmWx5i1fJFl4GHqGtj1VoICE52bckoMXN2SFUZ/ JfX/Z8NYc/rLwH6hss+4IgmWx5i1fJFl4GHqGtj1VoICE52bckoMXN2SFUZ/
@ -1481,7 +1472,7 @@ I2rt5Voeo+0yruv+R1C5Q/3riwYe8yyjnpZR3FKu8uNTC81fYOoxnwYC3xJb
TP1tqv2J4iPfJkdI9fH4YDPis2cznV/ZMuDLL8r/aIPnT4q1W18MDg7y0Dat TP1tqv2J4iPfJkdI9fH4YDPis2cznV/ZMuDLL8r/aIPnT4q1W18MDg7y0Dat
WXipheB/k3qOBQ== WXipheB/k3qOBQ==
"]]}, "]]},
Annotation[#, "Charting`Private`Tag$1155250#4"]& ]}, {}}, InsetBox[ Annotation[#, "Charting`Private`Tag$12753#4"]& ]}, {}}, InsetBox[
TemplateBox[{ TemplateBox[{
RowBox[{"OO", "(", RowBox[{"OO", "(",
TagBox["x", HoldForm], ")"}], TagBox["x", HoldForm], ")"}],
@ -1525,9 +1516,7 @@ WXipheB/k3qOBQ==
Opacity[1.], Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798], RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6], AbsoluteThickness[1.6],
Thickness[ Dashing[{Small, Small}]], {
NCache[
Rational[9, 1024], 0.0087890625]]], {
LineBox[{{0, 10}, {40, 10}}]}}, { LineBox[{{0, 10}, {40, 10}}]}}, {
Directive[ Directive[
EdgeForm[ EdgeForm[
@ -1538,10 +1527,8 @@ WXipheB/k3qOBQ==
Opacity[1.], Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798], RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6], AbsoluteThickness[1.6],
Thickness[ Dashing[{Small, Small}]], {}}}, AspectRatio -> Full,
NCache[ ImageSize -> {40, 10}, PlotRangePadding -> None,
Rational[9, 1024], 0.0087890625]]], {}}}, AspectRatio ->
Full, ImageSize -> {40, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
GraphicsBox[{{ GraphicsBox[{{
@ -1553,8 +1540,7 @@ WXipheB/k3qOBQ==
PointSize[0.5], PointSize[0.5],
Opacity[1.], Opacity[1.],
RGBColor[0.880722, 0.611041, 0.142051], RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6], AbsoluteThickness[1.6]], {
Dashing[{Small, Small}]], {
LineBox[{{0, 10}, {40, 10}}]}}, { LineBox[{{0, 10}, {40, 10}}]}}, {
Directive[ Directive[
EdgeForm[ EdgeForm[
@ -1564,8 +1550,7 @@ WXipheB/k3qOBQ==
PointSize[0.5], PointSize[0.5],
Opacity[1.], Opacity[1.],
RGBColor[0.880722, 0.611041, 0.142051], RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
Dashing[{Small, Small}]], {}}}, AspectRatio -> Full,
ImageSize -> {40, 10}, PlotRangePadding -> None, ImageSize -> {40, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
@ -1579,9 +1564,7 @@ WXipheB/k3qOBQ==
Opacity[1.], Opacity[1.],
RGBColor[0.560181, 0.691569, 0.194885], RGBColor[0.560181, 0.691569, 0.194885],
AbsoluteThickness[1.6], AbsoluteThickness[1.6],
Thickness[ Dashing[{Small, Small}]], {
NCache[
Rational[9, 1024], 0.0087890625]]], {
LineBox[{{0, 10}, {40, 10}}]}}, { LineBox[{{0, 10}, {40, 10}}]}}, {
Directive[ Directive[
EdgeForm[ EdgeForm[
@ -1592,10 +1575,8 @@ WXipheB/k3qOBQ==
Opacity[1.], Opacity[1.],
RGBColor[0.560181, 0.691569, 0.194885], RGBColor[0.560181, 0.691569, 0.194885],
AbsoluteThickness[1.6], AbsoluteThickness[1.6],
Thickness[ Dashing[{Small, Small}]], {}}}, AspectRatio -> Full,
NCache[ ImageSize -> {40, 10}, PlotRangePadding -> None,
Rational[9, 1024], 0.0087890625]]], {}}}, AspectRatio ->
Full, ImageSize -> {40, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
GraphicsBox[{{ GraphicsBox[{{
@ -1607,8 +1588,7 @@ WXipheB/k3qOBQ==
PointSize[0.5], PointSize[0.5],
Opacity[1.], Opacity[1.],
RGBColor[0.922526, 0.385626, 0.209179], RGBColor[0.922526, 0.385626, 0.209179],
AbsoluteThickness[1.6], AbsoluteThickness[1.6]], {
Dashing[{Small, Small}]], {
LineBox[{{0, 10}, {40, 10}}]}}, { LineBox[{{0, 10}, {40, 10}}]}}, {
Directive[ Directive[
EdgeForm[ EdgeForm[
@ -1618,8 +1598,7 @@ WXipheB/k3qOBQ==
PointSize[0.5], PointSize[0.5],
Opacity[1.], Opacity[1.],
RGBColor[0.922526, 0.385626, 0.209179], RGBColor[0.922526, 0.385626, 0.209179],
AbsoluteThickness[1.6], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
Dashing[{Small, Small}]], {}}}, AspectRatio -> Full,
ImageSize -> {40, 10}, PlotRangePadding -> None, ImageSize -> {40, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}},
@ -1695,8 +1674,10 @@ WXipheB/k3qOBQ==
RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
Selectable -> False], ",", Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Thickness", "[", RowBox[{"Dashing", "[",
FractionBox["1", "1024"], "]"}]}], "]"}], ",", RowBox[{"{",
RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}],
",",
RowBox[{"Directive", "[", RowBox[{"Directive", "[",
RowBox[{ RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",",
@ -1743,10 +1724,7 @@ WXipheB/k3qOBQ==
Automatic, Method -> "Preemptive"], Automatic, Method -> "Preemptive"],
RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
Selectable -> False], ",", Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
RowBox[{"Dashing", "[",
RowBox[{"{",
RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}],
",", ",",
RowBox[{"Directive", "[", RowBox[{"Directive", "[",
RowBox[{ RowBox[{
@ -1795,8 +1773,10 @@ WXipheB/k3qOBQ==
RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
Selectable -> False], ",", Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Thickness", "[", RowBox[{"Dashing", "[",
FractionBox["1", "1024"], "]"}]}], "]"}], ",", RowBox[{"{",
RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}],
",",
RowBox[{"Directive", "[", RowBox[{"Directive", "[",
RowBox[{ RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",",
@ -1844,11 +1824,8 @@ WXipheB/k3qOBQ==
Automatic, Method -> "Preemptive"], Automatic, Method -> "Preemptive"],
RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
Selectable -> False], ",", Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}],
RowBox[{"Dashing", "[", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}],
"}"}], ",",
RowBox[{"{", RowBox[{"{",
RowBox[{ RowBox[{
TagBox[#, HoldForm], ",", TagBox[#, HoldForm], ",",
@ -1907,8 +1884,7 @@ WXipheB/k3qOBQ==
Opacity[1.], Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798], RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6], AbsoluteThickness[1.6],
Thickness[ Dashing[{Small, Small}]],
Rational[1, 1024]]],
Line[CompressedData[" Line[CompressedData["
1:eJwdmHlYTuv3xtOgiROFSAepKJ1UnNDAXcKJpEGEOkmDcqIiQoPx0Ekc0aCU 1:eJwdmHlYTuv3xtOgiROFSAepKJ1UnNDAXcKJpEGEOkmDcqIiQoPx0Ekc0aCU
4RhLUhS9Ks0JSSkpDSoN9sB+SlRK3t/z/f3z7utz7X2tZ611r3Xvfb0aHgGO 4RhLUhS9Ks0JSSkpDSoN9sB+SlRK3t/z/f3z7utz7X2tZ611r3Xvfb0aHgGO
@ -1995,13 +1971,12 @@ fq28mH7/zJOMy27g8W2aoqIx5eDsC05nm+n8RzyV2kK5zlP5U34bD3Xt+d3h
lDtfK35728nDq6S9LZlyUKW9+Z2PPMqCar8/pKzOhbjU8DxwN31CFeWVsb2i lDtfK35728nDq6S9LZlyUKW9+Z2PPMqCar8/pKzOhbjU8DxwN31CFeWVsb2i
DMIjZUFB3nvKEZ42Qkc/zad1883PlMP6tOIkhuh+Yt6YIcp9CmtCGkd43JbP DMIjZUFB3nvKEZ42Qkc/zad1883PlMP6tOIkhuh+Yt6YIcp9CmtCGkd43JbP
aRilrNGVLxaLefzvvwAJiV78H/9ik1Y= aRilrNGVLxaLefzvvwAJiV78H/9ik1Y=
"]]}, "Charting`Private`Tag$1155250#1"], "]]}, "Charting`Private`Tag$12753#1"],
Annotation[{ Annotation[{
Directive[ Directive[
Opacity[1.], Opacity[1.],
RGBColor[0.880722, 0.611041, 0.142051], RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6], AbsoluteThickness[1.6]],
Dashing[{Small, Small}]],
Line[CompressedData[" Line[CompressedData["
1:eJwVlnlYSOkXx9tLMW2IGCSUJSVD0fJFMaYoVEKNpU0bRWQJkSUkmvYUmSRL 1:eJwVlnlYSOkXx9tLMW2IGCSUJSVD0fJFMaYoVEKNpU0bRWQJkSUkmvYUmSRL
yNK0a1NKUakoFa3qLnXfok2i3/v7597n89znOec953vO971qDl5bnMVERERE yNK0a1NKUakoFa3qLnXfok2i3/v7597n89znOec953vO971qDl5bnMVERERE
@ -2088,14 +2063,13 @@ lL0XZiiH1fCoVVMkLOWlC8QiUutovlypC+v66f9HapT1tUYe3j360rGUaxyV
unOaebhpOUT3U25/JzfwoZ1H2AkNf7MB+v9XvsnwQRed56QJNdGUp3PH7ap4 unOaebhpOUT3U25/JzfwoZ1H2AkNf7MB+v9XvsnwQRed56QJNdGUp3PH7ap4
qmdiaiNPeW14b0YK4aGYbxyhN0j1djQXWr/xqAhXyAqkfKJvToTIMA/3yhUB qmdiaiNPeW14b0YK4aGYbxyhN0j1djQXWr/xqAhXyAqkfKJvToTIMA/3yhUB
tZT7ZM2O1//gYZo+5qs6RKDWkTM2NsYjKK/MzIny/wCx2KQg tZT7ZM2O1//gYZo+5qs6RKDWkTM2NsYjKK/MzIny/wCx2KQg
"]]}, "Charting`Private`Tag$1155250#2"], "]]}, "Charting`Private`Tag$12753#2"],
Annotation[{ Annotation[{
Directive[ Directive[
Opacity[1.], Opacity[1.],
RGBColor[0.560181, 0.691569, 0.194885], RGBColor[0.560181, 0.691569, 0.194885],
AbsoluteThickness[1.6], AbsoluteThickness[1.6],
Thickness[ Dashing[{Small, Small}]],
Rational[1, 1024]]],
Line[CompressedData[" Line[CompressedData["
1:eJwl1nk4lGsbAHBbyHLIkpLK0olylKJS1J2oFIWQwlGRkD1F0aJVJVpMIlun 1:eJwl1nk4lGsbAHBbyHLIkpLK0olylKJS1J2oFIWQwlGRkD1F0aJVJVpMIlun
FNFirSkiyRIqW8iSPaF5HlEpwvfe7/fPzPW7Zq55nnt9R8XJZ5uLAB8fHz8/ FNFirSkiyRIqW8iSPaF5HlEpwvfe7/fPzPW7Zq55nnt9R8XJZ5uLAB8fHz8/
@ -2170,13 +2144,12 @@ tLOCrfftO83M88nSav/r9+judRtbKPhqcmUja9l+vd/DWGehwPXsBnY+tlxu
Zf5/ZN+wvtyMNj6j+YlCrbPM17w2tGpMDeOuavEf9V3oNbsOtlHwr7AwSO1F Zf5/ZN+wvtyMNj6j+YlCrbPM17w2tGpMDeOuavEf9V3oNbsOtlHwr7AwSO1F
862Z2s7ctz/IvmqAnZ+LKYzXcwa5jynabZl+B1NvZ1PSMYzeMdzA+Oi3edf5 862Z2s7ctz/IvmqAnZ+LKYzXcwa5jynabZl+B1NvZ1PSMYzeMdzA+Oi3edf5
frHzfNenk4lfbHNQ4xibP70xxirdeZOTk2z+Jy93UfgfqDuErg== frHzfNenk4lfbHNQ4xibP70xxirdeZOTk2z+Jy93UfgfqDuErg==
"]]}, "Charting`Private`Tag$1155250#3"], "]]}, "Charting`Private`Tag$12753#3"],
Annotation[{ Annotation[{
Directive[ Directive[
Opacity[1.], Opacity[1.],
RGBColor[0.922526, 0.385626, 0.209179], RGBColor[0.922526, 0.385626, 0.209179],
AbsoluteThickness[1.6], AbsoluteThickness[1.6]],
Dashing[{Small, Small}]],
Line[CompressedData[" Line[CompressedData["
1:eJwVVnlYTWsfbS6lG+VmlmRKumXWwIoMqaSBDGUICZVUJGWekkRxmoRCFIlU 1:eJwVVnlYTWsfbS6lG+VmlmRKumXWwIoMqaSBDGUICZVUJGWekkRxmoRCFIlU
dJKL5og0CE23ufbg7DdKJdL3fv+c/aznfZ53r9/6rbX20d7uZe8qIyUlJS0t dJKL5og0CE23ufbg7DdKJdL3fv+c/aznfZ53r9/6rbX20d7uZe8qIyUlJS0t
@ -2264,7 +2237,7 @@ I2rt5Voeo+0yruv+R1C5Q/3riwYe8yyjnpZR3FKu8uNTC81fYOoxnwYC3xJb
0wcdNE+BXdsUGylfLsCpjOcxf+rkJ/coXi7qFD8mdP7TD7YaNdF977ASmrp4 0wcdNE+BXdsUGylfLsCpjOcxf+rkJ/coXi7qFD8mdP7TD7YaNdF977ASmrp4
TP1tqv2J4iPfJkdI9fH4YDPis2cznV/ZMuDLL8r/aIPnT4q1W18MDg7y0Dat TP1tqv2J4iPfJkdI9fH4YDPis2cznV/ZMuDLL8r/aIPnT4q1W18MDg7y0Dat
WXipheB/k3qOBQ== WXipheB/k3qOBQ==
"]]}, "Charting`Private`Tag$1155250#4"]}}, {}}, { "]]}, "Charting`Private`Tag$12753#4"]}}, {}}, {
DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
AxesOrigin -> {0.75, 0.930555556043837}, AxesOrigin -> {0.75, 0.930555556043837},
FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
@ -2309,24 +2282,20 @@ WXipheB/k3qOBQ==
Opacity[1.], Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798], RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6], AbsoluteThickness[1.6],
Thickness[ Dashing[{Small, Small}]],
Rational[1, 1024]]],
Directive[ Directive[
Opacity[1.], Opacity[1.],
RGBColor[0.880722, 0.611041, 0.142051], RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6], AbsoluteThickness[1.6]],
Dashing[{Small, Small}]],
Directive[ Directive[
Opacity[1.], Opacity[1.],
RGBColor[0.560181, 0.691569, 0.194885], RGBColor[0.560181, 0.691569, 0.194885],
AbsoluteThickness[1.6], AbsoluteThickness[1.6],
Thickness[ Dashing[{Small, Small}]],
Rational[1, 1024]]],
Directive[ Directive[
Opacity[1.], Opacity[1.],
RGBColor[0.922526, 0.385626, 0.209179], RGBColor[0.922526, 0.385626, 0.209179],
AbsoluteThickness[1.6], AbsoluteThickness[1.6]]}, {
Dashing[{Small, Small}]]}, {
HoldForm[ HoldForm[
$CellContext`OO[ $CellContext`OO[
HoldForm[$CellContext`x]]], HoldForm[$CellContext`x]]],
@ -2355,8 +2324,8 @@ WXipheB/k3qOBQ==
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Column"]], "Output", "Column"]], "Output",
CellLabel-> CellLabel->
"7/18/24 18:11:39 \ "8/1/24 03:23:16 \
Out[3698]=",ExpressionUUID->"32f2bc0d-30ab-41c2-80a2-f5536dd7aa05"], Out[375]=",ExpressionUUID->"bbc14aa0-5506-4ffd-8080-e79bc76e47f7"],
Cell[BoxData["\<\"1.7043521015873016*10^6*(2.9336661100387573*10^-7-2.\ Cell[BoxData["\<\"1.7043521015873016*10^6*(2.9336661100387573*10^-7-2.\
9336661100387573*10^-7*(-1)^FLOOR(X)+(-1)^FLOOR(X)*MAX(0,-511/512+MOD(X,1))^8-\ 9336661100387573*10^-7*(-1)^FLOOR(X)+(-1)^FLOOR(X)*MAX(0,-511/512+MOD(X,1))^8-\
@ -2502,8 +2471,8 @@ FLOOR(X)*MAX(0,-15/512+MOD(X,1))^8+(-1)^FLOOR(X)*MAX(0,-13/512+MOD(X,1))^8+(-\
1))^8-1.*(-1)^FLOOR(X)*MAX(0,-3/512+MOD(X,1))^8+(-1)^FLOOR(X)*MAX(0,-1/512+\ 1))^8-1.*(-1)^FLOOR(X)*MAX(0,-3/512+MOD(X,1))^8+(-1)^FLOOR(X)*MAX(0,-1/512+\
MOD(X,1))^8)\"\>"], "Output", MOD(X,1))^8)\"\>"], "Output",
CellLabel-> CellLabel->
"7/18/24 18:11:48 \ "8/1/24 03:23:24 \
Out[3699]=",ExpressionUUID->"4bce74fe-79f9-44f5-9863-20f58c24515b"] Out[376]=",ExpressionUUID->"2a3f5d13-a0d0-468c-ac4b-3c81da7ee7db"]
}, Open ]], }, Open ]],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -2512,7 +2481,10 @@ Cell[BoxData[{
RowBox[{"ToUpperCase", "[", RowBox[{"ToUpperCase", "[",
RowBox[{"StringReplace", "[", RowBox[{"StringReplace", "[",
RowBox[{ RowBox[{
RowBox[{"ToString", "[", RowBox[{"ToString", "[", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Simplify", "[",
RowBox[{"ExpandAll", "["}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{ RowBox[{
RowBox[{ RowBox[{
RowBox[{ RowBox[{
@ -2527,7 +2499,10 @@ Cell[BoxData[{
RowBox[{"Mod", "[", RowBox[{"Mod", "[",
RowBox[{ RowBox[{
RowBox[{"x", "*", "O"}], ",", "1"}], "]"}], "]"}], "-", "0.5"}], RowBox[{"x", "*", "O"}], ",", "1"}], "]"}], "]"}], "-", "0.5"}],
")"}]}], "+", "0.5"}], ",", "InputForm"}], "]"}], ",", ")"}]}], "+", "0.5"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"]", "]"}], "*)"}], "\[IndentingNewLine]", ",", "InputForm"}],
"]"}], ",",
RowBox[{"{", RowBox[{"{",
RowBox[{ RowBox[{
RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}], ",", RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}], ",",
@ -2540,8 +2515,8 @@ Cell[BoxData[{
RowBox[{"Simplify", "[", RowBox[{"Simplify", "[",
RowBox[{"R", "[", "x", "]"}], "]"}], "*)"}]}]}], "Input", RowBox[{"R", "[", "x", "]"}], "]"}], "*)"}]}]}], "Input",
CellLabel-> CellLabel->
"7/18/24 18:12:37 \ "8/1/24 03:23:24 \
In[3700]:=",ExpressionUUID->"fdb9eb7c-a68c-4320-98a0-d5b673c97b25"], In[377]:=",ExpressionUUID->"fdb9eb7c-a68c-4320-98a0-d5b673c97b25"],
Cell[BoxData["\<\"0.5+(-1)^FLOOR(O*X)*(-0.5+256*(-128*(-64*(-32*(-16*(-8*(-4*(\ Cell[BoxData["\<\"0.5+(-1)^FLOOR(O*X)*(-0.5+256*(-128*(-64*(-32*(-16*(-8*(-4*(\
-2*(-1/40320*MAX(0,-511/512+MOD(O*X,1))^8+MAX(0,-255/512+MOD(O*X,1))^8/40320)+\ -2*(-1/40320*MAX(0,-511/512+MOD(O*X,1))^8+MAX(0,-255/512+MOD(O*X,1))^8/40320)+\
@ -2681,12 +2656,12 @@ X,1))^8/40320)+2*(-1/40320*MAX(0,-289/512+MOD(O*X,1))^8+MAX(0,-33/512+MOD(O*X,\
129/512+MOD(O*X,1))^8/40320)+2*(-1/40320*MAX(0,-257/512+MOD(O*X,1))^8+MAX(0,-\ 129/512+MOD(O*X,1))^8/40320)+2*(-1/40320*MAX(0,-257/512+MOD(O*X,1))^8+MAX(0,-\
1/512+MOD(O*X,1))^8/40320)))))))))\"\>"], "Output", 1/512+MOD(O*X,1))^8/40320)))))))))\"\>"], "Output",
CellLabel-> CellLabel->
"7/18/24 18:12:37 \ "8/1/24 03:23:24 \
Out[3700]=",ExpressionUUID->"c4650d4a-b2be-496e-bda7-09c764883fe3"] Out[377]=",ExpressionUUID->"6143c44d-8f8f-407f-8083-421c8e51b666"]
}, Open ]] }, Open ]]
}, },
WindowSize->{1680, 984}, WindowSize->{1672, 980},
WindowMargins->{{-4, Automatic}, {Automatic, -4}}, WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)", FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
StyleDefinitions->Notebook[{ StyleDefinitions->Notebook[{
Cell[ Cell[
@ -2712,15 +2687,15 @@ CellTagsIndex->{}
*) *)
(*NotebookFileOutline (*NotebookFileOutline
Notebook[{ Notebook[{
Cell[558, 20, 6562, 181, 412, "Input",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"], Cell[558, 20, 6560, 181, 412, "Input",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[7145, 205, 26459, 851, 1167, "Input",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"], Cell[7143, 205, 26283, 846, 1167, "Input",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"],
Cell[33607, 1058, 69342, 1300, 979, "Output",ExpressionUUID->"32f2bc0d-30ab-41c2-80a2-f5536dd7aa05"], Cell[33429, 1053, 68326, 1274, 975, "Output",ExpressionUUID->"bbc14aa0-5506-4ffd-8080-e79bc76e47f7"],
Cell[102952, 2360, 11336, 145, 928, "Output",ExpressionUUID->"4bce74fe-79f9-44f5-9863-20f58c24515b"] Cell[101758, 2329, 11334, 145, 928, "Output",ExpressionUUID->"2a3f5d13-a0d0-468c-ac4b-3c81da7ee7db"]
}, Open ]], }, Open ]],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[114325, 2510, 1139, 33, 60, "Input",ExpressionUUID->"fdb9eb7c-a68c-4320-98a0-d5b673c97b25"], Cell[113129, 2479, 1390, 39, 132, "Input",ExpressionUUID->"fdb9eb7c-a68c-4320-98a0-d5b673c97b25"],
Cell[115467, 2545, 10906, 139, 892, "Output",ExpressionUUID->"c4650d4a-b2be-496e-bda7-09c764883fe3"] Cell[114522, 2520, 10904, 139, 892, "Output",ExpressionUUID->"6143c44d-8f8f-407f-8083-421c8e51b666"]
}, Open ]] }, Open ]]
} }
] ]