(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing 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[ 38996, 915]*) (*NotebookOutlinePosition[ 39840, 942]*) (* CellTagsIndexPosition[ 39796, 938]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ \(w1\ = \ {{1, 1.6}, {2, 1.65}, {3, 1.6}, {4, \ 1.8}, {5, \ 2.1}, {6, 2.2}, {7, 2.0}, {8, 1.5}, {9, 1.3}, {10, 1.4}}\)], "Input"], Cell[BoxData[ \({{1, 1.6`}, {2, 1.65`}, {3, 1.6`}, {4, 1.8`}, {5, 2.1`}, {6, 2.2`}, {7, 2.`}, {8, 1.5`}, {9, 1.3`}, {10, 1.4`}}\)], "Output"] }, Open ]], Cell[BoxData[{ \(Interp[i_]\ := \((w1[\([i - 1]\)] + w1[\([i + 1]\)])\)/ 2\), "\[IndentingNewLine]", \(Average[p1_, p2_]\ := \ \((p1 + p2)\)/2\), "\[IndentingNewLine]", \(Smooth[i_] := \ Average[w1[\([i]\)], Interp[i]]\)}], "Input"], Cell[BoxData[ \(For[j = 1; w2 = {}, j < 11, \(j++\), If[j \[Equal] 1, w2 = Append[w2, w1[\([1]\)]], If[j \[Equal] 10, w2 = Append[w2, w1[\([10]\)]], w2 = Append[w2, Smooth[j]]]]]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(w2\)], "Input"], Cell[BoxData[ \({{1, 1.6`}, {2, 1.625`}, {3, 1.6625`}, {4, 1.8250000000000002`}, {5, 2.05`}, {6, 2.125`}, {7, 1.925`}, {8, 1.575`}, {9, 1.375`}, {10, 1.4`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(g1 = Graphics[{PointSize[0.025], Thickness[0.01], RGBColor[0, 0, 0], Line[w1]}]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(g2\ = \ Graphics[{PointSize[0.025], Dashing[{0.01, 0.02}], Thickness[0.01], RGBColor[0.3, 0.3, 0.3], Line[w2]}]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[{g1, g2}, Axes \[Rule] Automatic]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0952381 -0.83549 0.654004 [ [.21429 .46002 -3 -9 ] [.21429 .46002 3 0 ] [.40476 .46002 -3 -9 ] [.40476 .46002 3 0 ] [.59524 .46002 -3 -9 ] [.59524 .46002 3 0 ] [.78571 .46002 -3 -9 ] [.78571 .46002 3 0 ] [.97619 .46002 -6 -9 ] [.97619 .46002 6 0 ] [.01131 .08012 -18 -4.5 ] [.01131 .08012 0 4.5 ] [.01131 .21092 -18 -4.5 ] [.01131 .21092 0 4.5 ] [.01131 .34172 -18 -4.5 ] [.01131 .34172 0 4.5 ] [.01131 .60332 -18 -4.5 ] [.01131 .60332 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .47252 m .21429 .47877 L s [(2)] .21429 .46002 0 1 Mshowa .40476 .47252 m .40476 .47877 L s [(4)] .40476 .46002 0 1 Mshowa .59524 .47252 m .59524 .47877 L s [(6)] .59524 .46002 0 1 Mshowa .78571 .47252 m .78571 .47877 L s [(8)] .78571 .46002 0 1 Mshowa .97619 .47252 m .97619 .47877 L s [(10)] .97619 .46002 0 1 Mshowa .125 Mabswid .07143 .47252 m .07143 .47627 L s .11905 .47252 m .11905 .47627 L s .16667 .47252 m .16667 .47627 L s .2619 .47252 m .2619 .47627 L s .30952 .47252 m .30952 .47627 L s .35714 .47252 m .35714 .47627 L s .45238 .47252 m .45238 .47627 L s .5 .47252 m .5 .47627 L s .54762 .47252 m .54762 .47627 L s .64286 .47252 m .64286 .47627 L s .69048 .47252 m .69048 .47627 L s .7381 .47252 m .7381 .47627 L s .83333 .47252 m .83333 .47627 L s .88095 .47252 m .88095 .47627 L s .92857 .47252 m .92857 .47627 L s .25 Mabswid 0 .47252 m 1 .47252 L s .02381 .08012 m .03006 .08012 L s [(1.4)] .01131 .08012 1 0 Mshowa .02381 .21092 m .03006 .21092 L s [(1.6)] .01131 .21092 1 0 Mshowa .02381 .34172 m .03006 .34172 L s [(1.8)] .01131 .34172 1 0 Mshowa .02381 .60332 m .03006 .60332 L s [(2.2)] .01131 .60332 1 0 Mshowa .125 Mabswid .02381 .11282 m .02756 .11282 L s .02381 .14552 m .02756 .14552 L s .02381 .17822 m .02756 .17822 L s .02381 .24362 m .02756 .24362 L s .02381 .27632 m .02756 .27632 L s .02381 .30902 m .02756 .30902 L s .02381 .37442 m .02756 .37442 L s .02381 .40712 m .02756 .40712 L s .02381 .43982 m .02756 .43982 L s .02381 .50522 m .02756 .50522 L s .02381 .53792 m .02756 .53792 L s .02381 .57062 m .02756 .57062 L s .02381 .04742 m .02756 .04742 L s .02381 .01472 m .02756 .01472 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 0 r .01 w .11905 .21092 m .21429 .24362 L .30952 .21092 L .40476 .34172 L .5 .53792 L .59524 .60332 L .69048 .47252 L .78571 .14552 L .88095 .01472 L .97619 .08012 L s .3 .3 .3 r [ .01 .02 ] 0 setdash .11905 .21092 m .21429 .22727 L .30952 .25179 L .40476 .35807 L .5 .50522 L .59524 .55427 L .69048 .42347 L .78571 .19457 L .88095 .06377 L .97619 .08012 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgD0oooo1000000O0?ooo`005@3oool0 0`000000oooo0?ooo`3T0?ooo`L000007@3oool001D0oooo00<000000?ooo`3oool0h`3oool30000 0080oooo1000000L0?ooo`005@3oool00`000000oooo0?ooo`3R0?ooo`<000001@3oool4000001X0 oooo000E0?ooo`030000003oool0oooo0>80oooo0P0000070?ooo`@000006@3oool001D0oooo00<0 00000?ooo`3oool0h@3oool3000000T0oooo0`00000H0?ooo`005@3oool00`000000oooo0?ooo`3P 0?ooo`<000002`3oool4000001H0oooo000E0?ooo`030000003oool0oooo0=l0oooo0`00000=0?oo o`@000005@3oool001D0oooo0P00003P0?ooo`800000403oool4000001<0oooo000E0?ooo`030000 003oool0oooo0=h0oooo0`00000A0?ooo`@000004P3oool001D0oooo00<000000?ooo`3oool0g@3o ool3000001@0oooo1000000@0?ooo`005@3oool00`000000oooo0?ooo`3L0?ooo`<000005P3oool4 000000l0oooo000E0?ooo`030000003oool0oooo0=`0oooo0P0000090?ooo`@0C4a<303oool40000 00d0oooo000E0?ooo`030000003oool0oooo0=/0oooo0`0000090?ooo`D0C4a<303oool4000000`0 oooo0000103oool000000000000000040?ooo`030000003oool0oooo00<0oooo0`0000040?ooo`03 0000003oool0oooo0=X0oooo0`00000=0?ooo`80C4a<0`3oool504a03oool001D0oooo00<000000?ooo`3oool0c03oool3 000003T0oooo000E0?ooo`800000c03oool3000000L0oooo0P1`3oool0 01D0oooo00<000000?ooo`3oool0a`3oool200000080oooo0P1`3oool00080oooo00<000000?ooo`3oool01`3oool01@00 0000oooo0?ooo`3oool0000000@0oooo00<000000?ooo`3oool0aP3oool200000080oooo0P10?ooo`<0C4a<0P00001<0?ooo`005@3oool00`000000oooo 0?ooo`1W0?ooo`<00000C@3oool204a0?ooo`005@3oool00`000000oooo0?ooo`1X0?ooo`80 C4a<00<000000?ooo`3oool0B03oool204a0?ooo`005@3o ool00`000000oooo0?ooo`1Z0?ooo`800000B03oool304a`3oool3000005<0oooo000E0?ooo`030000003oool0 oooo0780oooo0`00000304a"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.825959, 1.25421, \ 0.0385924, 0.00561994}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[g1, Axes \[Rule] Automatic]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -0.0820106 0.10582 -0.83549 0.654004 [ [.34127 .46002 -3 -9 ] [.34127 .46002 3 0 ] [.55291 .46002 -3 -9 ] [.55291 .46002 3 0 ] [.76455 .46002 -3 -9 ] [.76455 .46002 3 0 ] [.97619 .46002 -6 -9 ] [.97619 .46002 6 0 ] [.11713 .08012 -18 -4.5 ] [.11713 .08012 0 4.5 ] [.11713 .21092 -18 -4.5 ] [.11713 .21092 0 4.5 ] [.11713 .34172 -18 -4.5 ] [.11713 .34172 0 4.5 ] [.11713 .60332 -18 -4.5 ] [.11713 .60332 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .34127 .47252 m .34127 .47877 L s [(4)] .34127 .46002 0 1 Mshowa .55291 .47252 m .55291 .47877 L s [(6)] .55291 .46002 0 1 Mshowa .76455 .47252 m .76455 .47877 L s [(8)] .76455 .46002 0 1 Mshowa .97619 .47252 m .97619 .47877 L s [(10)] .97619 .46002 0 1 Mshowa .125 Mabswid .18254 .47252 m .18254 .47627 L s .23545 .47252 m .23545 .47627 L s .28836 .47252 m .28836 .47627 L s .39418 .47252 m .39418 .47627 L s .44709 .47252 m .44709 .47627 L s .5 .47252 m .5 .47627 L s .60582 .47252 m .60582 .47627 L s .65873 .47252 m .65873 .47627 L s .71164 .47252 m .71164 .47627 L s .81746 .47252 m .81746 .47627 L s .87037 .47252 m .87037 .47627 L s .92328 .47252 m .92328 .47627 L s .07672 .47252 m .07672 .47627 L s .02381 .47252 m .02381 .47627 L s .25 Mabswid 0 .47252 m 1 .47252 L s .12963 .08012 m .13588 .08012 L s [(1.4)] .11713 .08012 1 0 Mshowa .12963 .21092 m .13588 .21092 L s [(1.6)] .11713 .21092 1 0 Mshowa .12963 .34172 m .13588 .34172 L s [(1.8)] .11713 .34172 1 0 Mshowa .12963 .60332 m .13588 .60332 L s [(2.2)] .11713 .60332 1 0 Mshowa .125 Mabswid .12963 .11282 m .13338 .11282 L s .12963 .14552 m .13338 .14552 L s .12963 .17822 m .13338 .17822 L s .12963 .24362 m .13338 .24362 L s .12963 .27632 m .13338 .27632 L s .12963 .30902 m .13338 .30902 L s .12963 .37442 m .13338 .37442 L s .12963 .40712 m .13338 .40712 L s .12963 .43982 m .13338 .43982 L s .12963 .50522 m .13338 .50522 L s .12963 .53792 m .13338 .53792 L s .12963 .57062 m .13338 .57062 L s .12963 .04742 m .13338 .04742 L s .12963 .01472 m .13338 .01472 L s .25 Mabswid .12963 0 m .12963 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 0 r .01 w .02381 .21092 m .12963 .24362 L .23545 .21092 L .34127 .34172 L .44709 .53792 L .55291 .60332 L .65873 .47252 L .76455 .14552 L .87037 .01472 L .97619 .08012 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg03oool002D0oooo00<000000?ooo`3oool0 _03oool3000003T0oooo000U0?ooo`030000003oool0oooo0;/0oooo0`00000j0?ooo`009@3oool0 0`000000oooo0?ooo`2k0?ooo`800000>`3oool002D0oooo0P00002k0?ooo`<00000>`3oool002D0 oooo00<000000?ooo`3oool0^@3oool3000003`0oooo000U0?ooo`030000003oool0oooo0;P0oooo 0`00000m0?ooo`009@3oool00`000000oooo0?ooo`2g0?ooo`<00000?P3oool002D0oooo00<00000 0?ooo`3oool0]P3oool3000003l0oooo000U0?ooo`030000003oool0oooo0;H0oooo0P0000100?oo o`009@3oool00`000000oooo0?ooo`2e0?ooo`<00000@03oool002D0oooo00<000000?ooo`3oool0 ]03oool300000440oooo000U0?ooo`030000003oool0oooo0;<0oooo0`0000120?ooo`009@3oool2 00000;<0oooo0`0000130?ooo`009@3oool00`000000oooo0?ooo`2b0?ooo`800000A03oool002D0 oooo00<000000?ooo`3oool0/P3oool2000004@0oooo000U0?ooo`030000003oool0oooo0;40oooo 0`0000140?ooo`009@3oool00`000000oooo0?ooo`2a0?ooo`800000A@3oool002D0oooo00<00000 0?ooo`3oool0/@3oool2000004D0oooo000U0?ooo`030000003oool0oooo0;00oooo0`0000150?oo o`009@3oool00`000000oooo0?ooo`2`0?ooo`800000AP3oool002D0oooo00<000000?ooo`3oool0 /03oool2000004H0oooo000U0?ooo`800000/03oool3000004H0oooo000U0?ooo`030000003oool0 oooo0:l0oooo0P0000170?ooo`009@3oool00`000000oooo0?ooo`2_0?ooo`800000A`3oool002D0 oooo00<000000?ooo`3oool0[P3oool3000004L0oooo000U0?ooo`030000003oool0oooo0:h0oooo 0P0000180?ooo`009@3oool00`000000oooo0?ooo`2^0?ooo`800000B03oool002D0oooo00<00000 0?ooo`3oool0[@3oool3000004P0oooo000A0?ooo`<00000103oool00`000000oooo0?ooo`020?oo o`<000001@3oool00`000000oooo0?ooo`2]0?ooo`800000B@3oool00180oooo00<000000?ooo`3o ool01`3oool01@000000oooo0?ooo`3oool0000000@0oooo00<000000?ooo`3oool0[@3oool20000 04T0oooo000B0?ooo`030000003oool0oooo00L0oooo00D000000?ooo`3oool0oooo000000040?oo o`030000003oool0oooo0:`0oooo0`0000190?ooo`001P3oool4000000P0oooo00<000000?ooo`3o ool01`3oool4000000D0oooo0`00000H0?ooo`@00000T03oool2000004X0oooo00060?ooo`L00000 1@3oool00`000000oooo0?ooo`070?ooo`030000003oool0oooo00H0oooo00<000000?ooo`3oool0 5@3oool700000900oooo0P00001:0?ooo`002@3oool7000000030?ooo`000000000000X0oooo00<0 00000?ooo`3oool01@3oool00`000000oooo0?ooo`0B0?ooo`L0000000@0oooo0000000000000000 SP3oool3000004X0oooo000<0?ooo`P000002P3oool2000000D0oooo00<000000?ooo`3oool03P3o ool8000000D0oooo0`00002=0?ooo`800000B`3oool000l0oooo2000000>0?ooo`030000003oool0 oooo00/0oooo200000090?ooo`<00000S03oool2000004/0oooo000C0?ooo`L000002`3oool00`00 0000oooo0?ooo`080?ooo`L000003P3oool3000008X0oooo0`00001;0?ooo`005P3oool8000000L0 oooo00<000000?ooo`3oool0103oool800000180oooo0`0000290?ooo`800000C03oool001T0oooo 200000040?ooo`040000003oool0oooo0?ooo`P000005P3oool2000008T0oooo0P00001<0?ooo`00 7@3oool7000000030?ooo`000000000000H000006P3oool3000008L0oooo0`00001<0?ooo`00803o ool:000001h0oooo0`0000260?ooo`800000C@3oool002<0oooo1000000R0?ooo`<00000Q@3oool2 000004d0oooo000U0?ooo`030000003oool0oooo0280oooo0`0000230?ooo`<00000C@3oool002D0 oooo00<000000?ooo`3oool08`3oool300000880oooo0P00001>0?ooo`009@3oool00`000000oooo 0?ooo`0T0?ooo`800000PP3oool2000004h0oooo000U0?ooo`030000003oool0oooo02@0oooo0`00 00200?ooo`<00000CP3oool002D0oooo00<000000?ooo`3oool09@3oool3000007l0oooo0P00001? 0?ooo`009@3oool00`000000oooo0?ooo`0V0?ooo`<00000OP3oool2000004l0oooo000U0?ooo`03 0000003oool0oooo02L0oooo0`00001l0?ooo`<00000C`3oool002D0oooo00<000000?ooo`3oool0 :03oool3000007/0oooo0P00001@0?ooo`009@3oool2000002X0oooo0`00001j0?ooo`800000D03o ool002D0oooo00<000000?ooo`3oool0:P3oool2000007T0oooo0`00001@0?ooo`009@3oool00`00 0000oooo0?ooo`0Z0?ooo`<00000N03oool200000540oooo000U0?ooo`030000003oool0oooo02/0 oooo0`00001g0?ooo`800000D@3oool002D0oooo00<000000?ooo`3oool0;03oool3000007D0oooo 0`00001A0?ooo`009@3oool00`000000oooo0?ooo`0]0?ooo`<00000M03oool200000580oooo000U 0?ooo`030000003oool0oooo02h0oooo0`00001c0?ooo`800000DP3oool002D0oooo00<000000?oo o`3oool0;`3oool200000780oooo0`00001B0?ooo`009@3oool00`000000oooo0?ooo`0_0?ooo`<0 0000L@3oool2000005<0oooo000U0?ooo`800000<@3oool300000700oooo0P00001C0?ooo`009@3o ool00`000000oooo0?ooo`0a0?ooo`<00000KP3oool3000005<0oooo000U0?ooo`030000003oool0 oooo0380oooo0`00001]0?ooo`800000E03oool002D0oooo00<000000?ooo`3oool0<`3oool30000 06`0oooo0P00001D0?ooo`009@3oool00`000000oooo0?ooo`0d0?ooo`800000J`3oool3000005@0 oooo000U0?ooo`030000003oool0oooo03@0oooo0`00001Z0?ooo`800000E@3oool002D0oooo00<0 00000?ooo`3oool0=@3oool3000006T0oooo0P00001E0?ooo`004@3oool3000000@0oooo00<00000 0?ooo`3oool00P3oool3000000D0oooo00<000000?ooo`3oool0=P3oool3000006L0oooo0`00001E 0?ooo`004P3oool00`000000oooo0?ooo`070?ooo`050000003oool0oooo0?ooo`000000103oool0 0`000000oooo0?ooo`0g0?ooo`<00000IP3oool2000005H0oooo000B0?ooo`030000003oool0oooo 00L0oooo00D000000?ooo`3oool0oooo000000040?ooo`<00000>03oool3000006D0oooo0P00001F 0?ooo`004P3oool00`000000oooo0?ooo`080?ooo`<000001@3oool00`000000oooo0?ooo`0i0?oo o`800000I03oool3000005H0oooo000B0?ooo`030000003oool0oooo00L0oooo00D000000?ooo`3o ool0oooo000000040?ooo`030000003oool0oooo03T0oooo0`00001S0?ooo`800000E`3oool00140 oooo0P0000090?ooo`050000003oool0oooo0?ooo`000000103oool00`000000oooo0?ooo`0j0?oo o`800000H`3oool2000005L0oooo000B0?ooo`030000003oool0oooo00P0oooo0`0000050?ooo`03 0000003oool0oooo03X0oooo0`00001Q0?ooo`<00000E`3oool002D0oooo00<000000?ooo`3oool0 >`3oool200000640oooo0P00001H0?ooo`009@3oool00`000000oooo0?ooo`0k0?ooo`<00000H03o ool2000005P0oooo000U0?ooo`030000003oool0oooo03`0oooo0P00001O0?ooo`<00000F03oool0 02D0oooo00<000000?ooo`3oool0?03oool3000005h0oooo0P00001I0?ooo`009@3oool00`000000 oooo0?ooo`0m0?ooo`<00000G@3oool2000005T0oooo000U0?ooo`800000?`3oool2000005`0oooo 0`00001I0?ooo`009@3oool00`000000oooo0?ooo`0n0?ooo`<00000F`3oool2000005X0oooo000U 0?ooo`030000003oool0oooo03l0oooo0P00001K0?ooo`800000FP3oool002D0oooo00<000000?oo o`3oool0?`3oool3000005T0oooo0`00001J0?ooo`009@3oool00`000000oooo0?ooo`100?ooo`80 0000F@3oool2000005/0oooo000U0?ooo`030000003oool0oooo0400oooo0`00001H0?ooo`800000 F`3oool002D0oooo00<000000?ooo`3oool0@@3oool2000005L0oooo0`00001K0?ooo`009@3oool0 0`000000oooo0?ooo`110?ooo`<00000EP3oool2000005`0oooo000U0?ooo`030000003oool0oooo 0480oooo0P00001F0?ooo`800000G03oool002D0oooo0P0000130?ooo`<00000E03oool3000005`0 oooo000U0?ooo`030000003oool0oooo04<0oooo0P00001D0?ooo`800000G@3oool002D0oooo00<0 00000?ooo`3oool0@`3oool3000005<0oooo0P00001M0?ooo`009@3oool00`000000oooo0?ooo`14 0?ooo`<00000D@3oool3000005d0oooo000U0?ooo`030000003oool0oooo04D0oooo0P00001A0?oo o`800000GP3oool002D0oooo00<000000?ooo`3oool0A@3oool300000500oooo0P00001N0?ooo`00 9@3oool00`000000oooo0?ooo`160?ooo`800000C`3oool3000005h0oooo000U0?ooo`030000003o ool0oooo03T0oooo0`00000:0?ooo`<00000:`3oool300000200oooo0P00000H0?ooo`<00000=P3o ool3000000@0oooo0P0000050?ooo`009@3oool00`000000oooo0?ooo`0j0?ooo`030000003oool0 oooo00X0oooo0P00000Z0?ooo`050000003oool0oooo0?ooo`0000007`3oool2000001L0oooo00D0 00000?ooo`3oool0oooo0000000f0?ooo`030000003oool0oooo0080oooo00@000000?ooo`3oool0 0000103oool002D0oooo0P00000h0?ooo`D000002`3oool3000002T0oooo00D000000?ooo`3oool0 oooo0000000N0?ooo`<000005`3oool01@000000oooo0?ooo`3oool0000003H0oooo00<000000?oo o`3oool00P3oool010000000oooo0?ooo`0000040?ooo`009@3oool00`000000oooo0?ooo`0g0?oo o`040000003oool0oooo000000d0oooo0P00000Y0?ooo`@000007`3oool2000001T0oooo0`00000g 0?ooo`030000003oool0oooo0080oooo00@000000?ooo`3oool00000103oool002D0oooo00<00000 0?ooo`3oool0>03oool00`000000oooo0000000=0?ooo`<00000:03oool00`000000oooo0?ooo`0P 0?ooo`800000603oool01@000000oooo0?ooo`3oool0000003H0oooo00<000000?ooo`3oool00P3o ool010000000oooo0?ooo`0000040?ooo`009@3oool00`000000oooo0?ooo`0i0?ooo`8000003P3o ool2000002T0oooo00<000000?ooo`3oool07P3oool3000001P0oooo00D000000?ooo`3oool0oooo 0000000e0?ooo`800000103oool010000000oooo0?ooo`0000040?ooo`009@3oool00`000000oooo 0?ooo`0j0?ooo`030000003oool0oooo00`0oooo0`00000Y0?ooo`8000007P3oool2000001X0oooo 0`00000g0?ooo`030000003oool0oooo00<0oooo0P0000050?ooo`009@3oool00`000000oooo0?oo o`1:0?ooo`800000B@3oool200000640oooo000U0?ooo`030000003oool0oooo04X0oooo0`000017 0?ooo`<00000H@3oool002D0oooo00<000000?ooo`3oool0B`3oool2000004L0oooo0P00001R0?oo o`009@3oool00`000000oooo0?ooo`1;0?ooo`<00000AP3oool200000680oooo000U0?ooo`030000 003oool0oooo04`0oooo0`0000140?ooo`<00000HP3oool00?l00000800000010?ooo`001`3oool0 0`000000oooo0?ooo`0<0?ooo`030000003oool0oooo00`0oooo00<000000?ooo`3oool0303oool0 0`000000oooo0?ooo`0<0?ooo`030000003oool0oooo00d0oooo00<000000?ooo`3oool0303oool0 0`000000oooo0?ooo`0<0?ooo`040000003oool0oooo0?ooo`<00000203oool00`000000oooo0?oo o`0<0?ooo`030000003oool0oooo00`0oooo00<000000?ooo`3oool0303oool00`000000oooo0?oo o`0;0?ooo`8000003P3oool00`000000oooo0?ooo`0=0?ooo`030000003oool0oooo00`0oooo00<0 00000?ooo`3oool0303oool00`000000oooo0?ooo`0<0?ooo`030000003oool0oooo00`0oooo00<0 00000?ooo`3oool01P3oool002D0oooo00<000000?ooo`3oool0CP3oool200000480oooo0`00001S 0?ooo`009@3oool00`000000oooo0?ooo`1>0?ooo`<00000@03oool3000006@0oooo000U0?ooo`03 0000003oool0oooo04l0oooo0P00000o0?ooo`<00000I@3oool002D0oooo00<000000?ooo`3oool0 C`3oool3000003d0oooo0`00001V0?ooo`009@3oool00`000000oooo0?ooo`1@0?ooo`800000?@3o ool2000006L0oooo000U0?ooo`030000003oool0oooo0500oooo0`00000k0?ooo`<00000I`3oool0 02D0oooo00<000000?ooo`3oool0D@3oool2000003X0oooo0`00001X0?ooo`009@3oool200000580 oooo0`00000h0?ooo`<00000J@3oool002D0oooo00<000000?ooo`3oool0DP3oool2000003L0oooo 0`00001Z0?ooo`009@3oool00`000000oooo0?ooo`1B0?ooo`<00000=@3oool3000006/0oooo000U 0?ooo`030000003oool0oooo05<0oooo0`00000d0?ooo`800000K03oool002D0oooo00<000000?oo o`3oool0E03oool2000003<0oooo0`00001/0?ooo`009@3oool00`000000oooo0?ooo`1D0?ooo`<0 0000<@3oool3000006d0oooo000U0?ooo`030000003oool0oooo05D0oooo0P00000`0?ooo`<00000 KP3oool002D0oooo00<000000?ooo`3oool0E@3oool3000002h0oooo0`00001_0?ooo`009@3oool0 0`000000oooo0?ooo`1F0?ooo`800000;P3oool200000700oooo000U0?ooo`800000E`3oool40000 02/0oooo0`00001`0?ooo`009@3oool00`000000oooo0?ooo`1G0?ooo`@00000:@3oool300000740 oooo000U0?ooo`030000003oool0oooo05T0oooo1000000V0?ooo`<00000LP3oool002D0oooo00<0 00000?ooo`3oool0FP3oool5000002<0oooo0`00001c0?ooo`009@3oool00`000000oooo0?ooo`1L 0?ooo`@000008P3oool2000007@0oooo000U0?ooo`030000003oool0oooo05h0oooo1000000O0?oo o`<00000M03oool002D0oooo00<000000?ooo`3oool0G`3oool4000001d0oooo0`00001e0?ooo`00 9@3oool00`000000oooo0?ooo`1Q0?ooo`@000006P3oool3000007H0oooo000U0?ooo`030000003o ool0oooo0680oooo1000000H0?ooo`<00000M`3oool002D0oooo00<000000?ooo`3oool0I03oool4 000001H0oooo0P00001h0?ooo`009@3oool2000006H0oooo1@00000C0?ooo`<00000N03oool002D0 oooo00<000000?ooo`3oool0I`3oool400000140oooo0`00001i0?ooo`009@3oool00`000000oooo 0?ooo`1Y0?ooo`@000003P3oool3000007X0oooo000U0?ooo`030000003oool0oooo06X0oooo1000 000<0?ooo`<00000N`3oool002D0oooo00<000000?ooo`3oool0K03oool4000000T0oooo0`00001l 0?ooo`009@3oool00`000000oooo0?ooo`1]0?ooo`@00000203oool2000007d0oooo000@0?ooo`D0 00000`3oool010000000oooo0?ooo`3oool5000000@0oooo00<000000?ooo`3oool0K`3oool40000 00D0oooo0`00001m0?ooo`004@3oool010000000oooo0?ooo`0000080?ooo`040000003oool0oooo 000000@0oooo00<000000?ooo`3oool0L03oool500000080oooo0`00001n0?ooo`004P3oool00`00 0000oooo0?ooo`090?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool0LP3oool70000 07l0oooo000C0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool00`3oool3000007@0 oooo100000200?ooo`00403oool01@000000oooo0?ooo`3oool0000000L0oooo00D000000?ooo`3o ool0oooo000000040?ooo`030000003oool0oooo07D0oooo0P0000210?ooo`00403oool01@000000 oooo0?ooo`3oool0000000L0oooo00D000000?ooo`3oool0oooo000000040?ooo`030000003oool0 oooo0?P0oooo000A0?ooo`<000002@3oool3000000D0oooo00<000000?ooo`3oool0n03oool002D0 oooo00<000000?ooo`3oool0n03oool00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {0.755352, 1.2775, 0.0330638, \ 0.00534983}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 1024}, {0, 748}}, WindowSize->{520, 626}, WindowMargins->{{8, Automatic}, {Automatic, 40}}, MacintoshSystemPageSetup->"\<\ 02P0001804P000000^L2D_ogooL33`9K8085:0?l0000005X0FP000003X<;VP5d 038;VTRX04/00@4100000BL?00400@000000000000000000000000000040I0<0 00000000000@XP404@000000000eDflP\>" ] (*********************************************************************** 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[1739, 51, 159, 2, 59, "Input"], Cell[1901, 55, 154, 2, 41, "Output"] }, Open ]], Cell[2070, 60, 256, 4, 59, "Input"], Cell[2329, 66, 222, 4, 75, "Input"], Cell[CellGroupData[{ Cell[2576, 74, 35, 1, 27, "Input"], Cell[2614, 77, 192, 3, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2843, 85, 130, 3, 43, "Input"], Cell[2976, 90, 130, 3, 26, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3143, 98, 163, 3, 59, "Input"], Cell[3309, 103, 130, 3, 26, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3476, 111, 71, 1, 27, "Input"], Cell[3550, 114, 18828, 415, 186, 3078, 216, "GraphicsData", "PostScript", \ "Graphics"], Cell[22381, 531, 130, 3, 26, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22548, 539, 65, 1, 27, "Input"], Cell[22616, 542, 16231, 365, 186, 2751, 194, "GraphicsData", "PostScript", \ "Graphics"], Cell[38850, 909, 130, 3, 26, "Output"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)