(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 137788, 2663]
NotebookOptionsPosition[ 135888, 2599]
NotebookOutlinePosition[ 136268, 2615]
CellTagsIndexPosition[ 136225, 2612]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Aula 2
18/09/2019
Jo\[ATilde]o Pedro

*** COMANDOS
NRoots
FindRoot
Plot -> par\[AHat]metro AxesOrigin
Plot -> par\[AHat]metro PlotRange\
\>", "Input",
CellChangeTimes->{{3.7778147590388136`*^9, 3.777814779913901*^9}, {
3.77781544416739*^9, 3.7778154818728313`*^9}, {3.777815919970446*^9,
3.777816001930744*^9}, {3.7778234314982157`*^9, 3.7778234424340963`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "NRoots", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"NRoots", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"x", "^", "3"}], "+",
RowBox[{"x", "^", "2"}], "+", "x"}], "\[Equal]", "0"}], ",", "x"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.7778146714400544`*^9, 3.7778147058154917`*^9}}],

Cell[BoxData[
RowBox[{
RowBox[{"x", "\[Equal]",
RowBox[{
RowBox[{"-", "0.5000000000000001`"}], "-",
RowBox[{"0.8660254037844386`", " ", "\[ImaginaryI]"}]}]}], "||",
RowBox[{"x", "\[Equal]",
RowBox[{
RowBox[{"-", "0.5000000000000001`"}], "+",
RowBox[{"0.8660254037844386`", " ", "\[ImaginaryI]"}]}]}], "||",
RowBox[{"x", "\[Equal]", "0.`"}]}]], "Output",
CellChangeTimes->{{3.7778146938202925`*^9, 3.7778147065535655`*^9}}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"Encontrar", " ", "raiz", " ", "pr\[OAcute]xima", " ", "a", " ", "um", " ",
"ponto"}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"x", "^", "6"}], "+",
RowBox[{"3",
RowBox[{"x", "^", "5"}]}], "+", "x", "-", "1"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"f", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "4"}], ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{
RowBox[{"f", "[", "x", "]"}], " ", "\[Equal]", " ", "0"}], ",", " ",
RowBox[{"{",
RowBox[{"x", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{
RowBox[{"f", "[", "x", "]"}], " ", "\[Equal]", " ", "0"}], ",", " ",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "4"}]}], "}"}]}], "]"}]}]}]], "Input",
CellChangeTimes->{
3.777814750533963*^9, {3.777815050442316*^9, 3.77781520043635*^9}, {
3.777815325138627*^9, 3.7778153376811075`*^9}, {3.777815388475033*^9,
3.7778153895670395`*^9}}],

Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3c8le8bxznTKpRZRHZDZJfxHLLOSTIyMksh46uiVJSsJCVRIkpSGQ1K
lCL3RUpZyd7jOGY4Rvb6nd9fz+v9ul739dz357o+1/PcO93OWrnj2NjYfrKz
sf3/WTvDHqaczwUqJ+MNPg6coNh2erV9fcMFfyO6s0ZzT1D2FAib8z3lgsqo
iGLmnhOUJveAA4URXLDT5UHRNXsXivyv3XwbZqy4bs3dmBgHis6jmy+eU7ng
Y3x5cruFA8XKi6FlaswFg2clB08LO1BCONNOxmNccJppkaL08jilhcr/QVqF
C+Ilqn/f+2ZPiapasDEV5oIS3ncXnbntKIPVFanx/ZxwcozguvrdmrKculNZ
o4cT4BJbdPh9awqfb0hFRwcnnJiFCuykNUWHR2tCuokT9s1ubXdZs6I8MHut
9/EHJ9z+uL5pj5YVxbA2vr/jNSfIOYfPtH2yoDyvc5GXCeQEjVPfeWZKDlMW
jf1CcAGcoBxcM7jJ5zDFDF1r7jvLCT5y9tJhoocp83mPI554cUKZ0/lW30s0
CjW+o1fImRMee+kFWWlSKUxr22ROQ04I4wwu3VlpTNFuP8LJ5OeEmvW5P/tk
DSj3LJ1P1G7mBPk4zfHybn0K45fvp9fcnGDQULmW+VCfcvfLbfczRE4wGcmS
dOHUp/Sn/irrX+SAFzdyKYRBjHLTxSioqZcDeEVwgT2Z2pTGAZ2/n99ygNy7
EpdXj1UpZqLFz4694gChEuLbO0KqlB/mB+yZmRwwfO3nvW3xKpSiz+rfZdI5
YFeSyrRG9H5KWty+p3EJHCDSeEXqx+o+ire2pLX7JVY+xVxMWkCewn4fX8yn
zwGh8dSCQF8+StDPsPOvdTkgSi5gxvPwJsq/tQ1544McwHM0/u3nck7K0JnV
B8GqHLBN7Xd6A8JRavTm/IZkOaD+Z6dHTu0Aljw2JFXCxQHJ7cKZpt+IoGRQ
FePZRIY7s2sxjKmdMCKxgtf5Q4YvF8x+NWZIQfranmt8dWRQqL27rd5aGvg+
x579XEmGyE2luNl8GZhWsjzGXUyGq7PP9y64y8MH8TbxvGdkUDwzkf3s6V7Q
XBp8N+9HBs/SRTF7VVWYahHaXe1DhtLGk+od11Qhu8Dk+dMzZGjOdcierFQF
kXM5iaZuZHje28RV76AGS0O+QSk2ZHAdnHgXEqwOxU2zh/R0yGA3ec+2I1sT
sHfsrTc4yfDzd+69hUJtaBuWNvEmkaE4LeyU7ow2+EsYfzLHk2HfiStnZfbp
wIu7MUnCayQQEIwOaH2hAxz/bbXPmSLBMwZ1uD1WF+p3ybbXtJKgw1vrR6I5
Bieem3ZuzSTBvMUXhxvG+rDU4X14MYMEFF/LAbKrPiRsiS3uekqC9tL0ftdL
+lAR9if15SMSiB3623QvSx8UTjg4acaSIN9GNnuZaABTYr7dDhdIQE4rOry5
2ABCH8b1PjMggSn/aoIq2RD0bkvmGWAkuCAol2YpZgir19+HDGiz3sdzd9Rg
vyFc8moUl1UnAfPot5mnDobgpyPslC1PAgmS5QvT14bgSE9ry+UhQZpEY1OQ
oRGItCplH+UkwTJl+9V+WyNoqYZLU0QSDFa8Ed/hZQRWhXQhlQ0iiP/2WBaN
NQLTaDmbwmkimOnYIslGI9DYl/unuIUIzyXBOM7OGP5JYc+cGong+onPycvT
GPKF68+t/SYCfl6fS+ySMSiyz/Biv4hwqkq7mfuhMcg0qZuXFxMh3MAnVbTB
GLYEfa36mU6EsrAwCv8hE6j3M0/xekKEI7V3Bm5amMDdU71eXClEOH/f5Hm7
swlwHmHnNLtPhJxtckK8l02ATdLI5PcNIpypM+f/8coEJr7XfGv2JkJS8W3j
KE5TGHPjs33nSYQNnZQsdgFTGNqwHok5TYS0KwE41x2m0Hegk4fiQoTMa7sk
QcUUGt6O2ryyJIK7waClhIMpfEwkjYRoESHiWy2773NTyFehBR1XJ0LxkUUN
wTemkPc7lkdNhQja7L9NMgpMIZtTcP/oHiJY/Trhf+a7KaRckw6yliACF11E
MnvQFELcKTwKJCIUkZNNN++kQhAuMg2HJ0Jf90Y/ToEKl55WKndvEED+lJhc
9z4qnGs3t0lYIoArz1uJQzpUcDvinLY6ToCPgyXjrTZUcBlLV24dZbF659Sq
IxUcbzLK3w8RoNTdKJTDjQrHynyGPfoIcC1tMq/xPyoYqwcp/2kkwIV0DTvd
SCprzn0tf11PAEJo85dHt6iAnWW3iaolwJv4mhvdd6mglRN9RbuSAAzrgNLt
j6iwWzyp/OUXAjzPvpV38Q0V5L50HAv9RIAtFPNDfO+pIG23Y9ihgAApFcuC
9wupIBb/kpsvlwD+MWF0y1IqbCYWHAt6RoBHWMbaxzoqKLl6GPOnEcBxvu/Z
SAMVLD6LaGWnEOClUJrdRgsV7v93bXvLfQLkkCyvdvVQoaBSadN/9wjgY+al
+JxOhZad9HV8LAHerhpeODpEBZEWY/r+KAJ4H4owPj5BhQPKS40/wwlQY2W6
9dMUFRxiXn93vU4Al8bExeVZKjzW48uJvUyAjGfRd9WXqbAzq/3sqDcBlhPr
/a4QaWDAfudkqCcBIgMibnJz0OC0o5618GkCBNo3fo7kokEm73MNI2cCdOwV
GNvLS4NKLxuFruMsPS8qyTvx02DkG3lbgC2rHjE6q/5babD7su9a+lECpH68
/tdOmAaHG3YwNc0IMOEiaygnSgPfvX/66kwJ8GnT4/dd22hwNyqiwd2IAL9C