(*********************************************************************** 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[ 63592, 2110]*) (*NotebookOutlinePosition[ 64498, 2142]*) (* CellTagsIndexPosition[ 64454, 2138]*) (*WindowFrame->Normal*) Notebook[{ Cell["Fourier Series", "Title", AspectRatioFixed->True], Cell["We work in an interval of length ", "Text", AspectRatioFixed->True], Cell[BoxData[ \(\(a\ = \ 2; \)\)], "Input", AspectRatioFixed->True], Cell["We define our basis functions", "Text", AspectRatioFixed->True], Cell["\<\ f1[x_,m_] :=Sqrt[2/a] Sin[(2 Pi m)/a x]; f2[x_,m_] :=Sqrt[2/a] Cos[(2 Pi m)/a x];\ \>", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ Pick some function in this interval, here we let f(x)=x\ \>", "Text", AspectRatioFixed->True], Cell["f[x_] :=x ;", "Input", AspectRatioFixed->True], Cell["We construct both the a and b coefficients.", "Text", AspectRatioFixed->True], Cell["\<\ acoff[n_] := Sqrt[2/a] Integrate[f[x]*f2[x,n],{x,-a/2,a/2}] ; \ \>", "Input", AspectRatioFixed->True], Cell["\<\ bcoff[n_] := Integrate[f[x]*f1[x,n],{x,-a/2,a/2}] Sqrt[2/a]\ \>", "Input", AspectRatioFixed->True] }, Open ]], Cell[TextData[ "Now we construct the Fourier sum up to a maximum value\nn=nmax. The Fourier \ series involves the sum as n->\[Infinity]."], "Text", AspectRatioFixed->True], Cell["\<\ four[x_,nmax_] := 1/2 acoff[0] + Sum[ acoff[n] f2[x,n],{n,1,nmax}] + Sum[ bcoff[n] f1[x,n],{n,1,nmax}] \ \>", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["nmax=3", "Definition", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ Plot[Evaluate[{four[x,3],f[x]}],{x,-a/2,a/2}]\ \>", "Input", AspectRatioFixed->True], 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.5 0.476191 0.309017 0.294302 [ [.02381 .29652 -6 -9 ] [.02381 .29652 6 0 ] [.2619 .29652 -12 -9 ] [.2619 .29652 12 0 ] [.7381 .29652 -9 -9 ] [.7381 .29652 9 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [.4875 .01472 -12 -4.5 ] [.4875 .01472 0 4.5 ] [.4875 .16187 -24 -4.5 ] [.4875 .16187 0 4.5 ] [.4875 .45617 -18 -4.5 ] [.4875 .45617 0 4.5 ] [.4875 .60332 -6 -4.5 ] [.4875 .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 .02381 .30902 m .02381 .31527 L s [(-1)] .02381 .29652 0 1 Mshowa .2619 .30902 m .2619 .31527 L s [(-0.5)] .2619 .29652 0 1 Mshowa .7381 .30902 m .7381 .31527 L s [(0.5)] .7381 .29652 0 1 Mshowa .97619 .30902 m .97619 .31527 L s [(1)] .97619 .29652 0 1 Mshowa .125 Mabswid .07143 .30902 m .07143 .31277 L s .11905 .30902 m .11905 .31277 L s .16667 .30902 m .16667 .31277 L s .21429 .30902 m .21429 .31277 L s .30952 .30902 m .30952 .31277 L s .35714 .30902 m .35714 .31277 L s .40476 .30902 m .40476 .31277 L s .45238 .30902 m .45238 .31277 L s .54762 .30902 m .54762 .31277 L s .59524 .30902 m .59524 .31277 L s .64286 .30902 m .64286 .31277 L s .69048 .30902 m .69048 .31277 L s .78571 .30902 m .78571 .31277 L s .83333 .30902 m .83333 .31277 L s .88095 .30902 m .88095 .31277 L s .92857 .30902 m .92857 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s .5 .01472 m .50625 .01472 L s [(-1)] .4875 .01472 1 0 Mshowa .5 .16187 m .50625 .16187 L s [(-0.5)] .4875 .16187 1 0 Mshowa .5 .45617 m .50625 .45617 L s [(0.5)] .4875 .45617 1 0 Mshowa .5 .60332 m .50625 .60332 L s [(1)] .4875 .60332 1 0 Mshowa .125 Mabswid .5 .04415 m .50375 .04415 L s .5 .07358 m .50375 .07358 L s .5 .10301 m .50375 .10301 L s .5 .13244 m .50375 .13244 L s .5 .1913 m .50375 .1913 L s .5 .22073 m .50375 .22073 L s .5 .25016 m .50375 .25016 L s .5 .27959 m .50375 .27959 L s .5 .33845 m .50375 .33845 L s .5 .36788 m .50375 .36788 L s .5 .39731 m .50375 .39731 L s .5 .42674 m .50375 .42674 L s .5 .4856 m .50375 .4856 L s .5 .51503 m .50375 .51503 L s .5 .54446 m .50375 .54446 L s .5 .57389 m .50375 .57389 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .30902 m .04262 .2401 L .06244 .17283 L .08426 .11109 L .0949 .08717 L .10458 .06943 L .11403 .05596 L .12297 .04681 L .12787 .04327 L .1324 .0409 L .13476 .04001 L .13737 .0393 L .13868 .03904 L .1394 .03893 L .14009 .03885 L .14072 .03878 L .14142 .03874 L .14264 .0387 L .14328 .0387 L .14397 .03872 L .14519 .0388 L .1465 .03895 L .14725 .03907 L .14795 .0392 L .15036 .03978 L .15295 .04065 L .15785 .04293 L .16231 .04571 L .17308 .05496 L .18328 .06655 L .22161 .12437 L .241 .1551 L .26239 .18471 L .27214 .19587 L .28265 .20599 L .2925 .21361 L .30166 .21908 L .31123 .22323 L .31629 .22483 L .3217 .22612 L .32443 .22662 L .32739 .22706 L .33018 .22738 L .33275 .2276 L .33508 .22774 L .3364 .2278 L .33763 .22784 L .33894 .22787 L .34012 .22788 L .34078 .22789 L Mistroke .3415 .22789 L .3428 .22788 L .34345 .22787 L .34413 .22786 L .34536 .22783 L .34668 .22779 L .34813 .22774 L .35314 .22749 L .36251 .22687 L .36776 .22652 L .37064 .22635 L .37337 .22622 L .37591 .22613 L .37735 .22609 L .37803 .22608 L .37867 .22607 L .37978 .22606 L .38101 .22605 L .38221 .22606 L .3835 .22608 L .38476 .2261 L .3859 .22614 L .38723 .2262 L .38847 .22626 L .39069 .22642 L .39309 .22664 L .39575 .22695 L .39855 .22736 L .40358 .22832 L .40878 .22964 L .41364 .2312 L .42469 .23597 L .43512 .2421 L .44502 .24937 L .46357 .2665 L .50186 .31132 L .52122 .33474 L .54261 .3577 L .55234 .36649 L .56284 .37455 L .57268 .38067 L .58185 .3851 L .5914 .38845 L .59646 .38972 L .60186 .39074 L .60459 .39113 L .60754 .39146 L .6089 .39158 L .61033 .39169 L .61157 .39177 L Mistroke .61291 .39184 L .6142 .3919 L .61538 .39193 L .61656 .39196 L .61769 .39197 L .619 .39198 L .62021 .39198 L .62091 .39197 L .62154 .39196 L .62227 .39195 L .62295 .39193 L .62537 .39186 L .62761 .39177 L .63273 .39148 L .64305 .39079 L .64763 .3905 L .64988 .39038 L .65197 .39029 L .65436 .39021 L .65563 .39018 L .65626 .39017 L .65697 .39016 L .6581 .39015 L .65932 .39015 L .66047 .39016 L .66152 .39017 L .6628 .39021 L .66401 .39025 L .6651 .3903 L .66627 .39037 L .66891 .39057 L .67134 .39082 L .67577 .39145 L .68046 .39238 L .68556 .39375 L .69033 .39538 L .70117 .40048 L .71159 .40736 L .72147 .41576 L .74001 .43632 L .77828 .49348 L .79965 .52757 L .819 .55428 L .82871 .56484 L .83382 .56938 L .8392 .57333 L .84392 .57603 L .84661 .57722 L .8491 .57809 L .85028 .57843 L Mistroke .8514 .5787 L .85242 .57891 L .8535 .57908 L .85467 .57922 L .85575 .5793 L .85691 .57934 L .8582 .57932 L .85948 .57923 L .86068 .57909 L .86199 .57887 L .86339 .57856 L .86598 .57777 L .86833 .57681 L .8731 .57415 L .8776 .57074 L .88762 .55999 L .89327 .55201 L .89847 .54344 L .91729 .5031 L .93795 .44396 L .97619 .30902 L Mfstroke .02381 .01472 m .06244 .03859 L .10458 .06463 L .14415 .08909 L .18221 .11261 L .22272 .13765 L .26171 .16175 L .30316 .18736 L .34309 .21204 L .3815 .23578 L .42237 .26104 L .46172 .28536 L .49955 .30874 L .53984 .33364 L .57861 .3576 L .61984 .38308 L .65954 .40762 L .69774 .43123 L .73838 .45635 L .77751 .48053 L .81909 .50623 L .85916 .53099 L .89771 .55482 L .93871 .58016 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.937}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg>75aaXhhSSR>SZZZZTaaWYVCMe9?@=;@`jJKHmWD_5UD=BLW9kjn _^7Oeda9>k^bPnCQcVUTBO[`DjFOP0X:2Q@D51hN7RPX:3SYVIVJ>SXjf][KNg]l71`Lc[Zj_Cdm=[GbU]GAR40<7=^FBDT7H9mI@00?g=cLda< C820Pc/C4a;Zj^[6a/JRXZ:2PX<6L`L30`8:2PYT0I_ooc020P800082006IV c31`0300L708h700<01`L0ePL00247 0P0A1`0300L7010700<01`L0S@L00`071`3F1`008`L00`071`0>1`0300L701470P2=1`0300L70=H7 000T1`803@L00`071`0D1`0300L708X700<01`L0ePL002H70P0:1`0300L701H700<01`L0R@L00`07 1`3F1`00:0L00`071`061`0300L701P700<01`L0R0L00`071`3F1`00:@L200D700<01`L06PL00`07 1`271`0300L70=H7000[1`800`L00`071`0J1`0300L708L700<01`L0ePL002d700<01`007PL00`07 1`261`0300L70=H7000^1`807`L00`071`251`0300L70=H7000]1`0300L700807PL00`071`241`03 00L70=H7000/1`0300L700<700<01`L06`L00`071`241`0300L70=H7000/1`0300L700@70P0L1`03 00L708<70`3F1`00:`L00`071`071`806`L00`071`221`0300L70=H7000[1`0300L700T70P0J1`03 00L7084700<01`L0ePL002X700<01`L030L00`071`0G1`0300L7084700<01`L0ePL002X700<01`L0 3@L201P700<01`L0P0L00`071`3F1`00:@L00`071`0@1`805`L00`071`1o1`0300L70=H7000Y1`03 00L7018700<01`L050L00`071`1o1`0300L70=H7000X1`0300L701@70P0E1`0300L707h700<01`L0 ePL002P700<01`L05PL201@700<01`L0O@L00`071`3F1`00:0L00`071`0H1`0300L7014700<01`L0 O@L00`071`3F1`009`L00`071`0J1`804PL00`071`1l1`0300L70=H7000W1`0300L701`70P0A1`03 00L707/700<01`L0ePL002H700<01`L07`L2010700<01`L0NPL30=H7000V1`0300L7024700<01`L0 3@L00`071`1j1`0300L70=H7000V1`0300L702870P0>1`0300L707T700<01`L0ePL002D700<01`L0 9@L200d700<01`L0N0L00`071`3F1`009@L00`071`0W1`0300L700X700<01`L0N0L00`071`3F1`00 9@L00`071`0X1`802`L00`071`1g1`0300L70=H7000T1`0300L702/700<01`L02@L00`071`1f1`03 00L70=H7000T1`0300L702`70P0:1`0300L707D700<01`L0ePL002<700<01`L0;`L00`071`071`03 00L707D700<01`L0ePL002<700<01`L0<0L200P700<01`L0M0L00`071`3F1`008`L00`071`0b1`80 1`L00`071`1c1`0300L70=H7000R1`0300L703D700<01`L010L00`071`1c1`0300L70=H7000R1`03 00L703H70P051`0300L7078700<01`L0ePL0028700<01`L0>0L00`071`021`0300L707870`3F1`00 8@L00`071`0j1`800`L00`071`1a1`0300L70=H7000Q1`0300L703`700@01`L0L`L00`071`3F1`00 80L00`071`0n1`8000<700L0L@L00`071`3F1`0080L00`071`101`<0L@L00`071`3F1`0080L00`07 1`121`0300L706l700<01`L0ePL001l700<01`L0A0L206l700<01`L0ePL001l700<01`L0A0L01007 001]1`0300L70=H7000N1`0300L704H700<01`L00P1[1`0300L70=H7000N1`0300L704H700<01`L0 0PL00`071`1X1`0300L70=H7000N1`0300L704L700<01`L00PL204/70`071`801@L500L700<01`L0 ePL001d700<01`L0B@L00`071`031`80B0L2008700<01`L010L200T700<01`L01@L00`071`3F1`00 7@L00`071`191`0300L700D700<01`L0A@L00`071`021`0300L700l700<01`L010L40=D7000M1`03 00L704X700<01`L01@L204D700<01`L00PL00`071`0?1`0300L700@700<01`L0ePL001`700<01`L0 C0L00`071`061`80>@L700<700<01`L00PL00`071`0:1`0500L71`001`L00`071`3F1`0070L00`07 1`1=1`0300L700L700<01`L0@0L00`071`021`0300L700X710081`0300L70=H7000K1`0300L704h7 00<01`L020L2040700<01`L00PL00`071`0:1`0300L700T700<01`L0ePL001/700<01`L0C`L00`07 1`091`0300L703d700D01`L7000=1`0300L700T700<01`L0ePL001/700<01`L0D0L00`071`091`80 ?PL300h71@071`0300L70=H7000J1`0300L7058700<01`L02PL205T700<01`L0ePL001X700<01`L0 DPL00`071`0<1`0300L705H700<01`L0ePL001X700<01`L0D`L00`071`0<1`80EPL00`071`3F1`00 6PL00`071`1D1`0300L700d70P1D1`0300L70=H7000I1`0300L705H700<01`L03PL00`071`1A1`03 00L70=H7000I1`0300L705L700<01`L03PL2054700<01`L0ePL001T700<01`L0E`L00`071`0@1`03 00L704h70`3F1`006@L00`071`1H1`0300L701070P1>1`0300L70=H7000H1`0300L705X700<01`L0 4@L00`071`1;1`0300L70=H7000H1`0300L705/700<01`L04@L204/700<01`L0ePL001P700<01`L0 G0L201<70P191`0300L70=H7000G1`0300L705l700<01`L04PL00`071`161`0300L70=H7000G1`03 00L7060700<01`L04PL204H700<01`L0ePL001L700<01`L0H@L00`071`0C1`0300L704<700<01`L0 ePL001L700<01`L0HPL00`071`0C1`80@`L00`071`3F1`005PL00`071`1T1`0300L701@700<01`L0 @0L00`071`3F1`005PL00`071`1U1`0300L701@70P101`0300L70=H7000F1`0300L706H70P0F1`03 00L703d700<01`L0ePL001D700<01`L0J@L201D70P0m1`0300L70=H7000E1`0300L706/70P0E1`80 >`L30=H7000E1`0300L706d71@0B1`0300L703P700<01`L0ePL001D700<01`L0LPL400`74@0/1`03 00L70=H7000D1`0300L707L730051`0300L700T7100X1`0300L70=H7000D1`0300L708T70P0=1`D0 8`L00`071`3F1`0050L00`071`2;1`8040L2024700<01`L0ePL001@700<01`L0S@L00`071`0?1`80 7`L00`071`3F1`004`L00`071`2?1`804@L00`071`0L1`0300L70=H7000C1`0300L709470P0@1`80 70L00`071`3F1`004`L00`071`2C1`0300L700l700<01`L06@L00`071`3F1`004PL00`071`2E1`80 40L00`071`0H1`0300L70=H7000B1`0300L709L700<01`L03PL201P700<01`L0ePL0018700<01`L0 V0L2010700<01`L05@L30=H7000B1`0300L709X70P0?1`0300L701@700<01`L0ePL0014700<01`L0 W@L00`071`0=1`0300L701<700<01`L0ePL0014700<01`L0WPL200h700<01`L04PL00`071`3F1`00 4@L00`071`2P1`803@L2018700<01`L0ePL0014700<01`L0XPL00`071`0<1`0300L700l700<01`L0 ePL0010700<01`L0Y0L200d700<01`L03PL00`071`3F1`0040L00`071`2V1`8030L00`071`0=1`03 00L70=H7000@1`0300L70:P700<01`L02PL00`071`0<1`0300L70=H7000@1`0300L70:T70P0;1`03 00L700/700<01`L0ePL000l700<01`L0[0L200X700<01`L02PL00`071`3F1`003`L00`071`2^1`80 20L00`071`0:1`0300L70=H7000=1`H0F0L300L70P051`D0@@L00`071`061`0300L700T700<01`L0 F@L300L70P051`D0F0L600T7000>1`80FPL2008700<01`L010L200T700<01`L0@0L200L700<01`L0 20L305P70P021`0300L700@70P091`0300L705P700<01`L02PL000h70P1J1`0300L7008700<01`L0 3`L00`071`111`801PL00`071`071`0300L705P700<01`L00PL00`071`0?1`0300L705L700<01`L0 2PL000h70P1J1`0300L7008700<01`L03`L00`071`131`0300L700@700<01`L01PL00`071`1H1`03 00L7008700<01`L03`L00`071`1G1`0300L700X700031`L010L205071`031`0300L7008700<01`L0 2PL01@071`L004L70P051`0300L700D700<01`L0F0L00`071`021`0300L700X700D01`L7001J1`03 00L700X7000=1`0300L005X700<01`L00PL00`071`0:1`@0BPL00`071`021`0300L700D700<01`L0 F0L00`071`021`0300L700X7101K1`0300L700X7000=1`0300L005X700<01`L00PL00`071`0:1`03 00L704`70P031`0300L700@700<01`L0F0L00`071`021`0300L700X700<01`L0G0L00`071`0:1`00 3@L00`07001J1`0500L71`003@L00`071`1>1`800PL00`071`031`0300L705P700D01`L7000=1`03 00L705`700<01`L02PL000d70`1K1`<03PL504h700@01`L010L00`071`1I1`<03PL505P70`0<1`00 30L00`071`311`8000<700L00PL00`071`3F1`0030L00`071`331`0300L0008700<01`L0ePL000`7 00<01`L0a0L300031`070=L7000<1`0300L701`00 e`L00`071`0:1`0300L700T70P2]1`0300L700h7003G1`0300L700/700<01`L02PL20:/700<01`L0 3PL00=L700<01`L030L00`071`0;1`0300L70:L700<01`L03`L00=L700<01`L03@L00`071`0;1`80 Y`L00`071`0?1`00e`L00`071`0>1`0300L700`70P2U1`0300L700l7003G1`0300L700l700<01`L0 3@L00`071`2Q1`0300L70107003G1`0300L7010700<01`L03@L20:4700<01`L040L00=L700<01`L0 4@L00`071`0>1`0300L709h700<01`L040L00=L700<01`L04PL00`071`0>1`80WPL00`071`0@1`00 e`L00`071`0C1`0300L700l700<01`L0VPL00`071`0A1`00e`L301@700<01`L03`L209X700<01`L0 4@L00=L700<01`L05@L201470P2H1`0300L70147003G1`0300L701L700<01`L040L00`071`2D1`03 00L70187003G1`0300L701P700<01`L040L209@700<01`L04PL00=L700<01`L06@L2018700<01`L0 T@L00`071`0B1`00e`L00`071`0K1`804@L2094700<01`L04PL00=L700<01`L07@L2014700<01`L0 S@L00`071`0C1`00e`L00`071`0O1`8040L208d700<01`L04`L00=L700<01`L08@L2010700<01`L0 RPL00`071`0C1`00e`L00`071`0S1`D030L200D72P1j1`0300L701@7003G1`0300L702P74`0:1`L0 L`L00`071`0D1`00e`L00`071`0g1`804`L2074700<01`L050L00=L70`0i1`804`L206l700<01`L0 50L00=L700<01`L0>`L00`071`0B1`80K0L00`071`0E1`00e`L00`071`0l1`8050L206X700<01`L0 5@L00=L700<01`L0?PL00`071`0C1`80J0L00`071`0E1`00e`L00`071`0o1`805@L206D700<01`L0 5PL00=L700<01`L0@@L00`071`0D1`0300L7068700<01`L05PL00=L700<01`L0@PL201D700<01`L0 H@L00`071`0F1`00e`L00`071`141`8050L2064700<01`L05PL00=L700<01`L0APL00`071`0C1`03 00L705d700<01`L05`L00=L700<01`L0A`L201@700<01`L0G0L00`071`0G1`00e`L00`071`191`80 4`L00`071`1K1`0300L701L7003G1`0300L704/70P0B1`0300L705X700<01`L05`L00=L700<01`L0 C@L00`071`0@1`0300L705P700<01`L060L00=L70`1>1`8040L00`071`1H1`0300L701P7003G1`03 00L705070P0?1`0300L705L700<01`L060L00=L700<01`L0DPL00`071`0=1`0300L705D700<01`L0 6@L00=L700<01`L0D`L200h700<01`L0E0L00`071`0I1`00e`L00`071`1E1`0300L700`700<01`L0 D`L00`071`0I1`00e`L00`071`1F1`803@L00`071`1B1`0300L701T7003G1`0300L705P700<01`L0 2PL00`071`1A1`0300L701X7003G1`0300L705T70P0;1`0300L7050700<01`L06PL00=L700<01`L0 F`L200X700<01`L0C`L00`071`0J1`00e`L00`071`1M1`0300L700L700<01`L0CPL00`071`0K1`00 ^PL300L70P051`D01`L00`071`1N1`8020L00`071`1=1`0300L701/7002i1`800PL00`071`041`80 2@L00`071`051`0300L7060700<01`L01@L00`071`1=1`0300L701/7002i1`0300L7008700<01`L0 3`L00`071`041`0300L706470P061`0300L704/700<01`L070L00;T700<01`L00PL00`071`0?1`03 00L700@7101R1`0300L700@700<01`L0BPL00`071`0L1`00^@L00`071`021`0300L700X700D01`L7 00071`0300L706@70P041`0300L704X700<01`L070L00;T700<01`L00PL00`071`0:1`@020L00`07 1`1V1`800`L00`071`181`0300L701d7002i1`0300L7008700<01`L02PL00`071`091`0300L706P7 00D01`L700191`0300L701d7002i1`0500L71`003@L00`071`091`0300L706T70P000`L01`181`03 00L701d7002j1`<03PL500L700<01`L0J`L304L700<01`L07PL00=L700<01`L0K@L204H700<01`L0 7PL00=L700<01`L0KPL204D700<01`L07PL00=L700<01`L0K`L3048700<01`L07`L00=L700<01`L0 L0L0100700101`0300L701l7003G1`0300L7070700D01`L7000n1`0300L70207003G1`0300L70747 00@01`L70P0l1`0300L70207003G1`<0L@L00`071`031`80>PL00`071`0P1`00e`L00`071`1b1`03 00L700@700<01`L0=PL00`071`0Q1`00e`L00`071`1c1`0300L700@70P0f1`0300L70247003G1`03 00L707<700<01`L01PL00`071`0c1`0300L70247003G1`0300L707@700<01`L01PL2038700<01`L0 8PL00=L700<01`L0M@L00`071`071`80<0L00`071`0R1`00e`L00`071`1e1`0300L700T700<01`L0 ;@L00`071`0R1`00e`L00`071`1f1`0300L700T70P0/1`0300L702<7003G1`0300L707L700<01`L0 2PL202X700<01`L08`L00=L700<01`L0M`L00`071`0<1`0300L702L700<01`L08`L00=L700<01`L0 N0L00`071`0<1`809PL00`071`0T1`00e`L00`071`1h1`0300L700h700<01`L08`L00`071`0T1`00 e`L00`071`1i1`0300L700h70P0R1`0300L702D7003G1`<0NPL00`071`0?1`0300L701l700<01`L0 9@L00=L700<01`L0NPL00`071`0@1`807PL00`071`0V1`00e`L00`071`1k1`0300L701470P0L1`03 00L702H7003G1`0300L707`700<01`L04PL00`071`0H1`0300L702L7003G1`0300L707`700<01`L0 4`L201P700<01`L09`L00=L700<01`L0O@L00`071`0D1`0300L701@700<01`L0:0L00=L700<01`L0 OPL00`071`0D1`8050L00`071`0X1`00e`L00`071`1n1`0300L701H700<01`L040L00`071`0Y1`00 e`L00`071`1o1`0300L701H70P0@1`0300L702T7003G1`0300L7080700<01`L05`L200d700<01`L0 :PL00=L700<01`L0P@L00`071`0H1`0300L700X700<01`L0:PL00=L700<01`L0P@L00`071`0I1`80 2@L00`071`0[1`00e`L00`071`221`0300L701X70P071`0300L702/7003G1`<0P`L00`071`0K1`80 1@L00`071`0[1`00e`L00`071`241`0300L701`700D01`L7000^1`00e`L00`071`241`0300L701d7 0P000`L01`0]1`00e`L00`071`251`0300L701h70P0^1`00e`L00`071`261`0300L701`700@01`L0 ;@L00=L700<01`L0Q`L00`071`0J1`0300L700870P0[1`00e`L00`071`281`0300L701P700<01`L0 1@L00`071`0X1`00e`L00`071`291`0300L701H700<01`L01`L202P7003G1`0300L708X700<01`L0 50L00`071`0:1`0300L702D7003G1`0300L708/700<01`L04`L00`071`0;1`809@L00=L700<01`L0 S0L00`071`0A1`0300L700h70P0S1`00e`L00`071`2=1`0300L700h70P0C1`0300L70207003G1`<0 SPL00`071`0;1`805PL20207003G1`0300L708l70P0:1`0300L701P700<01`L07@L00=L700<01`L0 T@L:01`70P0M1`00e`L00`071`2i1`0300L701X7003G1`0300L70;X70P0J1`00e`L00`071`2l1`03 00L701L7003G1`0300L70;d70P0G1`00e`L00`071`2o1`805@L00=L700<01`L0`@L00`071`0B1`00 e`L00`071`321`804PL00"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {-1.05547, -1.05349, 0.00734663, 0.0118871}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["nmax=10", "Definition", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Plot[Evaluate[{four[x,10],f[x]}],{x,-a/2,a/2}]", "Input", AspectRatioFixed->True], 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.5 0.476191 0.309014 0.270835 [ [.02381 .29651 -6 -9 ] [.02381 .29651 6 0 ] [.2619 .29651 -12 -9 ] [.2619 .29651 12 0 ] [.7381 .29651 -9 -9 ] [.7381 .29651 9 0 ] [.97619 .29651 -3 -9 ] [.97619 .29651 3 0 ] [.4875 .03818 -12 -4.5 ] [.4875 .03818 0 4.5 ] [.4875 .1736 -24 -4.5 ] [.4875 .1736 0 4.5 ] [.4875 .44443 -18 -4.5 ] [.4875 .44443 0 4.5 ] [.4875 .57985 -6 -4.5 ] [.4875 .57985 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .02381 .30901 m .02381 .31526 L s [(-1)] .02381 .29651 0 1 Mshowa .2619 .30901 m .2619 .31526 L s [(-0.5)] .2619 .29651 0 1 Mshowa .7381 .30901 m .7381 .31526 L s [(0.5)] .7381 .29651 0 1 Mshowa .97619 .30901 m .97619 .31526 L s [(1)] .97619 .29651 0 1 Mshowa .125 Mabswid .07143 .30901 m .07143 .31276 L s .11905 .30901 m .11905 .31276 L s .16667 .30901 m .16667 .31276 L s .21429 .30901 m .21429 .31276 L s .30952 .30901 m .30952 .31276 L s .35714 .30901 m .35714 .31276 L s .40476 .30901 m .40476 .31276 L s .45238 .30901 m .45238 .31276 L s .54762 .30901 m .54762 .31276 L s .59524 .30901 m .59524 .31276 L s .64286 .30901 m .64286 .31276 L s .69048 .30901 m .69048 .31276 L s .78571 .30901 m .78571 .31276 L s .83333 .30901 m .83333 .31276 L s .88095 .30901 m .88095 .31276 L s .92857 .30901 m .92857 .31276 L s .25 Mabswid 0 .30901 m 1 .30901 L s .5 .03818 m .50625 .03818 L s [(-1)] .4875 .03818 1 0 Mshowa .5 .1736 m .50625 .1736 L s [(-0.5)] .4875 .1736 1 0 Mshowa .5 .44443 m .50625 .44443 L s [(0.5)] .4875 .44443 1 0 Mshowa .5 .57985 m .50625 .57985 L s [(1)] .4875 .57985 1 0 Mshowa .125 Mabswid .5 .06526 m .50375 .06526 L s .5 .09235 m .50375 .09235 L s .5 .11943 m .50375 .11943 L s .5 .14651 m .50375 .14651 L s .5 .20068 m .50375 .20068 L s .5 .22776 m .50375 .22776 L s .5 .25485 m .50375 .25485 L s .5 .28193 m .50375 .28193 L s .5 .3361 m .50375 .3361 L s .5 .36318 m .50375 .36318 L s .5 .39026 m .50375 .39026 L s .5 .41735 m .50375 .41735 L s .5 .47152 m .50375 .47152 L s .5 .4986 m .50375 .4986 L s .5 .52568 m .50375 .52568 L s .5 .55277 m .50375 .55277 L s .5 .0111 m .50375 .0111 L s .5 .60693 m .50375 .60693 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .30901 m .03279 .20918 L .04262 .11517 L .04758 .07801 L .0503 .06111 L .05288 .04755 L .05528 .03707 L .05789 .02804 L .05904 .02482 L .06026 .02192 L .0613 .01983 L .06244 .01797 L .06314 .01705 L .06378 .01634 L .06505 .01532 L .0662 .01482 L .06743 .01472 L .06813 .01485 L .06888 .01514 L .06959 .01556 L .07025 .01606 L .07149 .01731 L .0728 .01901 L .07519 .02308 L .07742 .02784 L .0825 .04131 L .09384 .07662 L .09942 .09234 L .10458 .10403 L .10702 .10836 L .10931 .11168 L .11169 .11435 L .11296 .11545 L .11433 .11639 L .11561 .11704 L .11634 .11732 L .11702 .11751 L .11774 .11766 L .11839 .11773 L .11915 .11776 L .11986 .11772 L .12113 .11752 L .12229 .11718 L .12358 .11666 L .12493 .11595 L .1295 .11259 L .13377 .10858 L .13881 .10359 L .14349 .0995 L .1459 .09781 L Mistroke .14847 .09643 L .14917 .09614 L .14994 .09587 L .15061 .09567 L .15132 .0955 L .15196 .09538 L .15266 .0953 L .1539 .09525 L .15519 .09535 L .15636 .09558 L .15702 .09576 L .15772 .096 L .15901 .09655 L .16149 .09805 L .16378 .09991 L .16805 .10452 L .17277 .11104 L .18231 .12678 L .19176 .14196 L .19691 .14863 L .2017 .15333 L .20422 .15516 L .2069 .15663 L .20844 .15724 L .20989 .15768 L .21119 .15795 L .21192 .15807 L .21259 .15814 L .21379 .15821 L .2149 .15821 L .21613 .15813 L .21744 .15798 L .2181 .15787 L .21882 .15774 L .22012 .15745 L .22257 .15679 L .22747 .15516 L .23004 .15429 L .23275 .15347 L .23513 .15289 L .23648 .15264 L .23774 .15247 L .2389 .15237 L .23995 .15233 L .24117 .15234 L .24232 .15243 L .24353 .15259 L .24481 .15285 L .2459 .15314 L .2471 .15354 L Mistroke .24978 .15474 L .2523 .15623 L .25761 .16055 L .26332 .1667 L .28304 .19207 L .28845 .19775 L .29141 .20032 L .2942 .20234 L .29682 .20388 L .29964 .20516 L .30089 .20561 L .3022 .206 L .30333 .20627 L .30456 .20651 L .30583 .20669 L .30704 .20681 L .30821 .20687 L .30929 .2069 L .31046 .20689 L .31175 .20683 L .3124 .2068 L .3131 .20675 L .31436 .20663 L .31873 .20614 L .32104 .20588 L .32231 .20575 L .32351 .20565 L .3242 .2056 L .32494 .20557 L .32624 .20552 L .32689 .20552 L .32757 .20553 L .32879 .20557 L .32945 .20562 L .33016 .20568 L .33144 .20584 L .33296 .20611 L .33435 .20643 L .33679 .2072 L .33945 .20833 L .34429 .21121 L .34963 .21557 L .35465 .22062 L .36402 .23151 L .37423 .24319 L .37981 .24848 L .38501 .25235 L .38965 .25485 L .39225 .25587 L .39462 .25656 L Mistroke .39596 .25687 L .39721 .2571 L .39858 .2573 L .39927 .25738 L .40003 .25745 L .40128 .25754 L .40246 .25759 L .40318 .25762 L .40386 .25763 L .40514 .25763 L .4063 .25762 L .40736 .2576 L .40972 .25754 L .41078 .25751 L .41192 .25749 L .41299 .25748 L .41398 .25748 L .41514 .2575 L .41622 .25754 L .4174 .2576 L .41867 .25771 L .42 .25786 L .42127 .25806 L .42363 .25855 L .426 .25924 L .42822 .26007 L .43328 .2627 L .43821 .26624 L .44353 .27104 L .46195 .29133 L .47151 .30037 L .47413 .30232 L .47693 .30411 L .47956 .3055 L .48198 .30656 L .48471 .30748 L .48611 .30785 L .48766 .30819 L .48892 .30841 L .49027 .30861 L .4917 .30876 L .49239 .30882 L .49303 .30886 L .49432 .30893 L .495 .30896 L .49572 .30898 L .49641 .30899 L .49706 .309 L .49828 .30901 L .49948 .30901 L Mistroke .50058 .30901 L .5018 .30902 L .50308 .30903 L .5043 .30905 L .50499 .30907 L .50563 .30909 L .5068 .30916 L .50805 .30925 L .50916 .30936 L .5102 .30948 L .51257 .30988 L .51382 .31016 L .51513 .3105 L .51747 .31126 L .51999 .31231 L .52274 .31373 L .52734 .31678 L .53225 .32089 L .54109 .33003 L .55078 .34101 L .56103 .35116 L .56639 .35512 L .56943 .35686 L .57227 .35816 L .57488 .35907 L .57727 .35969 L .57858 .35994 L .58002 .36017 L .58137 .36032 L .58263 .36043 L .58382 .36049 L .58491 .36053 L .58611 .36055 L .58737 .36054 L .58848 .36053 L .58951 .36051 L .59184 .36045 L .59247 .36043 L .59316 .36042 L .59441 .3604 L .59563 .3604 L .59676 .36041 L .59797 .36045 L .59866 .36048 L .59931 .36053 L .60062 .36064 L .60202 .36081 L .60339 .36103 L .60466 .36129 L .60754 .36209 L Mistroke .61008 .36306 L .61279 .36438 L .61796 .36775 L .62265 .37175 L .6328 .38272 L .64352 .39538 L .65267 .40448 L .65518 .40644 L .65787 .40823 L .66022 .40954 L .66272 .41065 L .66395 .41109 L .6653 .4115 L .66654 .41181 L .66768 .41204 L .66902 .41225 L .66973 .41233 L .67047 .4124 L .67172 .41248 L .67242 .4125 L .67308 .41251 L .67436 .41249 L .67557 .41244 L .67665 .41237 L .67782 .41227 L .68289 .41169 L .68529 .41143 L .68647 .41132 L .68754 .41124 L .68867 .41117 L .68988 .41114 L .6912 .41114 L .69246 .41119 L .69352 .41127 L .69465 .4114 L .69572 .41157 L .69668 .41176 L .69905 .4124 L .70128 .41324 L .7037 .41442 L .70595 .41579 L .71107 .41984 L .7214 .43139 L .73026 .44317 L .73989 .45495 L .74253 .45761 L .74534 .46006 L .74794 .46195 L .75037 .46337 L .75264 .46439 L Mistroke .75392 .46483 L .75509 .46515 L .75636 .46542 L .75708 .46553 L .75775 .46561 L .75898 .46569 L .76029 .4657 L .76154 .46563 L .76269 .46551 L .76396 .46531 L .7653 .46504 L .77002 .46372 L .77456 .46217 L .77886 .46083 L .78123 .46028 L .78188 .46016 L .78257 .46005 L .78381 .4599 L .78491 .45983 L .78595 .45981 L .78709 .45986 L .78832 .45999 L .78956 .46022 L .79025 .46039 L .7909 .46057 L .79233 .46107 L .79362 .46165 L .79597 .46298 L .79848 .46484 L .803 .46929 L .8079 .47559 L .81681 .48975 L .82706 .50674 L .83208 .51367 L .83666 .51851 L .83914 .52041 L .84028 .5211 L .84149 .52171 L .84278 .5222 L .84397 .52253 L .8447 .52266 L .84539 .52274 L .84668 .52277 L .84732 .52273 L .84802 .52265 L .84875 .52252 L .84944 .52235 L .85066 .52195 L .85197 .5214 L .85497 .51965 L Mistroke .8577 .51758 L .86697 .50872 L .86941 .50641 L .87204 .50416 L .87436 .50251 L .87563 .50177 L .8768 .5012 L .87808 .50073 L .87876 .50054 L .87948 .50039 L .88077 .50027 L .88194 .50033 L .88266 .50044 L .88333 .50061 L .88407 .50086 L .88485 .50119 L .88616 .50194 L .8876 .50303 L .89008 .50559 L .89275 .5093 L .89757 .51848 L .91734 .57624 L .92276 .5906 L .92578 .59674 L .92721 .59902 L .92852 .60073 L .92977 .60198 L .93109 .60287 L .93241 .60329 L .93316 .60332 L .93386 .6032 L .93513 .6026 L .93628 .60162 L .93692 .6009 L .93762 .59997 L .93888 .59786 L .94119 .5926 L .94336 .58597 L .94829 .56459 L .9531 .5354 L .95828 .49534 L .97619 .30901 L Mfstroke .02381 .03818 m .06244 .06015 L .10458 .08412 L .14415 .10662 L .18221 .12827 L .22272 .15131 L .26171 .17349 L .30316 .19706 L .34309 .21977 L .3815 .24162 L .42237 .26486 L .46172 .28724 L .49955 .30876 L .53984 .33167 L .57861 .35372 L .61984 .37717 L .65954 .39976 L .69774 .42148 L .73838 .44459 L .77751 .46685 L .81909 .4905 L .85916 .51329 L .89771 .53521 L .93871 .55853 L .97619 .57985 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.937}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg>75aaXhhSSR>SZZZZTaaWYVCMe9?@=;@`jJKHmWD_5UD=BLW9kjn _^7Oeda9>k^bPnCQcVUTBO[`DjFOP0X:2Q@D51hN7RPX:3SYVIVJ>SXjf][KNg]l71`Lc[Zj_Cdm=[GbU]GAR40<7=^FBDT7H9mI@00?g=cLda< C820Pc/C4a;Zj^[6a/JRXZ:2PX<6L`L30`8:2PYT0I_ooc020P800082006IV c31`8000<700L0[@L00`071`3F1`0050L00`07 1`0@1`80[PL00`071`3F1`0050L00`071`0A1`<0[0L00`071`3F1`0050L00`071`0B1`0400L00:X7 00<01`L0ePL001@700<01`L04PL01@071`L00:T700<01`L0ePL001@700<01`L04`L010071`L20:L7 00<01`L0ePL001<700<01`L050L00`071`031`80Y@L00`071`3F1`004`L00`071`0E1`0300L700@7 0P2S1`<0ePL001<700<01`L05@L00`071`061`80X@L00`071`3F1`004`L00`071`0F1`0300L700L7 0P081`D0TPL00`071`3F1`004`L00`071`0F1`0300L700T70P041`801@L00`071`2?1`0300L70=H7 000C1`0300L701L700<01`L02PL200031`0700L700<01`L0SPL00`071`3F1`004`L00`071`0G1`03 00L700`70P091`0300L708d700<01`L0ePL001<700<01`L05`L00`071`0:1`800PL00`071`071`03 00L708`700<01`L0ePL0018700<01`L06@L00`071`081`0300L700<70P081`0300L708/700<01`L0 ePL0018700<01`L06@L00`071`081`0300L700D700<01`L01PL00`071`2:1`0300L70=H7000B1`03 00L701X700<01`L01PL00`071`071`801`L00`071`291`0300L70=H7000B1`0300L701/700<01`L0 10L00`071`0:1`801@L00`071`291`0300L70=H7000B1`0300L701`71P0?1`0300L700<700<01`L0 R0L00`071`3F1`004PL00`071`0b1`800`L00`071`281`<0ePL0018700<01`L0=0L01@071`L008T7 00<01`L0ePL0018700<01`L0=@L200031`0708P700<01`L0ePL0018700<01`L0=`L308P700<01`L0 ePL0014700<01`L0>PL208L700<01`L0ePL0014700<01`L0>`L208H700<01`L0ePL0014700<01`L0 ?0L308@700<01`L0ePL0014700<01`L0?0L00`071`02088700<01`L0ePL0014700<01`L0?@L01007 1`L2080700<01`L0ePL0014700<01`L0?@L00`071`031`0300L707d700<01`L0ePL0014700<01`L0 ?PL00`071`031`80O@L00`071`3F1`004@L00`071`0o1`0300L700@70P1k1`0300L70=H7000A1`03 00L7040700<01`L01@L207T70`3F1`004@L00`071`111`0300L700H70P1g1`0300L70=H7000@1`03 00L704<700<01`L01`L00`071`021`D0K@L00`071`3F1`0040L00`071`141`8020L400D70P1[1`03 00L70=H7000@1`0300L704H70P031`<00PL200L700<01`L0J0L00`071`3F1`0040L00`071`181`@0 1PL200H70P1X1`0300L70=H7000@1`0300L705@700<01`L01@L00`071`1U1`0300L70=H7000@1`03 00L705D70P061`0300L706@700<01`L0ePL0010700<01`L0E`L200D700<01`L0H`L00`071`3F1`00 40L00`071`1I1`8010L00`071`151`<01`L200D71@071`0300L70=H7000@1`0300L705/70P031`03 00L704<70P021`0300L700@70P091`0300L700D700<01`L0ePL0010700<01`L0G@L010071`151`03 00L7008700<01`L03`L00`071`041`@0e@L000l700<01`L0G`L200031`0704<700<01`L00PL00`07 1`0?1`0300L700@700<01`L0ePL000l700<01`L0H@L303T71`031`0300L7008700<01`L02PL01@07 1`L000L700<01`L0ePL000l700<01`L0H`L2048700<01`L00PL00`071`0:1`@020L00`071`3F1`00 3`L00`071`1U1`80@0L00`071`021`0300L700X700<01`L02@L00`071`3F1`003`L00`071`1V1`80 ?`L01@071`L000d700<01`L02@L00`071`3F1`003`L00`071`1V1`0400L003h70`0>1`D01`L00`07 1`3F1`003`L00`071`1W1`0300L70080F@L00`071`3F1`003`L00`071`1X1`0400L71`80E`L00`07 1`3F1`003`L00`071`1Y1`0300L700870P1E1`0300L70=H7000?1`0300L706T700<01`L010L00`07 1`1B1`0300L70=H7000>1`0300L706/700<01`L010L2058700<01`L0ePL000h700<01`L0K0L00`07 1`051`80D0L30=H7000>1`0300L706d70`061`80CPL00`071`3F1`003PL00`071`1`1`<010L904H7 00<01`L0ePL000h700<01`L0LPL500<700<01`L00`L204@700<01`L0ePL000h700<01`L0N`L200D7 0P121`0300L70=H7000>1`0300L707d70P051`0300L703l700<01`L0ePL000h700<01`L0O`L200@7 00<01`L0?PL00`071`3F1`003PL00`071`211`800`L00`071`0m1`0300L70=H7000>1`0300L708<7 00@01`L0?`L00`071`3F1`003PL00`071`241`8000<700L0?@L00`071`3F1`003@L00`071`271`03 00L003d700<01`L0ePL000d700<01`L0R0L403/700<01`L0ePL000d700<01`L0RPL303X70`3F1`00 3@L00`071`2<1`80>@L00`071`3F1`003@L00`071`2=1`80>0L00`071`3F1`003@L00`071`2?1`03 00L703D700<01`L0ePL000d700<01`L0S`L303D700<01`L0ePL000d700<01`L0T0L01007000c1`03 00L70=H7000=1`0300L7094700@01`L01`D0F0L300`7000:1`0300L70;d700<01`L0 0PL200H700<01`L0ePL000X700<01`L0_PL00`071`031`8010L00`071`3F1`002PL00`071`2o1`80 1@L2008700<01`L0ePL000X700<01`L0`@L00`071`041`<0f0L000X700<01`L0`PL6008700<01`L0 ePL00?l0/0011`002PL00`071`0B1`0300L7014700<01`L04PL00`071`0A1`0300L7018700<01`L0 4@L00`071`0B1`0300L7014700<01`L04PL00`071`0A1`0300L700800`L200X700<01`L04PL00`07 1`0A1`0300L7018700<01`L04@L00`071`0B1`0300L7014700<01`L04PL00`071`0A1`0300L70187 00<01`L02@L000X700<01`L0I0L00`071`1S1`0300L7008700<01`L00PL00`071`1I1`0300L706@7 00<01`L02@L00=L700<01`L00`L200<70P301`0300L700T7003G1`0300L700D70P031`0300L70;d7 00<01`L02@L00=L700<01`L01`L2008700<01`L0_0L00`071`091`00e`L00`071`091`0400L70;`7 00<01`L02PL00=L700<01`L02PL200031`070;X700<01`L02PL00=L700<01`L030L30;X700<01`L0 2PL00=L700<01`L03PL20;T700<01`L02PL00=L700<01`L03`L20;P700<01`L02PL00=L70`0A1`80 ]PL00`071`0:1`00e`L00`071`0B1`80]@L00`071`0:1`00e`L00`071`0C1`<0/`L00`071`0:1`00 e`L00`071`0D1`0400L00;4700<01`L02PL00=L700<01`L05@L00`071`020:l700<01`L02PL00=L7 00<01`L05@L00`071`021`0300L70:/700<01`L02`L00=L700<01`L05PL00`071`021`80Z`L00`07 1`0;1`00e`L00`071`0G1`8010L20:T700<01`L02`L00=L700<01`L06@L200@700<01`L0YPL00`07 1`0;1`00e`L00`071`0K1`0300L700870P2V1`0300L700/7003G1`0300L701`710021`80Y0L00`07 1`0;1`00e`L00`071`0O1`d0W0L00`071`0;1`00e`L302H70P041`<0V@L00`071`0;1`00e`L00`07 1`0X1`0300L700@700<01`L0UPL00`071`0;1`00e`L00`071`0Y1`801@L00`071`2E1`0300L700/7 003G1`0300L702/70P041`0300L709<700<01`L030L00=L700<01`L0;@L200<700<01`L0TPL00`07 1`0<1`00e`L00`071`0_1`800PL00`071`2A1`0300L700`7003G1`0300L7034700@01`L0TPL00`07 1`0<1`00e`L00`071`0b1`8000<700L0T0L00`071`0<1`00e`L00`071`0d1`<0T0L00`071`0<1`00 e`L00`071`0f1`80S`L00`071`0<1`00e`L00`071`0g1`80SPL00`071`0<1`00e`L00`071`0h1`<0 S0L00`071`0<1`00e`L303T700@01`00RPL00`071`0<1`00e`L00`071`0j1`0400L708P700<01`L0 3@L00=L700<01`L0>`L00`071`0208H700<01`L03@L00=L700<01`L0?0L010071`L208@700<01`L0 3@L00=L700<01`L0?@L00`071`021`0300L7084700<01`L03@L00=L700<01`L0?PL00`071`021`80 P@L00`071`0=1`00e`L00`071`0o1`8010L207l700<01`L03@L00=L700<01`L0@@L00`071`031`80 O@L00`071`0=1`00e`L00`071`121`<010L00`071`031`0300L707@700<01`L03@L00=L700<01`L0 A0L;00031`0000<0L@L00`071`0=1`00e`L00`071`1<1`801`L206l700<01`L03@L00=L70`1>1`80 1`L00`071`1[1`0300L700h7003G1`0300L705070P061`0300L706X700<01`L03PL00=L700<01`L0 DPL00`071`041`0300L706T700<01`L03PL00=L700<01`L0D`L200D700<01`L0J0L00`071`0>1`00 e`L00`071`1E1`800`L00`071`1X1`0300L700h7003G1`0300L705L70P021`0300L706L700<01`L0 3PL00=L700<01`L0F@L200031`0706L700<01`L03PL00=L700<01`L0F`L00`07001W1`0300L700h7 003G1`0300L705`70`1V1`0300L700h7002j1`<01`L200D71@071`0300L705h70P1U1`0300L700h7 002i1`800PL00`071`041`802@L00`071`051`0300L705l70`1R1`0300L700l7002i1`0300L70087 00<01`L03`L00`071`041`0300L7060700@01`00H0L00`071`0?1`00^@L00`071`021`0300L700l7 00<01`L010L4060700@01`L0G`L00`071`0?1`00^@L00`071`021`0300L700X700D01`L700071`03 00L7068700<01`L00P1M1`0300L700l7002i1`0300L7008700<01`L02PL400P700<01`L0HPL00`07 1`021`80F`L00`071`0?1`00^@L00`071`021`0300L700X700<01`L02@L00`071`1S1`0300L700<7 0P1I1`0300L700l7002i1`0500L71`003@L00`071`091`0300L706@700<01`L010L00`071`1F1`03 00L700l7002j1`<03PL500L700<01`L0I@L00`071`041`80EPL00`071`0?1`00e`L00`071`1V1`03 00L700D70P071`<0BPL00`071`0?1`00e`L00`071`1W1`801`L800041`0004P700<01`L03`L00=L7 00<01`L0J@L200D710081`0300L704@700<01`L040L00=L700<01`L0JPL600@700<01`L01PL00`07 1`131`0300L70107003G1`0300L707D70P071`0300L7048700<01`L040L00=L70`1g1`801PL00`07 1`111`0300L70107003G1`0300L707T700<01`L010L00`071`101`0300L70107003G1`0300L707X7 0P051`0300L703l700<01`L040L00=L700<01`L0O0L00`071`031`0300L703h700<01`L040L00=L7 00<01`L0O@L200<700<01`L0?PL00`071`0@1`00e`L00`071`1o1`800PL00`071`0m1`0300L70107 003G1`0300L7084700@01`L0?PL00`071`0@1`00e`L00`071`221`<0?@L00`071`0A1`00e`L00`07 1`241`80?0L00`071`0A1`00e`L00`071`261`0300L703T700<01`L04@L00=L700<01`L0QPL303T7 00<01`L04@L00=L700<01`L0Q`L01007000g1`0300L70147003G1`<0Q`L010071`L203D700<01`L0 4@L00=L700<01`L0R0L00`071`021`8040L501h700<01`L04@L00=L700<01`L0R@L00`071`031`80 3@L00`071`021`807@L00`071`0A1`00e`L00`071`291`0300L700D70P091`801`L00`071`0J1`03 00L70147003G1`0300L708X700<01`L01PL200H700<01`L01`L00`071`0I1`0300L70187003G1`03 00L708/700<01`L01`L200<700<01`L02@L00`071`0H1`0300L70187003G1`0300L708/700<01`L0 2@L300`700<01`L060L00`071`0B1`00e`L00`071`2<1`0300L700T70`0<1`0300L701L700<01`L0 4PL00=L700<01`L0S@L00`071`071`0500L71`002`L00`071`0G1`0300L70187003G1`0300L708h7 00<01`L010L200D70P0:1`0300L701H700<01`L04PL00=L700<01`L0S`L600T70P081`0300L701H7 00<01`L04PL00=L700<01`L0TPL00`071`0;1`0300L700H700<01`L05@L00`071`0B1`00e`L30:47 0P061`0300L701@700<01`L04`L00=L700<01`L0X`L00`071`031`0300L701@700<01`L04`L00=L7 00<01`L0Y0L200@700<01`L04`L00`071`0C1`00e`L00`071`2V1`800PL00`071`0C1`0300L701<7 003G1`0300L70:P700@01`L050L00`071`0C1`00e`L00`071`2Y1`<050L00`071`0C1`00e`L00`07 1`2[1`804`L00`071`0C1`00e`L00`071`2/1`<04@L00`071`0C1`00e`L00`071`2/1`0300L70080 3PL00`071`0D1`00e`L00`071`2/1`0300L7008700<01`L02`L00`071`0D1`00e`L00`071`2]1`03 00L700870P0;1`0300L701@7003G1`<0[@L00`071`041`802@L00`071`0D1`00e`L00`071`2]1`03 00L700H70P071`0300L701@7003G1`0300L70:h700<01`L01`L200D700<01`L050L00=L700<01`L0 [PL00`071`091`0500L71`005`L00=L700<01`L0[PL00`071`0:1`8000<700L05PL00=L700<01`L0 [`L00`071`0;1`805`L00=L700<01`L0[`L00`071`0<1`<05@L00=L700<01`L0/0L00`071`0;1`04 00L701@7003G1`0300L70;0700<01`L02`L010071`L20187003G1`0300L70;0700<01`L02PL00`07 1`041`8040L00"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {-1.05197, -1.14098, 0.00732228, 0.0128743}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["nmax=100", "Definition", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Plot[Evaluate[{four[x,100],f[x]}],{x,-a/2,a/2}]", "Input", AspectRatioFixed->True], 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.5 0.476191 0.310321 0.252902 [ [.02381 .29782 -6 -9 ] [.02381 .29782 6 0 ] [.2619 .29782 -12 -9 ] [.2619 .29782 12 0 ] [.7381 .29782 -9 -9 ] [.7381 .29782 9 0 ] [.97619 .29782 -3 -9 ] [.97619 .29782 3 0 ] [.4875 .05742 -12 -4.5 ] [.4875 .05742 0 4.5 ] [.4875 .18387 -24 -4.5 ] [.4875 .18387 0 4.5 ] [.4875 .43677 -18 -4.5 ] [.4875 .43677 0 4.5 ] [.4875 .56322 -6 -4.5 ] [.4875 .56322 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .02381 .31032 m .02381 .31657 L s [(-1)] .02381 .29782 0 1 Mshowa .2619 .31032 m .2619 .31657 L s [(-0.5)] .2619 .29782 0 1 Mshowa .7381 .31032 m .7381 .31657 L s [(0.5)] .7381 .29782 0 1 Mshowa .97619 .31032 m .97619 .31657 L s [(1)] .97619 .29782 0 1 Mshowa .125 Mabswid .07143 .31032 m .07143 .31407 L s .11905 .31032 m .11905 .31407 L s .16667 .31032 m .16667 .31407 L s .21429 .31032 m .21429 .31407 L s .30952 .31032 m .30952 .31407 L s .35714 .31032 m .35714 .31407 L s .40476 .31032 m .40476 .31407 L s .45238 .31032 m .45238 .31407 L s .54762 .31032 m .54762 .31407 L s .59524 .31032 m .59524 .31407 L s .64286 .31032 m .64286 .31407 L s .69048 .31032 m .69048 .31407 L s .78571 .31032 m .78571 .31407 L s .83333 .31032 m .83333 .31407 L s .88095 .31032 m .88095 .31407 L s .92857 .31032 m .92857 .31407 L s .25 Mabswid 0 .31032 m 1 .31032 L s .5 .05742 m .50625 .05742 L s [(-1)] .4875 .05742 1 0 Mshowa .5 .18387 m .50625 .18387 L s [(-0.5)] .4875 .18387 1 0 Mshowa .5 .43677 m .50625 .43677 L s [(0.5)] .4875 .43677 1 0 Mshowa .5 .56322 m .50625 .56322 L s [(1)] .4875 .56322 1 0 Mshowa .125 Mabswid .5 .08271 m .50375 .08271 L s .5 .108 m .50375 .108 L s .5 .13329 m .50375 .13329 L s .5 .15858 m .50375 .15858 L s .5 .20916 m .50375 .20916 L s .5 .23445 m .50375 .23445 L s .5 .25974 m .50375 .25974 L s .5 .28503 m .50375 .28503 L s .5 .33561 m .50375 .33561 L s .5 .3609 m .50375 .3609 L s .5 .38619 m .50375 .38619 L s .5 .41148 m .50375 .41148 L s .5 .46206 m .50375 .46206 L s .5 .48735 m .50375 .48735 L s .5 .51264 m .50375 .51264 L s .5 .53793 m .50375 .53793 L s .5 .03213 m .50375 .03213 L s .5 .00684 m .50375 .00684 L s .5 .58851 m .50375 .58851 L s .5 .6138 m .50375 .6138 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .31032 m .02499 .1896 L .02605 .09945 L .02729 .03451 L .02846 .01472 L .02954 .02454 L .03053 .04608 L .03162 .07014 L .03279 .08532 L .03396 .085 L .03506 .07393 L .03625 .05871 L .03756 .0488 L .03826 .04856 L .03891 .05146 L .0402 .06297 L .04146 .07475 L .04262 .08002 L .04386 .0776 L .04452 .07378 L .04521 .06898 L .04637 .06205 L .04765 .05995 L .04879 .06391 L .05001 .07167 L .05116 .07832 L .05221 .08101 L .05352 .07888 L .05473 .07358 L .05542 .07061 L .05606 .06858 L .05673 .0677 L .05747 .06837 L .05872 .07287 L .05986 .07856 L .06112 .08314 L .06175 .08397 L .06244 .08361 L .06315 .08207 L .06381 .07999 L .06451 .07757 L .06529 .0754 L .06659 .07447 L .06731 .0757 L .06797 .07778 L .06922 .08275 L .0704 .08659 L .07105 .08762 L .07176 .08767 L .073 .08549 L Mistroke .0737 .08361 L .07446 .08174 L .07517 .08061 L .07583 .08038 L .0766 .08124 L .07741 .08327 L .07885 .08811 L .07949 .09003 L .08019 .09143 L .08144 .09177 L .0822 .09072 L .08292 .08924 L .08362 .08774 L .08427 .08665 L .08544 .08619 L .08673 .08828 L .08798 .09193 L .08863 .09379 L .08933 .09538 L .09052 .09642 L .09177 .09528 L .09293 .09324 L .09401 .09183 L .09467 .09164 L .09539 .09218 L .09669 .09483 L .09785 .09795 L .09912 .10047 L .09984 .101 L .1005 .10085 L .10121 .10015 L .10196 .09904 L .10267 .098 L .10333 .09729 L .10458 .0973 L .10572 .09901 L .10694 .10193 L .1081 .10445 L .10916 .10563 L .11033 .10535 L .11162 .10381 L .11227 .10302 L .11297 .10248 L .11422 .10279 L .11491 .10372 L .11554 .10495 L .11622 .10649 L .11698 .10816 L .11824 .11011 L .11894 .11047 L Mistroke .11958 .11033 L .12078 .10923 L .12209 .10791 L .12332 .10778 L .12446 .10908 L .12562 .11136 L .12671 .11356 L .12796 .1151 L .1291 .11516 L .13016 .11433 L .13114 .11339 L .13221 .11288 L .13334 .11346 L .14288 .11872 L .18087 .13938 L .22131 .16302 L .26024 .18407 L .30162 .20456 L .34149 .22522 L .37984 .24572 L .42064 .26876 L .45993 .28984 L .4977 .3099 L .53792 .33045 L .57663 .35059 L .61779 .37251 L .65743 .39453 L .69556 .41494 L .73614 .43628 L .7752 .45614 L .81672 .47779 L .85672 .50143 L .89521 .52314 L .90461 .52846 L .90582 .52893 L .90709 .52737 L .90783 .52603 L .9085 .52497 L .90979 .52428 L .91101 .52597 L .91233 .52966 L .91346 .53283 L .91471 .53452 L .91547 .53428 L .91618 .53328 L .91693 .53174 L .91773 .53005 L .91847 .52895 L .91918 .52868 L .9205 .5306 L Mistroke .92184 .53488 L .92257 .53731 L .92325 .53911 L .92446 .54027 L .9251 .5397 L .92579 .53834 L .92642 .53669 L .92712 .53487 L .92838 .5329 L .92961 .53407 L .93076 .53779 L .9314 .54042 L .9321 .54313 L .93337 .54614 L .93413 .54616 L .93483 .54498 L .93547 .54313 L .93615 .5408 L .93732 .53742 L .93857 .53695 L .93922 .53839 L .93994 .54114 L .9412 .54737 L .94239 .55194 L .94367 .55259 L .94488 .54883 L .94599 .54374 L .94727 .5398 L .948 .53985 L .94867 .54165 L .94939 .54518 L .95004 .54931 L .9508 .55434 L .9515 .55819 L .95274 .56082 L .9534 .55948 L .95409 .55622 L .95537 .54763 L .95653 .54145 L .95769 .54132 L .95879 .54789 L .95995 .55923 L .96122 .56997 L .96232 .57216 L .96349 .56471 L .9646 .55121 L .9656 .53923 L .9668 .5337 L .96807 .545 L .96873 .55761 L Mistroke .96946 .57435 L .97074 .60045 L .97195 .60332 L .97324 .56401 L .97446 .48113 L .97557 .37536 L .97619 .31033 L Mfstroke .02381 .05742 m .06244 .07794 L .10458 .10032 L .14415 .12133 L .18221 .14154 L .22272 .16306 L .26171 .18377 L .30316 .20578 L .34309 .22698 L .3815 .24739 L .42237 .26909 L .46172 .28999 L .49955 .31008 L .53984 .33148 L .57861 .35207 L .61984 .37396 L .65954 .39505 L .69774 .41534 L .73838 .43692 L .77751 .45771 L .81909 .47979 L .85916 .50107 L .89771 .52154 L .93871 .54332 L .97619 .56322 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.937}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg>75aaXhhSSR>SZZZZTaaWYVCMe9?@=;@`jJKHmWD_5UD=BLW9kjn _^7Oeda9>k^bPnCQcVUTBO[`DjFOP0X:2Q@D51hN7RPX:3SYVIVJ>SXjf][KNg]l71`Lc[Zj_Cdm=[GbU]GAR40<7=^FBDT7H9mI@00?g=cLda< C820Pc/C4a;Zj^[6a/JRXZ:2PX<6L`L30`8:2PYT0I_ooc020P800082006IV c3PL408/700<01`L0ePL000/7 00<01`L0?0L408T700<01`L0ePL000/700<01`L0?PL308P700<01`L0ePL000/700<01`L0@0L308H7 00<01`L0ePL000/700<01`L0@@L408@700<01`L0ePL000/700<01`L0@`L308<700<01`L0ePL000/7 00<01`L0A@L3084700<01`L0ePL000/700<01`L0A`L307l700<01`L0ePL000/700<01`L0B@L307d7 00<01`L0ePL000/700<01`L0B`L207`700<01`L0ePL000/700<01`L0C@L207X70`3F1`002`L00`07 1`1?1`80N0L00`071`3F1`002`L00`071`1A1`80MPL00`071`3F1`002`L00`071`1B1`<0M0L00`07 1`3F1`002`L00`071`1D1`<0LPL00`071`3F1`002`L00`071`1F1`<0L0L00`071`3F1`002`L00`07 1`1H1`80K`L00`071`3F1`002`L00`071`1J1`80K@L00`071`3F1`002`L00`071`1L1`80CPL300L7 0P051`D01`L00`071`3F1`002`L00`071`1N1`80B`L2008700<01`L010L200T700<01`L01@L00`07 1`3F1`002`L00`071`1P1`80B@L00`071`021`0300L700l700<01`L010L00`071`3F1`002`L00`07 1`1R1`0300L704H700<01`L00PL00`071`0?1`0300L700@7103E1`002`L00`071`1S1`80?0L700<7 00<01`L00PL00`071`0:1`0500L71`001`L00`071`3F1`002`L00`071`1U1`80A0L00`071`021`03 00L700X710081`0300L70=H7000;1`0300L706L70P121`0300L7008700<01`L02PL00`071`091`03 00L70=H7000;1`0300L706T70P101`0500L71`003@L00`071`091`0300L70=H7000;1`0300L706/7 0P0o1`<03PL500L700<01`L0ePL000/700<01`L0K@L205X700<01`L0ePL000/700<01`L0K`L205P7 00<01`L0ePL000/700<01`L0L@L205H700<01`L0ePL000/700<01`L0L`L205@700<01`L0ePL000/7 00<01`L0M@L2058700<01`L0ePL000/700<01`L0M`L205070`3F1`002`L00`071`1i1`80CPL00`07 1`3F1`002`L00`071`1k1`80C0L00`071`3F1`002`L00`071`1m1`80BPL00`071`3F1`002`L00`07 1`1o1`80B0L00`071`3F1`002`L00`071`211`80APL00`071`3F1`002`L00`071`231`80A0L00`07 1`3F1`002`L00`071`251`80@PL00`071`3F1`002`L00`071`261`<0@0L00`071`3F1`002`L00`07 1`281`<0?PL00`071`3F1`002`L00`071`2:1`<0?0L30=H7000;1`0300L708`70P0k1`0300L70=H7 000;1`0300L708h70P0i1`0300L70=H7000;1`0300L709070P0g1`0300L70=H7000;1`0300L70987 0P0e1`0300L70=H7000;1`0300L709@70P0c1`0300L70=H7000;1`0300L709H70P0a1`0300L70=H7 000;1`0300L709L70`0_1`0300L70=H7000:1`0300L709X70`0]1`0300L70=H7000:1`0300L709`7 0`0[1`0300L70=H7000:1`0300L709h70P0Z1`0300L70=H7000:1`0300L70:070P0X1`<0ePL000X7 00<01`L0XPL202H700<01`L0ePL000X700<01`L0Y0L202@700<01`L0ePL000X700<01`L0YPL20287 00<01`L0ePL000X700<01`L0Z0L2020700<01`L0ePL000X700<01`L0Z@L301h700<01`L0ePL000X7 00<01`L0Z`L301`700<01`L0ePL000X700<01`L0[@L301X700<01`L0ePL000X700<01`001@1I1`<0 1`L200D71@0k1`<060L00`071`1I1`<01`L200D71@1H1`H02@L000X700D01`L7001K1`800PL00`07 1`041`802@L00`071`0k1`<05PL00`071`1H1`800PL00`071`041`802@L00`071`1H1`0300L700X7 000:1`0500L71`00F`L00`071`021`0300L700l700<01`L0?0L301@700<01`L0F0L00`071`021`03 00L700l700<01`L0E`L00`071`0:1`002PL01@071`L005/700<01`L00PL00`071`0?1`0300L703h7 0`0B1`<0F0L00`071`021`0300L700l700<01`L0E`L00`071`0:1`000PL700031`07008700<01`L0 C`L700<700<01`L00PL00`071`0:1`0500L71`00@`L3010700<01`L0F0L00`071`021`0300L700X7 00D01`L7001J1`0300L700X7000:1`0500L71`00F`L00`071`021`0300L700X710161`803`L00`07 1`1H1`0300L7008700<01`L02PL405/700<01`L02PL000X700D01`L7001K1`0300L7008700<01`L0 2PL00`071`181`<03@L00`071`1H1`0300L7008700<01`L02PL00`071`1L1`0300L700X7000:1`05 00L71`00F`L01@071`L000d700<01`L0BPL300/700<01`L0F0L01@071`L000d700<01`L0G0L00`07 1`0:1`002PL00`07000205`70`0>1`D0BPL300T700<01`L0F@L300h71@1H1`<030L000X700<01`L0 `0L200P700<01`L0ePL000X700<01`L0`@L300H700<01`L0ePL000X700<01`L0``L300@700<01`L0 ePL000X700<01`L0a@L3008700<01`L0ePL000X700<01`L0a`L40=P7003o0;000@L000X700<01`L0 4PL00`071`0A1`0300L7018700<01`L04@L00`071`0B1`0300L7014700<01`L04PL00`071`0A1`03 00L7018700<01`L04@L3014700<01`L04PL00`071`0A1`0300L7018700<01`L04@L00`071`0B1`03 00L7014700<01`L04PL00`071`0A1`0300L7018700<01`L02@L000X700<01`L04PL00`071`0A1`03 00L7018700<01`L04@L00`071`0B1`0300L7014700<01`L04PL00`071`0A1`0300L7018700<01`L0 4@L00`07000200l700<01`L04PL00`071`0A1`0300L7018700<01`L04@L00`071`0B1`0300L70147 00<01`L04PL00`071`0A1`0300L7018700<01`L02@L000X700<01`L0I0L00`071`1S1`0400L71`<0 G`L00`071`1T1`0300L700T7003G1`0300L700<70`341`0300L700T7003G1`0300L700D70`321`03 00L700T7003G1`0300L700L70`301`0300L700T7003G1`0300L700T70`2n1`0300L700T7003G1`03 00L700/70`2l1`0300L700T7003G1`0300L700d70P2k1`0300L700T7003G1`0300L700l70P2i1`03 00L700T7003G1`<04@L20;L700<01`L02@L00=L700<01`L04`L20;D700<01`L02@L00=L700<01`L0 5@L20;<700<01`L02@L00=L700<01`L05`L20;4700<01`L02@L00=L700<01`L06@L20:l700<01`L0 2@L00=L700<01`L06`L20:d700<01`L02@L00=L700<01`L07@L20:/700<01`L02@L00=L700<01`L0 7`L20:T700<01`L02@L00=L700<01`L080L30:L700<01`L02@L00=L700<01`L08PL30:D700<01`L0 2@L00=L700<01`L090L30:<700<01`L02@L00=L70`0V1`80XPL00`071`091`00e`L00`071`0X1`80 X0L00`071`091`00e`L00`071`0Z1`80WPL00`071`091`00e`L00`071`0/1`80W0L00`071`091`00 e`L00`071`0^1`80VPL00`071`091`00e`L00`071`0`1`80V0L00`071`091`00e`L00`071`0a1`<0 UPL00`071`091`00e`L00`071`0c1`<0U0L00`071`091`00e`L00`071`0e1`80T`L00`071`091`00 e`L00`071`0g1`80T@L00`071`091`00e`L00`071`0i1`80S`L00`071`091`00e`L303/70P2=1`03 00L700T7003G1`0300L703d70P2;1`0300L700T7003G1`0300L703h70`291`0300L700T7003G1`03 00L704070P281`0300L700T7003G1`0300L704870P261`0300L700T7003G1`0300L704<70`241`03 00L700T7003G1`0300L704D70`221`0300L700T7003G1`0300L704L70P211`0300L700T7003G1`03 00L704T70P1o1`0300L700T7003G1`0300L704/70P1m1`0300L700T7003G1`0300L704d70P1k1`03 00L700T7003G1`<0C`L207T700<01`L02@L00=L700<01`L0D@L207L700<01`L02@L00=L700<01`L0 DPL307D700<01`L02@L00=L700<01`L0E0L307<700<01`L02@L00=L700<01`L0EPL3074700<01`L0 2@L00=L700<01`L0F0L306l700<01`L02@L00=L700<01`L0FPL206h700<01`L02@L00=L700<01`L0 G0L206`700<01`L02@L00;X70`071`801@L500L700<01`L0GPL206T700<01`L02PL00;T70P021`03 00L700@70P091`0300L700D700<01`L0H0L206L700<01`L02PL00;T700<01`L00PL00`071`0?1`03 00L700@700<01`L0HPL206D700<01`L02PL00;T700<01`L00PL00`071`0?1`0300L700@7101S1`80 H`L00`071`0:1`00^@L00`071`021`0300L700X700D01`L700071`0300L706D70`1Q1`0300L700X7 002i1`0300L7008700<01`L02PL400P700<01`L0I`L305l700<01`L02PL00;T700<01`L00PL00`07 1`0:1`0300L700T700<01`L0J@L205h700<01`L02PL00;T700D01`L7000=1`0300L700T700<01`L0 J`L205`700<01`L02PL00;X70`0>1`D01`L00`071`1/1`<0FPL00`071`0:1`00e`L00`071`1^1`<0 F0L00`071`0:1`00e`L00`071`1`1`<0EPL00`071`0:1`00e`L00`071`1b1`80E@L00`071`0:1`00 e`L00`071`1d1`80D`L00`071`0:1`00e`L307D70`1A1`0300L700X7003G1`0300L707L70`1?1`03 00L700X7003G1`0300L707T70`1=1`0300L700X7003G1`0300L707/70`1;1`0300L700X7003G1`03 00L707d70`191`0300L700X7003G1`0300L707l70`171`0300L700X7003G1`0300L708470`151`03 00L700X7003G1`0300L708<70`131`0300L700X7003G1`0300L708D70`111`0300L700X7003G1`03 00L708L70`0o1`0300L700X7003G1`0300L708T70P0n1`0300L700X7003G1`<0R`L203`700<01`L0 2PL00=L700<01`L0S@L203X700<01`L02PL00=L700<01`L0S`L203P700<01`L02PL00=L700<01`L0 T@L203H700<01`L02PL00=L700<01`L0TPL303@700<01`L02PL00=L700<01`L0U0L3038700<01`L0 2PL00=L700<01`L0UPL3030700<01`L02PL00=L700<01`L0U`L402h700<01`L02PL00=L700<01`L0 V@L402`700<01`L02PL00=L700<01`L0V`L01007000Z1`0300L700X7003G1`0300L709`70P000`L0 1`0X1`0300L700X7003G1`<0WPL402L700<01`L02PL00=L700<01`L0X0L402D700<01`L02PL00=L7 00<01`L0XPL01007000S1`0300L700X7003G1`0300L70:<70P000`L0000Q1`0300L700X7003G1`03 00L70:D70P000`L01`0O1`0300L700X7003G1`0300L70:L700@01`000PL00`071`0I1`0300L700X7 003G1`0300L70:P70P001@L000L001X700<01`L02PL00=L700<01`L0ZPL5008700<01`L05@L00`07 1`0:1`00e`L00`071`2^1`D05PL00`071`0:1`00e`L00`071`2_1`@00PL200l700@01`L030L00=L7 00<01`L0[`L00`071`0500l700@01`L030L00=L70`2c1`@00PL200X70P021`0300L700X7003G1`03 00L70;<70P021`@00PL200<700<01`L00P021`0300L700X7003G1`0300L70;L710021`800PL20087 0P021`0300L700X7003G1`0300L70;L70P021`@00PL200870P021`0300L700X7003G1`0300L70;L7 0P021`0400L000870P021`800PL00`071`0:1`00e`L00`071`2k1`800PL400870P021`0300L700X7 003G1`0300L70;/70P021`0400L000870P021`0300L700X7003G1`0300L70;l70P002@L000L01`07 000<1`00b`L600H700<01`L0_`L200870`0010L01`0<1`00c@L00`071`071`0300L70;l70P021`03 00L0008000<700L02`L00"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {-1.05197, -1.22705, 0.00732228, 0.0137872}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Open ]] }, FrontEndVersion->"X 3.0", ScreenRectangle->{{0, 1280}, {0, 1024}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{861, 600}, WindowMargins->{{153, Automatic}, {67, Automatic}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, Magnification->1.5, StyleDefinitions -> "Classroom.nb" ] (*********************************************************************** 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[1709, 49, 57, 1, 84, "Title"], Cell[1769, 52, 75, 1, 40, "Text"], Cell[1847, 55, 74, 2, 69, "Input"], Cell[1924, 59, 71, 1, 40, "Text"], Cell[1998, 62, 133, 5, 108, "Input"], Cell[CellGroupData[{ Cell[2156, 71, 105, 4, 77, "Text"], Cell[2264, 77, 54, 1, 68, "Input"], Cell[2321, 80, 87, 1, 40, "Text"], Cell[2411, 83, 114, 4, 88, "Input"], Cell[2528, 89, 110, 4, 88, "Input"] }, Open ]], Cell[2653, 96, 173, 3, 77, "Text"], Cell[2829, 101, 157, 5, 108, "Input"], Cell[CellGroupData[{ Cell[3011, 110, 54, 1, 71, "Definition"], Cell[CellGroupData[{ Cell[3090, 115, 97, 4, 88, "Input"], Cell[3190, 121, 19060, 563, 279, 5719, 394, "GraphicsData", "PostScript", "Graphics"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22299, 690, 55, 1, 71, "Definition"], Cell[CellGroupData[{ Cell[22379, 695, 89, 1, 68, "Input"], Cell[22471, 698, 22698, 795, 279, 9305, 625, "GraphicsData", "PostScript", "Graphics"], Cell[45172, 1495, 130, 3, 69, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45351, 1504, 56, 1, 71, "Definition"], Cell[CellGroupData[{ Cell[45432, 1509, 90, 1, 68, "Input"], Cell[45525, 1512, 17906, 589, 279, 6425, 443, "GraphicsData", "PostScript", "Graphics"], Cell[63434, 2103, 130, 3, 69, "Output"] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)