(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     46219,        954]
NotebookOptionsPosition[     45031,        912]
NotebookOutlinePosition[     45475,        929]
CellTagsIndexPosition[     45432,        926]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"B", "=", "0.01"}], ";", " ", 
  RowBox[{"L", "=", "1"}], ";", " ", 
  RowBox[{"T", "=", "1"}], ";", " ", 
  RowBox[{"\[Mu]", "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{{3.529847458238*^9, 3.5298474860109997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"y0", "[", "x_", "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"x", "<", 
        FractionBox["L", "6"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        FractionBox["B", 
         RowBox[{"L", "/", "6"}]], 
        RowBox[{"(", 
         RowBox[{"x", "-", 
          FractionBox["L", "6"]}], ")"}]}], ",", 
       RowBox[{
        FractionBox["L", "6"], "\[LessEqual]", "x", "<", 
        FractionBox[
         RowBox[{"2", "L"}], "6"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"-", "B"}], 
          RowBox[{"L", "/", "6"}]], 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           FractionBox[
            RowBox[{"2", "L"}], "6"]}], ")"}]}], "+", "B"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{"2", "L"}], "6"], "\[LessEqual]", "x", "<", 
        FractionBox[
         RowBox[{"4", "L"}], "6"]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["B", 
          RowBox[{"L", "/", "6"}]], 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           FractionBox[
            RowBox[{"4", "L"}], "6"]}], ")"}]}], "-", "B"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{"4", "L"}], "6"], "\[LessEqual]", "x", "<", 
        FractionBox[
         RowBox[{"5", "L"}], "6"]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        FractionBox[
         RowBox[{"5", "L"}], "6"], "\[LessEqual]", "x", "<", "L"}]}], "}"}]}],
     "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5298475055769997`*^9, 3.529847697867*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"y0", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5298477027390003`*^9, 3.5298477219779997`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQ7ZX64uKBl6F2DFDA4ixVcF/SxB7GN54/Y85mSRc4
3/vs9U1zJUPg/PCU73snSabA+Xf12517JUvg/AWi/m1dki1wfiPHZvVOySlw
fkTkwvUfPi6B87n/N8a4y62H81UD37043L0Fzi8/Z2k/48tOOF98i+A9Rsb9
cP62R85nztscgvMPZc2VjnxzBM7f/DI7O+4bgr8kw2p3MsNROL817XpUngiC
75EkOKvZBsG3fHj/ZYcbgn9pL2PqIy8EHwAF7lDA
      "]], LineBox[CompressedData["
1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAA2OyoRchfxT97JC3o4Q/0PgxeS9mY
ZMU/mWlYAW5O/T793Bkpnm7FPx5FWQTqRQg/7lvoeKN4xT+4KgOETvIQP89Z
hRiujMU/jzqwhwGRGj/A2FNos5bFP7jChglbYB8/sFciuLigxT8zpa5F2hci
P5JVv1fDtMU/XC2FxzPnJj9WUfmW2NzFP9cemWXzQjA/3EhtFQMtxj/rLkZp
puE5P83HO2UIN8Y/9dC7yXwVOz++Rgq1DUHGPwBzMSpTSTw/n0SnVBhVxj/1
thzr/7A+P2JA4ZMtfcY/gJ95tizAQT/oN1USWM3GP4onUDiGj0Y/9SY9D61t
xz/Xm/6dHBdQPz7iQseKeMc/MDrEN5BqUD+GnUh/aIPHP4LYidEDvlA/FhRU
7yOZxz8mFRUF62RRPzYBa8+axMc/bo4rbLmyUj9425iPiBvIPw2BWDpWTlU/
/I/0D2TJyD9KZrLWj4VaPwL5qxAbJco/WxizhwF6Yj82/2C2U67MPwTUAwQE
N2w/zIQ0zsYqzz9Lt9+0feFyPx+Q6/mp7tA/v+FAglkPeD/r99/e1TDSP86E
cPF85Hw/pOq7yg6O0z+DwpE9wBCBP26XTyNqk9M/Y5OOOQkbgT83RON7xZjT
P0FkizVSJYE/yp0KLXyj0z//BYUt5DmBP/FQWY/puNM/fUl4HQhjgT8+t/ZT
xOPTP3fQXv1PtYE/2YMx3Xk51D9u3iu931mCP6IwxTXVPtQ/TK8ouShkgj9s
3ViOMETUPyyAJbVxboI/ADeAP+dO1D/sIR+tA4OCPybqzqFUZNQ/aGUSnSes
gj90UGxmL4/UP2Ts+Hxv/oI/Dh2n7+Tk1D9Y+sU8/6KDP0BWg93j6dQ/KWgG
yJasgz9yj1/L4u7UP/rVRlMutoM/1gEYp+D41D+bscdpXcmDP57miF7cDNU/
3mjJlrvvgz/QH2VM2xHVP67WCSJT+YM/AllBOtoW1T9/REqt6gKEP2bL+RXY
INU/ICDLwxkWhD8usGrN0zTVP2PXzPB3PIQ/YOlGu9I51T8zRQ18D0aEP5Ii
I6nRPtU/BLNNB6dPhD/EW/+W0EPVP9UgjpI+WYQ/9pTbhM9I1T+ljs4d1mKE
PyjOt3LOTdU/dvwOqW1shD+UiSvdG1DVP+n9uVbZcIQ/GK+dQg==
      "]], LineBox[CompressedData["
1:eJxlx3k41HkcwHHljEmODAm5Hrm12kcS+8Ek5HoQ1rGEcoQntplZwpr5zc/s
rDZrUzlr1DqSENsILV8iK7MeR2ZctcTv5661aa2j1u7+vX+8n9fz1ou66Hd+
t4SEhNO//SdVL6s/N0QESx9bAseTcWhP87QXholAcfbKydxEHFYbjU37IkXg
wPBoWY/CQX9FSuN5jAgSZRUsI4Jx4Ia3rfUki0BolqN+5BQOXjTLmqe4CHLo
vKWhQzh8nSFf1PmtCH6WcYuwo+LwUDDH7cgVwXKh7MhdCg77jflR7YUiON3G
bbu0yYGXFCXN1gcikJXJzlN7wYFE8R+8hhERYAVsm2AuB76LF8SUGYohtfUy
Nr2CwZJjLU/BVAwrLtLH0mYwcNWouM+0EkP00PfLymMY7P7l+ltPOzF4L5Sf
oXVhkGZIZ276iEGPOmBUWYRBzJQ11y9dDMIUA2HCKQycAh5WSA2LQcvkV9W/
+GxYd6wh4rJGobNAu2KvPwvo1t2PqF1jwEhpfGMhTIepuu4rQ3oT4BhYyTzL
Y8L2hZESk8uTUCgkcjTCU8DMSfbvmCcvoSyvekv5QDy43tWLbVD/DfL40gHn
Pb+Ar7Qj9F+HTcEg80OIUj4NzFcCFEa9pkG3v60os84Zqe5blevemgbjTPdP
uOrhSAqV1BuUvgbdbaYiszUOJXz6ZHyPxwxsbFSV0ktTUI17VFn7+gxMzD6v
NO5ioj+XNZXmbs5CiGurn+EP6Ujg7yp5/SQBO5IFFFY0C/E8mrO1XAlI4cX6
2yWxUBjNRK7CnYB5im3xeyYL7T6qsLfJmwCh2vjh+BwW8lYZoI59TkD+4YM0
vwYWWhgMNNVKIsDEg59muMNCmt4xvuU3CPC5VjXXW8xGb1xGX5gXEtBJTbXg
lLNRh4NboKCYgKMlbnSHOjaKsTAN7eEToF6+uKuxk41+orw9t1BNwKzATLtk
gY08hYxU83YCGOP1/kk2GMpyy+Y/miPgjm5zh/IwhobD48KOLBKwtu/LD8WT
GDJkeBx4sEwAbcfM1pDEUN8d5fwfVwlYfMWvt9nA0P7tW9xrWwRYlXxzO1SH
g+7VNiUlK5LQohaUUXGBg7a6ikxXlEiQlVZutqRzkNdExnysKgmh7/vWHmdy
0DsZWmSEBgkfhz9L6MvjIPuzA2e89Umg5RmF/N7EQYMqCyfMbUjol18/dlwS
R/omwo0qWxK0t+ovPaXgiAF1AoMTJFxcjK/3oOJIM5FuddCRBNXeV0bhJjhK
xIJWbjqTEPm4IGreGkeo0K5axYUEQaXv7WR7HJ17JmEgf5qEoOxnahwfHDVN
zk5le5JQRc/ypQTjaM+7ntJdPiRsRh+/eiMKR2Fy94MzfUnw8l/r1UnEUZ3O
VeqmPwm3nGul7jH+//8AtCsDBA==
      "]], LineBox[CompressedData["
1:eJxljmswlHEUh9+oqEkfSDGl1iWtsGkZbC5/WbPabStrmZjVDktp2I2VEg1Z
76rczZBE7rc2QqPSZXKWcWnMlGhqdUN4tb2TSTukJpden/tw5swzv/N75lhK
4gJP62EYxqBmbQuPCgvnQgj0yMDDxFCmhMYI12NSEYEizRSatEgl/E4y36w9
RSATu4HyhVAl8PKX+iPDCdTLMgqXBiihon4cH5cQSM4T2kxxlOA73LD8LppA
r2LHW147KyF3P/Nnn5xAWa2Lz5uNlGD5mTdal0mgv870iYhuHLJ7PNqCrxNo
1os1bdiJg67J4apBDoGm/HnathYcehK2usQWUj6RdG75Jg5RhiMFzHICVeLt
WNk5HO44h/p3txPI84275chOHBjZ0Y/GPhJIkcCV+F7MgENuymJz5gzacj9m
2speAWG7h/6sezODaqdyDqRnpMLCYN5kvOIrwgzh8gfOJShdL04MtNEidYe1
7WzkeTAZe1ir16tFtImGzs3OMtiQqghiyb+hs5XLsymvJICpxG2TxiTCNPHd
na6B0P9dc67KlESFSeKB6kkB5DoJGGFmJKKZ8V9m5Qtgx2P2vbcWJAoP3fde
NBMAjAF68ws6ieI7n31ZtT8BYYSusdWbRBPqGz6FJBes7KRnYg9Tfj05X+LL
Ba2U2Ev3o3xsfohL2RE4P6+pr+GSqLpPL36U6w/Z+s9ri4NIFDAYV0VT+cET
y2uVKTHUfVPRUsSQN6SdxsRuMhKp7XjbNl7xAj9VssV8HOVvwRzuMjzhtZP0
tuwCidLbZSJdHgu0SFAWnk7xE/+nGXwXaMUHQy1wqu+xMmy7xITEAbb5h0yq
3/Xg22DzQVg97loqzKHyTDbTdjsDtot3lnBKKC5d/MEpsoZPNcXB+rdI5FMR
tadAR4NawshUXU752XUVrXW7wFGGFbNqKN/Jk6IhmjHo2pOFv+oo7pUkQtcm
eDyvM+5oXPvXMUqdtNKV5i4diVNRXG0P+tOT//E/D+V2gw==
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQB2IQzXUgLvDlulf2DFBwgfmGwLKNCH5096l++e0IftGs
9b1ChxD87X9mtR86guD/iWtrLDqO4Lcrx5ZeOoPgz1nDFTvpOoJ/dF+qjtBb
BF/isfRpQYnXcP5e7Q4OwTwEX9CrSKeJ7w2cf0f3wuXKPQj+hnn2Kk/i3sL5
sevNBGX/IfgNrQsb76x6B+evfSE7m8/nPZzfMbc14Z4fgp8S9FZ1XSCCL7Nn
zwbfcAS/qz/6WE8Sgp9hNvMjVyWCr9Qi4sG+DMH/Z1HDe30Fgn/z7eNLy1Yj
+BPCN8e6bUTw/2sFFbfuQfDvXOyfx3wZwd/R9j358lUEf4p1vObiGwi+91K9
LU73EPxdFWdPNr5E8KfpmvYHvkHwCx/NCVF8j+Br+OTcP/AFwWdhvLJkwncE
/8FW66yEXwj+nqzF+gZ/Efzp8txf//9H8AFMWamy
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {-0.009990036623692073, 0.009980867346938777}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.529847723014*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"k", "[", "n_", "]"}], ":=", 
  FractionBox[
   RowBox[{"n", " ", "\[Pi]"}], "L"]}]], "Input",
 CellChangeTimes->{{3.5298477331029997`*^9, 3.529847745608*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"e", "[", 
   RowBox[{"n_", ",", "x_"}], "]"}], ":=", 
  RowBox[{
   SqrtBox[
    FractionBox["2", "L"]], 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"k", "[", "n", "]"}], " ", "x"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529847783717*^9, 3.5298477975*^9}}],

Cell[BoxData[
 RowBox[{"\[Omega]1", ":=", 
  RowBox[{
   FractionBox["\[Pi]", "L"], 
   SqrtBox[
    FractionBox["T", "\[Mu]"]]}]}]], "Input",
 CellChangeTimes->{{3.529847803664*^9, 3.529847832296*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Omega]", "[", "n_", "]"}], ":=", 
  RowBox[{"n", " ", "\[Omega]1"}]}]], "Input",
 CellChangeTimes->{{3.529847839959*^9, 3.5298478568710003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"e", "[", 
    RowBox[{"2", ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.529847884145*^9, 3.529847886986*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwV13k4VO8XAHCkzVZUIlrQQikqkiVHliyR7MpWtkSlpOirkjXJlqXIlqUS
WbJne0tCthl7yhbGzEgGM3NR0u/9/TXP57nz3Pue9z3n3HMlHD1NXbg4ODgK
OTk4/v9r4ELr/EC3UF978HPQsGWYOrfWtusjogoQNEP7lG7mCkfTE1NKRLVB
1Tjf/orZbTjd3l+cKmoOZNEZGX2zULByXqiNFXWGu/KnHwqaPYUhuYdakaLe
UO6985md6St4scU4NFw0GCpaf2pmGZdDwLqSfY9E4yFfSyyhUbsRrM9lFM7O
ZUMcpCae5OoH3n8Btro7CqHJvGGX29Ao7DHBC3lcCgb6uyNyhijg06EMiaz3
8Er9eYDUzynYWio4zMmJgHvea4eRIgPKx7TaSGr10K9PyjHMmYM+vYC5SN16
WPRVdPxQOAdEQZ2woWk9xDBD5eUq5kDJT/li86V6aHmRs2rl8xxUbpIjPsTW
g3y4ncGF8Tl4r71tVzGtHi68/vJEcfs81LyavRkf/wn0S/I2bYmch3r3VLFz
0w3wt7VjXM2OCSV0Dw97ogFCdBlJy45MyHZTqXbi+Ax6UirpFW5MCHHtP39t
82dY0G94stObCXqOgs+D1D7Dx4M7Z8vDmUA6FyJSEIEtY3GRq4IJg3pXt6w6
2AiUtNPtXHwsaG9SdVmn1AjSxnIkGUEW1J3iKeM/2Qj7c0SI08IsSNd+bS5i
0QhRL1YXBOxigaPGj7iD9xrBO681q1iBBTQlCyHr9kbQ3srxTMaWBey9Jzbk
X22Ci517zzu9ZoH6mGZTuG8T7O1rcTvzlgWhqXr+bkFN8FeqPuHoOxYIbzZn
SCU1wcF923Smq1hwjNOD9LyhCVoDv3UJd7DA93tidJhYMwQ9vu1nzGTBcjRr
g/OXZmj3yxvVUWaD9unfTSd7msFK5vk+rxNsiFjD8WDnSDM4Hn/ilHiSDdvv
8c5+YzXDZvsfZV36bFB3lySb7PoCjy+7Za2cY4O/9tkY8PkC/BZFmUfusIFr
KW+j2J4WCNWTjF1Vwgaxdk0myLVAIiMs5Eg5GxQyBnqdlVvg4aomYdv3bHDR
X5tcYNQCcQOvN6QjNjQnOe7RvN0CenQbnYlWNkSriKpcbmqB4RuMrR7jbMgR
KBKP6myBcI3MSK1JNnwYO/Wv+HsLfL5xMkGYzob5cO+GZUYLXFe5Y/V2hg2W
30lnYkRawTzuYfzTJTaI3w11qrjcCrQSSxsXAQIUz24/NXizFUSkqtImNxJw
ZnepNOf9VuCP9rnsuIkA/7YfvwxiW0Fl9+NYfRECxsRP+A5XtUJ6raxknwQB
b2qZEav52mAi4XEp9SgB9U/CPfcLtwEEZO4VPEbANxcJU+NdbSCmOyiseJwA
PgHjrUkKbVBs9NzzihoB1+1zM2Tt2qBLrYqZqE3AsX8Xys0K2kAkrq+PZkaA
odGHQJ3KNrg+0NVbZEGAU/JOY6X6NpjJtgi8aUVAjNIwdVtfGxz01xyjnSeA
7mkjOva3DfpVDYrjLhLAUVdF6V7bDj6NXEKHnQgQ5ttW/FmwHVSAR/yLMwGa
OV8N3uxph/VmgQfplwhIGbW4e92oHURfNqjSrxJQfKhMz9GqHUptk8ZtPAlo
vrt5i/nFdnjX2Hfky3UC2CLd+Uq32qGnQb4x7ibeP5OzIysp+P9nZCtovgRw
1htoRk63Q4Rs890ngQSIbMwV8CfaYVp6962CIAIO2a//fp2jA1jbBTc2BhNw
/nfTTfPNHdBfHi9LCSWg9IjOSzG1DrDN1l8aCyeg5UH2Df5THfD15oF/PY8J
GO1Ypf7PuAO+r81/+TGCAH6P+r4xpw44pFDYHR5FgGsWrMt93AEnzXvzB58Q
cHcurSc5oQPM1nUVZ8USuM+tvIhM74A6VZKlSxwBH77XKN8o6YCIvk1+X+MJ
6JMRX+NU2wF27Vx/HiUQMO3j12Xe1AE+jidFjz0lQHSzisfx7x1gmMEjf/8Z
AfKOSUr7KR3QKK4rvS2RgFNFi6vEGR0g/u1YXRG2l2FFyj8uEjh+y6hvTyIg
7Lnw5Tk+EkQdGZA3f05AOu2W4rgwCcQXVNV6sduCFToa95Ogg59nf1MyASob
WrmeKJIgfkTS5WQKATlJF5VsNEigE+ynV4YtvHvRY89pEty8w+yWTCUgqCDq
BcOCBMrcV9aGY88e39P7/gIJtA43j01h23+qXh/sQYKvPdMuOmn4/l9pXiIB
JPhdfsCJip3j6P967DEJ7IJFhg6l4/v/2jL49ikJuCe9Vjyxg33ebvTJIMHr
p9JNudhznFo6J9+SoEpERmkE2z5i4A5vBQl8y13O8L/A8QhfL+j9SAJaQCef
IrZKxprx9DYSDJhf9LLEzjmQutW9nwQzZF7/G9jC5UcNFcZIkObw5UgodrBG
y4OVaRIcPhIfGY8933KhrHmBBF9OukWnYBfl/vHW5ySDg7HW8TRsKuNUdMEa
Mnwa3x2WhL1DMfbNJj4yvDAW8I/CNv9v6JOvIBl887i238N+jKSHh4TJkNW/
xtEFu57be1FTnAymdyXO6GIv6iOhHAkyPFpv80MSWy6a5yD/PjKIVdSKLeJ4
XXssdL1kyVAQbPG3ETtVNONi/2EyFCvLh0Zj99hP+6kpkcHWxa7cBJs3W+lp
hhoZ3tjPRPJja9IDi9ZokuGsNsH3Ce//nUMdLR66ZGhcfnTUC7vopiiFbEiG
g8c+cIphUyud/ymakuGc6zufWnyeO1YKRZOtcLwtPgnnsC20/hzlsCODv5uc
DQPnR0TYqTMujmQ4wUc038deEhoKlLtKhsP35VPDcX7JW0unxnuRwbWVtmot
tmvqzYolHzI8FFfedA/nY88+nulPgWTQP68ua4nzt0hNycI6kQztraGGNbge
qAGBnrWpZNhjmLa8GntHU/sjySwyvJcts9TH9RNh4lw3nU8GqeDy9bW43txc
n+wL+ESGBe2TN6xjcP7nDZ6cbCZDtECAj2c0rr/ZfbanO8jQY54k8wDXs7Zf
XcyWATJ0ZV2MjcL1vjPm59KbGbw/n0XuO4QRUHfR/00xkwxqEVu2Wj3E+Xd0
07nqRTJU6fvI6eN+ktKnUtnG1Qn/irxGxHG/Edkefpsh3AlvUru1Av0JqJjZ
vndRrBOKdt0ZMbpPgOWHd70cEp3wLr5yedM9AhKcBhSEDnQC1Ui5Nvo/AoRy
pZkK0AmPNy/Z69wi4J1fTeYJ7U5AX8Q2UnA/PGt01vSUfico6Tvp+HsRED3r
887KrBOCHqETWbif8ik1ef53qROElWM831wmYHWDyzSK7oRrihsOFNoSkJ2w
lNwc3wkrBxwNFnB/174UebozqRPUkmaZyucICOQpyx3L6oT1Gt7UAvx+WDnL
fXl1JX6+yllbqzM4X4cyKQajnfBgR8h4pjoBPxdGhnvluyAklTW8T4yA8kvR
9QbHusBP9v6VKPx+e9Cv/gqpdkFETW3mzBZcfxWpV9+c6oLaPie+FPx+1Lxt
s3zXtgtsA3rouasJeM7qE90d1gXqlAf+Sfh9qzfXbu41gu+fTlrzoZoNmy7e
O06dwNfjarTsKtkwTJYVt53qArL5b21WKRu8ix6P67C7wG2feeKGAjake+p7
ifJ2w1sH67Q/6WwgfjVEfzjWDa43lfhyA9mQPVXdIhDVDUuXZOcuabHh2jNj
Kfe4biit/qxlBmxQ0h73+5zYDdmvlsuOq7KhJZXn4N2sbiCJk/7OHWHD3Nlz
0fTKbuh1UVDdIYnnmQrCrGG8GwxE0E37fywYCDo8dEe5B/iP2LqGlrFAYPtr
xsRED6ipTYzWbmSBhmXQ0Di9B77vPn/2OS8LvKIdWsdmeuC/IMdfN9awoI9T
5PXoYg+UG0iWCS0zIW0yzH6QrxceXXFO20ZlwqEi9/ZuhV6wjmEwtWuYYKR1
KK8+uBceCCk28TkxIeJymeuL3X2gnsv/sixzHqY08sN49/fBj528J0aS50FX
5GXubbk+gH/MmFUJ88DVFD9jqNIHg8jQW+3hPNzZ7X17ybgPOoY7HDw95sF1
5EioqV8fTEfFB38/Mg8nLYpecnf1geprnr3fa/H8rZE34ebfD9TwpdBfDbPg
faShVPjTV1j9Zk66IfgXjBQ0PO6U+AZ2mUG8869o8Me9J1nmv++wde3q6Prr
43Dg5NoV1+pB6C61D2KED4JupsSld1uHoUSakpeL69Rnu4PkD9sRaGRkya7J
LAfZaQvefqNRUHzKXLfheRnatGF2XcPvUQg9lDG70agTcaPkQqmUH9DqcWXf
b8lB5KFQPbD+9Bj46IRt63w3jvL0HV/UEWNwfV/RyPAIDbF/bts4+XQc0H3L
nlqTX6jMTHdVvPYEtEr/VC3onEVhpytDxHUnYEZGKO7owCyy1ZJZ91J/An7v
EEOlo7OI6ygvf/mZCWjLd43KZcyiM0Ik4a/WE7C5S7rPiX8O0ciW+8WvTsAI
ddKTV28ObTvjapKdMAFjHT/lJKvmkL9eSHrp5ATo0nSC+Z7Moy57N1t5+gRs
yhH9Yv1sHu2+dVr07c8J+Gt0PvNF6jxqyRCMy5qdAAfV/XxSufNo85/U0Njf
E5As7RM3Xz+PcvLLr14XoMCN+137qpnziCxEU5U9RoGLaoQVzYSJJGVaF18f
p8DtzLPns62Y6BYUlEmpUuB8rsMnGzsm2nbFW05MgwKSC7INNW5M5PyZQ4rH
gAKG+tXndf2ZaNFHlIdmR4HQscWie3lMJDFk8DUrhAKUx/mTLhwsFF6vWmgR
RsHrady/vJqF5l/Lhq59TAGRpKHuCF4WqvcSUPCIoYDEMdKZVGEWcl7XFX0k
mQIRxwJq/pNloZyj53Q/FlFA5tEVyb1WLHQo/FL58HcKkOOkGhVyWOipp3Vk
zDAF5mvXNGzOZ6F/5vrOmj8oUBohsTjzjoXIOw8IvZqkwEpZzN8n1Sx0o2zm
6tU5Cty7UWwV28HCZ3Zrz/KaSfgzoS3hx2QhFaXgeNEjk/DtQ7rExHE26nMU
PZaqMAnVVx9HfVRjo5tRBf27lCbh+eWwjiQNNnpL+bpNWm0SZnYuflLRY6Md
8Qczjp2ahKy/H93VrdiIa64v3+z8JLgE1A+e9maj1lyZpsjASTgUbqB6J5eN
3Prq3ARDJoG4dNy0MJ+NuLnMeRIeToKDYfGu0SI2Uj933yglYhIiVeR+HK5g
o6K13d25Tyfhq/nAt4RPbBTvfHe0KXcSNK6ErXf4zka2O0hLnN2TUMK5125u
DYEERL3KqnsnIUzUJbhkPYE+btpy49bXSfjXTbfx5CPQ3vU2NNoQXq9+tkiP
IIEYzMk+Em0SjJWcSkzECRT4ZaUkdWUSbsocaBaXJ5BCQ4anFScVqsybku4c
IRC1TvuAIDcVjn/+s4GsQCDD0vDM4PVU2FQWQL2sTKAt6cJPPDZT4Xx8mbyJ
JoFyvA9dU95PhVe/rNJ/mRLovGenDFOWCltu77g2YU4gfndvyls5Kkz+yujv
sSSQl0OV7S5FKkj05vhmnieQqsGp02s1qMDUTR2fvUigGW36mo+aVNivsedO
qROBXkBE/X86VKjZK/vyhguBuBW7lGcMqHA3paruqxuBOnbaS/daUEFsp+3U
OU8CPdjGORFlTYW1L8/unbpOoKNbstP1bKhQkPaHddOLQIk8U8I1F6ggk1Wi
532LQI7sW6uzPKgQzdtSu8+PQOyWyLHrAVTQt4kMORdCoEHeXrflICrUGslr
eIYSqN5QnPEwlAp6a0fO+z8kUExH7p+0x1SIuGJSGPWIQPu7mja3J1ChcOlm
++VIAm3ctCHZOhHHa2ARYBpFoAUzS4mJ51Qo32MQpxhNoIbeiYN/0qmwd2sk
eSqGQPYDnLoyuVRQ+p6SKxhPIO1t+u2lb6mQnq2o3459wCbGTKOQCnwftbSD
Egi0OLjjglUpFYYTeI2HnxJoeLvr5Fg5FTa8vGYf9IxAn+3zr1x7j/e3NOmL
ZCKBYkdV74TU4fhX5RafTSKQr0TQv40fqeAypCU/gu3g2BKS8okKyrMC692e
E0h2wjq2pJkKYz7vWt2SCSS054UItFJhukOvbBR7yYWa1tJOhdVST5ZMUwjU
SL2V96MLr3ddw5O9qQR6K117+Gov9qc7lIfYcZe5Kxf7qVDRcTtuHPu/3NPq
wd9w/DrZycppBLrwM7ZhwxAV5POm/z7CPiX7zSB5hAoHZlSrerAPXpXo3DtG
hSBnf7JoOoE2F7hZFU9QobL9pcY57N8zhUMnqFS4bJrOE4c9Krfg9IVOBetg
u0NN2E3X1afMp/F1++48NnbBu5DrozNUyNVmB+54QaD4+TbCY44KJtzvS05i
+x3dfG+BSYWG7i3qDtiO3jargggqPDXllvTB1ivLfCSwRIXIR/cdHmHLEfQN
z/9QIXPKn0jAFlY6/HTPChW4TFZT8fcHWvbxFX/HQQN+Tv7D+PsDjVeiTLVV
NDif87QHf3+glqU1Ms2raVBql9UZjV2kcqbQbB0NxDIUpR9gP/NLUBzhoUGj
jclXd+z7NYPV7vw0EB/988MY2/mvlCaxgQYVdFUdOWwDdY/mACEaOKaKcq3H
PuxffIZ/Cw2EH6WJDOH4RT4s9SRupcFiVm9YHvYKx0mb3dtoYHWm1dQbe+Jk
2I9CcRq8Mom8rYTdGki6pLqTBvdG97NY+DwSue29TXfj9fqq/bXHXnHaqti5
lwbv14Yp82M7fyKzjWVoUNS/bV05Pm/5QC0fo0M0UFX3sF3A+fL0x7JSmzwN
HidajkVjL2uULxocpYFC9cRvSezmf9L/6R2ngaui2cRxnG+HHMZUmlRo4FXj
UVaN8zO+LvmPzgkatLs/E1XGvnBP4J6WJo6f8SpZCufzwm+mv7ohDS44uYZX
4PqwPZ+vUXuGBpLkjgUB7Pr3rpxqJjSoybi8dAHXU5TvQKCyJQ3i24bfs+Jw
PyXqQhQu0ODTo1yF77g+Iyx8T5U40mCPwQO9tdjzpYfXHnGhAXn+99xBXM91
N7PD5NxpMD1ftMYD17/l3KPH+71p8OPA3hPZuD/UnNUyfHObBpmxu7hfhhFI
smiZT/oODXriQxxf4H4yc80zas99GsTMhU+G4v4TMm3+ZFcYDWwc3wptCiDQ
1GkB0/RwvJ5xsRSaP4HO5jUJ7YikgVKzAKq8TyBxd5V4sVga2H3M6tK7S6BS
6s5nwik0aFboOy7tQ6BtugNWCWk4H/yynnbh/vfgVazI5gwaUEYdYny8cb93
Wf1cEM9xJ/1Z1u9u4PMfm0rhK6KBWulv3QkPAm0aLsvkaqDB4f49v3Qd8H7x
3btX0UgDLrZRlY8dgXhUta2vfKFBeuyzYxk2BOJK7OLv66BBbVy2+g8rvF8m
DN83AzRgeaQlbzlLIPJnaeOzDLx+vsI1ZwE/n8WQWT1Pg69m29eJncDnL1nB
XcWigXkJ+eOICoGQv06V1G8aHCNFXrA8hutX2XHPAjcdrI1u2y3K4vPJT/6T
uo0OCim3fm4QJdC6Qcc+0+106DlQ+uG2MIGCefa/W7uLDhdcJc71b8L1fanS
9cYeOnSsf9AXIkAgd4neTm15OvT33hFJXIXrO0Eg56cOHapGA9xip9lo9b0A
c+UbdPg+NM0/8Z6NSueml9BNOqitWUypK2cjZ1fr9FO36TDnnNETV8JGDcZy
U2Z+dEj69kvjEJ4HgiWH/K+F0KHzfYyU1As8HzQfz8tKooOkilMjfwieLzbN
cgrU08HEffLGtAEbFT+0eR3fQAdDwrdouy4bOS43Goo10eGn/s4SfS02qqek
PpNuo4NRz5V1sapsFFh5+qBWHx2QQRX/xAE24rR/be07RYdWeottFC8bcbyx
LxwTmgKKx8Htq5pYqHG6/1r6liko7OXYJ1fPQhHyJodsRaag+m3FYYtaFtpa
qZXfu30K4OoV4+gSPK81Sec1S09BY0JKd3U6C9lS5l8VqE8Bz0MhzYXbLPRe
4mHaf+5TMPRutwyXBAt5PS+MFKqfAquYb6ofnZioYvn5w/qGKXheSRBP8Ty6
bB8a4NU0BbOkYqNLeF59KGV3q6ttCtaJzPYsGDBRylseu9j+KUjgEPH7epiJ
Pte5yAr9moLsvC+FSSvzSGRcrFVQ5Cfsu/fZQjp+HtUeCFsneO0nqKQVHxkt
nEOCBl6ygQLTwOcu1GaRzUCDB8ndd2qmQeq/r703BH6iojTYPWH/C6LJ5u10
y0lkV3hMcPvKL4js2jXCvvADPQjJCBjMnYH3W/drpF3uR/m07ckChgywnAg9
dZ3ajMJSQy4Mn2GARzMX5XpwM3I2/bWnwIQBVZQsHneJZiReU1NkZMWAD/c3
Op+yaULh0TaNEY4MuBMmk5rb8Rm5HUua47nDAPV6erJqaT2SDN6st/YVAzSQ
SvxrohKtHL/L35/DANFPMwMgV4kGfo13vcpjALmw7gP5UgWKsSqxO/WOAQek
e5yHvpahf/tNb4bUMOBS0PH8nKpiNNgZnbaqmwG3TmjO+v7OQZWhC07dvQyo
JQlmEe6vUbyqg0zWVwa8SyEdufr9JTr98lCp5jAD6JLS5FM1majKt/1LAJ0B
0UyPHK8/iejpQcVok2kcf8yLB8KDCejGWIq5BIMBK4NmhSU1sUja8MrIBxYD
avZ711b/CUPcnD3ZMQsMWC51iRyoCUSjZaruF34zYDav98z4H19U454lJ/+X
AZF1qq1bl93Qs5287H//GPDw9b3gYcuwuv8BgcdVpg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {-1.4142133632704514`, 1.414213390137739}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.529847888052*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "[", "n_", "]"}], "=", 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "L"], 
   RowBox[{
    RowBox[{"e", "[", 
     RowBox[{"n", ",", "x"}], "]"}], " ", 
    RowBox[{"y0", "[", "x", "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5298479123780003`*^9, 3.529847923263*^9}, {
  3.529847969639*^9, 3.5298479862460003`*^9}, {3.529848021961*^9, 
  3.5298480524309998`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox["n", "2"]], 
  RowBox[{"0.001432897920626891`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "3.141592653589793`"}], " ", "n", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"1.0471975511965976`", " ", "n"}], "]"}]}], "+", 
     RowBox[{"6.283185307179586`", " ", "n", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"0.5235987755982988`", " ", "n"}], "]"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"1.5707963267948966`", " ", "n"}], "]"}]}], "-", 
     RowBox[{"3.141592653589793`", " ", "n", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2.0943951023931953`", " ", "n"}], "]"}]}], "-", 
     RowBox[{"6.`", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"0.5235987755982988`", " ", "n"}], "]"}]}], "-", 
     RowBox[{"12.`", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"1.5707963267948966`", " ", "n"}], "]"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"0.5235987755982988`", " ", "n"}], "]"}]}], "+", 
     RowBox[{"6.`", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"1.0471975511965976`", " ", "n"}], "]"}]}], "-", 
     RowBox[{"6.`", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2.0943951023931953`", " ", "n"}], "]"}]}], "+", 
     RowBox[{"6.`", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2.6179938779914944`", " ", "n"}], "]"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.529848064646*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"y", "[", "x_", "]"}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "1"}], "30"], 
    RowBox[{
     RowBox[{"A", "[", "n", "]"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"n", ",", "x"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.529848087439*^9, 3.529848115698*^9}, {3.529848258006*^9,
   3.5298483361879997`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"y", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input",
 CellChangeTimes->{3.52984830345*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwVW3k81F8Xtoxd9j2JSBJSoYQ59rUsZSdJkp+IVCJkmZSyJiGp7GRLQrLM
taaispMshbGNMZR9fb/vXz7P55x7znPP89z7vfMHCRfvc1foaGhouulpaP7/
1/jKdGf9jBV+I7o86FxwTx1OR8RnVFgJNvITpae+lhFPvE5Jey+sC+ybF29U
fW4kmnzrL3spbAnx6SKXYuu7iDauq3UJwq7gemePqXb6GLFZR+RDU5obqPx3
b+jO1ARRUVKjdGn/f2DOWGEgLztFZB4Lz7SWvg53r1kySaeTicNHH+rECN8C
Wc2BvgDxv8TE10L1Bx1ug8cTPofLR/4RjTkL1IlpfuColhx55PgSsXK+XZm6
PwA86H9X3z6+Qowt5pGxkL4H0pdZlNZW14l6+7KzZ66GAJ4p91//rw3ivU+p
XA2WofD3lqTd3MdNopKKXIxdUhiI3SgI+nd5m5jOb/bgsfB9iG1j1tNRpkGB
35Kbravvg/7ls0YPY2iQdcRvOkmHCGBvmfE6OUaD2JdvhNSkPQCesom0hFBa
NFVUXfdQ4yGYVwb+FPlKixpd6bfOjzyEleemmV846ZB/T6L/3P5H0CMQwu0U
R4fORw9XVtU/gjl6wauHvtAhBV3p5fuXHsP1huDikR06xLJ1/YQFXRRMfHs2
dEeRHk28/3BjX1YU2AYPfZ26QI/QNZrSGZ1oKEn4dVTqIT1KlTSar5iIhr4E
z1zJInrk9+uJXHhEDLjZfisZbqdHFk8HPUylY2HuVkSp8Qw9kjORfCPSGgtc
q3u3LtPiEDO959Tk1TgQOfmyXZIfh3wvDCbY4eLhluWCYYQUDl38uPMOWcZD
vcDW/ftHcegMv2TnwZx4KFtKDRdTwaHTNwwWopbjYY3O6bjFKRyS+XaN86/e
EzidKXZrLxbnPxyvYJv0BO41OQkGY+vpIsrPEiefAEfRnV9+WP2F3wOeUicT
4JR0sjcr1n9EfTvq8cMEiBeK8j2N8WtLkShc6E8Ay0gHX1aMf9WS3ldrmafQ
xfuefA/bX665x0yt/1O4u8lv9LKQHiUWxTJLfnkKn4em/lx7QI/CmN8feiSc
CPqGmuuLjvRI1uBJZJlPItifo1bLH6FHXRHeM79aE4FHiIHeb4kOBTafNWbY
/wx8cjpL+6vokBS9XKGC3zMIcngz6uxPh9q1WNltvz0DpYjCcfETdOh26LRn
mFQSmBqo68vM0KJP29kKPV1JELRUA1YGtMhbnRC3fTgZBmSXfmRQaZBQ4KUF
6bBkkIlRySc8pUH/re0rCziaAkIHe083pe0S2f8lKe+Pfg7mp4o5/aW3iBXH
bicZjj+Hzw5pt+uVN4lOPudXb5xOhY4X7we6NTaIbymcH5unU8Hn9iFtC9U1
4rnpSHUPvTSQyfy9gCb+EVOG7+pU7LwCxfz/YqOTJohaonbZI1avwefPnfRs
jjHirP1JBubi10BjtNtSQTdKFJsLuFwsnw6/4wwir5T1EL3/UzlIM5QONOar
46XK1/A8rm/zc05lQofBWbwaDQnvRhCzO+2aCYr8w87RcVP4mswYlh9xmSBe
7XGkQngW7/rnmsfaJJbfF6C4tJeKr3CSkTN5lgXmyiNk8ctLeNZ7yUOj9Vmg
aLdNORazjHd6yRhzay4LUnb4XA+XreAZhyYoL3WygWYpsvIFeQ1va5fxdmEx
G0odDEQf8m3jqb8sWTNFciB6wPe37/Y2/oET85XzOjmQiHe5vz26g39/2Vuk
MjEHfu9OHIgzpAHjyQO3r9blwMSDA6/y3tLAb/e+H0KTOTCkUegly0sLHNc1
IgJP5sJWhvg49w9ayFlYGJVzzgVPZeKY0SE6UL+ZfXokMhdSKJpLCYF04OHP
tqA5mAtBd/pJTEL0QLtJNP5Llwf5BInSPc70kBLsm5N1JA/s5bL+G8iih5bw
n/aMwXlgPJwrd1cMB44MMRUfcvLgAW4fHLfCwd+Hmlz/fc+D35qH7G88xMEj
1iUPkdU8SHx9x162AgfiMXktbfvzQWHrN4/FCA4+cDqIBxvmQ4mSq9kgHQOY
JnAEKtzIh46zrAM1BxiAxNfYO/o8H/zbHt+c02CAoOTbik8a86H8Zd3MZUsG
4BU5HKVNzodQngGGvW4MUJA2RPrH+wYslW6lsN1kAM398Zo56m+gWcQlQDGQ
AfozdF5YX3kDW++0H0XcY4DrUqvLTLFvQDSaXMYUzAC4vALzj5VvQNzp6Vy5
HwO8OOxU6DH6BuK/fToVfY0BjhdxM4oyF0CiwcG8GAcG+KLQ4vxNsQAevyBZ
VuszgPM7/5p7dgUwK3fAi0+eAVZOyAkohhcAzeM5mdccDBBTOerzp6AAXCxk
fjiRcSCl+rQtobsARs7Il9s24aC6Rl9ad6sAPBoUVZ8m4cACvxG6LFUIdH9v
t/FfwcF0ffGv3LOF4EzRG59WwEGIziUVW79C8KwuoRNYogeBT3xPWF4XQjkH
a3leOT3otAXqey4UQrueEL+MDD0Mnj2asU+4CAy1s/4q/qIDn46xze9aReC+
bv2x6xEdvOo1enfsaRGMeF2wEh+kBWXbbbbxmiKgut3RnQ+khfbBUrfEiSKI
oxcxfi5MC+ujgqKrysXwvGdRqxfzp+Us6UHtQDHclzt4JvjvFp7s+fyPF20J
cMT3Z8SvbeLDqWfU98uWwCQ+y6h1dQNfuvR+MSywBJYu7drcHFvDs+2GORqI
vYWNRd4eyvUlfMp/Nk5y+m/hjMjMQXHjf3ipHjln7usYZuug+In/xePf9F/+
VfcWDMmcwSwhVPzHN0kVHxRKocrj3DBdGglPOT9Xa/K9FELbUxy/vn6OV2Lp
18CPlYJmjjfj4ffFxLvEBqLiSik43zPXGOFpJDIdTq7nF3sH8W7stitl3USJ
Ha3mUa93EFocLrQdMEG0yk9uu7mnDIwemzHmRy0R0y6En3GTKAORl8WbZz8v
E8d4vL7ZKpfB8D/PbCHaVaJ3sPYPjQtlUHJdK5fBbZ346Byli6m4DO7lguyX
5W1iB9PA+Y36Mug02ynfy75LFKhr7JnrKQPj/Jq9Ghw0KOtQSl/nVhn4q6lL
K/LTorot7cEXZ97D9pTyI5ENOoQrk3eIdX4PZebXXA540CPjq0JDobfew847
U069PnrU30kZvpL2HmJjPDl8M3FI7OGAk23pewj3mP5pRMeAXNWbRo2b38Pp
QIU7/RcY0GJuyp+jc+9h9ujVqQ9MjOiUI8HlAE05DLbkVo5YMaJ73NfH+fjK
QXQv0f7ya0bU/MnWlUmmHBK9TjEcn2BEbEE6pHW1cminG+g8KcWEzh1TcJsz
KwfBPs02l4tMKGVSaGrkcjnQbN6hZjxjQiMv6N0775RD5UcVJdInJnTQYn66
Kaoc2N25ovb9Y0IiIQanr2aUA4XN1MFiHzPiKk6PYv1QDrUPJnC3tZgRw6/1
oeL2ctDVJjkGXGRGG8znFSzGysF50rjA/A4zWlApCllaLYc4l9qC+UhmRHJl
6EzeUwG+udtJhonMaDDB6YCaZAWcf8d+yOo5M+qo/3Bz5FQFlPbMPGNPYUYt
81wtYaYVwL3LkuMez4yqRT0EDrpWAN3Wjdeu4cyo1Ljp6ueACiC8C3Dc9mJG
Of6iH6/FVQDeS0X72HlmlJp7m5UzpwLIl6MMaI4zo/ie7w5l1RXwPXN0+Ror
M4qgkym26qiA9AZ/jztDTOiuYtjOGqkCBksDbA7lMyFvp0GztM0KcBONwIV7
MSHX6BMZwF0JPAt0ZnFyTMi+OvrvmHQlrMUwF9iSGJHZNEnngXol5PuP75tJ
ZkS6AvDs8LlKqJXWNziry4hO66ZMtl+thNkxAeunswxIKt34Ee/TSlgYIH1k
OMiAhL9nDVbmV8J3s1689Ucc4tjaOmJPrIRMYwlcpwEOrdu8/Z4+UwnmwaSU
V+fp0XdOPj4FzQ+wonyQ7uJhWtSk4XWl0+oDZKtuNtU8oUFV1z5V3rr2AaJv
hdaenN0lZrX629UkfQD/Sxb5v+y3if4hw68MKR8gXsxS4H3HKvEANffw5dQq
+P1luiKneJIouI8mkLEUw6mRibT240R2E7v2Ny1VkB6m/1BlY5S4msvmvbBQ
BaEtxe8fWXUR2518yoMNPkKoWm86macJf+e7KqQsfYTp8ZpCmQcLeA6FCtIX
5mrgOkvDT5H5i8+OUYzeFK0G5o0knrwv//CdZw79dNKrBuejbYbB9Kv4I218
Nw8mVYPh1RZaMN3GN8rGC9sUVIOiB/9Xjb4dvO1jtvpIIhbnUz6cJkcDEUZ0
e+Ymq6HKOnLTMo8WRlupuWUna6D5mHlKmR8O/A5dOzthUgOl8J91ggQDsD+c
/MfvXAMyTKyj4Z8ZQFV/WDMgsga4uA7VTrMwQUeO7VRBWg3EXzRtY85mAjeG
npih0hrAtdyTj1NlhqfNXwfhZw3YZu0fOmLNArJS+mE3KDVQ/jb8/t8hFqgn
NBzKoq2FlGvOxqFOrEDRrrrFKFsLpUFRW/YWbHA/88TeU/haSFtI5LjYyAYi
dG8b/juH5fcZvEiRZweDhhyOb3dr4TPrFMfBv+wwIi5RsRNbC1ICITQnTfbA
rdA0B8WsWrBMaErYerkHWH8L0rl8qIX8yX4G29k9kAFP85+21cLS31Ekp8gB
p15zmLWM1sK0T7vlRW8O+L7zaHnlXy2EpmzF9OZxgKsTQ5oMcx0IJb+/4feT
AzbrQrXtRevA0MXZWBbHCQn7tqajFOuw819ZPHiIE2SC78TV6daBZmQSwVeX
E4hDf5WptnUgF9HMPmLHCVbq14fEvergM/HaDKs7J8y9mAk/F1YHKd+89k9f
54TwTdfD95/VQfzJIHE3DAs5/P5R8aYO8k9s/vBz44S31Q5+U3V1kO5bFLnH
hhP0RfpFhbsw3Cx+YL8mJwwFnGsynsT4hVGXMyQ4wffnt/+CNurAP79sImaT
A1hUjbhKOIhwquST/dA3DkhPaa4cPUAExdV2y8gUDlBZgwvcJ4ngLLZwOdaB
A9ptauh1TIhQvmfm3ZwAB1z+oFJw6yIRzuxtxmV93QMbAmXmuTeJIG5xpbHM
bw/E+8mv9j8kwrRU2z+xvXtAui//JUsaETx7OQznPrBDnbKUrlopEcy7JAQl
zrKD5bPXs57NRFC6a+DaMsgGs0siT14NEKEq3fj3mDMbCJZzj9DSIvDXFk6u
smYFx+hNywkBBENXdwkHq1kg05XU9kkOQXZGa9oOHwvI8X/8GGWLwFLyu6HV
OybwpWQqXr+OQMpStYb5HyN8aInOM7+PoD1UQihRjhG0/Zyf8Zci4Pov42QV
9j6MNDVmX2tB4C7OVvT8DT18k1YiDP7C4pST1yaa6KCITKj6QV8P7m+2+p3H
aEAlzSY38Wg9LISdfGqQso63i2z/E3G6HkoL+ml+ea7ig25p7bujVw+RJc9Y
XZWX8Q1njiTaOdSDzzaXm0b2Av7M9k6Y2MN6cPaX6Du0bwh/ySn3Qv5IPSgW
Tp8fUCMT7xvvff58ph7yA9w7bxouEHNV4nseL9WD7o0e+ufLf4lzHHdNvFgb
oICphGfMco3oh86qHldpgBXuKnX3R7ToeWHjLUmtBohuvVU8MkKHapNPlvKd
aYDA1mS77OM4ROsjcWj1UgPwP2aYud/NiKLFl/lqYxqAxeIq6QSVDZWwe5gX
pzRA+fTb6ZYje1Dn2kjUq6wG4Ii4ZO54mQMJdH6mC/vYAI/Th6IXnLmQap0G
3re5AYjPiCXr/7iQ45uygMs/GiBBKGI5n8CNMsLSFvRIDdD1zOXY3hQe1OzF
LXdyoQFoRAZtrovyokm7B1dlNhvgq+qqQGQaL5I77jPCyt0IuT5LTxXi+JCp
GEl4a28jvJfX6zam5Uc3WO2tKNKNMHzVGp25zo8qx3Taf6g3wvXNsTnxUwKo
zzBsMcagEeaEmU3+JAiglRKiwJlzjUDM5AwanRJAAvxbaqwXGiH6eVzXpIog
Ohmoeunz1UZIoLnQ0xgiiGz/+D144NsIB57aaEOjIPI3KC/UDW6EVyAvLrMj
iFKKFzvoIhthhcJba3RCCFXxHl2pT2gE04P+lT6XhNBAgOfekJeN4Cf7msUj
Ugitjb7R1MhvBJqDatz0+UJISH/qymZZIxTMU5+w1AuhU0VSUR/rGoFOurXe
pEMI2fK4lN753AjMBxOMUwaEkL//617l7kaIDT7lQMRwysjQxr9hLL9oMTsG
y/+oKyJeNt0IYpnuV/uQEBossNHz+dcIE2Otfv/lCqENrmceCjsY/z9F2kL3
hZDIna64OeYm7D6nHS63FUKnhzkrCnibYODhRxoeKSFkr3N20F2sCZrjbgvR
Twqiu28e70ofbgKxPAY9x1eCKJXzsxTpRBMkMPy4/PeMIKq+zWCchW+ChSUu
/heLAmjwl7b3JaMmEC1hbpSLFkAbWqGJ+y2bIHHhb+Y9UQEkkl/3cdipCWo1
Z5vdM/mRGsfmyIv/msC2Pp2zeR8/crx1Cmd/qwlOJS4Ze8TyoaDB24eFQpqg
Y+qClMoSL6rNXbiZmNgEfMLddCWveNAQu8Lzc6+bgNk2fA/fODfa8r1G5Cpo
Avaps228otxIAyaZY1ATcJ1wv0Hs40BOOZIKJl+b4LPSZ/STbg+6x3bpPEtv
E/zWCrysKMiGiP2/XkbMNkH6K4lXJauMaERDuElnuQk021T5rjXh0E6W9TQt
TTMY9n4tjPajQ3ifzuP3+Juh1OnGi3CpTSJibm3102wGzSN6PtTeHuLv6ziK
kkkz0NCd+vKqNR9P06vF88+qGep9OQxK+37hNTNqHb2vNYO4QFdc4sI/fL1q
2eLVpGZY2HfyBlmeGX6/pgpIZzTDqb1u76y22YCGUV59orAZUi7qyOpOcYJW
V94D54Zm2LIJ1fVg4INGj5d77eaw+Pr58pzPovB+5to1p5VmsNx8ccf5rxhk
u5+uuUzTAu7PjrzqfSoOEW799tf5WkBx4cK6z+AB7DvHnUpQb4Hy49kuL4sO
wQ+7CKGS6BbgH+/hCFE8BvUD593fJ7VADfFdk8n0MSi1OVBVld4C59JzB3oy
j0OCFbJpKm+BNiuKDJu4ElhbrCcNDLWAssItvYenT8KQoRc/vfwnmHDV1ZIk
a8C3VrUrzCc/AUuNTY1DOx6I+qwVe7Q+Qas608zaW4DXunmWQlafoLxmr6Ak
0gQXzT9P5YM/AY1E2pMTL7Rh+qQVj+23TyCT+/eZ2EN9WJbW4Cz2aoUQ3oMy
U9xmgB/Tbn3s3wo4h4eJfsVm8OClYYg7oRVYTHLVyFLmIMBnSZV83gp6LubD
/o3moEJ77UdqcytoGdPP79CeA/9fKXGRez9DB/+17ovxlrAVt8Tp+uUzbHbU
JU8O2AHdeiHX3oNfQYgv5fyipQuo7DpXni9ph5QClxVeA09ov6/0/ZPsDxA7
OSHivO4L++PJ62/mO8CufOZuMJ0/kFdHR3oVu2DFhXgu/l0QVF6NazRW6YLJ
Picz3dYgCO3H5yI1LE71T2UZDgKBDy+93uh3wc1wwbufmYOx75nDVpBjF+C3
9baFLgVD6lKfsFRkFyhzt9fS8d8Dw8Vvlr6jXdCVuaLXHxkCvJeCT01NdEEl
3fX1iPQQGOmQE3Wc7YIHJcvKUBUCt0qjxvWWu+B9C+e/71Mh8NrbyFeYrRtc
Q6RI+ZKh2L3XHFev0g1ttkJjGYRQyJ6t+coR2w1FT44cPKcdBteTzSQ9nnZD
SQWnd/fZMDipOx7YktIN5HBcmoldGHx9ySoflNUNtAFOBmI+YbBobhc3U9UN
xbrdEuovwwD/YeV883g3XFxxlv+xFAbMro+L9s90g0RYlOXt3TDo4hJjCJzH
1l/96czMGg5XPPQqj613AyHQ6uFfsXCI3pco9JqjB96Fcz5qNgiHn4RjwwGq
PSDJlP/5a2I4ZCq2KPfie+CNnvBv6stw8By2jVXU7YEjd8xNVnPDgeZkKEyZ
9kDTxZ8RBVXhID37PcPStQcKBiXT4wfDYSHJZePtfz3wMCHmSuVYOFTrrJxj
8+6BLaN3nh9nw+Hsy324xoAeMF6/2WG5EQ63zD3djsb1QCKjGXQIEjCddomP
E3uAV++X3Q8xAjAVPBWcfN4D8scTGfIOEiCVvuZzWnYPGHL8GRk+TgDXUlOJ
tTdY/QrfdTVVAihcGAs4/7YHVNatQnyAAA2VLEdYq3tgRvhao70JAR5ffkm4
gjB+YdOhnBYEsOQ6NlTfjPF/d7s4xZoA0//Zxtz50QOW14V9pS8RgGNfHnVi
ogcOzJqflrxFAE1rwvD4TA8c9xrRkfYngG/cxbax+R4wik/0pQkiQB+tUN7v
tR7weW7ArkogALPaUuLodg9M1StPJD0gwOlbHeEjdL2gPq1T8/URAV5NRjoN
sfdCfqGR0/s4AnTsv3LmF3cvROYvFV1NIACdndbpQYFeMHtzimYxkQBKCftk
fu7tBemwB+JmyQRwa1vnHxDvhT8mSj/DnhMgBddH33+wF27bRKxFviDAV42y
xV7ZXlB8987M9SUBtvxiR3uO9oKlFaWM9zU2r1KPb91KvbC4e309KZ0AzjP6
NV2qvfDipd82JYMACQck33Tie4HT4XyaUBYBmh12kzp0eiH63H+VAtkEWEn8
df+HIda/V+XoNIZlvn/w/X4W42tpR4nOIYA9U6Lzt3O9IPfrySAulwDRmj6m
7Ta9kKH4ZdwMw8SAM+ptjr3w8CHvuheGF8pkZL9e6oW2tvd7LmL4wBxO6Itb
L7x7ICYkiWHLg38YPl/rBSX7Le5qrP4Dp7p/n3x6YR+v3JokhquSn/9pud0L
LhbNX50xPrMdt3803+0FhU98MT4Yf1HWc3VNIb1whSlP73wmAc7qKBQ23u8F
8zX8DjO233tBrM8bHmHzah1seoLNp7Ri8kF9bC/EhJTlUrD5jc033kJPe0Hz
2Mlq0TQC8Mm8diGm9AJ3ETf//lQC6F8KNK972QtMHeKdS5g+/qk2+NrMXrjj
e4ft1TMCDLFziVQX9QJb8+mQa/GYv/TnmD6+64Ua0Sq6+BjMXyGflz9U9oKI
dHJK5GMCZC+GdlbU98LXN6fLVjA/9cleQOUtvfD6s/Rzz1DMX66qxe+/Yvz8
Ptp+wPzn2bcY+a6nF8YOTxm1Y359xfndr/RnL7DgRVaTfDB/GRa4vh3pBfaL
ArdOemJ+qnHRLJ7G+DbilzdcMH+87l7N3+qFss3PjommmD9+viXl0fYBv0Zn
Db8R5g+e6O5cxj4YljNz9dbB/HBf9202Vx/Ua3ykKz6J6ftfhVu6VB9Miwvv
c8TO76xmcSSbbB/cP577VhA73wZCOQV+R/vgc9Vxg3xOzN+tifNnTvfBesJi
gzENAQKkbvmtm/XB2o1jJ3NGw8Ft9PiDc4F9QL1vkq+WHA7NlbL5daF94KKs
dis+JhwOxB74KvOgDxaM3l1vJoTDsDoPx258HwSLOX1q9w4Hy9TFZ4W5fRAa
3XPqpn44aFmV5uC6+oBpqH6kdj4MXsnlt3r392H3lLSv43gYbNGnzwwO9cHq
ApFvqj8Mqsri5N9N9YHB+fWn9fVhoMDlXXFhG+M/2fXl+ZMwEG2Tb6mU6QdN
/1LaWMUwWNEsnHAP6Yd3jBVrUe6hUJtNfnHnfj+oZR7n/OEYCuHMcucfPOoH
u0NOl3gtQoGjo6gh62k/XE9ZTMhQDQXpiyWvRvL6Ya/V65zfrKFgHfzO1rKj
H1QsBrWjHEOg4uOHdpAYAIdrPtxsK8Fw63hzuUDTAKib/Wr29AwENyXx9Cef
B8CvtOIXh20g2KoERbF/H4CDr4Qrv+gEgtppJRe6nwNwJm51+eHeQKDTzuac
nx8AFv0BK+H2uxBncd+jReQnTL53XxI4dhcKfHTFb/n+hJF91oZsjAEwWtIc
1SkxCCyJi5cflPvBpkfPi8N3f4Evg8r3ieAbcESLacetZgiO/nzbGZfuDgaZ
ElffCY7AXaN+xgOxF+DOvosH/jiOwo0ullYRWj2Qm7Ni6z/7GyqXPla3cOki
Xs4F5uaN38BS0djEbeiEcOjFW8m0P+D15P4ao5Y7uqZU85PFZAySC96uUhtu
oEIjl3Tiyhhw55j1FM/4ISU5CTysj0F7lNP91Q0/ROT4/QttjkGWW5STCvsd
1NF9QbCBZhzG+K05nyncQUsX7GKbWMeh0PKU5x/fOwjvax70WWwcnmcuEgQ2
sPxUvG2X/ji06JMznRgDkF3w9vI5o3Ggm515qCgYgMYu1j7tNhmHxztV5kwy
AWhJ6vSPHvNx4ASPLy1GAUj4rbJ+v/049Mlkk5/FBCCXJjmloevj0HvPPH9b
4C5aJotwTSaNQ9HWgz9BSoEo8eVUa9rzcTgxSF8bbBiITpiVh5xPG4elG5SY
JMdAdKPsLLU+YxySIjxruSMCEcU/9PuLonE482M361R/ICIxTEZbNI5DXt9e
n0ehQah3/zuWOso4iNWrZq1MBaOK8wb0iboTcPFMKq13UCiKNKmKEDWYgON2
xsrHI0ORo85h5hyjCbh1ou/n0tNQRHeCbU+l6QSEKVC9/ApDkSnPD4EB2wn4
pP5GynEwFE13WMuKek3AzEku+5Mnw1DN59aibO8JYBPLPfhOOwzF1p86Ku87
AZd2TSIkTMOQUqmIEv7OBCxOFb0Ydw1DYXEjGs5hE/AneU1x6EkYEjF1s8h+
NgHpj+xM+WfCEEWvv1suZQLWwy8Ivv0Xhuo1DK0rUifgwMubaco7YchNXtbh
0+sJGC8+6sTIG47es8+7Tr+ZAMITi/9y1MLRmbbb/nLECXBe+K/BPDIc7W+a
3CivnwCxKP4azyfh6G+1TbBG0wRYNBGbr6WGo+cFquGmnydg+aJMPVdROJp8
tB3l0zUBtv/W309+C0chhhGvyycn4IqaAZ8JGwF1Obk7Ks5MgH2awuQJHgKS
um0iXETG5pnFPbsmREBfM7ifZi1MwDTRoI9fmoD4Nl8+SNiYgKareZNxeAJy
4w7T4diegDjL+6OmugT08ZArzePdCThfEzkxaURATpayd8NwJDiuLPU23ZKA
8osrvXw4SECyrNp/3J2ANpqey85xkSAnTEKr1JOAzg4GTV3lJYEJ3cgc7gYB
/WXUuXRRiASG/cb9igEEpLtPWuyXCAl8tJSTmYIJKPkEyy/rfSQwFlwefx9K
QOrOPyxND5Bg5GSvfvRDAor1K+P+KkWC66zjyx8eE9Cf6Gff9Q6RIOBY0eWq
GAJSyvKPajhMgokUddeYeAJ68NHBUEOOBB6M776rPCWggR94ho8KJBiVUgsu
f0ZARyYlGpWOkcDs8MGzjCkEdG8LF1J6ggTh3L1icqkE1MEzrSanQoK6wB+9
B9MI6MDhtrW8UyTAC1bb/ntJQLexl7OkGgncii88SXxNQJ+tnvi+1iCBfVOe
J0sGAYl43jq6V5MES92FgxaZBOQZbjOXpE2CQweyv3tlERBKOf2GR48EiZJ/
8ReyCYjn7T63WAMSfCKIHRTPISDXFhpJVmNs/2gguBLDlb/GRyPOkEDBYcVQ
PJeAWP5+SqM1I8F40Y1HFzDsyFxgF2xBAl4Dd73rGC4RixFYP0+CylWhB+cw
TKPs033LmgSdl//YsGL4vMn5+AVbEoRoqH19htXPvaRy1tOBBBb8H6lLGJ+1
O8Ks0xew9a10I4cwbBy79emyMwnEH3YWK2D8X2aPEkZdSBBFIN9lwfa3UN2o
6XCFBC6K+12r0glIuzNnu+8qCe4cxkepYfNJnIqsPudBAp4qQf6n2Pymtq/d
+e5JAtZ138PoBQGd5jNTMvYmwb9s5n/oOQFFyx5fbLmB6R0Y9PpZMgGNaPKX
aN0iwdA564uamH7HbNY86vww/3zbuFKfQEB9BOJEeSAJ2ndtJLUwPxxOzchQ
vEcC2qBxU23ML0Gl952KQklAPPy9QBjzk8Sw8UBWBAnO9NtsmmB+e9yo9tYq
kgQXCxPUrYMwv+bJPWCKIkHrZ614RX8CavTlULoWTwIWi7oVa28CkrXdZd33
lARGm3R9WR4E9FRj4c/3ZyR4ohHr3HgF04+5K+74CxK08Xcq+TkQUDul0W3i
JQmemkleYbcmIOXu9xpJ6SSobWjb42dOQIyvnpHXc0hw+ExWZQt2/vJP2Bk0
lJJAc9HzsesRAuISNha7+R7jm7AVlS1FQAE7p5elKknwhsIjW7sP0+eLaFZk
DQlcJb8E3+IkILLT7x2zTyQAyZivwovhSOHx1cqRXyTY0eu5jIrDUZK3bUz8
CAkqxqj/6rPD0a6lkav2H2z/VL+trBfhqGP/EZ7cSRIIjFeLcj8KRzcq5r28
FkmwLRprkuoSjsp/3z64xTgJ31u4jHe5wtHpk/cThY9PQqWBp1/TxTDU5yKs
8lJpEhzZnhThrMLQzdiSfvGTk9AdXRWpYRyGikgDIjLqk8CQZC+WohSGxBLl
M1T0JyH1GnV4mzkM0S32FZ+3n8Tu1/qH1NJQ1FZwuDUmfBLcDeiPyNNg3wex
H+u03ZOgvPP7zIx1MFr+GjPmEzYFfh5cqQ0q/igF53TrnNQ0rAzdaTgSdBPx
jlRk0jVPAxcL69f/9L0QQ3CYpeqNGdjh10LeRS6ofHFuHd2cAVrRjl/a912Q
q5vta32/GWjqZvPndnRBzWZHZ88HzmDv1iNLGWwu6P6B4ZDrETPwcY5XNcnj
EsJ9PlWY9XwGOD3t3dhknBEd7wItR+MMjHa1XN5j6IDKHjrkJTbPgO+hvKaF
VXvksvXpzN7WGQi5+/3NVJ49aiS9TJZpn4HY7pE//Mz2KLzKRF6nbwa2zV/W
vPpii2id8mz9Z2dAi+1ebuc5a0TzxuntGM8sMIg+PJT12AJ9muu//pp/Fta5
6l4fOG2BohUtFByFZsFPV+T27ow5EqzSKe7dNwtOklSzIWNzpNAqU/hZZhaI
qwlzfw6YIkfS39wS/CzoPVVwX3Y3wu47T7drWrOQmiawH/oM0bQn6aCM7ixU
Sq4upukaoptL/dkZRrOgnTbxtUDKAD2mr8tMtJyFmj3+Wrl/ddFHiYev7nrM
QmxI2omCr5ro3hUap5Nes3B8TJBaZKKJdN8E7FvyngXcbSZ/2TRAHYqeaV63
Z4GsJ9dvXqKBpsEi1Tl0FoYZZxgyl1VRCeGr3T7CLIxePvZgkUMV3WrVER6M
mIVAxf1JpkdOoV1TlZTzUbNw19Qp3tRLBQk47U3ST5qFxMLfPVKCJ9BQRqIV
/fNZ2HqDdDOMjqNM0h7++hezQD1+R/9iyDEk70WTqJqB8dn745THzFGkG0R6
Ilc0C0UUqbcpHLKItd7JYqZkFjy3wsmV+TKog36AK/fdLIyJdwu8MjqEHKK+
xu3/MAsp73/hRl9LId/UtzE8jbPY70C066SxH33YSn3Y2IzxsaFtPDQrirac
HoT5ts5CdGzaC61sEfRQ8sLtrvZZoOHnHvPWFEBpRawXEvpnoYNF/dHZY+zo
D8eKtfbgLCyc6T3+5yIzkr7xx/zv0CyEBhxtXs7HoVLlKt1zY7OgWbEr/4lv
k9hCvCLHQ8HqvREuU6R7R2SVsJBupGLxgAzJrZpuvDlBXdz3LxYvLLSQv03C
Dxrw8nWtzoJzI9+setUyfn/Bzp7wDQyLbfmOzW7gXdlnmY5vY3wecesfIe/i
5zvqN5/QkcG9b7WSvhAHJ04ULWsxkEHxbotK4W9G8H+WTF1kIsNaweTG6DYz
0NtfH7fYQ4Z0O84bLVR2MKy1G6blIgMz3Vg6qZkDYsX0+t/xkKGei4ZWVYsL
hMb3tnELkWGJ1/XL2C9uuKDH1NIgguUH3QphTOGBzLy/xBv7yHA/7k/Yb0Ne
mGIZqZIQJ0N0k6PD03lekPP8UtZ5gIydd7to7Ud8cON7eVHYQTKcUuB9wCPM
D5WK6bnHZLB+n31yZF7xw1ZCVPofWTLwvamULxQSAK1lv9Qn8lj9KkGdhkgB
eGDjkqiliPWHfaSEeQFo/3g2dvE4hmNmpg2NBYFbVDUyQ5kM2VzW/9jTBMH6
nlS4xSms3wzFl2VCEF785gyiVSMDO/On5/8dEILf2pu332mQAb9zwsbORggO
5kx6X9Ikg/hzVwsGghB4MHX9x62D8QvsHknNEYK3/9VdbtAjQ/Vw9q4BEoKl
tvwLNwzJoF4wZq3WIQSnFRJtJEzIIKLxSjJ7QAhC4kMsOs+S4dXaqmoZhpv/
epiEmZOBhpZj6xmWz2plrXfsPBmIl7vPhdYLgdkHLfhjRYYUus7czHwhSBSW
V31iS4bPcZ0DCo+E4Geg0AktBzLYLwectnERArERevnFC2Toi/nxwFRJCC5r
UqUznMmwFVo8aLArCPmZg+IWl8nQWClb7NckCBTcJxFaNzLwVC+2coQJwvGr
7/jeuZNBCRcNuqcEoe5IJDP3daxfzbFR20QBUOkR/Jbgg+kR89NtEgSgNCjv
Cd9NMpxW1ih7PskPmd8+iQj5k4Hlef32Pml+iPRmkN8fToZA1D5i48sLtELP
FtPvk4HjaCPvt00euFsvVXngIRksAyv+NITxgBe3LkhHk2HX8X53H4Ebzr0P
t5BPwvhLMd1AXzmgzYFH4G0KGdSyIy8xvd0DurjMQcUXZKgZFapcj2WHk1YN
l5XSybBtpT1+RIcVRFd3b6sVYP0bLEvbIhhg6nRwqhGRDIYBFac6b67incfZ
L7bVY36531Jlt72EH4xKkzzbhPkTn1TFGPkX3z5UU2T+mQw+YrYyjPpkfNm9
DaJNFxk0t++ON/z7gT9y6DHhZw8ZQmNlfK7QVeOzfwgbOvRj+MsVgs7ePGKy
uGqn0xAZnJ+dwO9c7iUGNd4ZvzJJht86Gg16j+eIyx5M+VPTZJjWaHTb57lA
vM6b7PkfmQxVfhrKmo//Ei+5Vi57LmDnV5Ns61uwQtRnXGa6tUGGUvOHtBd8
doj1Jffbl7fIELl6vkJOkgap2vA9ubOL+YWr5LM9My2Syz8hEoibA6lLEm5l
9XSI29hXLpwDw2Htd16SGFB6Ayfbae45MJcQxGcUMyJF1eKZRd45kMEtRGZ6
MSFTmencS8JYnNzPf7CXGQ2/jogQFp0Dod6Gr95BLMhTUNK1U2wO1Kl0s8Z7
WdFjRicJLak5CMqMj3ECNiR8b3N3TXoOqgJ0h32b2VD+cspI6eE5mJ6tlf2h
yY5OeanUucvNgejlKrar5eyodaL7hfjROZgLGrBR3L8HWTveuDtwbA4sz/sd
lAzbgya7OezilbB+HuyfVAf3oNsmRScNT87BluTJRh9ZDoRrMhKgOT0H9bNn
ej/d4EBPT08tfVDH8N64afVSDnSg7H63N8zBGtvynj4SB3p3+EDZIe05YHZK
uJvMw4k0M1D8qO4c1MqmhkaqcKIfQhe8kw3mwNaO5lGZBSdyit84a2Y8B5oN
1ewSrpxonilFjukshr9lxfzx4kTBIcpsyGwOQkVo4ui9ORH7ateM37k5OMX4
JiblKidKu+7zWcEKm8fO8Op7G07s986evEmbOYi+SpS6Bpyo+kJhxCv7OaAR
uW7SK8aJjHoNXa0vzIHzw8kAthUONHBmUpvDGdOjyC9KpoUDXW0mSHxymYPE
zn9iRtEcaEVNgubelTnoILyMjjLhQBHviSPK7nOQvlT5i5OeA/EdcayjeMxB
Gv/Ah9WyPSg7c/1Fjtcc/B5au+LmsAedEEm+e8FnDnxkVD+GbrGjxidKdvw3
5yDl3VUmryR2dI6l6+S323NgmGG87/xhduSzxr6sHoit1zs6UnaaDe16F3Qv
BWP9q2aZCR9ZUeyUQVlR6Bz0ZPf8WT/Gior6wr1FH2Dr5SM9krhY0Ez52sxm
PDZfXatjpEeMyF8u6fP7p3PQ3hGoov6LATFnn8i7ljQHQy78fG2HGJD00+uu
v15gfKqsLni8p0cuNyZGqnOx/l9zWNtTadCQfEd3QO0cxGce3Ov28R/xNZk7
mB7NgWJrOsVO4C/R5c156ZgGTJ9BxKB9Y4E4I9Xvn/4Jm3d21AxJd5a4sndk
X2vHHIgzrz+I+/eTyM06d5WPhOVTgtmVvAbxPa3y3K+msHr3JZglrvzGp0R4
Vx+axfQ4Ry8rET2OF6P9x65GxbBo0uPJ+hm83Nr6u0vrmP9c5rW+/vyLp1ao
OZA3MT2kHp9cNFrCl90Mxt3eweI9S6I975fxqlQam0h6CggpvW4tvLmG159k
2irZQ4EU/PVKkbRtPEu2Uc4pLgoM6Ww+iunawbdfijJt5KFA1QvHUEsaGjg/
zJHRK0gB90+Cy3claEHghbnxRREM63o6XCikhUHbhH/Tolj9Zl6/PEU6cO7h
19+SoMC0lpIijzw9SCXYUCOkKOBsmWrJkE0PU2bPUzgPUcA1gxPPIICD622i
5ANyFHjAxSwwPIuDY4+cEosUKHDcKvBH/FkGWNJP11A5RoGlqi/TzIUMENgo
GW+kQoGNWpoFVmtGwIdeUe0+RYEg5WiNu1mMQIfPG3NUo4Cxx8FifzIjtGxO
R01qUMCH9c/6pjwTRH6UVfbRpEBjs5HQpgcTnLnjObKuTYF86xWV65lMwKlc
8pCgh+0/aJRo2sMEXX+pinsMKZAp43c+mYYZkkqPDSYZUyB7MaBL5xAz2F2/
SRA/SwFv2fjzFobMICpXIVdghq0feHGIeJkZfs+s9J44R4GEjr7+RwHMkJV3
KqTOEssPLpKqeMQMblfuyhjYYPFUa5x2IjPIStZ2dthR4LenesaJ58xA+b19
196RAp17+G1jU5ih9BVITThRIED+W4VNAjP8u/uP6dIlCoRmcmmMPmAGFZs8
8vBlCnxV2/9dxI8Z/E84/LB3o0D6fssZHmdmqOHkfN/vToHcZXWxTl1m2CE3
JlleowBDeBGzsxQzaH72u9vpRQFH2xdn23aYgJAt62Tqg+lxoz95PzaPT6Ej
Wm2+FFBxJCR6ZDMB84WEg4a3KeA3cYVa7c0EJqr6LC13KBDHymYmrsIEsfwb
c1p3KcCy/4N54SojdCwWdxCDKFBNlbvvVc4IvN8vlauFUGCVxfBqgCcjWBfw
p1SFUeDN7LVLY/sZ4ZdL8MWyBxQ40RlQuC+AAcTgmM7RRxTwunxbYe9+BnDe
S5IuiqIA8bGTVHs9Dia7z8znxFNAciZ7Km+VHhZ0RYOfp1LgU2qhC4cKHZyQ
6HAWeEmBS+z+yv/V0oLfNkH36WtMz2DO70ZAC5sVZLaYbAq8fFjuxqNGA4yH
alJDSzC/VKjonBLdwhvRe9/bLqXAFtWburK6gY8ePeBy9z0FXrz4S6n4vo7n
Tnl8+FYVBTxtTS20rq/iRVnsq642UsBiflFiT/Bf/HHyWq9pHwUMtf12fRV+
42+3Fn1sG6AAl0tHcRrHL3xVlvNLw1/Y+RLsGMARe/Eajp9dtX9TQHOheO2P
0ie84bfkf8qzFFBsUB0LlW8mXnirwr1vB/NLbOtXumczxEr7NY4Omnn4TJuh
dV5rjsjBWM1OoJ+H0r13pT9OzBPrHTWYZ5jnYfYUU/x+pr/EA6y6u+W883B6
clEvibJCvFvBsH1VAFs/5/PjoeAasdu5dUNEeB4YYwUXck6vE+9/MF4JFZsH
fOxRf7trm8RJVwvKmcPzsHJMxTTXe5eI5+Il7x6Zh8fFzme35GlQck3PdJnC
PDy95/6q9TUNMuSxnRBSmod7uHoYvU2L0uuEx9pU5kHi6JGqzZ+0aN391+g9
1XmIbHlZYa9KhwqQ068J/DzYb7q3xMzQIbpr4j+TteYhgeXGO7XT9MhBYKzP
WHce2C3jhkcj6FF5Q1bPtv48lHyRdvJop0fsXle6So3mIT/WP759Dw65Ch3q
uHxmHji23fetG+FQXdP0NwGzebBcXtocD8UhAe+Cti8WWHzE+mZ4GQ5dF/H8
EmQ5DzLHfom2jeDQpxb51qM28+Cs6EqqYGBA+29Qm8fs5mEyOo1DHfue+Iu+
a3zmOA/iXD+P2uowoI5W33rDi/MwsZKvwmjPgGRuKhE3L82DuSr/VZ1rDChM
bKWmxBWLt8c6cNxhQINfPny8dHUerJejcFeDGdDx2wEf+Dzm4f5OT57pPQb0
WFytotVzHn5nhY62BjCg8batsrve8+AXmp7S582A1O8QS+V958GR/RV3qDMD
SjwQWvL71jwQ0wwHvpowIMo3raKnd+bhON+zVuIxBqQfQF+gf3ceBjo4Ga7w
MKBXUi1560HzcKaYdqeVgkOrPx7kFIXMg+xPQ9d/TThkHmiYdTF8HtSvTMou
JeJQvjRrBk/EPCy4a4UPOOMQbVfbq5aH88AzLN7z9hAO2QfHpPk/ngc34Qvo
8Qw9KpMxSz0SMw/xJ4x5A3PpEVsPV8pI3DxsWA59fepEj2plE5/qPpsHH6lf
bPHY+5Kvz+rJavI80PgPK7/2oENeYYJxBanzwPxdcl2eiw6JDaQ+5krH/BIf
6ixvSotCIzLChgrmIe1RXZTOsV3injtMxpeKsfk9Clc3O79DTHX34pl8i+Ub
KFcxeG8T35uoZlHL58H9SiZJJxHzM3dnMx2aB02ZRK7tF6tEk1c0zIe7MSz4
pwmXRyEOxLl1FPfOQ8dypv8PKzLRNaw95fgAtp/nXw0v7E4T77mmHFYfxvSd
HjTu0J0glsoqmphNzUP6LFhrmPUSBT5cjL29OQ/1KwPCCoGd+Kz8FuuN7XkI
xXu+YTHswyumHtkfQkMFTdHHJ95g94FR8OrbSAYMv/F4FKM9hg/Siet8wUnF
3gMj1frBZDyL8vJzcR4q1N9LlsyopeCTpB1ccviosHB+/dzYEhX/luXQvxJh
Knymc9HZe+gvfuwHka9RkgqR/fPDxSYreO8GqWF9aSqUOkb5RRmu4rfKHue0
yVCh479BPK/mGp4/yVqlV54K4u4vn1iIbeAzH9bu2ClSwZA1wTILt4lXCDjQ
OnIcq6fX0947sYk3dJy3mT6J8W3bR5JI2Mb3nLUU9zqN1XcXjvrjtIO/BNXT
i+pUcDd9hvsutYu/e+BBwKYW1m9/YX/zWRpg4pvTCtWlAs17eU+GXBpIZDjH
ymBABfZuLo/YDRoont73guMMxsf2kKtSCi1EvoxwHjGlAt8OrajnDC24nqMc
LLGgQtdVqZ8lynSgyWRFDrakwhAD+4GZIDoQra0tPWtDhXAr6QFmRAdrPlJ+
++ypUG6mr769SQfdB6PVKI5UEKMj/q08QQ8lg/9o6i5Soc95L5OMGz08jnP4
FO1CBV3Xh1Sdp/TgptsU5XiFCj7Fn+J2q+lBe13WQs6dCpW0v9QshulBrCRB
YMuDCilrutWKG/Sw7rLxq80L0+MqSS+ZGwc9gi4ZL3yw+nz34kIkcVDa/sXt
2k0qJF7pJJKO4iA67Jicmh8ViF3ON1tVcOCu8nyRNQCrv/alWfIUDnTJNB8G
A6lwS7dRe/MEDvanuwcV3KNCo9G7JTNZHHauOrTuhmH85mZsD+7FQR/LKSbj
+1SQehl+OZQRB2XE1+3CD6mAZ/oWdHWOHmJvMiXMPKICY5pXyFg7PXjIeNt8
jKaCbRxv5UYePegN94k+iqNC/s/OgepgehBPwI/ZJlChiFWE9agpPWzp5+bJ
PMP8WGbX7SpMDwObe7zWkrF5mqpJXBulg/LS28c/p1Jh62MUnEung/grw6vJ
L6mQqtnSc8SRDq6J6NVdTcf8fUtrmJWXDg7c5zNkyqXCwPVHrUd8aWHnVNCe
/nwqvPJx2p8qQgs/KeNduYVUiD735KsbkQbibd5f0H9HBZmLzwzpF3fxnux7
JQXKqcDz+JsIu9gu3rAhfJpUSYXqZalLBdo7+F3Zczcjaqkw+Mab/vnNLfzg
6MdTVgjzRxhH3NXQTXxlosSOVCMVtIOz21sjNvDXdxYim1up0OPWU20WuIYf
6ox7Rd9NhRXW3OuXhZfwVQ9WL3f3UsH0g9655L9/8YlqFw9nDVCBQ+17UMmn
RbxJjkK59ggVmr9Rg1Ia5vHV/t++hM1Q4YBlSs9Q2wQ+SV45zmKOCp+sDMYq
8WP4G2NplhJUTM9uo0gTu1G8zBnP0folKiRp/WbgWe/B42h7suNXsflZjvyM
CfmB/12h5uG8ge3fWVP5Lq4FX+uRdVRxG+O/3lbqz1SBT97Ptry7i/l9W/r/
/x+t8T8YAup6
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {-0.009594785206931833, 0.00959478298540596}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.529848304658*^9, 3.529848338576*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"y", "[", 
    RowBox[{"x_", ",", " ", "t_"}], "]"}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "1"}], "30"], 
    RowBox[{
     RowBox[{"A", "[", "n", "]"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"n", ",", "x"}], "]"}], 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"\[Omega]", "[", "n", "]"}], "t"}], "]"}]}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.529848353784*^9, 3.529848354696*^9}, {3.529848396126*^9,
   3.529848402801*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"y", "[", 
      RowBox[{"x", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     FractionBox[
      RowBox[{"2", "\[Pi]"}], "\[Omega]1"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5298484074440002`*^9, 3.529848497543*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 1.6345100342432564`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2}}, Typeset`size$$ = {540., {159., 169.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$2450$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$2450$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`y[$CellContext`x, $CellContext`t$$], {$CellContext`x, 
         0, $CellContext`L}, PlotStyle -> Thick, PlotRange -> {-0.01, 0.01}], 
      "Specifications" :> {{$CellContext`t$$, 0, 2, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{610., {216., 223.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.52984851883*^9}]
}, Open  ]]
},
WindowSize->{1904, 1079},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 253, 6, 43, "Input"],
Cell[813, 28, 1784, 59, 215, "Input"],
Cell[CellGroupData[{
Cell[2622, 91, 291, 7, 43, "Input"],
Cell[2916, 100, 5019, 90, 338, "Output"]
}, Open  ]],
Cell[7950, 193, 193, 5, 66, "Input"],
Cell[8146, 200, 303, 10, 78, "Input"],
Cell[8452, 212, 202, 6, 96, "Input"],
Cell[8657, 220, 182, 4, 43, "Input"],
Cell[CellGroupData[{
Cell[8864, 228, 305, 8, 43, "Input"],
Cell[9172, 238, 9248, 157, 342, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18457, 400, 451, 12, 65, "Input"],
Cell[18911, 414, 1429, 37, 116, "Output"]
}, Open  ]],
Cell[20355, 454, 405, 12, 81, "Input"],
Cell[CellGroupData[{
Cell[20785, 470, 258, 7, 43, "Input"],
Cell[21046, 479, 20769, 346, 350, "Output"]
}, Open  ]],
Cell[41830, 828, 534, 17, 81, "Input"],
Cell[CellGroupData[{
Cell[42389, 849, 664, 19, 109, "Input"],
Cell[43056, 870, 1959, 39, 463, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)