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