777221365019339*^9, 3.777221368950615*^9},
3.777221710258979*^9, 3.777222867970314*^9}]
}, Open ]],

Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"Composi\[CCedilla]\[ATilde]o", " ", "de", " ",
"Fun\[CCedilla]\[OTilde]es"}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"g", "[", "x_", "]"}], ":=",
RowBox[{"x", "^", "2"}]}], "\[IndentingNewLine]",
RowBox[{"g", "[",
RowBox[{"f", "[", "x", "]"}], "]"}], "\[IndentingNewLine]",
RowBox[{"f", "[",
RowBox[{"g", "[", "x", "]"}], "]"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"Comando", " ", "/.", " ",
RowBox[{"serve", " ", "para", " ", "substituir"}]}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"x", " ",
RowBox[{"Sin", "[", "x", "]"}]}], " ", "/.", " ",
RowBox[{"x", "\[Rule]", "2"}]}], "\[IndentingNewLine]"}]}]], "Input",
CellChangeTimes->{{3.7772216307442493`*^9, 3.777221688558962*^9}, {
3.777221721678398*^9, 3.7772217493845654`*^9}}],

Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ",
RowBox[{
RowBox[{"x", "^", "2"}], "-", "1"}]}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"comando", " ", "Nest", " ",
RowBox[{"(", "aninhar", ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"Nest", "[",
RowBox[{"f", ",", "x", ",", "3"}], "]"}], "\[IndentingNewLine]",
RowBox[{"f", "[",
RowBox[{"f", "[",
RowBox[{"f", "[", "x", "]"}], "]"}], "]"}]}], "Input",
CellChangeTimes->{{3.7772221446723022`*^9, 3.777222153892316*^9}, {
3.7772222217281637`*^9, 3.777222247640927*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{"Clear", "[", "f", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"x", "^", "2"}], " ", "/;", " ",
RowBox[{"x", ">", "2"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"-", "x"}], "/;",
RowBox[{"x", "<", "2"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "3", "]"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[",
RowBox[{"-", "2"}], "]"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "2", "]"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"p1", " ", "=", " ",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"f", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "2"}], ",", "4"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2"}], ",", "16"}], "}"}]}], "}"}]}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"p2", " ", "=", " ",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"f", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "2", ",", "4"}], "}"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Show", "[",
RowBox[{"p1", ",", "p2"}], "]"}]}], "Input",
CellChangeTimes->{{3.777222384134774*^9, 3.7772224241654005`*^9}, {
3.7772224674721107`*^9, 3.777222532291773*^9}, {3.777222896161502*^9,
3.777222938627696*^9}, {3.7772230008760853`*^9, 3.7772231259800663`*^9}}],

Cell[BoxData[
GraphicsBox[{{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw91O1PFXQAxXGEmIaK4MJGeTFAmQ/MCdVlae4wSycmTu500HyAS8saaBTL
gLH5FC1qNF3pRmat7YKKNggfYihwRGWgy1mIXRXSwQ1CGfKM9yLeX7SOvTj7
/AXnG56eZXvX18fHJ3Fi/7oYsx4YYyiR5Yks9IwZSvx8OiZqaMRQInZ+YnpX
j6FEXHDBnV+dhhLxroGr31YYStg+v3by5VRDiZzrBTveq/NSoqVl6oN6+xNK
WC5kPRc3e5wSZzMv+8/4c4wSaUUx/bf3eSjh/jq/kHBTwhF4N7S4fZQSR9bE
ZN/4YoQS+7bbcxckDFMi3+9ETnbvICXse67P/eP4ACUO1XYWH8nop8S5e/On
/RTxkBKRQfErNvzQQ4lTCwszOlzdlLjXUPmS1dpFic7oQ7H8xUWJ4F1l1sWT
2ikRbe2LLh1qo8Snb/b+Vp3rpETIhvIDbz/fTIlTow0zmuZepURpa+dX9wvq
KLElafaZ1ndKKFEdkH/z4k7HU/lqx6SwvSmEZGT/ec/Si1cgmeC4fW1dSjMk
VybO9Bs564Tk/lTnniVVbZBsXGeZvn5mOyR7w0N2NR92QXLnx4vs+2d1QdLZ
FmTb1tQNybS81/+evLYHkpcWxX15yf8hJKOerekuWd0PSUtN5kr/wgFI+oz5
lmV3DELyUVLt1oZ5w5BsfSX1xXkFI5D8MDkoOKJtFJKhB/9KecbihmT5ph+P
DeV6IJm8fPfqptoxSFZu3RGxdPwxJN0Bb/hVb3wCSdvvy6yWYi8kA5ZNra/5
3gvJ+pI7b212eCG5JDfP/l25F5KBc6qKQhu8kLyyPdYVMuiFZPyUBQcC1078
7j/p/sj9QnmSgWRFa2NpYrKBZFjFtvNF6QaS4xtLugLyDCSrHHOWTz5qIPnB
9L7GoycNJKNy6myrKg0kD67Z8v5nNQaS2QOHv/G7YSC5cFNGmOOWgWT75dfK
Vtw1kFxffKtu730DySm+xxPC+wwkmZnTcmHYQPKTm6tS0ya6JP/v1tOO/QNM
BqT9
"]]}}, {{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVjns0lAkAxb8ZZsY8zDcNQ0rrrUn42Kg8zu5taics0SzHYzsSKcUqq6yo
LY2xNip6KIlqx6EhjzpZtU0PnPIYPaRC61FtinY2PcSSx87+cc/vn3t/51pF
b5PF0gmCCNDlf7ptT2PogK3PRjkEIUApbbx4BY1A/Z/OIXK6AMZHk5fK6QTi
7w91MBkCfKxL2MxkEGCe7Y3mcwS49DmylcchYPSq6YWFsQAuv6w8aGZMIJOR
H+EvFmBxCU+0REzgar6dgyZIAOv2EttNQQTSBpb5Rv0mgIazR3G4nIA/X//R
RMgcTJAvPT/8S8Bp1LuHQRPCaPDQV2ofGobjWyufVgoxdPqj3PcMDTmzj2eq
4owgmf98geAdDXPH+TZu5sYI3Z09UbiajsKUpr6IF8YIr0q2ySmmI31KFJh9
XoRnpa/P1f1DhzZriW/pRhNY7xVFK1fpYZedx24HN1MMW7SntB3XQ20Ul/Ka
MMXpvDs9YYN6SHv4c9aB63PBeZn2c4WXPpgttWqDAjNMT9f/5J6rj9RrVd/J
YuahcrL6kvwvfSQVD8QnfDMf0uZhLw8PBrJ8+gbpC80RG1FlJv6VgQypnH5u
yhx44ODxdICBWknF5e7XC3CG51p124UJR99nqy/f+QJ/LH4fvSObCbee8bua
axZomPdp04F+Jt7Ye79jh1ki4EHGzR5nFra/mFdUrLHEsbiWcK2Chf2iXO/L
flaIaj7hs7yLhZ5SXqxBkxXmjlUo/rY3wKl1ypI8T2vksFL1o/cYIN5FGTBz
3Rrygbtdc+4ZoNd7V6uvpw2WnerTZtqxEedQVqNptEGXrWvQ+nQ2fMRWR8/6
2WJqp6FBsoYNRt15j/dttuhVKWl+1hzEnDhJ9IXaYUVpY2BEMgfByVeOCvvs
cCTRTtvRyAHd/YelyzbYo2S+pI1nxkXBpSDX8A/2oA6/ntq3hQtplJ88Nn0h
0gelSVducSHhlwzdnCOGP53yXCTkYeuTuB0Pz4jBGYlYS4vmwXlPUkq14yLI
b6Di9BUedroXLPVqXoSM4JrQJLYhiDwstwx3gOfdLil7gyHUQeUC1oQDBkSr
Mg3qDaFMsQ9/cmIx2HYeJitYfLRCVV3k5Ii3JkPD3pF8hMsG1c0djgi7byH8
sYaP/ozlmvoEJ9SEFmXzZ/mYZmsoR6YzGhofIDGExN4LLbVbqp0RNnoogFVG
wjuQe4QbQOHOPYnLtnISzIycvZ2BFNxUY8Ku8ySUuRW5RTIKZGRkd1kliWDX
2wzHMF2/2SlGepFEcW1C8poYCu5F7akKNYmmrEzvwl0UhBJOqV4niZD8LoW0
jMI+8xtZ8Y9I7Jv+crNQReHtWNKWzse6Pyud4vorKbRW9jgru0l8XDfTknJR