RowBox[{"x4", "\[Rule]",
FractionBox["7", "10"]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.7772233426508007`*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "2.13", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "6"}]}], "+",
RowBox[{"5",
RowBox[{"x", "^", "4"}]}], "-",
RowBox[{"3", "x"}], "+", "2"}], "\[Equal]", "0"}], "]"}],
"\[IndentingNewLine]",
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{
RowBox[{"x", "^", "7"}], "-",
RowBox[{"2",
RowBox[{"x", "^", "5"}]}], "+",
RowBox[{"6",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"4", "x"}], "+", "8"}], "\[Equal]", "0"}], "]"}]}]}]], "Input"],

Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{
RowBox[{"-", "0.6598169988845536`"}], "-",
RowBox[{"0.7021297777318641`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{
RowBox[{"-", "0.6598169988845536`"}], "+",
RowBox[{"0.7021297777318641`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"0.09190949735561625`", "\[InvisibleSpace]", "-",
RowBox[{"1.6425054646140878`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"0.09190949735561625`", "\[InvisibleSpace]", "+",
RowBox[{"1.6425054646140878`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"0.5679075015289374`", "\[InvisibleSpace]", "-",
RowBox[{"0.2747987116947313`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"0.5679075015289374`", "\[InvisibleSpace]", "+",
RowBox[{"0.2747987116947313`", " ", "\[ImaginaryI]"}]}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{3.7772233494682627`*^9}],

Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"-", "1.8843432172065433`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{
RowBox[{"-", "0.7787986134820196`"}], "-",
RowBox[{"1.149644545756363`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{
RowBox[{"-", "0.7787986134820196`"}], "+",
RowBox[{"1.149644545756363`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"0.29527704961321516`", "\[InvisibleSpace]", "-",
RowBox[{"0.9172447740491637`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"0.29527704961321516`", "\[InvisibleSpace]", "+",
RowBox[{"0.9172447740491637`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"1.425693172472076`", "\[InvisibleSpace]", "-",
RowBox[{"0.5819544324357288`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"1.425693172472076`", "\[InvisibleSpace]", "+",
RowBox[{"0.5819544324357288`", " ", "\[ImaginaryI]"}]}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{3.7772233494682627`*^9}]
}, Open ]],

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "2.07", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"(*", " ", "a", " ", "*)"}], " ",
RowBox[{
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "3"}]}], "-",
RowBox[{"3", "x"}]}]}], " ", "\[IndentingNewLine]",
RowBox[{"f", "[", "0", "]"}], "\[IndentingNewLine]",
RowBox[{"f", "[",
RowBox[{"-", "1"}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", "+", "h"}], "]"}], " ", "-", " ",
RowBox[{"f", "[", "x", "]"}]}], ")"}], "/",
RowBox[{"(", "h", ")"}]}], " ",
RowBox[{"(*", " ",
RowBox[{"ERRO", "?"}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"f", "[", "2", "]"}], "\[IndentingNewLine]",
RowBox[{"f", "[", "5", "]"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"2.07", " ", "letra", " ", "C"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"a", "=", "2"}], "\[IndentingNewLine]", " ",
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=",
RowBox[{"a", " ",
RowBox[{"E", "^",
RowBox[{"(",
RowBox[{
RowBox[{"-", "a"}], " ", "x"}], ")"}]}]}]}], " ",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "0", "]"}], "//", "N"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[",
RowBox[{"-", "1"}], "]"}], "//", "N"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", "+", "h"}], "]"}], " ", "-", " ",
RowBox[{"f", "[", "x", "]"}]}], ")"}], "/",
RowBox[{"(", "h", ")"}]}], " ", "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "2", "]"}], "//", "N"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "5", "]"}], "//", "N"}]}]}]], "Input",
CellChangeTimes->{{3.777221527435063*^9, 3.777221584814966*^9}, {
3.777222057749801*^9, 3.777222060979146*^9}}],

Cell[BoxData["2"], "Output",
CellChangeTimes->{{3.777221572693533*^9, 3.7772215853765774`*^9},
3.777222061852785*^9}],

Cell[BoxData["2.`"], "Output",
CellChangeTimes->{{3.777221572693533*^9, 3.7772215853765774`*^9},
3.7772220618683863`*^9}],

Cell[BoxData["14.7781121978613`"], "Output",
CellChangeTimes->{{3.777221572693533*^9, 3.7772215853765774`*^9},
3.7772220618683863`*^9}],

Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "2"}], " ", "x"}]]}], "+",