(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 80790, 2049] NotebookOptionsPosition[ 77528, 1933] NotebookOutlinePosition[ 77985, 1950] CellTagsIndexPosition[ 77942, 1947] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Propaga\[CCedilla]\[ATilde]o de incertezas", \ "Title"]], "Subtitle", CellChangeTimes->{{3.586540699121662*^9, 3.58654070313762*^9}}], Cell[TextData[{ "Vamos propagar o desvio padr\[ATilde]o de uma fun\[CCedilla]\[ATilde]o \ suave, z[x, y] := 11 x +2 ", Cell[BoxData[ FormBox[ SuperscriptBox["y", "2"], TraditionalForm]]], "\nVamos escolher valores para as m\[EAcute]dias e desvios padr\[OTilde]es \ de x e y" }], "Text", CellChangeTimes->{{3.554917963794841*^9, 3.5549179907068405`*^9}, { 3.618601466408235*^9, 3.6186015530989227`*^9}, {3.618642180878436*^9, 3.6186421838630285`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"x0", "=", "4.0"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]x0", "=", RowBox[{"Round", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"Sqrt", "[", "2", "]"}]}], ",", "0.001"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"y0", "=", "2.0"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]y0", "=", "1"}]}], "Input", CellChangeTimes->{{3.5865396764431553`*^9, 3.5865397233376703`*^9}, { 3.5865401641242*^9, 3.586540175875174*^9}, {3.6186418305031824`*^9, 3.618641835253517*^9}, 3.6186421904416075`*^9}], Cell[BoxData["4.`"], "Output", CellChangeTimes->{ 3.5865397250096817`*^9, 3.5865401765002236`*^9, 3.5865424343748426`*^9, 3.5866767613927402`*^9, 3.61860158718906*^9, 3.618641854848648*^9, { 3.618642271613395*^9, 3.6186423562510843`*^9}}], Cell[BoxData["0.707`"], "Output", CellChangeTimes->{ 3.5865397250096817`*^9, 3.5865401765002236`*^9, 3.5865424343748426`*^9, 3.5866767613927402`*^9, 3.61860158718906*^9, 3.618641854848648*^9, { 3.618642271613395*^9, 3.6186423562667007`*^9}}], Cell[BoxData["2.`"], "Output", CellChangeTimes->{ 3.5865397250096817`*^9, 3.5865401765002236`*^9, 3.5865424343748426`*^9, 3.5866767613927402`*^9, 3.61860158718906*^9, 3.618641854848648*^9, { 3.618642271613395*^9, 3.6186423562667007`*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.5865397250096817`*^9, 3.5865401765002236`*^9, 3.5865424343748426`*^9, 3.5866767613927402`*^9, 3.61860158718906*^9, 3.618641854848648*^9, { 3.618642271613395*^9, 3.6186423562667007`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["x e y distribu\[IAcute]dos estatisticamente \ independentes", "Section"]], "Subsubsection", CellChangeTimes->{{3.586540725717616*^9, 3.5865407504227886`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"x0", ",", "\[Sigma]x0"}], "]"}], "]"}], ",", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"y0", ",", "\[Sigma]y0"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", "100", "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5549180080198407`*^9, 3.554918117043841*^9}, { 3.5549181484338408`*^9, 3.554918203110841*^9}, {3.586539224624465*^9, 3.586539251642329*^9}, {3.586539733541641*^9, 3.586539757215475*^9}, { 3.618601623847891*^9, 3.618601644471197*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.2364102214660795`", ",", "3.140307802423525`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.408295705942257`", ",", "1.302058611327272`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5292876710599494`", ",", "2.489392727764872`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.165636582353218`", ",", "1.144470017739866`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.9297873177094496`", ",", "1.3151842426363936`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.2456426799409552`", ",", "1.7377163584323532`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.757768824964886`", ",", "1.474721537957859`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.267056699698083`", ",", "1.8183655205848535`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.449744850427227`", ",", "2.956341406972677`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.066296087230687`", ",", "2.3114610992304514`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6794423074251257`", ",", "0.9009875999957087`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.66110455373884`", ",", "0.8353718732861855`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.2546274349294775`", ",", "1.1592432683307181`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.030215736334705`", ",", "1.8245131297744868`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5095549695788995`", ",", "2.5026472167620333`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.1153163628558707`", ",", "0.3862021602232477`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.347288281282151`", ",", "1.4239960518784587`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.693578939455597`", ",", "1.8817075753875676`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.10973322323849`", ",", "1.3684694263588324`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.327382652419021`", ",", "2.332134143070058`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.409760700121588`", ",", "2.359589785552701`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.8420123522674365`", ",", "0.7883852374213736`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.950946366579627`", ",", "0.6709051247525337`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.863658688604636`", ",", "2.170629442530836`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.943919224885772`", ",", "2.477570181533074`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.030598348506798`", ",", "2.6491804266602976`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.099265810816414`", ",", "3.0528995837011905`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.570999331718942`", ",", "0.9247547354962906`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.2298292623494342`", ",", "1.2463749697871604`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.0588306406376065`", ",", "2.3089024465069525`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.239548763612983`", ",", "1.4435689698499932`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.039032030448173`", ",", "2.8846527846158594`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.410653625025286`", ",", "3.3989037747743938`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1882859137513533`", ",", "2.7203196829685545`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.132858512661195`", ",", "1.7255069424444585`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5397688079834206`", ",", "1.1299410628614446`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.030730516878757`", ",", "1.9983866757453994`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.770190711548665`", ",", "0.38981758486308715`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.0930374161619762`", ",", "2.6908543772075495`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.59118514972265`", ",", "1.5363608670385924`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.352836841094103`", ",", "2.462819136033786`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.8817375078461875`", ",", "3.693461913815942`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.07978195319534`", ",", "2.0894468844453473`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6335825616913504`", ",", "0.1394028151448783`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.69912382409518`", ",", "3.9977772213169485`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.730240783519218`", ",", "1.6216267245673164`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.095502268128688`", ",", "4.228926288230315`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.471268235651898`", ",", "1.4307618993022317`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.06460998076588`", ",", "1.0151772378181994`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.172617188965566`", ",", "1.9733528026768121`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.333191161173695`", ",", "3.0449533804978324`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.9748674583721932`", ",", "2.369871435089891`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.353490285785392`", ",", "1.9976767965986024`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.9216342408247327`", ",", "2.2822459260808543`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5277029488012683`", ",", "3.3715806206878955`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6285268257353622`", ",", "1.808176092544186`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.737891526131862`", ",", "1.5426050664162057`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.577498339887584`", ",", "2.4005343589723678`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.772292388461301`", ",", "2.170350685825439`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.344611814205443`", ",", "2.839338202760925`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.068641247889104`", ",", "0.38372216988657737`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.533312925912203`", ",", "1.8853389825993678`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.388749685239153`", ",", "1.4472097633551453`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.001624476010459`", ",", "2.3597646342486476`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.114051827322173`", ",", "1.436826505532919`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.724050586518852`", ",", "2.74436514610883`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.3574508059538966`", ",", "1.4235820462534934`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7991717943559404`", ",", "2.0434139605332744`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5629799956516726`", ",", "1.8619260844895362`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.124097780708529`", ",", "1.385381578883981`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.898344933957672`", ",", "3.565973368941212`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.8928389587253993`", ",", "1.8628270129716866`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6737027567742384`", ",", "2.034289711228869`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.7878892764468186`", ",", "1.261380278421152`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1017052835049634`", ",", "1.9150509651381666`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.965137402286639`", ",", "0.5411416092939587`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.374519693750959`", ",", "1.2757054565789556`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4869059940541223`", ",", "2.598585784275792`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.769684987885588`", ",", "0.9903503617219085`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.9782219802069245`", ",", "2.58193763578573`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.8130424818467343`", ",", "2.642460967016327`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7864975192281287`", ",", "2.037271378292815`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.302672163467804`", ",", "2.3680317869807643`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7021263875158654`", ",", "1.1635790729167728`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.614617319498339`", ",", "1.450736031586973`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.227519765232796`", ",", "3.5881239411908874`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.481601447587654`", ",", "1.8586919367167742`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5127410268238903`", ",", "0.06852806007535817`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.20646221285066`", ",", "0.701697298418271`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.468013372203925`", ",", "2.1743442925033074`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.816532102224864`", ",", "2.0788635112006077`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.7639433472435577`", ",", "2.7007086487153913`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.3733614540530756`", ",", "1.5985806868204446`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.44168401748508`", ",", "1.2246783616903594`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.933254707580105`", ",", "1.5957393089372052`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7233977494543162`", ",", "1.7971533191299205`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1184452415968247`", ",", "1.8995670927328376`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.234193494503414`", ",", "2.243356822874896`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.404995896426078`", ",", "2.3666495974133945`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.75336582917839`", ",", "2.304106297673281`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.618601645174364*^9, 3.618641854926778*^9, {3.6186422716915245`*^9, 3.6186423563448343`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"v", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"Histogram", "[", RowBox[{"v", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.5549181827168407`*^9, 3.554918188294841*^9}, { 3.618601661456758*^9, 3.6186017092995615`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.644], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.644], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {2.5, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.213084710192433`, 51.98651336178915}, {-28.952964479189568`, -20.91924761923451}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0}, {3., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{51.33651332602636, 75.10994197762307}, {-40.028539715477976`, -20.91924761923451}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {3.5, 14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{74.45994194186028, 98.23337059345701}, {-73.25526542434321, -20.91924761923451}}], StatusArea[#, 14]& , TagBoxNote->"14"], StyleBox["14", {}, StripOnInput -> False]], Annotation[#, Style[14, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0}, {4., 30}, "RoundingRadius" -> 0]}, ImageSizeCache->{{97.58337055769422, 121.35679920929093`}, {-132.3250000178814, -20.91924761923451}}], StatusArea[#, 30]& , TagBoxNote->"30"], StyleBox["30", {}, StripOnInput -> False]], Annotation[#, Style[30, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {4.5, 29}, "RoundingRadius" -> 0]}, ImageSizeCache->{{120.70679917352814`, 144.4802278251248}, {-128.63314160578523`, -20.91924761923451}}], StatusArea[#, 29]& , TagBoxNote->"29"], StyleBox["29", {}, StripOnInput -> False]], Annotation[#, Style[29, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.5, 0}, {5., 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{143.83022778936203`, 167.6036564409588}, {-58.48783177595866, -20.91924761923451}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {5.5, 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{166.953656405196, 190.7270850567927}, {-51.10411495176639, -20.91924761923451}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.5, 0}, {6., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{190.07708502102992`, 213.85051367262662`}, {-28.952964479189568`, \ -20.91924761923451}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.92, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{2., 6.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.637], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.637], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.5, 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{26.97630849503247, 48.42621291524799}, {-45.93445388042385, -20.919247619234525`}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0}, {1., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{47.7762128794852, 69.22611729970072}, {-60.55357761567978, -20.919247619234525`}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {1.5, 21}, "RoundingRadius" -> 0]}, ImageSizeCache->{{68.57611726393793, 90.02602168415342}, {-123.90311380178879`, \ -20.919247619234525`}}], StatusArea[#, 21]& , TagBoxNote->"21"], StyleBox["21", {}, StripOnInput -> False]], Annotation[#, Style[21, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0}, {2., 21}, "RoundingRadius" -> 0]}, ImageSizeCache->{{89.37602164839063, 110.82592606860612`}, {-123.90311380178879`, \ -20.919247619234525`}}], StatusArea[#, 21]& , TagBoxNote->"21"], StyleBox["21", {}, StripOnInput -> False]], Annotation[#, Style[21, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {2.5, 23}, "RoundingRadius" -> 0]}, ImageSizeCache->{{110.17592603284334`, 131.62583045305888`}, {-133.6491962919594, \ -20.919247619234525`}}], StatusArea[#, 23]& , TagBoxNote->"23"], StyleBox["23", {}, StripOnInput -> False]], Annotation[#, Style[23, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0}, {3., 12}, "RoundingRadius" -> 0]}, ImageSizeCache->{{130.9758304172961, 152.42573483751158`}, {-80.04574259602101, \ -20.919247619234525`}}], StatusArea[#, 12]& , TagBoxNote->"12"], StyleBox["12", {}, StripOnInput -> False]], Annotation[#, Style[12, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {3.5, 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{151.7757348017488, 173.22563922196434`}, {-45.93445388042385, \ -20.919247619234525`}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0}, {4., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{172.57563918620156`, 194.02554360641705`}, {-41.06141263533854, \ -20.919247619234525`}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {4.5, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{193.37554357065426`, 214.82544799086975`}, {-26.442288900082616`, \ -20.919247619234525`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.09, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 4.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.5549181897588406`*^9, 3.554918208514841*^9}, 3.5865391829960117`*^9, {3.586539255705164*^9, 3.586539261971307*^9}, 3.5865397613408165`*^9, 3.5865401829226313`*^9, 3.5865424348123784`*^9, 3.5866767618459024`*^9, {3.618601666519614*^9, 3.618601709940229*^9}, 3.6186418560987372`*^9, {3.618642271769656*^9, 3.618642356422966*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "v", "]"}]], "Input", CellChangeTimes->{{3.618602763895717*^9, 3.6186027680366373`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVVHs81PkCHTNhhnn8ZrCIcmX1UFdJbLTme1aXfGyelfh4VR57M62kSJaV N5tVsYUtWb2wKFyf9EARfRK2VrGulOesFCbjMeM1rvvH+Zx/zh/nc875HMMj x92D6DQaLXAF/+dQnXa1zcMsfLCNrPIyYEE7mmanc10LrgzB0V2d08RYtXTL wi42JsyVa+0/MvB0tP/61RIK7QbarY9dpOTSYecDO8J4ePGduFChNkP0W4IT NGQssHgapXfbF0jgTtbqUR4XU82JVyNyZWR1Sp3LaT4fOocqT6joLJGIJNrH 9DY+pFSX++XbqmhmrjYY2k3Bwk/XrS+WDs6el+FxxzmoL06QDr0ZIwLTyzny mwI0BUW1+j76SP6ObdeLZqmhJ8Sr1DZDShxT6/o+r6UQQ8nLd5gtEb9u58yL Gmy0eopGRMqrMGFvtWgyRsNYyNTu9JpuYneB9VNBAB/VX6VqVTyfJe3kxJqT GcpgtXO/O6OnIDaHpkd8wyh05MRsh3iGnCwVB9m48JElE0gtiulw6NRxyb3B x5Eg1ath/XScS3svD6vlokkmKj9pPUoyu44MNrVrI3hpmwo3Skx+rp4abP7A xcOv9eThvkp41zbUmPVMA3c6H7hSHQzUbv3T83chE8Vl4/HJZspQs2uT3Aqi 8OSxJN/jGBMWWnHsagcBPgzuFObkjBPBDdGDii4WdAt8BtZPThEbk0hd4dcU WizPdRdG0eHNC7bbO0OBKap49lZHRoa1rBjyDZoIG/uzq0lDFaXv7Y4k3OQj +puDkdPb1OHRn6l+NZ6F52sdZJZPV3I4+5bHTqOwb+24SfmVBRKXxHEJd2Oj wjtS00ZTStQkGh2nDSjoii46B84tk9/sQx97beLi34Z5p5ql3aSgMT/4p3om TG2Git+nKGN748sb/r4CmJ0fM5T8Iif9jpd4zke1YPB6NKnnPwyMdSsC2zg8 hAylNFpkcPDGiPhUuWlC5n9lfGsNDTM2E4+y+RwA9KypvxrIj/6Fa0ZaBdCl VRWEL/CQced7m6ZPAmw5bPfOVDpHxFYPPFsPa2Jf9pdFoo8U5AKJ0S+DfPT0 vLscPDxL+tOPrt1kqwl9k4YYE+Fnctkj4nxjhSa+ijoe0JO1TEqs3altB/i4 VZKbRPkwsdfY1yW1jQfElG6Im6Ej70qi99yK/9yRzskfZpdJ8MP/Nsf78xCW JVmvZkvHsc5u99qdbCSdKrddlqvBNz1dYKXKQYzpBMdxYpEM9hiXmY9wkHMs 9HbCHTmZFP78wNtFgOC7t7y/3cFA+z8eFRb9k4sfmxkd/T5KiHLx/zRwiI95 wzzp7D0VLN/3eJ6dwURF6K+hI5ndpCTf+qLVv9jgWSZYeJkoSFlEYutGfXXI FU+ONW+QEc/q6Mp9DCbq/+rY07ayV/eci7QXpyhY39jxwmZplqgrPJK+Fwtw P/PevYhpZVQpsTfzetUw4FQnW3o2S2o3JJtWB3Kx/oSxaNSTBj/6eNHCWTak 1qlKJ18sEXHuF7EacRSe5fX2JZvMkkXa8umXW1XhpVGhviaVjcnzCU/SvuTh tm55ldEfS2TLBR+7+gAOnqevu2tlT4P/73nDuU4q2GRp/UW+6TSp6tPodXzF BJuv/QP7poI8el86v7dXA4pEJwum2wAxPmOmnRC30o/vjIHj0WlSk2AnNxUz sD15/uBIyyqUpnj96rqRC0WZ2GaqQkIKakvUg1/zoKXt+umPolWodb8Toh+v ArcD7tmNRsoIb9SzfOzIRXzDPcn+vTT0M7iVEgs+hE17bj+cpCPE9WzYdD4H M22q2srXpOSpuZ7QL0KAtpoti5aWMuJ0ZuHz/AcK1+0374uuZiP5MHti4/jK P+TlNpjXLZEAizKZ9mo2+lsGKO65SlJseeFNyOsVfW3GsNOpv0ns63qxsI+P dX5vrnGDlDCTlLfwTRoXsde/NUsspMFhd8D+TH0VgNuxjnNFGZUzWhM3F9WQ lX3tYEv2HCnilrxyaOIjcPcZD4fcKWK4MU7ofJqHdbs4k8Zpc0QL/o1JLRw4 zN3vMmpYJFnmO0XZUibOptRF/haoIAoXf9ErCYVL7F5ekFQJ64vThDXX+Djw VrIgnqBjaV6+P5yhjYg1ng4vQ+n4H6+2zKU= "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{2.0553846440476873`, 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->{{2.1153163628558707`, 5.950946366579627}, { 0, 4.228926288230315}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.618602769302425*^9, 3.6186418564581347`*^9, {3.6186422718165445`*^9, 3.618642356469842*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "v", "]"}]], "Input", CellChangeTimes->{{3.554918193823841*^9, 3.554918196325841*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"3.994538413398227`", ",", "1.9281452338441094`"}], "}"}]], "Output", CellChangeTimes->{ 3.554918211408841*^9, 3.5865391830116377`*^9, 3.5865392676592817`*^9, 3.5865397643879433`*^9, 3.586540185016554*^9, 3.586542434828004*^9, 3.586676761861529*^9, 3.618601724284992*^9, 3.6186418564581347`*^9, { 3.6186422718321605`*^9, 3.618642356485467*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "v", "]"}]], "Input", CellChangeTimes->{{3.5549182156148405`*^9, 3.5549182237328405`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.7213241230632431`", ",", "0.8433079872613292`"}], "}"}]], "Output", CellChangeTimes->{ 3.5549182248038406`*^9, 3.586539183027264*^9, 3.5865392699250946`*^9, 3.586539767716344*^9, 3.586540188016805*^9, 3.586542434828004*^9, 3.5866767618771553`*^9, 3.618601727175825*^9, 3.618641856489397*^9, { 3.6186422718321605`*^9, 3.618642356485467*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Covariance", "[", "v", "]"}]], "Input", CellChangeTimes->{{3.618601729629117*^9, 3.6186017337700453`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5203084905129568`", ",", "0.03014502807741222`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.03014502807741222`", ",", "0.711168361378754`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.6186017344107103`*^9, 3.618641856489397*^9, {3.6186422718321605`*^9, 3.618642356501091*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Correlation", "[", "v", "]"}]], "Input", CellChangeTimes->{{3.6186017564088783`*^9, 3.61860175933097*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", "0.049556317024251485`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.049556317024251485`", ",", "0.9999999999999999`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.618601759893507*^9, 3.6186418565050125`*^9, {3.6186422718477836`*^9, 3.618642356501091*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z", "=", RowBox[{ RowBox[{"11", RowBox[{"v", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{"2", RowBox[{ RowBox[{"v", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "^", "2"}]}]}]}]], "Input", CellChangeTimes->{{3.6186018113908587`*^9, 3.618601848768486*^9}, { 3.6186422220942883`*^9, 3.6186422255945363`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "55.32357862405101`", ",", "62.88196602002784`", ",", "51.2163166877567`", ",", "48.44162564889638`", ",", "46.68707967896207`", ",", "41.7413857640773`", ",", "45.68506430364734`", ",", "53.55053002958256`", ",", "66.42710238386188`", ",", "55.41496178604885`", ",", "42.09742269236844`", ",", "52.66784242448258`", ",", "38.48859169456442`", ",", "50.990069421120744`", ",", "51.1315908485014`", ",", "23.56678420853678`", ",", "51.87570060563454`", ",", "36.711015132553484`", ",", "48.952482597381135`", ",", "58.47890849915546`", ",", "59.642695613506746`", ",", "43.505238440109714`", ",", "66.36063740521433`", ",", "51.92350992821445`", ",", "66.65981948258715`", ",", "47.37289569957485`", ",", "63.73231565530636`", ",", "51.99133529055399`", ",", "38.63502301646766`", ",", "55.309198061985256`", ",", "50.802819141170346`", ",", "72.07179571051397`", ",", "71.62228361562939`", ",", "49.87142340635716`", ",", "51.41619205612119`", ",", "41.490990498898526`", ",", "52.32513429725982`", ",", "41.77601332597229`", ",", "48.5048061364558`", ",", "55.2238460744843`", ",", "71.01216144566354`", ",", "69.98243440392591`", ",", "64.60917805098548`", ",", "40.00827446834548`", ",", "83.6548074876083`", ",", "57.291995086373234`", ",", "91.81816005198641`", ",", "53.27810981716074`", ",", "57.77187943679306`", ",", "64.68703164628607`", ",", "66.208584951721`", ",", "54.95612327980416`", ",", "66.86981831097621`", ",", "53.555269583297374`", ",", "61.5398442004103`", ",", "46.45279664638571`", ",", "45.87606756931637`", ",", "61.877612155977175`", ",", "50.91606047200022`", ",", "63.914412815575155`", ",", "34.04953913410507`", ",", "45.97544834365187`", ",", "41.4650787359316`", ",", "44.154847494216355`", ",", "49.383510914547784`", ",", "67.02763656206125`", ",", "40.985130550323426`", ",", "50.14197096611991`", ",", "46.12631744037347`", ",", "49.20363982601596`", ",", "57.31412640953026`", ",", "49.76147750649343`", ",", "48.68739958293989`", ",", "33.848942454494654`", ",", "41.45359851670784`", ",", "55.20217990777154`", ",", "51.37456545515119`", ",", "40.86126209107581`", ",", "43.4281225446669`", ",", "57.09324569244978`", ",", "44.9086672247238`", ",", "49.95242204913163`", ",", "58.54454288644847`", ",", "43.431222780534235`", ",", "54.97006058117117`", ",", "72.25198425225521`", ",", "56.20708735469611`", ",", "38.64954348509818`", ",", "47.25584253857226`", ",", "58.603693298926586`", ",", "50.625200120876144`", ",", "44.991031230171366`", ",", "42.21789641913448`", ",", "51.85819837152104`", ",", "48.35856966755593`", ",", "47.41689534891685`", ",", "41.51960793715204`", ",", "56.641428109016246`", ",", "59.65701549456082`", ",", "73.90483578291763`"}], "}"}]], "Output", CellChangeTimes->{ 3.6186018493154*^9, 3.6186418565050125`*^9, {3.6186422718477836`*^9, 3.618642356516901*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "z", "]"}], ",", RowBox[{"StandardDeviation", "[", "z", "]"}], ",", RowBox[{ RowBox[{"StandardDeviation", "[", "z", "]"}], "/", RowBox[{"Sqrt", "[", " ", RowBox[{"Length", "[", "z", "]"}], " ", "]"}]}]}], "}"}]], "Input", CellChangeTimes->{{3.6186018559721203`*^9, 3.61860190773697*^9}, { 3.6186020068774085`*^9, 3.6186020124403033`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "52.78352398850197`", ",", "10.904121627155284`", ",", "1.0904121627155285`"}], "}"}]], "Output", CellChangeTimes->{ 3.6186018693011847`*^9, 3.6186019084401426`*^9, 3.618602014815465*^9, 3.6186418565050125`*^9, {3.618642271863412*^9, 3.618642356532354*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"11", "x0"}], "+", RowBox[{"2", RowBox[{"y0", "^", "2"}]}]}], ",", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"11", "\[Sigma]x0"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"4", "y0", " ", "\[Sigma]y0"}], ")"}], "^", "2"}]}], "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.618601923534953*^9, 3.6186019524079685`*^9}, { 3.6186422308292737`*^9, 3.618642238657955*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"52.`", ",", "11.157138029082548`"}], "}"}]], "Output", CellChangeTimes->{ 3.618601953236142*^9, 3.618641856520641*^9, {3.618642271863412*^9, 3.618642356532354*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["x e y correlacionados, coeficiente de correla\ \[CCedilla]\[ATilde]o Sqrt[2]", "Section"]], "Subsection", CellChangeTimes->{{3.5865407656740522`*^9, 3.586540810740288*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Rho]", "=", "0.7"}]], "Input", CellChangeTimes->{{3.618641955722082*^9, 3.6186420117992473`*^9}, 3.6186422437364397`*^9}], Cell[BoxData["0.7`"], "Output", CellChangeTimes->{ 3.6186020474271407`*^9, 3.618641856520641*^9, {3.6186419683792253`*^9, 3.618642016487074*^9}, {3.618642271879038*^9, 3.6186423565479774`*^9}, 3.618642390065956*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"BinormalDistribution", "[", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Sigma]y0"}], "}"}], ",", "\[Rho]"}], "]"}], ",", RowBox[{"{", "100", "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5549183598878407`*^9, 3.5549184175538406`*^9}, { 3.554918544538841*^9, 3.5549185599378405`*^9}, {3.5549186530128407`*^9, 3.5549186768038406`*^9}, {3.586540062693919*^9, 3.586540066600493*^9}, { 3.5865402228009377`*^9, 3.586540229692134*^9}, {3.6186023917901144`*^9, 3.61860241839252*^9}, {3.618602475345892*^9, 3.6186024764084682`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.9727481319056768`", ",", "0.6357119768966863`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4559771368976087`", ",", "0.8171569670027725`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.609081479266433`", ",", "2.889970833845925`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.345687511791673`", ",", "2.3131058602922465`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.205481772150516`", ",", "3.0991553857579284`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.414603322473092`", ",", "4.050148305478382`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.27257400974095`", ",", "2.6553730745346966`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.443371252000531`", ",", "2.97861087734353`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.839107649659651`", ",", "1.8451866570313644`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.0269931572924085`", ",", "3.503271058866593`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.128851975972187`", ",", "2.8200734878740787`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.874645353247418`", ",", "2.4212733978600194`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7564520250758124`", ",", "1.7841653695011521`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.4915318129273545`", ",", "1.5411001181764994`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6066781298255055`", ",", "0.9392395787882633`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.007355402071712`", ",", "2.3451311112251454`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.4809886895826305`", ",", "1.9810155249849672`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.734194587196656`", ",", "2.587857665625327`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.0600082978847483`", ",", "1.9297335370266842`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.9810796179542374`", ",", "1.5661124139019695`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5354954015328595`", ",", "2.7505853662682753`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.688861679596613`", ",", "1.378863071595266`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.548803004656163`", ",", "2.287759236190569`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.096917794942927`", ",", "2.703511188973307`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.437382161404899`", ",", "1.8631433890732338`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.43898765910959`", ",", "1.0492625081644746`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.9635874795393633`", ",", "0.9464539772159131`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.4042919831934357`", ",", "1.2136085539283574`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.7339330681487235`", ",", "1.6609801037011307`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.432006050282585`", ",", "1.2603394693208885`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.333354482426274`", ",", "0.2887589516634974`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.045952599565963`", ",", "1.0303136843495162`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.176026818358874`", ",", "4.167064477228529`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.801384138663261`", ",", "0.10828106121398573`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.7602950316015615`", ",", "1.0574414292754142`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.809157399600817`", ",", "4.368539194810238`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.3853035865423466`", ",", "0.6383205147805235`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.103547735082845`", ",", "3.3987187409917365`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.9898959382760033`", ",", "2.41173476895455`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.485283319412466`", ",", "2.4348053121166258`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.175235726091066`", ",", "3.455227206078976`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.566811944617861`", ",", "1.3585272787647773`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6392858379568676`", ",", "1.497442927207349`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.09295490648721`", ",", "1.819003124769774`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.788487254073064`", ",", "1.5747602861991918`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.2943174239992565`", ",", "0.025529305703650973`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1868186932049283`", ",", "1.305098089136024`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.560321622598469`", ",", "0.9236170524608713`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.81603384864083`", ",", "1.6403742973913509`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6355885240941217`", ",", "1.758175671798399`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1427076922543407`", ",", "2.157465645355177`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.986009795023132`", ",", "2.2598010957891717`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.365174373782484`", ",", "3.536512576610603`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.9476075034517484`", ",", "0.6264501063570456`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.6589427362052085`", ",", "0.7346686203291009`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.9302843612007896`", ",", "1.5983422030578422`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.2651870065377024`", ",", "0.4661732543492283`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.358389200964086`", ",", "1.9445865733810963`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1081603905654136`", ",", "1.304556454186244`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.017059564090086`", ",", "2.5468680957531973`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.108195327309897`", ",", "1.6662486382033017`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.473324823053323`", ",", "2.043170139059269`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.363411932320421`", ",", "2.882232909776164`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.0195021908375077`", ",", "1.565087303240766`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.535680542457367`", ",", "3.786162023891661`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.474916606537633`", ",", "3.1740862988021004`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.020208358445733`", ",", "1.4331081688649796`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.304889387559907`", ",", "0.9379943262580706`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.0210763671702905`", ",", "2.0616473638684147`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.813462538156469`", ",", "3.5768431542389463`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.664144931244539`", ",", "1.5107631252752192`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.714980064795314`", ",", "3.4524446206214474`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.8340108038293854`", ",", "1.9231612916592677`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.049561758646734`", ",", "1.2834484101745551`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.13954850329517`", ",", "1.7739695110120826`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.53928440588276`", ",", "2.431137167822368`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.6990366565474924`", ",", "1.1411359490900814`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.477992168283505`", ",", "2.526406280503652`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.2138083940801145`", ",", "3.228720091189311`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.6075641847301405`", ",", "2.7897501588668074`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.9611958194685486`", ",", "2.20916138181195`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.980206722498758`", ",", "3.265774721773273`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.021474545140201`", ",", "3.113943286706965`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.071011218381693`", ",", "2.225076413893518`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.995087507237738`", ",", "2.052888861551552`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.318243508027175`", ",", "4.217691400403453`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5793123393621116`", ",", "2.4614853920855184`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.248037292392861`", ",", "1.701829520255656`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.528783075690467`", ",", "3.2446534449935074`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.6548501852274837`", ",", "0.6337478352323744`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.9144832178429234`", ",", "2.344117178306593`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.18677463742489`", ",", "2.9984901544984757`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.74290450924935`", ",", "2.6246676230287043`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.368526719956017`", ",", "2.9303709579503083`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.861716507699288`", ",", "1.9078258137306372`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.962078591893046`", ",", "1.9338257233528182`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.619754475078634`", ",", "3.2307984306017925`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.8793006867079196`", ",", "2.696462403834805`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.104190846254989`", ",", "2.125631164528026`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.6486252868181897`", ",", RowBox[{"-", "0.029224605374828183`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5865400571778364`*^9, 3.5865401024315844`*^9, {3.5865402307234697`*^9, 3.5865402400211124`*^9}, 3.5865424349061356`*^9, 3.586676761955291*^9, { 3.6186024081350064`*^9, 3.61860241898631*^9}, 3.6186024771741457`*^9, 3.618641856551891*^9, {3.6186419685979815`*^9, 3.6186420165495796`*^9}, { 3.618642271879038*^9, 3.6186423565479774`*^9}, 3.618642390144088*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"u", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"Histogram", "[", RowBox[{"u", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.6186024518167443`*^9, 3.6186024846903086`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.6579999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.6579999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.106307897435364`, 58.95616450987721}, {-25.18472986909285, -20.91924761923451}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {3., 22}, "RoundingRadius" -> 0]}, ImageSizeCache->{{58.306164474114425`, 90.15602108655628}, {-101.1098563650994, -20.91924761923451}}], StatusArea[#, 22]& , TagBoxNote->"22"], StyleBox["22", {}, StripOnInput -> False]], Annotation[#, Style[22, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 28}, "RoundingRadius" -> 0]}, ImageSizeCache->{{89.50602105079349, 121.35587766323533`}, {-122.8027496496727, -20.91924761923451}}], StatusArea[#, 28]& , TagBoxNote->"28"], StyleBox["28", {}, StripOnInput -> False]], Annotation[#, Style[28, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 31}, "RoundingRadius" -> 0]}, ImageSizeCache->{{120.70587762747255`, 152.5557342399144}, {-133.64919629195936`, -20.91924761923451}}], StatusArea[#, 31]& , TagBoxNote->"31"], StyleBox["31", {}, StripOnInput -> False]], Annotation[#, Style[31, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {6., 16}, "RoundingRadius" -> 0]}, ImageSizeCache->{{151.9057342041516, 183.75559081659347`}, {-79.4169630805261, -20.91924761923451}}], StatusArea[#, 16]& , TagBoxNote->"16"], StyleBox["16", {}, StripOnInput -> False]], Annotation[#, Style[16, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {7., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{183.10559078083068`, 214.9554473932725}, {-28.8002120831884, -20.91924761923451}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.88, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{1., 7.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.63], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.5, 0}, {0., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.106307897435357`, 46.47622187920558}, {-26.66379077485921, -20.91924761923451}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.5, 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{45.826221843442795`, 65.19613582521302}, {-41.94742013444494, -20.91924761923451}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0}, {1., 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{64.54613578945023, 83.91604977122046}, {-72.5146788536164, -20.91924761923451}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {1.5, 13}, "RoundingRadius" -> 0]}, ImageSizeCache->{{83.26604973545767, 102.63596371722792`}, {-87.79830821320215, -20.91924761923451}}], StatusArea[#, 13]& , TagBoxNote->"13"], StyleBox["13", {}, StripOnInput -> False]], Annotation[#, Style[13, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0}, {2., 22}, "RoundingRadius" -> 0]}, ImageSizeCache->{{101.98596368146514`, 121.35587766323533`}, {-133.64919629195936`, \ -20.91924761923451}}], StatusArea[#, 22]& , TagBoxNote->"22"], StyleBox["22", {}, StripOnInput -> False]], Annotation[#, Style[22, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {2.5, 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{120.70587762747255`, 140.07579160924274`}, {-108.17648069264979`, \ -20.91924761923451}}], StatusArea[#, 17]& , TagBoxNote->"17"], StyleBox["17", {}, StripOnInput -> False]], Annotation[#, Style[17, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0}, {3., 15}, "RoundingRadius" -> 0]}, ImageSizeCache->{{139.42579157347996`, 158.7957055552502}, {-97.98739445292597, -20.91924761923451}}], StatusArea[#, 15]& , TagBoxNote->"15"], StyleBox["15", {}, StripOnInput -> False]], Annotation[#, Style[15, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {3.5, 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{158.14570551948742`, 177.51561950125767`}, {-72.5146788536164, -20.91924761923451}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0}, {4., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{176.8656194654949, 196.23553344726508`}, {-41.94742013444494, -20.91924761923451}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {4.5, 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{195.5855334115023, 214.9554473932725}, {-41.94742013444494, -20.91924761923451}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.6, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{-0.5, 4.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{ 3.618602454973217*^9, 3.618602485471608*^9, 3.6186418566456575`*^9, { 3.618641968676118*^9, 3.6186420166277103`*^9}, {3.6186422719571743`*^9, 3.6186423566417274`*^9}, 3.6186423902222233`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "u", "]"}]], "Input", CellChangeTimes->{{3.586540252068985*^9, 3.586540255116116*^9}, { 3.61860273134655*^9, 3.6186027561139307`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwdk3s41HkbxpkxM5gxfjNmmJKUdyKlzWFf6xW+dwcrlKXYRd6UtDJZh1K7 i7XFu42kdJFDqLWbtmlXKiSbdmnXIeV0aTaHJZFto5pGGQyDd679476eP+4/ 7ut5nvuzMiJux36ajo5OpFb/TPf37Ozvs6Dx7Shr+GSUxBcEfdJzmY4pZ8vd 1tbjpN1hNbcqjo8WkR/r6nIW3iOxXdO/G4Ja6XDZ/TgNbI/tXdHdAsgOFs7y Hupj7OO5ptMyIWbHO01CnSh0+VmXWZgJ8UMC1/19Dwbq/Y0s6M08fFh0Wukg Z8HvkNiA7DLB/YTrCSPfzJPsVZaiMnMByntMZyuZHARtr2uaSKcwNRJ0Iy2b Cav1xvqXvjZB+JOd+Y276fg8a1WtsxEXKSWZGuUpDTldt3aDTMHG0adThcGy GRIY6Uwl9XMgEsMWXAXZvO+aXQZLgP2hJUvkv9FQz1x2nupjY/bPB0HulYuk 8lJVddcbPmLSttQqqvRwwTXqu7+S9BEWMeNp/3SB/Cb8yBN9LIyI1M8ectVE Ps1/ESw2Rdcj6XNHXSZQkTnWmmaE7osRP3cbT5HYFieJ2oGPpuTRmsDtNHxf u/ygxz4KYcIDXz4oZWAiRGM+XC+ECdwT4jrniU/rf6bY6XToNPYkt7Qqif2V DaGf3WKhZHqsL8RbQSQdsXHzG9gI8jnXrpS8I5XOY9tEQwyUk1ND4bmzxHvp 6fz6RDaKjtjWhqyZJGnT5N6tH2kQFSc+YiZ3kxRJ2v5lu3UQGV/htCZFSTRe XeGoFiFYsPUd/ycKgrvBpm7RTDRU3Wjwq60jLwIasoVC7V7Nm6q9XipJ2IGR e7luZiB61R9HfMlDf6+avVRIxx3xS7HlZ6NEzhiS6EtEUI+eOJxrz0bhrQfZ fi+Nkenten6DLx3TFVuXKZQ8MIMt/p2cREdBcdpCfJUAJ57ssPUrY0N2tDpE soUP221nl0jvqkjb2ZrRjRZGyKlZrDmhmiYmR9flrA+nML5zM+PS0nnCTGyL 6vZjYsb9fz0fOKoJZ3j21N51PBzrC64OFReRZ01ZbUWpBmg4V5FRMTxJZBKr v08m6+GshW+I55nXZFWd1T03KRePxqXL1R6zpDX3ctx1oRG+ebe+K2WlhnSp XBSbxQawCV0d8tUmXcRkv32/snmRrDDoLOQLaChTRHgqjwgRlmxi3uLDwRMb a4+qcyyUW70yG2aPkq3H3zSmezKgqHdujEr7m6RWhb52SWBhm5Plh505apLu mv7fpZY0KFtjgu//MUieG/qunhuk4cr5M51Mi0Vyp3jYIX1QHxRk+UeHJklY 1LTxFzwKT0d27tWE60FEo6fnaX2fKN2gSdksyS9ct/n6KA+aiLm86GDtn9dO bLRK5GFP1u0VXVwWclp+/V1po4+nA6/mCg3V5JX8p/iTYj7Cmq/7G/twYV+q Oun/nAc732O7pJEGeGCoWoyw1eZ/1SGnKabIzN1nvdHxhnDL23eNo6cg7AEu O09IIbnQQo1UHQyW9OzQaNv8AyN3IvwCB4cXB4uFMj7oqvhJod0MmQhR1P1r gI+BbKZ38UU2fr36wZ9G5Uy43PNu3tK0QA4JdgQ0OApQ0+vmpHtykiyLk7b/ dUYAt90X+9dFaMjnBv1rXVfz0S+yZM8cooN2QS4tLWBAad7faLbpLSmxk595 3c1G2R51qsBZD2134/OV/QKYNGkcD8oNIM7y8FsVy4emnpZxIICJ9lCjOOkN YyTVH24PK9dFSMd3H9W9NIGtyv9rvxWGOOAbGDMvFCDPkFqya0wffZGOa25v pbDH/vnAZJsuXCb3xitVxrBK/WPBP0YHkrPbSoc9hWiIzksdf0KBejx/PPZ7 DkJr5LC8SYc59Splfp7Cnd7tBTdd50iRNfPbt64cZHZkDHJUBjC9YiiycmdA luyVedVrlByhPcwd8DeGNOvx8YYGGjb2/dK3sZ5CbMF01AsNCxnm11R1M3yw XZf/ErCoB9srUl64lsuKXXaBn2p7ZvOm59uHo1zc1vEKSzyxQIwP7125ts8M K2KG3N8pF8g1zv3x0iTtPVzmest7DeBm+mlbh76W17Gk4dAcBu7IA3VvSig8 5nwx5qOrC/FEQGKEPQPHbHx53NcX6v8Pta7A0w== "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.920540779033511, 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->{{1.986009795023132, 6.176026818358874}, {-0.029224605374828183`, 4.368539194810238}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.5865402558818007`*^9, 3.5865424349530144`*^9, 3.5866767620021653`*^9, 3.6186027567077227`*^9, 3.6186418566769*^9, {3.6186419687073665`*^9, 3.6186420166589603`*^9}, {3.618642272004045*^9, 3.618642356688606*^9}, 3.6186423902690973`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c", "=", RowBox[{ RowBox[{"11", RowBox[{"u", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{"2", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "^", "2"}]}]}]}]], "Input", CellChangeTimes->{{3.618602503082223*^9, 3.6186025135048323`*^9}, { 3.6186420972541304`*^9, 3.6186421103453503`*^9}, {3.6186422506119146`*^9, 3.618642250815054*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "33.508488886102235`", ",", "28.351239523316035`", ",", "67.403759112891`", ",", "47.50348007154507`", ",", "76.46982770380042`", ",", "92.36803913994284`", ",", "72.10032643707814`", ",", "66.62132928926422`", ",", "60.03961174482932`", ",", "79.84274095400102`", ",", "61.3230006897146`", ",", "65.34622862009081`", ",", "47.6874644072883`", ",", "43.15682909068814`", ",", "41.43780140080527`", ",", "66.08018928046101`", ",", "46.139720605871865`", ",", "65.47015505423475`", ",", "41.107834324583266`", ",", "37.69729198345232`", ",", "76.02188913111982`", ",", "44.38000521598101`", ",", "60.5045176967683`", ",", "59.68404124217993`", ",", "66.75381035194847`", ",", "29.0307678722847`", ",", "34.39101253690863`", ",", "40.39290325946395`", ",", "35.590973559417996`", ",", "40.92897770896455`", ",", "25.83366277102062`", ",", "24.62857117154134`", ",", "102.66514771670735`", ",", "30.838675101731127`", ",", "32.599610100313235`", ",", "102.06900078879556`", ",", "27.053245611145158`", ",", "90.24160324664821`", ",", "55.52178451260454`", ",", "61.19467032935981`", ",", "80.80478307825838`", ",", "53.92612412509253`", ",", "44.51681485801217`", ",", "51.64004870720372`", ",", "35.63309971278402`", ",", "47.23879515489124`", ",", "38.461567669787215`", ",", "29.869674767776175`", ",", "47.358028006133466`", ",", "46.17383715084284`", ",", "43.87910063657341`", ",", "32.05950973031433`", ",", "84.03076052065725`", ",", "33.20856200947874`", ",", "30.327846061649822`", ",", "37.34252356936028`", ",", "25.351692078055827`", ",", "33.50511509335301`", ",", "37.59349938053752`", ",", "57.16072939932198`", ",", "39.74291764903758`", ",", "57.55566148787349`", ",", "64.61206434791818`", ",", "38.11352063274349`", ",", "78.56253170934983`", ",", "69.3737303364004`", ",", "37.32988999023813`", ",", "38.113449975343634`", ",", "52.732619744764364`", ",", "78.5357018197732`", ",", "55.87040468507262`", ",", "75.70352842966439`", ",", "38.57121754959633`", ",", "58.83965898827326`", ",", "62.82896918824777`", ",", "61.75298432224509`", ",", "32.29378573063386`", ",", "51.023371239455145`", ",", "78.20115918938028`", ",", "66.24861792982631`", ",", "53.3339420359326`", ",", "76.11284301423294`", ",", "74.62950558219697`", ",", "54.683053497529094`", ",", "52.37466793537997`", ",", "94.0785200863734`", ",", "51.490256403884025`", ",", "52.52085764834867`", ",", "59.872165788811614`", ",", "30.006624674825762`", ",", "54.04908608753628`", ",", "64.03640742492237`", ",", "65.94970986449314`", ",", "65.22794182191339`", ",", "49.7584802557661`", ",", "73.0622283674256`", ",", "71.69341622422299`", ",", "57.21412654437626`", ",", "54.18271500403043`", ",", "29.136586310118716`"}], "}"}]], "Output", CellChangeTimes->{ 3.6186025140517583`*^9, 3.6186418566925287`*^9, {3.6186419687229924`*^9, 3.618642016674587*^9}, 3.618642114892544*^9, {3.618642272004045*^9, 3.6186423567042313`*^9}, 3.6186423902847276`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "c", "]"}], ",", RowBox[{"StandardDeviation", "[", "c", "]"}], ",", RowBox[{ RowBox[{"StandardDeviation", "[", "c", "]"}], "/", RowBox[{"Sqrt", "[", " ", RowBox[{"Length", "[", "c", "]"}], " ", "]"}]}]}], "}"}]], "Input", CellChangeTimes->{{3.554919043120841*^9, 3.5549190847638407`*^9}, { 3.6186025217085457`*^9, 3.618602575583334*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "53.894812594731064`", ",", "18.411143686553444`", ",", "1.8411143686553446`"}], "}"}]], "Output", CellChangeTimes->{ 3.554919054688841*^9, {3.554919086102841*^9, 3.554919147188841*^9}, { 3.554919242273841*^9, 3.554919242318841*^9}, 3.586539188340209*^9, 3.586539641705905*^9, 3.586542434968645*^9, 3.5866767620177913`*^9, { 3.6186025225523496`*^9, 3.6186025762397504`*^9}, 3.6186418567081547`*^9, { 3.6186419687229924`*^9, 3.618642016674587*^9}, 3.618642120486685*^9, { 3.6186422720196776`*^9, 3.6186423567198563`*^9}, 3.6186423903003488`*^9}] }, Open ]], Cell["\<\ cuidado, propaga\[CCedilla]\[ATilde]o de incerteza errada para grandezas \ correlacionadas\ \>", "Text", CellChangeTimes->{{3.586540838414456*^9, 3.5865408560565434`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"11", "\[Sigma]x0"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"4", "y0", " ", "\[Sigma]y0"}], ")"}], "^", "2"}]}], "]"}], " ", RowBox[{"(*", RowBox[{"opa", ",", " ", RowBox[{ RowBox[{"propaga\[CCedilla]\[ATilde]o", " ", "errada"}], "..."}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.586540406066126*^9, 3.5865404066911774`*^9}, { 3.5865423653378725`*^9, 3.5865423765263*^9}, {3.6186026114861727`*^9, 3.618602615486457*^9}, {3.6186421267840137`*^9, 3.6186421295498247`*^9}, { 3.618642254909096*^9, 3.618642255205991*^9}}], Cell[BoxData["11.157138029082548`"], "Output", CellChangeTimes->{ 3.586540410832142*^9, {3.5865424051067944`*^9, 3.586542434984267*^9}, 3.5866767620334177`*^9, 3.618602616080244*^9, 3.6186418567081547`*^9, { 3.6186419687386312`*^9, 3.618642016690213*^9}, 3.6186421314095716`*^9, { 3.618642272035301*^9, 3.6186423567198563`*^9}, 3.6186423903003488`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"{", RowBox[{"11", ",", RowBox[{"4", "y0"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.5865404282710876`*^9, 3.5865404528668766`*^9}, { 3.618642140785001*^9, 3.618642142941404*^9}, {3.618642260331349*^9, 3.6186422606126213`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "8.`"}], "}"}]], "Output", CellChangeTimes->{ 3.586540455929633*^9, 3.586542434999895*^9, 3.586676762049044*^9, 3.6186026269247646`*^9, 3.6186418567081547`*^9, {3.6186419687386312`*^9, 3.618642016690213*^9}, 3.6186421452540565`*^9, {3.618642272035301*^9, 3.6186423567198563`*^9}, 3.6186423903003488`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"var", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Sigma]x0", "^", "2"}], ",", RowBox[{"\[Rho]", " ", "\[Sigma]x0", " ", "\[Sigma]y0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", " ", "\[Sigma]x0", " ", "\[Sigma]y0"}], ",", RowBox[{"\[Sigma]y0", "^", "2"}]}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.5865404611800685`*^9, 3.586540513715672*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.49984899999999993`", ",", "0.49489999999999995`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.49489999999999995`", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.586540514387602*^9, 3.58654243501552*^9, 3.5866767620646706`*^9, 3.6186026316594753`*^9, 3.618641856723779*^9, {3.6186419687542453`*^9, 3.618642016690213*^9}, 3.6186421478479967`*^9, {3.618642272035301*^9, 3.618642356735487*^9}, 3.618642390315976*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Round", "[", RowBox[{"%", ",", "0.001"}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.5865405279824758`*^9, 3.586540541467972*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.5`", "0.495`"}, {"0.495`", "1.`"} }, 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.5865405356237373`*^9, 3.586540542171153*^9}, 3.586542435031146*^9, 3.5866767620802965`*^9, 3.6186026362847943`*^9, 3.6186418567394085`*^9, {3.6186419687542453`*^9, 3.618642016705839*^9}, 3.6186421522076716`*^9, {3.6186422720509233`*^9, 3.618642356735487*^9}, 3.6186423903316016`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"f", ".", "var", ".", "f"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"OK", ",", " ", RowBox[{"covariancia", " ", "incluida", " ", "na", " ", "propagacao"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5865405558754168`*^9, 3.5865405729080777`*^9}, { 3.5865423812454414`*^9, 3.5865424012939777`*^9}, {3.618602644754146*^9, 3.618602647957489*^9}}], Cell[BoxData["14.545931699275917`"], "Output", CellChangeTimes->{{3.586540564579258*^9, 3.5865405734393716`*^9}, 3.586542402059666*^9, 3.586542435046772*^9, 3.5866767620959215`*^9, 3.618602650801441*^9, 3.6186418567550325`*^9, {3.6186419687542453`*^9, 3.61864201672147*^9}, 3.618642154285948*^9, {3.6186422720509233`*^9, 3.61864235675111*^9}, 3.6186423903472557`*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1077, 799}, WindowMargins->{{Automatic, 322}, {Automatic, 77}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, Magnification->1.3000000715255737`, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 158, 2, 107, "Subtitle"], Cell[740, 26, 464, 11, 66, "Text"], Cell[CellGroupData[{ Cell[1229, 41, 542, 12, 115, "Input"], Cell[1774, 55, 248, 4, 39, "Output"], Cell[2025, 61, 251, 4, 39, "Output"], Cell[2279, 67, 248, 4, 39, "Output"], Cell[2530, 73, 246, 4, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2813, 82, 183, 2, 66, "Subsubsection"], Cell[CellGroupData[{ Cell[3021, 88, 712, 16, 65, "Input"], Cell[3736, 106, 9575, 206, 640, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13348, 317, 485, 14, 50, "Input"], Cell[13836, 333, 14425, 385, 224, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28298, 723, 129, 2, 50, "Input"], Cell[28430, 727, 3164, 64, 409, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31631, 796, 123, 2, 50, "Input"], Cell[31757, 800, 397, 7, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32191, 812, 140, 2, 50, "Input"], Cell[32334, 816, 399, 8, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32770, 829, 131, 2, 50, "Input"], Cell[32904, 833, 368, 10, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33309, 848, 131, 2, 50, "Input"], Cell[33443, 852, 355, 10, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33835, 867, 430, 13, 50, "Input"], Cell[34268, 882, 3052, 48, 344, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37357, 935, 428, 10, 50, "Input"], Cell[37788, 947, 310, 7, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38135, 959, 526, 17, 50, "Input"], Cell[38664, 978, 211, 5, 50, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38924, 989, 197, 2, 100, "Subsection"], Cell[CellGroupData[{ Cell[39146, 995, 152, 3, 50, "Input"], Cell[39301, 1000, 226, 4, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39564, 1009, 720, 15, 50, "Input"], Cell[40287, 1026, 9866, 209, 832, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50190, 1240, 436, 13, 50, "Input"], Cell[50629, 1255, 13562, 358, 224, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64228, 1618, 177, 3, 50, "Input"], Cell[64408, 1623, 3334, 66, 400, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67779, 1694, 481, 14, 50, "Input"], Cell[68263, 1710, 3152, 48, 344, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71452, 1763, 427, 10, 50, "Input"], Cell[71882, 1775, 609, 11, 50, "Output"] }, Open ]], Cell[72506, 1789, 182, 4, 50, "Text"], Cell[CellGroupData[{ Cell[72713, 1797, 692, 18, 50, "Input"], Cell[73408, 1817, 365, 5, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73810, 1827, 288, 7, 50, "Input"], Cell[74101, 1836, 369, 7, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74507, 1848, 460, 12, 50, "Input"], Cell[74970, 1862, 516, 11, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75523, 1878, 187, 4, 50, "Input"], Cell[75713, 1884, 922, 22, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76672, 1911, 429, 10, 50, "Input"], Cell[77104, 1923, 384, 5, 93, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)