"*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[",
RowBox[{"x", ",", "y"}], "]"}], "\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"x", "^", "2"}], "+",
RowBox[{"2", "x"}], "+", "6", "+", "y"}], "\[Equal]", "2"}], ",",
"x"}], "]"}], "\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"x", "+", "y"}], "\[Equal]", "2"}], ",",
RowBox[{
RowBox[{"x", "-", "y"}], "\[Equal]", "2"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.777213191607901*^9, 3.7772133167159014`*^9}, {
3.7772226600589776`*^9, 3.7772226995745373`*^9}}],

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
"expandir", " ", "e", " ", "fatorar", " ", "e", " ", "simplificar"}], " ",
"*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[", "x", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"x", "+", "10"}], ")"}], "^", "5"}], ";"}],
"\[IndentingNewLine]",
RowBox[{"Expand", "[", "%", "]"}], "\[IndentingNewLine]",
RowBox[{"Factor", "[", "%", "]"}], "\[IndentingNewLine]",
RowBox[{"Simplify", "[", "%%", "]"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"a", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"Cos", "[", "x", "]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"Sin", "[", "x", "]"}], "^", "2"}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{"Simplify", "[", "a", "]"}], "\[IndentingNewLine]",
RowBox[{"Factor", "[", "a", "]"}]}]}]], "Input",
CellChangeTimes->{{3.777214469407725*^9, 3.777214504610628*^9}, {
3.7772145439385605`*^9, 3.777214692425408*^9}, {3.777223151206236*^9,
3.7772231544667616`*^9}}],

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Together", " ", "e", " ", "Apart"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"Together", "[",
RowBox[{
RowBox[{"1", "/", "x"}], "+",
RowBox[{"3", "/", "y"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Apart", "[", "%", "]"}]}]}]], "Input",
CellChangeTimes->{{3.7772151259987264`*^9, 3.7772151442565517`*^9}, {
3.7772151755226784`*^9, 3.777215182289355*^9}, {3.7772227148794317`*^9,
3.7772227264080534`*^9}}],

Cell[BoxData[{
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=", " ",
RowBox[{"x", " ",
RowBox[{"Sin", "[", "x", "]"}]}]}], "\[IndentingNewLine]",
RowBox[{"f", "[", "1", "]"}], "\[IndentingNewLine]",
RowBox[{"f", "[", "Pi", "]"}]}], "Input",
CellChangeTimes->{{3.7772210244136763`*^9, 3.7772210719354663`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=", " ",
RowBox[{"x", " ",
RowBox[{"Sin", "[", "x", "]"}]}]}], "\[IndentingNewLine]",
RowBox[{"f", "[", "1", "]"}], "\[IndentingNewLine]",
RowBox[{"f", "[", "Pi", "]"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"f", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.7772213466265855`*^9, 3.7772213683578033`*^9},
3.777222865598947*^9}],

Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtyXtUjHkcx/GnyzJl2WcyU8/oMt3bGjYsKl1+352HImsQQrXS5JIZ28U9
LFsICTWS5JLYbmdXm9rKrX6hqJTTKrU1inZDYRVbacc0z7bH74/PeZ3PedvI
owLW6VMUtXt0/2uAjR/+NTPOh1jh0FvhaXUyFBGxptB1bZsqChHxc0HEcKlq
HyLidt8Dd7JVJxARPw5VOZ1XZSIiDtgkak9X/YqIOOV9SHGaCiMi9qz2N5Zu
aUREHL1LFlYc/Qci4u+vrTuub/cMEXFzz3yjXHk3IuJE1yGqdFUPIuIYSc2p
yuw3iIg14cqCjsh+RMTy8sDFyevfIyIOf9dcWXl4ABFx0tSyqJyEIUTE+pVl
bgd2DSMi5rssePg0XYOIeF6m9HK/SouI+FBNY0f8WS0i4nvvVjPCn7SIiOfO
2X3Mo0SLiFjaW7wjvlWLiNjra4dvBRYjiIin3h876JY9gog4qv+Ua92VEUTE
BSJ7RUjpCCLiKZvg6Y/3RxARu/Bja2t7RxAR2we/Oh/8lQ4RsVlfve++Mh0i
4vQUHNaLdYiImRlFe5bW6BARM7Gni5zaRv8n8SQDuVWjRoeI2Mrsw6C1D4eI
+ML1XvqoL4eIWBzyRDIo4xARW2fdDqsN5RAR20qSGmLiOETElxr29qiPcIiI
7aJjDHxVHCJi+5JAj0mXOUTEjsgm+04Vh4g4p2ti5eQGDhGx44Ex6rTHo/2T
OMfx30Gqc7R/EjvVvqaVLzhExHnKTsnjtxwi4i8n/O6LPnCIiPMK74blc6P9
kzjVObjCyJCCW1Fn4wQ8Gpp3NT/w4VEwhJStcTQNgvqFbVs+p8A6JC/8HUPD
qUgY6BBQwO5UiFudaUgrdnApcqCgEk2wL19AQ4thpttLZwq2R82b4rWMBtNA
Zq7FVxSYv+7bVB5Cw+lh4zUJsyiYcS/hxL3vaUj37j8V5EfBhXHNYf+coCHj
/g09g40UBDa9mV3WTEP/s8LYvk0UdD759lLVExr8NDnv1NEU3Dy6bKipm4aB
ySe7fttJwfq2oLXDAzTIVMrb6w9TkDKDXblSyAf97yzi6nIpcH8Vn7k1kA/K
9z9QqhcU1AVU/GzVzgcvy28467V6oGEcbrq/NAHJM7r7h636INsWtV45XwhX
8kwiSjYbQJ0Y3LMvm8Gezu+aJAmGcND8Q8GjpZMgxst9wYXUz4Dz1tPuN7cE
TeYc+evkMeCy9pee3CYxNEZnrNlxaSzEb1u4rWqrDXj42eo6snjQmW9YzQ3a
Qu1cjzw4ZwT1i6pGxPvsIfvqGY8/fzaG+fkXO17NdgSh3WTF6vxxkLg3/vai
Xid4pMeLF936HOJnBS3a2+AMJbwtOY2140GslQzfuSGByUJaIa+eANev3RvX
njYF+o4PCb5u+QISspyqzv3iCnaHDrlGKWgw3j4//FLrVPgzSN0ufUlDT5L3
klT1NJj3vOnfkkg+hFnY3QbddNi5eV2E6d98WF30oPqwcAbISs/6m243gdiu
2kLRwpnwVqvYYzBkAhuX2+2X7ZwFWa1xv0VumQiH7YVlG7LdQBPhvSb240T4
xybwWuGAO1iOpATH7BLA6cSqiKqZs+GF39E6nqEQ+krNmPQMT7jrWI+sjgrB
MmXuZ7163qDg5RjaGJmC+eA0fetVPlB20d77boopiJc7NfNaEDz09KoO4JtB
krcspP8iwLDi7NI1x83gTLhbv92Kb6Bmceby8aYMFEnrptvZSEHu4ZWbm8qA
4OLE8QVdUtj4d8PgkzQGnhpJCkyeSyE6K3SOyRkGLIv8zu/okcI+o/1de84z
MFyevE7aJ4VzbbXmATkMWN0Nu6DWSqEldkWytowB1/1coQXDgv+NzbFL1Axs
aHcOapOxsCTSsCahg4ESk96bfgEsrLRNM731lIEdR64oS5ezsCHxerFjNwOr
pvuWpIawcCCIevvxDQPHYkr7lylYqNAck+foGLiRreJ1H2ShukB8VU2JwL86
23/FERbq5Vc52kAEMruK9rokFtR1zed2jxVBcYauu+gkC8MZ5q2LaRG83V6R
lZDFAie74pBgIgJx4sel2p9YGGOAtt4UiKBK7b1scx4LAqWc7ygSgWL2I5/Q
X1kwFw+EBpuLQOln79xSxIJt08GCZEsRPFPtDltYyoLLIbORarEIHlj88bLq
OgvTPPMXfLQRwZfPPW55lbPwH1YrruA=
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 0},
PlotRange->
NCache[{{0, 2 Pi}, {-1.9999173945352968`, 39.47841599299346}}, {{
0, 6.283185307179586}, {-1.9999173945352968`, 39.47841599299346}}],
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{{3.