(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 78255, 2474] NotebookOptionsPosition[ 67804, 2098] NotebookOutlinePosition[ 68164, 2114] CellTagsIndexPosition[ 68121, 2111] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Linguagem B\[AAcute]sica - 14/8/2014", "Subtitle", CellChangeTimes->{{3.5854806716017804`*^9, 3.585480684930561*^9}, { 3.6169462075042872`*^9, 3.616946210832691*^9}}], Cell[CellGroupData[{ Cell["Aritm\[EAcute]tica e fun\[CCedilla]\[OTilde]es comuns", "Subsubsection", CellChangeTimes->{{3.5854807042128243`*^9, 3.5854807143070984`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"2", "+", "2"}]], "Input", CellChangeTimes->{{3.5854793014681425`*^9, 3.58547930307761*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.585479304483924*^9, 3.6169462135985413`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"33", "/", "66"}]], "Input", CellChangeTimes->{{3.585479309874835*^9, 3.585479330282152*^9}}], Cell[BoxData[ FractionBox["1", "2"]], "Output", CellChangeTimes->{3.5854793315634394`*^9, 3.616946213661042*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"3", " ", "8"}]], "Input", CellChangeTimes->{{3.585479340345139*^9, 3.5854793437515907`*^9}}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.585479344892256*^9, 3.616946213661042*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"34", "-", "12"}]], "Input", CellChangeTimes->{{3.5854793495331106`*^9, 3.5854793519238873`*^9}}], Cell[BoxData["22"], "Output", CellChangeTimes->{3.5854793536739464`*^9, 3.616946213676673*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"2", "^", "4"}]], "Input", CellChangeTimes->{{3.585479357783537*^9, 3.585479361955652*^9}}], Cell[BoxData["16"], "Output", CellChangeTimes->{3.5854793632838173`*^9, 3.616946213676673*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"23", "^", "78"}]], "Input", CellChangeTimes->{{3.58547936453391*^9, 3.5854793666590185`*^9}}], Cell[BoxData[\ "16397257218987799102481750240435915127423202162980618558306068975244248784823\ 204354849013987593911694566769"], "Output", CellChangeTimes->{3.585479367846548*^9, 3.616946213676673*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sqrt", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.585479374925063*^9, 3.585479386628793*^9}}], Cell[BoxData[ SqrtBox["2"]], "Output", CellChangeTimes->{3.585479387316329*^9, 3.616946213692297*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sqrt", "[", "2.", "]"}]], "Input", CellChangeTimes->{{3.585479389691451*^9, 3.5854793943791904`*^9}}], Cell[BoxData["1.4142135623730951`"], "Output", CellChangeTimes->{3.5854793959573965`*^9, 3.616946213692297*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/", RowBox[{"Sqrt", "[", "8", "]"}]}]], "Input", CellChangeTimes->{{3.5854793981137323`*^9, 3.5854794125363426`*^9}}], Cell[BoxData["0.5`"], "Output", CellChangeTimes->{3.585479414786459*^9, 3.6169462137079206`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", RowBox[{"Sqrt", "[", "8", "]"}]}]], "Input", CellChangeTimes->{{3.5854794185991545`*^9, 3.5854794301778755`*^9}}], Cell[BoxData[ FractionBox["1", "2"]], "Output", CellChangeTimes->{3.585479431927964*^9, 3.6169462137079206`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"E", "/", "Pi"}]], "Input", CellChangeTimes->{{3.5854794433348*^9, 3.5854794636796217`*^9}}], Cell[BoxData[ FractionBox["\[ExponentialE]", "\[Pi]"]], "Output", CellChangeTimes->{3.5854794652890644`*^9, 3.6169462137235513`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "N"}]], "Input", CellChangeTimes->{{3.5854794687111015`*^9, 3.5854794738051414`*^9}}], Cell[BoxData["0.8652559794322651`"], "Output", CellChangeTimes->{3.5854794748676677`*^9, 3.6169462137235513`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"E", "^", RowBox[{"(", RowBox[{"I", " ", "Pi"}], ")"}]}]], "Input", CellChangeTimes->{{3.5854794800554624`*^9, 3.5854794896184225`*^9}}], Cell[BoxData[ RowBox[{"-", "1"}]], "Output", CellChangeTimes->{3.585479491102874*^9, 3.6169462137235513`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"E", "^", "I"}], " ", "Pi"}]], "Input", CellChangeTimes->{{3.5854795044316845`*^9, 3.5854795116195817`*^9}}], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", "\[ImaginaryI]"], " ", "\[Pi]"}]], "Output", CellChangeTimes->{3.585479513135256*^9, 3.616946213739174*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Exp", "[", "3", "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.5854795415429635`*^9, 3.585479575263444*^9}}], Cell[BoxData["20.085536923187668`"], "Output", CellChangeTimes->{{3.5854795558718247`*^9, 3.5854795762634945`*^9}, 3.616946213739174*^9}] }, Open ]], Cell["\<\ %, %%, %%%, ... identificam o \[UAcute]ltimo, pen\[UAcute]ltimo, antepen\ \[UAcute]ltimo, ... resultado %n identifica o resultado em Out[n] \ \>", "Text", CellChangeTimes->{{3.585482725629053*^9, 3.585482809992757*^9}, { 3.601997462140052*^9, 3.6019974622650623`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Definindo vari\[AAcute]veis", "Subsubsection", CellChangeTimes->{{3.58547956202839*^9, 3.585479563544118*^9}, { 3.5854807275733814`*^9, 3.58548073998027*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", "12"}]], "Input", CellChangeTimes->{{3.5854800365608535`*^9, 3.585480048655224*^9}}], Cell[BoxData["12"], "Output", CellChangeTimes->{3.585480052639782*^9, 3.6169462137548027`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sqrt", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.5854800612183676`*^9, 3.58548006943754*^9}}], Cell[BoxData[ RowBox[{"2", " ", SqrtBox["3"]}]], "Output", CellChangeTimes->{3.5854800714845204`*^9, 3.6169462137548027`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "N"}]], "Input", CellChangeTimes->{{3.585480080047431*^9, 3.5854800916574316`*^9}}], Cell[BoxData["3.4641016151377544`"], "Output", CellChangeTimes->{3.5854800941419334`*^9, 3.616946213770425*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", RowBox[{"2", "x"}]}]], "Input", CellChangeTimes->{{3.5854801230965137`*^9, 3.5854801333626957`*^9}}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.585480136972227*^9, 3.616946213770425*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", RowBox[{"2", "z"}]}]], "Input", CellChangeTimes->{{3.585480149269732*^9, 3.5854801539262457`*^9}}], Cell[BoxData[ RowBox[{"2", " ", "z"}]], "Output", CellChangeTimes->{3.5854801555981827`*^9, 3.6169462137860613`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "+", "y"}]], "Input", CellChangeTimes->{{3.585480158598336*^9, 3.585480162457909*^9}}], Cell[BoxData[ RowBox[{"12", "+", RowBox[{"2", " ", "z"}]}]], "Output", CellChangeTimes->{3.585480164301753*^9, 3.6169462137860613`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "+", "z"}]], "Input", CellChangeTimes->{{3.585480171911529*^9, 3.5854801746460643`*^9}}], Cell[BoxData[ RowBox[{"3", " ", "z"}]], "Output", CellChangeTimes->{3.58548017573987*^9, 3.6169462137860613`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "+", "z"}]], "Input", CellChangeTimes->{{3.5854801860841217`*^9, 3.5854801896468344`*^9}}], Cell[BoxData[ RowBox[{"3", " ", "z"}]], "Output", CellChangeTimes->{3.5854801911937604`*^9, 3.61694621380168*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{ RowBox[{"3", RowBox[{"x", "^", "2"}]}], " ", "+", " ", RowBox[{"8", "x"}], " ", "-", "7"}]}]], "Input", CellChangeTimes->{{3.5854807462305827`*^9, 3.585480757543672*^9}}], Cell[BoxData["521"], "Output", CellChangeTimes->{3.585480759981287*^9, 3.61694621380168*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.5854807634345903`*^9, 3.5854807657941136`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{ RowBox[{"3", RowBox[{"x", "^", "2"}]}], " ", "+", " ", RowBox[{"8", "x"}], " ", "-", "7"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"-", "7"}], "+", RowBox[{"8", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], "Output", CellChangeTimes->{3.5854807755133624`*^9, 3.6169462138173046`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "/.", RowBox[{"x", "->", "2"}]}]], "Input", CellChangeTimes->{{3.585480780169826*^9, 3.5854808002489853`*^9}}], Cell[BoxData["21"], "Output", CellChangeTimes->{{3.5854807875139513`*^9, 3.585480806561804*^9}, 3.6169462138173046`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "/.", RowBox[{"x", "\[Rule]", RowBox[{"a", "+", "3"}]}]}]], "Input", CellChangeTimes->{{3.585480813015259*^9, 3.5854808216875887`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "7"}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"3", "+", "a"}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"3", "+", "a"}], ")"}], "2"]}]}]], "Output", CellChangeTimes->{3.5854808233283157`*^9, 3.6169462138329363`*^9}] }, Open ]], Cell[TextData[{ "TODAS as fun\[CCedilla]\[OTilde]es e vari\[AAcute]veis internas do ", StyleBox["Mathematica", FontSlant->"Italic"], " t\[EHat]m nomes que come\[CCedilla]am com mai\[UAcute]scula.\nPor isso, n\ \[OAcute]s, usu\[AAcute]rios, vamos come\[CCedilla]ar os nomes de nossas vari\ \[AAcute]veis com uma letra min\[UAcute]scula;\nh\[AAcute] regras de \ prioridade para hom\[OHat]nimos, mas s\[ATilde]o complicadas." }], "Text", CellChangeTimes->{{3.5854828511198654`*^9, 3.585483031941638*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Um pouco de opera\[CCedilla]\[OTilde]es simb\[OAcute]licas", \ "Subsubsection", CellChangeTimes->{{3.585481077169448*^9, 3.5854810901076326`*^9}, { 3.5854811318285227`*^9, 3.5854811336410975`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.5854808335475616`*^9, 3.5854808915505414`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "7"}], "+", RowBox[{"x", " ", RowBox[{"(", RowBox[{"8", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.585480838985339*^9, 3.5854808487515364`*^9}, { 3.5854808814562798`*^9, 3.5854808925037394`*^9}, 3.616946213895446*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Roots", "[", RowBox[{ RowBox[{"f", "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.585480895878895*^9, 3.585480923270926*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "-", SqrtBox["37"]}], ")"}]}]}], "||", RowBox[{"x", "\[Equal]", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", SqrtBox["37"]}], ")"}]}]}]}]], "Output", CellChangeTimes->{{3.5854809192550926`*^9, 3.5854809240522346`*^9}, 3.6169462139110622`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{"f", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5854811368756256`*^9, 3.5854811433447185`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "7"}], " ", "x"}], "+", RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}]], "Output", CellChangeTimes->{3.5854811455010796`*^9, 3.616946213926694*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"%", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5854811499700756`*^9, 3.5854811586580253`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "7"}], "+", RowBox[{"8", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], "Output", CellChangeTimes->{3.58548116067375*^9, 3.616946213926694*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5854811769870615`*^9, 3.585481191456563*^9}}], Cell[BoxData["250"], "Output", CellChangeTimes->{3.5854811922534947`*^9, 3.616946213942316*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["f"], "Input", CellChangeTimes->{3.5854812247395196`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "7"}], "+", RowBox[{"8", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], "Output", CellChangeTimes->{3.5854812254739237`*^9, 3.616946213942316*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.585481234911909*^9, 3.5854812476156993`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVzGs0lHkAx3EScs14yk6GTJvdhEQirPX/dUEKSazmyYpQyu1EpZYSFkuk TeW4dUEqMrXSLl30FBVjxrEptJVERsQxmkTjMrv74ns+775LdkV7h85RUFDw +K//LT62S8UqJN6prXhNs1zOYc7Tww5+XB5Bda8sUsphXnpkxnC5e4k1zT/S JeYwca48bWXuEVIWciWgRMRhXBrhP2GUQW4Ec5+oFXKYquTVKRKjfBKhbqGx zIbDvAvi640YXSNJsr8iC3frM/FbwwM/GtURdmjamfB6NqP2tbA5wkJAHHVa z3RLFzD7HyVmDce0k2bDQ9WdpizGoiz37xr+S5JnmfvzYKw60+8ZZvDWrofY iq+UegYrMnn6aYaXAvtIjk1ad3mf5IF9TO0NJaGYXJ2Mn60IFpKGzkKv6GVD RCCwSPiOP0mssmad2G4jxO5g2XX16ypwFTu8tfSTkHnP6bCcVSwMrPjT+fPw GLGfL3v4YlAP8dMZ1vd+kZLHGR8fvqw3gCrrw14f03FSM1chaXnFEiiLlF01 7n8hw7KVyRteGWOqtSri9P5J4pOUeCg1xgT9fvxFixfLiL95iMYHfXOs/S0q sqlqirD8pUNHS1bi7Gyt2vqdM+R4liSypcUKOwwa3F9LZ0nYNUgMa6yhyZgN f+urgEfpEh2zDhuE2pSM88wVYeJVlREqX4O4Y4e9ueOKcGESw4S6Dkgdym1v bZ2DVaKmiovBjnA3nX9Vs0AJ7ermBS1FTsiusmXcg+bCseTZmnsRgGBb6fQB e2X42HWo5FWuBSOKzjJXUoHjoaOxr1+vQ/W+JAjfqMDZ6ldmieUGLN5M7KJq VCFe9Upam+qM9XL/lAsJ8zCrPGE72uKCkI4Hn2p91dB/6V30jM1GOCUl3w7i qsPWJyyFyXHD6eixu5oD6lDqHNFVHNqE3uOXxRfqNRBf+cdM/153fAytC3mU rokOfTNPptMDkkhdVVGQFszLf9hTF7EFfLeW6d0rtPG+UnNrQJwXxGGWtkrj 2vgQ8U22i91W6Ff+k5sumo8sv9LIy1reSAmMKRFt1gGbnXT+apc3JqYXZW+u 00FU47nUntptMLmbly8wZmGU21Pmmu8Dm+DHW1gZLNj2hQ9GRPmCKVrIFo6z sG2mw/cW7yeYMAszPXfowrjBIX+dvR88lIcNn9XrYrLR6bAeezskr943NJtS cL7WzP6kxUN0UTaVkUMh60vdftsJHoSKxqObfqewwGz1Ea8pHkz33BFo5lJo fSAQ7JPz8N5qIOnUOQpP1DzcL6rS2P4UkrxiCm+Mypu02TTWfZIKyysp3PCp KP9qR0NvI53W+JSCsEc2oRJPI7ZKEpTW/N+fo7jeNJFGm276jxtbKGTeXtrl kULjxJtbn1taKczRqO85e4KGQqxWcPsLCnp2ruHLi2gMFTOkt49Cd0FlaMB9 Gq5KfpyyfgoqXXHeaQ9plIWNfAkdoEAfDMzgP6ax01qfPzhE4XRb2gu5iMbz pliDsTEKS9VMBi5307CyUJ+sllK449pp3NZL42TuxfYD4xQSxSXXZWIabgGi zMlJCmc25BR4jdIobwjefUdGoU/ppkKClMbc5bK1CdMUdi0duXllgkbQyVOG TrMUNEtdKtunaNRLv/8ql1PoT743KpfT+BfRr0Ce "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{0, 5}, {-6.999999183673438, 107.99999612244899`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5854812490063815`*^9, 3.616946214989277*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x", "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5854812743201895`*^9, 3.5854813043529987`*^9}}], Cell[BoxData[ RowBox[{"x", "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"], "+", SuperscriptBox["x", "4"], "+", SuperscriptBox["x", "5"]}]], "Output", CellChangeTimes->{{3.5854812913679304`*^9, 3.585481305649911*^9}, 3.616946215239298*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x", "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.585481327854206*^9, 3.5854813314481125`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox["x", RowBox[{ RowBox[{"-", "1"}], "+", "x"}]]}]], "Output", CellChangeTimes->{3.5854813349951715`*^9, 3.616946215301812*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Exp", "[", "x", "]"}]}], "\[Equal]", "3"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.585481375278516*^9, 3.5854814819402385`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "1.1076678698214135`"}], "}"}]], "Output", CellChangeTimes->{{3.5854814053737793`*^9, 3.585481484455984*^9}, 3.61694621531743*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Exp", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5854814964878397`*^9, 3.585481520051567*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlnk4Vd8Xxmkwc8+lUCFJpqIUvpTaiNIgQxMqSaakokKkQhkSiSLzmOG6 N1FKImsXmcrsliFDGUJm915j9Tu/v87zec5a5+xn7fd9995gd8XCYRkXF9cv bi6u/z/LZhTm//0TwwdTDjg5hqbCTvOwhUt/xfB/Akli9yJT4U3e1GLnkhiG VO7xtNhUyLtQ+rdoXgzruP3a1J2VCsk95ivcZsSw4YZ9bpblqXDrsy+ld1AM O+9M/G6xlAq6Gc2bcJ0Y7tSyMrC4nAbvLG5b+CWI4W1PHrEJi3TQln0VF6Ym hi+f0TB32/kMOpZr/9dULYrfj9KLvWcyAT4NvlzlIIq1dYxeBD7IBgXOVan+ OSo+OvHk0D9pGug5Xd1lNkvFlm1sAd+NNLBuc7cuZVPxv+JVL9hKNHj4zi32 yTQVx5Xui+3ZQYPZ25dXGY1SsbXBicjwAzSo5nURyuqh4pePT6mbXqfBxTXn lpwqqTjB8vp98yoaBIXarmutoOIFF3kb+y80SF08u1OvnIqzL5rRrzXRoLXL 5oYkpuJC5qG04E4a6KafZlUXU3H9yZ/x9yZoILLZclT5ORXvTqUVN4jnQr6u 6fffj6m4n1osEWWXC/c28mzWiqLirTpSHyKccsFS4L233yMqpnr8wCGuucDd piKxOpyKM8ePFrh65oLFNR6LPUFU/Kn2G3Pxfi7M0N5XPbpBxaPxDUo78nNB S2LLK80zVKyxeTR0YC4XBP7+5PY7RcW5JRmE0Z9c6O6PM6u1ouKvJzQtU7jp EPySd9zmBBWfHl1aYyhAhzaTPqUQUyrWNHbvM1lHB+978ckd+lT8h/+MvY0u HUqn+ELvKJD/n+iIMPehA7+fdmuTPBXfqWwcHb9FhxMizjLyG8nvWa7KCfKn w5RK1cvq9VRc8ZRfMTOEDgr2gZ3UNeR8pqmfkmLo8Ogrt+ozQSpefkrX3buA Dl326l4cfiqWqLMPeldIB5UZ2w/GfFRc8sv9BbuIDp8o+PjYCire9N1HxbqM DgvGt29r/SUw5VKLXmctHexLFhqqJwlc9ulZQ/FPOhQcUFm7boLA+S6R43ED dPj7zcr+0hiBzw5PMK8N0SGO9XaOOkLgnMFlv1eN06Fe1WvDqT4Cn/9oQhOc p4N26szVMSaB14mUHKgSZkCg2sb3qJXAG32+vtInGNBcasEb1UxgLjYn7rUo Ay61FyRoNRD45SHBqvsSDEgXdau4U03g1zYM6T5ZBggGjq4WLSH7XXXvHt/O gPyjHvr+xQSOdUxXMNBgwAm5v66TRQS+2V7UqaRF9gOlor6QwAc7FC/26zBg 58L2qw/yCPyrwStfTJ8BvdUlSQsMArtEFl9tNGBA0FPDmgt0Apv38ioGGzKg SeOErHEOgfdPjh7/uZ8Bzle861ekE3jsVu4Z0yMMENmzbOFaKoGdkxT0O00Z UCj0YFNfMoG7dAc4tuYM+EdL9P2QQGCdQp0aq2MMiOkHldvRBM7cEh7HZc2A Ciue4NkQcr1Nly+st2eAi1LES8dgAou7lEbuc2AAMSvRzQwksFzTgcNOjgw4 9URZszCAwHM6hHO0MwOm6w/3ufkSWNs7oybDlQGxSUyRXh8C7zI8JPb0EgP2 uNrsNPUm8GzZn/q7lxkQyu8WqepJYMNgm7ADbgzYYPgYjVwh8G8K53ngNQZU ikpdtLpM4OyHXeKG1xng+uNZTLUrgUWCfZoWSX57+81Y1gUCP1BJ23zSkwE2 JmiNuDOB4+so5Qskr5CqNgx0JPD2738SnnoxwKy4PeH8eVI/0tLL3t9gACfY rqr5HIG3pG4NNvJmQOKJ39P6tgQ+vPXe7iqSDTZdlymwIfDMcYENBj4M+DWz dED2DIHb1QpU35Ac9jHQI+IUgV0dnM5uvMmA7ZEiaX+tyP3UWvfyPsm31WTn vp8gsOTt7bn6vgzovmp7VOU4gZW8WtviSN5TlJrndZRcz6XYnmGSkxd7+T+Z E3jF2UPF6rcY8AdtcBA1I3DA22Jbd5JP3zuHzx4hMJ/Vi8Yckkur09Y9P0zg oKjZ5W0kSwn/9Fw4SGCPzWfYf0n2NZdr3n+A9Idtbor0bQZ8j7ZTjd5P6mMg 588OknU70kN+GhG48dcGAQOSE2X6+rYaEtib0g37SV6y24huGRDYxy9zjRHJ p7PPx9fqETjjOxLdSXLp7wy2BCIwr9H1ZwokS23rN3PYTeD7p/g/C5B887o8 4+UuAnsZfvIbJNfT8dael2sngXlyLuFiknf+eWZnok3giVdV9+6RHK8/8D5e i8Dc0rHV+0heCNy0ZkiDwHmyGUFcJFvXOlzX3EHqNYhRXEDO651IVkOAOoEv pHudtiZ57dFBlcatBO45VnVhgZy/z1OFIGk1ArOEbb5HktzR6fjDZQuBlev/ 5MmSvFM2W/etCukHJefvWeR+xtv/erpSmcB0A5uz8iTP5yjOWCgS+EZ76vY4 Ug+WY05HUjcRmIYmzVaS/FY9hza2kfSfrdBrZ1JPN94p2YbIEpgRkqOzmtRb 21/nEqYMgZPcskxtSD1q76WJb5QmcHe7a0yyBwNmPyvXvV9D+rvpYNoKUs8n CBclQUkyf4y7rFVI/b85lnvXUpzApqvUtu2/ygDPLpWdM6IErstcknQk/fJ1 w8VoPSo5n4jpDc5XGKDlSJ8Mp5D6W/dU/RzpL8745mwlIYI8z9pMtUk/enCp rrJZSfrpYxbL24kBrYaXrtCXEzh38WbKDtLPGvef185xE/jx/SaFftL/QxtP L1P8Q8Exyj9eK9uR+t9HznGCgv253uvvO82ArIbuqC2jFHzZ9IPuGzI/HC3P HqgaouAnGTwjUlYMGLxg+2bpBwWHO2/bV3+cAf1hdo+cWim4tnDeDZN5dTwm ml+3iYJ5yp2NVpqQfk+pDiDqKVjS8X67/iEGZL9U8yiuouD6uOyt6WTeubQt WAmWUHDDdO3af4gBkxsfb3yRRsG3Vy8oKmxlwDnVysS7yRS8sOPTdP8WMs+1 5ldbJlCw2ilL7QQVBrw6cJaPO5qCjXXj5cY3kfO8snnMIoSCUzb2LWyRIvX+ rvwN5zIFD45pswV4yfyv4Gz9fJGClw84OKEVpH/rlGkpzuR65J0pF7kZAL0R CcZ2FHw2KX8ie5EOATyn/eKPU/C+7IIbRRN04LNgHdijS8Gu029+KX+lg9iw fFcgPwXfj6xasyeRDp76B0xceCiYmRrxxT6WPK/jLr0/spyCaSIpIQFP6JB8 8E2SxB8RXBznLJQRRp6fjP02tEkRvJUV0OTlSwe9Ky49X76J4FMxATWu1nS4 zH7xQyxLBMvl+eg6U+jQZNJqPpcugldarjB2Ju8DGllzH76niODHPP86bVbS Yf6EfnpmnAje22EQvnWRvL+8bbb7L1wEv4tbeGYzmAsJN9l91tdFsFLwLpXJ d7lQzb1rMM1ABHeKnmNUnM6FFKP61wZIBOeLqNvynMgFz/vnAvt2ieDBylxL XdNckKeGyG/SFMHbHnosD9TPhTuyTLscRREsvy38Vcgm8n6DrvTkCYlgHo2X a47/psEz34y2kq/CuBM+CPVcosFNrJVzukUYW+xb+SzFgQYWK2q9/jQI4/Aj vr1Hz9CAK2xSHNUI43JbK82nh2lwKmH38Y8lwlih+MynEBUaiL771lSdKoyN k6u1xPpzwH9W8DPTRRgXcz23zTDJAf5S8zP5TsL4baM3y8swByL9nk6E2gvj 4bpepL8rB9L4N67SsxHGSV9Xjhco5cCHdTvP5JoL40PcmbsEl+cAt57zxG1t YWzokoPiX2eDf0iFmBKPMP7PwXQvRTQb+E0EspYtF8bHtETsrvFmQyTVTLvr nxDuG/xR9nkpC9LiO09HzQthZD+y0epXFnxgTGcujQrhC6ySHYMlWcDdJKvd 1CKEN/wq2lZplwX+a26d9kkTwqw9OVL3sjPhdo36EWqyEG7+77K0fXwm+HgP opx4IUyU5VVohmfC1XbTjV8fC+EChWTW86uZYBcnN6IeJITPkWOd0s0EgzXV XsMuQjis9JAzrn8Gy9eIPbbUEMLcH+XKbH9lQKAkrUarShD3xl5fKv2dBtcl TF92lQvi/Y+pmTs608BOnB1/DwvibP3Vngm1abBnlb5rc7Eg3i76NmAPLQ04 lHaRywxBfOdkZ2+TQxo48/Ify4wUxFuV7MJVvqfCQY5zt9hpQWzxt/Gw+M0U IFqVZiYnBXCEX8Wb5Gfx8OKof3LTmAC+skn4Ne12PBxpaT/wckQAe3J2ecRZ xkN4c2jqtX4BrFf7QUlRKB4EmkZNON8EMJ/j184F9zhYUZ+fs1gmgFkFrnfu aMfCfJW2DU+4AK7tJEx68qPhZ4lxzTplARyzbypf8sgjeOu38aaNGT82S7w5 rl7nDEz35HZqEB9WCf+TJ2kYhDioVawrlxfnBkckGGQkoqTaMwJZLTy4X2y4 yGgqGz3wD37eI8CDx2Dn7z8D+ejWatct6uorcY/i55K552/QG+bkyRmHFfjz yomAS26lyMOiBr1KXo7n8zqi/dU+IG3G6eUPKpdhu3qr2t/+Fchg+6NrLUvc WF7GKmAVvQqZRd+GHXLc+LVWTECexGfUX4irIg9x4d1MVRniXD26zb1vHvP8 g9A7Quf+ZjUi3aN+ax8e+wP3jyZluss0o5A/C090YRF2rR4WMj3egsSDqnR5 ixfhSuOUTpFVC8oQedLf9HIR9quKukvZtKCy9aoaTlmLEPfNe6bLsQXN6J9t iQxfhO3Oy5btvtGCbILKqb9OLYKiUKXIhfgWpEEJexg5twD6wiqqTt9b0Men llqnpxdAZO2B1xd7W5Cp7KZuhdEFcPDy5bj2tyAX9TLV0p4FaGcsi3cYbUEp Rye/DFYuQGFihczWpRYkEHtMUDd6AdxH9IZl17WiXlnpkEH1BeA7p9N56UQr OuFXNa68eQGCJ8VzLKxb0ece9+OX5BfgE2dRZ4dNK3qTXCnHEl+ABxzh1F8O rShMyu0999I8FG79uE7aoxVpS5ZPS1XOQ9tlY563Ua3oEeXCmaPW87BsYK3T 09pWxHNFrCLm6Dx0vdKkjde1opv171U6Ds/Dwt3Kg/pNrcgxXHTOFs0D3eJ9 Stu3VqQrWBp1WX4e1msf0mnob0VDPJTq++Nz8Cjk4ZX2P61I72/hdhwwB553 EzUPb2EiybMVMl6+c3DGJOBRhxoTTUKLgJrnHOzPN3por85EKf7TPxMuzEGZ T7DzRS0m+rti22MvsznoViKOGuoxUakgfUZNZg6qTO50yh5loieu73oGJOZA T6Blt/NxJnKtq/mcSJ2DQuvBdfSTTLQuYihDYOUcMK+n6m88zUQ+ogrHBn/P gg/0TXy3Z6L/1qQVJhXPgnHhk7JrHkwk4pOfeuzVLMzypZa6ezHRYAeECT6f BbkieeKiNxPFJHbbe6fOAixTzjO9xUSs9VKrjwfPwjN73Xu995jopcJTD6Hj s6Qem8NkHjNRaHDWufIjs3BGa29N4xMmsht6beJjPAuiv7s0b8cwETW3ddPQ rlk4sM8upjaOidxURb+Wy81C4p0EDeVUJlLTCNe6OckBjcEtw4t0Jhq/6PMj d5gDLrvr6m49Z6K8DKewjp8cqPq2vHc+j6wXM/ipw+TADYte/94CJlKd5oTP FXNAgnHJ1amIiUaV+7WVXnGg58Xny+/eMhHjXFPfSQYHNnw1CuF9x0Rbmug6 RckceDR+lR1RSnK+7YDHXQ70pxy7aPWB7P9l8ijTlwNEwuZ2349k//pdu5ge HLAWkjCOL2eizRGrIzWcOXDpx0GZ8k9MpHK5VnfmMAe40y7bfqlhopHMol9y +zgQck3+AdQyUW7XsygLxIFsSds0xmey3uTOUIE6B8xGKgOv1zGR8haNJ27i HHhteaL/XSMTDZ3fgFIpHGCHbdtwq4mJchJERhr4ODD13F9Dp5mJlASH0dZF NhylKbUmt5D1Bl9HbFhsEPp89JRxK1nvUx79cIwN4ldS836TrDSS9Hushw1p l2xfrP9K1m94ECPdzobzZu9O5pOcY3VD36SZDZNfln3c+Y2JFGssnjIq2ODc bdis20bqg0vP4Pt7NlgztK4VkpylrTomWMQGzXDeL5vamUghh3fvRRobtjWY JrBJHuxhjcWns4HrQZPQsQ6yXuJnbG0CG3aK79/CINnRtGHvwhM2bHbYNfuH ZIXg0nHlh2xQ/Ljr4oFOsr+MFmcVzAbJpm+BD0nO4sQY3vdjg8zjNMM6kh3V 7k289WaDkotq5srvTLTJ0T1+6CobQqREM/8juT/JxkjSlQ0pbUP650l+xjw0 ud+BDde0TbxDSLYX1knwsiHnZ9RlnE2yvJHCvuyTbPC/qZMH/+/3FZv6asaG proV2U3/7y/kSuQ5yAZLWv+2rv/3j47t09rLBuq834Gf/++X75xy0GXDI+V7 470k7zujKsevxYbd244w20l2jrljwdjKBj76Gsk6kkMbmgJMldmwXojn9TuS GXzyr6bl2HD4rUZuOsn1+p590VJsSOevYd8jedKnWkxHnA1rLIaiz5EsWrjW 8DuF/H53cYg2yRpjrtfv8LPh86zjF36STyjAM7nlbLAdWnuWSc7rxlkq89MS C2SWlqEEkuNjz6+8wGHBqXtHXE6RXNr0WlNokgUHOtR6VpPcLcDn+GKYBVnn viXUkvvDZWgdY9HHggsPbiV7k2z05i8n9isLDn9Pv1xJ7rfzhJmibiMLitBT bXuSQ5UyTvbUsCCw/Jr+EqmX+vj9bze9Z8GPokG+dSRPtsQNVb9hwb2dyyvS SL2JCo9KuuazQJV3VZEcySfuPPJ+mcGCo6pae8RIfd54+5N2PIkFTZ+66wOY 5PqnNDrmYlhQvzn30Sip7+7z7TtRKAvcf0yk5pF+cDSWW/rsRvabp34aJf0U 4n99yxUXFqhfK85XJTn3XeVpUXsWvNMqBecGMm+2XHxveZIFoZ1Ce+tIP3pS C28P7GZBR/eel6akf2MP8rwI+Y8Fsh7zEedIf7+7a9mzWZ0FHA3OvUvVZH6z l9BVeRaYjj/Mu1bJRMEdRtz/BFjweW0+U5vMj1yxWPX0FSwIOdltsI7Mly+H R84Z/Z2B4IQ9JbPARAQ8/PhgagZGzUuqkt+T/8v4dleybQYONO9UzCTzK8f1 As/2zBmAsF2fIv+fh3uT5dnJMxD7raRiHYOJCte2GLyNnQFspsdOyWWiD9W6 d/aEzUD6yMX+mGwm6pAn5g5eI9+vutq+J42JhLreDJ/Xn4Htn0MkPB//X0+/ eRV3zQCrlycuPZI8vx7IKoxozICT7nKdmgjSXzqhdm5KMzBPV2tcEcZEe6LP dPpSZkCrZ2S3JnkeuJmsqIvumgat0WANn2vk/OR1flt+m4buWracsTsT+S5e 4pdqmobytbPriStMdJ/2zSi9YhqUaiUNHrowUfpKelkefRro17VE9p5jotb3 5vlV3tPwfGmtwEMTJtJWS3k8v3oa7vcpHXq2gcyL7wVumpRpGGBMnL8qw0Sr QytM3Pmm4Vmy8nmddUw0PTDMO7wwBaYTe0VfrmIiepKGb1vPFDyOlNtwhJeJ ZIRr7YtoU7C7Islv2+9WtGKUpemxewpmBjTUEp63ouk4XrECrSnwccleF0hr RT/2r50c3TpFziP1p1NmKyrLQLn2clOQ96JiSSKpFXmdCpU5xjsFl7tNbOXC WtFI7XreHU2TwD3gN9Tj3IoaaQfbJu0nIVftx+Z/Uq1I1urjzlSbSSgtvlVk JdmK3Pl2JplaTsIXr7sieWKtSNRJ2S7v0CSEjcfLGgq0ouPyfKMXt08C5Vbs z02zLahw94N/df8mQJj7vSVuaEFViv5H3mlOgP9W5Zrjvi3IOchNbI3yBHgZ yLNGPMn71sDZNi+pCVh4Yc7t496CDqfvsdNcPgGFFw5UBpL3v0apJY/8xnGo qm2XOGbWgjqoXklZF8dh892TzV/kWtD4outoVNoY3HjI6/RfeTOy5ZPc2vd4 DIL/7KYFlTajplXl7juCxsDcwWqs/nUzKlRdM9viMgaN633uHsxpRj5nP3Gv 1hiD1bceyI2HNSOecmmJp5WjYOIQJTV8rBlJh9brJ/z+DQVxCcugpwkdltz2 NENzBOQjuOwf/GhEQbapr3cojUDj4ffcJ9sbEc4hWsvXjkBAl3mcVFMj0tCZ Ivr/DUNzjvSnaNyI1lm/DJWvHQaDxCIfvZRGNJKgcTvTZhhijatafE41ouD1 Og7ZwUPADF2ppJ/SgD4qGOygtw/CIXubMlfTOnRssNXfo6gPgugBbpBYjThr jqIU814wzOPJD5ArRxf+ZNhIHOqAdY012zU6SpAEHW3oFm2F1G3ETOLal+iy x4f/emdb4GaAhMiF6QJUifYe+fm9BT5q5loeri1A11v33RzMaoETzvxRVj4F qPGPCXN8ZwscWuGqE9OZj0LNTt//Z9cMN4NuujKMXpD5cmNK9lUjaEdIO3wL y0XH8QLvxthGWGYPs2Z7cxEj1Fdm061GCDr5UlZwgYZOrfc7pLy/Eay89BL2 OtPQlUiRQ+ffNMCtpWWrv+7PQT+1Nr+6x1MP1uj5K/5VWajG3/5uVVYtwI43 wvwDaSh0w6NOp+u1MPwZfhO0NHTwQ8kOPgPyfZmbl92lNFTLJdZv3FUDKuJW Jf2cVFR754NhrVgN2MhFLvMQTkVfbsnw1PlVwfUK3RO+UYkoTPqgzaUjVTDg vCplr3wiOvze442wVBVcizMrfPEmAdUtfXE8UlQJxWEdxT5d8aj+5s2qhrFP oK6V9nhxexxq8G4LabaugF7xGK6sv9Ho0ZoVP64qVYCi/4ijfkI0MiveqiPG KYfTf8sqH2tHo8a5oOGjkeVgIyEuaefxBDV6aR5kVn2EzS/OvPg0G4WaPaIE 2zQ+wFbdX4/yZR+hqNVl528s+wCXK/VGHkVFIIvXwyWSjRj4PWdvHht4iFpY eq5WFzEoDlAzUyPCUc6v7rjXewECdKR4I2dDEb0vVqpEuhTUXpZ+4IgHIZuw f1qGz0tg2AKCz7kHIkLT0bxOtwTOzhZ1sOruIc+gHUE9p97B77wI2Yzwu8hA uX5iefxbyF3lfttP0R+xmzQEwpXfguEPi/HIx37kfS5BXry4CK6/3rd2iNsP iXxxtlJqewPvhwyZP2pvoY7Ly8sPi7+GtNzUpIJH3ihcwqWLmVkIIee7e4fC byA93Dhro1kIh87WK/ZFeKEsavIW92Ov4J31zt7d6R7IvVA7JjqqAJj6mr2W 3FeR/JmUfBm5Ajiyb3iFxyZ39G0lz+fsgnwoD1X/9fCIG/LJy/p3Le0FfP/5 UevV2UuIyupsLpVmwP3R2qf/nXVCnkY03gZdOoz6ez4Ym3NA32M8dX+cyoWH fc5fxJPsUY4ONWtlfA6knQxs+bfCDok86O6QKM6GOb4NXN3Vtuj6dzpFpS0L MvobwtvUziK9O/u8j4hnwp6N9fkMmjXKahTLs9V8BrucdOhpwZZISO7Hz6vH MsC0bTrD/eYJ9K3i5uGnUWnQMxG2WSbTAu0WP+BPK0gFTWZqkXanGdrXsMXV Ky0F8vZ+vXHM9AjqWmWHsHQiFF6dmJXmM0Y5RUs5/afi4URvQKy/khG6bv1U lD8+FphpGX7hngZI74+6r2pbDDC7th/kHkBIKPXLgLl4NDycjdDX0NmF2gyc TD2PPYZzWrYXto9ooWcD3MXxUZFg9/RHhM/cdtRD6BjdTouAoTLZFIkaNeR5 4rJklXQYFHw0l/l8RgmJJGb8psSHQMx2i+WUfDmU+aOtzFI8ELbfMI6r9F+H dBVFotKi/CErMVMuUk4MZbcH1bZK+4K/QcNyrvt86Kv9lJujuAe4SJpJn8pa 3MPfW6Q2Ke0K2Xed05uSh/bUj66ZVZA5DX9Fg1x4c6v3JN2241G3v1n2NvC4 0eGrvLv/B6fGBmI= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{-5, 0}, {-0.05565094201213489, 0.34160668542962563`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.585481509754145*^9, 3.5854815302395644`*^9}, 3.616946215348685*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Exp", "[", "x", "]"}]}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5854815661633387`*^9, 3.585481576445059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", "3.141592653589793`"}]}], "}"}]], "Output", CellChangeTimes->{{3.5854815683665447`*^9, 3.5854815776482773`*^9}, 3.6169462153643084`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Exp", "[", "x", "]"}]}], "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5854815952897987`*^9, 3.5854816180565715`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Element]", "Integers"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"C", "[", "1", "]"}]}]}], "||", RowBox[{"x", "\[Equal]", RowBox[{"\[Pi]", "+", RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"C", "[", "1", "]"}]}]}]}]}], ")"}]}], ")"}], "||", RowBox[{"x", "\[Equal]", "0"}]}]], "Output", CellChangeTimes->{{3.585481604649631*^9, 3.5854816191816497`*^9}, 3.6169462154893236`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"3", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"8", "x"}], "-", "5"}], ">", "0"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5854816972012825`*^9, 3.5854817477976017`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x", "<", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "-", SqrtBox["31"]}], ")"}]}]}], "||", RowBox[{"x", ">", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", SqrtBox["31"]}], ")"}]}]}]}]], "Output", CellChangeTimes->{{3.5854817198274145`*^9, 3.585481748703907*^9}, 3.6169462154893236`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Fun\[CCedilla]\[OTilde]es da estat\[IAcute]stica", "Subsubsection", CellChangeTimes->{{3.585482166803506*^9, 3.5854821812886047`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.585482190304691*^9, 3.585482220978141*^9}}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Erfc", "[", RowBox[{"-", FractionBox["x", SqrtBox["2"]]}], "]"}]}]], "Output", CellChangeTimes->{{3.585482202070911*^9, 3.585482221853177*^9}, 3.616946215504945*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "n", "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.585482234666334*^9, 3.5854823141548166`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "n"}], "/", "2"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "/", "2"}]], " ", SuperscriptBox["x", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["n", "2"]}]]}], RowBox[{"Gamma", "[", FractionBox["n", "2"], "]"}]], RowBox[{"x", ">", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.5854822406041393`*^9, 3.585482270465048*^9}, { 3.5854823044824467`*^9, 3.585482318295626*^9}, 3.616946215536201*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"6", ",", "p"}], "]"}], ",", "i"}], "]"}]], "Input", CellChangeTimes->{{3.5854823359371567`*^9, 3.5854824010811524`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], RowBox[{"6", "-", "i"}]], " ", SuperscriptBox["p", "i"], " ", RowBox[{"Binomial", "[", RowBox[{"6", ",", "i"}], "]"}]}], RowBox[{"0", "\[LessEqual]", "i", "\[LessEqual]", "6"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.585482351391074*^9, {3.585482386924145*^9, 3.5854824019405427`*^9}, 3.616946215551826*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Listas", "Subsubsection", CellChangeTimes->{{3.5854817885497203`*^9, 3.5854817983002195`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]], "Input", CellChangeTimes->{{3.5854818013316083`*^9, 3.585481813566631*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.5854818147072926`*^9, 3.616946215567452*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "=", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}]], "Input", CellChangeTimes->{{3.5854818172230387`*^9, 3.5854818276454487`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]], "Output", CellChangeTimes->{3.5854818290361457`*^9, 3.616946215567452*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", " ", "s"}]], "Input", CellChangeTimes->{{3.5854818311456285`*^9, 3.58548183269261*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", RowBox[{"2", " ", "b"}], ",", RowBox[{"3", " ", "c"}]}], "}"}]], "Output", CellChangeTimes->{3.585481833583252*^9, 3.616946215583082*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "+", "s"}]], "Input", CellChangeTimes->{{3.5854818374272003`*^9, 3.5854818385522842`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1", "+", "a"}], ",", RowBox[{"2", "+", "b"}], ",", RowBox[{"3", "+", "c"}]}], "}"}]], "Output", CellChangeTimes->{3.5854818395679607`*^9, 3.616946215583082*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "/", "s"}]], "Input", CellChangeTimes->{{3.5854818423805795`*^9, 3.585481844958867*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", "a"], ",", FractionBox["2", "b"], ",", FractionBox["3", "c"]}], "}"}]], "Output", CellChangeTimes->{3.5854818462714033`*^9, 3.6169462155987034`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "^", "2"}]], "Input", CellChangeTimes->{{3.585481849099675*^9, 3.5854818504122443`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "4", ",", "9"}], "}"}]], "Output", CellChangeTimes->{3.5854818512560606`*^9, 3.6169462155987034`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", ".", "s"}]], "Input", CellChangeTimes->{{3.5854818559906826`*^9, 3.5854818591314487`*^9}}], Cell[BoxData[ RowBox[{"a", "+", RowBox[{"2", " ", "b"}], "+", RowBox[{"3", " ", "c"}]}]], "Output", CellChangeTimes->{3.585481859990857*^9, 3.6169462155987034`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]], "Input", CellChangeTimes->{{3.5854818673974886`*^9, 3.585481881476362*^9}, { 3.585481918931408*^9, 3.5854819556989193`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", RowBox[{"2", " ", "z"}], ",", "z"}], "}"}]], "Output", CellChangeTimes->{3.585481957855253*^9, 3.616946215614439*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "y", "]"}]], "Input", CellChangeTimes->{{3.585481961636699*^9, 3.585481965355666*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]], "Output", CellChangeTimes->{3.5854819739185977`*^9, 3.616946215614439*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cross", "[", RowBox[{"s", ",", "r"}], "]"}]], "Input", CellChangeTimes->{{3.5854819762311983`*^9, 3.585481986216113*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "c"}], " ", "y"}], "+", RowBox[{"b", " ", "z"}]}], ",", RowBox[{ RowBox[{"c", " ", "x"}], "-", RowBox[{"a", " ", "z"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", "x"}], "+", RowBox[{"a", " ", "y"}]}]}], "}"}]], "Output", CellChangeTimes->{3.5854819902475414`*^9, 3.6169462156299567`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"{", RowBox[{"ax", ",", "ay", ",", "az"}], "}"}]}]], "Input", CellChangeTimes->{{3.585481996935388*^9, 3.585482019155301*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"ax", ",", "ay", ",", "az"}], "}"}]], "Output", CellChangeTimes->{3.585482022202305*^9, 3.6169462156299567`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", RowBox[{"{", RowBox[{"bx", ",", "by", ",", "bz"}], "}"}]}]], "Input", CellChangeTimes->{{3.585482024514926*^9, 3.5854820309996605`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"bx", ",", "by", ",", "bz"}], "}"}]], "Output", CellChangeTimes->{3.585482031765297*^9, 3.616946215645582*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", ".", "b"}]], "Input", CellChangeTimes->{{3.5854820357342787`*^9, 3.585482036812461*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ax", " ", "bx"}], "+", RowBox[{"ay", " ", "by"}], "+", RowBox[{"az", " ", "bz"}]}]], "Output", CellChangeTimes->{3.5854820377031007`*^9, 3.616946215645582*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cross", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.585482039703205*^9, 3.5854820440159564`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "az"}], " ", "by"}], "+", RowBox[{"ay", " ", "bz"}]}], ",", RowBox[{ RowBox[{"az", " ", "bx"}], "-", RowBox[{"ax", " ", "bz"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "ay"}], " ", "bx"}], "+", RowBox[{"ax", " ", "by"}]}]}], "}"}]], "Output", CellChangeTimes->{3.5854820450472283`*^9, 3.6169462156612086`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", " ", "b"}]], "Input", CellChangeTimes->{{3.585482135395614*^9, 3.5854821363800406`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"ax", " ", "bx"}], ",", RowBox[{"ay", " ", "by"}], ",", RowBox[{"az", " ", "bz"}]}], "}"}]], "Output", CellChangeTimes->{3.585482137255084*^9, 3.6169462156612086`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.5854831423066587`*^9, 3.5854831443536634`*^9}}], Cell[BoxData["ax"], "Output", CellChangeTimes->{3.5854831452443075`*^9, 3.6169462156768427`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.5854831489632797`*^9, 3.585483150932131*^9}}], Cell[BoxData["ay"], "Output", CellChangeTimes->{3.5854831516196356`*^9, 3.6169462156768427`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", "3", "]"}], "]"}]], "Input", CellChangeTimes->{{3.5854831530415845`*^9, 3.5854831544948125`*^9}}], Cell[BoxData["az"], "Output", CellChangeTimes->{3.585483155182349*^9, 3.61694621569246*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", "4", "]"}], "]"}]], "Input", CellChangeTimes->{{3.585483156432384*^9, 3.585483157776233*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Part", "::", "partw"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Part \[NoBreak]\\!\\(4\\)\[NoBreak] of \ \[NoBreak]\\!\\({ax, ay, az}\\)\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\ \\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \ \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.5854831584637384`*^9, 3.6169462157705994`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"ax", ",", "ay", ",", "az"}], "}"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]], "Output", CellChangeTimes->{3.585483158495003*^9, 3.6169462157862215`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.5854834936684384`*^9, 3.5854834986686964`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.5854834991531057`*^9, 3.6169462157862215`*^9}] }, Open ]], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " tem 4 tipos de parenteses:\n ( ) simplesmente define a ordem de execu\ \[CCedilla]\[ATilde]o das opera\[CCedilla]\[OTilde]es\n [ ] cont\[EAcute]m \ o(s) argumento(s) da fun\[CCedilla]\[ATilde]o\n { } cont\[EAcute]m os \ elementos de uma lista\n [[ ]] indexa um elemento da lista" }], "Text", CellChangeTimes->{{3.585482490648244*^9, 3.5854825918096695`*^9}, { 3.5854826474218907`*^9, 3.5854826701261787`*^9}, 3.60199753749016*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Aleat\[OAcute]rios", "Subsubsection", CellChangeTimes->{{3.5854831834650297`*^9, 3.58548321045081*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Random", "[", "]"}]], "Input", CellChangeTimes->{{3.5854832140134897`*^9, 3.5854832167323627`*^9}}], Cell[BoxData["0.03288452686355775`"], "Output", CellChangeTimes->{3.585483217779311*^9, 3.616946215801843*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.585483220732568*^9, 3.585483235170829*^9}}], Cell[BoxData["0.6822711841497955`"], "Output", CellChangeTimes->{3.5854832359520893`*^9, 3.616946215801843*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.5854832442025404`*^9, 3.585483247093312*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.9693319578918378`"}], ",", "0.008652858799463203`", ",", RowBox[{"-", "0.23852039874421926`"}], ",", "0.5107234538845238`", ",", RowBox[{"-", "0.5158934745172621`"}]}], "}"}]], "Output", CellChangeTimes->{3.585483248155841*^9, 3.616946215801843*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.5854833130966725`*^9, 3.58548333516033*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4416693260081449`"}], ",", RowBox[{"-", "0.18675655548136907`"}], ",", "0.7431490908324319`", ",", RowBox[{"-", "0.909220183058768`"}], ",", "0.010503487160202694`", ",", "0.32634119041811066`", ",", "1.4313700927387083`", ",", "0.11511391024693753`", ",", "0.4129624243801757`", ",", "0.004978354974482907`"}], "}"}]], "Output", CellChangeTimes->{{3.5854833311444745`*^9, 3.5854833361916075`*^9}, 3.616946215817472*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"6", ",", "0.5"}], "]"}], ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.585483341238742*^9, 3.5854833822252474`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "5", ",", "4", ",", "2", ",", "1", ",", "3", ",", "0", ",", "1", ",", "3", ",", "3"}], "}"}]], "Output", CellChangeTimes->{{3.5854833667244253`*^9, 3.5854833915538216`*^9}, 3.616946215833099*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Estat\[IAcute]stica b\[AAcute]sica", "Subsubsection", CellChangeTimes->{{3.5854834179770823`*^9, 3.58548342468055*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rn", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.585483432415304*^9, 3.585483447728608*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "20.036420446134105`", ",", "17.689715349593175`", ",", "21.21600887232374`", ",", "17.33585616888101`", ",", "24.164610765347852`", ",", "19.622408516439318`", ",", "18.319777088692057`", ",", "21.506827530709042`", ",", "21.2789282138349`", ",", "23.6987656084034`"}], "}"}]], "Output", CellChangeTimes->{3.585483449900596*^9, 3.616946215848734*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "rn", "]"}]], "Input", CellChangeTimes->{{3.585483452494459*^9, 3.5854834564477816`*^9}}], Cell[BoxData["20.48693185603586`"], "Output", CellChangeTimes->{3.585483457385324*^9, 3.616946215848734*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "rn", "]"}]], "Input", CellChangeTimes->{{3.585483459416708*^9, 3.585483466010771*^9}}], Cell[BoxData["2.343805453089353`"], "Output", CellChangeTimes->{3.58548346744837*^9, 3.6169462158643537`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", "rn", "]"}]], "Input", CellChangeTimes->{{3.585483469729739*^9, 3.5854834750268583`*^9}}], Cell[BoxData["5.493424001931386`"], "Output", CellChangeTimes->{3.5854834760112824`*^9, 3.6169462158643537`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rn", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"6", ",", "0.5"}], "]"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.5854834841367292`*^9, 3.5854835230449495`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "0", ",", "4", ",", "3", ",", "3", ",", "0", ",", "2", ",", "2", ",", "1", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.5854835279514737`*^9, 3.6169462158799787`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "rn", "]"}]], "Input", CellChangeTimes->{{3.585483530154686*^9, 3.585483533373602*^9}}], Cell[BoxData[ FractionBox["21", "10"]], "Output", CellChangeTimes->{3.5854835341392913`*^9, 3.6169462158799787`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "N"}]], "Input", CellChangeTimes->{{3.585483539608324*^9, 3.5854835439835467`*^9}}], Cell[BoxData["2.1`"], "Output", CellChangeTimes->{3.5854835447179313`*^9, 3.616946215895601*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox["Histogramas", "Subsubsection"]], "Input", CellChangeTimes->{{3.585483555812252*^9, 3.585483560906271*^9}}], Cell[BoxData["Histogramas"], "Output", CellChangeTimes->{3.616946215895601*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "rn", "]"}]], "Input", CellChangeTimes->{{3.5854835764226847`*^9, 3.5854835804541407`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6789999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6789999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {2., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{22.227481985588465`, 191.3521817453963}, {-9.151365756197464, 142.81269234743004`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {4., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{190.6021817453963, 359.7268815052041}, {-160.36542385982497`, 142.81269234743004`}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {6., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{358.9768815052041, 528.101581265012}, { 91.65800631288754, 142.81269234743004`}}], 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.12, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 6.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5854835810167017`*^9, 3.6169462160049887`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "100"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.5854835857825413`*^9, 3.5854836059711027`*^9}}], Cell[BoxData[ 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[{12., 0}, {14., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.07375900720575, 93.00350280224177}, { 118.1522218816292, 140.9634264629231}}], 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[{14., 0}, {16., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{92.25350280224177, 155.1832465972778}, { 85.06041500968833, 140.9634264629231}}], 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[{16., 0}, {18., 27}, "RoundingRadius" -> 0]}, ImageSizeCache->{{154.4332465972778, 217.36299039231386`}, {-157.61283538454472`, 140.9634264629231}}], StatusArea[#, 27]& , TagBoxNote->"27"], StyleBox["27", {}, StripOnInput -> False]], Annotation[#, Style[27, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {20., 22}, "RoundingRadius" -> 0]}, ImageSizeCache->{{216.61299039231386`, 279.5427341873498}, {-102.45982393130996`, 140.9634264629231}}], 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[{20., 0}, {22., 19}, "RoundingRadius" -> 0]}, ImageSizeCache->{{278.7927341873498, 341.7224779823858}, {-69.36801705936907, 140.9634264629231}}], StatusArea[#, 19]& , TagBoxNote->"19"], StyleBox["19", {}, StripOnInput -> False]], Annotation[#, Style[19, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22., 0}, {24., 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{340.9724779823858, 403.90222177742186`}, {-47.30681247807516, 140.9634264629231}}], 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[{24., 0}, {26., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{403.15222177742186`, 466.08196557245793`}, { 62.999210428394406`, 140.9634264629231}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26., 0}, {28., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{465.33196557245793`, 528.261709367494}, { 129.18282417227616`, 140.9634264629231}}], 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->{11.68, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{12., 28.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5854836065961075`*^9, 3.6169462163018875`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "100"}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.5854836260346055`*^9, 3.5854836326755705`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "t", "]"}]], "Input", CellChangeTimes->{{3.5854836364726706`*^9, 3.5854836465825615`*^9}}], Cell[BoxData[ 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[{12., 0}, {14., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.07375900720575, 86.09464238057109}, { 129.95126184746792`, 143.11068942444575`}}], 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[{14., 0}, {16., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{85.34464238057109, 141.36552575393642`}, { 55.49469638560093, 143.11068942444575`}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {18., 19}, "RoundingRadius" -> 0]}, ImageSizeCache->{{140.61552575393642`, 196.63640912730176`}, {-93.41843453813306, 143.11068942444575`}}], StatusArea[#, 19]& , TagBoxNote->"19"], StyleBox["19", {}, StripOnInput -> False]], Annotation[#, Style[19, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {20., 24}, "RoundingRadius" -> 0]}, ImageSizeCache->{{195.88640912730176`, 251.9072925006671}, {-155.4655724230222, 143.11068942444575`}}], StatusArea[#, 24]& , TagBoxNote->"24"], StyleBox["24", {}, StripOnInput -> False]], Annotation[#, Style[24, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {22., 23}, "RoundingRadius" -> 0]}, ImageSizeCache->{{251.1572925006671, 307.17817587403243`}, {-143.0561448460444, 143.11068942444575`}}], 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[{22., 0}, {24., 18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{306.42817587403243`, 362.4490592473979}, {-81.00900696115522, 143.11068942444575`}}], StatusArea[#, 18]& , TagBoxNote->"18"], StyleBox["18", {}, StripOnInput -> False]], Annotation[#, Style[18, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24., 0}, {26., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{361.6990592473979, 417.7199426207632}, { 67.90412396257877, 143.11068942444575`}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26., 0}, {28., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{416.9699426207632, 472.99082599412856`}, { 129.95126184746792`, 143.11068942444575`}}], 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[{28., 0}, {30., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{472.24082599412856`, 528.261709367494}, { 129.95126184746792`, 143.11068942444575`}}], 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->{11.64, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{12., 30.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.585483643957401*^9, 3.5854836473169484`*^9}, 3.616946216348777*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "t", "]"}]], "Input", CellChangeTimes->{{3.5854836500358377`*^9, 3.5854836520984488`*^9}}], Cell[BoxData["19.98540317632187`"], "Output", CellChangeTimes->{3.5854836528485103`*^9, 3.6169462163643913`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "t", "]"}]], "Input", CellChangeTimes->{{3.585483655582997*^9, 3.5854836604895215`*^9}}], Cell[BoxData["2.912841828756923`"], "Output", CellChangeTimes->{3.5854836611458087`*^9, 3.6169462163643913`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Round", "[", RowBox[{"%", ",", "0.1"}], "]"}]], "Input", CellChangeTimes->{{3.5854836670523653`*^9, 3.58548367403708*^9}}], Cell[BoxData["2.9000000000000004`"], "Output", CellChangeTimes->{3.5854836746152525`*^9, 3.616946216380021*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1271, 867}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->1.5, 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, 175, 2, 84, "Subtitle"], Cell[CellGroupData[{ Cell[779, 28, 148, 1, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[952, 33, 116, 2, 45, "Input"], Cell[1071, 37, 94, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1202, 43, 117, 2, 45, "Input"], Cell[1322, 47, 114, 2, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1473, 54, 117, 2, 45, "Input"], Cell[1593, 58, 93, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1723, 64, 121, 2, 45, "Input"], Cell[1847, 68, 95, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1979, 74, 115, 2, 45, "Input"], Cell[2097, 78, 95, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2229, 84, 118, 2, 45, "Input"], Cell[2350, 88, 202, 3, 73, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2589, 96, 123, 2, 45, "Input"], Cell[2715, 100, 103, 2, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2855, 107, 126, 2, 45, "Input"], Cell[2984, 111, 112, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3133, 117, 150, 3, 45, "Input"], Cell[3286, 122, 97, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3420, 128, 181, 4, 45, "Input"], Cell[3604, 134, 114, 2, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3755, 141, 116, 2, 45, "Input"], Cell[3874, 145, 134, 2, 61, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4045, 152, 120, 2, 45, "Input"], Cell[4168, 156, 114, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4319, 162, 167, 4, 45, "Input"], Cell[4489, 168, 111, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4637, 175, 143, 3, 45, "Input"], Cell[4783, 180, 171, 4, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4991, 189, 148, 3, 45, "Input"], Cell[5142, 194, 142, 2, 44, "Output"] }, Open ]], Cell[5299, 199, 281, 6, 74, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[5617, 210, 167, 2, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[5809, 216, 118, 2, 45, "Input"], Cell[5930, 220, 95, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6062, 226, 124, 2, 45, "Input"], Cell[6189, 230, 130, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6356, 238, 118, 2, 45, "Input"], Cell[6477, 242, 112, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6626, 248, 137, 3, 45, "Input"], Cell[6766, 253, 93, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6896, 259, 135, 3, 45, "Input"], Cell[7034, 264, 118, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7189, 271, 115, 2, 45, "Input"], Cell[7307, 275, 140, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7484, 283, 117, 2, 45, "Input"], Cell[7604, 287, 115, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7756, 294, 119, 2, 45, "Input"], Cell[7878, 298, 115, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8030, 305, 228, 6, 45, "Input"], Cell[8261, 313, 93, 1, 44, "Output"] }, Open ]], Cell[8369, 317, 128, 2, 45, "Input"], Cell[CellGroupData[{ Cell[8522, 323, 160, 5, 45, "Input"], Cell[8685, 330, 217, 6, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8939, 341, 142, 3, 45, "Input"], Cell[9084, 346, 125, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9246, 353, 171, 4, 45, "Input"], Cell[9420, 359, 317, 10, 46, "Output"] }, Open ]], Cell[9752, 372, 507, 9, 102, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[10296, 386, 206, 3, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[10527, 393, 135, 2, 45, "Input"], Cell[10665, 397, 310, 8, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11012, 410, 178, 4, 45, "Input"], Cell[11193, 416, 483, 17, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11713, 438, 155, 3, 45, "Input"], Cell[11871, 443, 240, 7, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12148, 455, 147, 3, 45, "Input"], Cell[12298, 460, 212, 6, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12547, 471, 206, 5, 45, "Input"], Cell[12756, 478, 96, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12889, 484, 71, 1, 45, "Input"], Cell[12963, 487, 215, 6, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13215, 498, 207, 5, 45, "Input"], Cell[13425, 505, 2630, 53, 346, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16092, 563, 232, 6, 45, "Input"], Cell[16327, 571, 270, 7, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16634, 583, 237, 6, 45, "Input"], Cell[16874, 591, 176, 5, 61, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17087, 601, 328, 9, 45, "Input"], Cell[17418, 612, 190, 4, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17645, 621, 321, 9, 45, "Input"], Cell[17969, 632, 11056, 192, 357, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29062, 829, 349, 10, 45, "Input"], Cell[29414, 841, 213, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29664, 851, 282, 8, 45, "Input"], Cell[29949, 861, 603, 17, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30589, 883, 280, 8, 45, "Input"], Cell[30872, 893, 467, 17, 65, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31388, 916, 141, 1, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[31554, 921, 216, 5, 45, "Input"], Cell[31773, 928, 251, 8, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32061, 941, 199, 5, 45, "Input"], Cell[32263, 948, 2090, 60, 101, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34390, 1013, 222, 5, 45, "Input"], Cell[34615, 1020, 1911, 55, 71, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36575, 1081, 101, 1, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[36701, 1086, 174, 4, 45, "Input"], Cell[36878, 1092, 149, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37064, 1100, 176, 4, 45, "Input"], Cell[37243, 1106, 149, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37429, 1114, 116, 2, 45, "Input"], Cell[37548, 1118, 195, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37780, 1128, 119, 2, 45, "Input"], Cell[37902, 1132, 221, 6, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38160, 1143, 117, 2, 45, "Input"], Cell[38280, 1147, 217, 6, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38534, 1158, 117, 2, 45, "Input"], Cell[38654, 1162, 151, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38842, 1170, 119, 2, 45, "Input"], Cell[38964, 1174, 172, 4, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39173, 1183, 225, 5, 45, "Input"], Cell[39401, 1190, 171, 4, 44, "Output"] }, Open ]], Cell[39587, 1197, 124, 2, 45, "Input"], Cell[CellGroupData[{ Cell[39736, 1203, 106, 3, 45, "Input"], Cell[39845, 1208, 149, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40031, 1216, 149, 3, 45, "Input"], Cell[40183, 1221, 415, 14, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40635, 1240, 175, 4, 45, "Input"], Cell[40813, 1246, 152, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41002, 1254, 177, 4, 45, "Input"], Cell[41182, 1260, 150, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41369, 1268, 117, 2, 45, "Input"], Cell[41489, 1272, 201, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41727, 1282, 149, 3, 45, "Input"], Cell[41879, 1287, 427, 14, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42343, 1306, 117, 2, 45, "Input"], Cell[42463, 1310, 227, 6, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42727, 1321, 147, 3, 45, "Input"], Cell[42877, 1326, 97, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43011, 1332, 145, 3, 45, "Input"], Cell[43159, 1337, 97, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43293, 1343, 147, 3, 45, "Input"], Cell[43443, 1348, 92, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43572, 1354, 143, 3, 45, "Input"], Cell[43718, 1359, 501, 10, 35, "Message"], Cell[44222, 1371, 223, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44482, 1381, 129, 2, 45, "Input"], Cell[44614, 1385, 96, 1, 44, "Output"] }, Open ]], Cell[44725, 1389, 502, 9, 159, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[45264, 1403, 110, 1, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[45399, 1408, 124, 2, 45, "Input"], Cell[45526, 1412, 111, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45674, 1418, 196, 5, 45, "Input"], Cell[45873, 1425, 112, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46022, 1431, 224, 6, 45, "Input"], Cell[46249, 1439, 317, 6, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46603, 1450, 228, 5, 45, "Input"], Cell[46834, 1457, 504, 10, 73, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47375, 1472, 233, 5, 45, "Input"], Cell[47611, 1479, 256, 6, 44, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47916, 1491, 126, 1, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[48067, 1496, 255, 6, 45, "Input"], Cell[48325, 1504, 410, 8, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48772, 1517, 126, 2, 45, "Input"], Cell[48901, 1521, 109, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49047, 1527, 137, 2, 45, "Input"], Cell[49187, 1531, 110, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49334, 1537, 130, 2, 45, "Input"], Cell[49467, 1541, 113, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49617, 1547, 262, 6, 45, "Input"], Cell[49882, 1555, 228, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50147, 1565, 124, 2, 45, "Input"], Cell[50274, 1569, 118, 2, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50429, 1576, 118, 2, 45, "Input"], Cell[50550, 1580, 97, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50684, 1586, 132, 2, 62, "Input"], Cell[50819, 1590, 80, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50936, 1596, 133, 2, 45, "Input"], Cell[51072, 1600, 2734, 76, 364, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53843, 1681, 280, 7, 45, "Input"], Cell[54126, 1690, 5821, 167, 359, "Output"] }, Open ]], Cell[59962, 1860, 289, 8, 45, "Input"], Cell[CellGroupData[{ Cell[60276, 1872, 132, 2, 45, "Input"], Cell[60411, 1876, 6480, 186, 363, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66928, 2067, 127, 2, 45, "Input"], Cell[67058, 2071, 113, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67208, 2077, 138, 2, 45, "Input"], Cell[67349, 2081, 113, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67499, 2087, 150, 3, 45, "Input"], Cell[67652, 2092, 112, 1, 77, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)