(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 4.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[ 33393, 744]*) (*NotebookOutlinePosition[ 34038, 766]*) (* CellTagsIndexPosition[ 33994, 762]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Skeleton Notebook for Lab #4, Dow Jones least-squares problem\ \>", "Title"], Cell[CellGroupData[{ Cell["Part a", "Section"], Cell["\<\ Here's the data, both the list of the Dow levels and the years.\ \>", "Text", FontSize->24], Cell[CellGroupData[{ Cell[BoxData[ \(dow = {1005, 831, 805, 838, 963, 875, 1066, 1258, 1211, 1546, 1895, 1938, 2168, 2753, 2633, 3168, 3301, 3754, 3834, 5117, 6448, 7908, 9181, 11497, 10786, 10021}\)], "Input"], Cell[BoxData[ \({1005, 831, 805, 838, 963, 875, 1066, 1258, 1211, 1546, 1895, 1938, 2168, 2753, 2633, 3168, 3301, 3754, 3834, 5117, 6448, 7908, 9181, 11497, 10786, 10021}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(yrs\ = \ Table[i, {i, 1976, 2001}]\)], "Input"], Cell[BoxData[ \({1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001}\)], "Output"] }, Open ]], Cell["Here's a plot of the data", "Text", FontSize->24], Cell[CellGroupData[{ Cell[BoxData[ \(rawdata = ListPlot[Transpose[{yrs, dow}], PlotStyle \[Rule] PointSize[0.02]]\)], "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 -75.2524 0.0380952 0.0147151 5.11963e-005 [ [.36667 .00222 -12 -9 ] [.36667 .00222 12 0 ] [.55714 .00222 -12 -9 ] [.55714 .00222 12 0 ] [.74762 .00222 -12 -9 ] [.74762 .00222 12 0 ] [.9381 .00222 -12 -9 ] [.9381 .00222 12 0 ] [.16369 .11711 -24 -4.5 ] [.16369 .11711 0 4.5 ] [.16369 .2195 -24 -4.5 ] [.16369 .2195 0 4.5 ] [.16369 .32189 -24 -4.5 ] [.16369 .32189 0 4.5 ] [.16369 .42429 -24 -4.5 ] [.16369 .42429 0 4.5 ] [.16369 .52668 -30 -4.5 ] [.16369 .52668 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 .36667 .01472 m .36667 .02097 L s [(1985)] .36667 .00222 0 1 Mshowa .55714 .01472 m .55714 .02097 L s [(1990)] .55714 .00222 0 1 Mshowa .74762 .01472 m .74762 .02097 L s [(1995)] .74762 .00222 0 1 Mshowa .9381 .01472 m .9381 .02097 L s [(2000)] .9381 .00222 0 1 Mshowa .125 Mabswid .21429 .01472 m .21429 .01847 L s .25238 .01472 m .25238 .01847 L s .29048 .01472 m .29048 .01847 L s .32857 .01472 m .32857 .01847 L s .40476 .01472 m .40476 .01847 L s .44286 .01472 m .44286 .01847 L s .48095 .01472 m .48095 .01847 L s .51905 .01472 m .51905 .01847 L s .59524 .01472 m .59524 .01847 L s .63333 .01472 m .63333 .01847 L s .67143 .01472 m .67143 .01847 L s .70952 .01472 m .70952 .01847 L s .78571 .01472 m .78571 .01847 L s .82381 .01472 m .82381 .01847 L s .8619 .01472 m .8619 .01847 L s .9 .01472 m .9 .01847 L s .1381 .01472 m .1381 .01847 L s .1 .01472 m .1 .01847 L s .0619 .01472 m .0619 .01847 L s .02381 .01472 m .02381 .01847 L s .97619 .01472 m .97619 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .17619 .11711 m .18244 .11711 L s [(2000)] .16369 .11711 1 0 Mshowa .17619 .2195 m .18244 .2195 L s [(4000)] .16369 .2195 1 0 Mshowa .17619 .32189 m .18244 .32189 L s [(6000)] .16369 .32189 1 0 Mshowa .17619 .42429 m .18244 .42429 L s [(8000)] .16369 .42429 1 0 Mshowa .17619 .52668 m .18244 .52668 L s [(10000)] .16369 .52668 1 0 Mshowa .125 Mabswid .17619 .04031 m .17994 .04031 L s .17619 .06591 m .17994 .06591 L s .17619 .09151 m .17994 .09151 L s .17619 .14271 m .17994 .14271 L s .17619 .1683 m .17994 .1683 L s .17619 .1939 m .17994 .1939 L s .17619 .2451 m .17994 .2451 L s .17619 .2707 m .17994 .2707 L s .17619 .29629 m .17994 .29629 L s .17619 .34749 m .17994 .34749 L s .17619 .37309 m .17994 .37309 L s .17619 .39869 m .17994 .39869 L s .17619 .44988 m .17994 .44988 L s .17619 .47548 m .17994 .47548 L s .17619 .50108 m .17994 .50108 L s .17619 .55228 m .17994 .55228 L s .17619 .57787 m .17994 .57787 L s .17619 .60347 m .17994 .60347 L s .25 Mabswid .17619 0 m .17619 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .02 w .02381 .06617 Mdot .0619 .05726 Mdot .1 .05593 Mdot .1381 .05762 Mdot .17619 .06402 Mdot .21429 .05951 Mdot .25238 .06929 Mdot .29048 .07912 Mdot .32857 .07671 Mdot .36667 .09386 Mdot .40476 .11173 Mdot .44286 .11393 Mdot .48095 .12571 Mdot .51905 .15566 Mdot .55714 .14951 Mdot .59524 .1769 Mdot .63333 .18371 Mdot .67143 .20691 Mdot .70952 .211 Mdot .74762 .27669 Mdot .78571 .34483 Mdot .82381 .41958 Mdot .8619 .48475 Mdot .9 .60332 Mdot .9381 .56692 Mdot .97619 .52775 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{492.75, 304.563}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg4000001P3o ool00180oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0 oooo00l0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0 oooo00l0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0 oooo0100oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0 oooo00l0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0 oooo00l0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0 oooo0100oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0 oooo00l0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0 oooo00l0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0@0?ooo`004P3oool00`00 0000oooo0?ooo`0?0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool03`3oool00`00 0000oooo0?ooo`0?0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool03`3oool00`00 0000oooo0?ooo`0?0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool0403oool00`00 0000oooo0?ooo`0?0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool03`3oool00`00 0000oooo0?ooo`0?0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool03`3oool00`00 0000oooo0?ooo`0?0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool0403oool00`00 0000oooo0?ooo`0?0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool03`3oool00`00 0000oooo0?ooo`0?0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool03`3oool00`00 0000oooo0?ooo`0?0?ooo`030000003oool0oooo0100oooo001J0?ooo`030000003oool0oooo05T0 oooo00<000000?ooo`3oool0F03oool00`000000oooo0?ooo`1H0?ooo`030000003oool0oooo05P0 oooo00<000000?ooo`3oool08P3oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3o ool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool0 05X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00 oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3o oon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`<00000o`3ooon@0?oo o`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0oooo T03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00=@3oool300000280oooo00<00000 0?ooo`3oool0o`3ooon@0?ooo`008`3oool3000000d0oooo1`00000=0?ooo`<00000403oool00`00 0000oooo0?ooo`3o0?oooi00oooo000Q0?ooo`L000002`3oool7000000/0oooo1`00000>0?ooo`03 0000003oool0oooo00h0oooo0`00003o0?ooogl0oooo000Q0?ooo`L000002P3oool9000000X0oooo 1`00000>0?ooo`030000003oool0oooo00`0oooo1`00003o0?ooogd0oooo000P0?ooo`T000002@3o ool9000000T0oooo2@00000<0?ooo`<000003@3oool700000?l0ooooO@3oool00100oooo0`00000= 0?ooo`T000002@3oool9000000T0oooo2@00000:0?ooo`L000002P3oool900000?l0ooooO03oool0 00h0oooo1`00000;0?ooo`T000002P3oool7000000X0oooo2@00000:0?ooo`L000002P3oool90000 00d0oooo0`00003o0?ooof`0oooo000>0?ooo`L00000303oool7000000/0oooo1`00000;0?ooo`L0 00002P3oool9000000T0oooo2@00000;0?ooo`L00000o`3ooomZ0?ooo`003@3oool9000000/0oooo 1`00000=0?ooo`<000003@3oool7000000X0oooo2@00000:0?ooo`L00000303oool700000?l0oooo JP3oool000d0oooo2@00000=0?ooo`<000008@3oool3000000`0oooo2@00000:0?ooo`L000002`3o ool900000?l0ooooJ@3oool000d0oooo2@0000110?ooo`L000003@3oool3000000d0oooo2@00000N 0?ooo`<00000o`3ooom80?ooo`003P3oool700000480oooo1`00000M0?ooo`T00000303oool30000 00d0oooo1`00003o0?ooodH0oooo000>0?ooo`L00000A03oool300000200oooo1`00000;0?ooo`L0 00002`3oool700000?l0ooooAP3oool00100oooo0`0000170?ooo`030000003oool0oooo01l0oooo 1`00000;0?ooo`L000002P3oool900000?l0ooooA@3oool005X0oooo00<000000?ooo`3oool08@3o ool3000000`0oooo2@0000090?ooo`T00000o`3ooom50?ooo`00FP3oool00`000000oooo0?ooo`0` 0?ooo`T000002@3oool900000?l0ooooA@3oool005X0oooo00<000000?ooo`3oool0<03oool90000 00X0oooo1`00003o0?ooodH0oooo001J0?ooo`030000003oool0oooo0340oooo1`00000;0?ooo`L0 0000o`3ooom60?ooo`00FP3oool00`000000oooo0?ooo`0a0?ooo`L000003@3oool3000000l0oooo 0`00003o0?ooocH0oooo001J0?ooo`030000003oool0oooo03<0oooo0`00000O0?ooo`L00000o`3o oold0?ooo`00FP3oool00`000000oooo0?ooo`1E0?ooo`L00000o`3ooold0?ooo`00FP3oool30000 05@0oooo2@00003o0?oooc<0oooo001J0?ooo`030000003oool0oooo05@0oooo2@00003o0?oooc<0 oooo001J0?ooo`030000003oool0oooo05@0oooo2@00003o0?oooc<0oooo001J0?ooo`030000003o ool0oooo05D0oooo1`00003o0?oooc@0oooo001J0?ooo`030000003oool0oooo05D0oooo1`00003o 0?oooc@0oooo001J0?ooo`030000003oool0oooo05L0oooo0`00003o0?ooocH0oooo001J0?ooo`03 0000003oool0oooo06X0oooo0`00003o0?ooob<0oooo001J0?ooo`030000003oool0oooo06P0oooo 1`00000=0?ooo`<00000o`3ooolA0?ooo`00FP3oool00`000000oooo0?ooo`1X0?ooo`L000002`3o ool700000?l0oooo3`3oool005X0oooo00<000000?ooo`3oool0I`3oool9000000X0oooo1`00003o 0?ooo`l0oooo000m0?ooo`080?noM000000000000000000007@0_ooo0?ooo`3OW4P20000000404RL g`3oool0oooo0=nLB080000000@0B9cO0?ooo`3oool0gia80P0000000`18W=l0oooo0?ooo`040?oo o`030000003oool0oooo06L0oooo2@0000090?ooo`T00000o`3oool>0?ooo`00?P3oool00`2LB000 001d0;ooo`030?ooo`0709adW03oool0oooo09a8M02oool0oooo09adW0020?ooo`0409a8M02oool0 oooo09adW080oooo00<0W4Qd0;ooo`3oool0103oool00`000000oooo0?ooo`1W0?ooo`T000002@3o ool900000?l0oooo3P3oool003l0oooo00H0okmd0000001d_ol0oooo0?oo_`1dB9`20?ooo`040;md B02Lgol0oono07A8W080oooo00@0_gA809cOo`3ookl0M4RL0P3oool00`2oM4P0W=oo0?ooo`040?oo o`@00000I`3oool7000000X0oooo2@00000<0?ooo`<00000oP3oool00400oooo00D0oono0;noo`3o ool0oono07A8W0020?ooo`040;mdB02Lgol0oono07A8W080oooo00@0_gA809cOo`3ookl0M4RL0P3o ool00`2oM4P0W=oo0?ooo`040?ooo`030000003oool0oooo06P0oooo1`00000;0?ooo`L000002`3o ool700000?`0oooo000m0?ooo`0H0?oOW018B9`0oooo0?oo_`1d07@0_ooo0?ooo`2LB4P0W=oo0?oo _`1d07@0_ooo0?ooo`2LB4P0W=oo0?oo_`1d07@0_ooo0?ooo`2LB4P0W=oo0?oo_`1d07@0_ooo1@3o ool00`000000oooo0?ooo`1Z0?ooo`<000003@3oool7000000/0oooo1`00003l0?ooo`00?P3oool0 103OW4P0000000000018W=l20?ooo`040?oOW0180000000007Boo`80oooo00@0omnL04P000000000 M;oo0P3oool0103ogi`0B0000000001d_ol60?ooo`030000003oool0oooo07`0oooo0`00000<0?oo o`T00000n`3oool005X0oooo00<000000?ooo`3oool0R`3oool900000?/0oooo001J0?ooo`030000 003oool0oooo08/0oooo2@00003k0?ooo`00FP3oool00`000000oooo0?ooo`2<0?ooo`L00000o03o ool005X0oooo00<000000?ooo`3oool0S03oool700000?`0oooo001J0?ooo`030000003oool0oooo 08h0oooo0`00003n0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000 003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool3 00000;80oooo0`00003J0?ooo`00FP3oool00`000000oooo0?ooo`2`0?ooo`L00000f03oool005X0 oooo00<000000?ooo`3oool0/03oool700000=P0oooo001J0?ooo`030000003oool0oooo0:00oooo 0`00000<0?ooo`T00000e`3oool005X0oooo00<000000?ooo`3oool0WP3oool7000000X0oooo2@00 003G0?ooo`00FP3oool00`000000oooo0?ooo`2N0?ooo`L000002P3oool900000=L0oooo001J0?oo o`030000003oool0oooo09d0oooo2@00000:0?ooo`L00000f03oool005X0oooo00<000000?ooo`3o ool0W@3oool9000000X0oooo1`00003H0?ooo`00FP3oool00`000000oooo0?ooo`2M0?ooo`T00000 303oool300000=X0oooo001J0?ooo`030000003oool0oooo09h0oooo1`00003Z0?ooo`00FP3oool0 0`000000oooo0?ooo`2N0?ooo`L00000jP3oool005X0oooo00<000000?ooo`3oool0X03oool30000 0>`0oooo001J0?ooo`<00000o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`350?ooo`<00000 a`3oool005X0oooo00<000000?ooo`3oool0``3oool700000L0oooo1`00000=0?ooo`<00000T@3oool005X0oooo00<00000 0?ooo`3oool0iP3oool9000000X0oooo1`00002?0?ooo`00FP3oool00`000000oooo0?ooo`3V0?oo o`T000002P3oool7000008l0oooo001J0?ooo`030000003oool0oooo0>H0oooo2@0000090?ooo`T0 0000SP3oool005X0oooo00<000000?ooo`3oool0i`3oool7000000X0oooo2@00002>0?ooo`00FP3o ool00`000000oooo0?ooo`3W0?ooo`L000002P3oool9000008h0oooo000o0?ooo`060=nLB0000000 001809cOo`3oool0gia80P0000001018W=l0oooo0?ooo`3OW4P20000000404RLg`3oool0oooo0=nL B080000000<0B9cO0?ooo`3oool0103oool00`000000oooo0?ooo`3Y0?ooo`<000003@3oool70000 08l0oooo00100?ooo`050?noM018W=l0oooo0?ooo`2LM9`00P3oool0102LB7@0_ooo0?ooo`2LM9`2 0?ooo`0409a8M02oool0oooo09adW080oooo00<0W4Qd0;ooo`3oool0103oool00`000000oooo0?oo o`3i0?ooo`L00000S`3oool003d0oooo00P0oono07@00000000000000000B02Lgol0oono07A8W080 oooo00@0_gA809cOo`3ookl0M4RL0P3oool0102oM4P0W=oo0?oo_`1dB9`20?ooo`030;mdB02Lgol0 oooo00@0oooo1000003j0?ooo`<00000T@3oool003h0oooo00L0_g@007Boo`3o_g@0B9cO0?ooo`3o okl0M4RL0080oooo00@0_gA809cOo`3ookl0M4RL0P3oool0102oM4P0W=oo0?oo_`1dB9`20?ooo`03 0;mdB02Lgol0oooo00@0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00?P3oool0103ookl0M018 09bLM018W=l20?ooo`0A09a8B02Lgol0oono07@0M02oool0oooo09a8B02Lgol0oono07@0M02oool0 oooo09a8B02Lgol0oono07@0M02oool01@3oool00`000000oooo0?ooo`3o0?oooi00oooo000o0?oo o`030?oOW0180000B9cO0080oooo00@0omnL04P000000000M;oo0P3oool0103ogi`0B0000000001d _ol20?ooo`040?oOW0180000000007Boo`H0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3o ool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool0 05X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00 oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3o oon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo 0?l0ooooT03oool005X0oooo0`00003o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0oooo T03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o 0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3o ool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003o ool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`00 0000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo 00<000000?ooo`3oool0o`3oool?0?ooo`<00000OP3oool005X0oooo0`00003o0?ooo`d0oooo1`00 001l0?ooo`00FP3oool00`000000oooo0?ooo`3o0?ooo`d0oooo1`00001l0?ooo`00FP3oool00`00 0000oooo0?ooo`3o0?ooo``0oooo2@00001k0?ooo`00FP3oool00`000000oooo0?ooo`3o0?ooo``0 oooo2@00001k0?ooo`00FP3oool00`000000oooo0?ooo`3o0?ooo``0oooo2@00001k0?ooo`00FP3o ool00`000000oooo0?ooo`3o0?ooo`d0oooo1`00001l0?ooo`00FP3oool00`000000oooo0?ooo`3o 0?ooo`d0oooo1`00001l0?ooo`00FP3oool00`000000oooo0?ooo`3o0?ooo`l0oooo0`00001n0?oo o`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0oooo T03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o 0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo0`00003o0?oooi00 oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3o oon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo 0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo 0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<00000 0?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo000n0?ooo`07 0?oo_`1d000000000000B02Lgol0oooo0=nLB0020000000404RLg`3oool0oooo0=nLB080000000@0 B9cO0?ooo`3oool0gia80P0000000`18W=l0oooo0?ooo`040?ooo`030000003oool0oooo0?l0oooo T03oool003h0oooo00L0_g@007Boo`3oool0oono0;noo`3oool0W7BL0080oooo00@0W4Qd0;ooo`3o ool0W7BL0P3oool0102LB7@0_ooo0?ooo`2LM9`20?ooo`0309a8M02oool0oooo00@0oooo00<00000 0?ooo`3oool0o`3ooon@0?ooo`00?@3oool0203ookl0M00004RLg`3oool0gia807Boo`3ookl0M4RL 0P3oool0102oM4P0W=oo0?oo_`1dB9`20?ooo`040;mdB02Lgol0oono07A8W080oooo00<0_gA809cO o`3oool0103oool400000?l0ooooS`3oool003h0oooo00L0W4Qd04Q80000000004RL0?ooo`3ookl0 M4RL0080oooo00@0_gA809cOo`3ookl0M4RL0P3oool0102oM4P0W=oo0?oo_`1dB9`20?ooo`030;md B02Lgol0oooo00@0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00?P3oool00`3o_g@004RL0?oo o`030?ooo`0A09a8B02Lgol0oono07@0M02oool0oooo09a8B02Lgol0oono07@0M02oool0oooo09a8 B02Lgol0oono07@0M02oool01@3oool00`000000oooo0?ooo`3o0?oooi00oooo000o0?ooo`090=nL B0000000000007Boo`3oool0omnL04P000000000M;oo0080oooo00@0omnL04P000000000M;oo0P3o ool0103ogi`0B0000000001d_ol60?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<0 00000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?oo o`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooolQ0?ooo`<0 0000K03oool005X0oooo00<000000?ooo`3oool0o`3ooolO0?ooo`L00000JP3oool005X0oooo00<0 00000?ooo`3oool0o`3ooolO0?ooo`L00000JP3oool005X0oooo00<000000?ooo`3oool0o`3ooolN 0?ooo`T00000J@3oool005X0oooo00<000000?ooo`3oool0o`3ooolN0?ooo`T00000J@3oool005X0 oooo0`00003o0?oooah0oooo2@00001Y0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooal0oooo 1`00001Z0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooal0oooo1`00001Z0?ooo`00FP3oool0 0`000000oooo0?ooo`3o0?ooob40oooo0`00001/0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oo oi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0 o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0 oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000 oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo0`00 003o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?oo o`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000 003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool0 0`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0 oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo 001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@ 0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`<00000o`3ooon@0?ooo`00 FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03o ool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oo oi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0 o`3ooolc0?ooo`<00000FP3oool005X0oooo00<000000?ooo`3oool0o`3ooola0?ooo`L00000F03o ool005X0oooo00<000000?ooo`3oool0o`3ooola0?ooo`L00000F03oool005X0oooo00<000000?oo o`3oool0o`3oool`0?ooo`T00000E`3oool003h0oooo00@0_g@0000000000000B9cO0P3oool0103O W4P0000000000018W=l20?ooo`040=nLB0000000000004RLg`80oooo00@0gia8000000000000B9cO 1P3oool00`000000oooo0?ooo`3o0?oooc00oooo2@00001G0?ooo`00?@3oool01@3ookl0M7Bo0?oo o`3oool0W7BL0080oooo00L0W7BL0?ooo`3oool0W4Qd0;ooo`3oool0W7BL0080oooo00@0W4Qd0;oo o`3oool0W7BL0P3oool00`2LB7@0_ooo0?ooo`040?ooo`030000003oool0oooo0?l0oooo<03oool9 000005L0oooo000n0?ooo`0709adW03oool0oono07Ad_`3oool0oono07A8W0020?ooo`040;mdB02L gol0oono07A8W080oooo00@0_gA809cOo`3ookl0M4RL0P3oool00`2oM4P0W=oo0?ooo`040?ooo`@0 0000o`3oool`0?ooo`L00000F03oool003h0oooo00L0_g@0000000000000B9cO0?ooo`3ookl0M4RL 0080oooo00@0_gA809cOo`3ookl0M4RL0P3oool0102oM4P0W=oo0?oo_`1dB9`20?ooo`030;mdB02L gol0oooo00@0oooo00<000000?ooo`3oool0o`3ooola0?ooo`L00000F03oool003d0oooo00D0oono 07A8W03oool0oono07A8W0020?ooo`0A09a8B02Lgol0oono07@0M02oool0oooo09a8B02Lgol0oono 07@0M02oool0oooo09a8B02Lgol0oono07@0M02oool01@3oool00`000000oooo0?ooo`3o0?oooc<0 oooo0`00001J0?ooo`00?P3oool0103OW4P000000000001d_ol20?ooo`040?oOW0180000000007Bo o`80oooo00@0omnL04P000000000M;oo0P3oool0103ogi`0B0000000001d_ol60?ooo`030000003o ool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`00 0000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo 00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J 0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?oo o`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`<00000o`3ooon@0?ooo`00FP3o ool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool0 05X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00 oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3o oon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo 0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo 0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo0`00003o 0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooA@3oool3000004P0oooo001J0?ooo`03 0000003oool0oooo0?l0oooo@`3oool7000004H0oooo001J0?ooo`030000003oool0oooo0?l0oooo @`3oool7000004H0oooo001J0?ooo`030000003oool0oooo0?l0oooo@P3oool9000004D0oooo001J 0?ooo`030000003oool0oooo0?l0oooo@P3oool9000004D0oooo001J0?ooo`030000003oool0oooo 0?l0oooo@P3oool9000004D0oooo001J0?ooo`030000003oool0oooo0?l0oooo@`3oool7000004H0 oooo001J0?ooo`030000003oool0oooo0?l0oooo@`3oool7000004H0oooo001J0?ooo`030000003o ool0oooo0?l0ooooA@3oool3000004P0oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool0 05X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00 oooo001J0?ooo`<00000o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J 0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?oo o`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0oooo T03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o 0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3o ool0o`3oooml0?ooo`<000004@3oool003L0oooo00P0oono07@00000000000000000B02Lgol0oooo 0=nLB080000000@0B9cO0?ooo`3oool0gia80P0000001018W=l0oooo0?ooo`3OW4P20000000404RL g`3oool0oooo0=nLB080000000<0B9cO0?ooo`3oool0103oool00`000000oooo0?ooo`3o0?ooogX0 oooo1`00000?0?ooo`00>@3oool00`3o_g@0B9cO0?ooo`020?ooo`0709adW03oool0oooo09a8M02o ool0oooo09adW0020?ooo`0409a8M02oool0oooo09adW080oooo00@0W4Qd0;ooo`3oool0W7BL0P3o ool00`2LB7@0_ooo0?ooo`040?ooo`030000003oool0oooo0?l0ooooNP3oool7000000l0oooo000i 0?ooo`060?noM018W=l0oooo0?ooo`3ookl0M4RL0P3oool0102oM4P0W=oo0?oo_`1dB9`20?ooo`04 0;mdB02Lgol0oono07A8W080oooo00@0_gA809cOo`3ookl0M4RL0P3oool00`2oM4P0W=oo0?ooo`04 0?ooo`@00000o`3ooomh0?ooo`T000003P3oool003T0oooo00H0okmd04RLg`3oool0oooo0?oo_`1d B9`20?ooo`040;mdB02Lgol0oono07A8W080oooo00@0_gA809cOo`3ookl0M4RL0P3oool0102oM4P0 W=oo0?oo_`1dB9`20?ooo`030;mdB02Lgol0oooo00@0oooo00<000000?ooo`3oool0o`3ooomi0?oo o`T000003P3oool003P0oooo00<0W4Qd0;noM018W=l00`3oool05`2LB4P0W=oo0?oo_`1d07@0_ooo 0?ooo`2LB4P0W=oo0?oo_`1d07@0_ooo0?ooo`2LB4P0W=oo0?oo_`1d07@0_ooo0?ooo`2LB4P0W=oo 0?oo_`1d07@0_ooo00D0oooo00<000000?ooo`3oool0o`3ooomi0?ooo`T000003P3oool003P0oooo 00<0okmd00000018W=l00`3oool0103ogi`0B0000000001d_ol20?ooo`040?oOW0180000000007Bo o`80oooo00@0omnL04P000000000M;oo0P3oool0103ogi`0B0000000001d_ol60?ooo`030000003o ool0oooo0?l0ooooNP3oool7000000l0oooo001J0?ooo`030000003oool0oooo0?l0ooooNP3oool7 000000l0oooo001J0?ooo`030000003oool0oooo0?l0ooooO03oool300000140oooo001J0?ooo`03 0000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3o ool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool0 05X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00 oooo001J0?ooo`<00000o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J 0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooomZ0?oo o`<000008`3oool005X0oooo00<000000?ooo`3oool0o`3ooomX0?ooo`L000008@3oool005X0oooo 00<000000?ooo`3oool0o`3ooomX0?ooo`L000008@3oool005X0oooo00<000000?ooo`3oool0o`3o oomW0?ooo`T00000803oool005X0oooo00<000000?ooo`3oool0o`3ooomW0?ooo`T00000803oool0 05X0oooo00<000000?ooo`3oool0o`3ooomW0?ooo`T00000803oool005X0oooo00<000000?ooo`3o ool0o`3ooomX0?ooo`L000008@3oool005X0oooo00<000000?ooo`3oool0o`3ooomX0?ooo`L00000 8@3oool005X0oooo00<000000?ooo`3oool0o`3ooomZ0?ooo`<000008`3oool005X0oooo0`00003o 0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3o ool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003o ool0oooo0?l0ooooT03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`00 0000oooo0?ooo`3o0?oooi00oooo001J0?ooo`030000003oool0oooo0?l0ooooT03oool005X0oooo 00<000000?ooo`3oool0o`3ooon@0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooeL0oooo0`00 000f0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooeD0oooo1`00000d0?ooo`00FP3oool00`00 0000oooo0?ooo`3o0?oooeD0oooo1`00000d0?ooo`00FP3oool00`000000oooo0?ooo`3o0?oooe@0 oooo2@00000c0?ooo`00FP3oool300000?l0ooooE03oool9000003<0oooo001J0?ooo`030000003o ool0oooo0?l0ooooE03oool9000003<0oooo001J0?ooo`030000003oool0oooo0?l0ooooE@3oool7 000003@0oooo001J0?ooo`030000003oool0oooo0?l0ooooE@3oool7000003@0oooo001J0?ooo`03 0000003oool0oooo0?l0ooooE`3oool3000003H0oooo001J0?ooo`030000003oool0oooo0?l0oooo T03oool005X0oooo00<000000?ooo`3oool0o`3ooon@0?ooo`00\ \>"], ImageRangeCache->{{{0, 491.75}, {303.563, 0}} -> {1975.01, -611.64, \ 0.0548786, 40.8352}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["Here's where you figure out what b and c are for fitting the data \ to y = b ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ \(TraditionalForm\`\[ExponentialE]\^\(c(t - 1976)\)\)], FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]] }], "Text", FontSize->24], Cell["\<\ Once you've done that, enter the following (after replacing \"b\" and \"c\" \ with the correct values) to view your best-fit function along with the \ original data:\ \>", "Text", FontSize->24], Cell[BoxData[{ \(fit\ = \ Plot[b*Exp[c*\((t - 1976)\)], {t, 1976, 2001}]\), "\[IndentingNewLine]", \(Show[rawdata, fit]\)}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Part b", "Section"], Cell["Here's the Ln of the Dow levels:", "Text", FontSize->24], Cell[CellGroupData[{ Cell[BoxData[ \(lndow\ = \ Log[dow]*1. \)], "Input"], Cell[BoxData[ \({6.912742820493176`, 6.7226297948554485`, 6.690842277418564`, 6.731018100482083`, 6.870053411798126`, 6.774223886357614`, 6.97166860472579`, 7.1372784372603855`, 7.099201743553092`, 7.343426229147367`, 7.546974117516527`, 7.569411792450712`, 7.681560362559537`, 7.920446505142607`, 7.87587915949631`, 8.060855752934316`, 8.101980731853192`, 8.230577217146454`, 8.251663923605589`, 8.540323608805092`, 8.771525284186465`, 8.975630184290507`, 9.1248914101437`, 9.34984141075374`, 9.286004275897172`, 9.212438170058329`}\)], "Output"] }, Open ]], Cell[TextData[{ StyleBox["Here's where you figure out the best-fit line to this data (and \ then convert the coefficients of this line back into the \"b\" and \"c\" of y \ = b ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ \(TraditionalForm\`\[ExponentialE]\^\(c(t - 1976)\)\)], FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]] }], "Text", FontSize->24], Cell["\<\ Once you've done that, enter the following (after replacing \"b\" and \"c\" \ with the correct values) to view your best-fit function along with the \ original data:\ \>", "Text", FontSize->24], Cell[BoxData[{ \(fit2\ = \ Plot[b*Exp[c*\((t - 1976)\)], {t, 1976, 2001}]\), "\[IndentingNewLine]", \(Show[rawdata, fit2]\)}], "Input"], Cell["\<\ You can use the following command to compare the two \"best fits\".\ \>", "Text", FontSize->24], Cell[BoxData[ \(Show[fit, fit2]\)], "Input"] }, Open ]] }, Open ]] }, FrontEndVersion->"4.2 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 685}}, WindowSize->{763, 550}, WindowMargins->{{86, Automatic}, {Automatic, 44}} ] (******************************************************************* 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, 86, 2, 170, "Title"], Cell[CellGroupData[{ Cell[1887, 59, 25, 0, 59, "Section"], Cell[1915, 61, 103, 3, 45, "Text"], Cell[CellGroupData[{ Cell[2043, 68, 211, 3, 50, "Input"], Cell[2257, 73, 202, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2496, 81, 68, 1, 30, "Input"], Cell[2567, 84, 204, 3, 48, "Output"] }, Open ]], Cell[2786, 90, 57, 1, 45, "Text"], Cell[CellGroupData[{ Cell[2868, 95, 125, 3, 30, "Input"], Cell[2996, 100, 27739, 550, 313, 3548, 247, "GraphicsData", "PostScript", \ "Graphics"], Cell[30738, 652, 130, 3, 29, "Output"] }, Open ]], Cell[30883, 658, 333, 10, 76, "Text"], Cell[31219, 670, 205, 5, 107, "Text"], Cell[31427, 677, 161, 4, 50, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[31625, 686, 25, 0, 59, "Section"], Cell[31653, 688, 64, 1, 45, "Text"], Cell[CellGroupData[{ Cell[31742, 693, 57, 1, 30, "Input"], Cell[31802, 696, 607, 9, 67, "Output"] }, Open ]], Cell[32424, 708, 406, 11, 107, "Text"], Cell[32833, 721, 205, 5, 107, "Text"], Cell[33041, 728, 163, 4, 50, "Input"], Cell[33207, 734, 107, 3, 45, "Text"], Cell[33317, 739, 48, 1, 30, "Input"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)