(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 87604, 2301] NotebookOptionsPosition[ 77789, 1986] NotebookOutlinePosition[ 79443, 2034] CellTagsIndexPosition[ 79364, 2029] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Clear", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.515663302465255*^9, 3.515663303643857*^9}}], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.1 Dealing with data", "Section", CellChangeTimes->{{3.507316002689001*^9, 3.507316005956544*^9}, { 3.50731841310386*^9, 3.5073184139216223`*^9}, {3.515600696012466*^9, 3.515600696348344*^9}}], Cell[CellGroupData[{ Cell["Loading data from a file", "Item", CellChangeTimes->{{3.507318414797639*^9, 3.507318428141532*^9}}], Cell["Determining shape and strucutre of the data", "Item", CellChangeTimes->{{3.507318434460368*^9, 3.507318441476123*^9}}], Cell["Simple calculations", "Item", CellChangeTimes->{{3.507318447715554*^9, 3.50731845095611*^9}}], Cell["Plotting simple calculations", "Item", CellChangeTimes->{{3.507318456616806*^9, 3.5073184633729057`*^9}}], Cell["Manipulation of the data", "Item", CellChangeTimes->{{3.507318467512443*^9, 3.507318471787751*^9}}], Cell["Complex calculations", "Item", CellChangeTimes->{{3.5073184757695293`*^9, 3.507318482715458*^9}}], Cell["Data with errors", "Item", CellChangeTimes->{{3.5073184880179873`*^9, 3.507318489475684*^9}}], Cell["Creating simulated data", "Item", CellChangeTimes->{{3.5073184898809032`*^9, 3.507318495202531*^9}}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.2 Loading data", "Section", CellChangeTimes->{{3.5073160154698877`*^9, 3.5073160179797077`*^9}, { 3.5073160600780697`*^9, 3.507316066188224*^9}, {3.515600699740261*^9, 3.515600700323851*^9}}], Cell["Loading data from a file", "Text", CellChangeTimes->{{3.507316018812533*^9, 3.507316037452055*^9}, { 3.507316098371046*^9, 3.507316099810635*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"SetDirectory", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", " ", "=", " ", RowBox[{"Import", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.507316712090323*^9, 3.507316757361883*^9}, { 3.5073596134688673`*^9, 3.507359619570366*^9}, 3.515611962400001*^9, { 3.51577996553131*^9, 3.515779975459247*^9}}], Cell[BoxData["\<\"/Users/sboogert/Teaching/1stpostexam\"\>"], "Output", CellChangeTimes->{ 3.515663806625774*^9, {3.515779954380968*^9, 3.51577996656321*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4.232408624453071`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7.1653131057378925`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "9.0979598956895`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10.268342380651841`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "10.864955212676955`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "11.03638323514327`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "10.899112837010918`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "10.54388552462907`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "10.040857206679341`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "9.443780141878092`"}], "}"}], ",", RowBox[{"{", RowBox[{"55", ",", "8.793386034383165`"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "8.120116994196762`"}], "}"}], ",", RowBox[{"{", RowBox[{"65", ",", "7.446324859524703`"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "6.788037750508353`"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "6.15637489679241`"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "5.558676097824123`"}], "}"}], ",", RowBox[{"{", RowBox[{"85", ",", "4.99940008960654`"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "4.480836153107755`"}], "}"}], ",", RowBox[{"{", RowBox[{"95", ",", "4.003665133381259`"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "3.5673993347252395`"}], "}"}], ",", RowBox[{"{", RowBox[{"105", ",", "3.1707252593434427`"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "2.811768652715814`"}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", "2.4882976327417055`"}], "}"}], ",", RowBox[{"{", RowBox[{"120", ",", "2.1978766666481016`"}], "}"}], ",", RowBox[{"{", RowBox[{"125", ",", "1.9379816998761643`"}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", "1.706084735802326`"}], "}"}], ",", RowBox[{"{", RowBox[{"135", ",", "1.4997145326627113`"}], "}"}], ",", RowBox[{"{", RowBox[{"140", ",", "1.316498757209329`"}], "}"}], ",", RowBox[{"{", RowBox[{"145", ",", "1.154191858062435`"}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", "1.01069204986282`"}], "}"}], ",", RowBox[{"{", RowBox[{"155", ",", "0.8840500946911473`"}], "}"}], ",", RowBox[{"{", RowBox[{"160", ",", "0.7724719990130307`"}], "}"}], ",", RowBox[{"{", RowBox[{"165", ",", "0.674317287346571`"}], "}"}], ",", RowBox[{"{", RowBox[{"170", ",", "0.5880941471990089`"}], "}"}], ",", RowBox[{"{", RowBox[{"175", ",", "0.512452446593183`"}], "}"}], ",", RowBox[{"{", RowBox[{"180", ",", "0.44617539179994453`"}], "}"}], ",", RowBox[{"{", RowBox[{"185", ",", "0.388170407344967`"}], "}"}], ",", RowBox[{"{", RowBox[{"190", ",", "0.33745967368953206`"}], "}"}], ",", RowBox[{"{", RowBox[{"195", ",", "0.2931706426306266`"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "0.25452676026796156`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.515663806625774*^9, {3.515779954380968*^9, 3.51577996656721*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "d", "]"}]], "Input", CellChangeTimes->{{3.507316761435012*^9, 3.507316763328403*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQjR2IOPiHHW3781bAAcJXcfD7teua+0oZKF/PYeWc FWfUjZSgfBOHafxaOimdKlC+pUPv87sZt3epQvl2Di4Kpy4tEFKD8BscHSIO 9LREnIHJuzjkSt7SrBCD8hvcHI78ibF5LQIzz9NB/Nt0NfPHUPsavB0O9e3d aDZNESrv57C+s/lnva0ChO8Q4DDL2CeJ86QsVH2gQ9NJy7jPatIQ/oEgB+m+ dXsVFkhA9Yc4TL3hMk3URgyqP9RB8PXGPUn/haH6wxysQxgDEt4IQvWHO+hy fDh1gBkWPpEOKmGTV3J08UD1Rzk03cw2WRrLCdUf7XB4hdWEhjo2qP4YB4Yd t6ZxvGCG6o9zUNWcH+MwlRGqP96BLz9Y8ifjf3sIP8Hh2hz2Jnmf3xD+gwSH C18KV1359x3Cb0h0+M5izpAo8BXCV0hy6GbY/XBi+ScI/0CSw/Nz7rmntT9A +AnJDrU603OUvd5A+AwpDmHHZhmJ73gB4S9IcZj1l+Mm45SnUPtTHVy41C6u uvgIan+qw5130WuY0h5A7U9z8H3MbK3cdwdqf7rDnKkmG09cvwG1P91h+Yne 0g8zrkLtz3B4vbv/jN/hS1D7Mx3Obrw8W8vrgj0Adme3pQ== "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, ImageSize->{503., Automatic}, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.515663806682678*^9, 3.515779955736932*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.3 What is the data?", "Section", CellChangeTimes->{{3.5073160154698877`*^9, 3.5073160179797077`*^9}, { 3.5073160600780697`*^9, 3.507316066188224*^9}, {3.5073167823605547`*^9, 3.507316787294932*^9}, {3.515600705092125*^9, 3.515600705334337*^9}}], Cell["Loading data from a file", "Text", CellChangeTimes->{{3.507316018812533*^9, 3.507316037452055*^9}, { 3.507316098371046*^9, 3.507316099810635*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "d", "]"}]], "Input", CellChangeTimes->{{3.507316712090323*^9, 3.507316757361883*^9}, { 3.507316793217252*^9, 3.507316854712208*^9}}], Cell[BoxData["41"], "Output", CellChangeTimes->{3.51566380678157*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", "d", "]"}]], "Input", CellChangeTimes->{{3.507316856350808*^9, 3.507316862846012*^9}, { 3.5073169375884323`*^9, 3.507316945332099*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"41", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.515663806829771*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d", "[", RowBox[{"[", RowBox[{"1", ";;", "10"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.507316959170218*^9, 3.507316986099182*^9}, { 3.507317044501195*^9, 3.507317067282137*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4.232408624453071`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7.1653131057378925`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "9.0979598956895`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10.268342380651841`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "10.864955212676955`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "11.03638323514327`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "10.899112837010918`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "10.54388552462907`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "10.040857206679341`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.515663806879024*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"d", "[", RowBox[{"[", RowBox[{"1", ";;", "10"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5156106727277946`*^9, 3.51561068964781*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[{{0., 0.}, {5., 4.232408624453071}, {10., 7.1653131057378925`}, { 15., 9.0979598956895}, {20., 10.268342380651841`}, {25., 10.864955212676955`}, {30., 11.03638323514327}, {35., 10.899112837010918`}, {40., 10.54388552462907}, {45., 10.040857206679341`}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.515663806949106*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.4 Manipulating data", "Section", CellChangeTimes->{{3.507316070042357*^9, 3.507316077962173*^9}, { 3.51560072289161*^9, 3.515600723436448*^9}, {3.5156117367930107`*^9, 3.515611737241214*^9}, {3.515779679481468*^9, 3.5157796796309137`*^9}}], Cell["Can get parts of the data, extract single columns, rows etc", "Text", CellChangeTimes->{{3.51566387789491*^9, 3.515663894436623*^9}}], Cell[CellGroupData[{ Cell[BoxData["d"], "Input", CellChangeTimes->{{3.515663981950116*^9, 3.5156639831461573`*^9}, 3.5156640582658663`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4.232408624453071`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7.1653131057378925`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "9.0979598956895`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10.268342380651841`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "10.864955212676955`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "11.03638323514327`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "10.899112837010918`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "10.54388552462907`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "10.040857206679341`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "9.443780141878092`"}], "}"}], ",", RowBox[{"{", RowBox[{"55", ",", "8.793386034383165`"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "8.120116994196762`"}], "}"}], ",", RowBox[{"{", RowBox[{"65", ",", "7.446324859524703`"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "6.788037750508353`"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "6.15637489679241`"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "5.558676097824123`"}], "}"}], ",", RowBox[{"{", RowBox[{"85", ",", "4.99940008960654`"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "4.480836153107755`"}], "}"}], ",", RowBox[{"{", RowBox[{"95", ",", "4.003665133381259`"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "3.5673993347252395`"}], "}"}], ",", RowBox[{"{", RowBox[{"105", ",", "3.1707252593434427`"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "2.811768652715814`"}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", "2.4882976327417055`"}], "}"}], ",", RowBox[{"{", RowBox[{"120", ",", "2.1978766666481016`"}], "}"}], ",", RowBox[{"{", RowBox[{"125", ",", "1.9379816998761643`"}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", "1.706084735802326`"}], "}"}], ",", RowBox[{"{", RowBox[{"135", ",", "1.4997145326627113`"}], "}"}], ",", RowBox[{"{", RowBox[{"140", ",", "1.316498757209329`"}], "}"}], ",", RowBox[{"{", RowBox[{"145", ",", "1.154191858062435`"}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", "1.01069204986282`"}], "}"}], ",", RowBox[{"{", RowBox[{"155", ",", "0.8840500946911473`"}], "}"}], ",", RowBox[{"{", RowBox[{"160", ",", "0.7724719990130307`"}], "}"}], ",", RowBox[{"{", RowBox[{"165", ",", "0.674317287346571`"}], "}"}], ",", RowBox[{"{", RowBox[{"170", ",", "0.5880941471990089`"}], "}"}], ",", RowBox[{"{", RowBox[{"175", ",", "0.512452446593183`"}], "}"}], ",", RowBox[{"{", RowBox[{"180", ",", "0.44617539179994453`"}], "}"}], ",", RowBox[{"{", RowBox[{"185", ",", "0.388170407344967`"}], "}"}], ",", RowBox[{"{", RowBox[{"190", ",", "0.33745967368953206`"}], "}"}], ",", RowBox[{"{", RowBox[{"195", ",", "0.2931706426306266`"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "0.25452676026796156`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.515663983504305*^9, 3.515664058659606*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d", "[", RowBox[{"[", RowBox[{ RowBox[{"1", ";;", RowBox[{"-", "1"}]}], ",", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5156639032585783`*^9, 3.515664019265278*^9}, { 3.5156640608171797`*^9, 3.515664063240634*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "5", ",", "10", ",", "15", ",", "20", ",", "25", ",", "30", ",", "35", ",", "40", ",", "45", ",", "50", ",", "55", ",", "60", ",", "65", ",", "70", ",", "75", ",", "80", ",", "85", ",", "90", ",", "95", ",", "100", ",", "105", ",", "110", ",", "115", ",", "120", ",", "125", ",", "130", ",", "135", ",", "140", ",", "145", ",", "150", ",", "155", ",", "160", ",", "165", ",", "170", ",", "175", ",", "180", ",", "185", ",", "190", ",", "195", ",", "200"}], "}"}]], "Output", CellChangeTimes->{{3.515663972101807*^9, 3.515664019690666*^9}, 3.515664063628579*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d", "[", RowBox[{"[", RowBox[{ RowBox[{"1", ";;", RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.515664066528549*^9, 3.515664073687991*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.`", ",", "4.232408624453071`", ",", "7.1653131057378925`", ",", "9.0979598956895`", ",", "10.268342380651841`", ",", "10.864955212676955`", ",", "11.03638323514327`", ",", "10.899112837010918`", ",", "10.54388552462907`", ",", "10.040857206679341`", ",", "9.443780141878092`", ",", "8.793386034383165`", ",", "8.120116994196762`", ",", "7.446324859524703`", ",", "6.788037750508353`", ",", "6.15637489679241`", ",", "5.558676097824123`", ",", "4.99940008960654`", ",", "4.480836153107755`", ",", "4.003665133381259`", ",", "3.5673993347252395`", ",", "3.1707252593434427`", ",", "2.811768652715814`", ",", "2.4882976327417055`", ",", "2.1978766666481016`", ",", "1.9379816998761643`", ",", "1.706084735802326`", ",", "1.4997145326627113`", ",", "1.316498757209329`", ",", "1.154191858062435`", ",", "1.01069204986282`", ",", "0.8840500946911473`", ",", "0.7724719990130307`", ",", "0.674317287346571`", ",", "0.5880941471990089`", ",", "0.512452446593183`", ",", "0.44617539179994453`", ",", "0.388170407344967`", ",", "0.33745967368953206`", ",", "0.2931706426306266`", ",", "0.25452676026796156`"}], "}"}]], "Output", CellChangeTimes->{3.5156640740829268`*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.5 Simple calculations", "Section", CellChangeTimes->{{3.507316070042357*^9, 3.507316077962173*^9}, { 3.507317087879574*^9, 3.5073170996298647`*^9}, {3.51560070891597*^9, 3.515600709204035*^9}, {3.515779685318996*^9, 3.5157796855427933`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x", " ", "=", " ", RowBox[{"d", "[", RowBox[{"[", RowBox[{ RowBox[{"1", ";;", RowBox[{"-", "1"}]}], ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", " ", "=", " ", RowBox[{"d", "[", RowBox[{"[", RowBox[{ RowBox[{"1", ";;", RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.507317101612568*^9, 3.507317119710614*^9}, { 3.5073177612783213`*^9, 3.507317770439527*^9}, {3.5073178132457037`*^9, 3.507317819384458*^9}, {3.5073181628526287`*^9, 3.507318172039555*^9}, { 3.5156008217481422`*^9, 3.515600823730867*^9}, {3.515664078958461*^9, 3.515664094645451*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"meanY", "=", " ", RowBox[{"Mean", "[", "y", "]"}]}], "\[IndentingNewLine]", RowBox[{"rmsY", " ", "=", RowBox[{"RootMeanSquare", "[", "y", "]"}]}], "\[IndentingNewLine]", RowBox[{"varY", " ", "=", " ", RowBox[{"Variance", "[", "y", "]"}]}], "\[IndentingNewLine]", RowBox[{"maxY", " ", "=", " ", RowBox[{"Max", "[", "y", "]"}]}], "\[IndentingNewLine]", RowBox[{"minY", " ", "=", " ", RowBox[{"Min", "[", "y", "]"}]}]}], "Input", CellChangeTimes->{{3.507317772309329*^9, 3.507317804380623*^9}, { 3.507317908194519*^9, 3.5073179107455187`*^9}, {3.507318175345914*^9, 3.50731817612166*^9}, {3.507318564553306*^9, 3.507318565463086*^9}, { 3.507318657366971*^9, 3.507318674733313*^9}}], Cell[BoxData["4.340291126929295`"], "Output", CellChangeTimes->{ 3.515663807008088*^9, 3.515664096033614*^9, {3.515780014479622*^9, 3.515780017669339*^9}}], Cell[BoxData["5.737630040677527`"], "Output", CellChangeTimes->{ 3.515663807008088*^9, 3.515664096033614*^9, {3.515780014479622*^9, 3.515780017672432*^9}}], Cell[BoxData["14.434328202613646`"], "Output", CellChangeTimes->{ 3.515663807008088*^9, 3.515664096033614*^9, {3.515780014479622*^9, 3.515780017674857*^9}}], Cell[BoxData["11.03638323514327`"], "Output", CellChangeTimes->{ 3.515663807008088*^9, 3.515664096033614*^9, {3.515780014479622*^9, 3.515780017677424*^9}}], Cell[BoxData["0.`"], "Output", CellChangeTimes->{ 3.515663807008088*^9, 3.515664096033614*^9, {3.515780014479622*^9, 3.515780017679924*^9}}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.6 Plotting the calculations over data", "Section", CellChangeTimes->{{3.507316070042357*^9, 3.507316077962173*^9}, { 3.507318374420495*^9, 3.50731837865068*^9}, {3.507318714622258*^9, 3.5073187160899973`*^9}, {3.507318902632378*^9, 3.507318903540658*^9}, { 3.515600712443838*^9, 3.51560071361992*^9}, {3.515779688398882*^9, 3.515779688702903*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p1", " ", "=", " ", RowBox[{"ListPlot", "[", "d", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lMax", "=", " ", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "x", "]"}], ",", "maxY"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", "x", "]"}], ",", "maxY"}], "}"}]}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lMin", "=", " ", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "x", "]"}], ",", "minY"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", "x", "]"}], ",", "minY"}], "}"}]}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "lMax", ",", "lMin"}], "]"}]}], "Input", CellChangeTimes->{{3.507318905459631*^9, 3.507319024950385*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQjR2IOPiHHW3781bAAcJXcfD7teua+0oZKF/PYeWc FWfUjZSgfBOHafxaOimdKlC+pUPv87sZt3epQvl2Di4Kpy4tEFKD8BscHSIO 9LREnIHJuzjkSt7SrBCD8hvcHI78ibF5LQIzz9NB/Nt0NfPHUPsavB0O9e3d aDZNESrv57C+s/lnva0ChO8Q4DDL2CeJ86QsVH2gQ9NJy7jPatIQ/oEgB+m+ dXsVFkhA9Yc4TL3hMk3URgyqP9RB8PXGPUn/haH6wxysQxgDEt4IQvWHO+hy fDh1gBkWPpEOKmGTV3J08UD1Rzk03cw2WRrLCdUf7XB4hdWEhjo2qP4YB4Yd t6ZxvGCG6o9zUNWcH+MwlRGqP96BLz9Y8ifjf3sIP8Hh2hz2Jnmf3xD+gwSH C18KV1359x3Cb0h0+M5izpAo8BXCV0hy6GbY/XBi+ScI/0CSw/Nz7rmntT9A +AnJDrU603OUvd5A+AwpDmHHZhmJ73gB4S9IcZj1l+Mm45SnUPtTHVy41C6u uvgIan+qw5130WuY0h5A7U9z8H3MbK3cdwdqf7rDnKkmG09cvwG1P91h+Yne 0g8zrkLtz3B4vbv/jN/hS1D7Mx3Obrw8W8vrgj0Adme3pQ== "]]}, LineBox[{{0, 11.03638323514327}, {200, 11.03638323514327}}], LineBox[{{0, 0.}, {200, 0.}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.515663807064365*^9, 3.5157800211929073`*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.7 Finding the maximum location", "Section", CellChangeTimes->{{3.507316070042357*^9, 3.507316077962173*^9}, { 3.5073234014020567`*^9, 3.5073234048805227`*^9}, {3.5156007162917557`*^9, 3.515600719428705*^9}, {3.515779691526614*^9, 3.5157796918704348`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"df", " ", "=", " ", RowBox[{"Interpolation", "[", "d", "]"}]}]], "Input", CellChangeTimes->{{3.507331558037231*^9, 3.50733159516635*^9}, 3.507331655940648*^9}], Cell[BoxData[ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "200.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False]], "Output", CellChangeTimes->{3.515663807108732*^9, 3.5157799938069553`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"max", " ", "=", " ", RowBox[{"NMaximize", "[", RowBox[{ RowBox[{"df", "[", "tp", "]"}], ",", RowBox[{"{", "tp", "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.507331602482716*^9, 3.507331667941049*^9}, { 3.5073317113718653`*^9, 3.50733173039362*^9}, {3.507331803386602*^9, 3.507331804270838*^9}, {3.507331835419443*^9, 3.507331850135311*^9}, { 3.5073319928361187`*^9, 3.507332050981988*^9}, {3.5073585276677*^9, 3.507358558456164*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"InterpolatingFunction", "::", "\<\"dmval\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Input value \\\\\\\"\\\", \\\ \"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\(-0.5230966103516175`\\)}\\),\ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" lies outside the \ range of data in the interpolating function. Extrapolation will be \ used.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG", CellChangeTimes->{ 3.515663807184689*^9, {3.515779995159465*^9, 3.515780024362691*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"InterpolatingFunction", "::", "\<\"dmval\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Input value \\\\\\\"\\\", \\\ \"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\(-0.7978032391594181`\\)}\\),\ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" lies outside the \ range of data in the interpolating function. Extrapolation will be \ used.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG", CellChangeTimes->{ 3.515663807184689*^9, {3.515779995159465*^9, 3.515780024368072*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"11.036392062175402`", ",", RowBox[{"{", RowBox[{"tp", "\[Rule]", "29.962224272899928`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5156638072576017`*^9, {3.515779995390586*^9, 3.515780024448493*^9}}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.8 Finding other locations ", "Section", CellChangeTimes->{{3.5156108280505857`*^9, 3.5156108333128033`*^9}, { 3.515779694294538*^9, 3.515779694782559*^9}}], Cell["Half maximum value ", "Text", CellChangeTimes->{{3.515611171911237*^9, 3.515611176800688*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lh", " ", "=", " ", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"df", "[", "tp", "]"}], " ", "\[Equal]", " ", RowBox[{ RowBox[{"max", "[", RowBox[{"[", "1", "]"}], "]"}], "/", "2.0"}]}], ",", RowBox[{"{", RowBox[{"tp", ",", "5"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5156108402823267`*^9, 3.51561090256863*^9}, { 3.515611029033058*^9, 3.515611045556959*^9}, {3.515611142620165*^9, 3.5156111621698933`*^9}, {3.515611215545024*^9, 3.515611216704442*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"tp", "\[Rule]", "6.956350365908332`"}], "}"}]], "Output", CellChangeTimes->{3.5156638072968683`*^9, 3.515780001298051*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"uh", " ", "=", " ", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"df", "[", "tp", "]"}], " ", "\[Equal]", " ", RowBox[{ RowBox[{"max", "[", RowBox[{"[", "1", "]"}], "]"}], "/", "2.0"}]}], ",", RowBox[{"{", RowBox[{"tp", ",", "70"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5156111967048607`*^9, 3.5156112208164997`*^9}, 3.515614740170129*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"tp", "\[Rule]", "80.35046433112903`"}], "}"}]], "Output", CellChangeTimes->{3.5156638073465776`*^9, 3.5157800024399433`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tp", " ", "/.", " ", "lh"}]], "Input", CellChangeTimes->{{3.5156114428808937`*^9, 3.515611444313526*^9}}], Cell[BoxData["6.956350365908332`"], "Output", CellChangeTimes->{3.515663807396714*^9, 3.515780004216321*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"hLine", " ", "=", " ", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "x", "]"}], ",", RowBox[{"maxY", "/", "2.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", "x", "]"}], ",", RowBox[{"maxY", "/", "2.0"}]}], "}"}]}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lMax", "=", " ", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"tp", " ", "/.", " ", "lh"}], ",", RowBox[{"Min", "[", "y", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"tp", " ", "/.", " ", "lh"}], ",", RowBox[{ RowBox[{"Max", "[", "y", "]"}], "/", "2.0"}]}], "}"}]}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lMin", "=", " ", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"tp", " ", "/.", " ", "uh"}], ",", RowBox[{"Min", "[", "y", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"tp", " ", "/.", " ", "uh"}], ",", RowBox[{ RowBox[{"Max", "[", "y", "]"}], "/", "2.0"}]}], "}"}]}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "lMax", ",", "lMin", ",", "hLine"}], "]"}]}], "Input", CellChangeTimes->{{3.515611329159206*^9, 3.515611511563711*^9}, { 3.515611547547632*^9, 3.515611571629691*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQjR2IOPiHHW3781bAAcJXcfD7teua+0oZKF/PYeWc FWfUjZSgfBOHafxaOimdKlC+pUPv87sZt3epQvl2Di4Kpy4tEFKD8BscHSIO 9LREnIHJuzjkSt7SrBCD8hvcHI78ibF5LQIzz9NB/Nt0NfPHUPsavB0O9e3d aDZNESrv57C+s/lnva0ChO8Q4DDL2CeJ86QsVH2gQ9NJy7jPatIQ/oEgB+m+ dXsVFkhA9Yc4TL3hMk3URgyqP9RB8PXGPUn/haH6wxysQxgDEt4IQvWHO+hy fDh1gBkWPpEOKmGTV3J08UD1Rzk03cw2WRrLCdUf7XB4hdWEhjo2qP4YB4Yd t6ZxvGCG6o9zUNWcH+MwlRGqP96BLz9Y8ifjf3sIP8Hh2hz2Jnmf3xD+gwSH C18KV1359x3Cb0h0+M5izpAo8BXCV0hy6GbY/XBi+ScI/0CSw/Nz7rmntT9A +AnJDrU603OUvd5A+AwpDmHHZhmJ73gB4S9IcZj1l+Mm45SnUPtTHVy41C6u uvgIan+qw5130WuY0h5A7U9z8H3MbK3cdwdqf7rDnKkmG09cvwG1P91h+Yne 0g8zrkLtz3B4vbv/jN/hS1D7Mx3Obrw8W8vrgj0Adme3pQ== "]]}, LineBox[{{6.956350365908332, 0.}, {6.956350365908332, 5.518191617571635}}], LineBox[{{80.35046433112903, 0.}, {80.35046433112903, 5.518191617571635}}], LineBox[{{0, 5.518191617571635}, {200, 5.518191617571635}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{ 3.5156638075162897`*^9, {3.5157800065028353`*^9, 3.515780028374773*^9}}] }, Open ]], Cell[TextData[{ ButtonBox["d\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext", CellChangeTimes->{3.515610838656762*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.9 Complex calculations", "Section", CellChangeTimes->{{3.507316070042357*^9, 3.507316077962173*^9}, { 3.5073171581660337`*^9, 3.507317160788383*^9}, {3.507317337122978*^9, 3.507317339975568*^9}, {3.515600727835433*^9, 3.515600728307252*^9}, { 3.515611740452777*^9, 3.515611740704843*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ftd", " ", "=", " ", RowBox[{"Fourier", "[", RowBox[{ RowBox[{"Transpose", "[", "d", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.507317344105721*^9, 3.507317366800058*^9}, { 3.507317401257802*^9, 3.5073174133689127`*^9}, {3.507317452302711*^9, 3.50731747736526*^9}, {3.50731751988627*^9, 3.507317541754942*^9}, { 3.5073176597844353`*^9, 3.5073176643285027`*^9}, {3.507317708127079*^9, 3.5073177130167627`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"Re", "[", RowBox[{"ftd", " ", "*", " ", RowBox[{"Conjugate", "[", "ftd", "]"}]}], "]"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.507317415141274*^9, 3.507317439416093*^9}, { 3.507317485983089*^9, 3.507317508260647*^9}, {3.507317721551313*^9, 3.507317738279973*^9}, {3.5073186080471067`*^9, 3.507318638016017*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7KXu3N4+65S1A1TAQfs6o0OVkR6Uz+HgcmHh 38ZFklC+gMNm+SvtIflcUL6Iw4UuxS+rnv23h/AlHD7bfstWz/kK5cs4TJqh +Ho363soX8EhSPSNRv3+51C+koN9342PEr8eQfkqDrqtEac5ku9D+WoOa8tj Tu3cdAvK13Dge8KyNNrxOpSv5fAo+phI25orUL6Ow7Smi7mXtl6C8vUcmP6E JgaaXITyDRzq1Ta9KOS5AOUbOoiezUmYEXYOyjdyaHv603om+1ko39hB5vqd 2JeSZ6B8Ewd5i63X2xtPQ/mmDrv3Ta4RN4fxzdD45mjqLdDMs0SzzwrNPdZo 7rVB848tmn/t0MLDHi28HFDDs8EBLbwdUeOjwREtvpxQ47PBCS2+nVHTQ4Mz WnpxQU1PDS7w9AYA4v27jw== "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, Automatic}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.5156638079435663`*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext", CellChangeTimes->{{3.507317492037712*^9, 3.5073174934359417`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.10 Plotting data with errors", "Section", CellChangeTimes->{{3.507316070042357*^9, 3.507316077962173*^9}, { 3.5073171581660337`*^9, 3.507317160788383*^9}, {3.5073329149635153`*^9, 3.507332915976075*^9}, {3.515600731366066*^9, 3.515600731755331*^9}, { 3.515611744081518*^9, 3.5156117442890244`*^9}}], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5073329174131527`*^9, 3.507332927759905*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"de", " ", "=", " ", RowBox[{"Import", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.515611972462892*^9, 3.515611989732203*^9}, 3.515612299502536*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", "de", "]"}]], "Input", CellChangeTimes->{{3.515612212483944*^9, 3.515612236301222*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQNHD3zc42NvuB/CE3E4xMe/5tNdAQcIX8Vhzc4d LO8uS0H5eg4dOS8UV3MoQfkmDol6pe8eSCtD+ZYOartjK0IcVKB8O4cJN6o2 OW+E8hscHeqKrjatqoLJuzhsF3D827kLqr/BzWFuTf/S6qsw8z0dot0tg9SS oPwGb4fqs0+UatsUofJ+DnUq8/6wycpD+A4BDhfOWYns45KFqg90uD7/HnfC A6j7DwQ5dNX72Z6eIQ7VH+JwMfiXnqOcKFR/qMPBfI7YupPCUP1hDqs3yG1O +wENjwPhDruFIwtnt/ND9Uc6HDsRGVlmyQPVH+UwQejhSy81Tqj+aIeaNSfs zz9hgeqPcXgiv8lbsIYJqj/OQfPnGiHbTAao/ngHlXL733Nu/7OH8BMcDjdo rZCU/g3hP0hw2Lzuw/U1td8g/IZEhzVtl4WNOz9D+ApJDlPbT0t+s/sE4R9I cuB1OPbi/+b3EH5CskNlYsn/SbZvIHyGFIdSXf1qtY4XEP6CFIe5UheepHA8 hdqf6rD6iqdwWvNDqP2pDtve/FN3DL0HtT/NofpZ7ozjsbeh9qc7uCyYpe/0 +hrU/nSHaXsmTLDzvQK1P8Pht1lp22uVS1D7Mx1W9PEkPgs7Zw8AteS+DA== "]], {{ LineBox[{{0., 0.0007368276263438496}, {0., -0.0012631723736561504`}}], LineBox[{Offset[{1.5, 0}, {0., 0.0007368276263438496}], Offset[{-1.5, 0}, {0., 0.0007368276263438496}]}], LineBox[{Offset[{1.5, 0}, {0., -0.0012631723736561504`}], Offset[{-1.5, 0}, {0., -0.0012631723736561504`}]}]}, { LineBox[{{5., 4.535176679948457}, {5., 3.8983153862804967`}}], LineBox[{Offset[{1.5, 0}, {5., 4.535176679948457}], Offset[{-1.5, 0}, {5., 4.535176679948457}]}], LineBox[{Offset[{1.5, 0}, {5., 3.8983153862804967`}], Offset[{-1.5, 0}, {5., 3.8983153862804967`}]}]}, { LineBox[{{10., 7.245361138736632}, {10., 6.168564172875948}}], LineBox[{Offset[{1.5, 0}, {10., 7.245361138736632}], Offset[{-1.5, 0}, {10., 7.245361138736632}]}], LineBox[{Offset[{1.5, 0}, {10., 6.168564172875948}], Offset[{-1.5, 0}, {10., 6.168564172875948}]}]}, { LineBox[{{15., 9.700277629175904}, {15., 8.333583644822479}}], LineBox[{Offset[{1.5, 0}, {15., 9.700277629175904}], Offset[{-1.5, 0}, {15., 9.700277629175904}]}], LineBox[{Offset[{1.5, 0}, {15., 8.333583644822479}], Offset[{-1.5, 0}, {15., 8.333583644822479}]}]}, { LineBox[{{20., 10.3255761445183}, {20., 8.783324787420524}}], LineBox[{ Offset[{1.5, 0}, {20., 10.3255761445183}], Offset[{-1.5, 0}, {20., 10.3255761445183}]}], LineBox[{Offset[{1.5, 0}, {20., 8.783324787420524}], Offset[{-1.5, 0}, {20., 8.783324787420524}]}]}, { LineBox[{{25., 10.941516097281813`}, {25., 9.30977281538027}}], LineBox[{Offset[{1.5, 0}, {25., 10.941516097281813`}], Offset[{-1.5, 0}, {25., 10.941516097281813`}]}], LineBox[{Offset[{1.5, 0}, {25., 9.30977281538027}], Offset[{-1.5, 0}, {25., 9.30977281538027}]}]}, { LineBox[{{30., 11.174948356183874`}, {30., 9.517490870912384}}], LineBox[{Offset[{1.5, 0}, {30., 11.174948356183874`}], Offset[{-1.5, 0}, {30., 11.174948356183874`}]}], LineBox[{Offset[{1.5, 0}, {30., 9.517490870912384}], Offset[{-1.5, 0}, {30., 9.517490870912384}]}]}, { LineBox[{{35., 11.05801560899657}, {35., 9.421148683444933}}], LineBox[{Offset[{1.5, 0}, {35., 11.05801560899657}], Offset[{-1.5, 0}, {35., 11.05801560899657}]}], LineBox[{Offset[{1.5, 0}, {35., 9.421148683444933}], Offset[{-1.5, 0}, {35., 9.421148683444933}]}]}, { LineBox[{{40., 10.656125438960123`}, {40., 9.072542610265762}}], LineBox[{Offset[{1.5, 0}, {40., 10.656125438960123`}], Offset[{-1.5, 0}, {40., 10.656125438960123`}]}], LineBox[{Offset[{1.5, 0}, {40., 9.072542610265762}], Offset[{-1.5, 0}, {40., 9.072542610265762}]}]}, { LineBox[{{45., 10.171023265115547`}, {45., 8.662894684113645}}], LineBox[{Offset[{1.5, 0}, {45., 10.171023265115547`}], Offset[{-1.5, 0}, {45., 10.171023265115547`}]}], LineBox[{Offset[{1.5, 0}, {45., 8.662894684113645}], Offset[{-1.5, 0}, {45., 8.662894684113645}]}]}, { LineBox[{{50., 9.900982128091602}, {50., 8.482415106809889}}], LineBox[{Offset[{1.5, 0}, {50., 9.900982128091602}], Offset[{-1.5, 0}, {50., 9.900982128091602}]}], LineBox[{Offset[{1.5, 0}, {50., 8.482415106809889}], Offset[{-1.5, 0}, {50., 8.482415106809889}]}]}, { LineBox[{{55., 9.42317741681024}, {55., 8.102169511652765}}], LineBox[{ Offset[{1.5, 0}, {55., 9.42317741681024}], Offset[{-1.5, 0}, {55., 9.42317741681024}]}], LineBox[{Offset[{1.5, 0}, {55., 8.102169511652765}], Offset[{-1.5, 0}, {55., 8.102169511652765}]}]}, { LineBox[{{60., 8.38835573954608}, {60., 7.1683381904165655`}}], LineBox[{Offset[{1.5, 0}, {60., 8.38835573954608}], Offset[{-1.5, 0}, {60., 8.38835573954608}]}], LineBox[{Offset[{1.5, 0}, {60., 7.1683381904165655`}], Offset[{-1.5, 0}, {60., 7.1683381904165655`}]}]}, { LineBox[{{65., 7.819965083391113}, {65., 6.701016354462408}}], LineBox[{Offset[{1.5, 0}, {65., 7.819965083391113}], Offset[{-1.5, 0}, {65., 7.819965083391113}]}], LineBox[{Offset[{1.5, 0}, {65., 6.701016354462408}], Offset[{-1.5, 0}, {65., 6.701016354462408}]}]}, { LineBox[{{70., 7.229219219096843}, {70., 6.209013556520591}}], LineBox[{Offset[{1.5, 0}, {70., 7.229219219096843}], Offset[{-1.5, 0}, {70., 7.229219219096843}]}], LineBox[{Offset[{1.5, 0}, {70., 6.209013556520591}], Offset[{-1.5, 0}, {70., 6.209013556520591}]}]}, { LineBox[{{75., 6.361940914344382}, {75., 5.43648467982552}}], LineBox[{Offset[{1.5, 0}, {75., 6.361940914344382}], Offset[{-1.5, 0}, {75., 6.361940914344382}]}], LineBox[{Offset[{1.5, 0}, {75., 5.43648467982552}], Offset[{-1.5, 0}, {75., 5.43648467982552}]}]}, { LineBox[{{80., 5.6974462376834625`}, {80., 4.861644823009844}}], LineBox[{Offset[{1.5, 0}, {80., 5.6974462376834625`}], Offset[{-1.5, 0}, {80., 5.6974462376834625`}]}], LineBox[{Offset[{1.5, 0}, {80., 4.861644823009844}], Offset[{-1.5, 0}, {80., 4.861644823009844}]}]}, { LineBox[{{85., 5.322726107375021}, {85., 4.570816093934041}}], LineBox[{Offset[{1.5, 0}, {85., 5.322726107375021}], Offset[{-1.5, 0}, {85., 5.322726107375021}]}], LineBox[{Offset[{1.5, 0}, {85., 4.570816093934041}], Offset[{-1.5, 0}, {85., 4.570816093934041}]}]}, { LineBox[{{90., 4.579641979698429}, {90., 3.905516556732265}}], LineBox[{ Offset[{1.5, 0}, {90., 4.579641979698429}], Offset[{-1.5, 0}, {90., 4.579641979698429}]}], LineBox[{Offset[{1.5, 0}, {90., 3.905516556732265}], Offset[{-1.5, 0}, {90., 3.905516556732265}]}]}, { LineBox[{{95., 4.242489337299772}, {95., 3.639939567292583}}], LineBox[{Offset[{1.5, 0}, {95., 4.242489337299772}], Offset[{-1.5, 0}, {95., 4.242489337299772}]}], LineBox[{Offset[{1.5, 0}, {95., 3.639939567292583}], Offset[{-1.5, 0}, {95., 3.639939567292583}]}]}, { LineBox[{{100., 3.796612714207804}, {100., 3.2595028139990183`}}], LineBox[{Offset[{1.5, 0}, {100., 3.796612714207804}], Offset[{-1.5, 0}, {100., 3.796612714207804}]}], LineBox[{Offset[{1.5, 0}, {100., 3.2595028139990183`}], Offset[{-1.5, 0}, {100., 3.2595028139990183`}]}]}, { LineBox[{{105., 3.3825019682853377`}, {105., 2.904893179383821}}], LineBox[{Offset[{1.5, 0}, {105., 3.3825019682853377`}], Offset[{-1.5, 0}, {105., 3.3825019682853377`}]}], LineBox[{Offset[{1.5, 0}, {105., 2.904893179383821}], Offset[{-1.5, 0}, {105., 2.904893179383821}]}]}, { LineBox[{{110., 2.823606070347631}, {110., 2.399840772440259}}], LineBox[{Offset[{1.5, 0}, {110., 2.823606070347631}], Offset[{-1.5, 0}, {110., 2.823606070347631}]}], LineBox[{Offset[{1.5, 0}, {110., 2.399840772440259}], Offset[{-1.5, 0}, {110., 2.399840772440259}]}]}, { LineBox[{{115., 2.4982021863600377`}, {115., 2.1229575414487822`}}], LineBox[{Offset[{1.5, 0}, {115., 2.4982021863600377`}], Offset[{-1.5, 0}, {115., 2.4982021863600377`}]}], LineBox[{Offset[{1.5, 0}, {115., 2.1229575414487822`}], Offset[{-1.5, 0}, {115., 2.1229575414487822`}]}]}, { LineBox[{{120., 2.217226768659845}, {120., 1.8855452686626297`}}], LineBox[{Offset[{1.5, 0}, {120., 2.217226768659845}], Offset[{-1.5, 0}, {120., 2.217226768659845}]}], LineBox[{Offset[{1.5, 0}, {120., 1.8855452686626297`}], Offset[{-1.5, 0}, {120., 1.8855452686626297`}]}]}, { LineBox[{{125., 2.0749651335304797`}, {125., 1.7822678785490549`}}], LineBox[{Offset[{1.5, 0}, {125., 2.0749651335304797`}], Offset[{-1.5, 0}, {125., 2.0749651335304797`}]}], LineBox[{Offset[{1.5, 0}, {125., 1.7822678785490549`}], Offset[{-1.5, 0}, {125., 1.7822678785490549`}]}]}, { LineBox[{{130., 1.8230726203853544`}, {130., 1.5651599100150055`}}], LineBox[{Offset[{1.5, 0}, {130., 1.8230726203853544`}], Offset[{-1.5, 0}, {130., 1.8230726203853544`}]}], LineBox[{Offset[{1.5, 0}, {130., 1.5651599100150055`}], Offset[{-1.5, 0}, {130., 1.5651599100150055`}]}]}, { LineBox[{{135., 1.5191610044969295`}, {135., 1.292203824597523}}], LineBox[{Offset[{1.5, 0}, {135., 1.5191610044969295`}], Offset[{-1.5, 0}, {135., 1.5191610044969295`}]}], LineBox[{Offset[{1.5, 0}, {135., 1.292203824597523}], Offset[{-1.5, 0}, {135., 1.292203824597523}]}]}, { LineBox[{{140., 1.3207333836644615`}, {140., 1.121258570083062}}], LineBox[{Offset[{1.5, 0}, {140., 1.3207333836644615`}], Offset[{-1.5, 0}, {140., 1.3207333836644615`}]}], LineBox[{Offset[{1.5, 0}, {140., 1.121258570083062}], Offset[{-1.5, 0}, {140., 1.121258570083062}]}]}, { LineBox[{{145., 1.2279358080805218`}, {145., 1.0528070293711564`}}], LineBox[{Offset[{1.5, 0}, {145., 1.2279358080805218`}], Offset[{-1.5, 0}, {145., 1.2279358080805218`}]}], LineBox[{Offset[{1.5, 0}, {145., 1.0528070293711564`}], Offset[{-1.5, 0}, {145., 1.0528070293711564`}]}]}, { LineBox[{{150., 1.067524516728688}, {150., 0.9139207092492649}}], LineBox[{Offset[{1.5, 0}, {150., 1.067524516728688}], Offset[{-1.5, 0}, {150., 1.067524516728688}]}], LineBox[{Offset[{1.5, 0}, {150., 0.9139207092492649}], Offset[{-1.5, 0}, {150., 0.9139207092492649}]}]}, { LineBox[{{155., 0.9498201402107281}, {155., 0.8152126260070561}}], LineBox[{Offset[{1.5, 0}, {155., 0.9498201402107281}], Offset[{-1.5, 0}, {155., 0.9498201402107281}]}], LineBox[{ Offset[{1.5, 0}, {155., 0.8152126260070561}], Offset[{-1.5, 0}, {155., 0.8152126260070561}]}]}, { LineBox[{{160., 0.8255553116866043}, {160., 0.7076845118346498}}], LineBox[{Offset[{1.5, 0}, {160., 0.8255553116866043}], Offset[{-1.5, 0}, {160., 0.8255553116866043}]}], LineBox[{Offset[{1.5, 0}, {160., 0.7076845118346498}], Offset[{-1.5, 0}, {160., 0.7076845118346498}]}]}, { LineBox[{{165., 0.7088484689640627}, {165., 0.6057008758620771}}], LineBox[{Offset[{1.5, 0}, {165., 0.7088484689640627}], Offset[{-1.5, 0}, {165., 0.7088484689640627}]}], LineBox[{Offset[{1.5, 0}, {165., 0.6057008758620771}], Offset[{-1.5, 0}, {165., 0.6057008758620771}]}]}, { LineBox[{{170., 0.5923969452950095}, {170., 0.5021828232151582}}], LineBox[{Offset[{1.5, 0}, {170., 0.5923969452950095}], Offset[{-1.5, 0}, {170., 0.5923969452950095}]}], LineBox[{Offset[{1.5, 0}, {170., 0.5021828232151582}], Offset[{-1.5, 0}, {170., 0.5021828232151582}]}]}, { LineBox[{{175., 0.5133874562323713}, {175., 0.4345195892433938}}], LineBox[{Offset[{1.5, 0}, {175., 0.5133874562323713}], Offset[{-1.5, 0}, {175., 0.5133874562323713}]}], LineBox[{Offset[{1.5, 0}, {175., 0.4345195892433938}], Offset[{-1.5, 0}, {175., 0.4345195892433938}]}]}, { LineBox[{{180., 0.46206201117433343`}, {180., 0.3931357024043417}}], LineBox[{Offset[{1.5, 0}, {180., 0.46206201117433343`}], Offset[{-1.5, 0}, {180., 0.46206201117433343`}]}], LineBox[{Offset[{1.5, 0}, {180., 0.3931357024043417}], Offset[{-1.5, 0}, {180., 0.3931357024043417}]}]}, { LineBox[{{185., 0.3882218222305305}, {185., 0.32799626112878544`}}], LineBox[{Offset[{1.5, 0}, {185., 0.3882218222305305}], Offset[{-1.5, 0}, {185., 0.3882218222305305}]}], LineBox[{Offset[{1.5, 0}, {185., 0.32799626112878544`}], Offset[{-1.5, 0}, {185., 0.32799626112878544`}]}]}, { LineBox[{{190., 0.3435240991468689}, {190., 0.29090514809343904`}}], LineBox[{ Offset[{1.5, 0}, {190., 0.3435240991468689}], Offset[{-1.5, 0}, {190., 0.3435240991468689}]}], LineBox[{Offset[{1.5, 0}, {190., 0.29090514809343904`}], Offset[{-1.5, 0}, {190., 0.29090514809343904`}]}]}, { LineBox[{{195., 0.3064912174120357}, {195., 0.2605156210174417}}], LineBox[{Offset[{1.5, 0}, {195., 0.3064912174120357}], Offset[{-1.5, 0}, {195., 0.3064912174120357}]}], LineBox[{Offset[{1.5, 0}, {195., 0.2605156210174417}], Offset[{-1.5, 0}, {195., 0.2605156210174417}]}]}, { LineBox[{{200., 0.25711648206743015`}, {200., 0.21693746802723593`}}], LineBox[{Offset[{1.5, 0}, {200., 0.25711648206743015`}], Offset[{-1.5, 0}, {200., 0.25711648206743015`}]}], LineBox[{Offset[{1.5, 0}, {200., 0.21693746802723593`}], Offset[{-1.5, 0}, {200., 0.21693746802723593`}]}]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.51566380806469*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.515611993352768*^9, 3.515611994883058*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.11 Fitting data", "Section", CellChangeTimes->{{3.507316070042357*^9, 3.507316077962173*^9}, { 3.5073590469648237`*^9, 3.507359048431879*^9}, {3.515600734131391*^9, 3.51560073459947*^9}, {3.51561174797678*^9, 3.515611748040719*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fvalues", " ", "=", " ", RowBox[{"FindFit", "[", RowBox[{"d", ",", RowBox[{"A", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "tp"}], "/", "tau"}], "]"}], "*", "tp"}], ",", RowBox[{"{", RowBox[{"A", ",", "tau"}], "}"}], ",", "tp"}], "]"}]}]], "Input", CellChangeTimes->{ 3.5073590944957323`*^9, {3.507359127225354*^9, 3.507359213486071*^9}, { 3.5073592586139727`*^9, 3.507359289587331*^9}, {3.507359344060783*^9, 3.507359359313415*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"A", "\[Rule]", "0.9999999999999998`"}], ",", RowBox[{"tau", "\[Rule]", "30.`"}]}], "}"}]], "Output", CellChangeTimes->{3.515663808125647*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffunc", " ", "=", " ", RowBox[{ RowBox[{"A", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "tp"}], "/", "tau"}], "]"}], "*", "tp"}], " ", "/.", " ", "fvalues"}]}]], "Input", CellChangeTimes->{{3.5073593487830353`*^9, 3.507359388359923*^9}, { 3.5073594816559963`*^9, 3.5073594828860407`*^9}}], Cell[BoxData[ RowBox[{"0.9999999999999998`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.03333333333333333`"}], " ", "tp"}]], " ", "tp"}]], "Output", CellChangeTimes->{3.515663808166769*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", "d", "]"}], ",", RowBox[{"Plot", "[", RowBox[{"ffunc", ",", RowBox[{"{", RowBox[{"tp", ",", "0", ",", "200"}], "}"}]}], "]"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.5073593965793457`*^9, 3.507359444416535*^9}, { 3.507359486973536*^9, 3.507359492934573*^9}, {3.515622738335112*^9, 3.515622742926836*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQjR2IOPiHHW3781bAAcJXcfD7teua+0oZKF/PYeWc FWfUjZSgfBOHafxaOimdKlC+pUPv87sZt3epQvl2Di4Kpy4tEFKD8BscHSIO 9LREnIHJuzjkSt7SrBCD8hvcHI78ibF5LQIzz9NB/Nt0NfPHUPsavB0O9e3d aDZNESrv57C+s/lnva0ChO8Q4DDL2CeJ86QsVH2gQ9NJy7jPatIQ/oEgB+m+ dXsVFkhA9Yc4TL3hMk3URgyqP9RB8PXGPUn/haH6wxysQxgDEt4IQvWHO+hy fDh1gBkWPpEOKmGTV3J08UD1Rzk03cw2WRrLCdUf7XB4hdWEhjo2qP4YB4Yd t6ZxvGCG6o9zUNWcH+MwlRGqP96BLz9Y8ifjf3sIP8Hh2hz2Jnmf3xD+gwSH C18KV1359x3Cb0h0+M5izpAo8BXCV0hy6GbY/XBi+ScI/0CSw/Nz7rmntT9A +AnJDrU603OUvd5A+AwpDmHHZhmJ73gB4S9IcZj1l+Mm45SnUPtTHVy41C6u uvgIan+qw5130WuY0h5A7U9z8H3MbK3cdwdqf7rDnKkmG09cvwG1P91h+Yne 0g8zrkLtz3B4vbv/jN/hS1D7Mx3Obrw8W8vrgj0Adme3pQ== "]]}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnk4Vd0Xx2VIJa8MGQrh3nPRT+aZ63wNoQwVkkwZwpUhlCEkNCpKlDSJ N4TMoZBCRTJdGgi9GiSiQkkTfqc/zrOfz7P32d+11l5r7S3rtdfOh5ODg4Nz CfVRo9yZ+etZ0j1GF+rGY/+Ot5cprgtilZGOpY+SOJzKyKao0lwF1n3y0pmU a04W98kW1VC/paxuUoldrJHE6CYfJ/dazvoNk05VXAuH3/9Htukfrp30+0Ju SeeLUvD5TD45Oxg65rdI/nTTSqnaM0+eyMxoS1fjgKzEIeYG8wVSiUU6a5Rx wD7Kwu2OzCIZxns2JqxoCYoazIOP+HNgYaPmvalsLujueVFkL8oJ8QfRpp9S eLHyZKGakTMPNjfw2o76CYC3rn35/RQ+qC16zYpOCeCNYo7Fzlk+JMvs6qIZ rsKp9eM64a4rsd+rLtzh4SqMjgl/0FDkh9loyMPqZ4KwZDmG9N/9B28/vfKM mhXGU1HxbadHV0Fm/vaVeW1xLA2cUNN/IgyRLJ+p1THi+OP7g530XRjLSGEz 5fviEBgO68+WE8GX+OAJdwsJhBI6Y0S0CO5xE/qNO9bgpal15FnGaritTOtL jJJEv/I5PYlwUXTyay/ndpNBgphVn/5HcfRaCWV2xcpgj+977p38EuhP+sy4 eEUGXFrBK6xUJTDCc8NMeUgGtSps1ZvhEvgzLxbv5CKLzGO5n3YtSGD955/f i3fKwSDV80Md71qc6GoY2e5IR97dnqMqvyVxeuWlfTIRdDzL/ar9j4QUzm2O 4Jw4T0dy7OX1j7SlcK1FWSb+OR0nFdU97oZKoebeNZciBwLjiyKlT99L4X1p Qu+CHQOFo309zS3SMDmzsfHGFgWcCQySNtWWQfzmqsLeYAXsrnzhecFEBvd4 aOnzKQpgeD+PGbCVgX4sh699hwI6xw4FbfCTgYZ/Pd+ipSIG2hsGeC/IgG6q tsPRZD0Ori91uPxVBkvnJD9zaylh4mpUSFa2LMwqT/WpOChhcljv2ViRLBKD fjU671PCnf6sJ7RqWSy860svr1CC/VbkBrTJYo6dpueqvAE3jiHGbFoWY0XL jt6SV4ZBv6Akw0gOPiq/+NX4VRE8MOXG2SkH68HjeeLSqvizV3dG+YUcNI+v ZnKoqCL7UCPTalgO3MOqgd1bVXFETU/XfloO/572exJ0ThXeVtV+/4rQMPzp 2bGitWpg+ZyY2uxEQ8tFL+k0JTWMxPlJRHvQULpxqvoAUw3GHGUfL7JoiLvK 995ylxrS5OWabkbRIGljYvrhXzXw6dc9l8ikYWdx2SJtvTpurPqoq/SMBjgx L/AZqEP3aVB54CANCtztyl+t1KHO6K7OekvDD5dRt+YgdVSq/s7pm6Ihg0/q rkeFOrZHkkeyVtLxdM/JqKu6GlirnxycbEyHjaLPtKiFJmakn6WZ59Dx61R4 /StHTfjQpa7sz6ej4PPRo7m+mtiim5F44SYd3FX5EurHNBGvw1h1t5qOOqMx Y5tHmhDWCbZKaKOD4RCQdthUC1GB4mI8X6g8q4lx3WyvhZj/yd86+pWOBIlk hqC3FpQ6FTp/z9Ex9F9xXVaiFqaPK//7mINAuv/nt7VNWhA40f76vSABjkOh GlOkNtL4TknqqBMofZMwX7NFG00jietEtAm4mKW1HtylDSeRFr0PegRqlt9y 4Tukjb6aEy/3GhMIPPftMOOeNtqIiTa+rQReFkY+czXUgW1ZUkREAIFjK09k 0ax14GVjgtpgApp7M1kfXXRwS/DIrZlQAqmatX8iY3TwwNC4blMUAfP7v+jp dTpYERKNpCMEKp8dDG/T1cWlyfz+7ZcJFBzd7fV2ky5ub3ArQRaBLG2rLb+d dSElq6Iim0PgZKa44oaDughx3enzIJ+At+utodQmXcpPvccpFQSc+S+1Ffbq YsmDOHX5KgJb78XXNL/ThXC5+7WaGgKGMrap33j0YE1fevN2PQGRkTFTp816 iOErLzV9RGDF+W7VUBc93O5+aHe6lYqfeY3UyUA9rLNrsu5uIzB54/Bc/Wk9 5MntD9DsIvAoQPrmuqd6GI6dDUl+QSDiq73QBxd95D5y2BP7nopfrv7iYqA+ WidvKqp9IOC1XXZSPE4fFetow0NjBGxvf360OVsf86SbvcQkAfmYpAOlI/p4 t6xor/wMAWmlEN/WWX04XR35fO4rZe8rR/vXSw3Qkmda8fMbZR9J3yCkaADl CCeicI5AP+f91+FBBtgxktCb/YdA1628ztNxBojmbAhrmyfwcHdy3Y0zBkg6 KJszvkCgomXnuZcVBnBosO9ctYSBgkgkzDRT64uPvBLjZCBLQT6Y75kBVu/M yxblYuDkyW8WzO8GqDGQ3/2bm4F4g0FNR15DpL4viXjDw0DEZJPsXnFDyGKv x/2lDHjZnvmdrW+Imx8zX3ktY8BpMXys1soQthXjiQrLGbAtd33e62qIMFlz 2ijFBkLry7gPGaLh3bWoTXwMdC1xbus8Y4gJXX+rSYo9ppPeZWQb4vM956PH VzJwhD0upthsCPbHwS03+BkQbZRQn+k1hLr0p6n//UP12bJN1vXvDJF7Q3FN IcVdpwvjbXiYyDg4RKQIUPvFvbwkKsqEWe5V8W8UzwQtrx5mMBEzvK7KfhW1 v5ted4EOE23FkRzFFIvZ+I+HWjJxqaOSZ57iIsOLXAY7o^Ãø¾g¹·f2\E×ËnOnysðÏwoêß=5_w~}t/aï\Gk»÷ÿµméwokwï¯iñ2ÿWk}qo1gsMßùÔô?MÉ[óHWnziSÞyx7gýïß³øÿQüøRYïÏoþçGçwqOè2}{ÿ;nwm×oóutSï×gj×~ìV·oNÏz]k¯{ýRy{Þã|umøzwÿõa{nq\~4yxDyûou^/Theöfétos}1Y{×ëEûï]RoyKjzµ¾X?{ÛOîæaw÷í{¼ÿn¯=}|7mv÷sõê[óÿu~=·fM{ÞÔ~×GwÿkcSuöwëLó_ý‹íùOw?¿>V^ývÿYmu÷uùýko8wüÊmWþ¯×x]wÿ?æy{{u¯nÉm¿û]êzþoZR|êâ 6_38¿+õ÷oüVÿ/NGøB_k·knÞ~ÛöoyÖ{?0muQß·eSYpGk=_íct÷áo+×7OQF>øU\w~oÿwq[sÓw÷vëukJ]/;|uñ8~uëWUsóïW{ooss¯]hÏïôúM}{Ën~uw}ëx~ËûZe1ïöKÛgwômþÿ÷/ûýuR·{z÷{z?øl{kõjúîEº43þoý|ÕËû?qûvo÷Ú+R÷V;ÿ¿÷W[Þîqwõ}e_ukw4Ö7cRZF~õöugñÕ/çjJ»_}ó9Sg{rk}î~ooKs_þnGNÿsw®Gz;õm;6Yÿ07v_^ÿ»ãMoJ{óo;÷ÿr/w÷÷z}ù{ûÛUxssÿ÷7â>Ö?\nxcyøÍzûâ÷Ú{n¿rvkÝk66ü[x³ßl{Ý{åóZåߺw~TS|oÿþf__ølluývõGVY÷|umöõqxÏ||wlïu_u¿vï{es}ÇçSwyùÛ»tmõVÿ?Íôgß{qyÓyvd5KuÒü^ZFX}xK[oOoée~KçkxÚ÷û9r߯ogiÞyóuo[~uo~gk{ç\üÏEnûç7z[ï¿òºx[{_x×~nWuvo{â\ÿj;gM{ouï;vkvÔïgéÝs«Ín:V{¿~÷kÞocõrgY;OlaÎF^swwwçoo?oóÏòá÷ja}o ãÝx³\wׯwxRw÷vok\hóÝõþ{exÇ]<ûj}xÿ{Mrogk4[0ÖnõgíÈsõmUv~µå}ýóÚÛcWY/ÿã}÷wyõejúwaçcöv{îgst^o~m/ÿoì>_6oOZ¶ïãmúwVzteuwÂívßnWö‹nûEruw¸mjýo|ûÏöÍîÍooKüf~óc_s{uc½ó?ëí{~ñgqñWsöMoü}í{jeì:øYöûŸyýóskçìþóyO}{wE{~mù¹ù;åw_nÜËh8sÞ_ñëwoZoùeSvrøû÷cq+sÅvlg´ÿSýn}æíy;}oÿ8?[dWÿü¶VtGöuÿl{ÏkK]{TwTe|}U³»w}ydok×ÙxÏuWþqfç>GKÒñ~{s_]óbk|Ò[ouu}}{<éWYnKÿßú¯ÝßktI÷ßú~íù}~j·6}ÿ3}æ~xo×cw®zNfÉ_µokùýôl{VvfsÇmur¿öhíK·ôu_õkõþ»ísÛmg{NÞnöwÿoIÚ{t~xXíø÷±N}òkNMo{ýsÿswwT~go×\îoô~>ö³?wóëãùÿ[}Tgg5éñû?{w¿ó³ymo~y7s.{öv~éwök__þrR}wõ|Þìw]õ>{î\Umk{³{o~ûÿ|îk¯yïûóôyüuûVb×í3e:}v]ýG{Zï/Ýïiw^~ooVo97W}Zßvg1û·vuvëÛýç3+yO9oko÷ûw6?iãpÒ/®Riu7s¾n]uö]vJëkgþõy4Wÿÿ»pwtïÌ{ÖøïOïoûr{ÇksSpiNÇãO_GrWñÿêwϳkök~nwKîoNo=ëouoiùfwO}euOv×·ZíwýçoyçüõkùkóxqswCnEj?íyþ]ýÊ7ïnëw|¯oq=wþË{üQþ>s·}flÑ·³î¿zïÿo½^oo5gúþÓMwû¿r?_Ùe¶_~Îò7Ø~~õW\l·r]òûß{{·g~Üoîù_KÓxõ÷kçN~Wk~ïzåõÔn\ã_úuwñ_okO3SÞ}~d}Þþ?õMZêmmkï×SoOÿëqf6m=szõþv}¸Y¹oùyosíw¿×j=ïöÛ5juû7<;Öv{Ê{MsùûéüzgM_ÿ;ú|þýr_cÇo}jçsö7ko[kízTwvH·ósæï9æwýxzO;üoÒóvnsß{}lWjö]úï{uûZvi+¿9wwSýÛ|lñ~zwXiF÷ëý7Ok·nrwÿc{¯}{7Yø_þ/iWh6ï9wz_³uïus_M~kOïoq}¹xD{öl·9g{wù^ÿ{çwc÷{u»ÍwoY{nwþÊÛ/|Or|ukwm7~þ:Õ÷_yr»o{‹åýs9ûIloVWÖoZ4dmq¿n·ûðíî÷7ô?û|q?lWoÿolomZ?þ³l÷Òlþ÷eºßûµxþ xßïy>Û·îËwlytzosó¿ÿÿ~Çÿmeïó×ú{ëO|íwÜ·Ï__Ï~ï4e<ÃûõÛ}n_won]+uµ{íYi¿u{gz±w6_xÆré÷rnwwo|o{QwWùï_ÍwÏyv=^³~kÍ·uxòWN}t;÷¸Bþíºgaw~wëvísèË?óþÿ3|fÖÏ}4W{9oôøÿszojvûGKOZq;Uùvk}ku÷~?_uUÜ^÷oKwîÿmúì~êñWuwäo7w9Ê}uóEKöýï7wø;õ}^û?jöooV·¶¿}wù·sÞøz/ø1íw UÏ}wta\Ôúnì9lf?w³ãßëêu}gzÿow}û_ýuþg5¿Çý{5Hc5Z2bLK0PGRucZGF G/eC69dvZpP/B6TlAdU= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.5156638082082977`*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.13 Creating simulated data", "Section", CellChangeTimes->{{3.507316070042357*^9, 3.507316077962173*^9}, { 3.50731612178714*^9, 3.507316125232874*^9}, 3.507318393834909*^9, { 3.5156007418269997`*^9, 3.5156007423551073`*^9}, {3.515611757392624*^9, 3.515611757464409*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetDirectory", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.507316675271442*^9, 3.507316677707238*^9}, 3.507318393835288*^9}], Cell[BoxData["\<\"/Users/sboogert/Teaching/1stpostexam\"\>"], "Output", CellChangeTimes->{3.515663808254438*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"x", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "200", ",", "5"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.507316128187798*^9, 3.507316153900878*^9}, { 3.507316404949772*^9, 3.507316405954692*^9}, 3.5073183938378963`*^9, { 3.507319092018483*^9, 3.507319092840856*^9}, {3.507358588039447*^9, 3.5073585894870863`*^9}, {3.507359530788823*^9, 3.507359533788828*^9}, { 3.507359577029715*^9, 3.50735958361831*^9}, {3.515609793469805*^9, 3.515609794758089*^9}, 3.5156098388528233`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"y", " ", "=", " ", RowBox[{"N", "[", RowBox[{"x", " ", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "x"}], "/", "30"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.50731615980825*^9, 3.5073162115620203`*^9}, 3.50731839383906*^9, {3.507319047780457*^9, 3.507319050114423*^9}, { 3.507359643949882*^9, 3.5073596560647297`*^9}, {3.5156098277035627`*^9, 3.515609877066185*^9}, {3.515609977089045*^9, 3.51560998078432*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"yerr", " ", "=", " ", RowBox[{ RowBox[{"0.075", "*", "y"}], "+", "0.001"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y1", " ", "=", " ", RowBox[{"y", "+", RowBox[{ RowBox[{"(", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Random", "[", "]"}], "-", "1"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "y", "]"}], "-", "1"}]}], "}"}]}], "]"}], ")"}], "*", "yerr"}]}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.515609977451929*^9, 3.515609994152842*^9}, { 3.515611850807333*^9, 3.5156118682008867`*^9}, {3.515621794951439*^9, 3.515621797372941*^9}, {3.5156220992386637`*^9, 3.515622099925921*^9}, { 3.515622132466237*^9, 3.515622133884983*^9}, {3.515622385058999*^9, 3.515622403734639*^9}, {3.515622466256441*^9, 3.515622469077466*^9}, { 3.5156225187830133`*^9, 3.515622529948594*^9}, {3.515622582674952*^9, 3.515622652625505*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"lp1", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{"y", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lp2", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{"y1", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"lp1", ",", "lp2"}], "]"}]}], "Input", CellChangeTimes->{{3.507316177217992*^9, 3.5073161831378307`*^9}, 3.507318393840116*^9, {3.515609815294297*^9, 3.5156098192338457`*^9}, { 3.5156099711849823`*^9, 3.5156099716805277`*^9}, 3.5156225116922607`*^9, { 3.515622667498794*^9, 3.515622685975787*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7BlQgYN/2NG2P28FHCBcDge/X7uuua+UgfIF HFbOWXFG3UgJyhdxmMavpZPSqQLlSzj0Pr+bcXuXKpQv4+CicOrSAiE1KF/B IeJAT0vEGZi8kkOu5C3NCjEYX8XhyJ8Ym9ciMPPUHMS/TVczfwyzT8PhUN/e jWbTFKF8LYf1nc0/620VoHwdh1nGPkmcJ2WhfD2HppOWcZ/VpKF8AwfpvnV7 FRZIQPmGDlNvuEwTtRGD8o0cBF9v3JP0XxjKN3awDmEMSHgjCOWbOOhyfDh1 gBkWPqYOKmGTV3J08UD5Zg5NN7NNlsZyQvnmDodXWE1oqGOD8i0cGHbcmsbx ghnKt3RQ1Zwf4zCVEcq3cuDLD5b8yfgfGi/WDtfmsDfJ+/yG8m0cLnwpXHXl 33co39bhO4s5Q6LAVyjfzqGbYffDieWfoHx7h+fn3HNPa8Pi2cGhVmd6jrLX Gwi/wcEh7NgsI/EdL6Dyjg6z/nLcZJzyFCrv6ODCpXZx1cVHUHknhzvvotcw pT2Ayjs5+D5mtlbuuwOVd3aYM9Vk44nrN6Dyzg7LT/SWfphxFSrv4vB6d/8Z v8OXoPIuDmc3Xp6t5XXBHgDXBKlL "]]}, {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7Fv/77mXEK++HyrgYFxpHPJdVsABwuVwMHzY PeObrQyUL+DAd5nr5IWFilC+iMPzHcUhkULKUL6EQ8YE3rkpS1ShfBmHt0lb um5cUIHyFRwiFNWKwyxg8koOtoyzFLmKYfIqDu771vzMPqQE5as52MrssOoL gPE1HKomV8mkmsHs13I4yXmua7mxApSv46B4SZxjdiHMvXoO+rOdfB8ukITy DRyY9vqzVO0Wh/INHbqStNZ/2SoK5Rs5+LU/1r/RKwTlGzucmN6zyHYuLDxM HKwWlSneq+SD8k0dsopm7rMX44byzRymH9rcGHSdHco3d1A1v9DqcYYVyrdw uKUwe+rjecxQvqXDhPmujlZvGKB8K4dIV4ew3wv/2UP41g72gdsiGG/9gvJt HHQevp7hM/UblG/rEHh/Q8Zcgy9Qvp2D1b6wrJzAT1C+vUNY8sfsRebvoXwH h1339n/mSHgN4Tc4OCzmX3TfregFVN7Rwax7rSGD8VOovKNDxZK8w8f2PoLK Oznw74icnGDxACrv5LBPtf+Ip98dqLyzw9fCFXcfL7gOlXd2UFEJspoichUq 7+KgqcT8xfz0Rai8i8N/mXv33rWeswcAK9OqAw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, Automatic}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.5156638084091473`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "\"\\""}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.50731626462919*^9, 3.5073162870551567`*^9}, { 3.507316453521475*^9, 3.5073164833127117`*^9}, {3.507316543867093*^9, 3.507316544273085*^9}, {3.507316665862831*^9, 3.5073166867560673`*^9}, 3.5073183938451567`*^9, {3.507359663948406*^9, 3.5073596701922197`*^9}, { 3.515611889063279*^9, 3.515611899998275*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"x", ",", "y1", ",", "yerr"}], "}"}], "]"}], ",", "\"\\""}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.5156118765889397`*^9, 3.515611918650572*^9}, 3.5156224530579*^9}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext", CellChangeTimes->{{3.507316158048422*^9, 3.50731615875209*^9}, { 3.507316567222459*^9, 3.5073165692691107`*^9}, 3.507318393846169*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Lecture 2 problems ", "Section", CellChangeTimes->{{3.515622205827876*^9, 3.515622219433666*^9}, { 3.515675688487035*^9, 3.515675688734139*^9}}], Cell["\<\ Make a new note book to put your answers, format the notebook as you would a \ written piece of work, with sections, explaining text etc. \ \>", "Text", CellChangeTimes->{{3.515675341128128*^9, 3.515675405045549*^9}}], Cell["Make some fake data ", "Text", CellChangeTimes->{{3.515675703973139*^9, 3.515675710262477*^9}}], Cell[CellGroupData[{ Cell["Of the function y = a x^2 + b x + c", "Item", CellChangeTimes->{{3.515675727319333*^9, 3.515675773688726*^9}}], Cell[CellGroupData[{ Cell[" 50 points ", "Subitem", CellChangeTimes->{{3.515675727319333*^9, 3.515675786103406*^9}}], Cell["\<\ You can choose the coefficients a, b and c (but make them sensible)\ \>", "Subitem", CellChangeTimes->{{3.515675786971698*^9, 3.5156758183708563`*^9}}], Cell["Save the data x and y to a file called lecture2.data", "Subitem", CellChangeTimes->{{3.515675819175091*^9, 3.515675844732544*^9}}], Cell["\<\ Confirm the data looks good in notepad or excel whatever you like\ \>", "Subitem", CellChangeTimes->{{3.515675845745707*^9, 3.515675867789299*^9}}], Cell["Quit mathematica", "Subitem", CellChangeTimes->{{3.515675868172291*^9, 3.5156758706890182`*^9}}] }, Open ]], Cell[TextData[{ "Load the data you created back into ", StyleBox["Mathematica", FontSlant->"Italic"], " " }], "Item", CellChangeTimes->{{3.5156758850337667`*^9, 3.5156758923977537`*^9}}], Cell[CellGroupData[{ Cell["Plot the data", "Subitem", CellChangeTimes->{{3.515675902120524*^9, 3.5156759041294327`*^9}}], Cell["Find the data y maximum (draw a line over your plot)", "Subitem", CellChangeTimes->{{3.515675904532061*^9, 3.515675909118725*^9}, { 3.515779764020698*^9, 3.515779769294259*^9}, {3.515779882337435*^9, 3.515779885673471*^9}}], Cell["Determine the range in x", "Subitem", CellChangeTimes->{{3.515675918448989*^9, 3.5156759422284317`*^9}}], Cell["\<\ Fit the data using FindFit (plot the fit over the input data)\ \>", "Subitem", CellChangeTimes->{{3.515675918448989*^9, 3.51567595670072*^9}, { 3.515779722733861*^9, 3.515779730346026*^9}}] }, Open ]], Cell["Add errors to the data and plot with error bars ", "Item", CellChangeTimes->{{3.515779745312395*^9, 3.515779754276807*^9}}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["2.A1 Concepts and functions ", "Section", CellChangeTimes->{{3.515612331355172*^9, 3.51561234107342*^9}, { 3.515612569632504*^9, 3.515612572123084*^9}, {3.51578300959971*^9, 3.5157830119678926`*^9}}], Cell[CellGroupData[{ Cell["SetDirectory[' New Directory Name']", "Item", CellChangeTimes->{{3.515612342118163*^9, 3.5156123887966547`*^9}}], Cell["Import[' File Name']", "Item", CellChangeTimes->{{3.515612342118163*^9, 3.5156124007487297`*^9}}], Cell["ListPlot[data]", "Item", CellChangeTimes->{{3.515612401167749*^9, 3.515612406850774*^9}}], Cell["Mean, RootMeanSquare, Variance, Max, Min ", "Item", CellChangeTimes->{{3.5156124238169527`*^9, 3.515612432634432*^9}, { 3.515612490285285*^9, 3.515612490289715*^9}}], Cell["Needs[\"Package Name`\"]", "Item", CellChangeTimes->{{3.515612490717176*^9, 3.515612519544738*^9}}], Cell["FindFit", "Item", CellChangeTimes->{{3.515612535407073*^9, 3.515612537449524*^9}, { 3.5156632473729057`*^9, 3.515663247803961*^9}}], Cell["Table", "Item", CellChangeTimes->{{3.51561253803111*^9, 3.5156125397959433`*^9}, { 3.5156633390327044`*^9, 3.515663341769067*^9}}], Cell["Export", "Item", CellChangeTimes->{{3.51561253803111*^9, 3.5156125397959433`*^9}, 3.5156633390327044`*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]] }, WindowSize->{830, 708}, WindowMargins->{{147, Automatic}, {Automatic, 22}}, ShowSelection->True, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[709, 26, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[2754, 87, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[9195, 261, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[13028, 382, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[20282, 572, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[23782, 672, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[27240, 768, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[31305, 881, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[37179, 1055, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[40247, 1137, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[55759, 1427, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[65080, 1635, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[72332, 1822, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[75624, 1923, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 78108, 1997} } *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 139, 2, 27, "Input"], Cell[CellGroupData[{ Cell[709, 26, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[798, 31, 205, 3, 67, "Section"], Cell[CellGroupData[{ Cell[1028, 38, 106, 1, 20, "Item"], Cell[1137, 41, 125, 1, 20, "Item"], Cell[1265, 44, 100, 1, 20, "Item"], Cell[1368, 47, 112, 1, 20, "Item"], Cell[1483, 50, 106, 1, 20, "Item"], Cell[1592, 53, 104, 1, 20, "Item"], Cell[1699, 56, 100, 1, 20, "Item"], Cell[1802, 59, 107, 1, 20, "Item"] }, Open ]], Cell[1924, 63, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2754, 87, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[2843, 92, 205, 3, 67, "Section"], Cell[3051, 97, 155, 2, 26, "Text"], Cell[CellGroupData[{ Cell[3231, 103, 483, 10, 43, "Input"], Cell[3717, 115, 161, 2, 27, "Output"], Cell[3881, 119, 3320, 86, 118, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7238, 210, 127, 2, 27, "Input"], Cell[7368, 214, 982, 20, 329, "Output"] }, Open ]], Cell[8365, 237, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9195, 261, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[9284, 266, 258, 3, 67, "Section"], Cell[9545, 271, 155, 2, 26, "Text"], Cell[CellGroupData[{ Cell[9725, 277, 174, 3, 27, "Input"], Cell[9902, 282, 70, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10009, 288, 180, 3, 27, "Input"], Cell[10192, 293, 116, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10345, 301, 218, 5, 27, "Input"], Cell[10566, 308, 851, 23, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11454, 336, 207, 5, 27, "Input"], Cell[11664, 343, 519, 12, 241, "Output"] }, Open ]], Cell[12198, 358, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13028, 382, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[13117, 387, 253, 3, 67, "Section"], Cell[13373, 392, 140, 1, 26, "Text"], Cell[CellGroupData[{ Cell[13538, 397, 123, 2, 27, "Input"], Cell[13664, 401, 3294, 85, 118, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16995, 491, 267, 7, 27, "Input"], Cell[17265, 500, 642, 11, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17944, 516, 214, 6, 27, "Input"], Cell[18161, 524, 1276, 21, 73, "Output"] }, Open ]], Cell[19452, 548, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20282, 572, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[20371, 577, 255, 3, 67, "Section"], Cell[20629, 582, 738, 20, 43, "Input"], Cell[CellGroupData[{ Cell[21392, 606, 734, 14, 88, "Input"], Cell[22129, 622, 162, 3, 27, "Output"], Cell[22294, 627, 162, 3, 27, "Output"], Cell[22459, 632, 163, 3, 27, "Output"], Cell[22625, 637, 162, 3, 27, "Output"], Cell[22790, 642, 147, 3, 27, "Output"] }, Open ]], Cell[22952, 648, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23782, 672, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[23871, 677, 366, 5, 67, "Section"], Cell[CellGroupData[{ Cell[24262, 686, 1074, 32, 73, "Input"], Cell[25339, 720, 1056, 21, 241, "Output"] }, Open ]], Cell[26410, 744, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27240, 768, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[27329, 773, 269, 3, 67, "Section"], Cell[CellGroupData[{ Cell[27623, 780, 191, 4, 27, "Input"], Cell[27817, 786, 300, 10, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28154, 801, 488, 10, 27, "Input"], Cell[28645, 813, 774, 15, 41, "Message"], Cell[29422, 830, 774, 15, 41, "Message"], Cell[30199, 847, 261, 7, 27, "Output"] }, Open ]], Cell[30475, 857, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31305, 881, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[31394, 886, 166, 2, 67, "Section"], Cell[31563, 890, 101, 1, 26, "Text"], Cell[CellGroupData[{ Cell[31689, 895, 549, 13, 27, "Input"], Cell[32241, 910, 163, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32441, 918, 433, 12, 27, "Input"], Cell[32877, 932, 165, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33079, 940, 130, 2, 27, "Input"], Cell[33212, 944, 109, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33358, 950, 1715, 51, 73, "Input"], Cell[35076, 1003, 1215, 24, 241, "Output"] }, Open ]], Cell[36306, 1030, 824, 19, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37179, 1055, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[37268, 1060, 304, 4, 67, "Section"], Cell[37575, 1066, 523, 11, 27, "Input"], Cell[CellGroupData[{ Cell[38123, 1081, 479, 10, 27, "Input"], Cell[38605, 1093, 729, 16, 243, "Output"] }, Open ]], Cell[39349, 1112, 849, 19, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40247, 1137, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[40336, 1142, 314, 4, 67, "Section"], Cell[40653, 1148, 147, 2, 27, "Input"], Cell[40803, 1152, 277, 7, 27, "Input"], Cell[CellGroupData[{ Cell[41105, 1163, 133, 2, 27, "Input"], Cell[41241, 1167, 13578, 230, 241, "Output"] }, Open ]], Cell[54834, 1400, 92, 1, 27, "Input"], Cell[54929, 1403, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[55759, 1427, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[55848, 1432, 246, 3, 67, "Section"], Cell[CellGroupData[{ Cell[56119, 1439, 514, 13, 27, "Input"], Cell[56636, 1454, 198, 5, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56871, 1464, 346, 9, 27, "Input"], Cell[57220, 1475, 226, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57483, 1486, 411, 11, 27, "Input"], Cell[57897, 1499, 6338, 109, 241, "Output"] }, Open ]], Cell[64250, 1611, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65080, 1635, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[65169, 1640, 288, 4, 67, "Section"], Cell[CellGroupData[{ Cell[65482, 1648, 203, 4, 27, "Input"], Cell[65688, 1654, 113, 1, 27, "Output"] }, Open ]], Cell[65816, 1658, 624, 13, 27, "Input"], Cell[66443, 1673, 507, 11, 27, "Input"], Cell[66953, 1686, 1057, 26, 58, "Input"], Cell[CellGroupData[{ Cell[68035, 1716, 729, 18, 58, "Input"], Cell[68767, 1736, 1636, 32, 241, "Output"] }, Open ]], Cell[70418, 1771, 586, 12, 27, "Input"], Cell[71007, 1785, 353, 9, 27, "Input"], Cell[71363, 1796, 920, 20, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72332, 1822, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[72421, 1827, 153, 2, 67, "Section"], Cell[72577, 1831, 228, 4, 26, "Text"], Cell[72808, 1837, 102, 1, 26, "Text"], Cell[CellGroupData[{ Cell[72935, 1842, 117, 1, 20, "Item"], Cell[CellGroupData[{ Cell[73077, 1847, 96, 1, 20, "Subitem"], Cell[73176, 1850, 162, 3, 20, "Subitem"], Cell[73341, 1855, 137, 1, 20, "Subitem"], Cell[73481, 1858, 158, 3, 20, "Subitem"], Cell[73642, 1863, 103, 1, 20, "Subitem"] }, Open ]], Cell[73760, 1867, 192, 6, 20, "Item"], Cell[CellGroupData[{ Cell[73977, 1877, 100, 1, 20, "Subitem"], Cell[74080, 1880, 235, 3, 20, "Subitem"], Cell[74318, 1885, 111, 1, 20, "Subitem"], Cell[74432, 1888, 202, 4, 20, "Subitem"] }, Open ]], Cell[74649, 1895, 130, 1, 20, "Item"] }, Open ]], Cell[74794, 1899, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75624, 1923, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[75713, 1928, 211, 3, 67, "Section"], Cell[CellGroupData[{ Cell[75949, 1935, 119, 1, 20, "Item"], Cell[76071, 1938, 104, 1, 20, "Item"], Cell[76178, 1941, 96, 1, 20, "Item"], Cell[76277, 1944, 174, 2, 20, "Item"], Cell[76454, 1948, 106, 1, 20, "Item"], Cell[76563, 1951, 140, 2, 20, "Item"], Cell[76706, 1955, 139, 2, 20, "Item"], Cell[76848, 1959, 117, 2, 20, "Item"] }, Open ]], Cell[76980, 1964, 781, 18, 26, "PreviousNext"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)