(* 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[ 46451, 1456] NotebookOptionsPosition[ 40513, 1250] NotebookOutlinePosition[ 41930, 1294] CellTagsIndexPosition[ 41802, 1288] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Um exemplo de modulariza\[CCedilla]\[ATilde]o com Package", "Title", CellChangeTimes->{{3.6721548282590513`*^9, 3.6721548378290644`*^9}}], Cell[CellGroupData[{ Cell["incerteza na interpola\[CCedilla]\[ATilde]o e extrapola\[CCedilla]\ \[ATilde]o", "Section", CellChangeTimes->{{3.6721548524190845`*^9, 3.6721548665291047`*^9}}], Cell[CellGroupData[{ Cell["\<\ efetuando todas as opera\[CCedilla]\[OTilde]es para entender como montar o \ package\ \>", "Subsection", CellChangeTimes->{{3.672159374935416*^9, 3.6721593829154277`*^9}, { 3.672159761895958*^9, 3.6721597728659735`*^9}}], Cell["par\[AHat]metros fixos", "Text", CellChangeTimes->{{3.672155419459879*^9, 3.6721554242698855`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a0", "=", RowBox[{"-", "2.5"}]}], ";", RowBox[{"b0", "=", "0.225"}], ";", RowBox[{"\[Sigma]i", "=", "0.3"}], ";", RowBox[{"x", "=", RowBox[{"Range", "[", RowBox[{"4", ",", "24", ",", "4"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6721553406497684`*^9, 3.672155378589822*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "8", ",", "12", ",", "16", ",", "20", ",", "24"}], "}"}]], "Output", CellChangeTimes->{3.6721553806198244`*^9, 3.672157604272938*^9, 3.672158502494195*^9}] }, Open ]], Cell["simula\[CCedilla]\[ATilde]o", "Text", CellChangeTimes->{{3.672155402389855*^9, 3.672155404089857*^9}, { 3.672159355215389*^9, 3.672159360005396*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"simul", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"a0", "+", RowBox[{"b0", " ", RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], " ", ",", "\[Sigma]i"}], "]"}], " ", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "x", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6721554314698954`*^9, 3.672155496999987*^9}, { 3.672156662311619*^9, 3.672156670881631*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "1.3697371153885607`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "0.5709153838073887`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "0.36469423303921733`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "1.138236157847999`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2.2017627439826333`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "2.608979671794271`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.672155498249989*^9, 3.67215567755024*^9, 3.6721558011804132`*^9, 3.6721576042929373`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"grafSimul", "=", RowBox[{"ListPlot", "[", RowBox[{"simul", ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6721555062900004`*^9, 3.672155566720085*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{4., -1.3697371153885607`}, {8., -0.5709153838073887}, {12., 0.36469423303921733`}, {16., 1.138236157847999}, {20., 2.2017627439826333`}, {24., 2.608979671794271}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm]}, 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, 24.}, {-1.3697371153885607`, 2.608979671794271}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6721555130700097`*^9, 3.6721555350400405`*^9}, 3.672155567500086*^9, 3.6721576043929377`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "=", RowBox[{"LinearModelFit", "[", RowBox[{"simul", ",", RowBox[{"{", "z", "}"}], ",", "z"}], "]"}]}]], "Input", CellChangeTimes->{{3.672155633160178*^9, 3.6721556687602277`*^9}, { 3.672155738960326*^9, 3.672155740120328*^9}, 3.672157324992546*^9}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{ RowBox[{"-", "2.169679306497941`"}], "+", RowBox[{"0.2070368588863787`", " ", "z"}]}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {-2.169679306497941, 0.2070368588863787}, {{Private`z}, {1, Private`z}}, {0, 0}}, {{1., 1., 1., 1., 1., 1.}}, {{4, -1.3697371153885607`}, {8, -0.5709153838073887}, { 12, 0.36469423303921733`}, {16, 1.138236157847999}, { 20, 2.2017627439826333`}, {24, 2.608979671794271}}, {{1., 4.}, {1., 8.}, {1., 12.}, {1., 16.}, {1., 20.}, {1., 24.}}, Function[Null, Internal`LocalizedBlock[{Private`z}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.67215565626021*^9, 3.6721556819002457`*^9}, 3.672155740750328*^9, 3.6721558049204187`*^9, 3.6721576044129376`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"xInter", "=", "18"}]], "Input", CellChangeTimes->{{3.672155715930294*^9, 3.672155726490309*^9}}], Cell[BoxData["18"], "Output", CellChangeTimes->{3.6721557277003107`*^9, 3.6721576044129376`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pAju", "=", RowBox[{"aju", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.672155745560335*^9, 3.672155776050378*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.169679306497941`"}], ",", "0.2070368588863787`"}], "}"}]], "Output", CellChangeTimes->{{3.6721557565203505`*^9, 3.672155776880379*^9}, 3.6721558080904226`*^9, 3.6721576044229374`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"yInter", "=", RowBox[{ RowBox[{"pAju", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"pAju", "[", RowBox[{"[", "2", "]"}], "]"}], "xInter"}]}]}]], "Input", CellChangeTimes->{{3.6721557293703127`*^9, 3.6721557315703154`*^9}, { 3.6721557798903832`*^9, 3.6721557930504017`*^9}}], Cell[BoxData["1.5569841534568756`"], "Output", CellChangeTimes->{{3.6721557951804047`*^9, 3.6721558107304263`*^9}, 3.6721576044329376`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vAju", "=", RowBox[{"aju", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.6721577086330833`*^9, 3.672157735193121*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.02080668486989752`", ",", RowBox[{"-", "0.0012003856655710104`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0012003856655710106`"}], ",", "0.00008574183325507216`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.672157736233122*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vx", "=", RowBox[{"{", RowBox[{"1", ",", "xInter"}], "}"}]}]], "Input", CellChangeTimes->{{3.672157746273136*^9, 3.6721577591731544`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "18"}], "}"}]], "Output", CellChangeTimes->{3.6721577599531555`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Usando o package", "Section", CellChangeTimes->{{3.672159800796013*^9, 3.672159804186017*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetDirectory", "[", " ", RowBox[{"NotebookDirectory", "[", "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.67215828483389*^9, 3.672158299823911*^9}}], Cell[BoxData["\<\"C:\\\\Users\\\\vanin\\\\Desktop\"\>"], "Output", CellChangeTimes->{3.672158300493912*^9, 3.6721585179242163`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.672158215983794*^9, 3.672158232973818*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "extrapolation`*"}]], "Input", CellChangeTimes->{{3.6721583299739532`*^9, 3.6721583492039804`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`open$$ = True}, PaneSelectorBox[{False-> RowBox[{ OpenerBox[Dynamic[Typeset`open$$], ImageSize->Small], StyleBox["extrapolation`", "InfoHeading"]}], True->GridBox[{ { RowBox[{ OpenerBox[Dynamic[Typeset`open$$], ImageSize->Small], StyleBox["extrapolation`", "InfoHeading"]}]}, {GridBox[{ { ButtonBox["simulate", BaseStyle->"InformationLink", ButtonData:>{ "Info3672147727-5360126", {"simulate", "extrapolation`"}}, ButtonNote->"extrapolation`"], ButtonBox["value", BaseStyle->"InformationLink", ButtonData:>{"Info3672147727-5360126", {"value", "extrapolation`"}}, ButtonNote->"extrapolation`"], ButtonBox["\[Sigma]value", BaseStyle->"InformationLink", ButtonData:>{ "Info3672147727-5360126", {"\[Sigma]value", "extrapolation`"}}, ButtonNote->"extrapolation`"]} }, DefaultBaseStyle->"InfoGrid", GridBoxItemSize->{"Columns" -> {{ Scaled[0.31666666666666665`]}}}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, Dynamic[Typeset`open$$], ImageSize->Automatic]]], "Print", "InfoCell", CellChangeTimes->{3.67215852752423*^9}], Cell[BoxData[ StyleBox["\<\"simulate[a0,b0,x,\[Sigma]] retorna o objeto de ajuste dos \ parametros a \\num conjunto de dados simulados y = a0 + b0 x[[i]], com desvio \ padrao \[Sigma]\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3672147727-5360126"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["a0"], "Input", CellChangeTimes->{{3.6721584219240823`*^9, 3.672158437684104*^9}}], Cell[BoxData[ RowBox[{"-", "2.5`"}]], "Output", CellChangeTimes->{{3.672158438254105*^9, 3.672158454094127*^9}, 3.6721585389442463`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "=", RowBox[{"simulate", "[", RowBox[{"a0", ",", "b0", ",", "x", ",", "\[Sigma]i"}], "]"}]}]], "Input", CellChangeTimes->{{3.6721585458042555`*^9, 3.672158568254287*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{ RowBox[{"-", "2.2069234333928613`"}], "+", RowBox[{"0.21632149974303896`", " ", RowBox[{"\[LeftSkeleton]", "9", "\[RightSkeleton]"}]}]}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {-2.2069234333928613`, 0.21632149974303896`}, {{Private`z}, {1, Private`z}}, {0, 0}}, {{ 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111}}, {{4, -1.5123841601559092`}, { 8, 0.012230800760273941`}, {12, 0.14365002315134087`}, { 16, 1.0254099507538939`}, {20, 2.212386089909186}, { 24, 3.0481726736393226`}}, {{1., 4.}, {1., 8.}, {1., 12.}, {1., 16.}, { 1., 20.}, {1., 24.}}, Function[Null, Internal`LocalizedBlock[{Private`z}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.6721585608942766`*^9, 3.6721585691842885`*^9}, 3.672158920894781*^9, 3.672158960424836*^9, 3.6721589949148846`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"value", "[", RowBox[{"aju", ",", "18"}], "]"}]], "Input", CellChangeTimes->{{3.6721585774943*^9, 3.67215859855433*^9}}], Cell[BoxData["1.68686356198184`"], "Output", CellChangeTimes->{3.672158599344331*^9, 3.6721589240147853`*^9, 3.672158962764839*^9, 3.672158997824888*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"value", "[", RowBox[{"aju", ",", RowBox[{"{", RowBox[{"18", ",", "40"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.672159128785072*^9, 3.6721591384750853`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.68686356198184`", ",", "6.445936556328698`"}], "}"}]], "Output", CellChangeTimes->{3.672159139005086*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Sigma]value", "[", RowBox[{"aju", ",", "18"}], "]"}]], "Input", CellChangeTimes->{{3.6721586036143365`*^9, 3.672158610234346*^9}}], Cell[BoxData["0.14192553379451192`"], "Output", CellChangeTimes->{3.6721586107743464`*^9, 3.6721589265147886`*^9, 3.6721589651048427`*^9, 3.6721590003348923`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"y18", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"value", "[", " ", RowBox[{ RowBox[{"simulate", "[", RowBox[{"a0", ",", "b0", ",", "x", ",", "\[Sigma]i"}], "]"}], ",", "18"}], " ", "]"}], ",", RowBox[{"{", "2000", "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.672158617594356*^9, 3.6721586537844067`*^9}, { 3.6721591710851307`*^9, 3.6721591713251314`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "y18", "]"}]], "Input", CellChangeTimes->{{3.672158657734412*^9, 3.67215866298442*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.5599999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.05, 0}, {1.1, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{51.5472377902322, 85.16533226581271}, { 178.5462835295802, 182.38688272075782`}}], 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[{1.1, 0}, {1.15, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{84.16533226581271, 117.78342674139299`}, { 179.966583125169, 182.38688272075782`}}], 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[{1.15, 0}, {1.2, 9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{116.78342674139299`, 150.4015212169735}, { 168.60418636045844`, 182.38688272075782`}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", {}, StripOnInput -> False]], Annotation[#, Style[9, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.2, 0}, {1.25, 16}, "RoundingRadius" -> 0]}, ImageSizeCache->{{149.4015212169735, 183.019615692554}, { 158.6620891913367, 182.38688272075782`}}], 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[{1.25, 0}, {1.3, 49}, "RoundingRadius" -> 0]}, ImageSizeCache->{{182.019615692554, 215.6377101681345}, { 111.79220253690563`, 182.38688272075782`}}], StatusArea[#, 49]& , TagBoxNote->"49"], StyleBox["49", {}, StripOnInput -> False]], Annotation[#, Style[49, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.3, 0}, {1.35, 79}, "RoundingRadius" -> 0]}, ImageSizeCache->{{214.6377101681345, 248.255804643715}, { 69.18321466924102, 182.38688272075782`}}], StatusArea[#, 79]& , TagBoxNote->"79"], StyleBox["79", {}, StripOnInput -> False]], Annotation[#, Style[79, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.35, 0}, {1.4, 151}, "RoundingRadius" -> 0]}, ImageSizeCache->{{247.255804643715, 280.8738991192954}, {-33.078356213154024`, 182.38688272075782`}}], StatusArea[#, 151]& , TagBoxNote->"151"], StyleBox["151", {}, StripOnInput -> False]], Annotation[#, Style[151, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.4, 0}, {1.45, 195}, "RoundingRadius" -> 0]}, ImageSizeCache->{{279.8738991192954, 313.4919935948759}, {-95.57153841906214, 182.38688272075782`}}], StatusArea[#, 195]& , TagBoxNote->"195"], StyleBox["195", {}, StripOnInput -> False]], Annotation[#, Style[195, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.45, 0}, {1.5, 241}, "RoundingRadius" -> 0]}, ImageSizeCache->{{312.4919935948759, 346.1100880704564}, {-160.90531981614785`, 182.38688272075782`}}], StatusArea[#, 241]& , TagBoxNote->"241"], StyleBox["241", {}, StripOnInput -> False]], Annotation[#, Style[241, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0}, {1.55, 265}, "RoundingRadius" -> 0]}, ImageSizeCache->{{345.1100880704564, 378.7281825460368}, {-194.99251011027954`, 182.38688272075782`}}], StatusArea[#, 265]& , TagBoxNote->"265"], StyleBox["265", {}, StripOnInput -> False]], Annotation[#, Style[265, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.55, 0}, {1.6, 275}, "RoundingRadius" -> 0]}, ImageSizeCache->{{377.7281825460368, 411.3462770216174}, {-209.19550606616772`, 182.38688272075782`}}], StatusArea[#, 275]& , TagBoxNote->"275"], StyleBox["275", {}, StripOnInput -> False]], Annotation[#, Style[275, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.6, 0}, {1.65, 222}, "RoundingRadius" -> 0]}, ImageSizeCache->{{410.3462770216174, 443.9643714971976}, {-133.91962749996028`, 182.38688272075782`}}], StatusArea[#, 222]& , TagBoxNote->"222"], StyleBox["222", {}, StripOnInput -> False]], Annotation[#, Style[222, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.65, 0}, {1.7, 199}, "RoundingRadius" -> 0]}, ImageSizeCache->{{442.9643714971976, 476.5824659727782}, {-101.2527368014174, 182.38688272075782`}}], StatusArea[#, 199]& , TagBoxNote->"199"], StyleBox["199", {}, StripOnInput -> False]], Annotation[#, Style[199, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.7, 0}, {1.75, 126}, "RoundingRadius" -> 0]}, ImageSizeCache->{{475.5824659727782, 509.2005604483586}, { 2.4291336765664653`, 182.38688272075782`}}], StatusArea[#, 126]& , TagBoxNote->"126"], StyleBox["126", {}, StripOnInput -> False]], Annotation[#, Style[126, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.75, 0}, {1.8, 88}, "RoundingRadius" -> 0]}, ImageSizeCache->{{508.2005604483586, 541.8186549239392}, { 56.40051830894164, 182.38688272075782`}}], StatusArea[#, 88]& , TagBoxNote->"88"], StyleBox["88", {}, StripOnInput -> False]], Annotation[#, Style[88, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.8, 0}, {1.85, 43}, "RoundingRadius" -> 0]}, ImageSizeCache->{{540.8186549239392, 574.4367493995196}, { 120.31400011043856`, 182.38688272075782`}}], StatusArea[#, 43]& , TagBoxNote->"43"], StyleBox["43", {}, StripOnInput -> False]], Annotation[#, Style[43, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.85, 0}, {1.9, 21}, "RoundingRadius" -> 0]}, ImageSizeCache->{{573.4367493995196, 607.0548438751}, { 151.5605912133926, 182.38688272075782`}}], 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.9, 0}, {1.95, 9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{606.0548438751, 639.6729383506806}, { 168.60418636045844`, 182.38688272075782`}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", {}, StripOnInput -> False]], Annotation[#, Style[9, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.95, 0}, {2., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{638.6729383506806, 672.291032826261}, { 170.02448595604727`, 182.38688272075782`}}], 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[{2., 0}, {2.05, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{671.291032826261, 704.9091273018414}, { 179.966583125169, 182.38688272075782`}}], 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->{1.03, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{1.05, 2.05}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.672158663974421*^9, 3.6721589334347982`*^9, 3.6721589716348515`*^9, 3.6721590063649006`*^9, 3.672159176145138*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "y18", "]"}]], "Input", CellChangeTimes->{{3.6721586686144276`*^9, 3.672158719694499*^9}, { 3.6721589445548143`*^9, 3.6721589479748187`*^9}}], Cell[BoxData["0.14380609988848686`"], "Output", CellChangeTimes->{{3.672158673124434*^9, 3.6721586893744564`*^9}, 3.6721587201944995`*^9, {3.6721589363348026`*^9, 3.672158974724856*^9}, 3.6721590091249046`*^9, 3.672159178845142*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Sigma]value", "[", RowBox[{"aju", ",", "18"}], "]"}]], "Input", CellChangeTimes->{{3.672158697334468*^9, 3.672158704654478*^9}}], Cell[BoxData["0.14192553379451192`"], "Output", CellChangeTimes->{{3.672158705284479*^9, 3.672158724924506*^9}, 3.6721589408848085`*^9, 3.6721589771348596`*^9, 3.672159011944908*^9, 3.6721591834251485`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["mudando o numero de pontos em que y \[EAcute] medido", "Subsection", CellChangeTimes->{{3.672159472375553*^9, 3.6721594815255656`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "=", RowBox[{"simulate", "[", RowBox[{"1", ",", "3", ",", RowBox[{"Range", "[", RowBox[{"5", ",", "30", ",", "1"}], "]"}], ",", "\[Sigma]i"}], "]"}]}]], "Input", CellChangeTimes->{{3.6721594963755865`*^9, 3.6721595062756004`*^9}, { 3.6721595766456985`*^9, 3.672159582635707*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"1.0152177926361512`", "\[VeryThinSpace]", "+", RowBox[{"3.0033345173533332`", " ", "Private`z"}]}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {1.0152177926361512`, 3.0033345173533332`}, {{Private`z}, {1, Private`z}}, {0, 0}}, {{ 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111, 11.11111111111111}}, {{5, 15.659353535878369`}, { 6, 19.034828641702802`}, {7, 22.240240162053446`}, { 8, 25.001723004945138`}, {9, 27.7721913145928}, { 10, 31.055786229101898`}, {11, 34.13252657277422}, { 12, 36.98950295068599}, {13, 40.12448186834799}, { 14, 43.29939905971389}, {15, 46.197732317654356`}, { 16, 48.867151509724266`}, {17, 52.22586716965653}, { 18, 55.16638944376996}, {19, 58.06339825562252}, { 20, 61.12133873824968}, {21, 64.5238760993726}, { 22, 66.91992829390186}, {23, 70.06890195536542}, { 24, 73.27532278434497}, {25, 76.31318840884867}, { 26, 79.00724751945079}, {27, 81.91032083793702}, { 28, 85.1068639020771}, {29, 87.88558118456605}, { 30, 90.94972624396819}}, CompressedData[" 1:eJxdx1sKQFAYReE/Y/AgeUCSJB33O2cMhqA8m7ohoPNk7dqtvuC49tMSEff9 V7N7M7X13w7swT4cwhEcwwmcwhmcwwou4BKu4Bpu4Bbu4B4e4BGe4Ble4FU/ gvQrxw== "], Function[Null, Internal`LocalizedBlock[{Private`z}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.672159508375603*^9, {3.6721595799757032`*^9, 3.672159583175708*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.672159521755622*^9, 3.6721595516056633`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", RowBox[{"-", "1.1932375261096222`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"-", "0.4143205538595153`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", RowBox[{"-", "0.30518601962310277`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "0.8644492922544047`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", RowBox[{"-", "0.8964293704336412`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "0.03328082522062892`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", RowBox[{"-", "0.3381048772931104`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "0.5417719578626985`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "0.7811075353594673`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "0.6672137718602403`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.4012183383039714`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "0.7950492969514417`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "1.2718347068477642`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "1.3004708825964466`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "1.745752631689814`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "1.9632271477236967`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "2.2753211703154608`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "2.7242963273465275`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "3.181279209550514`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "2.492246556703197`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "3.007650488515783`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "3.060280638312086`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "3.245597447207973`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "4.143017995216238`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "4.121645285955956`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "4.37986899976383`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6721595522456646`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Como empregar usage::", "Section", CellChangeTimes->{{3.672159446645517*^9, 3.672159461105537*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"atoa", "[", "x_", "]"}], ":=", RowBox[{"2", "x"}]}]], "Input", CellChangeTimes->{{3.67215587030051*^9, 3.672155878900522*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "atoa"}]], "Input", CellChangeTimes->{{3.6721558838905287`*^9, 3.6721558853805313`*^9}}], Cell[CellGroupData[{ Cell["Private`atoa", "Print", "PrintUsage", CellChangeTimes->{3.6721576044529376`*^9}, CellTags->"Info3672146804-7218964"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"atoa", "[", "x_", "]"}], ":=", RowBox[{"2", " ", "x"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[Private`atoa], Editable->False]], "Print", CellChangeTimes->{3.6721576044629374`*^9}, CellTags->"Info3672146804-7218964"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "atoa"}]], "Input", CellChangeTimes->{{3.6721558943805437`*^9, 3.6721558970505476`*^9}}], Cell[CellGroupData[{ Cell["Private`atoa", "Print", "PrintUsage", CellChangeTimes->{3.672157604492938*^9}, CellTags->"Info3672146804-7218964"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"atoa", "[", "x_", "]"}], ":=", RowBox[{"2", " ", "x"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[Private`atoa], Editable->False]], "Print", CellChangeTimes->{3.672157604492938*^9}, CellTags->"Info3672146804-7218964"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"atoa", "::", "usage"}], " ", "=", " ", "\"\\""}]], "Input", CellChangeTimes->{{3.672155911190567*^9, 3.672155952100624*^9}, { 3.672156028560732*^9, 3.672156046580757*^9}}], Cell[BoxData["\<\"atoa[x] retorna o valor de entrada multiplicado por \ 2.\"\>"], "Output", CellChangeTimes->{3.672155953440626*^9, 3.672156047000757*^9, 3.6721576045129375`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "atoa"}]], "Input", CellChangeTimes->{{3.672155956820631*^9, 3.6721559578506327`*^9}}], Cell[BoxData[ StyleBox["\<\"atoa[x] retorna o valor de entrada multiplicado por 2.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.672157604592938*^9}, CellTags->"Info3672146804-7218964"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["atoa"], "Input", CellChangeTimes->{{3.672156064250781*^9, 3.6721560802308035`*^9}}], Cell[BoxData["atoa"], "Output", CellChangeTimes->{3.6721576046029377`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "atoa"}]], "Input", CellChangeTimes->{{3.6721559632406397`*^9, 3.672155964520642*^9}}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox["\<\"atoa[x] retorna o valor de entrada multiplicado por 2.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.672157604652938*^9}, CellTags->"Info3672146804-7218964"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"atoa", "[", "x_", "]"}], ":=", RowBox[{"2", " ", "x"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[Private`atoa], Editable->False]], "Print", CellChangeTimes->{3.672157604652938*^9}, CellTags->"Info3672146804-7218964"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Sin"}]], "Input", CellChangeTimes->{{3.672156000240692*^9, 3.6721560015606937`*^9}}], Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"Sin\\\", \\\"[\\\", StyleBox[\\\"z\\\", \ \\\"TI\\\"], \\\"]\\\"}]\) gives the sine of \!\(\*StyleBox[\\\"z\\\", \\\"TI\ \\\"]\). \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Sin"]}]], "Print", "PrintUsage", CellChangeTimes->{3.672157604702938*^9}, CellTags->"Info3672146804-7218964"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "Sin"}]], "Input", CellChangeTimes->{{3.6721560083207035`*^9, 3.6721560099707055`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"Sin\\\", \\\"[\\\", StyleBox[\\\"z\\\", \ \\\"TI\\\"], \\\"]\\\"}]\) gives the sine of \!\(\*StyleBox[\\\"z\\\", \\\"TI\ \\\"]\). \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Sin"]}]], "Print", "PrintUsage", CellChangeTimes->{3.672157604732938*^9}, CellTags->"Info3672146804-7218964"], Cell[BoxData[ InterpretationBox[GridBox[{ { RowBox[{ RowBox[{"Attributes", "[", "Sin", "]"}], "=", RowBox[{"{", RowBox[{"Listable", ",", "NumericFunction", ",", "Protected"}], "}"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[Sin], Editable->False]], "Print", CellChangeTimes->{3.672157604742938*^9}, CellTags->"Info3672146804-7218964"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1424, 818}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, Magnification:>2. Inherited, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3672147727-5360126"->{ Cell[10647, 345, 259, 4, 123, "Print", CellTags->"Info3672147727-5360126"]}, "Info3672146804-7218964"->{ Cell[34350, 1040, 124, 2, 81, "Print", CellTags->"Info3672146804-7218964"], Cell[34477, 1044, 812, 23, 43, "Print", CellTags->"Info3672146804-7218964"], Cell[35481, 1079, 122, 2, 81, "Print", CellTags->"Info3672146804-7218964"], Cell[35606, 1083, 810, 23, 43, "Print", CellTags->"Info3672146804-7218964"], Cell[37074, 1131, 203, 4, 84, "Print", CellTags->"Info3672146804-7218964"], Cell[37668, 1155, 203, 4, 84, "Print", CellTags->"Info3672146804-7218964"], Cell[37874, 1161, 810, 23, 43, "Print", CellTags->"Info3672146804-7218964"], Cell[38850, 1194, 456, 11, 83, "Print", CellTags->"Info3672146804-7218964"], Cell[39485, 1216, 456, 11, 83, "Print", CellTags->"Info3672146804-7218964"], Cell[39944, 1229, 517, 15, 43, "Print", CellTags->"Info3672146804-7218964"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3672147727-5360126", 40851, 1261}, {"Info3672146804-7218964", 40962, 1264} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 144, 1, 330, "Title"], Cell[CellGroupData[{ Cell[749, 27, 167, 2, 140, "Section"], Cell[CellGroupData[{ Cell[941, 33, 233, 5, 95, "Subsection"], Cell[1177, 40, 106, 1, 60, "Text"], Cell[CellGroupData[{ Cell[1308, 45, 335, 9, 60, "Input"], Cell[1646, 56, 211, 5, 59, "Output"] }, Open ]], Cell[1872, 64, 158, 2, 60, "Text"], Cell[CellGroupData[{ Cell[2055, 70, 708, 20, 99, "Input"], Cell[2766, 92, 674, 18, 97, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3477, 115, 296, 7, 60, "Input"], Cell[3776, 124, 1195, 30, 486, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5008, 159, 295, 6, 60, "Input"], Cell[5306, 167, 1007, 27, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6350, 199, 121, 2, 60, "Input"], Cell[6474, 203, 97, 1, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6608, 209, 172, 3, 60, "Input"], Cell[6783, 214, 250, 6, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7070, 225, 340, 9, 60, "Input"], Cell[7413, 236, 144, 2, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7594, 243, 173, 3, 60, "Input"], Cell[7770, 248, 344, 10, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8151, 263, 170, 4, 60, "Input"], Cell[8324, 269, 118, 3, 59, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8503, 279, 101, 1, 140, "Section"], Cell[CellGroupData[{ Cell[8629, 284, 179, 3, 60, "Input"], Cell[8811, 289, 132, 1, 59, "Output"] }, Open ]], Cell[8958, 293, 145, 2, 60, "Input"], Cell[CellGroupData[{ Cell[9128, 299, 128, 2, 60, "Input"], Cell[CellGroupData[{ Cell[9281, 305, 1363, 38, 98, "Print"], Cell[10647, 345, 259, 4, 123, "Print", CellTags->"Info3672147727-5360126"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10955, 355, 96, 1, 60, "Input"], Cell[11054, 358, 142, 3, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11233, 366, 208, 4, 60, "Input"], Cell[11444, 372, 1218, 31, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12699, 408, 147, 3, 60, "Input"], Cell[12849, 413, 157, 2, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13043, 420, 202, 5, 60, "Input"], Cell[13248, 427, 148, 3, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13433, 435, 160, 3, 60, "Input"], Cell[13596, 440, 166, 2, 84, "Output"] }, Open ]], Cell[13777, 445, 462, 12, 60, "Input"], Cell[CellGroupData[{ Cell[14264, 461, 129, 2, 60, "Input"], Cell[14396, 465, 13420, 385, 498, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27853, 855, 193, 3, 60, "Input"], Cell[28049, 860, 241, 3, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28327, 868, 158, 3, 60, "Input"], Cell[28488, 873, 215, 3, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28740, 881, 142, 1, 95, "Subsection"], Cell[CellGroupData[{ Cell[28907, 886, 334, 8, 60, "Input"], Cell[29244, 896, 2169, 49, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31450, 950, 135, 2, 60, "Input"], Cell[31588, 954, 2259, 62, 270, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33908, 1023, 107, 1, 140, "Section"], Cell[34018, 1026, 165, 4, 60, "Input"], Cell[CellGroupData[{ Cell[34208, 1034, 117, 2, 60, "Input"], Cell[CellGroupData[{ Cell[34350, 1040, 124, 2, 81, "Print", CellTags->"Info3672146804-7218964"], Cell[34477, 1044, 812, 23, 43, "Print", CellTags->"Info3672146804-7218964"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35338, 1073, 118, 2, 60, "Input"], Cell[CellGroupData[{ Cell[35481, 1079, 122, 2, 81, "Print", CellTags->"Info3672146804-7218964"], Cell[35606, 1083, 810, 23, 43, "Print", CellTags->"Info3672146804-7218964"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36465, 1112, 269, 5, 60, "Input"], Cell[36737, 1119, 182, 3, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36956, 1127, 115, 2, 60, "Input"], Cell[37074, 1131, 203, 4, 84, "Print", CellTags->"Info3672146804-7218964"] }, Open ]], Cell[CellGroupData[{ Cell[37314, 1140, 98, 1, 60, "Input"], Cell[37415, 1143, 75, 1, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37527, 1149, 116, 2, 60, "Input"], Cell[CellGroupData[{ Cell[37668, 1155, 203, 4, 84, "Print", CellTags->"Info3672146804-7218964"], Cell[37874, 1161, 810, 23, 43, "Print", CellTags->"Info3672146804-7218964"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38733, 1190, 114, 2, 60, "Input"], Cell[38850, 1194, 456, 11, 83, "Print", CellTags->"Info3672146804-7218964"] }, Open ]], Cell[CellGroupData[{ Cell[39343, 1210, 117, 2, 60, "Input"], Cell[CellGroupData[{ Cell[39485, 1216, 456, 11, 83, "Print", CellTags->"Info3672146804-7218964"], Cell[39944, 1229, 517, 15, 43, "Print", CellTags->"Info3672146804-7218964"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)