\\(\\*StyleBox[\\\"\\\\\
\\\" with numeric coefficients.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/NRoots/nnumeq\\\", \
ButtonNote -> \\\"NRoots::nnumeq\\\"]\\)\"\>"}]], "Message", "MSG",
CellChangeTimes->{3.777816662587987*^9}],

Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVxXk8lPseAODJYBjGmmWmrJU926mk6PuWlEShxVwkKVqsKZWSiMhyceIg
2TpJpc6MujIU3h9jMrabSDrHFjqyFMaSGdt77v3j+Tw6viFufmIkEuny//z/
sv3MuERa+y4uVJ/xmDFAJvJ9FyQ2b4HI8v6Y/xpro0+C24UKQia8KzfyTpym
o+nD+jMhYf4wVeS3PTFLDd3I2NccsCUUHq+9p22ioYpWoyIeFJqFwwfhY6cw
aRUUfeFFYKfRdbA20/eYNVuLyMcHbCl6t4CvdjkeIpURVzsxIV/hNngT7fZK
w0ooLks31Co1DqhtY0bJJ5TQPtlq5geZBLgZ4eRv8E0RUW4f2x2QmAj1mdfT
WyMVEX9h0lCCkgJR5ZduWK9XRElBd5UK41Kh6jxfwOUqoBJB+s31MekQUGkW
sSlMAZ09a+RfsXoPvAOdQhxxeeSge9Uj1jYTVMihtU92yCODPu4hl8jfINhA
XNhYI4fG3U5YjYuy4QlhYDfXTUPNtFJjzvb70J7d6FkcREPP+T+14q7mgnFc
TqGbFA0F7kqX0pzPg/Tbhk5DjrLIWdS7PP5LAchWOdiKz8gg03JDASesEHyq
E14X5ckgYebgdwNhESzct+DvXKKiKuqNrvrwR+CQj69T/SyNijardLJ1i+FC
bA/LMU0axbuw2/PeF0ND28b3LQ7S6GjWcMsVwxI4pvz0iHa9FJrWcao36nsK
p4+tX65spqDuvSO4WtIzaGpN+70nnYJqz0bXiFuVgjzjoEcAk4KS/yiv7E9/
DkkFM6/uTkgiPWsN9r29LMjt3cghaUsiWS/Oi1sCFszZ2fu8m5JAs1GupYEF
bLiy3VEzDkkgn6F6tw2RZTDmaW9be0YCmRosOK90vYSxcG+WMUccNf3n5N6X
ieVwdeO0WvBNMrLhmXD1v5SDdeDnsiEmGZV9Eu0u2PYaKmzecfq3kFGWKAOS
h19D9jrVCc9JMXQG+Dv8bDnA0fVLX/EXQ0SzuQVdUAXxpPmMhYA1KKx3hZ22
/w3QdgdNbj+0Bo38aDaVLHgDYdlDCu/N16BWBT+TWce30NeqISn4SUK5x+/r
txVXwy/XTa50xpPQ1qE1mjFMHLTCydsUzxK46Rt3gfkzHPJTOkrarAhc794f
DV9EOLisvdA1KUXgMg9fbC1yRnC4MuOI+4tVfNmF2UtMIhgNGfZKXljB+8rY
hrhFPfjz995ZzV/GC0O9G2w5DTA4IKoy0VnE87ykWb8NNMBRbljBpSURnuNQ
nv2DwgPr0FTGbJcIT9emBuQzeVB3/ptTTrIIj25/rbgi4sHXmOGPp0VC/JQ5
7WS1TSP0x0hSXfoX8A3Tb0U76ptgazhbpYk/j0e22cXN/WgC1lS4kFoyj38q
bZFj0ZthzfPhgiux83iSX88GnYvNwB3u/5O/ax6f/mvRmaLdAhJBFVoHOHN4
Lc/6986brdD36aLXHvYs7vGA4xho/R7EXhls7uEI8AOP/mw7xOwAPdm5mVHT
7/j0HZY/L6gDkvI6A54KJ/Ccc7HEztgOOGcqzkipn8BHN2+2MGR1wJ4Bsfja
4xP43croTLJ4J+QwXsw1RI/j/DZ9z0p2J1i6SspTekbx/cLwUR1KF8x8HGMr
lfyN2zsrkedfd8Phud2HWmgDeNrJ7mhzTi+Mv0r590NfLt54SIPmojQIUqVR
dccd+fBDRyWqI3cYUn0tLUoGBiD8svGpNNUR0ItZr/rt2hh09yq4+fNHIeKr
YZTSiAB8Imy+UZwmYCo1ZW0g/hO4xlZJXIlJMOJRq8SUl0FPunq02GEaLjFv
2OT/SsI0qgPsJe4KoDTQuHmRTsZIi2LPwoZmwDQ4iV0+JoEtuNZ48zbNgbpm
lviRXCmsZ8vJdZvi5mG0ukt0MEcGC3VXUNTt/QnqllzOqXw5jJ75lSmuIYSW
Ia+vqnUKGMuz6MnsNRGQdGIcW04oYe62txz4NYvwwH0pvHlMGXvpHaS7Y3kJ
6ubUEuyuqWBCqh256tgKWL7UtXTeooa5fdi5TSNnFcR/JDzs7FPHqDtl6qrz
V8EhPuMy8291rK74r4Nej1bBl0fV7f+ujplfizj1gLUKXYPBst+X1DE5LU4K
nbcKRxuDtZUYdKwp0HJYZWYV3uzHXBKO0zFMyjBdzomAI1+8N6m20zHhRSGD
5UrAwOjYiYpuOsbuaXzs7E7AduXzYe4DdEyT7f82xZeA6xsvmeVN0rHlY8Uj
1AgCGqxIS2Y0BsZ5pGVLKSHgQ4j1ULQjAwumTTWWPCcguubOgKkbA9O7Wuu2
7yUBI2XRVX3/YmCZjifO3akmYKtrGXnXeQYWJsjNIHcS4FKwdUbqLgMz8ryg
+egzAdSAbZ9q0hjYYIP1sz39BHS0Y9mXshmYS87n2pgxAuRCCssGSxiYlNjT
AzpTBJxeT5XOZTEwPODqRzRHwK9Oz3cdqWBgV7r2nfRZJMDGONWVVsvATEF1
nCAI2Nhfs5vPY2D/AIaKl+E=
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 0},
PlotRange->{{-2, 2}, {-12.473345897655127`, 6.693146731580359}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{{3.7778162532136226`*^9, 3.7778163031957026`*^9},
3.7778166144772787`*^9, {3.777816655630342*^9, 3.777816662603587*^9}}],

Cell[BoxData[
RowBox[{"{",
RowBox[{"x", "\[Rule]", "0.4858388639605664`"}], "}"}]], "Output",
CellChangeTimes->{{3.7778162532136226`*^9, 3.7778163031957026`*^9},
3.7778166144772787`*^9, {3.777816655630342*^9, 3.777816662603587*^9}}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", " ", "PLOT", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"x", "^", "2"}], "+",
RowBox[{"2", "x"}], "+", "7"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", " ", "\[IndentingNewLine]",
RowBox[{"AxesOrigin", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]",
RowBox[{"PlotRange", " ", "\[Rule]", " ",
RowBox[{"{",
RowBox[{"Automatic", ",", " ",
RowBox[{"{",
RowBox[{"8", ",", "Full"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]",
"]"}]}]], "Input",
CellChangeTimes->{{3.7778169244755445`*^9, 3.7778169312771444`*^9},
3.777823384431809*^9, {3.7778234486742563`*^9, 3.7778234508427114`*^9}, {
3.7778235075033646`*^9, 3.7778236061602945`*^9}, {3.777823966131956*^9,
3.777824025571766*^9}}],

Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAY6+Q7///D8AcB1nn//8tQBT7GiY7
/A/AkEbMKln6LUDERqVcdvgPwNJjf1Gz9C1AJt65yezwD8DIN6VIauktQOoM
46PZ4Q/AdUXv3eLSLUBwajVYs8MPwMv3fKT+pS1AfiXawGaHD8B6uH6h4Ewt
QJqbI5LNDg/A2akbW06dLECf34hvUQkOwKIu+q/SLCtAFtBTTykVDcApc4s2
1OMpQMhQU0TLJQzAGFGBuGqvKEBIKSV0IyILwLQ3aoWucCdAOq5cps8vCsDx
Z2QKEVYmQPqKZhMyKQnAGgc9PfozJUD196SVXicIwPZLSQWPJyRAYRFJGt82
B8BWrbA/zzsjQJyCv9kVMgbAVvTegiFMIkBIoJuboD4FwFCE7w9deyFAL06s
cvVPBMDuEkLhv7wgQNcWk2QrUAPAAAAAAAAAIEBdP4+c
"]], LineBox[CompressedData["
1:eJwBQQK+/SFib1JlAgAAACMAAAACAAAA7lZppyN+2j8AAAAAAAAgQHsbNLru
2eA/suo0hjmpIEBeNEPQD5jkP5PLsV8QZyFAB+4I+1en6D8w1d3w0UQiQOv1
NxxQcew/KhuG2qciI0BLzw6pN0bwPwCEgFlCIyRAKoOYGTNK8j9wBMMoli8l
QCbeVoWGK/Q/DNPvd4o4JkCFiXB7bTX2P4yvUk7PZydAAdy+bKwc+D+eIU8w
8pEoQAcOpDNX+vk/GzryeUnEKUBwkOSElQD8PzvLC8xmICtA97lZ0Svk/T9n
5luLBXQsQIrYkCGb7P0/s6FhcBJ6LEAe98dxCvX9P2wF/XEggCxARDQ2EukF
/j8dxvTKP4wsQJCuElOmJ/4/iCzo04ukLEAqo8vUIGv+P4KN3kFZ1SxAXow9
2BXy/j8AoAmOyTctQPGqdCiF+v4/uGjEBfo9LUCEyat49AL/P9zZFJorRC1A
qwYaGdMT/z9mtXYYklAtQPiA9lmQNf8/g1E+bGxpLUCSda/bCnn/P94d3W9W
my1AJZTmK3qB/z9MbfKwmKEtQLiyHXzpif8/JmWdDtynLUDf74scyJr/Px1O
tB9mtC1ALGpoXYW8/z8RBeaYh80tQL+In630xP8/25eovtLTLUBSp9b9Y83/
PxDTAAEf2i1AeOREnkLe/z+7QnLbuuYtQAsDfO6x5v8/MneLcwrtLUCeIbM+
Ie//PxVUOihb8y1AMkDqjpD3/z9j2X75rPktQMVeId////8/HAdZ5///LUA0
DAgc