(*********************************************************************** 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[ 68223, 3464]*) (*NotebookOutlinePosition[ 113527, 5034]*) (* CellTagsIndexPosition[ 113394, 5026]*) (*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.03 Using Expansions\n", StyleBox["Samples", FontSize->16, FontSlant->"Italic"] }], "Title"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " Initializations" }], "Special2"], Cell[BoxData[{ \(\(Off[General::spell]; \)\), \(\(Off[General::spell1]; \)\), \(\(Off[Plot::plnr]; \)\), \(Off[ParametricPlot::ppcom]; \nSetOptions[Limit, Analytic \[Rule] True]; \n\nIf[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::"\" = "\"; \)\), \(\(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}]}]; \)\), \(\(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 Problems", "Subsubsection"], Cell[CellGroupData[{ Cell["B.4) Using expansions to help to calculate limits", "Subsection", CellTags->"3.03.B4"], Cell["\<\ To get the full impact of this problem, you should be familiar with B.3 above.\ \>", "Special2"], Cell[TextData[{ "The need to calculate limits like \n ", Cell[BoxData[ \(\(lim\+\(x\ \[Rule] \ 0\)\) f[x]\/g[x]\)]], "\ncomes up every so often.\nUsually there is no problem:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, g, x];\)\), "\n", \(\(f[x_] = Cos[2\ x];\)\), "\n", \(\(g[x_] = E\^\(-x\^2\);\)\n\), "\n", \(f[0]\/g[0]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1\)], "Output"] }, Open ]], Cell[TextData[{ "No sweat.\nIn this situation, ", Cell[BoxData[ \(lim\+\(x\ \[Rule] \ 0\)\ f[x]\/g[x] = 1\)]], ".\nBut in other situations, there can be a complication:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, g, x];\)\), "\n", \(\(f[x_] = Cos[2\ x] - 1;\)\), "\n", \(\(g[x_] = E\^\(-x\^2\) - 1;\)\n\), "\n", \(f[0]\/g[0]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(Power::"infy" \(\(:\)\(\ \)\) "Infinite expression \!\(1\/0\) encountered."\)], "Message"], Cell[BoxData[ \(Indeterminate\)], "Output"] }, Open ]], Cell["The complication is:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \({f[0], g[0]}\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \({0, 0}\)], "Output"] }, Open ]], Cell[TextData[{ "Tsk, tsk.\n", Cell[BoxData[ \(f[0] = \(g[0] = 0\)\)]], ", so you can't make sense out of ", Cell[BoxData[ \(f[0]\/g[0]\)]], "." }], "Text"], Cell["B.4.a)", "Subsubsection"], Cell[CellGroupData[{ Cell["Use expansions to get around this obstacle.", "Text"], Cell["Answer:", "Special1"], Cell["Go with the beginnings of the expansions:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(fexpan = Series[f[x], {x, 0, 4}]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(-\(2\ x\^2\)\), "+", \(\(2\ x\^4\)\/3\), "+", InterpretationBox[\(O[x]\^5\), SeriesData[ x, 0, {}, 2, 5, 1]]}], SeriesData[ x, 0, {-2, 0, Rational[ 2, 3]}, 2, 5, 1]]], "Output"] }, Open ]], Cell[TextData[{ "This has order of contact ", Cell[BoxData[ \(4\)]], " with ", Cell[BoxData[ \(f[x]\)]], "." }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(gexpan = Series[g[x], {x, 0, 4}]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(-x\^2\), "+", \(x\^4\/2\), "+", InterpretationBox[\(O[x]\^5\), SeriesData[ x, 0, {}, 2, 5, 1]]}], SeriesData[ x, 0, {-1, 0, Rational[ 1, 2]}, 2, 5, 1]]], "Output"] }, Open ]], Cell[TextData[{ "This has order of contact ", Cell[BoxData[ \(4\)]], " with ", Cell[BoxData[ \(g[x]\)]], ".\nNow divide one into the other:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[fovergapprox];\)\), "\n", \(fovergapprox[x_] = Normal[fexpan\/gexpan]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(2 + x\^2\/3\)], "Output"] }, Open ]], Cell["And plot:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x]\/g[x], fovergapprox[x]}, {x, \(-1\), 1}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.01]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, 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.476191 -3.51691 1.76581 [ [.02381 .00221 -6 -9 ] [.02381 .00221 6 0 ] [.2619 .00221 -12 -9 ] [.2619 .00221 12 0 ] [.7381 .00221 -9 -9 ] [.7381 .00221 9 0 ] [.97619 .00221 -3 -9 ] [.97619 .00221 3 0 ] [1.025 .01471 0 -6 ] [1.025 .01471 10 6 ] [.4875 .10301 -24 -4.5 ] [.4875 .10301 0 4.5 ] [.4875 .1913 -18 -4.5 ] [.4875 .1913 0 4.5 ] [.4875 .27959 -24 -4.5 ] [.4875 .27959 0 4.5 ] [.4875 .36788 -18 -4.5 ] [.4875 .36788 0 4.5 ] [.4875 .45617 -24 -4.5 ] [.4875 .45617 0 4.5 ] [.4875 .54446 -18 -4.5 ] [.4875 .54446 0 4.5 ] [.5 .63053 -104 0 ] [.5 .63053 104 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 .01471 m .02381 .02096 L s [(-1)] .02381 .00221 0 1 Mshowa .2619 .01471 m .2619 .02096 L s [(-0.5)] .2619 .00221 0 1 Mshowa .7381 .01471 m .7381 .02096 L s [(0.5)] .7381 .00221 0 1 Mshowa .97619 .01471 m .97619 .02096 L s [(1)] .97619 .00221 0 1 Mshowa .125 Mabswid .07143 .01471 m .07143 .01846 L s .11905 .01471 m .11905 .01846 L s .16667 .01471 m .16667 .01846 L s .21429 .01471 m .21429 .01846 L s .30952 .01471 m .30952 .01846 L s .35714 .01471 m .35714 .01846 L s .40476 .01471 m .40476 .01846 L s .45238 .01471 m .45238 .01846 L s .54762 .01471 m .54762 .01846 L s .59524 .01471 m .59524 .01846 L s .64286 .01471 m .64286 .01846 L s .69048 .01471 m .69048 .01846 L s .78571 .01471 m .78571 .01846 L s .83333 .01471 m .83333 .01846 L s .88095 .01471 m .88095 .01846 L s .92857 .01471 m .92857 .01846 L s .25 Mabswid 0 .01471 m 1 .01471 L s gsave 1.025 .01471 -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 .10301 m .50625 .10301 L s [(2.05)] .4875 .10301 1 0 Mshowa .5 .1913 m .50625 .1913 L s [(2.1)] .4875 .1913 1 0 Mshowa .5 .27959 m .50625 .27959 L s [(2.15)] .4875 .27959 1 0 Mshowa .5 .36788 m .50625 .36788 L s [(2.2)] .4875 .36788 1 0 Mshowa .5 .45617 m .50625 .45617 L s [(2.25)] .4875 .45617 1 0 Mshowa .5 .54446 m .50625 .54446 L s [(2.3)] .4875 .54446 1 0 Mshowa .125 Mabswid .5 .03237 m .50375 .03237 L s .5 .05003 m .50375 .05003 L s .5 .06769 m .50375 .06769 L s .5 .08535 m .50375 .08535 L s .5 .12066 m .50375 .12066 L s .5 .13832 m .50375 .13832 L s .5 .15598 m .50375 .15598 L s .5 .17364 m .50375 .17364 L s .5 .20895 m .50375 .20895 L s .5 .22661 m .50375 .22661 L s .5 .24427 m .50375 .24427 L s .5 .26193 m .50375 .26193 L s .5 .29724 m .50375 .29724 L s .5 .3149 m .50375 .3149 L s .5 .33256 m .50375 .33256 L s .5 .35022 m .50375 .35022 L s .5 .38554 m .50375 .38554 L s .5 .40319 m .50375 .40319 L s .5 .42085 m .50375 .42085 L s .5 .43851 m .50375 .43851 L s .5 .47383 m .50375 .47383 L s .5 .49148 m .50375 .49148 L s .5 .50914 m .50375 .50914 L s .5 .5268 m .50375 .5268 L s .5 .56212 m .50375 .56212 L s .5 .57977 m .50375 .57977 L s .5 .59743 m .50375 .59743 L s .5 .61509 m .50375 .61509 L s .25 Mabswid .5 0 m .5 .61803 L s gsave .5 .63053 -165 -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 (f) 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 69.000 13.000 moveto (@) show 75.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 %%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 81.000 13.000 moveto (D) show 87.000 13.000 moveto (\\220) show 93.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 (g) 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 99.000 13.000 moveto (@) show 105.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 %%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 111.000 13.000 moveto (D) show 123.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 (and) show 147.000 13.000 moveto (a) show 159.000 13.000 moveto (good) show 189.000 13.000 moveto (approximation) 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 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 .01 w .02381 .43906 m .06244 .39715 L .10458 .346 L .14415 .29556 L .18221 .24703 L .22272 .19734 L .26171 .15302 L .30316 .11113 L .34309 .07697 L .3815 .05063 L .40095 .03992 L .42237 .03026 L .44268 .02321 L .45178 .02073 L .46172 .01851 L .4671 .01752 L .4721 .01673 L .47727 .01605 L .48196 .01556 L .48658 .01518 L .4887 .01505 L .49093 .01493 L .49332 .01483 L .49438 .0148 L .49552 .01477 L .49675 .01474 L .49789 .01473 L .49859 .01472 L .49925 .01472 L .50049 .01472 L .50163 .01472 L .50286 .01474 L .50401 .01476 L .50508 .01478 L .50754 .01486 L .51014 .01498 L .51268 .01513 L .51504 .0153 L .5204 .01579 L .5293 .01694 L .53882 .01862 L .54906 .02095 L .56016 .02408 L .58032 .03135 L .62123 .05228 L .66064 .07987 L .69852 .11271 L .73886 .15364 L .77769 .19783 L .81897 .24851 L Mistroke .85873 .29925 L .89697 .34795 L .93767 .39728 L .97619 .43906 L Mfstroke 1 0 0 r .02381 .60332 m .06244 .51168 L .10458 .42058 L .14415 .34341 L .18221 .27686 L .22272 .21429 L .26171 .16211 L .30316 .11529 L .34309 .07863 L .3815 .05117 L .40095 .04018 L .42237 .03036 L .44268 .02324 L .45178 .02075 L .46172 .01852 L .4671 .01752 L .4721 .01674 L .47727 .01606 L .48196 .01556 L .48658 .01518 L .4887 .01505 L .49093 .01493 L .49332 .01483 L .49438 .0148 L .49552 .01477 L .49675 .01474 L .49789 .01473 L .49859 .01472 L .49925 .01472 L .50049 .01472 L .50163 .01472 L .50286 .01474 L .50401 .01476 L .50508 .01478 L .50754 .01486 L .51014 .01498 L .51268 .01513 L .51504 .0153 L .5204 .01579 L .5293 .01694 L .53882 .01863 L .54906 .02096 L .56016 .02411 L .58032 .03146 L .60019 .04077 L .62123 .05287 L .65912 .08044 L .69946 .11799 L .73829 .1621 L .77956 .21759 L Mistroke .81932 .2794 L .85757 .34659 L .89827 .42644 L .93745 .51144 L .97619 .60332 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[{ "Evidently, ", Cell[BoxData[ \(fovergapprox[x]\)]], " has good contact with ", Cell[BoxData[ \(f[x]\/g[x]\)]], " near ", Cell[BoxData[ \(x = 0\)]], ". Based on this plot, you can say that\n ", Cell[BoxData[ \(lim\+\(x\ \[Rule] \ 0\)\ f[x]\/g[x]\)]], " is:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(fovergapprox[0]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell[TextData[{ "Check with ", StyleBox["Mathematica", FontSlant->"Italic"], ":" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[f[x]\/g[x], x \[Rule] 0]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell["\<\ Got it. The idea of order of contact wins again.\ \>", "SmallText"] }, Closed]], Cell[TextData[{ "B.4.b.i) ", " ", Cell[BoxData[ \(lim\+\(x\ \[Rule] \ 0\)\ f[x]\/g[x]\)]] }], "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Give a systematic procedure to use to calculate \n ", Cell[BoxData[ \(lim\+\(x\ \[Rule] \ 0\)\ f[x]\/g[x]\)]], "." }], "Text"], Cell["Answer:", "Special1"], Cell["Look again at what happened above:", "Text"], Cell[BoxData[{ \(\(Clear[f, g, x];\)\), "\n", \(\(f[x_] = Cos[2\ x] - 1;\)\), "\n", \(\(g[x_] = E\^\(-x\^2\) - 1;\)\)}], "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(fexpan = Series[f[x], {x, 0, 4}]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(-\(2\ x\^2\)\), "+", \(\(2\ x\^4\)\/3\), "+", InterpretationBox[\(O[x]\^5\), SeriesData[ x, 0, {}, 2, 5, 1]]}], SeriesData[ x, 0, {-2, 0, Rational[ 2, 3]}, 2, 5, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(gexpan = Series[g[x], {x, 0, 4}]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(-x\^2\), "+", \(x\^4\/2\), "+", InterpretationBox[\(O[x]\^5\), SeriesData[ x, 0, {}, 2, 5, 1]]}], SeriesData[ x, 0, {-1, 0, Rational[ 1, 2]}, 2, 5, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(fexpan\/gexpan\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{"2", "+", \(x\^2\/3\), "+", InterpretationBox[\(O[x]\^3\), SeriesData[ x, 0, {}, 0, 3, 1]]}], SeriesData[ x, 0, {2, 0, Rational[ 1, 3]}, 0, 3, 1]]], "Output"] }, Open ]], Cell[TextData[{ "The result:\n ", Cell[BoxData[ \(\(lim\+\(x\ \[Rule] \ 0\)\) f[x]\/g[x] = 2\)]], "." }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[f[x]\/g[x], x \[Rule] 0]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell[TextData[{ "Once you have the expansions of ", Cell[BoxData[ \(f[x]\)]], " and ", Cell[BoxData[ \(g[x]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ", you can do these in your head. \nHere's how:\nTake the first non-zero \ term of the expansion of ", Cell[BoxData[ \(g[x]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ", divide it into the first nonzero term of the expansion of ", Cell[BoxData[ \(f[x]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ", and then see what happens as ", Cell[BoxData[ \(x\)]], " closes in on ", Cell[BoxData[ \(0\)]], ".\nIn the case above:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(fexpan\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(-\(2\ x\^2\)\), "+", \(\(2\ x\^4\)\/3\), "+", InterpretationBox[\(O[x]\^5\), SeriesData[ x, 0, {}, 2, 5, 1]]}], SeriesData[ x, 0, {-2, 0, Rational[ 2, 3]}, 2, 5, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(gexpan\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(-x\^2\), "+", \(x\^4\/2\), "+", InterpretationBox[\(O[x]\^5\), SeriesData[ x, 0, {}, 2, 5, 1]]}], SeriesData[ x, 0, {-1, 0, Rational[ 1, 2]}, 2, 5, 1]]], "Output"] }, Open ]], Cell[TextData[{ "Divide ", Cell[BoxData[ \(\((\(-x\))\)\^2\)]], " into ", Cell[BoxData[ \(\((\(-2\)\ x)\)\^2\)]], " to get\n ", Cell[BoxData[ \(\(lim\+\(x\ \[Rule] \ 0\)\) f[x]\/g[x] = \(lim\+\(x\ \[Rule] \ 0\)\ \((\(-2\)\ x)\)\^2\/\((\(-x\))\)\^2 = 2 \)\)]], "." }], "SmallText"] }, Closed]], Cell["B.4.b.ii)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Use the systematic procedure in part i) above to calculate\n ", Cell[BoxData[ \(lim\+\(x\ \[Rule] \ 0\)\ f[x]\/g[x]\)]], "\nfor ", Cell[BoxData[ \(f[x] = x - \ Sin[x]\)]], " and ", Cell[BoxData[ \(g[x] = x\^2\)]], "." }], "Text"], Cell["Answer:", "Special1"], Cell["Just do it!", "SmallText"], Cell[BoxData[{ \(\(Clear[f, g, x];\)\), "\n", \(\(f[x_] = x - Sin[x];\)\), "\n", \(\(g[x_] = x\^2;\)\)}], "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(fexpan = Series[f[x], {x, 0, 4}]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(x\^3\/6\), "+", InterpretationBox[\(O[x]\^5\), SeriesData[ x, 0, {}, 3, 5, 1]]}], SeriesData[ x, 0, { Rational[ 1, 6]}, 3, 5, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(gexpan = Series[g[x], {x, 0, 4}]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(x\^2\), "+", InterpretationBox[\(O[x]\^5\), SeriesData[ x, 0, {}, 2, 5, 1]]}], SeriesData[ x, 0, {1}, 2, 5, 1]]], "Output"] }, Open ]], Cell[TextData[{ "Divide ", Cell[BoxData[ \(x\^3\/6\)]], "into ", Cell[BoxData[ \(x\^2\)]], " to get\n ", Cell[BoxData[ \(lim\+\(x\ \[Rule] \ 0\)\ f[x]\/g[x]\)]], " \n ", Cell[BoxData[ \(\( = lim\+\(x\ \[Rule] \ 0\)\ x\^3\/\(6\ x\^2\)\)\)]], "\n ", Cell[BoxData[ \(\( = \(lim\+\(x\ \[Rule] \ 0\)\) x\/6 = 0\)\)]], ".\nCheck:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[f[x]\/g[x], x \[Rule] 0]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[TextData[{ "Nailed it. And guess what? ", StyleBox["Mathematica", FontSlant->"Italic"], " probably calculated this limit just the way you did above. " }], "SmallText"] }, Closed]], Cell["B.4.b.iii)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "To use the systematic procedure above, do you have to check whether ", Cell[BoxData[ \(f[0]\)]], " and ", Cell[BoxData[ \(g[0]\)]], " are both ", Cell[BoxData[ \(0\)]], "?" }], "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "NO.\nHowever, if ", Cell[BoxData[ \(g[0]\)]], " is not ", Cell[BoxData[ \(0\)]], ", you can calculate \n ", Cell[BoxData[ \(lim\_\(x \[Rule] 0\)\ f[x]\/g[x] = f[0]\/g[0]\)]], "\nand save yourself the trouble of getting the expansions." }], "SmallText"] }, Closed]], Cell["B.4.c)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Adapt the systematic procedure in part i) above to calculate\n ", Cell[BoxData[ \(lim\+\(x\ \[Rule] \ 1\)\ f[x]\/g[x]\)]], "\nfor ", Cell[BoxData[ \(f[x] = Cos[\[Pi]\ x] + \ 1\)]], " and ", Cell[BoxData[ \(g[x] = Sin[\[Pi]\ x]\^2\)]], "." }], "Text"], Cell["Answer:", "Special1"], Cell["Here you go:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, g, x];\)\), "\n", \(\(f[x_] = Cos[\[Pi]\ x] + 1;\)\), "\n", \(\(g[x_] = Sin[\[Pi]\ x]\^2;\)\n\), "\n", \(fexpan = Series[f[x], {x, 1, 4}]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(1\/2\ \[Pi]\^2\ \((x - 1)\)\^2\), "-", \(1\/24\ \[Pi]\^4\ \((x - 1)\)\^4\), "+", InterpretationBox[\(O[x - 1]\^5\), SeriesData[ x, 1, {}, 2, 5, 1]]}], SeriesData[ x, 1, { Times[ Rational[ 1, 2], Power[ Pi, 2]], 0, Times[ Rational[ -1, 24], Power[ Pi, 4]]}, 2, 5, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(gexpan = Series[g[x], {x, 1, 4}]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ InterpretationBox[ RowBox[{\(\[Pi]\^2\ \((x - 1)\)\^2\), "-", \(1\/3\ \[Pi]\^4\ \((x - 1)\)\^4\), "+", InterpretationBox[\(O[x - 1]\^5\), SeriesData[ x, 1, {}, 2, 5, 1]]}], SeriesData[ x, 1, { Power[ Pi, 2], 0, Times[ Rational[ -1, 3], Power[ Pi, 4]]}, 2, 5, 1]]], "Output"] }, Open ]], Cell[TextData[{ "Divide ", Cell[BoxData[ \(\[Pi]\^2\)]], Cell[BoxData[ \(\((x - 1)\)\^2\)]], " into ", Cell[BoxData[ \(1\/2\ \[Pi]\^2\ \((x - 1)\)\^2\)]], " to get\n ", Cell[BoxData[ \(lim\+\(x\ \[Rule] \ 1\)\ f[x]\/g[x]\)]], " \n ", Cell[BoxData[ \(\( = lim\+\(x\ \[Rule] \ 1\)\ \(\[Pi]\^2\ \((x\ - \ 1)\)\^2\ \)\/\(2\ \(\[Pi]\^2\) \((x\ - \ 1)\)\^2\)\)\)]], "\n ", Cell[BoxData[ \(\( = 1\/2\)\)]], ".\nCheck:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[f[x]\/g[x], x \[Rule] 1]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1\/2\)], "Output"] }, Open ]], Cell["Nailed it. ", "SmallText"] }, Closed]] }, Closed]], Cell["Tutorial Problem", "Subsubsection"], Cell[CellGroupData[{ Cell["T.2) Square roots by Newton's method", "Subsection", CellTags->"3.03.T2"], Cell["T.2.a)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Newton's method gives a simple method for extracting square roots on a \ very cheap calculator.\nHere is the idea:\nGiven a number ", Cell[BoxData[ \(A\)]], ", you try to calculate ", Cell[BoxData[ \(\@A\)]], " by going with\n ", Cell[BoxData[ \(f[x]\ = \ x\^2\ - \ A\)]], ", \nand using Newton's method to find an approximation of the number ", Cell[BoxData[ SuperscriptBox["x", "*", MultilineFunction->None]]], " that makes ", Cell[BoxData[ RowBox[{ RowBox[{"f", "[", SuperscriptBox["x", "*", MultilineFunction->None], "]"}], " ", "=", " ", "0"}]]], ". \nSay what the update formula is and then say how to punch the \ appropriate numbers into the cheap calculator." }], "Text"], Cell["Answer:", "Special1"], Cell["Set the function:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, a, n, A];\)\), "\n", \(f[x_] = x\^2 - A\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(\(-A\) + x\^2\)], "Output"] }, Open ]], Cell[TextData[{ "Take the formula \n ", Cell[BoxData[ RowBox[{\(a[n]\), "=", RowBox[{\(a[n - \ 1]\), "-", " ", FractionBox[\(f[a[n - 1]]\), RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", \(a[n - 1]\), "]"}]]}]}]]], "\nfrom B.2.c) above and clean it up:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[a];\)\), "\n", \(Apart[a[n - 1] - f[a[n - 1]]\/\(f'\)[a[n - 1]]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(A\/\(2\ a[\(-1\) + n]\) + 1\/2\ a[\(-1\) + n]\)], "Output"] }, Open ]], Cell[TextData[{ "So the clean update formula to punch into the cheap calculator is:\n \ ", Cell[BoxData[ \(a[n] = \((1\/2)\) \((A\/a[n - 1] + a[n - 1])\)\)]] }], "SmallText"], Cell[TextData[{ "To illustrate how to do it to approximate ", Cell[BoxData[ \(\@3\)]], ", just punch the following numbers into the calculator, going with a first \ guess of ", Cell[BoxData[ \(1.5\)]], ":" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(1\/2\ \((3\/1.5 + 1.5)\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1.75`\)], "Output"] }, Open ]], Cell["Now punch in: ", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(1\/2\ \((3\/1.75 + 1.75)\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1.7321428571428572`\)], "Output"] }, Open ]], Cell["And now punch in:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(1\/2\ \((3\/1.73214 + 1.73214)\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1.7320508098652536`\)], "Output"] }, Open ]], Cell[TextData[{ "Here is ", Cell[BoxData[ \(\@3\)]], " to machine accuracy:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(N[\@3]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1.7320508075688772`\)], "Output"] }, Open ]], Cell[TextData[{ "On the calculator, you would have gotten this approximation of ", Cell[BoxData[ \(\@3\)]], " in three steps.\nTo approximate ", Cell[BoxData[ \(\@10\)]], " , just punch the following numbers into the calculator, going with a \ first guess of ", Cell[BoxData[ \(3.0\)]], ":" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(1\/2\ \((10\/3.0 + 3.0)\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(3.1666666666666665`\)], "Output"] }, Open ]], Cell["The second approximation is: ", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(1\/2\ \((10\/3.16667 + 3.16667)\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(3.1622807063729406`\)], "Output"] }, Open ]], Cell["The third approximation is:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(1\/2\ \((10\/3.16228 + 3.16228)\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(3.162277660169245`\)], "Output"] }, Open ]], Cell[TextData[{ "Here is ", Cell[BoxData[ \(\@10\)]], " to machine accuracy:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(N[\@10]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(3.1622776601683795`\)], "Output"] }, Open ]], Cell[TextData[{ "On the calculator, you would have gotten this approximation of ", Cell[BoxData[ \(\@10\)]], " in two steps." }], "SmallText"] }, Closed]] }, Closed]], Cell["Give It a Try Problem", "Subsubsection"], Cell[CellGroupData[{ Cell[" G.3) Centering the expansion* ", "Subsection", CellTags->"3.03.G3"], Cell["G.3.a.i)", "Subsubsection"], Cell[TextData[{ "Which of the following sixth degee polynomials do you predict is the best \ overall approximation on ", Cell[BoxData[ \(\([0, 1]\)\)]], " of ", Cell[BoxData[ \(f[x] = e\^x\)]], "?" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[x];\)\), "\n", \(approx1[x_] = Normal[Series[E\^x, {x, 0, 6}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 + x + x\^2\/2 + x\^3\/6 + x\^4\/24 + x\^5\/120 + x\^6\/720\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(approx2[x_] = Normal[Series[E\^x, {x, 1\/2, 6}]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(\@\[ExponentialE] + \@\[ExponentialE]\ \((\(-\(1\/2\)\) + x)\) + 1\/2\ \@\[ExponentialE]\ \((\(-\(1\/2\)\) + x)\)\^2 + 1\/6\ \@\[ExponentialE]\ \((\(-\(1\/2\)\) + x)\)\^3 + 1\/24\ \@\[ExponentialE]\ \((\(-\(1\/2\)\) + x)\)\^4 + 1\/120\ \@\[ExponentialE]\ \((\(-\(1\/2\)\) + x)\)\^5 + 1\/720\ \@\[ExponentialE]\ \((\(-\(1\/2\)\) + x)\)\^6\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(approx3[x_] = Normal[Series[E\^x, {x, 1, 6}]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(\[ExponentialE] + \[ExponentialE]\ \((\(-1\) + x)\) + 1\/2\ \[ExponentialE]\ \((\(-1\) + x)\)\^2 + 1\/6\ \[ExponentialE]\ \((\(-1\) + x)\)\^3 + 1\/24\ \[ExponentialE]\ \((\(-1\) + x)\)\^4 + 1\/120\ \[ExponentialE]\ \((\(-1\) + x)\)\^5 + 1\/720\ \[ExponentialE]\ \((\(-1\) + x)\)\^6\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Try to explain why the winner had an unfair advantage. ", "Text"], Cell["Tip:", "Special1"], Cell["Begin by looking at:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[E\^x - approx1[x], {x, 0, 1}, 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.0147151 2601.3 [ [.21429 .00222 -9 -9 ] [.21429 .00222 9 0 ] [.40476 .00222 -9 -9 ] [.40476 .00222 9 0 ] [.59524 .00222 -9 -9 ] [.59524 .00222 9 0 ] [.78571 .00222 -9 -9 ] [.78571 .00222 9 0 ] [.97619 .00222 -3 -9 ] [.97619 .00222 3 0 ] [.01131 .14478 -42 -4.5 ] [.01131 .14478 0 4.5 ] [.01131 .27485 -36 -4.5 ] [.01131 .27485 0 4.5 ] [.01131 .40491 -42 -4.5 ] [.01131 .40491 0 4.5 ] [.01131 .53498 -36 -4.5 ] [.01131 .53498 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .01472 m .21429 .02097 L s [(0.2)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(0.4)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(0.6)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(0.8)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(1)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .2619 .01472 m .2619 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .45238 .01472 m .45238 .01847 L s .5 .01472 m .5 .01847 L s .54762 .01472 m .54762 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .7381 .01472 m .7381 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .14478 m .03006 .14478 L s [(0.00005)] .01131 .14478 1 0 Mshowa .02381 .27485 m .03006 .27485 L s [(0.0001)] .01131 .27485 1 0 Mshowa .02381 .40491 m .03006 .40491 L s [(0.00015)] .01131 .40491 1 0 Mshowa .02381 .53498 m .03006 .53498 L s [(0.0002)] .01131 .53498 1 0 Mshowa .125 Mabswid .02381 .04073 m .02756 .04073 L s .02381 .06674 m .02756 .06674 L s .02381 .09275 m .02756 .09275 L s .02381 .11877 m .02756 .11877 L s .02381 .17079 m .02756 .17079 L s .02381 .19681 m .02756 .19681 L s .02381 .22282 m .02756 .22282 L s .02381 .24883 m .02756 .24883 L s .02381 .30086 m .02756 .30086 L s .02381 .32687 m .02756 .32687 L s .02381 .35288 m .02756 .35288 L s .02381 .3789 m .02756 .3789 L s .02381 .43092 m .02756 .43092 L s .02381 .45694 m .02756 .45694 L s .02381 .48295 m .02756 .48295 L s .02381 .50896 m .02756 .50896 L s .02381 .56099 m .02756 .56099 L s .02381 .587 m .02756 .587 L s .02381 .61301 m .02756 .61301 L s .25 Mabswid .02381 0 m .02381 .61803 L s .5 Mabswid .02381 .01472 m .03279 .01472 L .03405 .01472 L .03477 .01472 L .03543 .01472 L .03665 .01472 L .03793 .01472 L .03901 .01472 L .04016 .01472 L .04143 .01472 L .04262 .01472 L .04325 .01472 L .04395 .01472 L .04521 .01472 L .04644 .01472 L .04758 .01472 L .04827 .01472 L .04892 .01472 L .05014 .01472 L .05146 .01472 L .0522 .01472 L .05288 .01472 L .05403 .01472 L .0551 .01472 L .05627 .01472 L .05753 .01472 L .05885 .01472 L .0601 .01472 L .06244 .01472 L .06369 .01472 L .06486 .01472 L .06625 .01472 L .06753 .01472 L .07013 .01472 L .07293 .01472 L .07518 .01472 L .07765 .01472 L .08023 .01472 L .08263 .01472 L .08549 .01472 L .08819 .01472 L .09061 .01472 L .09324 .01472 L .09611 .01472 L .09914 .01472 L .10193 .01472 L .10458 .01472 L .10951 .01472 L .11402 .01472 L .11887 .01472 L Mistroke .12415 .01472 L .12876 .01472 L .13366 .01472 L .13828 .01472 L .14247 .01472 L .14736 .01472 L .15252 .01472 L .16175 .01472 L .1669 .01472 L .17169 .01472 L .17691 .01472 L .18259 .01472 L .18803 .01472 L .19306 .01472 L .20298 .01472 L .21199 .01472 L .22155 .01472 L .23094 .01473 L .24106 .01473 L .25061 .01474 L .25935 .01475 L .26918 .01476 L .27831 .01477 L .28833 .01478 L .29903 .01481 L .30929 .01483 L .32041 .01487 L .33002 .01491 L .34058 .01496 L .36049 .01509 L .37138 .01518 L .38155 .01529 L .40187 .01556 L .42042 .0159 L .43948 .01636 L .46024 .01704 L .47999 .01789 L .50099 .01908 L .52043 .0205 L .5387 .02218 L .57736 .02718 L .59738 .03074 L .61847 .03541 L .65654 .04684 L .67613 .0546 L .69707 .06462 L .73854 .09099 L .77849 .12696 L .81692 .1745 L .85781 .24322 L Mistroke .89718 .33209 L .93503 .44419 L .97534 .59958 L .97619 .60332 L Mfstroke 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[CellGroupData[{ Cell[BoxData[ \(\(Plot[E\^x - approx2[x], {x, 0, 1}, 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.290636 114757 [ [.21429 .27814 -9 -9 ] [.21429 .27814 9 0 ] [.40476 .27814 -9 -9 ] [.40476 .27814 9 0 ] [.59524 .27814 -9 -9 ] [.59524 .27814 9 0 ] [.78571 .27814 -9 -9 ] [.78571 .27814 9 0 ] [.97619 .27814 -3 -9 ] [.97619 .27814 3 0 ] [.01131 .06112 -39 -6.25 ] [.01131 .06112 0 6.25 ] [.01131 .17588 -39 -6.25 ] [.01131 .17588 0 6.25 ] [.01131 .40539 -33 -6.25 ] [.01131 .40539 0 6.25 ] [.01131 .52015 -33 -6.25 ] [.01131 .52015 0 6.25 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .29064 m .21429 .29689 L s [(0.2)] .21429 .27814 0 1 Mshowa .40476 .29064 m .40476 .29689 L s [(0.4)] .40476 .27814 0 1 Mshowa .59524 .29064 m .59524 .29689 L s [(0.6)] .59524 .27814 0 1 Mshowa .78571 .29064 m .78571 .29689 L s [(0.8)] .78571 .27814 0 1 Mshowa .97619 .29064 m .97619 .29689 L s [(1)] .97619 .27814 0 1 Mshowa .125 Mabswid .07143 .29064 m .07143 .29439 L s .11905 .29064 m .11905 .29439 L s .16667 .29064 m .16667 .29439 L s .2619 .29064 m .2619 .29439 L s .30952 .29064 m .30952 .29439 L s .35714 .29064 m .35714 .29439 L s .45238 .29064 m .45238 .29439 L s .5 .29064 m .5 .29439 L s .54762 .29064 m .54762 .29439 L s .64286 .29064 m .64286 .29439 L s .69048 .29064 m .69048 .29439 L s .7381 .29064 m .7381 .29439 L s .83333 .29064 m .83333 .29439 L s .88095 .29064 m .88095 .29439 L s .92857 .29064 m .92857 .29439 L s .25 Mabswid 0 .29064 m 1 .29064 L s .02381 .06112 m .03006 .06112 L s gsave .01131 .06112 -39 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (-2) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-6) show grestore .02381 .17588 m .03006 .17588 L s gsave .01131 .17588 -39 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (-1) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-6) show grestore .02381 .40539 m .03006 .40539 L s gsave .01131 .40539 -33 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (1) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-6) show grestore .02381 .52015 m .03006 .52015 L s gsave .01131 .52015 -33 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (2) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-6) show grestore .125 Mabswid .02381 .08407 m .02756 .08407 L s .02381 .10703 m .02756 .10703 L s .02381 .12998 m .02756 .12998 L s .02381 .15293 m .02756 .15293 L s .02381 .19883 m .02756 .19883 L s .02381 .22178 m .02756 .22178 L s .02381 .24473 m .02756 .24473 L s .02381 .26768 m .02756 .26768 L s .02381 .31359 m .02756 .31359 L s .02381 .33654 m .02756 .33654 L s .02381 .35949 m .02756 .35949 L s .02381 .38244 m .02756 .38244 L s .02381 .42834 m .02756 .42834 L s .02381 .4513 m .02756 .4513 L s .02381 .47425 m .02756 .47425 L s .02381 .4972 m .02756 .4972 L s .02381 .03817 m .02756 .03817 L s .02381 .01522 m .02756 .01522 L s .02381 .5431 m .02756 .5431 L s .02381 .56605 m .02756 .56605 L s .02381 .589 m .02756 .589 L s .02381 .61195 m .02756 .61195 L s .25 Mabswid .02381 0 m .02381 .61803 L s .5 Mabswid .02381 .01472 m .04262 .08204 L .06244 .1373 L .08255 .18004 L .10458 .21475 L .12415 .23732 L .14509 .25484 L .1553 .26142 L .16639 .26737 L .17598 .27164 L .18653 .27555 L .20637 .28107 L .21723 .28327 L .2274 .28493 L .23778 .28628 L .24765 .2873 L .25736 .2881 L .26617 .28868 L .27576 .28917 L .28598 .28958 L .29545 .28987 L .30437 .29007 L .31413 .29024 L .32444 .29037 L .33325 .29045 L .34292 .29051 L .34816 .29054 L .35312 .29056 L .36243 .29059 L .36763 .2906 L .37244 .29061 L .37773 .29061 L .38334 .29062 L .38823 .29062 L .39271 .29063 L .39763 .29063 L .40281 .29063 L .40733 .29063 L .41154 .29063 L .41616 .29063 L .42109 .29063 L .42368 .29064 L .42642 .29064 L .43133 .29064 L .43407 .29064 L .43662 .29064 L .43942 .29064 L .44244 .29064 L .44502 .29064 L .44784 .29064 L Mistroke .4505 .29064 L .45297 .29064 L .45541 .29064 L .45763 .29064 L .45886 .29064 L .46018 .29064 L .46144 .29064 L .46259 .29064 L .46497 .29064 L .46628 .29064 L .46752 .29064 L .46859 .29064 L .46972 .29064 L .47097 .29064 L .47212 .29064 L .47335 .29064 L .47405 .29064 L .47468 .29064 L .47586 .29064 L .47709 .29064 L .47774 .29064 L .47845 .29064 L .47971 .29064 L .4812 .29064 L .48185 .29064 L .48257 .29064 L .48325 .29064 L .48389 .29064 L .48457 .29064 L .4853 .29064 L .48609 .29064 L .48684 .29064 L .48752 .29064 L .48825 .29064 L .4889 .29064 L .4896 .29064 L .49034 .29064 L .49104 .29064 L .49362 .29064 L .49844 .29064 L .49976 .29064 L .50115 .29064 L .50234 .29064 L .50364 .29064 L .50496 .29064 L .50617 .29064 L .50681 .29064 L .50751 .29064 L .50892 .29064 L .51132 .29064 L Mistroke .5139 .29064 L .51519 .29064 L .51642 .29064 L .51752 .29064 L .51872 .29064 L .51984 .29064 L .52104 .29064 L .52218 .29064 L .52323 .29064 L .52457 .29064 L .52525 .29064 L .52599 .29064 L .52728 .29064 L .52849 .29064 L .52922 .29064 L .52991 .29064 L .53119 .29064 L .53258 .29064 L .53409 .29064 L .5353 .29064 L .53663 .29064 L .53793 .29064 L .53933 .29064 L .54183 .29064 L .54417 .29064 L .54657 .29064 L .54914 .29064 L .55156 .29064 L .55375 .29064 L .55634 .29064 L .55914 .29064 L .56179 .29064 L .56423 .29064 L .56911 .29064 L .57189 .29064 L .57448 .29064 L .57971 .29064 L .58265 .29064 L .58533 .29064 L .59012 .29064 L .59521 .29064 L .60002 .29064 L .60437 .29064 L .60951 .29065 L .61506 .29065 L .6203 .29066 L .62511 .29066 L .62983 .29067 L .63488 .29068 L .64399 .2907 L Mistroke .64956 .29073 L .65482 .29075 L .65951 .29078 L .66467 .29081 L .67436 .2909 L .68464 .29103 L .69416 .2912 L .70307 .29141 L .71345 .29173 L .72331 .29214 L .73217 .29262 L .74183 .29327 L .75215 .29418 L .7615 .29521 L .77229 .29671 L .78247 .29851 L .79222 .30063 L .80254 .30339 L .82101 .31 L .83048 .3144 L .84063 .32005 L .85897 .3332 L .8802 .35446 L .90031 .38245 L .92021 .41993 L .93863 .46566 L .95648 .5226 L .97619 .60332 L Mfstroke 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[CellGroupData[{ Cell[BoxData[ \(\(Plot[E\^x - approx3[x], {x, 0, 1}, 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.603319 1229.52 [ [.21429 .59082 -9 -9 ] [.21429 .59082 9 0 ] [.40476 .59082 -9 -9 ] [.40476 .59082 9 0 ] [.59524 .59082 -9 -9 ] [.59524 .59082 9 0 ] [.78571 .59082 -9 -9 ] [.78571 .59082 9 0 ] [.97619 .59082 -3 -9 ] [.97619 .59082 3 0 ] [.01131 .11151 -42 -4.5 ] [.01131 .11151 0 4.5 ] [.01131 .23446 -42 -4.5 ] [.01131 .23446 0 4.5 ] [.01131 .35742 -42 -4.5 ] [.01131 .35742 0 4.5 ] [.01131 .48037 -42 -4.5 ] [.01131 .48037 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .60332 m .21429 .60957 L s [(0.2)] .21429 .59082 0 1 Mshowa .40476 .60332 m .40476 .60957 L s [(0.4)] .40476 .59082 0 1 Mshowa .59524 .60332 m .59524 .60957 L s [(0.6)] .59524 .59082 0 1 Mshowa .78571 .60332 m .78571 .60957 L s [(0.8)] .78571 .59082 0 1 Mshowa .97619 .60332 m .97619 .60957 L s [(1)] .97619 .59082 0 1 Mshowa .125 Mabswid .07143 .60332 m .07143 .60707 L s .11905 .60332 m .11905 .60707 L s .16667 .60332 m .16667 .60707 L s .2619 .60332 m .2619 .60707 L s .30952 .60332 m .30952 .60707 L s .35714 .60332 m .35714 .60707 L s .45238 .60332 m .45238 .60707 L s .5 .60332 m .5 .60707 L s .54762 .60332 m .54762 .60707 L s .64286 .60332 m .64286 .60707 L s .69048 .60332 m .69048 .60707 L s .7381 .60332 m .7381 .60707 L s .83333 .60332 m .83333 .60707 L s .88095 .60332 m .88095 .60707 L s .92857 .60332 m .92857 .60707 L s .25 Mabswid 0 .60332 m 1 .60332 L s .02381 .11151 m .03006 .11151 L s [(-0.0004)] .01131 .11151 1 0 Mshowa .02381 .23446 m .03006 .23446 L s [(-0.0003)] .01131 .23446 1 0 Mshowa .02381 .35742 m .03006 .35742 L s [(-0.0002)] .01131 .35742 1 0 Mshowa .02381 .48037 m .03006 .48037 L s [(-0.0001)] .01131 .48037 1 0 Mshowa .125 Mabswid .02381 .1361 m .02756 .1361 L s .02381 .16069 m .02756 .16069 L s .02381 .18528 m .02756 .18528 L s .02381 .20987 m .02756 .20987 L s .02381 .25905 m .02756 .25905 L s .02381 .28364 m .02756 .28364 L s .02381 .30824 m .02756 .30824 L s .02381 .33283 m .02756 .33283 L s .02381 .38201 m .02756 .38201 L s .02381 .4066 m .02756 .4066 L s .02381 .43119 m .02756 .43119 L s .02381 .45578 m .02756 .45578 L s .02381 .50496 m .02756 .50496 L s .02381 .52955 m .02756 .52955 L s .02381 .55414 m .02756 .55414 L s .02381 .57873 m .02756 .57873 L s .02381 .08692 m .02756 .08692 L s .02381 .06233 m .02756 .06233 L s .02381 .03774 m .02756 .03774 L s .02381 .01315 m .02756 .01315 L s .25 Mabswid .02381 0 m .02381 .61803 L s .5 Mabswid .02381 .01472 m .06244 .1608 L .10458 .28372 L .14415 .37135 L .18221 .4354 L .22272 .48636 L .26171 .5223 L .28158 .53666 L .30316 .54973 L .34309 .56822 L .36292 .57516 L .38395 .58121 L .42179 .58932 L .4412 .59239 L .46207 .59502 L .48321 .59712 L .5033 .59867 L .5231 .59987 L .54149 .60073 L .56201 .60147 L .58062 .60197 L .59987 .60237 L .62069 .60268 L .64063 .60289 L .65067 .60297 L .66169 .60305 L .6812 .60314 L .69214 .60318 L .70212 .60321 L .7212 .60326 L .73198 .60327 L .74196 .60328 L .75159 .60329 L .76063 .6033 L .77054 .6033 L .78123 .60331 L .7908 .60331 L .80127 .60331 L .80655 .60332 L .8122 .60332 L .82237 .60332 L .8277 .60332 L .83261 .60332 L .8379 .60332 L .84371 .60332 L .84843 .60332 L .8535 .60332 L .85886 .60332 L .86386 .60332 L .86912 .60332 L Mistroke .874 .60332 L .87934 .60332 L .88208 .60332 L .88504 .60332 L .88787 .60332 L .89047 .60332 L .89291 .60332 L .89559 .60332 L .90024 .60332 L .90277 .60332 L .90514 .60332 L .90758 .60332 L .91016 .60332 L .913 .60332 L .91562 .60332 L .91805 .60332 L .92034 .60332 L .92284 .60332 L .92553 .60332 L .92779 .60332 L .93026 .60332 L .93283 .60332 L .93523 .60332 L .93748 .60332 L .93952 .60332 L .94065 .60332 L .94188 .60332 L .94304 .60332 L .9441 .60332 L .94596 .60332 L .94698 .60332 L .94794 .60332 L .94884 .60332 L .94966 .60332 L .95056 .60332 L .95153 .60332 L .9525 .60332 L .95341 .60332 L .9545 .60332 L .95549 .60332 L .95647 .60332 L .95754 .60332 L .95866 .60332 L .9597 .60332 L .96073 .60332 L .96185 .60332 L .9629 .60332 L .96387 .60332 L .96767 .60332 L .97619 .60332 L Mistroke Mfstroke 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 ]] }, Closed]], Cell["G.3.a.ii)", "Subsubsection"], Cell[TextData[{ "Activate the functions ", Cell[BoxData[ \(approx1[x]\)]], ", ", Cell[BoxData[ \(approx2[x]\)]], " and ", Cell[BoxData[ \(approx3[x]\)]], " in part i).\nWhich of the following do you predict to be the best \ estimate of", Cell[BoxData[ \(\(\(\ \)\(\[Integral]\_0\%1 e\^\(x\^3\)\ \[DifferentialD]x\)\)\)]], "?\nSay why you can predict the right one before you activate the \ calculations." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(N[\[Integral]\_0\%1 approx1[x\^3] \[DifferentialD]x, 8]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1.3418942990489042`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[\[Integral]\_0\%1 approx2[x\^3] \[DifferentialD]x, 8]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1.3419052254866812`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[\[Integral]\_0\%1 approx3[x\^3] \[DifferentialD]x, 8]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1.3421221746152547`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(NIntegrate[E\^\(x\^3\), {x, 0, 1}, WorkingPrecision \[Rule] 20]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1.34190441797741974124914`11.9888\)], "Output"] }, Open ]], Cell["G.3.a.iii)", "Subsubsection"], Cell[TextData[{ "Which of the following do you expect to be the best approximation of a \ well-behaved function ", Cell[BoxData[ \(f[x]\)]], " for \n ", Cell[BoxData[ \(b \[LessEqual] x \[LessEqual] b + \ 1\)]], "?" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, b, x];\)\), "\n", \(Normal[Series[f[x], {x, b, 6}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{\(f[b]\), "+", RowBox[{\((\(-b\) + x)\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "b", "]"}]}], "+", RowBox[{\(1\/2\), " ", \(\((\(-b\) + x)\)\^2\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "b", "]"}]}], "+", RowBox[{\(1\/6\), " ", \(\((\(-b\) + x)\)\^3\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "b", "]"}]}], "+", RowBox[{\(1\/24\), " ", \(\((\(-b\) + x)\)\^4\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "b", "]"}]}], "+", RowBox[{\(1\/120\), " ", \(\((\(-b\) + x)\)\^5\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", "b", "]"}]}], "+", RowBox[{\(1\/720\), " ", \(\((\(-b\) + x)\)\^6\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((6)\), Derivative], MultilineFunction->None], "[", "b", "]"}]}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Normal[Series[f[x], {x, b + 1\/2, 6}]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{\(f[1\/2 + b]\), "+", RowBox[{\((\(-\(1\/2\)\) - b + x)\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", \(1\/2 + b\), "]"}]}], "+", RowBox[{\(1\/2\), " ", \(\((\(-\(1\/2\)\) - b + x)\)\^2\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", \(1\/2 + b\), "]"}]}], "+", RowBox[{\(1\/6\), " ", \(\((\(-\(1\/2\)\) - b + x)\)\^3\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", \(1\/2 + b\), "]"}]}], "+", RowBox[{\(1\/24\), " ", \(\((\(-\(1\/2\)\) - b + x)\)\^4\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", \(1\/2 + b\), "]"}]}], "+", RowBox[{\(1\/120\), " ", \(\((\(-\(1\/2\)\) - b + x)\)\^5\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", \(1\/2 + b\), "]"}]}], "+", RowBox[{\(1\/720\), " ", \(\((\(-\(1\/2\)\) - b + x)\)\^6\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((6)\), Derivative], MultilineFunction->None], "[", \(1\/2 + b\), "]"}]}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Normal[Series[f[x], {x, b + 1, 6}]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{\(f[1 + b]\), "+", RowBox[{\((\(-1\) - b + x)\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", \(1 + b\), "]"}]}], "+", RowBox[{\(1\/2\), " ", \(\((\(-1\) - b + x)\)\^2\), " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", \(1 + b\), "]"}]}], "+", RowBox[{\(1\/6\), " ", \(\((\(-1\) - b + x)\)\^3\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", \(1 + b\), "]"}]}], "+", RowBox[{\(1\/24\), " ", \(\((\(-1\) - b + x)\)\^4\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", \(1 + b\), "]"}]}], "+", RowBox[{\(1\/120\), " ", \(\((\(-1\) - b + x)\)\^5\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", \(1 + b\), "]"}]}], "+", RowBox[{\(1\/720\), " ", \(\((\(-1\) - b + x)\)\^6\), " ", RowBox[{ SuperscriptBox["f", TagBox[\((6)\), Derivative], MultilineFunction->None], "[", \(1 + b\), "]"}]}]}]], "Output"] }, Open ]], Cell["Illustrate with some examples and plots.", "Text"], Cell["G.3.b.i)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "When you go with ", Cell[BoxData[ \(b = 20\)]], ", is the expansion of ", Cell[BoxData[ \(e\^x\)]], " in powers of ", Cell[BoxData[ \(\((x - \ b)\)\)]], " through the ", Cell[BoxData[ \(\((x - \ b)\)\^8\)]], " term a reasonably good approximation of ", Cell[BoxData[ \(e\^x\)]], " for ", Cell[BoxData[ \(b - \ 1 \[LessEqual] x\ \[LessEqual] b + \ 1\)]], "? " }], "Text"], Cell["Tip:", "Special1"], Cell["Look at this:", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(b = 20;\)\), "\n", \(\(Clear[x, expan8];\)\), "\n", \(\(expan8[x_] = Normal[Series[E\^x, {x, b, 8}]];\)\n\), "\n", \(\(Plot[Abs[expan8[x] - E\^x], {x, b - 1, b + 1}, \n\t PlotStyle \[Rule] {Red}, AspectRatio \[Rule] 1\/GoldenRatio, 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 -9.02381 0.476191 0.0147151 0.000396651 [ [.2619 .00222 -12 -9 ] [.2619 .00222 12 0 ] [.5 .00222 -6 -9 ] [.5 .00222 6 0 ] [.7381 .00222 -12 -9 ] [.7381 .00222 12 0 ] [.97619 .00222 -6 -9 ] [.97619 .00222 6 0 ] [.01131 .09405 -18 -4.5 ] [.01131 .09405 0 4.5 ] [.01131 .17338 -18 -4.5 ] [.01131 .17338 0 4.5 ] [.01131 .25271 -18 -4.5 ] [.01131 .25271 0 4.5 ] [.01131 .33204 -18 -4.5 ] [.01131 .33204 0 4.5 ] [.01131 .41137 -24 -4.5 ] [.01131 .41137 0 4.5 ] [.01131 .4907 -24 -4.5 ] [.01131 .4907 0 4.5 ] [.01131 .57003 -24 -4.5 ] [.01131 .57003 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .2619 .01472 m .2619 .02097 L s [(19.5)] .2619 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(20)] .5 .00222 0 1 Mshowa .7381 .01472 m .7381 .02097 L s [(20.5)] .7381 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(21)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .21429 .01472 m .21429 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .40476 .01472 m .40476 .01847 L s .45238 .01472 m .45238 .01847 L s .54762 .01472 m .54762 .01847 L s .59524 .01472 m .59524 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .78571 .01472 m .78571 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .09405 m .03006 .09405 L s [(200)] .01131 .09405 1 0 Mshowa .02381 .17338 m .03006 .17338 L s [(400)] .01131 .17338 1 0 Mshowa .02381 .25271 m .03006 .25271 L s [(600)] .01131 .25271 1 0 Mshowa .02381 .33204 m .03006 .33204 L s [(800)] .01131 .33204 1 0 Mshowa .02381 .41137 m .03006 .41137 L s [(1000)] .01131 .41137 1 0 Mshowa .02381 .4907 m .03006 .4907 L s [(1200)] .01131 .4907 1 0 Mshowa .02381 .57003 m .03006 .57003 L s [(1400)] .01131 .57003 1 0 Mshowa .125 Mabswid .02381 .03455 m .02756 .03455 L s .02381 .05438 m .02756 .05438 L s .02381 .07421 m .02756 .07421 L s .02381 .11388 m .02756 .11388 L s .02381 .13371 m .02756 .13371 L s .02381 .15354 m .02756 .15354 L s .02381 .19321 m .02756 .19321 L s .02381 .21304 m .02756 .21304 L s .02381 .23287 m .02756 .23287 L s .02381 .27254 m .02756 .27254 L s .02381 .29237 m .02756 .29237 L s .02381 .3122 m .02756 .3122 L s .02381 .35187 m .02756 .35187 L s .02381 .3717 m .02756 .3717 L s .02381 .39153 m .02756 .39153 L s .02381 .4312 m .02756 .4312 L s .02381 .45103 m .02756 .45103 L s .02381 .47086 m .02756 .47086 L s .02381 .51053 m .02756 .51053 L s .02381 .53036 m .02756 .53036 L s .02381 .55019 m .02756 .55019 L s .02381 .58986 m .02756 .58986 L s .02381 .60969 m .02756 .60969 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .5 Mabswid .02381 .49645 m .04262 .35114 L .06244 .24136 L .07286 .19757 L .08255 .1637 L .09388 .1313 L .10458 .10658 L .11437 .08817 L .125 .07195 L .14357 .05108 L .15301 .04333 L .16341 .03652 L .17427 .03098 L .18444 .02697 L .19482 .0238 L .20469 .02149 L .21354 .01987 L .22321 .01851 L .23353 .01742 L .24288 .01668 L .25368 .01605 L .26386 .01563 L .27362 .01534 L .27854 .01523 L .28393 .01513 L .28855 .01506 L .29349 .01499 L .30241 .0149 L .30769 .01486 L .31258 .01483 L .31784 .0148 L .32365 .01478 L .32834 .01477 L .3334 .01476 L .33875 .01475 L .34377 .01474 L .34873 .01473 L .35334 .01473 L .3584 .01472 L .36381 .01472 L .3695 .01472 L .37486 .01472 L .37968 .01472 L .38491 .01472 L .3898 .01472 L .39437 .01472 L .397 .01472 L .39939 .01472 L .40219 .01472 L .40478 .01472 L Mistroke .40749 .01472 L .40995 .01472 L .41268 .01472 L .41558 .01472 L .41812 .01472 L .42086 .01472 L .42345 .01472 L .42583 .01472 L .42829 .01472 L .43054 .01472 L .43313 .01472 L .43559 .01472 L .43786 .01472 L .43995 .01472 L .44225 .01472 L .44469 .01472 L .44713 .01472 L .44851 .01472 L .44977 .01472 L .45097 .01472 L .45209 .01472 L .45325 .01472 L .45452 .01472 L .45594 .01472 L .45664 .01472 L .45727 .01472 L .45847 .01472 L .45977 .01472 L .46049 .01472 L .46127 .01472 L .46201 .01472 L .4627 .01472 L .46399 .01472 L .46464 .01472 L .46537 .01472 L .46653 .01472 L .46778 .01472 L .46897 .01472 L .47006 .01472 L .47132 .01472 L .47251 .01472 L .47374 .01472 L .47439 .01472 L .47509 .01472 L .47753 .01472 L .47984 .01472 L .48192 .01472 L .48309 .01472 L .48417 .01472 L .48536 .01472 L Mistroke .48663 .01472 L .48784 .01472 L .48894 .01472 L .49023 .01472 L .49096 .01472 L .49164 .01472 L .4942 .01472 L .50482 .01472 L .5099 .01472 L .5154 .01472 L .51792 .01472 L .5193 .01472 L .52059 .01472 L .52169 .01472 L .52286 .01472 L .52536 .01472 L .52652 .01472 L .52776 .01472 L .5284 .01472 L .52911 .01472 L .53036 .01472 L .53154 .01472 L .5328 .01472 L .534 .01472 L .5351 .01472 L .53617 .01472 L .53716 .01472 L .53826 .01472 L .53942 .01472 L .54065 .01472 L .54181 .01472 L .54294 .01472 L .54397 .01472 L .54513 .01472 L .54637 .01472 L .54861 .01472 L .54986 .01472 L .55052 .01472 L .55122 .01472 L .55251 .01472 L .5537 .01472 L .55435 .01472 L .55504 .01472 L .5558 .01472 L .55649 .01472 L .55784 .01472 L .55911 .01472 L .56144 .01472 L .564 .01472 L .5664 .01472 L Mistroke .56867 .01472 L .57071 .01472 L .57292 .01472 L .57532 .01472 L .57788 .01472 L .58006 .01472 L .58246 .01472 L .58494 .01472 L .58765 .01472 L .59004 .01472 L .59259 .01472 L .59511 .01472 L .59739 .01472 L .60186 .01472 L .60455 .01472 L .60702 .01472 L .60968 .01472 L .61261 .01472 L .61753 .01472 L .62273 .01472 L .62797 .01472 L .63293 .01472 L .63739 .01472 L .64223 .01473 L .6475 .01473 L .65309 .01474 L .65787 .01474 L .66315 .01475 L .66806 .01476 L .67323 .01478 L .68248 .01481 L .68764 .01484 L .69244 .01487 L .69767 .01492 L .70334 .01498 L .70881 .01505 L .71385 .01513 L .72378 .01534 L .73281 .0156 L .74237 .016 L .7518 .01652 L .76193 .0173 L .7715 .01829 L .78024 .01949 L .79011 .02124 L .79926 .02336 L .8093 .02638 L .81999 .03059 L .8303 .03588 L .84143 .04331 L Mistroke .85195 .05238 L .86161 .06288 L .88047 .09114 L .89117 .11304 L .90114 .13833 L .91161 .17097 L .92152 .20872 L .94009 .30186 L .95885 .43459 L .97619 .60332 L Mfstroke 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 ]] }, Closed]], Cell["G.3.b.ii)", "Subsubsection"], Cell[TextData[{ "When you go with ", Cell[BoxData[ \(b = 1\/2\)]], ", is the expansion of e in powers of ", Cell[BoxData[ \(\((x\ - \ b)\)\)]], " through the ", Cell[BoxData[ \(\((x\ - \ b)\)\^8\)]], " term a reasonably good approximation of ", Cell[BoxData[ \(e\^x\)]], " for ", Cell[BoxData[ \(b\ - \ 1\ \[LessEqual] \ x\ \[LessEqual] \ b\ + \ 1\)]], "? " }], "Text"], Cell["G.3.b.iii)", "Subsubsection"], Cell[TextData[{ "Do a few more experiments in the style of parts i) and ii) to help to form \ an opinion about how the position of the number ", Cell[BoxData[ \(b\)]], " on the ", Cell[BoxData[ \(x - axis\)]], " influences the quality of the approximation of ", Cell[BoxData[ \(e\^x\)]], " by the expansion of ", Cell[BoxData[ \(e\^x\)]], " in powers of ", Cell[BoxData[ \(\((x\ - \ b)\)\)]], " through the \n", Cell[BoxData[ \(\((x\ - \ b)\)\^8\)]], " term on the interval ", Cell[BoxData[ \(\([b\ - \ 1, \ b\ + \ 1]\)\)]], "." }], "Text"] }, Closed]], Cell["Literacy Problem", "Subsubsection"], Cell["L.3)", "Subsubsection"], Cell[TextData[{ "Use expansions in powers of ", Cell[BoxData[ \(x\)]], " to calculate the limits:\n a. ", Cell[BoxData[ \(lim\+\(x \[Rule] 0\)\ Sin[x]\/x\)]], "\n \n b. ", Cell[BoxData[ \(lim\+\(x \[Rule] 0\)\ Sin[3\ x\^2]\/x\^2\)]], "\n \n c. ", Cell[BoxData[ \(lim\+\(x \[Rule] 0\)\ Sin[4 x\^4]\/Sin[2 x\^4]\)]], "\n \n d. ", Cell[BoxData[ \(lim\+\(x \[Rule] 0\)\ \(1\ + \ x\ - \ e\^X\)\/x\^2\)]], "\n \n e. ", Cell[BoxData[ \(lim\+\(x \[Rule] 0\)\ \(1\ + \ x\ - \ e\^X\)\/\(1\ - \ \ Cos[x]\)\)]] }], "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.03.B4"->{ Cell[6815, 168, 94, 1, 60, "Subsection", CellTags->"3.03.B4"]}, "3.03.T2"->{ Cell[28983, 1291, 81, 1, 60, "Subsection", CellTags->"3.03.T2"]}, "3.03.G3"->{ Cell[33652, 1508, 77, 1, 60, "Subsection", CellTags->"3.03.G3"]} } *) (*CellTagsIndex CellTagsIndex->{ {"3.03.B4", 113113, 5013}, {"3.03.T2", 113202, 5016}, {"3.03.G3", 113293, 5019} } *) (*NotebookFileOutline Notebook[{ Cell[1717, 49, 2361, 33, 34, 2210, 28, "GraphicsData", "Bitmap", "Graphics"], Cell[4081, 84, 813, 23, 134, "PrefaceTitle"], Cell[4897, 109, 122, 5, 91, "Title"], Cell[CellGroupData[{ Cell[5044, 118, 104, 4, 29, "Special2"], Cell[5151, 124, 589, 11, 247, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[5765, 139, 160, 2, 54, "Subsubsection"], Cell[5928, 143, 694, 13, 214, "Input", InitializationCell->True] }, Closed]], Cell[6637, 159, 99, 2, 23, "Input", InitializationCell->True] }, Closed]], Cell[6751, 164, 39, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[6815, 168, 94, 1, 60, "Subsection", CellTags->"3.03.B4"], Cell[6912, 171, 107, 3, 26, "Special2"], Cell[7022, 176, 207, 5, 116, "Text"], Cell[CellGroupData[{ Cell[7254, 185, 190, 5, 112, "Input"], Cell[7447, 192, 35, 1, 70, "Output"] }, Open ]], Cell[7497, 196, 195, 5, 90, "Text"], Cell[CellGroupData[{ Cell[7717, 205, 198, 5, 112, "Input"], Cell[7918, 212, 117, 2, 70, "Message"], Cell[8038, 216, 47, 1, 70, "Output"] }, Open ]], Cell[8100, 220, 36, 0, 34, "Text"], Cell[CellGroupData[{ Cell[8161, 224, 71, 2, 23, "Input"], Cell[8235, 228, 40, 1, 70, "Output"] }, Open ]], Cell[8290, 232, 178, 8, 60, "Text"], Cell[8471, 242, 31, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[8527, 246, 59, 0, 46, "Text"], Cell[8589, 248, 27, 0, 26, "Special1"], Cell[8619, 250, 62, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[8706, 254, 91, 2, 23, "Input"], Cell[8800, 258, 264, 6, 70, "Output"] }, Open ]], Cell[9079, 267, 147, 8, 30, "SmallText"], Cell[CellGroupData[{ Cell[9251, 279, 91, 2, 23, "Input"], Cell[9345, 283, 250, 6, 70, "Output"] }, Open ]], Cell[9610, 292, 179, 8, 52, "SmallText"], Cell[CellGroupData[{ Cell[9814, 304, 143, 3, 58, "Input"], Cell[9960, 309, 45, 1, 70, "Output"] }, Open ]], Cell[10020, 313, 30, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[10075, 317, 359, 7, 111, "Input"], Cell[10437, 326, 8765, 515, 70, 8642, 511, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[19217, 844, 333, 14, 80, "SmallText"], Cell[CellGroupData[{ Cell[19575, 862, 74, 2, 23, "Input"], Cell[19652, 866, 35, 1, 70, "Output"] }, Open ]], Cell[19702, 870, 107, 5, 33, "SmallText"], Cell[CellGroupData[{ Cell[19834, 879, 89, 2, 40, "Input"], Cell[19926, 883, 35, 1, 70, "Output"] }, Open ]], Cell[19976, 887, 77, 3, 52, "SmallText"] }, Closed]], Cell[20068, 893, 123, 5, 39, "Subsubsection"], Cell[CellGroupData[{ Cell[20216, 902, 167, 5, 76, "Text"], Cell[20386, 909, 27, 0, 26, "Special1"], Cell[20416, 911, 50, 0, 30, "Text"], Cell[20469, 913, 169, 4, 60, "Input"], Cell[CellGroupData[{ Cell[20663, 921, 91, 2, 23, "Input"], Cell[20757, 925, 264, 6, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21058, 936, 91, 2, 23, "Input"], Cell[21152, 940, 250, 6, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21439, 951, 73, 2, 40, "Input"], Cell[21515, 955, 243, 6, 70, "Output"] }, Open ]], Cell[21773, 964, 140, 5, 56, "SmallText"], Cell[CellGroupData[{ Cell[21938, 973, 89, 2, 40, "Input"], Cell[22030, 977, 35, 1, 70, "Output"] }, Open ]], Cell[22080, 981, 686, 30, 118, "SmallText"], Cell[CellGroupData[{ Cell[22791, 1015, 65, 2, 23, "Input"], Cell[22859, 1019, 264, 6, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23160, 1030, 65, 2, 23, "Input"], Cell[23228, 1034, 250, 6, 70, "Output"] }, Open ]], Cell[23493, 1043, 342, 13, 58, "SmallText"] }, Closed]], Cell[23850, 1059, 34, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[23909, 1063, 288, 11, 102, "Text"], Cell[24200, 1076, 27, 0, 26, "Special1"], Cell[24230, 1078, 32, 0, 30, "SmallText"], Cell[24265, 1080, 154, 4, 57, "Input"], Cell[CellGroupData[{ Cell[24444, 1088, 91, 2, 23, "Input"], Cell[24538, 1092, 227, 6, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24802, 1103, 91, 2, 23, "Input"], Cell[24896, 1107, 201, 5, 70, "Output"] }, Open ]], Cell[25112, 1115, 403, 17, 148, "Text"], Cell[CellGroupData[{ Cell[25540, 1136, 89, 2, 40, "Input"], Cell[25632, 1140, 35, 1, 70, "Output"] }, Open ]], Cell[25682, 1144, 184, 5, 33, "SmallText"] }, Closed]], Cell[25881, 1152, 35, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[25941, 1156, 233, 11, 72, "Text"], Cell[26177, 1169, 27, 0, 26, "Special1"], Cell[26207, 1171, 309, 11, 98, "SmallText"] }, Closed]], Cell[26531, 1185, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[26587, 1189, 308, 11, 102, "Text"], Cell[26898, 1202, 27, 0, 26, "Special1"], Cell[26928, 1204, 33, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[26986, 1208, 224, 5, 89, "Input"], Cell[27213, 1215, 426, 12, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27676, 1232, 91, 2, 23, "Input"], Cell[27770, 1236, 371, 10, 70, "Output"] }, Open ]], Cell[28156, 1249, 531, 22, 147, "Text"], Cell[CellGroupData[{ Cell[28712, 1275, 89, 2, 40, "Input"], Cell[28804, 1279, 38, 1, 70, "Output"] }, Open ]], Cell[28857, 1283, 33, 0, 30, "SmallText"] }, Closed]] }, Closed]], Cell[28917, 1287, 41, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[28983, 1291, 81, 1, 60, "Subsection", CellTags->"3.03.T2"], Cell[29067, 1294, 31, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[29123, 1298, 795, 23, 162, "Text"], Cell[29921, 1323, 27, 0, 26, "Special1"], Cell[29951, 1325, 38, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[30014, 1329, 116, 3, 41, "Input"], Cell[30133, 1334, 47, 1, 70, "Output"] }, Open ]], Cell[30195, 1338, 375, 10, 76, "SmallText"], Cell[CellGroupData[{ Cell[30595, 1352, 138, 3, 58, "Input"], Cell[30736, 1357, 79, 1, 70, "Output"] }, Open ]], Cell[30830, 1361, 191, 5, 55, "SmallText"], Cell[31024, 1368, 244, 9, 52, "SmallText"], Cell[CellGroupData[{ Cell[31293, 1381, 83, 2, 38, "Input"], Cell[31379, 1385, 39, 1, 70, "Output"] }, Open ]], Cell[31433, 1389, 35, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[31493, 1393, 85, 2, 38, "Input"], Cell[31581, 1397, 53, 1, 70, "Output"] }, Open ]], Cell[31649, 1401, 38, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[31712, 1405, 91, 2, 38, "Input"], Cell[31806, 1409, 53, 1, 70, "Output"] }, Open ]], Cell[31874, 1413, 105, 5, 30, "SmallText"], Cell[CellGroupData[{ Cell[32004, 1422, 65, 2, 29, "Input"], Cell[32072, 1426, 53, 1, 70, "Output"] }, Open ]], Cell[32140, 1430, 339, 12, 74, "SmallText"], Cell[CellGroupData[{ Cell[32504, 1446, 84, 2, 38, "Input"], Cell[32591, 1450, 53, 1, 70, "Output"] }, Open ]], Cell[32659, 1454, 50, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[32734, 1458, 92, 2, 38, "Input"], Cell[32829, 1462, 53, 1, 70, "Output"] }, Open ]], Cell[32897, 1466, 48, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[32970, 1470, 92, 2, 38, "Input"], Cell[33065, 1474, 52, 1, 70, "Output"] }, Open ]], Cell[33132, 1478, 106, 5, 30, "SmallText"], Cell[CellGroupData[{ Cell[33263, 1487, 66, 2, 29, "Input"], Cell[33332, 1491, 53, 1, 70, "Output"] }, Open ]], Cell[33400, 1495, 154, 5, 30, "SmallText"] }, Closed]] }, Closed]], Cell[33581, 1504, 46, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[33652, 1508, 77, 1, 60, "Subsection", CellTags->"3.03.G3"], Cell[33732, 1511, 33, 0, 42, "Subsubsection"], Cell[33768, 1513, 231, 9, 60, "Text"], Cell[CellGroupData[{ Cell[34024, 1526, 136, 3, 39, "Input"], Cell[34163, 1531, 101, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34301, 1538, 107, 2, 38, "Input"], Cell[34411, 1542, 406, 6, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34854, 1553, 104, 2, 23, "Input"], Cell[34961, 1557, 350, 6, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35348, 1568, 71, 0, 46, "Text"], Cell[35422, 1570, 24, 0, 24, "Special1"], Cell[35449, 1572, 41, 0, 30, "SmallText"], Cell[CellGroupData[{ Cell[35515, 1576, 130, 3, 23, "Input"], Cell[35648, 1581, 4714, 317, 70, 4591, 313, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[CellGroupData[{ Cell[40399, 1903, 130, 3, 23, "Input"], Cell[40532, 1908, 6972, 449, 70, 6849, 445, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[CellGroupData[{ Cell[47541, 2362, 130, 3, 23, "Input"], Cell[47674, 2367, 4673, 316, 70, 4550, 312, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]] }, Closed]], Cell[52374, 2687, 34, 0, 34, "Subsubsection"], Cell[52411, 2689, 458, 16, 87, "Text"], Cell[CellGroupData[{ Cell[52894, 2709, 114, 2, 39, "Input"], Cell[53011, 2713, 53, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53101, 2719, 114, 2, 39, "Input"], Cell[53218, 2723, 53, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53308, 2729, 114, 2, 39, "Input"], Cell[53425, 2733, 53, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53515, 2739, 129, 3, 30, "Input"], Cell[53647, 2744, 67, 1, 70, "Output"] }, Open ]], Cell[53729, 2748, 35, 0, 42, "Subsubsection"], Cell[53767, 2750, 255, 9, 86, "Text"], Cell[CellGroupData[{ Cell[54047, 2763, 128, 3, 39, "Input"], Cell[54178, 2768, 1307, 33, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55522, 2806, 97, 2, 38, "Input"], Cell[55622, 2810, 1434, 33, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57093, 2848, 94, 2, 23, "Input"], Cell[57190, 2852, 1371, 33, 70, "Output"] }, Open ]], Cell[58576, 2888, 56, 0, 34, "Text"], Cell[58635, 2890, 33, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[58693, 2894, 450, 20, 72, "Text"], Cell[59146, 2916, 24, 0, 26, "Special1"], Cell[59173, 2918, 34, 0, 34, "SmallText"], Cell[CellGroupData[{ Cell[59232, 2922, 352, 7, 123, "Input"], Cell[59587, 2931, 6791, 453, 70, 6668, 449, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]] }, Closed]], Cell[66405, 3388, 34, 0, 34, "Subsubsection"], Cell[66442, 3390, 427, 17, 60, "Text"], Cell[66872, 3409, 35, 0, 42, "Subsubsection"], Cell[66910, 3411, 616, 24, 112, "Text"] }, Closed]], Cell[67541, 3438, 41, 0, 34, "Subsubsection"], Cell[67585, 3440, 29, 0, 42, "Subsubsection"], Cell[67617, 3442, 602, 20, 298, "Text"] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)