0
0
mirror of http://CODE.RHODECODE.COM/u/O/O/O synced 2024-11-26 16:28:40 -05:00
O/𖣠⚪ᗩ∣ↀ∣𒾨⚪𔗢⚪🞋⚪𔗢⚪𒾨∣ↀ∣ᗩ⚪𖣠/𖣠⚪✤ᴥᗩ⚪𔗢⚪🞋⚪𔗢⚪ᗩᴥ✤⚪𖣠/𖣠⚪ᗱᗴᴥᗩᗯ✤ꗳⓄᔓᔕ⚪𔗢⚪🞋⚪𔗢⚪ᔓᔕⓄꗳ✤ᗯᗩᴥᗱᗴ⚪𖣠/𖣠⚪ᕭᕮᗩНߦᗱᗴᙏᕭᕮⓄߦ✤⚪𔗢⚪🞋⚪𔗢⚪✤ߦⓄᕭᕮᙏᗱᗴߦНᗩᕭᕮ⚪𖣠/𖣠⚪ᴥᗱᗴᗝИNᗱᗴᙁ⚭⚪𔗢⚪🞋⚪𔗢⚪⚭ᙁᗱᗴИNᗝᗱᗴᴥ⚪𖣠/ᗺИ.ᗡИƎ⅃ᗺ.⦿⚪ⵈ⊚ƎEᐱ✤ЯRᑎ✤⚪ƎEЯRᑎ✤AWЯRᑎᑐᑕ⚪✺⚪🞋⚪✺⚪ᑐᑕᑎЯRWA✤ᑎЯRƎE⚪✤ᑎЯR✤ᐱƎE⊚ⵈ⚪⦿.BLEND.NB

707 lines
32 KiB
Plaintext
Raw Normal View History

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.2' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 32056, 698]
NotebookOptionsPosition[ 31150, 675]
NotebookOutlinePosition[ 31553, 691]
CellTagsIndexPosition[ 31510, 688]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"T", "=", "64"}], ";",
RowBox[{"OO", "=", "4"}], ";"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"T", "=", "TTTT"}], ";",
RowBox[{"OO", "=", "OOOO"}], ";"}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\:1431", "[", "X_", "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{"T", "*",
RowBox[{"(",
RowBox[{"0.5", "+",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"Floor", "[",
RowBox[{
RowBox[{"(",
RowBox[{"2", "*", "OO", "*", "X"}], ")"}], "/", "T"}], "]"}]}],
"*",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.5"}], "+",
RowBox[{"Mod", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"2", "*", "OO", "*", "X"}], ")"}], "/", "T"}], ",",
"1"}], "]"}]}], ")"}]}]}], ")"}]}], ")"}], "/", "64"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"\:1431", "[", "X", "]"}], "\[IndentingNewLine]", ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"X", ",", "0", ",", "16"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]",
RowBox[{"1", "/", "4"}]}], ",",
RowBox[{"ImageSize", "\[Rule]", "Full"}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"Range", "[",
RowBox[{"0", ",", "16", ",", "4"}], "]"}], ",",
RowBox[{"Range", "[",
RowBox[{"0", ",", "16", ",", "1"}], "]"}]}], "}"}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"StringReplace", "[",
RowBox[{
RowBox[{"ToLowerCase", "[",
RowBox[{"ToString", "[",
RowBox[{
RowBox[{"FullSimplify", "[",
RowBox[{"ExpandAll", "[",
RowBox[{"\:1431", "[", "X", "]"}], "]"}], "]"}], ",", "InputForm"}],
"]"}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"\"\<[\>\"", "\[Rule]", " ", "\"\<(\>\""}], ",",
RowBox[{"\"\<]\>\"", "\[Rule]", " ", "\"\<)\>\""}], ",",
RowBox[{"\"\<^\>\"", "\[Rule]", " ", "\"\<**\>\""}], ",",
RowBox[{"\"\<oooo\>\"", "\[Rule]", " ", "\"\<O\>\""}], ",",
RowBox[{"\"\<tt\>\"", "\[Rule]", " ", "\"\<T\>\""}], ",",
RowBox[{"\"\<x\>\"", "\[Rule]", " ", "\"\<X\>\""}], ",",
RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}], ",",
RowBox[{"\"\<mod\>\"", "\[Rule]", " ", "\"\<np.mod\>\""}], ",",
RowBox[{"\"\<i\>\"", "\[Rule]", " ", "\"\<sqrt(-1)\>\""}], ",",
RowBox[{"\"\<pi\>\"", "\[Rule]", " ", "\"\<4*atan(1)\>\""}]}], "}"}]}],
"]"}]}], "Input",
CellLabel->
"5/3/24 07:35:15 \
In[329]:=",ExpressionUUID->"f5f67ce7-c8f0-4363-9182-367f7658508b"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwtzn9MzHEcx/G7tGVqJVKuH9+PLPk5QmNaer2trJEhJKwV6VJtxuw2P/6p
5sb6oSy1NYrQZpYYTozhxi1jXY1dGuOOunH98P3I0JKkvu/+eO3x+vMZmX1o
m9FLp9PFjW/CjUbPa2tvTcL4fWPtNSZ4J4YedhlM0CVNmISVl2rr7hrM0Gnu
QIq96069oRpFmjlIzxl6XGVoBGma8HHZ6cQzBgs+aZrRMGvLqVKDbdJqFE+9
O7/E4ECRZiN27b586/uge1ILfMeKM5IVCT/Np5iXqnqel/1ElKYNR9vXoPbn
MI5pvkSIJdCp149htmYHWroT2zrivYh9g2cF9WG7B7yJdeBX9NqA5oM+xHbB
a7hpeti8acS+x6qxvS3bb/oR+wFt5tj21kUBxLogzvYPX1enE/sJ/UMuZ2fM
DGK70dj36JV/xUxie+AfcU263UHEulGefy+3ISqY2C/4TU3uvMIQYr/CtMJm
CX4+m1gPXDdtZa8jQ4ntw0iB48LCE2HE9mPxOp9/uY/CiR1A8pXIA7dDFGJV
xNb6R7eGK8SqmFMx4n4fqRCr4s/xzmzvJQqxKppTSzLTSSFWxUz9YNponkKs
CleWNWnDQ4VYFW1pzVMynyrEqniQcv7ZEZtCrIqq1Saqa1eIVbE+YEG87FaI
VdH0pHJlja8gVuJoRNbczxmCWInsrTE7P+wTxEpsPqkv7coVxEpE914dtB8W
xEo4LB7rQ7MgViJm05Gs6huCWInwwsRzlbcFsRI+d4JelLYIYiWcIfeXFlsF
sRLlPSOjBx2CWIljwfbl+e8EsRL7N1w05jgFsRJxt8i+xyOIHe/rDtTv/Dbe
pykROKsnNvWHIFbib7Ilb9OQIFYCsW9Pt/4RxEr8Bw77u/Y=
"]], LineBox[CompressedData["
1:eJwVzXlM0wcUB/AKJSIISmVlEpAf5SpQKONUcbwn2zgLyiGgE4aAAytTkGNi
XNeipcKUI2BxA1kdRxDGsVgYwyrNxnR2GC4FESzKJfdPEjuEDNlvf7y8fPJ9
3zzLhLPhJ7VoNNrH1Py/X00bKyq1CPRxH5I8WCch2Graw1SXQP5vHmV/kyQo
FY97y/UIFOYlxffNk+AZ1X7qAwMCyyJKOU+nSWDlS27uZBCoWHrTrR4l4QYr
zavQmMC+TouSySESDBUx/fomBE5JQmNn+0lYW7bX2WpGoCHrZ83KQxL6IntS
N2wIjI9KttWRk8BZPKI/HEJgvV3kXFgSCR2RvK6CwwQWRyWL5uNI+OSeb4ZP
BIEXxBd2XzpKwrFC7mhtDIG8SVmgPJSEfJdtjZmJBC5XLd1m7iNhJlMRxMgh
0J0p4Y8akCDbYBWE1BCopHcuJP26DLt2vNHtXifw+SuL5a/1loHeVdFiVWmJ
70R/yToeLsJp97sj24JZ6FCez1s8tQCNgQmy+/+wsCHVuyuXMQ+aBdOdM1Ir
ZLJV424Ds9AW4a9d9qk1SmPS14azX8O3AeIf5TPWqHVWo5S6zoDli6Bn1WIb
vP8Z/1DH2ynY73W5bLerLV4tWR3qqZiE43t617YM2mLAHye2/3t0AjSqaxNp
Ijtk8qf279l4CTfocZnh1myULUmc28+Mwy51209a3WyUS9hZGnIMdL4RRe5L
t8dF/fUmU+/nQLsd1zLBcEDacbFvlnwYzv3Qco3xuwPulR581Lb6BO45XtE1
OuOI28PGX9z1HwCjoHOcXEMOnm/5qnL5u14Yc+obzFFwkCgRnPjITAWtVWA9
FeeEQj1ttVr3T4ht8TQyf++EH4qDsk12KEEoviUaa3BGWv3raa/wNmiaNa8w
5HExft63kiOogys3xfHqUC7SDvFIN+s6SApfsmkO46LwzhFfb1UtmCkUrSHR
lC+mzAYya6Gg6PMHVxO4qDQsdE9uroYUz+9X9HKovttIzy21DFiXjQO21lH3
q+p1J4EU3u+9aDBcT1m5Ijugug4jS5MDdY1UP5/uH8y8DsXRd2L9fqH6Zg6l
Kc2lsOkQniFWcBExy7FaXQxj/UVV2oNUzjDpcBHkQUfeauLgU8o1B+ihTDGU
eX9hX/2MsmfC4dPNlyC41lnuq6b+HWuarVULofP840eiOSr3k7h6CrJB6uRR
FLZImT+gSmvOgPSJykhLknKReWKjOg3YvNRx5VvKrcl2BwVfAn3Lk5riVcrv
NqLb1fHwss2bH79OWcg2ihZEgYJfzXXZoEw0TOUK/KDcQl+zuUmZRhtQzp30
+Q8dI7zt
"]]},
Annotation[#, "Charting`Private`Tag$37511#1"]& ], {}}, {}},
AspectRatio->NCache[
Rational[1, 4], 0.25],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->Full,
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 16}, {0., 0.9993622448979592}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{{{0,
FormBox["0", TraditionalForm]}, {4,
FormBox["4", TraditionalForm]}, {8,
FormBox["8", TraditionalForm]}, {12,
FormBox["12", TraditionalForm]}, {16,
FormBox["16", TraditionalForm]}}, {{0,
FormBox["0", TraditionalForm]}, {1,
FormBox["1", TraditionalForm]}, {2,
FormBox["2", TraditionalForm]}, {3,
FormBox["3", TraditionalForm]}, {4,
FormBox["4", TraditionalForm]}, {5,
FormBox["5", TraditionalForm]}, {6,
FormBox["6", TraditionalForm]}, {7,
FormBox["7", TraditionalForm]}, {8,
FormBox["8", TraditionalForm]}, {9,
FormBox["9", TraditionalForm]}, {10,
FormBox["10", TraditionalForm]}, {11,
FormBox["11", TraditionalForm]}, {12,
FormBox["12", TraditionalForm]}, {13,
FormBox["13", TraditionalForm]}, {14,
FormBox["14", TraditionalForm]}, {15,
FormBox["15", TraditionalForm]}, {16,
FormBox["16", TraditionalForm]}}}]], "Output",
CellLabel->
"5/3/24 07:35:15 \
Out[331]=",ExpressionUUID->"c478c8b1-84af-424e-b861-3547031dc110"],
Cell[BoxData["\<\"0.5+(-1)**floor(X/8)*(-0.5+1.*np.mod(X/8,1))\"\>"], "Output",
CellLabel->
"5/3/24 07:35:15 \
Out[332]=",ExpressionUUID->"7827bd56-0553-427f-a3b1-8be64aa742de"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"T", "=", "64"}], ";",
RowBox[{"OO", "=", "4"}], ";"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"T", "=", "TTTT"}], ";",
RowBox[{"OO", "=", "OOOO"}], ";"}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\[CapitalTheta]", "[", "X_", "]"}], "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"T", "/", "2"}], "/", "OO"}], ")"}]}], "/", "X"}], "]"}],
"/",
RowBox[{"(",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"T", "/", "2"}], "/", "OO"}], ")"}]}], "/", "X"}], "]"}],
"+",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"T", "/", "2"}], "/", "OO"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"T", "/", "2"}], "/", "OO"}], ")"}], "-", "X"}], ")"}]}],
"]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\:018eE", "[", "X_", "]"}], "=",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"Floor", "[",
RowBox[{"X", "/",
RowBox[{"(",
RowBox[{
RowBox[{"T", "/", "2"}], "/", "OO"}], ")"}]}], "]"}]}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"\[CapitalTheta]", "[",
RowBox[{"Mod", "[",
RowBox[{"X", ",",
RowBox[{"(",
RowBox[{
RowBox[{"T", "/", "2"}], "/", "OO"}], ")"}]}], "]"}], "]"}], "-",
".5"}], ")"}]}], "+", ".5"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"\:018eE", "[", "X", "]"}], "\[IndentingNewLine]", ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"X", ",", "0", ",", "16"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]",
RowBox[{"1", "/", "4"}]}], ",",
RowBox[{"ImageSize", "\[Rule]", "Full"}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"Range", "[",
RowBox[{"0", ",", "16", ",", "4"}], "]"}], ",",
RowBox[{"Range", "[",
RowBox[{"0", ",", "16", ",", "1"}], "]"}]}], "}"}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"StringReplace", "[",
RowBox[{
RowBox[{"ToLowerCase", "[",
RowBox[{"ToString", "[",
RowBox[{
RowBox[{"FullSimplify", "[",
RowBox[{"ExpandAll", "[",
RowBox[{"\:018eE", "[", "X", "]"}], "]"}], "]"}], ",", "InputForm"}],
"]"}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"\"\<[\>\"", "\[Rule]", " ", "\"\<(\>\""}], ",",
RowBox[{"\"\<]\>\"", "\[Rule]", " ", "\"\<)\>\""}], ",",
RowBox[{"\"\<^\>\"", "\[Rule]", " ", "\"\<**\>\""}], ",",
RowBox[{"\"\<oooo\>\"", "\[Rule]", " ", "\"\<O\>\""}], ",",
RowBox[{"\"\<tt\>\"", "\[Rule]", " ", "\"\<T\>\""}], ",",
RowBox[{"\"\<x\>\"", "\[Rule]", " ", "\"\<X\>\""}], ",",
RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}], ",",
RowBox[{"\"\<mod\>\"", "\[Rule]", " ", "\"\<np.mod\>\""}], ",",
RowBox[{"\"\<i\>\"", "\[Rule]", " ", "\"\<sqrt(-1)\>\""}], ",",
RowBox[{"\"\<pi\>\"", "\[Rule]", " ", "\"\<4*atan(1)\>\""}]}], "}"}]}],
"]"}]}], "Input",
CellLabel->
"5/3/24 07:35:34 \
In[338]:=",ExpressionUUID->"b4d0054f-f9cf-4438-8d1f-20a75cc5473c"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJxF2Xk0Vd/7B/AbDVJJyHAHEYmSlCGVe54dSgMlZGgQSkUaRBJlCKWMUVJJ
yqyEkAzVrYwhkRQZGkwZ7kHmIb991O/zvf/c9VrvZz3n7v2cs/a660hbnzK0
4aHRaHEzaDTqe7tNRxXn102C9u8zU5t+ulnCCf7fKvcjIjMkfP7zjorPT+9J
3PjPpoeHX4RKxP7nxtVXtAMlMv9z9OJdl69JFPxnt4pbBSa5/7OJ7zcemX2F
/3n+oINHXmTRf3apueHSvaT0PxsFND57zvmflXTkBn2s3v1ziGZLRrYDK6bs
n9M0Xx2npf3SLv/nN5p3ZLZxs1r+3zWazl+vK17yrfjnNs3dYfV2O+Xe/7Xn
kKbiDpkkevE/W85m8/Hat7cdrfzrD4vZZw7Uh5rP/PDXz2XZB3P+pL8y/md5
FbbeYpmqZXH/bLiJvcFBt9d/8J8f7mTLVxxf2L+56q+v7mUvVghRMgv/52tH
2Dy+mfov2/657Ay799sXe9l11f/szm7SnPS/duWvpSr92GUR0o96P/81ehzG
fj6w+Z2J/MdpR+dFseMN7H7lu/x1WlIC+8bjID6Z0r/mjKSzvfgyll+VqJl2
S18ue4Xudb+np/866m4Bu9r31K+vxX9tIlrJdivQ3z5ryadp58l8ZsvyKj5S
cv5rYZ7v7PJN/PPNKqbtqZPZwT7r2WHvJVtLGSXn97ElXxVVJLtN2xOtGWUX
TcYq1VRPO9ohcwZxStM7eFLh87QtY/gIcTerXjmvaVuOjgkSnBzYbfBl2r3s
NWKE7Qjr6fnVX6avH35kCSG0bkIo5vK0v5iLLCNyz9Y7ljdO21NGWJE4lPm8
ZlC1jnLk9sC1xPzf4WpLAqZtsNdEg8haczZ8689pe+plAGFx2mjYYUM95XgN
Lx1iduoas7vXp22otHc7kdqzMKegY9rrH300IMwUuRJc+EqZKN63h6AdL3cV
uzVt85zfe4mkpOSviEvZ83dFhyVh2OGnabe5gXLNSroNMS539F5Y5LSHDqy1
I2JtNv/J/00Z7Xy06jShFytzsG17I9Xv5Z0fjsTgjxmchQ8pc5huRi5ElPQ3
qfWj0za+ef8iscXypZe1QRO2pYbyoBdBRkX+8E+gzNEeTPElIhpdtbP+UEav
YwSvEZuY5rFNe5qpvOaSejDRuXfdLL4UyrThX/dCiXfl/BniPN+w04zmSoUT
kt3nD6WsmnYSQ+UOcWbeL2Etc8qeC907o4iiFWYFtT6U/VaUrnpI0LcXOx1P
m66f7NsZR5yyVV9Ga6BsuTShNZEo8Iv7dGPOd+yQuEW0FEI8UeSyggrl0zM+
1aYR9sXe6i8tKPttj/fIIDht/W2G1yjfUEnwfkaIzLa+1Z41na8q7c4hbJdV
6V74TpmpV1n4gnipg0YEF/zAdg1UXPCaEDqcmhinQZlT4Oz2ljjiLWm+4TDl
xN+XVIuIvIeBcyuDKb9xCoBSQvDNRM6hPMp2dYax5cTh78ftRtoov84KVvtA
PKd9pQcK/cR+a2yzs5qYL7W9TJqgzGmwfFBDWEKO2zNbysXtviqfiSwLecUd
NynrvVnOX0/wu99qaOZQnrGge0UjYXFvdqBTN7ZnWVKb/jfiaf5Z9lzxFuwT
ZUFrfhCzG1p67mlj0/YfLtBuIfaOG0WtPUXlxpHz/NqIVPrbncV3qPzhsBjP
L8LM/EFqbx/lg+82JXAJ8qsx/0N6KzYjVa6ql7hswWdjpI3tyWese6KfYH7P
ezXTHpsTaPNLYYDIOHSK/uwGNrIunTN3iNjetvTs0RdUbsP/dP4I8e1YbaV4
G9XPOW7+ujFC4CTb121dG84XbankmyLienubFS0pL847W08DTcfYDU1+2JZi
x0K28sDHQdObwenYtH4N2gdesHOZ14vqqXxfj/iZWTBj/OX2fp52nJsHrFee
AxEXz8TFrKS8z6V83lwovFS3d/ZF7OihvpXSC2D/rMCs7DhsdC96tsVC6L+C
BG3fY6dVj61rFgSpwITCsiUd2LVLN7sIQ/bCfVIXt2JHLxP/+EMEdoYKuCk5
YIeAYZi1KFy4dVb5+htsDvvanjgJEKYr+Gt1YZ82vLLRjgHJkQ2tv4V/4X7K
HMZWFnx+oH3XxAZb/qeKbZIUnJQdHpwThD1S5NjIkYaZCckGOc+wNTzqv7Ut
hbWPF81m8nUCjU9Nr8hyGZQqFVpWKGPT+NuLs+TAMt0lz90cO0Qu/xZDHgKf
NZ/+noztUmw8xVgJsuvDykI/Yhuo25dnK0Ju3hY5nQmqvnJP9REl6OCkfI3X
78L7mcjvR1sDHtpW6mbO2A27eEqH1oBokcj1ufexS2rP9A6vBe0yty32vdgD
TIftTDWI+rQtfU1YN9AyXfuqh9aDmtnkvJ952D5nedr1N0J5fdqRGy3YBoJT
T55qwmizGHNYrQdoAYc1a+MBQqzLnBMtsPcrfHe9i0Cu1b3K/Aq24vUvssc3
gXFn6+X8L9ih1t3zl2pDl/3t7ydmcHH//T1P5urAJVJPc8kKbOOhlqejOpA2
kNHn5YatulQx5fcWmDfltV9XkgSaoM6E2J4dEGFraqG4BVvTKc3aQw9kaxQt
F53Ettutq5+hD0TS50NfX2DPio06wjSAnKTwrGylXqDtuqXA/80QaAe91JO1
sDN4FlyIMoItIvbZkSbYv4PFA6yN4aP7phwvd+xysVRyfA/0GHXn73iP3SOz
KtHZHFTnfmYTP7Ansyd7Du8F15evXyoPYcv0vogz3wdzFG5xFkv2Ae3EseZP
JgdA+s+mguYTfeBJ/1ATWmUJxzIUN1d7YT/b9eX3ISt4ckysqOAmrj9rVDcy
agUbP3YXJ73AHvUxll1zCPYk3ipzXNAPtI9V484VNhB54JLeEWnsAK1XJ9yP
wA+hExVmatjnZ4k6qhyFUxe1KtkHsNuE9jQlHYOrhj3Vc1KwRxfyJZQehw9z
vhiNcbBTYnwvRdqD6Is3Nd012N8St35yPAExyyNqqyawWYskRZRPwYsJrfq7
er/Bk7NUXem0A8x8umpfkOVvoLVndKzsdoDtR8UbPJ2w+S5N3rI7A5+rehpt
IrGviQnXnHSEvviI76u7sdOj9K7cPAvLdnM73voP4PXeHxK2cgW6h+6Gow8G
gHNnx5xhETcQTIn2588eAFRvtlKu3A3G+IyUdv/A9ZmVFT46F+EDJ9uxSWMQ
UGg18Kz2hEKuYKHXzkHgWEdW+4R7Qi7TTnTZ4UGwLE6LK5nyhDgXZs7xYFzv
Kzsc/dkLXJW9/oy0DkL0TJ3A7khvOGVRvytyHNfvLkiuEvKBwwEqD2DREFgK
xTSEXPOBXR2t2pc1sRftWJ7k4Quy0duvCocNAefg64wQzyvwfqGIiBIaBk8E
IWHN/vCWfcKmag/288R2K3zCPD9e9MzpOHaonKzqvECIKXYxzwsfBo74y009
RBC4eDRGbe0ZhpBZHIVzB0NgKRmvcOjOCCjnpoc6LQoDMRbNbXbaCJyu2Z16
1j4M5u8wL08qHIFvawYk/UrCYDh+3qne3hEw6G7nb/G+AeUWpzMv6o6CsrHH
kYA54XDu/XqIGBiFkHSBS6u1b4OAUlZrKd8YeOp/+7g78TbEBioHjDPH8HPR
kG0ncAeq9JbXWWweA6nmDXe9Gu/AyjIRx2XhY8Cp25imdyUSmovJ+KfrxiFC
Q4mvdGY06L6OE6hwnQBx0d2fyZYYaJKSzvoTNAERl9WyGMtjwckzcp9yzASU
XOAWFtjGwgMISwwrmwDO56s6Qb2xMP7CU2svcxLMFknkTfDGQ2ruPuf2F5MQ
gkTPrtVKBLHMRU0zZkxBxDcrpbmMFNgfMG7cIjoFKHZevJtjCjw83FpWpDgF
JZMDoW7lKaC4OCfH32wKNPSCbi31fAJazpY3F6dNwcgWUY+Z3FRQjzSNv7Ga
hgaq5RXbHNLByiL+QGITDSl25uUcupMJz35ol1dq8qAbmr7ipUl5ULvVqy9Q
lweVKNSJTbXkwdCTl6J6hjxoq/RRv+NS+bDObb1VyVEeRFunn912Kx+eC68e
4oRi89jSD159ATk6dKmnHbg+pGaE5fwK8uN7HW/c4EVt84XzPHJfwxu7ewzz
7plIxGCtVeVEIQzKsRemnJiDotsVKz8/eQ88o48EGcv4URinyiPgZA2oT1k+
M3oyH301DiA7reug3Ef1fdGKhei16aud8XuaYElI12gSVxBlbTzvUNLwHbqG
m5s+KQuh1jAFMNzbArGdee8EgoQR+S50u9VYGwiwEsiWFhEU83DqyBbbXxBg
m3UkWlYU7aw3u4POdUEnSvGbt0IUBeYY/Qn26AJd8bhk59WiqLaVE1x3pQt4
im9w9TaIonntluL7IrrgvKyT8+guUTRfLei9aE4XHGlee9nQTRSZHTPRtB3t
gk170uJmVosiLR6rHPbZbohSTCw+9VkUDRR6C7+50A0TvNG/6htE0UK2hh/4
dMPzp8Gr0ttxnlZyfxk+p5QET2UdmBRFqy/23ruX1g3MslWFz+TFECHueV+t
sxuG0KOWYx5iiMPblVlh2gP5sV13z/lg/244N3igBy7xKRpdviqGXAUYB0QP
94DAh8evY8LE0MM6pXPap3tA7uCTqKYEMXRu56Jt2/16wORiupnxBzHE6zfm
Oyu7B7JysstBWhy5g6m6wEIuuLJGvHfKiaOahys6d4lwAXlpbDywUhxNLbVa
cg3/cyjfmpPkqiaOHozz/GmX4ULL59zLWdvE0USFn9Q2DS6IDL1AK8+Io2pV
u6Z7B7ngtLYgU/StOLrPbE+7kMiFI6pS0ddLxNGjD+M/ZVK4YKZ+wX/+e3G0
yfrSz9fpXNi4QdWap04c5VR0b/qRywUerdiFXK448hE6sTeznAvBu33sCukS
6PX+bUfvcbngafRtD5KSQDJHC8bT+rlwZo/mprxlEsg14feevCEumJgPiKUr
SyAOj9zBzD9cYFodLozcIoFc7Pvb1wmQkHxaR8rpjARi3+c5d3klCZFnoueR
5yTQkLn/qjmrSQh0mhiyvSiBHuR2lrmvJeG0S2bFQT8JJMDKfG+4noR1nrJu
O6Ik0NwWvv1B+BwvCJ5Zu/SdBFr99Xui6UESnl23fH2vUgJ15m8kt1qTkBiW
/1j8kwRaftPYfo0NCf63nLwFvkkgumCjbIcdCYb3W5THBiXQq7fGBj1nSWh+
UuBfJU1HhWIRqgeukfChZ2b32uV01DiPVyU3gASO4ma9G4p0VGp+fu3CYBKi
kwvnm66jI7v2Q2YPwkiwji8KbNCjo8Ux6TpHI3H/1tlctiEdVVUX7vSNIkFb
VnfnfVM62rFsRvzdaBJkHxYLWFvTkVGZvE16LAlt90qC28/R0WCCoMGlxyTU
NvD1br1IR+Y6c7oPPSGhmLHNIPkSHW0tql9JpOH13S4VPBFIR03XPQsbMkiw
u/nuev9DOlqtte/J21wSegLKwyYr6GggZ42WdjEJTWXzByw+0lH5komGzBIS
3vPrG3O+0JFhW2bbknckPPGrEPH+SUf83snuP8rx/vu8v8k3in9vYqs+o5oE
y7cCQ7Z/6Ojy2dPd5h9J2M2zy6SMl4FSS6LtQ2tIWOtZKRokwECl50L1+2pJ
GHD7cEtYloHCUtXWH/tKQkuu4IiTAgNZu4T7n2sg4dOogVmtEgPRSyPXezXi
+Z2rEr+9noE2qzu3ezeT4OJYfVtyFwPZGi/X3fqThGNPhcY8jBlIS/7TWsUW
Esz7DPd+N2egM1V/RvlbSdhw6iM99jADdUQJ7s9pI2HcruaugisDqbg4bfz6
iwRj9QPXlTwYqFhoUM+/k4THM9ouq/gwEFs3xGRdFwkWEcMO7CB8/ZRdft7d
JLwupG/d/ZCBTokm/ujhkkC/HsM2SWAgVqT7Gg+ShDP7FVX2PWagJl+j1vm9
eJ6/2ZI2zxhoRf/Np6w+Eq5IWQ24vGOgLt4wK9HfJHzr+vXrYiUDPT5wzCQA
WyP7TPOlGgaC3TqsKexOfZ93AU0MZNOkY/p1AN8vEgs4138y0NNJh1adQfy8
tNzMCu9goKn5WW6PsPXdEqKj+xmoskhx6NQQCfFblMPjhvF+1EkOVmD/WZTj
nzzBQDG999coDJOQlvjOOXM2E0mka0V8xhau7dEroTPReImX/+JREuwfOGtV
LGGiI4rZbRbYBfZT66plmUhpZkV7HLYz7yKZBiUmShs7IbBqjITK97fFv6sw
0XlfJf0T2PJ3lgq0aTBRS7zG4UfYdcqqo6QWE2kO3NGTHsf3x0Q+d0CXibZw
TqqbY18r3twyqsdEB3O8FIKxNS1MK3lNmWimJLFvEPu+v2uc2HEmWjC3Vu3x
BAkjJrx3maeZqGodK+MTtsHSgBDps0wU8MYqfBKbJ+ee20oPJvr8sj936yQJ
+3zkHJR9mGhXUf8ie+zMXalH1K4y0eaBPWOB2DZtnN0QxkRLlFcmVWC/TN+m
qxPBRPKjqj5d2KIXqzW33WMiAZkPEnx/SCgRbllulMBERXF6kWxs6WZ7ltlj
JsqQD480wXZNHhQ6kM5EtQbI/ST2yk1z/hzJYyJ0qYr/LnZa8qPlXzi4n9Bh
t3RsVRGD3duK8Pp4bxQVYWu2R8SurGKiq36PxbnYHAP2+8haJrIZ7VelTZGw
Off78IIGJvIPu26yCHtn4IodvW1M5KM9q1oZu3rovZNVNxOF9u0FwDa1dIyq
7mOiuJNz6/SwG0rFSrSHcX/39Ynm2JYq+X2ZE0zkO1abZYPdEmnJkONhobK8
EH4HbNvZszbfmsNC7WFfnrhhn6nTjzgvxEKrmhNnB2MPafW/7hRjoW1GLaW3
sN0eh3ftY7FQgJrIxH1smujGxRVLWehtlmtsAraPRzNByLNQ5QTr3RNsvl/e
x1JXsZDutRLHLOxAQ/lQKRUWuhY9NzEPO3yZQysPwUJLFI+WFmHTgxcvdNJm
oaqr7m/KsO+P5Gi0bmWh8gsyFh+wZa0trE12slDLgcIHNdiJZTwBxUYstH3s
bugXbEW1hCwNcxZ6aZmo1oCdFrWjOcmChdzzsoKbsXMcbqwNsGUh9HvYtRWb
+Kqxf/IkC/3hfSnSgf1Gp9H3pBMLpZ1Lcu7E3vLEK7X5PAsZ2V+O7cZ+JyZX
Z+DBQs2KfQ+41Hy83vG88WGhk2amZ3qxP3aeVFS5xkISQqPi/dhmxsImscEs
NGd9Z8Rvaj4vsj0W32ShxgThwQFqPsv3J12+g9fjqqo8hN0aQvs4fJ+Flu//
qTeMbTcWO3EsjoXe1ATrj2BzD22Tq09moRsPvVVHqXlV9OzakcZCLotaeMew
h9VDz+dnsZCpacYLyhei1WNW5bGQUH/VoXFqXvxfy6M4LHR6Nm2Eso+jx9DC
Ihba/6rJbQJ7bqOMlFcZC+193NdLOWhLybb+Dyx0WzLabBJbKM3e8VAtnr+3
eiblcIlF92q+spBFfvvMP9gM76yizd9ZyNbh/Q7K0d3mvc/aWKjUknuVsqzJ
Hwn5bhY6nKDGoZz46qH27T4WCuF1JymvUtA9wT/MQq8Eg8SnsJ+GdoW7TbCQ
vhtdk7L6RDCne4YkmqtYvJdyro1q54E5kqjQTv4sZaLyi3DlfEm0f/itP+U3
GhfZSEgSFYgL3aes+1D6aLqYJEp+4J5KWTVCQK6IKYlWPQzOpywVNN5SLy2J
rtdkF1Ne4NMRQ8pJolGuWhXlsfOfrGcqSqKc5k11lNtPvZGWWCOJbh9c8I1y
jU3qt1XqkgguFLRS5uyLvK+1URJ10IM6KafsvmphiiSRuWMAl/IdXWeW/WZJ
JO7d2Ef5MvtQg+d2SbTy/N0Byo4qBndv7pJEO+mNQ5QtFdh7k40lEcl6NkJ5
w2KxLx8tJBG75dQ4ZeEZfXsmj0ki7TC1Scrn08z0Y65LokO1GVOUmw9ydLbl
SiJv8/FpP3oZrHJz3hKUOzU17XOsg0u/71+C/r4v6QVQrb1SNPY//x9+ES2J
"]], LineBox[CompressedData["
1:eJxF1Xc4lV8cAPBbyM5ISkn3vVcyM6Iy7ntOhaxKKlRkRKRll6IoJFFWSCq7
ZWWERDZlZCsiI6RcVyE7v/PS7/H+c5/P8x1n3HPeF7O8aGC9kkQipa4gkYjf
nn6Bt9EryZC0+IyCAee3OvxuZFi7QDwMEDNP8d+fgOIKM4ue390q8TOPDNl4
wxd93Pf2e7+PZDjS0TVL2MHIVX60mQyL5qWnCfuJn3pg1E6G/I8XxgkLBB/b
z9lJhvWUrb8JP5k+uOLdVzLc1/lihLCkpWa2Yy8ZCoSe/UH49Qe1M2L9ZCgi
q9FPeM/27ZvaB8mQWXb1V8K1DyUaAn+QYSJLRBthY2ayz246Gbo6Pq8j/O2c
oPIEgwxzalnLCNu3cNGf/SZDfe1zOYTnaEyxJhNk6Cvm92xxvknTR3inyNCv
e2UE4TU8o2xlM2T4W9ftBuHGAv9b2vNkGNSgeI5wyLktqz4ukKFkwh0DwgYb
i7yPrMRgTCGPEmH+D8eZ2pkxyCyltWax/vKElxkrBsdg+vBfon5rEKmfHYO/
Ol8XETZolbxux4VB8ciCu4T5fcrnGasx2P1znSHhxu3m7i58GBSw4hBcrO+d
mZlZg0HPwve180R98H03T0EMRnJecSfMB+WmWIQw+PWDDEa4fuSD652NGJxj
6n8zhxz0yHqCVwSDmGmAFmF9PZJzOBmNLztXNYvMOxv1eyMVg98jJlUI1z9X
cojdgsF9d6QezRD1xvUMMXEM+vbJjEwT9axnLyRLYhB3cJcmzPOahS4vg8Fo
TnfDKeQ6q5izObIYNIm9ZDeJfHeN6g81BQyO6zw5/Qf5QEmLbYkiBr1OsmpP
IK92sB/ctxOt3+cpzzhRv5nzdK0yWm/bsdzfRH1d4jcDNQwe/f0Z/iLqPeCp
TzgGL2wqS2Igc0t39JjuxmDo2bBBOnJNu4t5314MWvUlkoaRA27zfrXVxKBl
sjxjCJlrUOOLky4GW5+OwH4i/3738en9GDyW1vOol8hXv/r5mj4GYxUbSr8i
642tNWY+jMHz53enfUHmjEtvvX0Ug2EqQSafkT/o6x7lMcagt9d4ZQuy/0J/
U9hxDJ4M9KA3IHOYbmx4YoZB8ygHw/dEPufrg1ss0XlhlQsuI/Lf6Ne9sMKg
PUee8ztknTM/9eRsMLj69f65PGT29b7V2WcwyOPETM1Crqog66iew6Dx46q+
FOI8u+RXFV3A4AmZ48pPkdmaRsurnTD44xRHYCSR73VH/ZArBveo1V4PIvLl
xEpbL2Pw8anE0VvIrHdPFPV4YLBtx/h2F+QKtT+4jScGh4ReTNsh+/4MKhi+
gcH0wDGqOfIq7Yo3k7cw+PFXvb8WkT9pruzhj0E/A7U8VSI/aTZnZSAG1eAP
2W3ILMzy2dwhGBQ2/9jGi1yWUb09NAyDyqOXpknI3hanM9ZHYLBDQlN99C8D
ML97mEaNRuu7qK9Yg9yupq719TE6H0MFwjnIaW+Gu6NiMRiFbemOQT7+msbP
/xTtN4fOB3tkOcWBF7XP0f1hffnZEHlVxt29t5ORn+6/r4r8KuWrMykDg9sC
ZLpJyL5SftxvszAYdFXXsGeeAUyeyyVdysHgFMsFzSJktkSvtpG3GLTRUDR3
Q+6iSNq/eIfBrVt5Lx5GzoxpZDtdgkHOIcsSKeST0VSVzkp0P1/l/m2dYwDF
DTWNkR8wWMZvV/0cmT3S+eyRWgyukv8VfwU5K7Q8uroRgzp7B2mCyP58F5Ru
tWBQRfZRT/csA5jfE6zb8wndV3Le0efInHdsFvI6Mbirle6wHbmbjTfSpRuD
I3Gcs+Mz6H3qmysn34f6kaIFs5Atb7BbPvuOwaRbweWSyLluL8vCxzBYZ7kG
TE2h+zV52NTgDwYrktgfJCCfcpmb4J7G4De53UwHpoj7uX+rz18M0m/uL4+Y
RO/bkYl3cAUFpj44OrsT+c25x8ZzTBSoo8L2t/kPA1jbMm47sVNg4o8xURZk
lYEIiiwXBbofKBOLnEDvGyuY/2M1BUretU/fivzWLHjYQoAC7dkH1qqNo/eh
0faD+pspUE/IE+76zQDfmzsGOSkUWFbYGpnyiwEKDLw9K0Up8NZnQboIsu2B
lle4JAXKgM49EwwGKNS4JCCjRIFVIfPZF+gMEFa6OeX7Tgp0TqORSoYZ4Mzu
Ko0EFQqEwCOPF1mAJnRpI6TAmVXlCjE/GOCsYv5ndl0K5Gf/YOgzyABF9S3J
ufsp8BxbztrXAwyw9vzodRt9Cnwd3DjY088A7xK3iJUfpUCFmkvekt/Q92Rd
kKOnORrvHV+HRzeaX+YLDdlTFFi7J/2Cz1c0/4Pl67usKdC/YTTsVhcD2PjN
FKqepUBNitvxq18YIH/ainPShQIbuJwEN39C+xV+vSvxMgXu2Wx5Z7oV7a9C
1KsjVymQrBOyrq4FvX/PfjTK8KRA78Z+Zesm9P99UU44f4cCLQ+0sOvUofPy
bjXtWwwFzrnSj/aUoPN0QoI3NB7tv4jwFcNiBsie3Nu3O4kCd5iLNpe9YwAz
ObfbT15SIC75dyLgLTrfsX0tx19ToMfae3ffZzPACe/cCw3VFLiPZcZjKIkB
0slNuz3rKNB1bANtOAHd9wK6gGwDGr/L3HkwDt3XCUp+QCsFvtxqg1U+ZgAm
m0BWrR4KvC3eaCwZzgAvtS1jCv9Q4KGf+X2XbqL7Io3hYJoClepInuJe6P9c
3d3xbpYCPUM0VzdeQ9+nJtN1xSQqNNpjPchzhQHGTY/dLeWgQgG7dT1K9gyA
O+q7V4lQ4XB/KqvYCQaoPMKzQRujwrdRVO5Txuj7tbMu5z2VCtm1K1Iij6L7
Mac79kGcCoWzTdLoBxnglu8+u1oFKhRlOrYHV0fjReHGjZpU2Ort6eMqxQDH
POYnDLSpsD176KqqOAP0mr0NbdKlQtubEm1Tomg+oiofm/WpMGfdYIaJCAMI
pSlpth2nQsPcreVVvGi8UmnFLxeo8OZNvQG58REw8XMD70A4Faa2x8arZo+A
sEeDldEPqFDTuHg8LX0EbD+Ydf1wNBWmh+3CNyaPAIeM/YyiWCok+5oXtcaN
APplz7qHyVS4S+pCVs+9EdDPMhBwqIQKcY6mk9q2I6Bl8yv2AjoVouOp4Mo/
ApwbPIqdRpH3Kv2s4xoBa27quEmOUeHKbUzsm1lHwKGBvu8RU1R4dSbPL3GW
DmqTBascmUThp+n5bXrf6KBc2d1XXEgUvjSL4GfJooPsw/uYwtRFodwWC6lD
++nATzfXR3ifKExZcJQV2EcHJnsl2BK1RaHowD3rekgHK7dzcr8+IAqtbeQ9
FRXp4AD/R8FPxqLQfXzTxuQNdPC93lBS+LwofFxqY31yYBhsOHD6UMJ9UWiZ
+rBu7vIwuK7l8yRrQBSa9GVFPQ74CbBOnU/xPlvgGSY2eon3EFDZ6R0mpCAG
u4KfT8gLDAITkY/TK5rEoJ73Ad6GF9/AxIfAXnuvrVDCSaHj/nQPiGQ+6Wwg
Kg6ZjxlJOXd2gTVd2XEry8RhBVdnQcO3z4DFw+uIsoMEhAnJFX2RzYD0/GRa
L78kVG+nUyLSPwLHqLRA/hJJaFV0/bIapQLkzEXdKimThGxpN/Gmv+Vg7qSv
l2OlJLSfnOHz6CgHt6imLo01ktCbz8CS4345iE7mMA1pk4S5zHsUedjLQXmh
tTQ/XRKKnudS6hovBev7NlbzrZeCWkbbr7l9KQamGqzlxRukoN/77hev8otB
3NPfhQ6bpCAb4OJY8bAYSJ97n9FAkYKKwyMD/ceKwe4J16hgGSnYLFxTU/2p
CNixNp7h24v6tVul6r5+Bwqk/Nj4LkhB+7ULL+f688GO5nW1IfZSkHfoo0x2
aj5Id38aLOCErLXt8KNL+SCutmLD+stSsIoPmsyz5wO/iywym29IwUiytcRK
+TfAIPPGIZlwlO8xpqTnlwsGVTyitAuloLjwh797TbOBeR+XWXURGu+j09oj
0tmg/U40dX+pFKx3fMkdNZsFar7kJ+tXScHvNmLHqqKyQMa1mUKjRim4i2eL
ZmZHJnAvudRnPYDipalR320yAJ+Oo/SN1dKQd4Lbo/1oGogp5uFU4ZOGcv03
BzlmU4GccsrQrzXSMN077Wl5TCo4IP49yUIIxe9r2HXQU4D/qpPYblFpGDQ/
aRt0Nxkwl2oLklSk4WhI9uWTP56DUJXB8Rw1FB/Mu20Y+RxQMrybLgJpCD2t
dnRqPgcw9l3QV3VpSJYO2RGR+Ax4XFfifHdQGtonZSuUnnkK/qhipGvWqJ+g
ecxm7kTgk1nYpWSL+qV4yguWJQABKZMCuh2qr5+reHQ1AWzfEHHF1B7Vxz08
aD4cD+ynuCbUrqL5v+8PzGqOA0NZU0OzQSj+pannSVEM+CJT3+T2VhoWbUma
sOGIAk9+8nkwvZOG5mzdr2rjHwDL54fFAotR/8CuGGn8ARgSbbscUyENY+gj
Ic0ukeDPxq5NlfXSsFsvEBSPhgM+jmEbgX4U5w14FC8QBporZfgeD6L1eo3p
nS4IBZE+F99s/SENPVt3bN9gEwpEVoxxqTLQeC5knsMFIUB6avqVxbQ0JMW2
zU04BwPNAda5VG4ZCNWPGGSR7wL2BO3EXbwysOjj3uDMe4GgxuLOgRJ+ZPHa
OHdSIDjcuTq2ZR3K50wZsBq8A8yb12rOYcjV4ynGH26DqyXUIO0dKL/TVYC1
zwfgntbKTbtkoGd3dEj2eR+wEn/aa6IqA0nySi+5ZryBX56kkj1E8XWVyi/X
eYPwdPn2cB3UT81x2Pr0DZD+GIh+O4niL5Vr5J9cA2NXxlgtLJCZPjV2//AA
O4ye/uw8hVx3IN1e2QPk8/BkttkiTxQEb/p6FVR4du2udkQ+5hCxRs8NsJmG
bNFyQZ6cPyafehnoKmuyl19CLg8cY1pzGdT/SqkvdEdenVeV/s0VdFh6mGX4
ovl6phn5PnUGIkB+r+xtFD8h4/VMxBmYb+wXS76DfGdXrH6kExho0htJDELO
7A3eEOoIRtWFPR5Eofq1Re+HEu3Bqq35UZ6pyKQDtHkXO6DNdPHafDpyb1aV
XNoZEPCVYnklE9ljx46nw7aAL9JfwjkX+TR3rLizDRBmP55rU4Js2CzEk2UF
zPq5o7+VIUe02fzktgJxxcXXLSqRzcghsWdPga1XJPadqEG+pO1xWsESKPyc
ajnQisz/aqigzQy4VCbnVX9CvqwjLlNxEuTGmz/S6kAOSnt4Nd8U0EyqrPZ0
I7u6VOi+OQG0aiPGlH4gi7o0NrAYA//num0Zw8hyJicOixuBWp+FN7IMYn5n
hLr1DYEBbnNDYhx51U3OjMwjwDRtB9+mv8R+dkaeKDgEXh+fWl1P2gZJeFRz
wl99sHrVG66bTMhzeXfWaOqDIhMa2xAbcsCt+ILa/WA92wJLNCdyVtrs+HU9
4JBZxHRwNXKQ3nsnmi6gcKgvZK1Bfha1X+uzFriSzTJvI4gsbHhwc84+0GRe
ObNBCNnK5zR8ogm8c3T+eIogR04csw1UBwNWh+h6Eshyvr1P2iHAedf8XJBC
zj3JvJYZgoj85u8Z2whbhPecxYEWv/G39YrIRc6lP06pgpgCod7qHcham54a
TyqDaduOr9eUkclxF2oe7AIv3p3s+IYj+3l/5uLYAVaeJX+O2E2MLxVGalME
JwR7W3XUkfU1HbRebQdc560b07WRp/LrFALkgdX6rfWn9Ij57VNmC5ADBaXf
awUPIpuXHJKVlQUXNpx7734E2TPBPidGClSUy1TKGhEeHn0yLQE2OzDKeo8R
/TMFZk+Lg/pKxyItMyJ+0lvafQsQd1IsnLVAHuVdiKaIAi+RP/mpVsi8gnez
2ilAwcUtR8COWI9z/nYPMvAnq2ZXnkOOWTCIrxEBfdVzGVcuEv0qXq0qEAZh
FM/Ubmcinvv43Nh6QK/dnRx6ifCborU71wFNN6YXmleI/VsTvT1sLZj86JuY
fB2Z9Pzm2XB+oH9VK97sBrG+mFU2ynzgmRhHLL8PkX/RSrGPB6xorH5cfgsZ
ul3gdecGxz0Coy/7E/U5WpdUOUGG+MEoqUBiPkIlAZvZAWczb2TXPSIeuv+m
GCt4KxkWqn6fiFfKiYUzAYHWo8GTEUS/gMnrsyvAea91915EEePxX13rQQIV
0p8DTB8R9VdVShT+4iKfovx5Y4j6jNDWR7O4600Tv9I4wtxxYbum8Y/bRHxd
Exfj7uqkSdzTJ9brywvCP2UwrjGc+xKrjkUK0U/k9j7bX3iU7Xn+gTTC2U4a
FQxc7HhTu10G4XiPmolhPFNXOZ6RRfim2qsTP3BIe3LWOYcws0jS+CBes41F
cTqPsLDajYJ+fICvoWzlO8JMfguNPbgj087AW8WEzwQtCHXjC+PRR7nKCH/7
ocHZiQcMrBQJriCs4PhZrB1f/8l2YO17ws5RC15teOL7utSoasIBF9XWt+AK
+YqXNtcR3nBav78RL0yOAgn1hLvCdvTX47qPSWwSTYTV6zXE6/BP907Xp7QQ
DntC6vyAW3nVRCp8ImzV2NlTif9yVLDIaSecoOstV45fs4qUUOskzPZ1vqQE
5zD8+6voK+Hm8MzQIjxin9UbjV7CU7+bVApwUeUPNz58I2wbc+V1Hp4uKad7
cJDw9x7V4Nc4TTh8TfMQ4fXCD0oy8Q/ccx3Gw4QjhVL2vMINFywSOkcIw3Bt
gVS8b7TynOUvwkUq9qIvcPteGaXBMcK8TRrPk/C5ptD5s38IdzOrRcTjt8un
y0enCNtXpvfF4II5ZnddZhf78ZawP8Ljn5Ubzswv5tNy+iJxuSipzddJsshk
2SH1+/jbO8GDTEyEi545iITg2h6TaX4si8b9yu/irRdML3OzLZpdhtMftzQv
hSEchGHF/UkfnHFIgn0d96KjMl1v4O577zU85CHsWfxn+BrOrjTxgMy/6PXu
tW54uNgJy0SBRWewOLrglPXFkpLrCJOeVBQ54GnsW8dShRbtl6BxHlebDcjf
LrzoazmstnjV8O+buSKLZvodfwo/2mWsR8MWLZc0YYb3fiwUKKEu2vxmzzH8
YrFop6bYogUOdRzB5zL8E6vFF62ukKeP+yWMnteXWnRRS4oOvjbccEeLzFI/
L0kNPO7W27/H5BbN25AB8W1ulMouhUVXMSuo4Pl2fvdOKS060uKcIq5lMmL0
fedSfl+iLN68/wj5vMqiSYUm4rgFePP9l9qiYX4MBR+RI79yBYv2jNMWxq9Q
fN1mdy+afM9gLc4qMLzbU30p//cADx7GYsDBsm+p34MUVpw8mdN4W3sprnBh
BZ7yfdPD1XpL/ZIcpml+j3zMuw4s5XPn/KJZGdC3pB5acpXFdxpkPfrT48iS
lUK7acJv36bvN1qyP2ilTdmLum46vmR311pa05YAVbrJkutVS2mp7WOkArMl
mxfk0vzvnagIsFyy3OE02mn10jsm1v/iXvG0PdOSh6Rtl+zZFUETSQ0RnLNb
MkwOoE1bznRUn/8X7/OkNa+zjH1ov2SSuxMtveb96bNO//zXmhbgJS+t6vrP
e4xptjse/OJw++f1OjT1n6Sc9qv/bK5K2xxj6/7i2j8XSdFmjtTvvuL1z54b
aa3su1h1vP83By2j8EmN0K3/PaV214k1ZOj2P5MG1OzELxrlBfzvZjWNzlbh
2/f+d5EaOQTvNQ753+lqc5pJT8Xv/28S6dMs9/mpiGVnpbsoVEUtO8i6czLi
0f+OUTu7QaPAJmbZFG8BLdak5fy/u9y5254t+zO9rzHp5XJ+kFGmqear5fiC
pIGTz9tlf2m495ipadm5vpOnmlqWHaZqJhH/adm6iduy9nQt+83l2vdeQ8sO
l1G6d2h42Q690UcwxrLF9c59LRpfNvOK5oSgyWV3Z6vamc8s+61dvKzc/LIj
NnNOLCws+z/I/KZy
"]]},
Annotation[#, "Charting`Private`Tag$37827#1"]& ], {}}, {}},
AspectRatio->NCache[
Rational[1, 4], 0.25],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->Full,
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 16}, {0., 1.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{{{0,
FormBox["0", TraditionalForm]}, {4,
FormBox["4", TraditionalForm]}, {8,
FormBox["8", TraditionalForm]}, {12,
FormBox["12", TraditionalForm]}, {16,
FormBox["16", TraditionalForm]}}, {{0,
FormBox["0", TraditionalForm]}, {1,
FormBox["1", TraditionalForm]}, {2,
FormBox["2", TraditionalForm]}, {3,
FormBox["3", TraditionalForm]}, {4,
FormBox["4", TraditionalForm]}, {5,
FormBox["5", TraditionalForm]}, {6,
FormBox["6", TraditionalForm]}, {7,
FormBox["7", TraditionalForm]}, {8,
FormBox["8", TraditionalForm]}, {9,
FormBox["9", TraditionalForm]}, {10,
FormBox["10", TraditionalForm]}, {11,
FormBox["11", TraditionalForm]}, {12,
FormBox["12", TraditionalForm]}, {13,
FormBox["13", TraditionalForm]}, {14,
FormBox["14", TraditionalForm]}, {15,
FormBox["15", TraditionalForm]}, {16,
FormBox["16", TraditionalForm]}}}]], "Output",
CellLabel->
"5/3/24 07:35:34 \
Out[341]=",ExpressionUUID->"a172c69e-c750-46f8-b516-3e951b44fdee"],
Cell[BoxData["\<\"0.5-0.5*(-1)**floor(X/8)+(-1)**floor(X/8)/(1+e**(8*((-8+np.\
mod(X,8))**(-1)+np.mod(X,8)**(-1))))\"\>"], "Output",
CellLabel->
"5/3/24 07:35:41 \
Out[342]=",ExpressionUUID->"622e8a38-c7e5-45db-b117-598070ffeba0"]
}, Open ]]
},
WindowSize->{1680, 984},
WindowMargins->{{-4, Automatic}, {Automatic, -4}},
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d46b075f-7bc9-4179-b16a-f522edb3aba8"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2808, 77, 176, "Input",ExpressionUUID->"f5f67ce7-c8f0-4363-9182-367f7658508b"],
Cell[3391, 101, 4972, 111, 424, "Output",ExpressionUUID->"c478c8b1-84af-424e-b861-3547031dc110"],
Cell[8366, 214, 180, 3, 46, "Output",ExpressionUUID->"7827bd56-0553-427f-a3b1-8be64aa742de"]
}, Open ]],
Cell[CellGroupData[{
Cell[8583, 222, 3549, 104, 195, "Input",ExpressionUUID->"b4d0054f-f9cf-4438-8d1f-20a75cc5473c"],
Cell[12135, 328, 18763, 338, 424, "Output",ExpressionUUID->"a172c69e-c750-46f8-b516-3e951b44fdee"],
Cell[30901, 668, 233, 4, 46, "Output",ExpressionUUID->"622e8a38-c7e5-45db-b117-598070ffeba0"]
}, Open ]]
}
]
*)