(*********************************************************************** 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[ 173029, 9670]*) (*NotebookOutlinePosition[ 218460, 11244]*) (* CellTagsIndexPosition[ 218294, 11235]*) (*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.02 Expansions in Powers of x\n", StyleBox[" Samples", FontSize->16, FontSlant->"Italic"] }], "Title"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " Initializations" }], "Special2"], Cell[BoxData[{ \(\(Off[General::spell];\)\), "\n", \(\(Off[General::spell1];\)\), "\n", \(\(Off[Plot::plnr];\)\), "\n", \(\(Off[ParametricPlot::ppcom];\)\), "\n", \(\(SetOptions[Limit, Analytic \[Rule] True];\)\n\), "\n", \(\(If[ MemberQ[{"\", \ "\", \ \ "\"}, \n\ \ \ \ Context[Gray]], \ Remove["\<*`Gray\>"]];\)\), "\n", \(\(<< "\";\)\), "\n", \(\(Remove["\<*`Gray\>"];\)\), "\n", \(\(<< "\";\)\), "\n", \(\(Graphics`Colors`GosiaGreen = RGBColor[0, \ 0.392187, \ 0];\)\n\), "\n", \(\(Clear[Derivative];\)\)}], "Input", InitializationCell->True], Cell[CellGroupData[{ Cell["ThreeAxes[u,v]", "Subsubsection", CellMargins->{{19, Inherited}, {Inherited, Inherited}}, CellLabelMargins->{{27, Inherited}, {Inherited, Inherited}}], Cell[BoxData[{ \(\(Axes3D::"\" = "\";\)\), "\ \n", \(\(Axes3D[u_, v_] := Graphics3D[{{Blue, Line[{{\(-\(u\/3\)\), 0, 0}, {u, 0, 0}}]}, Text["\", {u + v, 0, 0}], {Blue, Line[{{0, \(-\(u\/3\)\), 0}, {0, u, 0}}]}, Text["\", {0, u + v, 0}], {Blue, Line[{{0, 0, \(-\(u\/3\)\)}, {0, 0, u}}]}, Text["\", {0, 0, u + v}]}];\)\), "\n", \(\(Axes3D[u_] := Axes3D[u, u\/8];\)\)}], "Input"] }, Closed]], Cell[BoxData[ \(\(CMView\ = \ {2.7, \ 1.6, \ 1.2};\)\)], "Input", InitializationCell->True] }, Closed]], Cell["Basic Problem", "Subsubsection"], Cell[CellGroupData[{ Cell["B.3) Expansions for approximation", "Subsection", CellTags->"3.02.B3"], Cell[TextData[{ "Go with \n ", Cell[BoxData[ \(f[x]\ = \ Sin[x]\)]], " \nwhose expansion in powers of ", Cell[BoxData[ \(x\)]], " is\n ", Cell[BoxData[ \(x - x\^3\/\(3!\) + x\^5\/\(5!\)\)]], Cell[BoxData[ \(\(+\(x\^7\/\(7!\)\)\) - x\^9\/\(9!\) + \ ... \)]], " ", Cell[BoxData[ \(\(\(+\ \(\(\((\(-1\))\)\^k\ \ x\^\(2\ k\ + \ 1\)\)\/\(\((2\ k + 1)\)! \)\)\)\ + \)\ ... \)]], "\nHere's what you get when you plot ", Cell[BoxData[ \(f[x]\)]], " and the polynomial made from using the terms through the ", Cell[BoxData[ \(x\^3\)]], " term of its expansion in powers of ", Cell[BoxData[ \(x\)]], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx3, x, m];\)\), "\n", \(\(f[x_] = Sin[x];\)\n\), "\n", \(approx3[x_] = Normal[Series[f[x], {x, 0, 3}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(x - x\^3\/6\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx3[x]}, {x, \(-4\), 4}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[Rule] {"\", "\<\>"}, PlotRange \[Rule] {\(-2\), 2}, PlotLabel \[Rule] "\"\ approx3[x]];\)\)], "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.119048 0.309017 0.154508 [ [.02381 .29652 -6 -9 ] [.02381 .29652 6 0 ] [.2619 .29652 -6 -9 ] [.2619 .29652 6 0 ] [.7381 .29652 -3 -9 ] [.7381 .29652 3 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [1.025 .30902 0 -6 ] [1.025 .30902 10 6 ] [.4875 0 -12 -4.5 ] [.4875 0 0 4.5 ] [.4875 .07725 -24 -4.5 ] [.4875 .07725 0 4.5 ] [.4875 .15451 -12 -4.5 ] [.4875 .15451 0 4.5 ] [.4875 .23176 -24 -4.5 ] [.4875 .23176 0 4.5 ] [.4875 .38627 -18 -4.5 ] [.4875 .38627 0 4.5 ] [.4875 .46353 -6 -4.5 ] [.4875 .46353 0 4.5 ] [.4875 .54078 -18 -4.5 ] [.4875 .54078 0 4.5 ] [.4875 .61803 -6 -4.5 ] [.4875 .61803 0 4.5 ] [.5 .63053 -56.4062 0 ] [.5 .63053 56.4062 24.375 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .30902 m .02381 .31527 L s [(-4)] .02381 .29652 0 1 Mshowa .2619 .30902 m .2619 .31527 L s [(-2)] .2619 .29652 0 1 Mshowa .7381 .30902 m .7381 .31527 L s [(2)] .7381 .29652 0 1 Mshowa .97619 .30902 m .97619 .31527 L s [(4)] .97619 .29652 0 1 Mshowa .125 Mabswid .08333 .30902 m .08333 .31277 L s .14286 .30902 m .14286 .31277 L s .20238 .30902 m .20238 .31277 L s .32143 .30902 m .32143 .31277 L s .38095 .30902 m .38095 .31277 L s .44048 .30902 m .44048 .31277 L s .55952 .30902 m .55952 .31277 L s .61905 .30902 m .61905 .31277 L s .67857 .30902 m .67857 .31277 L s .79762 .30902 m .79762 .31277 L s .85714 .30902 m .85714 .31277 L s .91667 .30902 m .91667 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s gsave 1.025 .30902 -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 0 m .50625 0 L s [(-2)] .4875 0 1 0 Mshowa .5 .07725 m .50625 .07725 L s [(-1.5)] .4875 .07725 1 0 Mshowa .5 .15451 m .50625 .15451 L s [(-1)] .4875 .15451 1 0 Mshowa .5 .23176 m .50625 .23176 L s [(-0.5)] .4875 .23176 1 0 Mshowa .5 .38627 m .50625 .38627 L s [(0.5)] .4875 .38627 1 0 Mshowa .5 .46353 m .50625 .46353 L s [(1)] .4875 .46353 1 0 Mshowa .5 .54078 m .50625 .54078 L s [(1.5)] .4875 .54078 1 0 Mshowa .5 .61803 m .50625 .61803 L s [(2)] .4875 .61803 1 0 Mshowa .125 Mabswid .5 .01545 m .50375 .01545 L s .5 .0309 m .50375 .0309 L s .5 .04635 m .50375 .04635 L s .5 .0618 m .50375 .0618 L s .5 .09271 m .50375 .09271 L s .5 .10816 m .50375 .10816 L s .5 .12361 m .50375 .12361 L s .5 .13906 m .50375 .13906 L s .5 .16996 m .50375 .16996 L s .5 .18541 m .50375 .18541 L s .5 .20086 m .50375 .20086 L s .5 .21631 m .50375 .21631 L s .5 .24721 m .50375 .24721 L s .5 .26266 m .50375 .26266 L s .5 .27812 m .50375 .27812 L s .5 .29357 m .50375 .29357 L s .5 .32447 m .50375 .32447 L s .5 .33992 m .50375 .33992 L s .5 .35537 m .50375 .35537 L s .5 .37082 m .50375 .37082 L s .5 .40172 m .50375 .40172 L s .5 .41717 m .50375 .41717 L s .5 .43262 m .50375 .43262 L s .5 .44807 m .50375 .44807 L s .5 .47898 m .50375 .47898 L s .5 .49443 m .50375 .49443 L s .5 .50988 m .50375 .50988 L s .5 .52533 m .50375 .52533 L s .5 .55623 m .50375 .55623 L s .5 .57168 m .50375 .57168 L s .5 .58713 m .50375 .58713 L s .5 .60258 m .50375 .60258 L s .25 Mabswid .5 0 m .5 .61803 L s gsave .5 .63053 -117.406 -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 32.375 translate 1 -1 scale 63.000 18.938 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 18.938 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 (Sin) 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 18.938 moveto (@) show 87.000 18.938 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 93.000 18.938 moveto (D) show 105.000 18.938 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 123.000 18.938 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 %%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 125.625 14.000 moveto (i) show 125.625 27.375 moveto (k) show 125.625 17.125 moveto (j) show 125.625 19.438 moveto (j) show 131.625 18.938 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 140.000 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 151.438 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 157.438 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (3) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 150.125 18.938 moveto (\\200\\200\\200\\200) show 158.625 18.938 moveto (\\200\\200) show 161.688 18.938 moveto (\\200) show 154.062 25.188 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 (6) 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 165.812 14.000 moveto (y) show 165.812 27.375 moveto ({) show 165.812 17.125 moveto (z) show 165.812 19.438 moveto (z) show 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .42595 m .06244 .38764 L .10458 .33667 L .14415 .28555 L .18221 .23875 L .20342 .21547 L .22272 .19685 L .24299 .18046 L .26171 .16863 L .271 .16402 L .28086 .16011 L .29075 .1572 L .29637 .15601 L .2991 .15556 L .30164 .15521 L .30404 .15495 L .3066 .15473 L .30807 .15464 L .30878 .15461 L .30944 .15458 L .31068 .15454 L .31133 .15452 L .31202 .15451 L .31319 .15451 L .31445 .15452 L .31564 .15455 L .31672 .15458 L .31799 .15464 L .31937 .15473 L .32189 .15494 L .3241 .15518 L .32655 .15551 L .33151 .15637 L .3361 .15741 L .34041 .15859 L .35024 .16201 L .36059 .16669 L .3791 .17772 L .39884 .19296 L .41721 .21002 L .45625 .25351 L .49775 .3061 L .53773 .35717 L .5762 .4013 L .59568 .42026 L .61712 .43766 L .62693 .44427 L .63747 .45035 L .64736 .45504 L .65652 .45849 L Mistroke .66184 .46009 L .66665 .46127 L .672 .4623 L .67493 .46273 L .67769 .46305 L .68015 .46327 L .68138 .46335 L .68273 .46343 L .68389 .46347 L .68513 .46351 L .68629 .46352 L .68736 .46352 L .68801 .46352 L .68869 .46351 L .68993 .46348 L .69061 .46345 L .69126 .46343 L .69272 .46335 L .69517 .46316 L .6978 .46289 L .70277 .46217 L .70739 .46126 L .71788 .45836 L .72809 .45441 L .73899 .44902 L .76038 .43509 L .78054 .41823 L .81906 .37782 L .86003 .32711 L .89948 .27619 L .93742 .23054 L .97619 .19208 L Mfstroke 1 0 0 r .01 w .12807 .61803 m .14415 .53493 L .18221 .38642 L .20342 .32226 L .22272 .27453 L .24299 .23456 L .26171 .20626 L .28086 .18523 L .29094 .17714 L .29653 .17351 L .30164 .1707 L .30614 .16861 L .31105 .16675 L .31624 .16523 L .31883 .16464 L .32117 .16421 L .32354 .16386 L .32577 .16361 L .32699 .16351 L .32812 .16344 L .32936 .16339 L .33066 .16335 L .33171 .16335 L .33284 .16336 L .3339 .16338 L .33486 .16342 L .336 .16349 L .33723 .16358 L .33947 .16381 L .34181 .16413 L .34432 .16455 L .34887 .16556 L .35429 .16712 L .35925 .1689 L .36948 .17356 L .38026 .17981 L .4 .19449 L .41837 .21137 L .45741 .25492 L .49891 .3076 L .53889 .35859 L .57736 .40235 L .59684 .42084 L .61828 .43727 L .62809 .44318 L .63863 .44828 L .64374 .45024 L .64858 .45179 L .65294 .45291 L .65768 .45383 L Mistroke .66024 .45419 L .66159 .45434 L .66301 .45447 L .66425 .45456 L .66491 .4546 L .66562 .45463 L .66686 .45467 L .66802 .45469 L .66923 .45468 L .67054 .45465 L .67178 .4546 L .67293 .45453 L .67396 .45444 L .67509 .45433 L .67739 .45405 L .68011 .4536 L .68261 .45308 L .68822 .45153 L .69317 .44971 L .69838 .44733 L .70795 .44166 L .71816 .43369 L .73654 .41402 L .75792 .38188 L .77809 .34171 L .8166 .23554 L .85758 .07528 L Mfstroke .85758 .07528 m .87198 0 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell[TextData[{ "Sharing some ink.\nHere's what you get when you plot ", Cell[BoxData[ \(f[x]\)]], " and the polynomial made from using the terms through the ", Cell[BoxData[ \(x\^5\)]], " term of its expansion in powers of ", Cell[BoxData[ \(x\)]], ":" }], "Text", AnimationDisplayTime->1], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx5, x, m];\)\), "\n", \(\(f[x_] = Sin[x];\)\n\), "\n", \(approx5[x_] = Normal[Series[f[x], {x, 0, 5}]]\)}], "Input", AspectRatioFixed->True, AnimationDisplayTime->1], Cell[BoxData[ \(x - x\^3\/6 + x\^5\/120\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx5[x]}, {x, \(-4\), 4}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[Rule] {"\", "\<\>"}, PlotRange \[Rule] {\(-2\), 2}, PlotLabel \[Rule] "\"\ approx5[x]];\)\)], "Input", AspectRatioFixed->True, AnimationDisplayTime->1], 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.119048 0.309017 0.154508 [ [.02381 .29652 -6 -9 ] [.02381 .29652 6 0 ] [.2619 .29652 -6 -9 ] [.2619 .29652 6 0 ] [.7381 .29652 -3 -9 ] [.7381 .29652 3 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [1.025 .30902 0 -6 ] [1.025 .30902 10 6 ] [.4875 0 -12 -4.5 ] [.4875 0 0 4.5 ] [.4875 .07725 -24 -4.5 ] [.4875 .07725 0 4.5 ] [.4875 .15451 -12 -4.5 ] [.4875 .15451 0 4.5 ] [.4875 .23176 -24 -4.5 ] [.4875 .23176 0 4.5 ] [.4875 .38627 -18 -4.5 ] [.4875 .38627 0 4.5 ] [.4875 .46353 -6 -4.5 ] [.4875 .46353 0 4.5 ] [.4875 .54078 -18 -4.5 ] [.4875 .54078 0 4.5 ] [.4875 .61803 -6 -4.5 ] [.4875 .61803 0 4.5 ] [.5 .63053 -73.875 0 ] [.5 .63053 73.875 24.375 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .30902 m .02381 .31527 L s [(-4)] .02381 .29652 0 1 Mshowa .2619 .30902 m .2619 .31527 L s [(-2)] .2619 .29652 0 1 Mshowa .7381 .30902 m .7381 .31527 L s [(2)] .7381 .29652 0 1 Mshowa .97619 .30902 m .97619 .31527 L s [(4)] .97619 .29652 0 1 Mshowa .125 Mabswid .08333 .30902 m .08333 .31277 L s .14286 .30902 m .14286 .31277 L s .20238 .30902 m .20238 .31277 L s .32143 .30902 m .32143 .31277 L s .38095 .30902 m .38095 .31277 L s .44048 .30902 m .44048 .31277 L s .55952 .30902 m .55952 .31277 L s .61905 .30902 m .61905 .31277 L s .67857 .30902 m .67857 .31277 L s .79762 .30902 m .79762 .31277 L s .85714 .30902 m .85714 .31277 L s .91667 .30902 m .91667 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s gsave 1.025 .30902 -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 0 m .50625 0 L s [(-2)] .4875 0 1 0 Mshowa .5 .07725 m .50625 .07725 L s [(-1.5)] .4875 .07725 1 0 Mshowa .5 .15451 m .50625 .15451 L s [(-1)] .4875 .15451 1 0 Mshowa .5 .23176 m .50625 .23176 L s [(-0.5)] .4875 .23176 1 0 Mshowa .5 .38627 m .50625 .38627 L s [(0.5)] .4875 .38627 1 0 Mshowa .5 .46353 m .50625 .46353 L s [(1)] .4875 .46353 1 0 Mshowa .5 .54078 m .50625 .54078 L s [(1.5)] .4875 .54078 1 0 Mshowa .5 .61803 m .50625 .61803 L s [(2)] .4875 .61803 1 0 Mshowa .125 Mabswid .5 .01545 m .50375 .01545 L s .5 .0309 m .50375 .0309 L s .5 .04635 m .50375 .04635 L s .5 .0618 m .50375 .0618 L s .5 .09271 m .50375 .09271 L s .5 .10816 m .50375 .10816 L s .5 .12361 m .50375 .12361 L s .5 .13906 m .50375 .13906 L s .5 .16996 m .50375 .16996 L s .5 .18541 m .50375 .18541 L s .5 .20086 m .50375 .20086 L s .5 .21631 m .50375 .21631 L s .5 .24721 m .50375 .24721 L s .5 .26266 m .50375 .26266 L s .5 .27812 m .50375 .27812 L s .5 .29357 m .50375 .29357 L s .5 .32447 m .50375 .32447 L s .5 .33992 m .50375 .33992 L s .5 .35537 m .50375 .35537 L s .5 .37082 m .50375 .37082 L s .5 .40172 m .50375 .40172 L s .5 .41717 m .50375 .41717 L s .5 .43262 m .50375 .43262 L s .5 .44807 m .50375 .44807 L s .5 .47898 m .50375 .47898 L s .5 .49443 m .50375 .49443 L s .5 .50988 m .50375 .50988 L s .5 .52533 m .50375 .52533 L s .5 .55623 m .50375 .55623 L s .5 .57168 m .50375 .57168 L s .5 .58713 m .50375 .58713 L s .5 .60258 m .50375 .60258 L s .25 Mabswid .5 0 m .5 .61803 L s gsave .5 .63053 -134.875 -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 32.375 translate 1 -1 scale 63.000 18.938 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 18.938 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 (Sin) 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 18.938 moveto (@) show 87.000 18.938 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 93.000 18.938 moveto (D) show 105.000 18.938 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 123.000 18.938 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 %%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 125.625 14.000 moveto (i) show 125.625 27.375 moveto (k) show 125.625 17.125 moveto (j) show 125.625 19.438 moveto (j) show 131.625 18.938 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 140.000 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 151.438 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 157.438 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (3) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 150.125 18.938 moveto (\\200\\200\\200\\200) show 158.625 18.938 moveto (\\200\\200) show 161.688 18.938 moveto (\\200) show 154.062 25.188 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 (6) show 168.188 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (+) show 183.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 189.000 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (5) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 178.312 18.938 moveto (\\200\\200\\200\\200) show 186.812 18.938 moveto (\\200\\200\\200\\200) show 195.312 18.938 moveto (\\200) show 196.625 18.938 moveto (\\200) show 179.625 25.188 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 (120) 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 200.750 14.000 moveto (y) show 200.750 27.375 moveto ({) show 200.750 17.125 moveto (z) show 200.750 19.438 moveto (z) show 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .42595 m .06244 .38764 L .10458 .33667 L .14415 .28555 L .18221 .23875 L .20342 .21547 L .22272 .19685 L .24299 .18046 L .26171 .16863 L .271 .16402 L .28086 .16011 L .29075 .1572 L .29637 .15601 L .2991 .15556 L .30164 .15521 L .30404 .15495 L .3066 .15473 L .30807 .15464 L .30878 .15461 L .30944 .15458 L .31068 .15454 L .31133 .15452 L .31202 .15451 L .31319 .15451 L .31445 .15452 L .31564 .15455 L .31672 .15458 L .31799 .15464 L .31937 .15473 L .32189 .15494 L .3241 .15518 L .32655 .15551 L .33151 .15637 L .3361 .15741 L .34041 .15859 L .35024 .16201 L .36059 .16669 L .3791 .17772 L .39884 .19296 L .41721 .21002 L .45625 .25351 L .49775 .3061 L .53773 .35717 L .5762 .4013 L .59568 .42026 L .61712 .43766 L .62693 .44427 L .63747 .45035 L .64736 .45504 L .65652 .45849 L Mistroke .66184 .46009 L .66665 .46127 L .672 .4623 L .67493 .46273 L .67769 .46305 L .68015 .46327 L .68138 .46335 L .68273 .46343 L .68389 .46347 L .68513 .46351 L .68629 .46352 L .68736 .46352 L .68801 .46352 L .68869 .46351 L .68993 .46348 L .69061 .46345 L .69126 .46343 L .69272 .46335 L .69517 .46316 L .6978 .46289 L .70277 .46217 L .70739 .46126 L .71788 .45836 L .72809 .45441 L .73899 .44902 L .76038 .43509 L .78054 .41823 L .81906 .37782 L .86003 .32711 L .89948 .27619 L .93742 .23054 L .97619 .19208 L Mfstroke 1 0 0 r .01 w .02381 .0206 m .04262 .09794 L .06244 .1561 L .07286 .17847 L .08255 .19492 L .0932 .20865 L .09916 .21456 L .10458 .21892 L .10941 .22206 L .11454 .22466 L .11891 .22633 L .1214 .22707 L .12373 .22762 L .12501 .22788 L .12641 .22811 L .12764 .22828 L .12896 .22843 L .13026 .22854 L .13144 .22861 L .13262 .22865 L .13374 .22866 L .13505 .22864 L .13571 .22862 L .13643 .22859 L .13772 .22851 L .13891 .22841 L .14161 .22809 L .14451 .22761 L .14979 .2264 L .15468 .22492 L .16575 .22052 L .18587 .20972 L .22514 .18475 L .24483 .17317 L .26289 .16439 L .27213 .16078 L .28223 .15763 L .28715 .15642 L .29239 .15538 L .2953 .15491 L .29794 .15455 L .30039 .15428 L .30169 .15415 L .30309 .15404 L .3044 .15396 L .3056 .15389 L .3068 .15384 L .30794 .15381 L .30921 .15378 L .3104 .15378 L Mistroke .31169 .15378 L .31242 .1538 L .31307 .15381 L .31426 .15385 L .31535 .1539 L .31781 .15405 L .31999 .15424 L .32228 .15449 L .32741 .15524 L .3322 .15618 L .34307 .1592 L .35355 .16326 L .36346 .16811 L .38203 .17974 L .42042 .21325 L .46125 .25961 L .50057 .30975 L .53837 .35796 L .57863 .40381 L .61737 .43787 L .63745 .45041 L .64754 .45525 L .65856 .45936 L .66386 .4609 L .66886 .46208 L .67335 .46292 L .67821 .4636 L .68074 .46386 L .68351 .46407 L .68491 .46415 L .68568 .46418 L .68641 .46421 L .68709 .46423 L .68783 .46424 L .68912 .46426 L .69032 .46426 L .69101 .46425 L .69165 .46424 L .69294 .4642 L .69367 .46417 L .69434 .46414 L .69669 .46401 L .69917 .4638 L .70174 .46353 L .70416 .46321 L .7087 .46246 L .71889 .46009 L .72769 .45732 L .73725 .45359 L .77813 .43123 L Mistroke .79847 .41812 L .8175 .40632 L .83575 .39685 L .841 .39467 L .84599 .39289 L .85082 .39147 L .85536 .39045 L .85778 .39003 L .85905 .38985 L .86039 .38969 L .86153 .38958 L .86277 .38949 L .8639 .38943 L .86496 .38939 L .86559 .38938 L .86628 .38938 L .86754 .38939 L .86876 .38944 L .86989 .38951 L .87111 .38961 L .87246 .38976 L .87518 .39019 L .87756 .3907 L .87975 .39129 L .88467 .39303 L .88901 .3951 L .89357 .39783 L .90313 .4056 L .91333 .4173 L .92296 .43197 L .9317 .44873 L .9509 .49865 L .96173 .53588 L .9717 .5768 L .97619 .59743 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[{ "Sharing more ink.\nHere's what you get when you plot ", Cell[BoxData[ \(f[x]\)]], " and the polynomial made from using the terms through the ", Cell[BoxData[ \(x\^7\)]], " term of its expansion in powers of ", Cell[BoxData[ \(x\)]], ":" }], "Text", AnimationDisplayTime->1], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx7, x, m];\)\), "\n", \(\(f[x_] = Sin[x];\)\n\), "\n", \(approx7[x_] = Normal[Series[f[x], {x, 0, 7}]]\)}], "Input", AspectRatioFixed->True, AnimationDisplayTime->1], Cell[BoxData[ \(x - x\^3\/6 + x\^5\/120 - x\^7\/5040\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx7[x]}, {x, \(-4\), 4}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[Rule] {"\", "\<\>"}, PlotRange \[Rule] {\(-2\), 2}, PlotLabel \[Rule] "\"\ approx7[x]];\)\)], "Input", AspectRatioFixed->True, AnimationDisplayTime->1], 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.119048 0.309017 0.154508 [ [.02381 .29652 -6 -9 ] [.02381 .29652 6 0 ] [.2619 .29652 -6 -9 ] [.2619 .29652 6 0 ] [.7381 .29652 -3 -9 ] [.7381 .29652 3 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [1.025 .30902 0 -6 ] [1.025 .30902 10 6 ] [.4875 0 -12 -4.5 ] [.4875 0 0 4.5 ] [.4875 .07725 -24 -4.5 ] [.4875 .07725 0 4.5 ] [.4875 .15451 -12 -4.5 ] [.4875 .15451 0 4.5 ] [.4875 .23176 -24 -4.5 ] [.4875 .23176 0 4.5 ] [.4875 .38627 -18 -4.5 ] [.4875 .38627 0 4.5 ] [.4875 .46353 -6 -4.5 ] [.4875 .46353 0 4.5 ] [.4875 .54078 -18 -4.5 ] [.4875 .54078 0 4.5 ] [.4875 .61803 -6 -4.5 ] [.4875 .61803 0 4.5 ] [.5 .63053 -94.3438 0 ] [.5 .63053 94.3438 24.375 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .30902 m .02381 .31527 L s [(-4)] .02381 .29652 0 1 Mshowa .2619 .30902 m .2619 .31527 L s [(-2)] .2619 .29652 0 1 Mshowa .7381 .30902 m .7381 .31527 L s [(2)] .7381 .29652 0 1 Mshowa .97619 .30902 m .97619 .31527 L s [(4)] .97619 .29652 0 1 Mshowa .125 Mabswid .08333 .30902 m .08333 .31277 L s .14286 .30902 m .14286 .31277 L s .20238 .30902 m .20238 .31277 L s .32143 .30902 m .32143 .31277 L s .38095 .30902 m .38095 .31277 L s .44048 .30902 m .44048 .31277 L s .55952 .30902 m .55952 .31277 L s .61905 .30902 m .61905 .31277 L s .67857 .30902 m .67857 .31277 L s .79762 .30902 m .79762 .31277 L s .85714 .30902 m .85714 .31277 L s .91667 .30902 m .91667 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s gsave 1.025 .30902 -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 0 m .50625 0 L s [(-2)] .4875 0 1 0 Mshowa .5 .07725 m .50625 .07725 L s [(-1.5)] .4875 .07725 1 0 Mshowa .5 .15451 m .50625 .15451 L s [(-1)] .4875 .15451 1 0 Mshowa .5 .23176 m .50625 .23176 L s [(-0.5)] .4875 .23176 1 0 Mshowa .5 .38627 m .50625 .38627 L s [(0.5)] .4875 .38627 1 0 Mshowa .5 .46353 m .50625 .46353 L s [(1)] .4875 .46353 1 0 Mshowa .5 .54078 m .50625 .54078 L s [(1.5)] .4875 .54078 1 0 Mshowa .5 .61803 m .50625 .61803 L s [(2)] .4875 .61803 1 0 Mshowa .125 Mabswid .5 .01545 m .50375 .01545 L s .5 .0309 m .50375 .0309 L s .5 .04635 m .50375 .04635 L s .5 .0618 m .50375 .0618 L s .5 .09271 m .50375 .09271 L s .5 .10816 m .50375 .10816 L s .5 .12361 m .50375 .12361 L s .5 .13906 m .50375 .13906 L s .5 .16996 m .50375 .16996 L s .5 .18541 m .50375 .18541 L s .5 .20086 m .50375 .20086 L s .5 .21631 m .50375 .21631 L s .5 .24721 m .50375 .24721 L s .5 .26266 m .50375 .26266 L s .5 .27812 m .50375 .27812 L s .5 .29357 m .50375 .29357 L s .5 .32447 m .50375 .32447 L s .5 .33992 m .50375 .33992 L s .5 .35537 m .50375 .35537 L s .5 .37082 m .50375 .37082 L s .5 .40172 m .50375 .40172 L s .5 .41717 m .50375 .41717 L s .5 .43262 m .50375 .43262 L s .5 .44807 m .50375 .44807 L s .5 .47898 m .50375 .47898 L s .5 .49443 m .50375 .49443 L s .5 .50988 m .50375 .50988 L s .5 .52533 m .50375 .52533 L s .5 .55623 m .50375 .55623 L s .5 .57168 m .50375 .57168 L s .5 .58713 m .50375 .58713 L s .5 .60258 m .50375 .60258 L s .25 Mabswid .5 0 m .5 .61803 L s gsave .5 .63053 -155.344 -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 32.375 translate 1 -1 scale 63.000 18.938 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 18.938 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 (Sin) 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 18.938 moveto (@) show 87.000 18.938 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 93.000 18.938 moveto (D) show 105.000 18.938 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 123.000 18.938 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 %%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 125.625 14.000 moveto (i) show 125.625 27.375 moveto (k) show 125.625 17.125 moveto (j) show 125.625 19.438 moveto (j) show 131.625 18.938 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 140.000 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 151.438 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 157.438 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (3) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 150.125 18.938 moveto (\\200\\200\\200\\200) show 158.625 18.938 moveto (\\200\\200) show 161.688 18.938 moveto (\\200) show 154.062 25.188 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 (6) show 168.188 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (+) show 183.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 189.000 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (5) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 178.312 18.938 moveto (\\200\\200\\200\\200) show 186.812 18.938 moveto (\\200\\200\\200\\200) show 195.312 18.938 moveto (\\200) show 196.625 18.938 moveto (\\200) show 179.625 25.188 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 (120) show 203.125 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 220.938 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 226.938 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (7) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 213.250 18.938 moveto (\\200\\200\\200\\200\\200\\200\\200\\200) show 230.250 18.938 moveto (\\200\\200) show 234.500 18.938 moveto (\\200\\200) show 237.562 18.938 moveto (\\200) show 214.562 25.188 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 (5040) 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 241.688 14.000 moveto (y) show 241.688 27.375 moveto ({) show 241.688 17.125 moveto (z) show 241.688 19.438 moveto (z) show 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .42595 m .06244 .38764 L .10458 .33667 L .14415 .28555 L .18221 .23875 L .20342 .21547 L .22272 .19685 L .24299 .18046 L .26171 .16863 L .271 .16402 L .28086 .16011 L .29075 .1572 L .29637 .15601 L .2991 .15556 L .30164 .15521 L .30404 .15495 L .3066 .15473 L .30807 .15464 L .30878 .15461 L .30944 .15458 L .31068 .15454 L .31133 .15452 L .31202 .15451 L .31319 .15451 L .31445 .15452 L .31564 .15455 L .31672 .15458 L .31799 .15464 L .31937 .15473 L .32189 .15494 L .3241 .15518 L .32655 .15551 L .33151 .15637 L .3361 .15741 L .34041 .15859 L .35024 .16201 L .36059 .16669 L .3791 .17772 L .39884 .19296 L .41721 .21002 L .45625 .25351 L .49775 .3061 L .53773 .35717 L .5762 .4013 L .59568 .42026 L .61712 .43766 L .62693 .44427 L .63747 .45035 L .64736 .45504 L .65652 .45849 L Mistroke .66184 .46009 L .66665 .46127 L .672 .4623 L .67493 .46273 L .67769 .46305 L .68015 .46327 L .68138 .46335 L .68273 .46343 L .68389 .46347 L .68513 .46351 L .68629 .46352 L .68736 .46352 L .68801 .46352 L .68869 .46351 L .68993 .46348 L .69061 .46345 L .69126 .46343 L .69272 .46335 L .69517 .46316 L .6978 .46289 L .70277 .46217 L .70739 .46126 L .71788 .45836 L .72809 .45441 L .73899 .44902 L .76038 .43509 L .78054 .41823 L .81906 .37782 L .86003 .32711 L .89948 .27619 L .93742 .23054 L .97619 .19208 L Mfstroke 1 0 0 r .01 w .02381 .52288 m .06244 .43388 L .10458 .35566 L .14415 .29304 L .18221 .2415 L .20342 .21696 L .22272 .19767 L .24299 .18088 L .26171 .16884 L .271 .16417 L .28086 .16021 L .29075 .15727 L .29637 .15607 L .2991 .15561 L .30164 .15525 L .30424 .15496 L .3066 .15476 L .30795 .15468 L .30922 .15462 L .30988 .15459 L .31057 .15457 L .31132 .15455 L .31202 .15454 L .31319 .15453 L .31445 .15454 L .31564 .15457 L .31672 .1546 L .31799 .15466 L .31937 .15475 L .32189 .15495 L .3241 .15519 L .32655 .15552 L .33151 .15638 L .3361 .15742 L .34041 .15859 L .35024 .16201 L .36059 .16669 L .3791 .17772 L .39884 .19296 L .41721 .21002 L .45625 .25351 L .49775 .3061 L .53773 .35717 L .5762 .4013 L .59568 .42026 L .61712 .43766 L .62693 .44427 L .63747 .45035 L .64736 .45504 L .65652 .45848 L Mistroke .66184 .46008 L .66665 .46127 L .672 .46229 L .67493 .46272 L .67769 .46304 L .68015 .46325 L .68138 .46333 L .68273 .46341 L .68389 .46345 L .68513 .46348 L .68629 .4635 L .68736 .4635 L .68801 .46349 L .68869 .46348 L .68993 .46345 L .69061 .46343 L .69126 .4634 L .69272 .46332 L .69517 .46313 L .6978 .46285 L .70277 .46212 L .70739 .4612 L .71788 .45826 L .72809 .45427 L .73899 .44881 L .76038 .43463 L .78054 .41733 L .81906 .37497 L .86003 .3188 L .89948 .25541 L .93742 .18442 L .97619 .09516 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[{ "Sharing even more ink.\nHere's what you get when you plot ", Cell[BoxData[ \(f[x]\)]], " and the polynomial made from using the terms through the ", Cell[BoxData[ \(x\^9\)]], " term of its expansion in powers of ", Cell[BoxData[ \(x\)]], ":" }], "Text", AnimationDisplayTime->1], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx9, x, m];\)\), "\n", \(\(f[x_] = Sin[x];\)\n\), "\n", \(approx9[x_] = Normal[Series[f[x], {x, 0, 9}]]\)}], "Input", AspectRatioFixed->True, AnimationDisplayTime->1], Cell[BoxData[ \(x - x\^3\/6 + x\^5\/120 - x\^7\/5040 + x\^9\/362880\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx9[x]}, {x, \(-4\), 4}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[Rule] {"\", "\<\>"}, PlotRange \[Rule] {\(-2\), 2}, PlotLabel \[Rule] "\"\ approx9[x]];\)\)], "Input", AspectRatioFixed->True, AnimationDisplayTime->1], 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.119048 0.309017 0.154508 [ [.02381 .29652 -6 -9 ] [.02381 .29652 6 0 ] [.2619 .29652 -6 -9 ] [.2619 .29652 6 0 ] [.7381 .29652 -3 -9 ] [.7381 .29652 3 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [1.025 .30902 0 -6 ] [1.025 .30902 10 6 ] [.4875 0 -12 -4.5 ] [.4875 0 0 4.5 ] [.4875 .07725 -24 -4.5 ] [.4875 .07725 0 4.5 ] [.4875 .15451 -12 -4.5 ] [.4875 .15451 0 4.5 ] [.4875 .23176 -24 -4.5 ] [.4875 .23176 0 4.5 ] [.4875 .38627 -18 -4.5 ] [.4875 .38627 0 4.5 ] [.4875 .46353 -6 -4.5 ] [.4875 .46353 0 4.5 ] [.4875 .54078 -18 -4.5 ] [.4875 .54078 0 4.5 ] [.4875 .61803 -6 -4.5 ] [.4875 .61803 0 4.5 ] [.5 .63053 -120.812 0 ] [.5 .63053 120.812 24.375 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .30902 m .02381 .31527 L s [(-4)] .02381 .29652 0 1 Mshowa .2619 .30902 m .2619 .31527 L s [(-2)] .2619 .29652 0 1 Mshowa .7381 .30902 m .7381 .31527 L s [(2)] .7381 .29652 0 1 Mshowa .97619 .30902 m .97619 .31527 L s [(4)] .97619 .29652 0 1 Mshowa .125 Mabswid .08333 .30902 m .08333 .31277 L s .14286 .30902 m .14286 .31277 L s .20238 .30902 m .20238 .31277 L s .32143 .30902 m .32143 .31277 L s .38095 .30902 m .38095 .31277 L s .44048 .30902 m .44048 .31277 L s .55952 .30902 m .55952 .31277 L s .61905 .30902 m .61905 .31277 L s .67857 .30902 m .67857 .31277 L s .79762 .30902 m .79762 .31277 L s .85714 .30902 m .85714 .31277 L s .91667 .30902 m .91667 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s gsave 1.025 .30902 -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 0 m .50625 0 L s [(-2)] .4875 0 1 0 Mshowa .5 .07725 m .50625 .07725 L s [(-1.5)] .4875 .07725 1 0 Mshowa .5 .15451 m .50625 .15451 L s [(-1)] .4875 .15451 1 0 Mshowa .5 .23176 m .50625 .23176 L s [(-0.5)] .4875 .23176 1 0 Mshowa .5 .38627 m .50625 .38627 L s [(0.5)] .4875 .38627 1 0 Mshowa .5 .46353 m .50625 .46353 L s [(1)] .4875 .46353 1 0 Mshowa .5 .54078 m .50625 .54078 L s [(1.5)] .4875 .54078 1 0 Mshowa .5 .61803 m .50625 .61803 L s [(2)] .4875 .61803 1 0 Mshowa .125 Mabswid .5 .01545 m .50375 .01545 L s .5 .0309 m .50375 .0309 L s .5 .04635 m .50375 .04635 L s .5 .0618 m .50375 .0618 L s .5 .09271 m .50375 .09271 L s .5 .10816 m .50375 .10816 L s .5 .12361 m .50375 .12361 L s .5 .13906 m .50375 .13906 L s .5 .16996 m .50375 .16996 L s .5 .18541 m .50375 .18541 L s .5 .20086 m .50375 .20086 L s .5 .21631 m .50375 .21631 L s .5 .24721 m .50375 .24721 L s .5 .26266 m .50375 .26266 L s .5 .27812 m .50375 .27812 L s .5 .29357 m .50375 .29357 L s .5 .32447 m .50375 .32447 L s .5 .33992 m .50375 .33992 L s .5 .35537 m .50375 .35537 L s .5 .37082 m .50375 .37082 L s .5 .40172 m .50375 .40172 L s .5 .41717 m .50375 .41717 L s .5 .43262 m .50375 .43262 L s .5 .44807 m .50375 .44807 L s .5 .47898 m .50375 .47898 L s .5 .49443 m .50375 .49443 L s .5 .50988 m .50375 .50988 L s .5 .52533 m .50375 .52533 L s .5 .55623 m .50375 .55623 L s .5 .57168 m .50375 .57168 L s .5 .58713 m .50375 .58713 L s .5 .60258 m .50375 .60258 L s .25 Mabswid .5 0 m .5 .61803 L s gsave .5 .63053 -181.812 -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 32.375 translate 1 -1 scale 63.000 18.938 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 18.938 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 (Sin) 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 18.938 moveto (@) show 87.000 18.938 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 93.000 18.938 moveto (D) show 105.000 18.938 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 123.000 18.938 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 %%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 125.625 14.000 moveto (i) show 125.625 27.375 moveto (k) show 125.625 17.125 moveto (j) show 125.625 19.438 moveto (j) show 131.625 18.938 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 140.000 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 151.438 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 157.438 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (3) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 150.125 18.938 moveto (\\200\\200\\200\\200) show 158.625 18.938 moveto (\\200\\200) show 161.688 18.938 moveto (\\200) show 154.062 25.188 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 (6) show 168.188 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (+) show 183.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 189.000 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (5) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 178.312 18.938 moveto (\\200\\200\\200\\200) show 186.812 18.938 moveto (\\200\\200\\200\\200) show 195.312 18.938 moveto (\\200) show 196.625 18.938 moveto (\\200) show 179.625 25.188 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 (120) show 203.125 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 220.938 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 226.938 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (7) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 213.250 18.938 moveto (\\200\\200\\200\\200\\200\\200\\200\\200) show 230.250 18.938 moveto (\\200\\200) show 234.500 18.938 moveto (\\200\\200) show 237.562 18.938 moveto (\\200) show 214.562 25.188 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 (5040) show 244.062 18.938 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (+) show 267.875 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 273.875 9.438 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (9) show %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 254.188 18.938 moveto (\\200\\200\\200\\200\\200\\200\\200\\200) show 271.188 18.938 moveto (\\200\\200\\200\\200\\200\\200\\200\\200) show 288.188 18.938 moveto (\\200) show 290.500 18.938 moveto (\\200) show 255.500 25.188 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 (362880) 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 294.625 14.000 moveto (y) show 294.625 27.375 moveto ({) show 294.625 17.125 moveto (z) show 294.625 19.438 moveto (z) show 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .42595 m .06244 .38764 L .10458 .33667 L .14415 .28555 L .18221 .23875 L .20342 .21547 L .22272 .19685 L .24299 .18046 L .26171 .16863 L .271 .16402 L .28086 .16011 L .29075 .1572 L .29637 .15601 L .2991 .15556 L .30164 .15521 L .30404 .15495 L .3066 .15473 L .30807 .15464 L .30878 .15461 L .30944 .15458 L .31068 .15454 L .31133 .15452 L .31202 .15451 L .31319 .15451 L .31445 .15452 L .31564 .15455 L .31672 .15458 L .31799 .15464 L .31937 .15473 L .32189 .15494 L .3241 .15518 L .32655 .15551 L .33151 .15637 L .3361 .15741 L .34041 .15859 L .35024 .16201 L .36059 .16669 L .3791 .17772 L .39884 .19296 L .41721 .21002 L .45625 .25351 L .49775 .3061 L .53773 .35717 L .5762 .4013 L .59568 .42026 L .61712 .43766 L .62693 .44427 L .63747 .45035 L .64736 .45504 L .65652 .45849 L Mistroke .66184 .46009 L .66665 .46127 L .672 .4623 L .67493 .46273 L .67769 .46305 L .68015 .46327 L .68138 .46335 L .68273 .46343 L .68389 .46347 L .68513 .46351 L .68629 .46352 L .68736 .46352 L .68801 .46352 L .68869 .46351 L .68993 .46348 L .69061 .46345 L .69126 .46343 L .69272 .46335 L .69517 .46316 L .6978 .46289 L .70277 .46217 L .70739 .46126 L .71788 .45836 L .72809 .45441 L .73899 .44902 L .76038 .43509 L .78054 .41823 L .81906 .37782 L .86003 .32711 L .89948 .27619 L .93742 .23054 L .97619 .19208 L Mfstroke 1 0 0 r .01 w .02381 .41126 m .04262 .3991 L .06244 .38176 L .10458 .33471 L .14264 .28684 L .18314 .23749 L .22214 .19733 L .24344 .18012 L .25322 .17357 L .26358 .16762 L .27309 .16311 L .28356 .15921 L .28814 .15786 L .29308 .15667 L .29774 .15578 L .302 .15517 L .3045 .1549 L .30676 .15472 L .30802 .15464 L .30868 .15461 L .30938 .15458 L .31066 .15454 L .31184 .15452 L .31293 .15451 L .3141 .15451 L .3152 .15453 L .3162 .15456 L .31738 .15461 L .31866 .15468 L .32098 .15486 L .32346 .1551 L .3262 .15546 L .33175 .15642 L .33688 .15761 L .34171 .15898 L .35154 .16253 L .36189 .16735 L .38039 .17861 L .4185 .21131 L .45906 .25693 L .49811 .30656 L .53961 .35948 L .57959 .40479 L .61805 .43833 L .63793 .45059 L .64795 .45529 L .6536 .45749 L .65897 .45926 L .66383 .46061 L .66913 .46179 L Mistroke .67147 .46221 L .67395 .4626 L .67628 .4629 L .67842 .46312 L .68114 .46334 L .68256 .46342 L .68329 .46345 L .68407 .46348 L .68538 .46351 L .68661 .46353 L .68735 .46353 L .68806 .46352 L .68869 .46351 L .68938 .4635 L .69058 .46346 L .69189 .4634 L .69326 .46331 L .69454 .46322 L .69684 .463 L .69931 .4627 L .70429 .4619 L .70891 .46092 L .71939 .45784 L .72961 .45374 L .7405 .44819 L .76189 .43397 L .78205 .41688 L .82057 .37625 L .86154 .32589 L .901 .27656 L .9193 .25533 L .93894 .23494 L .97619 .20677 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["Sharing ink all the way.", "Text"], Cell["\<\ To get the full effect of these plots, grab all the plots, animate, \ and run forward at a slow speed.\ \>", "Special2"], Cell["B.3.a)", "Subsubsection"], Cell[CellGroupData[{ Cell["Why did this happen?", "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "The facts of the matter:\n\[Rule] As you use more and more terms from the \ expansion in powers of ", Cell[BoxData[ \(x\)]], ", you increase the order of contact between ", Cell[BoxData[ \(f[x]\)]], " and the corresponding polynomial at ", Cell[BoxData[ \(x\ = \ 0\)]], ".\n\[Rule] As you increase the order of contact at ", Cell[BoxData[ \(x\ = \ 0\)]], ", you increase the quality of the transition from one curve to the other \ at ", Cell[BoxData[ \(x\ = \ 0\)]], ".\nEvidently, when the transition is really good, the curves have no \ choice but to share a lot of ink." }], "SmallText"] }, Closed]], Cell["B.3.b)", "Subsubsection"], Cell[CellGroupData[{ Cell["What good is this?", "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "It's good for approximations.\nIn real life, no one knows how to calculate \ the exact value of ", Cell[BoxData[ \(Sin[x]\)]], " for all ", Cell[BoxData[ \(x\)]], "'s between ", Cell[BoxData[ \(\(-\(\[Pi]\/2\)\)\)]], " and ", Cell[BoxData[ \(\[Pi]\/2\)]], ". Instead, serious number crunchers rely on approximations.\nTake a \ gander at this:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx13, x, m];\)\), "\n", \(\(f[x_] = Sin[x];\)\n\), "\n", \(approx13[x_] = Normal[Series[f[x], {x, 0, 13}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(x - x\^3\/6 + x\^5\/120 - x\^7\/5040 + x\^9\/362880 - x\^11\/39916800 + x\^13\/6227020800\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx13[x]}, {x, \(-\(\[Pi]\/2\)\), \[Pi]\/2}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[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.303152 0.309017 0.294302 [ [.04527 .29652 -12 -9 ] [.04527 .29652 12 0 ] [.19685 .29652 -6 -9 ] [.19685 .29652 6 0 ] [.34842 .29652 -12 -9 ] [.34842 .29652 12 0 ] [.65158 .29652 -9 -9 ] [.65158 .29652 9 0 ] [.80315 .29652 -3 -9 ] [.80315 .29652 3 0 ] [.95473 .29652 -9 -9 ] [.95473 .29652 9 0 ] [1.025 .30902 0 -6 ] [1.025 .30902 10 6 ] [.4875 .01472 -12 -4.5 ] [.4875 .01472 0 4.5 ] [.4875 .16187 -24 -4.5 ] [.4875 .16187 0 4.5 ] [.4875 .45617 -18 -4.5 ] [.4875 .45617 0 4.5 ] [.4875 .60332 -6 -4.5 ] [.4875 .60332 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .04527 .30902 m .04527 .31527 L s [(-1.5)] .04527 .29652 0 1 Mshowa .19685 .30902 m .19685 .31527 L s [(-1)] .19685 .29652 0 1 Mshowa .34842 .30902 m .34842 .31527 L s [(-0.5)] .34842 .29652 0 1 Mshowa .65158 .30902 m .65158 .31527 L s [(0.5)] .65158 .29652 0 1 Mshowa .80315 .30902 m .80315 .31527 L s [(1)] .80315 .29652 0 1 Mshowa .95473 .30902 m .95473 .31527 L s [(1.5)] .95473 .29652 0 1 Mshowa .125 Mabswid .07559 .30902 m .07559 .31277 L s .1059 .30902 m .1059 .31277 L s .13622 .30902 m .13622 .31277 L s .16653 .30902 m .16653 .31277 L s .22716 .30902 m .22716 .31277 L s .25748 .30902 m .25748 .31277 L s .28779 .30902 m .28779 .31277 L s .31811 .30902 m .31811 .31277 L s .37874 .30902 m .37874 .31277 L s .40905 .30902 m .40905 .31277 L s .43937 .30902 m .43937 .31277 L s .46968 .30902 m .46968 .31277 L s .53032 .30902 m .53032 .31277 L s .56063 .30902 m .56063 .31277 L s .59095 .30902 m .59095 .31277 L s .62126 .30902 m .62126 .31277 L s .68189 .30902 m .68189 .31277 L s .71221 .30902 m .71221 .31277 L s .74252 .30902 m .74252 .31277 L s .77284 .30902 m .77284 .31277 L s .83347 .30902 m .83347 .31277 L s .86378 .30902 m .86378 .31277 L s .8941 .30902 m .8941 .31277 L s .92441 .30902 m .92441 .31277 L s .01496 .30902 m .01496 .31277 L s .98504 .30902 m .98504 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s gsave 1.025 .30902 -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 .01472 m .50625 .01472 L s [(-1)] .4875 .01472 1 0 Mshowa .5 .16187 m .50625 .16187 L s [(-0.5)] .4875 .16187 1 0 Mshowa .5 .45617 m .50625 .45617 L s [(0.5)] .4875 .45617 1 0 Mshowa .5 .60332 m .50625 .60332 L s [(1)] .4875 .60332 1 0 Mshowa .125 Mabswid .5 .04415 m .50375 .04415 L s .5 .07358 m .50375 .07358 L s .5 .10301 m .50375 .10301 L s .5 .13244 m .50375 .13244 L s .5 .1913 m .50375 .1913 L s .5 .22073 m .50375 .22073 L s .5 .25016 m .50375 .25016 L s .5 .27959 m .50375 .27959 L s .5 .33845 m .50375 .33845 L s .5 .36788 m .50375 .36788 L s .5 .39731 m .50375 .39731 L s .5 .42674 m .50375 .42674 L s .5 .4856 m .50375 .4856 L s .5 .51503 m .50375 .51503 L s .5 .54446 m .50375 .54446 L s .5 .57389 m .50375 .57389 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .01472 m .02499 .01472 L .02605 .01472 L .02729 .01473 L .02846 .01475 L .03053 .01479 L .03279 .01484 L .03527 .01493 L .0379 .01503 L .04262 .01528 L .04749 .01561 L .05205 .01599 L .06244 .0171 L .07305 .01859 L .08274 .02026 L .10458 .0251 L .12357 .03051 L .14429 .03765 L .18493 .05531 L .22406 .07662 L .26565 .1035 L .30571 .13305 L .34426 .16439 L .38527 .20027 L .42475 .23672 L .46273 .27292 L .50315 .31207 L .54206 .34972 L .58342 .38898 L .62326 .42541 L .66159 .45857 L .70238 .49121 L .74164 .51954 L .77939 .54345 L .8196 .56492 L .85828 .58134 L .87793 .58799 L .89942 .59393 L .91995 .59827 L .92911 .59978 L .93905 .60111 L .94426 .60169 L .94906 .60214 L .95356 .6025 L .95851 .60282 L .96295 .60304 L .9671 .60319 L .96939 .60324 L .97148 .60328 L .97264 .6033 L Mistroke .9739 .60331 L .97509 .60332 L .97619 .60332 L Mfstroke 1 0 0 r .01 w .02381 .01472 m .02499 .01472 L .02605 .01472 L .02729 .01473 L .02846 .01475 L .03053 .01479 L .03279 .01484 L .03527 .01493 L .0379 .01503 L .04262 .01528 L .04749 .01561 L .05205 .01599 L .06244 .0171 L .07305 .01859 L .08274 .02026 L .10458 .0251 L .12357 .03051 L .14429 .03765 L .18493 .05531 L .22406 .07662 L .26565 .1035 L .30571 .13305 L .34426 .16439 L .38527 .20027 L .42475 .23672 L .46273 .27292 L .50315 .31207 L .54206 .34972 L .58342 .38898 L .62326 .42541 L .66159 .45857 L .70238 .49121 L .74164 .51954 L .77939 .54345 L .8196 .56492 L .85828 .58134 L .87793 .58799 L .89942 .59393 L .91995 .59827 L .92911 .59978 L .93905 .60111 L .94426 .60169 L .94906 .60214 L .95356 .6025 L .95851 .60282 L .96295 .60304 L .9671 .60319 L .96939 .60324 L .97148 .60328 L .97264 .6033 L Mistroke .9739 .60331 L .97509 .60332 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[{ "Running together all the way.\nSee how close they really are by plotting \ their difference for ", Cell[BoxData[ \(\(-\(\[Pi]\/2\)\) \[LessEqual] x \[LessEqual] \[Pi]\/2\)]], ":" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[f[x] - approx13[x], {x, \(-\(\[Pi]\/2\)\), \[Pi]\/2}, \n\t PlotStyle \[Rule] Red, PlotRange \[Rule] All, AxesLabel \[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.303152 0.309017 4.44042e+08 [ [.04527 .29652 -12 -9 ] [.04527 .29652 12 0 ] [.19685 .29652 -6 -9 ] [.19685 .29652 6 0 ] [.34842 .29652 -12 -9 ] [.34842 .29652 12 0 ] [.65158 .29652 -9 -9 ] [.65158 .29652 9 0 ] [.80315 .29652 -3 -9 ] [.80315 .29652 3 0 ] [.95473 .29652 -9 -9 ] [.95473 .29652 9 0 ] [1.025 .30902 0 -6 ] [1.025 .30902 10 6 ] [.4875 .04259 -43.5 -6.25 ] [.4875 .04259 0 6.25 ] [.4875 .1314 -43.5 -6.25 ] [.4875 .1314 0 6.25 ] [.4875 .22021 -43.5 -6.25 ] [.4875 .22021 0 6.25 ] [.4875 .39783 -37.5 -6.25 ] [.4875 .39783 0 6.25 ] [.4875 .48663 -37.5 -6.25 ] [.4875 .48663 0 6.25 ] [.4875 .57544 -37.5 -6.25 ] [.4875 .57544 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 .04527 .30902 m .04527 .31527 L s [(-1.5)] .04527 .29652 0 1 Mshowa .19685 .30902 m .19685 .31527 L s [(-1)] .19685 .29652 0 1 Mshowa .34842 .30902 m .34842 .31527 L s [(-0.5)] .34842 .29652 0 1 Mshowa .65158 .30902 m .65158 .31527 L s [(0.5)] .65158 .29652 0 1 Mshowa .80315 .30902 m .80315 .31527 L s [(1)] .80315 .29652 0 1 Mshowa .95473 .30902 m .95473 .31527 L s [(1.5)] .95473 .29652 0 1 Mshowa .125 Mabswid .07559 .30902 m .07559 .31277 L s .1059 .30902 m .1059 .31277 L s .13622 .30902 m .13622 .31277 L s .16653 .30902 m .16653 .31277 L s .22716 .30902 m .22716 .31277 L s .25748 .30902 m .25748 .31277 L s .28779 .30902 m .28779 .31277 L s .31811 .30902 m .31811 .31277 L s .37874 .30902 m .37874 .31277 L s .40905 .30902 m .40905 .31277 L s .43937 .30902 m .43937 .31277 L s .46968 .30902 m .46968 .31277 L s .53032 .30902 m .53032 .31277 L s .56063 .30902 m .56063 .31277 L s .59095 .30902 m .59095 .31277 L s .62126 .30902 m .62126 .31277 L s .68189 .30902 m .68189 .31277 L s .71221 .30902 m .71221 .31277 L s .74252 .30902 m .74252 .31277 L s .77284 .30902 m .77284 .31277 L s .83347 .30902 m .83347 .31277 L s .86378 .30902 m .86378 .31277 L s .8941 .30902 m .8941 .31277 L s .92441 .30902 m .92441 .31277 L s .01496 .30902 m .01496 .31277 L s .98504 .30902 m .98504 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s gsave 1.025 .30902 -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 .04259 m .50625 .04259 L s gsave .4875 .04259 -43.5 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (-6) 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 (-10) show grestore .5 .1314 m .50625 .1314 L s gsave .4875 .1314 -43.5 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (-4) 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 (-10) show grestore .5 .22021 m .50625 .22021 L s gsave .4875 .22021 -43.5 -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 (-10) show grestore .5 .39783 m .50625 .39783 L s gsave .4875 .39783 -37.5 -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 (-10) show grestore .5 .48663 m .50625 .48663 L s gsave .4875 .48663 -37.5 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (4) 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 (-10) show grestore .5 .57544 m .50625 .57544 L s gsave .4875 .57544 -37.5 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (6) 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 (-10) show grestore .125 Mabswid .5 .06479 m .50375 .06479 L s .5 .087 m .50375 .087 L s .5 .1092 m .50375 .1092 L s .5 .1536 m .50375 .1536 L s .5 .1758 m .50375 .1758 L s .5 .19801 m .50375 .19801 L s .5 .24241 m .50375 .24241 L s .5 .26461 m .50375 .26461 L s .5 .28681 m .50375 .28681 L s .5 .33122 m .50375 .33122 L s .5 .35342 m .50375 .35342 L s .5 .37562 m .50375 .37562 L s .5 .42003 m .50375 .42003 L s .5 .44223 m .50375 .44223 L s .5 .46443 m .50375 .46443 L s .5 .50884 m .50375 .50884 L s .5 .53104 m .50375 .53104 L s .5 .55324 m .50375 .55324 L s .5 .02039 m .50375 .02039 L s .5 .59764 m .50375 .59764 L s .25 Mabswid .5 0 m .5 .61803 L s 1 0 0 r .5 Mabswid .02381 .60332 m .03279 .53031 L .04262 .46993 L .05288 .42354 L .06244 .39185 L .0731 .36625 L .0828 .34958 L .08817 .34242 L .094 .336 L .09946 .33104 L .10458 .32718 L .11402 .32166 L .11903 .31941 L .12442 .31741 L .13005 .31571 L .1354 .3144 L .14067 .31334 L .14545 .31256 L .15503 .31136 L .16029 .31088 L .16525 .31051 L .17408 .31002 L .17906 .30981 L .18364 .30966 L .18834 .30953 L .19337 .30942 L .20246 .30927 L .20801 .30921 L .21327 .30916 L .21799 .30913 L .22313 .3091 L .22797 .30908 L .23253 .30907 L .23752 .30906 L .2429 .30905 L .24824 .30904 L .25386 .30903 L .25866 .30903 L .26391 .30902 L .26919 .30902 L .27418 .30902 L .27866 .30902 L .28352 .30902 L .28881 .30902 L .29148 .30902 L .29442 .30902 L .29923 .30902 L .30195 .30902 L .30447 .30902 L .30577 .30902 L Mistroke .30699 .30902 L .30767 .30902 L .30841 .30902 L .30968 .30902 L .31094 .30902 L .31162 .30902 L .31226 .30902 L .31339 .30902 L .31463 .30902 L .31584 .30902 L .31698 .30902 L .318 .30902 L .31912 .30902 L .32033 .30902 L .32161 .30902 L .32271 .30902 L .32392 .30902 L .32524 .30902 L .3259 .30902 L .32663 .30902 L .32911 .30902 L .33051 .30902 L .3313 .30902 L .33201 .30902 L .33267 .30902 L .33339 .30902 L .3347 .30902 L .33592 .30902 L .33661 .30902 L .33726 .30902 L .33856 .30902 L .3393 .30902 L .33996 .30902 L .34115 .30902 L .34245 .30902 L .34368 .30902 L .34481 .30902 L .3459 .30902 L .34707 .30902 L .34817 .30902 L .34918 .30902 L .35031 .30902 L .35137 .30902 L .35253 .30902 L .35378 .30902 L .35505 .30902 L .35569 .30902 L .3564 .30902 L .35765 .30902 L .35882 .30902 L Mistroke .35996 .30902 L .3612 .30902 L .36237 .30902 L .36345 .30902 L .36474 .30902 L .36547 .30902 L .36612 .30902 L .36738 .30902 L .36857 .30902 L .36924 .30902 L .36994 .30902 L .37121 .30902 L .37257 .30902 L .37335 .30902 L .37407 .30902 L .37536 .30902 L .37659 .30902 L .37769 .30902 L .37888 .30902 L .38018 .30902 L .38084 .30902 L .38156 .30902 L .38284 .30902 L .38404 .30902 L .38522 .30902 L .38648 .30902 L .38767 .30902 L .38875 .30902 L .39001 .30902 L .39073 .30902 L .39139 .30902 L .3926 .30902 L .39389 .30902 L .40424 .30902 L .42275 .30902 L .4322 .30902 L .4334 .30902 L .43469 .30902 L .43543 .30902 L .4361 .30902 L .4374 .30902 L .43863 .30902 L .43995 .30902 L .44119 .30902 L .44234 .30902 L .44351 .30902 L .44475 .30902 L .44593 .30902 L .447 .30902 L .44821 .30902 L Mistroke .44935 .30902 L .45058 .30902 L .45127 .30902 L .45191 .30902 L .45296 .30902 L .45393 .30902 L .45501 .30902 L .45616 .30902 L .45736 .30902 L .45851 .30902 L .46066 .30902 L .4619 .30902 L .4626 .30902 L .46324 .30902 L .46443 .30902 L .46568 .30902 L .46681 .30902 L .46785 .30902 L .469 .30902 L .47024 .30902 L .48045 .30902 L .49884 .30902 L .51864 .30902 L .52123 .30902 L .52403 .30902 L .52531 .30902 L .52601 .30902 L .52667 .30902 L .52782 .30902 L .52909 .30902 L .52977 .30902 L .53042 .30902 L .53164 .30902 L .53436 .30902 L .54019 .30902 L .55011 .30902 L .55079 .30902 L .55152 .30902 L .55283 .30902 L .55355 .30902 L .5542 .30902 L .55571 .30902 L .55698 .30902 L .55765 .30902 L .55836 .30902 L .55966 .30902 L .56087 .30902 L .56217 .30902 L .56336 .30902 L .56467 .30902 L Mistroke .56533 .30902 L .56605 .30902 L .56727 .30902 L .56857 .30902 L .5698 .30902 L .57092 .30902 L .57316 .30902 L .5756 .30902 L .57671 .30902 L .5779 .30902 L .57891 .30902 L .58002 .30902 L .58124 .30902 L .58238 .30902 L .58495 .30902 L .58624 .30902 L .58746 .30902 L .58813 .30902 L .58886 .30902 L .59013 .30902 L .59125 .30902 L .59248 .30902 L .59376 .30902 L .59496 .30902 L .59608 .30902 L .5971 .30902 L .59828 .30902 L .5994 .30902 L .60059 .30902 L .60191 .30902 L .60458 .30902 L .60939 .30902 L .61208 .30902 L .61282 .30902 L .6135 .30902 L .61421 .30902 L .61499 .30902 L .61632 .30902 L .61706 .30902 L .61774 .30902 L .61904 .30902 L .62026 .30902 L .62141 .30902 L .62265 .30902 L .62381 .30902 L .62488 .30902 L .62616 .30902 L .62687 .30902 L .62752 .30902 L .62878 .30902 L Mistroke .62996 .30902 L .63117 .30902 L .63248 .30902 L .63318 .30902 L .63392 .30902 L .63523 .30902 L .64024 .30902 L .64904 .30902 L .65027 .30902 L .65144 .30902 L .65209 .30902 L .6528 .30902 L .65403 .30902 L .6552 .30902 L .65645 .30902 L .65761 .30902 L .65869 .30902 L .65982 .30902 L .66107 .30902 L .66228 .30902 L .66358 .30902 L .66806 .30902 L .66927 .30902 L .67055 .30902 L .67122 .30902 L .67196 .30902 L .67326 .30902 L .67448 .30902 L .67579 .30902 L .67703 .30902 L .67816 .30902 L .67938 .30902 L .68051 .30902 L .68176 .30902 L .68308 .30902 L .68434 .30902 L .68552 .30902 L .68659 .30902 L .68774 .30902 L .68879 .30902 L .68995 .30902 L .69115 .30902 L .69228 .30902 L .69333 .30902 L .69429 .30902 L .6954 .30902 L .69644 .30902 L .69759 .30902 L .69882 .30902 L .69998 .30902 L Mistroke .70105 .30902 L .70229 .30902 L .703 .30902 L .70365 .30902 L .70613 .30902 L .71151 .30902 L .7164 .30901 L .72099 .30901 L .72532 .30901 L .72989 .30901 L .73483 .30901 L .73974 .30901 L .74433 .309 L .74936 .309 L .75475 .30899 L .76041 .30898 L .76577 .30897 L .77058 .30896 L .77581 .30893 L .78065 .30891 L .7852 .30888 L .79019 .30884 L .79557 .30879 L .8009 .30871 L .80652 .30862 L .81132 .30851 L .81657 .30837 L .82185 .30819 L .82683 .30797 L .83616 .30742 L .84139 .30701 L .84621 .30654 L .85146 .30591 L .85711 .30507 L .86216 .30415 L .86679 .30313 L .87585 .30053 L .88091 .29865 L .88643 .29615 L .89648 .29011 L .90181 .28593 L .90682 .28121 L .91618 .26992 L .92626 .25305 L .93716 .22731 L .94621 .19793 L .95614 .15451 L .96652 .09263 L .97619 .01472 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[TextData[{ "The upshot:\nFor ", Cell[BoxData[ \(\(-\(\[Pi]\/2\)\) \[LessEqual] x \[LessEqual] \[Pi]\/2\)]], ", ", Cell[BoxData[ \(f[x]\ = \ Sin[x]\)]], " is equal to ", Cell[BoxData[ \(approx13[x]\)]], " to within an error of no more than ", Cell[BoxData[ \(10\^\(-9\)\)]], ". \nCheck it out:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(x = 1\/5;\)\), "\n", \(N[{x, Sin[x], approx13[x]}, 12]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \({0.2`, 0.19866933079506124`, 0.1986693307950612`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(x = 2\/5;\)\), "\n", \(N[{x, Sin[x], approx13[x]}, 12]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \({0.4`, 0.3894183423086505`, 0.38941834230865047`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(x = 3\/5;\)\), "\n", \(N[{x, Sin[x], approx13[x]}, 12]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \({0.6`, 0.5646424733950354`, 0.5646424733950357`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(x = 4\/5;\)\), "\n", \(N[{x, Sin[x], approx13[x]}, 12]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \({0.8`, 0.7173560908995228`, 0.7173560908995495`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(x = 5\/5;\)\), "\n", \(N[{x, Sin[x], approx13[x]}, 12]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \({1.`, 0.8414709848078965`, 0.8414709848086585`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(x = 6\/5;\)\), "\n", \(N[{x, Sin[x], approx13[x]}, 12]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \({1.2`, 0.9320390859672263`, 0.9320390859789461`}\)], "Output"] }, Open ]], Cell[TextData[{ "First class approximations.\nIf you have a calculator that can only add, \ subtract, multiply, and divide, then you can calculate ", Cell[BoxData[ \(Sin[x]\)]], " for ", Cell[BoxData[ \(\(-\(\[Pi]\/2\)\) \[LessEqual] x \[LessEqual] \[Pi]\/2\)]], " damn accurately by calculating:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[x];\)\), "\n", \(approx13[x]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(x - x\^3\/6 + x\^5\/120 - x\^7\/5040 + x\^9\/362880 - x\^11\/39916800 + x\^13\/6227020800\)], "Output"] }, Open ]], Cell["Pretty nifty.", "SmallText"] }, Closed]], Cell["B.3.c)", "Subsubsection"], Cell[CellGroupData[{ Cell["What's the best way to think of expansions?", "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "Expansions are clay for approximations. \nYou might never use the whole \ expansion in powers of ", Cell[BoxData[ \(x\)]], " of a function ", Cell[BoxData[ \(f[x]\)]], ", but usually you can use enough of it approximate ", Cell[BoxData[ \(f[x]\)]], " very well on an interval centered at ", Cell[BoxData[ \(0\)]], ".\nTry it:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx3, x, m];\)\), "\n", \(\(f[x_] = E\^x\ Sin[3\ x];\)\n\), "\n", \(approx3[x_] = Normal[Series[f[x], {x, 0, 3}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(3\ x + 3\ x\^2 - 3\ x\^3\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx3[x]}, {x, \(-1\), 1}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[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 0.11628 0.162346 [ [.02381 .10378 -6 -9 ] [.02381 .10378 6 0 ] [.2619 .10378 -12 -9 ] [.2619 .10378 12 0 ] [.7381 .10378 -9 -9 ] [.7381 .10378 9 0 ] [.97619 .10378 -3 -9 ] [.97619 .10378 3 0 ] [1.025 .11628 0 -6 ] [1.025 .11628 10 6 ] [.4875 .03511 -24 -4.5 ] [.4875 .03511 0 4.5 ] [.4875 .19745 -18 -4.5 ] [.4875 .19745 0 4.5 ] [.4875 .27863 -6 -4.5 ] [.4875 .27863 0 4.5 ] [.4875 .3598 -18 -4.5 ] [.4875 .3598 0 4.5 ] [.4875 .44097 -6 -4.5 ] [.4875 .44097 0 4.5 ] [.4875 .52215 -18 -4.5 ] [.4875 .52215 0 4.5 ] [.4875 .60332 -6 -4.5 ] [.4875 .60332 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .11628 m .02381 .12253 L s [(-1)] .02381 .10378 0 1 Mshowa .2619 .11628 m .2619 .12253 L s [(-0.5)] .2619 .10378 0 1 Mshowa .7381 .11628 m .7381 .12253 L s [(0.5)] .7381 .10378 0 1 Mshowa .97619 .11628 m .97619 .12253 L s [(1)] .97619 .10378 0 1 Mshowa .125 Mabswid .07143 .11628 m .07143 .12003 L s .11905 .11628 m .11905 .12003 L s .16667 .11628 m .16667 .12003 L s .21429 .11628 m .21429 .12003 L s .30952 .11628 m .30952 .12003 L s .35714 .11628 m .35714 .12003 L s .40476 .11628 m .40476 .12003 L s .45238 .11628 m .45238 .12003 L s .54762 .11628 m .54762 .12003 L s .59524 .11628 m .59524 .12003 L s .64286 .11628 m .64286 .12003 L s .69048 .11628 m .69048 .12003 L s .78571 .11628 m .78571 .12003 L s .83333 .11628 m .83333 .12003 L s .88095 .11628 m .88095 .12003 L s .92857 .11628 m .92857 .12003 L s .25 Mabswid 0 .11628 m 1 .11628 L s gsave 1.025 .11628 -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 .03511 m .50625 .03511 L s [(-0.5)] .4875 .03511 1 0 Mshowa .5 .19745 m .50625 .19745 L s [(0.5)] .4875 .19745 1 0 Mshowa .5 .27863 m .50625 .27863 L s [(1)] .4875 .27863 1 0 Mshowa .5 .3598 m .50625 .3598 L s [(1.5)] .4875 .3598 1 0 Mshowa .5 .44097 m .50625 .44097 L s [(2)] .4875 .44097 1 0 Mshowa .5 .52215 m .50625 .52215 L s [(2.5)] .4875 .52215 1 0 Mshowa .5 .60332 m .50625 .60332 L s [(3)] .4875 .60332 1 0 Mshowa .125 Mabswid .5 .05134 m .50375 .05134 L s .5 .06758 m .50375 .06758 L s .5 .08381 m .50375 .08381 L s .5 .10005 m .50375 .10005 L s .5 .13252 m .50375 .13252 L s .5 .14875 m .50375 .14875 L s .5 .16498 m .50375 .16498 L s .5 .18122 m .50375 .18122 L s .5 .21369 m .50375 .21369 L s .5 .22992 m .50375 .22992 L s .5 .24616 m .50375 .24616 L s .5 .26239 m .50375 .26239 L s .5 .29486 m .50375 .29486 L s .5 .3111 m .50375 .3111 L s .5 .32733 m .50375 .32733 L s .5 .34357 m .50375 .34357 L s .5 .37603 m .50375 .37603 L s .5 .39227 m .50375 .39227 L s .5 .4085 m .50375 .4085 L s .5 .42474 m .50375 .42474 L s .5 .45721 m .50375 .45721 L s .5 .47344 m .50375 .47344 L s .5 .48968 m .50375 .48968 L s .5 .50591 m .50375 .50591 L s .5 .53838 m .50375 .53838 L s .5 .55462 m .50375 .55462 L s .5 .57085 m .50375 .57085 L s .5 .58708 m .50375 .58708 L s .5 .01887 m .50375 .01887 L s .5 .00264 m .50375 .00264 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .10785 m .06244 .09196 L .10458 .07343 L .14415 .05606 L .18221 .04061 L .20342 .03302 L .22272 .02699 L .24299 .02176 L .26171 .01809 L .271 .01674 L .28086 .01566 L .28596 .01526 L .29075 .01498 L .29349 .01487 L .29599 .01479 L .29738 .01476 L .29811 .01474 L .29889 .01473 L .29964 .01472 L .30032 .01472 L .301 .01472 L .30164 .01472 L .3028 .01472 L .30405 .01473 L .30522 .01474 L .30629 .01476 L .30755 .01479 L .30892 .01483 L .3114 .01493 L .314 .01506 L .31676 .01523 L .32172 .01563 L .3305 .01664 L .34019 .01819 L .35028 .02032 L .35954 .02274 L .38039 .02987 L .39932 .03841 L .42002 .05001 L .46058 .07954 L .49962 .1159 L .54112 .16162 L .5811 .21041 L .61957 .25903 L .66049 .30899 L .69989 .35142 L .73778 .38306 L .75723 .39457 L .76814 .39938 L .77297 .4011 L Mistroke .77812 .40264 L .7833 .40388 L .78799 .40474 L .79026 .40506 L .79271 .40533 L .79383 .40543 L .79502 .40552 L .79611 .40559 L .79714 .40564 L .79844 .40568 L .79961 .4057 L .80088 .4057 L .8016 .4057 L .80226 .40568 L .80336 .40565 L .80458 .40559 L .80585 .40552 L .80703 .40542 L .80976 .40514 L .81226 .4048 L .81788 .40371 L .82263 .40246 L .82771 .40077 L .83684 .39683 L .8477 .39056 L .85756 .38336 L .87678 .36506 L .89759 .33876 L .93856 .26702 L .97619 .17856 L Mfstroke 1 0 0 r .01 w .02381 .60332 m .06244 .45782 L .10458 .32655 L .14415 .22755 L .18221 .15292 L .20342 .11953 L .22272 .09398 L .24299 .07186 L .26171 .05555 L .28086 .04276 L .29094 .03754 L .30164 .03312 L .31105 .03014 L .31624 .02885 L .32117 .02786 L .32574 .02714 L .32816 .02684 L .33073 .02657 L .33311 .02638 L .33527 .02624 L .33631 .02619 L .33743 .02615 L .3385 .02612 L .33947 .0261 L .34074 .02609 L .34193 .02609 L .34301 .0261 L .34417 .02612 L .34544 .02616 L .34679 .02622 L .34921 .02636 L .35144 .02653 L .35353 .02673 L .3583 .02731 L .36349 .02816 L .36824 .02912 L .37896 .03195 L .38877 .0353 L .39789 .03904 L .41859 .04968 L .45763 .07715 L .49913 .11539 L .53911 .1593 L .57758 .20645 L .6185 .26013 L .6579 .31357 L .69579 .36501 L .73613 .41816 L .77495 .46611 L .81623 .51186 L Mistroke .85599 .54909 L .89423 .57695 L .91394 .58776 L .93493 .59632 L .94515 .59931 L .95052 .60056 L .95619 .60164 L .96116 .60236 L .96379 .60267 L .96661 .60293 L .96795 .60303 L .96921 .60311 L .97043 .60318 L .97157 .60323 L .97264 .60327 L .97378 .60329 L .97493 .60331 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["\<\ If you want to go for a better approximation, then you can use more \ of the expansion:\ \>", "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[approx6];\)\), "\n", \(approx6[x_] = Normal[Series[f[x], {x, 0, 6}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(3\ x + 3\ x\^2 - 3\ x\^3 - 4\ x\^4 - x\^5\/10 + \(13\ x\^6\)\/10\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx6[x]}, {x, \(-1\), 1}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[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 0.167613 0.244399 [ [.02381 .15511 -6 -9 ] [.02381 .15511 6 0 ] [.2619 .15511 -12 -9 ] [.2619 .15511 12 0 ] [.7381 .15511 -9 -9 ] [.7381 .15511 9 0 ] [.97619 .15511 -3 -9 ] [.97619 .15511 3 0 ] [1.025 .16761 0 -6 ] [1.025 .16761 10 6 ] [.4875 .04541 -24 -4.5 ] [.4875 .04541 0 4.5 ] [.4875 .28981 -18 -4.5 ] [.4875 .28981 0 4.5 ] [.4875 .41201 -6 -4.5 ] [.4875 .41201 0 4.5 ] [.4875 .53421 -18 -4.5 ] [.4875 .53421 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 .02381 .16761 m .02381 .17386 L s [(-1)] .02381 .15511 0 1 Mshowa .2619 .16761 m .2619 .17386 L s [(-0.5)] .2619 .15511 0 1 Mshowa .7381 .16761 m .7381 .17386 L s [(0.5)] .7381 .15511 0 1 Mshowa .97619 .16761 m .97619 .17386 L s [(1)] .97619 .15511 0 1 Mshowa .125 Mabswid .07143 .16761 m .07143 .17136 L s .11905 .16761 m .11905 .17136 L s .16667 .16761 m .16667 .17136 L s .21429 .16761 m .21429 .17136 L s .30952 .16761 m .30952 .17136 L s .35714 .16761 m .35714 .17136 L s .40476 .16761 m .40476 .17136 L s .45238 .16761 m .45238 .17136 L s .54762 .16761 m .54762 .17136 L s .59524 .16761 m .59524 .17136 L s .64286 .16761 m .64286 .17136 L s .69048 .16761 m .69048 .17136 L s .78571 .16761 m .78571 .17136 L s .83333 .16761 m .83333 .17136 L s .88095 .16761 m .88095 .17136 L s .92857 .16761 m .92857 .17136 L s .25 Mabswid 0 .16761 m 1 .16761 L s gsave 1.025 .16761 -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 .04541 m .50625 .04541 L s [(-0.5)] .4875 .04541 1 0 Mshowa .5 .28981 m .50625 .28981 L s [(0.5)] .4875 .28981 1 0 Mshowa .5 .41201 m .50625 .41201 L s [(1)] .4875 .41201 1 0 Mshowa .5 .53421 m .50625 .53421 L s [(1.5)] .4875 .53421 1 0 Mshowa .125 Mabswid .5 .06985 m .50375 .06985 L s .5 .09429 m .50375 .09429 L s .5 .11873 m .50375 .11873 L s .5 .14317 m .50375 .14317 L s .5 .19205 m .50375 .19205 L s .5 .21649 m .50375 .21649 L s .5 .24093 m .50375 .24093 L s .5 .26537 m .50375 .26537 L s .5 .31425 m .50375 .31425 L s .5 .33869 m .50375 .33869 L s .5 .36313 m .50375 .36313 L s .5 .38757 m .50375 .38757 L s .5 .43645 m .50375 .43645 L s .5 .46089 m .50375 .46089 L s .5 .48533 m .50375 .48533 L s .5 .50977 m .50375 .50977 L s .5 .02097 m .50375 .02097 L s .5 .55865 m .50375 .55865 L s .5 .58309 m .50375 .58309 L s .5 .60753 m .50375 .60753 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .15493 m .06244 .13099 L .10458 .10311 L .14415 .07695 L .18221 .0537 L .20342 .04228 L .22272 .0332 L .24299 .02532 L .26171 .0198 L .271 .01776 L .28086 .01614 L .28596 .01554 L .29075 .01512 L .29349 .01494 L .29599 .01483 L .29738 .01478 L .29811 .01476 L .29889 .01474 L .29964 .01473 L .30032 .01472 L .301 .01472 L .30164 .01472 L .3028 .01472 L .30405 .01473 L .30522 .01476 L .30629 .01479 L .30755 .01483 L .30892 .01489 L .3114 .01503 L .314 .01523 L .31676 .01549 L .32172 .0161 L .3305 .01761 L .34019 .01995 L .35028 .02315 L .35954 .0268 L .38039 .03753 L .39932 .05038 L .42002 .06785 L .46058 .11231 L .49962 .16703 L .54112 .23587 L .5811 .30932 L .61957 .38251 L .66049 .45772 L .69989 .5216 L .73778 .56923 L .75723 .58656 L .76814 .5938 L .77297 .59638 L Mistroke .77812 .5987 L .7833 .60058 L .78799 .60187 L .79026 .60235 L .79271 .60276 L .79383 .60291 L .79502 .60304 L .79611 .60314 L .79714 .60322 L .79844 .60328 L .79961 .60332 L .80088 .60332 L .8016 .60331 L .80226 .60329 L .80336 .60324 L .80458 .60315 L .80585 .60303 L .80703 .60289 L .80976 .60247 L .81226 .60195 L .81788 .60032 L .82263 .59843 L .82771 .5959 L .83684 .58996 L .8477 .58052 L .85756 .56968 L .87678 .54213 L .89759 .50253 L .93856 .39454 L .97619 .26137 L Mfstroke 1 0 0 r .01 w .02381 .26537 m .06244 .19212 L .10458 .13316 L .14415 .09128 L .18221 .06017 L .20342 .04625 L .22272 .03567 L .24276 .02685 L .26171 .02064 L .27141 .01831 L .27671 .01729 L .28168 .01649 L .28627 .0159 L .29046 .01548 L .29285 .01529 L .29511 .01515 L .29751 .01504 L .29887 .015 L .30012 .01497 L .30141 .01495 L .30206 .01494 L .30277 .01494 L .30403 .01495 L .3052 .01496 L .30591 .01497 L .30659 .01499 L .30785 .01503 L .30921 .01508 L .31069 .01516 L .3132 .01532 L .31586 .01554 L .32065 .01607 L .32521 .01673 L .32949 .01749 L .33925 .01975 L .34909 .02277 L .35944 .02677 L .37794 .03609 L .39768 .04916 L .41605 .06423 L .45509 .10553 L .49659 .1624 L .53657 .22789 L .57504 .29789 L .61596 .37566 L .65536 .44863 L .69325 .51155 L .71433 .54137 L .73359 .56429 L .74312 .57385 L Mistroke .75351 .58278 L .76325 .58964 L .77241 .59467 L .77739 .59679 L .78276 .59858 L .78513 .5992 L .78764 .59974 L .78978 .60011 L .79213 .60041 L .79354 .60054 L .79423 .60059 L .79487 .60063 L .79607 .60068 L .79737 .6007 L .79867 .60069 L .7994 .60067 L .80009 .60063 L .80082 .60059 L .80149 .60054 L .80299 .6004 L .80534 .60008 L .80792 .5996 L .81061 .59895 L .81311 .59821 L .81818 .5963 L .82366 .59359 L .83361 .58697 L .84329 .57832 L .85221 .56838 L .87101 .54099 L .89166 .50048 L .93206 .38851 L .97093 .23963 L .97619 .21649 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["Math happens again.", "SmallText"] }, Closed]] }, Closed]], Cell["Tutorial Problem", "Subsubsection"], Cell[CellGroupData[{ Cell["T.1) \[NonBreakingSpace]Expansions by substitution", "Subsection", CellTags->"3.02.T1"], Cell[TextData[{ "Use the basic expansions\n\[Rule] ", Cell[BoxData[ \(1\/\(1 - x\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], ": \n ", Cell[BoxData[ \(\(1\ + \ x\ + \ x\^2\ + \ x\^3\ + \ x\^4\ + \ ... \)\ + \ x\^k\ + \ ... \)]], "\n\[Rule] ", Cell[BoxData[ \(e\^x\)]], " in powers of ", Cell[BoxData[ \(x\)]], ": \n ", Cell[BoxData[ \(\(1 + x + x\^2\/2 + x\^3\/\(3!\) + \ ... \)\ + x\^k\/\(k!\)\ + \ ... \)]], "\n\[Rule] ", Cell[BoxData[ \(Sin[x]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ": \n ", Cell[BoxData[ \(\(\(\ \)\(x - x\^3\/\(3!\) + x\^5\/\(5!\) + \ ... \)\)\)]], " ", Cell[BoxData[ \(\(\(+\(\(\((\(-1\))\)\^k\ \ x\^\(2\ k\ + \ 1\)\)\/\(\((2\ k + 1)\)!\)\)\)\(\ \)\(+\)\)\ ... \)]], "\n\[Rule] ", Cell[BoxData[ \(Cos[x]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ": \n ", Cell[BoxData[ \(1 - x\^2\/\(2!\) + x\^4\/\(4!\) + \ ... \)]], Cell[BoxData[ \(\(\(+\ \(\(\((\(-1\))\)\^k\ x\^\(2\ k\)\)\/\(\((2\ k)\)!\)\)\)\(\ \ \)\(+\)\)\ ... \)]], "\nto arrive at the expansions in powers of ", Cell[BoxData[ \(x\)]], " of the following functions ", Cell[BoxData[ \(f[x]\)]], ".\nUse ", StyleBox["Mathematica", FontSlant->"Italic"], " to check yourself." }], "Text"], Cell["T.1.a)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ " ", Cell[BoxData[ \(f[x]\ = \ e\^\(x\^2\)\)]] }], "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "The expansion of ", Cell[BoxData[ \(e\^x\)]], " in powers of ", Cell[BoxData[ \(x\)]], " is\n ", Cell[BoxData[ \(1 + x + x\^2\/\(2!\) + x\^3\/\(3!\) + x\^4\/\(4!\) + x\^5\/\(5!\) + \)]], " ", Cell[BoxData[ \(\(\(\(...\)\(\ \)\(+\(x\^k\/\(k!\)\)\)\)\(\ \)\(+\)\)\ ... \)]], "\nTo get the expansion of ", Cell[BoxData[ \(e\^\(x\^2\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], ", just replace ", Cell[BoxData[ \(x\)]], " by ", Cell[BoxData[ \(x\^2\)]], " throughout; this gives the expansion\n ", Cell[BoxData[ \(1 + x\^2 + x\^4\/\(2!\) + x\^6\/\(3!\) + x\^8\/\(4!\) + x\^10\/\(5!\) + \)]], " ", Cell[BoxData[ \(\(\(\(...\)\(\ \)\(+\ \(x\^\(2\ k\)\/\(k!\)\)\)\)\(\ \)\(+\)\)\ ... \ \)]], "\nof ", Cell[BoxData[ \(e\^\(x\^2\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], ".\nRun this through ", StyleBox["Mathematica", FontSlant->"Italic"], ":" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[x];\)\), "\n", \(Normal[Series[E\^x, {x, 0, 8}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 + x + x\^2\/2 + x\^3\/6 + x\^4\/24 + x\^5\/120 + x\^6\/720 + x\^7\/5040 + x\^8\/40320\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Normal[Series[E\^x, {x, 0, 8}]] /. x \[Rule] x\^2\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 + x\^2 + x\^4\/2 + x\^6\/6 + x\^8\/24 + x\^10\/120 + x\^12\/720 + x\^14\/5040 + x\^16\/40320\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Normal[Series[E\^\(x\^2\), {x, 0, 16}]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 + x\^2 + x\^4\/2 + x\^6\/6 + x\^8\/24 + x\^10\/120 + x\^12\/720 + x\^14\/5040 + x\^16\/40320\)], "Output"] }, Open ]], Cell["Right on the money.", "SmallText"] }, Closed]], Cell["T.1.b)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ " ", Cell[BoxData[ \(f[x]\ = \ Sin[x\^3]\)]] }], "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "The expansion of Sin[x] in powers of x is\n ", Cell[BoxData[ \(\(\(x\)\(-\)\(x\^3\/\(3!\)\)\(+\)\(x\^5\/\(5!\)\)\(-\)\(x\^7\/\(7!\)\)\ \(+\)\(\ \)\)\)]], " ", Cell[BoxData[ \(\(\(\(...\)\(\ \)\(+\ \(\(\((\(-1\))\)\^k\ \ x\^\(2\ k\ + \ \ 1\)\)\/\(\((2\ k + 1)\)!\)\)\)\)\(\ \)\(+\)\)\ ... \)]], "\nTo get the expansion of ", Cell[BoxData[ \(Sin[x\^3]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ", just replace ", Cell[BoxData[ \(x\)]], " by ", Cell[BoxData[ \(x\^3\)]], " throughout. This gives the expansion\n ", Cell[BoxData[ \(x\^3 - x\^9\/\(3!\) + x\^15\/\(5!\) - x\^21\/\(7!\) + \ ... \)]], " ", Cell[BoxData[ \(\(\(+\ \(\(\((\(-1\))\)\^k\ \ x\^\(\(\ \)\(6\ k\ + \ 3\)\)\)\/\(\((2\ \ k + 1)\)!\)\)\)\(\ \)\(+\)\)\ ... \)]], "\nof ", Cell[BoxData[ \(Sin[x\^3]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ".\nCheck:" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[x];\)\), "\n", \(Normal[Series[Sin[x], {x, 0, 13}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(x - x\^3\/6 + x\^5\/120 - x\^7\/5040 + x\^9\/362880 - x\^11\/39916800 + x\^13\/6227020800\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Normal[Series[Sin[x], {x, 0, 13}]] /. x \[Rule] x\^3\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(x\^3 - x\^9\/6 + x\^15\/120 - x\^21\/5040 + x\^27\/362880 - x\^33\/39916800 + x\^39\/6227020800\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Normal[Series[Sin[x\^3], {x, 0, 39}]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(x\^3 - x\^9\/6 + x\^15\/120 - x\^21\/5040 + x\^27\/362880 - x\^33\/39916800 + x\^39\/6227020800\)], "Output"] }, Open ]], Cell["It checks.", "SmallText"] }, Closed]], Cell["T.1.c)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ " ", Cell[BoxData[ \(f[x]\ = \ 1\/\(1\ - \ x\^2\)\)]] }], "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "The expansion of ", Cell[BoxData[ \(1\/\(1\ - \ x\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], " is\n ", Cell[BoxData[ \(\(1\ + \ x\ + \ x\^2\ + \ x\^3\ + \ ... \)\ + \ x\^k\ + \ ... \)]], " \nTo get the expansion of ", Cell[BoxData[ \(f[x]\ = \ 1\/\(1\ - \ x\^2\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], ", just replace ", Cell[BoxData[ \(x\)]], " by ", Cell[BoxData[ \(x\^2\)]], " throughout. This gives the expansion\n ", Cell[BoxData[ \(\(1\ + \ x\^2\ + \ x\^4\ + \ x\^6\ + \ ... \)\ + \ x\^\(2 k\)\ + \ ... \)]], " \nThis should be the expansion of ", Cell[BoxData[ \(1\/\(1\ - \ x\^2\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], ".\nRun it through ", StyleBox["Mathematica", FontSlant->"Italic"], ":" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[x];\)\), "\n", \(Normal[Series[1\/\(1 - x\), {x, 0, 10}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 + x + x\^2 + x\^3 + x\^4 + x\^5 + x\^6 + x\^7 + x\^8 + x\^9 + x\^10\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Normal[Series[1\/\(1 - x\), {x, 0, 10}]] /. x \[Rule] x\^2\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 + x\^2 + x\^4 + x\^6 + x\^8 + x\^10 + x\^12 + x\^14 + x\^16 + x\^18 + x\^20\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Normal[Series[1\/\(1 - x\^2\), {x, 0, 20}]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 + x\^2 + x\^4 + x\^6 + x\^8 + x\^10 + x\^12 + x\^14 + x\^16 + x\^18 + x\^20\)], "Output"] }, Open ]], Cell["It checks out.", "SmallText"] }, Closed]], Cell["T.1.d)", "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ " ", Cell[BoxData[ \(f[x]\ = x\/\(1\ + \ x\^4\)\)]] }], "Text"], Cell["Answer:", "Special1"], Cell[TextData[{ "You go from ", Cell[BoxData[ \(1\/\(1\ - \ x\)\)]], " to ", Cell[BoxData[ \(x\/\(1\ + \ x\^4\)\)]], " by changing ", Cell[BoxData[ \(x\)]], " to ", Cell[BoxData[ \(\((\(-x\))\)\^4\)]], " and then multiplying by ", Cell[BoxData[ \(x\)]], ". \nThe expansion of ", Cell[BoxData[ \(1\/\(1\ - \ x\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], " is\n ", Cell[BoxData[ \(\(1\ + \ x\ + \ x\^2\ + \ x\^3\ + \ ... \)\ + \ x\^k\ + \ ... \)]], " \nTo get the expansion of ", Cell[BoxData[ \(1\/\(1\ + \ x\^4\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], ", just replace ", Cell[BoxData[ \(x\)]], " by ", Cell[BoxData[ \(\((\(-x\))\)\^4\)]], " throughout; this gives the expansion\n ", Cell[BoxData[ \(\(1\ - \ x\^4\ + \ x\^8\ - \ x\^12\ + \ ... \)\ + \ \((\(-1\))\)\^k\ x\^\(4 k\)\ + \ ... \ \)]], " \nNow multiply by ", Cell[BoxData[ \(x\)]], " to get\n ", Cell[BoxData[ \(\(\(\(x\ - \ x\^5\ + \ x\^9\ - \ x\^13\ + \ ... \)\ + \ \((\(-1\))\)\^k\ x\^\(4 k + \ 1\)\ \ + \ ... \)\(\ \)\)\)]], " \nThis should be the expansion of ", Cell[BoxData[ \(1\/\(1\ - \ x\^2\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], ".\nRun it through ", StyleBox["Mathematica", FontSlant->"Italic"], ":" }], "SmallText"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[x];\)\), "\n", \(Normal[Series[1\/\(1 - x\), {x, 0, 10}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 + x + x\^2 + x\^3 + x\^4 + x\^5 + x\^6 + x\^7 + x\^8 + x\^9 + x\^10\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(step1 = Normal[Series[1\/\(1 - x\), {x, 0, 10}]] /. x \[Rule] \(-x\^4\)\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 - x\^4 + x\^8 - x\^12 + x\^16 - x\^20 + x\^24 - x\^28 + x\^32 - x\^36 + x\^40\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(step2 = Expand[x\ step1]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(x - x\^5 + x\^9 - x\^13 + x\^17 - x\^21 + x\^25 - x\^29 + x\^33 - x\^37 + x\^41\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Normal[Series[x\/\(1 + x\^4\), {x, 0, 41}]]\)], "Input", AspectRatioFixed->True], Cell[BoxData[ \(x - x\^5 + x\^9 - x\^13 + x\^17 - x\^21 + x\^25 - x\^29 + x\^33 - x\^37 + x\^41\)], "Output"] }, Open ]], Cell["Perfecto.", "SmallText"] }, Closed]] }, Closed]], Cell["Give It a Try Problems", "Subsubsection"], Cell[CellGroupData[{ Cell["G.1) A festival of expansions and approximations*", "Subsection", CellTags->"3.02.G1"], Cell[TextData[{ "In the following plotting experiments, you are not asked to find the \ general form of any expansion. \nUse ", StyleBox["Mathematica", FontSlant->"Italic"], " to deliver any part of the expansion you happen to need." }], "Text"], Cell["G.1.a)", "Subsubsection"], Cell[TextData[{ "Go with \n ", Cell[BoxData[ \(f[x]\ = \ Cos[x]\)]], ".\nHere is a plot of ", Cell[BoxData[ \(f[x]\)]], " and the polynomial made from using the the terms through the ", Cell[BoxData[ \(x\^2\)]], " term of its expansion in powers of ", Cell[BoxData[ \(x\)]], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx2, x];\)\), "\n", \(\(f[x_] = Cos[x];\)\n\), "\n", \(approx2[x_] = Normal[Series[f[x], {x, 0, 2}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 - x\^2\/2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx2[x]}, {x, \(-4\), 4}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[Rule] {"\", "\<\>"}, PlotRange \[Rule] {\(-2\), 2}];\)\)], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.119048 0.309017 0.154508 [ [.02381 .29652 -6 -9 ] [.02381 .29652 6 0 ] [.2619 .29652 -6 -9 ] [.2619 .29652 6 0 ] [.7381 .29652 -3 -9 ] [.7381 .29652 3 0 ] [.97619 .29652 -3 -9 ] [.97619 .29652 3 0 ] [1.025 .30902 0 -6 ] [1.025 .30902 10 6 ] [.4875 0 -12 -4.5 ] [.4875 0 0 4.5 ] [.4875 .07725 -24 -4.5 ] [.4875 .07725 0 4.5 ] [.4875 .15451 -12 -4.5 ] [.4875 .15451 0 4.5 ] [.4875 .23176 -24 -4.5 ] [.4875 .23176 0 4.5 ] [.4875 .38627 -18 -4.5 ] [.4875 .38627 0 4.5 ] [.4875 .46353 -6 -4.5 ] [.4875 .46353 0 4.5 ] [.4875 .54078 -18 -4.5 ] [.4875 .54078 0 4.5 ] [.4875 .61803 -6 -4.5 ] [.4875 .61803 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 .02381 .30902 m .02381 .31527 L s [(-4)] .02381 .29652 0 1 Mshowa .2619 .30902 m .2619 .31527 L s [(-2)] .2619 .29652 0 1 Mshowa .7381 .30902 m .7381 .31527 L s [(2)] .7381 .29652 0 1 Mshowa .97619 .30902 m .97619 .31527 L s [(4)] .97619 .29652 0 1 Mshowa .125 Mabswid .08333 .30902 m .08333 .31277 L s .14286 .30902 m .14286 .31277 L s .20238 .30902 m .20238 .31277 L s .32143 .30902 m .32143 .31277 L s .38095 .30902 m .38095 .31277 L s .44048 .30902 m .44048 .31277 L s .55952 .30902 m .55952 .31277 L s .61905 .30902 m .61905 .31277 L s .67857 .30902 m .67857 .31277 L s .79762 .30902 m .79762 .31277 L s .85714 .30902 m .85714 .31277 L s .91667 .30902 m .91667 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s gsave 1.025 .30902 -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 0 m .50625 0 L s [(-2)] .4875 0 1 0 Mshowa .5 .07725 m .50625 .07725 L s [(-1.5)] .4875 .07725 1 0 Mshowa .5 .15451 m .50625 .15451 L s [(-1)] .4875 .15451 1 0 Mshowa .5 .23176 m .50625 .23176 L s [(-0.5)] .4875 .23176 1 0 Mshowa .5 .38627 m .50625 .38627 L s [(0.5)] .4875 .38627 1 0 Mshowa .5 .46353 m .50625 .46353 L s [(1)] .4875 .46353 1 0 Mshowa .5 .54078 m .50625 .54078 L s [(1.5)] .4875 .54078 1 0 Mshowa .5 .61803 m .50625 .61803 L s [(2)] .4875 .61803 1 0 Mshowa .125 Mabswid .5 .01545 m .50375 .01545 L s .5 .0309 m .50375 .0309 L s .5 .04635 m .50375 .04635 L s .5 .0618 m .50375 .0618 L s .5 .09271 m .50375 .09271 L s .5 .10816 m .50375 .10816 L s .5 .12361 m .50375 .12361 L s .5 .13906 m .50375 .13906 L s .5 .16996 m .50375 .16996 L s .5 .18541 m .50375 .18541 L s .5 .20086 m .50375 .20086 L s .5 .21631 m .50375 .21631 L s .5 .24721 m .50375 .24721 L s .5 .26266 m .50375 .26266 L s .5 .27812 m .50375 .27812 L s .5 .29357 m .50375 .29357 L s .5 .32447 m .50375 .32447 L s .5 .33992 m .50375 .33992 L s .5 .35537 m .50375 .35537 L s .5 .37082 m .50375 .37082 L s .5 .40172 m .50375 .40172 L s .5 .41717 m .50375 .41717 L s .5 .43262 m .50375 .43262 L s .5 .44807 m .50375 .44807 L s .5 .47898 m .50375 .47898 L s .5 .49443 m .50375 .49443 L s .5 .50988 m .50375 .50988 L s .5 .52533 m .50375 .52533 L s .5 .55623 m .50375 .55623 L s .5 .57168 m .50375 .57168 L s .5 .58713 m .50375 .58713 L s .5 .60258 m .50375 .60258 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .20802 m .04262 .19088 L .06244 .17601 L .08255 .16468 L .09396 .16007 L .09905 .15845 L .10458 .157 L .11004 .1559 L .11243 .15551 L .11508 .15516 L .11756 .1549 L .11989 .15471 L .12118 .15464 L .12235 .15458 L .123 .15456 L .12371 .15454 L .125 .15451 L .12626 .15451 L .12744 .15452 L .12851 .15454 L .12966 .15458 L .13092 .15464 L .13225 .15472 L .13463 .15491 L .13683 .15515 L .13889 .15541 L .14357 .15619 L .14858 .15728 L .15402 .15877 L .16392 .16228 L .18248 .17157 L .20226 .18514 L .22326 .20327 L .26101 .24367 L .30122 .29375 L .3399 .34364 L .38104 .3926 L .40157 .41366 L .42067 .43047 L .44027 .44448 L .45878 .45435 L .46859 .45818 L .47376 .45979 L .47923 .46118 L .48384 .4621 L .48628 .4625 L .48891 .46286 L .49131 .46311 L .49351 .4633 L .49457 .46336 L Mistroke .49572 .46343 L .49681 .46347 L .49782 .4635 L .49911 .46352 L .49976 .46353 L .50048 .46352 L .50174 .46351 L .50292 .46348 L .50363 .46345 L .50431 .46342 L .50557 .46336 L .50842 .46314 L .5109 .46288 L .51319 .46258 L .51838 .46169 L .52268 .46073 L .52742 .45945 L .537 .45612 L .54712 .45158 L .55639 .44651 L .57726 .43211 L .61694 .39479 L .6551 .34993 L .69571 .29772 L .73481 .24862 L .77636 .20363 L .7972 .18556 L .81639 .17225 L .83511 .16268 L .84455 .15921 L .84987 .15767 L .85491 .15649 L .85979 .15561 L .86255 .15522 L .8651 .15494 L .86724 .15476 L .86847 .15467 L .8696 .15461 L .87079 .15456 L .87207 .15453 L .8732 .15451 L .8744 .15451 L .8757 .15452 L .87689 .15455 L .87755 .15458 L .87827 .15461 L .87956 .15468 L .88207 .15486 L .88438 .1551 L .88968 .15585 L Mistroke .8953 .15698 L .90472 .15963 L .91485 .16352 L .93316 .1732 L .95431 .18835 L .9744 .20628 L .97619 .20802 L Mfstroke 1 0 0 r .01 w .20902 0 m .22272 .04442 L .26171 .154 L .30316 .25231 L .34309 .32931 L .3815 .38698 L .40095 .41004 L .42237 .43067 L .44268 .44562 L .45178 .45085 L .46172 .45554 L .4671 .45762 L .4721 .45928 L .47727 .46071 L .48196 .46175 L .48658 .46254 L .4887 .46283 L .49093 .46308 L .49332 .46328 L .49438 .46335 L .49552 .46342 L .49675 .46347 L .49789 .4635 L .49859 .46351 L .49925 .46352 L .50049 .46352 L .50163 .46351 L .50286 .46348 L .50401 .46344 L .50508 .46338 L .50754 .46322 L .51014 .46296 L .51268 .46265 L .51504 .46229 L .5204 .46126 L .5293 .45884 L .53882 .45531 L .54906 .45041 L .56016 .44379 L .58032 .42836 L .60019 .40881 L .62123 .38341 L .65912 .32551 L .69946 .24666 L .73829 .15401 L .77956 .0375 L s .77956 .0375 m .79105 0 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell[TextData[{ "Copy, paste, edit, and run in an effort to see what happens as you use \ more and more terms of the expansion of ", Cell[BoxData[ \(f[x]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ".\nAnimate your plots.\nDescribe what you see." }], "Text"], Cell["G.1.b)", "Subsubsection"], Cell[TextData[{ "Go with \n ", Cell[BoxData[ \(f[x]\ = \ e\^x\)]], ".\nHere is a plot ", Cell[BoxData[ \(f[x]\)]], " and the polynomial made from using the terms through the ", Cell[BoxData[ \(x\^2\)]], " term of its expansion in powers of ", Cell[BoxData[ \(x\)]], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx2, x];\)\), "\n", \(\(f[x_] = E\^x;\)\n\), "\n", \(approx2[x_] = Normal[Series[f[x], {x, 0, 2}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(1 + x + x\^2\/2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx2[x]}, {x, \(-3\), 3}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[Rule] {"\", "\<\>"}, PlotRange \[Rule] {\(-1\), E\^3}];\)\)], "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.15873 0.0293108 0.0293108 [ [.02381 .01681 -6 -9 ] [.02381 .01681 6 0 ] [.18254 .01681 -6 -9 ] [.18254 .01681 6 0 ] [.34127 .01681 -6 -9 ] [.34127 .01681 6 0 ] [.65873 .01681 -3 -9 ] [.65873 .01681 3 0 ] [.81746 .01681 -3 -9 ] [.81746 .01681 3 0 ] [.97619 .01681 -3 -9 ] [.97619 .01681 3 0 ] [1.025 .02931 0 -6 ] [1.025 .02931 10 6 ] [.4875 .17586 -6 -4.5 ] [.4875 .17586 0 4.5 ] [.4875 .32242 -12 -4.5 ] [.4875 .32242 0 4.5 ] [.4875 .46897 -12 -4.5 ] [.4875 .46897 0 4.5 ] [.4875 .61553 -12 -4.5 ] [.4875 .61553 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 .02381 .02931 m .02381 .03556 L s [(-3)] .02381 .01681 0 1 Mshowa .18254 .02931 m .18254 .03556 L s [(-2)] .18254 .01681 0 1 Mshowa .34127 .02931 m .34127 .03556 L s [(-1)] .34127 .01681 0 1 Mshowa .65873 .02931 m .65873 .03556 L s [(1)] .65873 .01681 0 1 Mshowa .81746 .02931 m .81746 .03556 L s [(2)] .81746 .01681 0 1 Mshowa .97619 .02931 m .97619 .03556 L s [(3)] .97619 .01681 0 1 Mshowa .125 Mabswid .05556 .02931 m .05556 .03306 L s .0873 .02931 m .0873 .03306 L s .11905 .02931 m .11905 .03306 L s .15079 .02931 m .15079 .03306 L s .21429 .02931 m .21429 .03306 L s .24603 .02931 m .24603 .03306 L s .27778 .02931 m .27778 .03306 L s .30952 .02931 m .30952 .03306 L s .37302 .02931 m .37302 .03306 L s .40476 .02931 m .40476 .03306 L s .43651 .02931 m .43651 .03306 L s .46825 .02931 m .46825 .03306 L s .53175 .02931 m .53175 .03306 L s .56349 .02931 m .56349 .03306 L s .59524 .02931 m .59524 .03306 L s .62698 .02931 m .62698 .03306 L s .69048 .02931 m .69048 .03306 L s .72222 .02931 m .72222 .03306 L s .75397 .02931 m .75397 .03306 L s .78571 .02931 m .78571 .03306 L s .84921 .02931 m .84921 .03306 L s .88095 .02931 m .88095 .03306 L s .9127 .02931 m .9127 .03306 L s .94444 .02931 m .94444 .03306 L s .25 Mabswid 0 .02931 m 1 .02931 L s gsave 1.025 .02931 -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 .17586 m .50625 .17586 L s [(5)] .4875 .17586 1 0 Mshowa .5 .32242 m .50625 .32242 L s [(10)] .4875 .32242 1 0 Mshowa .5 .46897 m .50625 .46897 L s [(15)] .4875 .46897 1 0 Mshowa .5 .61553 m .50625 .61553 L s [(20)] .4875 .61553 1 0 Mshowa .125 Mabswid .5 .05862 m .50375 .05862 L s .5 .08793 m .50375 .08793 L s .5 .11724 m .50375 .11724 L s .5 .14655 m .50375 .14655 L s .5 .20518 m .50375 .20518 L s .5 .23449 m .50375 .23449 L s .5 .2638 m .50375 .2638 L s .5 .29311 m .50375 .29311 L s .5 .35173 m .50375 .35173 L s .5 .38104 m .50375 .38104 L s .5 .41035 m .50375 .41035 L s .5 .43966 m .50375 .43966 L s .5 .49828 m .50375 .49828 L s .5 .52759 m .50375 .52759 L s .5 .55691 m .50375 .55691 L s .5 .58622 m .50375 .58622 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .03077 m .06244 .03117 L .10458 .03174 L .14415 .03243 L .18221 .03327 L .22272 .03442 L .26171 .03584 L .30316 .03779 L .34309 .04022 L .3815 .0432 L .42237 .04728 L .46172 .05234 L .49955 .05854 L .53984 .06698 L .57861 .07741 L .61984 .09167 L .65954 .1094 L .69774 .13118 L .73838 .16091 L .77751 .1977 L .81909 .24813 L .85916 .31096 L .89771 .38839 L .93871 .49423 L .97619 .61803 L s 1 0 0 r .01 w .02381 .10259 m .06244 .08919 L .10458 .07655 L .14415 .06657 L .18221 .05868 L .22272 .05214 L .24141 .04977 L .26171 .04765 L .27279 .04669 L .28302 .04594 L .29341 .0453 L .30316 .04481 L .31218 .04446 L .31682 .04431 L .32188 .04418 L .32474 .04413 L .3274 .04408 L .33016 .04404 L .33265 .04401 L .33383 .044 L .33511 .04399 L .33621 .04398 L .33742 .04397 L .33871 .04397 L .33941 .04397 L .34007 .04397 L .34125 .04397 L .34251 .04397 L .34372 .04397 L .34442 .04397 L .34507 .04397 L .34638 .04398 L .34779 .04399 L .35034 .04401 L .35268 .04404 L .35807 .04413 L .36375 .04426 L .37336 .04457 L .38387 .04502 L .40348 .04622 L .42443 .04799 L .44577 .05032 L .46593 .053 L .50439 .05944 L .54531 .06818 L .58471 .07844 L .6226 .09 L .66294 .10415 L .70177 .11956 L .74304 .13786 L Mistroke .7828 .15736 L .82105 .17786 L .86175 .20154 L .90093 .22616 L .94256 .25427 L .97619 .27845 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[{ "Copy, paste, edit, and run in an effort to see what happens as you use \ more and more terms of the expansion of ", Cell[BoxData[ \(f[x]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ".\nAnimate your plots.\nDescribe what you see." }], "Text"], Cell["G.1.c.i)", "Subsubsection"], Cell[TextData[{ "Go with \n ", Cell[BoxData[ \(f[x]\ = \ 8\/\(1\ + \ x\^2\)\)]], ".\nHere is a plot ", Cell[BoxData[ \(f[x]\)]], " and the polynomial made from using the terms through the ", Cell[BoxData[ \(x\^2\)]], " term of its expansion in powers of ", Cell[BoxData[ \(x\)]], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx2, x];\)\), "\n", \(\(f[x_] = 8\/\(1 + x\^2\);\)\n\), "\n", \(approx2[x_] = Normal[Series[f[x], {x, 0, 2}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(8 - 8\ x\^2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx2[x]}, {x, \(-1.3\), 1.3}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[Rule] {"\", "\<\>"}, PlotRange \[Rule] {\(-1\), 9}];\)\)], "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.3663 0.0618034 0.0618034 [ [.1337 .0493 -6 -9 ] [.1337 .0493 6 0 ] [.31685 .0493 -12 -9 ] [.31685 .0493 12 0 ] [.68315 .0493 -9 -9 ] [.68315 .0493 9 0 ] [.8663 .0493 -3 -9 ] [.8663 .0493 3 0 ] [1.025 .0618 0 -6 ] [1.025 .0618 10 6 ] [.4875 .18541 -6 -4.5 ] [.4875 .18541 0 4.5 ] [.4875 .30902 -6 -4.5 ] [.4875 .30902 0 4.5 ] [.4875 .43262 -6 -4.5 ] [.4875 .43262 0 4.5 ] [.4875 .55623 -6 -4.5 ] [.4875 .55623 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 .1337 .0618 m .1337 .06805 L s [(-1)] .1337 .0493 0 1 Mshowa .31685 .0618 m .31685 .06805 L s [(-0.5)] .31685 .0493 0 1 Mshowa .68315 .0618 m .68315 .06805 L s [(0.5)] .68315 .0493 0 1 Mshowa .8663 .0618 m .8663 .06805 L s [(1)] .8663 .0493 0 1 Mshowa .125 Mabswid .17033 .0618 m .17033 .06555 L s .20696 .0618 m .20696 .06555 L s .24359 .0618 m .24359 .06555 L s .28022 .0618 m .28022 .06555 L s .35348 .0618 m .35348 .06555 L s .39011 .0618 m .39011 .06555 L s .42674 .0618 m .42674 .06555 L s .46337 .0618 m .46337 .06555 L s .53663 .0618 m .53663 .06555 L s .57326 .0618 m .57326 .06555 L s .60989 .0618 m .60989 .06555 L s .64652 .0618 m .64652 .06555 L s .71978 .0618 m .71978 .06555 L s .75641 .0618 m .75641 .06555 L s .79304 .0618 m .79304 .06555 L s .82967 .0618 m .82967 .06555 L s .09707 .0618 m .09707 .06555 L s .06044 .0618 m .06044 .06555 L s .02381 .0618 m .02381 .06555 L s .90293 .0618 m .90293 .06555 L s .93956 .0618 m .93956 .06555 L s .97619 .0618 m .97619 .06555 L s .25 Mabswid 0 .0618 m 1 .0618 L s gsave 1.025 .0618 -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 .18541 m .50625 .18541 L s [(2)] .4875 .18541 1 0 Mshowa .5 .30902 m .50625 .30902 L s [(4)] .4875 .30902 1 0 Mshowa .5 .43262 m .50625 .43262 L s [(6)] .4875 .43262 1 0 Mshowa .5 .55623 m .50625 .55623 L s [(8)] .4875 .55623 1 0 Mshowa .125 Mabswid .5 .09271 m .50375 .09271 L s .5 .12361 m .50375 .12361 L s .5 .15451 m .50375 .15451 L s .5 .21631 m .50375 .21631 L s .5 .24721 m .50375 .24721 L s .5 .27812 m .50375 .27812 L s .5 .33992 m .50375 .33992 L s .5 .37082 m .50375 .37082 L s .5 .40172 m .50375 .40172 L s .5 .46353 m .50375 .46353 L s .5 .49443 m .50375 .49443 L s .5 .52533 m .50375 .52533 L s .5 .0309 m .50375 .0309 L s .5 .58713 m .50375 .58713 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .24561 m .06244 .26553 L .10458 .29014 L .14415 .31617 L .18221 .3439 L .22272 .37612 L .26171 .40921 L .30316 .44544 L .34309 .47957 L .3815 .50939 L .40095 .52254 L .42237 .53498 L .44268 .54441 L .46172 .55089 L .46668 .55217 L .4721 .55338 L .47687 .55427 L .48196 .55503 L .48456 .55535 L .487 .55561 L .48938 .55582 L .49157 .55597 L .49365 .55608 L .49472 .55613 L .49585 .55617 L .497 .5562 L .49806 .55622 L .49933 .55623 L .50049 .55623 L .50167 .55622 L .50277 .5562 L .50399 .55617 L .5053 .55613 L .50659 .55607 L .50796 .556 L .5104 .55583 L .51478 .55543 L .51957 .55482 L .52477 .55398 L .53033 .55286 L .54033 .55031 L .56168 .5426 L .58183 .53273 L .6203 .5081 L .66122 .476 L .70062 .44214 L .73851 .40902 L .77885 .37483 L .81767 .34399 L .85895 .31403 L Mistroke .89871 .28811 L .93695 .26586 L .97619 .24561 L Mfstroke 1 0 0 r .01 w .11178 0 m .14415 .08962 L .18221 .18408 L .22272 .27291 L .26171 .34699 L .30316 .41345 L .34309 .4655 L .3815 .50449 L .40095 .52008 L .42237 .53402 L .44268 .54412 L .45178 .54766 L .46172 .55083 L .4671 .55224 L .4721 .55336 L .47727 .55433 L .48196 .55503 L .48658 .55557 L .4887 .55576 L .49093 .55593 L .49332 .55607 L .49438 .55611 L .49552 .55616 L .49675 .55619 L .49789 .55621 L .49859 .55622 L .49925 .55623 L .50049 .55623 L .50163 .55622 L .50286 .5562 L .50401 .55617 L .50508 .55614 L .50754 .55602 L .51014 .55585 L .51268 .55564 L .51504 .5554 L .5204 .5547 L .5293 .55307 L .53882 .55068 L .54906 .54736 L .56016 .54289 L .58032 .53246 L .60019 .51924 L .62123 .50207 L .65912 .46293 L .69946 .40963 L .73829 .347 L .77956 .26824 L .81932 .18049 L .85757 .0851 L Mistroke Mfstroke .85757 .0851 m .88812 0 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell[TextData[{ "Copy, paste, edit, and run in an effort to see what happens as you use \ more and more terms of the expansion of ", Cell[BoxData[ \(f[x]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ".\nAnimate your plots.\nDescribe what you see." }], "Text"], Cell["G.1.c.ii) Barriers", "Subsubsection"], Cell[TextData[{ "In part c.i), do you think that you can break the barriers at ", Cell[BoxData[ \(x\ = \ 1\)]], " and ", Cell[BoxData[ \(x\ = \ \(-1\)\)]], "?" }], "Text"], Cell["G.1.d)", "Subsubsection"], Cell[TextData[{ "Go with \n ", Cell[BoxData[ \(f[x]\ = \ 10\ x\^2\ e\^\(-x\^2\)\)]], ".\nHere is a plot ", Cell[BoxData[ \(f[x]\)]], " and the polynomial made from using the terms through the ", Cell[BoxData[ \(x\^2\)]], " term of its expansion in powers of ", Cell[BoxData[ \(x\)]], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[f, approx2, x];\)\), "\n", \(\(f[x_] = 10\ x\^2\ E\^\(-x\^2\);\)\n\), "\n", \(approx2[x_] = Normal[Series[f[x], {x, 0, 2}]]\)}], "Input", AspectRatioFixed->True], Cell[BoxData[ \(10\ x\^2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Plot[{f[x], approx2[x]}, {x, \(-2.5\), 2.5}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.02]}, {Red, Thickness[0.01]}}, AspectRatio \[Rule] 1\/GoldenRatio, AxesLabel \[Rule] {"\", "\<\>"}, PlotRange \[Rule] {\(-1\), 9}];\)\)], "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.190476 0.0618034 0.0618034 [ [.11905 .0493 -6 -9 ] [.11905 .0493 6 0 ] [.30952 .0493 -6 -9 ] [.30952 .0493 6 0 ] [.69048 .0493 -3 -9 ] [.69048 .0493 3 0 ] [.88095 .0493 -3 -9 ] [.88095 .0493 3 0 ] [1.025 .0618 0 -6 ] [1.025 .0618 10 6 ] [.4875 .18541 -6 -4.5 ] [.4875 .18541 0 4.5 ] [.4875 .30902 -6 -4.5 ] [.4875 .30902 0 4.5 ] [.4875 .43262 -6 -4.5 ] [.4875 .43262 0 4.5 ] [.4875 .55623 -6 -4.5 ] [.4875 .55623 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 .11905 .0618 m .11905 .06805 L s [(-2)] .11905 .0493 0 1 Mshowa .30952 .0618 m .30952 .06805 L s [(-1)] .30952 .0493 0 1 Mshowa .69048 .0618 m .69048 .06805 L s [(1)] .69048 .0493 0 1 Mshowa .88095 .0618 m .88095 .06805 L s [(2)] .88095 .0493 0 1 Mshowa .125 Mabswid .15714 .0618 m .15714 .06555 L s .19524 .0618 m .19524 .06555 L s .23333 .0618 m .23333 .06555 L s .27143 .0618 m .27143 .06555 L s .34762 .0618 m .34762 .06555 L s .38571 .0618 m .38571 .06555 L s .42381 .0618 m .42381 .06555 L s .4619 .0618 m .4619 .06555 L s .5381 .0618 m .5381 .06555 L s .57619 .0618 m .57619 .06555 L s .61429 .0618 m .61429 .06555 L s .65238 .0618 m .65238 .06555 L s .72857 .0618 m .72857 .06555 L s .76667 .0618 m .76667 .06555 L s .80476 .0618 m .80476 .06555 L s .84286 .0618 m .84286 .06555 L s .08095 .0618 m .08095 .06555 L s .04286 .0618 m .04286 .06555 L s .00476 .0618 m .00476 .06555 L s .91905 .0618 m .91905 .06555 L s .95714 .0618 m .95714 .06555 L s .99524 .0618 m .99524 .06555 L s .25 Mabswid 0 .0618 m 1 .0618 L s gsave 1.025 .0618 -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 .18541 m .50625 .18541 L s [(2)] .4875 .18541 1 0 Mshowa .5 .30902 m .50625 .30902 L s [(4)] .4875 .30902 1 0 Mshowa .5 .43262 m .50625 .43262 L s [(6)] .4875 .43262 1 0 Mshowa .5 .55623 m .50625 .55623 L s [(8)] .4875 .55623 1 0 Mshowa .125 Mabswid .5 .09271 m .50375 .09271 L s .5 .12361 m .50375 .12361 L s .5 .15451 m .50375 .15451 L s .5 .21631 m .50375 .21631 L s .5 .24721 m .50375 .24721 L s .5 .27812 m .50375 .27812 L s .5 .33992 m .50375 .33992 L s .5 .37082 m .50375 .37082 L s .5 .40172 m .50375 .40172 L s .5 .46353 m .50375 .46353 L s .5 .49443 m .50375 .49443 L s .5 .52533 m .50375 .52533 L s .5 .0309 m .50375 .0309 L s .5 .58713 m .50375 .58713 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .06926 m .04262 .07297 L .06244 .07846 L .08255 .08616 L .10458 .0976 L .12415 .11083 L .14509 .12845 L .18653 .17336 L .22646 .22388 L .24474 .24603 L .26488 .267 L .27443 .27503 L .28471 .28188 L .29039 .28476 L .29557 .28679 L .29807 .28756 L .30079 .28822 L .30203 .28847 L .30336 .28869 L .30459 .28886 L .30574 .28899 L .30699 .28909 L .30764 .28912 L .30835 .28915 L .30909 .28916 L .30979 .28916 L .3111 .28913 L .31233 .28907 L .31346 .28897 L .31471 .28883 L .31603 .28863 L .31876 .28808 L .32132 .28739 L .32716 .28518 L .33222 .28253 L .33686 .27951 L .34733 .27066 L .36625 .24792 L .38695 .21487 L .42751 .13924 L .44625 .10725 L .45611 .09292 L .46656 .08028 L .47185 .07501 L .47766 .07019 L .48295 .06671 L .4879 .06429 L .49051 .06333 L .49298 .06264 L .4952 .0622 L Mistroke .49645 .06202 L .49762 .0619 L .49827 .06185 L .49898 .06182 L .50027 .0618 L .50152 .06184 L .50267 .06193 L .50392 .06207 L .50529 .06228 L .50672 .06257 L .50805 .06291 L .51067 .06373 L .51308 .0647 L .51853 .0676 L .52334 .07095 L .52845 .07528 L .54702 .09723 L .56653 .12854 L .58482 .16231 L .62356 .23254 L .64364 .26082 L .65373 .27167 L .6594 .27667 L .66475 .28062 L .6697 .28361 L .67505 .28612 L .67742 .28699 L .67992 .28775 L .68205 .28826 L .6844 .2887 L .6858 .28889 L .68649 .28897 L .68713 .28902 L .68833 .28911 L .68963 .28916 L .69092 .28916 L .69166 .28915 L .69235 .28912 L .69307 .28908 L .69374 .28903 L .69524 .28888 L .69646 .28872 L .69759 .28854 L .70017 .28801 L .70268 .28734 L .70536 .28647 L .71068 .28427 L .71559 .2817 L .72668 .27416 L .74683 .25538 L Mistroke .7862 .20775 L .82405 .16079 L .84511 .13794 L .86436 .12004 L .88448 .10461 L .90315 .09319 L .92215 .08414 L .94288 .0768 L .96036 .07229 L .97619 .06926 L Mfstroke 1 0 0 r .01 w .32038 .61803 m .34309 .48123 L .3815 .30101 L .40095 .22894 L .42237 .16447 L .44268 .11777 L .45178 .10141 L .46172 .08677 L .4671 .08024 L .4721 .07507 L .47727 .0706 L .48196 .06734 L .48658 .06487 L .4887 .06398 L .49093 .0632 L .49332 .06256 L .49438 .06234 L .49552 .06215 L .49675 .06198 L .49789 .06188 L .49859 .06184 L .49925 .06181 L .50049 .06181 L .50163 .06185 L .50286 .06194 L .50401 .06208 L .50508 .06224 L .50754 .06277 L .51014 .06356 L .51268 .06454 L .51504 .06566 L .5204 .06889 L .5293 .07643 L .53882 .08747 L .54906 .1028 L .56016 .12346 L .58032 .17169 L .60019 .2328 L .62123 .31217 L .65912 .49311 L s .65912 .49311 m .67957 .61803 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell[TextData[{ "Copy, paste, edit, and run in an effort to see what happens as you use \ more and more terms of the expansion of ", Cell[BoxData[ \(f[x]\)]], " in powers of ", Cell[BoxData[ \(x\)]], ".\nAnimate your plots.\nDescribe what you see." }], "Text"], Cell["G.1.e)", "Subsubsection"], Cell["\<\ Write a few words on how you think the plot of the sum of the first \ few terms of the expansion of a given function is related to the plot of the \ given function. What is the effect of using more and more terms?\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["G.5) Circles", "Subsection", CellTags->"3.02.G5"], Cell["G.5.a)", "Subsubsection"], Cell[TextData[{ "One way to plot the circle ", Cell[BoxData[ \(x\^2\ + \ y\^2\ = \ 1\)]], " is:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[t];\)\), "\n", \(\(ParametricPlot[{Cos[t], Sin[t]}, {t, \(-\[Pi]\), \[Pi]}, \n\t PlotStyle \[Rule] {{Red, Thickness[0.01]}}, AxesLabel \[Rule] {"\", "\"}, AspectRatio \[Rule] Automatic];\)\)}], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 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.500002 0.476192 0.500002 0.476192 [ [.02381 .4875 -6 -9 ] [.02381 .4875 6 0 ] [.26191 .4875 -12 -9 ] [.26191 .4875 12 0 ] [.7381 .4875 -9 -9 ] [.7381 .4875 9 0 ] [.97619 .4875 -3 -9 ] [.97619 .4875 3 0 ] [1.025 .5 0 -6 ] [1.025 .5 10 6 ] [.4875 .02381 -12 -4.5 ] [.4875 .02381 0 4.5 ] [.4875 .26191 -24 -4.5 ] [.4875 .26191 0 4.5 ] [.4875 .7381 -18 -4.5 ] [.4875 .7381 0 4.5 ] [.4875 .97619 -6 -4.5 ] [.4875 .97619 0 4.5 ] [.5 1.025 -5 0 ] [.5 1.025 5 12 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .5 m .02381 .50625 L s [(-1)] .02381 .4875 0 1 Mshowa .26191 .5 m .26191 .50625 L s [(-0.5)] .26191 .4875 0 1 Mshowa .7381 .5 m .7381 .50625 L s [(0.5)] .7381 .4875 0 1 Mshowa .97619 .5 m .97619 .50625 L s [(1)] .97619 .4875 0 1 Mshowa .125 Mabswid .07143 .5 m .07143 .50375 L s .11905 .5 m .11905 .50375 L s .16667 .5 m .16667 .50375 L s .21429 .5 m .21429 .50375 L s .30952 .5 m .30952 .50375 L s .35714 .5 m .35714 .50375 L s .40476 .5 m .40476 .50375 L s .45238 .5 m .45238 .50375 L s .54762 .5 m .54762 .50375 L s .59524 .5 m .59524 .50375 L s .64286 .5 m .64286 .50375 L s .69048 .5 m .69048 .50375 L s .78572 .5 m .78572 .50375 L s .83334 .5 m .83334 .50375 L s .88096 .5 m .88096 .50375 L s .92857 .5 m .92857 .50375 L s .25 Mabswid 0 .5 m 1 .5 L s gsave 1.025 .5 -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 .02381 m .50625 .02381 L s [(-1)] .4875 .02381 1 0 Mshowa .5 .26191 m .50625 .26191 L s [(-0.5)] .4875 .26191 1 0 Mshowa .5 .7381 m .50625 .7381 L s [(0.5)] .4875 .7381 1 0 Mshowa .5 .97619 m .50625 .97619 L s [(1)] .4875 .97619 1 0 Mshowa .125 Mabswid .5 .07143 m .50375 .07143 L s .5 .11905 m .50375 .11905 L s .5 .16667 m .50375 .16667 L s .5 .21429 m .50375 .21429 L s .5 .30952 m .50375 .30952 L s .5 .35714 m .50375 .35714 L s .5 .40476 m .50375 .40476 L s .5 .45238 m .50375 .45238 L s .5 .54762 m .50375 .54762 L s .5 .59524 m .50375 .59524 L s .5 .64286 m .50375 .64286 L s .5 .69048 m .50375 .69048 L s .5 .78572 m .50375 .78572 L s .5 .83334 m .50375 .83334 L s .5 .88096 m .50375 .88096 L s .5 .92857 m .50375 .92857 L s .25 Mabswid .5 0 m .5 1 L s gsave .5 1.025 -66 -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 (y) 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 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 1 0 0 r .01 w .02381 .5 m .02382 .49631 L .02386 .49295 L .02394 .48907 L .02403 .4854 L .02428 .47889 L .02464 .47182 L .02517 .46404 L .02586 .45581 L .02747 .44107 L .02961 .42591 L .03205 .41179 L .03919 .37994 L .04871 .34803 L .05935 .31948 L .08983 .25809 L .12327 .20875 L .16648 .16012 L .21327 .11981 L .26845 .0839 L .2972 .06916 L .32934 .05544 L .35786 .04552 L .38983 .03673 L .4051 .03336 L .42158 .03031 L .4359 .02814 L .45155 .02628 L .46074 .02543 L .46926 .0248 L .47741 .02435 L .48153 .02417 L .48608 .02401 L .49017 .02391 L .49391 .02385 L .49803 .02381 L .5001 .02381 L .50236 .02382 L .50619 .02385 L .51027 .02392 L .51413 .02402 L .51764 .02414 L .52488 .02446 L .53285 .02494 L .54891 .02633 L .56374 .0281 L .57756 .03017 L .60845 .03632 L .6411 .04519 L .67116 .05563 L Mistroke .70305 .06927 L .75822 .0999 L .80793 .13677 L .85511 .18274 L .89631 .236 L .92785 .29095 L .94045 .319 L .95175 .34941 L .96044 .37853 L .96672 .40548 L .97172 .43491 L .97369 .45122 L .9744 .45872 L .97503 .4667 L .97546 .47351 L .97564 .47713 L .97582 .48103 L .97594 .48461 L .97604 .48788 L .97611 .49101 L .97616 .4943 L .97619 .49789 L .97619 .50173 L .97616 .50535 L .97612 .50864 L .97603 .51251 L .9759 .5167 L .97557 .5243 L .97514 .53172 L .97454 .53967 L .97312 .554 L .97087 .57098 L .96829 .58639 L .96095 .61954 L .95182 .6504 L .92826 .70821 L .89988 .75857 L .86514 .80567 L .82037 .85231 L .77298 .89018 L .71691 .92393 L .6592 .94879 L .62906 .95837 L .61183 .96288 L .59541 .96654 L .58022 .96939 L .56365 .97192 L .54851 .97372 L .5345 .97494 L .52666 .97545 L Mistroke .51932 .9758 L .51511 .97595 L .51126 .97606 L .50913 .97611 L .50681 .97614 L .50462 .97617 L .50259 .97619 L .50046 .97619 L .49816 .97619 L .49599 .97618 L .49399 .97616 L .4902 .97609 L .4862 .97599 L .4819 .97585 L .47788 .97568 L .46876 .97517 L .4606 .97456 L .45307 .97388 L .43607 .97188 L .42114 .96962 L .40539 .9667 L .37839 .9604 L .34909 .95165 L .29278 .92874 L .23592 .89626 L .18595 .85796 L .13931 .81091 L .10196 .76139 L .07328 .71135 L .05963 .68121 L .04871 .65196 L .04046 .62481 L .0335 .5956 L .0293 .57212 L .02744 .55869 L .02605 .54609 L .02506 .5345 L .02441 .52389 L .02415 .51803 L .02404 .51493 L .02395 .51164 L .02388 .50847 L .02384 .5056 L .02382 .50271 L .02381 .5 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["Fairly good results also come from:", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[t];\)\), "\n", \(\(approxcos[t_] = Normal[Series[Cos[t], {t, 0, 8}]];\)\), "\n", \(\(approxsin[t_] = Normal[Series[Sin[t], {t, 0, 9}]];\)\n\), "\n", \(\(ParametricPlot[{approxcos[t], approxsin[t]}, {t, \(-\[Pi]\), \[Pi]}, \n\t PlotStyle \[Rule] {{Red, Thickness[0.01]}}, AxesLabel \[Rule] {"\", "\"}, AspectRatio \[Rule] Automatic];\)\)}], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.01093 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.494796 0.481395 0.505467 0.481395 [ [.0134 .49297 -6 -9 ] [.0134 .49297 6 0 ] [.2541 .49297 -12 -9 ] [.2541 .49297 12 0 ] [.73549 .49297 -9 -9 ] [.73549 .49297 9 0 ] [.97619 .49297 -3 -9 ] [.97619 .49297 3 0 ] [1.025 .50547 0 -6 ] [1.025 .50547 10 6 ] [.4823 .02407 -12 -4.5 ] [.4823 .02407 0 4.5 ] [.4823 .26477 -24 -4.5 ] [.4823 .26477 0 4.5 ] [.4823 .74616 -18 -4.5 ] [.4823 .74616 0 4.5 ] [.4823 .98686 -6 -4.5 ] [.4823 .98686 0 4.5 ] [.4948 1.03593 -5 0 ] [.4948 1.03593 5 12 ] [ 0 0 0 0 ] [ 1 1.01093 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .0134 .50547 m .0134 .51172 L s [(-1)] .0134 .49297 0 1 Mshowa .2541 .50547 m .2541 .51172 L s [(-0.5)] .2541 .49297 0 1 Mshowa .73549 .50547 m .73549 .51172 L s [(0.5)] .73549 .49297 0 1 Mshowa .97619 .50547 m .97619 .51172 L s [(1)] .97619 .49297 0 1 Mshowa .125 Mabswid .06154 .50547 m .06154 .50922 L s .10968 .50547 m .10968 .50922 L s .15782 .50547 m .15782 .50922 L s .20596 .50547 m .20596 .50922 L s .30224 .50547 m .30224 .50922 L s .35038 .50547 m .35038 .50922 L s .39852 .50547 m .39852 .50922 L s .44666 .50547 m .44666 .50922 L s .54294 .50547 m .54294 .50922 L s .59107 .50547 m .59107 .50922 L s .63921 .50547 m .63921 .50922 L s .68735 .50547 m .68735 .50922 L s .78363 .50547 m .78363 .50922 L s .83177 .50547 m .83177 .50922 L s .87991 .50547 m .87991 .50922 L s .92805 .50547 m .92805 .50922 L s .25 Mabswid 0 .50547 m 1 .50547 L s gsave 1.025 .50547 -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 .4948 .02407 m .50105 .02407 L s [(-1)] .4823 .02407 1 0 Mshowa .4948 .26477 m .50105 .26477 L s [(-0.5)] .4823 .26477 1 0 Mshowa .4948 .74616 m .50105 .74616 L s [(0.5)] .4823 .74616 1 0 Mshowa .4948 .98686 m .50105 .98686 L s [(1)] .4823 .98686 1 0 Mshowa .125 Mabswid .4948 .07221 m .49855 .07221 L s .4948 .12035 m .49855 .12035 L s .4948 .16849 m .49855 .16849 L s .4948 .21663 m .49855 .21663 L s .4948 .31291 m .49855 .31291 L s .4948 .36105 m .49855 .36105 L s .4948 .40919 m .49855 .40919 L s .4948 .45733 m .49855 .45733 L s .4948 .55361 m .49855 .55361 L s .4948 .60175 m .49855 .60175 L s .4948 .64989 m .49855 .64989 L s .4948 .69802 m .49855 .69802 L s .4948 .7943 m .49855 .7943 L s .4948 .84244 m .49855 .84244 L s .4948 .89058 m .49855 .89058 L s .4948 .93872 m .49855 .93872 L s .25 Mabswid .4948 0 m .4948 1.01093 L s gsave .4948 1.03593 -66 -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 (y) 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 0 0 m 1 0 L 1 1.01093 L 0 1.01093 L closepath clip newpath 1 0 0 r .01 w .02494 .50213 m .02447 .49517 L .02427 .49134 L .02411 .48771 L .02399 .48434 L .02389 .48067 L .02384 .47734 L .02381 .47427 L .02381 .47062 L .02384 .46721 L .02391 .46347 L .02403 .45944 L .02419 .45523 L .02438 .45124 L .02486 .44374 L .02546 .43637 L .02626 .42852 L .02807 .41444 L .03085 .39777 L .03396 .38276 L .04234 .35135 L .05406 .31812 L .08199 .26047 L .11691 .20839 L .1612 .15887 L .20849 .11865 L .2571 .08693 L .28644 .07154 L .31516 .05886 L .34141 .04917 L .371 .04027 L .40084 .03333 L .41625 .03052 L .43296 .02806 L .4486 .02629 L .45546 .02568 L .46298 .02512 L .47011 .0247 L .47676 .02441 L .48043 .02428 L .48378 .0242 L .48763 .02412 L .49128 .02408 L .49494 .02407 L .49887 .02409 L .50258 .02413 L .50598 .0242 L .50994 .02431 L .51427 .02446 L .52213 .02485 L Mistroke .53033 .02538 L .53904 .02611 L .55468 .02781 L .57036 .03004 L .58505 .03261 L .61224 .03862 L .64212 .04717 L .67298 .05826 L .72606 .08326 L .77877 .11675 L .82363 .15388 L .86781 .20117 L .9022 .24903 L .93123 .30233 L .94354 .33119 L .95489 .36386 L .96339 .3952 L .96943 .42504 L .97194 .44163 L .97373 .4569 L .97454 .4656 L .97514 .47371 L .97563 .48217 L .97582 .48665 L .97599 .49143 L .97608 .49536 L .97613 .49759 L .97616 .49968 L .97618 .50188 L .97619 .50389 L .97619 .50621 L .97618 .5084 L .97614 .51229 L .97608 .51589 L .97598 .51984 L .97583 .52403 L .97542 .53267 L .97489 .54078 L .97416 .54967 L .97318 .55923 L .97109 .57536 L .9683 .59226 L .96182 .62221 L .95356 .65132 L .94273 .6818 L .91814 .73463 L .88184 .79172 L .84049 .84048 L .79344 .88303 L .7454 .91649 L Mistroke .6928 .94426 L .66149 .95708 L .63143 .96707 L .59949 .97534 L .58356 .97861 L .56869 .98116 L .55407 .9832 L .54077 .98466 L .53366 .98529 L .52596 .98585 L .51781 .98631 L .5138 .98649 L .51014 .98662 L .50626 .98673 L .50259 .9868 L .49872 .98685 L .49653 .98686 L .49451 .98686 L .49115 .98685 L .48744 .98681 L .48356 .98673 L .47993 .98663 L .47588 .98649 L .47161 .9863 L .46399 .98588 L .4558 .98528 L .44686 .98447 L .43021 .98251 L .41253 .97978 L .38098 .97321 L .34965 .96445 L .31647 .95259 L .25886 .925 L .20616 .89053 L .15595 .8469 L .11526 .80041 L .08319 .75254 L .06776 .72371 L .05512 .69544 L .04465 .66686 L .03694 .64047 L .03049 .61119 L .02785 .59498 L .02686 .58753 L .02596 .57966 L .02531 .57285 L .02473 .56537 L .02433 .55857 L .02418 .55553 L .02405 .55222 L Mistroke .02394 .54837 L .02386 .54472 L .02382 .54116 L .02381 .53788 L .02383 .53434 L .02389 .53043 L .024 .52636 L .02413 .52254 L .02449 .51536 L .02494 .5088 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{284.875, 287.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell[TextData[{ "Another way to plot the circle ", Cell[BoxData[ \(x\^2\ + \ y\^2\ = \ 1\)]], " is:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[t];\)\), "\n", \(\(ParametricPlot[{Cos[t], Sin[t]}, {t, 0, 2\ \[Pi]}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.01]}}, AxesLabel \[Rule] {"\", "\"}, AspectRatio \[Rule] Automatic];\)\)}], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 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.499998 0.476192 0.500001 0.476192 [ [.02381 .4875 -6 -9 ] [.02381 .4875 6 0 ] [.2619 .4875 -12 -9 ] [.2619 .4875 12 0 ] [.73809 .4875 -9 -9 ] [.73809 .4875 9 0 ] [.97619 .4875 -3 -9 ] [.97619 .4875 3 0 ] [1.025 .5 0 -6 ] [1.025 .5 10 6 ] [.4875 .02381 -12 -4.5 ] [.4875 .02381 0 4.5 ] [.4875 .26191 -24 -4.5 ] [.4875 .26191 0 4.5 ] [.4875 .7381 -18 -4.5 ] [.4875 .7381 0 4.5 ] [.4875 .97619 -6 -4.5 ] [.4875 .97619 0 4.5 ] [.5 1.025 -5 0 ] [.5 1.025 5 12 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .5 m .02381 .50625 L s [(-1)] .02381 .4875 0 1 Mshowa .2619 .5 m .2619 .50625 L s [(-0.5)] .2619 .4875 0 1 Mshowa .73809 .5 m .73809 .50625 L s [(0.5)] .73809 .4875 0 1 Mshowa .97619 .5 m .97619 .50625 L s [(1)] .97619 .4875 0 1 Mshowa .125 Mabswid .07143 .5 m .07143 .50375 L s .11904 .5 m .11904 .50375 L s .16666 .5 m .16666 .50375 L s .21428 .5 m .21428 .50375 L s .30952 .5 m .30952 .50375 L s .35714 .5 m .35714 .50375 L s .40476 .5 m .40476 .50375 L s .45238 .5 m .45238 .50375 L s .54762 .5 m .54762 .50375 L s .59524 .5 m .59524 .50375 L s .64286 .5 m .64286 .50375 L s .69048 .5 m .69048 .50375 L s .78571 .5 m .78571 .50375 L s .83333 .5 m .83333 .50375 L s .88095 .5 m .88095 .50375 L s .92857 .5 m .92857 .50375 L s .25 Mabswid 0 .5 m 1 .5 L s gsave 1.025 .5 -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 .02381 m .50625 .02381 L s [(-1)] .4875 .02381 1 0 Mshowa .5 .26191 m .50625 .26191 L s [(-0.5)] .4875 .26191 1 0 Mshowa .5 .7381 m .50625 .7381 L s [(0.5)] .4875 .7381 1 0 Mshowa .5 .97619 m .50625 .97619 L s [(1)] .4875 .97619 1 0 Mshowa .125 Mabswid .5 .07143 m .50375 .07143 L s .5 .11905 m .50375 .11905 L s .5 .16667 m .50375 .16667 L s .5 .21429 m .50375 .21429 L s .5 .30952 m .50375 .30952 L s .5 .35714 m .50375 .35714 L s .5 .40476 m .50375 .40476 L s .5 .45238 m .50375 .45238 L s .5 .54762 m .50375 .54762 L s .5 .59524 m .50375 .59524 L s .5 .64286 m .50375 .64286 L s .5 .69048 m .50375 .69048 L s .5 .78572 m .50375 .78572 L s .5 .83334 m .50375 .83334 L s .5 .88096 m .50375 .88096 L s .5 .92857 m .50375 .92857 L s .25 Mabswid .5 0 m .5 1 L s gsave .5 1.025 -66 -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 (y) 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 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 0 1 r .01 w .97619 .5 m .97618 .50369 L .97614 .50705 L .97606 .51093 L .97597 .5146 L .97572 .52112 L .97536 .52818 L .97483 .53596 L .97414 .5442 L .97253 .55894 L .97039 .57409 L .96795 .58822 L .96081 .62007 L .95129 .65197 L .94065 .68052 L .91017 .74191 L .87673 .79126 L .83352 .83988 L .78673 .88019 L .73155 .91611 L .7028 .93085 L .67066 .94456 L .64214 .95449 L .61017 .96327 L .5949 .96664 L .57842 .96969 L .5641 .97186 L .54845 .97372 L .53926 .97457 L .53074 .9752 L .52259 .97566 L .51847 .97584 L .51392 .97599 L .50983 .97609 L .50609 .97615 L .50197 .97619 L .4999 .97619 L .49764 .97619 L .49381 .97615 L .48973 .97608 L .48587 .97598 L .48236 .97587 L .47512 .97554 L .46715 .97506 L .45109 .97367 L .43626 .97191 L .42244 .96983 L .39155 .96368 L .3589 .95481 L .32884 .94437 L Mistroke .29695 .93073 L .24178 .9001 L .19207 .86324 L .14489 .81726 L .10369 .764 L .07215 .70905 L .05955 .681 L .04825 .65059 L .03956 .62147 L .03328 .59452 L .02828 .56509 L .02631 .54879 L .0256 .54128 L .02497 .53331 L .02454 .52649 L .02436 .52287 L .02418 .51897 L .02406 .5154 L .02396 .51213 L .02389 .509 L .02384 .50571 L .02381 .50211 L .02381 .49827 L .02384 .49465 L .02388 .49136 L .02397 .48749 L .0241 .4833 L .02443 .47571 L .02486 .46828 L .02546 .46033 L .02688 .446 L .02913 .42902 L .03171 .41361 L .03905 .38047 L .04818 .3496 L .07174 .29179 L .10012 .24143 L .13486 .19433 L .17963 .14769 L .22702 .10982 L .28309 .07608 L .3408 .05121 L .37094 .04163 L .38817 .03713 L .40459 .03347 L .41978 .03062 L .43635 .02808 L .45149 .02629 L .4655 .02506 L .47334 .02456 L Mistroke .48068 .0242 L .48489 .02405 L .48874 .02394 L .49087 .0239 L .49319 .02386 L .49538 .02383 L .49741 .02382 L .49954 .02381 L .50184 .02381 L .50401 .02383 L .50601 .02385 L .5098 .02391 L .5138 .02401 L .5181 .02415 L .52212 .02432 L .53124 .02484 L .5394 .02544 L .54693 .02613 L .56393 .02812 L .57886 .03038 L .59461 .0333 L .62161 .0396 L .65091 .04836 L .70722 .07126 L .76408 .10374 L .81405 .14205 L .86069 .18909 L .89804 .23861 L .92672 .28866 L .94037 .3188 L .95129 .34804 L .95954 .37519 L .9665 .4044 L .9707 .42788 L .97256 .44131 L .97395 .45391 L .97494 .4655 L .97559 .47611 L .97585 .48197 L .97596 .48507 L .97605 .48836 L .97612 .49153 L .97616 .4944 L .97618 .49729 L .97619 .5 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["Now look at:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(ParametricPlot[{approxcos[t], approxsin[t]}, {t, 0, 2\ \[Pi]}, \n\t PlotStyle \[Rule] {{Blue, Thickness[0.01]}}, PlotRange \[Rule] All, AxesLabel \[Rule] {"\", "\"}, AspectRatio \[Rule] Automatic];\)\)], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .57414 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.0662283 0.0433563 0.0445465 0.0433563 [ [.28301 .03205 -3 -9 ] [.28301 .03205 3 0 ] [.49979 .03205 -6 -9 ] [.49979 .03205 6 0 ] [.71657 .03205 -6 -9 ] [.71657 .03205 6 0 ] [.93335 .03205 -6 -9 ] [.93335 .03205 6 0 ] [1.025 .04455 0 -6 ] [1.025 .04455 10 6 ] [.05373 .13126 -6 -4.5 ] [.05373 .13126 0 4.5 ] [.05373 .21797 -6 -4.5 ] [.05373 .21797 0 4.5 ] [.05373 .30468 -6 -4.5 ] [.05373 .30468 0 4.5 ] [.05373 .3914 -6 -4.5 ] [.05373 .3914 0 4.5 ] [.05373 .47811 -12 -4.5 ] [.05373 .47811 0 4.5 ] [.05373 .56482 -12 -4.5 ] [.05373 .56482 0 4.5 ] [.06623 .59914 -5 0 ] [.06623 .59914 5 12 ] [ 0 0 0 0 ] [ 1 .57414 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .28301 .04455 m .28301 .0508 L s [(5)] .28301 .03205 0 1 Mshowa .49979 .04455 m .49979 .0508 L s [(10)] .49979 .03205 0 1 Mshowa .71657 .04455 m .71657 .0508 L s [(15)] .71657 .03205 0 1 Mshowa .93335 .04455 m .93335 .0508 L s [(20)] .93335 .03205 0 1 Mshowa .125 Mabswid .10958 .04455 m .10958 .0483 L s .15294 .04455 m .15294 .0483 L s .1963 .04455 m .1963 .0483 L s .23965 .04455 m .23965 .0483 L s .32637 .04455 m .32637 .0483 L s .36972 .04455 m .36972 .0483 L s .41308 .04455 m .41308 .0483 L s .45644 .04455 m .45644 .0483 L s .54315 .04455 m .54315 .0483 L s .5865 .04455 m .5865 .0483 L s .62986 .04455 m .62986 .0483 L s .67322 .04455 m .67322 .0483 L s .75993 .04455 m .75993 .0483 L s .80329 .04455 m .80329 .0483 L s .84664 .04455 m .84664 .0483 L s .89 .04455 m .89 .0483 L s .02287 .04455 m .02287 .0483 L s .97671 .04455 m .97671 .0483 L s .25 Mabswid 0 .04455 m 1 .04455 L s gsave 1.025 .04455 -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 .06623 .13126 m .07248 .13126 L s [(2)] .05373 .13126 1 0 Mshowa .06623 .21797 m .07248 .21797 L s [(4)] .05373 .21797 1 0 Mshowa .06623 .30468 m .07248 .30468 L s [(6)] .05373 .30468 1 0 Mshowa .06623 .3914 m .07248 .3914 L s [(8)] .05373 .3914 1 0 Mshowa .06623 .47811 m .07248 .47811 L s [(10)] .05373 .47811 1 0 Mshowa .06623 .56482 m .07248 .56482 L s [(12)] .05373 .56482 1 0 Mshowa .125 Mabswid .06623 .06622 m .06998 .06622 L s .06623 .0879 m .06998 .0879 L s .06623 .10958 m .06998 .10958 L s .06623 .15294 m .06998 .15294 L s .06623 .17462 m .06998 .17462 L s .06623 .19629 m .06998 .19629 L s .06623 .23965 m .06998 .23965 L s .06623 .26133 m .06998 .26133 L s .06623 .28301 m .06998 .28301 L s .06623 .32636 m .06998 .32636 L s .06623 .34804 m .06998 .34804 L s .06623 .36972 m .06998 .36972 L s .06623 .41308 m .06998 .41308 L s .06623 .43475 m .06998 .43475 L s .06623 .45643 m .06998 .45643 L s .06623 .49979 m .06998 .49979 L s .06623 .52147 m .06998 .52147 L s .06623 .54314 m .06998 .54314 L s .06623 .02287 m .06998 .02287 L s .06623 .00119 m .06998 .00119 L s .25 Mabswid .06623 0 m .06623 .57414 L s gsave .06623 .59914 -66 -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 (y) 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 0 0 1 r .01 w .10958 .04455 m .10958 .04488 L .10958 .04519 L .10957 .04554 L .10956 .04588 L .10954 .04647 L .10951 .04711 L .10946 .04782 L .1094 .04857 L .10925 .04991 L .10906 .05129 L .10883 .05258 L .10818 .05548 L .10732 .05838 L .10635 .06098 L .10357 .06657 L .10053 .07106 L .09659 .07549 L .09233 .07916 L .08731 .08243 L .08469 .08377 L .08177 .08502 L .07917 .08593 L .07626 .08673 L .07487 .08703 L .07337 .08731 L .07206 .08751 L .07064 .08768 L .0698 .08776 L .06903 .08781 L .06829 .08785 L .06791 .08787 L .0675 .08788 L .06712 .08789 L .06678 .0879 L .06641 .0879 L .06622 .0879 L .06601 .0879 L .06567 .0879 L .06529 .08789 L .06494 .08788 L .06462 .08787 L .06396 .08784 L .06324 .0878 L .06178 .08767 L .06043 .08751 L .05917 .08732 L .05636 .08676 L .05339 .08596 L .05065 .08501 L Mistroke .04775 .08377 L .04274 .08098 L .03823 .07763 L .03397 .07345 L .03028 .06861 L .02884 .06624 L .0275 .06363 L .02643 .06115 L .02545 .05835 L .02476 .05575 L .02428 .0533 L .02408 .05191 L .024 .05117 L .02393 .05039 L .02388 .0497 L .02386 .04934 L .02384 .04895 L .02383 .04859 L .02382 .04826 L .02381 .04794 L .02381 .04761 L .02381 .04729 L .02381 .04699 L .02382 .04665 L .02383 .04633 L .02384 .04603 L .02385 .04575 L .02389 .04513 L .02394 .0445 L .02401 .04382 L .02418 .04243 L .02443 .04099 L .02473 .03962 L .02545 .0371 L .02646 .03444 L .02785 .03163 L .03119 .02683 L .03328 .02459 L .03594 .02229 L .04153 .01877 L .04521 .01713 L .04897 .01587 L .05089 .01536 L .05303 .01489 L .05496 .01453 L .05716 .01421 L .05854 .01405 L .05985 .01393 L .06114 .01383 L .0618 .01379 L Mistroke .06253 .01375 L .06319 .01373 L .0638 .01371 L .06443 .01369 L .06502 .01368 L .06572 .01367 L .06638 .01367 L .06711 .01367 L .06752 .01368 L .06789 .01369 L .06858 .0137 L .06923 .01372 L .07072 .01378 L .07222 .01387 L .07385 .01399 L .07691 .01428 L .07981 .01463 L .08734 .01585 L .09515 .01752 L .11266 .02244 L .13178 .02922 L .18456 .05265 L .25615 .09055 L .36476 .15449 L .51413 .24868 L .74143 .3993 L .97619 .56047 L Mfstroke 0 0 m 1 0 L 1 .57414 L 0 .57414 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 165.312}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell["\<\ Yuk. What do you think went wrong?\ \>", "Text"] }, Closed]], Cell["Literacy Problems", "Subsubsection"], Cell["L.6)", "Subsubsection"], Cell[TextData[{ "Write down the expansion of ", Cell[BoxData[ \(1\/\(1\ - \ x\)\)]], " in powers of ", Cell[BoxData[ \(x\)]], ", use it to come up with the expansion of ", Cell[BoxData[ \(x\^2\/\(1\ + \ \ x\^5\)\)]], "in powers of ", Cell[BoxData[ \(x\)]], "." }], "Text"], Cell["L.11)", "Subsubsection"], Cell[TextData[{ "If you have a cheap calculator that only adds, subtracts, multiplies, and \ divides, then what numbers would you enter to calculate a reasonably accurate \ numerical estimate of ", Cell[BoxData[ \(e\^0.5\)]], "?\n\nIf you have a cheap calculator that only adds, subtracts, multiplies, \ and divides, then what numbers would you enter to calculate a reasonably \ accurate numerical estimate for ", Cell[BoxData[ \(Cos[0.5]\)]], "?" }], "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.02.B3"->{ Cell[6946, 172, 78, 1, 60, "Subsection", CellTags->"3.02.B3"]}, "3.02.T1"->{ Cell[100366, 5449, 95, 1, 60, "Subsection", CellTags->"3.02.T1"]}, "3.02.G1"->{ Cell[110930, 5909, 95, 1, 60, "Subsection", CellTags->"3.02.G1"]}, "3.02.G5"->{ Cell[141442, 7775, 58, 1, 46, "Subsection", CellTags->"3.02.G5"]} } *) (*CellTagsIndex CellTagsIndex->{ {"3.02.B3", 217919, 11219}, {"3.02.T1", 218008, 11222}, {"3.02.G1", 218100, 11225}, {"3.02.G5", 218192, 11228} } *) (*NotebookFileOutline Notebook[{ Cell[1717, 49, 2361, 33, 34, 2210, 28, "GraphicsData", "Bitmap", "Graphics"], Cell[4081, 84, 813, 23, 134, "PrefaceTitle"], Cell[4897, 109, 132, 5, 91, "Title"], Cell[CellGroupData[{ Cell[5054, 118, 104, 4, 29, "Special2"], Cell[5161, 124, 724, 16, 247, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[5910, 144, 160, 2, 54, "Subsubsection"], Cell[6073, 148, 682, 12, 194, "Input"] }, Closed]], Cell[6770, 163, 98, 2, 23, "Input", InitializationCell->True] }, Closed]], Cell[6883, 168, 38, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[6946, 172, 78, 1, 60, "Subsection", CellTags->"3.02.B3"], Cell[7027, 175, 729, 27, 166, "Text"], Cell[CellGroupData[{ Cell[7781, 206, 189, 4, 71, "Input"], Cell[7973, 212, 45, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8055, 218, 365, 6, 95, "Input"], Cell[8423, 226, 10667, 617, 70, 10544, 613, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[19105, 846, 324, 12, 86, "Text"], Cell[CellGroupData[{ Cell[19454, 862, 216, 5, 71, "Input"], Cell[19673, 869, 57, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19767, 875, 392, 7, 95, "Input"], Cell[20162, 884, 12627, 714, 70, 12504, 710, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[32804, 1601, 324, 12, 86, "Text"], Cell[CellGroupData[{ Cell[33153, 1617, 216, 5, 71, "Input"], Cell[33372, 1624, 70, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33479, 1630, 392, 7, 95, "Input"], Cell[33874, 1639, 12870, 701, 70, 12747, 697, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[46759, 2343, 329, 12, 86, "Text"], Cell[CellGroupData[{ Cell[47113, 2359, 216, 5, 71, "Input"], Cell[47332, 2366, 85, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47454, 2372, 392, 7, 95, "Input"], Cell[47849, 2381, 13996, 743, 70, 13873, 739, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[61860, 3127, 40, 0, 34, "Text"], Cell[61903, 3129, 130, 3, 26, "Special2"], Cell[62036, 3134, 31, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[62092, 3138, 36, 0, 46, "Text"], Cell[62131, 3140, 27, 0, 26, "Special1"], Cell[62161, 3142, 662, 20, 190, "SmallText"] }, Closed]], Cell[62838, 3165, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[62894, 3169, 34, 0, 46, "Text"], Cell[62931, 3171, 27, 0, 26, "Special1"], Cell[62961, 3173, 420, 16, 112, "SmallText"], Cell[CellGroupData[{ Cell[63406, 3193, 192, 4, 71, "Input"], Cell[63601, 3199, 130, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63768, 3206, 296, 5, 86, "Input"], Cell[64067, 3213, 6063, 398, 70, 5940, 394, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[70145, 3614, 224, 6, 60, "SmallText"], Cell[CellGroupData[{ Cell[70394, 3624, 227, 4, 54, "Input"], Cell[70624, 3630, 11798, 738, 70, 11675, 734, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[82437, 4371, 359, 14, 75, "SmallText"], Cell[CellGroupData[{ Cell[82821, 4389, 122, 3, 56, "Input"], Cell[82946, 4394, 83, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83066, 4400, 122, 3, 56, "Input"], Cell[83191, 4405, 83, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83311, 4411, 122, 3, 56, "Input"], Cell[83436, 4416, 82, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83555, 4422, 122, 3, 56, "Input"], Cell[83680, 4427, 82, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83799, 4433, 122, 3, 56, "Input"], Cell[83924, 4438, 81, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84042, 4444, 122, 3, 56, "Input"], Cell[84167, 4449, 82, 1, 70, "Output"] }, Open ]], Cell[84264, 4453, 336, 9, 86, "SmallText"], Cell[CellGroupData[{ Cell[84625, 4466, 102, 3, 39, "Input"], Cell[84730, 4471, 130, 2, 70, "Output"] }, Open ]], Cell[84875, 4476, 34, 0, 34, "SmallText"] }, Closed]], Cell[84924, 4479, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[84980, 4483, 59, 0, 46, "Text"], Cell[85042, 4485, 27, 0, 26, "Special1"], Cell[85072, 4487, 402, 15, 96, "SmallText"], Cell[CellGroupData[{ Cell[85499, 4506, 198, 4, 71, "Input"], Cell[85700, 4512, 58, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85795, 4518, 277, 5, 75, "Input"], Cell[86075, 4525, 6891, 458, 70, 6768, 454, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[92981, 4986, 116, 3, 30, "SmallText"], Cell[CellGroupData[{ Cell[93122, 4993, 142, 3, 39, "Input"], Cell[93267, 4998, 105, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[93409, 5005, 277, 5, 75, "Input"], Cell[93689, 5012, 6529, 426, 70, 6406, 422, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[100233, 5441, 40, 0, 30, "SmallText"] }, Closed]] }, Closed]], Cell[100300, 5445, 41, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[100366, 5449, 95, 1, 60, "Subsection", CellTags->"3.02.T1"], Cell[100464, 5452, 1440, 56, 299, "Text"], Cell[101907, 5510, 31, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[101963, 5514, 89, 4, 47, "Text"], Cell[102055, 5520, 27, 0, 26, "Special1"], Cell[102085, 5522, 1036, 44, 192, "SmallText"], Cell[CellGroupData[{ Cell[103146, 5570, 122, 3, 39, "Input"], Cell[103271, 5575, 128, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103436, 5582, 108, 2, 25, "Input"], Cell[103547, 5586, 135, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103719, 5593, 98, 2, 30, "Input"], Cell[103820, 5597, 135, 2, 70, "Output"] }, Open ]], Cell[103970, 5602, 40, 0, 34, "SmallText"] }, Closed]], Cell[104025, 5605, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[104081, 5609, 87, 4, 46, "Text"], Cell[104171, 5615, 27, 0, 26, "Special1"], Cell[104201, 5617, 973, 35, 170, "SmallText"], Cell[CellGroupData[{ Cell[105199, 5656, 125, 3, 39, "Input"], Cell[105327, 5661, 130, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[105494, 5668, 111, 2, 25, "Input"], Cell[105608, 5672, 136, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[105781, 5679, 96, 2, 27, "Input"], Cell[105880, 5683, 136, 2, 70, "Output"] }, Open ]], Cell[106031, 5688, 31, 0, 30, "SmallText"] }, Closed]], Cell[106077, 5691, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[106133, 5695, 97, 4, 46, "Text"], Cell[106233, 5701, 27, 0, 26, "Special1"], Cell[106263, 5703, 915, 37, 190, "SmallText"], Cell[CellGroupData[{ Cell[107203, 5744, 131, 3, 56, "Input"], Cell[107337, 5749, 110, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107484, 5756, 117, 2, 38, "Input"], Cell[107604, 5760, 118, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107759, 5767, 102, 2, 38, "Input"], Cell[107864, 5771, 118, 2, 70, "Output"] }, Open ]], Cell[107997, 5776, 35, 0, 34, "SmallText"] }, Closed]], Cell[108047, 5779, 31, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[108103, 5783, 95, 4, 46, "Text"], Cell[108201, 5789, 27, 0, 26, "Special1"], Cell[108231, 5791, 1475, 61, 268, "SmallText"], Cell[CellGroupData[{ Cell[109731, 5856, 131, 3, 56, "Input"], Cell[109865, 5861, 110, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[110012, 5868, 146, 4, 38, "Input"], Cell[110161, 5874, 120, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[110318, 5881, 83, 2, 23, "Input"], Cell[110404, 5885, 120, 2, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[110561, 5892, 102, 2, 36, "Input"], Cell[110666, 5896, 120, 2, 70, "Output"] }, Open ]], Cell[110801, 5901, 30, 0, 30, "SmallText"] }, Closed]] }, Closed]], Cell[110858, 5905, 47, 0, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[110930, 5909, 95, 1, 60, "Subsection", CellTags->"3.02.G1"], Cell[111028, 5912, 256, 6, 86, "Text"], Cell[111287, 5920, 31, 0, 42, "Subsubsection"], Cell[111321, 5922, 337, 14, 112, "Text"], Cell[CellGroupData[{ Cell[111683, 5940, 186, 4, 71, "Input"], Cell[111872, 5946, 45, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[111954, 5952, 317, 6, 95, "Input"], Cell[112274, 5960, 6986, 466, 70, 6863, 462, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[119275, 6429, 282, 9, 96, "Text"], Cell[119560, 6440, 31, 0, 42, "Subsubsection"], Cell[119594, 6442, 328, 14, 96, "Text"], Cell[CellGroupData[{ Cell[119947, 6460, 184, 4, 71, "Input"], Cell[120134, 6466, 49, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[120220, 6472, 320, 6, 96, "Input"], Cell[120543, 6480, 5570, 366, 70, 5447, 362, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[126128, 6849, 282, 9, 96, "Text"], Cell[126413, 6860, 33, 0, 42, "Subsubsection"], Cell[126449, 6862, 343, 14, 97, "Text"], Cell[CellGroupData[{ Cell[126817, 6880, 195, 4, 90, "Input"], Cell[127015, 6886, 45, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127097, 6892, 321, 6, 95, "Input"], Cell[127421, 6900, 5548, 368, 70, 5425, 364, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[132984, 7271, 282, 9, 96, "Text"], Cell[133269, 7282, 43, 0, 42, "Subsubsection"], Cell[133315, 7284, 195, 8, 30, "Text"], Cell[133513, 7294, 31, 0, 42, "Subsubsection"], Cell[133547, 7296, 346, 14, 97, "Text"], Cell[CellGroupData[{ Cell[133918, 7314, 202, 4, 77, "Input"], Cell[134123, 7320, 42, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[134202, 7326, 321, 6, 95, "Input"], Cell[134526, 7334, 6308, 415, 70, 6185, 411, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[140849, 7752, 282, 9, 96, "Text"], Cell[141134, 7763, 31, 0, 42, "Subsubsection"], Cell[141168, 7765, 237, 5, 74, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[141442, 7775, 58, 1, 46, "Subsection", CellTags->"3.02.G5"], Cell[141503, 7778, 31, 0, 42, "Subsubsection"], Cell[141537, 7780, 122, 5, 30, "Text"], Cell[CellGroupData[{ Cell[141684, 7789, 296, 6, 71, "Input"], Cell[141983, 7797, 6945, 437, 70, 6826, 433, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[148943, 8237, 51, 0, 30, "Text"], Cell[CellGroupData[{ Cell[149019, 8241, 463, 9, 119, "Input"], Cell[149485, 8252, 7440, 453, 70, 7313, 449, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[156940, 8708, 126, 5, 30, "Text"], Cell[CellGroupData[{ Cell[157091, 8717, 291, 6, 71, "Input"], Cell[157385, 8725, 6944, 437, 70, 6825, 433, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[164344, 9165, 28, 0, 30, "Text"], Cell[CellGroupData[{ Cell[164397, 9169, 294, 5, 55, "Input"], Cell[164694, 9176, 7333, 449, 70, 7210, 445, "GraphicsData", "PostScript", \ "Graphics", ImageCacheValid->False] }, Open ]], Cell[172042, 9628, 58, 3, 52, "Text"] }, Closed]], Cell[172115, 9634, 42, 0, 34, "Subsubsection"], Cell[172160, 9636, 29, 0, 42, "Subsubsection"], Cell[172192, 9638, 316, 14, 62, "Text"], Cell[172511, 9654, 30, 0, 42, "Subsubsection"], Cell[172544, 9656, 481, 12, 164, "Text"] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)