PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]},
Ticks->{{{0,
FormBox["0", TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}, {
NCache[2 Pi, 6.283185307179586],
FormBox[
RowBox[{"2", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[3 Pi, 9.42477796076938],
FormBox[
RowBox[{"3", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[4 Pi, 12.566370614359172`],
FormBox[
RowBox[{"4", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[5 Pi, 15.707963267948966`],
FormBox[
RowBox[{"5", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[6 Pi, 18.84955592153876],
FormBox[
RowBox[{"6", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[Rational[1, 2] Pi, 1.5707963267948966`],
FormBox[
FractionBox["\[Pi]", "2"], TraditionalForm]}}, Automatic}]], "Output",
CellChangeTimes->{{3.777824029768435*^9, 3.7778240353067904`*^9}, {
3.777824083590742*^9, 3.7778241194721217`*^9}, {3.7778241734657984`*^9,
3.777824203044536*^9}, 3.777824287958602*^9, {3.7778245179247527`*^9,
3.7778245499367733`*^9}, {3.777824585334081*^9, 3.777824638562646*^9}, {
3.777824889790285*^9, 3.777824897496833*^9}, {3.7778249493210297`*^9,
3.777824971769861*^9}, 3.7778250657304688`*^9, {3.7778253065054984`*^9,
3.7778253388917212`*^9}, 3.77782537832928*^9, {3.7778254131179485`*^9,
3.7778255202452087`*^9}, {3.777825587498102*^9, 3.7778256251104255`*^9}, {
3.7778257428926907`*^9, 3.777825785294306*^9}, 3.777826067116078*^9,
3.777826120564843*^9, 3.7778261574604983`*^9, 3.777826190237569*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Directive", " ", "-", " ",
RowBox[{
"Aplica", " ", "o", " ", "estilo", " ", "nos", " ", "dois", " ",
"gr\[AAcute]ficos"}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=",
RowBox[{"Sin", "[", "x", "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"g", "[", "x_", "]"}], ":=",
RowBox[{"2",
RowBox[{"Cos", "[", "x", "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"f", "[", "x", "]"}], ",",
RowBox[{"g", "[", "x", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"4", "Pi"}]}], "}"}], ",",
RowBox[{"AxesStyle", " ", "\[Rule]", " ",
RowBox[{"RGBColor", "[",
RowBox[{".5", ",", ".9", ",", ".8"}], "]"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"{",
RowBox[{"Thick", ",", "Red"}], "}"}], "]"}]}]}], "]"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"Usando", " ", "o", " ", "comando", " ", "Show"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"p1", " ", "=", " ",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"f", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"4", "Pi"}]}], "}"}], ",",
RowBox[{"AxesStyle", " ", "\[Rule]", " ",
RowBox[{"RGBColor", "[",
RowBox[{".5", ",", ".9", ",", ".8"}], "]"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"{",
RowBox[{"Thick", ",", "Red"}], "}"}], "]"}]}], ",", " ",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.1"}], ",", "2.1"}], "}"}]}], "}"}]}]}], "]"}]}],
";"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{"p2", " ", "=", " ",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"g", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"4", "Pi"}]}], "}"}], ",",
RowBox[{"AxesStyle", " ", "\[Rule]", " ",
RowBox[{"RGBColor", "[",
RowBox[{".5", ",", ".9", ",", ".8"}], "]"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"{",
RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}]}]}], "]"}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"Show", "[",
RowBox[{"p1", ",", "p2"}], "]"}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"Note", " ", "que", " ", "precisou", " ", "colocar", " ", "o", " ",
"PlotRange", " ", "no", " ", "p1", "\[IndentingNewLine]", "porque", " ",
"o", " ", "gr\[AAcute]fico", " ", "de", " ", "p2", " ", "n\[ATilde]o",
" ", "cabia", " ", "originalment", " ", "em", " ", "p1"}], " ", "*)"}],
"\[IndentingNewLine]"}]}]], "Input",
CellChangeTimes->{{3.777826231126609*^9, 3.77782628463701*^9}, {
3.777826397905089*^9, 3.777826412288658*^9}, {3.777826445174301*^9,
3.7778264473739576`*^9}, {3.7778264777635365`*^9, 3.7778267674317636`*^9}, {
3.7778268478362255`*^9, 3.777826856900058*^9}, {3.7778270444632993`*^9,
3.7778271868160367`*^9}}],

Cell[BoxData[
GraphicsBox[{{{}, {},
{RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwlWnk4Vd/7RT4lKlxDMtyL3GuoNEilaL8JFSrJ0EBEGkVUGkwNQpMQihQp
JfMQFbGFIkWmZMw8XvduMs+/831+/9z9rOec85z1rrXe95x9nqtg52zqwMfD
w5NL/fxvXYAFyzs0g7aX5/3/yuzL20Z/7Ix+GSrKrqDWqdS1J+qDvVE3GHQX
UWuX+OmJrOBHSHXXHK8DtTYY+BTEBkehVQrDHOugKPTbJlj5eXAKEs47utjr
YQoydVzR8DQYI6OETacYXhgF/bPKCAv+haKvW31phV9o21dDQd2LrWhT/fu0
c1dbkEjNm1+bH7eiGwGZvvypLaiznS90TUYrsjMYxp49LSiAJ4exYrgVdW4e
B4FVrah92yrNQdc2ZKS0NqruaSvyTxeyfeHajkxkhAYsXdpQbdTPzCmXTnTZ
7eZ2CYkOlJCs4j4Y1In4D6uHZKh3oBu5PtCd1olav50t3r67A6k2av+oHOpE
KeOfbGXcO5CHZFJrnEsXIn7z4f0tHWjlw4dCli7dqO1K144fsZ3owvV9xzMu
9KKuQZfj/QrdyNBJO04gsBcZv18scnNLN1ppp0asU3qREH/hBb793ah2z0JP