(*********************************************************************** 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[ 169448, 8701]*) (*NotebookOutlinePosition[ 214880, 10275]*) (* CellTagsIndexPosition[ 214714, 10266]*) (*WindowFrame->Normal*) Notebook[{ Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], "Graphics", ShowCellBracket->False, CellMargins->{{25, 24}, {5, 7}}, ImageSize->{81, 22}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Approximation\n", StyleBox[ "Authors: Bill Davis, Horacio Porta and Jerry Uhl ", "Subtitle"], StyleBox["\[Copyright]1999", "Subtitle", FontSize->12], StyleBox["\nProducer: Bruce Carpenter\n", "Subtitle"], StyleBox["Publisher: ", "Subtitle", FontSize->12], StyleBox[ButtonBox["Math Everywhere, Inc.", ButtonData:>{ URL[ "http://www.matheverywhere.com"], None}, ButtonStyle->"MEIHyperlink"], FontSize->12], StyleBox[" Distributor: ", "Subtitle", FontSize->12], StyleBox[ButtonBox["Wolfram Research, Inc.", ButtonData:>{ URL[ "http://www.wolfram.com"], None}, ButtonStyle->"MEIHyperlink", ButtonNote->"Makers of Mathematica!"], FontSize->12] }], "PrefaceTitle", CellMargins->{{Inherited, Inherited}, {Inherited, 0}}], Cell[TextData[{ "3.05 Barriers to Convergence\n", StyleBox["Samples", FontSize->16, FontSlant->"Italic"] }], "Title"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " Initializations" }], "Special2"], Cell[BoxData[{ \(\(Off[General::spell];\)\), "\n", \(\(Off[General::spell1];\)\), "\n", \(\(Off[Plot::plnr];\)\), "\n", \(\(Off[ParametricPlot::ppcom];\)\), "\n", \(\(SetOptions[Limit, Analytic \[Rule] True];\)\n\), "\n", \(\(If[ MemberQ[{"\", \ "\", \ \ "\"}, \n\ \ \ \ Context[Gray]], \ Remove["\<*`Gray\>"]];\)\), "\n", \(\(<< "\";\)\), "\n", \(\(Remove["\<*`Gray\>"];\)\), "\n", \(\(<< "\";\)\), "\n", \(\(Graphics`Colors`GosiaGreen = RGBColor[0, \ 0.392187, \ 0];\)\n\), "\n", \(\(Clear[Derivative];\)\)}], "Input", InitializationCell->True], Cell[CellGroupData[{ Cell["ThreeAxes[u,v]", "Subsubsection", CellMargins->{{19, Inherited}, {Inherited, Inherited}}, CellLabelMargins->{{27, Inherited}, {Inherited, Inherited}}], Cell[BoxData[{ \(\(Axes3D::"\" = "\";\)\), "\ \n", \(\(Axes3D[u_, v_] := Graphics3D[{{Blue, Line[{{\(-\(u\/3\)\), 0, 0}, {u, 0, 0}}]}, Text["\", {u + v, 0, 0}], {Blue, Line[{{0, \(-\(u\/3\)\), 0}, {0, u, 0}}]}, Text["\", {0, u + v, 0}], {Blue, Line[{{0, 0, \(-\(u\/3\)\)}, {0, 0, u}}]}, Text["\", {0, 0, u + v}]}];\)\), "\n", \(\(Axes3D[u_] := Axes3D[u, u\/8];\)\)}], "Input", InitializationCell->True] }, Closed]], Cell[BoxData[ \(\(CMView\ = \ {2.7, \ 1.6, \ 1.2};\)\)], "Input", InitializationCell->True] }, Closed]], Cell["Basic Problem", "Subsubsection"], Cell[CellGroupData[{ Cell["B.1) Barriers and complex numbers.", "Subsection", CellTags->"3.05.B1"], Cell["B.1.a)", "Subsubsection"], Cell[TextData[{ "Look at these attempts to approximate \n ", Cell[BoxData[ \(f[x] = 1\/\(4\ - \ 2\ x\ + \ x\^2\)\)]], " \nby early parts of its expansion in powers of ", Cell[BoxData[ \(x\)]], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx, x];\)\), "\n", \(\(f[x_] = 1\/\(4 - 2\ x + x\^2\);\)\n\), "\n", \(\(approx[x_] = Normal[Series[f[x], {x, 0, 8}]];\)\n\), "\n", \(\(Plot[{f[x], approx[x]}, {x, \(-2.2\), 2.2}, \n\t PlotStyle \[Rule] {{Thickness[0.02], Blue}, {Thickness[0.01], Red}}, AspectRatio \[Rule] 1\/GoldenRatio, PlotRange \[Rule] {\(-0.3\), 0.8}, AxesLabel \[Rule] {"\", "\<\>"}, PlotLabel \[Rule] "\"];\)\)}], "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.21645 0.168555 0.561849 [ [.0671 .15605 -6 -9 ] [.0671 .15605 6 0 ] [.28355 .15605 -6 -9 ] [.28355 .15605 6 0 ] [.71645 .15605 -3 -9 ] [.71645 .15605 3 0 ] [.9329 .15605 -3 -9 ] [.9329 .15605 3 0 ] [1.025 .16855 0 -6 ] [1.025 .16855 10 6 ] [.4875 .05618 -24 -4.5 ] [.4875 .05618 0 4.5 ] [.4875 .28092 -18 -4.5 ] [.4875 .28092 0 4.5 ] [.4875 .39329 -18 -4.5 ] [.4875 .39329 0 4.5 ] [.4875 .50566 -18 -4.5 ] [.4875 .50566 0 4.5 ] [.4875 .61803 -18 -4.5 ] [.4875 .61803 0 4.5 ] [.5 .63053 -89 0 ] [.5 .63053 89 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .0671 .16855 m .0671 .1748 L s [(-2)] .0671 .15605 0 1 Mshowa .28355 .16855 m .28355 .1748 L s [(-1)] .28355 .15605 0 1 Mshowa .71645 .16855 m .71645 .1748 L s [(1)] .71645 .15605 0 1 Mshowa .9329 .16855 m .9329 .1748 L s [(2)] .9329 .15605 0 1 Mshowa .125 Mabswid .11039 .16855 m .11039 .1723 L s .15368 .16855 m .15368 .1723 L s .19697 .16855 m .19697 .1723 L s .24026 .16855 m .24026 .1723 L s .32684 .16855 m .32684 .1723 L s .37013 .16855 m .37013 .1723 L s .41342 .16855 m .41342 .1723 L s .45671 .16855 m .45671 .1723 L s .54329 .16855 m .54329 .1723 L s .58658 .16855 m .58658 .1723 L s .62987 .16855 m .62987 .1723 L s .67316 .16855 m .67316 .1723 L s .75974 .16855 m .75974 .1723 L s .80303 .16855 m .80303 .1723 L s .84632 .16855 m .84632 .1723 L s .88961 .16855 m .88961 .1723 L s .02381 .16855 m .02381 .1723 L s .97619 .16855 m .97619 .1723 L s .25 Mabswid 0 .16855 m 1 .16855 L s gsave 1.025 .16855 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .5 .05618 m .50625 .05618 L s [(-0.2)] .4875 .05618 1 0 Mshowa .5 .28092 m .50625 .28092 L s [(0.2)] .4875 .28092 1 0 Mshowa .5 .39329 m .50625 .39329 L s [(0.4)] .4875 .39329 1 0 Mshowa .5 .50566 m .50625 .50566 L s [(0.6)] .4875 .50566 1 0 Mshowa .5 .61803 m .50625 .61803 L s [(0.8)] .4875 .61803 1 0 Mshowa .125 Mabswid .5 .08428 m .50375 .08428 L s .5 .11237 m .50375 .11237 L s .5 .14046 m .50375 .14046 L s .5 .19665 m .50375 .19665 L s .5 .22474 m .50375 .22474 L s .5 .25283 m .50375 .25283 L s .5 .30902 m .50375 .30902 L s .5 .33711 m .50375 .33711 L s .5 .3652 m .50375 .3652 L s .5 .42139 m .50375 .42139 L s .5 .44948 m .50375 .44948 L s .5 .47757 m .50375 .47757 L s .5 .53376 m .50375 .53376 L s .5 .56185 m .50375 .56185 L s .5 .58994 m .50375 .58994 L s .5 .02809 m .50375 .02809 L s .25 Mabswid .5 0 m .5 .61803 L s gsave .5 .63053 -150 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Powers) show 105.000 13.000 moveto (of) show 123.000 13.000 moveto (x) show 135.000 13.000 moveto (centered) show 189.000 13.000 moveto (at) show 207.000 13.000 moveto (x) show 219.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 231.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 237.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .21099 m .06244 .21488 L .10458 .21967 L .14415 .22479 L .18221 .23035 L .22272 .23705 L .26171 .24434 L .30316 .2531 L .34309 .26258 L .3815 .2727 L .42237 .2845 L .46172 .29668 L .49955 .30887 L .53984 .32182 L .57861 .33354 L .61984 .34417 L .64043 .34844 L .65954 .35162 L .67803 .35389 L .68837 .35479 L .69283 .3551 L .69774 .35537 L .70261 .35558 L .70527 .35567 L .70776 .35574 L .71009 .35578 L .71119 .3558 L .71221 .35581 L .71339 .35583 L .71466 .35583 L .71579 .35584 L .71698 .35584 L .71827 .35583 L .71944 .35583 L .72073 .35581 L .72209 .3558 L .72438 .35575 L .72688 .35569 L .72962 .35561 L .73254 .35549 L .7378 .35523 L .74805 .35452 L .75915 .35344 L .7793 .35072 L .79918 .34714 L .82022 .34251 L .85811 .33244 L .89845 .32012 L .93727 .3076 L .97619 .2951 L Mistroke Mfstroke 1 0 0 r .01 w .02381 .11093 m .04262 .14019 L .06244 .16387 L .08255 .1821 L .10458 .19705 L .12415 .20711 L .14509 .21549 L .18653 .22761 L .22646 .2366 L .26488 .24466 L .30574 .25362 L .3451 .26308 L .38293 .2731 L .42322 .28475 L .46199 .29677 L .50321 .31006 L .54292 .32279 L .58112 .33425 L .62176 .34461 L .64056 .34847 L .66089 .35184 L .67204 .35329 L .6823 .35437 L .69211 .35518 L .69753 .35552 L .70247 .35578 L .70734 .35598 L .71195 .35611 L .71448 .35617 L .71682 .35621 L .71804 .35623 L .71938 .35624 L .72006 .35624 L .72079 .35625 L .72211 .35626 L .72326 .35626 L .72434 .35626 L .72551 .35626 L .72677 .35625 L .72809 .35624 L .72934 .35623 L .73168 .3562 L .73386 .35617 L .73588 .35613 L .74044 .35601 L .75014 .35567 L .75921 .35526 L .7698 .35472 L .77985 .35422 L .78955 .35381 L Mistroke .79221 .35372 L .79504 .35365 L .79642 .35361 L .79772 .35359 L .79887 .35357 L .80014 .35355 L .8013 .35354 L .80239 .35353 L .80355 .35353 L .80478 .35353 L .80593 .35353 L .80701 .35354 L .80799 .35355 L .80905 .35357 L .8102 .35359 L .81147 .35363 L .81405 .35371 L .81643 .35382 L .81867 .35394 L .82338 .35429 L .82853 .35483 L .8339 .35558 L .83889 .35647 L .84785 .35864 L .85741 .36189 L .86768 .36668 L .8788 .37369 L .8893 .38241 L .89896 .39257 L .91776 .41944 L .92844 .43974 L .93842 .46264 L .95817 .52127 L .97619 .59348 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["\<\ The approximation breaks down on the left and the right. Try to recover by using more of the expansion:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[approx];\)\), "\n", \(\(approx[x_] = Normal[Series[f[x], {x, 0, 14}]];\)\n\), "\n", \(\(Plot[{f[x], approx[x]}, {x, \(-2.2\), 2.2}, \n\t PlotStyle \[Rule] {{Thickness[0.02], Blue}, {Thickness[0.01], Red}}, AspectRatio \[Rule] 1\/GoldenRatio, PlotRange \[Rule] {\(-0.3\), 0.8}, AxesLabel \[Rule] {"\", "\<\>"}, PlotLabel \[Rule] "\"];\)\)}], "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.21645 0.168555 0.561849 [ [.0671 .15605 -6 -9 ] [.0671 .15605 6 0 ] [.28355 .15605 -6 -9 ] [.28355 .15605 6 0 ] [.71645 .15605 -3 -9 ] [.71645 .15605 3 0 ] [.9329 .15605 -3 -9 ] [.9329 .15605 3 0 ] [1.025 .16855 0 -6 ] [1.025 .16855 10 6 ] [.4875 .05618 -24 -4.5 ] [.4875 .05618 0 4.5 ] [.4875 .28092 -18 -4.5 ] [.4875 .28092 0 4.5 ] [.4875 .39329 -18 -4.5 ] [.4875 .39329 0 4.5 ] [.4875 .50566 -18 -4.5 ] [.4875 .50566 0 4.5 ] [.4875 .61803 -18 -4.5 ] [.4875 .61803 0 4.5 ] [.5 .63053 -89 0 ] [.5 .63053 89 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .0671 .16855 m .0671 .1748 L s [(-2)] .0671 .15605 0 1 Mshowa .28355 .16855 m .28355 .1748 L s [(-1)] .28355 .15605 0 1 Mshowa .71645 .16855 m .71645 .1748 L s [(1)] .71645 .15605 0 1 Mshowa .9329 .16855 m .9329 .1748 L s [(2)] .9329 .15605 0 1 Mshowa .125 Mabswid .11039 .16855 m .11039 .1723 L s .15368 .16855 m .15368 .1723 L s .19697 .16855 m .19697 .1723 L s .24026 .16855 m .24026 .1723 L s .32684 .16855 m .32684 .1723 L s .37013 .16855 m .37013 .1723 L s .41342 .16855 m .41342 .1723 L s .45671 .16855 m .45671 .1723 L s .54329 .16855 m .54329 .1723 L s .58658 .16855 m .58658 .1723 L s .62987 .16855 m .62987 .1723 L s .67316 .16855 m .67316 .1723 L s .75974 .16855 m .75974 .1723 L s .80303 .16855 m .80303 .1723 L s .84632 .16855 m .84632 .1723 L s .88961 .16855 m .88961 .1723 L s .02381 .16855 m .02381 .1723 L s .97619 .16855 m .97619 .1723 L s .25 Mabswid 0 .16855 m 1 .16855 L s gsave 1.025 .16855 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .5 .05618 m .50625 .05618 L s [(-0.2)] .4875 .05618 1 0 Mshowa .5 .28092 m .50625 .28092 L s [(0.2)] .4875 .28092 1 0 Mshowa .5 .39329 m .50625 .39329 L s [(0.4)] .4875 .39329 1 0 Mshowa .5 .50566 m .50625 .50566 L s [(0.6)] .4875 .50566 1 0 Mshowa .5 .61803 m .50625 .61803 L s [(0.8)] .4875 .61803 1 0 Mshowa .125 Mabswid .5 .08428 m .50375 .08428 L s .5 .11237 m .50375 .11237 L s .5 .14046 m .50375 .14046 L s .5 .19665 m .50375 .19665 L s .5 .22474 m .50375 .22474 L s .5 .25283 m .50375 .25283 L s .5 .30902 m .50375 .30902 L s .5 .33711 m .50375 .33711 L s .5 .3652 m .50375 .3652 L s .5 .42139 m .50375 .42139 L s .5 .44948 m .50375 .44948 L s .5 .47757 m .50375 .47757 L s .5 .53376 m .50375 .53376 L s .5 .56185 m .50375 .56185 L s .5 .58994 m .50375 .58994 L s .5 .02809 m .50375 .02809 L s .25 Mabswid .5 0 m .5 .61803 L s gsave .5 .63053 -150 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Powers) show 105.000 13.000 moveto (of) show 123.000 13.000 moveto (x) show 135.000 13.000 moveto (centered) show 189.000 13.000 moveto (at) show 207.000 13.000 moveto (x) show 219.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 231.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 237.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .21099 m .06244 .21488 L .10458 .21967 L .14415 .22479 L .18221 .23035 L .22272 .23705 L .26171 .24434 L .30316 .2531 L .34309 .26258 L .3815 .2727 L .42237 .2845 L .46172 .29668 L .49955 .30887 L .53984 .32182 L .57861 .33354 L .61984 .34417 L .64043 .34844 L .65954 .35162 L .67803 .35389 L .68837 .35479 L .69283 .3551 L .69774 .35537 L .70261 .35558 L .70527 .35567 L .70776 .35574 L .71009 .35578 L .71119 .3558 L .71221 .35581 L .71339 .35583 L .71466 .35583 L .71579 .35584 L .71698 .35584 L .71827 .35583 L .71944 .35583 L .72073 .35581 L .72209 .3558 L .72438 .35575 L .72688 .35569 L .72962 .35561 L .73254 .35549 L .7378 .35523 L .74805 .35452 L .75915 .35344 L .7793 .35072 L .79918 .34714 L .82022 .34251 L .85811 .33244 L .89845 .32012 L .93727 .3076 L .97619 .2951 L Mistroke Mfstroke 1 0 0 r .01 w .02381 .03373 m .03279 .0759 L .04262 .11179 L .05288 .14029 L .06244 .16049 L .0731 .17753 L .0828 .18922 L .094 .19936 L .10458 .20653 L .11428 .2116 L .12455 .21584 L .14299 .22152 L .16253 .22599 L .18083 .2295 L .2196 .2364 L .26083 .24415 L .30053 .25251 L .33873 .26149 L .37937 .27212 L .4185 .28334 L .46008 .29617 L .50015 .30907 L .5387 .32147 L .5797 .33385 L .61919 .34403 L .63905 .34818 L .65716 .35127 L .67667 .35375 L .68182 .35425 L .68741 .35472 L .69266 .35509 L .69759 .35537 L .70211 .35557 L .70444 .35565 L .70699 .35572 L .70962 .35578 L .71106 .3558 L .7124 .35582 L .71366 .35583 L .7148 .35584 L .71612 .35584 L .71736 .35584 L .71858 .35584 L .71926 .35583 L .71991 .35583 L .72121 .35582 L .72261 .3558 L .72513 .35575 L .72744 .35569 L .73305 .35549 L Mistroke .73837 .35522 L .74798 .35457 L .75822 .35362 L .77662 .35136 L .79663 .34826 L .81825 .3447 L .82842 .34323 L .83398 .34256 L .83669 .34228 L .83916 .34207 L .84128 .34191 L .84358 .34177 L .84485 .34171 L .84602 .34166 L .84714 .34163 L .84832 .34161 L .84951 .3416 L .85079 .3416 L .852 .34162 L .8531 .34165 L .85433 .3417 L .85567 .34178 L .85707 .34188 L .85837 .34199 L .86101 .34229 L .86343 .34266 L .8661 .34317 L .86892 .34385 L .87366 .34535 L .87887 .34759 L .8835 .3502 L .88848 .35376 L .89747 .36262 L .90274 .36959 L .90762 .37747 L .91288 .38772 L .91868 .40153 L .92843 .43192 L .93879 .47681 L .94818 .53203 L .95678 .59833 L Mfstroke .95678 .59833 m .95875 .61803 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["Again:", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[approx];\)\), "\n", \(\(approx[x_] = Normal[Series[f[x], {x, 0, 18}]];\)\n\), "\n", \(\(Plot[{f[x], approx[x]}, {x, \(-2.2\), 2.2}, \n\t PlotStyle \[Rule] {{Thickness[0.02], Blue}, {Thickness[0.01], Red}}, AspectRatio \[Rule] 1\/GoldenRatio, PlotRange \[Rule] {\(-0.3\), 0.8}, AxesLabel \[Rule] {"\", "\<\>"}, PlotLabel \[Rule] "\"];\)\)}], "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.21645 0.168555 0.561849 [ [.0671 .15605 -6 -9 ] [.0671 .15605 6 0 ] [.28355 .15605 -6 -9 ] [.28355 .15605 6 0 ] [.71645 .15605 -3 -9 ] [.71645 .15605 3 0 ] [.9329 .15605 -3 -9 ] [.9329 .15605 3 0 ] [1.025 .16855 0 -6 ] [1.025 .16855 10 6 ] [.4875 .05618 -24 -4.5 ] [.4875 .05618 0 4.5 ] [.4875 .28092 -18 -4.5 ] [.4875 .28092 0 4.5 ] [.4875 .39329 -18 -4.5 ] [.4875 .39329 0 4.5 ] [.4875 .50566 -18 -4.5 ] [.4875 .50566 0 4.5 ] [.4875 .61803 -18 -4.5 ] [.4875 .61803 0 4.5 ] [.5 .63053 -89 0 ] [.5 .63053 89 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .0671 .16855 m .0671 .1748 L s [(-2)] .0671 .15605 0 1 Mshowa .28355 .16855 m .28355 .1748 L s [(-1)] .28355 .15605 0 1 Mshowa .71645 .16855 m .71645 .1748 L s [(1)] .71645 .15605 0 1 Mshowa .9329 .16855 m .9329 .1748 L s [(2)] .9329 .15605 0 1 Mshowa .125 Mabswid .11039 .16855 m .11039 .1723 L s .15368 .16855 m .15368 .1723 L s .19697 .16855 m .19697 .1723 L s .24026 .16855 m .24026 .1723 L s .32684 .16855 m .32684 .1723 L s .37013 .16855 m .37013 .1723 L s .41342 .16855 m .41342 .1723 L s .45671 .16855 m .45671 .1723 L s .54329 .16855 m .54329 .1723 L s .58658 .16855 m .58658 .1723 L s .62987 .16855 m .62987 .1723 L s .67316 .16855 m .67316 .1723 L s .75974 .16855 m .75974 .1723 L s .80303 .16855 m .80303 .1723 L s .84632 .16855 m .84632 .1723 L s .88961 .16855 m .88961 .1723 L s .02381 .16855 m .02381 .1723 L s .97619 .16855 m .97619 .1723 L s .25 Mabswid 0 .16855 m 1 .16855 L s gsave 1.025 .16855 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .5 .05618 m .50625 .05618 L s [(-0.2)] .4875 .05618 1 0 Mshowa .5 .28092 m .50625 .28092 L s [(0.2)] .4875 .28092 1 0 Mshowa .5 .39329 m .50625 .39329 L s [(0.4)] .4875 .39329 1 0 Mshowa .5 .50566 m .50625 .50566 L s [(0.6)] .4875 .50566 1 0 Mshowa .5 .61803 m .50625 .61803 L s [(0.8)] .4875 .61803 1 0 Mshowa .125 Mabswid .5 .08428 m .50375 .08428 L s .5 .11237 m .50375 .11237 L s .5 .14046 m .50375 .14046 L s .5 .19665 m .50375 .19665 L s .5 .22474 m .50375 .22474 L s .5 .25283 m .50375 .25283 L s .5 .30902 m .50375 .30902 L s .5 .33711 m .50375 .33711 L s .5 .3652 m .50375 .3652 L s .5 .42139 m .50375 .42139 L s .5 .44948 m .50375 .44948 L s .5 .47757 m .50375 .47757 L s .5 .53376 m .50375 .53376 L s .5 .56185 m .50375 .56185 L s .5 .58994 m .50375 .58994 L s .5 .02809 m .50375 .02809 L s .25 Mabswid .5 0 m .5 .61803 L s gsave .5 .63053 -150 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Powers) show 105.000 13.000 moveto (of) show 123.000 13.000 moveto (x) show 135.000 13.000 moveto (centered) show 189.000 13.000 moveto (at) show 207.000 13.000 moveto (x) show 219.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 231.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 237.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .21099 m .06244 .21488 L .10458 .21967 L .14415 .22479 L .18221 .23035 L .22272 .23705 L .26171 .24434 L .30316 .2531 L .34309 .26258 L .3815 .2727 L .42237 .2845 L .46172 .29668 L .49955 .30887 L .53984 .32182 L .57861 .33354 L .61984 .34417 L .64043 .34844 L .65954 .35162 L .67803 .35389 L .68837 .35479 L .69283 .3551 L .69774 .35537 L .70261 .35558 L .70527 .35567 L .70776 .35574 L .71009 .35578 L .71119 .3558 L .71221 .35581 L .71339 .35583 L .71466 .35583 L .71579 .35584 L .71698 .35584 L .71827 .35583 L .71944 .35583 L .72073 .35581 L .72209 .3558 L .72438 .35575 L .72688 .35569 L .72962 .35561 L .73254 .35549 L .7378 .35523 L .74805 .35452 L .75915 .35344 L .7793 .35072 L .79918 .34714 L .82022 .34251 L .85811 .33244 L .89845 .32012 L .93727 .3076 L .97619 .2951 L Mistroke Mfstroke 1 0 0 r .01 w .0314 .61803 m .03279 .5954 L .03793 .52492 L .04262 .47176 L .0522 .3889 L .05746 .35504 L .06244 .329 L .06754 .3073 L .07295 .28881 L .08265 .26468 L .08804 .25512 L .09308 .24807 L .09862 .24205 L .10458 .23718 L .10982 .23398 L .11468 .23175 L .12002 .22996 L .12301 .2292 L .12571 .22865 L .12813 .22825 L .13068 .22791 L .13348 .22763 L .13473 .22753 L .13606 .22745 L .13732 .22738 L .13846 .22734 L .13961 .2273 L .1407 .22728 L .14197 .22726 L .14315 .22726 L .14444 .22727 L .14509 .22727 L .1458 .22729 L .14702 .22732 L .14815 .22735 L .15072 .22745 L .15322 .22759 L .1559 .22776 L .16515 .22857 L .17608 .22984 L .18601 .23118 L .22599 .23764 L .26446 .24489 L .30537 .2536 L .34478 .26301 L .38266 .27303 L .423 .28469 L .46183 .29672 L .50311 .31002 L .54287 .32278 L Mistroke .58111 .33425 L .62181 .34462 L .64064 .34848 L .66099 .35183 L .67217 .35326 L .68244 .35431 L .69226 .35506 L .69721 .35535 L .6998 .35547 L .70263 .35558 L .70536 .35567 L .70788 .35574 L .7103 .35579 L .71151 .35581 L .71217 .35581 L .71286 .35582 L .71407 .35583 L .71517 .35584 L .71636 .35584 L .71766 .35584 L .7188 .35583 L .72 .35582 L .72114 .35581 L .72217 .35579 L .72487 .35574 L .72735 .35568 L .73295 .35548 L .73788 .35523 L .7431 .35489 L .75256 .35411 L .76272 .35302 L .78104 .35042 L .80226 .34646 L .82237 .34183 L .86067 .33085 L .88003 .32427 L .90142 .31657 L .91115 .31327 L .91626 .31175 L .92165 .3104 L .92393 .30993 L .92638 .30952 L .92778 .30934 L .92906 .3092 L .93034 .3091 L .93156 .30904 L .93266 .30902 L .93382 .30903 L .93482 .30907 L .93592 .30915 L Mistroke .9371 .30928 L .93836 .30947 L .93956 .3097 L .94065 .30996 L .94289 .31066 L .94492 .3115 L .94726 .31274 L .94947 .3142 L .9534 .31764 L .95765 .32279 L .96235 .3306 L .96731 .34189 L .97154 .35458 L .97619 .37249 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell[TextData[{ "No matter what you do, you seem to run up against a barrier near ", Cell[BoxData[ \(x = \(-2\)\)]], " and ", Cell[BoxData[ \(x = \(+2\)\)]], "." }], "Text"], Cell["Go ahead and play by using more and more of the expansion. ", "Special2"], Cell[CellGroupData[{ Cell["\<\ What piece of advanced mathematics explains why these barriers are \ mathematical realities? \ \>", "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "The key to determining the exact location of the barriers and to learning \ why they are not figments of your imagination comes from singularities and \ complex numbers. \nThe function is \n ", Cell[BoxData[ \(f[x] = 1\/\(4\ - \ 2\ x\ + \ x\^2\)\)]], ". \nThe function has a complex singularity when its denominator is ", Cell[BoxData[ \(0\)]], ": " }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[z];\)\), "\n", \(Denominator[f[z]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(4 - 2\ z + z\^2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(singularities = Simplify[Solve[Denominator[f[z]] == 0, z]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{z \[Rule] 1 - \[ImaginaryI]\ \@3}, {z \[Rule] 1 + \[ImaginaryI]\ \@3}}\)], "Output"] }, Open ]], Cell[TextData[{ "The complex singularities are \n ", Cell[BoxData[ \(1\ + \ i\ \@3\)]], " and ", Cell[BoxData[ \(1\ - \ i \@ 3\)]], ".\nPlot the points \n ", Cell[BoxData[ \({1, \@3}\)]], " and ", Cell[BoxData[ \({1, \ \(-\@3\)}\)]], " \ntogether with the center of the plotting interval ", Cell[BoxData[ \({0, 0}\)]], ": " }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(sing1 = {1, \@3};\)\), "\n", \(\(sing2 = {1, \(-\@3\)};\)\), "\n", \(\(center = {0, 0};\)\n\), "\n", \(\(points = {Graphics[{Red, PointSize[0.04], Point[sing1]}], Graphics[{Red, PointSize[0.04], Point[sing2]}], Graphics[{Blue, PointSize[0.04], Point[center]}]};\)\), "\n", \(\(labels = {Graphics[Text["\", sing1]], Graphics[Text["\", sing2]], Graphics[Text["\", center]]};\)\n\), "\n", \(\(Show[points, labels, Axes \[Rule] True, PlotRange \[Rule] All, AspectRatio \[Rule] 1\/GoldenRatio];\)\)}], "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.0238095 0.952381 0.309017 0.169915 [ [.21429 .29652 -9 -9 ] [.21429 .29652 9 0 ] [.40476 .29652 -9 -9 ] [.40476 .29652 9 0 ] [.59524 .29652 -9 -9 ] [.59524 .29652 9 0 ] [.78571 .29652 -9 -9 ] [.78571 .29652 9 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [.01131 .05414 -24 -4.5 ] [.01131 .05414 0 4.5 ] [.01131 .1391 -12 -4.5 ] [.01131 .1391 0 4.5 ] [.01131 .22406 -24 -4.5 ] [.01131 .22406 0 4.5 ] [.01131 .39397 -18 -4.5 ] [.01131 .39397 0 4.5 ] [.01131 .47893 -6 -4.5 ] [.01131 .47893 0 4.5 ] [.01131 .56389 -18 -4.5 ] [.01131 .56389 0 4.5 ] [.97619 .60332 -14 -6 ] [.97619 .60332 14 6 ] [.97619 .01472 -14 -6 ] [.97619 .01472 14 6 ] [.02381 .30902 -20 -6 ] [.02381 .30902 20 6 ] [ 0 -0.00528 0 0 ] [ 1 .62332 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .30902 m .21429 .31527 L s [(0.2)] .21429 .29652 0 1 Mshowa .40476 .30902 m .40476 .31527 L s [(0.4)] .40476 .29652 0 1 Mshowa .59524 .30902 m .59524 .31527 L s [(0.6)] .59524 .29652 0 1 Mshowa .78571 .30902 m .78571 .31527 L s [(0.8)] .78571 .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 .2619 .30902 m .2619 .31277 L s .30952 .30902 m .30952 .31277 L s .35714 .30902 m .35714 .31277 L s .45238 .30902 m .45238 .31277 L s .5 .30902 m .5 .31277 L s .54762 .30902 m .54762 .31277 L s .64286 .30902 m .64286 .31277 L s .69048 .30902 m .69048 .31277 L s .7381 .30902 m .7381 .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 .02381 .05414 m .03006 .05414 L s [(-1.5)] .01131 .05414 1 0 Mshowa .02381 .1391 m .03006 .1391 L s [(-1)] .01131 .1391 1 0 Mshowa .02381 .22406 m .03006 .22406 L s [(-0.5)] .01131 .22406 1 0 Mshowa .02381 .39397 m .03006 .39397 L s [(0.5)] .01131 .39397 1 0 Mshowa .02381 .47893 m .03006 .47893 L s [(1)] .01131 .47893 1 0 Mshowa .02381 .56389 m .03006 .56389 L s [(1.5)] .01131 .56389 1 0 Mshowa .125 Mabswid .02381 .07114 m .02756 .07114 L s .02381 .08813 m .02756 .08813 L s .02381 .10512 m .02756 .10512 L s .02381 .12211 m .02756 .12211 L s .02381 .15609 m .02756 .15609 L s .02381 .17308 m .02756 .17308 L s .02381 .19008 m .02756 .19008 L s .02381 .20707 m .02756 .20707 L s .02381 .24105 m .02756 .24105 L s .02381 .25804 m .02756 .25804 L s .02381 .27503 m .02756 .27503 L s .02381 .29203 m .02756 .29203 L s .02381 .32601 m .02756 .32601 L s .02381 .343 m .02756 .343 L s .02381 .35999 m .02756 .35999 L s .02381 .37698 m .02756 .37698 L s .02381 .41097 m .02756 .41097 L s .02381 .42796 m .02756 .42796 L s .02381 .44495 m .02756 .44495 L s .02381 .46194 m .02756 .46194 L s .02381 .49592 m .02756 .49592 L s .02381 .51292 m .02756 .51292 L s .02381 .52991 m .02756 .52991 L s .02381 .5469 m .02756 .5469 L s .02381 .03715 m .02756 .03715 L s .02381 .02016 m .02756 .02016 L s .02381 .00317 m .02756 .00317 L s .02381 .58088 m .02756 .58088 L s .02381 .59787 m .02756 .59787 L s .02381 .61486 m .02756 .61486 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .04 w .97619 .60332 Mdot .97619 .01472 Mdot 0 0 1 r .02381 .30902 Mdot 0 g gsave .97619 .60332 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .97619 .01472 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .02381 .30902 -81 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (center) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["\<\ Run line segments from the center of the plotting interval to each \ singularity:\ \>", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(lines = {Graphics[ Line[{center, sing1}]], \n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \t\tGraphics[ Line[{center, sing2}]]};\)\n\), "\n", \(\(Show[points, lines, labels, Axes \[Rule] True, PlotRange \[Rule] All];\)\)}], "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.0238095 0.952381 0.309017 0.169915 [ [.21429 .29652 -9 -9 ] [.21429 .29652 9 0 ] [.40476 .29652 -9 -9 ] [.40476 .29652 9 0 ] [.59524 .29652 -9 -9 ] [.59524 .29652 9 0 ] [.78571 .29652 -9 -9 ] [.78571 .29652 9 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [.01131 .05414 -24 -4.5 ] [.01131 .05414 0 4.5 ] [.01131 .1391 -12 -4.5 ] [.01131 .1391 0 4.5 ] [.01131 .22406 -24 -4.5 ] [.01131 .22406 0 4.5 ] [.01131 .39397 -18 -4.5 ] [.01131 .39397 0 4.5 ] [.01131 .47893 -6 -4.5 ] [.01131 .47893 0 4.5 ] [.01131 .56389 -18 -4.5 ] [.01131 .56389 0 4.5 ] [.97619 .60332 -14 -6 ] [.97619 .60332 14 6 ] [.97619 .01472 -14 -6 ] [.97619 .01472 14 6 ] [.02381 .30902 -20 -6 ] [.02381 .30902 20 6 ] [ 0 -0.00528 0 0 ] [ 1 .62332 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .30902 m .21429 .31527 L s [(0.2)] .21429 .29652 0 1 Mshowa .40476 .30902 m .40476 .31527 L s [(0.4)] .40476 .29652 0 1 Mshowa .59524 .30902 m .59524 .31527 L s [(0.6)] .59524 .29652 0 1 Mshowa .78571 .30902 m .78571 .31527 L s [(0.8)] .78571 .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 .2619 .30902 m .2619 .31277 L s .30952 .30902 m .30952 .31277 L s .35714 .30902 m .35714 .31277 L s .45238 .30902 m .45238 .31277 L s .5 .30902 m .5 .31277 L s .54762 .30902 m .54762 .31277 L s .64286 .30902 m .64286 .31277 L s .69048 .30902 m .69048 .31277 L s .7381 .30902 m .7381 .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 .02381 .05414 m .03006 .05414 L s [(-1.5)] .01131 .05414 1 0 Mshowa .02381 .1391 m .03006 .1391 L s [(-1)] .01131 .1391 1 0 Mshowa .02381 .22406 m .03006 .22406 L s [(-0.5)] .01131 .22406 1 0 Mshowa .02381 .39397 m .03006 .39397 L s [(0.5)] .01131 .39397 1 0 Mshowa .02381 .47893 m .03006 .47893 L s [(1)] .01131 .47893 1 0 Mshowa .02381 .56389 m .03006 .56389 L s [(1.5)] .01131 .56389 1 0 Mshowa .125 Mabswid .02381 .07114 m .02756 .07114 L s .02381 .08813 m .02756 .08813 L s .02381 .10512 m .02756 .10512 L s .02381 .12211 m .02756 .12211 L s .02381 .15609 m .02756 .15609 L s .02381 .17308 m .02756 .17308 L s .02381 .19008 m .02756 .19008 L s .02381 .20707 m .02756 .20707 L s .02381 .24105 m .02756 .24105 L s .02381 .25804 m .02756 .25804 L s .02381 .27503 m .02756 .27503 L s .02381 .29203 m .02756 .29203 L s .02381 .32601 m .02756 .32601 L s .02381 .343 m .02756 .343 L s .02381 .35999 m .02756 .35999 L s .02381 .37698 m .02756 .37698 L s .02381 .41097 m .02756 .41097 L s .02381 .42796 m .02756 .42796 L s .02381 .44495 m .02756 .44495 L s .02381 .46194 m .02756 .46194 L s .02381 .49592 m .02756 .49592 L s .02381 .51292 m .02756 .51292 L s .02381 .52991 m .02756 .52991 L s .02381 .5469 m .02756 .5469 L s .02381 .03715 m .02756 .03715 L s .02381 .02016 m .02756 .02016 L s .02381 .00317 m .02756 .00317 L s .02381 .58088 m .02756 .58088 L s .02381 .59787 m .02756 .59787 L s .02381 .61486 m .02756 .61486 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .04 w .97619 .60332 Mdot .97619 .01472 Mdot 0 0 1 r .02381 .30902 Mdot 0 g .5 Mabswid .02381 .30902 m .97619 .60332 L s .02381 .30902 m .97619 .01472 L s gsave .97619 .60332 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .97619 .01472 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .02381 .30902 -81 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (center) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{83.125, 51.3125}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["The top line connects the points:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \({center, sing1}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{0, 0}, {1, \@3}}\)], "Output"] }, Open ]], Cell["Its length is:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(\@\(\((1 + 0)\)\^2 + \((\@3 + 0)\)\^2\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell["The bottom line connects the points:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \({center, sing2}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{0, 0}, {1, \(-\@3\)}}\)], "Output"] }, Open ]], Cell["Its length is:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(\@\(\((1 + 0)\)\^2 + \((\(-\@3\) + 0)\)\^2\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell[TextData[{ "Both of these line segments are ", Cell[BoxData[ \(2\)]], " units long.\nFor this function, ", Cell[BoxData[ \(R\ = \ 2\)]], " is the magic number.\nAdvanced mathematics tells you that when you expand \ in powers of ", Cell[BoxData[ \(x\)]], ", then:\n\[Rule] The approximations will hold up beautifully inside the \ interval \n ", Cell[BoxData[ \(\((0\ - \ R, 0\ + \ R)\)\ = \ \((\(-2\), 2)\)\)]], ", \n\[Rule] but the approximations will break down outside \n ", Cell[BoxData[ \(\([0\ - \ R, 0\ + \ R]\)\ = \ \([\(-2\), 2]\)\)]], ". \nThis is why you ran into barriers at ", Cell[BoxData[ \(x\ = \ \(\(-R\)\ = \ \(-2\)\)\)]], " and ", Cell[BoxData[ \(x\ = \ \(R\ = \ 2\)\)]], " above." }], "SmallText"] }, Closed]], Cell["B.1.b)", "Subsubsection"], Cell[TextData[{ "Look at these attempts to approximate \n ", Cell[BoxData[ \(f[x]\ = \ 8\/\(4\ + \ x\^2\)\)]], " \nby early parts of its expansion in powers of ", Cell[BoxData[ \(\((x\ - \ 1)\)\)]], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(b = 1;\)\), "\n", \(\(Clear[f, approx, x];\)\), "\n", \(\(f[x_] = 8\/\(4 + x\^2\);\)\n\), "\n", \(\(approx[x_] = Normal[Series[f[x], {x, b, 8}]];\)\n\), "\n", \(\(Plot[{f[x], approx[x]}, {x, b - 3, b + 3}, \n\t PlotStyle \[Rule] {{Thickness[0.02], Blue}, {Thickness[0.01], Red}}, AspectRatio \[Rule] 1\/GoldenRatio, PlotRange \[Rule] {\(-0.3\), 2.3}, AxesLabel \[Rule] {"\", "\<\>"}, PlotLabel \[Rule] "\", Epilog \[Rule] {{Blue, PointSize[0.04], Point[{b, 0}]}, Text["\", {b, 0}, {0, \(-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.34127 0.15873 0.0713116 0.237705 [ [.02381 .05881 -6 -9 ] [.02381 .05881 6 0 ] [.18254 .05881 -6 -9 ] [.18254 .05881 6 0 ] [.5 .05881 -3 -9 ] [.5 .05881 3 0 ] [.65873 .05881 -3 -9 ] [.65873 .05881 3 0 ] [.81746 .05881 -3 -9 ] [.81746 .05881 3 0 ] [.97619 .05881 -3 -9 ] [.97619 .05881 3 0 ] [1.025 .07131 0 -6 ] [1.025 .07131 10 6 ] [.32877 .19016 -18 -4.5 ] [.32877 .19016 0 4.5 ] [.32877 .30902 -6 -4.5 ] [.32877 .30902 0 4.5 ] [.32877 .42787 -18 -4.5 ] [.32877 .42787 0 4.5 ] [.32877 .54672 -6 -4.5 ] [.32877 .54672 0 4.5 ] [.5 .63053 -107 0 ] [.5 .63053 107 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .07131 m .02381 .07756 L s [(-2)] .02381 .05881 0 1 Mshowa .18254 .07131 m .18254 .07756 L s [(-1)] .18254 .05881 0 1 Mshowa .5 .07131 m .5 .07756 L s [(1)] .5 .05881 0 1 Mshowa .65873 .07131 m .65873 .07756 L s [(2)] .65873 .05881 0 1 Mshowa .81746 .07131 m .81746 .07756 L s [(3)] .81746 .05881 0 1 Mshowa .97619 .07131 m .97619 .07756 L s [(4)] .97619 .05881 0 1 Mshowa .125 Mabswid .05556 .07131 m .05556 .07506 L s .0873 .07131 m .0873 .07506 L s .11905 .07131 m .11905 .07506 L s .15079 .07131 m .15079 .07506 L s .21429 .07131 m .21429 .07506 L s .24603 .07131 m .24603 .07506 L s .27778 .07131 m .27778 .07506 L s .30952 .07131 m .30952 .07506 L s .37302 .07131 m .37302 .07506 L s .40476 .07131 m .40476 .07506 L s .43651 .07131 m .43651 .07506 L s .46825 .07131 m .46825 .07506 L s .53175 .07131 m .53175 .07506 L s .56349 .07131 m .56349 .07506 L s .59524 .07131 m .59524 .07506 L s .62698 .07131 m .62698 .07506 L s .69048 .07131 m .69048 .07506 L s .72222 .07131 m .72222 .07506 L s .75397 .07131 m .75397 .07506 L s .78571 .07131 m .78571 .07506 L s .84921 .07131 m .84921 .07506 L s .88095 .07131 m .88095 .07506 L s .9127 .07131 m .9127 .07506 L s .94444 .07131 m .94444 .07506 L s .25 Mabswid 0 .07131 m 1 .07131 L s gsave 1.025 .07131 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .34127 .19016 m .34752 .19016 L s [(0.5)] .32877 .19016 1 0 Mshowa .34127 .30902 m .34752 .30902 L s [(1)] .32877 .30902 1 0 Mshowa .34127 .42787 m .34752 .42787 L s [(1.5)] .32877 .42787 1 0 Mshowa .34127 .54672 m .34752 .54672 L s [(2)] .32877 .54672 1 0 Mshowa .125 Mabswid .34127 .09508 m .34502 .09508 L s .34127 .11885 m .34502 .11885 L s .34127 .14262 m .34502 .14262 L s .34127 .16639 m .34502 .16639 L s .34127 .21393 m .34502 .21393 L s .34127 .23771 m .34502 .23771 L s .34127 .26148 m .34502 .26148 L s .34127 .28525 m .34502 .28525 L s .34127 .33279 m .34502 .33279 L s .34127 .35656 m .34502 .35656 L s .34127 .38033 m .34502 .38033 L s .34127 .4041 m .34502 .4041 L s .34127 .45164 m .34502 .45164 L s .34127 .47541 m .34502 .47541 L s .34127 .49918 m .34502 .49918 L s .34127 .52295 m .34502 .52295 L s .34127 .04754 m .34502 .04754 L s .34127 .02377 m .34502 .02377 L s .34127 .57049 m .34502 .57049 L s .34127 .59426 m .34502 .59426 L s .25 Mabswid .34127 0 m .34127 .61803 L s gsave .5 .63053 -168 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Powers) show 105.000 13.000 moveto (of) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 123.000 13.000 moveto (H) show 129.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 141.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 159.000 13.000 moveto (L) show 171.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (centered) show 225.000 13.000 moveto (at) show 243.000 13.000 moveto (x) show 255.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 267.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 273.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .30902 m .06244 .33969 L .10458 .37687 L .14415 .41443 L .18221 .45132 L .22272 .48854 L .26171 .51863 L .28302 .53124 L .29279 .53589 L .30316 .53997 L .31266 .54289 L .3177 .54412 L .32313 .54518 L .32568 .54558 L .3281 .54591 L .33046 .54617 L .33265 .54637 L .33471 .54652 L .33577 .54658 L .33691 .54663 L .33817 .54668 L .33936 .54671 L .34051 .54672 L .34157 .54672 L .34283 .54671 L .34403 .54669 L .3451 .54665 L .34627 .5466 L .34754 .54654 L .34888 .54645 L .3513 .54625 L .35563 .54575 L .36039 .545 L .36552 .54396 L .37105 .54257 L .38106 .53937 L .4011 .53042 L .4222 .51771 L .46031 .48812 L .50087 .45081 L .53991 .41296 L .58141 .3737 L .62139 .33861 L .65986 .30817 L .70078 .2796 L .74018 .25565 L .77807 .23564 L .81841 .21719 L .85723 .20186 L .89851 .1878 L Mistroke .93827 .17611 L .97619 .16639 L Mfstroke 1 0 0 r .01 w .13964 .61803 m .14264 .60788 L .15285 .58213 L .16394 .56019 L .17441 .54454 L .18408 .53392 L .18874 .52996 L .19375 .52647 L .19808 .52404 L .20281 .52196 L .20567 .52097 L .20833 .52022 L .21087 .51966 L .21217 .51942 L .21358 .5192 L .21496 .51902 L .21624 .51889 L .21746 .51879 L .21875 .51871 L .2199 .51867 L .22098 .51865 L .22216 .51865 L .22343 .51868 L .22465 .51873 L .22534 .51876 L .22599 .5188 L .22872 .51904 L .23107 .51933 L .23361 .51972 L .23938 .52086 L .24467 .52219 L .26479 .52878 L .28532 .53623 L .29533 .53954 L .30442 .54216 L .3139 .54436 L .31824 .54517 L .32284 .54588 L .32518 .54618 L .32776 .54645 L .33012 .54666 L .33229 .54681 L .33351 .54688 L .33484 .54694 L .33557 .54697 L .33624 .54699 L .33693 .547 L .33758 .54701 L .33884 .54703 L .33997 .54703 L Mistroke .3412 .54702 L .34189 .547 L .34253 .54699 L .34379 .54695 L .34499 .54689 L .34724 .54676 L .34966 .54657 L .35229 .54631 L .35702 .54567 L .36139 .54491 L .37142 .54252 L .38207 .53902 L .40158 .53017 L .41987 .51926 L .45861 .48958 L .4998 .45183 L .53948 .41338 L .57764 .37717 L .61825 .34122 L .65735 .30984 L .6989 .27919 L .73893 .24847 L .75729 .23146 L .77745 .20788 L .79737 .1761 L .80825 .15342 L .81842 .12766 L .82886 .09554 L .83875 .05856 L Mfstroke .83875 .05856 m .85064 0 L s 0 0 1 r .04 w .5 .07131 Mdot 0 g gsave .5 .07131 -108 2 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (expansion) show 123.000 13.000 moveto (point) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["\<\ The approximation breaks down on the left and the right. Try to recover by using more of the expansion:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[approx];\)\), "\n", \(\(approx[x_] = Normal[Series[f[x], {x, b, 14}]];\)\n\), "\n", \(\(Plot[{f[x], approx[x]}, {x, b - 3, b + 3}, \n\t PlotStyle \[Rule] {{Thickness[0.02], Blue}, {Thickness[0.01], Red}}, AspectRatio \[Rule] 1\/GoldenRatio, PlotRange \[Rule] {\(-0.3\), 2.3}, AxesLabel \[Rule] {"\", "\<\>"}, PlotLabel \[Rule] "\", Epilog \[Rule] {{Blue, PointSize[0.04], Point[{b, 0}]}, Text["\", {b, 0}, {0, \(-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.34127 0.15873 0.0713116 0.237705 [ [.02381 .05881 -6 -9 ] [.02381 .05881 6 0 ] [.18254 .05881 -6 -9 ] [.18254 .05881 6 0 ] [.5 .05881 -3 -9 ] [.5 .05881 3 0 ] [.65873 .05881 -3 -9 ] [.65873 .05881 3 0 ] [.81746 .05881 -3 -9 ] [.81746 .05881 3 0 ] [.97619 .05881 -3 -9 ] [.97619 .05881 3 0 ] [1.025 .07131 0 -6 ] [1.025 .07131 10 6 ] [.32877 .19016 -18 -4.5 ] [.32877 .19016 0 4.5 ] [.32877 .30902 -6 -4.5 ] [.32877 .30902 0 4.5 ] [.32877 .42787 -18 -4.5 ] [.32877 .42787 0 4.5 ] [.32877 .54672 -6 -4.5 ] [.32877 .54672 0 4.5 ] [.5 .63053 -107 0 ] [.5 .63053 107 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .07131 m .02381 .07756 L s [(-2)] .02381 .05881 0 1 Mshowa .18254 .07131 m .18254 .07756 L s [(-1)] .18254 .05881 0 1 Mshowa .5 .07131 m .5 .07756 L s [(1)] .5 .05881 0 1 Mshowa .65873 .07131 m .65873 .07756 L s [(2)] .65873 .05881 0 1 Mshowa .81746 .07131 m .81746 .07756 L s [(3)] .81746 .05881 0 1 Mshowa .97619 .07131 m .97619 .07756 L s [(4)] .97619 .05881 0 1 Mshowa .125 Mabswid .05556 .07131 m .05556 .07506 L s .0873 .07131 m .0873 .07506 L s .11905 .07131 m .11905 .07506 L s .15079 .07131 m .15079 .07506 L s .21429 .07131 m .21429 .07506 L s .24603 .07131 m .24603 .07506 L s .27778 .07131 m .27778 .07506 L s .30952 .07131 m .30952 .07506 L s .37302 .07131 m .37302 .07506 L s .40476 .07131 m .40476 .07506 L s .43651 .07131 m .43651 .07506 L s .46825 .07131 m .46825 .07506 L s .53175 .07131 m .53175 .07506 L s .56349 .07131 m .56349 .07506 L s .59524 .07131 m .59524 .07506 L s .62698 .07131 m .62698 .07506 L s .69048 .07131 m .69048 .07506 L s .72222 .07131 m .72222 .07506 L s .75397 .07131 m .75397 .07506 L s .78571 .07131 m .78571 .07506 L s .84921 .07131 m .84921 .07506 L s .88095 .07131 m .88095 .07506 L s .9127 .07131 m .9127 .07506 L s .94444 .07131 m .94444 .07506 L s .25 Mabswid 0 .07131 m 1 .07131 L s gsave 1.025 .07131 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .34127 .19016 m .34752 .19016 L s [(0.5)] .32877 .19016 1 0 Mshowa .34127 .30902 m .34752 .30902 L s [(1)] .32877 .30902 1 0 Mshowa .34127 .42787 m .34752 .42787 L s [(1.5)] .32877 .42787 1 0 Mshowa .34127 .54672 m .34752 .54672 L s [(2)] .32877 .54672 1 0 Mshowa .125 Mabswid .34127 .09508 m .34502 .09508 L s .34127 .11885 m .34502 .11885 L s .34127 .14262 m .34502 .14262 L s .34127 .16639 m .34502 .16639 L s .34127 .21393 m .34502 .21393 L s .34127 .23771 m .34502 .23771 L s .34127 .26148 m .34502 .26148 L s .34127 .28525 m .34502 .28525 L s .34127 .33279 m .34502 .33279 L s .34127 .35656 m .34502 .35656 L s .34127 .38033 m .34502 .38033 L s .34127 .4041 m .34502 .4041 L s .34127 .45164 m .34502 .45164 L s .34127 .47541 m .34502 .47541 L s .34127 .49918 m .34502 .49918 L s .34127 .52295 m .34502 .52295 L s .34127 .04754 m .34502 .04754 L s .34127 .02377 m .34502 .02377 L s .34127 .57049 m .34502 .57049 L s .34127 .59426 m .34502 .59426 L s .25 Mabswid .34127 0 m .34127 .61803 L s gsave .5 .63053 -168 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Powers) show 105.000 13.000 moveto (of) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 123.000 13.000 moveto (H) show 129.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 141.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 159.000 13.000 moveto (L) show 171.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (centered) show 225.000 13.000 moveto (at) show 243.000 13.000 moveto (x) show 255.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 267.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 273.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .30902 m .06244 .33969 L .10458 .37687 L .14415 .41443 L .18221 .45132 L .22272 .48854 L .26171 .51863 L .28302 .53124 L .29279 .53589 L .30316 .53997 L .31266 .54289 L .3177 .54412 L .32313 .54518 L .32568 .54558 L .3281 .54591 L .33046 .54617 L .33265 .54637 L .33471 .54652 L .33577 .54658 L .33691 .54663 L .33817 .54668 L .33936 .54671 L .34051 .54672 L .34157 .54672 L .34283 .54671 L .34403 .54669 L .3451 .54665 L .34627 .5466 L .34754 .54654 L .34888 .54645 L .3513 .54625 L .35563 .54575 L .36039 .545 L .36552 .54396 L .37105 .54257 L .38106 .53937 L .4011 .53042 L .4222 .51771 L .46031 .48812 L .50087 .45081 L .53991 .41296 L .58141 .3737 L .62139 .33861 L .65986 .30817 L .70078 .2796 L .74018 .25565 L .77807 .23564 L .81841 .21719 L .85723 .20186 L .89851 .1878 L Mistroke .93827 .17611 L .97619 .16639 L Mfstroke 1 0 0 r .01 w .065 0 m .06754 .06503 L .07295 .17298 L .07757 .24485 L .08265 .30648 L .0881 .35613 L .09111 .37755 L .09397 .39463 L .09662 .40794 L .09951 .42008 L .10458 .43633 L .10713 .44249 L .10989 .4479 L .11233 .45174 L .1149 .45499 L .11722 .4573 L .11977 .45928 L .12209 .46064 L .12425 .46159 L .12556 .46204 L .12697 .46243 L .12831 .46273 L .12955 .46293 L .13066 .46308 L .13189 .46319 L .13317 .46327 L .13437 .46331 L .13501 .46332 L .1357 .46333 L .13643 .46332 L .1371 .46331 L .13831 .46328 L .1396 .46322 L .14523 .4629 L .14781 .46276 L .14923 .46269 L .15055 .46265 L .15168 .46261 L .15289 .46259 L .15358 .46259 L .15424 .46259 L .15547 .4626 L .15617 .46261 L .1568 .46263 L .15754 .46265 L .15822 .46268 L .15945 .46275 L .16078 .46285 L .1638 .46316 L .16657 .46357 L Mistroke .17125 .46451 L .17638 .46591 L .18672 .46988 L .19695 .4751 L .20627 .48073 L .2272 .49513 L .24794 .50991 L .2671 .52247 L .28691 .53329 L .30548 .54079 L .31448 .54338 L .31912 .54443 L .32418 .54536 L .32943 .54607 L .33229 .54635 L .33365 .54645 L .33494 .54654 L .33614 .5466 L .33744 .54666 L .33862 .54669 L .33971 .54671 L .34089 .54672 L .34218 .54672 L .34284 .54671 L .34353 .5467 L .3448 .54666 L .34601 .54662 L .34735 .54655 L .35007 .54636 L .35259 .54612 L .35495 .54584 L .36027 .54503 L .36601 .54385 L .3765 .54094 L .38613 .53742 L .40503 .52829 L .42572 .5153 L .46625 .48293 L .50526 .44658 L .54673 .40638 L .58667 .3689 L .62511 .33552 L .666 .30364 L .70537 .27655 L .74322 .25293 L .76428 .23918 L .78353 .22344 L .79304 .21306 L .80342 .19817 L .81322 .17885 L Mistroke .82232 .15409 L .8274 .13634 L .8329 .11307 L .83774 .08829 L .84286 .05686 L Mfstroke .84286 .05686 m .84988 0 L s 0 0 1 r .04 w .5 .07131 Mdot 0 g gsave .5 .07131 -108 2 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (expansion) show 123.000 13.000 moveto (point) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["Again:", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[approx];\)\), "\n", \(\(approx[x_] = Normal[Series[f[x], {x, b, 18}]];\)\n\), "\n", \(\(Plot[{f[x], approx[x]}, {x, b - 3, b + 3}, \n\t PlotStyle \[Rule] {{Thickness[0.02], Blue}, {Thickness[0.01], Red}}, AspectRatio \[Rule] 1\/GoldenRatio, PlotRange \[Rule] {\(-0.3\), 2.3}, AxesLabel \[Rule] {"\", "\<\>"}, PlotLabel \[Rule] "\", Epilog \[Rule] {{Blue, PointSize[0.04], Point[{b, 0}]}, Text["\", {b, 0}, {0, \(-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.34127 0.15873 0.0713116 0.237705 [ [.02381 .05881 -6 -9 ] [.02381 .05881 6 0 ] [.18254 .05881 -6 -9 ] [.18254 .05881 6 0 ] [.5 .05881 -3 -9 ] [.5 .05881 3 0 ] [.65873 .05881 -3 -9 ] [.65873 .05881 3 0 ] [.81746 .05881 -3 -9 ] [.81746 .05881 3 0 ] [.97619 .05881 -3 -9 ] [.97619 .05881 3 0 ] [1.025 .07131 0 -6 ] [1.025 .07131 10 6 ] [.32877 .19016 -18 -4.5 ] [.32877 .19016 0 4.5 ] [.32877 .30902 -6 -4.5 ] [.32877 .30902 0 4.5 ] [.32877 .42787 -18 -4.5 ] [.32877 .42787 0 4.5 ] [.32877 .54672 -6 -4.5 ] [.32877 .54672 0 4.5 ] [.5 .63053 -107 0 ] [.5 .63053 107 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .07131 m .02381 .07756 L s [(-2)] .02381 .05881 0 1 Mshowa .18254 .07131 m .18254 .07756 L s [(-1)] .18254 .05881 0 1 Mshowa .5 .07131 m .5 .07756 L s [(1)] .5 .05881 0 1 Mshowa .65873 .07131 m .65873 .07756 L s [(2)] .65873 .05881 0 1 Mshowa .81746 .07131 m .81746 .07756 L s [(3)] .81746 .05881 0 1 Mshowa .97619 .07131 m .97619 .07756 L s [(4)] .97619 .05881 0 1 Mshowa .125 Mabswid .05556 .07131 m .05556 .07506 L s .0873 .07131 m .0873 .07506 L s .11905 .07131 m .11905 .07506 L s .15079 .07131 m .15079 .07506 L s .21429 .07131 m .21429 .07506 L s .24603 .07131 m .24603 .07506 L s .27778 .07131 m .27778 .07506 L s .30952 .07131 m .30952 .07506 L s .37302 .07131 m .37302 .07506 L s .40476 .07131 m .40476 .07506 L s .43651 .07131 m .43651 .07506 L s .46825 .07131 m .46825 .07506 L s .53175 .07131 m .53175 .07506 L s .56349 .07131 m .56349 .07506 L s .59524 .07131 m .59524 .07506 L s .62698 .07131 m .62698 .07506 L s .69048 .07131 m .69048 .07506 L s .72222 .07131 m .72222 .07506 L s .75397 .07131 m .75397 .07506 L s .78571 .07131 m .78571 .07506 L s .84921 .07131 m .84921 .07506 L s .88095 .07131 m .88095 .07506 L s .9127 .07131 m .9127 .07506 L s .94444 .07131 m .94444 .07506 L s .25 Mabswid 0 .07131 m 1 .07131 L s gsave 1.025 .07131 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .34127 .19016 m .34752 .19016 L s [(0.5)] .32877 .19016 1 0 Mshowa .34127 .30902 m .34752 .30902 L s [(1)] .32877 .30902 1 0 Mshowa .34127 .42787 m .34752 .42787 L s [(1.5)] .32877 .42787 1 0 Mshowa .34127 .54672 m .34752 .54672 L s [(2)] .32877 .54672 1 0 Mshowa .125 Mabswid .34127 .09508 m .34502 .09508 L s .34127 .11885 m .34502 .11885 L s .34127 .14262 m .34502 .14262 L s .34127 .16639 m .34502 .16639 L s .34127 .21393 m .34502 .21393 L s .34127 .23771 m .34502 .23771 L s .34127 .26148 m .34502 .26148 L s .34127 .28525 m .34502 .28525 L s .34127 .33279 m .34502 .33279 L s .34127 .35656 m .34502 .35656 L s .34127 .38033 m .34502 .38033 L s .34127 .4041 m .34502 .4041 L s .34127 .45164 m .34502 .45164 L s .34127 .47541 m .34502 .47541 L s .34127 .49918 m .34502 .49918 L s .34127 .52295 m .34502 .52295 L s .34127 .04754 m .34502 .04754 L s .34127 .02377 m .34502 .02377 L s .34127 .57049 m .34502 .57049 L s .34127 .59426 m .34502 .59426 L s .25 Mabswid .34127 0 m .34127 .61803 L s gsave .5 .63053 -168 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Powers) show 105.000 13.000 moveto (of) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 123.000 13.000 moveto (H) show 129.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 141.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 159.000 13.000 moveto (L) show 171.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (centered) show 225.000 13.000 moveto (at) show 243.000 13.000 moveto (x) show 255.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 267.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 273.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .30902 m .06244 .33969 L .10458 .37687 L .14415 .41443 L .18221 .45132 L .22272 .48854 L .26171 .51863 L .28302 .53124 L .29279 .53589 L .30316 .53997 L .31266 .54289 L .3177 .54412 L .32313 .54518 L .32568 .54558 L .3281 .54591 L .33046 .54617 L .33265 .54637 L .33471 .54652 L .33577 .54658 L .33691 .54663 L .33817 .54668 L .33936 .54671 L .34051 .54672 L .34157 .54672 L .34283 .54671 L .34403 .54669 L .3451 .54665 L .34627 .5466 L .34754 .54654 L .34888 .54645 L .3513 .54625 L .35563 .54575 L .36039 .545 L .36552 .54396 L .37105 .54257 L .38106 .53937 L .4011 .53042 L .4222 .51771 L .46031 .48812 L .50087 .45081 L .53991 .41296 L .58141 .3737 L .62139 .33861 L .65986 .30817 L .70078 .2796 L .74018 .25565 L .77807 .23564 L .81841 .21719 L .85723 .20186 L .89851 .1878 L Mistroke .93827 .17611 L .97619 .16639 L Mfstroke 1 0 0 r .01 w .15763 .61803 m .16056 .59062 L .16628 .55211 L .17125 .52816 L .17589 .51197 L .17856 .50485 L .18099 .49952 L .18358 .4949 L .18645 .49092 L .18893 .48829 L .19126 .48642 L .19371 .48499 L .1951 .48441 L .19636 .48401 L .19747 .48374 L .1985 .48357 L .19963 .48346 L .20083 .48342 L .2021 .48346 L .2033 .48357 L .20437 .48373 L .20553 .48396 L .20803 .48462 L .21078 .4856 L .21634 .4882 L .22629 .49423 L .26663 .52194 L .28521 .53237 L .29502 .53685 L .30546 .54075 L .31122 .5425 L .31645 .54383 L .32176 .54493 L .32663 .54571 L .32901 .54601 L .33161 .54628 L .33423 .54649 L .33566 .54657 L .33699 .54664 L .33826 .54668 L .33945 .54671 L .34053 .54672 L .3417 .54672 L .34297 .54671 L .34361 .5467 L .34432 .54668 L .34556 .54664 L .34674 .54658 L .34918 .54643 L .35145 .54623 L Mistroke .35659 .54562 L .36161 .54478 L .36696 .54363 L .37667 .54088 L .38547 .53768 L .4047 .52847 L .42551 .51545 L .46648 .48272 L .50594 .44593 L .54387 .40913 L .58427 .37109 L .62314 .33715 L .66447 .30476 L .70429 .27733 L .74258 .25436 L .76194 .24409 L .77223 .23911 L .78333 .23432 L .78847 .23239 L .79388 .23062 L .7985 .2294 L .80115 .22884 L .80356 .22844 L .80473 .22828 L .80601 .22815 L .80721 .22806 L .80832 .22801 L .80949 .22798 L .81079 .228 L .81144 .22803 L .81214 .22808 L .8134 .2282 L .81458 .22835 L .81586 .22858 L .81819 .22917 L .82046 .22996 L .82257 .23092 L .82521 .23246 L .82765 .23427 L .83027 .23668 L .83314 .23996 L .83799 .2473 L .8431 .2581 L .84775 .27137 L .85273 .29025 L .85743 .31365 L .86172 .34086 L .86653 .37977 L .87164 .43314 L .876 .49094 L Mistroke .88082 .57096 L Mfstroke .88082 .57096 m .88304 .61803 L s 0 0 1 r .04 w .5 .07131 Mdot 0 g gsave .5 .07131 -108 2 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (expansion) show 123.000 13.000 moveto (point) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["\<\ No matter what you do, you seem to run up against barriers on the \ left and the right.\ \>", "Text"], Cell["Go ahead and play by using more and more of the expansion. ", "Special2"], Cell[CellGroupData[{ Cell["Where are the precise locations of these barriers?", "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "The function is \n ", Cell[BoxData[ \(f[x] = 8\/\(4\ + \ x\^2\)\)]], ". \nThe function has a complex singularity when its denominator is ", Cell[BoxData[ \(0\)]], ": " }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[z];\)\), "\n", \(Denominator[f[z]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(4 + z\^2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(singularities = Simplify[Solve[Denominator[f[z]] == 0, z]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{z \[Rule] \(-2\)\ \[ImaginaryI]}, {z \[Rule] 2\ \[ImaginaryI]}}\)], "Output"] }, Open ]], Cell[TextData[{ "The complex singularities are \n ", Cell[BoxData[ \(2\ I\)]], " and ", Cell[BoxData[ \(\(-\ 2\)\ I\)]], ".\nPlot \n ", Cell[BoxData[ \({0, 2}\)]], " and ", Cell[BoxData[ \({0, \ \(-2\)}\)]], " \ntogether with the center of the plotting interval \n ", Cell[BoxData[ \({b, 0}\ = \ {1, 0}\)]], ": " }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(sing1 = {0, 2};\)\), "\n", \(\(sing2 = {0, \(-2\)};\)\), "\n", \(\(center = {b, 0};\)\n\), "\n", \(\(points = {Graphics[{Red, PointSize[0.04], Point[sing1]}], Graphics[{Red, PointSize[0.04], Point[sing2]}], Graphics[{Blue, PointSize[0.04], Point[center]}]};\)\n\), "\n", \(\(labels = {Graphics[Text["\", sing1]], Graphics[Text["\", sing2]], Graphics[Text["\", center]]};\)\n\), "\n", \(\(Show[points, labels, Axes \[Rule] True, PlotRange \[Rule] All, AspectRatio \[Rule] 1\/GoldenRatio];\)\)}], "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.0238095 0.952381 0.309017 0.147151 [ [.21429 .29652 -9 -9 ] [.21429 .29652 9 0 ] [.40476 .29652 -9 -9 ] [.40476 .29652 9 0 ] [.59524 .29652 -9 -9 ] [.59524 .29652 9 0 ] [.78571 .29652 -9 -9 ] [.78571 .29652 9 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [.01131 .01472 -12 -4.5 ] [.01131 .01472 0 4.5 ] [.01131 .16187 -12 -4.5 ] [.01131 .16187 0 4.5 ] [.01131 .45617 -6 -4.5 ] [.01131 .45617 0 4.5 ] [.01131 .60332 -6 -4.5 ] [.01131 .60332 0 4.5 ] [.02381 .60332 -14 -6 ] [.02381 .60332 14 6 ] [.02381 .01472 -14 -6 ] [.02381 .01472 14 6 ] [.97619 .30902 -20 -6 ] [.97619 .30902 20 6 ] [ 0 -0.00528 0 0 ] [ 1 .62332 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .30902 m .21429 .31527 L s [(0.2)] .21429 .29652 0 1 Mshowa .40476 .30902 m .40476 .31527 L s [(0.4)] .40476 .29652 0 1 Mshowa .59524 .30902 m .59524 .31527 L s [(0.6)] .59524 .29652 0 1 Mshowa .78571 .30902 m .78571 .31527 L s [(0.8)] .78571 .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 .2619 .30902 m .2619 .31277 L s .30952 .30902 m .30952 .31277 L s .35714 .30902 m .35714 .31277 L s .45238 .30902 m .45238 .31277 L s .5 .30902 m .5 .31277 L s .54762 .30902 m .54762 .31277 L s .64286 .30902 m .64286 .31277 L s .69048 .30902 m .69048 .31277 L s .7381 .30902 m .7381 .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 .02381 .01472 m .03006 .01472 L s [(-2)] .01131 .01472 1 0 Mshowa .02381 .16187 m .03006 .16187 L s [(-1)] .01131 .16187 1 0 Mshowa .02381 .45617 m .03006 .45617 L s [(1)] .01131 .45617 1 0 Mshowa .02381 .60332 m .03006 .60332 L s [(2)] .01131 .60332 1 0 Mshowa .125 Mabswid .02381 .04415 m .02756 .04415 L s .02381 .07358 m .02756 .07358 L s .02381 .10301 m .02756 .10301 L s .02381 .13244 m .02756 .13244 L s .02381 .1913 m .02756 .1913 L s .02381 .22073 m .02756 .22073 L s .02381 .25016 m .02756 .25016 L s .02381 .27959 m .02756 .27959 L s .02381 .33845 m .02756 .33845 L s .02381 .36788 m .02756 .36788 L s .02381 .39731 m .02756 .39731 L s .02381 .42674 m .02756 .42674 L s .02381 .4856 m .02756 .4856 L s .02381 .51503 m .02756 .51503 L s .02381 .54446 m .02756 .54446 L s .02381 .57389 m .02756 .57389 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .04 w .02381 .60332 Mdot .02381 .01472 Mdot 0 0 1 r .97619 .30902 Mdot 0 g gsave .02381 .60332 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .02381 .01472 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .97619 .30902 -81 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (center) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["\<\ Run line segments from the center of the plotting interval to each \ singularity:\ \>", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(lines = {Graphics[ Line[{center, sing1}]], \n\t\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \tGraphics[ Line[{center, sing2}]]};\)\n\), "\n", \(\(Show[points, lines, labels, Axes \[Rule] True, PlotRange \[Rule] All];\)\)}], "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.0238095 0.952381 0.309017 0.147151 [ [.21429 .29652 -9 -9 ] [.21429 .29652 9 0 ] [.40476 .29652 -9 -9 ] [.40476 .29652 9 0 ] [.59524 .29652 -9 -9 ] [.59524 .29652 9 0 ] [.78571 .29652 -9 -9 ] [.78571 .29652 9 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [.01131 .01472 -12 -4.5 ] [.01131 .01472 0 4.5 ] [.01131 .16187 -12 -4.5 ] [.01131 .16187 0 4.5 ] [.01131 .45617 -6 -4.5 ] [.01131 .45617 0 4.5 ] [.01131 .60332 -6 -4.5 ] [.01131 .60332 0 4.5 ] [.02381 .60332 -14 -6 ] [.02381 .60332 14 6 ] [.02381 .01472 -14 -6 ] [.02381 .01472 14 6 ] [.97619 .30902 -20 -6 ] [.97619 .30902 20 6 ] [ 0 -0.00528 0 0 ] [ 1 .62332 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .30902 m .21429 .31527 L s [(0.2)] .21429 .29652 0 1 Mshowa .40476 .30902 m .40476 .31527 L s [(0.4)] .40476 .29652 0 1 Mshowa .59524 .30902 m .59524 .31527 L s [(0.6)] .59524 .29652 0 1 Mshowa .78571 .30902 m .78571 .31527 L s [(0.8)] .78571 .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 .2619 .30902 m .2619 .31277 L s .30952 .30902 m .30952 .31277 L s .35714 .30902 m .35714 .31277 L s .45238 .30902 m .45238 .31277 L s .5 .30902 m .5 .31277 L s .54762 .30902 m .54762 .31277 L s .64286 .30902 m .64286 .31277 L s .69048 .30902 m .69048 .31277 L s .7381 .30902 m .7381 .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 .02381 .01472 m .03006 .01472 L s [(-2)] .01131 .01472 1 0 Mshowa .02381 .16187 m .03006 .16187 L s [(-1)] .01131 .16187 1 0 Mshowa .02381 .45617 m .03006 .45617 L s [(1)] .01131 .45617 1 0 Mshowa .02381 .60332 m .03006 .60332 L s [(2)] .01131 .60332 1 0 Mshowa .125 Mabswid .02381 .04415 m .02756 .04415 L s .02381 .07358 m .02756 .07358 L s .02381 .10301 m .02756 .10301 L s .02381 .13244 m .02756 .13244 L s .02381 .1913 m .02756 .1913 L s .02381 .22073 m .02756 .22073 L s .02381 .25016 m .02756 .25016 L s .02381 .27959 m .02756 .27959 L s .02381 .33845 m .02756 .33845 L s .02381 .36788 m .02756 .36788 L s .02381 .39731 m .02756 .39731 L s .02381 .42674 m .02756 .42674 L s .02381 .4856 m .02756 .4856 L s .02381 .51503 m .02756 .51503 L s .02381 .54446 m .02756 .54446 L s .02381 .57389 m .02756 .57389 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .04 w .02381 .60332 Mdot .02381 .01472 Mdot 0 0 1 r .97619 .30902 Mdot 0 g .5 Mabswid .97619 .30902 m .02381 .60332 L s .97619 .30902 m .02381 .01472 L s gsave .02381 .60332 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .02381 .01472 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .97619 .30902 -81 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (center) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{72, 44.4375}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["The top line connects the points:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \({center, sing1}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{1, 0}, {0, 2}}\)], "Output"] }, Open ]], Cell["Its length is:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(\@\(\((0 - 1)\)\^2 + \((2 + 0)\)\^2\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(\@5\)], "Output"] }, Open ]], Cell["The bottom line connects the points:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \({center, sing2}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{1, 0}, {0, \(-2\)}}\)], "Output"] }, Open ]], Cell["Its length is:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(\@\(\((0 - 1)\)\^2 + \((\(-2\) + 0)\)\^2\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(\@5\)], "Output"] }, Open ]], Cell[TextData[{ "Both of these line segments are ", Cell[BoxData[ \(\@5\)]], " units long.\nFor this situation, \n ", Cell[BoxData[ \(R\ = \ \@5\)]], " \nis the magic number.\nWhen you expand ", Cell[BoxData[ \(f[x]\)]], " in powers of ", Cell[BoxData[ \(\((x - \ 1)\)\)]], ", then:\n\[Rule] The approximations in powers of ", Cell[BoxData[ \(\((x - \ 1)\)\)]], " will hold up beautifully inside the interval \n ", Cell[BoxData[ \(\((1\ - \ R, 1\ + \ R)\)\ = \ \((1\ - \@5, 1\ + \@5)\)\)]], ", \n\[Rule] But the approximations in powers of ", Cell[BoxData[ \(\((x\ - \ 1)\)\)]], " will break down outside \n ", Cell[BoxData[ \(\([1\ - \ R, \ 1\ + \ R]\)\ = \ \([1\ - \@5, 1\ + \@5]\)\)]], ". \nThis is why you ran into barriers at \n ", Cell[BoxData[ \(x = 1\ - \@5\)]], " and ", Cell[BoxData[ \(x = 1\ + \@5\)]], ". \nTake a look:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(b = 1;\)\), "\n", \(\(R = \@5;\)\), "\n", \(\(leftbarrier = b - R;\)\), "\n", \(\(rightbarrier = b + R;\)\n\), "\n", \(\(Clear[approx];\)\), "\n", \(\(approx[x_] = Normal[Series[f[x], {x, b, 18}]];\)\n\), "\n", \(\(seriousplot = Plot[{f[x], approx[x]}, {x, b - R, b + R}, \n\t\tPlotStyle \[Rule] {{Thickness[0.02], Blue}, {Thickness[0.01], Red}}, AspectRatio \[Rule] 1\/GoldenRatio, PlotRange \[Rule] {\(-0.3\), 2.3}, Epilog \[Rule] {{Blue, PointSize[0.04], Point[{b, 0}]}, Text["\", {b, 0}, {0, \(-2\)}]}, DisplayFunction \[Rule] Identity];\)\n\), "\n", \(\(barriers = {Graphics[{Red, Line[{{leftbarrier, \(-0.3\)}, {leftbarrier, 2.3}}]}], \n\t\tGraphics[{Red, Line[{{rightbarrier, \(-0.3\)}, {rightbarrier, 2.3}}]}]};\)\n\), "\n", \(\(Show[seriousplot, barriers, \n\tAxesLabel \[Rule] {"\", "\<\>"}, PlotLabel \[Rule] "\", DisplayFunction \[Rule] $DisplayFunction];\)\)}], "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.287041 0.212959 0.0713116 0.237705 [ [.07408 .05881 -6 -9 ] [.07408 .05881 6 0 ] [.5 .05881 -3 -9 ] [.5 .05881 3 0 ] [.71296 .05881 -3 -9 ] [.71296 .05881 3 0 ] [.92592 .05881 -3 -9 ] [.92592 .05881 3 0 ] [1.025 .07131 0 -6 ] [1.025 .07131 10 6 ] [.27454 .19016 -18 -4.5 ] [.27454 .19016 0 4.5 ] [.27454 .30902 -6 -4.5 ] [.27454 .30902 0 4.5 ] [.27454 .42787 -18 -4.5 ] [.27454 .42787 0 4.5 ] [.27454 .54672 -6 -4.5 ] [.27454 .54672 0 4.5 ] [.5 .63053 -107 0 ] [.5 .63053 107 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .07408 .07131 m .07408 .07756 L s [(-1)] .07408 .05881 0 1 Mshowa .5 .07131 m .5 .07756 L s [(1)] .5 .05881 0 1 Mshowa .71296 .07131 m .71296 .07756 L s [(2)] .71296 .05881 0 1 Mshowa .92592 .07131 m .92592 .07756 L s [(3)] .92592 .05881 0 1 Mshowa .125 Mabswid .11667 .07131 m .11667 .07506 L s .15927 .07131 m .15927 .07506 L s .20186 .07131 m .20186 .07506 L s .24445 .07131 m .24445 .07506 L s .32963 .07131 m .32963 .07506 L s .37222 .07131 m .37222 .07506 L s .41482 .07131 m .41482 .07506 L s .45741 .07131 m .45741 .07506 L s .54259 .07131 m .54259 .07506 L s .58518 .07131 m .58518 .07506 L s .62778 .07131 m .62778 .07506 L s .67037 .07131 m .67037 .07506 L s .75555 .07131 m .75555 .07506 L s .79814 .07131 m .79814 .07506 L s .84073 .07131 m .84073 .07506 L s .88333 .07131 m .88333 .07506 L s .03149 .07131 m .03149 .07506 L s .96851 .07131 m .96851 .07506 L s .25 Mabswid 0 .07131 m 1 .07131 L s gsave 1.025 .07131 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .28704 .19016 m .29329 .19016 L s [(0.5)] .27454 .19016 1 0 Mshowa .28704 .30902 m .29329 .30902 L s [(1)] .27454 .30902 1 0 Mshowa .28704 .42787 m .29329 .42787 L s [(1.5)] .27454 .42787 1 0 Mshowa .28704 .54672 m .29329 .54672 L s [(2)] .27454 .54672 1 0 Mshowa .125 Mabswid .28704 .09508 m .29079 .09508 L s .28704 .11885 m .29079 .11885 L s .28704 .14262 m .29079 .14262 L s .28704 .16639 m .29079 .16639 L s .28704 .21393 m .29079 .21393 L s .28704 .23771 m .29079 .23771 L s .28704 .26148 m .29079 .26148 L s .28704 .28525 m .29079 .28525 L s .28704 .33279 m .29079 .33279 L s .28704 .35656 m .29079 .35656 L s .28704 .38033 m .29079 .38033 L s .28704 .4041 m .29079 .4041 L s .28704 .45164 m .29079 .45164 L s .28704 .47541 m .29079 .47541 L s .28704 .49918 m .29079 .49918 L s .28704 .52295 m .29079 .52295 L s .28704 .04754 m .29079 .04754 L s .28704 .02377 m .29079 .02377 L s .28704 .57049 m .29079 .57049 L s .28704 .59426 m .29079 .59426 L s .25 Mabswid .28704 0 m .28704 .61803 L s gsave .5 .63053 -168 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Powers) show 105.000 13.000 moveto (of) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 123.000 13.000 moveto (H) show 129.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 141.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 159.000 13.000 moveto (L) show 171.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (centered) show 225.000 13.000 moveto (at) show 243.000 13.000 moveto (x) show 255.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 267.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 273.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .41532 m .06244 .44329 L .10458 .473 L .14415 .49863 L .18221 .51957 L .20342 .52908 L .22272 .53612 L .23233 .539 L .24276 .54164 L .25254 .54362 L .26171 .54505 L .26626 .54559 L .27115 .54606 L .27393 .54627 L .27658 .54644 L .27895 .54655 L .28155 .54664 L .28297 .54668 L .28367 .54669 L .28432 .5467 L .28552 .54672 L .28683 .54672 L .28813 .54672 L .28887 .54671 L .28956 .54671 L .29029 .54669 L .29096 .54668 L .29245 .54665 L .29375 .5466 L .29494 .54656 L .29765 .54643 L .30258 .54609 L .30721 .54566 L .3122 .54507 L .32124 .54368 L .33199 .54149 L .34184 .53898 L .36077 .53289 L .38147 .52445 L .42203 .50333 L .46107 .4787 L .50257 .4498 L .54255 .42091 L .58102 .39332 L .62194 .36509 L .66134 .33956 L .69923 .3168 L .73957 .29463 L .77839 .27528 L .81967 .25674 L Mistroke .85943 .24074 L .89767 .22691 L .93837 .21371 L .97619 .20271 L Mfstroke 1 0 0 r .01 w .0405 .61803 m .04262 .60289 L .0522 .5524 L .05746 .5328 L .06244 .5184 L .06754 .50708 L .07295 .49816 L .07757 .49261 L .08265 .48829 L .0855 .48656 L .0881 .48536 L .08954 .48483 L .09111 .48436 L .0926 .48401 L .09397 .48377 L .09464 .48367 L .09536 .48359 L .09666 .48348 L .09794 .48343 L .09911 .48342 L .10038 .48346 L .1011 .48351 L .10177 .48356 L .10313 .4837 L .10458 .4839 L .10714 .48437 L .10986 .48501 L .11475 .48648 L .12582 .49092 L .14594 .50101 L .18369 .52043 L .20466 .52962 L .22389 .53651 L .24274 .54164 L .25222 .54357 L .25755 .54445 L .26258 .54516 L .26751 .54573 L .27011 .54597 L .27286 .5462 L .27517 .54635 L .27771 .54649 L .28003 .54659 L .28219 .54666 L .28349 .54669 L .28422 .5467 L .2849 .54671 L .28614 .54672 L .28684 .54672 L .28747 .54672 L Mistroke .28866 .54672 L .28995 .5467 L .29117 .54668 L .29229 .54665 L .29481 .54656 L .29757 .54643 L .30046 .54625 L .30314 .54604 L .30817 .54556 L .31362 .54488 L .32354 .54326 L .33319 .54121 L .3421 .53891 L .36081 .53288 L .38142 .52447 L .42168 .50353 L .46042 .47914 L .50161 .45049 L .54129 .42182 L .57945 .39443 L .62006 .36635 L .65916 .34092 L .70071 .31595 L .74074 .29402 L .77926 .27487 L .82023 .25655 L .85969 .24106 L .87952 .2345 L .88819 .23208 L .89763 .22992 L .90282 .22902 L .9051 .22869 L .90763 .2284 L .90877 .22829 L .91 .22819 L .91106 .22812 L .91222 .22806 L .91347 .22801 L .91477 .22799 L .91598 .22799 L .91711 .22801 L .91842 .22806 L .91915 .2281 L .91983 .22814 L .92108 .22825 L .9224 .2284 L .92469 .22873 L .92721 .22924 L .9299 .22995 L .93279 .23093 L Mistroke .93802 .23335 L .94287 .23651 L .94738 .24037 L .95232 .24584 L .95759 .25337 L .96262 .26255 L .96735 .27333 L .97619 .30044 L Mfstroke .5 Mabswid .02381 0 m .02381 .61803 L s .97619 0 m .97619 .61803 L s 0 0 1 r .04 w .5 .07131 Mdot 0 g gsave .5 .07131 -108 2 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (expansion) show 123.000 13.000 moveto (point) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell[TextData[{ "No matter how many terms of the expansion of ", Cell[BoxData[ \(f[x]\)]], " in powers of \n ", Cell[BoxData[ \(\((x - \ 1)\)\)]], " \nyou go with, you will not be able to break the barriers at \n ", Cell[BoxData[ \(x\ = \ 1\ - \@5\)]], " and ", Cell[BoxData[ \(x\ = \ 1\ + \@5\)]], "." }], "SmallText"] }, Closed]], Cell["B.1.c)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Given a function ", Cell[BoxData[ \(f[x]\)]], ", how do you go about finding the barriers for approximating ", Cell[BoxData[ \(f[x]\)]], " with partial expansions in powers of ", Cell[BoxData[ \(\((x\ - \ b)\)\)]], "?" }], "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "You just do it as above, only you do it a bit more carefully.\nFor \ instance, if you are expanding in powers of ", Cell[BoxData[ \(\((x - \ 2)\)\)]], " and your function is:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, x];\)\), "\n", \(f[x_] = 29\/\(x\^4 + x\^3 + 9\ x\^2 + x + 28\)\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(29\/\(28 + x + 9\ x\^2 + x\^3 + x\^4\)\)], "Output"] }, Open ]], Cell["you look at:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(f[z]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(29\/\(28 + z + 9\ z\^2 + z\^3 + z\^4\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(f'\)[z]\)], "Input"], Cell[BoxData[ \(\(-\(\(29\ \((1 + 18\ z + 3\ z\^2 + 4\ z\^3)\)\)\/\((28 + z + 9\ z\^2 + z\^3 + z\^4)\)\^2\)\)\)], \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Together[\(\(f'\)'\)[z]]\)], "Input"], Cell[BoxData[ \(\(58\ \((\(-251\) - 57\ z + 78\ z\^2 + 74\ z\^3 + 87\ z\^4 + 15\ z\^5 + \ 10\ z\^6)\)\)\/\((28 + z + 9\ z\^2 + z\^3 + z\^4)\)\^3\)], "Output"] }, Open ]], Cell[TextData[{ "It becomes clear that the only singularities of ", Cell[BoxData[ \(f[z]\)]], ", or of any of its derivatives, happen when the denominator of ", Cell[BoxData[ \(f[z] = 0\)]], ":" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(Denominator[f[z]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(28 + z + 9\ z\^2 + z\^3 + z\^4\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[Denominator[f[z]] == 0]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{z \[Rule] \(-1\) - \[ImaginaryI]\ \@6}, {z \[Rule] \(-1\) + \ \[ImaginaryI]\ \@6}, {z \[Rule] 1\/2\ \((1 - \[ImaginaryI]\ \@15)\)}, {z \[Rule] 1\/2\ \((1 + \[ImaginaryI]\ \@15)\)}}\)], "Output"] }, Open ]], Cell[TextData[{ "Four complex singularities. \nBecause you are expanding in powers of ", Cell[BoxData[ \(\((x\ - \ 2)\)\)]], ", you go with ", Cell[BoxData[ \(b = 2\)]], " and plot:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(b = 2;\)\), "\n", \(\(sing1 = {1\/2, \@15\/2};\)\), "\n", \(\(sing2 = {1\/2, \(-\(\@15\/2\)\)};\)\), "\n", \(\(sing3 = {\(-\(2\/2\)\), \@24\/2};\)\), "\n", \(\(sing4 = {\(-\(2\/2\)\), \(-\(\@24\/2\)\)};\)\n\), "\n", \(\(center = {b, 0};\)\), "\n", \(\(points = {Graphics[{Red, PointSize[0.04], Point[sing1]}], Graphics[{Red, PointSize[0.04], Point[sing2]}], Graphics[{Red, PointSize[0.04], Point[sing3]}], Graphics[{Red, PointSize[0.04], Point[sing4]}], Graphics[{Blue, PointSize[0.04], Point[center]}]};\)\n\), "\n", \(\(h = 0.25;\)\), "\n", \(\(labels = {Graphics[Text["\", sing1 - {0, h}]], Graphics[Text["\", sing2 + {0, h}]], Graphics[Text["\", sing3 - {0, h}]], Graphics[Text["\", sing4 + {0, h}]], Graphics[Text["\", center + {0, h}]]};\)\n\), "\n", \(\(Show[points, labels, Axes \[Rule] True, PlotRange \[Rule] All, AspectRatio \[Rule] 1\/GoldenRatio];\)\)}], "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.34127 0.31746 0.309017 0.120148 [ [.02381 .29652 -6 -9 ] [.02381 .29652 6 0 ] [.18254 .29652 -12 -9 ] [.18254 .29652 12 0 ] [.5 .29652 -9 -9 ] [.5 .29652 9 0 ] [.65873 .29652 -3 -9 ] [.65873 .29652 3 0 ] [.81746 .29652 -9 -9 ] [.81746 .29652 9 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [.32877 .06872 -12 -4.5 ] [.32877 .06872 0 4.5 ] [.32877 .18887 -12 -4.5 ] [.32877 .18887 0 4.5 ] [.32877 .42917 -6 -4.5 ] [.32877 .42917 0 4.5 ] [.32877 .54931 -6 -4.5 ] [.32877 .54931 0 4.5 ] [.5 .51165 -14 -6 ] [.5 .51165 14 6 ] [.5 .10639 -14 -6 ] [.5 .10639 14 6 ] [.02381 .57328 -14 -6 ] [.02381 .57328 14 6 ] [.02381 .04475 -14 -6 ] [.02381 .04475 14 6 ] [.97619 .33905 -20 -6 ] [.97619 .33905 20 6 ] [ 0 -0.00528 0 0 ] [ 1 .62332 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .30902 m .02381 .31527 L s [(-1)] .02381 .29652 0 1 Mshowa .18254 .30902 m .18254 .31527 L s [(-0.5)] .18254 .29652 0 1 Mshowa .5 .30902 m .5 .31527 L s [(0.5)] .5 .29652 0 1 Mshowa .65873 .30902 m .65873 .31527 L s [(1)] .65873 .29652 0 1 Mshowa .81746 .30902 m .81746 .31527 L s [(1.5)] .81746 .29652 0 1 Mshowa .97619 .30902 m .97619 .31527 L s [(2)] .97619 .29652 0 1 Mshowa .125 Mabswid .05556 .30902 m .05556 .31277 L s .0873 .30902 m .0873 .31277 L s .11905 .30902 m .11905 .31277 L s .15079 .30902 m .15079 .31277 L s .21429 .30902 m .21429 .31277 L s .24603 .30902 m .24603 .31277 L s .27778 .30902 m .27778 .31277 L s .30952 .30902 m .30952 .31277 L s .37302 .30902 m .37302 .31277 L s .40476 .30902 m .40476 .31277 L s .43651 .30902 m .43651 .31277 L s .46825 .30902 m .46825 .31277 L s .53175 .30902 m .53175 .31277 L s .56349 .30902 m .56349 .31277 L s .59524 .30902 m .59524 .31277 L s .62698 .30902 m .62698 .31277 L s .69048 .30902 m .69048 .31277 L s .72222 .30902 m .72222 .31277 L s .75397 .30902 m .75397 .31277 L s .78571 .30902 m .78571 .31277 L s .84921 .30902 m .84921 .31277 L s .88095 .30902 m .88095 .31277 L s .9127 .30902 m .9127 .31277 L s .94444 .30902 m .94444 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s .34127 .06872 m .34752 .06872 L s [(-2)] .32877 .06872 1 0 Mshowa .34127 .18887 m .34752 .18887 L s [(-1)] .32877 .18887 1 0 Mshowa .34127 .42917 m .34752 .42917 L s [(1)] .32877 .42917 1 0 Mshowa .34127 .54931 m .34752 .54931 L s [(2)] .32877 .54931 1 0 Mshowa .125 Mabswid .34127 .09275 m .34502 .09275 L s .34127 .11678 m .34502 .11678 L s .34127 .14081 m .34502 .14081 L s .34127 .16484 m .34502 .16484 L s .34127 .2129 m .34502 .2129 L s .34127 .23693 m .34502 .23693 L s .34127 .26096 m .34502 .26096 L s .34127 .28499 m .34502 .28499 L s .34127 .33305 m .34502 .33305 L s .34127 .35708 m .34502 .35708 L s .34127 .38111 m .34502 .38111 L s .34127 .40514 m .34502 .40514 L s .34127 .45319 m .34502 .45319 L s .34127 .47722 m .34502 .47722 L s .34127 .50125 m .34502 .50125 L s .34127 .52528 m .34502 .52528 L s .34127 .04469 m .34502 .04469 L s .34127 .02066 m .34502 .02066 L s .34127 .57334 m .34502 .57334 L s .34127 .59737 m .34502 .59737 L s .25 Mabswid .34127 0 m .34127 .61803 L s 1 0 0 r .04 w .5 .54168 Mdot .5 .07635 Mdot .02381 .60332 Mdot .02381 .01472 Mdot 0 0 1 r .97619 .30902 Mdot 0 g gsave .5 .51165 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .10639 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .02381 .57328 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .02381 .04475 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .97619 .33905 -81 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (center) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell[TextData[{ "Run line segments from the center ", Cell[BoxData[ \({b, 0}\)]], " of the plotting interval to each singularity:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(lines = {Graphics[Line[{center, sing1}]], \n\t\tGraphics[ Line[{center, sing2}]], \n\t\tGraphics[ Line[{center, sing3}]], \n\t\tGraphics[ Line[{center, sing4}]]};\)\n\), "\n", \(\(Show[points, lines, labels, Axes \[Rule] True, PlotRange \[Rule] All];\)\)}], "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.34127 0.31746 0.309017 0.120148 [ [.02381 .29652 -6 -9 ] [.02381 .29652 6 0 ] [.18254 .29652 -12 -9 ] [.18254 .29652 12 0 ] [.5 .29652 -9 -9 ] [.5 .29652 9 0 ] [.65873 .29652 -3 -9 ] [.65873 .29652 3 0 ] [.81746 .29652 -9 -9 ] [.81746 .29652 9 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [.32877 .06872 -12 -4.5 ] [.32877 .06872 0 4.5 ] [.32877 .18887 -12 -4.5 ] [.32877 .18887 0 4.5 ] [.32877 .42917 -6 -4.5 ] [.32877 .42917 0 4.5 ] [.32877 .54931 -6 -4.5 ] [.32877 .54931 0 4.5 ] [.5 .51165 -14 -6 ] [.5 .51165 14 6 ] [.5 .10639 -14 -6 ] [.5 .10639 14 6 ] [.02381 .57328 -14 -6 ] [.02381 .57328 14 6 ] [.02381 .04475 -14 -6 ] [.02381 .04475 14 6 ] [.97619 .33905 -20 -6 ] [.97619 .33905 20 6 ] [ 0 -0.00528 0 0 ] [ 1 .62332 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .30902 m .02381 .31527 L s [(-1)] .02381 .29652 0 1 Mshowa .18254 .30902 m .18254 .31527 L s [(-0.5)] .18254 .29652 0 1 Mshowa .5 .30902 m .5 .31527 L s [(0.5)] .5 .29652 0 1 Mshowa .65873 .30902 m .65873 .31527 L s [(1)] .65873 .29652 0 1 Mshowa .81746 .30902 m .81746 .31527 L s [(1.5)] .81746 .29652 0 1 Mshowa .97619 .30902 m .97619 .31527 L s [(2)] .97619 .29652 0 1 Mshowa .125 Mabswid .05556 .30902 m .05556 .31277 L s .0873 .30902 m .0873 .31277 L s .11905 .30902 m .11905 .31277 L s .15079 .30902 m .15079 .31277 L s .21429 .30902 m .21429 .31277 L s .24603 .30902 m .24603 .31277 L s .27778 .30902 m .27778 .31277 L s .30952 .30902 m .30952 .31277 L s .37302 .30902 m .37302 .31277 L s .40476 .30902 m .40476 .31277 L s .43651 .30902 m .43651 .31277 L s .46825 .30902 m .46825 .31277 L s .53175 .30902 m .53175 .31277 L s .56349 .30902 m .56349 .31277 L s .59524 .30902 m .59524 .31277 L s .62698 .30902 m .62698 .31277 L s .69048 .30902 m .69048 .31277 L s .72222 .30902 m .72222 .31277 L s .75397 .30902 m .75397 .31277 L s .78571 .30902 m .78571 .31277 L s .84921 .30902 m .84921 .31277 L s .88095 .30902 m .88095 .31277 L s .9127 .30902 m .9127 .31277 L s .94444 .30902 m .94444 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s .34127 .06872 m .34752 .06872 L s [(-2)] .32877 .06872 1 0 Mshowa .34127 .18887 m .34752 .18887 L s [(-1)] .32877 .18887 1 0 Mshowa .34127 .42917 m .34752 .42917 L s [(1)] .32877 .42917 1 0 Mshowa .34127 .54931 m .34752 .54931 L s [(2)] .32877 .54931 1 0 Mshowa .125 Mabswid .34127 .09275 m .34502 .09275 L s .34127 .11678 m .34502 .11678 L s .34127 .14081 m .34502 .14081 L s .34127 .16484 m .34502 .16484 L s .34127 .2129 m .34502 .2129 L s .34127 .23693 m .34502 .23693 L s .34127 .26096 m .34502 .26096 L s .34127 .28499 m .34502 .28499 L s .34127 .33305 m .34502 .33305 L s .34127 .35708 m .34502 .35708 L s .34127 .38111 m .34502 .38111 L s .34127 .40514 m .34502 .40514 L s .34127 .45319 m .34502 .45319 L s .34127 .47722 m .34502 .47722 L s .34127 .50125 m .34502 .50125 L s .34127 .52528 m .34502 .52528 L s .34127 .04469 m .34502 .04469 L s .34127 .02066 m .34502 .02066 L s .34127 .57334 m .34502 .57334 L s .34127 .59737 m .34502 .59737 L s .25 Mabswid .34127 0 m .34127 .61803 L s 1 0 0 r .04 w .5 .54168 Mdot .5 .07635 Mdot .02381 .60332 Mdot .02381 .01472 Mdot 0 0 1 r .97619 .30902 Mdot 0 g .5 Mabswid .97619 .30902 m .5 .54168 L s .97619 .30902 m .5 .07635 L s .97619 .30902 m .02381 .60332 L s .97619 .30902 m .02381 .01472 L s gsave .5 .51165 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .10639 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .02381 .57328 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .02381 .04475 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sing) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .97619 .33905 -81 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (center) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{176.125, 108.875}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["\<\ Now calculate the lengths of these lines. One line connects:\ \>", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \({center, sing1}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{2, 0}, {1\/2, \@15\/2}}\)], "Output"] }, Open ]], Cell["Its length is:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(length1 = \@\(\((1\/2 - 2)\)\^2 + \((\@15\/2 + 0)\)\^2\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(\@6\)], "Output"] }, Open ]], Cell["Another line connects:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \({center, sing2}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{2, 0}, {1\/2, \(-\(\@15\/2\)\)}}\)], "Output"] }, Open ]], Cell["Its length is:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(length2 = \@\(\((1\/2 - 2)\)\^2 + \((\(-\(\@15\/2\)\) + 0)\)\^2\)\)], \ "Input", AspectRatioFixed->True], Cell[BoxData[ \(\@6\)], "Output"] }, Open ]], Cell["Another line connects:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \({center, sing3}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{2, 0}, {\(-1\), \@6}}\)], "Output"] }, Open ]], Cell["Its length is:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(length3 = \@\(\((\(-1\) - 2)\)\^2 + \((\@6 + 0)\)\^2\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(\@15\)], "Output"] }, Open ]], Cell["The fourth line connects:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \({center, sing4}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({{2, 0}, {\(-1\), \(-\@6\)}}\)], "Output"] }, Open ]], Cell["Its length is:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(length4 = \@\(\((\(-1\) - 2)\)\^2 + \((\(-\@6\) + 0)\)\^2\)\)], "Input",\ AspectRatioFixed->True], Cell[BoxData[ \(\@15\)], "Output"] }, Open ]], Cell["Now look at:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \({length1, length2, length3, length4}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({\@6, \@6, \@15, \@15}\)], "Output"] }, Open ]], Cell["Or:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(N[{length1, length2, length3, length4}]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({2.449489742783178`, 2.449489742783178`, 3.872983346207417`, 3.872983346207417`}\)], "Output"] }, Open ]], Cell[TextData[{ "The smallest of these numbers is ", Cell[BoxData[ \(\@6\)]], ". \n", Cell[BoxData[ \(R\ = \ \@6\)]], " is the magic number for this situation. \nThis tells you that the \ expansion of ", Cell[BoxData[ \(f[x]\)]], " in powers of ", Cell[BoxData[ \(\((x\ - \ 2)\)\)]], " will do a good job inside \n ", Cell[BoxData[ \(\((2\ - \ R, \ 2\ + \ R)\)\ = \ \((2\ - \@6, 2\ + \@6)\)\)]], "\nThis also says that the expansion of ", Cell[BoxData[ \(f[x]\)]], " in powers of ", Cell[BoxData[ \(\((x\ - \ 2)\)\)]], " will freak out outside the interval \n ", Cell[BoxData[ \(\([2\ - \ R, 2\ + \ R]\)\ = \ \([2\ - \@6, 2\ + \@6]\)\)]], ".\nWhy?\nBecause the barriers are at \n ", Cell[BoxData[ \(x\ = \ \(2\ - \ R\ = \ 2\ - \ \@6\)\)]], " \nand \n ", Cell[BoxData[ \(x\ = \ \(2\ + \ R\ = \ 2\ + \ \@6\)\)]], ".\nSee it now: " }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(b = 2;\)\), "\n", \(\(R = \@6;\)\), "\n", \(\(leftbarrier = b - R;\)\), "\n", \(\(rightbarrier = b + R;\)\n\), "\n", \(\(Clear[approx];\)\), "\n", \(\(approx[x_] = Normal[Series[f[x], {x, b, 18}]];\)\), "\n", \(\(seriousplot = Plot[{f[x], approx[x]}, {x, b - R, b + R}, PlotStyle \[Rule] {{Thickness[0.02], Blue}, {Thickness[0.01], Red}}, PlotRange \[Rule] {\(-0.3\), 2.3}, Epilog \[Rule] {{Blue, PointSize[0.04], Point[{b, 0}]}, Text["\", {b, 0}, {0, \(-2\)}]}, DisplayFunction \[Rule] Identity];\)\n\), "\n", \(\(barriers = {Graphics[{Red, Line[{{leftbarrier, \(-0.3\)}, {leftbarrier, 1.5}}]}], Graphics[{Red, Line[{{rightbarrier, \(-0.3\)}, {rightbarrier, 1.5}}]}]};\)\n\), "\n", \(\(Show[seriousplot, barriers, \n\tAxesLabel \[Rule] {"\", "\<\>"}, AspectRatio \[Rule] 1\/GoldenRatio, PlotLabel \[Rule] "\", PlotRange \[Rule] {\(-0.3\), 1.5}, DisplayFunction \[Rule] $DisplayFunction];\)\)}], "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.111192 0.194404 0.103006 0.343352 [ [.3056 .09051 -3 -9 ] [.3056 .09051 3 0 ] [.5 .09051 -3 -9 ] [.5 .09051 3 0 ] [.6944 .09051 -3 -9 ] [.6944 .09051 3 0 ] [.88881 .09051 -3 -9 ] [.88881 .09051 3 0 ] [1.025 .10301 0 -6 ] [1.025 .10301 10 6 ] [.09869 .01717 -30 -4.5 ] [.09869 .01717 0 4.5 ] [.09869 .18884 -24 -4.5 ] [.09869 .18884 0 4.5 ] [.09869 .27468 -18 -4.5 ] [.09869 .27468 0 4.5 ] [.09869 .36052 -24 -4.5 ] [.09869 .36052 0 4.5 ] [.09869 .44636 -6 -4.5 ] [.09869 .44636 0 4.5 ] [.09869 .5322 -24 -4.5 ] [.09869 .5322 0 4.5 ] [.09869 .61803 -18 -4.5 ] [.09869 .61803 0 4.5 ] [.5 .63053 -107 0 ] [.5 .63053 107 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .3056 .10301 m .3056 .10926 L s [(1)] .3056 .09051 0 1 Mshowa .5 .10301 m .5 .10926 L s [(2)] .5 .09051 0 1 Mshowa .6944 .10301 m .6944 .10926 L s [(3)] .6944 .09051 0 1 Mshowa .88881 .10301 m .88881 .10926 L s [(4)] .88881 .09051 0 1 Mshowa .125 Mabswid .15007 .10301 m .15007 .10676 L s .18895 .10301 m .18895 .10676 L s .22783 .10301 m .22783 .10676 L s .26672 .10301 m .26672 .10676 L s .34448 .10301 m .34448 .10676 L s .38336 .10301 m .38336 .10676 L s .42224 .10301 m .42224 .10676 L s .46112 .10301 m .46112 .10676 L s .53888 .10301 m .53888 .10676 L s .57776 .10301 m .57776 .10676 L s .61664 .10301 m .61664 .10676 L s .65552 .10301 m .65552 .10676 L s .73328 .10301 m .73328 .10676 L s .77217 .10301 m .77217 .10676 L s .81105 .10301 m .81105 .10676 L s .84993 .10301 m .84993 .10676 L s .07231 .10301 m .07231 .10676 L s .03343 .10301 m .03343 .10676 L s .92769 .10301 m .92769 .10676 L s .96657 .10301 m .96657 .10676 L s .25 Mabswid 0 .10301 m 1 .10301 L s gsave 1.025 .10301 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .11119 .01717 m .11744 .01717 L s [(-0.25)] .09869 .01717 1 0 Mshowa .11119 .18884 m .11744 .18884 L s [(0.25)] .09869 .18884 1 0 Mshowa .11119 .27468 m .11744 .27468 L s [(0.5)] .09869 .27468 1 0 Mshowa .11119 .36052 m .11744 .36052 L s [(0.75)] .09869 .36052 1 0 Mshowa .11119 .44636 m .11744 .44636 L s [(1)] .09869 .44636 1 0 Mshowa .11119 .5322 m .11744 .5322 L s [(1.25)] .09869 .5322 1 0 Mshowa .11119 .61803 m .11744 .61803 L s [(1.5)] .09869 .61803 1 0 Mshowa .125 Mabswid .11119 .03434 m .11494 .03434 L s .11119 .0515 m .11494 .0515 L s .11119 .06867 m .11494 .06867 L s .11119 .08584 m .11494 .08584 L s .11119 .12017 m .11494 .12017 L s .11119 .13734 m .11494 .13734 L s .11119 .15451 m .11494 .15451 L s .11119 .17168 m .11494 .17168 L s .11119 .20601 m .11494 .20601 L s .11119 .22318 m .11494 .22318 L s .11119 .24035 m .11494 .24035 L s .11119 .25751 m .11494 .25751 L s .11119 .29185 m .11494 .29185 L s .11119 .30902 m .11494 .30902 L s .11119 .32618 m .11494 .32618 L s .11119 .34335 m .11494 .34335 L s .11119 .37769 m .11494 .37769 L s .11119 .39486 m .11494 .39486 L s .11119 .41202 m .11494 .41202 L s .11119 .42919 m .11494 .42919 L s .11119 .46353 m .11494 .46353 L s .11119 .48069 m .11494 .48069 L s .11119 .49786 m .11494 .49786 L s .11119 .51503 m .11494 .51503 L s .11119 .54936 m .11494 .54936 L s .11119 .56653 m .11494 .56653 L s .11119 .5837 m .11494 .5837 L s .11119 .60087 m .11494 .60087 L s .25 Mabswid .11119 0 m .11119 .61803 L s gsave .5 .63053 -168 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Powers) show 105.000 13.000 moveto (of) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 123.000 13.000 moveto (H) show 129.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 141.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (2) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 159.000 13.000 moveto (L) show 171.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (centered) show 225.000 13.000 moveto (at) show 243.000 13.000 moveto (x) show 255.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 267.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (2) show 273.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .44262 m .04262 .44948 L .0522 .45231 L .06244 .45481 L .0679 .45591 L .07286 .45677 L .0779 .4575 L .08255 .45805 L .08798 .45853 L .09084 .45871 L .0923 .45879 L .09388 .45885 L .09525 .4589 L .09651 .45893 L .09777 .45896 L .09897 .45897 L .09964 .45897 L .10036 .45898 L .10165 .45897 L .10244 .45896 L .10319 .45895 L .10386 .45894 L .10458 .45892 L .10695 .45884 L .10828 .45879 L .1095 .45872 L .11409 .45841 L .11665 .45817 L .11944 .45788 L .12452 .45721 L .13546 .45526 L .14558 .45281 L .16425 .44672 L .18485 .43775 L .22505 .41425 L .26374 .38597 L .30488 .35253 L .3445 .31963 L .38261 .28926 L .42317 .25969 L .46222 .2346 L .50372 .21175 L .5437 .19329 L .58216 .17849 L .62308 .16549 L .66249 .15522 L .70037 .14708 L .74071 .13995 L .77954 .1343 L .82081 .12937 L Mistroke .86057 .12545 L .89882 .12231 L .93952 .11953 L .97619 .11742 L Mfstroke 1 0 0 r .01 w .02381 .57243 m .03279 .54141 L .04262 .51674 L .04758 .50719 L .05288 .49871 L .06244 .48703 L .06788 .48203 L .07379 .47763 L .08451 .47168 L .09494 .46759 L .10458 .46466 L .1249 .45945 L .14393 .45417 L .18177 .43936 L .20201 .42864 L .22054 .41725 L .26025 .38869 L .29844 .35788 L .33908 .32408 L .37821 .29265 L .4198 .26202 L .45986 .23601 L .49841 .21446 L .53942 .19511 L .5789 .17964 L .61688 .1673 L .6573 .15646 L .69621 .1479 L .73757 .14045 L .77742 .13458 L .81574 .12985 L .83513 .12765 L .85653 .12511 L .86627 .12379 L .87678 .12211 L .8867 .1201 L .89579 .11771 L .9056 .11423 L .91472 .10973 L .92473 .10274 L .93033 .09753 L .93542 .09173 L .94027 .08508 L .9454 .07657 L .9546 .05655 L .95972 .04205 L .96451 .02576 L s .96451 .02576 m .97015 0 L s .5 Mabswid .02381 0 m .02381 .61803 L s .97619 0 m .97619 .61803 L s 0 0 1 r .04 w .5 .10301 Mdot 0 g gsave .5 .10301 -108 2 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (expansion) show 123.000 13.000 moveto (point) show 153.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["\<\ Uh-huh. You've got the right one, baby.\ \>", "SmallText"] }, Closed]], Cell["B.1.d)", "Subsubsection"], Cell[CellGroupData[{ Cell["\<\ Where do you go to obtain a full understanding of the mathematics \ that links barriers and singularities?\ \>", "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "By the time you finish this lesson you should have a good understanding of \ the procedure that links barriers to singularities. In this course, the \ theoretical justification of this basic procedure will be left a mystery in \ the hope of luring you to penetrate deeper into mathematics. You can \ continue your mathematical studies by taking a course called \"Complex \ Variables\" in which you will learn the theory behind the procedure. You will \ also learn an incredible amount of beautiful mathematics. In the meantime, \ use the procedure with vigor and joy.\nFew calculus students not taking \ Calculus&", StyleBox["Mathematica", FontSlant->"Italic"], " know about this stuff. Walk down the hallway and amaze some of the \ students in the traditional calculus course." }], "SmallText"] }, Closed]] }, Closed]], Cell["Tutorial Problem", "Subsubsection"], Cell[CellGroupData[{ Cell["T.4) Infinite sums of numbers", "Subsection", CellTags->"3.05.T4"], Cell["T.4.a)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Find the infinite sum and illustrate the convergence of\n ", Cell[BoxData[ \(\(1\ + \ \((1\/2)\)\ + \ \((1\/2)\)\^2\ + \ \((1\/2)\)\^3\ + \ \ \((1\/2)\)\^4\ + \ ... \)\ + \ \((1\/2)\)\^k\ + \ ... \)]] }], "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "Recall: \n ", Cell[BoxData[ \(1\/\(1\ - \ x\)\ = \ \(1\ + \ x\ + \ x\^2\ + \ ... \)\ + \ x\^k\ + \ ... \)]], " \nprovided ", Cell[BoxData[ \(\(-1\)\ < \ x\ < \ 1\)]], ".\nPlug in ", Cell[BoxData[ \(x\ = \ 1\/2\)]], " to see that\n ", Cell[BoxData[ \(\(1\ + \ \((1\/2)\)\ + \ \((1\/2)\)\^2\ + \ \((1\/2)\)\^3\ + \ \ \((1\/2)\)\^4\ + \ ... \)\ + \ \((1\/2)\)\^k\ + \ ... \)]], "\nis given by:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[x];\)\), "\n", \(1\/\(1 - x\) /. x \[Rule] 1\/2\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell[TextData[{ "So\n ", Cell[BoxData[ \(2\ = \ \(1\ + \ \((1\/2)\)\ + \ \((1\/2)\)\^2\ + \ \((1\/2)\)\^3\ \ ... \)\ + \ \((1\/2)\)\^k\ + \ ... \)]], "\nNeat. \nWatch it converge:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[k];\)\), "\n", \(N[Sum[\((1\/2)\)\^k, {k, 0, 10}], 12]\)}], "Input"], Cell[BoxData[ \(1.9990234375`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Sum[\((1\/2)\)\^k, {k, 0, 20}], 12]\)], "Input"], Cell[BoxData[ \(1.9999990463256836`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Sum[\((1\/2)\)\^k, {k, 0, 30}], 12]\)], "Input"], Cell[BoxData[ \(1.9999999990686774`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Sum[\((1\/2)\)\^k, {k, 0, 100}], 40]\)], "Input"], Cell[BoxData[ \(1.9999999999999999999999999999992111390947789881945883`40\)], "Output"] }, Open ]], Cell["Zingo.", "SmallText"] }, Closed]], Cell["T.4.b)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Find the infinite sum, and illustrate the convergence of\n ", Cell[BoxData[ \(\(\((1\/5)\)\ - \ \((1\/5)\)\^2\ + \ \((1\/5)\)\^3\ - \ \((1\/5)\)\ \^4\ + \ ... \)\ + \ \(\((\(-1\))\)\^k\) \((1\/5)\)\^\(k + 1\) + \ ... \ \)]], " " }], "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "Recall:\n ", Cell[BoxData[ \(1\/\(1\ - \ x\)\ = \ \(1\ + \ x\ + \ x\^2\ + \ x\^3\ + \ ... \)\ + \ x\^k\ + \ ... \)]], " \nprovided ", Cell[BoxData[ \(\(-1\)\ < \ x\ < \ 1\)]], ".\nSo \n ", Cell[BoxData[ \(\(-\(x\/\(1\ - \ x\)\)\)\ = \ \(\(-x\)\ - \ x\^2\ - \ x\^3\ - \ ... \)\ - \ x\^\(k + 1\)\ - \ ... \)]], "\nprovided ", Cell[BoxData[ \(\(-1\)\ < \ x\ < \ 1\)]], ".\nReplacing ", Cell[BoxData[ \(x\)]], " by ", Cell[BoxData[ \(\(-x\)\)]], " gives \n ", Cell[BoxData[ \(x\/\(1\ + \ x\)\ = \ \(x\ - \ x\^2\ + \ x\^3\ + \ ... \)\ + \ \((\(-1\))\)\^k\ x\^\(k + 1\)\ + \ \ ... \)]], "\nprovided ", Cell[BoxData[ \(\(-1\)\ < \ x\ < \ 1\)]], ".\nPlug in ", Cell[BoxData[ \(x\ = \ 1\/5\)]], " to see that\n ", Cell[BoxData[ \(\(\((1\/5)\)\ - \ \((1\/5)\)\^2\ + \ \((1\/5)\)\^3\ - \ \((1\/5)\)\ \^4\ + \ ... \)\ + \ \(\((\(-1\))\)\^k\) \((1\/5)\)\^\(k + 1\) + \ ... \ \)]], "\nis given by:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[x];\)\), "\n", \(x\/\(1 + x\) /. x \[Rule] 1\/5\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1\/6\)], "Output"] }, Open ]], Cell[TextData[{ "So\n ", Cell[BoxData[ \(1\/6\ = \ \(\((1\/5)\)\ - \ \((1\/5)\)\^2\ + \ \((1\/5)\)\^3\ + \ \ ... \)\ + \ \(\((\(-1\))\)\^k\) \((1\/5)\)\^\(k + 1\) + \ ... \)]], "\nWatch it converge:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[k];\)\), "\n", \(N[{Sum[\((\(-1\))\)\^\(k + 2\)\ \((1\/5)\)\^\(k + 1\), {k, 0, 5}], 1/6}, 20]\)}], "Input"], Cell[BoxData[ \({0.166656`20, 0.166666666666666666666666666670874`20}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[{Sum[\((\(-1\))\)\^\(k + 2\)\ \((1\/5)\)\^\(k + 1\), {k, 0, 10}], 1/6}, 20]\)], "Input"], Cell[BoxData[ \({0.16666667008`20, 0.166666666666666666666666666670874`20}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[{Sum[\((\(-1\))\)\^\(k + 2\)\ \((1\/5)\)\^\(k + 1\), {k, 0, 20}], 1/6}, 30]\)], "Input"], Cell[BoxData[ \({0.166666666666667016192`30, 0.1666666666666666666666666666666666666676462`30}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[{Sum[\((\(-1\))\)\^\(k + 2\)\ \((1\/5)\)\^\(k + 1\), {k, 0, 30}], 1/6}, 40]\)], "Input"], Cell[BoxData[ \({0.166666666666666666666702458060799999999999999999999995337`40, 0.1666666666666666666666666666666666666666666666668947`40}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[{Sum[\((\(-1\))\)\^\(k + 2\)\ \((1\/5)\)\^\(k + 1\), {k, 0, 40}], 1/6}, 40]\)], "Input"], Cell[BoxData[ \({0.16666666666666666666666666667033170542592`40, 0.1666666666666666666666666666666666666666666666668947`40}\)], "Output"] }, Open ]], Cell["That's furious convergence!", "SmallText"] }, Closed]], Cell["T.4.c)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Find the infinite sum, and illustrate the convergence of\n ", Cell[BoxData[ \(1 - 1\/\(2!\) + 1\/\(4!\) - 1\/\(6!\) + 1\/\(8!\)\ + \ ... \)]], Cell[BoxData[ \(\(\(+\ \(\((\(-1\))\)\^k\/\(\((2\ k)\)!\)\)\)\(\ \)\(+\)\)\ ... \)]] }], "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ " ", Cell[BoxData[ \(Cos[x]\ = \ 1 - x\^2\/\(2!\) + x\^4\/\(4!\) - x\^6\/\(6!\)\)]], Cell[BoxData[ \(\(\(\(+\(x\^8\/\(8!\)\)\)\(+\)\)\ ... \)\ + \ \(\((\(-1\))\)\^k\ \ x\^\(2 k\)\)\/\(\((2\ k)\)!\)\ + \ ... \)]], " \nfor any old ", Cell[BoxData[ \(x\)]], ".\nPlug in ", Cell[BoxData[ \(x\ = \ 1\)]], " to see that\n ", Cell[BoxData[ \(Cos[1]\ = \ 1 - 1\/\(2!\) + 1\/\(4!\) - 1\/\(6!\)\)]], " ", Cell[BoxData[ \(\(\(\(+\ \(1\/\(8!\)\)\)\(\ \)\(+\)\)\ ... \)\ + \ \((\(-1\))\)\^k\/\(\((2\ k)\)!\)\ + ... \)]], "\nWatch it converge: " }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[k];\)\), "\n", \(N[{Sum[\((\(-1\))\)\^k\/\(\((2\ k)\)!\), {k, 0, 5}], Cos[1]}, 12]\)}], "Input"], Cell[BoxData[ \({0.5403023037918872`, 0.5403023058681398`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[{Sum[\((\(-1\))\)\^k\/\(\((2\ k)\)!\), {k, 0, 8}], Cos[1]}, 20]\)], "Input"], Cell[BoxData[ \({0.54030230586813987318286260085201874505`20, 0.54030230586813971740093660744297855493`20}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[{Sum[\((\(-1\))\)\^k\/\(\((2\ k)\)!\), {k, 0, 12}], Cos[1]}, 30]\)], "Input"], Cell[BoxData[ \({0.5403023058681397174009366099192967439106606`30, 0.540302305868139717400936607442976603732310397613`30}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[{Sum[\((\(-1\))\)\^k\/\(\((2\ k)\)!\), {k, 0, 20}], Cos[1]}, 40]\)], "Input"], Cell[BoxData[ \({0.5403023058681397174009366074429766037323104206179229`40, 0.5403023058681397174009366074429766037323104206179222`40}\)], "Output"] }, Open ]], Cell["Math happens again!", "SmallText"] }, Closed]] }, Closed]], Cell["Give It a Try Problems", "Subsubsection"], Cell[CellGroupData[{ Cell["G.6) Dosing", "Subsection", CellTags->"3.05.G6"], Cell["Before you start, run the following cell:", "Special2"], Cell[BoxData[ \(\(Needs["\"];\)\)], "Input", AspectRatioFixed->True], Cell["G.6.a.i)", "Subsubsection"], Cell[TextData[{ "A drug in doses of ", Cell[BoxData[ \(1.5\ grams\)]], " is to be prescribed to a college-age woman weighing ", Cell[BoxData[ \(120\ pounds\)]], ". She is in good physical condition.\nOne dose of this drug results in a \ body fluid concentration of \n ", Cell[BoxData[ \(\((1.5\/B)\)\ e\^\(\(-0.07\) t\)\ grams\ per\ liter\)]], " \n", Cell[BoxData[ \(t\ hours\)]], " after the dose. (Here ", Cell[BoxData[ \(B\)]], " measures her body fluids in liters.) She is to take this drug every ", Cell[BoxData[ \(p\ hours\)]], " where ", Cell[BoxData[ \(p\)]], " is set so that the concentration of this drug before each new dose never \ exceeds ", Cell[BoxData[ \(0.032\ grams\ per\ liter\)]], " of her body fluids. \nYour job is to set the smallest safe value of ", Cell[BoxData[ \(p\)]], ".\nDo it." }], "Text"], Cell["G.6.a.ii)", "Subsubsection"], Cell[TextData[{ "A drug in doses of ", Cell[BoxData[ \(G\ grams\)]], " is to be prescribed to a college-age woman weighing ", Cell[BoxData[ \(120\ pounds\)]], ". She is in good physical condition.\nOne dose of this drug results in a \ body fluid concentration of \n ", Cell[BoxData[ \(\((G\/B)\)\ e\^\(\(-0.07\) t\)\ grams\ per\ liter\)]], " \n", Cell[BoxData[ \(t\ hours\)]], " after the dose. (Here ", Cell[BoxData[ \(B\)]], " measures her body fluids in liters.) She is to take this drug every ", Cell[BoxData[ \(p\ hours\)]], ", where ", Cell[BoxData[ \(p\)]], " is set so that the concentration of this drug before each new dose never \ exceeds ", Cell[BoxData[ \(0.032\ grams\ per\ liter\)]], " of her body fluids. \nYour job is to give a plot of the minimum safe dose \ spacing as a function of the dose size ", Cell[BoxData[ \(G\)]], ".\nDo it." }], "Text"], Cell["G.6.b)", "Subsubsection"], Cell[TextData[{ "A drug in doses of ", Cell[BoxData[ \(G\)]], " grams per dose is to be prescribed to a college-age man weighing ", Cell[BoxData[ \(163\ pounds\)]], ". He is in good physical condition. \nOne dose of this drug results in a \ body fluid concentration of \n ", Cell[BoxData[ \(\((G\/B)\)\ e\^\(\(-0.05\) t\)\ grams\ per\ liter\)]], "\n", Cell[BoxData[ \(t\ hours\)]], " after the dose.\n(Here ", Cell[BoxData[ \(B\)]], " measures his body fluids in liters.) \nThe maximum safe concentration of \ this drug in his body fluids is ", Cell[BoxData[ \(0.12\ grams\ per\ liter\)]], ". It has been decided to administer the drug every eight hours.\nYou job \ is to determine the maximum safe value of the dose size ", Cell[BoxData[ \(G\)]], ".\nDo it. " }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "G.7) Some more uses of the expansion\n ", Cell[BoxData[ \(1\/\(1 - x\) = 1 + x + x\^2 + x\^3 + x\^4\)]], " + ..." }], "Subsection", CellTags->"3.05.G7"], Cell["G.7.a)", "Subsubsection"], Cell[TextData[{ "Associated with each rubber ball is a bounce coefficient ", Cell[BoxData[ \(b\)]], ". When the ball is dropped from a height ", Cell[BoxData[ \(h\)]], ", it bounces back to a height of ", Cell[BoxData[ \(b\ h\)]], ". Suppose that the ball is dropped from an initial height ", Cell[BoxData[ \(h\)]], ", and then is allowed to bounce forever. \nUse the expansion of ", Cell[BoxData[ \(1\/\(1\ - \ x\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], " to help come up with a clean formula that measures, in terms of ", Cell[BoxData[ \(b\)]], " and ", Cell[BoxData[ \(h\)]], ", the total up-down distance the ball travels in all of its bouncing." }], "Text"], Cell["G.7.b)", "Subsubsection"], Cell[TextData[{ "The government injects ", Cell[BoxData[ \($1\ billion\)]], " into the economy. Each recipient spends ", Cell[BoxData[ \(90\ %\)]], " of the dollars received. In turn, the secondary recipients spend ", Cell[BoxData[ \(90\ %\)]], " of the dollars they receive, etc. \nUse the expansion of ", Cell[BoxData[ \(1\/\(1\ - \ x\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], " to help come up with a clean measurement of the total spending that \ results from the ", Cell[BoxData[ \($1\ billion\)]], " injection." }], "Text"] }, Closed]], Cell["Literacy Problems", "Subsubsection"], Cell["L.5)", "Subsubsection"], Cell[TextData[{ StyleBox["Give the convergence interval for the expansions of the following \ functions ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x]\)]], StyleBox[" in powers of ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(\((x - a)\)\)]], StyleBox[" for the given choices of ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a\)]], StyleBox[":\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = 1\/\(1\ - \ x\)\)]], StyleBox[" with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = 0\)]], StyleBox[",\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = 1\/\(1\ - \ x\)\)]], StyleBox[" with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = 4\)]], StyleBox[",\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = e\^x\)]], StyleBox[" ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.501472]], StyleBox["with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = 0\)]], StyleBox[",\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = Sin[x]\)]], StyleBox[" with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = 0\)]], StyleBox[",\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = Sin[x]\)]], StyleBox[" with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = \[Pi]\)]], StyleBox[",\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = Cos[x]\)]], StyleBox[" with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = 0\)]], StyleBox[",\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = \@\(1 + x\)\)]], StyleBox[" with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = 0\)]], StyleBox[",\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = x\^\((5\/3)\)\)]], StyleBox[" with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = 1\)]], StyleBox[",\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = ArcTan[x]\)]], StyleBox[" with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = 0\)]], StyleBox[", and\n\[Rule] ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(f[x] = 1\/\(1\ + \ x\^2\)\)]], StyleBox[" with ", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]], Cell[BoxData[ \(a = 1\)]], StyleBox[".", Evaluatable->False, AspectRatioFixed->True, FontColor->RGBColor[0, 0, 0.500496]] }], "Text"], Cell["L.6)", "Subsubsection"], Cell[TextData[{ "The expansion of ", Cell[BoxData[ \(1\/\(1\ + \ x\^2\)\)]], " in powers if ", Cell[BoxData[ \(x\)]], " is\n ", Cell[BoxData[ \(1 - x\^2 + x\^4 - x\^6 + x\^8 + \ \(\(.\)\(\ \)\(.\)\)\ . \ \(+\ \((\(-1\))\)\^k\)\ x\^\(2 k\ \)\)]], "\nExplain the following statement:\nAlthough there is nothing wrong with \ saying\n ", Cell[BoxData[ \(4\/5 = 1\/\((1\ + \ 1\/2\^2)\)\)]], "\n ", Cell[BoxData[ \(\(\(=\)\(1 - \((1\/2)\)\^2 + \((1\/2)\)\^4 - \((1\/2)\)\^6 + \((1\/2)\ \)\^8 + \ \(\(.\)\(\ \)\(.\)\)\ . \ \(+\ \((\(-1\))\)\^k\)\ \((1\/2)\)\^\(2 \ k\)\)\)\)]], "\nit would be a sure sign of calculus illiteracy to say\n ", Cell[BoxData[ \(1\/5 = 1\/\((1\ + \ 2\^2)\)\)]], "\n ", Cell[BoxData[ \(\(\(=\)\(1 - \((2)\)\^2 + \((2)\)\^4 - \((2)\)\^6 + \((2)\)\^8 + \ \(\ \(.\)\(\ \)\(.\)\)\ . \ \(+\ \((\(-1\))\)\^k\)\ \((2)\)\^\(2 k\)\)\)\)]] }], "Text"] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 640}, {0, 460}}, AutoGeneratedPackage->None, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{632, 433}, WindowMargins->{{-2, Automatic}, {Automatic, 1}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell["\<\ The following notebook is copyright 1999 by Math \ Everywhere,Inc.and may not be reproduced, copied, or distributed, in whole or \ in part, through any means electronic or otherwise, without written consent \ of the copyright holder.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], ScriptMinSize->9], Cell[StyleData[All, "Presentation"], ScriptMinSize->12, FontSize->18], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, PrivateFontOptions->{"FontType"->"Outline"}], Cell[StyleData[All, "TwoColumn"], PageWidth->PaperWidth, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the \ Notebook level.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Notebook"], CellGrouping->Manual, ShowClosedCellArea->True, StyleMenuListing->None, Background->RGBColor[1, 0.940002, 0.900008]], Cell[StyleData["Notebook", "Printout"], Background->GrayLevel[1]], Cell[StyleData["Notebook", "TwoColumn"], PageHeaders->{{None, None, None}, {None, None, None}}, PageHeaderLines->{False, False}, PrintingOptions->{"PrintingMargins"->{{55, 25}, {40, 45}}}, Background->GrayLevel[1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellFrame->{{1, 1}, {1, 5}}, ShowCellBracket->False, CellMargins->{{24, 24}, {12, 5}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CellFrameMargins->{{15, Inherited}, {Inherited, Inherited}}, DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Left, LineSpacing->{1.1, 1}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Times", FontSize->24, FontWeight->"Bold", FontColor->GrayLevel[0], Background->RGBColor[0.925002, 0.854978, 0.774975]], Cell[StyleData["Title", "Presentation"], CellMargins->{{24, Inherited}, {60, Inherited}}, TextAlignment->Center, FontSize->24, FontColor->GrayLevel[1], Background->RGBColor[0.294118, 0.521569, 0.0941176]], Cell[StyleData["Title", "Printout"], CellMargins->{{0, Inherited}, {0, 0}}, TextAlignment->Center, FontSize->16, FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[StyleData["Title", "TwoColumn"], CellFrame->{{1, 1}, {5, 0}}, CellMargins->{{0, Inherited}, {0, 0}}, TextAlignment->Center, FontSize->16, FontColor->GrayLevel[0], Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], ShowCellBracket->False, ShowClosedCellArea->True, CellMargins->{{6, Inherited}, {0, 0}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Left, FontFamily->"Times", FontSize->14], Cell[StyleData["Subtitle", "Presentation"], CellFrame->False, CellMargins->{{24, Inherited}, {6, Inherited}}], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{14, Inherited}, {2, 2}}], Cell[StyleData["Subtitle", "TwoColumn"], CellMargins->{{14, Inherited}, {2, 2}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellFrame->True, ShowClosedCellArea->True, CellMargins->{{6, Inherited}, {6, Inherited}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Center, FontFamily->"Times", FontSize->24, FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Subsubtitle", "Presentation"], CellFrame->True, CellMargins->{{24, Inherited}, {6, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{14, Inherited}, {2, 2}}, FontColor->GrayLevel[0]], Cell[StyleData["Subsubtitle", "TwoColumn"], CellMargins->{{14, Inherited}, {2, 2}}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellDingbat->"\[GraySquare]", ShowCellBracket->True, ShowGroupOpenCloseIcon->True, CellMargins->{{22, Inherited}, {Inherited, 20}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, DefaultInlineFormatType->DefaultInputInlineFormatType, LineSpacing->{1.5, 1}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Times", FontSize->16], Cell[StyleData["Section", "Presentation"], CellMargins->{{24, Inherited}, {Inherited, 20}}, LineSpacing->{1.5, 0}, FontSize->18], Cell[StyleData["Section", "Printout"], CellMargins->{{14, Inherited}, {2, 10}}], Cell[StyleData["Section", "TwoColumn"], CellMargins->{{14, Inherited}, {2, 10}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"", ShowCellBracket->True, ShowGroupOpenCloseIcon->True, CellMargins->{{19, Inherited}, {Inherited, 18}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, DefaultInlineFormatType->DefaultInputInlineFormatType, LineSpacing->{1.5, 1}, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0.392187, 0]], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{24, Inherited}, {Inherited, 15}}], Cell[StyleData["Subsection", "Printout"], CellMargins->{{14, Inherited}, {2, 5}}, FontSize->12, FontColor->GrayLevel[0]], Cell[StyleData["Subsection", "TwoColumn"], CellFrame->{{0, 0}, {0, 1}}, CellMargins->{{14, Inherited}, {2, 10}}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[EmptySquare]", ShowClosedCellArea->True, CellMargins->{{18, Inherited}, {Inherited, 12}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, DefaultInlineFormatType->DefaultInputInlineFormatType, LineSpacing->{1.5, 1}, CounterIncrements->"Subsubsection", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.689998, 0.0899977, 0.119997]], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{24, Inherited}, {Inherited, 12}}, LineSpacing->{1, 0}], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{14, Inherited}, {2, 3}}, FontSize->12, FontColor->GrayLevel[0]], Cell[StyleData["Subsubsection", "TwoColumn"], CellMargins->{{14, Inherited}, {2, 3}}, FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["PrefaceText"], CellMargins->{{15, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, LineSpacing->{1, 1}, LimitsPositioningTokens->{}, StyleMenuListing->None, FontFamily->"Times", FontSize->10, FontWeight->"Plain"], Cell[StyleData["PrefaceText", "Presentation"], CellMargins->{{24, Inherited}, {Inherited, Inherited}}, LineSpacing->{2, 0}, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["PrefaceText", "Printout"], CellMargins->{{0, Inherited}, {2, 2}}, LineSpacing->{1, 1}, FontSize->12, FontColor->GrayLevel[0], Background->None], Cell[StyleData["PrefaceText", "TwoColumn"], CellMargins->{{0, Inherited}, {2, 2}}, LineSpacing->{1, 1}, FontSize->12, FontColor->GrayLevel[0], Background->None] }, Closed]], Cell[StyleData["PrefaceHyperlink"], CellMargins->{{15, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, LineSpacing->{1, 1}, LimitsPositioningTokens->{}, StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Times", FontSize->10, FontWeight->"Plain", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[CellGroupData[{ Cell[StyleData["Text"], ShowClosedCellArea->True, CellMargins->{{15, 10}, {Inherited, Inherited}}, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, LineSpacing->{1.5, 1}, LimitsPositioningTokens->{}, FontFamily->"Times", FontSize->16, FontColor->RGBColor[0, 0, 0.500008]], Cell[StyleData["Text", "Presentation"], CellMargins->{{24, Inherited}, {Inherited, Inherited}}, LineSpacing->{2, 0}, FontSize->16, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Text", "Printout"], CellMargins->{{14, Inherited}, {3, 1}}, PageBreakWithin->True, GroupPageBreakWithin->True, LineSpacing->{1, 2}, FontColor->GrayLevel[0], Background->None], Cell[StyleData["Text", "TwoColumn"], CellMargins->{{14, Inherited}, {3, 1}}, PageBreakWithin->True, GroupPageBreakWithin->True, LineSpacing->{1, 2}, FontSize->14, FontColor->GrayLevel[0], Background->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], ShowClosedCellArea->True, CellMargins->{{15, Inherited}, {Inherited, Inherited}}, DefaultInlineFormatType->DefaultInputInlineFormatType, LineSpacing->{1.5, 1}, LimitsPositioningTokens->{}, FontFamily->"Times", FontSize->16], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{24, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["SmallText", "Printout"], CellMargins->{{14, Inherited}, {2, 2}}, PageBreakWithin->True, GroupPageBreakWithin->True], Cell[StyleData["SmallText", "TwoColumn"], CellMargins->{{14, Inherited}, {2, 2}}, PageBreakWithin->True, GroupPageBreakWithin->True, FontSize->14] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], CellFrame->{{3, 0}, {0, 0}}, CellMargins->{{45, Inherited}, {Inherited, Inherited}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, GroupPageBreakWithin->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontWeight->"Bold"], Cell[StyleData["Input", "Presentation"], CellFrame->{{3, 0}, {0, 0}}, CellMargins->{{45, Inherited}, {20, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Input", "Printout"], CellFrame->{{3, 0}, {0, 0}}, CellMargins->{{30, Inherited}, {2, 2}}, PageBreakWithin->True, GroupPageBreakWithin->True, FontSize->9], Cell[StyleData["Input", "TwoColumn"], CellFrame->{{3, 0}, {0, 0}}, CellMargins->{{30, Inherited}, {2, 2}}, PageBreakWithin->True, GroupPageBreakWithin->True, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Output"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1.5, 0}, FormatType->StandardForm, FontFamily->"Courier", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Output", "Presentation"], CellMargins->{{45, Inherited}, {20, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Output", "Printout"], CellMargins->{{30, Inherited}, {2, 2}}, PageBreakWithin->True, GroupPageBreakWithin->True, LineSpacing->{1, 0}, FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["Output", "TwoColumn"], CellMargins->{{30, Inherited}, {2, 2}}, PageBreakWithin->True, GroupPageBreakWithin->True, LineSpacing->{1, 0}, FontSize->12, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, StyleMenuListing->None, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Message", "Presentation"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Message", "Printout"], CellMargins->{{30, Inherited}, {2, 2}}, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["Message", "TwoColumn"], CellMargins->{{30, Inherited}, {2, 2}}, FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, StyleMenuListing->None], Cell[StyleData["Print", "Presentation"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Print", "Printout"], CellMargins->{{30, Inherited}, {2, 2}}, FontSize->9], Cell[StyleData["Print", "TwoColumn"], CellMargins->{{30, Inherited}, {2, 2}}, FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Info"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, StyleMenuListing->None], Cell[StyleData["Info", "Presentation"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Info", "Printout"], CellMargins->{{30, Inherited}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["Info", "TwoColumn"], CellMargins->{{30, Inherited}, {Inherited, Inherited}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellMargins->{{15, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, ImageMargins->{{35, Inherited}, {Inherited, 0}}, AnimationDisplayTime->0.2, StyleMenuListing->None, FontSize->14], Cell[StyleData["Graphics", "Presentation"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Graphics", "Printout"], CellMargins->{{30, Inherited}, {0, 0}}, CellFrameMargins->False, ImageSize->{Inherited, 150}, ImageMargins->{{45, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, FontSize->9], Cell[StyleData["Graphics", "TwoColumn"], CellMargins->{{20, Inherited}, {0, 0}}, CellFrameMargins->False, ImageSize->{Inherited, 150}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Times", FontSize->9, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Presentation"], FontSize->14], Cell[StyleData["CellLabel", "Printout"], FontColor->GrayLevel[1]], Cell[StyleData["CellLabel", "TwoColumn"], FontColor->GrayLevel[1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Special Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["PrefaceTitle"], CellFrame->{{1, 1}, {1, 5}}, ShowCellBracket->False, CellMargins->{{24, 24}, {0, 10}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->{{15, Inherited}, {Inherited, Inherited}}, DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Center, LineSpacing->{1.4, 1}, FontFamily->"Times", FontSize->24, FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0, 0.392187, 0]], Cell[StyleData["PrefaceTitle", "Presentation"], CellMargins->{{24, Inherited}, {60, Inherited}}, TextAlignment->Center, FontSize->38, FontColor->GrayLevel[1], Background->RGBColor[0.596078, 0.65098, 0.0196078]], Cell[StyleData["PrefaceTitle", "Printout"], CellMargins->{{0, Inherited}, {0, Inherited}}, FontSize->16, FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[StyleData["PrefaceTitle", "TwoColumn"], CellFrame->{{1, 1}, {0, 5}}, CellMargins->{{0, Inherited}, {0, Inherited}}, FontSize->16, FontColor->GrayLevel[0], Background->GrayLevel[1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Special Body Text and Index", "Section"], Cell[CellGroupData[{ Cell[StyleData["Accident"], CellFrame->3, ShowCellBracket->False, CellMargins->{{24, 24}, {0, 10}}, CellFrameMargins->{{15, Inherited}, {Inherited, Inherited}}, TextAlignment->Center, LineSpacing->{1.4, 1}, FontFamily->"Times", FontSize->24, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Accident", "Presentation"], CellMargins->{{24, Inherited}, {60, Inherited}}, TextAlignment->Center, FontSize->36], Cell[StyleData["Accident", "Printout"], CellFrame->2, CellMargins->{{0, Inherited}, {0, Inherited}}, FontSize->16, FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[StyleData["Accident", "TwoColumn"], CellFrame->2, CellMargins->{{0, Inherited}, {0, Inherited}}, FontSize->16, FontColor->GrayLevel[0], Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ContentsText"], CellMargins->{{50, 10}, {5, 5}}, FontFamily->"Times", FontSize->16], Cell[StyleData["ContentsText", "Presentation"]], Cell[StyleData["ContentsText", "Printout"], FontColor->GrayLevel[0], Background->None], Cell[StyleData["ContentsText", "TwoColumn"], FontColor->GrayLevel[0], Background->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Special1"], CellDingbat->"\[EmptySquare]", ShowClosedCellArea->True, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.689998, 0.0899977, 0.119997]], Cell[StyleData["Special1", "Presentation"], FontSize->16], Cell[StyleData["Special1", "Printout"], FontSize->12, FontColor->GrayLevel[0]], Cell[StyleData["Special1", "TwoColumn"], FontSize->12, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Special2"], CellMargins->{{6, 0}, {0, 0}}, CellGroupingRules->{"SectionGrouping", 40}, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Center, FontFamily->"Courier", FontSize->10, FontColor->GrayLevel[0.333333]], Cell[StyleData["Special2", "Presentation"], FontSize->12], Cell[StyleData["Special2", "Printout"], FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["Special2", "TwoColumn"], FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Special3"], CellDingbat->"\[GraySquare]", ShowClosedCellArea->True, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Left, FontFamily->"Courier", FontSize->10, FontColor->GrayLevel[0.333333]], Cell[StyleData["Special3", "Presentation"]], Cell[StyleData["Special3", "Printout"], FontColor->GrayLevel[0]], Cell[StyleData["Special3", "TwoColumn"], FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Special4"], ShowClosedCellArea->True, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Center, FontFamily->"Courier", FontSize->10, FontColor->GrayLevel[0.333333]], Cell[StyleData["Special4", "Presentation"], FontSize->12], Cell[StyleData["Special4", "Printout"], FontColor->GrayLevel[0]], Cell[StyleData["Special4", "TwoColumn"], FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Special5"], ShowClosedCellArea->True, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Center, FontFamily->"Courier", FontSize->10, FontColor->GrayLevel[0.333333]], Cell[StyleData["Special5", "Presentation"], FontSize->12], Cell[StyleData["Special5", "Printout"]], Cell[StyleData["Special5", "TwoColumn"]] }, Closed]], Cell[StyleData["IndexEntry"], ShowCellBracket->False, CellMargins->{{15, 5}, {0, 5}}, PageBreakBelow->False, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, ParagraphIndent->-40, StyleMenuListing->None, FontSize->16], Cell[StyleData["IndexSubEntry"], ShowCellBracket->False, CellMargins->{{45, 5}, {0, 0}}, DefaultFormatType->DefaultTextFormatType, DefaultInlineFormatType->DefaultInputInlineFormatType, ParagraphIndent->-40, StyleMenuListing->None, FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell["Styles for License Agreement", "Section"], Cell[CellGroupData[{ Cell[StyleData["LicenseHeading"], ShowCellBracket->True, ShowGroupOpenCloseIcon->True, CellMargins->{{24, 24}, {-1, 2}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0.4, 0.300008, 0.6]], Cell[StyleData["LicenseHeading", "Presentation"], FontSize->12], Cell[StyleData["LicenseHeading", "Printout"], FontSize->10, FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[StyleData["LicenseHeading", "TwoColumn"], FontSize->10, FontColor->GrayLevel[0], Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["LicenseText"], CellFrame->True, ShowCellBracket->False, CellMargins->{{24, 24}, {5, -1}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, Background->RGBColor[1, 0.537743, 0.509071]], Cell[StyleData["LicenseText", "Presentation"], FontSize->18], Cell[StyleData["LicenseText", "Printout"], FontSize->10, FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[StyleData["LicenseText", "TwoColumn"], FontSize->10, FontColor->GrayLevel[0], Background->GrayLevel[1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Automatic Numbering", "Section"], Cell["\<\ The following styles are useful for numbered equations, figures, \ etc. They automatically give the cell a FrameLabel containing a reference to \ a particular counter, and also increment that counter.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["NumberedEquation"], CounterIncrements->"NumberedEquation"], Cell[StyleData["NumberedEquation", "Presentation"]], Cell[StyleData["NumberedEquation", "Printout"]], Cell[StyleData["NumberedEquation", "TwoColumn"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedFigure"], CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Figure ", CounterBox[ "NumberedFigure"]}]], None}}, CounterIncrements->"NumberedFigure", FormatTypeAutoConvert->False, FontFamily->"Times"], Cell[StyleData["NumberedFigure", "Presentation"], CellMargins->{{24, Inherited}, {20, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["NumberedFigure", "Printout"], CellMargins->{{14, Inherited}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["NumberedFigure", "TwoColumn"], CellMargins->{{14, Inherited}, {Inherited, Inherited}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedTable"], CellMargins->{{6, Inherited}, {Inherited, Inherited}}, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Table ", CounterBox[ "NumberedTable"]}]], None}}, CounterIncrements->"NumberedTable", FormatTypeAutoConvert->False, FontFamily->"Times"], Cell[StyleData["NumberedTable", "Presentation"], CellMargins->{{24, Inherited}, {20, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["NumberedTable", "Printout"], CellMargins->{{14, Inherited}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["NumberedTable", "TwoColumn"], CellMargins->{{14, Inherited}, {Inherited, Inherited}}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontSize->10], Cell[StyleData["Footer"], CellMargins->{{0, 0}, {0, 4}}, StyleMenuListing->None, FontSize->9], Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Times", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ The cells below define styles that define standard \ ButtonFunctions, for use in palette buttons.\ \>", "Text"], Cell[StyleData["Paste"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["EvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[ ], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}] }, Closed]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell["\<\ The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontSize->14, FontColor->RGBColor[0, 0.392187, 0], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["Hyperlink", "Printout"], FontColor->GrayLevel[0], Background->GrayLevel[1], FontVariations->{"Underline"->False}], Cell[StyleData["Hyperlink", "TwoColumn"], FontColor->GrayLevel[0], Background->GrayLevel[1], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MEIHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.650004, 0.680003, 0.0800031], Background->RGBColor[0, 0.392187, 0], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Come visit us!"}], Cell[StyleData["MEIHyperlink", "Printout"], FontColor->GrayLevel[0], Background->GrayLevel[1], FontVariations->{"Underline"->False}], Cell[StyleData["MEIHyperlink", "TwoColumn"], FontColor->GrayLevel[0], Background->GrayLevel[1], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BasicsHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.848096, 0.171878, 0.228321], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Go to Basics"}], Cell[StyleData["BasicsHyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["BasicsHyperlink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BasicsIndexHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontWeight->"Bold", FontColor->RGBColor[0.848096, 0.171878, 0.228321], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2], FrontEnd`SelectionMove[ FrontEnd`SelectedNotebook[ ], Next, CellGroup], FrontEndToken[ "SelectionCloseAllGroups"], FrontEndToken[ "OpenCloseGroup"]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Link into Basics"}], Cell[StyleData["BasicsIndexHyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["BasicsIndexHyperlink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TutorialsHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.0199588, 0.346716, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Go to Tutorials"}], Cell[StyleData["TutorialsHyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["TutorialsHyperlink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TutorialsIndexHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontWeight->"Bold", FontColor->RGBColor[0.0199588, 0.346716, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2], FrontEnd`SelectionMove[ FrontEnd`SelectedNotebook[ ], Next, CellGroup], FrontEndToken[ "SelectionCloseAllGroups"], FrontEndToken[ "OpenCloseGroup"]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Link into Tutorials"}], Cell[StyleData["TutorialsIndexHyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["TutorialsIndexHyperlink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GiveItaTryHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.497459, 0.196094, 0.543877], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Go to GiveItaTry"}], Cell[StyleData["GiveItaTryHyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GiveItaTryHyperlink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GiveItaTryIndexHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontWeight->"Bold", FontColor->RGBColor[0.497459, 0.196094, 0.543877], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2], FrontEnd`SelectionMove[ FrontEnd`SelectedNotebook[ ], Next, CellGroup], FrontEndToken[ "SelectionCloseAllGroups"], FrontEndToken[ "OpenCloseGroup"]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Link into GiveItaTry"}], Cell[StyleData["GiveItaTryIndexHyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GiveItaTryIndexHyperlink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["LiteracyHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[1, 0.433326, 0], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Go to Literacy"}], Cell[StyleData["LiteracyHyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["LiteracyHyperlink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["LiteracyIndexHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontWeight->"Bold", FontColor->RGBColor[1, 0.433326, 0], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2], FrontEnd`SelectionMove[ FrontEnd`SelectedNotebook[ ], Next, CellGroup], FrontEndToken[ "SelectionCloseAllGroups"], FrontEndToken[ "OpenCloseGroup"]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Link into Literacy"}], Cell[StyleData["LiteracyIndexHyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["LiteracyIndexHyperlink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PreviewHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontWeight->"Bold", FontSlant->"Italic", FontColor->GrayLevel[0.250004], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2], FrontEndToken[ "OpenCloseGroup"]}]&), Active->True, ButtonFrame->"None", ButtonNote->"Preview of Lesson"}], Cell[StyleData["PreviewHyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["PreviewHyperlink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuideLink", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"]], Cell[StyleData["RefGuideLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["RefGuideLink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Presentation"]], Cell[StyleData["GettingStartedLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GettingStartedLink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Presentation"]], Cell[StyleData["OtherInformationLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLink", "TwoColumn"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell["\<\ The cells below define styles useful for making placeholder \ objects in palette templates.\ \>", "Text"], Cell[StyleData["Placeholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->True, StyleMenuListing->None], Cell[StyleData["SelectionPlaceholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->PrimaryPlaceholder, StyleMenuListing->None, DrawHighlighted->True] }, Closed]], Cell[CellGroupData[{ Cell["FormatType Styles", "Section"], Cell["\<\ The cells below define styles that are mixed in with the styles \ of most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options.\ \>", "Text"], Cell[StyleData["CellExpression"], PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, StyleMenuListing->None, FontFamily->"Courier", FontSize->12], Cell[StyleData["InputForm"], AllowInlineCells->False, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], PageWidth->Infinity, TextAlignment->Left, LineSpacing->{1, -5}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, StyleMenuListing->None], Cell["\<\ The style defined below is mixed in to any cell that is in an \ inline cell within another.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["InlineCell"], DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Left, ScriptLevel->1, LimitsPositioningTokens->{}, StyleMenuListing->None, FontFamily->"Times", FontSize->16, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["InlineCell", "Presentation"], DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Left, ScriptLevel->1, LimitsPositioningTokens->{}, StyleMenuListing->None, FontFamily->"Times", FontSize->16, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["InlineCell", "Printout"], DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Left, ScriptLevel->1, LimitsPositioningTokens->{}, StyleMenuListing->None, FontColor->GrayLevel[0]], Cell[StyleData["InlineCell", "TwoColumn"], DefaultInlineFormatType->DefaultInputInlineFormatType, TextAlignment->Left, ScriptLevel->1, LimitsPositioningTokens->{}, StyleMenuListing->None, FontSize->14, FontColor->GrayLevel[0]] }, Closed]] }, Closed]] }, Open ]] }], MacintoshSystemPageSetup->"\<\ 00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001 0000I00000400`<300000BL?00400@0000000000000006P001T1T00000000000 00000000000000000000000000000000\>" ] (*********************************************************************** 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->{ "3.05.B1"->{ Cell[6971, 173, 79, 1, 60, "Subsection", CellTags->"3.05.B1"]}, "3.05.T4"->{ Cell[151797, 8025, 75, 1, 60, "Subsection", CellTags->"3.05.T4"]}, "3.05.G6"->{ Cell[159640, 8338, 57, 1, 60, "Subsection", CellTags->"3.05.G6"]}, "3.05.G7"->{ Cell[162745, 8451, 191, 6, 72, "Subsection", CellTags->"3.05.G7"]} } *) (*CellTagsIndex CellTagsIndex->{ {"3.05.B1", 214338, 10250}, {"3.05.T4", 214427, 10253}, {"3.05.G6", 214519, 10256}, {"3.05.G7", 214611, 10259} } *) (*NotebookFileOutline Notebook[{ Cell[1717, 49, 2361, 33, 34, 2210, 28, "GraphicsData", "Bitmap", "Graphics"], Cell[4081, 84, 813, 23, 134, "PrefaceTitle"], Cell[4897, 109, 129, 5, 91, "Title"], Cell[CellGroupData[{ Cell[5051, 118, 104, 4, 29, "Special2"], Cell[5158, 124, 724, 16, 247, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[5907, 144, 160, 2, 54, "Subsubsection"], Cell[6070, 148, 710, 13, 214, "Input", InitializationCell->True] }, Closed]], Cell[6795, 164, 98, 2, 23, "Input", InitializationCell->True] }, Closed]], Cell[6908, 169, 38, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[6971, 173, 79, 1, 60, "Subsection", CellTags->"3.05.B1"], Cell[7053, 176, 31, 0, 42, "Subsubsection"], Cell[7087, 178, 238, 8, 86, "Text"], Cell[CellGroupData[{ Cell[7350, 190, 555, 11, 212, "Input"], Cell[7908, 203, 7650, 465, 70, 7527, 461, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[15573, 671, 127, 3, 60, "Text"], Cell[CellGroupData[{ Cell[15725, 678, 496, 10, 161, "Input"], Cell[16224, 690, 7782, 475, 70, 7659, 471, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[24021, 1168, 22, 0, 34, "Text"], Cell[CellGroupData[{ Cell[24068, 1172, 496, 10, 161, "Input"], Cell[24567, 1184, 8120, 496, 70, 7997, 492, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[32702, 1683, 195, 8, 34, "Text"], Cell[32900, 1693, 79, 0, 13, "Special2"], Cell[CellGroupData[{ Cell[33004, 1697, 117, 3, 72, "Text"], Cell[33124, 1702, 27, 0, 26, "Special1"], Cell[33154, 1704, 416, 10, 119, "SmallText"], Cell[CellGroupData[{ Cell[33595, 1718, 108, 3, 39, "Input"], Cell[33706, 1723, 49, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33792, 1729, 117, 2, 23, "Input"], Cell[33912, 1733, 117, 2, 70, "Output"] }, Open ]], Cell[34044, 1738, 416, 17, 118, "SmallText"], Cell[CellGroupData[{ Cell[34485, 1759, 655, 12, 232, "Input"], Cell[35143, 1773, 6795, 396, 70, 6672, 392, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[41953, 2172, 110, 3, 30, "SmallText"], Cell[CellGroupData[{ Cell[42088, 2179, 323, 7, 71, "Input"], Cell[42414, 2188, 6877, 403, 70, 6751, 399, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[49306, 2594, 54, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[49385, 2598, 74, 2, 23, "Input"], Cell[49462, 2602, 52, 1, 70, "Output"] }, Open ]], Cell[49529, 2606, 35, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[49589, 2610, 98, 2, 45, "Input"], Cell[49690, 2614, 35, 1, 70, "Output"] }, Open ]], Cell[49740, 2618, 57, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[49822, 2622, 74, 2, 23, "Input"], Cell[49899, 2626, 57, 1, 70, "Output"] }, Open ]], Cell[49971, 2630, 35, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[50031, 2634, 103, 2, 45, "Input"], Cell[50137, 2638, 35, 1, 70, "Output"] }, Open ]], Cell[50187, 2642, 816, 25, 184, "SmallText"] }, Closed]], Cell[51018, 2670, 31, 0, 34, "Subsubsection"], Cell[51052, 2672, 245, 8, 86, "Text"], Cell[CellGroupData[{ Cell[51322, 2684, 709, 14, 260, "Input"], Cell[52034, 2700, 10302, 588, 70, 10179, 584, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[62351, 3291, 127, 3, 60, "Text"], Cell[CellGroupData[{ Cell[62503, 3298, 630, 12, 193, "Input"], Cell[63136, 3312, 10708, 615, 70, 10585, 611, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[73859, 3930, 22, 0, 34, "Text"], Cell[CellGroupData[{ Cell[73906, 3934, 630, 12, 193, "Input"], Cell[74539, 3948, 10658, 611, 70, 10535, 607, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[85212, 4562, 111, 3, 34, "Text"], Cell[85326, 4567, 79, 0, 13, "Special2"], Cell[CellGroupData[{ Cell[85430, 4571, 66, 0, 46, "Text"], Cell[85499, 4573, 27, 0, 26, "Special1"], Cell[85529, 4575, 233, 8, 75, "SmallText"], Cell[CellGroupData[{ Cell[85787, 4587, 108, 3, 39, "Input"], Cell[85898, 4592, 42, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85977, 4598, 117, 2, 23, "Input"], Cell[86097, 4602, 110, 2, 70, "Output"] }, Open ]], Cell[86222, 4607, 409, 17, 140, "SmallText"], Cell[CellGroupData[{ Cell[86656, 4628, 653, 12, 235, "Input"], Cell[87312, 4642, 6088, 342, 70, 5965, 338, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[93415, 4987, 110, 3, 30, "SmallText"], Cell[CellGroupData[{ Cell[93550, 4994, 323, 7, 71, "Input"], Cell[93876, 5003, 6166, 349, 70, 6044, 345, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[100057, 5355, 54, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[100136, 5359, 74, 2, 23, "Input"], Cell[100213, 5363, 50, 1, 70, "Output"] }, Open ]], Cell[100278, 5367, 35, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[100338, 5371, 96, 2, 31, "Input"], Cell[100437, 5375, 37, 1, 70, "Output"] }, Open ]], Cell[100489, 5379, 57, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[100571, 5383, 74, 2, 23, "Input"], Cell[100648, 5387, 55, 1, 70, "Output"] }, Open ]], Cell[100718, 5391, 35, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[100778, 5395, 101, 2, 31, "Input"], Cell[100882, 5399, 37, 1, 70, "Output"] }, Open ]], Cell[100934, 5403, 991, 32, 272, "SmallText"], Cell[CellGroupData[{ Cell[101950, 5439, 1220, 24, 423, "Input"], Cell[103173, 5465, 10418, 594, 70, 10295, 590, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[113606, 6062, 376, 14, 96, "SmallText"] }, Closed]], Cell[113997, 6079, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[114053, 6083, 280, 11, 72, "Text"], Cell[114336, 6096, 27, 0, 26, "Special1"], Cell[114366, 6098, 221, 6, 52, "SmallText"], Cell[CellGroupData[{ Cell[114612, 6108, 140, 3, 56, "Input"], Cell[114755, 6113, 72, 1, 70, "Output"] }, Open ]], Cell[114842, 6117, 33, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[114900, 6121, 63, 2, 23, "Input"], Cell[114966, 6125, 72, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115075, 6131, 42, 1, 23, "Input"], Cell[115120, 6134, 146, 3, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115303, 6142, 57, 1, 23, "Input"], Cell[115363, 6145, 162, 2, 70, "Output"] }, Open ]], Cell[115540, 6150, 233, 8, 52, "SmallText"], Cell[CellGroupData[{ Cell[115798, 6162, 76, 2, 23, "Input"], Cell[115877, 6166, 64, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115978, 6172, 88, 2, 23, "Input"], Cell[116069, 6176, 238, 4, 70, "Output"] }, Open ]], Cell[116322, 6183, 222, 8, 52, "SmallText"], Cell[CellGroupData[{ Cell[116569, 6195, 1104, 20, 475, "Input"], Cell[117676, 6217, 8698, 479, 70, 8575, 475, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[126389, 6699, 159, 5, 30, "SmallText"], Cell[CellGroupData[{ Cell[126573, 6708, 365, 7, 103, "Input"], Cell[126941, 6717, 8841, 492, 70, 8714, 488, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[135797, 7212, 89, 3, 52, "SmallText"], Cell[CellGroupData[{ Cell[135911, 7219, 74, 2, 23, "Input"], Cell[135988, 7223, 59, 1, 70, "Output"] }, Open ]], Cell[136062, 7227, 35, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[136122, 7231, 115, 2, 57, "Input"], Cell[136240, 7235, 37, 1, 70, "Output"] }, Open ]], Cell[136292, 7239, 43, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[136360, 7243, 74, 2, 23, "Input"], Cell[136437, 7247, 68, 1, 70, "Output"] }, Open ]], Cell[136520, 7251, 35, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[136580, 7255, 126, 3, 57, "Input"], Cell[136709, 7260, 37, 1, 70, "Output"] }, Open ]], Cell[136761, 7264, 43, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[136829, 7268, 74, 2, 23, "Input"], Cell[136906, 7272, 57, 1, 70, "Output"] }, Open ]], Cell[136978, 7276, 35, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[137038, 7280, 113, 2, 45, "Input"], Cell[137154, 7284, 38, 1, 70, "Output"] }, Open ]], Cell[137207, 7288, 46, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[137278, 7292, 74, 2, 23, "Input"], Cell[137355, 7296, 62, 1, 70, "Output"] }, Open ]], Cell[137432, 7300, 35, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[137492, 7304, 120, 3, 45, "Input"], Cell[137615, 7309, 38, 1, 70, "Output"] }, Open ]], Cell[137668, 7313, 33, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[137726, 7317, 95, 2, 23, "Input"], Cell[137824, 7321, 56, 1, 70, "Output"] }, Open ]], Cell[137895, 7325, 24, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[137944, 7329, 98, 2, 23, "Input"], Cell[138045, 7333, 121, 2, 70, "Output"] }, Open ]], Cell[138181, 7338, 991, 33, 272, "SmallText"], Cell[CellGroupData[{ Cell[139197, 7375, 1225, 24, 389, "Input"], Cell[140425, 7401, 10137, 582, 70, 10014, 578, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[150577, 7986, 68, 3, 52, "SmallText"] }, Closed]], Cell[150660, 7992, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[150716, 7996, 130, 3, 72, "Text"], Cell[150849, 8001, 27, 0, 26, "Special1"], Cell[150879, 8003, 825, 14, 187, "SmallText"] }, Closed]] }, Closed]], Cell[151731, 8021, 41, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[151797, 8025, 75, 1, 60, "Subsection", CellTags->"3.05.T4"], Cell[151875, 8028, 31, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[151931, 8032, 251, 5, 73, "Text"], Cell[152185, 8039, 27, 0, 26, "Special1"], Cell[152215, 8041, 508, 16, 165, "SmallText"], Cell[CellGroupData[{ Cell[152748, 8061, 121, 3, 56, "Input"], Cell[152872, 8066, 35, 1, 70, "Output"] }, Open ]], Cell[152922, 8070, 221, 6, 113, "SmallText"], Cell[CellGroupData[{ Cell[153168, 8080, 102, 2, 57, "Input"], Cell[153273, 8084, 47, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[153357, 8090, 70, 1, 39, "Input"], Cell[153430, 8093, 53, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[153520, 8099, 70, 1, 39, "Input"], Cell[153593, 8102, 53, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[153683, 8108, 71, 1, 39, "Input"], Cell[153757, 8111, 91, 1, 70, "Output"] }, Open ]], Cell[153863, 8115, 27, 0, 34, "SmallText"] }, Closed]], Cell[153905, 8118, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[153961, 8122, 294, 7, 73, "Text"], Cell[154258, 8131, 27, 0, 26, "Special1"], Cell[154288, 8133, 1130, 38, 275, "SmallText"], Cell[CellGroupData[{ Cell[155443, 8175, 121, 3, 56, "Input"], Cell[155567, 8180, 38, 1, 70, "Output"] }, Open ]], Cell[155620, 8184, 239, 6, 75, "SmallText"], Cell[CellGroupData[{ Cell[155884, 8194, 150, 3, 57, "Input"], Cell[156037, 8199, 87, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[156161, 8205, 119, 2, 39, "Input"], Cell[156283, 8209, 92, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[156412, 8215, 119, 2, 39, "Input"], Cell[156534, 8219, 119, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[156690, 8226, 119, 2, 39, "Input"], Cell[156812, 8230, 164, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[157013, 8237, 119, 2, 39, "Input"], Cell[157135, 8241, 148, 2, 70, "Output"] }, Open ]], Cell[157298, 8246, 48, 0, 30, "SmallText"] }, Closed]], Cell[157361, 8249, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[157417, 8253, 281, 6, 74, "Text"], Cell[157701, 8261, 27, 0, 26, "Special1"], Cell[157731, 8263, 641, 21, 126, "SmallText"], Cell[CellGroupData[{ Cell[158397, 8288, 137, 3, 61, "Input"], Cell[158537, 8293, 76, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[158650, 8299, 105, 2, 42, "Input"], Cell[158758, 8303, 131, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[158926, 8310, 106, 2, 42, "Input"], Cell[159035, 8314, 146, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[159218, 8321, 106, 2, 42, "Input"], Cell[159327, 8325, 159, 2, 70, "Output"] }, Open ]], Cell[159501, 8330, 40, 0, 30, "SmallText"] }, Closed]] }, Closed]], Cell[159568, 8334, 47, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[159640, 8338, 57, 1, 60, "Subsection", CellTags->"3.05.G6"], Cell[159700, 8341, 61, 0, 13, "Special2"], Cell[159764, 8343, 97, 2, 23, "Input"], Cell[159864, 8347, 33, 0, 42, "Subsubsection"], Cell[159900, 8349, 918, 31, 242, "Text"], Cell[160821, 8382, 34, 0, 42, "Subsubsection"], Cell[160858, 8384, 963, 32, 242, "Text"], Cell[161824, 8418, 31, 0, 42, "Subsubsection"], Cell[161858, 8420, 850, 26, 268, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[162745, 8451, 191, 6, 72, "Subsection", CellTags->"3.05.G7"], Cell[162939, 8459, 31, 0, 42, "Subsubsection"], Cell[162973, 8461, 754, 26, 164, "Text"], Cell[163730, 8489, 31, 0, 42, "Subsubsection"], Cell[163764, 8491, 601, 21, 138, "Text"] }, Closed]], Cell[164380, 8515, 42, 0, 34, "Subsubsection"], Cell[164425, 8517, 29, 0, 42, "Subsubsection"], Cell[164457, 8519, 3980, 148, 322, "Text"], Cell[168440, 8669, 29, 0, 42, "Subsubsection"], Cell[168472, 8671, 972, 28, 250, "Text"] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)