(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 64879, 2266]*) (*NotebookOutlinePosition[ 65711, 2295]*) (* CellTagsIndexPosition[ 65667, 2291]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["p. 643", "Subsection"], Cell[CellGroupData[{ Cell["33.", "Subsubsection"], Cell[TextData[{ "a) Draw illustrations to show ", Cell[BoxData[ \(TraditionalForm \`ln(n + 1)\ = \(\(\[Integral]\_1\%\(n + 1\)\(1\/x\) \[DifferentialD]x \[LessEqual] 1 + 1\/2 + ... \) + 1\/n \[LessEqual] 1 + \[Integral]\_1\%n\( 1\/x\) \[DifferentialD]x = 1 + ln(n)\)\)]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(p1 = Plot[1/Floor[x], {x, 1, 10}, \ PlotRange -> {{0, 10}, {0, 1}}, \n\t PlotStyle \[Rule] RGBColor[0, 1, 0]]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -2.77556e-17 0.1 0 0.618034 [ [.2 -0.0125 -3 -9 ] [.2 -0.0125 3 0 ] [.4 -0.0125 -3 -9 ] [.4 -0.0125 3 0 ] [.6 -0.0125 -3 -9 ] [.6 -0.0125 3 0 ] [.8 -0.0125 -3 -9 ] [.8 -0.0125 3 0 ] [1 -0.0125 -6 -9 ] [1 -0.0125 6 0 ] [-0.0125 .12361 -18 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -18 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -18 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -18 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -6 -4.5 ] [-0.0125 .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 .2 0 m .2 .00625 L s [(2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(10)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(0.2)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(0.4)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(0.6)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(0.8)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(1)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .0309 m .00375 .0309 L s 0 .0618 m .00375 .0618 L s 0 .09271 m .00375 .09271 L s 0 .15451 m .00375 .15451 L s 0 .18541 m .00375 .18541 L s 0 .21631 m .00375 .21631 L s 0 .27812 m .00375 .27812 L s 0 .30902 m .00375 .30902 L s 0 .33992 m .00375 .33992 L s 0 .40172 m .00375 .40172 L s 0 .43262 m .00375 .43262 L s 0 .46353 m .00375 .46353 L s 0 .52533 m .00375 .52533 L s 0 .55623 m .00375 .55623 L s 0 .58713 m .00375 .58713 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 1 0 r .5 Mabswid .1 .61803 m .13651 .61803 L .15551 .61803 L .17633 .61803 L .18568 .61803 L .19083 .61803 L .19335 .61803 L .19569 .61803 L .19789 .61803 L .19899 .61803 L .20022 .30902 L .20144 .30902 L .20275 .30902 L .20513 .30902 L .21372 .30902 L .25268 .30902 L .27214 .30902 L .28161 .30902 L .29021 .30902 L .29453 .30902 L .2968 .30902 L .29804 .30902 L .2992 .30902 L .30022 .20601 L .3013 .20601 L .30361 .20601 L .30767 .20601 L .3263 .20601 L .34502 .20601 L .36538 .20601 L .37487 .20601 L .38494 .20601 L .39354 .20601 L .3959 .20601 L .39714 .20601 L .39844 .20601 L .39959 .20601 L .40023 .15451 L .40084 .15451 L .40304 .15451 L .43994 .15451 L .45875 .15451 L .47915 .15451 L .4887 .15451 L .49392 .15451 L .49648 .15451 L .49759 .15451 L .49881 .15451 L .49992 .15451 L .50094 .12361 L Mistroke .50192 .12361 L .50297 .12361 L .50744 .12361 L .51693 .12361 L .55628 .12361 L .57604 .12361 L .5847 .12361 L .58928 .12361 L .59419 .12361 L .59666 .12361 L .59788 .12361 L .599 .12361 L .60002 .10301 L .6011 .10301 L .60338 .10301 L .61194 .10301 L .63067 .10301 L .66639 .10301 L .68471 .10301 L .68973 .10301 L .69501 .10301 L .69719 .10301 L .69838 .10301 L .69951 .10301 L .70016 .08829 L .70085 .08829 L .70206 .08829 L .70443 .08829 L .74315 .08829 L .76243 .08829 L .78044 .08829 L .78932 .08829 L .79369 .08829 L .79773 .08829 L .79889 .08829 L .79999 .08829 L .80112 .07725 L .80173 .07725 L .80238 .07725 L .80744 .07725 L .81629 .07725 L .85514 .07725 L .87451 .07725 L .88396 .07725 L .89255 .07725 L .89684 .07725 L .89802 .07725 L .89926 .07725 L .90032 .06867 L .90149 .06867 L Mistroke .90994 .06867 L .92853 .06867 L .96662 .06867 L 1 .06867 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.830159, -0.0764114, 0.0385797, 0.00624232}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(p2 = Plot[1/Floor[x + 1], {x, 1, 10}, \ PlotRange -> {{0, 10}, {0, 1}}, \n \t\tPlotStyle \[Rule] RGBColor[0, 0, 1]]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -2.77556e-17 0.1 0 0.618034 [ [.2 -0.0125 -3 -9 ] [.2 -0.0125 3 0 ] [.4 -0.0125 -3 -9 ] [.4 -0.0125 3 0 ] [.6 -0.0125 -3 -9 ] [.6 -0.0125 3 0 ] [.8 -0.0125 -3 -9 ] [.8 -0.0125 3 0 ] [1 -0.0125 -6 -9 ] [1 -0.0125 6 0 ] [-0.0125 .12361 -18 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -18 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -18 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -18 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -6 -4.5 ] [-0.0125 .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 .2 0 m .2 .00625 L s [(2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(10)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(0.2)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(0.4)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(0.6)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(0.8)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(1)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .0309 m .00375 .0309 L s 0 .0618 m .00375 .0618 L s 0 .09271 m .00375 .09271 L s 0 .15451 m .00375 .15451 L s 0 .18541 m .00375 .18541 L s 0 .21631 m .00375 .21631 L s 0 .27812 m .00375 .27812 L s 0 .30902 m .00375 .30902 L s 0 .33992 m .00375 .33992 L s 0 .40172 m .00375 .40172 L s 0 .43262 m .00375 .43262 L s 0 .46353 m .00375 .46353 L s 0 .52533 m .00375 .52533 L s 0 .55623 m .00375 .55623 L s 0 .58713 m .00375 .58713 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .5 Mabswid .1 .30902 m .13651 .30902 L .15551 .30902 L .17633 .30902 L .18568 .30902 L .19083 .30902 L .19335 .30902 L .19569 .30902 L .19789 .30902 L .19899 .30902 L .20022 .20601 L .20144 .20601 L .20275 .20601 L .20513 .20601 L .21372 .20601 L .25268 .20601 L .27214 .20601 L .28161 .20601 L .29021 .20601 L .29453 .20601 L .2968 .20601 L .29804 .20601 L .2992 .20601 L .30022 .15451 L .3013 .15451 L .30361 .15451 L .30767 .15451 L .3263 .15451 L .34502 .15451 L .36538 .15451 L .37487 .15451 L .38494 .15451 L .39354 .15451 L .3959 .15451 L .39714 .15451 L .39844 .15451 L .39959 .15451 L .40023 .12361 L .40084 .12361 L .40304 .12361 L .43994 .12361 L .45875 .12361 L .47915 .12361 L .4887 .12361 L .49392 .12361 L .49648 .12361 L .49759 .12361 L .49881 .12361 L .49992 .12361 L .50094 .10301 L Mistroke .50192 .10301 L .50297 .10301 L .50744 .10301 L .51693 .10301 L .55628 .10301 L .57604 .10301 L .5847 .10301 L .58928 .10301 L .59419 .10301 L .59666 .10301 L .59788 .10301 L .599 .10301 L .60002 .08829 L .6011 .08829 L .60338 .08829 L .61194 .08829 L .63067 .08829 L .66639 .08829 L .68471 .08829 L .68973 .08829 L .69501 .08829 L .69719 .08829 L .69838 .08829 L .69951 .08829 L .70016 .07725 L .70085 .07725 L .70206 .07725 L .70443 .07725 L .74315 .07725 L .76243 .07725 L .78044 .07725 L .78932 .07725 L .79369 .07725 L .79773 .07725 L .79889 .07725 L .79999 .07725 L .80112 .06867 L .80173 .06867 L .80238 .06867 L .80744 .06867 L .81629 .06867 L .85514 .06867 L .87451 .06867 L .88396 .06867 L .89255 .06867 L .89684 .06867 L .89802 .06867 L .89926 .06867 L .90032 .0618 L .90149 .0618 L Mistroke .90994 .0618 L .92853 .0618 L .96662 .0618 L 1 .0618 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgL0oooo6`000?l70?ooo`005@3oool00`000000oooo0?ooo`3V0?oo o`030000o`3oool0oooo01l0oooo000E0?ooo`030000003oool0oooo0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.830159, -0.0764114, 0.0385797, 0.00624232}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(p\ = \ Plot[1/x, \ {x, 1, 10}, \ PlotRange -> {{0, 10}, {0, 1}}]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -2.77556e-17 0.1 0 0.618034 [ [.2 -0.0125 -3 -9 ] [.2 -0.0125 3 0 ] [.4 -0.0125 -3 -9 ] [.4 -0.0125 3 0 ] [.6 -0.0125 -3 -9 ] [.6 -0.0125 3 0 ] [.8 -0.0125 -3 -9 ] [.8 -0.0125 3 0 ] [1 -0.0125 -6 -9 ] [1 -0.0125 6 0 ] [-0.0125 .12361 -18 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -18 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -18 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -18 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -6 -4.5 ] [-0.0125 .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 .2 0 m .2 .00625 L s [(2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(10)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(0.2)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(0.4)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(0.6)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(0.8)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(1)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .0309 m .00375 .0309 L s 0 .0618 m .00375 .0618 L s 0 .09271 m .00375 .09271 L s 0 .15451 m .00375 .15451 L s 0 .18541 m .00375 .18541 L s 0 .21631 m .00375 .21631 L s 0 .27812 m .00375 .27812 L s 0 .30902 m .00375 .30902 L s 0 .33992 m .00375 .33992 L s 0 .40172 m .00375 .40172 L s 0 .43262 m .00375 .43262 L s 0 .46353 m .00375 .46353 L s 0 .52533 m .00375 .52533 L s 0 .55623 m .00375 .55623 L s 0 .58713 m .00375 .58713 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .1 .61803 m .11777 .52477 L .13651 .45274 L .15551 .39742 L .17633 .3505 L .19637 .31473 L .21461 .28798 L .25146 .24578 L .28919 .21371 L .32549 .18988 L .36411 .16974 L .4013 .15401 L .43705 .14141 L .47512 .13008 L .51176 .12077 L .55072 .11222 L .58824 .10506 L .62434 .09899 L .66275 .09325 L .69972 .08833 L .73902 .08363 L .77688 .07955 L .81331 .07599 L .85206 .07253 L .88938 .06949 L .92526 .0668 L .96346 .06415 L 1 .0618 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0?ooo`030000003oool0oooo0;L0oooo000E0?ooo`030000003oool0oooo04`0oooo0P00002j 0?ooo`005@3oool00`000000oooo0?ooo`1;0?ooo`030000003oool0oooo0;X0oooo000E0?ooo`03 0000003oool0oooo04T0oooo0P00002m0?ooo`005@3oool00`000000oooo0?ooo`180?ooo`030000 003oool0oooo0;d0oooo000E0?ooo`800000B03oool00`000000oooo0?ooo`2n0?ooo`005@3oool0 0`000000oooo0?ooo`160?ooo`030000003oool0oooo0;l0oooo000E0?ooo`030000003oool0oooo 04D0oooo00<000000?ooo`3oool0`03oool001D0oooo00<000000?ooo`3oool0@`3oool200000<<0 oooo000E0?ooo`030000003oool0oooo0480oooo00<000000?ooo`3oool0``3oool001D0oooo00<0 00000?ooo`3oool0@@3oool00`000000oooo0?ooo`340?ooo`005@3oool00`000000oooo0?ooo`10 0?ooo`030000003oool0oooo0P3oool00`000000oooo0?ooo`3; 0?ooo`000P3oool2000000/0oooo00<000000?ooo`3oool00`3oool00`000000oooo0?ooo`0j0?oo o`030000003oool0oooo003oool00`000000oooo0?ooo`3=0?ooo`005@3o ool2000003P0oooo00<000000?ooo`3oool0cP3oool001D0oooo00<000000?ooo`3oool0=P3oool0 0`000000oooo0?ooo`3?0?ooo`005@3oool00`000000oooo0?ooo`0e0?ooo`030000003oool0oooo 0=00oooo000E0?ooo`030000003oool0oooo03@0oooo00<000000?ooo`3oool0d@3oool001D0oooo 00<000000?ooo`3oool0=03oool00`000000oooo0?ooo`3A0?ooo`005@3oool00`000000oooo0?oo o`0c0?ooo`030000003oool0oooo0=80oooo000E0?ooo`030000003oool0oooo0380oooo00<00000 0?ooo`3oool0d`3oool001D0oooo00<000000?ooo`3oool0<@3oool00`000000oooo0?ooo`3D0?oo o`005@3oool200000380oooo00<000000?ooo`3oool0e03oool001D0oooo00<000000?ooo`3oool0 <03oool00`000000oooo0?ooo`3E0?ooo`005@3oool00`000000oooo0?ooo`0`0?ooo`030000003o ool0oooo0=D0oooo000E0?ooo`030000003oool0oooo02l0oooo00<000000?ooo`3oool0eP3oool0 01D0oooo00<000000?ooo`3oool0;`3oool00`000000oooo0?ooo`3F0?ooo`005@3oool00`000000 oooo0?ooo`0^0?ooo`030000003oool0oooo0=L0oooo000E0?ooo`030000003oool0oooo02h0oooo 00<000000?ooo`3oool0e`3oool001D0oooo00<000000?ooo`3oool0;@3oool00`000000oooo0?oo o`3H0?ooo`005@3oool2000002h0oooo00<000000?ooo`3oool0f03oool001D0oooo00<000000?oo o`3oool0;03oool00`000000oooo0?ooo`3I0?ooo`005@3oool00`000000oooo0?ooo`0/0?ooo`03 0000003oool0oooo0=T0oooo000E0?ooo`030000003oool0oooo02/0oooo00<000000?ooo`3oool0 fP3oool001D0oooo00<000000?ooo`3oool0:`3oool00`000000oooo0?ooo`3J0?ooo`005@3oool0 0`000000oooo0?ooo`0Z0?ooo`030000003oool0oooo0=/0oooo000E0?ooo`030000003oool0oooo 02X0oooo00<000000?ooo`3oool0f`3oool00080oooo0P0000040?ooo`030000003oool0oooo00<0 oooo0P0000050?ooo`030000003oool0oooo02T0oooo00<000000?ooo`3oool0g03oool000050?oo o`000000oooo0?ooo`000000203oool010000000oooo0?ooo`0000040?ooo`<00000:@3oool00`00 0000oooo0?ooo`3L0?ooo`0000D0oooo0000003oool0oooo000000080?ooo`040000003oool0oooo 000000@0oooo00<000000?ooo`3oool0:03oool00`000000oooo0?ooo`3M0?ooo`0000D0oooo0000 003oool0oooo000000080?ooo`<000001@3oool00`000000oooo0?ooo`0X0?ooo`030000003oool0 oooo0=d0oooo00001@3oool000000?ooo`3oool0000000P0oooo00<000000?ooo`3oool01@3oool0 0`000000oooo0?ooo`0W0?ooo`030000003oool0oooo0=h0oooo00001@3oool000000?ooo`3oool0 000000P0oooo00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`0W0?ooo`030000003oool0 oooo0=h0oooo00020?ooo`8000002P3oool3000000@0oooo00<000000?ooo`3oool09P3oool00`00 0000oooo0?ooo`3O0?ooo`005@3oool00`000000oooo0?ooo`0V0?ooo`030000003oool0oooo0=l0 oooo000E0?ooo`030000003oool0oooo02D0oooo00<000000?ooo`3oool0h03oool001D0oooo0P00 000V0?ooo`030000003oool0oooo0>00oooo000E0?ooo`030000003oool0oooo02@0oooo00<00000 0?ooo`3oool0h@3oool001D0oooo00<000000?ooo`3oool0903oool00`000000oooo0?ooo`3Q0?oo o`005@3oool00`000000oooo0?ooo`0T0?ooo`030000003oool0oooo0>40oooo000E0?ooo`030000 003oool0oooo02<0oooo00<000000?ooo`3oool0hP3oool001D0oooo00<000000?ooo`3oool08`3o ool00`000000oooo0?ooo`3R0?ooo`005@3oool00`000000oooo0?ooo`0S0?ooo`030000003oool0 oooo0>80oooo000E0?ooo`030000003oool0oooo0280oooo00<000000?ooo`3oool0h`3oool001D0 oooo0P00000S0?ooo`030000003oool0oooo0><0oooo000E0?ooo`030000003oool0oooo0240oooo 00<000000?ooo`3oool0i03oool001D0oooo00<000000?ooo`3oool08@3oool00`000000oooo0?oo o`3T0?ooo`005@3oool00`000000oooo0?ooo`0Q0?ooo`030000003oool0oooo0>@0oooo000E0?oo o`030000003oool0oooo0200oooo00<000000?ooo`3oool0i@3oool001D0oooo00<000000?ooo`3o ool0803oool00`000000oooo0?ooo`3U0?ooo`005@3oool00`000000oooo0?ooo`0P0?ooo`030000 003oool0oooo0>D0oooo000E0?ooo`030000003oool0oooo0200oooo00<000000?ooo`3oool0i@3o ool001D0oooo0P00000P0?ooo`030000003oool0oooo0>H0oooo000E0?ooo`030000003oool0oooo 01l0oooo00<000000?ooo`3oool0iP3oool001D0oooo00<000000?ooo`3oool07`3oool00`000000 oooo0?ooo`3V0?ooo`005@3oool00`000000oooo0?ooo`0O0?ooo`030000003oool0oooo0>H0oooo 000E0?ooo`030000003oool0oooo01l0oooo00<000000?ooo`3oool0iP3oool001D0oooo00<00000 0?ooo`3oool07P3oool00`000000oooo0?ooo`3W0?ooo`005@3oool00`000000oooo0?ooo`0N0?oo o`030000003oool0oooo0>L0oooo00020?ooo`800000103oool00`000000oooo0?ooo`030?ooo`80 00001@3oool00`000000oooo0?ooo`0N0?ooo`030000003oool0oooo0>L0oooo00001@3oool00000 0?ooo`3oool0000000P0oooo00@000000?ooo`3oool00000103oool3000001h0oooo00<000000?oo o`3oool0i`3oool000050?ooo`000000oooo0?ooo`000000203oool010000000oooo0?ooo`000004 0?ooo`030000003oool0oooo01d0oooo00<000000?ooo`3oool0j03oool000050?ooo`000000oooo 0?ooo`0000002@3oool2000000D0oooo00<000000?ooo`3oool07@3oool00`000000oooo0?ooo`3X 0?ooo`0000D0oooo0000003oool0oooo000000080?ooo`040000003oool0oooo000000@0oooo00<0 00000?ooo`3oool07@3oool00`000000oooo0?ooo`3X0?ooo`0000D0oooo0000003oool0oooo0000 00080?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool07@3oool00`000000oooo 0?ooo`3X0?ooo`000P3oool2000000X0oooo0P0000050?ooo`030000003oool0oooo01d0oooo00<0 00000?ooo`3oool0j03oool001D0oooo00<000000?ooo`3oool0703oool00`000000oooo0?ooo`3Y 0?ooo`005@3oool00`000000oooo0?ooo`0L0?ooo`030000003oool0oooo0>T0oooo000E0?ooo`80 00007@3oool00`000000oooo0?ooo`3Y0?ooo`005@3oool00`000000oooo0?ooo`0L0?ooo`030000 003oool0oooo0>T0oooo000E0?ooo`030000003oool0oooo01`0oooo00<000000?ooo`3oool0j@3o ool001D0oooo00<000000?ooo`3oool06`3oool00`000000oooo0?ooo`3Z0?ooo`005@3oool00`00 0000oooo0?ooo`0K0?ooo`030000003oool0oooo0>X0oooo000E0?ooo`030000003oool0oooo01/0 oooo00<000000?ooo`3oool0jP3oool001D0oooo00<000000?ooo`3oool06`3oool00`000000oooo 0?ooo`3Z0?ooo`005@3oool00`000000oooo0?ooo`0K0?ooo`030000003oool0oooo0>X0oooo000E 0?ooo`8000006`3oool00`000000oooo0?ooo`3[0?ooo`005@3oool00`000000oooo0?ooo`0J0?oo o`030000003oool0oooo0>/0oooo000E0?ooo`030000003oool0oooo01X0oooo00<000000?ooo`3o ool0j`3oool001D0oooo00<000000?ooo`3oool06P3oool00`000000oooo0?ooo`3[0?ooo`005@3o ool00`000000oooo0?ooo`0J0?ooo`030000003oool0oooo0>/0oooo000E0?ooo`030000003oool0 oooo01T0oooo00<000000?ooo`3oool0k03oool001D0oooo00<000000?ooo`3oool06@3oool00`00 0000oooo0?ooo`3/0?ooo`005@3oool00`000000oooo0?ooo`0I0?ooo`030000003oool0oooo0>`0 oooo000E0?ooo`8000006P3oool00`000000oooo0?ooo`3/0?ooo`005@3oool00`000000oooo0?oo o`0H0?ooo`030000003oool0oooo0>d0oooo000E0?ooo`030000003oool0oooo01P0oooo00<00000 0?ooo`3oool0k@3oool001D0oooo00<000000?ooo`3oool0603oool00`000000oooo0?ooo`3]0?oo o`005@3oool00`000000oooo0?ooo`0H0?ooo`030000003oool0oooo0>d0oooo000E0?ooo`030000 003oool0oooo01P0oooo00<000000?ooo`3oool0k@3oool001D0oooo00<000000?ooo`3oool05`3o ool00`000000oooo0?ooo`3^0?ooo`003@3oool4000000@0oooo00<000000?ooo`3oool05`3oool0 0`000000oooo0?ooo`3^0?ooo`003`3oool00`000000oooo0?ooo`030?ooo`<000005`3oool00`00 0000oooo0?ooo`3^0?ooo`003`3oool00`000000oooo0?ooo`3o0?ooo`l0oooo000?0?ooo`030000 003oool0oooo0?l0oooo3`3oool000l0oooo00<000000?ooo`3oool0o`3oool?0?ooo`003@3oool3 00000?l0oooo4@3oool00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.830159, -0.0764114, 0.0385797, 0.00624232}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell[TextData[{ "The area under the green curve equals ", Cell[BoxData[ \(TraditionalForm\`\(1 + 1\/2 + ... \) + 1\/n\)]], "which is clearly greater than the area under the black curve given by ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_1\%\(n + 1\)\(1\/x\) \[DifferentialD]x\)]], ". Therefore, ", Cell[BoxData[ \(TraditionalForm \`\(\[Integral]\_1\%\(n + 1\)\(1\/x\) \[DifferentialD]x \[LessEqual] 1 + 1\/2 + 1\/3 + ... \) + 1\/n\)]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Show[p1, p]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -2.77556e-17 0.1 0 0.618034 [ [.2 -0.0125 -3 -9 ] [.2 -0.0125 3 0 ] [.4 -0.0125 -3 -9 ] [.4 -0.0125 3 0 ] [.6 -0.0125 -3 -9 ] [.6 -0.0125 3 0 ] [.8 -0.0125 -3 -9 ] [.8 -0.0125 3 0 ] [1 -0.0125 -6 -9 ] [1 -0.0125 6 0 ] [-0.0125 .12361 -18 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -18 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -18 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -18 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -6 -4.5 ] [-0.0125 .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 .2 0 m .2 .00625 L s [(2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(10)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(0.2)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(0.4)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(0.6)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(0.8)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(1)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .0309 m .00375 .0309 L s 0 .0618 m .00375 .0618 L s 0 .09271 m .00375 .09271 L s 0 .15451 m .00375 .15451 L s 0 .18541 m .00375 .18541 L s 0 .21631 m .00375 .21631 L s 0 .27812 m .00375 .27812 L s 0 .30902 m .00375 .30902 L s 0 .33992 m .00375 .33992 L s 0 .40172 m .00375 .40172 L s 0 .43262 m .00375 .43262 L s 0 .46353 m .00375 .46353 L s 0 .52533 m .00375 .52533 L s 0 .55623 m .00375 .55623 L s 0 .58713 m .00375 .58713 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 1 0 r .5 Mabswid .1 .61803 m .13651 .61803 L .15551 .61803 L .17633 .61803 L .18568 .61803 L .19083 .61803 L .19335 .61803 L .19569 .61803 L .19789 .61803 L .19899 .61803 L .20022 .30902 L .20144 .30902 L .20275 .30902 L .20513 .30902 L .21372 .30902 L .25268 .30902 L .27214 .30902 L .28161 .30902 L .29021 .30902 L .29453 .30902 L .2968 .30902 L .29804 .30902 L .2992 .30902 L .30022 .20601 L .3013 .20601 L .30361 .20601 L .30767 .20601 L .3263 .20601 L .34502 .20601 L .36538 .20601 L .37487 .20601 L .38494 .20601 L .39354 .20601 L .3959 .20601 L .39714 .20601 L .39844 .20601 L .39959 .20601 L .40023 .15451 L .40084 .15451 L .40304 .15451 L .43994 .15451 L .45875 .15451 L .47915 .15451 L .4887 .15451 L .49392 .15451 L .49648 .15451 L .49759 .15451 L .49881 .15451 L .49992 .15451 L .50094 .12361 L Mistroke .50192 .12361 L .50297 .12361 L .50744 .12361 L .51693 .12361 L .55628 .12361 L .57604 .12361 L .5847 .12361 L .58928 .12361 L .59419 .12361 L .59666 .12361 L .59788 .12361 L .599 .12361 L .60002 .10301 L .6011 .10301 L .60338 .10301 L .61194 .10301 L .63067 .10301 L .66639 .10301 L .68471 .10301 L .68973 .10301 L .69501 .10301 L .69719 .10301 L .69838 .10301 L .69951 .10301 L .70016 .08829 L .70085 .08829 L .70206 .08829 L .70443 .08829 L .74315 .08829 L .76243 .08829 L .78044 .08829 L .78932 .08829 L .79369 .08829 L .79773 .08829 L .79889 .08829 L .79999 .08829 L .80112 .07725 L .80173 .07725 L .80238 .07725 L .80744 .07725 L .81629 .07725 L .85514 .07725 L .87451 .07725 L .88396 .07725 L .89255 .07725 L .89684 .07725 L .89802 .07725 L .89926 .07725 L .90032 .06867 L .90149 .06867 L Mistroke .90994 .06867 L .92853 .06867 L .96662 .06867 L 1 .06867 L Mfstroke 0 g .1 .61803 m .11777 .52477 L .13651 .45274 L .15551 .39742 L .17633 .3505 L .19637 .31473 L .21461 .28798 L .25146 .24578 L .28919 .21371 L .32549 .18988 L .36411 .16974 L .4013 .15401 L .43705 .14141 L .47512 .13008 L .51176 .12077 L .55072 .11222 L .58824 .10506 L .62434 .09899 L .66275 .09325 L .69972 .08833 L .73902 .08363 L .77688 .07955 L .81331 .07599 L .85206 .07253 L .88938 .06949 L .92526 .0668 L .96346 .06415 L 1 .0618 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False, ImageRangeCache->{{{91.5625, 320.938}, {457.875, 316.562}} -> {-5.25882, 2.39809, 0.0386499, 0.00625368}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[TextData[{ "The area under the blue curve is ", Cell[BoxData[ \(TraditionalForm\`\(1\/2 + 1\/3 + ... \) + 1\/n\)]], " which is clearly less than the area under the black curve gievn by ", Cell[BoxData[ \(TraditionalForm\`\[Integral]\_1\%n\( 1\/x\) \[DifferentialD]x\)]], ". Therefore, ", Cell[BoxData[ \(TraditionalForm \`\(1 + 1\/2 + 1\/3 + ... \) + 1\/n\ \[LessEqual] 1 + \[Integral]\_1\%n\( 1\/x\) \[DifferentialD]x\)]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Show[p2, p]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -2.77556e-17 0.1 0 0.618034 [ [.2 -0.0125 -3 -9 ] [.2 -0.0125 3 0 ] [.4 -0.0125 -3 -9 ] [.4 -0.0125 3 0 ] [.6 -0.0125 -3 -9 ] [.6 -0.0125 3 0 ] [.8 -0.0125 -3 -9 ] [.8 -0.0125 3 0 ] [1 -0.0125 -6 -9 ] [1 -0.0125 6 0 ] [-0.0125 .12361 -18 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -18 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -18 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -18 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -6 -4.5 ] [-0.0125 .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 .2 0 m .2 .00625 L s [(2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(10)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(0.2)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(0.4)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(0.6)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(0.8)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(1)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .0309 m .00375 .0309 L s 0 .0618 m .00375 .0618 L s 0 .09271 m .00375 .09271 L s 0 .15451 m .00375 .15451 L s 0 .18541 m .00375 .18541 L s 0 .21631 m .00375 .21631 L s 0 .27812 m .00375 .27812 L s 0 .30902 m .00375 .30902 L s 0 .33992 m .00375 .33992 L s 0 .40172 m .00375 .40172 L s 0 .43262 m .00375 .43262 L s 0 .46353 m .00375 .46353 L s 0 .52533 m .00375 .52533 L s 0 .55623 m .00375 .55623 L s 0 .58713 m .00375 .58713 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .5 Mabswid .1 .30902 m .13651 .30902 L .15551 .30902 L .17633 .30902 L .18568 .30902 L .19083 .30902 L .19335 .30902 L .19569 .30902 L .19789 .30902 L .19899 .30902 L .20022 .20601 L .20144 .20601 L .20275 .20601 L .20513 .20601 L .21372 .20601 L .25268 .20601 L .27214 .20601 L .28161 .20601 L .29021 .20601 L .29453 .20601 L .2968 .20601 L .29804 .20601 L .2992 .20601 L .30022 .15451 L .3013 .15451 L .30361 .15451 L .30767 .15451 L .3263 .15451 L .34502 .15451 L .36538 .15451 L .37487 .15451 L .38494 .15451 L .39354 .15451 L .3959 .15451 L .39714 .15451 L .39844 .15451 L .39959 .15451 L .40023 .12361 L .40084 .12361 L .40304 .12361 L .43994 .12361 L .45875 .12361 L .47915 .12361 L .4887 .12361 L .49392 .12361 L .49648 .12361 L .49759 .12361 L .49881 .12361 L .49992 .12361 L .50094 .10301 L Mistroke .50192 .10301 L .50297 .10301 L .50744 .10301 L .51693 .10301 L .55628 .10301 L .57604 .10301 L .5847 .10301 L .58928 .10301 L .59419 .10301 L .59666 .10301 L .59788 .10301 L .599 .10301 L .60002 .08829 L .6011 .08829 L .60338 .08829 L .61194 .08829 L .63067 .08829 L .66639 .08829 L .68471 .08829 L .68973 .08829 L .69501 .08829 L .69719 .08829 L .69838 .08829 L .69951 .08829 L .70016 .07725 L .70085 .07725 L .70206 .07725 L .70443 .07725 L .74315 .07725 L .76243 .07725 L .78044 .07725 L .78932 .07725 L .79369 .07725 L .79773 .07725 L .79889 .07725 L .79999 .07725 L .80112 .06867 L .80173 .06867 L .80238 .06867 L .80744 .06867 L .81629 .06867 L .85514 .06867 L .87451 .06867 L .88396 .06867 L .89255 .06867 L .89684 .06867 L .89802 .06867 L .89926 .06867 L .90032 .0618 L .90149 .0618 L Mistroke .90994 .0618 L .92853 .0618 L .96662 .0618 L 1 .0618 L Mfstroke 0 g .1 .61803 m .11777 .52477 L .13651 .45274 L .15551 .39742 L .17633 .3505 L .19637 .31473 L .21461 .28798 L .25146 .24578 L .28919 .21371 L .32549 .18988 L .36411 .16974 L .4013 .15401 L .43705 .14141 L .47512 .13008 L .51176 .12077 L .55072 .11222 L .58824 .10506 L .62434 .09899 L .66275 .09325 L .69972 .08833 L .73902 .08363 L .77688 .07955 L .81331 .07599 L .85206 .07253 L .88938 .06949 L .92526 .0668 L .96346 .06415 L 1 .0618 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False, ImageRangeCache->{{{91.5625, 320.938}, {691.438, 550.125}} -> {-5.25882, 4.22387, 0.0386499, 0.00625368}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[TextData[{ "b) Find how large the partial sum ", Cell[BoxData[ \(TraditionalForm\`s\_n = \(1 + 1\/2 + ... \) + 1\/n\)]], " is when ", Cell[BoxData[ \(TraditionalForm\`n\)]], " equals the number of seconds since the beginning of the universe.\n\nFrom \ part a) ", Cell[BoxData[ \(TraditionalForm \`ln(n + 1) \[LessEqual] s\_n \[LessEqual] 1\ + \ ln(n)\)]], ". The number of seconds in a year is" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(yr\ = \ 365*24*60*60\)], "Input"], Cell[BoxData[ \(31536000\)], "Output"] }, Open ]], Cell["\<\ Therefore, the number of seconds in 13 billion years is \ approximately\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(bign\ = \ 13\[Times]10\^9*\ yr\)], "Input"], Cell[BoxData[ \(409968000000000000\)], "Output"] }, Open ]], Cell[TextData[{ "The bounds on ", Cell[BoxData[ \(TraditionalForm\`s\_n\)]], "are:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(Log[bign + 1] // N\), \(1 + Log[bign] // N\)}], "Input"], Cell[BoxData[ \(40.5548555027825852`\)], "Output"], Cell[BoxData[ \(41.5548555027825905`\)], "Output"] }, Open ]], Cell[TextData[{ "So ", Cell[BoxData[ \(TraditionalForm\`s\_n\)]], "is only between 40.55 and 41.56. Still a long way to ", Cell[BoxData[ \(TraditionalForm\`\[Infinity]\)]], "!\n\nActually, ", StyleBox["Mathematica", FontSlant->"Italic"], " has no trouble computing the value from the sum (notice the numerator has \ a decimal point to ensure the calculation is done numerically and not \ symbolically):" }], "Text"], Cell[BoxData[ \(s[n_]\ := \ \[Sum]\_\(k = 1\)\%n 1.0\/k\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(s[bign]\)], "Input"], Cell[BoxData[ \(41.1320711676841188`\)], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"X 3.0", ScreenRectangle->{{0, 1024}, {0, 768}}, ScreenStyleEnvironment->"Working", WindowSize->{547, 598}, WindowMargins->{{149, Automatic}, {37, Automatic}}, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PaperSize"->{612, 792}, "PaperOrientation"->"Portrait", "Magnification"->1}, ShowCellLabel->False ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 28, 0, 45, "Subsection"], Cell[CellGroupData[{ Cell[1784, 55, 28, 0, 42, "Subsubsection"], Cell[1815, 57, 352, 9, 34, "Text"], Cell[CellGroupData[{ Cell[2192, 70, 157, 3, 43, "Input"], Cell[2352, 75, 17318, 475, 186, 4156, 308, "GraphicsData", "PostScript", "Graphics"], Cell[19673, 552, 130, 3, 27, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[19840, 560, 163, 3, 40, "Input"], Cell[20006, 565, 15732, 455, 186, 4150, 308, "GraphicsData", "PostScript", "Graphics"], Cell[35741, 1022, 130, 3, 27, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[35908, 1030, 101, 2, 24, "Input"], Cell[36012, 1034, 15739, 392, 186, 2913, 229, "GraphicsData", "PostScript", "Graphics"], Cell[51754, 1428, 130, 3, 27, "Output"] }, Closed]], Cell[51899, 1434, 518, 14, 51, "Text"], Cell[CellGroupData[{ Cell[52442, 1452, 44, 1, 27, "Input"], Cell[52489, 1455, 4832, 344, 186, 4597, 338, "GraphicsData", "PostScript", "Graphics", ImageCacheValid->False], Cell[57324, 1801, 130, 3, 27, "Output"] }, Open ]], Cell[57469, 1807, 494, 13, 54, "Text"], Cell[CellGroupData[{ Cell[57988, 1824, 44, 1, 27, "Input"], Cell[58035, 1827, 4826, 344, 148, 4591, 338, "GraphicsData", "PostScript", "Graphics", ImageCacheValid->False], Cell[62864, 2173, 130, 3, 22, "Output"] }, Open ]], Cell[63009, 2179, 451, 13, 60, "Text"], Cell[CellGroupData[{ Cell[63485, 2196, 54, 1, 22, "Input"], Cell[63542, 2199, 42, 1, 22, "Output"] }, Open ]], Cell[63599, 2203, 95, 3, 24, "Text"], Cell[CellGroupData[{ Cell[63719, 2210, 64, 1, 22, "Input"], Cell[63786, 2213, 52, 1, 22, "Output"] }, Open ]], Cell[63853, 2217, 107, 5, 24, "Text"], Cell[CellGroupData[{ Cell[63985, 2226, 82, 2, 29, "Input"], Cell[64070, 2230, 54, 1, 22, "Output"], Cell[64127, 2233, 54, 1, 22, "Output"] }, Open ]], Cell[64196, 2237, 445, 13, 59, "Text"], Cell[64644, 2252, 73, 1, 31, "Input"], Cell[CellGroupData[{ Cell[64742, 2257, 40, 1, 22, "Input"], Cell[64785, 2260, 54, 1, 22, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)