(*********************************************************************** 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[ 61760, 2026]*) (*NotebookOutlinePosition[ 62535, 2053]*) (* CellTagsIndexPosition[ 62491, 2049]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Examples for Section 7.6 Improper Integrals\ \>", "Subsection"], Cell["p. 603", "Subsubsection"], Cell[CellGroupData[{ Cell["1.", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_0\%b\[DifferentialD]x\/\(x\^2 + 1\)\)], "Input"], Cell[BoxData[ \(ArcTan[b]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[ArcTan[b], \ b \[Rule] \[Infinity]]\)], "Input"], Cell[BoxData[ \(\[Pi]\/2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_0\%\[Infinity]\[DifferentialD]x\/\(x\^2 + 1\)\)], "Input"], Cell[BoxData[ \(\[Pi]\/2\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["5.", "Subsubsection"], Cell[TextData[Cell[BoxData[ \(TraditionalForm \`\[Integral]\_\(-1\)\%1\( 1\/x\^\(2/3\)\) \[DifferentialD]x\ = \ \(\[Integral]\_\(-1\)\%0\( x\^\(\(-2\)/3\)\) \[DifferentialD]x\ + \ \[Integral]\_0\%1\( x\^\(\(-2\)/3\)\) \[DifferentialD]x\ = \ \(3\ + \ 3\ = \ 6\)\)\)]]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\ \[Integral]\_\(-1\)\%b\( x\^\(\(-2\)/3\)\) \[DifferentialD]x\)\)], "Input"], Cell[BoxData[ \(\(-3\)\ \((\(-1\))\)\^\(1/3\) + 3\ b\^\(1/3\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[\(-3\)\ \((\(-1\))\)\^\(1/3\) + 3\ b\^\(1/3\), \ b \[Rule] 0]\)], "Input"], Cell[BoxData[ \(\(-3\)\ \((\(-1\))\)\^\(1/3\)\)], "Output"] }, Open ]], Cell["This is actually 3.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\ \[Integral]\_a\%1\( x\^\(\(-2\)/3\)\) \[DifferentialD]x\)\)], "Input"], Cell[BoxData[ \(3 - 3\ a\^\(1/3\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[3 - 3\ a\^\(1/3\), \ a \[Rule] 0]\)], "Input"], Cell[BoxData[ \(3\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["9.", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_a\%\(-2\)\(2\/\(x\^2 - 1\)\) \[DifferentialD]x\)], "Input"], Cell[BoxData[ \(Log[3] - Log[\(-1\) + a] + Log[1 + a]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[Log[3] - Log[\(-1\) + a] + Log[1 + a], \ a \[Rule] \(-\[Infinity]\)]\)], "Input"], Cell[BoxData[ \(Log[3]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_\(-\[Infinity]\)\%\(-2\)\(2\/\(x\^2 - 1\)\) \[DifferentialD]x\)], "Input"], Cell[BoxData[ \(2\ ArcTanh[1\/2]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[%]\)], "Input"], Cell[BoxData[ \(1.09861228866810979`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Log[3]]\)], "Input"], Cell[BoxData[ \(1.09861228866810979`\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["21.", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_a\%0 \[Theta]\ \(E\^\[Theta]\) \[DifferentialD]\[Theta]\)], "Input"], Cell[BoxData[ \(\(-1\) - \((\(-1\) + a)\)\ E\^a\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[\(-1\) - \((\(-1\) + a)\)\ E\^a, \ a \[Rule] \(-\[Infinity]\)] \)], "Input"], Cell[BoxData[ \(\(-1\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_\(-\[Infinity]\)\%0 \[Theta]\ \(E\^\[Theta]\) \[DifferentialD]\[Theta]\)], "Input"], Cell[BoxData[ \(\(-1\)\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["22. (Modified)", "Subsubsection"], Cell[TextData[{ " ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_0\%\[Infinity]\( e\^\(-\[Theta]\)\) \(cos(\[Theta])\) \[DifferentialD]\[Theta]\)]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_0\%b\( E\^\(-\[Theta]\)\) Cos[\[Theta]] \[DifferentialD]\[Theta]\)], "Input"], Cell[BoxData[ \(1\/2 - 1\/2\ E\^\(-b\)\ \((Cos[b] - Sin[b])\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[1\/2 - 1\/2\ E\^\(-b\)\ \((Cos[b] - Sin[b])\), \ b \[Rule] \[Infinity]]\)], "Input"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{\(1\/2 - 1\/2\ E\^\(-b\)\ \((Cos[b] - Sin[b])\)\), ",", RowBox[{"b", "\[Rule]", InterpretationBox["\[Infinity]", DirectedInfinity[ 1]]}]}], "]"}]], "Output"] }, Open ]], Cell[TextData[{ "We can see that ", Cell[BoxData[ \(TraditionalForm\`cos(b) - sin(b)\)]], " is never greater than 2 or less that -2, but ", Cell[BoxData[ \(TraditionalForm\`e\^\(-b\) \[Rule] 0\)]], " as ", Cell[BoxData[ \(TraditionalForm\`b \[Rule] \[Infinity]\)]], ". Therefore the limit is ", Cell[BoxData[ \(TraditionalForm\`1\/2\)]], ". Oddly enough, ", StyleBox["Mathematica", FontSlant->"Italic"], " can calculate the improper integral." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_0\%\[Infinity]\( E\^\(-\[Theta]\)\) Cos[\[Theta]] \[DifferentialD]\[Theta]\)], "Input"], Cell[BoxData[ \(1\/2\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["25.", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_a\%1 x\ Log[x] \[DifferentialD]x\)], "Input"], Cell[BoxData[ \(\(-\(1\/4\)\) - 1\/4\ a\^2\ \((\(-1\) + 2\ Log[a])\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[\(-\(1\/4\)\) - 1\/4\ a\^2\ \((\(-1\) + 2\ Log[a])\), \ a \[Rule] 0]\)], "Input"], Cell[BoxData[ \(\(-\(1\/4\)\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_0\%1 x\ Log[x] \[DifferentialD]x\)], "Input"], Cell[BoxData[ \(\(-\(1\/4\)\)\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["49.", "Subsubsection"], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm \`\[Integral]\_2\%\[Infinity]\( 1\/\@\(v - 1\)\) \[DifferentialD]v\)]], "\nUse the Limit Comparison test: ", Cell[BoxData[ \(TraditionalForm\`1\/\@\(v - 1\)\)]], " grows at the same rate as ", Cell[BoxData[ \(TraditionalForm\`1\/\@v\)]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[\(1\/\@\(v - 1\)\)/\(1\/\@v\), \ v \[Rule] \[Infinity]]\)], "Input"], Cell[BoxData[ \(1\)], "Output"] }, Open ]], Cell[TextData[{ "The integral ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_2\%\[Infinity]\( 1\/\@v\) \[DifferentialD]v\)]], " diverges:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_2\%b\( 1\/\@v\) \[DifferentialD]v\)], "Input"], Cell[BoxData[ \(\(-2\)\ \@2 + 2\ \@b\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[\(-2\)\ \@2 + 2\ \@b, \ b \[Rule] \[Infinity]]\)], "Input"], Cell[BoxData[ InterpretationBox["\[Infinity]", DirectedInfinity[ 1]]], "Output"] }, Open ]], Cell[TextData[{ "Therefore, the integral ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_2\%\[Infinity]\( 1\/\@\(v - 1\)\) \[DifferentialD]v\)]], " diverges." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["53.", "Subsubsection"], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm \`\[Integral]\_1\%\[Infinity]\(\@\( x + 1\)\/x\^2\) \[DifferentialD]x\)]], "\nUse the Limit Comparison Test: ", Cell[BoxData[ \(TraditionalForm\`\@\(x + 1\)\/x\^2\)]], "grows at the same rate as ", Cell[BoxData[ \(TraditionalForm\`\@x\/x\^2 = \ x\^\(\(-3\)/2\)\)]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[\(\@\(x + 1\)\/x\^2\)/x\^\(\(-3\)/2\), x \[Rule] \[Infinity]]\)], "Input"], Cell[BoxData[ \(1\)], "Output"] }, Open ]], Cell[TextData[{ "The integral ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_1\%\[Infinity]\( x\^\(\(-3\)/2\)\) \[DifferentialD]x\)]], " converges:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_1\%b\( x\^\(\(-3\)/2\)\) \[DifferentialD]x\)], "Input"], Cell[BoxData[ \(2 - 2\/\@b\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[2 - 2\/\@b, \ b \[Rule] \[Infinity]]\)], "Input"], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell[TextData[{ "Therefore, the integral ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_1\%\[Infinity]\(\@\( x + 1\)\/x\^2\) \[DifferentialD]x\)]], " converges." }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["62.", "Subsection"], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm \`\[Integral]\_\(-\[Infinity]\)\%\[Infinity]\[DifferentialD]x \/\@\(x\^4 + 1\)\ = \ \[Integral]\_\(-\[Infinity]\)\%0\[DifferentialD]x\/\@\(x\^4 + 1\) + \[Integral]\_0\%\[Infinity]\[DifferentialD]x\/\@\(x\^4 + 1\)\)]], "\nUse the Limit Comparison Test: ", Cell[BoxData[ \(TraditionalForm\`1\/\@\(x\^4 + 1\)\)]], "grows at the same rate as ", Cell[BoxData[ \(TraditionalForm\`1\/x\^2\)]], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[\(1\/\@\(x\^4 + 1\)\)/\(1\/x\^2\), \ x \[Rule] \[Infinity]]\)], "Input"], Cell[BoxData[ \(1\)], "Output"] }, Open ]], Cell[TextData[{ "The integral ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_1\%\[Infinity]\( 1\/x\^2\) \[DifferentialD]x\)]], " converges," }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_1\%a\( x\^\(-2\)\) \[DifferentialD]x\)], "Input"], Cell[BoxData[ \(1 - 1\/a\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[1 - 1\/a, \ a \[Rule] \[Infinity]]\)], "Input"], Cell[BoxData[ \(1\)], "Output"] }, Open ]], Cell[TextData[{ "Therefore, the integral ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_0\%\[Infinity]\[DifferentialD]x\/\@\(x\^4 + 1\)\)]], "converges. A similar argument proves that the integral ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_\(-\[Infinity]\)\%0 \[DifferentialD]x\/\@\(x\^4 + 1\)\)]], " converges. Therefore the original integral ", Cell[BoxData[ \(TraditionalForm \`\[Integral]\_\(-\[Infinity]\)\%\[Infinity]\[DifferentialD]x \/\@\(x\^4 + 1\)\)]], " converges." }], "Text"], Cell[CellGroupData[{ Cell["91.", "Subsubsection"], Cell["a)", "Text"], Cell[BoxData[ \(Si[x_]\ := \ \[Integral]\_0\%x\( Sin[t]\/t\) \[DifferentialD]t\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Plot[\ Sin[t]\/t, {t, 0, 6 \[Pi]}, \ PlotRange \[Rule] {\(-0.5\), 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 0.0238095 0.0505254 0.206011 0.412023 [ [.15012 .19351 -9 -9 ] [.15012 .19351 9 0 ] [.27644 .19351 -3 -9 ] [.27644 .19351 3 0 ] [.40275 .19351 -9 -9 ] [.40275 .19351 9 0 ] [.52906 .19351 -6 -9 ] [.52906 .19351 6 0 ] [.65538 .19351 -12 -9 ] [.65538 .19351 12 0 ] [.78169 .19351 -6 -9 ] [.78169 .19351 6 0 ] [.908 .19351 -12 -9 ] [.908 .19351 12 0 ] [.01131 .0412 -24 -4.5 ] [.01131 .0412 0 4.5 ] [.01131 .12361 -24 -4.5 ] [.01131 .12361 0 4.5 ] [.01131 .28842 -18 -4.5 ] [.01131 .28842 0 4.5 ] [.01131 .37082 -18 -4.5 ] [.01131 .37082 0 4.5 ] [.01131 .45322 -18 -4.5 ] [.01131 .45322 0 4.5 ] [.01131 .53563 -18 -4.5 ] [.01131 .53563 0 4.5 ] [.01131 .61803 -6 -4.5 ] [.01131 .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 .15012 .20601 m .15012 .21226 L s [(2.5)] .15012 .19351 0 1 Mshowa .27644 .20601 m .27644 .21226 L s [(5)] .27644 .19351 0 1 Mshowa .40275 .20601 m .40275 .21226 L s [(7.5)] .40275 .19351 0 1 Mshowa .52906 .20601 m .52906 .21226 L s [(10)] .52906 .19351 0 1 Mshowa .65538 .20601 m .65538 .21226 L s [(12.5)] .65538 .19351 0 1 Mshowa .78169 .20601 m .78169 .21226 L s [(15)] .78169 .19351 0 1 Mshowa .908 .20601 m .908 .21226 L s [(17.5)] .908 .19351 0 1 Mshowa .125 Mabswid .04907 .20601 m .04907 .20976 L s .07433 .20601 m .07433 .20976 L s .0996 .20601 m .0996 .20976 L s .12486 .20601 m .12486 .20976 L s .17539 .20601 m .17539 .20976 L s .20065 .20601 m .20065 .20976 L s .22591 .20601 m .22591 .20976 L s .25117 .20601 m .25117 .20976 L s .3017 .20601 m .3017 .20976 L s .32696 .20601 m .32696 .20976 L s .35222 .20601 m .35222 .20976 L s .37749 .20601 m .37749 .20976 L s .42801 .20601 m .42801 .20976 L s .45328 .20601 m .45328 .20976 L s .47854 .20601 m .47854 .20976 L s .5038 .20601 m .5038 .20976 L s .55433 .20601 m .55433 .20976 L s .57959 .20601 m .57959 .20976 L s .60485 .20601 m .60485 .20976 L s .63011 .20601 m .63011 .20976 L s .68064 .20601 m .68064 .20976 L s .7059 .20601 m .7059 .20976 L s .73116 .20601 m .73116 .20976 L s .75643 .20601 m .75643 .20976 L s .80695 .20601 m .80695 .20976 L s .83222 .20601 m .83222 .20976 L s .85748 .20601 m .85748 .20976 L s .88274 .20601 m .88274 .20976 L s .93327 .20601 m .93327 .20976 L s .95853 .20601 m .95853 .20976 L s .98379 .20601 m .98379 .20976 L s .25 Mabswid 0 .20601 m 1 .20601 L s .02381 .0412 m .03006 .0412 L s [(-0.4)] .01131 .0412 1 0 Mshowa .02381 .12361 m .03006 .12361 L s [(-0.2)] .01131 .12361 1 0 Mshowa .02381 .28842 m .03006 .28842 L s [(0.2)] .01131 .28842 1 0 Mshowa .02381 .37082 m .03006 .37082 L s [(0.4)] .01131 .37082 1 0 Mshowa .02381 .45322 m .03006 .45322 L s [(0.6)] .01131 .45322 1 0 Mshowa .02381 .53563 m .03006 .53563 L s [(0.8)] .01131 .53563 1 0 Mshowa .02381 .61803 m .03006 .61803 L s [(1)] .01131 .61803 1 0 Mshowa .125 Mabswid .02381 .0618 m .02756 .0618 L s .02381 .0824 m .02756 .0824 L s .02381 .10301 m .02756 .10301 L s .02381 .14421 m .02756 .14421 L s .02381 .16481 m .02756 .16481 L s .02381 .18541 m .02756 .18541 L s .02381 .22661 m .02756 .22661 L s .02381 .24721 m .02756 .24721 L s .02381 .26781 m .02756 .26781 L s .02381 .30902 m .02756 .30902 L s .02381 .32962 m .02756 .32962 L s .02381 .35022 m .02756 .35022 L s .02381 .39142 m .02756 .39142 L s .02381 .41202 m .02756 .41202 L s .02381 .43262 m .02756 .43262 L s .02381 .47383 m .02756 .47383 L s .02381 .49443 m .02756 .49443 L s .02381 .51503 m .02756 .51503 L s .02381 .55623 m .02756 .55623 L s .02381 .57683 m .02756 .57683 L s .02381 .59743 m .02756 .59743 L s .02381 .0206 m .02756 .0206 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .61803 m .02499 .618 L .02605 .6179 L .02729 .61771 L .02846 .61745 L .03053 .61682 L .03279 .61587 L .03527 .61451 L .0379 .61272 L .04262 .60858 L .05205 .59691 L .06244 .57904 L .0842 .5267 L .10458 .46365 L .14335 .32794 L .16306 .26223 L .18458 .20079 L .19454 .17732 L .20517 .1563 L .21512 .1406 L .22428 .12965 L .22929 .12509 L .23457 .12134 L .23713 .11992 L .23987 .11868 L .24145 .11809 L .24289 .11764 L .24425 .11728 L .2457 .11698 L .24692 .11678 L .24757 .1167 L .24827 .11662 L .2495 .11654 L .25066 .11651 L .25131 .11651 L .25203 .11653 L .25278 .11657 L .25347 .11663 L .25472 .11677 L .25605 .11698 L .25732 .11723 L .2587 .11756 L .2612 .11832 L .26587 .12027 L .27076 .123 L .27533 .12615 L .28574 .13522 L .30679 .15961 L .34561 .21156 L .36536 .23398 L Mistroke .37653 .24394 L .38187 .24786 L .38689 .25103 L .39174 .25359 L .39699 .2558 L .39931 .25659 L .40176 .25729 L .40406 .25784 L .40614 .25824 L .40859 .25858 L .40993 .25872 L .41121 .25882 L .41238 .25887 L .41347 .2589 L .41466 .2589 L .41593 .25887 L .41719 .25881 L .41791 .25876 L .41856 .2587 L .42103 .25842 L .42233 .25822 L .42377 .25796 L .42665 .25732 L .43195 .25574 L .43695 .2538 L .4463 .24907 L .46726 .23435 L .50578 .20108 L .5253 .18608 L .53565 .17964 L .54135 .17665 L .54675 .17421 L .55186 .17229 L .55741 .17062 L .55986 .17003 L .56247 .16951 L .56472 .16913 L .56715 .16881 L .56833 .16869 L .56958 .16858 L .57065 .16851 L .57182 .16845 L .57291 .16841 L .57409 .16839 L .57519 .16838 L .5762 .1684 L .57748 .16844 L .57867 .1685 L .57997 .16858 L .58135 .1687 L Mistroke .58366 .16896 L .58621 .16933 L .59141 .17037 L .59635 .17169 L .60563 .17496 L .61562 .17951 L .62651 .18545 L .66718 .2114 L .68599 .22216 L .69588 .22679 L .70633 .23068 L .71165 .23222 L .71749 .23356 L .72005 .23403 L .7228 .23444 L .72537 .23475 L .72775 .23497 L .72901 .23506 L .73035 .23513 L .731 .23516 L .73169 .23518 L .73246 .23521 L .73318 .23522 L .73448 .23523 L .73514 .23523 L .73586 .23522 L .73713 .23519 L .73831 .23515 L .73956 .23508 L .74075 .23501 L .74296 .23482 L .74535 .23457 L .74793 .23422 L .75283 .23336 L .7574 .23234 L .76782 .22929 L .78887 .2206 L .82771 .20079 L .84748 .19186 L .85865 .18786 L .86399 .18628 L .86901 .18502 L .87387 .18401 L .87913 .18315 L .88145 .18285 L .8839 .1826 L .88599 .18242 L .88828 .18227 L .88966 .18221 L .89097 .18217 L Mistroke .89214 .18214 L .89341 .18213 L .89407 .18213 L .89479 .18213 L .89555 .18214 L .89626 .18215 L .89753 .18219 L .89824 .18221 L .8989 .18224 L .90132 .18238 L .90397 .1826 L .90879 .18314 L .9141 .18398 L .9191 .18498 L .92845 .18736 L .94942 .19465 L .97619 .20601 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]HGAYHf4PAg9QL6QYHgP3oool001/0oooo0P00000V0?oo o`030000003oool0oooo02h0oooo00<000000?ooo`3oool0703oool00`000000oooo0?ooo`0g0?oo o`8000004`3oool2000003`0oooo000K0?ooo`030000003oool0oooo02D0oooo00<000000?ooo`3o ool0;`3oool00`000000oooo0?ooo`0J0?ooo`030000003oool0oooo03X0oooo1000000;0?ooo`@0 0000?P3oool001/0oooo00<000000?ooo`3oool09@3oool00`000000oooo0?ooo`0`0?ooo`030000 003oool0oooo01P0oooo00<000000?ooo`3oool0?`3oool;00000480oooo000K0?ooo`030000003o ool0oooo02@0oooo00<000000?ooo`3oool003oool2000000X0oooo0P00002F0?ooo`006`3oool00`000000oooo0?oo o`0R0?ooo`030000003oool0oooo03/0oooo2P00002H0?ooo`006`3oool00`000000oooo0?ooo`0R 0?ooo`030000003oool0oooo0=d0oooo000K0?ooo`030000003oool0oooo0280oooo00<000000?oo o`3oool0g@3oool001/0oooo0P00000R0?ooo`030000003oool0oooo0=h0oooo000K0?ooo`030000 003oool0oooo0240oooo00<000000?ooo`3oool0gP3oool001/0oooo00<000000?ooo`3oool08@3o ool00`000000oooo0?ooo`3N0?ooo`006`3oool00`000000oooo0?ooo`0Q0?ooo`030000003oool0 oooo0=h0oooo00080?ooo`800000103oool00`000000oooo0?ooo`020?ooo`@00000103oool00`00 0000oooo0?ooo`0P0?ooo`030000003oool0oooo0=l0oooo00070?ooo`040000003oool0oooo0000 00P0oooo00<000000?ooo`3oool01@3oool200000240oooo00<000000?ooo`3oool0g`3oool000L0 oooo00@000000?ooo`3oool000002@3oool00`000000oooo0?ooo`040?ooo`030000003oool0oooo 0200oooo00<000000?ooo`3oool0g`3oool000L0oooo00@000000?ooo`3oool000002P3oool00`00 0000oooo0?ooo`030?ooo`030000003oool0oooo0200oooo00<000000?ooo`3oool0g`3oool000L0 oooo00@000000?ooo`3oool000002`3oool00`000000oooo0?ooo`020?ooo`030000003oool0oooo 01l0oooo00<000000?ooo`3oool0h03oool000L0oooo00@000000?ooo`3oool00000203oool01000 0000oooo0?ooo`0000040?ooo`030000003oool0oooo01l0oooo00<000000?ooo`3oool0h03oool0 00P0oooo0P00000:0?ooo`8000001@3oool00`000000oooo0?ooo`0O0?ooo`030000003oool0oooo 0>00oooo000K0?ooo`8000007`3oool00`000000oooo0?ooo`3Q0?ooo`006`3oool00`000000oooo 0?ooo`0N0?ooo`030000003oool0oooo0>40oooo000K0?ooo`030000003oool0oooo01h0oooo00<0 00000?ooo`3oool0h@3oool001/0oooo00<000000?ooo`3oool07P3oool00`000000oooo0?ooo`3Q 0?ooo`006`3oool00`000000oooo0?ooo`0M0?ooo`030000003oool0oooo0>80oooo000K0?ooo`80 00007P3oool00`000000oooo0?ooo`3R0?ooo`006`3oool00`000000oooo0?ooo`0M0?ooo`030000 003oool0oooo0>80oooo000K0?ooo`030000003oool0oooo01`0oooo00<000000?ooo`3oool0h`3o ool001/0oooo00<000000?ooo`3oool0703oool00`000000oooo0?ooo`3S0?ooo`006`3oool00`00 0000oooo0?ooo`0L0?ooo`030000003oool0oooo0><0oooo000K0?ooo`030000003oool0oooo01/0 oooo00<000000?ooo`3oool0i03oool001/0oooo0P00000L0?ooo`030000003oool0oooo0>@0oooo 000K0?ooo`030000003oool0oooo01/0oooo00<000000?ooo`3oool0i03oool001/0oooo00<00000 0?ooo`3oool06`3oool00`000000oooo0?ooo`3T0?ooo`006`3oool00`000000oooo0?ooo`0J0?oo o`030000003oool0oooo0>D0oooo00080?ooo`800000103oool00`000000oooo0?ooo`040?ooo`03 0000003oool0oooo00<0oooo00<000000?ooo`3oool06P3oool00`000000oooo0?ooo`3U0?ooo`00 1`3oool010000000oooo0?ooo`00000:0?ooo`030000003oool0oooo00<0oooo0P00000K0?ooo`03 0000003oool0oooo0>D0oooo00070?ooo`040000003oool0oooo000000L0oooo1@0000040?ooo`03 0000003oool0oooo01T0oooo00<000000?ooo`3oool0iP3oool000L0oooo00@000000?ooo`3oool0 00001`3oool010000000oooo0?ooo`0000050?ooo`030000003oool0oooo01T0oooo00<000000?oo o`3oool0iP3oool000L0oooo00@000000?ooo`3oool00000203oool00`000000oooo000000050?oo o`030000003oool0oooo01T0oooo00<000000?ooo`3oool0iP3oool000L0oooo00@000000?ooo`3o ool000002@3oool2000000D0oooo00<000000?ooo`3oool0603oool00`000000oooo0?ooo`3W0?oo o`00203oool2000000/0oooo00<000000?ooo`3oool00`3oool00`000000oooo0?ooo`0H0?ooo`03 0000003oool0oooo0>L0oooo000K0?ooo`8000006@3oool00`000000oooo0?ooo`3W0?ooo`006`3o ool00`000000oooo0?ooo`0H0?ooo`030000003oool0oooo0>L0oooo000K0?ooo`030000003oool0 oooo01L0oooo00<000000?ooo`3oool0j03oool001/0oooo00<000000?ooo`3oool05`3oool00`00 0000oooo0?ooo`3X0?ooo`006`3oool00`000000oooo0?ooo`0G0?ooo`030000003oool0oooo0>P0 oooo000K0?ooo`8000005`3oool00`000000oooo0?ooo`3Y0?ooo`006`3oool00`000000oooo0?oo o`0F0?ooo`030000003oool0oooo0>T0oooo000K0?ooo`030000003oool0oooo01H0oooo00<00000 0?ooo`3oool0j@3oool001/0oooo00<000000?ooo`3oool05@3oool00`000000oooo0?ooo`3Z0?oo o`006`3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo0>X0oooo000K0?ooo`030000 003oool0oooo01D0oooo00<000000?ooo`3oool0jP3oool001/0oooo0P00000E0?ooo`030000003o ool0oooo0>/0oooo000K0?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool0j`3oool0 01/0oooo00<000000?ooo`3oool0503oool00`000000oooo0?ooo`3[0?ooo`006`3oool00`000000 oooo0?ooo`0D0?ooo`030000003oool0oooo0>/0oooo00080?ooo`800000103oool00`000000oooo 0?ooo`030?ooo`8000001@3oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo0>`0oooo 00070?ooo`040000003oool0oooo000000P0oooo00@000000?ooo`3oool00000103oool2000001@0 oooo00<000000?ooo`3oool0k03oool000L0oooo00@000000?ooo`3oool00000203oool010000000 oooo0?ooo`0000040?ooo`030000003oool0oooo01<0oooo00<000000?ooo`3oool0k03oool000L0 oooo00@000000?ooo`3oool00000203oool3000000D0oooo00<000000?ooo`3oool04P3oool00`00 0000oooo0?ooo`3]0?ooo`001`3oool010000000oooo0?ooo`0000080?ooo`030000003oool0oooo 00D0oooo00<000000?ooo`3oool04P3oool00`000000oooo0?ooo`3]0?ooo`001`3oool010000000 oooo0?ooo`0000080?ooo`030000003oool0oooo00D0oooo00<000000?ooo`3oool04P3oool00`00 0000oooo0?ooo`3]0?ooo`00203oool2000000X0oooo0`0000040?ooo`030000003oool0oooo0140 oooo00<000000?ooo`3oool0kP3oool001/0oooo0P00000B0?ooo`030000003oool0oooo0>h0oooo 000K0?ooo`030000003oool0oooo0140oooo00<000000?ooo`3oool0kP3oool001/0oooo00<00000 0?ooo`3oool04@3oool00`000000oooo0?ooo`3^0?ooo`006`3oool00`000000oooo0?ooo`0@0?oo o`030000003oool0oooo0>l0oooo000K0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3o ool0k`3oool001/0oooo0P00000A0?ooo`030000003oool0oooo0>l0oooo000K0?ooo`030000003o ool0oooo00l0oooo00<000000?ooo`3oool0l03oool001/0oooo00<000000?ooo`3oool03`3oool0 0`000000oooo0?ooo`3`0?ooo`006`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo 0?00oooo000K0?ooo`030000003oool0oooo00h0oooo00<000000?ooo`3oool0l@3oool001/0oooo 00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`3a0?ooo`006`3oool2000000l0oooo00<0 00000?ooo`3oool0l@3oool001/0oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`3a 0?ooo`006`3oool00`000000oooo0?ooo`0=0?ooo`030000003oool0oooo0?80oooo000K0?ooo`03 0000003oool0oooo00d0oooo00<000000?ooo`3oool0lP3oool000P0oooo0P0000040?ooo`030000 003oool0oooo00<0oooo0P0000050?ooo`030000003oool0oooo00d0oooo00<000000?ooo`3oool0 lP3oool000L0oooo00@000000?ooo`3oool00000203oool010000000oooo0?ooo`0000040?ooo`80 00003@3oool00`000000oooo0?ooo`3c0?ooo`001`3oool010000000oooo0?ooo`0000080?ooo`04 0000003oool0oooo000000@0oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`3c0?oo o`001`3oool010000000oooo0?ooo`0000090?ooo`8000001@3oool00`000000oooo0?ooo`0;0?oo o`030000003oool0oooo0?@0oooo00070?ooo`040000003oool0oooo000000P0oooo00@000000?oo o`3oool00000103oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo0?@0oooo00070?oo o`040000003oool0oooo000000P0oooo00@000000?ooo`3oool00000103oool00`000000oooo0?oo o`0:0?ooo`030000003oool0oooo0?D0oooo00080?ooo`8000002P3oool2000000D0oooo00<00000 0?ooo`3oool02P3oool00`000000oooo0?ooo`3e0?ooo`006`3oool2000000/0oooo00<000000?oo o`3oool0m@3oool001/0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`3f0?ooo`00 6`3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo0?H0oooo000K0?ooo`030000003o ool0oooo00P0oooo00<000000?ooo`3oool0m`3oool001/0oooo00<000000?ooo`3oool0203oool0 0`000000oooo0?ooo`3g0?ooo`006`3oool2000000P0oooo00<000000?ooo`3oool0n03oool001/0 oooo00<000000?ooo`3oool01`3oool00`000000oooo0?ooo`3h0?ooo`006`3oool00`000000oooo 0?ooo`060?ooo`030000003oool0oooo0?T0oooo000K0?ooo`030000003oool0oooo00H0oooo00<0 00000?ooo`3oool0n@3oool001/0oooo00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`3j 0?ooo`006`3oool2000000D0oooo00<000000?ooo`3oool0n`3oool001/0oooo00<000000?ooo`3o ool00`3oool00`000000oooo0?ooo`3l0?ooo`006`3oool00`000000oooo0?ooo`030?ooo`030000 003oool0oooo0?`0oooo000K0?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool0o@3o ool001/0oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`3m0?ooo`004`3oool40000 00@0oooo00<000000?ooo`0000000P00003o0?ooo`40oooo000E0?ooo`030000003oool0oooo00<0 oooo0`00003o0?ooo`<0oooo000E0?ooo`030000003oool0oooo0?l0oooo2@3oool001D0oooo00<0 00000?ooo`3oool0o`3oool90?ooo`005@3oool00`000000oooo0?ooo`3o0?ooo`T0oooo000C0?oo o`<00000o`3oool;0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooo`T0oooo003o0?ooob40oooo 003o0?ooob40oooo003o0?ooob40oooo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-2.0332, -0.536668, 0.0744045, 0.00912404}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[TextData[{ "Since ", Cell[BoxData[ \(TraditionalForm\`\(sin(t)\)/t\)]], "changes sign repeatedly, the integral repeatedly adds and subtracts the \ area between the graph and the ", Cell[BoxData[ \(TraditionalForm\`x\)]], "-axis as ", Cell[BoxData[ \(TraditionalForm\`x\)]], " increases. This suggests that the function ", Cell[BoxData[ \(TraditionalForm\`Si(x)\)]], " will also oscillate." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Plot[Si[x], \ {x, 0, 25}, \ PlotRange \[Rule] {0, 2}]\)], "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 0.0238095 0.0380952 0 0.309017 [ [.21429 -0.0125 -3 -9 ] [.21429 -0.0125 3 0 ] [.40476 -0.0125 -6 -9 ] [.40476 -0.0125 6 0 ] [.59524 -0.0125 -6 -9 ] [.59524 -0.0125 6 0 ] [.78571 -0.0125 -6 -9 ] [.78571 -0.0125 6 0 ] [.97619 -0.0125 -6 -9 ] [.97619 -0.0125 6 0 ] [.01131 .07725 -24 -4.5 ] [.01131 .07725 0 4.5 ] [.01131 .15451 -18 -4.5 ] [.01131 .15451 0 4.5 ] [.01131 .23176 -24 -4.5 ] [.01131 .23176 0 4.5 ] [.01131 .30902 -6 -4.5 ] [.01131 .30902 0 4.5 ] [.01131 .38627 -24 -4.5 ] [.01131 .38627 0 4.5 ] [.01131 .46353 -18 -4.5 ] [.01131 .46353 0 4.5 ] [.01131 .54078 -24 -4.5 ] [.01131 .54078 0 4.5 ] [.01131 .61803 -6 -4.5 ] [.01131 .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 .21429 0 m .21429 .00625 L s [(5)] .21429 -0.0125 0 1 Mshowa .40476 0 m .40476 .00625 L s [(10)] .40476 -0.0125 0 1 Mshowa .59524 0 m .59524 .00625 L s [(15)] .59524 -0.0125 0 1 Mshowa .78571 0 m .78571 .00625 L s [(20)] .78571 -0.0125 0 1 Mshowa .97619 0 m .97619 .00625 L s [(25)] .97619 -0.0125 0 1 Mshowa .125 Mabswid .0619 0 m .0619 .00375 L s .1 0 m .1 .00375 L s .1381 0 m .1381 .00375 L s .17619 0 m .17619 .00375 L s .25238 0 m .25238 .00375 L s .29048 0 m .29048 .00375 L s .32857 0 m .32857 .00375 L s .36667 0 m .36667 .00375 L s .44286 0 m .44286 .00375 L s .48095 0 m .48095 .00375 L s .51905 0 m .51905 .00375 L s .55714 0 m .55714 .00375 L s .63333 0 m .63333 .00375 L s .67143 0 m .67143 .00375 L s .70952 0 m .70952 .00375 L s .74762 0 m .74762 .00375 L s .82381 0 m .82381 .00375 L s .8619 0 m .8619 .00375 L s .9 0 m .9 .00375 L s .9381 0 m .9381 .00375 L s .25 Mabswid 0 0 m 1 0 L s .02381 .07725 m .03006 .07725 L s [(0.25)] .01131 .07725 1 0 Mshowa .02381 .15451 m .03006 .15451 L s [(0.5)] .01131 .15451 1 0 Mshowa .02381 .23176 m .03006 .23176 L s [(0.75)] .01131 .23176 1 0 Mshowa .02381 .30902 m .03006 .30902 L s [(1)] .01131 .30902 1 0 Mshowa .02381 .38627 m .03006 .38627 L s [(1.25)] .01131 .38627 1 0 Mshowa .02381 .46353 m .03006 .46353 L s [(1.5)] .01131 .46353 1 0 Mshowa .02381 .54078 m .03006 .54078 L s [(1.75)] .01131 .54078 1 0 Mshowa .02381 .61803 m .03006 .61803 L s [(2)] .01131 .61803 1 0 Mshowa .125 Mabswid .02381 .01545 m .02756 .01545 L s .02381 .0309 m .02756 .0309 L s .02381 .04635 m .02756 .04635 L s .02381 .0618 m .02756 .0618 L s .02381 .09271 m .02756 .09271 L s .02381 .10816 m .02756 .10816 L s .02381 .12361 m .02756 .12361 L s .02381 .13906 m .02756 .13906 L s .02381 .16996 m .02756 .16996 L s .02381 .18541 m .02756 .18541 L s .02381 .20086 m .02756 .20086 L s .02381 .21631 m .02756 .21631 L s .02381 .24721 m .02756 .24721 L s .02381 .26266 m .02756 .26266 L s .02381 .27812 m .02756 .27812 L s .02381 .29357 m .02756 .29357 L s .02381 .32447 m .02756 .32447 L s .02381 .33992 m .02756 .33992 L s .02381 .35537 m .02756 .35537 L s .02381 .37082 m .02756 .37082 L s .02381 .40172 m .02756 .40172 L s .02381 .41717 m .02756 .41717 L s .02381 .43262 m .02756 .43262 L s .02381 .44807 m .02756 .44807 L s .02381 .47898 m .02756 .47898 L s .02381 .49443 m .02756 .49443 L s .02381 .50988 m .02756 .50988 L s .02381 .52533 m .02756 .52533 L s .02381 .55623 m .02756 .55623 L s .02381 .57168 m .02756 .57168 L s .02381 .58713 m .02756 .58713 L s .02381 .60258 m .02756 .60258 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 0 m .04262 .15051 L .06244 .29603 L .08255 .41788 L .09409 .47268 L .10458 .51202 L .1094 .52668 L .11464 .54017 L .11917 .54982 L .12415 .55836 L .12944 .5651 L .13233 .56781 L .13504 .56975 L .13633 .57048 L .13757 .57105 L .13869 .57148 L .13988 .57183 L .14117 .5721 L .14237 .57224 L .1431 .57227 L .1438 .57228 L .14509 .57219 L .14625 .57203 L .1475 .57175 L .14867 .5714 L .14974 .571 L .15237 .56975 L .15485 .56819 L .15979 .56414 L .16517 .55842 L .18364 .53129 L .20302 .49754 L .21332 .48046 L .22442 .46437 L .23499 .45218 L .23961 .44798 L .24467 .44423 L .24947 .4415 L .25177 .44049 L .25394 .43971 L .25512 .43935 L .25641 .43902 L .25748 .43879 L .25865 .43858 L .25992 .43841 L .26062 .43834 L .26127 .43829 L .26244 .43824 L .26369 .43824 L .26438 .43826 L Mistroke .26502 .43829 L .26623 .43839 L .26754 .43855 L .26894 .43879 L .27148 .43937 L .27382 .44009 L .27919 .44234 L .28486 .44556 L .29445 .45267 L .30496 .46228 L .32615 .484 L .34544 .50187 L .35504 .50872 L .36009 .5116 L .36546 .51406 L .37014 .51568 L .37281 .51638 L .37531 .51688 L .37642 .51706 L .37759 .51722 L .3786 .51733 L .37969 .51742 L .38085 .51748 L .38194 .51752 L .38323 .51753 L .3844 .5175 L .3856 .51744 L .38672 .51736 L .38795 .51724 L .38927 .51707 L .39196 .51661 L .39441 .51606 L .39914 .51466 L .40362 .51295 L .41359 .50796 L .42444 .50109 L .4438 .48703 L .45409 .47967 L .46519 .47259 L .47573 .46716 L .48035 .46528 L .48541 .4636 L .48773 .46297 L .49021 .4624 L .49235 .46199 L .49467 .46163 L .49603 .46146 L .49729 .46134 L .4985 .46124 L .49978 .46117 L Mistroke .50092 .46113 L .50199 .46111 L .50316 .46111 L .50442 .46113 L .50511 .46116 L .50575 .46119 L .50696 .46127 L .50826 .46138 L .50967 .46153 L .5122 .46188 L .51453 .46229 L .5199 .46356 L .52557 .46533 L .53515 .46922 L .54566 .47447 L .56682 .48644 L .58611 .49639 L .59569 .50021 L .60074 .50181 L .6061 .50316 L .61078 .50403 L .61344 .5044 L .61466 .50453 L .61594 .50466 L .61703 .50474 L .61823 .50482 L .61931 .50487 L .62032 .5049 L .62151 .50492 L .6226 .50492 L .62385 .5049 L .62504 .50487 L .62619 .50482 L .62743 .50474 L .62967 .50455 L .63234 .50424 L .63477 .50388 L .64005 .50285 L .64507 .50157 L .6539 .49872 L .66352 .49489 L .6849 .48509 L .70424 .47674 L .71395 .47342 L .71906 .47202 L .72444 .47081 L .72917 .47001 L .73185 .46967 L .73435 .46942 L .73553 .46933 L Mistroke .73665 .46925 L .73766 .4692 L .73874 .46915 L .73991 .46912 L .74099 .4691 L .74216 .4691 L .74344 .46911 L .74473 .46914 L .74592 .46919 L .74724 .46926 L .74863 .46935 L .75122 .46958 L .75357 .46986 L .75834 .47058 L .76284 .47147 L .77287 .47409 L .78372 .4777 L .80326 .48528 L .81361 .48928 L .82471 .49314 L .83538 .49614 L .84044 .49726 L .84512 .49809 L .84981 .49873 L .85228 .49898 L .85355 .49909 L .85491 .49918 L .85609 .49925 L .85718 .4993 L .85822 .49934 L .85932 .49937 L .86052 .49939 L .86164 .4994 L .86287 .49939 L .86418 .49936 L .86541 .49933 L .86677 .49927 L .86818 .49919 L .86951 .4991 L .87442 .49861 L .87722 .49824 L .87977 .49785 L .88552 .49676 L .89585 .49422 L .90567 .49127 L .92418 .485 L .9439 .47874 L .95263 .47652 L .95691 .47561 L .96084 .47489 L Mistroke .96436 .47435 L .96822 .47386 L .9721 .4735 L .97422 .47336 L .97619 .47325 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]HGAYHf4PAg9QL6QYHg0?ooo`030000003oool0oooo02<0oooo00<000000?ooo`3oool0303oool00`00 0000oooo0?ooo`2i0?ooo`007P3oool00`000000oooo0?ooo`0>0?ooo`030000003oool0oooo0280 oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`2h0?ooo`002P3oool4000000<0oooo 00<000000?ooo`3oool00P3oool3000000D0oooo00<000000?ooo`3oool03P3oool00`000000oooo 0?ooo`0Q0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool0;`3oool5000008<0oooo 000<0?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool00P3oool3000000l0oooo00<0 00000?ooo`3oool07`3oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo02X0oooo1@00 00040?ooo`D00000OP3oool000`0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`02 0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool07P3oool00`000000oooo0?ooo`0D 0?ooo`030000003oool0oooo02L0oooo0P00000>0?ooo`80000000000240oooo 000N0?ooo`030000003oool0oooo0140oooo00<000000?ooo`3oool05`3oool00`000000oooo0?oo o`0R0?ooo`030000003oool0oooo0140oooo0P00000/0?ooo`@000001@3oool400000600oooo000N 0?ooo`030000003oool0oooo0140oooo00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`0S 0?ooo`8000003`3oool200000380oooo1P00001S0?ooo`007P3oool2000001<0oooo00<000000?oo o`3oool05@3oool00`000000oooo0?ooo`0V0?ooo`800000303oool00`000000oooo0?ooo`2K0?oo o`007P3oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo01D0oooo00<000000?ooo`3o ool0:03oool3000000H0oooo0`00002N0?ooo`007P3oool00`000000oooo0?ooo`0B0?ooo`030000 003oool0oooo01@0oooo00<000000?ooo`3oool0;03oool600000:40oooo000N0?ooo`030000003o ool0oooo01<0oooo00<000000?ooo`3oool04`3oool00`000000oooo0?ooo`3C0?ooo`007P3oool2 000001@0oooo00<000000?ooo`3oool04P3oool00`000000oooo0?ooo`3D0?ooo`007P3oool00`00 0000oooo0?ooo`0C0?ooo`030000003oool0oooo0180oooo00<000000?ooo`3oool0e03oool001h0 oooo00<000000?ooo`3oool0503oool00`000000oooo0?ooo`0@0?ooo`030000003oool0oooo0=D0 oooo00040?ooo`@000000`3oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo0080oooo 0`0000050?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool03`3oool00`000000oooo 0?ooo`3F0?ooo`001P3oool00`000000oooo0?ooo`080?ooo`030000003oool0oooo00D0oooo00<0 00000?ooo`3oool00P3oool3000001D0oooo00<000000?ooo`3oool03P3oool00`000000oooo0?oo o`3F0?ooo`001P3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo00@0oooo00<00000 0?ooo`3oool00P3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo00d0oooo00<00000 0?ooo`3oool0e`3oool000H0oooo00<000000?ooo`3oool02@3oool010000000oooo0?ooo`3oool3 000000D0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0;0?ooo`030000003oool0 oooo0=P0oooo00060?ooo`030000003oool0oooo00X0oooo00@000000?ooo`3oool000001`3oool0 0`000000oooo0?ooo`0F0?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool0f@3oool0 00@0oooo0`0000090?ooo`040000003oool0oooo00000080oooo00<000000?ooo`3oool01@3oool2 000001P0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`3I0?ooo`001P3oool00`00 0000oooo0?ooo`070?ooo`@000000P3oool4000000@0oooo00<000000?ooo`3oool05`3oool00`00 0000oooo0?ooo`070?ooo`800000g03oool001h0oooo00<000000?ooo`3oool0603oool00`000000 oooo0?ooo`050?ooo`030000003oool0oooo0=`0oooo000N0?ooo`030000003oool0oooo01T0oooo 0P0000030?ooo`800000g`3oool001h0oooo0P00000K0?ooo`D00000h03oool001h0oooo00<00000 0?ooo`3oool0o`3oool001h0oooo00<000000?ooo`3oool0o`3oool001h0oooo00<000000?ooo`3o ool0o`3oool001h0oooo0P00003o0?ooo`40oooo000N0?ooo`030000003oool0oooo0?l0oooo000N 0?ooo`030000003oool0oooo0?l0oooo000N0?ooo`030000003oool0oooo0?l0oooo000N0?ooo`80 0000o`3oool10?ooo`007P3oool00`000000oooo0?ooo`3o0?ooo`007P3oool00`000000oooo0?oo o`3o0?ooo`005P3oool4000000@0oooo00<000000?ooo`3oool0o`3oool001H0oooo00<000000?oo o`3oool01@3oool300000?l0oooo000G0?ooo`030000003oool0oooo0?l0oooo1`3oool001P0oooo 00<000000?ooo`3oool0o`3oool60?ooo`006@3oool00`000000oooo0?ooo`3o0?ooo`D0oooo000F 0?ooo`040000003oool0oooo00000?l0oooo1`3oool00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-3.09929, -0.152823, 0.101272, 0.0124846}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell["b)", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Limit[Si[x], \ x \[Rule] \[Infinity]]\)], "Input"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ \(If[x > 0, SinIntegral[x], \[Integral]\_0\%x\( Sin[t]\/t\) \[DifferentialD]t]\), ",", RowBox[{"x", "\[Rule]", InterpretationBox["\[Infinity]", DirectedInfinity[ 1]]}]}], "]"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Si[50]]\)], "Input"], Cell[BoxData[ \(1.55161707248593572`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Si[100]]\)], "Input"], Cell[BoxData[ \(1.56222546688905623`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Si[1000]]\)], "Input"], Cell[BoxData[ \(1.57023312196877107`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[\[Pi]/2]\)], "Input"], Cell[BoxData[ \(1.57079632679489655`\)], "Output"] }, Open ]], Cell[TextData["It looks like the limit is \[Pi]/2."], "Text"] }, Open ]] }, Open ]] }, FrontEndVersion->"X 3.0", ScreenRectangle->{{0, 1024}, {0, 768}}, WindowSize->{520, 600}, WindowMargins->{{Automatic, 199}, {12, Automatic}}, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PaperSize"->{612, 792}, "PaperOrientation"->"Portrait", "Magnification"->1} ] (*********************************************************************** 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, 73, 3, 62, "Subsection"], Cell[1807, 56, 31, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[1863, 60, 27, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[1915, 64, 81, 1, 43, "Input"], Cell[1999, 67, 43, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2079, 73, 74, 1, 27, "Input"], Cell[2156, 76, 42, 1, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2235, 82, 91, 1, 43, "Input"], Cell[2329, 85, 42, 1, 40, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2420, 92, 27, 0, 42, "Subsubsection"], Cell[2450, 94, 316, 5, 33, "Text"], Cell[CellGroupData[{ Cell[2791, 103, 102, 2, 43, "Input"], Cell[2896, 107, 79, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3012, 113, 103, 2, 31, "Input"], Cell[3118, 117, 63, 1, 29, "Output"] }, Open ]], Cell[3196, 121, 35, 0, 32, "Text"], Cell[CellGroupData[{ Cell[3256, 125, 97, 2, 43, "Input"], Cell[3356, 129, 51, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3444, 135, 72, 1, 31, "Input"], Cell[3519, 138, 35, 1, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3603, 145, 27, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[3655, 149, 92, 1, 44, "Input"], Cell[3750, 152, 71, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3858, 158, 114, 2, 27, "Input"], Cell[3975, 162, 40, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4052, 168, 116, 2, 43, "Input"], Cell[4171, 172, 50, 1, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4258, 178, 37, 1, 27, "Input"], Cell[4298, 181, 54, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4389, 187, 42, 1, 27, "Input"], Cell[4434, 190, 54, 1, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4537, 197, 28, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[4590, 201, 110, 2, 43, "Input"], Cell[4703, 205, 65, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4805, 211, 108, 2, 27, "Input"], Cell[4916, 215, 40, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4993, 221, 125, 2, 42, "Input"], Cell[5121, 225, 40, 1, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5210, 232, 39, 0, 42, "Subsubsection"], Cell[5252, 234, 189, 6, 33, "Text"], Cell[CellGroupData[{ Cell[5466, 244, 119, 2, 43, "Input"], Cell[5588, 248, 79, 1, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5704, 254, 117, 2, 43, "Input"], Cell[5824, 258, 244, 5, 43, "Output"] }, Open ]], Cell[6083, 266, 505, 17, 70, "Text"], Cell[CellGroupData[{ Cell[6613, 287, 129, 2, 42, "Input"], Cell[6745, 291, 38, 1, 43, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6832, 298, 28, 0, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[6885, 302, 78, 1, 43, "Input"], Cell[6966, 305, 86, 1, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7089, 311, 114, 2, 43, "Input"], Cell[7206, 315, 47, 1, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7290, 321, 78, 1, 43, "Input"], Cell[7371, 324, 47, 1, 43, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7467, 331, 28, 0, 42, "Subsubsection"], Cell[7498, 333, 337, 11, 73, "Text"], Cell[CellGroupData[{ Cell[7860, 348, 97, 2, 49, "Input"], Cell[7960, 352, 35, 1, 27, "Output"] }, Open ]], Cell[8010, 356, 171, 6, 45, "Text"], Cell[CellGroupData[{ Cell[8206, 366, 79, 1, 49, "Input"], Cell[8288, 369, 54, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8379, 375, 85, 1, 33, "Input"], Cell[8467, 378, 90, 2, 27, "Output"] }, Open ]], Cell[8572, 383, 190, 6, 45, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[8799, 394, 28, 0, 42, "Subsubsection"], Cell[8830, 396, 376, 12, 75, "Text"], Cell[CellGroupData[{ Cell[9231, 412, 103, 2, 48, "Input"], Cell[9337, 416, 35, 1, 27, "Output"] }, Open ]], Cell[9387, 420, 192, 7, 33, "Text"], Cell[CellGroupData[{ Cell[9604, 431, 88, 1, 43, "Input"], Cell[9695, 434, 44, 1, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9776, 440, 75, 1, 49, "Input"], Cell[9854, 443, 35, 1, 27, "Output"] }, Open ]], Cell[9904, 447, 205, 7, 47, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10158, 460, 25, 0, 45, "Subsection"], Cell[10186, 462, 521, 14, 75, "Text"], Cell[CellGroupData[{ Cell[10732, 480, 101, 2, 49, "Input"], Cell[10836, 484, 35, 1, 27, "Output"] }, Open ]], Cell[10886, 488, 173, 6, 34, "Text"], Cell[CellGroupData[{ Cell[11084, 498, 82, 1, 42, "Input"], Cell[11169, 501, 42, 1, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11248, 507, 73, 1, 43, "Input"], Cell[11324, 510, 35, 1, 27, "Output"] }, Open ]], Cell[11374, 514, 570, 16, 80, "Text"], Cell[CellGroupData[{ Cell[11969, 534, 28, 0, 42, "Subsubsection"], Cell[12000, 536, 18, 0, 32, "Text"], Cell[12021, 538, 99, 2, 44, "Input"], Cell[CellGroupData[{ Cell[12145, 544, 110, 2, 43, "Input"], Cell[12258, 548, 24146, 683, 186, 6775, 464, "GraphicsData", "PostScript", "Graphics"], Cell[36407, 1233, 130, 3, 27, "Output"] }, Open ]], Cell[36552, 1239, 448, 15, 68, "Text"], Cell[CellGroupData[{ Cell[37025, 1258, 86, 1, 27, "Input"], Cell[37114, 1261, 23437, 700, 186, 7108, 494, "GraphicsData", "PostScript", "Graphics"], Cell[60554, 1963, 130, 3, 27, "Output"] }, Open ]], Cell[60699, 1969, 18, 0, 32, "Text"], Cell[CellGroupData[{ Cell[60742, 1973, 70, 1, 27, "Input"], Cell[60815, 1976, 293, 7, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61145, 1988, 42, 1, 27, "Input"], Cell[61190, 1991, 54, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61281, 1997, 43, 1, 27, "Input"], Cell[61327, 2000, 54, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61418, 2006, 44, 1, 27, "Input"], Cell[61465, 2009, 54, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61556, 2015, 43, 1, 27, "Input"], Cell[61602, 2018, 54, 1, 27, "Output"] }, Open ]], Cell[61671, 2022, 61, 0, 32, "Text"] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)