1xeprkr6STTcFjJVagojQ6vvZwyT+JCon2jUSWFd0+eLw29I+KcG+D5/TKGt
uObYWi2J9O/dV9V0UyiTmUZYjZCQ1Tw/+W0/hUj1q5e3RkkM5l64rhim0F5w
qlk8RqJno/Z4sJaCZ9KairxxEudMNAdtRiiI7H/fFjVJopwV29swSmE/sVXW
8lm3l1ouyR+n8O7pAneXaRIT69NUUZM6f12H6ckZEgOy5K9dpnX+w4rJ2VkS
hRbcT7OzFP4DfdsC1Q==
"]]}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 0},
PlotRange->{{-2, 4}, {-2, 16}},
PlotRangeClipping->True,
PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.777222425163826*^9, {3.777222472277034*^9, 3.7772224889850626`*^9},
3.7772225330717926`*^9, 3.777222939750975*^9, {3.7772230062116613`*^9,
3.7772230138562*^9}, {3.7772230809409304`*^9, 3.777223126697694*^9}}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[", "f", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=", " ",
RowBox[{"Which", "[",
RowBox[{
RowBox[{"x", ">", "2"}], ",",
RowBox[{"x", "^", "2"}], ",",
RowBox[{"x", "<", "22"}], ",",
RowBox[{"-", "x"}]}], "]"}]}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"f", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "]"}],
"\[IndentingNewLine]"}]}]], "Input",
CellChangeTimes->{{3.7772235035714993`*^9, 3.7772235561760483`*^9}}],

Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw11VtUVHUUBvDDxQuIcw7oqIggIE7IZQ6J3BTbO+QSDIVx08o0ixRNoaUJ
clFCG0UTAzWLzDSt7GIqYgaKboLBQBwFAYVkgRCaIjVE4+BimDlR/Xv41m99
T/tpr8/t9fT4Ny05jssezT/WLnfrkiSJmKAwBMRmPJGICQWFMRX9AxIxIbZy
4/72bomYcNPxSlRZjURMuNuy9syqnRIxYSTmXL5WJhET5gVFeRxyNhMTkOy7
jjmMEBPEoyc+i/caJiYc+PyrgoOqJ8SEg/ExDyLDDcSE7GUVsUdW6IkJRrlW
kRI/SEwY1EV7X3phgJjwUYTHmtw7/cSE7bbmVUvqHhATAvLT0rYN9xITmoNL
r7ZCNzEh6Ui2h3XqL8SEIr+qKyO/3CQm5HBP572wpJaY4LT3W2GS/Etiwqle
i89t0sv+l+ImjCvve1IPTCpRloQW7GsBJk11/DTy4dUOYFInbmnOTesBJq2r
kQ/Pm3sfmFR1PyVgclQfMCluqfPq41P+ACZlaSzc1Q8HgEm+vo3TYwcGgUnm
0GbZWy16YNLcw08XOncbgEkDHYruBb1PgEnXahb7ndUMA5MmGFttKrUjwKT3
ejyLk1pHgEnm+pxpuo4RYNLAx25PufePAJNuBa4PL7A1AZOObbDOS4wyAZNC
+ubq+6tMwKSzTeqcHXUmYJJPRZula6MJmORSsNU+ocsETLJWXFVWmEzApMaV
K9eo55uBSavbP+h0PmcGJi2fESIvvmgGJiWv6FFZ15iBSZH35lX0NZmBSR5/
tu//UWcGJt0d7xH9ovfoX/wntam0eZq5EjDpxt6M80HzJWDS5cn1s1yiJWDS
Ydc0c98qCZj0cnB52XvHJGBSfM7KvqFvJGBS9GVbt7dKJWBScPire1+skoBJ
fjvH1mp+loBJnldPG4NuSMCkqYst17h0SsAk2f7vjhTfk4BJY28l3rL+XQIm
maeZ7TbrJWCS4ZUTix4ZJWBSRpznwtMWHJbu/fHEcisBBwdy21LHcKgJ8VM3
2wqYtq9po7sNh+5HT7vEOAjY56/gO+w4bPgp4J1qRwFXtWZ/+6HAIX1WrQ51
E7An40ZE3GQOpcDkhHJPAdsrNudWO3H4akmx+w9BAtZBw8OvvTg8Pvul4pok
Ab9Sva3Z9ByHqmXeZ/z3CVh9vH3Hu7Gj97SVt9I+EbDLGBb9/mIOG2fOHH/y
mIDTTsqvH13K4Zdrk9/3KRNwt93F2w2pHD5z8INJkS0CpmvHPHLbxaFfhI/3
nSn2GBx3yP56PYc2lnxm4WF7bIi/slyhssCPhrLyHUodMO/784ZtoZaYulSt
nlA/GVPOtCTMCbNCQ25mpb9yKraNLTyVE2iN/h2GC38UOKK9VtBbKcagT8o7
ZR56J8xdUG1unTMWb97bcjerzAU3mSaOS5wxDrscJ3Y2nXHFo6t3tjjNGo8N
QZpFjfPcsejZa3scZ9ug/+w5OvfqWShL/y6sRm6LhbsjHNctmo2Xw8svnZ8+
Ae81Kb/3eqxA0/oVgckyO/y4bavKucQTLcbdLPE2jfaFdyK7wrww8LkN1TGc
DBN04b57XH1wuOPkA/mgDHsSz+YJv/ti+Lq6oucNMmy5XRsc8tgXC42/BquH
ZShapcveMPmi63SnXXpLHr0StvEXJioxasmuOc2TRnvbydRNSiUeaHpzbVEA
j6oM+0y3t5WovOLSb5vFo9zK0TpOr8TNSfMPhG3hceP+7rhDI0r8qTcpNDuf
xwXXoPyBtYiJVoV7Hu7iURZ0qXOHXMQcNPrUfcIj/XlxW2OgiHUXbq9XV/KI
xjpFSZaIDjF/yS9V8Zjk0L9gKF/EZe2yy3oNjy1NX6xP3i2ibihClqLlcVLM
bcW0QyJOCTh3KqyTx09n4sDXlSK+prmRnN3Do1220MfXivhNwiNz6X0ee3Mz
uM1aEUM3uMe56Xhsz7HaruoUcYfFM0NL/+LRkOmlO39fxMail44UDfG4dcZv
mbN0Ik533RRVZ+Rxw5oQ5+IhEd84XaSTJB6v/7vHIv4N/kTE9g==
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 0},
PlotRange->{{-2, 4}, {-1.9990036623692027`, 15.999999020408179`}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{3.7772235573304777`*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{
RowBox[{"g", "[",
RowBox[{"x_", ",", "y_"}], "]"}], ":=",
RowBox[{
RowBox[{"Sin", "[", "x", "]"}], "+",
RowBox[{"Cos", "[", "y", "]"}]}]}], "\[IndentingNewLine]",
RowBox[{"Plot3D", "[",
RowBox[{
RowBox[{"g", "[",
RowBox[{"x", ",", "y"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{
RowBox[{"-", "2"}], "Pi"}], ",",
RowBox[{"2", "Pi"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{
RowBox[{"-", "2"}], "Pi"}], ",",
RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.7772237018524904`*^9, 3.777223770899418*^9}}],

Cell[BoxData[
Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJx0XXd8TkkXThCEKEGwSvTuW71FmdFZdfXFruh1rdXbklWzavReF6uzWILI
HT26JXpYLWqih1jBd+/7zjPv3LOuf96fx3Hu3DNnTpszc/N1+alF92ReXl7P
M3h5JTd/j89Mlf1Dvq8Efkv1f/XCy+sFm5SuRJUrUwIUXrRy/apdxiWxulOb
tt/52l/huboGxzRZ9JmlznT/beBeP4U3jW62oNTLt5KPj8Jr1y+fZ0Xuu5I+
yQAenH1kyKjNiyQep/A6xsIrr+JOMS/5B3j0y8/mn+egZ8Djrvmt7WyOU/JX
+EDfT/5NzXHK8XDgZc92H1DaHKccv8LTVQ3+e6U5Tvm+Cr+95d7DUHOcUj4K
Dz5ztNAzc5zy7wr/JlXOwE/mOPF3yPVJbMivq17fU3LG77NqAWnLjn6r5Az8
bs+vN+ee817JGXiWa7l7fn7yQskZeLXaNT/8WydKyRl4l0Yi9ftfLhuQM/Bp
Od5tmFHniAE5Aw/+sGTFCnOckDPwHbeuDy4z+q2SM/DK6U/fscYJOQNPvFCO
ez19oeQMvFuml4e960YpOQNPs6Nh2URznJAz8AF+JzvMMccJOQO/nHHPgWXm
OCFnyC/VPLFoxqjT6j2Bb+9f5dmt2DtKzvhddKRv6d2ZHyk5A49bUnzRg3Sn
lJyBf78vb+963rEG5Ay8/8Kil0XR10rOwB/1qtQ72v+FkjPw0qxVvvnmOCFn
4JV2HDl40xwn5KzG6//HEmuckDPwLH2vd443xwk5A59z7M3uOuY4IWfg2V9N
WWmNE3IGXvD4z5+tcULOwL97/HD9MnOckDPk9OP+YLY/2qNPwK9W3dv66NhI
9f7ABwy6tv/Nsx1KzvgNvtUodv/9mwbkDLzO+tTeMzskKDkDn3Bv5erNyT8p
OQP/uHNbBRH3r5Iz8Hdr6+Y7EB2n5Ax8ZZ5Oe8+a44ScgZ+/ujMg0Rwn5Az8
9NvXIeHmOCFn4J22vioywxwn5Az86+rJf7TGCTkDD8r05JQ1TsgZ+K9hxZMb
0R47CHk0/Oub/vs0OQMPT+N7JlKTM/CwNb/V+aDJGXj2C3lq79PkjN+ya39Z
OEOTM/CBtwOCdDkDf7q94BlDkzPwiytKNY/Q5Aw85NnW0lGanIG/8O22/JMm
Z+ATnhy/tVuTM/Amm3oa0zU5A88VNDyFLmfgRTN06qrLGfj3U7KUjdTkjPfe
7PVrrcma3VD+qqXvkdua3QC+fUPVlOGa3QBev3SfF/Ga3QBe71LzOXU0u4Hf
e2v5U0OzG8A7Dm025qJmN4Bf2pjl5AzNbgBvumDugn80u6H4vB36c7hmN4D/