(************** 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[ 31231, 718]*) (*NotebookOutlinePosition[ 31876, 740]*) (* CellTagsIndexPosition[ 31832, 736]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Skeleton Notebook for Lab #4, Drug Decay least-squares problem\ \>", "Title"], Cell["\<\ Here's the data, both the list of the drug levels and the years.\ \>", "Text", FontSize->24], Cell[CellGroupData[{ Cell[BoxData[ \(tdata = Table[i, {i, 0, 30}]\)], "Input"], Cell[BoxData[ \({0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(drug\ = \ {94.8, 58.0, 39.1, 26.9, 20.2, 18.7, 14.3, 14.2, 12.7, 10.0, 8.1, 7.8, 6.6, 6.8, 5.6, 4.4, 4.6, 3.8, 4.5, 3.7, 3.4, 2.4, 2.7, 2.1, 1.7, 0.8, 0.8, 1.0, 1.0, 0.4, 1.2}\)], "Input"], Cell[BoxData[ \({94.8`, 58.`, 39.1`, 26.9`, 20.2`, 18.7`, 14.3`, 14.2`, 12.7`, 10.`, 8.1`, 7.8`, 6.6`, 6.8`, 5.6`, 4.4`, 4.6`, 3.8`, 4.5`, 3.7`, 3.4`, 2.4`, 2.7`, 2.1`, 1.7`, 0.8`, 0.8`, 1.`, 1.`, 0.4`, 1.2`}\)], "Output"] }, Open ]], Cell["Here's a plot of the data", "Text", FontSize->24], Cell[CellGroupData[{ Cell[BoxData[ \(rawdata\ = \ ListPlot[Transpose[{tdata, drug}], 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 0.0238095 0.031746 0.0147151 0.0130946 [ [.18254 .00222 -3 -9 ] [.18254 .00222 3 0 ] [.34127 .00222 -6 -9 ] [.34127 .00222 6 0 ] [.5 .00222 -6 -9 ] [.5 .00222 6 0 ] [.65873 .00222 -6 -9 ] [.65873 .00222 6 0 ] [.81746 .00222 -6 -9 ] [.81746 .00222 6 0 ] [.97619 .00222 -6 -9 ] [.97619 .00222 6 0 ] [.01131 .14566 -12 -4.5 ] [.01131 .14566 0 4.5 ] [.01131 .27661 -12 -4.5 ] [.01131 .27661 0 4.5 ] [.01131 .40755 -12 -4.5 ] [.01131 .40755 0 4.5 ] [.01131 .5385 -12 -4.5 ] [.01131 .5385 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 .18254 .01472 m .18254 .02097 L s [(5)] .18254 .00222 0 1 Mshowa .34127 .01472 m .34127 .02097 L s [(10)] .34127 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(15)] .5 .00222 0 1 Mshowa .65873 .01472 m .65873 .02097 L s [(20)] .65873 .00222 0 1 Mshowa .81746 .01472 m .81746 .02097 L s [(25)] .81746 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(30)] .97619 .00222 0 1 Mshowa .125 Mabswid .05556 .01472 m .05556 .01847 L s .0873 .01472 m .0873 .01847 L s .11905 .01472 m .11905 .01847 L s .15079 .01472 m .15079 .01847 L s .21429 .01472 m .21429 .01847 L s .24603 .01472 m .24603 .01847 L s .27778 .01472 m .27778 .01847 L s .30952 .01472 m .30952 .01847 L s .37302 .01472 m .37302 .01847 L s .40476 .01472 m .40476 .01847 L s .43651 .01472 m .43651 .01847 L s .46825 .01472 m .46825 .01847 L s .53175 .01472 m .53175 .01847 L s .56349 .01472 m .56349 .01847 L s .59524 .01472 m .59524 .01847 L s .62698 .01472 m .62698 .01847 L s .69048 .01472 m .69048 .01847 L s .72222 .01472 m .72222 .01847 L s .75397 .01472 m .75397 .01847 L s .78571 .01472 m .78571 .01847 L s .84921 .01472 m .84921 .01847 L s .88095 .01472 m .88095 .01847 L s .9127 .01472 m .9127 .01847 L s .94444 .01472 m .94444 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .14566 m .03006 .14566 L s [(10)] .01131 .14566 1 0 Mshowa .02381 .27661 m .03006 .27661 L s [(20)] .01131 .27661 1 0 Mshowa .02381 .40755 m .03006 .40755 L s [(30)] .01131 .40755 1 0 Mshowa .02381 .5385 m .03006 .5385 L s [(40)] .01131 .5385 1 0 Mshowa .125 Mabswid .02381 .0409 m .02756 .0409 L s .02381 .06709 m .02756 .06709 L s .02381 .09328 m .02756 .09328 L s .02381 .11947 m .02756 .11947 L s .02381 .17185 m .02756 .17185 L s .02381 .19804 m .02756 .19804 L s .02381 .22423 m .02756 .22423 L s .02381 .25042 m .02756 .25042 L s .02381 .3028 m .02756 .3028 L s .02381 .32899 m .02756 .32899 L s .02381 .35518 m .02756 .35518 L s .02381 .38136 m .02756 .38136 L s .02381 .43374 m .02756 .43374 L s .02381 .45993 m .02756 .45993 L s .02381 .48612 m .02756 .48612 L s .02381 .51231 m .02756 .51231 L s .02381 .56469 m .02756 .56469 L s .02381 .59088 m .02756 .59088 L s .02381 .61707 m .02756 .61707 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 .02 w .0873 .52672 Mdot .11905 .36696 Mdot .15079 .27923 Mdot .18254 .25958 Mdot .21429 .20197 Mdot .24603 .20066 Mdot .27778 .18102 Mdot .30952 .14566 Mdot .34127 .12078 Mdot .37302 .11685 Mdot .40476 .10114 Mdot .43651 .10376 Mdot .46825 .08805 Mdot .5 .07233 Mdot .53175 .07495 Mdot .56349 .06447 Mdot .59524 .07364 Mdot .62698 .06317 Mdot .65873 .05924 Mdot .69048 .04614 Mdot .72222 .05007 Mdot .75397 .04221 Mdot .78571 .03698 Mdot .81746 .02519 Mdot .84921 .02519 Mdot .88095 .02781 Mdot .9127 .02781 Mdot .94444 .01995 Mdot .97619 .03043 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{493.75, 305.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg@3oool9 000000H0oooo2@0000080?ooo`L00000MP3oool001D0oooo00<000000?ooo`3oool0o`3oool]0?oo o`<000002P3oool7000000L0oooo2@00000:0?ooo`<00000N03oool001D0oooo00<000000?ooo`3o ool0o`3oool[0?ooo`L00000203oool7000000P0oooo1`0000260?ooo`005@3oool00`000000oooo 0?ooo`3n0?ooo`<00000703oool3000000X0oooo1`00000:0?ooo`<000002P3oool7000008H0oooo 000E0?ooo`030000003oool0oooo0?`0oooo1`00000H0?ooo`L000001`3oool9000001P0oooo0`00 00280?ooo`005@3oool00`000000oooo0?ooo`3l0?ooo`L00000603oool7000000L0oooo2@00002S 0?ooo`005@3oool00`000000oooo0?ooo`3k0?ooo`T000005P3oool9000000H0oooo2@00002S0?oo o`005@3oool00`000000oooo0?ooo`3P0?ooo`<00000603oool9000001H0oooo2@0000070?ooo`L0 0000Y03oool001D0oooo0`00003N0?ooo`L000002P3oool3000000T0oooo2@00000:0?ooo`<00000 2@3oool9000000L0oooo1`00002T0?ooo`005@3oool00`000000oooo0?ooo`3N0?ooo`L00000203o ool7000000P0oooo1`0000090?ooo`L00000203oool7000000X0oooo0`00002V0?ooo`005@3oool0 0`000000oooo0?ooo`3M0?ooo`T000001`3oool7000000P0oooo1`0000090?ooo`L00000203oool7 00000;<0oooo000E0?ooo`030000003oool0oooo0=d0oooo2@0000060?ooo`T000002@3oool30000 00X0oooo2@0000090?ooo`<00000]@3oool001D0oooo00<000000?ooo`3oool0g@3oool9000000H0 oooo2@00000F0?ooo`T00000`@3oool001D0oooo00<000000?ooo`3oool0gP3oool7000000L0oooo 2@00000F0?ooo`T00000`@3oool001D0oooo00<000000?ooo`3oool0gP3oool7000000P0oooo1`00 000H0?ooo`L00000`P3oool001D0oooo00<000000?ooo`3oool0d@3oool3000000`0oooo0`00000: 0?ooo`L00000603oool700000<80oooo000E0?ooo`030000003oool0oooo00?ooo`T00000oP3oool001D0oooo00<000000?ooo`3oool0cP3o ool900000?h0oooo000E0?ooo`030000003oool0oooo00?ooo`005@3oool00`000000oooo 0?ooo`230?ooo`L00000o`3ooom<0?ooo`000`3oool0203ookl0M000000000000000001809cOo`3o ool0gia80P0000000`18W=l0oooo0?ooo`050?ooo`030000003oool0oooo08<0oooo1`00003o0?oo od`0oooo00050?ooo`030?noM018W=l0oooo0080oooo00D0W7BL0?ooo`3oool0W4Qd0;ooo`060?oo o`030000003oool0oooo0880oooo2@00003o0?oood/0oooo00050?ooo`060?noM018W=l0oooo0?oo o`3ookl0M4RL0P3oool00`2oM4P0W=oo0?ooo`050?ooo`@00000P@3oool900000?l0ooooB`3oool0 00D0oooo00H0okmd04RLg`3oool0oooo0?oo_`1dB9`20?ooo`030;mdB02Lgol0oooo00D0oooo00<0 00000?ooo`3oool0PP3oool900000?l0ooooB`3oool000@0oooo00<0W4Qd0;noM018W=l00`3oool0 1@2LB4P0W=oo0?oo_`1d07@0_ooo00H0oooo00<000000?ooo`3oool0P`3oool700000?l0ooooC03o ool000@0oooo00<0okmd00000018W=l00`3oool0103ogi`0B0000000001d_ol70?ooo`030000003o ool0oooo08<0oooo1`00003o0?oood`0oooo000E0?ooo`030000003oool0oooo08D0oooo0`00003o 0?ooodh0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3o ool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003o ool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`00 0000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo 00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool3000007D0oooo0`00003o0?oooeh0oooo000E 0?ooo`030000003oool0oooo07<0oooo1`00003o0?oooe`0oooo000E0?ooo`030000003oool0oooo 07<0oooo1`00003o0?oooe`0oooo000E0?ooo`030000003oool0oooo0780oooo2@00003o0?oooe/0 oooo000E0?ooo`030000003oool0oooo0780oooo2@00003o0?oooe/0oooo000E0?ooo`030000003o ool0oooo0780oooo2@00003o0?oooe/0oooo000E0?ooo`030000003oool0oooo07<0oooo1`00003o 0?oooe`0oooo000E0?ooo`030000003oool0oooo07<0oooo1`00003o0?oooe`0oooo000E0?ooo`03 0000003oool0oooo07D0oooo0`00003o0?oooeh0oooo000E0?ooo`030000003oool0oooo0?l0oooo eP3oool001D0oooo00<000000?ooo`3oool0E`3oool3000000`0oooo0`00003o0?ooofd0oooo000E 0?ooo`030000003oool0oooo05D0oooo1`0000080?ooo`L00000o`3ooom[0?ooo`005@3oool30000 05D0oooo1`0000080?ooo`L00000o`3ooom[0?ooo`005@3oool00`000000oooo0?ooo`1D0?ooo`T0 00001P3oool900000?l0ooooJP3oool001D0oooo00<000000?ooo`3oool0E03oool9000000H0oooo 2@00003o0?ooofX0oooo000E0?ooo`030000003oool0oooo05@0oooo2@0000060?ooo`T00000o`3o oomZ0?ooo`005@3oool00`000000oooo0?ooo`1E0?ooo`L00000203oool700000?l0ooooJ`3oool0 01D0oooo00<000000?ooo`3oool0E@3oool7000000P0oooo1`00003o0?ooof/0oooo000E0?ooo`03 0000003oool0oooo05L0oooo0`00000<0?ooo`<00000o`3ooom]0?ooo`005@3oool00`000000oooo 0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<00000 0?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`03 0000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3o ool300000?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`00 0000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo 00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E 0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?oo o`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0oooo eP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o 0?ooomH0oooo000E0?ooo`<00000o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`180?ooo`<0 0000o`3ooon;0?ooo`005@3oool00`000000oooo0?ooo`160?ooo`L00000o`3ooon90?ooo`005@3o ool00`000000oooo0?ooo`160?ooo`L00000o`3ooon90?ooo`005@3oool00`000000oooo0?ooo`15 0?ooo`T00000o`3ooon80?ooo`005@3oool00`000000oooo0?ooo`150?ooo`T00000o`3ooon80?oo o`005@3oool00`000000oooo0?ooo`150?ooo`T00000o`3ooon80?ooo`005@3oool00`000000oooo 0?ooo`160?ooo`L00000o`3ooon90?ooo`005@3oool00`000000oooo0?ooo`160?ooo`L00000o`3o oon90?ooo`005@3oool00`000000oooo0?ooo`180?ooo`<00000o`3ooon;0?ooo`005@3oool00`00 0000oooo0?ooo`0i0?ooo`<00000o`3ooonJ0?ooo`000`3oool0203o_g@00000000000000000001d 0;ooo`3oool0gia80P0000000`18W=l0oooo0?ooo`050?ooo`030000003oool0oooo03L0oooo1`00 003o0?oooiP0oooo00040?ooo`0309a8000007@0_ooo00<0oooo00D0W7BL0?ooo`3oool0W4Qd0;oo o`060?ooo`030000003oool0oooo03L0oooo1`00003o0?oooiP0oooo00050?ooo`060?noM0000000 M;oo0?ooo`3ookl0M4RL0P3oool00`2oM4P0W=oo0?ooo`050?ooo`@00000=@3oool900000?l0oooo U`3oool000H0oooo00D0oono0;noo`3oool0oono07A8W0020?ooo`030;mdB02Lgol0oooo00D0oooo 00<000000?ooo`3oool0=P3oool900000?l0ooooU`3oool000<0oooo00`0omnL04Q8W03oool0oono 07@0M02oool0oooo09a8B02Lgol0oono07@0M02oool60?ooo`030000003oool0oooo03H0oooo2@00 003o0?oooiL0oooo00040?ooo`040=nLB0000000000004RLg`80oooo00@0omnL04P000000000M;oo 1`3oool00`000000oooo0?ooo`0g0?ooo`L00000o`3ooonH0?ooo`005@3oool00`000000oooo0?oo o`0g0?ooo`L00000o`3ooonH0?ooo`005@3oool00`000000oooo0?ooo`0i0?ooo`<00000o`3ooonJ 0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0 ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?oo o`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?oo o`3oool0o`3ooooF0?ooo`005@3oool300000?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0 o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0 oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000 oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<0 00000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?oo o`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`00 5@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3o ool001D0oooo0`00003o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0 oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo 000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF 0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0 ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?oo o`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?oo o`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`<00000 o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`0Y0?ooo`<00000o`3ooonZ0?ooo`005@3oool0 0`000000oooo0?ooo`0W0?ooo`L00000o`3ooonX0?ooo`005@3oool00`000000oooo0?ooo`0W0?oo o`L00000o`3ooonX0?ooo`005@3oool00`000000oooo0?ooo`0V0?ooo`T00000o`3ooonW0?ooo`00 5@3oool00`000000oooo0?ooo`0V0?ooo`T00000o`3ooonW0?ooo`005@3oool00`000000oooo0?oo o`0V0?ooo`T00000o`3ooonW0?ooo`005@3oool00`000000oooo0?ooo`0W0?ooo`L00000o`3ooonX 0?ooo`005@3oool00`000000oooo0?ooo`0W0?ooo`L00000o`3ooonX0?ooo`005@3oool00`000000 oooo0?ooo`0Y0?ooo`<00000o`3ooonZ0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo 000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo0`00003o0?ooomH0oooo000E0?oo o`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`00 5@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3o ool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?oo omH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0 o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0 oooo0?l0ooooeP3oool000@0oooo00@0gia800000000000007Bo0P3oool0103OW4P0000000000018 W=l70?ooo`030000003oool0oooo0?l0ooooeP3oool000<0oooo00P0omnL04Q8W03oool0oono07@0 B02Lgol0oooo09adW080oooo00<0W4Qd0;ooo`3oool01@3oool00`000000oooo0?ooo`3o0?ooomH0 oooo00050?ooo`060;md00000000M;oo0?ooo`3ookl0M4RL0P3oool00`2oM4P0W=oo0?ooo`050?oo o`@00000o`3ooooE0?ooo`001P3oool01@3ookl0M4RL0?ooo`3ookl0M4RL0080oooo00<0_gA809cO o`3oool01@3oool00`000000oooo0?ooo`3o0?ooomH0oooo00030?ooo`0<0?oo_`1d04P0W=oo0?oo _`1d07@0_ooo0?ooo`2LB4P0W=oo0?oo_`1d07@0_ooo1P3oool00`000000oooo0?ooo`3o0?ooomH0 oooo00040?ooo`040?oOW0180000000007Boo`80oooo00@0omnL04P000000000M;oo1`3oool00`00 0000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo 00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E 0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?oo o`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0oooo eP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool300000?l0ooooeP3oool0 01D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0 oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3o oooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo 0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo 0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<00000 0?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`03 0000003oool0oooo0?l0ooooeP3oool001D0oooo0`00003o0?ooomH0oooo000E0?ooo`030000003o ool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`00 0000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo 00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E 0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?oo o`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0oooo eP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool300000?l0ooooeP3oool0 01D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0 oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3o oooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo 0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo 0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<00000 0?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`03 0000003oool0oooo0?l0ooooeP3oool001D0oooo0`00003o0?ooomH0oooo000E0?ooo`030000003o ool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`00 0000oooo0?ooo`0J0?ooo`<00000o`3oooni0?ooo`005@3oool00`000000oooo0?ooo`0H0?ooo`L0 0000o`3ooong0?ooo`005@3oool00`000000oooo0?ooo`0H0?ooo`L00000o`3ooong0?ooo`005@3o ool00`000000oooo0?ooo`0G0?ooo`T00000o`3ooonf0?ooo`005@3oool00`000000oooo0?ooo`0G 0?ooo`T00000o`3ooonf0?ooo`005@3oool00`000000oooo0?ooo`0G0?ooo`T00000o`3ooonf0?oo o`005@3oool00`000000oooo0?ooo`0H0?ooo`L00000o`3ooong0?ooo`001@3oool01P3OW4P00000 0000B02Lgol0oooo0=nLB080000000<0B9cO0?ooo`3oool01@3oool00`000000oooo0?ooo`0H0?oo o`L00000o`3ooong0?ooo`001P3oool01@3o_g@0B9cO0?ooo`3oool0W7BL0080oooo00<0W4Qd0;oo o`3oool01@3oool00`000000oooo0?ooo`0J0?ooo`<00000o`3oooni0?ooo`000`3oool0203ookl0 M000000000000000001809cOo`3ookl0M4RL0P3oool00`2oM4P0W=oo0?ooo`050?ooo`@00000o`3o oooE0?ooo`00103oool01`2oM000M;oo0?noM018W=l0oooo0?oo_`1dB9`00P3oool00`2oM4P0W=oo 0?ooo`050?ooo`030000003oool0oooo0?l0ooooeP3oool000@0oooo00@0oono07@0B02LW7@0B9cO 0P3oool01@2LB4P0W=oo0?oo_`1d07@0_ooo00H0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`00 1@3oool00`3ogi`0B00004RLg`020?ooo`040?oOW0180000000007Boo`L0oooo00<000000?ooo`3o ool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003o ool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`00 0000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo 00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E 0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?oo o`005@3oool300000?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3o ool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool0 01D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0 oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3o oooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo 0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo 0?ooo`3o0?ooomH0oooo000E0?ooo`<00000o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o 0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3o ool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003o ool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`00 0000oooo0?ooo`3o0?ooomH0oooo000E0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo 00<000000?ooo`3oool0o`3ooooF0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooomH0oooo000E 0?ooo`030000003oool0oooo0?l0ooooeP3oool001D0oooo00<000000?ooo`3oool0o`3ooooF0?oo o`005@3oool300000?l0ooooeP3oool00001\ \>"], ImageRangeCache->{{{0, 492.75}, {304.188, 0}} -> {-1.40666, -2.3883, \ 0.0657149, 0.159317}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell["Here's the ln of the drug levels:", "Text", FontSize->24], Cell[CellGroupData[{ Cell[BoxData[ \(lndrug = Log[drug]\)], "Input"], Cell[BoxData[ \({4.551769409260976`, 4.060443010546419`, 3.66612246699132`, 3.292126286607793`, 3.005682604407159`, 2.928523523860541`, 2.6602595372658615`, 2.653241964607215`, 2.5416019934645457`, 2.302585092994046`, 2.0918640616783932`, 2.0541237336955462`, 1.8870696490323797`, 1.916922612182061`, 1.7227665977411035`, 1.4816045409242156`, 1.5260563034950492`, 1.33500106673234`, 1.5040773967762742`, 1.308332819650179`, 1.2237754316221157`, 0.8754687373538999`, 0.9932517730102834`, 0.7419373447293773`, 0.5306282510621704`, \(-0.2231435513142097`\), \ \(-0.2231435513142097`\), 0.`, 0.`, \(-0.916290731874155`\), 0.1823215567939546`}\)], "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]\^ct\)], 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[{ \(Clear[t]; linfit[t_]\ = \ b*Exp[c*t]\ \), "\[IndentingNewLine]", \(linplot = Plot[linfit[t], {t, 0, 30}]\), "\[IndentingNewLine]", \(Show[linplot, rawdata, PlotRange \[Rule] {0, 100}]\)}], "Input"], Cell[TextData[{ StyleBox["Here's where you fit to a biexponential function: \ny = b1", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ \(TraditionalForm\`\[ExponentialE]\^\(c1\ t\)\ + \ b2\ \[ExponentialE]\^\(c2\ t\)\)], 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 \"b1\", \"b2\", \ \"c1\", and \"c2\" with the correct values) to view your best-fit function \ along with the original data:\ \>", "Text", FontSize->24], Cell[BoxData[{ \(Clear[t]; biexpfit[t_]\ = \ b1*Exp[c1*t] + b2*Exp[c2*t]\ \), "\[IndentingNewLine]", \(biexpplot = Plot[biexpfit[t], {t, 0, 30}]\), "\[IndentingNewLine]", \(Show[rawdata, biexpplot]\)}], "Input"] }, Open ]] }, FrontEndVersion->"4.2 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 685}}, WindowSize->{714, 561}, WindowMargins->{{24, Automatic}, {Automatic, 30}} ] (******************************************************************* 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, 87, 2, 170, "Title"], Cell[1866, 57, 104, 3, 45, "Text"], Cell[CellGroupData[{ Cell[1995, 64, 61, 1, 30, "Input"], Cell[2059, 67, 155, 2, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2251, 74, 227, 3, 50, "Input"], Cell[2481, 79, 240, 3, 48, "Output"] }, Open ]], Cell[2736, 85, 57, 1, 45, "Text"], Cell[CellGroupData[{ Cell[2818, 90, 132, 3, 30, "Input"], Cell[2953, 95, 25578, 541, 314, 3831, 268, "GraphicsData", "PostScript", \ "Graphics"], Cell[28534, 638, 130, 3, 29, "Output"] }, Open ]], Cell[28679, 644, 65, 1, 45, "Text"], Cell[CellGroupData[{ Cell[28769, 649, 51, 1, 30, "Input"], Cell[28823, 652, 719, 11, 86, "Output"] }, Open ]], Cell[29557, 666, 393, 11, 107, "Text"], Cell[29953, 679, 205, 5, 107, "Text"], Cell[30161, 686, 229, 3, 70, "Input"], Cell[30393, 691, 354, 10, 76, "Text"], Cell[30750, 703, 224, 5, 107, "Text"], Cell[30977, 710, 238, 5, 70, "Input"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)