(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 18162, 465] NotebookOptionsPosition[ 17235, 429] NotebookOutlinePosition[ 17615, 445] CellTagsIndexPosition[ 17572, 442] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"t1", "=", "0"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"t2", "=", "20"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"n", "=", "100"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"dt", "=", RowBox[{ RowBox[{"(", RowBox[{"t2", "-", "t1"}], ")"}], "/", "n"}]}], TraditionalForm]}], "Input", CellChangeTimes->{{3.50005058241353*^9, 3.500050612550254*^9}, { 3.501907069748047*^9, 3.5019070775273438`*^9}}], Cell[BoxData[ FractionBox["1", "5"]], "Output", CellChangeTimes->{{3.5000631873604918`*^9, 3.5000632212944326`*^9}, 3.5000633065513086`*^9, 3.500063401939765*^9, 3.5000635129011116`*^9, { 3.5000644711979227`*^9, 3.5000644908640475`*^9}, {3.5013460437646637`*^9, 3.5013460631387715`*^9}, 3.5013462763229647`*^9, 3.501907202267578*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"mv", "=", RowBox[{"{", RowBox[{"0.5", ",", "2", ",", " ", RowBox[{"-", "0.5"}], ",", " ", "1.5", ",", " ", RowBox[{"-", "1"}]}], "}"}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.501907128291992*^9, 3.5019071472695312`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.5`", ",", "2", ",", RowBox[{"-", "0.5`"}], ",", "1.5`", ",", RowBox[{"-", "1"}]}], "}"}]], "Output", CellChangeTimes->{{3.5000631874074945`*^9, 3.5000632213244343`*^9}, 3.50006330657631*^9, 3.500063401994768*^9, 3.5000635129541144`*^9, { 3.5000644712439256`*^9, 3.5000644908940496`*^9}, {3.501346043815666*^9, 3.501346063182774*^9}, 3.5013462763679676`*^9, 3.5019072024521484`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0417\:0430\:0434\:0430\:0435\:043c \:043f\:0435\ \:0440\:0438\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:0438\:0439 \:0441\ \:0438\:0433\:043d\:0430\:043b \:0441 \:0432\:044b\:0441\:043e\:043a\:043e\ \:0447\:0430\:0441\:0442\:043e\:0442\:043d\:044b\:043c \:0448\:0443\:043c\ \:043e\:043c \:0438 \:0441\:043b\:0443\:0447\:0430\:0439\:043d\:044b\:043c\ \:0438 \:0432\:044b\:0431\:0440\:043e\:0441\:0430\:043c\:0438:", FontSize->18]], "Text", CellChangeTimes->{{3.500055300205372*^9, 3.5000553481701155`*^9}, { 3.5000553857982674`*^9, 3.5000554013561573`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"ind", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"dt", "*", "i"}], ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"dt", "*", "i"}], "]"}], "+", RowBox[{"0.1", "*", RowBox[{"Sin", "[", RowBox[{"100", "*", "dt", "*", "i"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "6"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sl", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"n", "+", "1"}]}], "}"}], "]"}]}], ",", RowBox[{ RowBox[{"ind", "\[LeftDoubleBracket]", RowBox[{"sl", ",", "2"}], "\[RightDoubleBracket]"}], "=", RowBox[{ RowBox[{"ind", "\[LeftDoubleBracket]", RowBox[{"sl", ",", "2"}], "\[RightDoubleBracket]"}], "+", RowBox[{ "mv", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], "}"}], ";", RowBox[{"i", "++"}]}]}], "]"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"ListLinePlot", "[", "ind", "]"}], TraditionalForm]}], "Input", CellChangeTimes->{{3.5000513913527985`*^9, 3.5000513970841265`*^9}, { 3.500051447290998*^9, 3.500051454217394*^9}, {3.5000514883323455`*^9, 3.500051490733483*^9}, {3.5000515826677413`*^9, 3.500051606741118*^9}, { 3.5000517647301545`*^9, 3.500051764900164*^9}, {3.5000523652535024`*^9, 3.5000523687717037`*^9}, {3.5000550182442446`*^9, 3.500055044263733*^9}, 3.501907154017578*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1H1Q03UcwPERD+EpAg7cVHAwxgZjjD2IqFf+Pi67MwTrCGgJEREyVAhK 0IA7C/FhaiAPpkLGQ2WiR9jEEMgYTwIiHALKQOBiDNiDg21JuwOxK9xn//S9 2+12+35f39/v/f1t3glpEQdeI5FIB/57rbz/f5SVrowHhCnm+IWOgkHC8nmU KA8vtneQTRDCV0NFnPBwrBmlKPF7LWGuMwk/7VQRFsVIxG6rXc7bp8X5zwmP wrqK2VoDkfRqmImkuqo8TZQJ1y8SPksTe73FRqKvd2UsE9zUzRUZpXr0SJDS Fyi8EK7D+TYgpSZLylk69G0hudieq/5Rg+vtoG1Al3O7dgr3c4DOoUmy89+D 6DlC8y/fdildrqG3Ch7mkbcXqRvlFm81/Nw1b6pK6JZbvDUwuoo5zg4allu8 tcD5uIRiYqnkFs8Ftmtol3uNOpzvAp3dovG3z87LLb4r1KREviFSzeH6dXCr mZlPyPS4HxlCGAVSo3oOPTeg32hM3k8xoucGz01T0utHDei5Q99T58RDw1r0 1gOREt5bo1WiR4GMg2kx/G4FelTQnEpxKygdQI8KRz6KGgl260RvA1RyPHeH Of2EvTaC84Ku5K3yJ9h3E0yWnyNxF6ewnwckbTp97Xr7LPb2gINFG1c7VKux pyeUXcniPr6iRW8ziP9qUO6jz6NHAzptQeMYYkLPC5zKqEMXRSac7wWeuTcX A8xz6HvBUn9WvzZOg+u9AQwvmi5tncH9vMH5TkPXjSHr80eHc4pD5VmfTKJH h8jHl9Y5iQbQo4O376lM+vgP2MsHvjYfjhfFDWAPH9jWMWXz+8UR7MeAgn9C c3NOT2BvBlRkx/rvr1FhTwaEmkSaNToder5Q0kX+MCvMiJ4vfHl193c77xnR Y4IgtFnjXjWPHhMi7huoqXQ9ekzYkb4z7Wyg9flgwa7iDaOJJ/XosSDs/t2v noRo0fMDL0Z6lP6IEj0/CH4mT4+Itp63H5BeLtuSVb+h5w/DXwQwembOYD9/ mGSyzy+7t2I/NhD8qWw1R4H92JDb7ytlF01jPzaYRijnP/jT+vsLAHsZf9f4 MT16AZBzVKIIffQMPQ6QBsrst3bp0eOA7ahsct5gQI8DNGha3Ks1ohcIj16y HmTaGdALhA6pZKaQ0KDHhfrqPupCpRI9LhyXSNJuq8bQ40LMOE3W6KlALwh+ ja1sU0T3oBcEa+/0tMQrzejxIOMwz/VevgL78CDeHNxuc7kWe/Kg7R2Z+Sl9 GvvzoEX8uX+Dcgb78uCzsSrZuyE6PA8+nNgsbu0kGdHjwx67juzEWev980H7 uluTqMj6fPBhy61cJW2P9fz5UBE/11pWq0FPAEoKq3u67wV6AjhWnRCnI8/i 9QngzYke/Y78SfQEUP/9ROZItBo9AbjKK775I7Ia71cIZHphS6rrQ+wjBMnd 5fawpUG8PiE43sw8SaeMYS8hvHeVFtpfbz1/IUjXD2aL37f+P2+BBfEZXhzV SPwLsP/Uqg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {-1.7377670114960824`, 1.430023911564834}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.5000631874494963`*^9, 3.500063221359436*^9}, 3.5000633066083117`*^9, 3.5000634020977736`*^9, 3.5000635130671206`*^9, { 3.5000644713419313`*^9, 3.5000644909340515`*^9}, {3.5013460440136776`*^9, 3.501346063219776*^9}, 3.5013462764359713`*^9, 3.5019072029560547`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0424\:0438\:043b\:044c\:0442\:0440 \:0441\:043a\ \:043e\:043b\:044c\:0437\:044f\:0449\:0435\:0433\:043e \:0441\:0440\:0435\ \:0434\:043d\:0435\:0433\:043e:", FontSize->18]], "Text", CellChangeTimes->{{3.500055420842272*^9, 3.5000554554792533`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"filt", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"dt", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "*", "dt"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "*", "dt"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", "*", "dt"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5", "*", "dt"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"6", "*", "dt"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"7", "*", "dt"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"8", "*", "dt"}], ",", "0"}], "}"}]}], "}"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "10"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{ RowBox[{"filt", "=", RowBox[{"Append", "[", RowBox[{"filt", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "dt"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ind", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ind", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}], "+", RowBox[{"ind", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "2"}], ",", "2"}], "]"}], "]"}], "+", RowBox[{"ind", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "3"}], ",", "2"}], "]"}], "]"}], "+", RowBox[{"ind", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "4"}], ",", "2"}], "]"}], "]"}], "+", RowBox[{"ind", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "5"}], ",", "2"}], "]"}], "]"}], "+", RowBox[{"ind", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "6"}], ",", "2"}], "]"}], "]"}], "+", RowBox[{"ind", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "7"}], ",", "2"}], "]"}], "]"}], "+", RowBox[{"ind", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "8"}], ",", "2"}], "]"}], "]"}], "+", RowBox[{"ind", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "9"}], ",", "2"}], "]"}], "]"}]}], ")"}], "/", "10"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "++"}]}]}], "]"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"ListLinePlot", "[", "filt", "]"}], TraditionalForm]}], "Input", CellChangeTimes->{{3.500051044803977*^9, 3.5000510488222065`*^9}, { 3.500051137810297*^9, 3.5000511386453447`*^9}, {3.5000511980357413`*^9, 3.500051243103319*^9}, {3.50005134679325*^9, 3.500051377336997*^9}, { 3.500051463177907*^9, 3.5000514643039713`*^9}, {3.5000515531350517`*^9, 3.500051557694313*^9}, {3.500051612345439*^9, 3.500051615325609*^9}, { 3.5000517970700045`*^9, 3.5000518217094135`*^9}, {3.5000518536632414`*^9, 3.5000521188674097`*^9}, 3.5000522702050657`*^9, {3.500054978453969*^9, 3.5000549793900223`*^9}, {3.5000562689587817`*^9, 3.5000562694678106`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd0wtMU2cUB/ACk0cAA4oKiLM8yqO8WgrBZM7+hwLxsQ2BBWbmBh11IFuA IamGiTAYw0KssDhU2MaIqJNNIEOSRaBO1jFYGYw3ExVoSx8Eh5QhA8QNe0oi J7m5+e493++7+Z9cV0FatNCUwWAI/79W7+vr8qXV6uC/uB5ZW/Oel2Ldey3/ RWVmXb9+bX3sec2v2//v2rpLvlrLfLlvbq4mSWV8DrE+9Ju95hq+od8EwgxB 9f4mLd/gm8H7E82IeYOOb9j/EiLPqVybRnR8w3nmGDM/w2b2Gr/TEjHiiPbF VDV5VrCLS/pxZVpBnjWSRi0nGxofkmcD6f3wg0z9IHkbcSfFXr1N3kmeHRIK llvlz2qo3w59G6Kngv1/lhp8e/wd8kicltMnNezfhJ7o4rfNF0alhvM2Y9fh 3sSwDyekBs8BzRfMxgZkKqnBc0Bd9ftmyRc15G2B7Cor+LdSHXlb0XhgwT0J U+RtQ1iMwCm5UEeeI4okSg+TJg15jljp+d75QsgkeU640vnV5fccFeQ5g9Vi Ghd+4AF52xHb8fTbmvx+8lzQfow7LrVpI88FjRZVKX7L5ZTnDkwvHU9MLWun vF7GxPn8vmDhAOW7E3VzVtOD1x9QfkzYxkgepXynoH4mVNubTzWHqClPJkJv vZZY/Jlx3q4QH7n7UCHR0XmuwHyEbUuNjjw3bLIqtYk2Nc7fDbOHl1Vf52nI c8O1aYbIp19Fnjty0ro3ps6Ok+cOTevIiLTkL/I8YFGRvSBq6CHPAzMDGtk1 u9vkeSDhrIRhOV1LebHwZvbFhZN5csqXBVSVbCnVDlN+nni96vTBV73HKW9P 8OOjsgQDSsrTE0NzucuSIjV5XojTder3F2jJ88K+Ofsju7uN8/XGTKhnpbPD FHneSH9iUyBY1JLnjTHLzXapEqPnA0ElI/LoXiV5PpiyDM9gnx4jj40b5blz vUXD5LEh17+bVfllF3ls6DzjawfDb5Lni/NvtbHqMlspP18UO4hOsHb1Un5+ KAs/FeMnukf5+cH2zytljr+PU35+2N0/+MHKx8Z5+CNdcsY+O9/4v/tDHCbZ o/jUON8AeBU43jy7Y4q8ACTkZZaYnDD+/wGY1Aoj/5nSkBeIKK94fuvtSfIC 8cOsJJ/zuYY8Drr2PH5j6aSS+jlg/4TujK3j5HMQWx9hxRMM0X4OQjOalIUV HXQeBwmPn36krqshjwtnqVCG+82UDxe1Oaz545P1lCcXHvHv8NpiOil/LkqY UUdt3PspXy6K45JDRl3GaR5B8BQv3tXnqMgLwvV9zwJ5+WryghBS9cdSmpea vCDk2maa3TmkJi8IT0QVWfWFSvJ4SB7ayXa6OkYeD6IK3q8byifI40FWXWhi MXyPPB5ufHFJlm7dSx4PuiLeoS5ZC3nBqBRYx9565Rf+fwhJsLE= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {-0.8516102507149612, 0.8473556900318088}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.500063187495499*^9, 3.5000632214134393`*^9}, 3.500063306659315*^9, 3.5000634021527767`*^9, 3.500063513171127*^9, { 3.500064471442937*^9, 3.500064490990055*^9}, {3.501346044085682*^9, 3.501346063276779*^9}, 3.5013462765229764`*^9, 3.5019072030683594`*^9}] }, Open ]], Cell[TextData[StyleBox["\:042d\:043a\:0441\:043f\:043e\:043d\:0435\:043d\:0446\ \:0438\:0430\:043b\:044c\:043d\:044b\:0439 \:0444\:0438\:043b\:044c\:0442\ \:0440:", FontSize->18]], "Text", CellChangeTimes->{{3.5000554852719574`*^9, 3.5000555173187904`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"al", "=", "0.95"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"filt1", "=", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{ RowBox[{"filt1", "=", RowBox[{"Append", "[", RowBox[{"filt1", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "dt"}], ",", RowBox[{ RowBox[{"al", "*", RowBox[{"filt1", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "al"}], ")"}], "*", RowBox[{"ind", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "++"}]}]}], "]"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"ListLinePlot", "[", "filt1", "]"}], TraditionalForm]}], "Input", CellChangeTimes->{{3.5000543027883234`*^9, 3.5000543886892366`*^9}, 3.500054419157979*^9, {3.5000546305760717`*^9, 3.5000547245124445`*^9}, 3.500054768445957*^9, 3.500054813565538*^9, {3.5000548665935707`*^9, 3.500054987874508*^9}, {3.500056412170973*^9, 3.500056412420987*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1HtMU3cUB/CipZaXIEVedggtz1qwpThd1d2zNk4iJr5wCVskBHkYg4Mx ccizoCgjOkBkqwUZIGwFYdDwWprSdpYipaWADCpxBDeQTR7bkI1hqHtgT//Z SZqbm57f55f7Pb97/eJTTyZuIpFIif/9Nq7/L8mdjdIRzApOPl92k7DcTxLJ 0lRRx1I9wXtdMwSJZd/sKW3D/58TyztU4qQX3YRF+Z2YO7gucF9UYf8K8aFT 8NxCvpZIel2rxLVoUeHMB3pc/5K4rS491SIcIYYMG2Um7hvzbtUfe4QeCSKJ 9tUqyvfYbwPsx7II071x9DeDDV1Yds/WhOvJEGbXQOX3mnA/Clx5V9JGFpnQ o8K05yHh4sUJ9Ozg9j+D1MpNVs8Bzh0uOP15zBh6jlDSbUtbOTSK3lbghPFT 5s0G9FyA4pFQWRjYj/0u8Jb0vTPO073obwPGd0zviJR2XO8KLFpuQUV+Ge5H g9kORelN91qVxXMDlubrcv2VTpXFc4OjT0MkxXZqlcXbDo5/NE8yk/tUFs8d vDwa9/r81a+yeB4gq7B5e507gJ4neKlf5EwoB9DzhD43nyed1QPoeYG2ulBQ 4PcQPW8oMg9OkEY06O2ALRdyub85KdGjQxW96iU7vQM9OkRklJN7bOvRewMy Fd9Spiez8Hl9IDsq7lVP1H183p2wltpzUq+QY36+cJ4d3dUl0WC/L+z7REwe vjuAefrCxYgmvkhgwPV+8FP0Nc2s+zDm6wfXWx+n2atH0GPAOblDtvmGdV4M EEWmHDv46Sh6DDClXt0iKRlBjwkN1Aayj2wIPSbogmxHdSodev7AvJPWH1No Pb/+ENTi8I4mX42eP7BI2239KjvRCwDfLuGqdqsEvQDIHe+kxRiqMb9A+Lsp buGMRwfmHQj7e9ed1872Yp6BwJhK6/lCbM0/CBgKd5HphHVeQTC4MpbSE2BA Lxj4lS0Lm/cb0QuGGWVZ+bOPjegFw7Z6syY0awi9EDC60NLVS3r0QoBsrBaX terQYwEnIKpGTOtHjwWUCzHfrD9Ro8eCB7G1FXWRXejtApL6dAK9uQ69XUCl PiLNPy3C/NgQrWhNMO9twfzY0HJp7kBfqBzzY8NYbM3QVp4G8wuFryb7ahI/ GsD8QmHnfOEJe1fr+xYGpXP6fdFcI3phEN/4zGk8cxi9MAilZbT96G2d727I dBa9ujtvPS+7oSxWq7+qGEOPA02HF1eSb41iPwdK5AXKEtEI+hxw5VO+lJ6y fq848GZ6fHBxpRb340DNz7QUc5ESPS6QzxvEU9x29LhwgNf8y9KyHD0uCH9V XHJsl6LHBdHalOpI3vvocUFJT9cV/1mP8wiHuKw9SUpChXmHQ23x2HOBQIPz CYfG6zI1t0qL+YeDsb/uMwlXh/MKh8tHlqXCuofo8cA02nw22lOLHg9s9uTI sv0foMeDoz/Iu3OdetHjQeBlJT3vuPV954FrxnHBgqv1PEdATutsl2RcTPwL U9+7DQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {-0.2379118881958596, 0.37092448085617746`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.500063187532501*^9, 3.5000632214584417`*^9}, 3.500063306701318*^9, 3.500063402314786*^9, 3.5000635133091345`*^9, { 3.500064471573944*^9, 3.5000644910380573`*^9}, {3.5013460441686864`*^9, 3.5013460633197823`*^9}, 3.5013462766049814`*^9, 3.5019072031191406`*^9}] }, Open ]] }, WindowSize->{1264, 641}, WindowMargins->{{-2, Automatic}, {Automatic, 33}}, Magnification->1.100000023841858, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 576, 17, 89, "Input"], Cell[1146, 41, 346, 5, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1529, 51, 289, 7, 31, "Input"], Cell[1821, 60, 443, 8, 32, "Output"] }, Open ]], Cell[2279, 71, 587, 8, 37, "Text"], Cell[CellGroupData[{ Cell[2891, 83, 1825, 48, 70, "Input"], Cell[4719, 133, 2201, 41, 257, "Output"] }, Open ]], Cell[6935, 177, 276, 4, 37, "Text"], Cell[CellGroupData[{ Cell[7236, 185, 3770, 100, 89, "Input"], Cell[11009, 287, 2109, 39, 250, "Output"] }, Open ]], Cell[13133, 329, 259, 4, 37, "Text"], Cell[CellGroupData[{ Cell[13417, 337, 1604, 46, 89, "Input"], Cell[15024, 385, 2195, 41, 250, "Output"] }, Open ]] } ] *) (* End of internal cache information *)