(* 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[     73181,       2400]
NotebookOptionsPosition[     62825,       2027]
NotebookOutlinePosition[     63188,       2043]
CellTagsIndexPosition[     63145,       2040]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Linguagem B\[AAcute]sica - 15/8/2013", "Subtitle",
 CellChangeTimes->{{3.5854806716017804`*^9, 3.585480684930561*^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}]
}, 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}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"3", " ", "8"}]], "Input",
 CellChangeTimes->{{3.585479340345139*^9, 3.5854793437515907`*^9}}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{3.585479344892256*^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}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "^", "4"}]], "Input",
 CellChangeTimes->{{3.585479357783537*^9, 3.585479361955652*^9}}],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{3.5854793632838173`*^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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "N"}]], "Input",
 CellChangeTimes->{{3.5854794687111015`*^9, 3.5854794738051414`*^9}}],

Cell[BoxData["0.8652559794322651`"], "Output",
 CellChangeTimes->{3.5854794748676677`*^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}]
}, 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}]
}, 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}}]
}, Open  ]],

Cell["\<\
%, %%, %%%, ... identicam 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}}]
}, 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}]
}, 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}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "N"}]], "Input",
 CellChangeTimes->{{3.585480080047431*^9, 3.5854800916574316`*^9}}],

Cell[BoxData["3.4641016151377544`"], "Output",
 CellChangeTimes->{3.5854800941419334`*^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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}}]
}, 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}]
}, 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}}]
}, 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}}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkX8403kcwA1xrXHmW06tbPOoMZTqRB71eUc/VNQiad+e05mfCZWzS+Zw
WJJHRoqwh83RD1E67skd69sPXI1dNRF25fEzVKO1GGrX/fF6Xv+9/nkxeSf8
ww0NDAz8vvK/xSk8k/Vhgq1PxW6P9Xoa8UjJ8A1icJFgWd9crIZG6NtkGQzG
MVRME595OUojxEQufRHjDHJUZgZLO2lEzBZ+7Aw9G91W97UuLqURyvmowin6
FeTxSkJmudII0/5B1jv6dcTJL4kpjVhBSJ6Un5qkNyHBfreC4zJrou5Wdn/M
2ieopUya90qzlIhEz668jVcifZfPjR42lYgbcRhqqOtFBW/qd47/RCbIzEzW
a/cBZN3+OXNfKIm4YCFnS34cQqf9g/Krh6bu8foP3jPqGEWcnA8LtaEd6FRr
Ju8EawL9LGhWr66bRfUnKQHWu9+h73t2TZFvmoBEcHzCJWgKcQ4N5OVtoEJ6
+cKBj2+n0YYxlvrFuBUYKAegOUmDhCHaj72ylbAmISLxIFuLii6+FjvcYMKw
tujQkpZPaGkvLt3ebwd7RqJ/KTg1i9xjo0uE8fawb1jkaGMzh2SY08Y3K5xg
4iEv7e/aeTS5PNUqRboO1lK7V3kf/YzkRI9QLl8PZKQNUWm+IFuGB9mmYSPs
eofP2AYaQHQLcnbsdoWXD8JIuBMJ2rqCr4Xr3aDx3KNghpYENwtSszssPSBi
EX9AoTCEc0lHFRWhnhAaL2iklBhBibk3IS/bCusiHRW+IcZAWWrr2xwD8I+l
0xL+5kXw6bBoZVHNNvirLr3UycgEhssKz6tUXiAgsTkd/5pAoR2zl+myHciq
JJ+4BlNYlmJo3iTcASPVzMLy5G9Adb7YXy3fCYX2y42bAhdDRa197mdXHxCV
RLSHMMjQl+UtJfJ2A174g4IyRgbwPLqRNLEHZrdX6cplS4BiMkYfPeYLQyNe
iQ+yKPCp2iKe6PED6Zb1tM4QM1A5k3KbYvZDrZBPjXQ2B+FEV1jwaQ5kBYbu
NdKaw5k7rZKd7gfAVSW5ntX5LbS3cjKqzPyh2KG0tnOvBbjMMhuvvfSHVCK3
eG+TBUR57hAP3A0AP1pg1RM7KvAY4pZdVw7Ctrj2I9RsKlgnso1i4wKhfCXP
rkNLhbT8Oyd/5x4Cu4dXL+87Yvn14+pGr81BIHJ+wH4us4SyAfdLVtaHIUJj
/OwxG4MEoXrTBzMu8Oo/MLLzMJB0Log2zXAhJj1gYU8+BmO2C0WceS7wAxp6
KBcxuN323Xi0ngvntPwLossY9Okqj1WY4lC3WTdfJMYg1dxi2NwaB919fXd1
DQYG05tkOnccRM8puY/aMSCV3jM1FeBQUhkbdfYxBrT7Pv7sVBwqExTePnIM
7rq+H/XLwOEPK9GcXIFBDvnC+0s5OKhwLEr54mufxzztUIYDa2i59+AQBlL5
5djgFhxcGpJsfhvBwK5vmHv2Pg4ewn5d+BgG69z2i+pacfBliW+PT2CgVCX2
6ztxiD/OsJmexuBEN32y6hUOyZ6/6u5oMLDncuyfDuIgNBvsStBiEMYW35ob
xaH4VmXO7CwG/Ls5ZRw1DtI048g/5zDw4TsbJmtwqDkQ7pW8gEFF2mT91Rkc
GmzbVm39gkFKX2uNch4HmWaNTq/HYCS9Wa3X4/AfPwhB8Q==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 5}, {-6.999999183673438, 107.99999612244899`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5854812490063815`*^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}}]
}, 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}]
}, 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}}]
}, 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[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4lF8bB/CULeszFMqSiJCEIkmdKFRESYkkpBAKJeWnkiKJQpF9zTpT
trLXfYSIrDMjorSo7Flm7PE+719zfa5xzHPuc9/f52x0vGxxfuWKFSv+cKxY
8f/Pt1OKc8vLovhwyiHnC6GpMLnn4bzHkih+M5gmei8yFTaH/F3oWRTFnPb8
Y2mxqRAhVbZUOieKaX/nFb5mpYKD4SFOzylRbCfv4XmqJhU4n7kJf/stiuON
h3otFlPhsG6BAm4WxayTbAOLS2nADNhlEZAgio1H66cJi3QILJKPC1MTxZ2M
l8c9dZ/D6hFH7fYGEcww0nhzYyoTch2aC9ecF8GVB2OLgx5mQ99/wpL9sxTM
XXzx6LJ0Lrh0CeoenaFgj/SPwv7yuTC+Q8C6ik3Bh+6OFLOVcmHFGO+zp5MU
nH1JNqlvey5stF8pajhCwRcvbY8JP5QL5w6w+bL6KJhutlfb/Gou/BHomXd+
T8HpF2wfHavPBU/X7nWMWgo+FipwzuljLszWfdLZV0PBsk91Cq605wLvbcY1
CUzB72e2Z93vyQXliebJhnIKjlzdmHLvby64MfGQ8gsK3tv76G2rWB78Tcr6
PPyEgmfpUVJRjnnAZ22rrB1FwYxvrLrHznmwaY3I9YAICr4+U1YX4p4HNqE3
164Np+C/XMol7tfyoPaa5dG9wRSsFJL9eeFBHsSar3wfcZ2C7cOitm4vyAMD
DrtCrTMUrNsV9vjXbB7YVomuCDhNwaJ9+msN/+WBr+8Hs0ZrCvbqb7NN4aAC
bXTHiN1JCs5TfiJzgI8K4p/5N4eYU3Dr0cU/RySpMFJUnvhZn4LlzVtd7PSo
EO20NuS2IgVbz1CeHvOjQurH/R3tmyjYv2rVxNhNKuTt8JbaJE/BL7ftpwXf
oQLmbC1o2ECeB5/6lswQ8v89D+mmrKPgd4uKH5JiqHDg14LKc34Kviuk6nOj
kArmR1R8pldT8LVY89CKV1SweX0KDvJS8PY3VsXsUip4Br0+PspJwScTT6rZ
vKVCosJlf+0lAsefjj/Q00gF1vkfzQ3jBOZzQ/TyH1RYbiYkJP8S2NNIcTLu
FxX4tJGjxyiBpUdvdV8ZoIIsd+I0ZYjA34WCx9aMUcE068SG0z8JrH+vjMY/
R4Xnvxs8R5kEPqc3aVovSIN8s5kKxCDwjUnuUn2CBhUlClxRHQQ2zJFNei1C
g7bgwDjtVgLrGm9ufCBOg0VFvXe3Gwisup0m+1OWBsed80VFKgl8jY8j+IQm
DW7J70R3ygks13tW2WAHDXL63l4cLyWwr8Slr0ra5HqrluqWVwR+Hdjq0b+L
BlkHRy8/fElgm+ccxaL65O9x+iTM0wg82Lzbp82ABgt48b0rlcBN1wKV7x+g
wdFdAjIHcwjsQZw69cOYBnPKWz5yphNYg2f6rLkZDTb9Lpq5kkrgg9IX9/eY
08AsXVf+ZzKBuTJl5+yP0SB9/WG/6gQC11Q7NVlb0sCU31XpVjT5+59iElbY
0CBlJOveTAiB5Wc13TY40aAxR63gwn0Cv0ryfWJ0ngYsp5IeZhCBm1cuHnG+
QIODX+o0XwUSuF+3wDXahQaTzf3fPP0JjJxkmjLcaSAV6i7wzY/ASzVVa555
0MDYiLXT/AaBjWrPt929RIPEt6seb71G4BnX4vBDnjQwzJfbM3SZwAls+fyg
KzTwdMtzsb5E4OhHHBIHrtIgfrPm0wZ3AtdFPu1YID2Woj+c5Uqer1S2qtU1
GkjYfhATcyHPM4G/dp70foljBkEXCJx07W/iM18axEbYx507R2BtufmVb67T
4J3pQG2HA4HVDVaGGN6gwSiv57i+PYEFzprurSctUTcjWWhH4LxVDRsN/Ghg
cOe2sewZAhcedlIrIe2+h+fK49MEDu0Ttpf/jwYxc4+Sl6wJfGG5rOgB6WGv
ZHbvSQIHFVfk6fuT/RD25ajKCQJb9x3tjiPtlC1F8z1O4EY277dB0hvfneap
O0ZgWVZ+ucZNGnztjXcUOUpgqrGIgxfp+JnuN2fNCLyvdaEth7SVyLp1L0zJ
evTu5OwivWbrqavzhwmcqR3JXiLdZvys1fgQgc+u60iRvkWDcMdOlWhjcn+7
av9tJ3345trgH4YE/vpOnc+ANHes5fdtBwhcYPcNjEnXFD3Ru2lA4IfqCesM
SQc0dzxr3Efg7Z+VRHRJ6w1QpsQRgfP9jz5XJD238pjZ+T0E7invauQjXSId
kVu0m8CTr+8H/Caf54pOK+cKXQJvWiePy0mrHxeyP6JDzi/F89490iMeRyrj
tQmcbLG9wYh0bkiY2MAOAhOSGsErSF/IaPLS2k5gCc2t5YVkveTe8jUHahBY
aXjotA3pvq5DSm3byPpt3uo6T9Y/cSrkrrQagXtPlPREkrYWavh6UZXAnb4H
X8qSFlPm0S1TIXDFhsyeLPI8O/YbRXMpE5jnarjdJtKP7YLGLTYTOFf9nUYc
2Q+mN2pNUhUInJiz6igXad6nq7JH5QkcXE955UL2U+CHO2dCZAnM/zJSZy3Z
b6gflzFlCMxtdcfMjuzHxaVlUXlpAvN67IpO9qGBz45bjW/WEXgkYD6Fk+xn
TfM3CvwSZN4437JWIft/zHUx4JQYgWmPsJqxNw1cUvx2TomQ+4n1Er9AzotC
RXnUPgrZz6mnZF0u0+AHY3Y0XJjABlpj2xzI+TrN5/tcSYDAMe8oZjrkPJr5
XKHYcRH4t2365A1nGvBHFLlTVxF4UcAlaTs5zw15E/WzHARmL77Y1E/OfyDu
W1T8J4zHNiYXKzvSwDmmqzPyrzCmc+oiI1safGs6Ga46IozjNqrplpD5YcPB
3F8/IIz11M79kbIm6+XeXrD4XRiz5d33t5wg92fQGOrMEMaxrZMemMyroQ0L
q/Tayb/fYGHAdYTMp39bbhItwrht3LFT34QGouXhl8vrhTH1oINqOpl3rG3H
LPkrhfEdrgPiy+j//dUlnZ8mjFVOjskrbqPBpQXeZ3eThfHhuzlj/ao0UOze
RZxKEMb5mSo7ElRo8OxpwkqOaGEcb3BYZkyBBtf5z/6xCBHG50qOTKtK0UB3
7lfB9CVhLP9rzTgfD5lnnWIqTW7CWCd/myPipEHeK+OMFBdhPP1iA58bBw0k
PXOjDzqS37vsH8peoMLib3e/+BPCuGzVvHfpXyq8ZUzt36snjG0zLnxX7qSC
QQHHp6DVwtj1qrbI3kQq9PyRN77ILYy/bx2qdYqlwtUNRqVmq8j6aPwKCHxK
haxHoc/E/wnhIGoQZ0YY+b7zED2VOy6EKX9NP/j6U6FDWaH74ychLBOajt1t
qOCYcbBHNEsIP5vV1nQRpsLC54sms+lC+O+r3D0u5H3gqUh4ZW+KEC62D2+3
46LC+zvtCZlxQljgb3rgtoU8ULG3sd0ZLoRB/l+c3e88mJRy/2JzVQhLsW/J
jFfkwd2Yx31pBkJ44+LalFrbPNj3UDbfAAlhUcVGC+6TebB0u/DWz91C+Mzk
ZhM98zzwc6VLK2gJ4TtPKtj39PPAU0/cNmezEJbIt88MUcgDux/JXS8FhMj6
J/GdGM4FXbWX7ZWdgnjS7MPCVw/yfiaH0mzpgjiscDQq5XwulIi3ef5rFcQd
foatx8/kggbHpDD6IIjL3/yUf2aaC0oMLbN3lYJYVsO1OEQlF9b6vWlsSBXE
K1Xb5UX7c2C87mMN86IgtudKMMk4kgMjjsTJAmdB7BNp3Od7IAcGl48PhDoJ
4rOaj1T0d+fAj109AvvsBLHJLu+uQqUcYLwYPJF3TBCzdB8p8K/KgbJo7oFb
OoLYvzRYKf51NgSc3yegxC2IH5lyqQiLZIP/ynvJK1cJ4tKa1INXeLLhRkq9
+pdlAWzJcSyzaTELvLvNTkTNCeDyIyJ81n+ywOnImeTFEQG8w9xy3e/KLDio
5afeThfAdR6qa987ZgGF65WlX5oA5lF8t3Q3OxM0z14woiQL4NX2dsvn4jPB
slxCJydeAAes9snSCs+EGI+bkp1PBHCCHdH5wjsT1nca/dAIFsBCfZ57JvQy
YVN29+XBiwL4SXqlMW55DjqHlkNP7RDAw9cb4+3/ZIBd+OFq7Xp+HFyoTq8a
TgN7/bHcLzX8+MjepP+296SBIzsy6h7mxzEOnqYJjWlw4Uz3uY5yfny3pvDU
3tw0uLTVhfsSjR9XfiBK2s+nwa3mIJPMSH5c/nS1g0pvKiQJVjNFbflxXEjl
6Nr/UqA3fOfQ+Dgf3imhfTj5eTxID4VHt4/y4awSsYO5t+LBzqh/X9EQH44z
+8ITdyoe+pYinl3p58MHJaIqFAXi4cfloQPTn/iwmf5K93mvOBg4lpSy8JYP
f9M0EritEwvstatOcIfz4S2rZelfC6JBKLkFJJX5cKLVJyUJswhwn1njZXd0
NTbe8CBDtdkFbtlztVKCebFMZpTh+gPBqEokk/dLHg8+2Kr5aH9GItqyJ2Ep
k86NUxKvGxpNZCMz391pfXzc2NPn+e6lXwUoaT50g4YGF+6pDBebe1GCUsPv
HZ46z4nfdI/89vCsQoxYhkZx8irMpfqv6Y5aNdoxSmeFvl+JJdvMOEfu1KKD
x2460Rc58CXlFbCGWo9Clpj52+U4cGDuIH4p3oTm5INKI01W4IonkbaEQwva
XVT1CXMvw/MK99tLWW2o52XzTLjlP5Dczf3OS6YD/WzU9NKDBdjYZaVofoKO
1oguSPCUL8BMuMXxUms6Mjpdg9uLFqCxwylUyo6O8oaPE85ZC8C/tkDg6wU6
8hTwyY8MX4A61tL6PdfpaOlI6ejv0wtglW+y2TWejiTad1+MnJ2HqfjiA869
dHR4HaeI7eQ8uO1/99HtGx395/CxXHFkHuSUfwl69NPR1wnb1VV983BB63Dh
+RE6yhS5lfP7/Tw8H2rQ2rZIR5qW+Pfu6HmwkKlclpVkoCOfDpz7rTEPggUR
4x4nGaghbuiD8hZyfYv1GwsbBjpgG6HusWketpiqmG+3YyDd7z3/psTmYY4l
8vrPeQZSHPaO5Vicg2TnK+rSPgy0tJTaLPV+Dp4XH1lfFsVALxX/7TxuMwen
IkpuPGtkIOXB9OSY43MguFheOdbMQM+pB7k+m86B3rHtZ/TbGShe/WmHPZoD
6o/5wq5PDBSsu8Xj0qY5KNmmbNLaz0B2ZtbpD8ZmIYuZE9D9j4GEr70WwIGz
0BIsbWiqykS8D/DsNf9Z0Hs9lPJZjYlWJDb1b702C++do5OcNJhosvp7VYLr
LEBUpq+bNhMxBIU8fI/Owh/uRocD+5goPvNCs5rMLCQ1uQ/KHmeiqDKv8l/i
s/ArKcvE5QQTPWzyz0ykzMLevynKVCsm8p+IusnHNQvnPiqYy9sy0dk9sPX3
8AysSl9e7HViok1M8UdJ5TNAVHc3XvFhIqkBOT/L4hlY6P3Q4OXLRGsXtl7g
fzEDAXu2S7ndYCLujQf23kidAbX8FRXmN5lo0N1zzPL+DNQ6Zj7+do+JXnJ+
MBM4MQOROjbPZJ4wUbY4Q7fGbAbWur6ktz1lolSVPkW/gzNQHKi671YME0Ue
ZS/92T0DDq6+qY1xTHQ1cWN+jdwMBGG9vcqpTLRrh5/wf+PTcDbgx8QCldxP
tWNF3uA0SNx17Lz5gonempmc//xjGsoLrg/MvWQiA1epyl3MaTBcvSb0WyET
HU5+e2G2fBosF6WvOpcyUdiWbIpSMbl+yOZaRRkTtZQ9rrKiTYPOj+LHPBVM
ZEG3FylNngapk8mLj6uYyIZ31Vufu9PQmDTnZV3NRInRwy6Z/tMQ9u5ln/87
JvoqxxBl+kyDr+F1s/gaJnLck+m6w2UaFtnOm2rqmOiit/HaKdNp+H5k5YWP
H5iItrwNyxlNw0hodAQ0MtFYmISbBZqG2sCXWbQmJvLOHsSFGtOQVtQaerWZ
ifx6H7p7ik3DxuqOgYo2JqpyvSqeKjwNFukPFG62M9HStO27Vt5poJ0q1dnV
wUSBFDWJbQtsUNER70qmM1FtsliNHYsN+TkyZw8yyPNTXfZ4NMoGgXvGRcOk
Q43aakb72MDOg6INnUz0kV52SbqbDW232DYFpIUc0tYd6WCDNHNdne4nst/+
875Mq2WDgqUoU6+L7E/e0+t737Bh9vU3n1ekxWL21/GXssFfNLxFoZvs14I1
km65bNi5OiyJTbp3z7+6+HQ2aCwOCFl+ZiKZpl+ejQlsuJm9S41G2v5Ui+T8
UzZ4LfPO/SOd/qvkvfIjNriY9bsf6mGifu8UL+v7bDihc/r+I9KKK0KkHgSw
wfHtsmEzaZdwz/qyG2wIMriQxdXLRHnrrb0HvNkg81AhayfpkWx9aQl3NkS9
7zQ4R1pNS6XB+Dwbxh+t9Qsh7flO5IqvHRtiRm8fyiZdZL4gnW3Fho92JS+B
NKv3Z0PnUfL5mKez20lrX/x4hfswG1LfrtX4Qvr6zCsZ7f1sOMcVdugH6cp7
SR/O67HhpJjr2DfSfo7Dc7za5PrLwsxu0rr7dqnQtrFBULlUvJn0vPR9G3Nl
Npx+fftVBemKBUbopBwb1G+E5qb/f323XGW0FBsyW+ZZ90jvKvUc1hFjA+aZ
fupAevbpW8leYTaIeGXc1yFd5i1gens1G85aqjat/v/zHbXxl1vFBouFyjNM
sl46ajm0ukUWiBTd3pNAepZ/utdlmgUrGrNcTpMuHdwvKDDOAqtExy9rSV+r
j9yTP8iCb2G/4xrJ89HO7POw+MmCWAGXxBukS+z/a4ntZMFw63739+R5X9v7
YWl3Gwv6zUW1nUhrSYlv6/vAAs0vjXsXyX559anoscIbFgRTp7gkSV99vQI3
lLCgbGkIp5H9tuOJ2bhbAQt4HnQWy5EuNhs6WpTBgvGJF7qiZH96q+rcOZHE
ggRhjaZAJhNp8gUXzsawQGCgM2yE7O+iuo0iKJQFQYfbE1+S81CgZ01v8mQB
l9YQHiHnyXN99qrLF1lw3PgLdSvpbbOs7SJOLPg9UF7h0krmWXHE01NWLKgW
ebunmZzHFyoNJ37tIetheJJmTs6vO69YcMhOFkjpDj1wIOdb9fe5ki0aLHA1
wrc8Gsh5T1sW897EgneO/DlX3pP9KLGza4mPBUO3Ilp0yPy4OH2PN52TBVoP
n+2WJPNFmdGhY7g0BevD28gUZqKcx5fiHk5MQVToEiS/IfOUO8tGomsKHtb3
yWSS+fWcteaLRuYU/MSplZFkHioEGy6wkqfALXKuQpLGRFni19aVxU6BVMDJ
4ZQ8JsrV/XRib9gUdDM0P8dkk/sLiGs5fGUKzF/HtexNI89bQAaf058Czz+X
+K+R+a2TbPZVcfcUbLlfG5YeSfbjttuLgzum4PSZWNUPj8k8svim46k0Bd+f
etdwhjERjk0v9BeegoqMh+pa5PugcdPmjOgvk3D/eZ+C3xUmMimxqj71aRKe
yG5ac9CLzBvjkD7J9klIXF4giMtM1HpxUDK9dhLa0xs1H10k86WA+vQldRL6
w/SXDBzIvNVTD66/MQnSqzpnw48w0YTlLte5tZNQtVJ35/ON5PPYGxtpCU8C
TabD3FuGiYLdT8h78U7CjOUXs12S5PvtnteXgfkJ4OGK/1e4homMinOPdfVN
gPK7Kn4zHjKvKOt1S3MnwKfojav6MAPtb5nn89kzAbHbrdYkvGAgoc+8AwXa
EzB5K44jKJeBun6J1Y1sm4Cdgo4NzpkMdOmf5m0nuQnY81nhh3gSA8Wquk0d
55mAdQdGD8iFMdBIaE+PZvs4PFiIb+pzYaBo4yrauNM4vP9viH9ZioG+ZmwT
TrUbhyQe62fWEuT9ZUWGl/mpcVhRrT72QpSBSsoeaL80GYcbMiPL+/kYqFPZ
CrtpjsPmvRrVCjN0pC7Rn928/Bf0hPq1cCsdaaeZT5dr/YVdNhczTvjT0Xtr
7UoJ5b+wclG7ZegaHVmJSAf4Sv2F39NaPTe86Oj63aHVWqv+Qmx9W0oQef8r
Px8kXdA2Buom2ePHj9KRnkrlgSy3MZjcVZj7UY6ODIoVn0SljULcNb/dO2s6
0Hn7BuaPJ6OgS711M7iqA4UIXpTYHjwKZr3O1S2vO1CL84sk+sVRMNXaZHU4
pwOdltqRs2bHKDA4PdijYR3oapD+m5j3I3CP/nN0wLIDZVnZ/okfHibzo6Pt
bV874luM3J2hNQRH121Sffi9DRUQc9bblYaALVb04WR3GzqpYH+9Zv0QzM2K
O0i1t6EMM7XXP5cHgZUQHBaN25BeWqPapsZBeLTOWX9fShvyMFoll2k3CFb+
PHF+p9tQW8RV3uz7A5DlOEjbl9KKYhSsmHndv2GDaq6Ou3kzmgyv3ehT+hNE
2XKf3yY2oKX1f3uTj32DqnVHhALlalBR891oMZPP4Bl8ckTzcyWaUPxy/IsI
AwpV2nDC+iLk72N6sW+GDuMObr3Ok4WIu7Yy4HsvHUyVn242aSxEkg7xL35l
0cFknaLjKb9CZJhgxTOmS4eXtbwC0T0FKE64o2LJsQOcRsKl8gzzkf7s+42y
xW1wasBJjRmWhz4aaevIxbZBklLNO7P9eehkdKbZppttcNrPd5R3Phe5ad77
T8m4DVQNnrnpu+Qile7APIeSVsgyLR+hG+egjmpfyl3uFvAoEE/gWZOFNj5x
6KvLaoSWstsSPL/SkNyrizsvXG2Ece/aWaHcNPL+eOUxt0EjKNq/Drb3SENK
4sHI+MsHWDRUbf0xnYrUE/JSGkQ/QP6hqg1XBFPRvoyps00B9RAl3F56PSoR
GdQulrqZ1UPF4BuufZsS0YFfXISAVD0cC14nSytJQAc3S2DT0vdwQYxD3fdL
PDpK1ZNtGa2DnrklmVnNOHS2OOhbm00taNdZl6UvRSN7xiMdL6Va4Kq/uGlv
QjRyZD+LoEzXwJt47tAInWh0YWfePovIGtiHBf7Y+TxFlypbUun176D8+46Y
dzNR6FaNuEPnjmpw74/IfSEbgQL6ZcuvrayGQ6YeSg+jHqNALhWKeBuGsPei
9Wa/HqFgY71qKzcMD9uP8SU8Dkfrn1UbFO0HyHB+nfZwJhTtyj5eUypdBebS
9k0TYsHoq9OG4X0vKuH6FofXtl5BKFBuWKRRrxK06se2jDffQx+TAh17T1eA
uUV+aXL4XWT3tJCDI74MfHL1Ev0330GrLG4qhyqXwc7xfNVHTwJQjvChY6Ll
pXBT9931fo4ANBH6LVWhqwRuz88J9zTeRPfuCO87LPYa7qxMbqBG3EDKqMeZ
nvkKnsw8MPwZfh21LGY9ttV6BZ/81eq+PPZF4tf39l2yLAafKwIjOuk+KO+S
x60nUYVQ6NNQZcnhjcxVd2VJyRVCxCsxUS8FL8Qa5GzJLCwAptGwwkMzT+TX
qLPbMy0f3HyXL9POeqCU0pgb5dI00Hd2UdM864wGNNU+NOlRQflb15WB2fNI
82WdxNfTeXC67DCnSJITqn3OKl0ZnwOixQEZC5yOSEg2jGdteTa4dlMlPjfY
I6sEeavNXVmgoWxu0q52Fg1FWkybiGXCOYHO61m5NmiH4JChndZzqO44PJFw
/xS6GXIn2tMyA5oDt55z/+8kIm4X7IiOSoPro0da1mVaIJt543vZhakwtSG3
dkfPUWQ0/Db7SloKlLadOXPE3Ay5dUn9rpJOhHPy7y0keA+ipRaToO+n42FD
MleKv5Ihiqjz28QdHwvLDx2VHlwzQPJVuTUqXTFAb5Wqn+tHqKSoy9FcLBrE
1F50bt21Gx3K5Vl51fIJ8ImZcGwd0ka9KdppsVGRoJTMs/barCb6qtoU4Jf2
GDpWOJ0iPqghzvXKUCMdBsm4yKbujBJS4bn/TyA+BISaE2P4CuSQOat/90mx
ICivj1qD70gin+8GfilRd8DVty02TE4UaSXpe7VL+4PVcIv6fAgvCvD9N3pO
zAf2VcU8tMxa2Pssw5s5Iu0O1zfk1TclD+y1LWAkycvYgtuHLw858hr2Jt1y
5NZw+u9tWdAJQ1Nvnj3/A1u1AC0=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{-5, 0}, {-0.0556509420131851, 0.3416066854698185}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.585481509754145*^9, 3.5854815302395644`*^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}}]
}, 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}}]
}, 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}}]
}, 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}}]
}, 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}}]
}, 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}}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}]
}, 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}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"ax", ",", "ay", ",", "az"}], "}"}], "\[LeftDoubleBracket]", "4", 
  "\[RightDoubleBracket]"}]], "Output",
 CellChangeTimes->{3.585483158495003*^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}]
}, Open  ]],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " tem 4 tipos de parentheses:\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}}]
}, 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.6908465467490743`"], "Output",
 CellChangeTimes->{3.585483217779311*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomReal", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.585483220732568*^9, 3.585483235170829*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.45018228184970654`"}]], "Output",
 CellChangeTimes->{3.5854832359520893`*^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.7708119076594162`"}], ",", "0.6916438329857373`", ",", 
   RowBox[{"-", "0.9699778451403676`"}], ",", 
   RowBox[{"-", "0.26003688542237136`"}], ",", "0.6060809138623018`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.585483248155841*^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.5629595673627983`"}], ",", 
   RowBox[{"-", "0.20410693324026516`"}], ",", 
   RowBox[{"-", "0.5939888705323697`"}], ",", 
   RowBox[{"-", "0.7111632331589463`"}], ",", 
   RowBox[{"-", "1.203504834947878`"}], ",", "2.679653876466372`", ",", 
   "0.32020928851367314`", ",", 
   RowBox[{"-", "1.274488462596782`"}], ",", "0.5144679649951629`", ",", 
   RowBox[{"-", "0.7826266441223508`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5854833311444745`*^9, 3.5854833361916075`*^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[{
  "3", ",", "4", ",", "3", ",", "4", ",", "5", ",", "0", ",", "5", ",", "5", 
   ",", "3", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.5854833667244253`*^9, 3.5854833915538216`*^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[{
  "18.80261791847145`", ",", "18.119502892179725`", ",", "16.35725717529437`",
    ",", "12.70217054754567`", ",", "14.940003226741172`", ",", 
   "25.324975078535005`", ",", "16.79433995510861`", ",", "20.1275833430389`",
    ",", "17.371983696286787`", ",", "19.529290878736013`"}], "}"}]], "Output",
 CellChangeTimes->{3.585483449900596*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", "rn", "]"}]], "Input",
 CellChangeTimes->{{3.585483452494459*^9, 3.5854834564477816`*^9}}],

Cell[BoxData["18.00697247119377`"], "Output",
 CellChangeTimes->{3.585483457385324*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", "rn", "]"}]], "Input",
 CellChangeTimes->{{3.585483459416708*^9, 3.585483466010771*^9}}],

Cell[BoxData["3.3855213525083854`"], "Output",
 CellChangeTimes->{3.58548346744837*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Variance", "[", "rn", "]"}]], "Input",
 CellChangeTimes->{{3.585483469729739*^9, 3.5854834750268583`*^9}}],

Cell[BoxData["11.461754828290207`"], "Output",
 CellChangeTimes->{3.5854834760112824`*^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", ",", "2", ",", "5", ",", "3", ",", "2", ",", "4", ",", "4", ",", "3", 
   ",", "3", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.5854835279514737`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", "rn", "]"}]], "Input",
 CellChangeTimes->{{3.585483530154686*^9, 3.585483533373602*^9}}],

Cell[BoxData[
 FractionBox["33", "10"]], "Output",
 CellChangeTimes->{3.5854835341392913`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "N"}]], "Input",
 CellChangeTimes->{{3.585483539608324*^9, 3.5854835439835467`*^9}}],

Cell[BoxData["3.3`"], "Output",
 CellChangeTimes->{3.5854835447179313`*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox["Histogramas", "Subsubsection"]], "Input",
 CellChangeTimes->{{3.585483555812252*^9, 3.585483560906271*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", "rn", "]"}]], "Input",
 CellChangeTimes->{{3.5854835764226847`*^9, 3.5854835804541407`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.6859999999999999]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.6859999999999999]], 
    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->{{10.749999999999972`, 
         270.5438775510204}, {-146.34283428905542`, 147.820223967257}}],
       StatusArea[#, 6]& ,
       TagBoxNote->"6"],
      StyleBox["6", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[6, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{4., 0}, {6., 4}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{269.0438775510204, 
         528.8377551020409}, {-48.78848153695128, 147.820223967257}}],
       StatusArea[#, 4]& ,
       TagBoxNote->"4"],
      StyleBox["4", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[4, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2., 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRange->{{2., 6.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5854835810167017`*^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.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.651]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.651]], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{14., 0}, {16., 12}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{17.75, 82.96632653061226}, {-0.39515054607738875`, 
         145.49398604600768`}}],
       StatusArea[#, 12]& ,
       TagBoxNote->"12"],
      StyleBox["12", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[12, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{16., 0}, {18., 15}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{81.46632653061226, 
         146.68265306122453`}, {-36.49243469409868, 145.49398604600768`}}],
       StatusArea[#, 15]& ,
       TagBoxNote->"15"],
      StyleBox["15", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[15, {
        GrayLevel[0]}], "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->{{145.18265306122453`, 
         210.3989795918368}, {-120.71943103948163`, 145.49398604600768`}}],
       StatusArea[#, 22]& ,
       TagBoxNote->"22"],
      StyleBox["22", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[22, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{20., 0}, {22., 24}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{208.8989795918368, 
         274.11530612244906`}, {-144.78428713816245`, 145.49398604600768`}}],
       StatusArea[#, 24]& ,
       TagBoxNote->"24"],
      StyleBox["24", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[24, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{22., 0}, {24., 19}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{272.61530612244906`, 
         337.8316326530612}, {-84.62214689146035, 145.49398604600768`}}],
       StatusArea[#, 19]& ,
       TagBoxNote->"19"],
      StyleBox["19", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[19, {
        GrayLevel[0]}], "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->{{336.3316326530612, 401.54795918367347`}, {
         59.76698970062472, 145.49398604600768`}}],
       StatusArea[#, 7]& ,
       TagBoxNote->"7"],
      StyleBox["7", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[7, {
        GrayLevel[0]}], "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->{{463.76428571428573`, 528.980612244898}, {
         131.96155799666727`, 145.49398604600768`}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{14., 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRange->{{14., 30.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5854836065961075`*^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.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.644]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.644]], 
    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->{{17.749999999999943`, 82.96632653061215}, {
         123.36696653285271`, 145.49398604600773`}}],
       StatusArea[#, 2]& ,
       TagBoxNote->"2"],
      StyleBox["2", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[2, {
        GrayLevel[0]}], "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->{{81.46632653061215, 146.6826530612244}, {
         92.42643726312019, 145.49398604600773`}}],
       StatusArea[#, 5]& ,
       TagBoxNote->"5"],
      StyleBox["5", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[5, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{16., 0}, {18., 14}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{145.1826530612244, 
         210.39897959183662`}, {-0.3951505460774172, 145.49398604600773`}}],
       StatusArea[#, 14]& ,
       TagBoxNote->"14"],
      StyleBox["14", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[14, {
        GrayLevel[0]}], "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->{{208.89897959183662`, 
         274.1153061224489}, {-103.5302481118525, 145.49398604600773`}}],
       StatusArea[#, 24]& ,
       TagBoxNote->"24"],
      StyleBox["24", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[24, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{20., 0}, {22., 28}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{272.6153061224489, 
         337.83163265306115`}, {-144.78428713816257`, 145.49398604600773`}}],
       StatusArea[#, 28]& ,
       TagBoxNote->"28"],
      StyleBox["28", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[28, {
        GrayLevel[0]}], "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->{{336.33163265306115`, 
         401.5479591836734}, {-31.335679815809925`, 145.49398604600773`}}],
       StatusArea[#, 17]& ,
       TagBoxNote->"17"],
      StyleBox["17", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[17, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{24., 0}, {26., 9}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{400.0479591836734, 465.2642857142857}, {
         51.17239823681015, 145.49398604600773`}}],
       StatusArea[#, 9]& ,
       TagBoxNote->"9"],
      StyleBox["9", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[9, {
        GrayLevel[0]}], "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->{{463.7642857142857, 528.9806122448979}, {
         133.68047628943023`, 145.49398604600773`}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{12., 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRange->{{12., 28.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.585483643957401*^9, 3.5854836473169484`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.5854836500358377`*^9, 3.5854836520984488`*^9}}],

Cell[BoxData["20.227835380299734`"], "Output",
 CellChangeTimes->{3.5854836528485103`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.585483655582997*^9, 3.5854836604895215`*^9}}],

Cell[BoxData["2.866657360212292`"], "Output",
 CellChangeTimes->{3.5854836611458087`*^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}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1271, 618},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.5,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 124, 1, 74, "Subtitle"],
Cell[CellGroupData[{
Cell[728, 27, 148, 1, 51, "Subsubsection"],
Cell[CellGroupData[{
Cell[901, 32, 116, 2, 45, "Input"],
Cell[1020, 36, 70, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1127, 42, 117, 2, 45, "Input"],
Cell[1247, 46, 92, 2, 65, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1376, 53, 117, 2, 45, "Input"],
Cell[1496, 57, 71, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1604, 63, 121, 2, 45, "Input"],
Cell[1728, 67, 73, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1838, 73, 115, 2, 45, "Input"],
Cell[1956, 77, 73, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2066, 83, 118, 2, 45, "Input"],
Cell[2187, 87, 180, 3, 73, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2404, 95, 123, 2, 45, "Input"],
Cell[2530, 99, 81, 2, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2648, 106, 126, 2, 45, "Input"],
Cell[2777, 110, 90, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2904, 116, 150, 3, 45, "Input"],
Cell[3057, 121, 73, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3167, 127, 181, 4, 45, "Input"],
Cell[3351, 133, 90, 2, 65, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3478, 140, 116, 2, 45, "Input"],
Cell[3597, 144, 110, 2, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3744, 151, 120, 2, 45, "Input"],
Cell[3867, 155, 90, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3994, 161, 167, 4, 45, "Input"],
Cell[4164, 167, 87, 2, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4288, 174, 143, 3, 45, "Input"],
Cell[4434, 179, 149, 4, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4620, 188, 148, 3, 45, "Input"],
Cell[4771, 193, 116, 1, 44, "Output"]
}, Open  ]],
Cell[4902, 197, 228, 5, 74, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5167, 207, 167, 2, 51, "Subsubsection"],
Cell[CellGroupData[{
Cell[5359, 213, 118, 2, 45, "Input"],
Cell[5480, 217, 71, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5588, 223, 124, 2, 45, "Input"],
Cell[5715, 227, 106, 3, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5858, 235, 118, 2, 45, "Input"],
Cell[5979, 239, 90, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6106, 245, 137, 3, 45, "Input"],
Cell[6246, 250, 71, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6354, 256, 135, 3, 45, "Input"],
Cell[6492, 261, 94, 2, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6623, 268, 115, 2, 45, "Input"],
Cell[6741, 272, 116, 3, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6894, 280, 117, 2, 45, "Input"],
Cell[7014, 284, 91, 2, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7142, 291, 119, 2, 45, "Input"],
Cell[7264, 295, 94, 2, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7395, 302, 228, 6, 45, "Input"],
Cell[7626, 310, 72, 1, 44, "Output"]
}, Open  ]],
Cell[7713, 314, 128, 2, 45, "Input"],
Cell[CellGroupData[{
Cell[7866, 320, 160, 5, 45, "Input"],
Cell[8029, 327, 193, 6, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8259, 338, 142, 3, 45, "Input"],
Cell[8404, 343, 97, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8538, 349, 171, 4, 45, "Input"],
Cell[8712, 355, 293, 10, 46, "Output"]
}, Open  ]],
Cell[9020, 368, 507, 9, 102, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9564, 382, 212, 4, 51, "Subsubsection"],
Cell[CellGroupData[{
Cell[9801, 390, 135, 2, 45, "Input"],
Cell[9939, 394, 287, 8, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10263, 407, 178, 4, 45, "Input"],
Cell[10444, 413, 455, 16, 65, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10936, 434, 155, 3, 45, "Input"],
Cell[11094, 439, 218, 7, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11349, 451, 147, 3, 45, "Input"],
Cell[11499, 456, 190, 6, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11726, 467, 206, 5, 45, "Input"],
Cell[11935, 474, 74, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12046, 480, 71, 1, 45, "Input"],
Cell[12120, 483, 193, 6, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12350, 494, 207, 5, 45, "Input"],
Cell[12560, 501, 2143, 42, 347, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14740, 548, 232, 6, 45, "Input"],
Cell[14975, 556, 244, 6, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15256, 567, 237, 6, 45, "Input"],
Cell[15496, 575, 154, 5, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15687, 585, 328, 9, 45, "Input"],
Cell[16018, 596, 165, 3, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16220, 604, 321, 9, 45, "Input"],
Cell[16544, 615, 10566, 180, 356, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27147, 800, 349, 10, 45, "Input"],
Cell[27499, 812, 185, 4, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27721, 821, 282, 8, 45, "Input"],
Cell[28006, 831, 575, 16, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28618, 852, 280, 8, 45, "Input"],
Cell[28901, 862, 439, 16, 65, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29389, 884, 141, 1, 51, "Subsubsection"],
Cell[CellGroupData[{
Cell[29555, 889, 216, 5, 45, "Input"],
Cell[29774, 896, 225, 7, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30036, 908, 199, 5, 45, "Input"],
Cell[30238, 915, 2067, 60, 101, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32342, 980, 222, 5, 45, "Input"],
Cell[32567, 987, 1885, 54, 71, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34501, 1047, 101, 1, 51, "Subsubsection"],
Cell[CellGroupData[{
Cell[34627, 1052, 174, 4, 45, "Input"],
Cell[34804, 1058, 127, 3, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34968, 1066, 176, 4, 45, "Input"],
Cell[35147, 1072, 127, 3, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35311, 1080, 116, 2, 45, "Input"],
Cell[35430, 1084, 173, 5, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35640, 1094, 119, 2, 45, "Input"],
Cell[35762, 1098, 199, 6, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35998, 1109, 117, 2, 45, "Input"],
Cell[36118, 1113, 193, 6, 65, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36348, 1124, 117, 2, 45, "Input"],
Cell[36468, 1128, 127, 3, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36632, 1136, 119, 2, 45, "Input"],
Cell[36754, 1140, 148, 4, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36939, 1149, 225, 5, 45, "Input"],
Cell[37167, 1156, 149, 4, 44, "Output"]
}, Open  ]],
Cell[37331, 1163, 124, 2, 45, "Input"],
Cell[CellGroupData[{
Cell[37480, 1169, 106, 3, 45, "Input"],
Cell[37589, 1174, 127, 3, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37753, 1182, 149, 3, 45, "Input"],
Cell[37905, 1187, 391, 14, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38333, 1206, 175, 4, 45, "Input"],
Cell[38511, 1212, 128, 3, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38676, 1220, 177, 4, 45, "Input"],
Cell[38856, 1226, 128, 3, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39021, 1234, 117, 2, 45, "Input"],
Cell[39141, 1238, 179, 5, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39357, 1248, 149, 3, 45, "Input"],
Cell[39509, 1253, 403, 14, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39949, 1272, 117, 2, 45, "Input"],
Cell[40069, 1276, 203, 6, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40309, 1287, 147, 3, 45, "Input"],
Cell[40459, 1292, 73, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40569, 1298, 145, 3, 45, "Input"],
Cell[40717, 1303, 73, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40827, 1309, 147, 3, 45, "Input"],
Cell[40977, 1314, 71, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41085, 1320, 143, 3, 45, "Input"],
Cell[41231, 1325, 477, 10, 35, "Message"],
Cell[41711, 1337, 199, 5, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41947, 1347, 129, 2, 45, "Input"],
Cell[42079, 1351, 72, 1, 44, "Output"]
}, Open  ]],
Cell[42166, 1355, 481, 9, 159, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42684, 1369, 110, 1, 51, "Subsubsection"],
Cell[CellGroupData[{
Cell[42819, 1374, 124, 2, 45, "Input"],
Cell[42946, 1378, 88, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43071, 1384, 196, 5, 45, "Input"],
Cell[43270, 1391, 108, 2, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43415, 1398, 224, 6, 45, "Input"],
Cell[43642, 1406, 296, 7, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43975, 1418, 228, 5, 45, "Input"],
Cell[44206, 1425, 539, 11, 73, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44782, 1441, 233, 5, 45, "Input"],
Cell[45018, 1448, 230, 5, 44, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45297, 1459, 126, 1, 51, "Subsubsection"],
Cell[CellGroupData[{
Cell[45448, 1464, 255, 6, 45, "Input"],
Cell[45706, 1472, 384, 7, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46127, 1484, 126, 2, 45, "Input"],
Cell[46256, 1488, 87, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46380, 1494, 137, 2, 45, "Input"],
Cell[46520, 1498, 87, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46644, 1504, 130, 2, 45, "Input"],
Cell[46777, 1508, 90, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46904, 1514, 262, 6, 45, "Input"],
Cell[47169, 1522, 204, 5, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47410, 1532, 124, 2, 45, "Input"],
Cell[47537, 1536, 94, 2, 65, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47668, 1543, 118, 2, 45, "Input"],
Cell[47789, 1547, 75, 1, 44, "Output"]
}, Open  ]],
Cell[47879, 1551, 132, 2, 56, "Input"],
Cell[CellGroupData[{
Cell[48036, 1557, 133, 2, 45, "Input"],
Cell[48172, 1561, 1991, 59, 371, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50200, 1625, 280, 7, 45, "Input"],
Cell[50483, 1634, 5185, 159, 366, "Output"]
}, Open  ]],
Cell[55683, 1796, 289, 8, 45, "Input"],
Cell[CellGroupData[{
Cell[55997, 1808, 132, 2, 45, "Input"],
Cell[56132, 1812, 5849, 179, 366, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62018, 1996, 127, 2, 45, "Input"],
Cell[62148, 2000, 90, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62275, 2006, 138, 2, 45, "Input"],
Cell[62416, 2010, 89, 1, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62542, 2016, 150, 3, 45, "Input"],
Cell[62695, 2021, 90, 1, 76, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)