(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1447,         51]
NotebookOptionsPosition[      1143,         35]
NotebookOutlinePosition[      1483,         50]
CellTagsIndexPosition[      1440,         47]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Exerc\[IAcute]cio com Plot", "Title",
 CellChangeTimes->{{3.6658670545297694`*^9, 3.665867066976886*^9}, {
  3.666437146206273*^9, 3.6664371498744273`*^9}}],

Cell["\<\
Os polinomios : p1[x] = 4 x^3 - 8 x^2 - 15 x e p2[x] = 4 x^6 - 16 x^5 + 4 x^4 \
+ 44 x^3 - 24 x^2 - 47 x s\[ATilde]o praticamente coincidentes em duas regi\
\[OTilde]es contidas no intervalo - 2 < x < 3. Encontre essas regi\[OTilde]es \
a partir dos gr\[AAcute]ficos dos dois polinomios. \
\>", "Text",
 CellChangeTimes->{{3.6664371762191825`*^9, 3.6664371859223948`*^9}}]
}, Open  ]]
},
WindowSize->{885, 685},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.2 for Microsoft Windows (64-bit) (July 7, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 162, 2, 101, "Title"],
Cell[745, 26, 382, 6, 68, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)