(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 154454, 5185]*) (*NotebookOutlinePosition[ 155509, 5221]*) (* CellTagsIndexPosition[ 155465, 5217]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{Cell[TextData[{ StyleBox["SavitzkyGolay", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" Manual", Evaluatable->False, AspectRatioFixed->True] }], "Title", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["An Example Notebook"], "Subtitle", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "Arnd Roth\nAbteilung Zellphysiologie\nMax-Planck-Institut fuer Medizinische \ Forschung\nPostfach 10 38 20, D-69028 Heidelberg, Germany\n\ roth@sunny.mpimf-heidelberg.mpg.de"], "Text", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True], Cell[TextData["This loads the package."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["<True], Cell[CellGroupData[{Cell[TextData["?SavitzkyGolay"], "Input", AspectRatioFixed->True], Cell[TextData[ "SavitzkyGolay.m is a package that implements\n Savitzky-Golay smoothing \ filters. These FIR lowpass\n filters can be thought of as a generalized \ moving\n average. Their coefficients are chosen such as to\n preserve \ higher moments in the data, thus reducing the\n distortion of essential \ features of the data like peak\n heights and line widths in a spectrum, \ while the\n efficiency of the suppression of random noise is\n \ effectively unchanged."], "Print", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["?SavitzkyGolayCoefficients"], "Input", AspectRatioFixed->True], Cell[TextData[ "SavitzkyGolayCoefficients[nleft, nright, order] gives a\n list of \ coefficients {c[-nleft], c[-nleft + 1], ...,\n c[nright]} of a \ Savitzky-Golay FIR lowpass filter. The\n output of the filter, g[i], is a \ linear combination of\n input function values f[i] according to g[i] =\n \ Sum[c[n] f[i+n], {n, -nleft, nright}]. Typical values\n for the order are 2 \ and 4."], "Print", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[ "We use rational arithmetic in order to avoid numerical difficulties \ associated with inverting a badly conditioned matrix."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["SavitzkyGolayCoefficients[4, 4, 2]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {-1/11, 2/33, 13/77, 18/77, 59/231, 18/77, 13/77, 2/33, -1/11}\ \>", "\<\ 1 2 13 18 59 18 13 2 1 {-(--), --, --, --, ---, --, --, --, -(--)} 11 33 77 77 231 77 77 33 11\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["?SavitzkyGolayFilter"], "Input", AspectRatioFixed->True], Cell[TextData[ "SavitzkyGolayFilter[data, coefficients] applies a\n Savitzky-Golay filter \ defined by the list of\n coefficients to a data vector."], "Print", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[{ StyleBox["Of course, ", Evaluatable->False, AspectRatioFixed->True], StyleBox["N[]", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[ " should be applied to the coefficient list before it is used for filtering \ data. This is shown in the following example.", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Example"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "Suppose this represents a function we want to measure:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "epsp[t_] := If[t > 50.,\n -65. -E^(-(t - 50.) / 10.) +\n \ E^(-(t - 50.) / 100.),\n -65.]"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "epspPlot =\nPlot[epsp[t], {t, 0, 300}, PlotRange -> {-66, -63}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0031746 13.5967 0.206011 [ [(0)] .02381 0 0 2 Msboxa [(50)] .18254 0 0 2 Msboxa [(100)] .34127 0 0 2 Msboxa [(150)] .5 0 0 2 Msboxa [(200)] .65873 0 0 2 Msboxa [(250)] .81746 0 0 2 Msboxa [(300)] .97619 0 0 2 Msboxa [(-65.5)] .01131 .10301 1 0 Msboxa [(-65)] .01131 .20601 1 0 Msboxa [(-64.5)] .01131 .30902 1 0 Msboxa [(-64)] .01131 .41202 1 0 Msboxa [(-63.5)] .01131 .51503 1 0 Msboxa [(-63)] .01131 .61803 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .02381 0 m .02381 .00625 L s P [(0)] .02381 0 0 2 Mshowa p .002 w .18254 0 m .18254 .00625 L s P [(50)] .18254 0 0 2 Mshowa p .002 w .34127 0 m .34127 .00625 L s P [(100)] .34127 0 0 2 Mshowa p .002 w .5 0 m .5 .00625 L s P [(150)] .5 0 0 2 Mshowa p .002 w .65873 0 m .65873 .00625 L s P [(200)] .65873 0 0 2 Mshowa p .002 w .81746 0 m .81746 .00625 L s P [(250)] .81746 0 0 2 Mshowa p .002 w .97619 0 m .97619 .00625 L s P [(300)] .97619 0 0 2 Mshowa p .001 w .05556 0 m .05556 .00375 L s P p .001 w .0873 0 m .0873 .00375 L s P p .001 w .11905 0 m .11905 .00375 L s P p .001 w .15079 0 m .15079 .00375 L s P p .001 w .21429 0 m .21429 .00375 L s P p .001 w .24603 0 m .24603 .00375 L s P p .001 w .27778 0 m .27778 .00375 L s P p .001 w .30952 0 m .30952 .00375 L s P p .001 w .37302 0 m .37302 .00375 L s P p .001 w .40476 0 m .40476 .00375 L s P p .001 w .43651 0 m .43651 .00375 L s P p .001 w .46825 0 m .46825 .00375 L s P p .001 w .53175 0 m .53175 .00375 L s P p .001 w .56349 0 m .56349 .00375 L s P p .001 w .59524 0 m .59524 .00375 L s P p .001 w .62698 0 m .62698 .00375 L s P p .001 w .69048 0 m .69048 .00375 L s P p .001 w .72222 0 m .72222 .00375 L s P p .001 w .75397 0 m .75397 .00375 L s P p .001 w .78571 0 m .78571 .00375 L s P p .001 w .84921 0 m .84921 .00375 L s P p .001 w .88095 0 m .88095 .00375 L s P p .001 w .9127 0 m .9127 .00375 L s P p .001 w .94444 0 m .94444 .00375 L s P p .002 w 0 0 m 1 0 L s P p .002 w .02381 .10301 m .03006 .10301 L s P [(-65.5)] .01131 .10301 1 0 Mshowa p .002 w .02381 .20601 m .03006 .20601 L s P [(-65)] .01131 .20601 1 0 Mshowa p .002 w .02381 .30902 m .03006 .30902 L s P [(-64.5)] .01131 .30902 1 0 Mshowa p .002 w .02381 .41202 m .03006 .41202 L s P [(-64)] .01131 .41202 1 0 Mshowa p .002 w .02381 .51503 m .03006 .51503 L s P [(-63.5)] .01131 .51503 1 0 Mshowa p .002 w .02381 .61803 m .03006 .61803 L s P [(-63)] .01131 .61803 1 0 Mshowa p .001 w .02381 .0206 m .02756 .0206 L s P p .001 w .02381 .0412 m .02756 .0412 L s P p .001 w .02381 .0618 m .02756 .0618 L s P p .001 w .02381 .0824 m .02756 .0824 L s P p .001 w .02381 .12361 m .02756 .12361 L s P p .001 w .02381 .14421 m .02756 .14421 L s P p .001 w .02381 .16481 m .02756 .16481 L s P p .001 w .02381 .18541 m .02756 .18541 L s P p .001 w .02381 .22661 m .02756 .22661 L s P p .001 w .02381 .24721 m .02756 .24721 L s P p .001 w .02381 .26781 m .02756 .26781 L s P p .001 w .02381 .28842 m .02756 .28842 L s P p .001 w .02381 .32962 m .02756 .32962 L s P p .001 w .02381 .35022 m .02756 .35022 L s P p .001 w .02381 .37082 m .02756 .37082 L s P p .001 w .02381 .39142 m .02756 .39142 L s P p .001 w .02381 .43262 m .02756 .43262 L s P p .001 w .02381 .45322 m .02756 .45322 L s P p .001 w .02381 .47383 m .02756 .47383 L s P p .001 w .02381 .49443 m .02756 .49443 L s P p .001 w .02381 .53563 m .02756 .53563 L s P p .001 w .02381 .55623 m .02756 .55623 L s P p .001 w .02381 .57683 m .02756 .57683 L s P p .001 w .02381 .59743 m .02756 .59743 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p .004 w .02381 .20601 m .06349 .20601 L .10317 .20601 L .14286 .20601 L .1627 .20601 L .17262 .20601 L .17758 .20601 L .18006 .20601 L .1813 .20601 L .18254 .20601 L .18502 .21989 L .1875 .23262 L .19246 .25496 L .19742 .27367 L .20238 .28927 L .20734 .30222 L .2123 .31291 L .21726 .32167 L .22222 .32879 L .22718 .33451 L .23214 .33904 L .2371 .34255 L .24206 .34521 L .24454 .34625 L .24702 .34713 L .2495 .34785 L .25198 .34843 L .25446 .34888 L .2557 .34906 L .25694 .34921 L .25818 .34933 L .25942 .34943 L .26066 .3495 L .2619 .34954 L .26314 .34957 L .26438 .34956 L .26563 .34954 L .26687 .3495 L .26811 .34944 L .26935 .34936 L .27183 .34914 L .27431 .34886 L .27679 .34852 L .28175 .34768 L .29167 .34547 L .30159 .34276 L .34127 .32958 L .38095 .31588 L .42063 .30321 L .46032 .29186 L Mistroke .5 .28179 L .53968 .27289 L .57937 .26503 L .61905 .2581 L .65873 .25198 L .69841 .24658 L .7381 .24181 L .77778 .2376 L .81746 .23389 L .85714 .23062 L .89683 .22772 L .93651 .22517 L .97619 .22292 L Mfstroke P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{400, 247}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^CLg=gIfM[Fe]OCdm?clo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_C/k>gYjN[Vi^OShn000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`3lo ?ginO[fm_Ol0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5Q@<30d92@X61PL30`?88Q000 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9R@L71dI6AXF5QLC4a?l0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=S@/;2dY:BXV9RLS8b?mE001EEEEEEJYE00l?3di>CXf=SLcCXf=SLc00;o0P04o`P01?l50003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0 000W0003o`000?l0I`0002L00ooo06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0 003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W00?oo`1W0000 9`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003 o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W00?oo`1W00009`000ol0003o06L0 000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L0 00?o0000o`1W00009`03ool0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0 I`0002L000?o0000o`1W00006@02o`<00ol60003o`000?l0I`0001P000Co003o1@000ol000030003 o`000?l0I`0001P000Co003o1@000ol000030003o`000?l0I`0001801?l200?o0`03o`H0>ooo02l0 000H0003o`0000<000?o00001P000ol0000g0003o`000?l0;@0001T000?o00000P000ol000060003 o`0003L000?o0000o`0]00006P02o`801?l50003o`0003P000?o0000o`0/00009`000ol0000h0003 o`000?l0;00002L000?o0000>0000ol0003o02`0000W0003o`0003P000?o0000o`0E00So3`0002L0 0olh0003o`000?l01`0>oaL0000W0003o`0003P000?o0000n00>obD0000W0003o`0003P000?o0000 j@0?oc<0000W0003o`0003P000?o0000f`0>od80000W0003o`0003P000?o0000d00;oe00000W0003 o`0003T000?o0000b007oe/0000W0003o`0003T000?o0000_@0;of80000W0003o`0003T000?o0000 /P0;ofd0000W00?o>@000ol0002[00OoN00002L000?o0000>P000ol0002T00KoO`0002L000?o0000 >P000ol0002O00GoQ@0002L000?o0000>P000ol0002J00GoRP0002L000?o0000>P000ol0002E00Go S`0002L000?o0000>`000ol0002=00OoU00002L000?o0000>`000ol0002700KoV`0002L00olk0003 o`0008801OnQ00009`000ol0000l0003o`0007`01OnV00009`000ol0000l0003o`0007L01On[0000 9`000ol0000l0003o`0007801On`00009`000ol0000m0003o`0006`01One00009`000ol0000m0003 o`0006P01?nj00009`000ol0000m0003o`0006@01?nn00009`000ol0000n0003o`0006000oo20000 9`03och000?o0000G004olD0000W0003o`0003h000?o0000F004olT0000W0003o`0003l000?o0000 E003old0000W0003o`0003l000?o0000D004om00000=00;o1@000ol000020003o`0000800ol60003 o`0003l000?o0000C@03om@0000<0004o`00o`@000?o00002P000ol000030003o`00040000?o0000 B004omL0000<0005o`00o`001Ol;0003o`0000<000?o0000@0000ol0001500?of`0000H01?l200?o 0P001?l00?l900?o1P03od4000?o0000@004omh0000<0003o`0000<000?o0?l02@000ol000060003 o`00044000?o0000?@03on80000=0003o`0000<00_l90003o`0000H000?o0000@@000ol0000j00?o i@0000h00_l40003o`0000L01?l50003o`00048000?o0000=P03onP0000W0003o`00048000?o0000 <`03on/0000W0003o`0004<000?o0000;`03onh0000W0003o`0004@000?o0000:`03oo40000W00?o A@000ol0000W00?om00002L000?o0000AP000ol0000S00?om`0002L000?o0000A`000ol0000O00?o nP0002L000?o0000B0000ol0000K00?oo@0002L000?o0000B@000ol0000G00?oo`0100009`000ol0 001:00;o5003ool0100002L000?o0000C002o`l00ooo00L0000W0003o`0004h01?l600Goo`0:0000 9`03oe401ooo00l0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003 o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W00?oo`1W00009`000ol0003o06L0 000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L0 00?o0000o`1W00009`000ol0003o06L0000W00?oo`1W00009`000ol0003o06L0000W0003o`000?l0 I`0002L000?o0000o`1W00009`000ol0003o06L0000I00;o1@000ol000040003o`000?l0I`0001P0 00Co003o10000ol000040003o`000?l0I`0001P000Go003o0005o`D00ooo06L0000B00Co0P03o`80 00Co003o1P000ol0003o06L0000H0003o`0000<000?o0?l01P000ol0003o06L0000I0003o`0000<0 0_l60003o`000?l0I`0001X00_l40003o`0000@000?o0000o`1W00009`000ol0003o06L0000W0003 o`000?l0I`0002L000?o0000o`1W00009`03ool0I`0002L000?o0000o`1W00009`000ol0003o06L0 000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L0 0ooo06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0 I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L00ooo06L0000W0003 o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000 o`1W00009`000ol0003o06L0000W00?oo`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L0 00?o0000o`1W00009`000ol0003o06L0000=00;o1002o`@000?o00000P03o`H000?o0000o`1W0000 30001?l00?l20004o`00o`/000?o00000`000ol0003o06L0000<0004o`00o`D000?o00002@000ol0 00030003o`000?l0I`0000H01?l200?o1002o`T00ol600?oo`1W000030000ol000060003o`0000H0 00?o00001P000ol0003o06L0000=0003o`00008000Co003o20000ol000060003o`000?l0I`0000h0 0_l300;o2@04o`D000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000 o`1W00009`03ool0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L0 00?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`03ool0 I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W0000 9`000ol0003o06L0000W0003o`000?l0I`0002L00ooo06L0000W0003o`000?l0I`0002L000?o0000 o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0 000W0003o`000?l0I`0002L00ooo06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0 003o06L0000I00;o1002o`H000?o0000o`1W000060001?l00?l20004o`00o`D000?o0000o`1W0000 60001?l00?l50003o`0000<000?o0000o`1W00004P04o`800ol400;o1P03ool0I`0001P000?o0000 1P000ol0003o06d0000I0003o`00008000Co003oo`1_00006P02o`<00_oo0700003o0940003o0940 0000\ \>"], ImageRangeCache->{{{0, 399}, {246, 0}} -> {-34.4589, -66.2209, 0.869114, 0.0133929}}], Cell[OutputFormData["\<\ Graphics[\"<<>>\"]\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[ "Add some Gaussian noise to simulate the process of measurement."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["<True], Cell[TextData[ "measurement =\nTable[epsp[t] + Random[NormalDistribution[0, 0.3]],\n \ {t, 1, 300}];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "measurementPlot =\nListPlot[measurement, PlotRange -> {-66, -63},\n \ PlotJoined -> True,\n PlotStyle -> {GrayLevel[0.5]}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0031746 13.5967 0.206011 [ [(0)] .02381 0 0 2 Msboxa [(50)] .18254 0 0 2 Msboxa [(100)] .34127 0 0 2 Msboxa [(150)] .5 0 0 2 Msboxa [(200)] .65873 0 0 2 Msboxa [(250)] .81746 0 0 2 Msboxa [(300)] .97619 0 0 2 Msboxa [(-65.5)] .01131 .10301 1 0 Msboxa [(-65)] .01131 .20601 1 0 Msboxa [(-64.5)] .01131 .30902 1 0 Msboxa [(-64)] .01131 .41202 1 0 Msboxa [(-63.5)] .01131 .51503 1 0 Msboxa [(-63)] .01131 .61803 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .02381 0 m .02381 .00625 L s P [(0)] .02381 0 0 2 Mshowa p .002 w .18254 0 m .18254 .00625 L s P [(50)] .18254 0 0 2 Mshowa p .002 w .34127 0 m .34127 .00625 L s P [(100)] .34127 0 0 2 Mshowa p .002 w .5 0 m .5 .00625 L s P [(150)] .5 0 0 2 Mshowa p .002 w .65873 0 m .65873 .00625 L s P [(200)] .65873 0 0 2 Mshowa p .002 w .81746 0 m .81746 .00625 L s P [(250)] .81746 0 0 2 Mshowa p .002 w .97619 0 m .97619 .00625 L s P [(300)] .97619 0 0 2 Mshowa p .001 w .05556 0 m .05556 .00375 L s P p .001 w .0873 0 m .0873 .00375 L s P p .001 w .11905 0 m .11905 .00375 L s P p .001 w .15079 0 m .15079 .00375 L s P p .001 w .21429 0 m .21429 .00375 L s P p .001 w .24603 0 m .24603 .00375 L s P p .001 w .27778 0 m .27778 .00375 L s P p .001 w .30952 0 m .30952 .00375 L s P p .001 w .37302 0 m .37302 .00375 L s P p .001 w .40476 0 m .40476 .00375 L s P p .001 w .43651 0 m .43651 .00375 L s P p .001 w .46825 0 m .46825 .00375 L s P p .001 w .53175 0 m .53175 .00375 L s P p .001 w .56349 0 m .56349 .00375 L s P p .001 w .59524 0 m .59524 .00375 L s P p .001 w .62698 0 m .62698 .00375 L s P p .001 w .69048 0 m .69048 .00375 L s P p .001 w .72222 0 m .72222 .00375 L s P p .001 w .75397 0 m .75397 .00375 L s P p .001 w .78571 0 m .78571 .00375 L s P p .001 w .84921 0 m .84921 .00375 L s P p .001 w .88095 0 m .88095 .00375 L s P p .001 w .9127 0 m .9127 .00375 L s P p .001 w .94444 0 m .94444 .00375 L s P p .002 w 0 0 m 1 0 L s P p .002 w .02381 .10301 m .03006 .10301 L s P [(-65.5)] .01131 .10301 1 0 Mshowa p .002 w .02381 .20601 m .03006 .20601 L s P [(-65)] .01131 .20601 1 0 Mshowa p .002 w .02381 .30902 m .03006 .30902 L s P [(-64.5)] .01131 .30902 1 0 Mshowa p .002 w .02381 .41202 m .03006 .41202 L s P [(-64)] .01131 .41202 1 0 Mshowa p .002 w .02381 .51503 m .03006 .51503 L s P [(-63.5)] .01131 .51503 1 0 Mshowa p .002 w .02381 .61803 m .03006 .61803 L s P [(-63)] .01131 .61803 1 0 Mshowa p .001 w .02381 .0206 m .02756 .0206 L s P p .001 w .02381 .0412 m .02756 .0412 L s P p .001 w .02381 .0618 m .02756 .0618 L s P p .001 w .02381 .0824 m .02756 .0824 L s P p .001 w .02381 .12361 m .02756 .12361 L s P p .001 w .02381 .14421 m .02756 .14421 L s P p .001 w .02381 .16481 m .02756 .16481 L s P p .001 w .02381 .18541 m .02756 .18541 L s P p .001 w .02381 .22661 m .02756 .22661 L s P p .001 w .02381 .24721 m .02756 .24721 L s P p .001 w .02381 .26781 m .02756 .26781 L s P p .001 w .02381 .28842 m .02756 .28842 L s P p .001 w .02381 .32962 m .02756 .32962 L s P p .001 w .02381 .35022 m .02756 .35022 L s P p .001 w .02381 .37082 m .02756 .37082 L s P p .001 w .02381 .39142 m .02756 .39142 L s P p .001 w .02381 .43262 m .02756 .43262 L s P p .001 w .02381 .45322 m .02756 .45322 L s P p .001 w .02381 .47383 m .02756 .47383 L s P p .001 w .02381 .49443 m .02756 .49443 L s P p .001 w .02381 .53563 m .02756 .53563 L s P p .001 w .02381 .55623 m .02756 .55623 L s P p .001 w .02381 .57683 m .02756 .57683 L s P p .001 w .02381 .59743 m .02756 .59743 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p .5 g .004 w .02698 .17139 m .03016 .06952 L .03333 .1778 L .03651 .15934 L .03968 .1137 L .04286 .05507 L .04603 .09319 L .04921 .19509 L .05238 .17268 L .05556 .17506 L .05873 .18056 L .0619 .15048 L .06508 .20981 L .06825 .17774 L .07143 .22572 L .0746 .22814 L .07778 .1243 L .08095 .25571 L .08413 .25628 L .0873 .1384 L .09048 .17865 L .09365 .1125 L .09683 .20131 L .1 .32511 L .10317 .26734 L .10635 .30083 L .10952 .28647 L .1127 .2244 L .11587 .15778 L .11905 .17514 L .12222 .22543 L .1254 .19722 L .12857 .08066 L .13175 .18039 L .13492 .1605 L .1381 .1186 L .14127 .1851 L .14444 .24207 L .14762 .25563 L .15079 .20545 L .15397 .21646 L .15714 .18539 L .16032 .23893 L .16349 .23966 L .16667 .08486 L .16984 .02918 L .17302 .15541 L .17619 .18282 L .17937 .18843 L .18254 .27236 L Mistroke .18571 .20577 L .18889 .25711 L .19206 .28058 L .19524 .19228 L .19841 .43479 L .20159 .21334 L .20476 .41716 L .20794 .35496 L .21111 .39438 L .21429 .3553 L .21746 .37997 L .22063 .34451 L .22381 .33092 L .22698 .31414 L .23016 .34107 L .23333 .35129 L .23651 .33898 L .23968 .33716 L .24286 .35433 L .24603 .25505 L .24921 .37447 L .25238 .45449 L .25556 .33439 L .25873 .32114 L .2619 .35782 L .26508 .28745 L .26825 .39328 L .27143 .38163 L .2746 .4095 L .27778 .4558 L .28095 .25279 L .28413 .44545 L .2873 .27869 L .29048 .36238 L .29365 .40328 L .29683 .40552 L .3 .37621 L .30317 .38676 L .30635 .35084 L .30952 .35244 L .3127 .37507 L .31587 .40406 L .31905 .29056 L .32222 .27989 L .3254 .32366 L .32857 .32793 L .33175 .3915 L .33492 .35952 L .3381 .40152 L .34127 .39481 L Mistroke .34444 .27358 L .34762 .20977 L .35079 .47098 L .35397 .28906 L .35714 .41468 L .36032 .20552 L .36349 .3721 L .36667 .30058 L .36984 .35225 L .37302 .35226 L .37619 .25126 L .37937 .38255 L .38254 .30282 L .38571 .38691 L .38889 .38076 L .39206 .22717 L .39524 .29385 L .39841 .33238 L .40159 .35973 L .40476 .31697 L .40794 .32269 L .41111 .356 L .41429 .29023 L .41746 .28939 L .42063 .27518 L .42381 .33795 L .42698 .36238 L .43016 .33059 L .43333 .40781 L .43651 .29802 L .43968 .35408 L .44286 .23645 L .44603 .3282 L .44921 .27851 L .45238 .311 L .45556 .39416 L .45873 .32123 L .4619 .3372 L .46508 .32136 L .46825 .35808 L .47143 .39636 L .4746 .41044 L .47778 .34626 L .48095 .25622 L .48413 .24048 L .4873 .29366 L .49048 .39279 L .49365 .323 L .49683 .24031 L .5 .31536 L Mistroke .50317 .26745 L .50635 .31324 L .50952 .38216 L .5127 .2936 L .51587 .43029 L .51905 .12563 L .52222 .34694 L .5254 .23611 L .52857 .20637 L .53175 .38424 L .53492 .20217 L .5381 .31353 L .54127 .23532 L .54444 .17899 L .54762 .31112 L .55079 .27051 L .55397 .27937 L .55714 .25565 L .56032 .30346 L .56349 .27816 L .56667 .28358 L .56984 .14699 L .57302 .2574 L .57619 .26715 L .57937 .28342 L .58254 .33035 L .58571 .18536 L .58889 .19652 L .59206 .23586 L .59524 .15353 L .59841 .25434 L .60159 .20929 L .60476 .22114 L .60794 .24847 L .61111 .35978 L .61429 .30313 L .61746 .25104 L .62063 .23179 L .62381 .19599 L .62698 .22684 L .63016 .3208 L .63333 .13761 L .63651 .26501 L .63968 .36838 L .64286 .27604 L .64603 .18346 L .64921 .32536 L .65238 .19987 L .65556 .32606 L .65873 .27907 L Mistroke .6619 .30597 L .66508 .32602 L .66825 .29513 L .67143 .28609 L .6746 .2902 L .67778 .21697 L .68095 .31049 L .68413 .1803 L .6873 .2562 L .69048 .23735 L .69365 .24624 L .69683 .2608 L .7 .31026 L .70317 .33211 L .70635 .22492 L .70952 .27261 L .7127 .32197 L .71587 .24417 L .71905 .29665 L .72222 .2608 L .7254 .21588 L .72857 .28222 L .73175 .15967 L .73492 .21165 L .7381 .30631 L .74127 .24687 L .74444 .26421 L .74762 .23269 L .75079 .17413 L .75397 .35695 L .75714 .25824 L .76032 .17222 L .76349 .18597 L .76667 .26508 L .76984 .20045 L .77302 .29008 L .77619 .21459 L .77937 .31278 L .78254 .2496 L .78571 .31528 L .78889 .26574 L .79206 .08177 L .79524 .16222 L .79841 .21658 L .80159 .36824 L .80476 .20758 L .80794 .34701 L .81111 .27616 L .81429 .2612 L .81746 .12619 L Mistroke .82063 .25412 L .82381 .19889 L .82698 .12472 L .83016 .1671 L .83333 .32802 L .83651 .27216 L .83968 .31447 L .84286 .23765 L .84603 .2536 L .84921 .29346 L .85238 .24139 L .85556 .27046 L .85873 .29453 L .8619 .25018 L .86508 .22261 L .86825 .17489 L .87143 .12501 L .8746 .24956 L .87778 .20543 L .88095 .24675 L .88413 .28331 L .8873 .26746 L .89048 .18471 L .89365 .25695 L .89683 .1758 L .9 .32526 L .90317 .1742 L .90635 .26555 L .90952 .20989 L .9127 .22855 L .91587 .10647 L .91905 .21811 L .92222 .29957 L .9254 .29805 L .92857 .36187 L .93175 .28609 L .93492 .28594 L .9381 .19686 L .94127 .29018 L .94444 .17867 L .94762 .27071 L .95079 .22344 L .95397 .25064 L .95714 .27789 L .96032 .21732 L .96349 .26202 L .96667 .09996 L .96984 .18393 L .97302 .09801 L .97619 .14994 L Mistroke Mfstroke P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{400, 247}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^CLg=gIfM[Fe]OCdm?clo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_C/k>gYjN[Vi^OShn000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`3lo ?ginO[fm_Ol0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5Q@<30d92@X61PL30`?88Q000 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9R@L71dI6AXF5QLC4a?l0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=S@/;2dY:BXV9RLS8b?mE001EEEEEEJYE00l?3di>CXf=SLcCXf=SLc00000000<]0000C`0002L000?o02d00`000bd0;@0M0003;@0000/000<]02d0 h0000bX0001?00003@02o`<00ol40003o`0000800ol60003o`0Z00<0000000<]0000C`0000`000Co003o1@000ol000090003o`0000<000Co02dZ0P000bd0;@0M0003 ;@0000/000<]02d0h0000bX0000l0003;@0]0100000<0004o`00o`D000?o00002@000ol0000300;o 00LZ;@00:P0Z01d00000000000<]0000:@000bd0000@0003:P0Z0100 000W0004o`0]:P8000<]02d040000bX0000:0003;@0000/000<]02d0h0000bX0000Y0003:P000100 00<]02d0400002L000Co02X]0P000bX0:P0@0003;@0000X000DZ0000:P090003:P0Z0>0000<]0000 :@000bd0000@0003:P0Z0100000W0004obX0:P8000<]02d040000bX0000:0005;@0002d02@000bd0 ;@3P0003:P0002T0000003 ;BX00100000003;BX00100000001bX]000Z02X00P000bdZ00070003;BX000<000L]:Rd0;@0]00H000HZ;@00 :Rd30003;@0]00X0000006;@0]02dZ10000bd000020005:P0002X01P002Bd0 02X]02d0;@050003;@0]008000@Z000]=0001BX0000Z03P000L]:P00;@0]0080000006 :P0Z02X]10000bX000020005;@0002d01`000bd0;@020003:P0Z00D0000001bX]000Z02X00P000bdZ00060003:P0Z00@000P]02d0;@0]:PD000HZ02X0:Rd30003 ;@0]00P000@Z02X]3@001Bd002X]00<000`]02d0;@0]02dZ02X30007:P0002X0:P030004:P0Z;@80 000006:RdZ02X]10000bX000020005;@0002d01`000bd0;@020003:P0Z00D0 000003;@0000D000D]000Z;@020003:P0001T0000W00?o6@0012X]:RdN0004:P0Z;@l0 00<]000010000bX000020004;@00:PX000<]:P001P0022X0:P0Z02X]10000bX000020003;@0]00H0 000003:P0000D000@Z000] 0`000bd0000I00009`000ol0000I0004;BX]:Qh000@]02dZ3`000bX000040003;@00008000@Z000] 2P000bX]00060008;@0]02d0;BX40003;@00008000;@0]02d0;@0]02d0;BX20004;@00:P@000<]0000 10000bX]00070003:P0Z00D0000003:Rd000@000<]:P000`0012dZ02X:0003;@0]00H000TZ02X0:P0Z;BX0 0P0012dZ02X20003;@0]00H0000003 ;BX000@0000003:Rd000@000<]:P000`0012dZ 02X:0003;@0]00H000TZ02X0:Rd0;BX00P0012dZ02X20003;@0]00H000@Z000]10001RX]02d0;@T0 00H]000Z02X20009;@0]02d0;@0]008000@Z000]0P000bX0000:0003;@0000L000<]:P0010001BX0 :P0Z008000L]02d0;@0]00@0000003:P0Z00T0 000003;@0]00T000<]00005@000bd000060003:P0Z01l0000W0003o`0001T0000003:P0Z00T0 000003;@0]02/000<]00007P0002L000?o0000?00012dZ 02X60003;@0]00@000TZ02X0:Rd0;BX010001BdZ02X]00T000D]0000;@04000?:P0Z02X]02dZ;@0] 02dZ008000T]000Z02X0:Rd00`000bd0;@020003:Rd000<000DZ02X]:P040006;@00:P0Z10001bd0 ;@0]02d00P000bX0000J0003;@0000L000<]:P009`000bd0000>0003:P0Z02/0000003:P0Z02/0000003:P0002/0000003;BX000H0000000bX0002d00006@000ol0000300;o 1P000ol0000l0003:P000140000000bd0002d00006P02o`@0 00?o000010000ol0000l0003;@00014000<]00001@001BdZ000]01L000<]0000>0000bX0002d0000 9`000ol0000l0003:P000140000000bd0002d00009`000ol0 000l0003;@00014000<]00001@001BdZ000]01L000<]0000>0000bX0002d00009`000ol0000l0003 :P000140000000bd0002d00009`03oc`000<]00004@000bd0 00060004:P00;AL000<]0000k`0002L000?o0000?0000bX0000A0003:P0000H000@]000Z5`000bX0 003_00009`000ol0001@0003;@0000H000@Z000]5`000bd0003_00009`000ol0001@0003:P0000H0 00@]000Z5`000bX0003_00009`000ol0001@0003;@0000H000@Z000]5`000bd0003_00009`000ol0 001@0003:P0000H000<]000060000bX0003_00009`000ol0001@0003;@0000H000l0000W0003o`00050000<]00001P000bX0 000H0003;@000>l0000W0003o`0007@000l0000W0003o`0007@000<]0000k`0002L000?o0000M0000bX0003_00009`000ol0 001d0003;@000>l0000W00?oo`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000 o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`03ool0I`0002L0 00?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00003@02o`@0 0_l40003o`0000800ol60003o`000?l0I`0000`000Co003o0P001?l00?l;0003o`0000<000?o0000 o`1W000030001?l00?l50003o`0000T000?o00000`000ol0003o06L0000600Co0P03o`@00_l900?o 1P03ool0I`0000`000?o00001P000ol000060003o`0000H000?o0000o`1W00003@000ol000020004 o`00o`P000?o00001P000ol0003o06L0000>00;o0`02o`T01?l50003o`000?l0I`0002L000?o0000 o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L00ooo06L0000W0003o`000?l0I`0002L0 00?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0 003o06L0000W0003o`000?l0I`0002L00ooo06L0000W0003o`000?l0I`0002L000?o0000o`1W0000 9`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W00?o o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0 000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W00?oo`1W00009`000ol0 003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00006@02o`@00_l60003o`000?l0I`0001P0 00Co003o0P001?l00?l50003o`000?l0I`0001P000Co003o1@000ol000030003o`000?l0I`000180 1?l200?o1002o`H00ooo06L0000H0003o`0000H000?o0000o`1]00006@000ol000020004o`00ool0 K`0001X00_l300;oo`1`0000o`2A0000o`2A0000\ \>"], ImageRangeCache->{{{0, 399}, {246, 0}} -> {-34.4589, -66.2209, 0.869114, 0.0133929}}], Cell[OutputFormData["\<\ Graphics[\"<<>>\"]\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[{ StyleBox[ "Compute the filter coefficients. The number of filter coefficients (41 = \ 20 + 20 + 1) is chosen such that the rising phase of the ", Evaluatable->False, AspectRatioFixed->True], StyleBox["epsp[t]", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" function is not significantly distorted.", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["c = SavitzkyGolayCoefficients[20, 20, 4]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {57/1763, 15/1763, -190/22919, -435/22919, -20715/848003, -21583/848003, -450/19721, -1125/65231, -7975/848003, 75/848003, 9042/848003, 18485/848003, 28005/848003, 2865/65231, 3530/65231, 53667/848003, 60345/848003, 65735/848003, 69690/848003, 72105/848003, 5609/65231, 72105/848003, 69690/848003, 65735/848003, 60345/848003, 53667/848003, 3530/65231, 2865/65231, 28005/848003, 18485/848003, 9042/848003, 75/848003, -7975/848003, -1125/65231, -450/19721, -21583/848003, -20715/848003, -435/22919, -190/22919, 15/1763, 57/1763}\ \>", "\<\ 57 15 190 435 20715 21583 {----, ----, -(-----), -(-----), -(------), -(------), 1763 1763 22919 22919 848003 848003 450 1125 7975 75 9042 18485 -(-----), -(-----), -(------), ------, ------, ------, 19721 65231 848003 848003 848003 848003 28005 2865 3530 53667 60345 65735 69690 ------, -----, -----, ------, ------, ------, ------, 848003 65231 65231 848003 848003 848003 848003 72105 5609 72105 69690 65735 60345 53667 ------, -----, ------, ------, ------, ------, ------, 848003 65231 848003 848003 848003 848003 848003 3530 2865 28005 18485 9042 75 -----, -----, ------, ------, ------, ------, 65231 65231 848003 848003 848003 848003 7975 1125 450 21583 20715 -(------), -(-----), -(-----), -(------), -(------), 848003 65231 19721 848003 848003 435 190 15 57 -(-----), -(-----), ----, ----} 22919 22919 1763 1763\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["c = N[c]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {0.03233125354509359047, 0.008508224617129892229, -0.008290065011562459095, -0.01897988568436668267, -0.02442797961799663444, -0.02545156090249680721, -0.02281831550124233051, -0.01724640125093897074, -0.009404447861623131049, 0.00008844308333814856788, 0.01066269812724719134, 0.02179827194007568369, 0.03302464731846467524, 0.04392083518572457881, 0.0541153745918351704, 0.06328633271344558922, 0.07116130485387433771, 0.07751741444310928145, 0.08218131303780764927, 0.08502918032129603316, 0.08598672410357038831, 0.08502918032129603316, 0.08218131303780764927, 0.07751741444310928145, 0.07116130485387433771, 0.06328633271344558922, 0.0541153745918351704, 0.04392083518572457881, 0.03302464731846467524, 0.02179827194007568369, 0.01066269812724719134, 0.00008844308333814856788, -0.009404447861623131049, -0.01724640125093897074, -0.02281831550124233051, -0.02545156090249680721, -0.02442797961799663444, -0.01897988568436668267, -0.008290065011562459095, 0.008508224617129892229, 0.03233125354509359047}\ \>", "\<\ {0.0323313, 0.00850822, -0.00829007, -0.0189799, -0.024428, -0.0254516, -0.0228183, -0.0172464, -0.00940445, 0.0000884431, 0.0106627, 0.0217983, 0.0330246, 0.0439208, 0.0541154, 0.0632863, 0.0711613, 0.0775174, 0.0821813, 0.0850292, 0.0859867, 0.0850292, 0.0821813, 0.0775174, 0.0711613, 0.0632863, 0.0541154, 0.0439208, 0.0330246, 0.0217983, 0.0106627, 0.0000884431, -0.00940445, -0.0172464, -0.0228183, -0.0254516, -0.024428, -0.0189799, -0.00829007, 0.00850822, 0.0323313}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData[ "ListPlot[Transpose[{Range[-20, 20], c}],\n AxesLabel -> {\"n\", \ \"c[n]\"}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.0238095 0.149147 5.28188 [ [(-20)] .02381 .14915 0 2 Msboxa [(-10)] .2619 .14915 0 2 Msboxa [(10)] .7381 .14915 0 2 Msboxa [(20)] .97619 .14915 0 2 Msboxa [(n)] 1.025 .14915 -1 0 Msboxa [(-0.02)] .4875 .04351 1 0 Msboxa [(0.02)] .4875 .25478 1 0 Msboxa [(0.04)] .4875 .36042 1 0 Msboxa [(0.06)] .4875 .46606 1 0 Msboxa [(0.08)] .4875 .5717 1 0 Msboxa [(c[n])] .5 .61803 0 -4 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .02381 .14915 m .02381 .1554 L s P [(-20)] .02381 .14915 0 2 Mshowa p .002 w .2619 .14915 m .2619 .1554 L s P [(-10)] .2619 .14915 0 2 Mshowa p .002 w .7381 .14915 m .7381 .1554 L s P [(10)] .7381 .14915 0 2 Mshowa p .002 w .97619 .14915 m .97619 .1554 L s P [(20)] .97619 .14915 0 2 Mshowa p .001 w .07143 .14915 m .07143 .1529 L s P p .001 w .11905 .14915 m .11905 .1529 L s P p .001 w .16667 .14915 m .16667 .1529 L s P p .001 w .21429 .14915 m .21429 .1529 L s P p .001 w .30952 .14915 m .30952 .1529 L s P p .001 w .35714 .14915 m .35714 .1529 L s P p .001 w .40476 .14915 m .40476 .1529 L s P p .001 w .45238 .14915 m .45238 .1529 L s P p .001 w .54762 .14915 m .54762 .1529 L s P p .001 w .59524 .14915 m .59524 .1529 L s P p .001 w .64286 .14915 m .64286 .1529 L s P p .001 w .69048 .14915 m .69048 .1529 L s P p .001 w .78571 .14915 m .78571 .1529 L s P p .001 w .83333 .14915 m .83333 .1529 L s P p .001 w .88095 .14915 m .88095 .1529 L s P p .001 w .92857 .14915 m .92857 .1529 L s P [(n)] 1.025 .14915 -1 0 Mshowa p .002 w 0 .14915 m 1 .14915 L s P p .002 w .5 .04351 m .50625 .04351 L s P [(-0.02)] .4875 .04351 1 0 Mshowa p .002 w .5 .25478 m .50625 .25478 L s P [(0.02)] .4875 .25478 1 0 Mshowa p .002 w .5 .36042 m .50625 .36042 L s P [(0.04)] .4875 .36042 1 0 Mshowa p .002 w .5 .46606 m .50625 .46606 L s P [(0.06)] .4875 .46606 1 0 Mshowa p .002 w .5 .5717 m .50625 .5717 L s P [(0.08)] .4875 .5717 1 0 Mshowa p .001 w .5 .06464 m .50375 .06464 L s P p .001 w .5 .08576 m .50375 .08576 L s P p .001 w .5 .10689 m .50375 .10689 L s P p .001 w .5 .12802 m .50375 .12802 L s P p .001 w .5 .17027 m .50375 .17027 L s P p .001 w .5 .1914 m .50375 .1914 L s P p .001 w .5 .21253 m .50375 .21253 L s P p .001 w .5 .23366 m .50375 .23366 L s P p .001 w .5 .27591 m .50375 .27591 L s P p .001 w .5 .29704 m .50375 .29704 L s P p .001 w .5 .31817 m .50375 .31817 L s P p .001 w .5 .33929 m .50375 .33929 L s P p .001 w .5 .38155 m .50375 .38155 L s P p .001 w .5 .40268 m .50375 .40268 L s P p .001 w .5 .42381 m .50375 .42381 L s P p .001 w .5 .44493 m .50375 .44493 L s P p .001 w .5 .48719 m .50375 .48719 L s P p .001 w .5 .50832 m .50375 .50832 L s P p .001 w .5 .52944 m .50375 .52944 L s P p .001 w .5 .55057 m .50375 .55057 L s P p .001 w .5 .02238 m .50375 .02238 L s P p .001 w .5 .00125 m .50375 .00125 L s P p .001 w .5 .59283 m .50375 .59283 L s P p .001 w .5 .61395 m .50375 .61395 L s P [(c[n])] .5 .61803 0 -4 Mshowa p .002 w .5 0 m .5 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p .008 w .02381 .31992 Mdot .04762 .19409 Mdot .07143 .10536 Mdot .09524 .0489 Mdot .11905 .02012 Mdot .14286 .01472 Mdot .16667 .02862 Mdot .19048 .05805 Mdot .21429 .09947 Mdot .2381 .14961 Mdot .2619 .20547 Mdot .28571 .26428 Mdot .30952 .32358 Mdot .33333 .38113 Mdot .35714 .43498 Mdot .38095 .48342 Mdot .40476 .52501 Mdot .42857 .55859 Mdot .45238 .58322 Mdot .47619 .59826 Mdot .5 .60332 Mdot .52381 .59826 Mdot .54762 .58322 Mdot .57143 .55859 Mdot .59524 .52501 Mdot .61905 .48342 Mdot .64286 .43498 Mdot .66667 .38113 Mdot .69048 .32358 Mdot .71429 .26428 Mdot .7381 .20547 Mdot .7619 .14961 Mdot .78571 .09947 Mdot .80952 .05805 Mdot .83333 .02862 Mdot .85714 .01472 Mdot .88095 .02012 Mdot .90476 .0489 Mdot .92857 .10536 Mdot .95238 .19409 Mdot .97619 .31992 Mdot P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{400, 247}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^CLg=gIfM[Fe]OCdm?clo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_C/k>gYjN[Vi^OShn000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`3lo ?ginO[fm_Ol0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5Q@<30d92@X61PL30`?88Q000 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9R@L71dI6AXF5QLC4a?l0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=S@/;2dY:BXV9RLS8b?mE001EEEEEEJYE00l?3di>CXf=SLcCXf=SLc0000`0000ol0003=0000 `0000ol0003=0000`0000ol0003=0000`0000ol0003=0000@@02ogd000?o0000NP02oe40001100;o O@000ol0001j00;oD@0003T00_n50003o`0008800_m90000>@02ohD00_n300;oB@000<0000?o0000 c@0004T00_me0003o`0007800_mI0000B@02ogD000?o0000LP02oeT000300003o`00000002P00_nF00;oU002ocP0000F00Co0`02od/01Ol200;oC@000ol0001<00Go 0P02od/01?l300;o900001H000Co003o0P001?l00?m<0005o`000?l00P000ol0001:0003o`0004h0 00Go0000o`020003o`0004P000Co003o0P001?l00?lS00005`000ol000020004o`00od`000Go0000 o`020003o`0004X000?o0000CP001Ol0003o008000?o0000B@000ol000020004o`00ob<0000@00Co 10001Ol0003o008000?o0000@P04o`@000Go0000o`020003o`0004X000?o0000CP001Ol0003o0080 00?o0000BP001Ol0003o008000?o00008@0001T000Co003o0P000ol0001:0005o`000?l00P000ol0 001:0003o`0004h000Go0000o`020003o`0004/000Co003o0P000ol0000Q00005P001?l00?l20004 o`00odX00ol30004o`00od`000?o0000C003o`<000Co003oBP001?l00?l20004o`00ob<0000G00;o 1002odd000?o00000P02odd00_m?0003o`0000800_m<00;o1002ob@000300003o`0000003 o`0000h000?o00001@02o`L000?o00003P000ol0000=0003o`0000h000?o00003P000ol0000>0003 o`0000h000?o00003P000ol0000=0003o`0000h000?o00003P000ol0000400;o20000ol0000>0003 o`0000d000?o00003P000ol0000>0003o`0000l00_l00`3o000A000060000ol0000>0003o`0000d0 00?o00003P000ol0000>0003o`0000D00_l70003o`0000h000?o00003@000ol0000>0003o`0000h0 00?o00003P000ol0000>0003o`0000h000?o00003@000ol0000>0003o`0000h000?o00001002o`P0 00?o00003P000ol0000=0003o`0000h000?o00003P000ol0000>00;o00<0o`004P0001P000?o0000 D@000ol0001A0003o`00054000?o0000D@000ol0000U0000`0000ol0003=0000`0000ol0003=0000 `0000ol0003=0000`0000ol0003=0000`002olh000300003o`00000005`02ojL000?o0000 Y002obL0000G00;oH`02od8000?o0000?`02of<00_lW0000O002od8000?o0000?`02oh`000300003 o`0000000`0000ol0 003=0000`0000ol0003=0000`0000ol0003=0000`0000ol0003=0000`0000ol0003=0000`0000ol0 003=0000`002olh000300003o`0000000`0000ol0003=0000`0000ol0003=0000YP02oaP000?o00005@02okH0002V00;o60000ol0 000E00;o]P000:H00_l40003o`0000<00_l400;o1P000ol0003=0000Y@001?l00?l80004o`00o`80 00Co003o1@000ol0003=0000Y@001?l00?l80004o`00o`8000Co003o1@000ol0003=0000Y@001?l0 0?l80004o`00o`<00_l600?oc@000:D000Co003o20001?l00?l20004o`00o`D000?o0000c@000:D0 00Co003o20001?l00?l20004o`00o`D000?o0000c@000:H00_l:00;o1002o`H000?o0000c@000:h0 0_l@0003o`0000d00_nn0000[P02oa0000?o00003@02okh000300003o`000"], ImageRangeCache->{{{0, 399}, {246, 0}} -> {-22.8941, -0.0284274, 0.118991, 0.000536384}}], Cell[OutputFormData["\<\ Graphics[\"<<>>\"]\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData["Apply this filter to the 'measured' data."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["filterOutput = SavitzkyGolayFilter[measurement, c];"], "Input", AspectRatioFixed->True], Cell[TextData[ "This is what the filter output function looks like. It is zero padded in the \ beginning and the end just to compensate for the reduction in the number of \ data points due to the filtering."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "filterOutputPlot =\nListPlot[Join[Table[0, {20}],\n \ filterOutput,\n Table[0, {20}]],\n PlotRange -> {-66, \ -63}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0031746 13.5967 0.206011 [ [(0)] .02381 0 0 2 Msboxa [(50)] .18254 0 0 2 Msboxa [(100)] .34127 0 0 2 Msboxa [(150)] .5 0 0 2 Msboxa [(200)] .65873 0 0 2 Msboxa [(250)] .81746 0 0 2 Msboxa [(300)] .97619 0 0 2 Msboxa [(-65.5)] .01131 .10301 1 0 Msboxa [(-65)] .01131 .20601 1 0 Msboxa [(-64.5)] .01131 .30902 1 0 Msboxa [(-64)] .01131 .41202 1 0 Msboxa [(-63.5)] .01131 .51503 1 0 Msboxa [(-63)] .01131 .61803 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .02381 0 m .02381 .00625 L s P [(0)] .02381 0 0 2 Mshowa p .002 w .18254 0 m .18254 .00625 L s P [(50)] .18254 0 0 2 Mshowa p .002 w .34127 0 m .34127 .00625 L s P [(100)] .34127 0 0 2 Mshowa p .002 w .5 0 m .5 .00625 L s P [(150)] .5 0 0 2 Mshowa p .002 w .65873 0 m .65873 .00625 L s P [(200)] .65873 0 0 2 Mshowa p .002 w .81746 0 m .81746 .00625 L s P [(250)] .81746 0 0 2 Mshowa p .002 w .97619 0 m .97619 .00625 L s P [(300)] .97619 0 0 2 Mshowa p .001 w .05556 0 m .05556 .00375 L s P p .001 w .0873 0 m .0873 .00375 L s P p .001 w .11905 0 m .11905 .00375 L s P p .001 w .15079 0 m .15079 .00375 L s P p .001 w .21429 0 m .21429 .00375 L s P p .001 w .24603 0 m .24603 .00375 L s P p .001 w .27778 0 m .27778 .00375 L s P p .001 w .30952 0 m .30952 .00375 L s P p .001 w .37302 0 m .37302 .00375 L s P p .001 w .40476 0 m .40476 .00375 L s P p .001 w .43651 0 m .43651 .00375 L s P p .001 w .46825 0 m .46825 .00375 L s P p .001 w .53175 0 m .53175 .00375 L s P p .001 w .56349 0 m .56349 .00375 L s P p .001 w .59524 0 m .59524 .00375 L s P p .001 w .62698 0 m .62698 .00375 L s P p .001 w .69048 0 m .69048 .00375 L s P p .001 w .72222 0 m .72222 .00375 L s P p .001 w .75397 0 m .75397 .00375 L s P p .001 w .78571 0 m .78571 .00375 L s P p .001 w .84921 0 m .84921 .00375 L s P p .001 w .88095 0 m .88095 .00375 L s P p .001 w .9127 0 m .9127 .00375 L s P p .001 w .94444 0 m .94444 .00375 L s P p .002 w 0 0 m 1 0 L s P p .002 w .02381 .10301 m .03006 .10301 L s P [(-65.5)] .01131 .10301 1 0 Mshowa p .002 w .02381 .20601 m .03006 .20601 L s P [(-65)] .01131 .20601 1 0 Mshowa p .002 w .02381 .30902 m .03006 .30902 L s P [(-64.5)] .01131 .30902 1 0 Mshowa p .002 w .02381 .41202 m .03006 .41202 L s P [(-64)] .01131 .41202 1 0 Mshowa p .002 w .02381 .51503 m .03006 .51503 L s P [(-63.5)] .01131 .51503 1 0 Mshowa p .002 w .02381 .61803 m .03006 .61803 L s P [(-63)] .01131 .61803 1 0 Mshowa p .001 w .02381 .0206 m .02756 .0206 L s P p .001 w .02381 .0412 m .02756 .0412 L s P p .001 w .02381 .0618 m .02756 .0618 L s P p .001 w .02381 .0824 m .02756 .0824 L s P p .001 w .02381 .12361 m .02756 .12361 L s P p .001 w .02381 .14421 m .02756 .14421 L s P p .001 w .02381 .16481 m .02756 .16481 L s P p .001 w .02381 .18541 m .02756 .18541 L s P p .001 w .02381 .22661 m .02756 .22661 L s P p .001 w .02381 .24721 m .02756 .24721 L s P p .001 w .02381 .26781 m .02756 .26781 L s P p .001 w .02381 .28842 m .02756 .28842 L s P p .001 w .02381 .32962 m .02756 .32962 L s P p .001 w .02381 .35022 m .02756 .35022 L s P p .001 w .02381 .37082 m .02756 .37082 L s P p .001 w .02381 .39142 m .02756 .39142 L s P p .001 w .02381 .43262 m .02756 .43262 L s P p .001 w .02381 .45322 m .02756 .45322 L s P p .001 w .02381 .47383 m .02756 .47383 L s P p .001 w .02381 .49443 m .02756 .49443 L s P p .001 w .02381 .53563 m .02756 .53563 L s P p .001 w .02381 .55623 m .02756 .55623 L s P p .001 w .02381 .57683 m .02756 .57683 L s P p .001 w .02381 .59743 m .02756 .59743 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p .008 w .02698 13.5968 Mdot .03016 13.5968 Mdot .03333 13.5968 Mdot .03651 13.5968 Mdot .03968 13.5968 Mdot .04286 13.5968 Mdot .04603 13.5968 Mdot .04921 13.5968 Mdot .05238 13.5968 Mdot .05556 13.5968 Mdot .05873 13.5968 Mdot .0619 13.5968 Mdot .06508 13.5968 Mdot .06825 13.5968 Mdot .07143 13.5968 Mdot .0746 13.5968 Mdot .07778 13.5968 Mdot .08095 13.5968 Mdot .08413 13.5968 Mdot .0873 13.5968 Mdot .09048 .22695 Mdot .09365 .22344 Mdot .09683 .22604 Mdot .1 .22209 Mdot .10317 .2113 Mdot .10635 .20311 Mdot .10952 .20656 Mdot .1127 .21093 Mdot .11587 .21027 Mdot .11905 .2118 Mdot .12222 .20814 Mdot .1254 .20534 Mdot .12857 .20377 Mdot .13175 .19548 Mdot .13492 .19788 Mdot .1381 .1863 Mdot .14127 .18268 Mdot .14444 .17999 Mdot .14762 .17327 Mdot .15079 .16355 Mdot .15397 .16182 Mdot .15714 .16014 Mdot .16032 .16636 Mdot .16349 .17388 Mdot .16667 .17959 Mdot .16984 .18886 Mdot .17302 .1961 Mdot .17619 .20299 Mdot .17937 .21264 Mdot .18254 .22246 Mdot .18571 .23861 Mdot .18889 .25343 Mdot .19206 .26156 Mdot .19524 .27621 Mdot .19841 .28954 Mdot .20159 .30126 Mdot .20476 .32082 Mdot .20794 .33623 Mdot .21111 .34779 Mdot .21429 .35607 Mdot .21746 .35525 Mdot .22063 .36104 Mdot .22381 .3584 Mdot .22698 .35554 Mdot .23016 .34969 Mdot .23333 .3482 Mdot .23651 .34986 Mdot .23968 .34876 Mdot .24286 .34634 Mdot .24603 .34603 Mdot .24921 .34394 Mdot .25238 .34678 Mdot .25556 .34469 Mdot .25873 .34462 Mdot .2619 .35479 Mdot .26508 .35512 Mdot .26825 .3685 Mdot .27143 .37107 Mdot .2746 .37632 Mdot .27778 .37717 Mdot .28095 .37378 Mdot .28413 .36822 Mdot .2873 .37466 Mdot .29048 .37125 Mdot .29365 .37398 Mdot .29683 .36665 Mdot .3 .36719 Mdot .30317 .36408 Mdot .30635 .36314 Mdot .30952 .36026 Mdot .3127 .35929 Mdot .31587 .3604 Mdot .31905 .35179 Mdot .32222 .35062 Mdot .3254 .34903 Mdot .32857 .34047 Mdot .33175 .34188 Mdot .33492 .34169 Mdot .3381 .34246 Mdot .34127 .33919 Mdot .34444 .33236 Mdot .34762 .33644 Mdot .35079 .32946 Mdot .35397 .33159 Mdot .35714 .33213 Mdot .36032 .33383 Mdot .36349 .33453 Mdot .36667 .33358 Mdot .36984 .33381 Mdot .37302 .32975 Mdot .37619 .3287 Mdot .37937 .32202 Mdot .38254 .31806 Mdot .38571 .31705 Mdot .38889 .32028 Mdot .39206 .32569 Mdot .39524 .32754 Mdot .39841 .32724 Mdot .40159 .32706 Mdot .40476 .32526 Mdot .40794 .3222 Mdot .41111 .32339 Mdot .41429 .32701 Mdot .41746 .31651 Mdot .42063 .31533 Mdot .42381 .3118 Mdot .42698 .32212 Mdot .43016 .32179 Mdot .43333 .32214 Mdot .43651 .32477 Mdot .43968 .32473 Mdot .44286 .33239 Mdot .44603 .33601 Mdot .44921 .33775 Mdot .45238 .33973 Mdot .45556 .32683 Mdot .45873 .33321 Mdot .4619 .33298 Mdot .46508 .33166 Mdot .46825 .33562 Mdot .47143 .33168 Mdot .4746 .33271 Mdot .47778 .32733 Mdot .48095 .32337 Mdot .48413 .32616 Mdot .4873 .32752 Mdot .49048 .3264 Mdot .49365 .32205 Mdot .49683 .32009 Mdot .5 .31102 Mdot .50317 .30565 Mdot .50635 .29245 Mdot .50952 .29196 Mdot .5127 .28858 Mdot .51587 .28857 Mdot .51905 .2895 Mdot .52222 .28031 Mdot .5254 .27694 Mdot .52857 .27628 Mdot .53175 .27458 Mdot .53492 .27691 Mdot .5381 .27406 Mdot .54127 .26883 Mdot .54444 .26503 Mdot .54762 .26802 Mdot .55079 .26838 Mdot .55397 .26522 Mdot .55714 .25677 Mdot .56032 .24991 Mdot .56349 .25036 Mdot .56667 .25204 Mdot .56984 .24901 Mdot .57302 .252 Mdot .57619 .25333 Mdot .57937 .2515 Mdot .58254 .23785 Mdot .58571 .24488 Mdot .58889 .23718 Mdot .59206 .23998 Mdot .59524 .24281 Mdot .59841 .23784 Mdot .60159 .2407 Mdot .60476 .23701 Mdot .60794 .23671 Mdot .61111 .24179 Mdot .61429 .24005 Mdot .61746 .24509 Mdot .62063 .24493 Mdot .62381 .25111 Mdot .62698 .25411 Mdot .63016 .25783 Mdot .63333 .2605 Mdot .63651 .27127 Mdot .63968 .27731 Mdot .64286 .27709 Mdot .64603 .27766 Mdot .64921 .27471 Mdot .65238 .27293 Mdot .65556 .27372 Mdot .65873 .27092 Mdot .6619 .27185 Mdot .66508 .27273 Mdot .66825 .27161 Mdot .67143 .27537 Mdot .6746 .28235 Mdot .67778 .27894 Mdot .68095 .27586 Mdot .68413 .27216 Mdot .6873 .26739 Mdot .69048 .27249 Mdot .69365 .27091 Mdot .69683 .26158 Mdot .7 .26417 Mdot .70317 .26699 Mdot .70635 .26077 Mdot .70952 .26075 Mdot .7127 .26215 Mdot .71587 .26152 Mdot .71905 .26342 Mdot .72222 .26262 Mdot .7254 .26063 Mdot .72857 .25157 Mdot .73175 .2478 Mdot .73492 .24753 Mdot .7381 .25145 Mdot .74127 .24507 Mdot .74444 .24753 Mdot .74762 .2405 Mdot .75079 .23923 Mdot .75397 .23199 Mdot .75714 .23434 Mdot .76032 .23547 Mdot .76349 .23576 Mdot .76667 .23784 Mdot .76984 .24359 Mdot .77302 .24876 Mdot .77619 .25242 Mdot .77937 .24828 Mdot .78254 .24775 Mdot .78571 .24534 Mdot .78889 .24078 Mdot .79206 .23981 Mdot .79524 .23604 Mdot .79841 .23645 Mdot .80159 .23634 Mdot .80476 .23157 Mdot .80794 .2293 Mdot .81111 .23274 Mdot .81429 .23497 Mdot .81746 .24275 Mdot .82063 .2417 Mdot .82381 .24067 Mdot .82698 .24035 Mdot .83016 .24483 Mdot .83333 .24289 Mdot .83651 .25063 Mdot .83968 .24691 Mdot .84286 .25124 Mdot .84603 .24774 Mdot .84921 .24703 Mdot .85238 .23758 Mdot .85556 .23445 Mdot .85873 .24299 Mdot .8619 .2488 Mdot .86508 .25448 Mdot .86825 .24688 Mdot .87143 .24538 Mdot .8746 .23353 Mdot .87778 .22773 Mdot .88095 .21698 Mdot .88413 .21864 Mdot .8873 .21377 Mdot .89048 .21359 Mdot .89365 .22054 Mdot .89683 .22704 Mdot .9 .22997 Mdot .90317 .22949 Mdot .90635 .2328 Mdot .90952 .23704 Mdot .9127 .24488 Mdot .91587 13.5968 Mdot .91905 13.5968 Mdot .92222 13.5968 Mdot .9254 13.5968 Mdot .92857 13.5968 Mdot .93175 13.5968 Mdot .93492 13.5968 Mdot .9381 13.5968 Mdot .94127 13.5968 Mdot .94444 13.5968 Mdot .94762 13.5968 Mdot .95079 13.5968 Mdot .95397 13.5968 Mdot .95714 13.5968 Mdot .96032 13.5968 Mdot .96349 13.5968 Mdot .96667 13.5968 Mdot .96984 13.5968 Mdot .97302 13.5968 Mdot .97619 13.5968 Mdot P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{400, 247}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^CLg=gIfM[Fe]OCdm?clo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_C/k>gYjN[Vi^OShn000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`3lo ?ginO[fm_Ol0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5Q@<30d92@X61PL30`?88Q000 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9R@L71dI6AXF5QLC4a?l0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=S@/;2dY:BXV9RLS8b?mE001EEEEEEJYE00l?3di>CXf=SLcCXf=SLc00;o0P04o`P01?l50003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0 000W0003o`000?l0I`0002L00ooo06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0 003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W00?oo`1W0000 9`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003 o`000?l0I`0002L000?o0000;@02ool0>00002L000?o0000:P05ool0>00002L00olZ00?o00<0ool0 o`0g00009`000ol0000^00;oo`0g00009`000ol0003o06L0000W0003o`0002T00_l400;oo`0f0000 9`000ol0000Y00;o1002ool0=P0002L000?o0000:002o`H00_oo03D0000W0003o`0002L00ol600;o o`0e00009`03obH00ooo03h0000W0003o`0002H00_l900;oo`0d00009`000ol0000a00;oo`0d0000 9`000ol0003o06L0000W0003o`0002<00_l=00;oo`0c00006@02o`<00ol60003o`0002<00ol<00;o o`0c000060001?l00?l50003o`0000<000?o00009002ool0@@0001P000Co003o1@000ol000030003 o`0001X00_l500?o3`02ool000go;`03o`<00_l700Ko1P03o`P00_lB00;o9`0002L000?o0000bP03o`04 0?oo00?o;`03o`D00_l500?o1`05o`030?oo00L00_li00009`000ol0003800;o00<0ool01006obT0 0_l900;o0`02o`X00ol00`3oo`04o`030?oo00800_l0103oool=00;o9P0002L00oo200;o1002o`T0 1?lV00Ko2@06o`h00_l200Go0`05o`d00_lV00009`000ol0002o00Ko00<0ool03P02ob@01ol900Go 4P05o`@00_lh00009`000ol0000h00;oQ@09o`h00olS00;o00<0ool03002oa@01?l600;o=`0002L0 00?o0000>002oh@00_l400;o4@03oe<00_lg00009`000ol0002n00;o6003oaT00ol300;oJP0002L0 00?o0000>@02oih00_lE00;o0P08ofX0000W0003o`0003T00_mn00;o00<0ool0P02ogH01olR00So0P04o`03 0?oo00CoMP0002L000?o0000>P02ogH01OlT00Ko1P05ogX0000W0003o`000;400_l[00;o2003og/0 000W0003o`000;400_le00;oO00002L000?o0000o`1W00009`03oc/00_m`00Go]00002L000?o0000 >`02ofh01ond00009`000ol0002[00?o^00002L000?o0000o`1W00003@02o`D000?o00000P000ol0 000200?o1P000ol0000m00;oo`0X000030001?l00?l40003o`0000X000?o00000`000ol0000m00;o o`0X000030001Ol00?l000Go2`000ol000030003o`000:X00_nj00001P04o`800ol20004o`00o`T0 0ol600?oZP02okX0000<0003o`0000<000?o0?l02@000ol000060003o`0008d00_lJ00;o^`0000d0 00?o00000`02o`T000?o00001P000ol0002<00?o6P02ok/0000>00;o10000ol0000700Co1@000ol0 001n00?o2P03omP0000W0003o`0003h00_ln00Go2002oa/00_nl00009`000ol0000n00;o?@02o`80 0_l400Co0`05o`l00_l300?o_00002L000?o0000O@02o`<00_l00`3oo`05o`801ol400;o1`07okd0 000W00?oL`02o`H00ol400Ko0P02o`H00ol400;o1P06okl0000W0003o`0007000_l00`3oo`02o`@0 0ol500?o3P02o`H01?l0103oo`02ol00000W0003o`0007000_l200So6002o`@02?o400009`000ol0 000o00;o<@02o`801_lI00?o0P05o`030?oo0<@0000W0003o`0003l00_lZ00;o0P02o`030?oo0240 1Ol300;oa`0002L000?o0000J`06obL00_o<00009`000ol0001<00Oo6@04ooH0000W0003o`000400 0_l600_o5`02ooX0000W00?o@002o`D01Ol300;o5P05ooX0000W0003o`0004L01?lL00?oo00002L0 00?o0000@@03o`800_l;00?oo`0A00009`000ol0001100?o00@0oooo2`03o`l00_oo00009`000ol0 001400?o7@04ooh0000W0003o`0004@00_lK00OooP0002L000?o0000E@02o`@00_l200Koo`020000 9`03oeD00ol300Ooo`0500009`000ol0001F00;o00<0ool00P03ool01`0002L000?o0000E`04o`03 0?oo00;oo`0700009`000ol0001G00?o0P02ool02@0002L000?o0000F002ool03@0002L000?o0000 o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L00ooo06L0000W0003o`000?l0I`0002L0 00?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0001T00_l50003o`0000@000?o0000 o`1W000060001?l00?l40003o`0000@000?o0000o`1W000060001Ol00?l000Go1@03ool0I`000180 1?l200?o0P001?l00?l60003o`000?l0I`0001P000?o00000`000ol0o`060003o`000?l0I`0001T0 00?o00000`02o`H000?o0000o`1W00006P02o`@000?o000010000ol0003o06L0000W0003o`000?l0 I`0002L000?o0000o`1W00009`000ol0003o06L0000W00?oo`1W00009`000ol0003o06L0000W0003 o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000 o`1W00009`03ool0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L0 00?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`03ool0 I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W0000 9`000ol0003o06L0000W0003o`000?l0I`0002L00ooo06L0000W0003o`000?l0I`0002L000?o0000 o`1W00009`000ol0003o06L0000W0003o`000?l0I`0000d00_l400;o10000ol0000200?o1P000ol0 003o06L0000<0004o`00o`8000Co003o2`000ol000030003o`000?l0I`0000`000Co003o1@000ol0 00090003o`0000<000?o0000o`1W00001P04o`800ol400;o2@03o`H00ooo06L0000<0003o`0000H0 00?o00001P000ol000060003o`000?l0I`0000d000?o00000P001?l00?l80003o`0000H000?o0000 o`1W00003P02o`<00_l900Co1@000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W0000 9`000ol0003o06L0000W00?oo`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000 o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0 000W00?oo`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0 003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`03ool0I`0002L000?o0000o`1W0000 9`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003 o`000?l0I`0002L000?o0000o`1W00009`03ool0I`0002L000?o0000o`1W00009`000ol0003o06L0 000W0003o`000?l0I`0001T00_l400;o1P000ol0003o06L0000H0004o`00o`8000Co003o1@000ol0 003o06L0000H0004o`00o`D000?o00000`000ol0003o06L0000B00Co0P03o`@00_l600?oo`1W0000 60000ol000060003o`000?l0K@0001T000?o00000P001?l00?oo06l0000J00;o0`02ool0L0000?l0 T@000?l0T@000001\ \>"], ImageRangeCache->{{{0, 399}, {246, 0}} -> {-34.4589, -66.2209, 0.869114, 0.0133929}}], Cell[OutputFormData["\<\ Graphics[\"<<>>\"]\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Show[measurementPlot, epspPlot, filterOutputPlot]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0031746 13.5967 0.206011 [ [(0)] .02381 0 0 2 Msboxa [(50)] .18254 0 0 2 Msboxa [(100)] .34127 0 0 2 Msboxa [(150)] .5 0 0 2 Msboxa [(200)] .65873 0 0 2 Msboxa [(250)] .81746 0 0 2 Msboxa [(300)] .97619 0 0 2 Msboxa [(-65.5)] .01131 .10301 1 0 Msboxa [(-65)] .01131 .20601 1 0 Msboxa [(-64.5)] .01131 .30902 1 0 Msboxa [(-64)] .01131 .41202 1 0 Msboxa [(-63.5)] .01131 .51503 1 0 Msboxa [(-63)] .01131 .61803 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .02381 0 m .02381 .00625 L s P [(0)] .02381 0 0 2 Mshowa p .002 w .18254 0 m .18254 .00625 L s P [(50)] .18254 0 0 2 Mshowa p .002 w .34127 0 m .34127 .00625 L s P [(100)] .34127 0 0 2 Mshowa p .002 w .5 0 m .5 .00625 L s P [(150)] .5 0 0 2 Mshowa p .002 w .65873 0 m .65873 .00625 L s P [(200)] .65873 0 0 2 Mshowa p .002 w .81746 0 m .81746 .00625 L s P [(250)] .81746 0 0 2 Mshowa p .002 w .97619 0 m .97619 .00625 L s P [(300)] .97619 0 0 2 Mshowa p .001 w .05556 0 m .05556 .00375 L s P p .001 w .0873 0 m .0873 .00375 L s P p .001 w .11905 0 m .11905 .00375 L s P p .001 w .15079 0 m .15079 .00375 L s P p .001 w .21429 0 m .21429 .00375 L s P p .001 w .24603 0 m .24603 .00375 L s P p .001 w .27778 0 m .27778 .00375 L s P p .001 w .30952 0 m .30952 .00375 L s P p .001 w .37302 0 m .37302 .00375 L s P p .001 w .40476 0 m .40476 .00375 L s P p .001 w .43651 0 m .43651 .00375 L s P p .001 w .46825 0 m .46825 .00375 L s P p .001 w .53175 0 m .53175 .00375 L s P p .001 w .56349 0 m .56349 .00375 L s P p .001 w .59524 0 m .59524 .00375 L s P p .001 w .62698 0 m .62698 .00375 L s P p .001 w .69048 0 m .69048 .00375 L s P p .001 w .72222 0 m .72222 .00375 L s P p .001 w .75397 0 m .75397 .00375 L s P p .001 w .78571 0 m .78571 .00375 L s P p .001 w .84921 0 m .84921 .00375 L s P p .001 w .88095 0 m .88095 .00375 L s P p .001 w .9127 0 m .9127 .00375 L s P p .001 w .94444 0 m .94444 .00375 L s P p .002 w 0 0 m 1 0 L s P p .002 w .02381 .10301 m .03006 .10301 L s P [(-65.5)] .01131 .10301 1 0 Mshowa p .002 w .02381 .20601 m .03006 .20601 L s P [(-65)] .01131 .20601 1 0 Mshowa p .002 w .02381 .30902 m .03006 .30902 L s P [(-64.5)] .01131 .30902 1 0 Mshowa p .002 w .02381 .41202 m .03006 .41202 L s P [(-64)] .01131 .41202 1 0 Mshowa p .002 w .02381 .51503 m .03006 .51503 L s P [(-63.5)] .01131 .51503 1 0 Mshowa p .002 w .02381 .61803 m .03006 .61803 L s P [(-63)] .01131 .61803 1 0 Mshowa p .001 w .02381 .0206 m .02756 .0206 L s P p .001 w .02381 .0412 m .02756 .0412 L s P p .001 w .02381 .0618 m .02756 .0618 L s P p .001 w .02381 .0824 m .02756 .0824 L s P p .001 w .02381 .12361 m .02756 .12361 L s P p .001 w .02381 .14421 m .02756 .14421 L s P p .001 w .02381 .16481 m .02756 .16481 L s P p .001 w .02381 .18541 m .02756 .18541 L s P p .001 w .02381 .22661 m .02756 .22661 L s P p .001 w .02381 .24721 m .02756 .24721 L s P p .001 w .02381 .26781 m .02756 .26781 L s P p .001 w .02381 .28842 m .02756 .28842 L s P p .001 w .02381 .32962 m .02756 .32962 L s P p .001 w .02381 .35022 m .02756 .35022 L s P p .001 w .02381 .37082 m .02756 .37082 L s P p .001 w .02381 .39142 m .02756 .39142 L s P p .001 w .02381 .43262 m .02756 .43262 L s P p .001 w .02381 .45322 m .02756 .45322 L s P p .001 w .02381 .47383 m .02756 .47383 L s P p .001 w .02381 .49443 m .02756 .49443 L s P p .001 w .02381 .53563 m .02756 .53563 L s P p .001 w .02381 .55623 m .02756 .55623 L s P p .001 w .02381 .57683 m .02756 .57683 L s P p .001 w .02381 .59743 m .02756 .59743 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p .5 g .004 w .02698 .17139 m .03016 .06952 L .03333 .1778 L .03651 .15934 L .03968 .1137 L .04286 .05507 L .04603 .09319 L .04921 .19509 L .05238 .17268 L .05556 .17506 L .05873 .18056 L .0619 .15048 L .06508 .20981 L .06825 .17774 L .07143 .22572 L .0746 .22814 L .07778 .1243 L .08095 .25571 L .08413 .25628 L .0873 .1384 L .09048 .17865 L .09365 .1125 L .09683 .20131 L .1 .32511 L .10317 .26734 L .10635 .30083 L .10952 .28647 L .1127 .2244 L .11587 .15778 L .11905 .17514 L .12222 .22543 L .1254 .19722 L .12857 .08066 L .13175 .18039 L .13492 .1605 L .1381 .1186 L .14127 .1851 L .14444 .24207 L .14762 .25563 L .15079 .20545 L .15397 .21646 L .15714 .18539 L .16032 .23893 L .16349 .23966 L .16667 .08486 L .16984 .02918 L .17302 .15541 L .17619 .18282 L .17937 .18843 L .18254 .27236 L Mistroke .18571 .20577 L .18889 .25711 L .19206 .28058 L .19524 .19228 L .19841 .43479 L .20159 .21334 L .20476 .41716 L .20794 .35496 L .21111 .39438 L .21429 .3553 L .21746 .37997 L .22063 .34451 L .22381 .33092 L .22698 .31414 L .23016 .34107 L .23333 .35129 L .23651 .33898 L .23968 .33716 L .24286 .35433 L .24603 .25505 L .24921 .37447 L .25238 .45449 L .25556 .33439 L .25873 .32114 L .2619 .35782 L .26508 .28745 L .26825 .39328 L .27143 .38163 L .2746 .4095 L .27778 .4558 L .28095 .25279 L .28413 .44545 L .2873 .27869 L .29048 .36238 L .29365 .40328 L .29683 .40552 L .3 .37621 L .30317 .38676 L .30635 .35084 L .30952 .35244 L .3127 .37507 L .31587 .40406 L .31905 .29056 L .32222 .27989 L .3254 .32366 L .32857 .32793 L .33175 .3915 L .33492 .35952 L .3381 .40152 L .34127 .39481 L Mistroke .34444 .27358 L .34762 .20977 L .35079 .47098 L .35397 .28906 L .35714 .41468 L .36032 .20552 L .36349 .3721 L .36667 .30058 L .36984 .35225 L .37302 .35226 L .37619 .25126 L .37937 .38255 L .38254 .30282 L .38571 .38691 L .38889 .38076 L .39206 .22717 L .39524 .29385 L .39841 .33238 L .40159 .35973 L .40476 .31697 L .40794 .32269 L .41111 .356 L .41429 .29023 L .41746 .28939 L .42063 .27518 L .42381 .33795 L .42698 .36238 L .43016 .33059 L .43333 .40781 L .43651 .29802 L .43968 .35408 L .44286 .23645 L .44603 .3282 L .44921 .27851 L .45238 .311 L .45556 .39416 L .45873 .32123 L .4619 .3372 L .46508 .32136 L .46825 .35808 L .47143 .39636 L .4746 .41044 L .47778 .34626 L .48095 .25622 L .48413 .24048 L .4873 .29366 L .49048 .39279 L .49365 .323 L .49683 .24031 L .5 .31536 L Mistroke .50317 .26745 L .50635 .31324 L .50952 .38216 L .5127 .2936 L .51587 .43029 L .51905 .12563 L .52222 .34694 L .5254 .23611 L .52857 .20637 L .53175 .38424 L .53492 .20217 L .5381 .31353 L .54127 .23532 L .54444 .17899 L .54762 .31112 L .55079 .27051 L .55397 .27937 L .55714 .25565 L .56032 .30346 L .56349 .27816 L .56667 .28358 L .56984 .14699 L .57302 .2574 L .57619 .26715 L .57937 .28342 L .58254 .33035 L .58571 .18536 L .58889 .19652 L .59206 .23586 L .59524 .15353 L .59841 .25434 L .60159 .20929 L .60476 .22114 L .60794 .24847 L .61111 .35978 L .61429 .30313 L .61746 .25104 L .62063 .23179 L .62381 .19599 L .62698 .22684 L .63016 .3208 L .63333 .13761 L .63651 .26501 L .63968 .36838 L .64286 .27604 L .64603 .18346 L .64921 .32536 L .65238 .19987 L .65556 .32606 L .65873 .27907 L Mistroke .6619 .30597 L .66508 .32602 L .66825 .29513 L .67143 .28609 L .6746 .2902 L .67778 .21697 L .68095 .31049 L .68413 .1803 L .6873 .2562 L .69048 .23735 L .69365 .24624 L .69683 .2608 L .7 .31026 L .70317 .33211 L .70635 .22492 L .70952 .27261 L .7127 .32197 L .71587 .24417 L .71905 .29665 L .72222 .2608 L .7254 .21588 L .72857 .28222 L .73175 .15967 L .73492 .21165 L .7381 .30631 L .74127 .24687 L .74444 .26421 L .74762 .23269 L .75079 .17413 L .75397 .35695 L .75714 .25824 L .76032 .17222 L .76349 .18597 L .76667 .26508 L .76984 .20045 L .77302 .29008 L .77619 .21459 L .77937 .31278 L .78254 .2496 L .78571 .31528 L .78889 .26574 L .79206 .08177 L .79524 .16222 L .79841 .21658 L .80159 .36824 L .80476 .20758 L .80794 .34701 L .81111 .27616 L .81429 .2612 L .81746 .12619 L Mistroke .82063 .25412 L .82381 .19889 L .82698 .12472 L .83016 .1671 L .83333 .32802 L .83651 .27216 L .83968 .31447 L .84286 .23765 L .84603 .2536 L .84921 .29346 L .85238 .24139 L .85556 .27046 L .85873 .29453 L .8619 .25018 L .86508 .22261 L .86825 .17489 L .87143 .12501 L .8746 .24956 L .87778 .20543 L .88095 .24675 L .88413 .28331 L .8873 .26746 L .89048 .18471 L .89365 .25695 L .89683 .1758 L .9 .32526 L .90317 .1742 L .90635 .26555 L .90952 .20989 L .9127 .22855 L .91587 .10647 L .91905 .21811 L .92222 .29957 L .9254 .29805 L .92857 .36187 L .93175 .28609 L .93492 .28594 L .9381 .19686 L .94127 .29018 L .94444 .17867 L .94762 .27071 L .95079 .22344 L .95397 .25064 L .95714 .27789 L .96032 .21732 L .96349 .26202 L .96667 .09996 L .96984 .18393 L .97302 .09801 L .97619 .14994 L Mistroke Mfstroke P p p .004 w .02381 .20601 m .06349 .20601 L .10317 .20601 L .14286 .20601 L .1627 .20601 L .17262 .20601 L .17758 .20601 L .18006 .20601 L .1813 .20601 L .18254 .20601 L .18502 .21989 L .1875 .23262 L .19246 .25496 L .19742 .27367 L .20238 .28927 L .20734 .30222 L .2123 .31291 L .21726 .32167 L .22222 .32879 L .22718 .33451 L .23214 .33904 L .2371 .34255 L .24206 .34521 L .24454 .34625 L .24702 .34713 L .2495 .34785 L .25198 .34843 L .25446 .34888 L .2557 .34906 L .25694 .34921 L .25818 .34933 L .25942 .34943 L .26066 .3495 L .2619 .34954 L .26314 .34957 L .26438 .34956 L .26563 .34954 L .26687 .3495 L .26811 .34944 L .26935 .34936 L .27183 .34914 L .27431 .34886 L .27679 .34852 L .28175 .34768 L .29167 .34547 L .30159 .34276 L .34127 .32958 L .38095 .31588 L .42063 .30321 L .46032 .29186 L Mistroke .5 .28179 L .53968 .27289 L .57937 .26503 L .61905 .2581 L .65873 .25198 L .69841 .24658 L .7381 .24181 L .77778 .2376 L .81746 .23389 L .85714 .23062 L .89683 .22772 L .93651 .22517 L .97619 .22292 L Mfstroke P P p .008 w .02698 13.5968 Mdot .03016 13.5968 Mdot .03333 13.5968 Mdot .03651 13.5968 Mdot .03968 13.5968 Mdot .04286 13.5968 Mdot .04603 13.5968 Mdot .04921 13.5968 Mdot .05238 13.5968 Mdot .05556 13.5968 Mdot .05873 13.5968 Mdot .0619 13.5968 Mdot .06508 13.5968 Mdot .06825 13.5968 Mdot .07143 13.5968 Mdot .0746 13.5968 Mdot .07778 13.5968 Mdot .08095 13.5968 Mdot .08413 13.5968 Mdot .0873 13.5968 Mdot .09048 .22695 Mdot .09365 .22344 Mdot .09683 .22604 Mdot .1 .22209 Mdot .10317 .2113 Mdot .10635 .20311 Mdot .10952 .20656 Mdot .1127 .21093 Mdot .11587 .21027 Mdot .11905 .2118 Mdot .12222 .20814 Mdot .1254 .20534 Mdot .12857 .20377 Mdot .13175 .19548 Mdot .13492 .19788 Mdot .1381 .1863 Mdot .14127 .18268 Mdot .14444 .17999 Mdot .14762 .17327 Mdot .15079 .16355 Mdot .15397 .16182 Mdot .15714 .16014 Mdot .16032 .16636 Mdot .16349 .17388 Mdot .16667 .17959 Mdot .16984 .18886 Mdot .17302 .1961 Mdot .17619 .20299 Mdot .17937 .21264 Mdot .18254 .22246 Mdot .18571 .23861 Mdot .18889 .25343 Mdot .19206 .26156 Mdot .19524 .27621 Mdot .19841 .28954 Mdot .20159 .30126 Mdot .20476 .32082 Mdot .20794 .33623 Mdot .21111 .34779 Mdot .21429 .35607 Mdot .21746 .35525 Mdot .22063 .36104 Mdot .22381 .3584 Mdot .22698 .35554 Mdot .23016 .34969 Mdot .23333 .3482 Mdot .23651 .34986 Mdot .23968 .34876 Mdot .24286 .34634 Mdot .24603 .34603 Mdot .24921 .34394 Mdot .25238 .34678 Mdot .25556 .34469 Mdot .25873 .34462 Mdot .2619 .35479 Mdot .26508 .35512 Mdot .26825 .3685 Mdot .27143 .37107 Mdot .2746 .37632 Mdot .27778 .37717 Mdot .28095 .37378 Mdot .28413 .36822 Mdot .2873 .37466 Mdot .29048 .37125 Mdot .29365 .37398 Mdot .29683 .36665 Mdot .3 .36719 Mdot .30317 .36408 Mdot .30635 .36314 Mdot .30952 .36026 Mdot .3127 .35929 Mdot .31587 .3604 Mdot .31905 .35179 Mdot .32222 .35062 Mdot .3254 .34903 Mdot .32857 .34047 Mdot .33175 .34188 Mdot .33492 .34169 Mdot .3381 .34246 Mdot .34127 .33919 Mdot .34444 .33236 Mdot .34762 .33644 Mdot .35079 .32946 Mdot .35397 .33159 Mdot .35714 .33213 Mdot .36032 .33383 Mdot .36349 .33453 Mdot .36667 .33358 Mdot .36984 .33381 Mdot .37302 .32975 Mdot .37619 .3287 Mdot .37937 .32202 Mdot .38254 .31806 Mdot .38571 .31705 Mdot .38889 .32028 Mdot .39206 .32569 Mdot .39524 .32754 Mdot .39841 .32724 Mdot .40159 .32706 Mdot .40476 .32526 Mdot .40794 .3222 Mdot .41111 .32339 Mdot .41429 .32701 Mdot .41746 .31651 Mdot .42063 .31533 Mdot .42381 .3118 Mdot .42698 .32212 Mdot .43016 .32179 Mdot .43333 .32214 Mdot .43651 .32477 Mdot .43968 .32473 Mdot .44286 .33239 Mdot .44603 .33601 Mdot .44921 .33775 Mdot .45238 .33973 Mdot .45556 .32683 Mdot .45873 .33321 Mdot .4619 .33298 Mdot .46508 .33166 Mdot .46825 .33562 Mdot .47143 .33168 Mdot .4746 .33271 Mdot .47778 .32733 Mdot .48095 .32337 Mdot .48413 .32616 Mdot .4873 .32752 Mdot .49048 .3264 Mdot .49365 .32205 Mdot .49683 .32009 Mdot .5 .31102 Mdot .50317 .30565 Mdot .50635 .29245 Mdot .50952 .29196 Mdot .5127 .28858 Mdot .51587 .28857 Mdot .51905 .2895 Mdot .52222 .28031 Mdot .5254 .27694 Mdot .52857 .27628 Mdot .53175 .27458 Mdot .53492 .27691 Mdot .5381 .27406 Mdot .54127 .26883 Mdot .54444 .26503 Mdot .54762 .26802 Mdot .55079 .26838 Mdot .55397 .26522 Mdot .55714 .25677 Mdot .56032 .24991 Mdot .56349 .25036 Mdot .56667 .25204 Mdot .56984 .24901 Mdot .57302 .252 Mdot .57619 .25333 Mdot .57937 .2515 Mdot .58254 .23785 Mdot .58571 .24488 Mdot .58889 .23718 Mdot .59206 .23998 Mdot .59524 .24281 Mdot .59841 .23784 Mdot .60159 .2407 Mdot .60476 .23701 Mdot .60794 .23671 Mdot .61111 .24179 Mdot .61429 .24005 Mdot .61746 .24509 Mdot .62063 .24493 Mdot .62381 .25111 Mdot .62698 .25411 Mdot .63016 .25783 Mdot .63333 .2605 Mdot .63651 .27127 Mdot .63968 .27731 Mdot .64286 .27709 Mdot .64603 .27766 Mdot .64921 .27471 Mdot .65238 .27293 Mdot .65556 .27372 Mdot .65873 .27092 Mdot .6619 .27185 Mdot .66508 .27273 Mdot .66825 .27161 Mdot .67143 .27537 Mdot .6746 .28235 Mdot .67778 .27894 Mdot .68095 .27586 Mdot .68413 .27216 Mdot .6873 .26739 Mdot .69048 .27249 Mdot .69365 .27091 Mdot .69683 .26158 Mdot .7 .26417 Mdot .70317 .26699 Mdot .70635 .26077 Mdot .70952 .26075 Mdot .7127 .26215 Mdot .71587 .26152 Mdot .71905 .26342 Mdot .72222 .26262 Mdot .7254 .26063 Mdot .72857 .25157 Mdot .73175 .2478 Mdot .73492 .24753 Mdot .7381 .25145 Mdot .74127 .24507 Mdot .74444 .24753 Mdot .74762 .2405 Mdot .75079 .23923 Mdot .75397 .23199 Mdot .75714 .23434 Mdot .76032 .23547 Mdot .76349 .23576 Mdot .76667 .23784 Mdot .76984 .24359 Mdot .77302 .24876 Mdot .77619 .25242 Mdot .77937 .24828 Mdot .78254 .24775 Mdot .78571 .24534 Mdot .78889 .24078 Mdot .79206 .23981 Mdot .79524 .23604 Mdot .79841 .23645 Mdot .80159 .23634 Mdot .80476 .23157 Mdot .80794 .2293 Mdot .81111 .23274 Mdot .81429 .23497 Mdot .81746 .24275 Mdot .82063 .2417 Mdot .82381 .24067 Mdot .82698 .24035 Mdot .83016 .24483 Mdot .83333 .24289 Mdot .83651 .25063 Mdot .83968 .24691 Mdot .84286 .25124 Mdot .84603 .24774 Mdot .84921 .24703 Mdot .85238 .23758 Mdot .85556 .23445 Mdot .85873 .24299 Mdot .8619 .2488 Mdot .86508 .25448 Mdot .86825 .24688 Mdot .87143 .24538 Mdot .8746 .23353 Mdot .87778 .22773 Mdot .88095 .21698 Mdot .88413 .21864 Mdot .8873 .21377 Mdot .89048 .21359 Mdot .89365 .22054 Mdot .89683 .22704 Mdot .9 .22997 Mdot .90317 .22949 Mdot .90635 .2328 Mdot .90952 .23704 Mdot .9127 .24488 Mdot .91587 13.5968 Mdot .91905 13.5968 Mdot .92222 13.5968 Mdot .9254 13.5968 Mdot .92857 13.5968 Mdot .93175 13.5968 Mdot .93492 13.5968 Mdot .9381 13.5968 Mdot .94127 13.5968 Mdot .94444 13.5968 Mdot .94762 13.5968 Mdot .95079 13.5968 Mdot .95397 13.5968 Mdot .95714 13.5968 Mdot .96032 13.5968 Mdot .96349 13.5968 Mdot .96667 13.5968 Mdot .96984 13.5968 Mdot .97302 13.5968 Mdot .97619 13.5968 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{400, 247}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^CLg=gIfM[Fe]OCdm?clo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_C/k>gYjN[Vi^OShn000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`3lo ?ginO[fm_Ol0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5Q@<30d92@X61PL30`?88Q000 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9R@L71dI6AXF5QLC4a?l0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=S@/;2dY:BXV9RLS8b?mE001EEEEEEJYE00l?3di>CXf=SLcCXf=SLc00000000<]0000C`0002L000?o02d00`000bd0;@0M0003;@0000/000<]02d0 h0000bX0001?00003@02o`<00ol40003o`0000800ol60003o`0Z00<0000000<]0000C`0000`000Co003o1@000ol000090003o`0000<000Co02dZ0P000bd0;@0M0003 ;@0000/000<]02d0h0000bX0000l0003;@0]0100000<0004o`00o`D000?o00002@000ol0000300;o 00LZ;@00:P0Z01d00000000000<]0000:@000bd0000@0003:P0Z0100 000W0004o`0]:P8000<]02d040000bX0000:0003;@0000/000<]02d0h0000bX0000Y0003:P000100 00<]02d0400002L000Co02X]0P000bX0:P0@0003;@0000X000DZ0000:P090003:P0Z0>0000<]0000 :@000bd0000@0003:P0Z0100000W0004obX0:P8000<]02d040000bX0000:0005;@0002d02@000bd0 ;@3P0003:P0002T0000003 ;BX00100000003;BX00100 00@000bd0000f0003:Rd000<000DZ0000:P080003 ;BX000<000@]:RdZ2P001Bd002X]00<000<]02d02P000bX]000?0003:Rd000<000HZ;@00:Rd20003 :P0000@000@]000Z1@001RX0:Rd0;@`000HZ000]02d30006;@0]:P0Z0P0012d002X60003;@0]00H0 00ol012d002Xk0003:P0003H000L]:P00;@0]00<000<]0000 1P000bX]00030005:RdZ02X020001RdZ000]:P<0000001bdZ000]02d00P000bX]00070003:Rd000<000LZ;BX0:P0Z00H000H]02d0 ;BX30003:P0Z00X000<]:P003`000bdZ00030006;BX002dZ0P000bd000040006:P00;@0]0`0012d0 ;BX20003;@0000T000L]000Z02X000?o00P0:Rd0;@0]:P8000<]000010000bX0:P060003;@000140 000J00;o0P04o`D000?o00003P001RX0:P0Z;@@0000006:P0Z02X]1002o`<000D]0000 ;@070003;@0]0080000006;@0]02dZ0P04o`<0 00DZ0000:P070003:P0Z008000<]02d01@03o`8000@Z000]=0001BX0000Z03P000L]:P0Z;@0]0080 000003;@0000@0000003;@0000@0000003;@0000h0000003;@0]02/000<]00007P0002L000?o0000?0000bdZ 0002o`@0014Z000]obdZ02X0:P0Z;@0]:P040005;BX0:Rd01003o`8000<]00000_l200;o00l0ool0 :Rd0;@0]02d0;BX00P001Bd002X]0080000003:P0Z02/0 000003;@0]02/000<]00007P0002L000?o0000?00012dZ02X40008;@0002d0 ;@07o`04:P00;@<000<]:P000ol80004;@0000Co00T]0000;BX]02d00P001bX]02dZ02X00`001RX] 000Z;@<000<]02d00P000bX]00030003:P0Z008000D]0000;@030003;BX000<000L]:Rd0;@0]0080 000003;@0]02/0 00<]00007P0002L00oll0004;BX0:P;o0P000bd00005o`0302X000Wo0P001BdZ02X]00D000<]0000 1Ol01Bd0000]00<000D]:Rd0;@020007:Rd0;@0]:P040005;@0002d010001RX]000Z;@@0000003:P0002/0000000bd0000[0003;@0001h0000W0003o`0003`000P]:P0Z ;@0]00?o20000bX0:P040009;@00:P0Z02X]00@0000000bX0001<00009`03oc`000PZ;@0]:P0Z;@/000<]02d00`03o`0302d000Oo00H0;@00:Rd50004 ;BX0:P<000DZ;BX0:P050004:P0Z;@l000<]:P001@000bdZ00020005:P0002X00`000bX000040003 ;@0]00D000<]000090000bX0002700009`000ol0000l0008;BX0:Rd0;BX;0003:P0Z00@00_l01@3o obX]00?o0`001BX002dZ00D000@Z;@0]0`001BdZ;@0]00D000@]02dZ3`000bX]00050003:Rd00080 00D]0000;@030003;@0000@0000003;BX000H0000000bX0002d0000 6@000ol0000300;o1P000ol0000l0003:P000140000000bd0 002d00006P02o`@000?o000010000ol0000l0003;@00014000<]00001@001BdZ000]01L000<]0000 >0000bX0002d00009`000ol0000l0003:P000140000000bd0 002d00009`000ol0000l0003;@00014000<]00001@001BdZ000]01L000<]0000>0000bX0002d0000 9`000ol0000l0003:P000140000000bd0002d00009`03oc`0 00<]00004@000bd000060004:P00;AL000<]0000k`0002L000?o0000?0000bX0000A0003:P0000H0 00@]000Z5`000bX0003_00009`000ol0001@0003;@0000H000@Z000]5`000bd0003_00009`000ol0 001@0003:P0000H000@]000Z5`000bX0003_00009`000ol0001@0003;@0000H000@Z000]5`000bd0 003_00009`000ol0001@0003:P0000H000<]000060000bX0003_00009`000ol0001@0003;@0000H0 00l0000W0003o`000500 00<]00001P000bX0000H0003;@000>l0000W0003o`0007@000l0000W0003o`0007@000<]0000k`0002L000?o0000M0000bX0 003_00009`000ol0001d0003;@000>l0000W00?oo`1W00009`000ol0003o06L0000W0003o`000?l0 I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W0000 9`03ool0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000 o`1W00003@02o`@00_l40003o`0000800ol60003o`000?l0I`0000`000Co003o0P001?l00?l;0003 o`0000<000?o0000o`1W000030001?l00?l50003o`0000T000?o00000`000ol0003o06L0000600Co 0P03o`@00_l900?o1P03ool0I`0000`000?o00001P000ol000060003o`0000H000?o0000o`1W0000 3@000ol000020004o`00o`P000?o00001P000ol0003o06L0000>00;o0`02o`T01?l50003o`000?l0 I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L00ooo06L0000W0003 o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000 o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L00ooo06L0000W0003o`000?l0I`0002L0 00?o0000o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0 003o06L0000W00?oo`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W0000 9`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00009`000ol0003o06L0000W00?o o`1W00009`000ol0003o06L0000W0003o`000?l0I`0002L000?o0000o`1W00006@02o`@00_l60003 o`000?l0I`0001P000Co003o0P001?l00?l50003o`000?l0I`0001P000Co003o1@000ol000030003 o`000?l0I`0001801?l200?o1002o`H00ooo06L0000H0003o`0000H000?o0000o`1]00006@000ol0 00020004o`00ool0K`0001X00_l300;oo`1`0000o`2A0000o`2A0000\ \>"], ImageRangeCache->{{{0, 399}, {246, 0}} -> {-34.4589, -66.2209, 0.869114, 0.0133929}}], Cell[OutputFormData["\<\ Graphics[\"<<>>\"]\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]]}, Open]]}, Open]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 640}, {0, 460}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 365}, WindowMargins->{{12, Automatic}, {Automatic, 16}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup->"\<\ AVU/IFiQKFD000000VHFh09V7j0000000OlH809FV" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 258, 10, 70, "Title", Evaluatable->False], Cell[1992, 63, 97, 2, 70, "Subtitle", Evaluatable->False], Cell[2092, 67, 273, 6, 70, "Text", Evaluatable->False], Cell[2368, 75, 97, 2, 70, "Text", Evaluatable->False], Cell[2468, 79, 80, 1, 70, "Input"], Cell[CellGroupData[{ Cell[2571, 82, 67, 1, 70, "Input"], Cell[2641, 85, 547, 9, 70, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[3220, 96, 79, 1, 70, "Input"], Cell[3302, 99, 456, 8, 70, "Print", Evaluatable->False] }, Open ]], Cell[3770, 109, 198, 4, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[3991, 115, 87, 1, 70, "Input"], Cell[4081, 118, 296, 11, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[4409, 131, 73, 1, 70, "Input"], Cell[4485, 134, 211, 4, 70, "Print", Evaluatable->False] }, Open ]], Cell[4708, 140, 468, 16, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[5199, 158, 84, 2, 70, "Section", Evaluatable->False], Cell[5286, 162, 129, 3, 70, "Text", Evaluatable->False], Cell[5418, 167, 190, 3, 70, "Input"], Cell[CellGroupData[{ Cell[5631, 172, 117, 2, 70, "Input"], Cell[5751, 176, 13686, 618, 255, 4904, 504, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[19440, 796, 131, 7, 70, "Output", Evaluatable->False] }, Open ]], Cell[19583, 805, 138, 3, 70, "Text", Evaluatable->False], Cell[19724, 810, 85, 1, 70, "Input"], Cell[19812, 813, 143, 3, 70, "Input"], Cell[CellGroupData[{ Cell[19978, 818, 192, 3, 70, "Input"], Cell[20173, 823, 45517, 1205, 255, 8673, 745, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[65693, 2030, 131, 7, 70, "Output", Evaluatable->False] }, Open ]], Cell[65836, 2039, 512, 16, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[66371, 2057, 93, 1, 70, "Input"], Cell[66467, 2060, 1756, 53, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[68255, 2115, 61, 1, 70, "Input"], Cell[68319, 2118, 1731, 65, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[70082, 2185, 138, 3, 70, "Input"], Cell[70223, 2190, 11856, 503, 255, 4071, 402, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[82082, 2695, 131, 7, 70, "Output", Evaluatable->False] }, Open ]], Cell[82225, 2704, 115, 2, 70, "Text", Evaluatable->False], Cell[82343, 2708, 104, 1, 70, "Input"], Cell[82450, 2711, 265, 5, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[82738, 2718, 203, 4, 70, "Input"], Cell[82944, 2724, 19080, 860, 255, 9557, 737, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[102027, 3586, 131, 7, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[102190, 3595, 102, 1, 70, "Input"], Cell[102295, 3598, 51995, 1577, 255, 15378, 1120, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[154293, 5177, 131, 7, 70, "Output", Evaluatable->False] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)