(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* CreatedBy='Mathematica 6.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[
NotebookDataLength[
NotebookOptionsPosition[
NotebookOutlinePosition[
CellTagsIndexPosition[
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData["$Version"], "Input",
CellChangeTimes->{{3.384*^9, 3.32*^9}}],
Cell[BoxData["\"], \
CellChangeTimes->{
3.058*^9, {3.326*^9, 3.349*^9},
3.797*^9}]
Cell[CellGroupData[{
Cell["Setup:", "Section",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{"<<", "\"\\""}], ";",
RowBox[{"<<", "\"\\""}], ";",
RowBox[{"<<", "\"\\""}]}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.229*^9, 3.012*^9}},
CellTags->"S5.33.1"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"colors", "=",
RowBox[{"{",
"Red", ",", "Green", ",", "Blue", ",", "Cyan", ",", "Magenta", ",",
"Yellow", ",", "Black"}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Protect", "[", "colors", "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.309*^9, 3.498*^9}}],
Cell[BoxData[
RowBox[{"Set", "::", "wrsym"}], "MessageName"],
":", " "}], "\\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", \
ButtonNote -> \\\"Set::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
CellChangeTimes->{3.076*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{"Table", "[",
RowBox[{"i", " ", "x"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}], " ", "//",
"Evaluate"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "colors"}]}], "]"}]], "Input",
CellChangeTimes->{3.24*^9}],
Cell[BoxData[
GraphicsBox[{{}, {},
{RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxFxW0w03EcAPCNdZRrjMr9adxE5SlOUlKpuMhDneHk8nRCWk/InXR1WrdJ
nua6nZTnh5R2jGyuMnHsdDnPo1GzMUtj83RndnRZ9cL39+JzH0r8XWqiHg6H
C/7n/wGJypGu+fAz2xN8LFJkmLv39kcrS8paMV84cED8vhwLgyMStB3PsQR4
yuWpTwGWDlftvZydizFgumHroWcYG74SWc1dWa2DjXT0KD8rLmwXsqTsyePB
GYOe3iVrH2FzHkmKx3fCbXKf/qFT3XA3rdwyUi2ENQdPGzfe/gLrbXBMLO36
YA9dXFtoUz/cz3Af7HUYgq2LVBsNS8OwSiuTjruOwnUL7X3EQhFMJL9ZVijG
4Pwb/KQq22/w+lmOIjlLDKe7CXn7eiZgWZMwb4TyHf5NGyu1f/ADdjxnsJXU
LoH9aijXW8ylcAY51mYmSgY7qcONxMHTsJnxiqFwE03oLOUeKJuBb7q3T+4M
lMOci/FVn9fRGpWFyVzxLMwP9dNn+yrgLH9mJW8OTZkKmKhl/oRPHmewMbc5
OMpqaAMvQmv6CuQp9F9wCSEmnWqrhM2k/Bo9IXrHI3qYZ+o8jGuI4cpNF+C0
V9wC0250h2OOIemOCiYFpDk9IaphifOwKFOAbq7wtlXELMLRXA8SeQv9mFlN
l7xbghuV5FJi0DKcU86Mk15CJ1AX7ZpC0PsFgubgCHQu62pvfjw62ePl6q5M
tA1jj79BPXrrxMPd4rfoycXZ0XoOuiiiNfpCC1rnQL3HFKAlI6wKfRH6Q7b2
mmgczfaKta+dQAe+PsI7L0V/uj/wlT6PLnY+xgpRo1PlZWGUZfThoFuyrjU0
AT9WV6RFT/O9aHGbaAGt1sX1D/qFtZFGp0P/BaO4ekM=
{RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJw9xXtQDHgAB/BKN6K5yOMMLmYpb8e4rjscX3eZixJTMjGXNClc98I1g5u7
YU3rnZqbhqiI8my0aDN315LJDqOJ1OY2bu1m21tbu/Ur17aK+mF87R+f+SiS
f45N9fHy8op+4+2Rqfa6my2rFr47daFv+JjN5tGhePdifHoyN7/Mcxyi7hmu
FnhOQXyK+/ofntPxZNbe8EzPGSgcuWLPAc85UPqVTd7vuRir15xSd3S+XwN/
qUyIGKfmlQiJabffOqjhOmy7Pxe5XX/xuxilCTR5e1fyWlyzhNfUflnF61GV
VjB2jVPHG+CatGDIpR/vcAN8ekqGjg2p5o8RJpOurSyt4UbUZITevz2tlpsx
PtvRc6H9AW+Cw202PZxdzy0obq2oDjis580ICDonrNYGbsWh78o3FAb/w23o
XlRi3bTTwJ8hfY5O89GtRm6HuVR3sE7xmLfiZVpD3tRf/+UOTP9qYP+GCiN3
IuK0YuOVUSbejm1B6yY8TTBzgRnOVf6G6CbegeFDOvx0vU28A76VeeqJ+U95
J74PrXg0KMrCn6NkaXLhjW4Lfw6XY8xQ25Fm/j/KV0YMyFls5V3YuUR1UmOz
8i4onkQ2Fqn+4y7M+zwjZ/QcG+9GwrjaHm+9jXfDVZ1p2ax8xt3I9U1Mjw22
8xcYbio/7aOz8xf44Hdl3NwtLbwHXhcS1ZZhrbwXW4+rM4dVtfJeXJ++zy/w
Jwd/icDIrTN2Bzj5KxhnPtDv0Dr5K1w+gWBrYhvvw1p1WGBQfxvvwy7VKaXx
YjvvxyV7UF7AMsEl9hWokkzLBZdIiW0LKY0RXOJjrfZydLzgEgeyvr19KFlw
iU1hxzoH7xBcYkLGiCUDzwou0f/Fbx8azgsu8aituf5sieAS2fFla7+5IriE
nBb7i0oruISxLuvEAL3gEn/uca/XPxRcImf+uqlFjYJLRJ35RPO1SXCJv7ff
u6tsEVziyMzPsmKcgktsseTHKYTgElOW/WC+2SW4hK93Q3G2W3CJpvL5aUm9
gkto04pmze4TXOLoeH+XlIJLvAYcDH8T
{RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV0vk/1HkAx/HB1MfqgXRohyhiclQ8Womu9yd6pEiiXJHcSZKsrWgrZHQZ
CbXKXamsokK1EVYTKpEo2RhMk9xfcoVltv3h9Xj9A08Nz0N2PtIsFsv6R//f
0qezrqzLfsN3q8DUHYeCNrDNVYJaOUaI9l6qU8vdjl/Sk1LyOZtQ3S/253Pd
YPWm8WEqZxcG8s1jAriBcPQeexbP8Uak8tBCV+5JtBicMedzQlBdafllJzcW
GfNtos9zohCUceSlDTcNEbL5S89xElEeE1Nkzc2Fk3Nm3sDgTbBnBpMu/1LM
kkS4WqjnYcspD16hQyW0bfs7n18owJNQn5asuhocrTFF0vBfaNp9wCD4aD0W
FCgJpaRKoWTB9/2bNuKRyLy6dl05lBp8Hq52+YRy/1RV514BliwOyOZ5tmKE
u17x3sFKmLQcfL0xvh3S4zmzVbVfoXwifFtD8mcYS9wf7cythl9pVVVJ5BdU
RxnVVOjV4qrXbZX57l+xKK5nPLv/LVY4tY9O+3ShZ6xV+N7wHdqGbGro1h7c
7C56pRBbj9FWjqGyfR8U1G4zYnEDLueE7XN0ZBCzv9A3Q+sDdBVlrY8lD2CU
5oj9TjXiSVB4Tmz6IEJWCgqUn39Eo3YCsY3/htZcwYU6jX+w9HS9zp6rQ5j0
b0jWDfuEdTtajdKTh6G/kUz7FjWjLYi3gR8zAovrGvseLBCi0NRZ/sWlURxV
26vZ7toKjkNl0x3eGJb12s9qtG6DmYh1qTzkO+YqDsgKJtqQouwnzz02DnZp
ct6SlHZEp+0/s8p/AgeMipp+shIhoyapIjZoEjlbPTNKRkUID0wYUAv+FyM9
KrM7rnzGgIfOz86eUyjcaSGTuEmMuKluttB3Gqe28NILOsQo6bVgFHZLoNFi
+fEG7wuatE1Ea7RYdM3qqETOyg4E6HoZJGSxqKt67bhUfQdeOLgc36guRUde
8UVBEV9h4tSdPS9Tiiax3ULstDoRfHpz43pVaTpXWHhdWtCJWF/ZCakEaTrj
RMQu08NdEKh5SLrnyVBWtlueaE43yqajZfRiZWjwtTz+nPJufMg37+Yrsekz
/bOySoE9qFnsWxETz6ZKlsHLIhV6wX9sn9kuN4M2L39bH1rcCx/NZjcX/gx6
Pw1aYrc+sB8bqOqTmXRPnrGS2nQfomW6qi+fnEnDeZkRzX/2Y7GWqYc2i9B7
nWrJCtsYRAY6DMuFEno2lecu3M6Aa+xdxT1OqLddn3auLYPXU4dTzE4QurC4
+L71Dyfz+fxNYRGEnr/oUhHjyeBOjiCx6xyhfsZXB+VCGdR0rlxVdY1Qzah5
W8gtBipeikd4xYROm/wu33iHQYmemmVmCaFNfZ/f3cph4PVNT/1ZGaFxjvl7
Nj9gcDdic8WwgFCJnt2vvGIGyDih7P2G0Oa6i2ky9Qx8WnoemQkJfRI95lX/
noFc1vh5tzZCE9fu1b3xkUFeANkbJiLUKmtFgZmQwfdJTfKwg9Cnx968jOj6
4Vxlt6MGQ+iV5asu2vYyMBTt018/SOhhUcouDYbB++zfJE5DhOpsC2gtG2ag
bnrpdtwYoWyphptxYwyes9KP3x0ntK1wrb/7BAO/qrs2VZOEFvvfMDCcYiAf
93SJeIrQPxbNGpFIGDxwrBqTSAj9D6zAVaE=
{RGBColor[0, 1, 1], LineBox[CompressedData["
1:eJwtyH9MFGQcx/G745QThEe0cmjozqDyVzojyiw/38SFgdRAHLkQGaEZ/VKj
ma1m1zgzlWCNGQUoClnG5DQOV3Gmw5sthiIeBhTe4XnhAQcPFnCBxXXt+/zx
3mt7G3PfSt+q02g0qcH+N3mrt+1C38bV7Dur9Ylzdrii48Fm4NGjZRX10WuV
eUi53PFdZfCzBcjM85/7LPjZQtxY9nFiUfCzpai694V9B4KfrYHJUP/QJ8HP
WvHipmOW4Ts1SjvCA6aspHkWZSvi0oa8Fw9ale3YfWUlykZ+UHZhtjXKqdWe
V7pw1p3Y0vpUk9KNpvzKuZt8dqUHow8+LU698bPyNnTjtTPmxjUr+5EQyDm7
oa5F6UNLYfyVS4talRLzSwbGTw5dVQ5jwO9yXl9+TfknavobmyM/dSj/QmTM
19LjaVeO4NCrDduqYn9VjmGMaj3b93Yo/ShYYbfed7FT+TdcdfaDbcbflBO4
m99evvC935V3sfiZ0Mltjd3Kf5B03PjKmdlO5SR2x2xZcDPLpQxgiW9jeEdq
j1JDs8SwwT7RA1ZD+vPllgcqboLV0mvxjV3TUtxgdVT7XG7VT2NusDoaHZgz
o/fwLbAh1LAhKaR0rQesnvauMx+19nrA6sl4I7mz2vwH2Cn05OOFpdEresFO
pax5reNaRy/YqTTaXOTeYboNNpTK9NkF6bFesAaa5Ww4rrN7wRpoygemjJU7
+8BOI83JbIt7Zj/YMNr1paVoZlM/2DA6t3i/IerNAbDhFJW8a8lHkT6w06l7
6VXHHpsP7HQ6fQSxnuxBsBG02ZIQFTM5CDaCPjQfM3V/OwQ2kk55Y8oj10uw
gvZXmnOcz0uwgvLSB+Pq0iRYQffbbKdTMyVYQQeKX7p0KFeCFbQ94Ys7YXsk
WEELCu9ZF3pCghU0+cT7ER3fSLCCugZvXTtRK8EKKsms3/zsGQlWUGBR+ttm
mwQrqLut+EiIQ4IV9P0+/8uO6xKsoNJVWxZWd0qwglK+esS6xinBCvrx3cu/
mPokWEGHlz5WnOaTYAXtdFdkGKUEK+jh9a+7LoxIsIL02vaaEr8EK6inYVV+
zoQEK8iWX71s+b8SrKDP54ePBgISrKD/AMVgVhE=
{RGBColor[1, 0, 1], LineBox[CompressedData["
1:eJwVkH0803kcwDemhGS+d3VLbHNKhh5d5Xr4fC9dyajzlOtJLE8J4eZV6eGa
M1KJ63by2Dyl5Fhpep1IXrNyiRVTdOahGXmYfqSlUXbdH+/X++/3m8k55hWs
RyKRPL7wv92Ch1rrh3235J7lzFkddGoLxWVxdC/NCR7JGe5+jL2wVpiZe5e2
DUiNdb8xGEeA3dJRmUfzgWv1qXQDxknwC5p6cIUWBJGb4yKn6CnQvTLZJZXG
hfaZMME4PQvyv96ddIGWCIZdStsxeinwDO/aptAEUNAkjBmlV8PPewtE4xPF
UCFK6YpY0QTGOt6BHVYiCIXWLHWsHJZ6vh1quCiGqAG7fnHFKzguc4bM99Vg
xEy07d3QB4vE1B4y+SFcNnvKKgjoh3tKl+ZnmyQQ1OXzUL95ECTheRZ71VKI
fZTIOWY7ApplmxeURzZCZbSJ9zc7x0BPW2ZmsbQJCk4dHVnlNw7rdAH3vCua
IUH4yfO9egKaE51kj1nPgCTvw7Xxk0BPH9WWvn0OttyQEz4sDYxO9fa8WNUG
g5qre4wffIDikZom08ty8BgIP3Ml5iOYWt4gVKp28FKl21tZTcOlI1Uh+TYv
gWjgnPunfAY+4DJV2K8d4ER9aely6DNw10jFCxs6gQqaQMXkLPRWSC+2Mv8F
9ti+KWtfEp4Jb8+xi++CbkkQeZ8DGdv/MHc2pEYBNeel/gwNGe8oZIbeWdQD
EQZxfTKZHj5uecj69YFeCI89VWWSrY8d1L7GHR59sD7UXuYeSMFowbihdLoP
Os0djOOcDTDlYY7o29zX8KgiIcdBfw4+6lTzah5bCUlk1k/N3XNw2U5Oft0H
JSxUxLtGiedizehis8GMfnhXwhQITxviKu8d+oJtKihcTqNU+87Dv7ryheJB
FQizQxoDGUaY2e3WWcQfgCOCgzKTN0b4+/WJAtqaQTD88bpWWGeMD1g905Ll
gzA5sPWEJNkEa5pSldG8N1C5ebVFS+B8nEnx53rZDEEdP44a6miKUU9VoZ50
CDJ9D7P1NabY4AzPxzlmGLYrCkqTWxZgUqm/SGk+Avl2OeUtbDMcmy1KNZeM
QHJ9aia72gw/sD9vSI0ahT0WvtebbKiY6hbrkGCqBnZU435qChUrHJ/LT9aq
4dYSjk2zhopvXwMblf8YrGi4kbFrvzk+KFpHtZwdg2xHCautzhyf4xfwFLfe
QvQkpfUJC+HyIcscU3cCIu68Y6SkIXw+jx/Qs4uAuATvT26/IxzkNba0wpOA
s97iDpM/EF5SW3vbw4+AK5q4y+kZCF9I2//4EoeAe87amat5CIety5owOkkA
WaJ7WVKGsHXiV65zSwj4s80kVdqI8OyG0/M7bhIgLIoMS3qC8Kux/raSMgJu
cmUurk8RTve7e3D7HQLuL0yffipDWMfy+oVfS0DvPhQmf4GwojXtmr6cAFY/
zUXZj/DfSVOH5S8IWCuOtyoeQFiw8ZBdUScBm/hd2uA3CLOvrxBv7SFgt23e
7eERhO+faHnCGyaAe5RhNTGBcIbjd2me6i99m3jaykmEY5S5PkyCgOT5ynau
BuHl7hG99e8JyBIVXfz4EWEKub04fYqAwnOU0PvTCPdVbQwPmCbgL8/grac/
IVwbXrRy1ecvP6wfW26ZRfgq3Vij0xFQN7lMq9Mh/B+c6VZr
{RGBColor[1, 1, 0], LineBox[CompressedData["
1:eJwV0vk71AkcwPHB1Ih1jGO+OzSKmBwVTyvR9flET4qsKFckd5Ikayvaysjo
mpFQq9yVyipTodpIVpOmEomSXQbTJMbxZR0THmbbH97P6x94G4cc9AxXplAo
bt/7X5fwvubafq8N31xj8rYfTNpAdTKI7WLaQmrYUvMmdiD8VJCdW87cBA3D
0ig+OwZc37Y9yGPuhJFyJ140+wT4hMmfZjDDIJkxtjCAnQad1qed+Mx4aHjp
8mUHOx8K9d1TzzFTILbw8Ct3dhlwVMuXnmVmQR2PV+XGrgFfvyLByOgNoM6P
o/VHNYG6ghPgbCSALSeDuZXebWDmMdz3/HwFPE4I7yxuFsORRgfIHv8T2nft
t4478hmICrpYSekZ0J35EX/hV3gocWpoWlcH9NbwB6v9B6AuKs/Qb1AISxZH
l3BDSJhgr9e6e+Al2HceeLMxYxSUp0q1Dc1eQ9100rbWnDGwUwQ93FHWAJHP
RKKa5AloSLFtrLdsgiuhtwz0g+SwKH1gqmT4Hazw7ZmcC5+CAXmX+IPNe+ge
c2/ErTNwQ1b1WjOtBSa7mDYMr1nQZN0ipdJWuFSauNfHRwG8fZURhaYfwUJL
1e1oDgUnsVQaebINHscmlaYVKGH8SmEF4/knaDPLpHlkKGNXmfB8s/HfsPRU
i/nuKyo4E9WaY5H4D6zb3mVbkENFq420uYiqDuiO5W7g8+ah8zXjvfcJMVQ6
+Gm8uDgfj7D2mPQEdAHT+2X7bS4Nlw16qbe5dYOjhHKxLl4VdbVGVIXT3ZDL
iNRgH12A1Gc5giW5PZCav+/0qig13G9b1b7AVQKFjdn1abHqWLo1pLBmUgJJ
MZkjrLgfcGLAQLv38mcYCTb/0S9EAyt3OKtkbZJC+qyMKo7QxJNbuAUVvVKo
GXQmNXdpoXGny6fr3C/QbmYvWWOqjWtWp2QxV/ZCtEWodWaxNgYYNU0ptfTC
C2//YxuN6Djxmi+J5XwFe19ZiV4RHbOpgfGepn0Qd2pz23pDHdQVV15TFvZB
WoTqtFKmDs47ztnpcKgfhKxghUxPFyklgQKJjgxq51JVLNN0Me6qgK9TJ4OP
5U4yPl0Pn1qdUaXHDEDj4oh6XoYe0l3iliVrDgL/kVdRj5o+dix/15JQPQjh
Jh2B/nx9vJcPptLAIaA+sja0ojFwt8COzpobglSV/oZLJxiYxC3idPwxDItN
HYLNKATe7WPlaG4jITnGe1wtgcAzedwg8c8ksO3CROxjBIZ5DpmVeZDwZvZQ
ruNxAhdWV99z8yFBn8/flMgh8NwF/3re929vlwqz+s8SGGl3ZVQtgYTGvpWr
RFcJNEnR20K7SYJBqNZhbjWBc/a/abTdJqHGkuVSVENg+9Dn9zdLSQj919Lo
aS2B6T7luzffJ+EOZ3P9uJBAhaXnL9xqEqDwOCPsLYEdzRfyVVpICO8ceOgo
JvBxqjy05QMJasVT5wK7Ccxau8fi+icSBNG0PYkSAl2LV1Q4ikn4NmNCe9BL
4JOjb19x+kngGezyMSYJvLx81QWPQRJsJHut1o8SeEiSu9OYJOFDya8K3zEC
zbdFd9WOk2DkcPFWupxAqlLrjXQ5Cc8pBcfuTBHYXbk2KmiahEjRHXfRDIHV
UdetbWZJ0Eh/skQ6S+Dvi9QnFAoS7vuI5AoFgf8Br/JKgQ==
{GrayLevel[0], LineBox[CompressedData["
1:eJwVynk41AkYwPFxhRSGHOMXRaMNqValUN63COUoR8cUOZJCNspSbdKIqIS2
abDkrpSN5Gg3o1rN0/WQcTUKg2maHMOv2dzFbPvH9/n+8zEOOu51WJ5Cobj/
6P/vODzQ8mxwt33hvrJHKSsv2Cs6GET20tZByYxuQjE7ENbmZ+VW0RzB/YqS
WRw7Clyb+A9v0nygqO3s91A2E/YGT9b/TguGxtiNIQHsa9CzOtnhKi0a+rfr
5hxgF0KBzs6Ll2mJILFKWs9gVwJTpeqnSzQWRN3hyO9j/wP7GIUVX6QlYLnq
fvZD71ZQkzF9nY0qwPypNPKcbReYeo4OPL9SDZRkXrjrTD/EvrWBrLG/oZTl
tUGpVgx61VSBnNxTYMXtLOpfOgy1QofG5k0N8KQx5lb4EAkNYTcJhoQLYfVm
U00e/8L48s0a9yNegm7C7ojJ+DGQny7TJEzfgPA0uzy2bwKsZQG13uWNsLOX
BZf0p6Excd3bF+bNYDUWMRax7RssyRievjvKA+tNvr/eLZyF4cleQceaVuiS
KjvFdMigZKjujXpaG+yKCJa6LZZDdcM7pEjUDsdsHnq6uMhjamhNSAH9Hezn
CBgLAhRwAstER+P5wO/UefVbuiJGW3GrdZ93wvI/LQRV95Swt5x7pcX4AyjQ
3PZn9szDb2HtOWZnuiC3h3FUNF8FLbYoz4XUdcM8hpPRzDJVdC4yPlKpJ4C5
iM22dT7zMdbQ36Tftxde2WjPOUap4UrJbjW+ex+4+73z3piyALU1vqhwZ/og
0KBEg1+7EBWf5lQsy+0H57RdJ+1b1DF8Xd17VVchCJou5JXKaWLZ9qCCJxNC
iKHsaRRnauL4sIGmmP0RYtL0PFTpVKzxdlZgOYrAPlSQIMehYrxLUn61WATH
81lqgu1aaNyzo7M46RPEMbf4ke1aaLshkUWzEoP3g6+B78K10deoeVquTQwZ
tjceF05p4/ibq8JI5mdgUze92HptEWYpHoz2og+AkmOr6aslOqgtqCmS5w6A
p4m/R0KZDirFMX1sogYh2F1qpuWgi5S7ByuEWkPQ13aCcZGniyf+qLiq1TAE
9DvTdrxQPay3SFGh/jIM25bHfvag6CN1x4mVCeoSaKaIxJWp+thtyWs7zZHA
0hV7sofoNHyQB3TRwRH4cO9RvnIVDf0qrKmGcyMQ9V7jOMPeAM8nFTK7740C
zydCer7DAO8PGOaou5GQafH4ZWoQgSk3kwIEHiTwB6NZ8ocJDPYaMS33JEG/
dHXgqSMELuZwHrjvJSGLfmvm0DECL6cfeJEaREK2YYalXQyBR62zpfNPk5Cj
EXJ98BKBJomLXJRvk5D3lervVEng3MazC/mlJAgqGy04VQS+H/nYeruMBKPI
5KmfawnM2Fvl51T5w0u+XzOsI1Bm7nUyiUNC/qfP3DEugd0t6XkKbSQU8OvN
izsJ/Ovi5KG2DhL6b5ya1O8ikGXnb1bcSYKJz1puWg+BrrdWVW8VkFDEK/U7
IyTw8amm18xBEopfX8/wlBDItlyf7ikh4WOyh9/LUQKjhLk+xiQJy5xUzTdL
CVzhdqz32dgP33Du+YoJAhXl2ksyJkkQnbfJyJsisK/GLixghgQ6jPku+kYg
J6x49ZpZEoJny80uzxKYuURtXCYjoaQudEImI/A/u8hR9g==
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesLabel->{None, None},
AxesOrigin->{0, 0},
Method->{},
PlotRange->{{0, 1}, {0., 6.857}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{{3.371*^9, 3.273*^9}, {
3.939*^9, 3.399*^9}, 3.575*^9}]
Cell[CellGroupData[{
Cell["Example 1:", "Section",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Clear[\"Global`*\"]", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
RowBox[{"Clear", "::", "wrsym"}], "MessageName"],
":", " "}], "\\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", \
ButtonNote -> \\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
CellChangeTimes->{
3.576*^9, 3.589*^9, {3.224*^9,
3.979*^9}, 3.445*^9}]
Cell["Plot the sample function:", "Subsection",
ImageRegion->{{0, 1}, {0, 1}}],
f[x_]:=x /; x = N[Pi];\
\>", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Plot[f[x],{x,0,2 Pi}]", "Input",
CellChangeTimes->{3.318*^9},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFz31Q0wUcx/HBFgxUGE+jtXAyZNIwKCGKGA/uEBl0C0ZRiQL+ZAYjYAwO
4/kIHJwSwVAOkQdJGWABIcLKBAeEPEREQijQkggNS5GM1hpP1V18v9+7z73v
9efXnkgSiQ1JJFL2v/uv5BumYz+/lOezVccHPV47y6N8t6r/zDVmWpEEvWcd
q+tS5EJnAgr6GhQfQb+PUuypUdRBRe8xZioVbdCyJ4c7KhQ3oF4DQab8lHGo
NEN4tEN6B5rwubjE0GEOOrkoMGkkFqCnXLWkrncWocnOQ2fVDQ+h+mPxrZrE
ZSjRHR5SevwJ9Njvk2p10Qq0+AVVklKuhRqqVS8XZOigFtzgsbuVemhgHf/i
smINavt4NCBXtQGtGrxmQI4j+W2VZ7d/c1eMAdR5jraQnWoIbWmyjO2UkaFZ
Px6ZcJZToMm8V4JrzzwF1df5E7+VGkHHpVXRJz42hnJLaaupSmx+m/ys7DLW
Y0k2knAFWxMf7B7Th5UcXzMOncdSDke2cdlUaGTmpMCJg1VVBS04crGSaQ+G
/T7sd+Hm+bZ8bG2oOpxCYD0Psjc09Vj3iyNFgw1Yl02ZVXszlq3qdypox27b
Iw7j9mI1Rk1NaXPYO0SIW/QC9laPrluwiL2ZJph4dhnbdv/X9b5N7GV+edGn
ZBPopVovqwpjbGV4sVOcOVZxxb1DZIUtNtN482yxcsnJIUcmNu/m82HmLGwW
e0qjY5v4kf6/tJyc2HkOWjrD+eNrLlri8W12pws6RnGCWrcPHbnEKi/yQIcp
pU0RPmihIcPtAB8dGNnb7RKA5tEtJwyEaEd5x3rjEfSu+YiisqPoZ3woVpli
tJn2DSdhAvovsVa0koUePuDZ5FeNfn8wxyX3AtpJ8NXV7kto+Wuv977agvYP
E8+496DV0WXbn5tDqzIfSC12m4Ib2s95zn+CtnHYK4ls3ga+ZUD9gHF9O7iT
mqIcH94B3mtDkxADZuDHJVprtylzsENhoWuShAaePzQ7w/8FHXhv4u/ORAv8
VyaOpT9CC7vOB9HTLMFLa5IsshZdfzvvamKKFVgf6x2dvoq2Wy+LSM6wBt8/
eHqESrEB93NGfXeeRkuoSoq9CR2surDbu78MPebFGxBZ2IJ1kvNh0SXooZC6
N3fQnwYTnrzGxjPouEff/PlDBVpaH+VveQ6da5L/U1YNunp6mClSoqfS3ypd
U6GDrsnSQ2fRoYmUIbkG/Ta7gn79LvrdU190cBbQBYdIS6sP0T36DwnlBnqg
ldU+S2KAR4n2TRoZPTsyWZ1pjNZVMW+H0NCbwhZHuSXaiOyb+qU12jqesOAw
0EzWSlQEE82eONlaaofmFtquD7DQL3o1B6/ao/8BeiZsCA==
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesLabel->{None, None},
AxesOrigin->{0, 0},
Method->{},
PlotRange->
NCache[{{0, 2 Pi}, {0., 3.9214`}}, {{0, 6.586}, {
0., 3.9214`}}],
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{
3.747*^9, 3.239*^9, {3.961*^9,
3.074*^9}, 3.184*^9}]
Cell["Compute the Fourier coefficients", "Subsection",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["c[0]= 1/(2 Pi) Integrate[ x
,{x,0,1 Pi}]", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
FractionBox["\[Pi]", "4"]], "Output",
CellChangeTimes->{3.249*^9, 3.955*^9,
3.282*^9, 3.666*^9, 3.711*^9}]
Cell[CellGroupData[{
Cell["\", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
FractionBox[
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{"-", "\[ImaginaryI]"}], " ", "m", " ", "\[Pi]"}]], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]}], ")"}]}]}],
RowBox[{"2", " ",
SuperscriptBox["m", "2"], " ", "\[Pi]"}]]], "Output",
CellChangeTimes->{3.002*^9, 3.109*^9,
3.057*^9, 3.525*^9, 3.535*^9}]
Cell["term[0]= c[0];", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["term[m_]= c[m] Exp[I m x] + c[-m]
Exp[-I m x]
//Simplify", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-", "\[ImaginaryI]"}], " ", "m", " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{"\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]}], ")"}]}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{"-", "\[ImaginaryI]"}], " ", "m", " ", "\[Pi]"}]], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[ImaginaryI]", " ", "m", " ", "\[Pi]"}]}], ")"}]}]}],
")"}]}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["m", "2"], " ", "\[Pi]"}]]], "Output",
CellChangeTimes->{3.125*^9, 3.434*^9,
3.742*^9, 3.429*^9, 3.233*^9}]
Cell["series[n_]:= Sum[ term[m] ,{m,0,n}]", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell["Plot the series with different numbers of terms", "Subsection"],
Cell["\colors];\
\>", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell["Plot[ {f[x], series[30] } //Evaluate ,{x,0,2 Pi}];", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell["Make
a \"frequency domain\" plot of the coefficients", "Subsection"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"coeffs", "=",
RowBox[{"Table", "[",
RowBox[{"{",
RowBox[{"Re", "[",
RowBox[{"c", "[", "i", "]"}], "]"}], ",",
RowBox[{"Im", "[",
RowBox[{"c", "[", "i", "]"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "5"}], "}"}]}], "]"}], " ", "//",
"Flatten"}]}]], "Input"],
Cell[BoxData[
RowBox[{"{",
FractionBox["\[Pi]", "4"], ",", "0", ",",
RowBox[{"-",
FractionBox["1", "\[Pi]"]}], ",",
RowBox[{"-",
FractionBox["1", "2"]}], ",", "0", ",",
FractionBox["1", "4"], ",",
RowBox[{"-",
FractionBox["1",
RowBox[{"9", " ", "\[Pi]"}]]}], ",",
RowBox[{"-",
FractionBox["1", "6"]}], ",", "0", ",",
FractionBox["1", "8"], ",",
RowBox[{"-",
FractionBox["1",
RowBox[{"25", " ", "\[Pi]"}]]}], ",",
RowBox[{"-",
FractionBox["1", "10"]}]}], "}"}]], "Output",
CellChangeTimes->{3.853*^9, 3.924*^9,
3.857*^9, 3.94*^9, 3.93*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"BarChart", "[",
RowBox[{"coeffs", ",",
RowBox[{"ChartStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Blue"}], "}"}]}], ",",
RowBox[{"ChartLabels", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.083*^9, 3.291*^9}, {
3.558*^9, 3.198*^9}}],
Cell[BoxData[
GraphicsBox[{
{Opacity[0], PointBox[{{0.54544`, 0.}}]}, {{},
{RGBColor[0.744, 0.648, 0.458],
EdgeForm[{Opacity[0.7], Thickness[Small]}],
{RGBColor[1, 0, 0], EdgeForm[{Opacity[0.7], Thickness[Small]}],
TooltipBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}],
RectangleBox[{0.5454, 0.}, {1.4546`,
0.4483}, "RoundingRadius" -> 0]},
ImageSizeCache->{{32.725`,
57.59}, {-100.59`, 21.057`}}],
StatusArea[#, Rational[1, 4] Pi]& ,
TagBoxNote->"Pi/4"],
FractionBox["\[Pi]", "4"], {
GrayLevel[0]}, StripOnInput -> False]],
Annotation[#,
Style[Rational[1, 4] Pi, {
GrayLevel[0]}], "Tooltip"]& ]}, {},
{RGBColor[1, 0, 0], EdgeForm[{Opacity[0.7], Thickness[Small]}],
TooltipBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}],
RectangleBox[{2.5454`, 0.}, {
3.4546`, -0.7907}, "RoundingRadius" -> 0]},
ImageSizeCache->{{86.22, 111.07`}, {
20.06, 70.99}}],
StatusArea[#, (-1)/Pi]& ,
TagBoxNote->"-Pi^(-1)"],
RowBox[{"-",
FractionBox["1", "\[Pi]"]}], {
GrayLevel[0]}, StripOnInput -> False]],
Annotation[#,
Style[(-1)/Pi, {
GrayLevel[0]}], "Tooltip"]& ]},
{RGBColor[0, 0, 1], EdgeForm[{Opacity[0.7], Thickness[Small]}],
TooltipBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}],
RectangleBox[{3.5454`, 0.}, {4.454, -0.5},
"RoundingRadius" -> 0]},
ImageSizeCache->{{112.47`, 137.32`}, {
20.06, 98.35}}],
StatusArea[#,
Rational[-1, 2]]& ,
TagBoxNote->"-1/2"],
RowBox[{"-",
FractionBox["1", "2"]}], {
GrayLevel[0]}, StripOnInput -> False]],
Annotation[#,
Rational[-1, 2], {
GrayLevel[0]}], "Tooltip"]& ]}, {},
{RGBColor[0, 0, 1], EdgeForm[{Opacity[0.7], Thickness[Small]}],
TooltipBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}],
RectangleBox[{5.545, 0.}, {6.454, 0.25},
"RoundingRadius" -> 0]},
ImageSizeCache->{{166.96`,
191.82`}, {-18.587`, 21.057`}}],
StatusArea[#,
Rational[1, 4]]& ,
TagBoxNote->"1/4"],
FractionBox["1", "4"], {
GrayLevel[0]}, StripOnInput -> False]],
Annotation[#,
Rational[1, 4], {
GrayLevel[0]}], "Tooltip"]& ]},
{RGBColor[1, 0, 0], EdgeForm[{Opacity[0.7], Thickness[Small]}],
TooltipBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}],
RectangleBox[{6.545, 0.}, {
7.454, -0.532294`}, "RoundingRadius" ->
ImageSizeCache->{{193.2, 218.07`}, {
20.057`, 26.827`}}],
StatusArea[#, Rational[-1, 9]/Pi]& ,
TagBoxNote->"-1/(9*Pi)"],
RowBox[{"-",
FractionBox["1",
RowBox[{"9", " ", "\[Pi]"}]]}], {
GrayLevel[0]}, StripOnInput -> False]],
Annotation[#,
Style[Rational[-1, 9]/Pi, {
GrayLevel[0]}], "Tooltip"]& ]},
{RGBColor[0, 0, 1], EdgeForm[{Opacity[0.7], Thickness[Small]}],
TooltipBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}],
RectangleBox[{7.545, 0.}, {
8.453, -0.66666`}, "RoundingRadius" -> 0]},
ImageSizeCache->{{220.46`, 245.3}, {
20.057`, 47.82}}],
StatusArea[#,
Rational[-1, 6]]& ,
TagBoxNote->"-1/6"],
RowBox[{"-",
FractionBox["1", "6"]}], {
GrayLevel[0]}, StripOnInput -> False]],
Annotation[#,
Rational[-1, 6], {
GrayLevel[0]}], "Tooltip"]& ]}, {},
{RGBColor[0, 0, 1], EdgeForm[{Opacity[0.7], Thickness[Small]}],
TooltipBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}],
RectangleBox[{9.545, 0.}, {10.453`, 0.125},
"RoundingRadius" -> 0]},
ImageSizeCache->{{273.96`, 298.8}, {
1.2347`, 21.057`}}],
StatusArea[#,
Rational[1, 8]]& ,
TagBoxNote->"1/8"],
FractionBox["1", "8"], {
GrayLevel[0]}, StripOnInput -> False]],
Annotation[#,
Rational[1, 8], {
GrayLevel[0]}], "Tooltip"]& ]},
{RGBColor[1, 0, 0], EdgeForm[{Opacity[0.7], Thickness[Small]}],
TooltipBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}],
RectangleBox[{10.545`, 0.}, {
11.453`, -0.351628`}, "RoundingRadius" ->
ImageSizeCache->{{300.2, 325.03`}, {
20.057`, 23.174`}}],
StatusArea[#, Rational[-1, 25]/Pi]& ,
TagBoxNote->"-1/(25*Pi)"],
RowBox[{"-",
FractionBox["1",
RowBox[{"25", " ", "\[Pi]"}]]}], {
GrayLevel[0]}, StripOnInput -> False]],
Annotation[#,
Style[Rational[-1, 25]/Pi, {
GrayLevel[0]}], "Tooltip"]& ]},
{RGBColor[0, 0, 1], EdgeForm[{Opacity[0.7], Thickness[Small]}],
TooltipBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}],
RectangleBox[{11.545`, 0.}, {
12.453`, -0.1}, "RoundingRadius" -> 0]},
ImageSizeCache->{{327.45`, 352.3}, {
20.057`, 36.32}}],
StatusArea[#,
Rational[-1, 10]]& ,
TagBoxNote->"-1/10"],
RowBox[{"-",
FractionBox["1", "10"]}], {
GrayLevel[0]}, StripOnInput -> False]],
Annotation[#,
Rational[-1, 10], {
GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, {}, GraphicsGroupBox[
{GrayLevel[0],
StyleBox[{
{Thickness[Tiny],
LineBox[{{0.54544`, 0.}, {12.451`,
0.}}], {}}, {
{Thickness[Tiny],
LineBox[{{0.5454, 0.},
Offset[{-1.618*^-15, -6.}, {0.5454,
0.}]}], LineBox[{{12.451`, 0.},
Offset[{-1.618*^-15, -6.}, {12.451`,
0.}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
LineBox[{{1.4546`, 0.},
Offset[{-7.119*^-16, -4.}, {1.4546`,
LineBox[{{1.5454`, 0.},
Offset[{-7.119*^-16, -4.}, {1.5454`,
LineBox[{{2.4546`, 0.},
Offset[{-7.119*^-16, -4.}, {2.4546`,
LineBox[{{2.5454`, 0.},
Offset[{-7.119*^-16, -4.}, {2.5454`,
LineBox[{{3.4546`, 0.},
Offset[{-7.119*^-16, -4.}, {3.4546`,
LineBox[{{3.5454`, 0.},
Offset[{-7.119*^-16, -4.}, {3.5454`,
LineBox[{{4.454, 0.},
Offset[{-7.119*^-16, -4.}, {4.454,
LineBox[{{4.545, 0.},
Offset[{-7.119*^-16, -4.}, {4.545,
LineBox[{{5.453, 0.},
Offset[{-7.119*^-16, -4.}, {5.453,
LineBox[{{5.545, 0.},
Offset[{-7.119*^-16, -4.}, {5.545,
LineBox[{{6.453, 0.},
Offset[{-7.119*^-16, -4.}, {6.453,
LineBox[{{6.545, 0.},
Offset[{-7.119*^-16, -4.}, {6.545,
LineBox[{{7.453, 0.},
Offset[{-7.119*^-16, -4.}, {7.453,
LineBox[{{7.545, 0.},
Offset[{-7.119*^-16, -4.}, {7.545,
LineBox[{{8.453, 0.},
Offset[{-7.119*^-16, -4.}, {8.453,
LineBox[{{8.543, 0.},
Offset[{-7.119*^-16, -4.}, {8.543,
LineBox[{{9.451, 0.},
Offset[{-7.119*^-16, -4.}, {9.451,
LineBox[{{9.543, 0.},
Offset[{-7.119*^-16, -4.}, {9.543,
LineBox[{{10.451`, 0.},
Offset[{-7.119*^-16, -4.}, {10.451`,
LineBox[{{10.543`, 0.},
Offset[{-7.119*^-16, -4.}, {10.543`,
LineBox[{{11.451`, 0.},
Offset[{-7.119*^-16, -4.}, {11.451`,
LineBox[{{11.543`, 0.},
Offset[{-7.119*^-16, -4.}, {11.543`,
0.}]}]}, {}}},
{Thickness[Tiny],
InsetBox["\", Offset[{0., -2.}, {1., 0.}], {0, 1},
Automatic, {1, 0}],
InsetBox["\", Offset[{0., -2.}, {2., 0.}], {0, 1},
Automatic, {1, 0}]}}},
Antialiasing->False], "GraphicsAxes",
StripOnInput->False],
Antialiasing->False]}]},
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->{False, True},
AxesLabel->{None, None},
AxesOrigin->{0.54544`, 0},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
PlotRangePadding->Scaled[0.02],
Ticks->{None, Automatic}]], "Output",
CellChangeTimes->{{3.521*^9, 3.439*^9}}]
Cell["Re-write the Exp series as a Trig series", "Subsection"],
Cell[CellGroupData[{
Cell["term2[0] = term[0] //ExpToTrig //Simplify", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
FractionBox["\[Pi]", "4"]], "Output",
CellChangeTimes->{3.105*^9, 3.06*^9,
3.686*^9, 3.244*^9, 3.525*^9}]
Cell[CellGroupData[{
Cell["term2[m_]= term[m] //ExpToTrig //FullSimplify", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
FractionBox[
RowBox[{"Cos", "[",
RowBox[{"m", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}], "-",
RowBox[{"Cos", "[",
RowBox[{"m", " ", "x"}], "]"}], "+",
RowBox[{"m", " ", "\[Pi]", " ",
RowBox[{"Sin", "[",
RowBox[{"m", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}]}]}],
SuperscriptBox["m", "2"], " ", "\[Pi]"}]]], "Output",
CellChangeTimes->{3.854*^9, 3.629*^9,
3.137*^9, 3.159*^9, 3.994*^9}]
Cell["series2[n_]:= Sum[ term2[m] ,{m,0,n}] ", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["series[5]", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-", "\[ImaginaryI]"}], " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "2"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{"2", " ", "\[ImaginaryI]", " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "2"}], "-",
RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}]}], ")"}]}], "+",
RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}]}], ")"}]}],
RowBox[{"2", " ", "\[Pi]"}]], "+",
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-", "3"}], " ", "\[ImaginaryI]", " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "2"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{"6", " ", "\[ImaginaryI]", " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "2"}], "-",
RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Pi]"}]}], ")"}]}], "+",
RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Pi]"}]}], ")"}]}],
RowBox[{"18", " ", "\[Pi]"}]], "+",
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-", "5"}], " ", "\[ImaginaryI]", " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "2"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{"10", " ", "\[ImaginaryI]", " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "2"}], "-",
RowBox[{"5", " ", "\[ImaginaryI]", " ", "\[Pi]"}]}], ")"}]}], "+",
RowBox[{"5", " ", "\[ImaginaryI]", " ", "\[Pi]"}]}], ")"}]}],
RowBox[{"50", " ", "\[Pi]"}]], "+",
FractionBox["\[Pi]", "4"], "+",
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "\[Pi]"}], "+",
RowBox[{"2", " ", "\[ImaginaryI]", " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{"4", " ", "\[ImaginaryI]", " ", "x"}]], " ", "\[Pi]"}]}],
RowBox[{"8", " ", "\[Pi]"}]], "+",
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "x"}]], " ",
RowBox[{"(",
RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "\[Pi]"}], "+",
RowBox[{"4", " ", "\[ImaginaryI]", " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{"8", " ", "\[ImaginaryI]", " ", "x"}]], " ", "\[Pi]"}]}],
RowBox[{"32", " ", "\[Pi]"}]]}]], "Output",
CellChangeTimes->{3.812*^9, 3.612*^9,
3.194*^9, 3.405*^9, 3.8*^9}]
Cell[CellGroupData[{
Cell["series2[5]", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
FractionBox["\[Pi]", "4"], "+",
FractionBox[
RowBox[{"Cos", "[",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}], "-",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "x"}], "]"}], "+",
RowBox[{"2", " ", "\[Pi]", " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}]}]}],
RowBox[{"4", " ", "\[Pi]"}]], "+",
FractionBox[
RowBox[{"Cos", "[",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}], "-",
RowBox[{"Cos", "[",
RowBox[{"3", " ", "x"}], "]"}], "+",
RowBox[{"3", " ", "\[Pi]", " ",
RowBox[{"Sin", "[",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}]}]}],
RowBox[{"9", " ", "\[Pi]"}]], "+",
FractionBox[
RowBox[{"Cos", "[",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}], "-",
RowBox[{"Cos", "[",
RowBox[{"4", " ", "x"}], "]"}], "+",
RowBox[{"4", " ", "\[Pi]", " ",
RowBox[{"Sin", "[",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}]}]}],
RowBox[{"16", " ", "\[Pi]"}]], "+",
FractionBox[
RowBox[{"Cos", "[",
RowBox[{"5", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}], "-",
RowBox[{"Cos", "[",
RowBox[{"5", " ", "x"}], "]"}], "+",
RowBox[{"5", " ", "\[Pi]", " ",
RowBox[{"Sin", "[",
RowBox[{"5", " ",
RowBox[{"(",
RowBox[{"\[Pi]", "-", "x"}], ")"}]}], "]"}]}]}],
RowBox[{"25", " ", "\[Pi]"}]], "+",
FractionBox[
RowBox[{"-", "2"}], " ",
RowBox[{"Cos", "[", "x", "]"}]}], "+",
RowBox[{"\[Pi]", " ",
RowBox[{"Sin", "[", "x", "]"}]}]}], "\[Pi]"]}]], "Output",
CellChangeTimes->{3.589*^9, 3.61*^9,
3.855*^9, 3.38*^9, 3.783*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"series2", "[", "5", "]"}], " ", "//", "TrigReduce"}]], "Input"],
Cell[BoxData[
FractionBox[
RowBox[{"225", " ",
SuperscriptBox["\[Pi]", "2"]}], "-",
RowBox[{"1800", " ",
RowBox[{"Cos", "[", "x", "]"}]}], "-",
RowBox[{"200", " ",
RowBox[{"Cos", "[",
RowBox[{"3", " ", "x"}], "]"}]}], "-",
RowBox[{"72", " ",
RowBox[{"Cos", "[",
RowBox[{"5", " ", "x"}], "]"}]}], "+",
RowBox[{"900", " ", "\[Pi]", " ",
RowBox[{"Sin", "[", "x", "]"}]}], "-",
RowBox[{"450", " ", "\[Pi]", " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "x"}], "]"}]}], "+",
RowBox[{"300", " ", "\[Pi]", " ",
RowBox[{"Sin", "[",
RowBox[{"3", " ", "x"}], "]"}]}], "-",
RowBox[{"225", " ", "\[Pi]", " ",
RowBox[{"Sin", "[",
RowBox[{"4", " ", "x"}], "]"}]}], "+",
RowBox[{"180", " ", "\[Pi]", " ",
RowBox[{"Sin", "[",
RowBox[{"5", " ", "x"}], "]"}]}]}],
RowBox[{"900", " ", "\[Pi]"}]]], "Output",
CellChangeTimes->{3.475*^9, 3.151*^9,
3.058*^9, 3.73*^9, 3.361*^9}]
Cell["Verify that they are identical", "Subsection"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"series2", "[", "5", "]"}], "-",
RowBox[{"series", "[", "5", "]"}]}], " ", "//", "FullSimplify"}]], "Input"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.293*^9, 3.277*^9,
3.616*^9, 3.663*^9, 3.868*^9}]
Cell[CellGroupData[{
Cell["\", "Section",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Clear[\"Global`*\"]", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
RowBox[{"Clear", "::", "wrsym"}], "MessageName"],
":", " "}], "\\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", \
ButtonNote -> \\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
CellChangeTimes->{3.393*^9, 3.055*^9,
3.878*^9, 3.11*^9}]
Cell["Part a) ", "Subsection",
ImageRegion->{{0, 1}, {0, 1}}],
Cell["\", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Plot[f[x],{x,0,2 Pi}]", "Input",
CellChangeTimes->{3.506*^9},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFxXsw0wEcAPDZVjaltjXTbocQ3eFOXdfVbhM5IS7Hul5U0w81U9s8riKd
U5qOEkvOs6XOcB3lxEpil9uFk3MRsUSidHnltFvzqv7w/f7xuY8jIRfFkEkk
0uF//k9pter+uid9/9ouP1oE9vfE3mubn3lGD6rk8ARbYmpUpcFD/hlvKlR3
4Q9i1Y4ylRoWXeAOFaqewnnzp+oLVK2wQB9k5ZvYAytSQs7WKz7CF1/E5JCd
R+G+yUP0SmIczvI0khpPTsLx7u33dRVTsDkqrnZYNgcTr4+F5p6bh6N+9el0
txbg2zu1co3SCJN12r0ZKSaY6RbcPVJohgPVvo/nVEuw7WyXf5p2BS5+22RB
iSX5rC20O7C6LdoCdh9ljF9LIsM1VSxJQwIFTv18utddSYXjhfuCH+Svg81q
P+Jn7nq4R1EcefmRJcwPcFoZLqfBHQf5VT6ldLiirog/9sQKtnH2kJ6p3gC/
t6Bd5zZvhBtoiZqeDmvYw4YhJfSb4NkcI3t3/2bYOTPTUy5lwGPhhiHf73jg
RO+fBhkTvpIQI+FM4yGNJUGcSyx4ZkmaSjHi5QPpz2WJW2CzxCsyeRG3W86L
iE9hw98CsjtpVBu4zbXL2z4bl9I0VEc6B9Y+3O7Vlod3C4R6EdMWNklLjkTm
4O2h6qPWnK0wwRdWVubjsdPvfn8qwBXlYj9WEZ5Gv/EltQwvHezgiTR4f/Lx
3CUtHtSUkBxmwMNk1HblMH7CqYDTPIKfz3pZ7zqOZ4STZhan8BbzHUKzgutr
HeoMJC7cRdStMii4obOv9KolbirmDYQy8NWQGhclC19P8U56xcbZcQTTlYvz
HBbEETzcqfdmba4d7pZpu6x3wHcJqoMXHfG/9esb8Q==
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesLabel->{None, None},
AxesOrigin->{0, 0},
Method->{},
PlotRange->
NCache[{{0, 2 Pi}, {0., 6.315}}, {{0, 6.586}, {0.,
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{{3.338*^9, 3.687*^9},
3.043*^9, 3.64*^9}]
Cell[CellGroupData[{
Cell["\", "Section",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Clear[\"Global`*\"]", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
RowBox[{"Clear", "::", "wrsym"}], "MessageName"],
":", " "}], "\\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", \
ButtonNote -> \\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
CellChangeTimes->{3.253*^9, 3.641*^9,
3.539*^9, 3.702*^9}]
Cell["Part a) ", "Subsection",
ImageRegion->{{0, 1}, {0, 1}}],
f[x_]:=1 /; x = N[Pi];\
\>", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Plot[f[x],{x,0,2 Pi}]", "Input",
CellChangeTimes->{3.298*^9},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFz30w0wEYB/CfbWn0ti2m5bQMO1F6V7IoR0S3NL0irV+ttMLQKS9xehmX
ciY5b4VeZq6jc9JKYa5WlOTiVLSS9HblpdLSvPVy53meu+997/PX9x5rMkIk
oRAEIf6bf02tM21+tzzZjfh/A+6iQ5yOnMzr7hNWfA+uzM6sA7tqfU09olvA
sjjh7krZC3DYLUk6xaYL3PZpvUkJ2QM+vVBP3NzxCRzp2HBec/Ur2LDnYLku
fABM1mz1z9j3HbznW5tGkzoIPrNIHaGU68EUjXrFybghMNPBr/lNjgHsU+hx
eSBzBGzR37QuST0GzntYbUQ9QKyZsMBq7fjcvUZgxy5Gz7HDFHCZihVaFUUF
J7ze2eoop4EjBSv9LmZNAhsKPckvGcbgFlme+MilyWBacMh1Bx4d7OLNG9MV
o3XGKlVMFzr5wYKAGVwT3Oe164Z4EyaImMTE0G4+WtbB//HYAS11fnqsygm9
N/MIvXAJOqSPey7VGR2glKmC3NBCCmeplwfaJ6S+xmkdWsBmtRoJ0XbyytGS
nei53UGpit3o2W60mfES9HT9ZnthGPqXRC8aTEA3ermo1hSgjz5MdEoqQtuv
v3+j5gpavmFj/aoytGeApGNZLVojVkyd14VWx3+WMW1NwVcrcl26r6HNbeZL
Q0qngJ8Z0Y9z7k4FV9GjlS2N08DzzRlSUjsd3J+uN1vaPgNsk5KyMELKAHcH
dnZ4fET7vG/9XRXOxH+jJKHsXrTwZr4vO4YF7huRJlD16OLnyTfCo2eCDaGr
xbHDaKtRRVBknBn4g3faIzrNHHyP3+Q+Jw0tpStp1iZssLrIdvU9BbrZVaAV
MS3AQ9L8AHE6usG/cMs09iww6SIoKclCH+h98vNVNlpWvMuTlYtOMjnxNuEC
uuBlo6VIiW6P3ZYxokb7VkfFbupEbwqnNch16O28bPbdN+j9p29X8nvQJwOJ
vuGv6FrDWVI5htaWcys6CQ64iawYZ1DRnY/aCuIno4fyLJ/7M9DjwjI7OQtt
THU/fMcMbXaQZPI5aEvu4K4gSzSv9VR5hhXaIcViVMtFL3Yt9Ru2Rv8B/4Zj
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesLabel->{None, None},
AxesOrigin->{0, 0},
Method->{},
PlotRange->NCache[{{0, 2 Pi}, {0., 1.}}, {{0, 6.586}, {0., 1.}}],
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{3.024*^9, 3.409*^9,
3.891*^9}]
Cell[CellGroupData[{
Cell["\", "Section",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Clear[\"Global`*\"]", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
RowBox[{"Clear", "::", "wrsym"}], "MessageName"],
":", " "}], "\\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", \
ButtonNote -> \\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
CellChangeTimes->{3.273*^9, 3.871*^9,
3.134*^9, 3.58*^9}]
Cell["Part a) ", "Subsection",
ImageRegion->{{0, 1}, {0, 1}}],
f[x_]:=Sin[x] /; x = N[Pi];\
\>", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Plot[f[x],{x,0,2 Pi}]", "Input",
CellChangeTimes->{3.878*^9},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF1nk4VH30APCxlCGyb0myhEq0yBI5N1njFSUqJU14s4QUZUmoJMlrfyV7
WcobNWRU9rKWLWpCJElozLXOZvvd3/P7Pe78c57Pc++d536/53vOuYok32Nu
3AQCQYOLQPjfyFMr0PFzf4QRo+b/4raJGoMtSefg31fUuc1Y5LzQcu1L9IXL
KeUmvVj8JXGRVZF4E8Kf1gfnYbHf7HZDfuI/IB+R8/E4Fj+fS1TLTMwGHVMh
+xMJ2XDMW7Y/LbEU9tdyqoMelELC7Jmy1MRa0JN8aiIfVgsGjUcEjK90wZ2q
alMB0y7wC7Y5X+b3FSjX3mlX9VHhUqVbHLfyMKgWb+m0oA1B77glfyFpFEbH
+k41En9CjBaDUHFqHBT5nnEdER2DyztbUuryacC50ry/mDUOo26j4TkVNLgc
WKm8n2cCHHII3uHNNHgRLiRfKTQBByT1jZEJGnxy0VZ9qjQB3KtP6bUaU3B4
QuqQrvUEJH66b15bNgUX/s6T4MqaAHLQUXZ1PR1s+qgBuoaTwLngVTLoMw3/
SY13/Ev6Ay6ic9erAqfh7aqTwmvPP9BYE3z4Udg0JLkmtff4/4F42ZivJ+Om
4bVVoMFC5B9Q6yzi7n0+DTo2MarjeX/A/sCYQxttGsgXtt2P/fEHSkTOr1Z4
zoBsqv2lhlM0kKgZb03xn4H8eu7WDedpEOTll3w1eAasvvWb2VykgUnTze17
Y2bgSg9PXk0gDQZCso4/fzoD/5D9862TaED8PVD4eHwGPphsdNn8gQakagfb
ePdZiDpRywjbPwV7K2TEZH1nwZ+hHHPFcAq4S/t7cq/NQpDS7o/nDk9BXo6z
Y1n0LOzKdbFXsJuCkVvuzl+ezYJuXoLRAe8pIB0J9N6MzkKdXmj7YA5makp0
0bU5EPE6MNXBQ4e9XY5H9oTPwdlRKvkVPx24W2UF30TPQbQrhZYkTIe8N5n/
fHg4BxNOCRU6cnQYycxPpb+dg5Pl969K7qUDyfXVE23CPAy/89ut40yHCzO9
dXXR8+AR6fGdXUoHl+B4x8r4eRgib74QXE6HMzzW9NK0eQjUbbecq6SDg+Q7
ueyieYjLqDTowPJoof8y8EbLPHw3V05S76GDZsQDjQPEBeBf7lb0mafDDgHL
d3tEFkA+3dv+KosOakm8p7fLLMD7yu19/kt02JofcldGfQEegPTnk7woiLd6
jDDMF8AoPjSkRRwFlohZWtndBdApzijZvweF+YdcWsX/LMD3D2XxddoozChV
N+b9uwCRXJxXh/VQmNTWnksoXIDKrodNewGFwZNKNn7NC8AVc3C8zBqFhpwV
nl18DKDTZK4eckehZvubdBVhBrQG9KrYeqDwlhywZ7M0A6bqKzY4eqNQ/p7m
vEGNAei6met/+aNQON7/esKMAWnK5KpvN1CI3U3xLYhigJOWr9XtJBTa9lLH
AuIYMGOZt5M/FQXifuZZ01QGWNAId6LSULitr2s9mo/9v/jPHM9MFEKMKepK
jQxYCBe+9LUAhUoTavbMRwYcG3Jfr/gUBYYZU6q+lwFCxLMSpGIU/K1017mM
MqD/DldseykKnvaUH5k8TGg6kjhgWYlCkQP15KUNTNiVemCDwxsUxk4yOw3F
mVBDuFh8ugqF82d1awaUmPAp8W+Dv+pQOOlOSZc1ZoKr7nwstRkF8+uU4ynh
TNBW4EkO/4y9bzC1zTWaCTsvHkgVp2L7F8o8pB3PBEqSPHf2VxSMInR392Qz
4UWwn2T2AAo6MRRB0Vom1G333mryA4WrsdRbw01MyI+QdU8fQYEcx+SUdjBh
d0qZ2MRPFHYl6U7YDDGBVuOX7TuGgkoGpTF2mQnlOi1hin9QIGVRDc+sY8Gt
vrtzB2go5OQwy3YKsUBqevyj9RQKm/N189o2s4BsHPvfKRSF04WOsukqLNjq
bUe2n0Yh7em1eA8NFhwYrZazmMHOVwkljGjIgr4HBTIycyjYvqAuUA+zYFqz
vHgecxyZ6V1oxYK55fu5rfMoCFB0ncycWNDB7io/w0DB4rXjJ8kLLNiwaah7
ExOFqLfXLH95Yu9zdMG2GzN3HUX3djAL7D6nXFVjo/BMSKxgOZIFsbw/bHsx
H3Pylrh2nwWDRVTt6xwUOEVNkdNJLEhosdoqvojCY8bWGY8MFmjRRcXzMVub
hJz7+YQFUepcQppL2PlP+Nx+5jkLXgnMCZVgNtkV8+xoDQuWi+xUkpZRoAWP
yrQ2scBGMUyfhTm5xeiucScLll5rnLBfQcFQ6uHCWyoLHDMOXyvE/OvC3IX9
wyzQCSzOnsEc9/KvTyXjLFgNOtqxdxXL52ohoj7DgufO8jxemIesuUtz2Szo
ObfOKB1zVPoZeTluNuQf5ITVYdYcr7ifLMAGpuFM4yDmL/tFOULibDisNiI2
iznsltfFu3JseHak2W0Zs1p34xeCChvmgzJrVjF3bdlqGqzBhhRBV3k25uve
wWVz2mwoHtocOYF565texUsH2bBk+5HWhbmFTyt+zJQNDIugs6WY/U7cWzln
w4bS3bt6b2OWefzTu8+BDd8Zc7Z2mOumDw4cO4d547ceCcweRmmWH/9mw2M/
xplObP1isbMUUz82vE5zoIVjftNnrVp7nQ1G0WKR2zGT1AqT9SLY8O298ZZW
bH8FArh4yPfY0HCSu/4cZnKD0+WdiWzI+uTjOYXl57RIxfcn6Wz4x7Rokz9m
bmcRmy2P2aBs2d09heW3uNiz6t9iNlixN8a7YLZnv98hWs6GvxjRJ9qw87Fk
pvAwpooN1a4eSjsxW4/0BNxoZ8PVarGebhZ2HrQ0RxmfsfXfMaRIY864EX3M
b4gNSGjcY3vsPE7JHNS6gLLhplN0StkClt+jBeMWohxs/vj8WjeL5TeT4Ngg
y4FiJkmUF6uPocnTjQZKHDhPDjFnY/WkFSWcp7mPA6i2RU8LVm9dVdedJE5w
oMNKzn9pHMuPQE/rg7Mc2EpEmeTfWH5O7tLjc+eA1sHbMS5YPfvN/ZDgBHKA
x/4yNQerd9EdVh3f0zhwNNlBrmIQ60982aItORz4c8lfC/mG7fevWfsXRRzI
SgoNaehHwTU3fSC8kgPkhE9VpVj/qZSZHFf8ygGn81qoRjcKDxgHNQSGOSDi
cLr9eieWn94E39nfHFBLTRyrakdhQ7w+o4HJAfq9oQ+72lBw5rvH4yq9CLTL
uj7kBhT2/fpmZq2wCIHPxPbUYf2Q+G53jLbaInRkJe1tqsHyGfZVZJ3uIgzM
B869wfrpOobalgKHReCbqQk2J6Pw32iT3njKIlRy3CSnslGIaNgU2pW5CN1h
JYSbWH93yPGprcxfhHYB/X38j1AgnJEyu/dqERrcb/itx+bD8R634zs+L8KH
acGzT+5j/aCe18dbYglyGA1xPgFYv8k2fjyduARN0YIGhw6jcLelazDy0RJU
ygVsS8bmW9OMs4zkE+x+090yQwYomJqEPNB/tQQKET83OWLz0Xii7FokdQkG
b78sG1TB6n/fNmuJzctQfI+paYTN293NfAu6+csQkfqTbF9FB9/pFK2258uA
vLgzEUOhQ4msiueZimV473j7aCWZDru8ke/hzcvAL6BcyirC5rtoUGvrxDJU
PDAdFU6hg4rTZKaT5gp4FZ/3eOhFB2n0o9lNygo0rBsJVRajQ1pC7fmJ2hWI
i7CQdhakg4w2OfR4ywq8LdxOil+POehfslof9vzPVuFvnCnYxEPa0sVZgV1a
vCzhn1OwRZq5sNVoFRZG5nz/vJwCVVDMb3i/CgXXmaI3LKcgvfkNF48HAXGS
GN52xYUG08MvglBvAkJ6kVGkiX3/mXMKZgb8CIj7s/RTP+1oMK+R9KP8OgFR
kT//l95hGtgketW7RxMQSe+c5/HbaMB9dnNEWyEBefMpamRp/A94zd4gJI4R
kFAqgdCFfZ8ayh9a3erKhXTdjT7VfnoSLM70+pMuciFfv78bU7SbBPtHf489
9uZCTrPvcPmaT4KXbFy7agAXMrSYPjm7bxLSJQceaURxIZ2Vbl9zBSeBJRSg
p1fEhYTUmCVnVU1A+UrR5aM0LuRuolm0mvQE7BwWGb1xlRs5pTs3Kk/5Dc+L
xC6+8udBBBl8nX7fRyF06GzPziheZPCY2/ZbPj/gsqGeVVbyOiS0yzx5X9gA
cLJNSH/i1yP9Y9a5LZq90OWX7nItjw/ZIhik7t/bDDviRRavFvAhByyu2Zal
NMOt0qgU/2d8CDVQOp3u0Aw6dP+2S2Q+JOBlZdfxvibI9LLSdm3gQ77174zo
H2wET/clPrsR7Lpec87Yr3fAe8a5dIcSEansGXPqHK0F55BeS3VVInKzZLhd
yr0WKOlHRrftICKv9d/4OvyuAc8+HVnFvUQkaFqnvmaiGrodhG9JGxORwwaT
G3XpbyHLrs6Bl0RECnRKmD8WKKBvrrQymEtEur8Iuq8QXoD247bo5nwisjDs
UylOLAXNVX/xl0+JCHHLuJ7yxhJQorxTv/2SiLSJnP+lsek/2KCG1V89EdkR
Hhk4s6cIBtcXFQUOExHNIuHOKy458JVku89llIhoW3/Y4PIxCz7VsKotx4lI
btCIXDc1A5oCLXs2T2P3v93JnU1Pg9KxyeWGVSLCC5dXGXIJ8Mw4Kfo/Hn6k
SZa055ZNHDzJMhBP5eNHNhS5q4i6xUCaQ6y6hzA/orm0yi+XGAmJZO2yY+L8
yDhhL2WP3Q2I3Th40FCaH+HlCnNUDQuAKM87Ldvk+JHK9P7CnQ5eENG067iw
Aj+yv327JtHFEUKVvgyylPgRwv//AsPCLo6o4vbrV537sAO3p07njVeauF0T
rxGz9+J2piskRevgPl7gV+RkhNuGW3afqTFuC+f6ak0z3IZSYj1cNri3RZUt
F57FvXXEKTrhPO5NRrziIW64NzLs1W0u4Wa6MY7Nh+JuNdUvQjJwX28O07yZ
g1vd8n159RPcUdZH6w88x21y3K1fuwZ3nUuC4PZh3JSQCT9RFYE15798qD9S
jFtSWcPT+emGNX/iIkbKVgmu+RXxSkFXq9CaNSRFPEmNG9eMxjEk9n0RXrPy
3btavp4iax45PdBv/Bu3xa8e9isfUXy9/m4XpaZw21Q8OiIVKLZm+pJnKA8D
dy41otzniviaORcPugQt4pZfTnC6HCyx5jHz+21EXsk1v1P9CFvu4/YkFvAq
8kutmZKjcvBdAu4OA8PGY6LSa2Z5PjruEoe7xTb7hJCUzJpJ+oaFhcm4Paba
F76l4vbLPWci9hD3Tf5bP0IzcWf0tcodK8D9JcgxfomC+8gb/yC7Adx2Prwt
UYO4TyqlSlV9x/13zOsy1VHct08T6Is03DWcB6SCFdyNJQovBwiya/5Ierkq
woN7oK03I4QPNytdjmorgnvV5vm2KDHc63ng6lsJ3BJeJFFVWdxyCvPnnORw
K/XcKYmXx73jrvRyowLuPQZPrRYVcf8POJRZOQ==
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesLabel->{None, None},
AxesOrigin->{0, 0},
Method->{},
PlotRange->
NCache[{{0, 2 Pi}, {0., 0.2116}}, {{0, 6.586}, {0.,
0.2116}}],
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{3.882*^9, 3.24*^9,
3.738*^9}]
Cell[CellGroupData[{
Cell["\", "Section",
CellChangeTimes->{3.261*^9},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Clear[\"Global`*\"]", "Input",
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
RowBox[{"Clear", "::", "wrsym"}], "MessageName"],
":", " "}], "\\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", \
ButtonNote -> \\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
CellChangeTimes->{3.273*^9, 3.871*^9,
3.871*^9, 3.775*^9, 3.232*^9}]
Cell["Part a) ", "Subsection",
ImageRegion->{{0, 1}, {0, 1}}],
Cell["\", "Input",
CellChangeTimes->{{3.2*^9, 3.157*^9}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[CellGroupData[{
Cell["Plot[f[x],{x,0,2 Pi}]", "Input",
CellChangeTimes->{3.878*^9},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlnc8V98fx+09PtvOKBSKsvO597z5SoWU2bJLRjITyUjJqoQiJJSRVJQR
UkIUUpS9IklK+dh7/PzuP/fxfJxzz3m9Xud17+NKO3qaObEwMTGZsTIx/f/O
+pbn8w/1MNx94/8XA8n+rtLZctsOgQZVY3GTl58rn+5J8ETnSGPdQ5v8Yh51
EAv8UcKL1LGKTf5JcVl8mRCKaAwnp6ubfEOkgb+g8irKPJVyGNvk3O3WGUwF
kejo6XuPfq0zULXmpIp55nU0yvz73JVN7jUIr81JuIUOcdKy+Dd5WYFPIag2
HgUuNu+PXmOgyD2dPjmVt1E+ocV6bpWBKHszKz+XJKI4mB023eQHum5si8/u
okNKin3pKwy066DaIelHKUh2x0WD/mUGqjyynmiYeQ9x6yzL8mxyh12C/P2E
DPSAw99Ac3HTj+ourR/1mUhRWDxGY4GB/DVv9/vXPkBzvwz2y80zEBuykX1Q
mYV87S6qdc0wUJNebaN6eTb6ZjnonDzNQPEG8h5NJTnofUakmOEUA20xmXo5
8+wRes9jwRs6wUAjplYno/LzkMdEjBHLPwZ6Ylm5If7oMfqQuYNyYZyBtGyu
HTDIfIJ2OFbuVx5jIDN3kd7khEKkav4jaGyIgfi00Nuk/c/RW3EP/clvDDRZ
4U38Xv8cfVL9njfWz0Av33SW+tW+QC3srhZPuhnov/rM9fTKYiQsqR0b0MJA
cvvbjvzWLkGrG1l32D8xEE8je5ZqeQlafMxtdrWJgVqb3fY3lJQirVwfJtN6
BrJpV4ubelaGrsQb3FV/xUBg5Tyso1SOroUFVB8oY6Bt3SlqEfnlSPmndrVx
CQP96VvvFn1UgR6wtFvIF2zm96NBWj+zEvloM5vKP9jMZ9q6OCnhLTIPe9lq
Fc5AN6mp9Gr+auRxU79M9jIDfX1xTVLdrBq90G/e8eMSA538Y/1zS1/15rz2
lh2+DORxktd7+m8NWtt/amrUnoHuYC5RKYQ6dJ5X1k9em4F6eszPCljWoQmf
kTfDqpv5X0AmV1PqEHm2hHxzFwM9KqBRzsnUo93NWTyFWxnolWR9Bqi9R4yd
ntt38DPQILNM2a+jDegIx/aE9f4JtC2dP9U6rQFJZmpJFnZOIJe9S0FfhhrQ
ra+rlodbJ9C0T6tepWsjqj96etz23QRiGwn5HHupCf1YzButzJtACu/7fqpn
NKMnNRlLF7wmkE69IY+ebyvq51J02zf7DxHac1s0b7eid/V6p2L//kMjwyyJ
O4tb0WziTq+mkX8olqlSUmSmFZ3Im5gS6/iHhnUU1Sd9vqA8/k8tsqX/UFQR
r326z1f006Nk/ZvPP9SZ0Vy67N2OYp9YJu/9+Rd5BZo4FHt1o9LnWa/s8saR
oQc9jyuuG0lhs9dZ08fRVkcFhk1hN9pfHsqRfnscdR7kCOaa6EYFGpo7y0LG
ESZSlWxztgd1ZIW8vmQxjnjKd7ZynulFh37ldx5f/4Ny5viQ9cl+tNL2VuCj
0R90rtwplmXrEGLy636X1jqG2scOcj9yHEF31Ld8sDf/iWKU55leHh9D1ao3
JQiM78hbsSGxOucvYrmr8FulrB8tnzpbMOAxiZov1fHdONiJ7IkzAa8vTKIo
IWMqv2onqq8K/O9eyCT6gvlIpop3ojiRmO5jsZPowNN8225GB5JvyWNpfzaJ
ypLNb44mdSCLvaNWTX8nESnYwt/0VzsqIDhsvHSbQglDKadS49uQ4xurI3Fn
ppHT3ePGbvxf0J6XwiQRz2nkKp2aFbHYilgKe9se+E+jxfwbc0U/WtHDTNuj
xVHTiD01JkXnVSsavnrGtjN/Gh0YWDLkd2lFjoYX3MUZ0yj/lb2L280W5NiV
GJXnP4PEp3nSDkt9Qqem2quro2aRxhn97ZceNSD7wLij5XGzKHUs0Y4jqgFZ
sxpPFCbPog9Z+enPXBqQFfWdWEbeLLIwqJE6otCADmi/uBDcMIskd7jkjBR8
QLvCbirt5ZpDL9+F1Ru8eY8WCQbJxZFzqON19N6aiTo0m8Ks/OTWHDKWK4qp
+VqHpmTe1D+8O4dyJM5wDbysQ3/U1GbiH80hzvtkV6fQOjRwTMbE68Mc2oj8
WPOKWIdqM9dZd3LOIxuZsChPnXfohkqZZ27EPDo+JtBU8bAGNe3pGvWLnUdc
5aqlUTE1iEt9wWZf0jzamUcJ9fKpQeHamsYjOfPILYMRFqNXgy7plW2XqZ9H
YS+XWH/9qEZuFmXf77MuoBVlsVeaitVof0CZeeLlBbSu63297u4bFB7Y1XQ6
agHx2T97ePbcG1QbtKCrFreA9PawO+j+9wbhYZoqbRkLyLW62zmA8RppxJTx
Ed8uoN8/Kx4TDV+jbWll9TfWFpBNUz1bD2clYqku0wwPXESrN/QPzWeXo3x+
Uu7alUUk8sTcQDK4HJmddKf4X19Es7MbG4GW5ShrXmrKNW0RvfPtkGjiKEf6
O2PyD1ctoqLzY721Z8tQRKq1hBjLEhKsPdCyir9EPH7MrEXRS+ga44j7Fe4S
VFR70lsxYQm9KTZ8Wv6rGJ0gvBzMTl1CaxfWPom/L0ZPnri9vvtkCTWGr9M8
rhYj4+E2v+BPS0iD85a9ClMxij2cO3aAuIy0R37WEFiKEFHB6PNg8jIS1rRT
kpd7jkY5M4gNmctI/EuY9XPe5+jVz2mL53nLaMT6sN6r4UJ0+kFq3+XyZVR1
kdakG1iIyoX/jEl3LyM7J4mIe08LkC1nNOtpoRVksSwdBlueoacj77XGEldQ
n+aFL1Gq+SisVjSo9f4KUotcZWbhzEdWmR5vy3NWkKt1Ev1V72PEZE0ziC5d
QW/Wb7aMXnmMzNuczBU6VpB0qvq5HZ15aLmGzcOdsooW5NeaxKMeoQMZelmT
Cavon6LgVRbhHBTZ0Dpw5d4qOpYY/fI9Ixu9n7IVpmavIqSt+urjh2y0T//S
Te3SVaT9i285KSAb6f0u9r/StYpOBMr37xjIQnRVWWOK+BqyDhR+vvbiIVL5
wDmnmbOGCG96LhlGZSLPyUTlpmdr6Pjfjft3nDNRgcg2N+uXa8hquFCKtj8T
7XSHwcsf1lB12ivZKo5MpEC82Nj4ew3pstveVSNmoG0n/9w/uWsdcUS9VIxW
uo+EGM0GoWXrSDWF33OyIAUlx791+P12HW3fSqLqXkpBwmpFQeYN6+hi/4ea
8f2bfPFukXzPOvq3cpl+aDgZibI6bmldXke9s+cVVMWS0RahhTkpfAMJpH3s
kbyfhOSQdE5t3QayXz1ar/3tNsr9Tq5W+rSBrixdcf9echvJhXP0JXVsoJLw
h4far99G8o3jhLOjG0irSJ8pde9tdGfHySpuNiZwl48ipNxLQEnFsgpFskyg
IKYdy3E2HqV+eMXM6soEBkY7Ov0uxqLJoecXGe5M4OqV5XiCHov2L+dO9Xkx
gbhxBNeTjZtoVun295IAJijOXJSNjbyJTBLO1pyJYgL26HRvw7QbiMVGPKzp
ERM8bBV8Se6JQWeng5kSRpkgSf1X4ad7kaiW93xAyB8myAjqEhU4G4mEZd0m
3SaY4MZ+M+a8vZHo/VGrof/mmeCd6WGh0d4IJPVmV/UcOzMwv/xxJkgyArVH
DoYel2UGHWuTxHvl4YguobshdZoZApk/K1Dkr6AD1u0+ji7McPJfTOR/a2HI
4p7zaJY7M+w590KysS0MnRWJ/STnxwxTWOHD9rAwlErtu6cUwQyndidc7f9+
GS3y+2lp5TGDPuPnfRvHUMR2iOvpxafM0DV++dmicCgi3LgnWfmcGRZZlxg7
W0OQPE8tB17BDLsWjhY7Qgiy4hDs+K+JGUwSKkld8sGoZD3P+/BfZpj2dtyx
QbyEqjH6z7hJZvAcwtfffAlEzUEtx77OMsOn/f6HOBIC0Y/lOWS5xgySvyUc
lCmBiLSgJ3BSgAXGO2d7Pmy5iLwY/flnVFjgtk5GyV5jf6Q4RBgJPs8Cq9y2
VmXM55HJL6naCwEsUBDS9pPY7ou8JlQyPYNYoLu08HdTri8qWT1i7RDOAppS
+Q8tD/kiukh8u/4dFjD6pWRTme6DjM2I9bwlLMDl1ayraeaNPI5LZ7GVswDB
3HVeQcEbxdnvDlurZIFnmZpDPizeqN3DFGO8Y4HEwMGR1WIvZH09vvRrGwvY
NToPjYl6Ifc6Ym7KDAvopC1u2cs4h2I/SocnLLCAe8Avgujjc+j5192O11dY
4LiUYvOtU+fQ7JDplmBWVhhtrVbT6nVHQWvxSfZkVvhyyvOg7eez6IYGKVJe
lRWCJhpnCF9c0bM8kkupDyuonJ1kmtE6g8I73uqy+rNC3KIPTWjDCVmznBMz
vcQKdP8p9fp6J8Rj/eHz36usUKmptf7KwgmdEQxS35bICj3VLrR/AaeR1IWf
LLfLWOHTrIWYX48jWniY0D9UyQpc9wKSSx45os8t6OWualYYsnvy0v2CIwre
kera1MAKHsMx1XpUR9Tbb9LK3MsKCzpjfa7HHNCd/8rve62ygm//ydz4X3bo
rJeTfxUTG7ALMew1E+yQ3n2SKR87G9BYnKwLMTs0Ne/OlsfPBmv/yG0Cd22R
Sb702cEtbOClKPf0uLkN4iJe1zLRZYPrXOUxKZMnUNA3mzbFCDZY+RgmqFtk
hWb3Y/edYthAyyDlBI+fFXJ/Ie6cEcsGKo9Dj7lrWaGT4X3LpLts4Bv9nXeu
2hLtVTgus/yIDdZvVOGz3RZoyc/Cu6GRDfoPHa2K3mqOvAZVdVg+s8GqeyWm
xzBDYwfI7PSvbEBZ/U8otNIMdYt9TS7sZQN71dciYZZmqLzmcHXSOBu4PojN
u3bLFF3gNxJ04mcHFYPkxQTRI2jigkJPOpEdJskVsoL9h9GZIe6sbio7yC9V
7B64ehhZFTdoGG9hh1vtwhckO02Q+nEDW1Vldrj2WluB9dohNJut+4zZlB30
dUW6oniMkDddyyj9DjtwyhZ4nXtkgJg87oTeSmaHFF+Ji8FnDVBsxmTx5TR2
+LqWclhaxQDlszwWP5XNDhlJPrslK/eh4QaRCfmSTT7x+mdLlz6ysFyJe9HG
DrAt9MSEwn9oOOJo/cMudoj4VWKZvaCHvMqLl273sYPMnh6v3jo9dEPM3fHC
D3bgFdP3rrXXQ/Xf+1V1Ztgh84wUh2O6LtLwqOqsI3FALN+63R9lQHUZorwv
aRyQfv/THQk2QGZfLqBHohzw/jGrZugLhDzUlPOiZThAPpdfJZkDoUfLGRdN
9nBA34vXOzpfYUg4Mky825QDng33yrQf1EHLGfqO43Ec8FTuzkH1OQ2EL2AJ
uxM5QNW/Ven0cw0UZqJZ65/CAaHWdTEW7hqIa22HDNtDDpjk/vvNe1QdUU8I
DosXc8Djvc3Mrj/UkAql18GkgwMI30Ye563vQb5n2+Lv9HDAjWR2On/9HvSy
trmmd2Bz/rjtP+qNPQjzfivtPMoBCoUr43zie5Dh5+zvoQscwGksN+H4327k
FOXp8EKEEyQYv7bEWyujvEGX+AUJTggbFxA9vroL/dVwrMFkOCGRc1eLxv1d
yOenhXSTAieM5976KD+8E13W2/t9WIcTGnfusIwLUEKpq2wOFFtOWC055kXp
2IG+ma/HnXDkBMPaRuqf8B1I+slCdeYZTuBl65LIV9+B8o7/kdrpyQl5W1RO
D6ZsR6UvW4b2XeaEm/fmInrd5VGrV6q9/0NOGHH4/IRNRxYpxBFWzudyQjVr
oGDD6jZ0tTAi0SefE46ELsRrvt2GNCZ8ms4VcYJ4eTonxWAbun/WSO10LSdo
XR+Wu31yK3I7s8ppOrz5/MDfqr3Z0qjums9Dk1FOoIRhhYue0kgiZ4xu/IcT
Cjv9uw/QpVHrj3bv/dOcIGMiO5TSKYU0HZ71YSxcMD/G29FBlEJs1raFCjJc
kNn8zXNaTwLZXmo/uF2OC16sFZrZjoujslTDEVkFLpCNfitae0ccufVoiEjv
4YK9WesSzn/E0BcrwatCelzwzuhi9lCmKEo3rbZic+QCicCnkr5awmjRS2OK
+QwXND+82abBEEJmcU+vb7hywe8LTqrNuUKIvSW5etmbC5xNL+0+JSyE3I29
FabCuOCBtzWDnZ2GtPfLrA884ALOojzGIRYKUstqivqQwwV60UavHN6T0a4N
H/KLx1xgrxydKXmdjGTK3m0Pf8EFdzkzChJoZMQrv/l/WMMFeJSdkaw6CQ1w
5OVdGOKCU3z3FCNuEVC34xFV+xEueNw85+tlQ0BfqxbfHBzjArd96OIfRQJ6
f+Fgm/gkFzi41tsIJgqiwtE/a7UbXDCGV98MFBdAYe93mgtKcsOTmyVW+da8
KEimc2BRhhs+bQtiEePmRRdCQlyG5bghtfERNeQlD3LTaAku3cUNzzERKSKF
B5nneuWdxLlh41bYzNZeLiQbUbz2yIYbxrum6ntvcSCp4ZNR8Q7cEPhf28WD
hhxIFGcjX3Lihh8/QuTC2TmQwLzFdpNz3FD5RTvTIoQdLTjNm80GccNxZ80m
2YtsqHGfdh6kcUOivV50eTwLCvgQsis0kxvOO1+s4zFnQdsP1pW8yeaG4fUx
RzkqC4owPlyz9xk3yOQa6D+/x4z0zZ161ao25+ddPfvpBROqto/n2zHEDTNX
mnV9mNZxr+HOBOcRbjiU+HdKJnUNlzwtLpI7xg1eTK8pUupreIjzI9mtU9wQ
nkVrYHis4nSPN7gECw8MRPAs+U8t42WXfnsRt/FAoipNdmzXIn5mbdfC4e08
4HMN80vpW8BpoeeDY5V4QOB6ymXr6AX8/JWNaF51HlDO3RfOMzaP74mmZrEb
8MCjbPWAJy/m8IIk3Y4lZx7IlZgyPOg7g9sKR57UcucBjx3Yg3vKMzh/avP3
C148sMP09afPf6dx9/tHJ2YCeCB/nfVBs+s0rpB9jnMimgdi/Z9V9p6bwnNe
pGgPP+GBes2TV9Y0GbjbykmF7kIeSP6gbhv3ZQJX2bdF7HMxD7h6PrI57T6B
v+5+uFpRubl+CseP6px/eNvGk7fxH3ng5qevfKNyf3Fmk6p9uuM8wBqV/u2L
3W/8/d3LGpoMHrA6cU/oE+9v/MZ3PfmdMzygkX3I6Wv5GC7s94FLZIUHyFc6
6yaoY7hyWuvHSR5eMD7zZ4dI/yhu82fYNFOBF/KyvUg5iSO4jFqOXtIuXmge
EGUdODKCjwU7q97Ywwus9/RnJvlG8PPEv5SAvbzwu0P29MPIH/h1rbmuw4a8
sNhtIzcSMYxXRHDabrjyQuL+nIK3+UN4SGujydw5XjD4Flp002cI1xe9gca9
eeHe5KQ2UWcIb31GkO66yAt3PDx07dMG8V/tIiMF0bwgGX4nfuvSAE7dquRm
+5gXHLIbLmpN9uJxCdetHj/jBeFjLI9nbvTiPCzjerMveGG7yKtEfsVenOn7
Y7GYV7yQLMqma3S2B/+bLv+p9CMvxGs44l4rXXid6FYV/gleILfjVQ+sOnAU
c0X82DQvfD1QtI5xduCvlr5zZc3zgljeWMFceTv+vDvzu9YGL5S6KFnkSbbj
aUlbbp8m8MF63EOekqWv+HmS6HzlHj5IuBv6z3KgFWeEXRzm0OSDT54Bsuv3
W3G3qe7Ppjp8EEV+0xNj14rbt9599Os/PmiJEByLaWrBjWOpx8mWfJDj8vp6
19wnfCsP8bWbPx9cbEnuXktuwtMveuWVXuKDq0Z7uOXUmnDh3y13mC7zgYf/
etGb1kZcoCH2XFIUH2T3c4bJCzTiy9f4JGtT+GBQPJzFJuUD/pWZ64rIaz44
svqF9N+/OnziWYrtkWo++K2UTnqQXodzn1DUiazjAwHN63pipnU4FJnMzjbz
gaec8Q+Lind4gWPimdYBPtjJ3fPyfFItfv2djFHkBh9Il3QFGV6uxnM9S+Sr
WPnh8uC9fRW61XitmAHbHCc/EL/ucOZjq8aXfV3fOBL44UmfyvVc2lvcZdtz
ZVyaH3ZfszkoceANrn8No8zp8UNSfUz32YUK3H53y6Tifn6IujlXQr5TgV8a
sP/kaMQPySunHu/YU4EXqYdHtJrzA9PnnaXXfcpxqdGmxSen+eFjUwtzBmsZ
vmpwbMAxgh9SHlDK/zqW4MIzvytSYvhB6X18qA6lBFfNuJTUGssPq6ZuAoXv
i3G3hfTD+F1+OEav3zu7qxjvfvSzRiSPH1a+3uyL5CvCS7l8c1sb+WG422dU
cKoQHw0K+1f1iR8e48xeq0GFuPDULbVnX/jhv5Kiz6E8hXhQz9Pa6B5+SLvB
XaauUIDr549+0/vND4MPuNOaLz3FvxqdECrlEgBnh7d5h089xtmqXWyz+AQg
8rlgixHHY1xDzT8nniAAy1XUjrj8PDxV/I6qh7AAJLvJCo/MP8Id/n06LL9d
ACpv/1eklZ6LT8bqRqXsFwCKU6QqYVs2LsN6pCXSSABkPsodedqThVv429Iu
HBaA+7Nsb0zjsvByu0vZZkcFIEmg5kQ+UxYeqlJazessAMPtT6d3/3uAC3zd
vhQcIQAsfReKfH5m4GCgCe4xAlC8PPXluUcG7vNqX+SJWAEw7VmSTV1Kxzsf
OlI1kwTgtrKZ41FKOn7fN233ZI4A7F3yExi0TsOVqAQ3x3oBEKuPWfJTT8HJ
hZVPcxoFYMj+3PO/n5Px5QPOjLFPAhBzNDV13jUZbwiqOu/ZKQDXFCZ0n2bf
xU+PuIcG/RIAQuG88JpiEm4UIlz7dnxT/wt23rNfEvE9wnVsrJOb+oyy6vGA
RJzJWCwmelEA/HNT7Fma7uD3ixvvJHELQpxg/bRr8G08/JBfVw+/IATf5j/l
t/M27v5LSlSCJAisym5bqr4l4HvFAjKyRAUhIp0YP6ufgHdekct/rigIat/V
hs9LxuMCZlffNh0SBE4+o+XfxFh8bnwXi4CZIBSK3tMPS7yJ91/r1Te1EoTt
PcLVPGI38fyK3U1dtoKQ/Q4sOxVv4AbSQ+0jnoJgPNZpEH4qBt9ZeV1o+3lB
uE8qzhyai8YplponzgYIQpXEe6b56Gh8OCp2cOry5v69gTt3l0XhIZP0P+vx
guDz7KGgmmwk7hQzpqSXtKn/mFfVw7oI3HjbHc9rqZt6BMLS7jpF4KLHxmd5
swTBq7leffXJNfzl25QN4RJB6Oca6RQ0DMcZsfMU1U5BOGKXdOf++zD87+SW
2p29grBeeeVM3eUw/I/Zfs/t3wRhSCdFfk4nDB+hJTdKjAoC80NVzKn0Mt6b
rh3CNS8ILTZtFBWXULybyVGRdVkQ+F274o3/huAdjjHda2uCUGc0WKjnE4K7
3D6XssRCAJQ2FJ95NRh3PFo1M8FDgC4p+cuulZdwhygzw798BBj8fPx38qFL
uH3FaOZvAQL8DCUOnvseiNuICZqMkAgwWnCBNskfiB8btMvrESXAtv88Fwov
BuCHnJlt6hQIMNBA1VO964cbJycW1ygRoHesW4xP1w83bNzB83YXAaxcGx32
/D2PH1A0K6vYQ4DpsWd15gbncT3GQ2LhXgIEfHxX5MTti+tKabo8pRMgPGlK
R/aNDw6mH6se4wRwUKSQ+H18cKx45my2HgHcdh020R/0xrX89d+nGBLgll4T
X997L1wzr1v8rjEBDKRuJ5y56oVr9Lj73jEhQKKf274l8MJVdRKlbpkR4PFH
Xb+DIZ74ro2fgeEnCKAR89jcMvYcvjUyUtnTjQDDObe2PWZ3w3061UIc3Qnw
+8B24qF0V7xadrjZ0oMAt/naY0K1XHHbOrob3WczD93LKwHeLngq83Q2dyAB
jqqL7JaaO4P/PpIxs3qJADsnB01SU87gWpnGepPBBPDnufDyAjqDd+KPBjvD
CGDo11Kqe8sJJwVZi2ZHE2BtkFZ/Gz+NO3zkdr17fdPfgdPLCf9O4c9Fy8pi
bhKA37Rrsfn+KdykgmjpHU+A5sbsb9+YT+Ex8+9v4SkEqEGUT6tdDjiL9272
njwCcHW8uf3Vyw43rf5m3pxPgL3fFmtFpm3xTMEbD98+JQBN+qCmqZ8tjheM
otznBFjRSkzzDbPBA8fvBfqWE0Dnn8fvqsKTeOPeg41nXhHAuIZPsBqdxIVj
5oVOvCaAiI1l8MUvJ/CX201LoZoAthbLlJWl4/i0E8ckfwMBouv7bkTaHsN1
S4tx5iYCFP/LyE1eOYrHsTncnP1IgIzjmkoqqUfxXVmVCn0tm31qkdfu67PC
3Ya8nPK6CFCo06h+1csSHz7R16v3a7OfnjkO7r1mOB929JHt0WY
4eqSbb4h45t57/b4kqVmhkf9aOJ7xSBA2/XZZ053THFl91f47kUC7PYvI349
dQQ/ZqLBe3iZACeu+kUMiB7Br6gUdbmvEuDm4+Xyg7mH8c7Zx155TERY6ebg
yYk1wYOCUx5KchNhONAiSOeSMZ5rR/XEeIkwEK+gubBihLfoxuuc5CfCSxtN
nf4QI1yGI7o9iUiEE5GPG9diDPGG2AAOAVEivL8Z9jyv8gBOzTzqtqpABKa5
lJc2/vtw/EqbhuhOIrh0Me8upe3DXU4fZtVSJsKdsAuHSsr08dfb96f5qhKh
3iHO5ub6f7jjC43Pf3SIsP+TZtHfdD38xu2iVC6cCE4Pnf+rNdTDS/12OcsB
ERSZMvbwLOriXHvlmBz1iVCzejuq20oXL6il7ukxJgLb7NZtDdsA786OX583
IQIym1wlliGcOZL/I8WUCL51dX9E5RFuYcR++oglEbR+OWjcFcDxlbbZxA82
RLBYLM6mLOvgB362LZV6ECHJIhSP2KuFByvGXir0IoL0x3OLW9o08SLvA2t5
PkQQKPyX6HROExdbf82UdoEI7wrjvb/nauATtFzOKyFEeHPkvWS/kjq+1cY+
+tJlIhh/3flE8asafixLlNfvChEC0m9lzQWo4TXKtwRcIogw40mcH2pSxe8c
CKCaxBKhRMh8xid0D94Yu+fu/jgiGHKP888o78HX2/8K6yYQodRvt0T19924
s4ODuFoSEXTPvFhXPLgb3xtouFU0nQj5ueoJlXIq+NAT8d2jz4hALKDvZd6t
hFOnO4sGC4lwdr6WjalMETfUilfreUGEovDTUcxIES+uY9dqLiXC8WN3e8Yt
FPCIgQm86A0R9LduvxVydzteufVx9ZO3RFickpMuVtqOT7qe0supIcLoaPfI
k3fy+PH5rn3J9US48kCG5dO8HK4kWGMc8mlzv07zQS5vWdzB8tJn/xYi0Fq0
A1LIsnjSPfUj3l82+0Calyor24ZvyOebn+4gwp7iEdJltm34V7h9wnCACMqi
vOL3CmXwAB8nF9o/InTNXFfsNZDCo4wmnPcyNseDY8uWpiXxu9v8nW2niCCb
w5/Ad1ISf9kZdSZ3bjOvPyqHXVS34DN7n57WWCdC4nMJYharOM5CUT99gokE
TEWTXWvBYjjp35tTISwkkNU3evN+WRRXyWhxfM9BAk7NUhb/FRHcg3XG3kqQ
BKdjZ2q3Cwvjwf2X7AOJJGh0GXdtyhbCb5Sy2aeTSeCow60cqSqEP3Gm2Y0K
kWBu8u9PxaM0fOyjts0FKRKUOx//KfmSgp+6c/l40m4SeKKqTpmPRNznHPfx
V6okINtNzBz2I+JXDBKOfVMngfA8SYMoTcQzF7OOyu0lQYWz5GHVYAL+zfqD
5Us9EiilimY5xQrg/9SPWPbqk0D7+V/zwGV+fFWgx2LdgARi5Yd1DF35cbGa
P+YGRiT4vu/jrd8mfPgxWQGzTnMS9Hlmprdp8eAu60mmy5akzX78V3mughv3
75I03XJsk9/tPXaazo0nRe8+csaaBHsfVCfoHOTC2/5ZmMyfJoGD+aiIezAH
bvLyniHtAgkIeQ8o9P2suMuM4wY1gAQXGHapNAYLflVFoYQaSAI3H/XBwGQW
vDy/XIIaQgItRdm5egYzLpPRMUmOIEG2eEXyi0ImnN6flkOOIkHb4aq4baeY
8KMip0+QY0gw9Nm3cEKIafN7Mf2OFEuCuuuChGGeDWw+UvAuMYkEEHJDSWpw
FSPUdxoRk0mwc96ASefEKqbIks5ETCWBqPjwwyddK5h9kJIbIZ0Eoc9Erzj1
LGNNXgcxwdxN9jYwl19YxNKPX/3B95IErVsU2t7fnsPKkwyT+cpJEGZxvuSj
8hzW1kY8xPeKBDqvdAISP81iXCaZL3mrSODRfuTyMYFZzEfvTTTPexIwBENr
GrOmsRuh4ThPw+b5uTpOSx+axh69NprhbiLBwoYlO9viFNav0WvN/ZkEd0Os
Mg3NpjADxQVlrk4SJG0deLpDeBKzd6ka4ewmgZXzBQ2VVAZ2KedaCmcvCfj8
nPorOBjYc0kKK+c3EmzXWCNm//qHiVJ2d7KPkmBH0km52x/GsYlVtyDWeRLc
RN8P+sz/wo4fM9qxtLDZT8snstJRv7C6YsXOiSUS7Au0/lAt9gtLcfur3LtG
guZTAzbPD4xi+t3nfjxnJ8OHeu0at/IRrFDVJC6XkwxFH4aflR8bwURv7cLS
uMlg+OL30svlH9jkPkZSJD8ZYrlUNnL/+4HdK/YytKWSYUnmacv1se8Yh6Dp
grkQGSar8oYSEr9jXm67sw+KkOHu7QAKSf87ZiA9vaYmQYZjAQZLtjlD2HSs
7wteWTL8E3n9mGPqG3bA7YJwhRoZylYeZj0s68WK663qCzTIEH/6LTdBpxfb
Iq3pk61Fhs6W2rHS6h5spmvh4y06GSqySzOufu3G0vddDD2jT4a/X2RFxQW7
MO4Hx5WsDciQ8JJXWzerEzu/qt1jeoAMz3q85Cy0O7GDxct7MGMy8M9z8Uqf
7cBmpYJGyRZkiGv7cNZjpA2zC7K+zW1FBopptq1wZBvW1EWHjaNkaCyxFPBU
bMMyYtdS/pwkw7snUs/ZLn7FDFdDDtWcIgPT5RlnDvkv2IOusBIPXzLQVWxz
fsV9wkbrVQZj/cgwqpnRkbLUjCmVDHIX+pNhWFzhgJ5TM/YyDrNjXCKDMivv
Dvq+j1jzwSVur3AyiOze0DSRa8RIWnlqcRFkWB7R/66Q04AdlTtq9zyKDOb3
rTbi5BqwYZbSkskbZHC9ojb+QeUDtljpZeedSIZ+bXQv3qEew/MlY+LvkqHQ
85up60wddjX5c8mLFDKIW/kvu0fWYQJ+SjzT98kg2uXg86n0HbZ111iJTy4Z
uo5rH2pTqMVMMu14zpeR4QBhLGBbXxV2J1ZA/U4FGexv39cU1anCeoLe2JVU
ksH3pNhhLP0Ndvq4WOnsWzJ4ll990HzuNXaR1GXn10CGvbq6TC4qr7AqpoiY
xCYyvDVoCd+SV4GxMdRKS5vJYHOuiHRDpgKL/ZjAM99KhuAPSsesJMux7HCT
0gs9ZLjuiYvRNV9if3zWBpP6Nv08C0zD3pViyg5PecoGyKBj+q40zrQUe4Xx
2C98J0PpDUfftfMlWMt8PU/An0194dScio4ibNkFs7+4QobkvneXTo4XYoaV
CuC3RgbT8ZpTz0wKsXv8wlLeG2TIJCfumyopwOhF04MurBSoPHSkRCjmGRay
8sjuGC8FqpdYFN0sn2CfDyUiC34KNJD6N9o/52OSmVckjwhSYN8125hGw3ys
Wt9mcD+ZAoxdVUuSho8x1liSnaYYBYKpLm+R0yPMYmgDV5WgwN/ZmJ0lU7lY
9p5/W5QlKZAYlK1y7HIuZtD14ZvcVgoQ5AeesmfnYFFSwbY0RQqIzGR0DLJm
Y3zFv2zm9lLA42qcsofEA8yavQObolPgnVP39lMNmdizo7US/3AKXOPfmTZ/
PhMzWU0bGNGjwMheVbOSnAwsbp+ZTbshBfjEH5hE6d7Hhu4irNV4009L7rny
wjRs9x8liWYTCoTGBHu9kErDvsZyDrwzo4B/GgdbI889jNL92rr4BAXunVpl
2b6ejJ1WyKcXWlOgSF1BXDMsGSsNuiv+xJYCuucDlvM5kjEraZ/+h44UWCe7
ad0Wvoslu8lbJ7hRIP7rlTKVo4mYxFr8Se9ACnxZ2HksTSMBOzB8qOJuEAXe
SJm9PtcWj53/wC1UFUKBDYt7cqY+8VhTfNhXnqsUOOTg/0Nm82W6IOd9MPs6
BW4WcF3PeByLPeDd+ajpJgW+HVgXE2OJxZonx9imblEgx+v5T2Hbm9jWSvtq
7M7m+S6cqTSVuoG1Hj6i2ZVGgVtnc+eaPkZjK2p8iWvpFLhtZSvlgkdjcqIN
01sfUEAj0WB6rTgKCxpBBV45FAgMCFHoeBSJ7bioLMtTQIFRT5GHsc+vYVce
CpCxtxTA9u/+xbn3CvYsssnrVA0F6mlsf4I6wrBu94jP0e8okKD14gLJNwzb
pbke3fmBAruOH9HwKbmM9X38x+TVSoEmVm+Tp/dDMI4Xj22TvlIg39bUGM0G
Y3uSnF6/bqfAjnCNaTeTYCzKfsCfu4cCC9cH/iL+IExtrnni4XcK8BN8KUNF
FzG73ijjxh8UYFvMm1LbdhGLeaufz/hJgUdmlIe3kwOwoejXTvQ/FBhbu9O6
M8Yfu7nlaX/HNAXujN+akbnlh43uv97ExUYFc4mrZcFkH8zRyF5KloMKFx9C
ktlzb2zARP2CLhcVLknwD2KHvbF2y0HpQD4qcOl0vFW87YXVnlK9OE6hwqdU
5bnA0x4Y7szVwilEhQzNsRvab85hFW4D27aJbK5/R93+ssg57Ll3ZKu1BBU0
rPFt1v1nsfuhffKfZanQWiQ6axXtiglffR78R54K8WpCF+xWXbA7EdfaOBSo
cPdn0LXTPi5YzE3lULSLCk9ChDllnZ2xgHtXO59rUIFnW1Ngp7cTZlGmeO32
firIhW958XTDAWt9xdRXeJAKxKOafiX3HDCjqg6VZiMq3PK98WNA2wHTqw/t
ZztChUlje0OXIHtMpa1N9cIxKhSdPTlovscWe9qZF51wggoCcIpJOMYGk+8N
HiywpsLVKGdTv5/W2Jbv8td/2VMB90cRBbknMT7GpeFjrlQIrwzdRTM9jkVN
H9HyO0uFgk/d/ffeHcNY52Vj489RgUIRfqagfQxbXm3RbvKmgtDgn2iZnUex
MZ5t8TqBVPiQ5p5br2GJvZNrRluuUyEsqUB0T50pZhg7aEi7SYWbaQa502dM
sda5aUuBW1SIVNk4fofXFPtWJ+K+nkCFzskCE8sTR7BFR+fkb6lU0E/pME8T
McFCmgKzOtOoEP3RoGzXpUMY+57Ygs/pVOCV3rIyO2iMkZhL66oeUmHb8dOW
/UVGmFIGy1R6PhXEr/uJOwYdxIo4aKtJT6mQZ1e31j93ANP22MF5q4AKAa0K
/CSfA5gBdkQitIgK/ZZlJ3199mMOffcP2r2iwmst+53p8fuwJCHth5JNVLA1
rGR+h+th4qHGz4SaqeCtXas4PqCLZY3alQt+poLBqO0PvlBd7HlpxOeNL1RQ
+/U7j/IBsI/m7cuDPVToUh4NMu7FMbPKX+zdfVQ4rDchT9HAsW6ZFULrABVC
a0MSNRMxbHRKWr76+6bf3TBlbEPHmOI8zTN/U+GA/rfZYdJeLGLhim3yOBXO
i69eLYvUxvjtklzj/lFhH0dDw5kNLUx015vQy1Ob+Zu3fhVd0MTUm3me2i9R
Ifngh0gTDg3MjSuXTZqbBqe+eezwTd6DfWSJuvkfLw0ueyXqmivtwZTWXGln
+GmgTGn4d792N8aY2rn9CZEGpHCjKfq8Cna+r9RIXZQGtj9XrnhM7sI6Ou62
HxWnAf627te6zi5Mo/WiTeAWGujfr6lNvb4TW6zDPN/KbI4LXCekaihhwQX1
CQcVaaBFZkuyqtiBfct7JOa+kwa0j/fuf5PZgUFWdHasMg1ElD5+bLi1HWNJ
PvSyTZUGul0TZ/195bGIsI4eG/qm/ugNLWQvi/26VOZ4GafBycQt453D27AD
F1LGHwINKqpryvVctmG8Z23WfunTQLIipsbq0lYszuKnlM8hGmwTTferq5bG
pkw+PL5zmAa+3danTI5JY2YHH+8pM6XBrZNvzNWnpTAqfk5/1ZIGlp+TC0aU
pLBU+TnnCFsavN11V7w+QAKzFq+4+NGRBjWqJ9n7pcQxSWLwdYIzDU58Df3p
2C2KZS+zFaZ60mDF88ZPfl9h7AyjoXrQlwZf7i+YjVsIYTtGbnzdFkCDOHrx
8/z/aFjBJ8p8wWUaELmvSdzcR8G8ars5Z8NpEOZtWZN+lIztKUsT0Y6mgbjr
8XmP8ySsLHMb9i6eBoF94OHcTMDibJwq3ibSIItDRDGcTMBcRHPVX6fQwGpw
MPJPnQAmekd+V+kDGnQFN90m7+TDpo+45L/IocGBfLFIqXke7CP/Y7mCxzSI
2S3d69DMjQVFKkg+ekGDENtfWmbpnJil/tl7WaU0cP3p3LeQzIHtYn4qlFlB
g/+czBOr0tmxwcCdhJQaGlQqVgR3NrJieh4qzNe/0EBHtI9ulMCEzf56sXS1
hwZnmvePTpmt03McVKeDvtOAx6e49MubFbpVX8kfv980mGBK+6huv0TnstT4
4TFFA/sHwioR6gv0V5/L+pyXNv0ZLlfEaM/Rzx7QbrdnFoKtpWP2p1xm6OK1
r5qPcwuBlam9QljVFP2zDr3ejCgEhG1JORlak/TqXTLpW0WEYDR5xfBvyT96
sTSX/6yUECglWht17Rmn51ImDtdvF4Kja8dk9o6O0ZM527cnqQhBX3Cc6Yum
Ufr15QpmZy0hOPlgr7Ja/wg95F9GryYIwY1Lc0/4hX7QvYauFXMdEAJl72OP
O/y/00+1nb3Rc1gI7vNaPu2YH6QfqNDEL9kJwXbVylnPt730XRmsk+KeQsB3
9ly/sV0nnXyt5UFViBDInv0sq1jylb7ods/cPlYIQmVFn1notdCLfvXNWGYI
QcdATK3Vy0a6+2nxO0bPheC14eu/x7fW01nPbzvgViQETjUG1yGzjp56VWk1
qkQIBsf3Th6QqqM3PqSffl8uBA0MmVXfHe/oct+t1XRrhGCoa+4uZltDH7K5
367xVQg4Y1iTwyJe0/3P5URZtgtBjngfz/32SrpA8DP6+U4h+EhazFyXq6Rj
aW+yX/QKgdZM/s6d3RX01N6B80o/hCD7j/q9SNcyusXRLVSZWSHIuJlqG6xW
TG84kmHJTxOGXX5v/XI+Paa71f2s4hQWhh8n4s+XqT+m82spbWcRFYbUjoF5
nQd5dDPJiuV5CWGYbZFZPXTlEb3v39eMIVlhWFQ4sCXKLYc+EcPxp1hdGLis
j8uq1j2gU+vPhZywFAaaWPNO9bPJdEdt+qNHd4TB4LvzXNVEBN3136e5/iRh
eFdidlXBMoLu9cBOn5QiDDXfcaubb6/RQ7mvfg+6LwwrjbPLXzLC6Wk9jWJm
ucIQ9ZrB/+T6FXrnxaNxq2XC8Owa7nloOZhu+MrnommfMARpmLlw3/Clm3qw
NUQMCMNcUzq1gNOXfkwmifZ6UBiEXYsLPkT40J1jKorlRoQhfOP96nqsNz38
BNPEyl9hkOg0RgYxnvSq5ZuOuevCsC9t2FTXw5VeXyD5oo9JBK4GWeVJ1LjQ
mx1fbBBYReDmk5+0CGEXel9Te9olThHQ+33U+Gr7GfpiqljXEYII7Hf995QY
cpq+YfJMNoIkAsrvjAoVp0/ROVjR+UqKCHy8J/p31vUUnXLWkSgnIgIn/+Zm
qJ52pItJztqdFBOBHw6Kfy6OOtBl2q4VxEmIQOPBLAGiuwNdIVJorV5SBH7G
h8wMz9rTd+s8NlqRFoF9/ZcJvZft6f8Dslvotg==
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesLabel->{None, None},
AxesOrigin->{0, 0},
Method->{},
PlotRange->
NCache[{{0, 2 Pi}, {0., 0.9836}}, {{0, 6.586}, {0.,
0.9836}}],
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{3.882*^9, 3.309*^9,
3.167*^9, 3.848*^9}]
WindowToolbars->"EditBar",
CellGrouping->Manual,
WindowSize->{},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"Magnification"->1,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1},
"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
Magnification->1.,
FrontEndVersion->"9.0 for Linux x86 (32-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
"S5.33.1"->{
Cell[965, 37, 294, 7, 32, "Input",
CellTags->"S5.33.1"]}
(*CellTagsIndex
CellTagsIndex->{
{"S5.33.1", 7}
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 99, 1, 32, "Input"],
Cell[669, 25, 199, 4, 32, "Output"]
Cell[CellGroupData[{
Cell[905, 34, 57, 1, 81, "Section"],
Cell[965, 37, 294, 7, 32, "Input",
CellTags->"S5.33.1"],
Cell[CellGroupData[{
Cell[1, 9, 55, "Input"],
Cell[1, 9, 24, "Message"]
Cell[CellGroupData[{
Cell[7, 13, 32, "Input"],
Cell[768, 191, 250, "Output"]
Cell[CellGroupData[{
Cell[1, 61, 1, 81, "Section"],
Cell[CellGroupData[{
Cell[1, 68, 1, 32, "Input"],
Cell[1, 532, 11, 24, "Message"]
Cell[1, 79, 1, 45, "Subsection"],
Cell[1, 114, 5, 62, "Input"],
Cell[CellGroupData[{
Cell[1, 112, 2, 32, "Input"],
Cell[1, 3, "Output"]
Cell[1, 86, 1, 45, "Subsection"],
Cell[CellGroupData[{
Cell[1, 90, 1, 26, "Input"],
Cell[1, 185, 3, 46, "Output"]
Cell[CellGroupData[{
Cell[1, 126, 3, 32, "Input"],
Cell[1, 527, 14, 54, "Output"]
Cell[1, 63, 1, 32, "Input"],
Cell[CellGroupData[{
Cell[1, 107, 1, 32, "Input"],
Cell[1, , "Output"]
Cell[1, 84, 1, 32, "Input"],
Cell[1, 69, 0, 45, "Subsection"],
Cell[1, 148, 4, 44, "Input"],
Cell[1, 99, 1, 32, "Input"],
Cell[1, 75, 0, 45, "Subsection"],
Cell[CellGroupData[{
Cell[1, 403, 13, 26, "Input"],
Cell[1, 692, 21, 50, "Output"]
Cell[CellGroupData[{
Cell[2, 418, 10, 32, "Input"],
Cell[2, 1, 229, "Output"]
Cell[3, 62, 0, 45, "Subsection"],
Cell[CellGroupData[{
Cell[3, 90, 1, 26, "Input"],
Cell[3, 184, 3, 46, "Output"]
Cell[CellGroupData[{
Cell[3, 94, 1, 32, "Input"],
Cell[3, 590, 17, 51, "Output"]
Cell[3, 87, 1, 32, "Input"],
Cell[CellGroupData[{
Cell[3, 58, 1, 32, "Input"],
Cell[3, 5, "Output"]
Cell[CellGroupData[{
Cell[3, 59, 1, 32, "Input"],
Cell[3, , "Output"]
Cell[CellGroupData[{
Cell[4, 98, 2, 32, "Input"],
Cell[4, , "Output"]
Cell[4, 52, 0, 45, "Subsection"],
Cell[CellGroupData[{
Cell[4, 158, 4, 26, "Input"],
Cell[4, 161, 2, 32, "Output"]
Cell[CellGroupData[{
Cell[4, 96, 3, 82, "Section"],
Cell[CellGroupData[{
Cell[4, 68, 1, 32, "Input"],
Cell[4, 503, 10, 24, "Message"]
Cell[4, 62, 1, 45, "Subsection"],
Cell[4, 76, 4, 44, "Input"],
Cell[CellGroupData[{
Cell[4, 112, 2, 32, "Input"],
Cell[4, 8, "Output"]
Cell[CellGroupData[{
Cell[4, 98, 3, 82, "Section"],
Cell[CellGroupData[{
Cell[4, 68, 1, 32, "Input"],
Cell[4, 504, 10, 24, "Message"]
Cell[4, 62, 1, 45, "Subsection"],
Cell[4, 114, 5, 62, "Input"],
Cell[CellGroupData[{
Cell[4, 112, 2, 32, "Input"],
Cell[4, 5, "Output"]
Cell[CellGroupData[{
Cell[4, 98, 3, 82, "Section"],
Cell[CellGroupData[{
Cell[4, 68, 1, 32, "Input"],
Cell[4, 503, 10, 24, "Message"]
Cell[4, 62, 1, 45, "Subsection"],
Cell[4, 119, 5, 62, "Input"],
Cell[CellGroupData[{
Cell[4, 112, 2, 32, "Input"],
Cell[4, , 245, "Output"]
Cell[CellGroupData[{
Cell[5, 140, 4, 82, "Section"],
Cell[CellGroupData[{
Cell[5, 68, 1, 32, "Input"],
Cell[5, 526, 10, 24, "Message"]
Cell[5, 62, 1, 45, "Subsection"],
Cell[5, 148, 5, 44, "Input"],
Cell[CellGroupData[{
Cell[5, 112, 2, 32, "Input"],
Cell[5, 1, 278, "Output"]
(* End of internal cache information *)}