(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. 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[ 29711, 890]*) (*NotebookOutlinePosition[ 30364, 913]*) (* CellTagsIndexPosition[ 30320, 909]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Chapter 6, Section 6, Problem 5 (page 118)", "Subtitle"], Cell[BoxData[{ \(\(a = 1;\)\), "\[IndentingNewLine]", \(\(b = 0.09;\)\), "\[IndentingNewLine]", \(\(y0 = 0;\)\)}], "Input"], Cell[BoxData[ \(\(\( (*\ create\ the\ functional\ mappings\ *) \)\(\[IndentingNewLine]\)\(\(sMap[ y_] := b + a\ x\ y\^2 + a\ Integrate[\((y /. {x \[Rule] s})\)\^2, {s, 1, x}];\)\[IndentingNewLine] \(tMap[t_] := b + a\ t\^2;\)\)\)\)], "Input"], Cell[BoxData[{ \(nIters = 3; \ \ (*\ the\ number\ of\ Newton\ iterations\ to\ perform\ \ *) \[IndentingNewLine]theSIters = FixedPointList[sMap, y0, nIters];\), "\[IndentingNewLine]", \(\(theTIters = FixedPointList[tMap, 0, nIters];\)\)}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\( (*\ plot\ the\ iterations\ *) \)\(\[IndentingNewLine]\)\(Plot[ Evaluate[Drop[theSIters, 1]], {x, 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 0.0238095 0.952381 -2.70112 33.1692 [ [.21429 .6033 -9 -9 ] [.21429 .6033 9 0 ] [.40476 .6033 -9 -9 ] [.40476 .6033 9 0 ] [.59524 .6033 -9 -9 ] [.59524 .6033 9 0 ] [.78571 .6033 -9 -9 ] [.78571 .6033 9 0 ] [.97619 .6033 -3 -9 ] [.97619 .6033 3 0 ] [.01131 .03534 -36 -4.5 ] [.01131 .03534 0 4.5 ] [.01131 .11827 -30 -4.5 ] [.01131 .11827 0 4.5 ] [.01131 .20119 -36 -4.5 ] [.01131 .20119 0 4.5 ] [.01131 .28411 -24 -4.5 ] [.01131 .28411 0 4.5 ] [.01131 .36703 -36 -4.5 ] [.01131 .36703 0 4.5 ] [.01131 .44996 -30 -4.5 ] [.01131 .44996 0 4.5 ] [.01131 .53288 -36 -4.5 ] [.01131 .53288 0 4.5 ] [ 0 0 0 0 ] [ 1 .62205 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .6158 m .21429 .62205 L s [(0.2)] .21429 .6033 0 1 Mshowa .40476 .6158 m .40476 .62205 L s [(0.4)] .40476 .6033 0 1 Mshowa .59524 .6158 m .59524 .62205 L s [(0.6)] .59524 .6033 0 1 Mshowa .78571 .6158 m .78571 .62205 L s [(0.8)] .78571 .6033 0 1 Mshowa .97619 .6158 m .97619 .62205 L s [(1)] .97619 .6033 0 1 Mshowa .125 Mabswid .07143 .6158 m .07143 .61955 L s .11905 .6158 m .11905 .61955 L s .16667 .6158 m .16667 .61955 L s .2619 .6158 m .2619 .61955 L s .30952 .6158 m .30952 .61955 L s .35714 .6158 m .35714 .61955 L s .45238 .6158 m .45238 .61955 L s .5 .6158 m .5 .61955 L s .54762 .6158 m .54762 .61955 L s .64286 .6158 m .64286 .61955 L s .69048 .6158 m .69048 .61955 L s .7381 .6158 m .7381 .61955 L s .83333 .6158 m .83333 .61955 L s .88095 .6158 m .88095 .61955 L s .92857 .6158 m .92857 .61955 L s .25 Mabswid 0 .6158 m 1 .6158 L s .02381 .03534 m .03006 .03534 L s [(0.0825)] .01131 .03534 1 0 Mshowa .02381 .11827 m .03006 .11827 L s [(0.085)] .01131 .11827 1 0 Mshowa .02381 .20119 m .03006 .20119 L s [(0.0875)] .01131 .20119 1 0 Mshowa .02381 .28411 m .03006 .28411 L s [(0.09)] .01131 .28411 1 0 Mshowa .02381 .36703 m .03006 .36703 L s [(0.0925)] .01131 .36703 1 0 Mshowa .02381 .44996 m .03006 .44996 L s [(0.095)] .01131 .44996 1 0 Mshowa .02381 .53288 m .03006 .53288 L s [(0.0975)] .01131 .53288 1 0 Mshowa .125 Mabswid .02381 .05193 m .02756 .05193 L s .02381 .06851 m .02756 .06851 L s .02381 .0851 m .02756 .0851 L s .02381 .10168 m .02756 .10168 L s .02381 .13485 m .02756 .13485 L s .02381 .15143 m .02756 .15143 L s .02381 .16802 m .02756 .16802 L s .02381 .1846 m .02756 .1846 L s .02381 .21777 m .02756 .21777 L s .02381 .23436 m .02756 .23436 L s .02381 .25094 m .02756 .25094 L s .02381 .26753 m .02756 .26753 L s .02381 .3007 m .02756 .3007 L s .02381 .31728 m .02756 .31728 L s .02381 .33387 m .02756 .33387 L s .02381 .35045 m .02756 .35045 L s .02381 .38362 m .02756 .38362 L s .02381 .4002 m .02756 .4002 L s .02381 .41679 m .02756 .41679 L s .02381 .43337 m .02756 .43337 L s .02381 .46654 m .02756 .46654 L s .02381 .48313 m .02756 .48313 L s .02381 .49971 m .02756 .49971 L s .02381 .5163 m .02756 .5163 L s .02381 .54947 m .02756 .54947 L s .02381 .56605 m .02756 .56605 L s .02381 .58263 m .02756 .58263 L s .02381 .59922 m .02756 .59922 L s .02381 .01876 m .02756 .01876 L s .02381 .00217 m .02756 .00217 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 .28411 m .06244 .28411 L .10458 .28411 L .14415 .28411 L .18221 .28411 L .22272 .28411 L .26171 .28411 L .30316 .28411 L .34309 .28411 L .3815 .28411 L .42237 .28411 L .46172 .28411 L .49955 .28411 L .53984 .28411 L .57861 .28411 L .61984 .28411 L .65954 .28411 L .69774 .28411 L .73838 .28411 L .77751 .28411 L .81909 .28411 L .85916 .28411 L .89771 .28411 L .93871 .28411 L .97619 .28411 L s .02381 .01544 m .06244 .03724 L .10458 .06101 L .14415 .08334 L .18221 .10481 L .22272 .12767 L .26171 .14967 L .30316 .17305 L .34309 .19558 L .3815 .21725 L .42237 .24031 L .46172 .26251 L .49955 .28386 L .53984 .30659 L .57861 .32846 L .61984 .35172 L .65954 .37413 L .69774 .39568 L .73838 .41861 L .77751 .44069 L .81909 .46415 L .85916 .48675 L .89771 .5085 L .93871 .53164 L .97619 .55278 L s .02381 .01472 m .06244 .03298 L .10458 .05341 L .14415 .07307 L .18221 .09243 L .22272 .11351 L .26171 .13429 L .30316 .15688 L .34309 .17916 L .3815 .20107 L .42237 .2249 L .46172 .24836 L .49955 .27138 L .53984 .29642 L .57861 .32103 L .61984 .34774 L .65954 .37402 L .69774 .39981 L .73838 .4278 L .77751 .4553 L .81909 .48511 L .85916 .51441 L .89771 .54315 L .93871 .57431 L .97619 .60332 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]HGAYHf4PAg9QL6QYHg_oo`0000Goo`00ooooo`0000Soo`04003ooooo0002ool01000ooooo`001Ooo00@00?ooool0 00Ooo`03003ooooo00Ooo`8000;oo`800>Woo`0000Goo`00ooooo`0000Soo`04003ooooo0002ool0 1000ooooo`000_oo00@00?ooool000;oo`03003ooooo00Goo`03003ooooo00Woo`8000;oo`800>Oo o`000_oo0P002_oo0P001?oo0P001?oo0P000ooo10001?oo0P003?oo0P000_oo0P00iOoo000Wool0 0`00ooooo`0=ool20002ool2003Sool002Ooo`03003ooooo00ooo`8000;oo`800>7oo`009ooo00<0 0?ooool04Ooo0P000_oo0P00gooo000Wool2000Dool20002ool2003Mool002Ooo`03003ooooo01Go o`8000;oo`800=_oo`009ooo00<00?ooool05ooo0P000_oo0P00fOoo000Wool00`00ooooo`0Iool2 0002ool2003Gool002Ooo`03003ooooo01_oo`04003oooooool2003Eool002Ooo`8001goo`8000?o o`800=?oo`009ooo00<00?ooool07_oo0P000ooo0P00dOoo000Wool00`00ooooo`0Pool00`00oooo o`02ool2003?ool002Ooo`03003ooooo027oo`8000Coo`800ool00`00ooooo`04ool2002O ool00005ool00?ooool00008ool01000ooooo`000_oo00@00?ooool000Coo`03003ooooo00Coo`03 003ooooo00;oo`80053oo`8000Koo`03003ooooo09coo`0000Goo`00ooooo`0000Soo`04003ooooo 0003ool20005ool01000oooooooo0`001Ooo00<00?ooool0DOoo0P001Ooo0P00W?oo00001Ooo003o oooo00002?oo00@00?ooool000;oo`04003ooooo0005ool01000ooooo`001ooo00<00?ooool0Dooo 0P001Ooo0P00V_oo00001Ooo003ooooo00002?oo00@00?ooool000;oo`04003ooooo0002ool01000 ooooo`000_oo00<00?ooool01Ooo00<00?ooool0EOoo0P001Ooo0P00V?oo0002ool2000:ool20004 ool20003ool40002ool40004ool2001Hool00`00ooooo`04ool2002Fool002Ooo`03003ooooo05So o`8000Koo`8009Coo`009ooo00<00?ooool0F_oo0P001_oo00<00?ooool0TOoo000Wool00`00oooo o`1Lool20005ool2002Aool002Ooo`03003ooooo05koo`8000Goo`8008ooo`009ooo0P00HOoo0P00 1Ooo00<00?ooool0S?oo000Wool00`00ooooo`1Rool00`00ooooo`03ool2002ool20004ool00`00ooooo`03ool20003ool30005ool00`00ooooo`1aool20003ool2 001nool000goo`04003ooooo0008ool01000ooooo`001Ooo00<00?ooool00_oo00<00?ooool0Looo 0P000ooo0P00O?oo000=ool01000ooooo`002?oo00@00?ooool000Goo`03003ooooo00;ooo8000Oo o`003Ooo00@00?ooool000Soo`04003ooooo0003ool30004ool00`00ooooo`1fool20004ool2001h ool000goo`04003ooooo0008ool01000ooooo`000_oo00@00?ooool000Coo`03003ooooo07Soo`80 00Coo`8007Koo`003Ooo00@00?ooool000Soo`04003ooooo0002ool01000ooooo`001?oo00<00?oo ool0N_oo0P001?oo00<00?ooool0Looo000>ool2000:ool20004ool20005ool2001mool20003ool2 001cool002Ooo`03003ooooo07koo`8000?oo`03003ooooo073oo`009ooo00<00?ooool0P?oo0P00 0_oo0P00L?oo000Wool00`00ooooo`22ool20002ool00`00ooooo`1]ool002Ooo`03003ooooo08Co o`800003ool00?oo06goo`009ooo0P00Qooo1000K?oo000Wool00`00ooooo`28ool3001[ool002Oo o`03003ooooo08[oo`<006Woo`009ooo00<00?ooool0Rooo1000Iooo000Wool2002>ool3001Vool0 02Ooo`03003ooooo08ooo`<006Coo`009ooo00<00?ooool0T?oo1000H_oo000Wool00`00ooooo`2B ool3001Qool002Ooo`8009Goo`<005ooo`009ooo00<00?ooool0UOoo0`00G_oo0002ool20004ool0 0`00ooooo`03ool20003ool30003ool40002ool30005ool00`00ooooo`2Gool3001Lool00005ool0 0?ooool00008ool01000ooooo`001Ooo00@00?ooool000Soo`03003ooooo00;oo`03003ooooo09Wo o`8005_oo`0000Goo`00ooooo`0000Soo`04003ooooo0005ool01@00oooooooo00001ooo00<00?oo ool00_oo0P00Vooo0P00F_oo00001Ooo003ooooo00002?oo00@00?ooool000?oo`<000Coo`04003o ooooool30005ool00`00ooooo`2Lool2001Hool00005ool00?ooool00008ool01000ooooo`000_oo 00@00?ooool000Goo`04003ooooo0007ool00`00ooooo`2Nool00`00ooooo`1Eool00005ool00?oo ool00008ool01000ooooo`000_oo00@00?ooool000;oo`04003ooooo0002ool00`00ooooo`05ool0 0`00ooooo`2Oool2001Eool000;oo`8000[oo`8000Coo`8000Coo`8000?oo`@000Coo`800:;oo`80 05?oo`009ooo00<00?ooool0X_oo0P00D_oo000Wool00`00ooooo`2Tool2001@ool002Ooo`03003o oooo0:Goo`<004koo`009ooo00<00?ooool0Y_oo1000C?oo000Wool2002Yool01000ool00000B_oo 000Wool00`00ooooo`2Yool200000ooo00000018ool002Ooo`03003ooooo0:_oo`03003ooooo0080 04Koo`009ooo00<00?ooool0[?oo0P000_oo0P00A?oo000Wool2002_ool01@00oooooooo0000@ooo 000Wool00`00ooooo`2_ool01000oooooooo0P00@Ooo000Wool00`00ooooo`2`ool20003ool2000o ool002Ooo`03003ooooo0;;oo`03003ooooo00;oo`03003ooooo03coo`009ooo0P00]?oo0P000ooo 0P00??oo000Wool00`00ooooo`2eool00`00ooooo`02ool2000jool000Soo`8000Coo`03003ooooo 00?oo`8000?oo`<000?oo`<000Goo`03003ooooo0;Koo`8000Coo`03003ooooo03Ooo`001ooo00@0 0?ooool000Soo`04003ooooo0005ool00`00ooooo`03ool00`00ooooo`02ool00`00ooooo`2hool0 0`00ooooo`02ool2000gool000Ooo`04003ooooo0008ool01000ooooo`001Ooo00<00?ooool00ooo 00<00?ooool00_oo0P00^_oo00<00?ooool00ooo0P00=Ooo0007ool01000ooooo`002?oo00@00?oo ool000?oo`<000;oo`<000Goo`03003ooooo0;[oo`8000Goo`8003?oo`001ooo00@00?ooool000So o`04003ooooo0002ool01000ooooo`000_oo00<00?ooool01Ooo00<00?ooool0_?oo00<00?ooool0 1?oo0P00ool2000;ool00`00ooooo`0Hool002Ooo`03003ooooo0=3oo`03003ooooo00Woo`8001Soo`00 9ooo0P00d_oo00<00?ooool02_oo0P005_oo000Wool00`00ooooo`3Bool20007oo`03003ooooo01;oo`009ooo0P00hooo 0P004_oo000Wool00`00ooooo`3Tool00`00ooooo`0?ool002Ooo`03003ooooo02Koo`8000Coo`03 003ooooo00;oo`@0027oo`8000Coo`03003ooooo00Coo`03003ooooo027oo`8000Coo`03003ooooo 00?oo`8002;oo`8000Coo`03003ooooo00?oo`80023oo`03003ooooo00Coo`@000Koo`009ooo00<0 0?ooool09Ooo00@00?ooool000Soo`03003ooooo027oo`04003ooooo000:ool00`00ooooo`0Pool0 1000ooooo`002?oo00@00?ooool0023oo`04003ooooo0008ool01000ooooo`008?oo00<00?ooool0 1Ooo00<00?ooool01Ooo000Wool2000Vool01000ooooo`002Ooo00<00?ooool08?oo00@00?ooool0 00Ooo`D0027oo`04003ooooo0008ool01000ooooo`008?oo00@00?ooool000Soo`04003ooooo000Q ool20005ool00`00ooooo`05ool002Ooo`03003ooooo02Goo`04003ooooo000:ool00`00ooooo`0O ool01000ooooo`001ooo00@00?ooool002;oo`04003ooooo0008ool3000Qool01000ooooo`002Ooo 0P009?oo00<00?ooool00_oo00<00?ooool01Ooo000Wool00`00ooooo`0Uool01000ooooo`002ooo 00<00?ooool07_oo00@00?ooool000Soo`03003oo`0002;oo`04003ooooo0008ool00`00ooooo`0Q ool01000ooooo`002?oo00@00?ooool002Coo`05003oooooool00007ool002Ooo`03003ooooo02Go o`04003ooooo0008ool01000ooooo`008?oo00@00?ooool000Woo`8002;oo`04003ooooo0008ool0 0`00ooooo`0Qool01000ooooo`002?oo00@00?ooool002Goo`@000Ooo`009ooo0P009ooo0P002_oo 0P008_oo0P002ooo00<00?ooool08Ooo0P002_oo0`008Ooo0P002_oo0P00:?oo0P001ooo000Wool0 0`00ooooo`3^ool00`00ooooo`05ool002Ooo`03003ooooo0?Koo`009ooo00<00?ooool0m_oo000Q oooo000002Ooo`03003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03 003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03 003ooooo00[oo`03003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03 003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03003ooooo00Woo`03 003ooooo00Woo`03003ooooo00Goo`00Eooo00<00?ooool0;Ooo00<00?ooool0;_oo00<00?ooool0 ;Ooo00<00?ooool0;Ooo00<00?ooool01Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool0 0?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.162025, 0.0803053, \ 0.004136, 0.000118756}}] }, Open ]], Cell[BoxData[{ \(\(tItersErr = Abs[Drop[theTIters, \(-1\)] - Drop[theTIters, 1]];\)\[IndentingNewLine] (*\ sItersErrX\ are\ the\ errors\ as\ a\ function\ of\ x, \ we\ will\ discretly\ sample\ these\ functions\ to\ evaluate\ the\ max\ \ error\ \((L_Infity\ norm)\)\ *) \), "\[IndentingNewLine]", \(\(sItersErrX = Drop[theSIters, \(-1\)] - Drop[theSIters, 1];\)\[IndentingNewLine] (*\ sample\ the\ sIterErrX\ at\ a\ number\ of\ points\ in\ the\ interval\ \ 0, 1\ and\ take\ the\ error\ to\ be\ the\ max\ *) \), "\[IndentingNewLine]", \(\(nSamps = 100;\)\ \), "\n", \(\(sItersErr = Map[Max, Abs[Transpose[ Table[sItersErrX, {x, 0, 1, N[1/nSamps]}]]]];\)\)}], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(lp1 = ListPlot[Log[tItersErr], PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[0, 1, 0], DisplayFunction \[Rule] Identity];\)\), "\[IndentingNewLine]", \(\(lp2 = ListPlot[Log[sItersErr], PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[1, 0, 0], DisplayFunction \[Rule] Identity];\)\), "\[IndentingNewLine]", \(\(Show[{lp1, lp2}, DisplayFunction \[Rule] $DisplayFunction];\)\)}], "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.452381 0.47619 0.950811 0.144311 [ [.2619 .07245 -9 -9 ] [.2619 .07245 9 0 ] [.5 .07245 -3 -9 ] [.5 .07245 3 0 ] [.7381 .07245 -9 -9 ] [.7381 .07245 9 0 ] [.97619 .07245 -3 -9 ] [.97619 .07245 3 0 ] [.01131 .22926 -12 -4.5 ] [.01131 .22926 0 4.5 ] [.01131 .37357 -12 -4.5 ] [.01131 .37357 0 4.5 ] [.01131 .51788 -12 -4.5 ] [.01131 .51788 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .2619 .08495 m .2619 .0912 L s [(1.5)] .2619 .07245 0 1 Mshowa .5 .08495 m .5 .0912 L s [(2)] .5 .07245 0 1 Mshowa .7381 .08495 m .7381 .0912 L s [(2.5)] .7381 .07245 0 1 Mshowa .97619 .08495 m .97619 .0912 L s [(3)] .97619 .07245 0 1 Mshowa .125 Mabswid .07143 .08495 m .07143 .0887 L s .11905 .08495 m .11905 .0887 L s .16667 .08495 m .16667 .0887 L s .21429 .08495 m .21429 .0887 L s .30952 .08495 m .30952 .0887 L s .35714 .08495 m .35714 .0887 L s .40476 .08495 m .40476 .0887 L s .45238 .08495 m .45238 .0887 L s .54762 .08495 m .54762 .0887 L s .59524 .08495 m .59524 .0887 L s .64286 .08495 m .64286 .0887 L s .69048 .08495 m .69048 .0887 L s .78571 .08495 m .78571 .0887 L s .83333 .08495 m .83333 .0887 L s .88095 .08495 m .88095 .0887 L s .92857 .08495 m .92857 .0887 L s .25 Mabswid 0 .08495 m 1 .08495 L s .02381 .22926 m .03006 .22926 L s [(-5)] .01131 .22926 1 0 Mshowa .02381 .37357 m .03006 .37357 L s [(-4)] .01131 .37357 1 0 Mshowa .02381 .51788 m .03006 .51788 L s [(-3)] .01131 .51788 1 0 Mshowa .125 Mabswid .02381 .11381 m .02756 .11381 L s .02381 .14267 m .02756 .14267 L s .02381 .17153 m .02756 .17153 L s .02381 .2004 m .02756 .2004 L s .02381 .25812 m .02756 .25812 L s .02381 .28698 m .02756 .28698 L s .02381 .31584 m .02756 .31584 L s .02381 .34471 m .02756 .34471 L s .02381 .40243 m .02756 .40243 L s .02381 .43129 m .02756 .43129 L s .02381 .46015 m .02756 .46015 L s .02381 .48902 m .02756 .48902 L s .02381 .05609 m .02756 .05609 L s .02381 .02722 m .02756 .02722 L s .02381 .54674 m .02756 .54674 L s .02381 .5756 m .02756 .5756 L s .02381 .60447 m .02756 .60447 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 0 1 0 r .5 Mabswid .02381 .60332 m .5 .25583 L .97619 .01472 L s 1 0 0 r .02381 .60332 m .5 .25583 L .97619 .01472 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]HGAYHf4PAg9QL6QYHgool000ooo`03003ooooo0?coo`;h013oo`003ooo00<0 0?ooool0n_oo0_P04_oo000?ool00`00ooooo`3hool2n00Dool000ooo`03003ooooo0?Koo`;h01Ko o`003ooo00<00?ooool0=ooo10000ooo00<00?ooool00_oo0`00>Ooo1000>Ooo10000ooo00<00?oo ool00_oo0`00:Ooo0_P03ooo0P001ooo000?ool00`00ooooo`0iool00`00ooooo`0:ool00`00oooo o`0fool00`00ooooo`0jool00`00ooooo`0Ooo00<00?ooool01ooo00<00?ooool0??oo00<00?ooool0>_oo00<00?ooool01_oo00<00?ooool0 8Ooo0_P06Ooo00<00?ooool01?oo000?ool00`00ooooo`0gool30009ool00`00ooooo`0iool01000 ooooo`00>Ooo00@00?ooool000Soo`03003ooooo01ooo`;h01Soo`04003ooooo0006ool000ooo`03 003ooooo03Woo`03003ooooo00Ooo`@003Woo`8003_oo`8000Woo`@001coo`;h01_oo`8000Ooo`00 3ooo00<00?ooool0i_oo0_P09_oo000?ool00`00ooooo`3Tool2n00Xool000ooo`03003ooooo0>;o o`;h02[oo`003ooo00<00?ooool0h?oo0_P0;?oo0008oooX0002n00^000000ooo`03003ooooo00[o o`03003ooooo00[oo`03003ooooo00_oo`03003ooooo00[oo`03003ooooo00[oo`03003ooooo00[o o`03003ooooo00_oo`03003ooooo00[oo`03003ooooo00[oo`03003ooooo00[oo`03003ooooo00_o o`03003ooooo00[oo`03003ooooo00[oo`03003ooooo00[oo`03003ooooo00_oo`03003ooooo00[o o`03003ooooo00Soo`;h0003003ooooo00[oo`03003ooooo00_oo`03003ooooo00[oo`03003ooooo 00Goo`003ooo00<00?ooool0f_oo0_P0<_oo000?ool00`00ooooo`3Hool2n00dool000ooo`03003o oooo0=Koo`;h03Koo`003ooo00<00?ooool0e?oo0_P0>?oo000?ool00`00ooooo`3Bool2n00jool0 00ooo`03003ooooo0=3oo`;h03coo`003ooo0P00cooo0_P0?_oo000?ool00`00ooooo`3ool000ooo`03003ooooo03_oo`;h 0=7oo`003ooo00<00?ooool0>_oo00?h0?ooool0dOoo000?ool00`00ooooo`0iool00oP0ooooo`3B ool000ooo`03003ooooo03Ooo`;h0=Goo`003ooo00<00?ooool0=_oo00?h0?ooool0eOoo000?ool0 0`00ooooo`0eool00oP0ooooo`3Fool000ooo`8003Coo`;h0=Woo`003ooo00<00?ooool0<_oo00?h 0?ooool0fOoo000?ool00`00ooooo`0aool00oP0ooooo`3Jool000ooo`03003ooooo02ooo`;h0=go o`003ooo00<00?ooool0;_oo00?h0?ooool0gOoo000?ool00`00ooooo`0/ool2n03Pool000ooo`03 003ooooo02_oo`03n03ooooo0>3oo`003ooo00<00?ooool0:_oo00?h0?ooool0hOoo000?ool2000Y ool2n03Tool000ooo`03003ooooo02Ooo`03n03ooooo0>Coo`003ooo00<00?ooool09_oo00?h0?oo ool0iOoo000?ool00`00ooooo`0Tool2n03Xool000ooo`03003ooooo02?oo`03n03ooooo0>Soo`00 3ooo00<00?ooool08_oo00?h0?ooool0jOoo0008ool20005ool00`00ooooo`0Pool2n03/ool000Oo o`04003ooooo0004ool00`00ooooo`0Oool00oP0ooooo`3/ool000[oo`03003ooooo00;oo`<001go o`;h0>ooo`0000?oo`0000000P000ooo0P001Ooo00<00?ooool07?oo00?h0?ooool0kooo000:ool0 0`00ooooo`02ool00`00ooooo`0Kool00oP0ooooo`3`ool000Ooo`04003ooooo0004ool00`00oooo o`0Iool2n03cool000Soo`8000Goo`03003ooooo01Soo`03n03ooooo0??oo`003ooo00<00?ooool0 5ooo00?h0?ooool0m?oo000?ool00`00ooooo`0Eool2n03gool000ooo`03003ooooo01Coo`03n03o oooo0?Ooo`003ooo0P005?oo00?h0?ooool0n?oo000?ool00`00ooooo`0Aool2n03kool000ooo`03 003ooooo013oo`03n03ooooo0?_oo`003ooo00<00?ooool03ooo00?h0?ooool0o?oo000?ool00`00 ooooo`0=ool2n03oool000ooo`03003ooooo00coo`03n03ooooo0?ooo`003ooo00<00?ooool02_oo 0_P0oooo0ooo000?ool00`00ooooo`09ool00oP0ooooo`3oool3ool000ooo`8000Woo`03n03ooooo 0?ooo`Coo`003ooo00<00?ooool01_oo0_P0oooo1ooo000?ool00`00ooooo`05ool00oP0ooooo`3o ool7ool000ooo`03003ooooo00Coo`03n03ooooo0?ooo`Soo`003ooo00<00?ooool00_oo0_P0oooo 2ooo000?ool01@00oooooooon000oooo3Ooo000?ool01000ooooooP0oooo3_oo000?ool00`00n03h 003oool?ool000ooo`03n0000?oo0?ooo`ooo`003ooo00<00?ooool0oooo3ooo000?ool00`00oooo o`3oool?ool000ooo`03003ooooo0?ooo`ooo`003ooo00<00?ooool0oooo3ooo003ooolQool00?oo ob7oo`00\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {0.883141, -6.65137, \ 0.00755008, 0.0249134}}] }, Open ]] }, Open ]] }, FrontEndVersion->"5.2 for X", ScreenRectangle->{{0, 1600}, {0, 1200}}, WindowSize->{1273, 862}, WindowMargins->{{Automatic, 128}, {Automatic, 70}}, ShowSelection->True ] (******************************************************************* 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[1776, 53, 62, 0, 51, "Subtitle"], Cell[1841, 55, 137, 3, 59, "Input"], Cell[1981, 60, 295, 6, 65, "Input"], Cell[2279, 68, 271, 5, 59, "Input"], Cell[CellGroupData[{ Cell[2575, 77, 161, 3, 43, "Input"], Cell[2739, 82, 15623, 473, 186, 4792, 335, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]], Cell[18377, 558, 780, 16, 107, "Input"], Cell[CellGroupData[{ Cell[19182, 578, 499, 10, 59, "Input"], Cell[19684, 590, 9999, 296, 186, 2701, 201, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)