sTPBdYSTvlOY6XHBtk3Fo1gTiRHMtJrGDIXxCrUSY9j21q6IGLVZTOd+T+Xh
0TFM3HWz9gvzBWyV1vV+YG4Mo3onLlk+WMCKcR2pwbi/mJvSNZGQjgXsoH/z
2dfb/2LdiUcjj51ZxLQsa4S5zf9iej5Hn/DGLGFqvF88q/L/YiaxpSP/Da1g
ircTydSr49ipinJfrUg2yuWtj+l2MeNY6X775roCNkpFasZXj+RxbMHczLhi
kI3i8CYvILKAFTcdzq0zZadE1f7qRePj2JaJtjL/rThKD+/6Jw3nCSw8ejA0
ohhPuffA44yM3iR2TiOGSnMkUzrF/jukajaJDWgmha4mkylyLwN2GDhMYq98
Ku9JtZIpJYWhTa6Bk5jrHRxn7TEOymhLCiU1dxLzP3h5e54NJ8VA9LfIFgkm
Znhu2s/Uj5sS+6x5VlKRiUVkFVXHfuCmtO3qqlPSZmIfSN53rZa4KX4HRyOP
2DGxZNskQ+coHkqKI346Oo6JaQTVp9zJ3EQZHOCsSXrCxPLfrprQmZsoyr58
WZmvmZhjhJnf1wObKT+uijtXVLLWPwvFyL83U/iJMlqNzUxs0Z7ryqVtvBSn
2N1b6QNMTC0HTz3nwUvJFtw/OTXNxKR9Gi7P5PNSZp9o/trYYGLtI+8b1jd4
Kf8Dd9F7gw==
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 0},
PlotRange->{{-4, 1}, {-52.330236066541445`, 135.11599853891818`}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{3.777815390783848*^9}],

Cell[BoxData[
RowBox[{"{",
RowBox[{"x", "\[Rule]", "0.6324470002655613`"}], "}"}]], "Output",
CellChangeTimes->{3.7778153907994475`*^9}],

Cell[BoxData[
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"-", "3.016090938643782`"}]}], "}"}]], "Output",
CellChangeTimes->{3.7778153908150473`*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"x", "^", "2"}], "+",
RowBox[{"2", "x"}], "+", "8"}]}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"AxesOrigin", " ", "\[Rule]", " ",
RowBox[{
"Define", " ", "a", " ", "origem", " ", "do", " ", "gr\[AAcute]fico"}]}],
" ", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"f", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "4"}], ",", "2"}], "}"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"f", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "4"}], ",", "2"}], "}"}], ",",
RowBox[{"AxesOrigin", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.777815553508031*^9, 3.777815627446125*^9}, {
3.7778156738831577`*^9, 3.7778157234087124`*^9}, {3.777815856012411*^9,
3.7778158754179883`*^9}, {3.7778160618983564`*^9, 3.7778161046568604`*^9}}],

Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hk01O8XB3BL1ixlq/SZsSVZpySyzlNJCNlaRJaEkq8tpW+LSkiWQiqh
QkRS2Vq0uFMIkV2lZMu+zWKsYX7P94/fX3Ne5zznzMx97n1/7ozC0QB7Lx4u
Li4Jbi6u/149XyTQORxxGiHgNMThUJDUX9mNhovitASzejWnBQqqNMtxOTMn
TmvxvGRXwqagjV1lteMMcVqNXo657wgFjYr8edTRK047vZv+u6+FggJ9tx0q
qRCn1c1eyF7OoaAw5Z8072vitHNvwjJ7rCgoNU0p6auYOK3jyXpnm/ta6GF3
dICdkBgtS2vhRYuGJpJpctinKi1KUz0Vq9v2Rx3V2DqY1imL0NbaXXnj+0IN
masqhygprqSV6vlGPg9URQbPXR43UoRpTJ9jwqsPbEILMd6S2qpCNFkBY+OF
rSpoejb7tquKIG1mrwXfTZWNyGO1hWy3rgDtwLNCaqOhMkoPhw5pbX7aAXZX
uILVBmSekZaWYcJHs42gix85r4QoNgXB0/tW0CYldvbCe0U04HAzgsual3bn
YkbOkyUFJML/I8XNmYf2edApT/6wAuJeNTUUsp+b9q+Izvz0G3m0JX+nlaMj
F02t8qaHoLo8yu2le4nXLsMA09HD31cORZM5eX20RQj2OGufGkNG3dHkO1Zl
i1A576t3+xoZ6U4ZX31VtAjOOVXDiRFk1F994UhM1iK46JYUJoSREQpaWK0d
sQh51ID2R8FkNF8xfe7KnkXwpPsGyzuTke+JcSv5hr/gVxG4EKxJRlalHYwj
vxag0vjVzovfSehoUeNN5dYFCNEpOVTaRkKhz6u0Jr4swMQK09iJZhLKyivy
u/B2AdBWBTPvehKaS78+nHpvAXyqaiWCPpJQdqR+z/eDC/AWWgXGn5LQ4oF7
jXZt8xAiUuceGk5CEo43/dfVz8MFo11CrEskpGIXKdpbMQ82Zvsa/C+SkP3e
oL2BJfNgP6T43P8sCeVRLapvJM1Dp+ubymv+JOS4ab68znYeppTSreWcSejZ
/KHnu7/OgS7/noY/20jING3u/taqObhr6Xe9YCsJdRqlxCt8mIN05iPr0C0k
JHz5u99SwRwk+1gyJTRJ6Dj/AfWXcXOgPXUq5+gGElKUdMjbYDUHWtf1P3pK
klCKhnUWb90sqBTe+DzOItDmhvFE5qdZELTgyp5hEKg6IO5K99tZuGEaEcND
J9BMcZ37u/xZiPKsCJYfI5CDvqXcqZhZ2LCDXBjyh0BiZnvS+yxmQf68WVdY
G4Ei3Hbc+VgzA+tG3QVl3xDokhZb2eDjDNhHCViGvyLQuaXHL4vLZsDriobd
eCmBAtNE2h/lzwCRzHxRVUQg5+/fJaPiZuCr+vEX8U8JpL3PP9HSdgb0Nwi8
Cn5IoF6TtLjW79Ogqy/SlxBNoE5RG8KqaRq+FIa1brlGoG+dXAWVNdOgfy0g
pi2SQPXnvOtelk1Dnm29udxVAr15tUU4JW0aavYHC3y5SKAErZprLm7TsEo1
MC7kFIFMyNPhA4NsqJ7SfklyJ9DcpbDKd11s2NbjlNnlSqCiXgH+pG9sCLxw
JyvzCIE25MheN/nMBqtK235NZwIJaaCbd3PYkJ5Ye8ztAIHa9GPTLI6x4aFi
vdNGawLFp0n9lnNhw4+VNncFrQhktnSfPOPAhu7sgZFxSwKV0Qozs3axwX5w
f8M7cwI92PMt968iG5ofGyQHmxLoxH6F0me9U6BNlpYyNSKQ4uv86asdU6C3
gpW1xxDXY62O3uHmKRBK7TezNiCQTafZW/6PUyDVLtzgup1AOp5+NLeMKfgY
7dyRqkOg5cDX9avdpuDyoGj/GU0CJcdZD5zuZMH1869qy+Xx910/+vlbGwsO
b1M2WY3dkB+Vp/eVBZ8Dza96yRFIsBZOzn9ggb9fwSVJMoHO82mzLjxkwfyZ
URS5nkBHw2Q4V4+ygL/DZABkcD+IlvT0H2ZBWMH0MQp2evq+T7sdWJDE7fEy
Qxrf39voSAFTFlzbvL8mWopAFrMLK2OVWfAis+SVvwTu18DutUnDTGA3mb9M
FCOQNef8AquHCVLlexAZ2/fG2k6HDiY0aPxNKxAlUHaB3UPpL0xYffNSVYMI
gdaMVCjfe8qEdu/lnk0rcT3OugssPGJCjXsms0KYQLYCS8OH05lwoHOuxR07
Rlm3gIhnAjpUJZAhhOvlkaed4c8EB882fR1BAq1nmkpx+zBB1nd9028BAm2/
3Dvt4caEcywZvevYwQ9ky5RsmSASrR46wE+gwZ9x1NwtTPD7/AVK+AjE66uq
IKjGBIGfL3+dxJafr+I5ocgEo4D9NcrYh9dwqtQkmRBCLpZ8uIJAXx2CrJ6z
GaCY0Bucy0sgv2uvw7ZNMICs67Y5AFv43VLh+wEGXBoJK9iOba4YI133jQFB
Z7N7mnjw++9v2mPfyAAex/yUh9iR12XOdVQzYN7IXjwQ+xMjq2voDQPW6EVv
l8H22DCyKqCIASbmMmNj3ATiOkTZNfOEAXXeZi4V2MbwLndFGgNk6uPOhWJ3
srh/xt5iQKvEIxVH7HMbzUUk4xgw4+18Sxv7TXxboMJFBvjpFT9mcxHo4EfZ
R3mnGQAltjY/sGfY7u0UfwacNU4s/YCdvClX4LU3A+60nerIxt7qMqFv4sYA
2X/n3sdjt9zc6ld1kAG86nJuZ7EDK/59YGXLAPvRITiGLT4LTa3mDOB/bd9t
j/1cjZ/XeQcD5BPdPuzEtna12tanz4CMs2KHdbDHE5N8TmgzIOIft5cq2DFV
P+4x1BjQGGDfSGCrzpPrQ5VwfS8N5Upi12h4LS+vZ0ByOpkqgu3t/nRzlBQD
xKtnk/mx+ZKZR0VFGUBfDn7Cg51drXc7mY8B20wTLnBhR838vaG3SIeeO/vE
/nPFkeip3RN0YM4UunJjc1VJHXLsosPxY6X/rMA20ch8f7SRDqbdToZC2Bdu
aSoE0egQ6ZNZLY5dtlAWeamIDhpLMRJr/6unh9lofBYdtmfIEIrYOrUtNum3
6JBva9qviR282a0kP4IOV8SkThpiv7g7tqbsNB3KOyILLf+rx3LohWpvOrgX
3yt1xlbzXtHbfhB/npR9of7Yx78m7O43p8O32Ny5cOwcHVI+S58OeXGZ2+9h
y/PqnhIn6HDp1Xn2F2xX30/fSaJ0CO92DhzETmu2MdJYnoQx6a58XtwfMhk+
fBY9kzCRX+O8C9tRgH3iYPMkRAltafHCTvS/3OD1aRIiTxsKxGCLGN+7G549
CSWndZ99x7bMVl5MuD0Jf4RUyNy4f6+tLHZ/GDUJZ5+WWWtg8/z8ovr++CS0
yFQNX8OeO7P4blpjEsxvhIg54nkp5tWNAGIS9h32NErA/ichwOq6yCTIis+G
NmD3PenrJMYnYFlbdK0dnse6zpqlXU8nYMmT/dcfz2vUCZ7PomkTsOmM8N13
2GjG8Mb3mAlYG1RFFcbzXyr+gnzSdwJ2K6i9fYb9YOdtapLqBHzzfW4vivPk