(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 55399, 1422] NotebookOptionsPosition[ 52144, 1301] NotebookOutlinePosition[ 52521, 1317] CellTagsIndexPosition[ 52478, 1314] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["a correla\[CCedilla]\[ATilde]o entre res\[IAcute]duos e a matriz chap\ \[EAcute]u", "Title", CellChangeTimes->{{3.624651416837701*^9, 3.624651435612791*^9}}], Cell[CellGroupData[{ Cell["fun\[CCedilla]\[ATilde]o e par\[AHat]metros adotados", "Section", CellChangeTimes->{{3.624687465284052*^9, 3.624687473253368*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "c_", ",", "a_"}], "]"}], ":=", RowBox[{"a", ".", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"x", "/", "c"}], "]"}], "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "a", "]"}], "-", "1"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6246514429256573`*^9, 3.624651544146756*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[Sigma]", "=", "0.5"}], ";", " ", RowBox[{"x0", "=", RowBox[{"Range", "[", RowBox[{"0.5", ",", "5", ",", "0.5"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6246515554754734`*^9, 3.6246515947430997`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.5`", ",", "1.`", ",", "1.5`", ",", "2.`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`"}], "}"}]], "Output", CellChangeTimes->{3.624651596290052*^9, 3.6246876144252586`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"xc", "=", RowBox[{"Mean", "[", "x0", "]"}]}]], "Input", CellChangeTimes->{{3.624651604384217*^9, 3.6246516187287045`*^9}}], Cell[BoxData["2.75`"], "Output", CellChangeTimes->{{3.624651613837826*^9, 3.6246516198850174`*^9}, 3.6246876144408827`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["simula\[CCedilla]\[ATilde]o", "Section", CellChangeTimes->{{3.624687488082572*^9, 3.6246874897701936`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"f", "[", " ", RowBox[{ RowBox[{"x0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "xc", ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "x0", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6246516265416107`*^9, 3.6246516592776814`*^9}, { 3.624651796395071*^9, 3.6246519330596647`*^9}, {3.6246519657332354`*^9, 3.6246521174294825`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.6909980105051989`", ",", "4.953192609830765`", ",", "6.110069770031135`", ",", "6.332669125647121`", ",", "6.163368268485652`", ",", "5.803264306843846`", ",", "5.343198473421768`", ",", "4.829427557954269`", ",", "4.287447764681578`", ",", "3.7320987600713313`"}], "}"}]], "Output", CellChangeTimes->{{3.624651848163344*^9, 3.6246519335909367`*^9}, { 3.6246519670301495`*^9, 3.6246520540814915`*^9}, 3.624652086724777*^9, 3.6246521182732706`*^9, 3.6246876144408827`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"f", "[", " ", RowBox[{ RowBox[{"x0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "xc", ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", "\[Sigma]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "x0", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6246521548376465`*^9, 3.624652284845315*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5`", ",", RowBox[{"-", "0.007859476572377733`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "4.849330657328173`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "6.056600162828339`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "7.569852892288761`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "5.685650514518781`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "5.456228314212232`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "5.270791331749378`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "4.7969226236965845`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "4.553233625483213`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "4.193098300020611`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.624652242171236*^9, 3.6246522856109667`*^9}, 3.6246527468401585`*^9, 3.62468761445651*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "y", "]"}]], "Input", CellChangeTimes->{{3.624652245405777*^9, 3.624652248874729*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0.5, -0.007859476572377733}, {1., 4.849330657328173}, {1.5, 6.056600162828339}, {2., 7.569852892288761}, {2.5, 5.685650514518781}, { 3., 5.456228314212232}, {3.5, 5.270791331749378}, {4., 4.7969226236965845`}, {4.5, 4.553233625483213}, {5., 4.193098300020611}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 5.}, {-0.007859476572377733, 7.569852892288761}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.62465224985913*^9, 3.624652289142398*^9}, 3.6246527506528454`*^9, 3.6246876146127715`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.62465229981483*^9, 3.624652313003009*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ye", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "\[Sigma]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "y", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6246525395941505`*^9, 3.6246526995252223`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5`", ",", RowBox[{"-", "0.007859476572377733`"}], ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "4.849330657328173`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "6.056600162828339`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "7.569852892288761`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "5.685650514518781`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "5.456228314212232`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "5.270791331749378`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "4.7969226236965845`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "4.553233625483213`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "4.193098300020611`", ",", "0.5`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.6246525637828913`*^9, 3.6246526546322927`*^9}, 3.624652700384639*^9, 3.6246527538248816`*^9, 3.624687614659651*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dados", "=", RowBox[{"ErrorListPlot", "[", "ye", "]"}]}]], "Input", CellChangeTimes->{{3.6246524330261946`*^9, 3.6246524369951477`*^9}, { 3.6246527059474344`*^9, 3.6246527216201153`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0.5, -0.007859476572377733}, {1., 4.849330657328173}, {1.5, 6.056600162828339}, {2., 7.569852892288761}, {2.5, 5.685650514518781}, { 3., 5.456228314212232}, {3.5, 5.270791331749378}, {4., 4.7969226236965845`}, {4.5, 4.553233625483213}, {5., 4.193098300020611}}], {{ LineBox[{{0.5, 0.49214052342762227`}, {0.5, -0.5078594765723777}}], LineBox[{ Offset[{1.5, 0}, {0.5, 0.49214052342762227`}], Offset[{-1.5, 0}, {0.5, 0.49214052342762227`}]}], LineBox[{ Offset[{1.5, 0}, {0.5, -0.5078594765723777}], Offset[{-1.5, 0}, {0.5, -0.5078594765723777}]}]}, { LineBox[{{1., 5.349330657328173}, {1., 4.349330657328173}}], LineBox[{ Offset[{1.5, 0}, {1., 5.349330657328173}], Offset[{-1.5, 0}, {1., 5.349330657328173}]}], LineBox[{ Offset[{1.5, 0}, {1., 4.349330657328173}], Offset[{-1.5, 0}, {1., 4.349330657328173}]}]}, { LineBox[{{1.5, 6.556600162828339}, {1.5, 5.556600162828339}}], LineBox[{ Offset[{1.5, 0}, {1.5, 6.556600162828339}], Offset[{-1.5, 0}, {1.5, 6.556600162828339}]}], LineBox[{ Offset[{1.5, 0}, {1.5, 5.556600162828339}], Offset[{-1.5, 0}, {1.5, 5.556600162828339}]}]}, { LineBox[{{2., 8.069852892288761}, {2., 7.069852892288761}}], LineBox[{ Offset[{1.5, 0}, {2., 8.069852892288761}], Offset[{-1.5, 0}, {2., 8.069852892288761}]}], LineBox[{ Offset[{1.5, 0}, {2., 7.069852892288761}], Offset[{-1.5, 0}, {2., 7.069852892288761}]}]}, { LineBox[{{2.5, 6.185650514518781}, {2.5, 5.185650514518781}}], LineBox[{ Offset[{1.5, 0}, {2.5, 6.185650514518781}], Offset[{-1.5, 0}, {2.5, 6.185650514518781}]}], LineBox[{ Offset[{1.5, 0}, {2.5, 5.185650514518781}], Offset[{-1.5, 0}, {2.5, 5.185650514518781}]}]}, { LineBox[{{3., 5.956228314212232}, {3., 4.956228314212232}}], LineBox[{ Offset[{1.5, 0}, {3., 5.956228314212232}], Offset[{-1.5, 0}, {3., 5.956228314212232}]}], LineBox[{ Offset[{1.5, 0}, {3., 4.956228314212232}], Offset[{-1.5, 0}, {3., 4.956228314212232}]}]}, { LineBox[{{3.5, 5.770791331749378}, {3.5, 4.770791331749378}}], LineBox[{ Offset[{1.5, 0}, {3.5, 5.770791331749378}], Offset[{-1.5, 0}, {3.5, 5.770791331749378}]}], LineBox[{ Offset[{1.5, 0}, {3.5, 4.770791331749378}], Offset[{-1.5, 0}, {3.5, 4.770791331749378}]}]}, { LineBox[{{4., 5.2969226236965845`}, {4., 4.2969226236965845`}}], LineBox[{ Offset[{1.5, 0}, {4., 5.2969226236965845`}], Offset[{-1.5, 0}, {4., 5.2969226236965845`}]}], LineBox[{ Offset[{1.5, 0}, {4., 4.2969226236965845`}], Offset[{-1.5, 0}, {4., 4.2969226236965845`}]}]}, { LineBox[{{4.5, 5.053233625483213}, {4.5, 4.053233625483213}}], LineBox[{ Offset[{1.5, 0}, {4.5, 5.053233625483213}], Offset[{-1.5, 0}, {4.5, 5.053233625483213}]}], LineBox[{ Offset[{1.5, 0}, {4.5, 4.053233625483213}], Offset[{-1.5, 0}, {4.5, 4.053233625483213}]}]}, { LineBox[{{5., 4.693098300020611}, {5., 3.693098300020611}}], LineBox[{ Offset[{1.5, 0}, {5., 4.693098300020611}], Offset[{-1.5, 0}, {5., 4.693098300020611}]}], LineBox[{ Offset[{1.5, 0}, {5., 3.693098300020611}], Offset[{-1.5, 0}, {5., 3.693098300020611}]}]}}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 5.}, {-0.007859476572377733, 7.569852892288761}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.624652707463129*^9, 3.6246527220888796`*^9}, 3.6246527586376314`*^9, 3.6246876147065268`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ajuste e visualiza\[CCedilla]\[ATilde]o dos resultados", "Section", CellChangeTimes->{{3.6246875132383337`*^9, 3.624687522504616*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "=", RowBox[{"LinearModelFit", "[", RowBox[{"y", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"x", "/", "xc"}], "]"}], "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.624652319175201*^9, 3.6246523975386057`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"6.150736079120217`", "\[VeryThinSpace]", "-", RowBox[{"1.9572666460916188`", " ", RowBox[{"Log", "[", RowBox[{"0.36363636363636365`", " ", "x"}], "]"}]}], "-", RowBox[{"3.239037205362129`", " ", SuperscriptBox[ RowBox[{"Log", "[", RowBox[{"0.36363636363636365`", " ", "x"}], "]"}], "2"]}]}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", { 6.150736079120217, -1.9572666460916188`, -3.239037205362129}, \ {{$CellContext`x}, {1, Log[0.36363636363636365` $CellContext`x], Log[0.36363636363636365` $CellContext`x]^2}}, {0, 0}}, {{1., 1., 1., 1., 1., 1., 1., 1., 1., 1.}}, {{0.5, -0.007859476572377733}, {1., 4.849330657328173}, {1.5, 6.056600162828339}, {2., 7.569852892288761}, { 2.5, 5.685650514518781}, {3., 5.456228314212232}, {3.5, 5.270791331749378}, {4., 4.7969226236965845`}, {4.5, 4.553233625483213}, { 5., 4.193098300020611}}, {{1., -1.7047480922384253`, 2.9061660579905504`}, {1., -1.0116009116784799`, 1.0233364045087316`}, { 1., -0.6061358035703156, 0.36740061236983224`}, {1., -0.3184537311185346, 0.10141277886331593`}, {1., -0.09531017980432477, 0.009084030374332717}, { 1., 0.0870113769896297, 0.0075709797256314606`}, {1., 0.24116205681688804`, 0.058159137648151935`}, {1., 0.3746934494414107, 0.140395181054303}, {1., 0.49247648509779424`, 0.24253308837427795`}, {1., 0.5978370007556205, 0.3574090794724758}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.6246523813502607`*^9, 3.624652399179294*^9}, 3.6246527626534586`*^9, 3.6246876147377834`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"dados", ",", RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"fit", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.5", ",", "5"}], "}"}]}], "]"}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.624652402210698*^9, 3.6246524189317164`*^9}, { 3.6246527275266614`*^9, 3.6246527363083696`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0.5, -0.007859476572377733}, {1., 4.849330657328173}, {1.5, 6.056600162828339}, {2., 7.569852892288761}, {2.5, 5.685650514518781}, {3., 5.456228314212232}, {3.5, 5.270791331749378}, {4., 4.7969226236965845`}, {4.5, 4.553233625483213}, {5., 4.193098300020611}}], {{ LineBox[{{0.5, 0.49214052342762227`}, {0.5, -0.5078594765723777}}], LineBox[{ Offset[{1.5, 0}, {0.5, 0.49214052342762227`}], Offset[{-1.5, 0}, {0.5, 0.49214052342762227`}]}], LineBox[{ Offset[{1.5, 0}, {0.5, -0.5078594765723777}], Offset[{-1.5, 0}, {0.5, -0.5078594765723777}]}]}, { LineBox[{{1., 5.349330657328173}, {1., 4.349330657328173}}], LineBox[{ Offset[{1.5, 0}, {1., 5.349330657328173}], Offset[{-1.5, 0}, {1., 5.349330657328173}]}], LineBox[{ Offset[{1.5, 0}, {1., 4.349330657328173}], Offset[{-1.5, 0}, {1., 4.349330657328173}]}]}, { LineBox[{{1.5, 6.556600162828339}, {1.5, 5.556600162828339}}], LineBox[{ Offset[{1.5, 0}, {1.5, 6.556600162828339}], Offset[{-1.5, 0}, {1.5, 6.556600162828339}]}], LineBox[{ Offset[{1.5, 0}, {1.5, 5.556600162828339}], Offset[{-1.5, 0}, {1.5, 5.556600162828339}]}]}, { LineBox[{{2., 8.069852892288761}, {2., 7.069852892288761}}], LineBox[{ Offset[{1.5, 0}, {2., 8.069852892288761}], Offset[{-1.5, 0}, {2., 8.069852892288761}]}], LineBox[{ Offset[{1.5, 0}, {2., 7.069852892288761}], Offset[{-1.5, 0}, {2., 7.069852892288761}]}]}, { LineBox[{{2.5, 6.185650514518781}, {2.5, 5.185650514518781}}], LineBox[{ Offset[{1.5, 0}, {2.5, 6.185650514518781}], Offset[{-1.5, 0}, {2.5, 6.185650514518781}]}], LineBox[{ Offset[{1.5, 0}, {2.5, 5.185650514518781}], Offset[{-1.5, 0}, {2.5, 5.185650514518781}]}]}, { LineBox[{{3., 5.956228314212232}, {3., 4.956228314212232}}], LineBox[{ Offset[{1.5, 0}, {3., 5.956228314212232}], Offset[{-1.5, 0}, {3., 5.956228314212232}]}], LineBox[{ Offset[{1.5, 0}, {3., 4.956228314212232}], Offset[{-1.5, 0}, {3., 4.956228314212232}]}]}, { LineBox[{{3.5, 5.770791331749378}, {3.5, 4.770791331749378}}], LineBox[{ Offset[{1.5, 0}, {3.5, 5.770791331749378}], Offset[{-1.5, 0}, {3.5, 5.770791331749378}]}], LineBox[{ Offset[{1.5, 0}, {3.5, 4.770791331749378}], Offset[{-1.5, 0}, {3.5, 4.770791331749378}]}]}, { LineBox[{{4., 5.2969226236965845`}, {4., 4.2969226236965845`}}], LineBox[{ Offset[{1.5, 0}, {4., 5.2969226236965845`}], Offset[{-1.5, 0}, {4., 5.2969226236965845`}]}], LineBox[{ Offset[{1.5, 0}, {4., 4.2969226236965845`}], Offset[{-1.5, 0}, {4., 4.2969226236965845`}]}]}, { LineBox[{{4.5, 5.053233625483213}, {4.5, 4.053233625483213}}], LineBox[{ Offset[{1.5, 0}, {4.5, 5.053233625483213}], Offset[{-1.5, 0}, {4.5, 5.053233625483213}]}], LineBox[{ Offset[{1.5, 0}, {4.5, 4.053233625483213}], Offset[{-1.5, 0}, {4.5, 4.053233625483213}]}]}, { LineBox[{{5., 4.693098300020611}, {5., 3.693098300020611}}], LineBox[{ Offset[{1.5, 0}, {5., 4.693098300020611}], Offset[{-1.5, 0}, {5., 4.693098300020611}]}], LineBox[{ Offset[{1.5, 0}, {5., 3.693098300020611}], Offset[{-1.5, 0}, {5., 3.693098300020611}]}]}}}, {}}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV13k8lN0XAPBnJjsNZjDzWErekhJRWpTcg0JeWSpCSNmXkiWyJErl12uX QqJFlpSKLElSthZFlhaUNTuRfZv53f6az/czd+Y59zz3nnPvmhOeBx2pBEEY Uwji7+e3iQOqBNGJQu0qdWmcfPTGJCvKSBBbT0u31ek5eviYGEqVwIbZ4dGa Vyj0ZMFddaVOBHZWW0R21qANgywxH6tOZGdRrcVj9RkFdvbM/HqGvze6aGwY 8gNJ1QeUfXDtQp0FDgnrNIcQj3ITS/JMFzKRiapY+3sIjUduOuMS2oUIw8YU q/RhVGXQocR9owvJphA6nssjyKNmb7pmVReClNi9tk9+o7KXwheerupGwKD3 bgr4g2wf3te70dSNyniNq5H/LPKJ0CC/d3SjpFV7akvfz6IIh6YhyZFuRDy1 WGqSmUP50pToNK4eFNtQ69rzZg7xRFk339/Wg7god0Yu8y2gxycZx5/d6EEm 7c8OHL+whIjNYYGfj/aiFIepb+IpBIgLsgwZLr0ouqQnD8oJ2NifJ2Pm24ua 9bev0+km4HB6e8W3yF60SzGis34DBbKFd/J2vuxF8jvOzdCKKWA6PpYwtvoX uqtx8l+z91S4+9T6kWDvL7T30Pl3AS1cwGPxNfrc719II0wzbPQPF7ixTU// XviF1gpvr9UR4Yat/+ptbRLtQ0LJNolJBtxQ1av6PAX1obIqqmn/S27oY/JW b7jZh9opRvLq6TywMeRpu97BfjSi+vbj7QN8UGDAIxReMYBKgg1/HrMThCd3 LviWfRhAU99TP/H5C8LDOXb71JcBFCHA15caJQiZmbOPHEcHUIWs58DlUkFI og4a60kOol6WU60DQwhCSj8kCPgOomt3V7UefS0EBhvjpOLWDyHNLtWv9TQa dPNLK6ZFDyNnh+ArzF0iIPCzhe99yjDiUjjm2a8jAlvyY/qmM4fRQ2Lj0qMD IhBmteLugVfD6GiAovLq4yIgmzvEWv6NLW4rlnBFBGwMn/NYm44g/fr0F+8a ReBbtHk3KTaKYvtzBItOiEI9Iy45MXkMjf0pfxPkRgfdfOUrExlj6HN4a+Nz LzqUmdT5Hngyhq60utyfOEuHB1G8Jty1Yyh1LCbH6AodLvOG8JyZGkOCH7Qb y+/RQXPRzeew8W/0r/98XnAbHcy97mb+jzqOZEyjTifqMqDaIjhUv2Qc+X3z cbMWEoPrfYOqp8vHkVLuiv/l08XAyfdIz42qccR6MdtEJcWAL3aLbn/DONo7 ibjj14mBYe2A4OXBcRRvqeLprikGzdvMblRKTqBiQ35S2FMMeujKeZrnJlCs /AMlzToxoHzsaFPT/oP28CX8z8BfHFZt/dSA9P+gYxbWs7uDxUEjuazawOgP sqgbHFMIEwc/x+THdlZ/UJTGp6vTV8VhaPngxUjvPyg6QLXLMk0cmpVrNvbe /YMuX60yO1glDpmxDwMSVkyigVSRUamVEmB4OID5p2oSyUrbe32Ol4C4dEux xPeTKG0zO+3cdQn4MqQuurNhEvW+U8uST5GAY2ELAiFtk0jNf9nE844EeOcF sfn/TKI/NdsN2x5LQBJfyK81q6fQ/umA4dV1EtBbdqHANGAK5cm5ZLtTmXBu XaTxU6VpdL78+2K4ExMsNgvyfto6jdYvLnaUuDJhi/rV8iH1aTReMPpk0IMJ fYYRSmt1p5HymQ9y2j5MMPYNF7xhi8dfL4v4dJ4JayqDa4NjphHPFzGXI0lM qLY7ifQnptGafBlT9Vom3HYbmXGYnUbd5SPawu+ZEOjrnhe2PI0GD0e4dtcx QTnCVeYF/wyaSoy3CW1kwo3HjotKcjNo8FGI1M0fTHBl2xQzDs0g5TfuZQcm mbAy1Whzx7MZNP9uU3KhNAto/70aSyidQTMvLyQLrmaBSKBKnn7FDKIsDh4/ toYFYhZ0pfwPM8jsBWFKyLNAWuzLxkvdM2jjqoTG9ZtZsDHSRl5RZBY5rKE/ pWmxQD/YQ8bffRbZOAjw6NqzwMD9R7ui1yyKHqnqOuLIAkMro9ROv1lk5lNe 4OzMApOdKlIGF2bRwTtdKMydBUemJlkyybPIZMXHVak+LHDyCBKrrJlFKZ3x ct4XWRBufVVQWG4ODWrlHc++w4LGf4JpWevnkIO/ubP3PRbIDp8URUpzyD3n ePqu+ywoCzBleu6cQ1wDmrnV2SyYus76p95oDh39R/VgzWMWOH7O3BUTNIci 7GpbvV+yQFe30lW4ZQ4lfLqcGPqVBddWFnpktc6hpO47dMZ3FnQ3Z3qizjlk d+Dgr3utLAixv3rGc3gO7RhOi6n4wYLiUNOweso86hEYFuvrYYHCi46kGOV5 pJZVWtv9mwX8Kku1whHzSF3obH0ODwkjhZGX1kTPozBT6zJ5PhIadsvobL02 j2Q3tHy7w09Ckp5mufntebTC7Mj9eCES5I+FPrtVMo/28Svk2dJJ0I7muqM4 OI/y46kRd2RICB4RCtQzWEBxhd5erVtIsPO+tcPSZAFtWq93bbUaCTpzStNu 5gvo2ZCzoP02EgS4jE9Hn1hAb0L6Fnp34OdJxTm1BC6gpRDacrMGCYUG4ofs cxeQw9PWYCddEsayZTadF1pEqsK1BeYWJMwzbk8o0BdRO21onbklCVzn5Yob mYuoftQLDluRIGW2Xlv+n0VU69/pZWhNgj5F1eKj+iJKSnVp32RHwh3LveFS zovIY2vh+TxnEg4LuLcXv15EnmGhNqVnSDh2ZvTO8dpFBBPXrGP9SHDr9HQW /LiImnb4STv6kxBa5PvH9tsiUpO80iUQQMKjEyF8PL8XkfNmqUS9YBJ4XsSp HZZeQjnRUtqXL5Dw3L0kctxvCR29zEmSiSbBKvG7kNi5JfRFH5W3YS+UL0Tu uLiECrRzLyfFkKBB3xMVErOE7j5y4aLFkVBe8jpKKHsJJZ5deD+QQEIV94do he9LyGTUXtM2mQSHzSM0w44ltGO7ywJPCgnclitjPH8tIQu1z0552LoPjWOK JpaQ5CH+w/M3SXh3sDlmr8AyulTgf/18Ggmf0n/E2u1eRleLAj2M7pFw6h1b JFxrGWXoMKO7sYUnV8dl6S2jXvl8jzMZJJjonogbO7SMJMOn7G/cJ6FppC8u 2GMZbdzIY1KXRcI39fH4pFvLKHKlSe1CLgk9TdTEBs4ymnbNtvYswOutJcPi KzcbZfPYJbRil33Vlf4pyEZSOi45e5+RcL3t6r1hJhuVmgv7iReSYNBDz+dR YaPNyqsycopIyP8jV69hx0ZJ57p7U5+TkD5VFa/jxEZpwjO2M9iRM07mBh5s 1GRY9MaolASnhQc/jpxlI9P/KvcvYZPUrSPesWwkw5flbFCG36eoDn9OBRvp T789WVBOwknGr7rHNWy0pv7ix0VsK/ErsUV1bHQiqFFW5xUJauQHZtU3Nloq Ssz4hN0ve0i+Y5yN/s0NV/1eQUKz3PTgrxk8XjRfk3xNQsXaG49GlthoP++e vRbYKQptagt8HGTh/3ZXE7aRir2O+BoOonSs7yt7Q8LuLdy80us5SEOpuGYK W0Et672cEge19R/MUKwkgbpz2FRFnYPOa3IsrmMXIh+7f005aGhZq+RYFQl3 tcTXHjzCQUckjeJisKN1ivstbDjIyXLRvRzbRW/xlJMrB8WwgxTIahKkjS+e CwvjoMPUpo9vsFW2M/fLXuEgW24ZyQHsfTK5Yq8iOUiijSdKqAavj+HG3KUb HOTgeWngIHbFFblW/zwOWsmbd6EFu/lU0X2JZxy0N+CsyBT2oJmBV+FzDkqT 8H4rWksCfa0332QVB3HzF5YYYDtUvN5+qo2DVjg9z8zHPptlRl3ZxUEfPmjG v8eOih78mNvHQcuep3O7sIusRR0HJziI+iDOZeVbEt7r3FeJmOWg2xtsVsph d2xUX5Jf5qD8F5Fd27DDg5/s38JFwIqeOvIoNu104GMKLwEc5eIQD+wk+73i n/kJMFssETuH/cjgW6enMAHW4QUtN7F3at7VRXQCnn64SHmA/UbV4yFNnACx HEm7YuwvLOLsI0kCbunqF9dj2wm9/xEsQ8Amj2dPWrGHOAk6hrIE8E7G/ezF 9p20yZH6h4DpHgOtMWxO33rh4XUErOba/30G+2rrhG+pAgHGLdOZbGyxTy9a /6dIgMz10gfc70hIe30JLJUJUNQmfgliKxQaZyqo4nN2/GZzUez8bFJobisB vUtP2OLYGqk9XrXbCagrHPlJYtfEPPp6XZ2ApjyDWWls04v+e5w0sG9s0V+N 3e6ndW8bIqDzp2CjLLaTmyA/tzYB4U/2JK7BHrdpOdW8F8c/qxz/14Gm6c33 9AhAx3Tf/R3Ptc91l48BASHGQ7v+/l/0zq23tQ8QIDIR2v/3eaxNy9x0EwKq FU/X/43n3upa966DOJ9ZMpN/41VmxH1+Yobn/37s4N/5lPAc3RFqgeMv0//9 d77aC2tvGR8lYL1T7Nu/+agbHaOutiXA/tTGjr/5Mu8qcRmzI0BBM2jrLHZn 84VPL+0JGGb3Vf/Nt9tbQ7UoJ/z7m5+v/8KefiGRYu1KQGR5WmYbdujjTo6i BwEbvjydbsAWuPfAcfEUAQ9EToVXY6+6qqma4ksAxfvkiYfYk+1HfDP9CWAG o7Bb2G83exXnBxKQIZv9Kgrbu+Xeng+hBIS9Vrnljq2n8DL060UCzPP277HE lg76UtlzmYA9zGH2PuwaWX6DpUi8Xu8UDkhj3/SRi+KLJaCL3iLKi326ZneD WAIBFvdcbcfxfpD0OGWulIzfn0qbfQX2qeKmE7b3CVjwUlIyx9YRGL3vlk2A W/y+8+rYLBueQb9cAmbSUueksN9Q1T1jnhLw3KrvxE+8XyWM0oIqXhKQ1Tcm Z4k9fLu4vK6CgEAF3rJtf/f7ZAPleyUBQ9OMUFFst+QVERPvCEiT67xag+tF ea/LNbkvBPiocZXIYyfsuPBV+TsB8R7hhUt/68/Vm5K72wnYJn+z6zM2XeXT 7UP4nnjX9khtALZT0NZH4WMETHIiWl7h+kajs6v7eCgwE//+2DpcD3scmPyT /BSg8w4EjeH6WVKsYsgRooDkYObHIuwTNvaNTAYFPie+ZuzDLsp++1N/NQUC JJy3W+D6bIsSZh/soID/d3c1S1zfa8Pva17cRYHBG/vtJLFV3hdfOrqHAovC xV2tL0mgmLUzhHQocEUxuc8SO8NtncpJIwoUJ32hmOD+MZxY7LLZEcdXffqt NO4vZ0favhfEU4DX/OqPXbh/damOyUYmUoBn3XbbftzfDPwJF4ckCux51KCZ gC1FXTcjlkaB5i6RNYO4H5YzT9H9cihgoenhHZWP95MO8e/OCgqor3OOKnlM Qlzy2rKyUQoM9D55nZJDwl7Ny52fxykQmJu4XRF7rrufq3+SAmbHfyyUZuN6 tCn3gOgCBZ7o0Hy+4f6s/Eq1w5GHCoFu2zYJZuL62atJFV5NhQFWE93kLu4v Kpb6x02oUJqjvNkKnx+Kmks9/A5RIag5WrsFnzdcA6Tj/jOnAuzPfmKM3fCm 43uhNRVGZezTtJNwfTJzchdwpcKz36ffyV7H/SzIJ7ogjAofc4iccnye8a2J auYuoELfjudtFyJw//v6OEWoiApyfoqFI1dIWD/w2Y7xnAoe653nzbBb+SVG ZV9RYVOhe6X8ZRK0DqRxa3yggu7WacfXF/H6aM7b7t1DhReHGuXbQkjI6apP +slYAYeeN6be9SXh55KoTbHvCkj/FjAda4vj+dbY47qBC1S9CymLm/H58LJ7 +aFRLuBSPvxz3wy+T3yHG5oZ3LAnMt3peCkLGrapdsYd4YEht+MCGYEs4HWc D5aW5IXf62U1z6qwQFWdzcyu5wXlcxmb+PuZINjZyuN+jQ+MFY7MHklggkds o+N1M37wWBO56L+HCa9/8VS+4ReAo/2xR12GJKB6JcNX/qMA7PhtLnk6SgLK Wo/+899FQVDfP1q0XU0Cdj99pW2xXQg66G0b8lvFwdVqsdB6TgjOzIWkncf3 3f+yfdafeLQSVFeMpm4jxcH6XeVImhcNgg1GLh54KgZrYkyetCsIAyNUeUOb kRictJ3rudAuDDa7+4TlRxmgRpRte2IsAhoSqzjzYQzI/SflbPoDEdhSdXv/ tDQDAlUcHDeuFAW9KcmUK3l0EHqz++rgSVF4b7EWtLXowMpUVd7wVhQ2JxkL ZbeKQrAPI5hrIx1Exv/rq3QTBcsExn67S3RIn69YrqWIwsKONUbjP+mwo2nv omeKCExWSy5LAQPeuXhFDWwQAafMLYpvUxigomp6c0OYMDSrnRSwSWXA66jy sqBzwqBVmTU4cYsBkqbfmj4GCIN0p3S21B0GlIRt7fHyFoZGknedZxYDImgB V57bC4NmVNsqiWcMqAsvHdXVFQYJ33C6w0cGTHdrelgJCkM49dXE3CcGrNPI O5TLKwwTsfMNUQ0M2Jn5VXVphTDUPToVU9zEgNvxAY23lmhwod9CSLCVAbKu Hfc7R2kwZqXEk9/HAD9u81SHBhpYDzr/0h1gQDZt9+SzOhq8879b1TbIAC87 ay3udzTIuMa8yI3zXk71rbz/mgZWnyiE5SQDgtK/HuvLp8Fba42O0SkG7qfn vbY/psG2Yb/yCzMMKHK4F3g5lwYifCPBD+cZoMwb6iOfQYNz1+WttRYZIB+q b+93mwZDa4/v/rLEgIKZhwY1qTSwKLgp6c5mQLBp4QaJZBpUa32Z53AYoOvr Sjgl0uD/SlJbgA== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 5.}, {-0.007859476572377733, 7.569852892288761}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6246524199942646`*^9, {3.624652736777133*^9, 3.624652766169264*^9}, 3.624687614847172*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", " ", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"x0", ",", RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], "/", "\[Sigma]"}]}], "}"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.624652789202612*^9, 3.624652837095704*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0.5, -0.1641242996543928}, {1., 0.06649308485816974}, { 1.5, -0.1809621097665648}, {2., 2.248595421528499}, { 2.5, -1.2444189764166662`}, {3., -0.9993612277666344}, { 3.5, -0.4390933731722999}, {4., -0.33138649886900673`}, {4.5, 0.30395808281002523`}, {5., 0.7402998964487981}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 5.}, {-1.2444189764166662`, 2.248595421528499}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6246527994687653`*^9, 3.62465283823638*^9}, 3.624687614862796*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", " ", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"x0", ",", RowBox[{"fit", "[", "\"\\"", "]"}]}], "}"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.6246529380540257`*^9, 3.6246529520703716`*^9}, { 3.624653002761431*^9, 3.6246530084023457`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0.5, -0.4796507839396199}, {1., 0.07071015094417375}, { 1.5, -0.19148556929987248`}, {2., 2.3130480369247426`}, { 2.5, -1.236227744687418}, {3., -0.9715727717391847}, { 3.5, -0.42680234770116415`}, {4., -0.33040865200238273`}, {4.5, 0.32068182016367597`}, {5., 0.8623085107924161}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 5.}, {-1.236227744687418, 2.3130480369247426`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.624652942679237*^9, 3.6246529525078683`*^9}, 3.624653009074256*^9, 3.6246535721789722`*^9, 3.6246876148940463`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", " ", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"fit", "/@", "x0"}], ",", RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], "/", "\[Sigma]"}]}], "}"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.6246528556435275`*^9, 3.6246528699099035`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0.07420267325481866, -0.1641242996543928}, { 4.8160841148990885`, 0.06649308485816974}, { 6.147081217711621, -0.1809621097665648}, {6.445555181524512, 2.248595421528499}, {6.307860002727114, -1.2444189764166662`}, { 5.955908928095549, -0.9993612277666344}, { 5.490338018335528, -0.4390933731722999}, { 4.962615873131088, -0.33138649886900673`}, {4.401254584078201, 0.30395808281002523`}, {3.822948351796212, 0.7402998964487981}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 6.445555181524512}, {-1.2444189764166662`, 2.248595421528499}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6246528599718695`*^9, 3.6246528706755424`*^9}, 3.6246876149096704`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6246528919266367`*^9, 3.624652901770897*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"1", "6.150736079120217`", "0.21784069150810012`", "28.23501907076672`", "1.7965760236420335`*^-8"}, { RowBox[{"Log", "[", RowBox[{"0.36363636363636365`", " ", "x"}], "]"}], RowBox[{"-", "1.9572666460916188`"}], "0.443795114927578`", RowBox[{"-", "4.410293354425546`"}], "0.0031177088082892214`"}, { SuperscriptBox[ RowBox[{"Log", "[", RowBox[{"0.36363636363636365`", " ", "x"}], "]"}], "2"], RowBox[{"-", "3.239037205362129`"}], "0.36548985833932945`", RowBox[{"-", "8.862180800526973`"}], "0.00004715560345971408`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.62465290223969*^9, 3.624653586429701*^9, 3.624687614925296*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["construindo a matrix H", "Section", CellChangeTimes->{{3.624653044951107*^9, 3.6246530503420143`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"xp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"x0", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "xc"}], "]"}], "^", "\[Nu]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "x0", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.62465306031126*^9, 3.6246531636148233`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "1.7047480922384253`"}], ",", "2.9061660579905504`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "1.0116009116784799`"}], ",", "1.0233364045087316`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "0.6061358035703156`"}], ",", "0.36740061236983224`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "0.3184537311185346`"}], ",", "0.10141277886331593`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "0.09531017980432477`"}], ",", "0.009084030374332717`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.`", ",", "0.08701137698962969`", ",", "0.007570979725631458`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.`", ",", "0.24116205681688804`", ",", "0.058159137648151935`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.3746934494414107`", ",", "0.140395181054303`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.49247648509779424`", ",", "0.24253308837427795`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.5978370007556205`", ",", "0.3574090794724758`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.624653165489911*^9, 3.6246876149409227`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"xp", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.6246531765998535`*^9, 3.624653181912656*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.`", RowBox[{"-", "1.7047480922384253`"}], "2.9061660579905504`"}, {"1.`", RowBox[{"-", "1.0116009116784799`"}], "1.0233364045087316`"}, {"1.`", RowBox[{"-", "0.6061358035703156`"}], "0.36740061236983224`"}, {"1.`", RowBox[{"-", "0.3184537311185346`"}], "0.10141277886331593`"}, {"1.`", RowBox[{"-", "0.09531017980432477`"}], "0.009084030374332717`"}, {"1.`", "0.08701137698962969`", "0.007570979725631458`"}, {"1.`", "0.24116205681688804`", "0.058159137648151935`"}, {"1.`", "0.3746934494414107`", "0.140395181054303`"}, {"1.`", "0.49247648509779424`", "0.24253308837427795`"}, {"1.`", "0.5978370007556205`", "0.3574090794724758`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.6246531858659563`*^9, 3.624687614956546*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "=", RowBox[{"xp", ".", RowBox[{"Inverse", "[", " ", RowBox[{ RowBox[{"Transpose", "[", "xp", "]"}], ".", "xp"}], "]"}], " ", ".", " ", RowBox[{"Transpose", "[", "xp", "]"}]}]}]], "Input", CellChangeTimes->{{3.6246532018042717`*^9, 3.6246532749486756`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.9048173203527645`", ",", "0.23560048296355313`", ",", "0.013563002869788177`", ",", RowBox[{"-", "0.06812977927462499`"}], ",", RowBox[{"-", "0.08813979183391536`"}], ",", RowBox[{"-", "0.07637131838803085`"}], ",", RowBox[{"-", "0.04669311903045035`"}], ",", RowBox[{"-", "0.006373466361769914`"}], ",", "0.04044975077846697`", ",", "0.09127691792421866`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.23560048296355324`", ",", "0.28112743782445065`", ",", "0.24687937970337012`", ",", "0.1953271254744307`", ",", "0.13976139806143403`", ",", "0.08425754071277637`", ",", "0.030240964167734873`", ",", RowBox[{"-", "0.021800454086506757`"}], ",", RowBox[{"-", "0.071749756381765`"}], ",", RowBox[{"-", "0.11964411843947767`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.013563002869787955`", ",", "0.24687937970336998`", ",", "0.2739514310564466`", ",", "0.2441820978158785`", ",", "0.1930940970607406`", ",", "0.13319500915912652`", ",", "0.06981159547981877`", ",", "0.005471157207313587`", ",", RowBox[{"-", "0.05855149928518713`"}], ",", RowBox[{"-", "0.1215962710672956`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.06812977927462494`"}], ",", "0.19532712547443068`", ",", "0.24418209781587857`", ",", "0.23172657263592128`", ",", "0.1951306337994137`", ",", "0.14776144677955927`", ",", "0.09545534780199164`", ",", "0.04106856220984681`", ",", RowBox[{"-", "0.013898455864623266`"}], ",", RowBox[{"-", "0.06862355137779368`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.08813979183391529`"}], ",", "0.13976139806143398`", ",", "0.19309409706074063`", ",", "0.1951306337994137`", ",", "0.176243697417252`", ",", "0.14753860944051755`", ",", "0.1139559384643312`", ",", "0.07796791538002379`", ",", "0.0409094065214161`", ",", "0.003538095688786297`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07637131838803085`"}], ",", "0.08425754071277636`", ",", "0.13319500915912655`", ",", "0.14776144677955927`", ",", "0.14753860944051755`", ",", "0.1398844598167018`", ",", "0.12817039434945937`", ",", "0.11414039981231794`", ",", "0.09877314694056359`", ",", "0.08265031137700823`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0466931190304504`"}], ",", "0.030240964167734856`", ",", "0.06981159547981877`", ",", "0.09545534780199168`", ",", "0.11395593846433122`", ",", "0.1281703943494594`", ",", "0.1395559440242909`", ",", "0.1489500318723201`", ",", "0.15687518088911137`", ",", "0.1636777219813919`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.006373466361769886`"}], ",", RowBox[{"-", "0.02180045408650673`"}], ",", "0.005471157207313615`", ",", "0.04106856220984687`", ",", "0.07796791538002384`", ",", "0.11414039981231797`", ",", "0.1489500318723201`", ",", "0.18223358252729088`", ",", "0.21400365232989238`", ",", "0.24433861910927077`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.04044975077846691`", ",", RowBox[{"-", "0.07174975638176503`"}], ",", RowBox[{"-", "0.0585514992851871`"}], ",", RowBox[{"-", "0.013898455864623203`"}], ",", "0.04090940652141615`", ",", "0.09877314694056362`", ",", "0.1568751808891114`", ",", "0.21400365232989238`", ",", "0.26963292680655854`", ",", "0.32355564726556596`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.09127691792421877`", ",", RowBox[{"-", "0.11964411843947759`"}], ",", RowBox[{"-", "0.12159627106729556`"}], ",", RowBox[{"-", "0.06862355137779357`"}], ",", "0.0035380956887863576`", ",", "0.08265031137700828`", ",", "0.1636777219813919`", ",", "0.2443386191092708`", ",", "0.3235556472655659`", ",", "0.40082662753832443`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.624653237259219*^9, 3.624653275339295*^9, 3.624687614956546*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["verificando como foi obtido o resultado do programa", "Section", CellChangeTimes->{{3.624687550876252*^9, 3.624687588003913*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hats2", "=", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], "^", "2"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "x0", "]"}], "-", "3"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.624653866576432*^9, 3.6246539220324154`*^9}}], Cell[BoxData["0.30752295279194164`"], "Output", CellChangeTimes->{3.6246539233137226`*^9, 3.6246876149721704`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vres", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"IdentityMatrix", "[", RowBox[{"Length", "[", "x0", "]"}], "]"}], " ", "-", " ", "h"}], " ", ")"}], " ", "hats2"}]}]], "Input", CellChangeTimes->{{3.6246540525506144`*^9, 3.6246540897869096`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0292708586997673`", ",", RowBox[{"-", "0.0724525562001594`"}], ",", RowBox[{"-", "0.004170934691242838`"}], ",", "0.020951470895595906`", ",", "0.02710500904323272`", ",", "0.023485933339300755`", ",", "0.014359205839309695`", ",", "0.0019599871950915972`", ",", RowBox[{"-", "0.012439226799092302`"}], ",", RowBox[{"-", "0.028069747321803427`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07245255620015943`"}], ",", "0.2210698130013336`", ",", RowBox[{"-", "0.07592107582982333`"}], ",", RowBox[{"-", "0.060067574386259016`"}], ",", RowBox[{"-", "0.04297983781818214`"}], ",", RowBox[{"-", "0.02591112771498023`"}], ",", RowBox[{"-", "0.00929979059613713`"}], ",", "0.006704140012887709`", ",", "0.022064696944622833`", ",", "0.036793312586696963`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.00417093469124277`"}], ",", RowBox[{"-", "0.07592107582982328`"}], ",", "0.22327659979188516`", ",", RowBox[{"-", "0.07509159973926968`"}], ",", RowBox[{"-", "0.05938086689481273`"}], ",", RowBox[{"-", "0.0409605225137643`"}], ",", RowBox[{"-", "0.021468667981070434`"}], ",", RowBox[{"-", "0.0016825064195819875`"}], ",", "0.018005929950576007`", ",", "0.037393644327104084`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.02095147089559589`", ",", RowBox[{"-", "0.06006757438625901`"}], ",", RowBox[{"-", "0.0750915997392697`"}], ",", "0.2362617129345868`", ",", RowBox[{"-", "0.06000714868615875`"}], ",", RowBox[{"-", "0.045440036422459404`"}], ",", RowBox[{"-", "0.029354710415850242`"}], ",", RowBox[{"-", "0.012629525517691639`"}], ",", "0.004274094186737425`", ",", "0.021103317150768627`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.027105009043232695`", ",", RowBox[{"-", "0.042979837818182126`"}], ",", RowBox[{"-", "0.059380866894812735`"}], ",", RowBox[{"-", "0.06000714868615875`"}], ",", "0.2533239705512188`", ",", RowBox[{"-", "0.045371508825964996`"}], ",", RowBox[{"-", "0.03504406668472793`"}], ",", RowBox[{"-", "0.023976923560697156`"}], ",", RowBox[{"-", "0.012580581490431793`"}], ",", RowBox[{"-", "0.0010880456334760005`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.023485933339300755`", ",", RowBox[{"-", "0.025911127714980223`"}], ",", RowBox[{"-", "0.04096052251376431`"}], ",", RowBox[{"-", "0.045440036422459404`"}], ",", RowBox[{"-", "0.045371508825964996`"}], ",", "0.26450527065940377`", ",", RowBox[{"-", "0.039415338130853336`"}], ",", RowBox[{"-", "0.0351007927831368`"}], ",", RowBox[{"-", "0.03037500980371445`"}], ",", RowBox[{"-", "0.02541686780383098`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.01435920583930971`", ",", RowBox[{"-", "0.009299790596137125`"}], ",", RowBox[{"-", "0.021468667981070434`"}], ",", RowBox[{"-", "0.029354710415850256`"}], ",", RowBox[{"-", "0.03504406668472793`"}], ",", RowBox[{"-", "0.03941533813085334`"}], ",", "0.2646062968059248`", ",", RowBox[{"-", "0.04580555361982969`"}], ",", RowBox[{"-", "0.048242718846789504`"}], ",", RowBox[{"-", "0.05033465636997613`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0019599871950915886`", ",", "0.0067041400128877`", ",", RowBox[{"-", "0.0016825064195819962`"}], ",", RowBox[{"-", "0.012629525517691658`"}], ",", RowBox[{"-", "0.023976923560697173`"}], ",", RowBox[{"-", "0.035100792783136804`"}], ",", RowBox[{"-", "0.04580555361982969`"}], ",", "0.25148194339529517`", ",", RowBox[{"-", "0.06581103507274859`"}], ",", RowBox[{"-", "0.07513973362958848`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.012439226799092283`"}], ",", "0.022064696944622843`", ",", "0.018005929950575997`", ",", "0.004274094186737406`", ",", RowBox[{"-", "0.012580581490431808`"}], ",", RowBox[{"-", "0.03037500980371446`"}], ",", RowBox[{"-", "0.04824271884678951`"}], ",", RowBox[{"-", "0.06581103507274859`"}], ",", "0.2246046389704553`", ",", RowBox[{"-", "0.09950078803961476`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.02806974732180346`"}], ",", "0.03679331258669694`", ",", "0.03739364432710407`", ",", "0.021103317150768592`", ",", RowBox[{"-", "0.0010880456334760192`"}], ",", RowBox[{"-", "0.025416867803830994`"}], ",", RowBox[{"-", "0.05033465636997613`"}], ",", RowBox[{"-", "0.07513973362958849`"}], ",", RowBox[{"-", "0.09950078803961475`"}], ",", "0.18425956473372032`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.624654077161253*^9, 3.6246540902400503`*^9}, 3.6246876149721704`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], "/", RowBox[{"Sqrt", "[", " ", RowBox[{"Diagonal", "[", "vres", "]"}], " ", "]"}]}]], "Input", CellChangeTimes->{{3.6246533070909247`*^9, 3.6246533217796583`*^9}, { 3.6246534096591825`*^9, 3.6246534311446457`*^9}, {3.6246536477610025`*^9, 3.624653649604843*^9}, {3.6246541019125338`*^9, 3.624654103303223*^9}, { 3.6246876010361*^9, 3.624687601536135*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4796507839396194`"}], ",", "0.07071015094417377`", ",", RowBox[{"-", "0.19148556929987257`"}], ",", "2.3130480369247426`", ",", RowBox[{"-", "1.236227744687418`"}], ",", RowBox[{"-", "0.9715727717391849`"}], ",", RowBox[{"-", "0.42680234770116415`"}], ",", RowBox[{"-", "0.33040865200238273`"}], ",", "0.32068182016367597`", ",", "0.8623085107924161`"}], "}"}]], "Output", CellChangeTimes->{{3.624653317825851*^9, 3.6246533226703167`*^9}, { 3.62465342520683*^9, 3.6246534319728*^9}, 3.6246536502611036`*^9, 3.624654103975131*^9, 3.6246876149878016`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.624653436144889*^9, 3.624653474631263*^9}, { 3.6246536538238106`*^9, 3.6246536569958506`*^9}, {3.6246876049113803`*^9, 3.6246876058177032`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4796507839396199`"}], ",", "0.07071015094417375`", ",", RowBox[{"-", "0.19148556929987248`"}], ",", "2.3130480369247426`", ",", RowBox[{"-", "1.236227744687418`"}], ",", RowBox[{"-", "0.9715727717391847`"}], ",", RowBox[{"-", "0.42680234770116415`"}], ",", RowBox[{"-", "0.33040865200238273`"}], ",", "0.32068182016367597`", ",", "0.8623085107924161`"}], "}"}]], "Output", CellChangeTimes->{{3.6246534459578934`*^9, 3.6246534752562714`*^9}, 3.624653657620856*^9, 3.6246876149878016`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vparm", "=", RowBox[{ RowBox[{"Inverse", "[", " ", RowBox[{ RowBox[{"Transpose", "[", "xp", "]"}], ".", "xp"}], "]"}], "hats2"}]}]], "Input", CellChangeTimes->{{3.6246542181877546`*^9, 3.6246542483156443`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.047454566876727285`", ",", RowBox[{"-", "0.03131602506201947`"}], ",", RowBox[{"-", "0.04370831881834288`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.031316025062019456`"}], ",", "0.1969541040335825`", ",", "0.1334726947860094`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.043708318818342876`"}], ",", "0.1334726947860094`", ",", "0.13358283654890313`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.624654235924382*^9, 3.6246542490344343`*^9}, 3.624687615003425*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.624654252206468*^9, 3.624654265707183*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.04745456687672724`", ",", RowBox[{"-", "0.03131602506201936`"}], ",", RowBox[{"-", "0.04370831881834281`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.031316025062019366`"}], ",", "0.19695410403358216`", ",", "0.13347269478600926`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.04370831881834281`"}], ",", "0.13347269478600926`", ",", "0.13358283654890313`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6246542660353026`*^9, 3.624687615003425*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1366, 685}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, Magnification:>1.3 Inherited, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (September 9, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 164, 2, 131, "Title"], Cell[CellGroupData[{ Cell[769, 28, 137, 1, 91, "Section"], Cell[909, 31, 487, 15, 39, "Input"], Cell[CellGroupData[{ Cell[1421, 50, 252, 6, 39, "Input"], Cell[1676, 58, 251, 5, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1964, 68, 150, 3, 39, "Input"], Cell[2117, 73, 128, 2, 39, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2294, 81, 114, 1, 91, "Section"], Cell[CellGroupData[{ Cell[2433, 86, 615, 17, 39, "Input"], Cell[3051, 105, 536, 9, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3624, 119, 798, 23, 39, "Input"], Cell[4425, 144, 980, 25, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5442, 174, 127, 2, 39, "Input"], Cell[5572, 178, 1235, 30, 321, "Output"] }, Open ]], Cell[6822, 211, 144, 2, 39, "Input"], Cell[CellGroupData[{ Cell[6991, 217, 422, 12, 39, "Input"], Cell[7416, 231, 1138, 26, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8591, 262, 217, 4, 39, "Input"], Cell[8811, 268, 4507, 100, 321, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13367, 374, 141, 1, 91, "Section"], Cell[CellGroupData[{ Cell[13533, 379, 415, 12, 39, "Input"], Cell[13951, 393, 1940, 42, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15928, 440, 373, 10, 39, "Input"], Cell[16304, 452, 11580, 218, 321, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27921, 675, 314, 8, 39, "Input"], Cell[28238, 685, 1225, 30, 296, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29500, 720, 343, 8, 39, "Input"], Cell[29846, 730, 1278, 30, 303, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31161, 765, 347, 9, 39, "Input"], Cell[31511, 776, 1427, 35, 296, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32975, 816, 145, 2, 39, "Input"], Cell[33123, 820, 1310, 30, 118, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34482, 856, 109, 1, 91, "Section"], Cell[CellGroupData[{ Cell[34616, 861, 495, 15, 39, "Input"], Cell[35114, 878, 1364, 40, 90, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36515, 923, 128, 2, 39, "Input"], Cell[36646, 927, 1339, 31, 242, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38022, 963, 307, 7, 39, "Input"], Cell[38332, 972, 4137, 84, 265, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42518, 1062, 136, 1, 91, "Section"], Cell[CellGroupData[{ Cell[42679, 1067, 344, 10, 39, "Input"], Cell[43026, 1079, 115, 1, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43178, 1085, 310, 8, 39, "Input"], Cell[43491, 1095, 4916, 98, 265, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48444, 1198, 447, 8, 39, "Input"], Cell[48894, 1208, 644, 12, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49575, 1225, 256, 4, 39, "Input"], Cell[49834, 1231, 575, 11, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50446, 1247, 255, 7, 39, "Input"], Cell[50704, 1256, 621, 16, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51362, 1277, 145, 2, 39, "Input"], Cell[51510, 1281, 594, 15, 39, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)