(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' 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[ 152295, 3841]*) (*NotebookOutlinePosition[ 153069, 3868]*) (* CellTagsIndexPosition[ 153025, 3864]*) (*WindowFrame->Normal*) Notebook[{ Cell["Inputting, Plotting, and Fitting Data", "Title"], Cell[CellGroupData[{ Cell["\<\ Starting Up\ \>", "Subtitle"], Cell[TextData[{ StyleBox["The following two commands prevent annoying warnings about the \ use of symbols similar to those used by ", Background->GrayLevel[0.900008]], StyleBox["Mathematica", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" because ", Background->GrayLevel[0.900008]], StyleBox["Mathematica", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" will not let us change their definitions.", Background->GrayLevel[0.900008]] }], "Text"], Cell[BoxData[ \(Off[General::spell]; Off[General::spell1];\)], "Input", CellLabel->"In[1]:="], Cell[TextData[StyleBox["Initialize and load some extra needed packages.", Background->GrayLevel[0.900008]]], "Text"], Cell[BoxData[{ \(Needs["\"]\), "\n", \(Needs["\"]\), "\n", \(Needs["\"]\), "\n", \(Needs["\"]\)}], "Input", CellLabel->"In[2]:="] }, Open ]], Cell[CellGroupData[{ Cell[" Experimental Data", "Section"], Cell[TextData[{ StyleBox["If you have acquired data by hand, you will input the data as \ lists of values, denoted as {a1,a2,a3...} - note the curly brackets. You \ will generally have a set of ", Background->GrayLevel[0.900008]], StyleBox["x ", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox["values and ", Background->GrayLevel[0.900008]], StyleBox["y", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" values. For plotting purposes, ", Background->GrayLevel[0.900008]], StyleBox["Mathematica", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" wants a list of pairs {{", Background->GrayLevel[0.900008]], Cell[BoxData[ \(TraditionalForm\`x\_1\)], Background->GrayLevel[0.900008]], StyleBox[",", Background->GrayLevel[0.900008]], Cell[BoxData[ \(TraditionalForm\`y\_1\)], Background->GrayLevel[0.900008]], StyleBox["},{", Background->GrayLevel[0.900008]], Cell[BoxData[ \(TraditionalForm\`x\_2\)], Background->GrayLevel[0.900008]], StyleBox[",", Background->GrayLevel[0.900008]], Cell[BoxData[ \(TraditionalForm\`y\_2\)], Background->GrayLevel[0.900008]], StyleBox["},...}. You have 2 options: enter the pairs directly (which can \ get tedious if you have a lot of data), or enter an ", Background->GrayLevel[0.900008]], StyleBox["x", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" list and ", Background->GrayLevel[0.900008]], StyleBox["y", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" list and use the ", Background->GrayLevel[0.900008]], StyleBox["Transpose", "Input", Background->GrayLevel[0.900008]], StyleBox[" function. Both methods are illustrated below.", Background->GrayLevel[0.900008]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[\( (*\ anything\ between\ (*\ and\ *) \ is\ a\ comment\ that\ does\ not\ execute\ *) \), FontSize->10, FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", \(data1 = {{1, 1}, {2.5, 4}, {3.9, 8}, {6.1, 11.5}}\)}]], "Input", CellLabel->"In[6]:="], Cell[BoxData[ \({{1, 1}, {2.5`, 4}, {3.9`, 8}, {6.1`, 11.5`}}\)], "Output", CellLabel->"Out[6]="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(xlist\ = \ {1, 2.5, 3.9, 6.1}\), ";", " ", StyleBox[\( (*\ a\ semicolon\ after\ a\ line\ does\ not\ display\ the\ output\ *) \ \), FontSize->10, FontWeight->"Plain"], "\[IndentingNewLine]", \(ylist\ = \ {1, 4, 8, 11.5}\)}]], "Input", CellLabel->"In[7]:="], Cell[BoxData[ \({1, 4, 8, 11.5`}\)], "Output", CellLabel->"Out[7]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(data2\ = \ Transpose[{xlist, ylist}]\)], "Input", CellLabel->"In[8]:="], Cell[BoxData[ \({{1, 1}, {2.5`, 4}, {3.9`, 8}, {6.1`, 11.5`}}\)], "Output", CellLabel->"Out[8]="] }, Open ]], Cell[TextData[{ StyleBox["Note that", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" ", Background->GrayLevel[0.900008]], StyleBox["data1", "Input", Background->GrayLevel[0.900008]], StyleBox[" and ", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox["data2", "Input", Background->GrayLevel[0.900008]], StyleBox[" are identical", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[". Be sure to use the ", Background->GrayLevel[0.900008]], StyleBox["{}", "Input", Background->GrayLevel[0.900008]], StyleBox[" in the ", Background->GrayLevel[0.900008]], StyleBox["Transpose", "Input", Background->GrayLevel[0.900008]], StyleBox[" function.", Background->GrayLevel[0.900008]] }], "Text"], Cell[TextData[{ StyleBox["-A sometimes useful command is ", Background->GrayLevel[0.900008]], StyleBox["Length", "Input", Background->GrayLevel[0.900008]], StyleBox[" which tells you the length of your vector:", Background->GrayLevel[0.900008]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(Length[xlist]\)\(\[IndentingNewLine]\) \)\)], "Input", CellLabel->"In[9]:="], Cell[BoxData[ \(4\)], "Output", CellLabel->"Out[9]="] }, Open ]], Cell[" Working with a selected set of data", "Section"], Cell[TextData[StyleBox["To refer to a specific element use the form [[i,j]] \ where i is the pair index and j refers to the location within the pair:", Background->GrayLevel[0.900008]]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(data1[\([2, 2]\)]\)], "Input", CellLabel->"In[10]:="], Cell[BoxData[ \(4\)], "Output", CellLabel->"Out[10]="] }, Open ]], Cell[TextData[StyleBox["Here are some other useful ways to get subsets of \ your data:", Background->GrayLevel[0.900008]]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(data1[\([3]\)]\), " ", StyleBox[\( (*\ gives\ the\ 3 rd\ pair\ *) \), FontSize->12, FontWeight->"Plain"]}]], "Input", CellLabel->"In[15]:="], Cell[BoxData[ \({3.9`, 8}\)], "Output", CellLabel->"Out[15]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(Take[data1, 3]\), StyleBox[\( (*\ takes\ the\ first\ 3\ pairs\ *) \), FontSize->12, FontWeight->"Plain"]}]], "Input", CellLabel->"In[16]:="], Cell[BoxData[ \({{1, 1}, {2.5`, 4}, {3.9`, 8}}\)], "Output", CellLabel->"Out[16]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(Take[data1, \(-2\)]\), " ", StyleBox[\( (*\ takes\ the\ last\ 2\ pairs\ *) \), FontSize->12, FontWeight->"Plain"]}]], "Input", CellLabel->"In[17]:="], Cell[BoxData[ \({{3.9`, 8}, {6.1`, 11.5`}}\)], "Output", CellLabel->"Out[17]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(Drop[data1, 2]\), " ", StyleBox[\( (*\ drops\ the\ first\ 2\ pairs\ *) \), FontSize->12, FontWeight->"Plain"]}]], "Input", CellLabel->"In[18]:="], Cell[BoxData[ \({{3.9`, 8}, {6.1`, 11.5`}}\)], "Output", CellLabel->"Out[18]="] }, Open ]], Cell[TextData[{ StyleBox["You may take some data with the computer but only the a portion \ looks useable. It will be most convenient to extract data based on the ", Background->GrayLevel[0.900008]], StyleBox["x values", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[", rather than the positions in the list. In this case you will \ use the command ", Background->GrayLevel[0.900008]], StyleBox["Select", "Input", Background->GrayLevel[0.900008]], StyleBox[".", Background->GrayLevel[0.900008]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(selecteddata = Select[data1, \((\((#[\([1]\)] > 2\ )\) && \ \((#[\([1]\)] < 4)\))\) &]\)], "Input", CellLabel->"In[20]:="], Cell[BoxData[ \({{2.5`, 4}, {3.9`, 8}}\)], "Output", CellLabel->"Out[20]="] }, Open ]], Cell[TextData[{ StyleBox["This rather inscrutable command selects the data with 2 < ", Background->GrayLevel[0.900008]], StyleBox["x", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" < 4. The expression in parentheses is a logical expression. ", Background->GrayLevel[0.900008]], StyleBox["#[[1]]", "Input", Background->GrayLevel[0.900008]], StyleBox[" refers to the value of the first element of each pair, and ", Background->GrayLevel[0.900008]], StyleBox["#[[1]]>2", "Input", Background->GrayLevel[0.900008]], StyleBox[" tests to see if ", Background->GrayLevel[0.900008]], StyleBox["x", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" is greater than 2. ", Background->GrayLevel[0.900008]], StyleBox["&&", "Input", Background->GrayLevel[0.900008]], StyleBox[" is ", Background->GrayLevel[0.900008]], StyleBox["Mathematica's", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" expression for AND. The last ", Background->GrayLevel[0.900008]], StyleBox["&", "Input", Background->GrayLevel[0.900008]], StyleBox[" is just part of how this command is defined. You now have a new \ data set ", Background->GrayLevel[0.900008]], StyleBox["selecteddata ", "Input", Background->GrayLevel[0.900008]], StyleBox["that you can use.", Background->GrayLevel[0.900008]] }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plotting your data", "Section"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" ", Background->GrayLevel[0.900008]], StyleBox["will autoscale your data for you", FontSlant->"Plain", Background->GrayLevel[0.900008]], StyleBox[":", Background->GrayLevel[0.900008]] }], "Text", FontSlant->"Italic"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(ListPlot[data1]\), ";", StyleBox[\( (*plots\ the\ data\ *) \), FontSize->12, FontWeight->"Plain"]}]], "Input", CellLabel->"In[17]:="], 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.162932 0.186741 -0.0413424 0.0560575 [ [.21055 .05827 -3 -9 ] [.21055 .05827 3 0 ] [.39729 .05827 -3 -9 ] [.39729 .05827 3 0 ] [.58403 .05827 -3 -9 ] [.58403 .05827 3 0 ] [.77077 .05827 -3 -9 ] [.77077 .05827 3 0 ] [.95752 .05827 -3 -9 ] [.95752 .05827 3 0 ] [.01131 .18289 -6 -4.5 ] [.01131 .18289 0 4.5 ] [.01131 .295 -6 -4.5 ] [.01131 .295 0 4.5 ] [.01131 .40712 -6 -4.5 ] [.01131 .40712 0 4.5 ] [.01131 .51923 -12 -4.5 ] [.01131 .51923 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 .21055 .07077 m .21055 .07702 L s [(2)] .21055 .05827 0 1 Mshowa .39729 .07077 m .39729 .07702 L s [(3)] .39729 .05827 0 1 Mshowa .58403 .07077 m .58403 .07702 L s [(4)] .58403 .05827 0 1 Mshowa .77077 .07077 m .77077 .07702 L s [(5)] .77077 .05827 0 1 Mshowa .95752 .07077 m .95752 .07702 L s [(6)] .95752 .05827 0 1 Mshowa .125 Mabswid .06116 .07077 m .06116 .07452 L s .09851 .07077 m .09851 .07452 L s .13585 .07077 m .13585 .07452 L s .1732 .07077 m .1732 .07452 L s .2479 .07077 m .2479 .07452 L s .28525 .07077 m .28525 .07452 L s .3226 .07077 m .3226 .07452 L s .35994 .07077 m .35994 .07452 L s .43464 .07077 m .43464 .07452 L s .47199 .07077 m .47199 .07452 L s .50934 .07077 m .50934 .07452 L s .54669 .07077 m .54669 .07452 L s .62138 .07077 m .62138 .07452 L s .65873 .07077 m .65873 .07452 L s .69608 .07077 m .69608 .07452 L s .73343 .07077 m .73343 .07452 L s .80812 .07077 m .80812 .07452 L s .84547 .07077 m .84547 .07452 L s .88282 .07077 m .88282 .07452 L s .92017 .07077 m .92017 .07452 L s .99486 .07077 m .99486 .07452 L s .25 Mabswid 0 .07077 m 1 .07077 L s .02381 .18289 m .03006 .18289 L s [(4)] .01131 .18289 1 0 Mshowa .02381 .295 m .03006 .295 L s [(6)] .01131 .295 1 0 Mshowa .02381 .40712 m .03006 .40712 L s [(8)] .01131 .40712 1 0 Mshowa .02381 .51923 m .03006 .51923 L s [(10)] .01131 .51923 1 0 Mshowa .125 Mabswid .02381 .0988 m .02756 .0988 L s .02381 .12683 m .02756 .12683 L s .02381 .15486 m .02756 .15486 L s .02381 .21092 m .02756 .21092 L s .02381 .23895 m .02756 .23895 L s .02381 .26697 m .02756 .26697 L s .02381 .32303 m .02756 .32303 L s .02381 .35106 m .02756 .35106 L s .02381 .37909 m .02756 .37909 L s .02381 .43515 m .02756 .43515 L s .02381 .46318 m .02756 .46318 L s .02381 .4912 m .02756 .4912 L s .02381 .04274 m .02756 .04274 L s .02381 .01472 m .02756 .01472 L s .02381 .54726 m .02756 .54726 L s .02381 .57529 m .02756 .57529 L s .02381 .60332 m .02756 .60332 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 .008 w .02381 .01472 Mdot .30392 .18289 Mdot .56536 .40712 Mdot .97619 .60332 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[17]:=", ImageSize->{288, 177.938}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {0.702288, 0.572843, \ 0.0192294, 0.0640578}}] }, Open ]] }, Open ]], Cell[TextData[{ StyleBox["- You can also define the plot region with {{", Background->GrayLevel[0.900008]], Cell[BoxData[ \(TraditionalForm\`x\_min\)], Background->GrayLevel[0.900008]], StyleBox[",", Background->GrayLevel[0.900008]], Cell[BoxData[ \(TraditionalForm\`x\_max\)], Background->GrayLevel[0.900008]], StyleBox["},{", Background->GrayLevel[0.900008]], Cell[BoxData[ \(TraditionalForm\`y\_min\)], Background->GrayLevel[0.900008]], StyleBox[",", Background->GrayLevel[0.900008]], Cell[BoxData[ \(TraditionalForm\`y\_max\)], Background->GrayLevel[0.900008]], StyleBox["}}:", Background->GrayLevel[0.900008]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(ListPlot[data1, PlotRange\ \[Rule] \ {{0, 8}, {0, 15}}];\)\)], "Input", CellLabel->"In[18]:="], 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 0.125 0 0.0412023 [ [.125 -0.0125 -3 -9 ] [.125 -0.0125 3 0 ] [.25 -0.0125 -3 -9 ] [.25 -0.0125 3 0 ] [.375 -0.0125 -3 -9 ] [.375 -0.0125 3 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.625 -0.0125 -3 -9 ] [.625 -0.0125 3 0 ] [.75 -0.0125 -3 -9 ] [.75 -0.0125 3 0 ] [.875 -0.0125 -3 -9 ] [.875 -0.0125 3 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [-0.0125 .0824 -6 -4.5 ] [-0.0125 .0824 0 4.5 ] [-0.0125 .16481 -6 -4.5 ] [-0.0125 .16481 0 4.5 ] [-0.0125 .24721 -6 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .32962 -6 -4.5 ] [-0.0125 .32962 0 4.5 ] [-0.0125 .41202 -12 -4.5 ] [-0.0125 .41202 0 4.5 ] [-0.0125 .49443 -12 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .57683 -12 -4.5 ] [-0.0125 .57683 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 .125 0 m .125 .00625 L s [(1)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(2)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(3)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(4)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(5)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(6)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(7)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(8)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .0824 m .00625 .0824 L s [(2)] -0.0125 .0824 1 0 Mshowa 0 .16481 m .00625 .16481 L s [(4)] -0.0125 .16481 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(6)] -0.0125 .24721 1 0 Mshowa 0 .32962 m .00625 .32962 L s [(8)] -0.0125 .32962 1 0 Mshowa 0 .41202 m .00625 .41202 L s [(10)] -0.0125 .41202 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(12)] -0.0125 .49443 1 0 Mshowa 0 .57683 m .00625 .57683 L s [(14)] -0.0125 .57683 1 0 Mshowa .125 Mabswid 0 .0206 m .00375 .0206 L s 0 .0412 m .00375 .0412 L s 0 .0618 m .00375 .0618 L s 0 .10301 m .00375 .10301 L s 0 .12361 m .00375 .12361 L s 0 .14421 m .00375 .14421 L s 0 .18541 m .00375 .18541 L s 0 .20601 m .00375 .20601 L s 0 .22661 m .00375 .22661 L s 0 .26781 m .00375 .26781 L s 0 .28842 m .00375 .28842 L s 0 .30902 m .00375 .30902 L s 0 .35022 m .00375 .35022 L s 0 .37082 m .00375 .37082 L s 0 .39142 m .00375 .39142 L s 0 .43262 m .00375 .43262 L s 0 .45322 m .00375 .45322 L s 0 .47383 m .00375 .47383 L s 0 .51503 m .00375 .51503 L s 0 .53563 m .00375 .53563 L s 0 .55623 m .00375 .55623 L s 0 .59743 m .00375 .59743 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .008 w .125 .0412 Mdot .3125 .16481 Mdot .4875 .32962 Mdot .7625 .47383 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[18]:=", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooooo`03olcooooo`;o000000?o410@ooooooooool01Oooool00ol0003o ooooooooo`3ooooooiKooooo000?ooooo`03o`000?oooooooooo00Kooooo00?o0000ooooooooool0 NOooool3o`000?oooooo6_ooool000_ooooo1_l00007ooooo`Co0000N?ooool3o`000?oooooo6_oo ool000_ooooo00GoIVIVojVYZOooooooooooo`000008ooooo`03o`000?oooooooooo07Wooooo0ol0 003ooooooa[ooooo000;ooooo`05onk^k_lQ8B7ok^k^ooooool000002?ooool00ol0003ooooooooo o`3ooooooiKooooo000ooooo`03 ohN7Qol0003ooooo00Oooooo00?o0000ooooooooool0oooooonFooooo`006?ooool00ol0003ooooo ooooo`3ooooooiKooooo000Hooooo`?o0000oooooonFooooo`006?ooool00ol0003oooooooooo`3o oooooiKooooo000Hooooo`03o`000?oooooooooo0?ooooooU_ooool001Sooooo00?o0000oooooooo ool0oooooonFooooo`006?ooool00ol0003oooooooooo`3ooooooiKooooo000Hooooo`03o`000?oo oooooooo0?ooooooU_ooool001Sooooo00?o0000ooooooooool0oooooonFooooo`006?ooool00ol0 003oooooooooo`3ooooooiKooooo000Hooooo`03o`000?oooooooooo0?ooooooU_ooool001Sooooo 0ol0003ooooooiKooooo000Hooooo`03o`000?oooooooooo0?ooooooU_ooool001Sooooo00?o0000 ooooooooool0oooooonFooooo`006?ooool00ol0003oooooooooo`3ooooooiKooooo000Hooooo`03 o`000?oooooooooo0?ooooooU_ooool001Sooooo00?o0000ooooooooool0oooooonFooooo`006?oo ool00ol0003oooooooooo`3ooooooiKooooo000Hooooo`03o`000?oooooooooo0?ooooooU_ooool0 01Sooooo0ol0003ooooooiKooooo000Hooooo`03o`000?oooooooooo0?ooooooU_ooool001Sooooo 00?o0000ooooooooool0oooooonFooooo`006?ooool00ol0003oooooooooo`3ooooooiKooooo000H ooooo`03o`000?oooooooooo0?ooooooU_ooool001Sooooo00?o0000ooooooooool0oooooonFoooo o`002oooool01_o^k^koA4A4o`000?l0003oEEEEonk^kPOooooo00?o0000ooooooooool0oooooonF ooooo`002oooool01_mEEEGoMgMgooooooooooooMgMgoeEEE@Oooooo00?o0000ooooooooool0oooo oonFooooo`002oooool00ol@413oooooooooo`02ooooo`03o`000?oooooooooo00Gooooo1?l0003o oooooiGooooo000;ooooo`03o`000?o^k^kooooo00;ooooo00?o0000ooooooooool01Oooool00ol0 003oooooooooo`3ooooooiKooooo000;ooooo`06o`000?mEEEGok^k^oooooomgMgOoEEEE1oooool0 0ol0003oooooooooo`3ooooooiKooooo000;ooooo`06ob4Q8OmVIVKo0000o`000?mEEEGok^k^1ooo ool00ol0003oooooooooo`3ooooooiKooooo000;ooooo`03ohN7QomVIVKooooo00[ooooo00?o0000 ooooooooool0oooooonFooooo`003?ooool00olb"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {-0.492174, -1.12207, \ 0.0299809, 0.0909565}}] }, Open ]], Cell[TextData[StyleBox["You may have uncertainties recorded for the \ points...", Background->GrayLevel[0.900008]]], "Text"], Cell[BoxData[{ \(\(xerror = { .1, .1, .1, .1};\)\), "\[IndentingNewLine]", \(\(yerror\ = \ { .1, .2, .3, .4};\)\), "\[IndentingNewLine]", \(\(errors = Transpose[{xerror, yerror}];\)\)}], "Input", CellLabel->"In[21]:="], Cell[TextData[{ StyleBox["To add error bars to the plot, you need to construct a table of \ data ", Background->GrayLevel[0.900008]], StyleBox["{{", "Input", Background->GrayLevel[0.900008]], StyleBox[Cell[BoxData[ \(TraditionalForm\`x\_i\)], "Input", Background->GrayLevel[0.900008]], "Input"], StyleBox[",", "Input", Background->GrayLevel[0.900008]], StyleBox[Cell[BoxData[ \(TraditionalForm\`y\_i\)], "Input", Background->GrayLevel[0.900008]], "Input"], StyleBox["},ErrorBar[", "Input", Background->GrayLevel[0.900008]], StyleBox[Cell[BoxData[ \(TraditionalForm\`\[Sigma]\_\(x\_i\)\)], "Input", Background->GrayLevel[0.900008]], "Input"], StyleBox[",", "Input", Background->GrayLevel[0.900008]], StyleBox[Cell[BoxData[ \(TraditionalForm\`\(\[Sigma]\_y\)\_i\)], "Input", Background->GrayLevel[0.900008]], "Input"], StyleBox["]}", "Input", Background->GrayLevel[0.900008]], StyleBox[" as shown below:", Background->GrayLevel[0.900008]] }], "Text"], Cell[BoxData[ RowBox[{\(fulldata = Table[{data1[\([i]\)], ErrorBar[errors[\([i, 1]\)], errors[\([i, 2]\)]]}, {i, 1, Length[xerror]}]\), ";", " ", StyleBox[\( (*\ you\ can\ use\ the\ Length\ of\ any\ of\ the\ vectors\ *) \), FontSize->9, FontWeight->"Plain"]}]], "Input", CellLabel->"In[19]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dataplot", "=", \(MultipleListPlot[fulldata]\), RowBox[{ StyleBox["(*", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], RowBox[{ RowBox[{ RowBox[{ StyleBox["Use", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["MultipleListPlot", FontSize->9, FontWeight->"Bold"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["to", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["plot", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["error", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["bars", FontSize->9, FontWeight->"Plain"]}], StyleBox["...", FontSize->9, FontWeight->"Plain"]}], StyleBox["we", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["named", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["a", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["variable", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["for", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["the", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["plot", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["because", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["we", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["will", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["use", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["it", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox[\(later!\), FontSize->9, FontWeight->"Plain"]}], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["*)", FontSize->9, FontWeight->"Plain"]}]}]], "Input", CellLabel->"In[20]:="], 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.15361 0.0147151 0.0494625 [ [.17742 .00222 -3 -9 ] [.17742 .00222 3 0 ] [.33103 .00222 -3 -9 ] [.33103 .00222 3 0 ] [.48464 .00222 -3 -9 ] [.48464 .00222 3 0 ] [.63825 .00222 -3 -9 ] [.63825 .00222 3 0 ] [.79186 .00222 -3 -9 ] [.79186 .00222 3 0 ] [.94547 .00222 -3 -9 ] [.94547 .00222 3 0 ] [.01131 .11364 -6 -4.5 ] [.01131 .11364 0 4.5 ] [.01131 .21257 -6 -4.5 ] [.01131 .21257 0 4.5 ] [.01131 .31149 -6 -4.5 ] [.01131 .31149 0 4.5 ] [.01131 .41042 -6 -4.5 ] [.01131 .41042 0 4.5 ] [.01131 .50934 -12 -4.5 ] [.01131 .50934 0 4.5 ] [.01131 .60827 -12 -4.5 ] [.01131 .60827 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 .17742 .01472 m .17742 .02097 L s [(1)] .17742 .00222 0 1 Mshowa .33103 .01472 m .33103 .02097 L s [(2)] .33103 .00222 0 1 Mshowa .48464 .01472 m .48464 .02097 L s [(3)] .48464 .00222 0 1 Mshowa .63825 .01472 m .63825 .02097 L s [(4)] .63825 .00222 0 1 Mshowa .79186 .01472 m .79186 .02097 L s [(5)] .79186 .00222 0 1 Mshowa .94547 .01472 m .94547 .02097 L s [(6)] .94547 .00222 0 1 Mshowa .125 Mabswid .05453 .01472 m .05453 .01847 L s .08525 .01472 m .08525 .01847 L s .11598 .01472 m .11598 .01847 L s .1467 .01472 m .1467 .01847 L s .20814 .01472 m .20814 .01847 L s .23886 .01472 m .23886 .01847 L s .26959 .01472 m .26959 .01847 L s .30031 .01472 m .30031 .01847 L s .36175 .01472 m .36175 .01847 L s .39247 .01472 m .39247 .01847 L s .4232 .01472 m .4232 .01847 L s .45392 .01472 m .45392 .01847 L s .51536 .01472 m .51536 .01847 L s .54608 .01472 m .54608 .01847 L s .5768 .01472 m .5768 .01847 L s .60753 .01472 m .60753 .01847 L s .66897 .01472 m .66897 .01847 L s .69969 .01472 m .69969 .01847 L s .73041 .01472 m .73041 .01847 L s .76114 .01472 m .76114 .01847 L s .82258 .01472 m .82258 .01847 L s .8533 .01472 m .8533 .01847 L s .88402 .01472 m .88402 .01847 L s .91475 .01472 m .91475 .01847 L s .97619 .01472 m .97619 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .11364 m .03006 .11364 L s [(2)] .01131 .11364 1 0 Mshowa .02381 .21257 m .03006 .21257 L s [(4)] .01131 .21257 1 0 Mshowa .02381 .31149 m .03006 .31149 L s [(6)] .01131 .31149 1 0 Mshowa .02381 .41042 m .03006 .41042 L s [(8)] .01131 .41042 1 0 Mshowa .02381 .50934 m .03006 .50934 L s [(10)] .01131 .50934 1 0 Mshowa .02381 .60827 m .03006 .60827 L s [(12)] .01131 .60827 1 0 Mshowa .125 Mabswid .02381 .03945 m .02756 .03945 L s .02381 .06418 m .02756 .06418 L s .02381 .08891 m .02756 .08891 L s .02381 .13837 m .02756 .13837 L s .02381 .1631 m .02756 .1631 L s .02381 .18783 m .02756 .18783 L s .02381 .2373 m .02756 .2373 L s .02381 .26203 m .02756 .26203 L s .02381 .28676 m .02756 .28676 L s .02381 .33622 m .02756 .33622 L s .02381 .36095 m .02756 .36095 L s .02381 .38568 m .02756 .38568 L s .02381 .43515 m .02756 .43515 L s .02381 .45988 m .02756 .45988 L s .02381 .48461 m .02756 .48461 L s .02381 .53407 m .02756 .53407 L s .02381 .5588 m .02756 .5588 L s .02381 .58353 m .02756 .58353 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 .001 w .19278 .06418 m .16206 .06418 L s .19278 .06418 0 1.5 Mabsadd m .19278 .06418 0 -1.5 Mabsadd L s .16206 .06418 0 1.5 Mabsadd m .16206 .06418 0 -1.5 Mabsadd L s .17742 .06912 m .17742 .05923 L s .17742 .06912 1.5 0 Mabsadd m .17742 .06912 -1.5 0 Mabsadd L s .17742 .05923 1.5 0 Mabsadd m .17742 .05923 -1.5 0 Mabsadd L s .4232 .21257 m .39247 .21257 L s .4232 .21257 0 1.5 Mabsadd m .4232 .21257 0 -1.5 Mabsadd L s .39247 .21257 0 1.5 Mabsadd m .39247 .21257 0 -1.5 Mabsadd L s .40783 .22246 m .40783 .20267 L s .40783 .22246 1.5 0 Mabsadd m .40783 .22246 -1.5 0 Mabsadd L s .40783 .20267 1.5 0 Mabsadd m .40783 .20267 -1.5 0 Mabsadd L s .63825 .41042 m .60753 .41042 L s .63825 .41042 0 1.5 Mabsadd m .63825 .41042 0 -1.5 Mabsadd L s .60753 .41042 0 1.5 Mabsadd m .60753 .41042 0 -1.5 Mabsadd L s .62289 .42525 m .62289 .39558 L s .62289 .42525 1.5 0 Mabsadd m .62289 .42525 -1.5 0 Mabsadd L s .62289 .39558 1.5 0 Mabsadd m .62289 .39558 -1.5 0 Mabsadd L s .97619 .58353 m .94547 .58353 L s .97619 .58353 0 1.5 Mabsadd m .97619 .58353 0 -1.5 Mabsadd L s .94547 .58353 0 1.5 Mabsadd m .94547 .58353 0 -1.5 Mabsadd L s .96083 .60332 m .96083 .56375 L s .96083 .60332 1.5 0 Mabsadd m .96083 .60332 -1.5 0 Mabsadd L s .96083 .56375 1.5 0 Mabsadd m .96083 .56375 -1.5 0 Mabsadd L s .0001 w .17742 .06418 -1.875 0 Mabsadd m .17742 .06418 0 2.5 Mabsadd L .17742 .06418 1.875 0 Mabsadd L .17742 .06418 0 -2.5 Mabsadd L .17742 .06418 -1.875 0 Mabsadd L closepath F .40783 .21257 -1.875 0 Mabsadd m .40783 .21257 0 2.5 Mabsadd L .40783 .21257 1.875 0 Mabsadd L .40783 .21257 0 -2.5 Mabsadd L .40783 .21257 -1.875 0 Mabsadd L closepath F .62289 .41042 -1.875 0 Mabsadd m .62289 .41042 0 2.5 Mabsadd L .62289 .41042 1.875 0 Mabsadd L .62289 .41042 0 -2.5 Mabsadd L .62289 .41042 -1.875 0 Mabsadd L closepath F .96083 .58353 -1.875 0 Mabsadd m .96083 .58353 0 2.5 Mabsadd L .96083 .58353 1.875 0 Mabsadd L .96083 .58353 0 -2.5 Mabsadd L .96083 .58353 -1.875 0 Mabsadd L closepath F % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[20]:=", ImageSize->{288, 177.938}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooool2o`000003oa0@4?oooooooooo 03Kooooo00KoV9RHoa0@4?l0003o0000odA4A?o^k^hiooooo`06onk^k_m4A4Co0000o`000?mEEEGo k^k^6oooool005[ooooo00?o0000ooooooooool0>Oooool00onHV9So0000olc_ooool00onHV9So0000olc?ooool00ol0003ok^k^ooooo`02ooooo`03o`000?oooooooooo01Wooooo 001Jooooo`03o`000?oooooooooo03cooooo00?oc_ooool01?lQ8B7o0000o`00 0?nj^[Xhooooo`05onk^k_lQ8B7ok^k^ooooool00000>Oooool01_l@413oV9RHooooooooooooMgMg ofIVISWooooo00Ko0000oeEEEOo^k^koooooogMgMomEEEDKooooo`00F_ooool00ol0003ooooooooo o`0mooooo`03ojVYZOlbOooool01?nYZJWoIVIVoooo ool0000iooooo`05o`000?lQ8B7o0000o`000?mVIVH0>_ooool01_lQ8B7oIVIVo`000?l0003oEEEE onk^kQ_ooooo001Jooooo`03o`000?oooooooooo03kooooo00?o0000ooooooooool0>oooool00ol0 003oooooooooo`0hooooo`03odA4A?o?ooool01_lQ8B7oQhN7ooooooooooooIVIVoc8bOooool00ol0003oooooooooo`0mooooo`03oc8b<_mVIVKogMgM01gooooo001Hooooo`03olcoooool00on7QhOo0000ooooo`0hooooo`Go0000??ooool01?mgMgOo410@o`000?lQ 8B4Kooooo`007Oooool00ol0003oooooooooo`3ooooooi7ooooo000Mooooo`03o`000?oooooooooo 0?ooooooTOooool001gooooo00?o0000ooooooooool0oooooonAooooo`007Oooool00ol0003ooooo ooooo`3ooooooi7ooooo000Mooooo`03o`000?oooooooooo0?ooooooTOooool001gooooo00?o0000 ooooooooool0oooooonAooooo`004oooooooo`0009Oo00001oooool001gooooo00?o0000oooooooo ool02Oooool00ol0003oooooooooo`0:ooooo`03o`000?oooooooooo00Wooooo00?o0000oooooooo ool02_ooool00ol0003oooooooooo`09ooooo`03o`000?oooooooooo00Wooooo00?o0000oooooooo ool02_ooool00ol0003oooooooooo`09ooooo`03o`000?oooooooooo00[ooooo00?o0000oooooooo ool02Oooool00ol0003oooooooooo`0:ooooo`03o`000?oooooooooo00Wooooo00?o0000oooooooo ool02_ooool00ol0003oooooooooo`09ooooo`03o`000?oooooooooo00Wooooo00?o0000oooooooo ool02_ooool00ol0003oooooooooo`09ooooo`03o`000?oooooooooo00[ooooo00?o0000oooooooo ool02Oooool00ol0003oooooooooo`0:ooooo`03o`000?oooooooooo00Wooooo00?o0000oooooooo ool02_ooool00ol0003oooooooooo`09ooooo`03o`000?oooooooooo00[ooooo00?o0000oooooooo ool02Oooool00ol0003oooooooooo`09ooooo`03o`000?oooooooooo00[ooooo00?o0000oooooooo ool02Oooool00ol0003oooooooooo`0:ooooo`03o`000?oooooooooo00Wooooo00?o0000oooooooo ool02_ooool00ol0003oooooooooo`0>ooooo`007Oooool00ol0003oooooooooo`09ooooo`03o`00 0?oooooooooo00[ooooo00?o0000ooooooooool02Oooool00ol0003oooooooooo`0:ooooo`03o`00 0?oooooooooo00Wooooo00?o0000ooooooooool02Oooool00ol0003oooooooooo`0:ooooo`03o`00 0?oooooooooo00Wooooo00?o0000ooooooooool02_ooool00ol0003oooooooooo`09ooooo`03o`00 0?oooooooooo00[ooooo00?o0000ooooooooool02Oooool00ol0003oooooooooo`0:ooooo`03o`00 0?oooooooooo00Wooooo00?o0000ooooooooool02Oooool00ol0003oooooooooo`0:ooooo`03o`00 0?oooooooooo00Wooooo00?o0000ooooooooool02_ooool00ol0003oooooooooo`09ooooo`03o`00 0?oooooooooo00[ooooo00?o0000ooooooooool02Oooool00ol0003oooooooooo`0:ooooo`03o`00 0?oooooooooo00Wooooo00?o0000ooooooooool02_ooool00ol0003oooooooooo`09ooooo`03o`00 0?oooooooooo00Wooooo00?o0000ooooooooool02_ooool00ol0003oooooooooo`09ooooo`03o`00 0?oooooooooo00[ooooo00?o0000ooooooooool02Oooool00ol0003oooooooooo`0:ooooo`03o`00 0?oooooooooo00kooooo000Mooooo`03o`000?oooooooooo03_ooooo00?o0000ooooooooool0>ooo ool00ol0003oooooooooo`0kooooo`03o`000?oooooooooo03cooooo00?o0000ooooooooool0>ooo ool00ol0003oooooooooo`0kooooo`03o`000?oooooooooo01_ooooo000Mooooo`03o`000?oooooo oooo0?ooooooTOooool001gooooo00?o0000ooooooooool0oooooonAooooo`007Oooool00ol0003o ooooooooo`3ooooooi7ooooo000Mooooo`03o`000?oooooooooo0?ooooooTOooool001gooooo00?o 0000ooooooooool0oooooonAooooo`007Oooool00ol0003oooooooooo`3ooooooi7ooooo000Moooo o`;o0000oooooonBooooo`007Oooool00ol0003oooooooooo`3ooooooi7ooooo000Mooooo`03o`00 0?oooooooooo0?ooooooTOooool001gooooo00?o0000ooooooooool0oooooonAooooo`007Oooool0 0ol0003oooooooooo`3ooooooi7ooooo000Mooooo`03o`000?oooooooooo0?ooooooTOooool001go oooo00?o0000ooooooooool0oooooonAooooo`007Oooool00ol0003oooooooooo`3ooooooi7ooooo 000Mooooo`03o`000?oooooooooo03Gooooo00Co0000oooooooooooooooo1Ol00003ooooo`03o`00 0?oooooooooo0?ooooooCOooool001gooooo00?o0000ooooooooool0=Oooool00ol0003ooooooooo o`02ooooo`?o00001?ooool00ol0003oooooooooo`3oooooodgooooo000Mooooo`;o0000=_ooool= o`000?ooooooCoooool001gooooo00?o0000ooooooooool0=Oooool00ol0003oooooooooo`06o`00 00?ooooo00?o0000ooooooooool0oooooom=ooooo`007Oooool00ol0003oooooooooo`0eooooo`04 o`000?ooooooooooooooo`Go00000oooool00ol0003oooooooooo`3oooooodgooooo000Mooooo`03 o`000?oooooooooo03[ooooo0ol0003ooooooeCooooo000Mooooo`03o`000?oooooooooo03_ooooo 00?o0000ooooooooool0oooooomCooooo`007Oooool00ol0003oooooooooo`3ooooooi7ooooo000M ooooo`03o`000?oooooooooo0?ooooooTOooool001gooooo00?o0000ooooooooool0oooooonAoooo o`007Oooool00ol0003oooooooooo`3ooooooi7ooooo000Mooooo`03o`000?oooooooooo0?oooooo TOooool001gooooo0_l0003ooooooi;ooooo000Mooooo`03o`000?oooooooooo0?ooooooTOooool0 01gooooo00?o0000ooooooooool0oooooonAooooo`007Oooool00ol0003oooooooooo`3ooooooi7o oooo000Mooooo`03o`000?oooooooooo0?ooooooTOooool001gooooo00?o0000ooooooooool0oooo oonAooooo`007Oooool00ol0003oooooooooo`3ooooooi7ooooo000Mooooo`03o`000?oooooooooo 0?ooooooTOooool0013ooooo1_l00007ooooo`03o`000?oooooooooo0?ooooooTOooool0013ooooo 00?oV9RHo`000?okooooo000@ooooo`Ko00001oooool3o`0009;ooooo3_l0003`ooooo`004?ooool01OmV IVKoZJVYoooooooooooo000000Sooooo00?o0000ooooooooool0T_ooool01?l0003ooooooooooooo ool5o`0000Cooooo00?o0000ooooooooool0k_ooool0013ooooo00Gok^k^ob4Q8Oo^k^koooooo`00 0008ooooo`03o`000?oooooooooo09;ooooo00?o0000ooooooooool00_ooool4o`0000Cooooo00?o 0000ooooooooool0k_ooool0017ooooo00CoZJVYofIVI_oooooo00002?ooool00ol0003ooooooooo o`2Booooo`03o`000?oooooooooo00;ooooo0ol00005ooooo`03o`000?oooooooooo0>kooooo000B ooooo`03odA4A?oWooooo00?o0000ooooooooool01?ooool00ol0003oooooooooo`03ooooo`03 o`000?oooooooooo09Oooooo000@ooooo`03o`000?oooooooooo00;ooooo00?o0000ooooooooool0 1Oooool00ol0003oooooooooo`3Yooooo`03o`000?oooooooooo00?ooooo0_l00005ooooo`03o`00 0?oooooooooo09Oooooo000@ooooo`06oc8b<_mgMgOok^k^onk^k_mgMgOoWo oooo3_l0002Iooooo`004?ooool00ooMgMgo0000o`000002o`000003omgMgOoooooooooo00Gooooo 00?o0000ooooooooool0jOooool00ol0003oooooooooo`02ooooo`Co00001?ooool00ol0003ooooo ooooo`2Gooooo`004?ooool01_lbooooo`007Oooool00ol0003oooooooooo`3oooooog?ooooo00?o0000ooooooooool00_ooool3 o`0000Gooooo00?o0000ooooooooool03_ooool001gooooo0_l0003oooooogCooooo3_l0000@oooo o`007Oooool00ol0003oooooooooo`3oooooog?ooooo00Co0000oooooooooooooooo1Ol00004oooo o`03o`000?oooooooooo00kooooo000Mooooo`03o`000?oooooooooo0?ooooooLoooool00ol0003o ooooooooo`02ooooo`?o00001Oooool00ol0003oooooooooo`0>ooooo`007Oooool00ol0003ooooo ooooo`3oooooogWooooo00?o0000ooooooooool05Oooool001gooooo00?o0000ooooooooool0oooo oomiooooo`03o`000?oooooooooo01Gooooo000Mooooo`03o`000?oooooooooo0?ooooooNOooool0 0ol0003oooooooooo`0Eooooo`007Oooool00ol0003oooooooooo`3oooooogWooooo00?o0000oooo ooooool05Oooool000Sooooo1?l000001?l@413oooooooooooooool6o`0000Oooooo00?o0000oooo ooooool0oooooomiooooo`03o`000?oooooooooo01Gooooo000:ooooo`03o`000?oooooooooo00?o oooo00?oV9RHo`000?o"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {-0.469284, -0.926117, \ 0.0240942, 0.0748265}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output", CellLabel->"Out[20]="] }, Open ]], Cell[CellGroupData[{ Cell["Simple Data Fitting", "Section"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[" has built-in linear regression functions. In this case we are \ fitting a function ", Background->GrayLevel[0.900008]], StyleBox["a + bx+ c", FontSlant->"Italic", Background->GrayLevel[0.900008]], Cell[BoxData[ \(TraditionalForm\`x\^2\)], Background->GrayLevel[0.900008]], StyleBox[". ", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox["The Regress function includes the constant by default. It \ outputs the parameter values, the standard deviations, and confidence \ intervals. See the Help browser for more info.", Background->GrayLevel[0.900008]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(Clear[x]\), ";", " ", RowBox[{ StyleBox["(*", FontSize->12, FontWeight->"Plain"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], RowBox[{ StyleBox["Clear", FontSize->12, FontWeight->"Bold"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox["is", FontSize->12, FontWeight->"Plain"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox["a", FontSize->12, FontWeight->"Plain"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox["useful", FontSize->12, FontWeight->"Plain"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox[\(fn . \ that\), FontSize->12, FontWeight->"Plain"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox["clears", FontSize->12, FontWeight->"Plain"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox["the", FontSize->12, FontWeight->"Plain"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox["variable", FontSize->12, FontWeight->"Plain"]}], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox["*)", FontSize->12, FontWeight->"Plain"]}], "\[IndentingNewLine]", \(datafit = Regress[data1, {1, x, x^2}, x, RegressionReport \[Rule] {BestFit, ParameterCITable}]\)}]], "Input",\ CellLabel->"In[21]:="], Cell[BoxData[ RowBox[{"{", RowBox[{\(BestFit \[Rule] \(-1.8754741466125655`\) + 2.7968450935773705`\ x - 0.09645570934882264`\ x\^2\), ",", RowBox[{"ParameterCITable", "\[Rule]", TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"SE\"\>", "\<\"CI\"\>"}, {"1", \(-1.8754741466125655`\), "1.3257801179625686`", \({\(-18.7211077605948`\), 14.97015946736967`}\)}, {"x", "2.7968450935773705`", "0.8739786195910133`", \({\(-8.308106181985387`\), 13.90179636914013`}\)}, {\(x\^2\), \(-0.09645570934882264`\), "0.11861788031195575`", \({\(-1.603638781963598`\), 1.410727363265953`}\)} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableDepth -> 2, TableHeadings -> {{1, x, Power[ x, 2]}, {"Estimate", "SE", "CI"}}]]]}]}], "}"}]], "Output", CellLabel->"Out[21]="] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Now plot the fit results:", Background->GrayLevel[0.900008]]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\n", RowBox[{ RowBox[{ RowBox[{"fitplot", "=", RowBox[{"Plot", "[", RowBox[{\((BestFit /. datafit)\), ",", \({x, 0, 10}\), ",", StyleBox[\(PlotStyle \[Rule] RGBColor[1, 0, 0]\), FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[\(AxesLabel -> {"\", \ "\"}\), FontColor->RGBColor[1, 0, 0]]}], "]"}]}], ";"}], RowBox[{ StyleBox["(*", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox[\(this\ shows\ how\ to\ make\ colors\ in\ plotting\ and\ \ labels\), FontSize->9, FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["*)", FontSize->9, FontWeight->"Plain"]}], "\n"}]}]], "Input", CellLabel->"In[22]:="], 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.0952381 0.0749628 0.032124 [ [.21429 .06246 -3 -9 ] [.21429 .06246 3 0 ] [.40476 .06246 -3 -9 ] [.40476 .06246 3 0 ] [.59524 .06246 -3 -9 ] [.59524 .06246 3 0 ] [.78571 .06246 -3 -9 ] [.78571 .06246 3 0 ] [.97619 .06246 -6 -9 ] [.97619 .06246 6 0 ] [1.025 .07496 0 -6 ] [1.025 .07496 40 6 ] [.01131 .15527 -18 -4.5 ] [.01131 .15527 0 4.5 ] [.01131 .23558 -6 -4.5 ] [.01131 .23558 0 4.5 ] [.01131 .31589 -18 -4.5 ] [.01131 .31589 0 4.5 ] [.01131 .3962 -12 -4.5 ] [.01131 .3962 0 4.5 ] [.01131 .47651 -24 -4.5 ] [.01131 .47651 0 4.5 ] [.01131 .55682 -12 -4.5 ] [.01131 .55682 0 4.5 ] [.02381 .64303 -20 0 ] [.02381 .64303 20 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .07496 m .21429 .08121 L s [(2)] .21429 .06246 0 1 Mshowa .40476 .07496 m .40476 .08121 L s [(4)] .40476 .06246 0 1 Mshowa .59524 .07496 m .59524 .08121 L s [(6)] .59524 .06246 0 1 Mshowa .78571 .07496 m .78571 .08121 L s [(8)] .78571 .06246 0 1 Mshowa .97619 .07496 m .97619 .08121 L s [(10)] .97619 .06246 0 1 Mshowa .125 Mabswid .07143 .07496 m .07143 .07871 L s .11905 .07496 m .11905 .07871 L s .16667 .07496 m .16667 .07871 L s .2619 .07496 m .2619 .07871 L s .30952 .07496 m .30952 .07871 L s .35714 .07496 m .35714 .07871 L s .45238 .07496 m .45238 .07871 L s .5 .07496 m .5 .07871 L s .54762 .07496 m .54762 .07871 L s .64286 .07496 m .64286 .07871 L s .69048 .07496 m .69048 .07871 L s .7381 .07496 m .7381 .07871 L s .83333 .07496 m .83333 .07871 L s .88095 .07496 m .88095 .07871 L s .92857 .07496 m .92857 .07871 L s .25 Mabswid 0 .07496 m 1 .07496 L s gsave 1.025 .07496 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 75.000 13.000 moveto (axis) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .02381 .15527 m .03006 .15527 L s [(2.5)] .01131 .15527 1 0 Mshowa .02381 .23558 m .03006 .23558 L s [(5)] .01131 .23558 1 0 Mshowa .02381 .31589 m .03006 .31589 L s [(7.5)] .01131 .31589 1 0 Mshowa .02381 .3962 m .03006 .3962 L s [(10)] .01131 .3962 1 0 Mshowa .02381 .47651 m .03006 .47651 L s [(12.5)] .01131 .47651 1 0 Mshowa .02381 .55682 m .03006 .55682 L s [(15)] .01131 .55682 1 0 Mshowa .125 Mabswid .02381 .09102 m .02756 .09102 L s .02381 .10709 m .02756 .10709 L s .02381 .12315 m .02756 .12315 L s .02381 .13921 m .02756 .13921 L s .02381 .17133 m .02756 .17133 L s .02381 .1874 m .02756 .1874 L s .02381 .20346 m .02756 .20346 L s .02381 .21952 m .02756 .21952 L s .02381 .25164 m .02756 .25164 L s .02381 .26771 m .02756 .26771 L s .02381 .28377 m .02756 .28377 L s .02381 .29983 m .02756 .29983 L s .02381 .33195 m .02756 .33195 L s .02381 .34802 m .02756 .34802 L s .02381 .36408 m .02756 .36408 L s .02381 .38014 m .02756 .38014 L s .02381 .41226 m .02756 .41226 L s .02381 .42833 m .02756 .42833 L s .02381 .44439 m .02756 .44439 L s .02381 .46045 m .02756 .46045 L s .02381 .49257 m .02756 .49257 L s .02381 .50864 m .02756 .50864 L s .02381 .5247 m .02756 .5247 L s .02381 .54076 m .02756 .54076 L s .02381 .0589 m .02756 .0589 L s .02381 .04284 m .02756 .04284 L s .02381 .02678 m .02756 .02678 L s .02381 .01071 m .02756 .01071 L s .02381 .57288 m .02756 .57288 L s .02381 .58895 m .02756 .58895 L s .02381 .60501 m .02756 .60501 L s .25 Mabswid .02381 0 m .02381 .61803 L s gsave .02381 .64303 -81 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (y) show 75.000 13.000 moveto (axis) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .5 Mabswid .02381 .01472 m .06244 .05065 L .10458 .08868 L .14415 .1233 L .18221 .15557 L .22272 .18884 L .26171 .21981 L .30316 .25159 L .34309 .28109 L .3815 .30845 L .42237 .33644 L .46172 .36232 L .49955 .3862 L .53984 .41056 L .57861 .43295 L .61984 .45564 L .65954 .47639 L .69774 .49533 L .73838 .5144 L .77751 .53168 L .81909 .54891 L .85916 .56439 L .89771 .57825 L .93871 .59187 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[22]:=", ImageSize->{288, 177.938}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg_oo ool01_l0003oEEEEonk^k_ooooooMgMgoeEEECWooooo00?ogMgMo`000?l000000_l000000ooMgMgo ooooooooo`0eooooo`03o`000?oooooooooo00?ooooo00?o0000ooooooooool00_ooool00ol0003o ooooooooo`15ooooo`00:?ooool00ol0003oooooooooo`08ooooo`03ool00?oooooooooo037ooooo 00?oZJVYoc8b<_ooool0>Oooool01?nYZJWoIVIVooooool0000jooooo`06ob4Q8OmVIVKo0000o`00 0?mEEEGok^k^>Oooool01_lb_oo ool00on7QhOoIVIVooooo`0looooo`03o`000?oooooooooo00;ooooo00?o0000ooooooooool0=Ooo ool00ol0003oooooooooo`03ooooo`06odA4A?nYZJWooooooooooonYZJWoA4A4Aoooool002Sooooo 00?o0000ooooooooool02oooool00ooo003oooooooooo`0Zooooo`06o`000?n7QhOok^k^oooooomg MgOooooool00ooMgMgoA4A4o`00000kooooo`03oc8b<_mVIVKogMgM03_ooooo00KoOooool01_o^k^koA4A4o`000?l0003oA4A4onk^kSGooooo00?ocooooo`03ool00?oooooooooo0?ooooooMOoo ool002Sooooo00?o0000ooooooooool03oooool00ooo003oooooooooo`3ooooooc_ooooo00Oo410@ o`000?l@413ooooooa0@4?l0003o410@00_ooooo00OoZJVYoa0@4?l0003o8B4QoiRHV?l@413o0000 00;ooooo00Oo410@o`000?l@413ooooooa0@4?l0003o410@00;ooooo00?o410@o`000?l000000ol0 00001Ol@413oooooooooool@413ooooo o`03ojVYZOlb?ooool2ool00?ooooooCOoo ool002Sooooo00?o0000ooooooooool0>Oooool00ooo003oooooooooo`3ooooood[ooooo000Xoooo o`03o`000?oooooooooo03[ooooo00?oo`00ooooooooool0oooooom9ooooo`00:?ooool00ol0003o ooooooooo`0kooooo`03ool00?oooooooooo0?ooooooB?ooool002Sooooo00?o0000ooooooooool0 ??ooool00ooo003oooooooooo`3oooooodOooooo000Xooooo`;o0000?_ooool00ooo003ooooooooo o`3oooooodKooooo000Xooooo`03o`000?oooooooooo03kooooo0_oo003oooooodKooooo000Xoooo o`03o`000?oooooooooo043ooooo00?oo`00ooooooooool0oooooom3ooooo`00:?ooool00ol0003o ooooooooo`11ooooo`03ool00?oooooooooo0?oooooo@_ooool002Sooooo00?o0000ooooooooool0 @_ooool2ool00?oooooo@_ooool002Sooooo00?o0000ooooooooool0A?ooool00ooo003ooooooooo o`3oooooocoooooo000Xooooo`;o0000A_ooool00ooo003oooooooooo`3oooooockooooo000Xoooo o`03o`000?oooooooooo04Kooooo00?oo`00ooooooooool0oooooolmooooo`00:?ooool00ol0003o ooooooooo`17ooooo`;oo`00oooooolmooooo`00:?ooool00ol0003oooooooooo`19ooooo`03ool0 0?oooooooooo0?oooooo>_ooool002Sooooo00?o0000ooooooooool0B_ooool00ooo003ooooooooo o`3oooooocWooooo000Xooooo`;o0000C?ooool2ool00?oooooo>Oooool002Sooooo00?o0000oooo ooooool0COooool00ooo003oooooooooo`3oooooocKooooo000Xooooo`03o`000?oooooooooo04ko oooo0_oo003oooooocKooooo000Looooo`06oiRHV?l@413o0000o`000?m4A4Cok^k^1_ooool00ol0 003oooooooooo`1@ooooo`03ool00?oooooooooo0?ooooooooooo`03o`000?o^k^kooooo00_ooooo00Go0000ob4Q 8Ol0003o0000ofIVIP07ooooo`03o`000?oooooooooo07_ooooo00?oo`00ooooooooool0ooooool8 ooooo`003_ooool00omEEEGoV9RHooooo`0;ooooo`03o`000?oooooooooo00Wooooo00?o0000oooo ooooool0O?ooool00ooo003oooooooooo`3oooooo`Oooooo000:ooooo`06oa0@4?oooooooooooooo oonYZJWoA4A43?ooool00ol0003oooooooooo`09ooooo`03o`000?oooooooooo07gooooo0_oo003o ooooo`Oooooo000:ooooo`Ko00003?ooool5o`0000Oooooo0_l00020ooooo`03ool00?oooooooooo 0?oooooo1?ooool002Sooooo00?o0000ooooooooool0P?ooool2ool00?oooooo1?ooool002Sooooo 00?o0000ooooooooool0P_ooool00ooo003oooooooooo`3oooooo`7ooooo000Xooooo`03o`000?oo oooooooo08?ooooo0_oo003oooooo`7ooooo000Xooooo`03o`000?oooooooooo08Gooooo00?oo`00 ooooooooool0oOooool002Sooooo0_l00027ooooo`;oo`00oOooool002Sooooo00?o0000oooooooo ool0R?ooool00ooo003oooooooooo`3jooooo`00:?ooool00ol0003oooooooooo`29ooooo`03ool0 0?oooooooooo0?Wooooo000Xooooo`03o`000?oooooooooo08[ooooo0_oo003iooooo`00:?ooool0 0ol0003oooooooooo`2kooooo000Xoooo o`03o`000?oooooooooo09Gooooo0_oo003^ooooo`00:?ooool2o`0009Sooooo0_oo003/ooooo`00 :?ooool00ol0003oooooooooo`2Iooooo`03ool00?oooooooooo0>Wooooo000Xooooo`03o`000?oo oooooooo09[ooooo0_oo003Yooooo`005?ooool4o`000003oa0@4?oooooooooo00;ooooo00Co^[Zj oa0@4?l0003oMgMg1oooool00ol0003oooooooooo`2Looooo`03ool00?oooooooooo0>Kooooo000F ooooo`03o`000?oooooooooo00?ooooo00Koc7ooooo000Fooooo`03o`000?oooooooooo00?ooooo00?o 0000ooooooooool00_ooool00ol0003oooooooooo`04ooooo`03o`000?oooooooooo0:;ooooo0_oo 003Qooooo`005_ooool00ol0003oooooooooo`03ooooo`03o`000?oooooooooo00;ooooo00?o0000 ooooooooool01?ooool00ol0003oooooooooo`2Tooooo`;oo`00goooool001Kooooo00?o0000oooo ooooool00oooool01_m4A4CoZJVYooooooooooooZJVYodA4A0Kooooo00?o0000ooooooooool0Y_oo ool00ooo003oooooooooo`3Looooo`005?ooool00ol0003oA4A4o`000005ooooo`06olc;ooooo0_oo002Qooooo`00:?ooool2o`000>Gooooo0ooo002Nooooo`00:?ooool00ol0003ooooo ooooo`3Wooooo`;oo`00W?ooool002Sooooo00?o0000ooooooooool0jOooool2ool009[ooooo000X ooooo`03o`000?oooooooooo0>_ooooo0_oo002Hooooo`00:?ooool00ol0003oooooooooo`3]oooo o`;oo`00U_ooool002Sooooo00?o0000ooooooooool0koooool3ool009?ooooo000Xooooo`;o0000 loooool2ool0097ooooo000Xooooo`03o`000?oooooooooo0?Cooooo0_oo002?ooooo`00:?ooool0 0ol0003oooooooooo`3fooooo`;oo`00SOooool002Sooooo00?o0000ooooooooool0n?ooool2ool0 08_ooooo000Xooooo`03o`000?oooooooooo0?[ooooo0_oo0029ooooo`00:?ooool2o`000?gooooo 0ooo0026ooooo`00:?ooool00ol0003oooooooooo`3oooooo`;oo`00Q?ooool002Sooooo00?o0000 ooooooooool0ooooool2ooooo`;oo`00P_ooool001Cooooo1?l000001_l@413ooooooooooooooooo V9RHoa0@40;o000000?oA4A4onk^k_ooool01Oooool00ol0003oooooooooo`3oooooo`Cooooo0_oo 0020ooooo`005_ooool00ol0003oooooooooo`03ooooo`06oa0@4?n7QhOooooooooooomgMgOoA4A4 1_ooool00ol0003oooooooooo`3oooooo`Kooooo0ooo001mooooo`005_ooool00ol0003ooooooooo o`08ooooo`03o`000?oooooooooo00Cooooo0ol0003oooooo`Wooooo0ooo001jooooo`005_ooool0 0ol0003oooooooooo`07ooooo`03onk^k_l0003ooooo00Gooooo00?o0000ooooooooool0ooooool< ooooo`?oo`00Moooool001Kooooo00?o0000ooooooooool00oooool01_l@413oV9RHoooooooooooo MgMgofIVIPKooooo00?o0000ooooooooool0ooooool?ooooo`?oo`00M?ooool001Kooooo00?o0000 ooooooooool00oooool01Ol0003o8B4Qo`000?l0003oIVIV00Oooooo00?o0000ooooooooool0oooo oolBooooo`?oo`00LOooool001Kooooo00?o0000ooooooooool00oooool00ol0003oooooooooo`09 ooooo`03o`000?oooooooooo0?oooooo5Oooool3ool006kooooo000Dooooo`03o`000?m4A4Co0000 00Gooooo00?o0000ooooooooool02Oooool00ol0003oooooooooo`3ooooooaSooooo0ooo001[oooo o`005?ooool00ooooooo`07ojVYZOl@413o0000ob4Q8OnHV9So410@o`000002ooooo`07 oa0@4?l0003o410@ooooool@413o0000oa0@4002ooooo`03oa0@4?l0003o000000?o000000Go410@ oooooooooooo410@oc8booooo`06ogMgMomEEEGooooooooooomgMgOoIVIV4Oooool00ol0003oooooooooo`02oooo o`05onk^k_lb"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {-1.27511, -3.99947, \ 0.047659, 0.141295}}] }, Open ]] }, Open ]] }, Open ]], Cell[TextData[StyleBox["Now combine the fit and data on one graph (now you \ know why we named our data plot above):", Background->GrayLevel[0.900008]]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(Show[fitplot, dataplot]\), ";", RowBox[{ StyleBox["(*", FontSize->9, FontWeight->"Plain"], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox[ RowBox[{ StyleBox["Show", FontSize->12, FontWeight->"Bold"], StyleBox[" ", FontSize->12, FontWeight->"Bold"], StyleBox["display", FontSize->12, FontWeight->"Plain"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox["graphs", FontSize->12, FontWeight->"Plain"], StyleBox[" ", FontSize->12, FontWeight->"Plain"], StyleBox["together", FontSize->12, FontWeight->"Plain"]}], FontSize->12], StyleBox[" ", FontSize->9, FontWeight->"Plain"], StyleBox["*)", FontSize->9, FontWeight->"Plain"]}]}]], "Input", CellLabel->"In[23]:="], 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.0952381 0.0749628 0.032124 [ [.21429 .06246 -3 -9 ] [.21429 .06246 3 0 ] [.40476 .06246 -3 -9 ] [.40476 .06246 3 0 ] [.59524 .06246 -3 -9 ] [.59524 .06246 3 0 ] [.78571 .06246 -3 -9 ] [.78571 .06246 3 0 ] [.97619 .06246 -6 -9 ] [.97619 .06246 6 0 ] [1.025 .07496 0 -6 ] [1.025 .07496 40 6 ] [.01131 .15527 -18 -4.5 ] [.01131 .15527 0 4.5 ] [.01131 .23558 -6 -4.5 ] [.01131 .23558 0 4.5 ] [.01131 .31589 -18 -4.5 ] [.01131 .31589 0 4.5 ] [.01131 .3962 -12 -4.5 ] [.01131 .3962 0 4.5 ] [.01131 .47651 -24 -4.5 ] [.01131 .47651 0 4.5 ] [.01131 .55682 -12 -4.5 ] [.01131 .55682 0 4.5 ] [.02381 .64303 -20 0 ] [.02381 .64303 20 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .07496 m .21429 .08121 L s [(2)] .21429 .06246 0 1 Mshowa .40476 .07496 m .40476 .08121 L s [(4)] .40476 .06246 0 1 Mshowa .59524 .07496 m .59524 .08121 L s [(6)] .59524 .06246 0 1 Mshowa .78571 .07496 m .78571 .08121 L s [(8)] .78571 .06246 0 1 Mshowa .97619 .07496 m .97619 .08121 L s [(10)] .97619 .06246 0 1 Mshowa .125 Mabswid .07143 .07496 m .07143 .07871 L s .11905 .07496 m .11905 .07871 L s .16667 .07496 m .16667 .07871 L s .2619 .07496 m .2619 .07871 L s .30952 .07496 m .30952 .07871 L s .35714 .07496 m .35714 .07871 L s .45238 .07496 m .45238 .07871 L s .5 .07496 m .5 .07871 L s .54762 .07496 m .54762 .07871 L s .64286 .07496 m .64286 .07871 L s .69048 .07496 m .69048 .07871 L s .7381 .07496 m .7381 .07871 L s .83333 .07496 m .83333 .07871 L s .88095 .07496 m .88095 .07871 L s .92857 .07496 m .92857 .07871 L s .25 Mabswid 0 .07496 m 1 .07496 L s gsave 1.025 .07496 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 75.000 13.000 moveto (axis) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .02381 .15527 m .03006 .15527 L s [(2.5)] .01131 .15527 1 0 Mshowa .02381 .23558 m .03006 .23558 L s [(5)] .01131 .23558 1 0 Mshowa .02381 .31589 m .03006 .31589 L s [(7.5)] .01131 .31589 1 0 Mshowa .02381 .3962 m .03006 .3962 L s [(10)] .01131 .3962 1 0 Mshowa .02381 .47651 m .03006 .47651 L s [(12.5)] .01131 .47651 1 0 Mshowa .02381 .55682 m .03006 .55682 L s [(15)] .01131 .55682 1 0 Mshowa .125 Mabswid .02381 .09102 m .02756 .09102 L s .02381 .10709 m .02756 .10709 L s .02381 .12315 m .02756 .12315 L s .02381 .13921 m .02756 .13921 L s .02381 .17133 m .02756 .17133 L s .02381 .1874 m .02756 .1874 L s .02381 .20346 m .02756 .20346 L s .02381 .21952 m .02756 .21952 L s .02381 .25164 m .02756 .25164 L s .02381 .26771 m .02756 .26771 L s .02381 .28377 m .02756 .28377 L s .02381 .29983 m .02756 .29983 L s .02381 .33195 m .02756 .33195 L s .02381 .34802 m .02756 .34802 L s .02381 .36408 m .02756 .36408 L s .02381 .38014 m .02756 .38014 L s .02381 .41226 m .02756 .41226 L s .02381 .42833 m .02756 .42833 L s .02381 .44439 m .02756 .44439 L s .02381 .46045 m .02756 .46045 L s .02381 .49257 m .02756 .49257 L s .02381 .50864 m .02756 .50864 L s .02381 .5247 m .02756 .5247 L s .02381 .54076 m .02756 .54076 L s .02381 .0589 m .02756 .0589 L s .02381 .04284 m .02756 .04284 L s .02381 .02678 m .02756 .02678 L s .02381 .01071 m .02756 .01071 L s .02381 .57288 m .02756 .57288 L s .02381 .58895 m .02756 .58895 L s .02381 .60501 m .02756 .60501 L s .25 Mabswid .02381 0 m .02381 .61803 L s gsave .02381 .64303 -81 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (y) show 75.000 13.000 moveto (axis) show 99.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .5 Mabswid .02381 .01472 m .06244 .05065 L .10458 .08868 L .14415 .1233 L .18221 .15557 L .22272 .18884 L .26171 .21981 L .30316 .25159 L .34309 .28109 L .3815 .30845 L .42237 .33644 L .46172 .36232 L .49955 .3862 L .53984 .41056 L .57861 .43295 L .61984 .45564 L .65954 .47639 L .69774 .49533 L .73838 .5144 L .77751 .53168 L .81909 .54891 L .85916 .56439 L .89771 .57825 L .93871 .59187 L .97619 .60332 L s 0 g .001 w .12857 .10709 m .10952 .10709 L s .12857 .10709 0 1.5 Mabsadd m .12857 .10709 0 -1.5 Mabsadd L s .10952 .10709 0 1.5 Mabsadd m .10952 .10709 0 -1.5 Mabsadd L s .11905 .1103 m .11905 .10387 L s .11905 .1103 1.5 0 Mabsadd m .11905 .1103 -1.5 0 Mabsadd L s .11905 .10387 1.5 0 Mabsadd m .11905 .10387 -1.5 0 Mabsadd L s .27143 .20346 m .25238 .20346 L s .27143 .20346 0 1.5 Mabsadd m .27143 .20346 0 -1.5 Mabsadd L s .25238 .20346 0 1.5 Mabsadd m .25238 .20346 0 -1.5 Mabsadd L s .2619 .20988 m .2619 .19703 L s .2619 .20988 1.5 0 Mabsadd m .2619 .20988 -1.5 0 Mabsadd L s .2619 .19703 1.5 0 Mabsadd m .2619 .19703 -1.5 0 Mabsadd L s .40476 .33195 m .38571 .33195 L s .40476 .33195 0 1.5 Mabsadd m .40476 .33195 0 -1.5 Mabsadd L s .38571 .33195 0 1.5 Mabsadd m .38571 .33195 0 -1.5 Mabsadd L s .39524 .34159 m .39524 .32232 L s .39524 .34159 1.5 0 Mabsadd m .39524 .34159 -1.5 0 Mabsadd L s .39524 .32232 1.5 0 Mabsadd m .39524 .32232 -1.5 0 Mabsadd L s .61429 .44439 m .59524 .44439 L s .61429 .44439 0 1.5 Mabsadd m .61429 .44439 0 -1.5 Mabsadd L s .59524 .44439 0 1.5 Mabsadd m .59524 .44439 0 -1.5 Mabsadd L s .60476 .45724 m .60476 .43154 L s .60476 .45724 1.5 0 Mabsadd m .60476 .45724 -1.5 0 Mabsadd L s .60476 .43154 1.5 0 Mabsadd m .60476 .43154 -1.5 0 Mabsadd L s .0001 w .11905 .10709 -1.875 0 Mabsadd m .11905 .10709 0 2.5 Mabsadd L .11905 .10709 1.875 0 Mabsadd L .11905 .10709 0 -2.5 Mabsadd L .11905 .10709 -1.875 0 Mabsadd L closepath F .2619 .20346 -1.875 0 Mabsadd m .2619 .20346 0 2.5 Mabsadd L .2619 .20346 1.875 0 Mabsadd L .2619 .20346 0 -2.5 Mabsadd L .2619 .20346 -1.875 0 Mabsadd L closepath F .39524 .33195 -1.875 0 Mabsadd m .39524 .33195 0 2.5 Mabsadd L .39524 .33195 1.875 0 Mabsadd L .39524 .33195 0 -2.5 Mabsadd L .39524 .33195 -1.875 0 Mabsadd L closepath F .60476 .44439 -1.875 0 Mabsadd m .60476 .44439 0 2.5 Mabsadd L .60476 .44439 1.875 0 Mabsadd L .60476 .44439 0 -2.5 Mabsadd L .60476 .44439 -1.875 0 Mabsadd L closepath F % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[23]:=", ImageSize->{288, 177.938}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg_oo ool01_l0003oEEEEonk^k_ooooooMgMgoeEEECWooooo00?ogMgMo`000?l000000_l000000ooMgMgo ooooooooo`0eooooo`03o`000?oooooooooo00?ooooo00?o0000ooooooooool00_ooool00ol0003o ooooooooo`15ooooo`00:?ooool00ol0003oooooooooo`08ooooo`03ool00?oooooooooo037ooooo 00?oZJVYoc8b<_ooool0>Oooool01?nYZJWoIVIVooooool0000jooooo`06ob4Q8OmVIVKo0000o`00 0?mEEEGok^k^>Oooool01_lb_oo ool00on7QhOoIVIVooooo`0looooo`03o`000?oooooooooo00;ooooo00?o0000ooooooooool0=Ooo ool00ol0003oooooooooo`03ooooo`06odA4A?nYZJWooooooooooonYZJWoA4A4Aoooool002Sooooo 00?o0000ooooooooool02oooool00ooo003oooooooooo`0Zooooo`06o`000?n7QhOok^k^oooooomg MgOooooool00ooMgMgoA4A4o`00000kooooo`03oc8b<_mVIVKogMgM03_ooooo00KoOooool01_o^k^koA4A4o`000?l0003oA4A4onk^kSGooooo00?ocooooo`03ool00?oooooooooo0?ooooooMOoo ool002Sooooo00?o0000ooooooooool03oooool00ooo003oooooooooo`3ooooooc_ooooo00Oo410@ o`000?l@413ooooooa0@4?l0003o410@00_ooooo00OoZJVYoa0@4?l0003o8B4QoiRHV?l@413o0000 00;ooooo00Oo410@o`000?l@413ooooooa0@4?l0003o410@00;ooooo00?o410@o`000?l000000ol0 00001Ol@413oooooooooool@413oooooo`03ojVYZOlb?ooool2ool00?ooooooCOooool002Sooooo00?o0000ooooooooool0>Oooool00ooo003ooooo ooooo`3ooooood[ooooo000Xooooo`03o`000?oooooooooo03[ooooo00?oo`00ooooooooool0oooo oom9ooooo`00:?ooool00ol0003oooooooooo`0kooooo`03ool00?oooooooooo0?ooooooB?ooool0 02Sooooo00?o0000ooooooooool0??ooool00ooo003oooooooooo`3oooooodOooooo000Xooooo`;o 0000?_ooool00ooo003oooooooooo`3oooooodKooooo000Xooooo`03o`000?oooooooooo03kooooo 0_oo003oooooodKooooo000Xooooo`03o`000?oooooooooo043ooooo00?oo`00ooooooooool0oooo oom3ooooo`00:?ooool00ol0003oooooooooo`11ooooo`03ool00?oooooooooo00Cooooo1ol0003o ooooocOooooo000Xooooo`03o`000?oooooooooo04;ooooo0_oo0004ooooo`04o`000?oooooooooo o`0000;ooooo00?o0000ooooooooool0ooooooleooooo`00:?ooool00ol0003oooooooooo`14oooo o`06ool00?ooooooooooooooool0003ooooo0ol000000ooooooo0000ooooo`3oooooocKooooo000X ooooo`;o0000A_ooool00ooo003oooooooooo`07o`000?oooooo=oooool002Sooooo00?o0000oooo ooooool0A_ooool00ooo003oooooo`000006o`000?oooooo=oooool002Sooooo00?o0000oooooooo ool0Aoooool00ooo003o0000o`000005o`000?oooooo=oooool002Sooooo00?o0000ooooooooool0 BOooool00ooo003oooooo`00003ooooooc[ooooo000Xooooo`03o`000?oooooooooo04[ooooo00?o o`00ooooooooool0ooooooliooooo`00:?ooool2o`0004cooooo0_oo003oooooocWooooo000Xoooo o`03o`000?oooooooooo04gooooo00?oo`00ooooooooool0oooooolfooooo`00:?ooool00ol0003o ooooooooo`1>ooooo`;oo`00oooooolfooooo`007?ooool01_nHV9So410@o`000?l0003oA4A4onk^ kPKooooo00?o0000ooooooooool0D?ooool00ooo003oooooooooo`3ooooooc?ooooo000Looooo`06 oa0@4?n7QhOooooooooooomgMgOoA4A41_ooool00ol0003oooooooooo`1Aooooo`03ool00?oooooo oooo0?oooooo<_ooool0027ooooo00?o0000ooooooooool01?ooool3o`0005;ooooo0_oo003ooooo oc;ooooo000Pooooo`03onk^k_l0003ooooo00Gooooo00?o0000ooooooooool0E?ooool00ooo003o ooooooooo`3ooooooboooooo000Looooo`06oa0@4?nHV9SooooooooooomgMgOoIVIV1_ooool00ol0 003oooooooooo`1Eooooo`;oo`00ooooool_ooooo`007?ooool01Ol0003o8B4Qo`000?l0003oIVIV 00Oooooo00?o0000ooooooooool0Eoooool00ooo003oooooooooo`3oooooobcooooo000Looooo`03 o`000?oooooooooo00Wooooo00?o0000ooooooooool0F?ooool00ooo003oooooooooo`3oooooob_o oooo000Looooo`03o`000?oooooooooo00Wooooo0_l0001Jooooo`;oo`00ooooool[ooooo`007?oo ool5o`0000Oooooo00?o0000ooooooooool0Foooool00ooo003oooooooooo`3oooooobSooooo000X ooooo`03o`000?oooooooooo05cooooo00?oo`00ooooooooool0oooooolWooooo`00:?ooool00ol0 003oooooooooo`1Mooooo`;oo`00oooooolWooooo`00:?ooool00ol0003oooooooooo`1Oooooo`03 ool00?oooooooooo0?oooooo9?ooool002Sooooo00?o0000ooooooooool0H?ooool00ooo003ooooo ooooo`3oooooob?ooooo000Xooooo`;o0000H_ooool00ooo003oooooooooo`3oooooob;ooooo000X ooooo`03o`000?oooooooooo06;ooooo0_oo003oooooob;ooooo000Xooooo`03o`000?oooooooooo 06Cooooo00?oo`00ooooooooool0oooooolOooooo`00:?ooool00ol0003oooooooooo`1Uooooo`03 ool00?oooooooooo0?oooooo7_ooool002Sooooo00?o0000ooooooooool0I_ooool2ool00?oooooo 7_ooool002Sooooo0_l0001Yooooo`03ool00?oooooooooo0?oooooo6oooool002Sooooo00?o0000 ooooooooool0JOooool2ool00?oooooo6oooool002Sooooo00?o0000ooooooooool0Joooool00ooo 003oooooooooo`3ooooooaSooooo000Xooooo`03o`000?oooooooooo06cooooo0_oo003ooooooaSo oooo000Xooooo`03o`000?oooooooooo06kooooo00?oo`00ooooooooool0oooooolEooooo`00:?oo ool2o`00073ooooo00?oo`00ooooooooool0oooooolDooooo`00:?ooool00ol0003oooooooooo`1` ooooo`;oo`00oooooolDooooo`00:?ooool00ol0003oooooooooo`1booooo`03ool00?oooooooooo 0?oooooo4Oooool000cooooo00?o8B4QoiRHV?ooool01_ooool00omEEEGo0000oeEEE@04ooooo`06 oiRHV?l@413o0000o`000?m4A4Cok^k^1_ooool00ol0003oooooooooo`1cooooo`;oo`00oooooolA ooooo`003?ooool00onHV9SoA4A4ooooo`06ooooo`?o00001?ooool01_l@413oQhN7oooooooooooo MgMgodA4A0Kooooo00?o0000ooooooooool0MOooool00ooo003oooooooooo`3oooooo`kooooo000< ooooo`03onk^k_l0003ok^k^00Kooooo00?oEEEEo`000?mEEED02Oooool00ol0003oooooooooo`04 ooooo`03o`000?oooooooooo07Kooooo0_oo003oooooo`kooooo000=ooooo`03oeEEEOnHV9Sooooo 013ooooo00?ok^k^o`000?ooool01Oooool3o`0007Sooooo00?oo`00ooooooooool0ooooool;oooo o`003Oooool00onYZJWoA4A4ooooo`0;ooooo0_oo002Qooooo`00:?ooool2o`000>Gooooo0ooo 002Nooooo`00:?ooool00ol0003oooooooooo`3Wooooo`;oo`00W?ooool002Sooooo00?o0000oooo ooooool0jOooool2ool009[ooooo000Xooooo`03o`000?oooooooooo0>_ooooo0_oo002Hooooo`00 :?ooool00ol0003oooooooooo`3]ooooo`;oo`00U_ooool002Sooooo00?o0000ooooooooool0kooo ool3ool009?ooooo000Xooooo`;o0000loooool2ool0097ooooo000Xooooo`03o`000?oooooooooo 0?Cooooo0_oo002?ooooo`00:?ooool00ol0003oooooooooo`3fooooo`;oo`00SOooool002Sooooo 00?o0000ooooooooool0n?ooool2ool008_ooooo000Xooooo`03o`000?oooooooooo0?[ooooo0_oo 0029ooooo`00:?ooool2o`000?gooooo0ooo0026ooooo`00:?ooool00ol0003oooooooooo`3ooooo o`;oo`00Q?ooool002Sooooo00?o0000ooooooooool0ooooool2ooooo`;oo`00P_ooool001Cooooo 1?l000001_l@413oooooooooooooooooV9RHoa0@40;o000000?oA4A4onk^k_ooool01Oooool00ol0 003oooooooooo`3oooooo`Cooooo0_oo0020ooooo`005_ooool00ol0003oooooooooo`03ooooo`06 oa0@4?n7QhOooooooooooomgMgOoA4A41_ooool00ol0003oooooooooo`3oooooo`Kooooo0ooo001m ooooo`005_ooool00ol0003oooooooooo`08ooooo`03o`000?oooooooooo00Cooooo0ol0003ooooo o`Wooooo0ooo001jooooo`005_ooool00ol0003oooooooooo`07ooooo`03onk^k_l0003ooooo00Go oooo00?o0000ooooooooool0oooooolooooo`07ojVYZOl@413o0000 ob4Q8OnHV9So410@o`000002ooooo`07oa0@4?l0003o410@ooooool@413o0000oa0@4002ooooo`03 oa0@4?l0003o000000?o000000Go410@oooooooooooo410@oc8booooo`06ogMgMomEEEGooooooooooomgMgOoIVIV 4Oooool00ol0003oooooooooo`02ooooo`05onk^k_lb"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {-1.27511, -3.99947, \ 0.047659, 0.141295}}] }, Open ]], Cell[TextData[{ StyleBox["This should give you enough to get started in entering data, \ plotting data, and some simple fitting and error analysis. If you want to \ spruce up your plots, add labels,etc. , see section 2.10.3 Graphics \ Directives and Options in the ", FontColor->RGBColor[0, 0, 1]], StyleBox["Mathematica", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[" book accessible through the Help menu.", FontColor->RGBColor[0, 0, 1]] }], "Subsubsection", CellFrame->{{0, 0}, {0, 0.5}}, CellDingbat->"\[HappySmiley]", FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}] }, FrontEndVersion->"5.0 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 685}}, WindowToolbars->"EditBar", CellGrouping->Manual, WindowSize->{926, 611}, WindowMargins->{{Automatic, 0}, {14, Automatic}}, ShowCellLabel->False, Magnification->1.5, StyleDefinitions -> "TutorialBook.nb" ] (******************************************************************* 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[1754, 51, 54, 0, 109, "Title"], Cell[CellGroupData[{ Cell[1833, 55, 40, 3, 92, "Subtitle"], Cell[1876, 60, 519, 14, 70, "Text"], Cell[2398, 76, 99, 2, 46, "Input"], Cell[2500, 80, 118, 1, 41, "Text"], Cell[2621, 83, 277, 5, 148, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2935, 93, 37, 0, 137, "Section"], Cell[2975, 95, 1875, 55, 163, "Text"], Cell[CellGroupData[{ Cell[4875, 154, 381, 10, 75, "Input"], Cell[5259, 166, 103, 2, 40, "Output"], Cell[CellGroupData[{ Cell[5387, 172, 329, 8, 106, "Input"], Cell[5719, 182, 74, 2, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5830, 189, 94, 2, 44, "Input"], Cell[5927, 193, 103, 2, 40, "Output"] }, Open ]], Cell[6045, 198, 810, 26, 45, "Text"], Cell[6858, 226, 274, 7, 45, "Text"], Cell[CellGroupData[{ Cell[7157, 237, 106, 3, 75, "Input"], Cell[7266, 242, 59, 2, 40, "Output"] }, Open ]], Cell[7340, 247, 55, 0, 132, "Section"], Cell[7398, 249, 196, 2, 66, "Text"], Cell[CellGroupData[{ Cell[7619, 255, 75, 2, 44, "Input"], Cell[7697, 259, 60, 2, 40, "Output"] }, Open ]], Cell[7772, 264, 133, 2, 39, "Text"], Cell[CellGroupData[{ Cell[7930, 270, 194, 5, 44, "Input"], Cell[8127, 277, 68, 2, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8232, 284, 193, 5, 44, "Input"], Cell[8428, 291, 89, 2, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8554, 298, 202, 5, 44, "Input"], Cell[8759, 305, 85, 2, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8881, 312, 198, 5, 44, "Input"], Cell[9082, 319, 85, 2, 40, "Output"] }, Open ]], Cell[9182, 324, 561, 14, 99, "Text"], Cell[CellGroupData[{ Cell[9768, 342, 170, 4, 75, "Input"], Cell[9941, 348, 81, 2, 40, "Output"] }, Open ]], Cell[10037, 353, 1441, 39, 138, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11527, 398, 37, 0, 132, "Section"], Cell[11567, 400, 355, 12, 39, "Text"], Cell[CellGroupData[{ Cell[11947, 416, 186, 5, 44, "Input"], Cell[12136, 423, 19173, 426, 279, 3087, 222, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]], Cell[31336, 853, 704, 23, 39, "Text"], Cell[CellGroupData[{ Cell[32065, 880, 128, 3, 44, "Input"], Cell[32196, 885, 22471, 543, 279, 3674, 306, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]], Cell[54682, 1431, 126, 2, 39, "Text"], Cell[54811, 1435, 241, 4, 106, "Input"], Cell[55055, 1441, 1038, 28, 78, "Text"], Cell[56096, 1471, 368, 9, 137, "Input"], Cell[CellGroupData[{ Cell[56489, 1484, 3819, 129, 106, "Input"], Cell[60311, 1615, 24377, 566, 279, 5491, 328, "GraphicsData", "PostScript", \ "Graphics"], Cell[84691, 2183, 155, 4, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84883, 2192, 38, 0, 132, "Section"], Cell[84924, 2194, 741, 20, 93, "Text"], Cell[CellGroupData[{ Cell[85690, 2218, 1902, 65, 106, "Input"], Cell[87595, 2285, 1215, 26, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88847, 2316, 96, 1, 39, "Text"], Cell[CellGroupData[{ Cell[88968, 2321, 1148, 32, 199, "Input"], Cell[90119, 2355, 28732, 663, 279, 6666, 385, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]] }, Open ]], Cell[118890, 3023, 163, 2, 39, "Text"], Cell[CellGroupData[{ Cell[119078, 3029, 1147, 39, 75, "Input"], Cell[120228, 3070, 31381, 750, 279, 8635, 464, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]], Cell[151624, 3823, 667, 16, 123, "Subsubsection"] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)