hCL2r2JlDqXv6QtrxGuY0HOmMXnNLMGZLzeNidVS/Hs4znKO4IoZ+SyxOiYM
PDK4qcsluH3FNzexj0x4RH90f4ziySOpcmL1TNDbkVB6h0ewXK53Ne0LEx5H
OP/UIATrDhqcpDUyQTN9h1QUxVZLpgxoTUz4d3+NZT3Fu7xfd4m2MEHGozSc
2n/ik+kXE0S/MSEx5eHn/52Hxnfa2om2M6FOQ2BxD8XPFioIiv5ggmD49/PZ
FNe6tRWJdDABexz950Rxd8J9P5FOJrjqLHRvp+Lha/bREOliQrGjc+s6ilUU
DJuEe5jw1jBv12UqfmP76UvCvUzoE/k3lkfluzkaI+E+Jqzna40rofTwfR8+
LtRP+WV8dO19Sq8LNLuHQoNMyEpr5PrMUH5aKnoIDTPhqIlRrRylb/G5dnmh
Uep6aVdmwiTl35xvqOAkE35stE60GSN4u8sm7ZkpJlhe6LQ6OUJwZf6SpsEZ
JmQ8O20ZPURwgm+/wTcuEz7etbBx+UewUHVd+yfChCbbIw4yfwk+pJEdVcXP
gtDPpS8yewhe33Lw9zNhFsg0DqSH/iI4Z5ldTIYoC+piPxgW/6DyvaZvfk+M
BXOJuZrNbQQPWw7FR0ix4MrWwo1FXwm+m++/0UORBXaifv00anyIyNhPOSqz
4JrlDiH7SoL9fQ3TbBgsSKJn3gspo/zTGOUaz2cBLXSFe+ALgkejj+RKLGLB
v62RV8YzCHbvc/Tg12JB9jqOgs19gmssjSWm2Cyo+RW05jQ1nhPnxvd26rIg
tlc2IoYa/xt8g+jFxix4xHgSZB1GcH6Vc9XTFSyA9ZejHx4neIGGSWCaKQti
TA8cHqDmk7HmqffXzFiQcXbLfZX9/9P/xGmv9dT9H2YPStgRLJa6XdfNigUB
63cfCrUm+Ojcylb7DSxwEOZ5fQKCbfI5Rua2LFDfnbhDdRnB4+qhPfOcWDAE
RNhWieCdoW5xYs4sUKvsOPtBmqqvZjMg21jwhrlP11CU4ORobkKfKwsWrs7W
SZ7i4Y1zYf+V72GBhOu3ZKVmHk5tPvv80BEW6Moo7w+J4eGeqqU/o4+x4I6B
S4RzOA/rPv8plhPMgstbr+jKhvJwYYz5zqGTLHh3dbex2n4errOZEfO/wAIl
mY2Rt1fz8HSp/86AmyzgXLU11vvBxWseLbwUe4sF1ntMff585uLztz8+z01g
gcKN3sHTVVwsfUxXfDSRBYnSNZq2T7iYpd/7PDCDBUX79OocjnOxXcpOal/B
Aid2hvxicS6+ES29/EYxC6bju03qZudwa+irnc9LWXCs/02y/cAc3rtdtWAc
U+1pg8c5n+bwCfnmncdqWDCrOMeqjpvDaRfsCoJaWRC3wuSgk+Ic5nib7zox
y4L3uUKFdXyzeGOpDhzjsoC/s1inaIiD70rR1QMI9bz1XgsifnCwWd7oT29B
Tcjbtre6uZSDw2Yzd7pIaMLFyo5p82McLBgtv9NEVRPuSaav1vs9gyXz/7hP
rNKEfapnRZWfTOP53FjXgBBNyOr+ZOs1OYE3dP5XfCtUE9TKuEZbv0/go2/F
lF+HaYJWTfRXncoJXBt79ov4eU0YirGuvBQ7gYMWB9ikXdYEAZe9p9SXTOD6
zVtMmu9pAl+Lo9er7eP43H3peeZYE26dukyup4/iHuvLtTShRTA2sihkD3cA
v1lchxZcXgTrec/O/efbjn1pGUIaYosh54p9VMm7DFSUomn+JnYx/ILuN0ao
E31cbVblIKcFU6c2B13fP4wuvTg2azVPC6RF1m3zPDeMrJfnGK5W1AIVp+VB
zMRhVKbPTGIxtGDrW0HakS/DKF+DFjyurgWL7qo+dzAbQbdFG9nxS7VgSU+t
1qTkKNrTcOBK62Yt4N8Zc0s9dQypb0mv+GCvBTmWp0ffFo+h9rof0+WOWuC6
7NwJty9jyLnaft+jbVpwqo6bbSs4jjYUm6w5uVMLNAu2aVrvHUf6yYLDaoe1
wHPWa2EMcwJN+9513BWtBfHUxNl4bRJdC3kgejpGC8Kc7vM3ZU6ixZcelyZe
14JrJY/iX+FJtPVhKastXgsKxq5No6FJlPenbWxrshbc5i/Pk/5vCvntVbux
6ZkWrBwxZbwSnEYd7omNK75ogYPt+RtP3GZQ8MH0yK2NWuCxr8P6v4AZJH0q
2+xokxakgOu+zxdnkPm9V2m536h8W+LPnX86g+58+35U97cWTMTm1FzhzSCn
bQsUmeNawJv/QUA9gYNqtiRvlVJiQ9vYZU5+0Szyrex+LUpngw638U7w21kk
ZarLFlBhw1dZWWn15lnksLCYMzmfDZudDJcunJxFbQNfkjsWsaH8au3LRqM5
NHhJpC9/ORvmW/5Sk82cQzE8W8enJmw4iL5MMwrm0LLAuJdZK9mQ83E1Fn0z
h45vV7+WaM6GuPfyX6N/zCEB9irjCEs2OByXeWqjwEWKVQfDdmxlg26uRYlX
CBe9MH3+x2kbG853LlJ+GM5FO55wtmzezgbVvadjP17noqS4CNZ6dzYEftDO
qXjERWzP1Bq9fWy4/Tdpg10rF5mRRnn+Y2zwGUpg/V3KQz8CVUNng9jwKm6p
kMtqHjrbs7t74jgbhkdD7B9a8lD1h8GivlA2CEn1io1R79Ob79HcGy+wQcwn
64fGWR7yXGmWmXmDDbPKJ9u63vGQz8CHifZ4Nhi8MWUfaeAh/9Sd6+UT2NBn
izva2nnotNj5X6GJbLC1PLLfbIiH7rW+U3XIYEOj5e2bpvIEPbjq6huRxYbl
kmFiCSoEPVo78OLlIzZwS/yvNzAJKn4o66yVw4bjUpdLm4wIajqxLWauiA3u
hO6uYE/Qd72/PwxL2BBrluW73oWgrl8hevtfsqHhlJKF3U6CxmySaj+XsaHM
y093yI8gWZVuocx3bAjev1J8XzhByh+DHNvfsyE1vPCM5xWCFpyj3Zf7SMVT
FnV25XWC9PqWoNAvbCj2/CN8NJGgjSWBJ+zb2CD7odBdJY8g+0NCNeHf2UDX
bvT5XUiQCzNe6eVPNiyWCq67WErQ/kvF+Yu72BAR+DvMuZKgQ2s2Cbj1UP53
Dry5UENQ0Gj7ltheNphUEZsrdQRd2ME3ONvPhmOL3whrNRJ0Wfq6meEQG7IC
DIxKmgm6XsG67DVC+dVAv7q4jaBUHWv25wk2JLZ3vLr0i6CsHy1BItNssO4c
v3yui6Bn132rVnPYIP92+LjjH4Jec656ZvDYEKWtcP9MP0FVTxfmtvFpA9Ow
v7l9kKA6z1wiK6gNXsuk1OVHCGpUWmdnJawNe+Srg9XHCGqrbbx3UlQb7Ng3
20UnCOoM8/r3TEwbEjaybWsmCeozml7ZI6EN5XVulbunCRrpiYpUldaG/nNo
XeMMQdN3VJu3yGqDTaXk24WzBBG77EXh8tpgfHCp3fo5gkQE0dFSBW1Y/Muy
eS2XIKmi+ophJW3YL0nfTecRpHDAU24xQxsu7Evte0ux6sLxna6q2nB9UOLI
FkIQs+Hi05j52rB0Re5MLsU6EcrcqoXa4OSiEtZPseHqh5tmNbTh//8P+n/p
yxJ0
"]]}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 0},
AxesStyle->RGBColor[0.5, 0.9, 0.8],
PlotRange->{{0., 12.56637035790263}, {-2.1, 2.1}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02], Automatic}]], "Output",
CellChangeTimes->{
3.7778261877726583`*^9, {3.7778262337943287`*^9, 3.7778262854014444`*^9},
3.777826380066492*^9, 3.77782641314668*^9, 3.7778265067022786`*^9,
3.777826552739059*^9, 3.7778266169503055`*^9, {3.777826679601512*^9,
3.777826740583475*^9}, {3.777826850129484*^9, 3.7778268574772725`*^9}, {
3.777827122090392*^9, 3.7778271630411797`*^9}}]
}, Open ]],

Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"Resolu\[CCedilla]\[ATilde]o", " ", "da", " ", "Lista", " ", "2"}],
" ", "*)"}]}]], "Input",
CellChangeTimes->{{3.777827963848707*^9, 3.777827972765436*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"x", "^", "3"}], "-",
RowBox[{"2",
RowBox[{"x", "^", "2"}]}]}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "5"}], ",", "5"}], "}"}], ",",
RowBox[{"AxesStyle", " ", "\[Rule]", " ",
RowBox[{"RGBColor", "[",
RowBox[{".5", ",", ".9", ",", ".8"}], "]"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"{",
RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"2", "x"}], "+", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "+", "2"}], ")"}]}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "1.5"}], ",", "7"}], "}"}], ",",
RowBox[{"AxesStyle", " ", "\[Rule]", " ",
RowBox[{"RGBColor", "[",
RowBox[{".5", ",", ".9", ",", ".8"}], "]"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"{",
RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"x", "-",
RowBox[{"2",
RowBox[{"x", "^", "3"}]}], "+", "3"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "6"}], ",", "6"}], "}"}], ",",