(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 255599, 4948]
NotebookOptionsPosition[ 251824, 4833]
NotebookOutlinePosition[ 252201, 4849]
CellTagsIndexPosition[ 252158, 4846]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Jo\[ATilde]o", " ", "Pedro"}], " ", "-", " ",
RowBox[{"1", "\.aa", " ", "aula"}], " ", "-", " ",
RowBox[{"11", "/", "09"}]}], "\[IndentingNewLine]", "*)"}]}]], "Input",
CellChangeTimes->{{3.777223434149719*^9, 3.7772234595159698`*^9}, {
3.777223566082302*^9, 3.777223640605413*^9}}],

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"%", " ", "significa", " ", "a", " ", "\[UAcute]ltima", " ",
"sa\[IAcute]da", " ",
RowBox[{"(",
RowBox[{"na", " ", "linha", " ", "anterior"}], ")"}],
"\[IndentingNewLine]", " ", "%%", " ", "a", " ", "pen\[UAcute]ltima",
" ", "sa\[IAcute]da"}], ",", " ",
RowBox[{"e", " ", "assim", " ",
RowBox[{"vai", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"x", "=",
RowBox[{"1", "+", "4"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"x", "*", "2"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"x", "*", "3"}], ";"}], "\[IndentingNewLine]",
RowBox[{"%%", "+", "%"}], "\[IndentingNewLine]",
RowBox[{"%%%", "+", "%%", "+", "x"}]}]}]], "Input",
CellChangeTimes->{{3.7772096771988955`*^9, 3.7772097240764885`*^9}, {
3.777209843407177*^9, 3.7772098490699043`*^9}, {3.7772103909980726`*^9,
3.777210421218272*^9}, 3.7772222933529778`*^9, {3.7772231323139095`*^9,
3.777223133546357*^9}}],

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"vari\[AAcute]veis", " ", "-", " ",
RowBox[{
"come\[CCedilla]am", " ", "com", " ", "letra", " ", "min\[UAcute]scula",
"\[IndentingNewLine]", "comandos"}], " ", "-", " ",
RowBox[{
"come\[CCedilla]am", " ", "com", " ", "letra", " ",
"mai\[UAcute]scula"}]}], " ", "*)"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"Comando", " ",
RowBox[{"N", ":", " ",
RowBox[{"valor", " ", "num\[EAcute]rico"}]}]}], " ", "*)"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"express\[ATilde]o", " ", "1"}], " ", "//", " ",
RowBox[{
RowBox[{
"comando", "\[IndentingNewLine]", "aplicar", " ", "o", " ", "comando",
" ", "a", " ", "toda", " ", "a", " ", "express\[ATilde]o",
"\[IndentingNewLine]",
RowBox[{"ex", "."}]}], ":", " ", "2"}]}], " ", "//", " ", "Sqrt"}],
" ", "//", " ", "N"}], " ", "*)"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"Sqrt", "[", "2", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"2", " ", "//", " ", "Sqrt"}], " ", "//", " ", "N"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"3", "\.aa", " ", "e", " ", "4", "\.aa", " ", "saida"}], " ",
"*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"2", "^", "20"}], ")"}], "-",
RowBox[{"(",
RowBox[{"3", "^", "10"}], ")"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "3"}], ")"}]}], " ", "-", " ",
RowBox[{"Sqrt", "[",
RowBox[{"1", "/", "4"}], "]"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Sqrt", "[", "2", "]"}], " ", "+", " ", "3"}], ")"}], "^",
"20"}], " ", "+", "1.0"}], ")"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{"%", ",", "200"}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.7772110553268623`*^9, 3.7772110896482935`*^9}, {
3.7772111531396427`*^9, 3.777211305704897*^9}, {3.777211709530138*^9,
3.777211918078017*^9}, {3.777212069101118*^9, 3.777212069988207*^9}, {
3.7772124196696205`*^9, 3.7772124203404336`*^9}, {3.7772223249131937`*^9,
3.777222338378598*^9}, 3.777223143452738*^9}],

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Vari\[AAcute]veis", " ", "internas"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
"Pi", " ", "\[IndentingNewLine]", "E", "\[IndentingNewLine]", "I", " ",
RowBox[{"(*", " ",
RowBox[{"unidade", " ", "imagin\[AAcute]ria"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{"N", "[", "%", "]"}], " ",
RowBox[{"(*", " ",
RowBox[{"Referencia", " ", "a", " ", "E"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{"N", "[", "%%%", "]"}], " ",
RowBox[{"(*", " ",
RowBox[{"Referencia", " ", "a", " ", "Pi"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{"Cos", "[", "Pi", "]"}], "\[IndentingNewLine]",
RowBox[{"Sin", "[", "Pi", "]"}]}]}]], "Input",
CellChangeTimes->{{3.7772125138634453`*^9, 3.777212615612602*^9}, {
3.7772134636569324`*^9, 3.777213487493885*^9}, {3.7772148320703363`*^9,
3.7772148505751867`*^9}, {3.7772223515299377`*^9, 3.777222357801299*^9}}],

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Solve", " ", "\[Rule]", " ",
RowBox[{
RowBox[{
"Calcula", " ", "usando", " ", "m\[EAcute]todo", " ",
"alg\[EAcute]brico", "\[IndentingNewLine]", "NSolve"}], " ", "\[Rule]",
" ",
RowBox[{
"Calcula", " ", "usando", " ", "m\[EAcute]todo", " ", "num\[EAcute]rico",
" ",
RowBox[{"(",
RowBox[{"tipo", " ", "o", " ", "comando", " ", "N"}], ")"}]}]}]}], " ",