(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     92459,       2239]
NotebookOptionsPosition[     87916,       2083]
NotebookOutlinePosition[     88318,       2100]
CellTagsIndexPosition[     88275,       2097]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Substitu\[CHacek]n\[IAcute] pravidla a voliteln\[EAcute] argumenty\
\>", "Title",
 CellChangeTimes->{{3.57200121396875*^9, 3.572001230078125*^9}, {
  3.5782055954410515`*^9, 3.5782056123785515`*^9}, {3.5782057113004265`*^9, 
  3.5782057143316765`*^9}}],

Cell[CellGroupData[{

Cell["Substituce hodnot do funkce", "Subsection",
 CellChangeTimes->{{3.5782056271910515`*^9, 3.5782056347379265`*^9}}],

Cell[TextData[{
 "Aplikujte pravidla a mechanismus substituce k v\[YAcute]po\[CHacek]tu lok\
\[AAcute]ln\[IAcute]ho maxima a minima funkce f(x). Nejd\[RHacek]\[IAcute]ve \
nalezn\[EHacek]te v\[SHacek]echna \[RHacek]e\[SHacek]en\[IAcute] z rovnice f\
\[CloseCurlyQuote](x) = 0, potom ur\[CHacek]ete znam\[EAcute]nko funkce f\
\[CloseCurlyQuote]\[CloseCurlyQuote](x) v bodech z a nakonec \
vyhodno\[THacek]te hodnotu funkce f(z) v bod\[EHacek] z. P\[RHacek]ed zah\
\[AAcute]jen\[IAcute]m v\[YAcute]po\[CHacek]t\[URing] funkci v\[ZHacek]dy \
nakreslete.  \na) Ur\[CHacek]ete v\[SHacek]echny extr\[EAcute]my polynomi\
\[AAcute]ln\[IAcute] funkce f(x) = 0.4 ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "3"], " "}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "- 7.1 ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " + 10.0 x - 3.5\nb) Ur\[CHacek]ete mimimun funkce f(x) = x + 10 sin(x) v \
prvn\[IAcute]m kvadrantu\nc) Uva\[ZHacek]ujte n\[AAcute]sleduj\[IAcute]c\
\[IAcute] polynom p(x) stupn\[EHacek] 13: \np(x) = x-",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"2", 
     SuperscriptBox["x", "3"]}], "3"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "+",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"3", 
     SuperscriptBox["x", "5"]}], "10"], TraditionalForm]]],
 "-",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"53", 
     SuperscriptBox["x", "7"]}], "315"], TraditionalForm]]],
 "+",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"1489", 
     SuperscriptBox["x", "9"]}], "22680"], TraditionalForm]]],
 "-",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"4541", 
     SuperscriptBox["x", "11"]}], "207900"], TraditionalForm]]],
 "+",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"100319", 
     SuperscriptBox["x", "13"]}], "13899600"], TraditionalForm]]],
 " \nUveden\[YAcute] polynom je dobrou aproximac\[IAcute] fukce sin(x cos(x)) \
na intervalu [-1,1]. Ur\[CHacek]ete lok\[AAcute]ln\[IAcute] minimum a maximum \
polynomu na intervalu [-1,1]. "
}], "Text",
 CellChangeTimes->{{3.5782056531441765`*^9, 3.5782062698629265`*^9}}],

Cell["ad a) ", "Text",
 CellChangeTimes->{{3.5782062814254265`*^9, 3.5782062856754265`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "f", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"0.4", " ", 
    RowBox[{"x", "^", "3"}]}], "-", 
   RowBox[{"7.1", " ", 
    RowBox[{"x", "^", "2"}]}], "+", 
   RowBox[{"10", " ", "x"}], " ", "-", "3.5"}]}]}], "Input",
 CellChangeTimes->{{3.5782062926598015`*^9, 3.5782063279410515`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "20"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5782063353941765`*^9, 3.5782063946598015`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nc8Vf8fB/CblVEyKipl3mtm3RKS8ykzK9nJ3u41SjbpitJEKCUJqRTi
i5DKeWcTMlJCdcneZKf87u+v83g+Pmd9zuf1fn+OqIu/mTsTgUAo2kIg/P+Y
faWpIiVRCFbC+wcLsMugPmqXbdO9D/RLJnavaERDasmocFzIHnCbmbGXeRIJ
oWdpin9HdoOgRkusN0cITFGFgn1cdsK6Dl3vqUYAROaVfTjIwQffHgxpepT4
gPDt98h3nRu2si08FrzoDufwQQGvUW74zGZTG+LmDtXzW2ddPnMD1wX9qFFD
d3CzMntk84obOLlys1f3usNL4dE1LRduqHgWpTHwxg1UinlK9jZvh+UVn4ON
665g8tWV2PhgGyzYen9sv+YCUaKcnOJqnKD7JcT5ywtH2On/9eVFEiewWbUr
+Ec7wst3OYY9/JzQpp4zQzzjCF+ssdu3ZziAe9lWeJrdEeTjA3lWn3BA5hXj
0AFvB/i5/mN3KzcHvHp4x+Wskj2gzyXiIUNbYbfqxITDF1tgjrM/9jGBFSq/
Rtv/CbaCYK2avYkRrPDK3NWcxdwKxjalVi08WSG4nMtQXsEKWkIXi39oskJy
BV1weNQSUig3pRamWcBeYezAd1tLIJm84d9jxAIiLh1WM7oWYLBr14QHOzME
XFC8fvqIGbzrCG+QXWSCkLH5CU8BM8b70nPmfjLBW8tlgYyV08C/Nd8xvJwJ
eB6u5HtXnIb+1RPdtz2YQNNRqiTy6Gnw6z8HpbVb4BF6XnxdzxTuPGm5xxRN
gN1/I8RWpo0g8rQLi5gfAQZPsIy+emMEnpsr54+fJYDEtc9TD68YwbGz4sa0
wwRIpWlc3HXACLqIi2wbXZs4t0rZSuxpQ4hlOUVfePoP39zzX5xe9UkY+cCS
TD+5gS//aSibataFd/sV/YQlNvD7qgaC8o90ISns7EmHf39wvvmE6mx/XdBU
Kt7sK/6DS+hYFhN36UJqpqPP131/8JSr5jqJLjqgf6lSp216DbfqjvKdYNOG
PI1zq2/vrOCRPcne2kHHQT24xeiT1wquH1h+47LBcWgslMoaxFbwvtTYh+vC
x2FIbOAkx8wy7qLQdPT+RwQHOMweWhks4xKFb7XjiAiSusma80xL+FD3rRad
xmMQ6rcSQwpcwF9h04VxAmrAlmveo2a4gO/OHdim3K4KdwcK5YzFFnBaEYu2
4XVVKLbw6r7QPo878CtnNm0cgUn1b6QPcvN4AfYyb35MBd5xByeXN8/i2UTe
yY/dh+Aa+ntArGAC58VhMoGgBOUiVjMNdhP4v9Fb+t0NijBCKHzvu20C9xU2
fUpLUASdD052b6jj+BnZqnp2EUVgOlH7wFRmDL+ak8z0+qY8RGrd3Hnp+TB+
wsNUtk5fFvLEh35JWA/jJKK99tQvGehlPlbSzDaM+9+mPuq9JANqtTOnd3sM
4abHkn5yVUrDsrZZQoHEL3zilLRFxREp8Nfdw9mfRcd3ziRcWrYmQgYp4Fv0
aTpuQD+55rspAW1sH3Mlt9BxI/Y9v58/lwCb+LX4EfiBN/b/UXFZF4fOBODY
pdmPW7YuFY7mikF9ksnmedWvuFZ4y+hvaRGwVer+bG3bjP/+ITG7fkEAcpqO
7Lov34T/i/S9xv9nN8w6p1n2MDXifTdS131jdkNskuMXm7w6/HQPJXIkdRcU
/h7/emYDcDMKZ3jPJ37g6Vmn+oe9wk9Mcl+0iOABdbUrvueaX+AGXLt6TXfz
gHvaDv/z+57iL/Xby7jdd0DgG/2hkfBUPEgv8+3x79vhXHjjAbH1m1jNDr2P
cxOckHOj8Bg6WoaltASceBjOCjtsJ97hSRVYpQp13u0rC4RLEzWwiUpM9+nn
S8kqLHCqMU1d8wGOES2KnPZtMMFfppp9GRG1mMKZGPW3TwhQTHHqs39eh+Xp
bkwl8hPAq/Nv2v6ueiw05klKHNcm3pmluveRTBMWZJBoFT64geeiV4Lp31qx
+8xlQg2Nq7hDrmHPWdZPmG6oM7ajbQXnvLb48bZgOxa795EJU88yjs/euWms
3YH1nFOMGlhbxGXwFs7Wh12YNrFCySRoHme58HAiX+kz9qa+u7H88Rz+k0Rp
vtXwGVMzfV0f9mgWT4nfesPodzfW5snVLx40hW/an+BoMejB0h2fdLkkjeCr
acYsttM92D0FqRcbfMP4wlebzdGEb9jChaJZ/Yxf+Mhp/yXm7l4s0lqRNPyZ
jtPjw+fuhPRhPJOll60IP/FvH69MCu/tx7S5evVEfPrxFp30gaOO3zGn306y
OjFf8frLz/ubtvzANiokM2/Jd+OAF3+1zvmBbXO4bjox04mXqDW1Xhj/idFj
2kQv27fiVkcpQwRdOta+kThjZNeEd32bHdBLpWPnZPffWoqtw1t3/+nvVhvA
nJAxSfz5O9zgNa1X6OYARqvpM3u78BqvN2frce1n+Jhh7i+xQlxr4Wb3y4OD
GKSPF2iyPcEhkbdrPmoQI1DT0JBGPH5MIbVdtZ3hJJO3P/jDscpWobZLor8w
goeng/2PNKyUU6ppe+0vDJbFmxp7CzGlFwX1FruGMPph3nzS9lLslR659qHH
ECZy7Ioqa185JjtS8WGwfAij7ZKwl7R+i+XGauLSHMMYvUbctzS6CiOK1747
ZzuMnSN9/+5dAFj2h5OV5XnDWGIvt4nV/AfsgNOn8n8bwxgQqhVLttVgD/9Z
vNYxGcF4Ht5RSNmswQQf9RbfejyCieQLLm5rrsVSjjoVdc0xxlUWJJV86jDe
3uGCvSdGMaejbwJ3jtRh8aHUPOfkUUyxij22+Ug9xiUwn5s7NIrNQcSmh3M9
du118LPZw2OYiG5B4l+XeozVYuOJStwYVnRKdSBLox67vBCddbFnDEP08jTP
mTpsM3Hr41rpcUxkvd7DJbQOi1S4nc4VMY7RHhNmn/bWYqutfGlmLeMYvXOz
X2dXLRbkcz/1wf4JjHbPsddSqgZb4Dxwl+43gTlNVSaO81djfi+eJEnCBJb5
Nf/Fzh7AJvWkE/14JzEoyXzUPV6FeY28uv3aZRIjTNLMNz+/xYZjD93cKJnE
aLaKja3nKzAX8cprWqxTGGIbNvGCUuznB+zqDaspjPD7s/oyFGF2TnUxHc8Z
NvKpOjaai337ZxAtuMbwzXUNkstjzOpRe5SjwTRGCBafn4qKw0719oVNTzE8
cokSQ3qMt4Q6hxzSnMEI+u9CTh7Kw/UFRgMjEmYwNO0xn1Vegp+wWPDnUJ7F
CBLoapAP4Ps8WUqSjs5hTm2BgYdtPuFe5p680c5zGHqvMnr9bgdeijX7+8fN
YSL/xkdCE7pwE8FEOaOuOYwea+FWVvoVpzXte8ZKncd4tGVg1JmOt76OYllM
nMfoN3jL5O8P4HuzB1wGy+YxuEl+ePfLIF4S/lwYZ1rAnBwEVEqow/iILPlB
aNoCllk+Wf1+eQInC95b8YAFTASp6KX4TuE0ljVLy5EFDBrSgDI1je/5XsWn
rPwbG6tsb2aOnsON4g1uTTb9xq45PvDTr/+NF885X3JYW8Tu63hp/bf9D77Z
X/vdSHgJ62HxspVj38CNmiQ1juosYfrsn8/Hsf3Fh7OmVwXuLGE8BV5Purk3
cUHzsIAOqWVMKnl4e+uzLXDxdaK7ts0Kts24+9uW42zQnPW7RjlqBdNPfBfV
0M8Gu+OtxERzVrC51CaSb/hWKPIQ+vl3dgXz+c4TbfGWHQYFcm3K41axivQQ
1xBzLtAPxw1lytcwOU8nFgE/Hui/Nq+oTV/DVhdka6528sD5VPHdDhzrmMT8
yg82VV5IK42j3zm7jpkmPsk+zMYHUzOngtY217FIn6bbRwv5IdGVntGov4Ft
UzRNsCULwFejLQsevf8w1csmwgGbB8DnLPkrjXkTM+VmJRfHCgOB4v4uTW4T
iz0sSQphFQGpuKarbVGbGPu8JZPcbRF4T2/c/pCXgK5NsdP9s0Vhx7472Uxl
BGSK1f0THBKHkgTRlo5/W9CBJw/Uyj9IQUUE39I/PiakkcT35Q+vNFR5Mh+Q
k2RCDlGbQkUu0tCMDftfPcWECKLkYA9WGaDP5vIfzWRC7DYL41tMZWGbqeLZ
nOPMiPLJKrho7SB48GATwbEsyGo9MMGrTQn23rFjF+Lcip61u+nnsKvC85v7
s2aEtiLygbjQf2qqcOjqD7UPClvRrvezAzSqKhhHOFE9LLeiauEbv/62qQLN
3a2tKHMr4mzPUOlOVYMRNZ8UnSPsqCdFrPq74lEoHowQ8XfjQKQg70cRlzTB
8NBD1eoqLnTBoWOao/YEqPM4Zvn48KCkBGKtsZohkK0DREhtfKhR9T8jp+XT
8ODwZcqI+C5ke9B/T2G4FUSoxoo65gugXzdUSmOunIXj2651XuHYi/KTf3zz
2O8EMSxRc24PhJDVqVDLffddQDnl3DeD/cKo3ir4060BN3AJV3aYrRRBT677
em7t8AAfvc5lVhBBGQUu6uM9HhC8MyBBqE4E9UYa6NXTPeDGq//g5CcRFOym
8Of8nAeUDCqK5/wSQQSjPyhhhyewGCqM2WwTRcF7mRf6jTzh2T65gGp7UVT/
dIdldo0njL8jXr1LEEO5f5nDINMLUm6/CbdkFUOc8VPVvc+8ADkY++/iFEPs
9eXts/lecH8z0OYuvxgKU/8lyfnGC/RP1MrcJYmhHSkcFpvtXpDb4PIpxUgM
MTP5C49teoFH52PBlPtiqPlaoHPqGW/ge0LebvFIDNU8jnVgcvSGqgsNW3Zm
i6Hx5p8Znm7esHvX7ERynhiyo7p9E/H3hjprzffJVWLoLVmszjjWGyS+9zsn
D4mh0F6D37cLvGFwdE9ekqI4SsWkrt/84w3v/9MqUD8sjjSzVl8IEyhwP8K3
cFBNHL3w7vtYwEIB4x0fSpS1xFH//RLmiu0UqFDxetdpKY6O27z6FiNMgfgr
Za18EeKo4W5L29JxCqiLm88l1YkjjV9P7aUuU2DXdOSCerM4Sr7Fabh0hQJz
Zc8WB9vEkfqMHby9ToGnBuuryj3i6K72M/LhOxTgCcja0jUhjpYlPnZ+e0yB
EZjl4+eRQLqzdk9G3lIgyeHW4WRbCaQWnbZ9cYYCZdsSczMdJVClnOVPmQUK
9FYm73vlJoEc6oRizyxRQFTg4ZYmPwnU+TWMnPGHAkWfXrT+uyyB+A7/zard
SoU21OBOyZNAb/zKLkcfoMLCTHNPSJEE4pj9jMiiVNj9qM3wymsJJF+THtsv
TgX7tW6lTFwCtdA+Xd8lTYWp/4b+dndJoGoWc2ZRMhU4xJnuHd+QQEWtjiEP
dKgg18HKcWoLEfHE5xp+0KOC6SWOSDs2IiJwHLGhn6TC/T4elxAeIjqp38LG
YkIFUoqwfIEE4/xMb+UBSyoYnBDPqpQmorKx88errangN0fa2ShPRFrC3C5p
Z6jw2kh+fVCViPr8X9Qq2FNBm/VYvaAxEVHM/sbNuFLBqwSpkcyISLpKJT3O
nQq3nLXzydZEJGNo9lDAkwpd7w2TTJyJKHfwi64QhQouwbYOsUFEZPn2+cdy
fypclXDouBNORItDMYVbz1PhZaez9uNLRKTsmmhtEkCFeXlvmcrrRKQZMkDH
A6lAGw1Znn1ERNr/LZmSw6ig+8C/7lk2ERVT+u9KhlOBy9Azxf45EU3SMgr5
I6hw75WV8sciIlr98/d0VyQV7JxMtlx+TUSdG3jns4tUEOXTbVetJKKcpGeC
AVFUyA867PeshoiEXssMzV6iQoDkwWP2jUT07fuUczaNCke+SWzb2UpEGV1C
d42iqVCtsfNl9BcisnbYse3aZSpcm+EKU+0jIvOEZb09MVQwzmTWn/1JRLS6
FOlshnuYfw/bjRPR8TCsLS2WChmvJ0r5Z4hoKencdc4rVHD1HIxpXiCikfGs
3vMMS+3pNYteISL+luH37QzPNHeIqm4QUUKciYLkVSqURjbNzRBIyI4yIxPE
cJj8B/wpKwmFVn/Nr2RYk14Rb8dJQkvfhf5bYZglqciefwcJ9XK2k+XiqNCs
lSvXzE9CYqnMSjYMJyw9/kMTZIy3N+VEMGzxPLX5yH4S2sl2+OY9hveeSXgw
I0pCEGtNz2WYzhnn9ZREQqtpWpnFDD99F3XETpaE3tzjaihhmOIXzMavSEKc
9R9M8xlWFPHrbjpEQgvBoWrpDC93uOfQ1EgofOX4xRiG38bYXziiSULP7yoK
ujBMO2x5YuYECUU+tmJTZVh31Ij3qR4J8bjWa7EyvO2BNv2sEQkZySe1NDHm
12GgUch3moTMTrWkX2H43gY5qsmShA7sjCtSZdjulawxzZaEips/M/9ifE8x
J3GhI44ktO9DQ1Isw6O8+yanXUnIRifgzH6G82v4KnO8GM9/OmJewFivgCDO
62d9SeiKwpGoQwyrSjLZ8AWQUJhS8Odixvr+7VkjNQWTkMfaazMphq9pjNeq
0EhIgT+6fJWRF5MZevJ0LAkJbFG6Z84wf2aPS851xnymZW4/ZeQrg7mRwJdM
QidXdErlGflze41/akwloaT/bva7M/Ip7VmecSmdhJiy3banMPJb2vxMY/op
CdHs94R1M/IeHpnBlfOShFJq9+SPMeoBk7/Xa1tIQvQHy18XGPXSfOdKaGMF
CQU0xHNOhTDWz8at9MlHEqotU/M9f4GRr5nDi3g7CYU0+d4UZdTf39ith/q7
SehLvMlY/TnG+v/3smQnnYSGzHgN5n0Z+eCYL76ySEKqL8JEaxn17vK4eiFr
jYT01Odz93tQ4fzhFOWqfySUBlx6Pm5UiHc+UrzMLokU2iRKxpyo0Pjm4n+e
+yWR9ZfaKntGv/ly6tR8jJgk0lxX8ndk9KPhYRGlTElJtGapym3F6FdMfLVF
PUqSiP8LF4vYaSpoUDiLTupKooWBvBOH9KlQuDf1lay/JBr0x18eO0SFqiKv
Gb1ASbS0fHDqphIVWnTV5d3CJNGqulhLmzwVxgK+F6THSKLfe1PNlRn9Vuyj
eMH2+5KISyJx0X8/Iz8RRXmzIIlI2a/2f2CmQg7v5Umueklk8GNkxopAhZLn
5rJSHyVRoN0d7oENCrR3Lb906pZE8kiV2MnYHzjljr3sGJdEB+LzxCVHKRDV
35RbwieFmm4KsNxvoIB8cIJ2mIAUKle5Qy6vocCPHZZ0TSEpVCBhOfkRpwCm
RRdoJkohO3n/X93lFCC8XL5KV5VC9990xVCfU+ByiLj7dkcpJFyWvvgglgLK
vOOELlcpJOoA+A4aBQZfvkq/7yWFfvX96QiPoIDWD7XP4gFSKPy971vFAAqw
6JhqqV+RQi+/SSjuc6TAVb6Lop55Uig98gDPqAoFVPJPvJcrkkKdxnWuhUqM
/VKH/cxCKWM87vR7HzkK6IUlJ16skkKBD1rP14tSgJ3+YjO5QwphK0f9lrgo
cKPgy3dYkUKDWQoSmj+8IV5fMW2vtjRKGHP5Zx/uDb59N7Ua9aVRvznXJfoF
bzDyG50KMpZGFQ7+S9a+3sCZkoF1WEmjBTPuUqKTN8T93DYc5y2NtpWIb9fQ
8QZa8LjCUrw0mtK81Wm63RvO52TXffomjcJmzZs2U7zA9Mg/v4s/pFGxBD1x
z20vUGw+Iyj7SxrVL+t1SV7xgplZHurVKWkUc97kjWiQF1COXuI5timN/KqK
M25YeIFL59mzLyVkkOeTioCDvF5gQdg1H+svgzaY3zikR3tCZIgB1/1AGcRW
0eAcEOIJOTOXiHlhMkjXdouuuq8nLPZPnOmIkUGmJ89mPLbxhJQ3UL3/PuP6
+QBWkPeE7gCflDKQQaP+4a7mjP9Jq+GaI2O8sqhaQZk3W8QDouzWTv/ZLYvC
5FcqX+70gGdd8j7cQrIoc9/uFznsHrD84UHmIZIsSspq0PSZc4d7Gf4c0eqy
qCqiuv4k7g5frff17XFl3I/qtKlm6w42zQFRhqWyiNfoSl1LrBuI6aQvbn0j
iz7ab1oNhLjBFF5HqX0vi3w0O2+MUdyA9lrQ+liDLEI9SU1tpm7wPLNKQaFX
FlU4L5DX97nBcjDnAB9BDkV5V2NNha6QIp6t1Wsoh24ddjWVa3WBT5Ed7N6/
5NAKZ8JRyR9OMNj3efbGmByarFy54N7iBIvqPV/yp+XQNT3vtqRKJ9i79iNn
bkUOsTsKd1fecwKPoCkUuu0gUnUafIiZOMGG79awuMMHkcXkIU2FQEeQcTw2
/jTuIJK7yPfvLYc9xB5/0TQoK480XkgGmX60hvoHJ6qmFOWRoPnKUP9ja2Bf
6CtePiyP2PLPOeoGWsPNbO50Tka1uuT/My4SsoYk5kA/ZQt5pF7Ux/KTagWP
6zT5L0fKozRe1cDHzJZQefKznWirPOp55CPvLWgGs6c3Zx39FJDRUuG57S/1
wJOYx5FmrIhESNeTajp2oyWZZJXiOUVkMaPnVqFhht7l/BlYuqaEHvqxRbMf
dEEO2uLo6AFlVLZsbOSPfJCwb9wbeVBGi8felP4yDER7OH3+M7YmI9rcVG0G
Ho5ytS6Gz50hoz3bSxHhRzhSuRivlWxHRtlBne/8N8KR2VxRd48zGeVJ8X0I
VYtAN74srbn6kFEV2zVdcmkEWs++dCI8moyESE/zjfIjUf/R5K5neWTUy+Us
IvE8ClGCctJPviKjy3fT1wwaotDqq9fuU0VkZH5GQJY2GoV2ivWsKJWRUeTt
hqxdUpeQEft+ofdARnOpf2WmX1xC7z8/c+vqJqOz/Vw3pGxoyIi74mBwDxkl
ng62L/SioV69pmXBPjJyc1wPOBZGQ8uVk9cc6GQ0XNPq7Z9GQ/JZigXjE2R0
VUqgQOY7Db3rPR58a5qMJPtqyienachgpzmmMEdGZIm4HaX/aMgjLqgjcImM
Qlc/5dmKRKNFuJomsEpGEjU7f6sqRaPL66muletkJPhk5taBE9GI59ALOfu/
ZCSq+j6cyzwaZfhWLm1uktGgKP39pms0+h8Qx1HG
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{-10, 20}, {-583.9599053597475, 556.4998738775578}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5782063450504265`*^9, 3.5782063553785515`*^9}, {
  3.5782063855348015`*^9, 3.5782063955035515`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"f", "'"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5782064092066765`*^9, 3.5782064187848015`*^9}, {
  3.5782064584723015`*^9, 3.5782064595504265`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0.7520165225512774`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "11.081316810782054`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5782064205816765`*^9, 3.5782064605191765`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "''"}], "[", "x", "]"}], "/.", " ", "sol"}]], "Input",
 CellChangeTimes->{{3.5782064417848015`*^9, 3.5782064629410515`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "12.395160345876933`"}], ",", "12.395160345876935`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5782064644254265`*^9}]
}, Open  ]],

Cell["\<\
Lok\[AAcute]ln\[IAcute] minimum v 11.0813 a lok\[AAcute]ln\[IAcute] maximum v \
0.752017\
\>", "Text",
 CellChangeTimes->{{3.5782083955973015`*^9, 3.5782084203629265`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x", "]"}], "/.", "sol"}]], "Input",
 CellChangeTimes->{{3.5782064935191765`*^9, 3.5782064975191765`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.17502520489190765`", ",", 
   RowBox[{"-", "220.24076594563252`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5782064984254265`*^9}]
}, Open  ]],

Cell["ad b)", "Text",
 CellChangeTimes->{{3.5782065204254265`*^9, 3.5782065234410515`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "g", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], ":=", 
  RowBox[{"x", "+", 
   RowBox[{"10", " ", 
    RowBox[{"Sin", "[", "x", "]"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.5782065293316765`*^9, 3.5782065456441765`*^9}, {
  3.5782066896129265`*^9, 3.5782066898785515`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], "Pi"}], ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5782065642535515`*^9, 3.5782066101129265`*^9}, {
  3.5782066679566765`*^9, 3.5782066682379265`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtmnk4VP/7/8eW7DNnZmzJbgYJlRByXgpJqCQkScpWlqJFKaV621JJZU+S
RAiRUnJuQkQiayVFtigk69i+53P9fv/MuR7XOfO67/t5P1/3vOa6joKbv607
N4VCeUp+/O9quV1067yCFBge/hfH+d/1+fnxlbJS4BwlRbs1LQkaCiP3xKWl
IPJETiG7XhJE597NrsOkIJerfHnvSUlozgp96sUtBaFqujyvayTAceWUVHuv
JJz9tsmk9pg4eL77Ol7wUBIyjF6vXHhBh6tm2akeKpLgXR5UhSqF4UQrB7tN
l4BL7jZyIVtGiDjbnU53xCRAvmFUO1p4mChrevjgrpAErGS5WOt3DBErPlhp
J/BIgOqm8lk/vwEipTrV+t4/cRivkN14MqOHqC3ZEvG4RRzSLK3pSQebCNnE
qMXXt8WBkh8o8Mu7FX9/QHqojy4OzpubzClO0/jO+0Y4R0wcTFca70n5Mo23
/nCJExMWh6GYPV8+OM3g3w4/NDXgFQfG493ZY/tm8XFvjQc3J5lQ8EI+XnEP
B5c4bexk0MaEvm4tn1/aS/iRG24NN+OYIGiZvDe+nhv9+nhV6VEsEyQPP7rY
ycuD/GiPz726wQTRpmmx7s086MydEdX+MCYs3eJ7vDGfB0UlnfzP4AwTdDou
3qHd5EUFmWHG/Q5MGPpT52i3dQVaLH9SYCDFhHbLg7zN5wVQwxct4XkGE2YT
YmxPPxNAKdPFnq+pTJiMaaN9HBRARpqErNFKJsij61JJuwXRuXst0ZtnGPDj
nN2XGAUhNB284IXaGBCd6/uo/ZkwqokPraI0M2BIX0445acwulu0Qr6igQGj
Me4/aQwRpDNC7TCpYoBPdpGW6EkRFOikYra1iAFhLCVPU21RNK5vo2B+iwG1
y7GloYliCOxazq+4zoAF14gPm6rF0M3jjp01EQzAhK1z7o+LIc0st5vbLjHg
/JZbdAMlKvKVOLNo4c8AerTe5OozVDQ8df/zDmsGTFJUeekSNPTz2d9buwUY
0M8x+bNJD0MpKziXnfgYYGxVxHlujiF7J+6Th7kYkPTfTQ9hewzVctHtT83R
wbWSo2FxEkNPd+lIJ/6iw4B9uynnKYaCRk+n/6ijw+zG4BR8NR2t23Lx9q9q
OtxeP5ThrE5Hw3fDr05U0EHQyf3oHj06OrA5wYP3FR02rHUQaNxFR1uiS9VV
n9ABFN5lTYfSkbD6wjP/KDqs/KVzRvQbHVVf4M0ICqODg4FUyNtBOgppFr4b
epkOJ/+zqNk9QUd/g1afuX2ODn/jayicFQzU/s7Y8MVROljutA4I0mSgmFXb
NMCDDvIvrrVP6zHQdv+dq+vc6PCVP8DKxoSBysRdl784kfnVGzhG7GGgB+6h
b5cs6cC32shd9TQDOZVGFvNvo8Mdz7X1fiEMxBCJfUTdSgf75CKZG2EMFFac
Hq5oSAddFZsAhzgG8uGp2mG+hg4N+R9DGMUMpOLQYLSTTQezc/4dCq8ZqPtJ
61pHJToUJKov81cy0G7bfrGjq+jQonerwOUjA+k+WNF6XYgONta9ezYOMZDB
xxN1Jvx0MM3lTF4ZZSDjxa7yKW46lBUmBmVMMpD5vqLsAxwMjA9ryu2nMJFl
uOx92jQGNeejjP/yMZHN88g71X8xoMgYbNonxEQONNeLa39h8Dn4yetUJhM5
4/Une/owYDwJNjkvzUSuvrpH7/7AwMewInWNHBN51QnvXezAoGsno3uZzUQ+
M2csC1swcDvSRShrMNFxlZ+4+0cMNJevB63SZqKg0FL1DzUY7Or3OR6ix0Tn
85XlQysxGB5eKhg2YKJL324yN5Zj8PLX1npVYya6KjQv+KsUA+QRCPomTBSx
yYNy7zkGT1U4t6RNmSjas3lqVyEGOhrnTBrNmSjmrtEIbx4GGq/fN+3ZzkQJ
f7F2nwwMjqeYxrdaM1GKXEi9fBpZ/w1Wy8edTJRm/QtakzFgmVrOpuxmooxg
u5KIeAzGBW8JGO1hoqxsIsfoNgZbXGiCeXZMlNuh/mD8BgYhveKLY3uZqIAv
Li4jitTjkOIArwMTFW/ginYMw8Co5lftCMmlh3xChS9jsEHKMTvDkYnKb3ac
hgsYqAdfv6a1j4kq32zxOXkWgyb574HRJNeM5B1SPYVBmnWHx2uS30tJOXQd
xyDLZqN3GcmN265axfhgIH7qz8WbJH86NWZi6oVBAFWtQIfk9odOerOHMSjx
Ml/OIeN9aa7WyD1IPv+yM2CKzKd7WVvRdT8GMcpZVBrJvWtTJBgOZH2lhd1L
ZD0D+/lFam0xuHyQ/bOcrHc4MoD7vA25Xoe/8m5Sj9EX32a0LDEYLWRlPyf1
mui3+PPTDAMbc5mg36Se0/Ti3ngTDBTz9iZMkXpzTOQ6d2wm6ysRpjXvYKIl
/6gPy/qkfj/zf4WQ/eFOnaos0iHZqVdtmeyfIKc+b5UGBkdbIihnyH6Lquo9
/MjGwE7C8rEf6QfMPj3hihIGz8Q3tusbMtGqZ0FXRqQx8MePjJnqMJH8j59B
98Ux0PVPHAkj/aYsutNvD4ZBrO2X28mkHzWOqux7LYBB5r800c3KTGSk+Enz
2iwNTPclvT1EI/1AF9LZM0mD8wXjubbCTMTDZ7pp1TgN9CYUdCT5yX4MPt+a
M0iDpEZrc4UFBnLMS3Ssb6eBssWPHI0+cl6kfjpw+xMNStSbi99+YyC5GKHD
+xtpcHd+vFirg4EGAi74jlTTAKan34fVMdBJ/UOXhZ7TwOK3wpP1uQzUqZYU
3lJAA44reheQwUCGq1qik3Np0Eb7jCJSGIh7yTR+TQYNurZkXtwQTc6vt6q5
O26T8f+ZFkZ7M1CuzXjbtRM0sIn6lGMvw0BUpPZ1jy8NAmYv7vhHY6DAdW4/
VnnTYDu7YKMHPzk/GK3DOa40GFUJWfPxLx3Vfn6xXL+TBo1GOifzq+io78hF
NWFNGmiAXMNLNzqysH+p2apGg6ETBhqVe+koZ9vfDSkqNGCPoX/pFnQUoH7Y
WGM1DSqz3XlG1tIRZdx8j5UwDcbpOnvipzEkEyx6IXqYCtE3358PuIQh74z3
EvcGqLDvmR4vfwCGSj6EPcvrpUKKlrj92cMY2i2/PNj4hQpaUV/TZswwFFY9
Zkurp4KTT+5HZwEMjYk1q8blUOFMOffg50gaqsy43XrfhwoLlo4mqgFUJNa4
07/AiwrH1C7qJx+kIucZIcGKI1R4X2h7atSKima2X8V7namwQS9TQpdNRRpj
J58oW1OhyuRUe0KxGLq7yf5S9loqdM3fYtmeEkVNKescPb6JgcaTKdvrdUKI
kuEf961VDGxrKS7iiUJIOyev1a5BDBw9/d7t9xJCMaVqu7e+FoOIZ56vZFYI
oV3tCpbyiWJw5K2ZXYixIGoSw4y+2JHP32kd5qSvRE2XJ+RsGkSBMv3H9o0R
H/roVTS48bUIpFdvtf0UNo9/+j6zy7hIBBK+HrT4Qp3H2+2NXpnniMDvV6nn
o5M4eJdpdbRDsgiM23gU/82dw4flO9adDRaBaIssvsYPMzjvZ05wmaEIUOuu
HzKlTOIG27dQt5YJQ63CofgWhyE8U61Zf9cbIdAevB34TKiZ0E5qOh5QJwAK
0kojWYgHFLQ3fxHP4QeD5rwjN1bTYfiVGd+KQj5wm/gi8iJsFeTcevE+MIsP
gtKl+ByzV4GPl1pMz30+EFkazu6vXwV/mCKr3tzgA2MefssaqgyMH2/VPunD
B6EVBwQSEmVgmnXYuZfNB4GpFzj2j1cD9+1LReWpvBDd8c2R/kwO3npPBGnE
8YKyQJTfVLMcXEVHjJOu84KU5o7G8r9ywDe6re7UeV54Obb18BVJeVi5Xey7
hhMvYGffR29wkAfR5XuCyUxeeLLzbYviJ3lYdez1oTPRPECRImoK3yhAUm2t
uchVHmiKDRjOq1cAaVb7mofBPGAxyHmb/JnknvGpxqM8ILrz8W6rKQWQdGBF
sbbzwJRh6fDSGkVgbL31rI2PB4rKN/9MilME4VWePDoXucn1LrfquSpBdNDJ
obrT3NAlfv32dh8lEGoP/XDQjxtEBkX/WgYpgeCtlPhrB7ihDq3aLhOjBCv5
P635acgNiiJ1ZTPlSsD3z8gudpYLIu5mHL0qpQxL77FH4ye44LzqoUs3KpRh
dwLrucRRLkh3V+xseK8MGe4G1cZuXPC1JdVlvkUZLClu/dG2XFD2aLJBdUAZ
4jYWqqht4ALblJQVVQIqsDZtZ+ahSQoY/iK6JqxV4JLv4ZKI3xTojFAz1LJX
gU8GZ2ry+ygQJ76gtN9FBYLaUgcWWymw2XnEN9RPBaoER1lJzykwpPa5bcUN
FXA+Ff3402kK7A5/XfG7TgXyt6S9mPOjQHn1fYfVzSrATS1+J+9JAZkP/j+N
OlUg68nXQT8HCogL/C61GFCBye/qqkL6FPhdnXIilosF4ndjd4dPLBPNv06W
DeiwoEzr1Ym23mXiaKlhGbchC9ze99xSalkmFuTa1oqYsCBvWfsTUbRMDEa+
3fbHigWmRz/azp5cJmL7ZK98PsyCQFzYzntmiUiw2VS8/wZ5fyvx3+GBJSJ1
S+b7mttkvG0BLw60LREinfRnMokseGnTKW1btERs32j8KeIhCxYOZPQY+C8R
u2q1Thx6wYIPhxzoG12WiCNGTqqKZSxIdRc007JeIhgHY/0/AAuQ7/EspTVL
RH/ThZs/61hw9byRv/DgIpEx8mmryFcW7L00lraifZFgvLDNVvjOAtbV9E+U
6kXiAmPpsPxPFtReW6k7lb5IXGPpvekaZoFIcuvCN5dFoqhfe+uuORZ0p4Zr
dlovEoE8rndLFlhQkG7g+slokZhkcvj5KWywfZL2tkaavC/ct9FjBRviSn2i
8tsXiNdeWqKrMTZ4vpEry65eIPTWZ5e1MNigX/Hpz8PiBaKLWHQ+KcGGL7X6
uxNiF4hIl9oDgTJsyGkYuRwbukDkRVYXNcuy4XxTanH08QVCtDRnQEqBDbKd
vJKhNgtEQrPdR08VNox9fbE9ePMCkb/dM9iXzQb4fjT4lMYC8WmU66+zGhvc
Bpu6vQUXCPsdV1hzGmzYMHKFemRunhh9fvnbI0028I7pbnEZmicY5YZWRtps
eDyd8si2Zp6I2K+AWBvYEMTZ2WH1fJ6I99Z+c1aHDZZL3ALbMuaJH2LlPSUb
2bCKu8TA5PY88eoNJ/ubLht+83n7GF6eJ8bXaWOjemx4IyCTuvHEPMEJqRAf
0mfDDZGPH7Vc5wkBsTXF9ZvYcJB2mUt95zxBzeIeTDBggzZz4wZl43kiwX8m
Z6chG7ikho7Irp0nLo82L4+R/EkmOU5SZp54yjj5/awRGx7K29RiQvPERaPP
2/6QfFKZiyPM4RAWmuK6lpvZYKZavIb/F4dIUtr3OIZkcQ3PA1ydHOLE+18J
QPKglvTN+RoOYW2htvILyS83fICp5xxCdXPsRBfJ2hLXLbBMDhGblOhQT3IW
x6pJM45DvC7cL51Jsny3sOOOMA4R/ZV/ky/JCRUN3z1Pc4hNH38UypNMfRTt
edWDQ0w9NLoCZH4REVZjafYcIubT1Rwrkik+wmfemHMIhp6uWjVZ35mdDUuf
dTmEHtbDUSN5dH102DSLQzQIqskFk/p4iFuJ0iU4xCqt6jsvSf2654TitPg5
hPz0RadeUl/7b/WrrWbmiLdIz3+W1L8Rrj3yGpwjxp26mjlkf8wzdqz9r2OO
yFwIDP1F9k/3WL1R+Ys5oqJz9O01st9Pba5VfXk8R7Q8NtqLr2cDa/0Oq5n4
OcJJzVb7O+kP8bn3+7WD5oiFTRcrfq4l+9kV9dPKa45I6k45bUH6awVYHvN2
nCOeHLoRmKjOhqmw9+fS9ecIS+zjVgrpT5+jUdyE6hyR0E+Ii5P+7bO2jPoq
OUfo/3ynLanEhlbG+0TG3CyhGK9r0EP6vzi97mVY6SxxJPrS4zAmGzTCItHD
7FkC073zYoncXxne22uJxFmiRmaEepjKhjvadR2zZ2cJc8nhB+OCbAgsr50+
ajBLnDmisEdumQXDDyJCwtVnCYEzryvn5sn59p/FigzpWWL1SNplmGWBrVUt
8xtnhggT3jqLTbBg/Zd3OjtfzxA5+9p76sl58eRNeNmxnBmiN28jZ+UPFig+
2GYakTxDyHZX+q3vYgHN692eiuAZwtCqNtCylQXjUzUBG4xmCPFAd5Wbb1mQ
T6spkHgzTajTr6r4ppLxXGiWP3KmCX/PsQt85DycfuL8MytpmuD0mE2GkfPS
yPQf0yBomrA6tN3SLIKcV6flg503TBPDPeGiBcdZ8OPrObMH2VOEUfaxfpPN
LLiiWtPtnTBFMPcWsPx0yXl3iha0PnyKYM2qNl3RYoGPaNaTt0emCKe3308c
U2DBLGoTG5CbIlI+G93S4CXzz9T6oh43SbQX/EwOrlaB4olzgf+uThIF2hu0
TN6ogCNeI1wWOEn0JKvcHC9WgdROZ9x69yQh9zy+WThDBdSFojL8hSeJcPMG
TaNQFdhyvM+v+PI/wmevhNgFPRUINEjkMfafIIYbK8sqbyvDnTuruuxdJoil
yvhW3khlKB69V+xvPUFYftxza32IMkynp7s/WDNBNGwKkt/tpQxBQrnveIf+
EqX87JxkQ2UI6Sq/Vu/6l1Cev+nt360EESF99H2244TIb7nWA0wlyOr0+H3C
ZJzoFr8hqrZSCerW/6qK0h4njmf+29nDUQTBwT+nykTHiXe37khJ/VAE6fuj
+XjcGHH5jr3642xFUDFh6H8IHyUGQnLjLTYpgsF/By2Gjv4mvA/xhS1bKkDd
7IVHLjt+E98HeV7dNFIAR58U7rY1v4ktClWDVE0FOLXnc1nF7xHiNtvk0ABV
AQoU9qxL9hshdIYOKH9vkwd2ubm0TcAwwWh+/RU7IA+MmbW/i84OESuqNUde
VcjCmNfCzYsRfUQh3yvdxVBpuFKVbIDPdhBH/P1WPFSgQvtro6onPEAcDJmY
fTozRRzUMF+0u1WOZyuNOFjPTuI9Fo57/VI7cdf+vpCQaCqazMfzJQ37cG2D
xhMR6tKoYY0hdvxAH55W6cnx2C2NHj7WPfXuYh++fYuaonqQNLK9v9bwdFUf
LvE9qOBAtTQqvLHqXYt1P+60/W7QKZdVyM93pvuG6wBeXX3nodk1GTSoni/K
FzaE6wkF5rg0yqLyzCcnnLOG8O85j/PC/sqiOMXM1qL3Q3jb03OJNxhyyFz6
XpKb2C983aWwtM1OcihD4BoLEn7hHqLsOEafHHId8jAOzhnGTXnDpt4GyaMv
j2T9/jb9xuPt9EytzyqgkhW5tlkTv3G7zJ9cZyIU0G3PTXoHGX/wDAmPHTfj
FZCVmh3lg8Mf/AXL3uLacwVUnhsZm9X9B2df5t2fP66AHhRNlhz8PYq7S5rn
JR9WRMWu/csDV8bxAQ368ceGSkiRphFQeWccF24bNoiwUEIxFQF99x6N4z3e
jJG9e5WQryKlzu7dOH7vv8n6F35KiNUnHVsp+Bc3phRb3ElTQgmeu5RTb/3F
0z8sGmRSlFGw32uLvfcncG6d+e+9hcpoCz51RDR/Ap854+mS8FoZCVK1Qt+V
T+B+xq8ljaqVUUJheumm7gncrPk/JZtOZVQyGakuu/of/tHVrSZ5URlNnHMU
Hkz6h6+zb5frMFVBr3bEqqY9+Ydvv6Er4GutgkJlGkz3vfqHqxWshPG9Koha
jl+o//wPz5KtPV/hoYI0udij+ZKT+JdDk/+Fh6ugo+FTH4PiJnEFbomctGoV
tN5R6/e6zEmcr3lXMvWDCppT9V458nwS/7hJcsG3VQVFvO9CB9om8ciYMM54
rwrKFKkqNGFM4VKGNgckllVQz+3Y24KxU3iiHz2yZwMLZR1pyH/7YAoPdOrU
Yxmw0PGNKxrOF07hpmHrhB0RCy21n+Uda5rCdxU4M69YsZCM9KFTLWLT+FHq
S8PpwyzkmKblkHJ9GldOu/HI+iYLTfJ3H8pOncadc83+frzDQjH+0T4l+dP4
vNf3D4ZJLFRn/Cu0qXkaLzvWq96UwUIG39JzecVn8JDTH2kjL1mo3XT3Cxp7
Bs95FBta+oaFAnKXK2T1Z/Cr2nKeJypZKCfYuUPfaQY/fuZP+L36/+Ujzu2b
OoPfiPBuHehioZehVcLn8mdwPd2Pjyg9LGT3K0AiHGZwV+EdnTz9LHT95UeN
B70zuIoZ3bHmN1mffaRDG2sWdxD3um44z0JJ5XpuvXqz+Etf63VpSyykyxrw
GbOYxT3LuFRHudjIb2rLZYFjs7hEXspK85Vs9P32Qu7m/Fm8MSvjTD+djc7P
P3lhCbN41Db72DvibCR5eF+lQ/MsLlC2PKMhxUa71pd0nPg3i286qp8uJctG
vxOP9IbwzuH6iH/AV56NIrjof64x5/DjKtaBOYpsBE3+3Jl6c7gI9tm7l8VG
zvqyIkUWc3gxdW3LV1U2mr3fIAH75nBREUZYuTobrfNXW/sleA6n53yqwzXZ
qLG9Q28weg7n3Avb363FRkeNw7ZM3iPX0w7T91jHRukiPx1EYQ5PuWjUsU6H
jYxP3XJb1TyHZ3XeSzq1kY2+dOG+qr1zuNSKtNx0XTY6bTp6ZuO/OfxHtaNo
qR4b0XNTLm/h5eCWSTPwUp+NCug7ru9kcvDM2urqB5vYyCp4Lt6ZxcGbHFiy
Jw3YaKj3cbq3Hgd/IBpXr2XIRlct7fNOW3Bw/YCcj60kyz/jfXllHwfXqRLX
OGzERmVSRZUxRzl4JSW99wvJjqGHPtwL5uBJXdpThpvZaGpIrPNJNAfvqAT3
MJJjd5X3vrjHwUs+eem+Ilnzpc+fqqfket/2eXeQ/F5u1WwzwcHvuHVTukn2
CK/j/t7EwatvOi1/INlZ7NiLuh8cXF7jT84TknfHC/sUj3NwXvbLnECSzeWe
yt+nzOMfF35R1Eg2eryzLZI6j+unVeW9J/Nbr/U38qT8PK4cdK/YkWT2i1jj
g9rz+LYD3yRayPpkcJ1/29E83hBP+bKJZOxd22OdXfN4V1fcYjSpz8qdZ5zl
XOdxcaut/zWQ+i22S9IEj8/j4z5lgbOkvhMur6onL87jKzUa6qkkDw3sP/f9
5jzu1bkzhkn245vfoub7+/N4lrx+1QqyX5+mU38W58/jAtTIo31kf9+s6LWK
+jiPX21sk3Zfz0bPblzhOvV9Htf0MlizkvRDlrhKycGxebxa7/OreNIvsSwv
uY1iC/jZwGPu5zVIfz4VaJWTW8Dv09zCm0m/XdDNiRDUWsAbtiTq0tXYyMt8
9O93mwXc4dbDHc4qbOTSeDPzvcsCrvqZXnpYiY322K/b/9xvAXfhWq50UCD9
5nGyKurGAm4UuKeMbzUbMcI4cRsbF3CQu1p6ltxPgqIpO+S7F/BC49aQASob
Ld/dTBEaXcAZn3K4kSgbDT+65P1DZBHfdtjNsZTcj1C9wuia9SJulrO2onqB
hUqss8ZPHVjErdxOLifMkfOjbfsjV99FnPs+prRvmoXi+qNFda8v4tFFKlpp
Yyzkw0fv+dGwiJesODO+nZwfbteL79Z3LeLH1GtGr35jIQemvWXJ70Vcv3Z6
MfczC21RSSy6JryE/7ZleVQ1s5CkmVyYrtUSvvMOh4dWwUJvr65ZE12/hJ+1
9utjpZDzbvluGuvrEv630mzAJp6Fnp2liFcML+FBHEEJ91gWSvdro0wLLOM3
hq7JOUew0GXHi+0HLZZxToB9+KlAMp5GS+iG6mX8pUMB7DdnoVeZm2c+tC7j
b6Oi+r3Jeb1OIcvHq28ZF5t4mO1BznPqtfKcRi4Kqn0ztlZDk4Uol27H8ShQ
UOJWvuVBBgv98N7s43uQgg7MFpeqfVdBMo8nMg08KejJiTVXVDpVkGPf4x5+
fwqy0njpQ21WQU0umEN6CAWNU0MriypVEOwZNOm4R0GeRyx81z1SQfc335Iw
6aKgNuOweKqnCnKh9Vcy9nEh4TsKOmndyog3qXXy2iEutCZnqrm+VRk9Uaxi
8RzlQpK/Wub63iujmQ0Po/6e40LqOgmrf5Qooxj7Q7aNKVzIOFx+w/x1ZfQ2
+VtP+A8uJFPCU9ukr4xUWe2UeU9ulB1zHh0MVUL/DN4Z95zmQWUtPyJP9Sig
mj0FZu9CeFD1WJjT0VYFlOCTaJUXxoMSzEWibN8pIOPUY05n43gQxzIcLeYq
oCgu6mlaCQ96dfBk9pszCkix1jHPZIoH/YcTV2cEFdDuvcOr0gN50bp/hbde
qcqjfH+RObfjfORzq99NR8og3osDoW53+FFEntWFklA6Ck1U2i5xRwCdq97a
ESfHh3bwXlSrihRC8jfeUa0qu3HXNwatprFCaDZ8fZPQhS789OnpkOokIaTf
eiQyQ/8Lnj7k21qTI4SyFuf3+Txrw2cbnC/WfRBCux6OPLI8VIdn3DVoa6QJ
o0sMjQXZ+GJigTV96XOiMLIweuaxma+PeLrdt3M0WwTBlrp3t8j/xeOxio7d
hSIoYXZy5tQCh1jf1dHxoVSE/B3vVOcLmCdK/LZ05NaJIMaayWuKzgsEcVui
/egvEdTrqjtpqbFENH2raBlQFUUuQu2p498o8O+E+Mfux6Locy39P3tLXtB9
XW/TmC+KWDt6h89f5IUg3tDGNy9Ekcfbkn/Hi3lhIW7kQ8o7USRDWVqC1XzA
WwYNToOiSPvgh3OcP3wgvuLY+3aWGErr0si4f5Uf9JOI6sZHYsjNNdxOMVIQ
+jTzjbyeiqGrwu1nfV4Lwq23qUVcL8TQGyFz+cA/gjD8+8IDnVoxJDzW01O8
SwhScKMLScNiKMoyvZebIQyXApyliySoaMuUjM7N6yLQbtTatryKiqoWBB0v
vxYBDX6rW1byVHRUP2Vg7S8R+JxsuHJAlYpe1bO2520VhfXV0tOSBlQ0dCTS
2XxKFPolPjeHOFMR+4PQDnsVKhj17rpe70pFGVM+X3kNqBCbW2sh6U5FKct6
xHUbKhibvCQKfalIetRPVPMMFRKOxuf1hVCR89CTZ49qqGD5Zm+k5QMqcq0q
/uboQoOnbp+Q+AAVPY2c3SV+HINH3ud/2wxTkZDv+++3LmKQcpyVED5Krvc0
bLH/BgZRIefGZqepCKN9uiGRh4F7kmLqV34aMtzbX3hvEAOZTwHzaWo0FJBv
3Ka0lw70zzKPP6+lIb68lhBZNzoI/qixxdbTkIZorf+4Hx1m/0g/uWJAQ3Ei
tC6pCDq0CLx19NhBQ2KnB9suvaRDlAm9ZI0vDflsnki/SWNAqMWbQ0dO0FDh
wjc0vYoBQTs9Re6dopHnrEmhDSwGeBx4fUQ0hIZcrrv/0jRggMnZw/S/N2jI
U/mfgKYrA/QviRBqt2nIYmu4o6k3AzTDXxx1i6ehpNUxjtoBDJC5K1TZcp+G
xh89WB95hQGzBUXHSwpoKEbtPzDKYMDYiwMyY8U0dLdLV2g5hwED5fy17FIa
Gq3yi48rYkBrw365xAoayuWnILNKBuQP8TQGf6Ih2n6K7/1vDMgcyztb3E5D
R7pHDwj2MSBl2kHlzxcaUryzX8NymAFRvLnnXX7SkNcGgw0W02Q98nZrTCZp
yPKky1MjYSYEjp0zWTdLQy1DgndnqEy4VP7AQWGBhp7lQGY0kwnJzmNXuHgx
JLLFXd1MlglZa8ST/vJj6IevcbSXIhNKOEYFPUIYssuamnVnMaEpIaqrgo4h
Ux/P1tG1TPjmWThRKIGhrwnrdc6tY8KwbufK9FUYqlVdvPRdhwm8bSobLyth
KM13W7WeIRNoGVY7AtgY4pldeqpuzATZwMBDbmswxJ2qcnQGMWETreL6lg0Y
2lFTYyBrzgTzH4MP1+thSJr1YGuQBRPs8kVfKRpi6L3XE95cSyYcCtnYhOEY
Wrdu7EypFRP8rJ0HuLdi6LzJg/g0GyYEy1xZmDDHUNslCZdDu5gQMZKN/bTE
UBelsXp+NxPuvmpSbbHB0DK3R53/HiakR84Yv7XFUMHio8Nv7JiQ7yi7t8ge
Q6cenL3Zt5cJZWyzYw+dMNT+7e+2fnsmvJ8+FnrbBUMyA6YRhAMTOqpj46+4
kfXpNu4IdGRC353SvEAPDGnHid6g7GPCxOEfbw8fxVCMfK6lJ8nL6/m/7PHD
0E3TgAuPSRbm1hzfGoAhjfrdihUkSzXbrdA5jaH+L64bi0lmpQXLKJ/DUNT8
l2eXSNbxT1/PCMFQp5RCPItkE+M6C97LGOK/Vtr9iIxvIzLuMvkfhuSpu8KW
yPycu8RP9UViyOjz8yhtkr1zNl9rvY6hWxE9Q4ZkPafPHXlQdQtDpzeO3ZMn
672y/dqL4rsYWuUv/7ib1CdG8tmHjEQMGeNdXKdtmXBvsPPnnXsYytHIzxkg
9X1Ssjx39QHZ78070rV3MuHFfyzqqUcY4uKE/9xjzYQqO2uWezaGQnzdfHft
YML3iSRbs0IMVZun7Wkj+/27osJr43MMRXiW5h4wZQInZihEpRRDV19+3UaY
MIGhpZvDV4Gh2f2muKgRExSWnCumqjCE1/kkzuszQfPDlY7+WgwdT3VbV7mR
CRbHmnlqmjCk2Csh+VWTCXsNZqVKWjEk97vffe0aJrgJyGlndmJo6G7qmCOb
CRce+ziH/cDQ561RJYZyTHj2k/+5+TiGpu1TJLVFmHCys77m2iSGXtFsl37w
M0Hvw83OplkMvdNXsTvCTfqjRGLBiYuOyvt+7u0l92N1JHurP0ZHm/oP9L8m
93NEyIhdsTgdtT7XDKF0MMAyMN9jTpqOLtn1xks0MaDRWS/qihIdNa7SdHpT
wYBOrW3N8Tp0VLbRNngwnQFJykI/u/TpKKOt9hwkMeCA1MdJhc109FD9m6RP
LAN6uR0kc83oyC719lbDUAaMtHkcBHs6+pt+qqfUmQFLwWF/hoLoaFzLzGmz
EAPguOXy2gt0pE0kfd9CYcAVd1FaIHlO8Gwpd181RYeVO+N0FiPpSDFoxR2z
bjrQFDODacl0NOP9yfXiUzoo11YLGLyhI9ljvzNizOkwUBa56mIFHbWH2ti9
16dDdqH12qpqOvqVMp7YoU4HzeS2XTaNdPRM0pThK0oHPb/+eLfvdKQlfnDF
fy0YWDL4WNe4GGjXwPabgXsxUGo2Sw/nY6D+07ExK8wxWLgeJntVgIGobiGR
gboY5PGvlLhAYyC+z34xX8UxoM4LrvRXYCBeP13j/jYatPVQh21NGGjDqazx
X1Y0cM2XeSodykCn1yeKSMhRYZPPAXWJ/xgoeTMocQtRAVNLzaRHMpDqt+GW
W3/E4G263H3hWwz07KrLjZZkMWDFKcYspTGQnfslxalJURg5rxrQCwzEOqYY
1JgoAqctdXSfUJjo5CPHzrangjC29XF6LC8TsfJPCrSECILXZmmx4JVM5HpE
o/mGjSDs16YM7aAy0ReV1cSWPwKAxBsS/8gx0aUA1wNpbAEQ6j28qI2T34/K
L9gbww9pZ29XvbjARFjYt5gP63mhLmvCtprDRCnMwqqia3PE7Dvu19zLTASb
wsNGuOcI1iCmhHjEkSmdaZdxdpa4rLLh3yshcRTx7r5WsvsMYZQeeLtARhwN
ue5rzdWbIgqSJ1uSjcUR1ezYYmfVOJFwY9ou4DLJJg9zB2W6Ca+THHs5QQnU
ZBavtMZjCE820+Hs4ZdEC+J1bpImguhJnkN8uZAkiptzVphJFUQvmcE6alRJ
1Pj3tvD4giBq76/wW5KUJM+PD+o0S4UQNWznzyx1SZTLHXy+db0ICqs52rBo
LYmGLhzOWc+kooBtD1If35FEHV61vN108vyaX2WIJUqiVNmGO4KmdBQjMdR5
/p4kCnb4kbH5JB3lDWrSbTMl0fP1Rf4lrXQ0FF4WvvBCEoF3YcfvuwzkUttx
fPdXSXSPu1vSWEoc+WrPi5R9l0THTnPHlW4XR+cTZHNYfZIou1PLQP+cOEr0
cu+f/y2JLFsK5Y2/iqPWlf/2ZS5JIibX2FWPexLo53HxGSqPFFrNoe+b+iCB
Jjo33Qnml0JGdUKZ/y1JILHsS427qFIo0lSjJfugJJKlZRx7zZBCh8Lztm2O
kUQaZ9+tZElJIdhVdKAZJJFhz/CjmNXk8+c9v7v/JeP+v/dZ0f9/nxX9H8e6
/J8=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-11.62082632098334, 
     11.620834376474967`}}, {{-6.283185307179586, 
    6.283185307179586}, {-11.62082632098334, 11.620834376474967`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5782065745816765`*^9, 3.5782065931129265`*^9}, {
  3.5782066693473015`*^9, 3.5782066924254265`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5782066230035515`*^9, 3.5782066266910515`*^9}, {
  3.5782066987691765`*^9, 3.5782066988629265`*^9}, {3.5782072605660515`*^9, 
  3.5782072844410515`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzns40wscBvC55dINx1aamW32+3Uq3U43Zzt9v0R16CmpTqVQi5KElJKU
UlFELFRKi0JKPclESBKF5PRkFYbkEolcyvYb4ez88T7v83nef16OyM/ZU5NG
o7mp839rPTOoaVu8c3nqy7UC07uXl/O/FgvMLwFYLLMrsswNhOGH8zzqxevA
lkqzGZKehQ4TL+qx2B3KuppHG6UJ0LDyTGma2A8SpKzSGmkavHcXk8niUHii
Vy18Js0FZx/Thivii7B78FRjgrQc4ga35ySKJWCyLSlvOOc9CModDGwPPoRT
s8vi5UlfwD947c4c/3zwsyhdF/WqH/bne8Zo8kpgM5fxMIirAFnX3/oZojLY
XmfGZvaMQOQ8Be3x1grILzkxujSdhgdmVySUpFXDhdw5fRVRWji8a9+DJt+3
sOVIg3W92wQUPf3HKXb3O1hzvqBb+EsPdw3ISkrOyWDFSfslLa8n4oX5eX7p
4R/AI7jqqcBzCmqW5C09E1wHYRqGZn6Bhmg0y7Hm05UGuGhrRc/81whXS2xv
9YsbYaPrfO3bU37DaX3VK0PzmoHvmhCfsssEk14VaGjtbQEbzpu7gvt0FLJs
xi08PsNjjcivRXIGzm4xbD9+qBVW/LRnLzKfjvfvGHvlBrSB96Q/j0vsTTGk
2bV2dng70DLsLNxCZ+AB4TLHG/EdcLdix/PMLCYOS+xE32K/QI9/o+2RZ2b4
1j9px5HUTri2JVDHoZWF1qu4Y00pXTBRJ1LQ1m2OlfbWd/D6V2DN8nSK62Rj
WvZV69Z73WCqmnhvKMgC6bw53m6Z3yBsXmH8sQELfKehF2Za1ANZ0YsK2/04
mKt3MP1tZS/0+UxqS+7k4By6obeo/Dtk11t5rNzAxb4YhckfH/og1WyG+YUX
XORFRMzz8+4HFlc3ZMpMHra6yBtsO/vBTGZVFRzOw9Udtapc3wGgVZc+xS4e
BgV4ejF6B0BbJ6WLBpa49vE1B8bhQTCKyA9jXLHE77+8Q7QUg6AIq34f9cUS
Uz6ekvoe/AHdQydSVXP5OOz1146jIz9gcVGqPCCIj6zRuG0Hgn/Ckhzbq/Pz
+fhlVVSVnvYQJDkmEgNKPr4gqsE8aghGYwpGpy8g0FsvXZujrwBl+EmvszsJ
zLtp+deLOAWURXuwM2IJrBEIy52NlDB2W+YUn0cg5X1tw44YJUj1hZqKOgIv
Bt/SDY1VAsV84BVSTyARea8wWayER/lZgZoNBG7KLOTJE5VQ2+NwerKcwEed
8h+bJEqoYnzzYTcR6ONhFu/4UAnc9cVBCz8T2OKaLFvyTgmDdZx99K8EVjhJ
Nk1mUPDmYtzpGqX6b1lHse50Cn5nbDBYShE4edmcmZozKCg9PmIrUduZ/WRY
waLA/cBYpa+KQHnvO0kLn4Le7MK5BiMEfo+c0J2zmIL6kmjnhWME0sv3n3DZ
REHExJvjq7RJzF8m7dy4mYK3yeal6Wq7ZA07rdtKgcQ1YImODok3LkXw7Fwp
EIVeXvRc7ZmilAorTwp22rwOX6xLonBcZqwRSMFyl0NhUw1IFFkLMzLiKWAe
7qo9N5XEvb1vhhoTKRAU7L7fqbZ/irud8VUKUj/48Fcakhiqf/pzSDIFVZVT
BjSMSLxeX8l0Tqdg4fZkxSFjEj8c3Rz7K4+CPW7nC1bTSXQoCDi6Xk5B21M2
L2MGiet9tSvCmyjQN2usVqm9hZvIKPpEQbMXnb6GSeKeyCc5RDsFr3tHT/ap
fcaF9n2khwKXzpsvF7BILB6OFqWPUVDwcoL+bTaJ5Q/Y2XKaCmbGHUvqV7ta
lD1uqKWCOze8q4QWJMqrZNeP6apAwzRPR6Y2lcT86GSogrbJut2jHBLH197n
hxuroHi3o98qLokTtOBQoYkKFrrrX4pV22SfyIgwVcFh2mAuh0cik/3TfRtT
BTmJZrl71ebWnn0Qy1LBrowS52y1Z0VMGy1nq+CzVXMMpfYCQabjCEe9k4F7
wZLE/wBimcH8
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->
   NCache[{{0, Rational[1, 2] Pi}, {0., 11.570796294737823`}}, {{
     0, 1.5707963267948966`}, {0., 11.570796294737823`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5782066278629265`*^9, 3.5782067003316765`*^9, {3.5782072624566765`*^9, 
   3.5782072855035515`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solb", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"g", "'"}], "[", "x", "]"}], "\[Equal]", "0"}], " ", "&&", " ", 
     RowBox[{"x", "\[GreaterEqual]", "0"}], " ", "&&", " ", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"Pi", "/", "2"}]}]}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5782067154879265`*^9, 3.5782067319254265`*^9}, {
  3.5782070725191765`*^9, 3.5782071228785515`*^9}, {3.5782072058629265`*^9, 
  3.5782072172379265`*^9}, {3.5782072485348015`*^9, 3.5782072487066765`*^9}, {
  3.5782072907848015`*^9, 3.5782072909254265`*^9}}],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.5782067327223015`*^9, 3.5782070809566765`*^9, 
  3.5782071244566765`*^9, 3.5782072195348015`*^9, 3.5782072498473015`*^9, 
  3.5782072924723015`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "'"}], "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5782073444566765`*^9, 3.5782073565035515`*^9}, {
  3.5782074076910515`*^9, 3.5782074183941765`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk41VkYB/AbQqKhUMa+/NLIMiMmWXrPmAZRkmxjia4WrklRUZhU9inG
3qXFlbFUGFeWaxeuLUmRyBaRFst1cede6xznec5zns9f5/me831eZfIF2zN8
JBLpAd4bJ3+dSOdH/VMHV9c3FoGIL7VGCkkA7me29W94qUjndH/iMbAzMT69
YToH3koUOkJ2TEzmGvaEpBe3LNEdzI9y4lex78i0ihVWeYLHnVu6K9g5e1wz
SIXn4NAR7cgl7Pr9rB9P0HwgMIl3m4v93iy8ITvxAuR7j//K2bhPQ1QjpMEP
mt/NFMxjR+n2+mdXXYK3k7vaWdiShrSqzpIrIJdNpk5jZ/5CEeAWBIKIXMeu
r9jah/WOKudeg4PO9lafsKts1lIsacEQ6bumM4b91j1R/UFiKIQ4F33Xv5Fn
n7bBR+YNKLavEOnBDtyfNBjYcBMkfMfKO7EFwI3IrAoDV8uUPY3Y7aYNbfqM
cDhipDhVjZ1gpu7bXhIBPlltp8qwFaznyuYLosAE3fDMwx4/7uAS/SQafJ/e
maVhP7WvWpfLjYGWpQqtNGwDtwgLM9ptmK0LrI/Gtv1D5j018W+4GhIGp7FF
DaAu1TweONR0V2dsVoWfxCgzHrzzu/faYJfV9JZeaUiAXU75Hwyxf2XS1h5W
JYHp6ZUsUezd5t02Xw4kw8vX6rYkbJG2zVn7GMkwmRxQPL9GoK4OinlrSQo8
GL0e04/t1qMXP1dwF1YBJWRiI4dzY0aaVChfud2ViK3Wl6YX+YQKXhUrz8Ow
vw6s9X2fmwZnFKyrTmMHfmxVPkS7BySrciFV7AS267PUxAwweDYolLBKoFip
dON6MRoYZd6tC8Z+Q49Q1LelgWZcr+xZbJevrhMKAzTIYI8+P4Dt67LVjz2V
CXXKhk2DKwRKNvGKThP/Bwwdjj2SwO7vP+Gzzf4fmNYNecRZxu8fANZhaf+A
Hb+e+QB2bqG05HmVbMi5YnY9C7tSkZmB9HJgiCGQpYM9skmlfNIxD16+d235
eQnneyiW7no/Dxr1A8Wlsb0MeSGvP+RBrSyxtsAjENu/y7TK+zG0TJq00LEF
xq93xgU/Ae7ly+Lq2BrNAxP6GfnQfvZWKIlLICOmpYjppSIwjBrp8V0kkHhP
zqv9SUVQWWaZ+Rv2+BhfitazIqC83qEghx1HqlKUmS+CHzwa9rQuEGjMaK8+
y58OMseybslhRxdv9XjoXwyyE1sPl7EJ1JvRUbrkVwIauZeJwlncr8I9wayE
EqDrctaCsG/UhKNP9BLYzZyKNsf+YcD4xeu5EvDSNy4cmSFQiHTBhzy/Ungq
GHxQFFs1Nnaro18Z/ETVDXCYItDFIOtTzy4ygDVxz+LfzwSy9DXOE45nQKv2
1zOXsFXJGrNu/zKgI3Tk5/3YvYcF/xSeYQCjt2G+ZpJAJjK1VDefCmAMR/S3
fML9Y2h1CZ2tBMaRl/YvxwmUvSgKri7V0GctvyvjA4Guf1mKoAdVQ+S8cv7v
2E5DnzsE06uBoE/N78AWZTY50/uqYTi772HUCIH8k0MCBB1q4OmyOtlnGPd1
31RBkU0tmFolZ6gNEug840wcn2o9HOKeXHV7tzEfjitt0quH/TvHHYWxWf3G
xeuH6iHQbNSpuJdAl5d39K6crQfG5GHrzdhBBxvk/3tSD49F1gVzewgU2aRQ
8E33OTQ/saP3vyYQrevdix7TBigcG15YfkGgns+Ht+SSm2BRXT1Vr45As2l7
fgvzb4JKfpXuV7U4v5XQTfdbTbD3p5sNFGxU0MTd+agJtMv9GRk1+P/84HP0
aBMYa1lvEqwm0K0lvRaKBxO+S7UQbmIQSEdUKUL7ZDPohVI5m4sJ9JcOh1T2
eyvMtC8UZ2YRyG9va0p9dgc4DlgXH72B56mnT+GQbxfUqMfGEE4EItc42MSf
fQN65UMtvVoE8pzrqa+P7oHQu1UWjCU1dOfH8gs5kb1wyjsqRrFZDfHVl+8P
D+qDRDHTGZE4NSShYdU5Qn0P+/4K1tI9ooYsMkyzWImDMPtuWkhJRA3tnO0w
Cy0fhln+66eia1RRekvlJn7vD3BelBTseV4VGcv/sq50ehRu1F0cP6KgivZ+
EB//8/IYBHzvaj/cqIIK8rZ7lfp/hOdCfp+0fFRQyLBb997IcaASreJhgirI
z9jA6mHyBPi9+kVOI0MZLWUcIn+L/wQGdt9aXhsqo66L6R6BjybBcdODP/vb
lNABc5W1oczPYFodkPK3qxJq++1AHrr/BRiUo28nBhRRNj3twNjTr5Cc2bzd
Y1wBSalqUk4+/gb5zkNmcRx59GaT8C2Z6ilwvLltC21aDpUKX8rpapuGHzyZ
cGdMFmlKiVPIzBlYsLamXvn4PZqN40ju650FVweG4d1WGaQaFaVzgcKCAGqp
1HzlLjTmPPDedJIFYkFP0rIKdiKLiW5eqe8cvPj5yI9K4dLoqv8ZL+npOTDn
nTw26C2FrMvuWUoHsEEjIihFap8kmlmhhPBz2JBjPPmcLroDZb67WeJ7aR74
6Dlf/vgsgZa8TDyuLc9DWmIk61GuOJJfTXDxC1oAmV/Hbm9mb0OfzG+3Cwss
QoSOiGWLiyhq3N0BCrcXYaJT4djoiy2IIpwjoLyFAwq/k1mxnkKonKZm0pjA
gUiNx907GgVQp5Ex01biP6hNZNIWrfgQl3LvhEfcf7BNhf4msmYdWm0y7MWk
uTBWz/5CvrIE5APGubnJXHj1XGxpJXwRvKdfLg6mcuFqxQmDb76LcDHT/dD2
NC6ka8u69jstQuiWsNGQB1xYEBmyL9VchPv9bbK2OVwIWp6T/6NnAXqvOcav
lHOhuTL25FvVBbCs9L92fIAL5u4iSWkNbDjuK9AaOcSFZcOtthH5bHBSSZWu
HuECRZNPwC+VDef+qni2e5wLibwbphYUNoQ7k2aWp7ig9jVanyPBhtqlWHLO
GhfWDbjHbU7NAbNQkT5A4oH4szf+RlZz0EGmr4vz86BpzS12t/4cDLT33A8W
4kFqnT59RXgOuOmy72zEeZA3WFSXV8SCdesCInI7D8L7+iqS0lkgyA+XqyR5
ECfxHf16OAskfcgSu2V4YMe2o9o5sUBWccHdRZYHjYtGMWDKApXuiMJ4eR7U
TY9c1dBkgUbUzlWmIg80ovPPSUmz4Cejx1bLyjzYcknMgURiwf+ipM8Y
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->
   NCache[{{0, Rational[1, 2] Pi}, {0., 10.999999999999995`}}, {{
     0, 1.5707963267948966`}, {0., 10.999999999999995`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5782073573941765`*^9, {3.5782074086129265`*^9, 3.5782074192379265`*^9}}]
}, Open  ]],

Cell["\<\
Derivace je na cel\[EAcute]m 1. kvadrantu rostouc\[IAcute] (v\[SHacek]ude je \
kladn\[AAcute]) a v \[ZHacek]\[AAcute]dn\[EAcute]m bod\[EHacek] nen\[IAcute] \
rovna 0. Minimum bude m\[IAcute]t v 0.\
\>", "Text",
 CellChangeTimes->{{3.5782073785035515`*^9, 3.5782074332066765`*^9}, {
  3.5782074823785515`*^9, 3.5782075082223015`*^9}}],

Cell["ad c) ", "Text",
 CellChangeTimes->{{3.5782075187066765`*^9, 3.5782075210035515`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "p", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "[", "x_", "]"}], ":=", " ", 
  RowBox[{"x", "-", 
   RowBox[{"2", 
    RowBox[{
     RowBox[{"x", "^", "3"}], "/", "3"}]}], "+", 
   RowBox[{"3", 
    RowBox[{
     RowBox[{"x", "^", "5"}], "/", "10"}]}], "-", 
   RowBox[{"53", 
    RowBox[{
     RowBox[{"x", "^", "7"}], "/", "315"}]}], "+", 
   RowBox[{"1489", 
    RowBox[{
     RowBox[{"x", "^", "9"}], "/", "22680"}]}], "-", 
   RowBox[{"4541", 
    RowBox[{
     RowBox[{"x", "^", "11"}], "/", "207900"}]}], "+", 
   RowBox[{"100319", 
    RowBox[{
     RowBox[{"x", "^", "13"}], "/", "13899600"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.5782075237379265`*^9, 3.5782076300504265`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"p", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5782076367379265`*^9, 3.5782077162691765`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3k4lF8bxyVbKklFSpEtSSWR0nK3EC1KEkUJP+0lVCpapNImEkpItiQh
W7bUrZIktCIzY+YZu5mxz554z/vPzPW5znnO+d7n3NuZ53XK8aCsjIxMNPn5
/793qoTt5inFzvF3oza0yVQIXLLnrHKTIkPl0PC6bJkK5RFpIH+JFLcVpNP5
kaN4Lzct/a6xFJ2kUwoOrRlF1YPbf+oaSPFMZOXo955/OKM+ecHOWVKsiD9u
dcPmH+ok2f3JlpNiUu557wVKI2hh/dDicLMEvxdfbXItkWCJGDxHf0nQv+uU
7Sp/CVpl94TF1EswdlNTRr+JBNepr2n/+FGCM18Zf/uaJsYt3W0PdHIkeD+p
84lGogg9wpYONIdIsOzJllmrXwswsPBBaN0lCU53cvVYe0WAMYxhrffnJfj7
ClXZslmANSZFmzN8JMjb+l7QS/FxWZ1VaoAr0THYPmaszkcFFWvnaWYSDNZd
b0KLH0Kd5c94CoskmHhdYC17aghXuStck86XYLmxwfS8DUPom1P9ij1Hgua/
PqU+4Q5i83b7CbkTJMh8uqsqfOMgZkU4l29jizE0iDa5XHkAq4qLHdcxxGgd
Xv/F/2s/slkze5Y1ifFDcVzdrpB+VDelz5hdJ0bxOcNqHOrDK98PnOopEWPm
mterxzF70XHqUd3Q+2L0Vo/JsWVw8cTKmpILd8VYUi5emPKUizc9F+44GSrG
lOliYcV/XCzP6w1yuihGrcK/MRv7OGjg6N+ge0SMVvf3fzOcxEHxg6BbCGKM
bfwrfH+0G7u03nM2WYkx0ev6q4Pm3diYrmBfby5GJz0T1bqxLiwoi5zaskCM
c+OOz2LGdqFP6/M46TSy/0Eqt+5XJ+470TtyVUWM7XP2tTqmdeJWodmBCRPE
WDaytPPO2U40Un6nN3NUhGHhPW4TZ3Vi29LfWRbdIjQ5nt6ofrwDf77RnPK2
VYST7nlv/7uuAytsDvhZt4hQxstF4ZpGBybu5Vjs+inC8/NVv5ypasc9V2XQ
t1yE6nuSEnIWtmP9d5MfL++LUPrlw96hqW1Y7uq/bNldEX5Qdna1GGzFl+3F
MWU3RKimmcgd+96Kt8QbXL8EitBZOHrU4EErbtTZ29bpLcLWZIlr6KxWNMtM
tPE5QOYr2G6m/WOjjnn7c8FeEb6TnXvtBZuNo7anTsjtEGFsZKJMYSYbS07d
EMxbKcJZP9kKOzew8bmkxuXFMhEqLLg/y2UBGx9eUy0zXSxCX+k5ozpVNp5+
FH8Z9Mj65sL68WwKF2Oe4v7JIiwqircPCKUwVYWpGcsWIq9txfv0ahY+cAPF
lQwhpskzC4zSWBiSkcRvbiTsoM1zC2ah14b/vs2uFeLFPxk36qxYqBvQff1p
kRD1/WaPJRczUe3jZv91eUIM1noT6x/LRFnVlwfYL4XoXaRd0naBia0vTlrp
JQsxa/Gv8KdrmZjSMtSffleIHs+Vezd9a8EHxk4ttqFk/oSnVHthC4ace13T
HUzmX2zkTYtvQa+p558ZBwjxSGyPaM7RFpxn8881x4OMayhffzWxBVUfuNvt
cBPi6oijn1IFDJRhocXAbiFWK03pnUUxkDofomq2VYiZ+SGL7xYxMClLseq1
hRD97x0ztTnKwPuSIwXOpkL8Ha9ppevCwOBNNUkiYyFW6ClpnbVhoAcVFrRS
R4jmf2qXBegxUHu62tK3ykT/snHGb9rpqOJ5eq67vBB1Wmu2azXScTT798Sx
MQEaR+vad32mI9P2Uec6AckjdHe911l0TAzSSqhkCbD99TqjCUF0DK++dPsg
TYC/3Xv7I0/R8fIMVoBCgwCzonXDL3jT0f1V8k67GgGWRDtM89hBx+0jstBT
KUCTDfSD+2zouHazt8kdFGBKtcyh/FV0nNNmqFhbSMY3qZ48tICOk0xv8U+8
EqD+u7i/73XoOHKxhz05k4wvHNjkP5OODPWs8h1PBchb+8iuVomOtf9Nzhx4
LMD7KbeTT4+jY3muz6PIaAFGa58fOSalYcKWpf6/bgtwT0/QPJteGupP3FLz
/boAR8YOJIV10fDlVy/depInQ54yGTNaaVi2Lfpn9VkBTipV+dfTRMMNk7ON
q3zJfM8vc5b9omFN3aeQj8cFaD7fMKCsnkbyncjsnacAc7/M9AyuoqHHFNW7
b/YJcHSVdMPbDzTs/mbUVuIiQOuryn/NkYa+99evKnIU4HXDwKLONzQUO7hG
FdiT9YXP036U0DB46mlurh05767ZIv5rGir+vLsxZ6MApZND2DsKaBj+IC3+
5VoBDjx59pidS0P1XW+HM1YKsFp43OVFDg0TpzVuTTcX4Ieib07pWTQ0+N2X
mrpEgDo0el1TJo3ck+JIkrEATdvTZda8oKH5bh2nRAMB2qltX9TwnIblM1Zm
xesIsCh2IOZpOg03Nu6Uezyb3FdP5uX4Z8T+h8f2PVQn+uUfLKpOo6Gjy7XC
qKkCTG/I4egTpmkkTIqcJEBOhGQsN5WGnn8KvcMVBRirv7v0OOHu2Lryu7IC
PPb6jrcTYd+9ndNv/+PjJHWbnccIizXHToSK+ajlPOlHFuFgmsana8N8DHZa
bzmbrK8Ubzrnah8f/7hpNhcSjnDbfPZyDx83VT+efIHoU9fyqgtq56NpUdSi
w0R/IiPQ4AKLj+5lT6MuE/sMn0RdCqDxMTFFM+FdBg1z9mc1nG7gYwZoPTMk
57N87qdFft/5OGJ5SaXoJQ3fMltu+Hzlo1pb9coT2TSsPTBl+dH3ZP7NGu8t
eTR00jEKP1TOx8VN8qZ+5H7o1LrO/4qJnguLncrJ/XE8/R+6Z/NxIO2ow9sy
Gvrr3u1zyyD2xs0Y5/+WhpLW1E17U/nY2N/8xq6C2OfdINz1mI/T0zeruRJ/
uq/ft31nNB/f8A2ior7QUKND4fn2CD42ic9082qJPYdWuGy+Qc7neiR3hPin
zZH44rV+fNwxoPLsWhvRa1Q4ZfUJPr7L0VDNJv7u1FN7eOVhPp7M0zQZ4tLQ
+9iohvl+PnauDA2u49Mw5ITn+QWb+fg77bLxG0WSD8LdE8o28lH/ta7xvMl0
tMpzq9i6lo+svWkrU9XoOCTYreSzjI/528xAMoeOnle2xObP4aP68jO2LRZ0
XPdgWcmqoWGsipIIJx+jY0KhKaOWN4xj7kcGhn3pKG5cJOPeNYx69PWPe8/R
MXe2kV0wYxjPa3XOnBVKR+1nWn8qq4axvK5AZmsqyVfF8mL7+GEsVWx8kUnR
0ZUmq8WKGcalFZb2D7vpWDQyBr73hzHvbNrH8AE6+qyX3nxwYxhnzwxITpNh
YEtNn0bTqWF8eeZC9t55DCxvabL0sB5Gl5kybo+9GRg0PvOcf+8Qfor7fM1k
gIE+j90VPLqHsE37cORpMQO9lkyLsW8bQn+N5zJvZVpwi9vFfKPmIZyUOWzm
PLUFZxZs72VWDqFdnrpTglkLFnoNe21NGMKSCxrK9mdbsO/96u36W4eQx3gX
M1Hagq0ug4ypm4YwzzDbzEaWiQ29z46PrRtCzYyg2iBlJpZrTrlNWz6EuQ6V
J1mzmHjXj/3xvu4Qui+x/HBxFRON5oWu/CcZROUFHbL8ICZ6Bn/Tb8wYxLl+
ESsnS5jo3Px0bUvqIP4IOcu7QYrNFjPfPe2Jg1jS+NRTrMhC83bVsKHoQbwj
+LeuRp2FSnaOwypXBzEd5DO0zVmYM6Xhve3eQSz8FpcefJKFfxNp7qUTyHou
J0ue0Vg4IMo8XyE3iPzn3hvN2Sxsdwh68HlsAL0u/bxW1sXCelmtqgbBALKl
M4az+SxMObR/0RB7AB+02SRoKFJot5j6a1w2gN823HhdrU1hzNuO2IRjA2jd
uX3qZ3sK3c/HXbY8OIB3XI9vLnOg0GjZDu+fBwYwpa2q6/kuCssySpYo7R7A
osxRa/+9FDKj7ladhgG0v9ep8NGbwvnHlvK3TB/AC/+C5+wMpHBAv7O5Q2UA
F9yw+NR9kcJSVhwGTxhAya610YFXKHyUqaR+8l8/9mm6x4ddp5AKztlo/bMf
d2jvER0Np9B/kTRxKKgfPyT2HFdMplAu9b9jRn79ONBeumBdKoUPZ9ZZuB/q
x8IsxTb/ZxS+GZ9U+8WhH48fcoGqF2Q+zUaaZNCP1I1wb/18Mj80cveOb324
kHuqvPw9sW9EqnOjsg/dhtA2+iOxz8+bV1ZK+MTTvIOfKGTts7xmmNaH2urX
Zwur/38eLbn/zvfh+TXRenXfyHyW0aQs3T4Mv/lJbheDwourx2XHzezDyGk0
w1ctFK553Gx/W6UPFeM82+RZFFY43ok4JO3FsdNbFqSS/uvzJ67avJ+96JN8
6k9CJ4W3dCsLplT34g/75rd1XRRuuZLgNPq2Fy3Zrisl3RTWr7B/SH/Ri4Or
OQPApfD3yxzNh1d7cdcZR5ewfmKf0s2y6+d6sb7jWGvkAIUuBw+4nT7Zi18a
82UeDFJIm6v6xGFvL14MrRBcHaaQHemnM3FpL6aLfN7oiChM6dv8XmLYi9O9
g5qlhL236np1a/XiQzm129/EFHbL/Ur9pNSL0gLPhCNSCvvOmc8PpngY1js1
cu8/CnN/T6r2aeThcUnTCqVRCv2WdhzZX8vDO/vi/fII8zkxmVYlPNS4Pvfh
8BiFRbY+Wxfk8FDhZc/VMBk2nk/bxNNI4+Gqr9Wj2uPY+He/aJEggoctVTJZ
y2XZWF72rb7tBg8XT7vKKCV8WSPj1M8gHl7T9E60HM9G2R978l4d5uFHr0+N
unJsrFy01DFxPw93Tb9hf5/wjTsThsN28VB5rbGzmLCSdZn5MeChs8OXOSXy
bKxJetCwx4KHsgVaLVMU2Bj271iA7UIeFnorLfEivN11o8byeWT9JRXTXhGe
Ujy7RF+DhxMfBd4VEv4+jb9n2mQejqv2fbhCkY0PfGsl48bzUPEe0/wsYae6
tLgBMRf7QfZwFmF140urWH1cLCvXWsQk/Cd0N6OunYu3nfxuKiux8XHbokvl
NC5WVNgELCXsuk5h7svvXDyg3ipxJKz1hPnucRUXI0rvq50izJQUHbhVTsZ3
JlbcIJzkHCFzLp+Lr97slXtE2KvgcPLBDC7uGzedmUJYT3XdBqdE8o7borP9
BeFwU3bgsSguJgFtYSZhsUNIQfAtLto0bMhJ+//3fnq8h5e45F1V2xBLuDay
Uj/bn4txdzgpoYSX5x/c//EwF68kzVD3+f/+PxUeNu/jYqTe5yU7CCsPP6/v
38nFrqNBAwsIn5m2WVHBlouVK/L2jBL7mcs4oLWa6H3dc6SWsJ3T3fNmS7nY
5JIxL5pw/hmTPDtDMt7sf2034TkxdT3us7nINP4Rrkr41msf3bOqXDzqZW/9
idzHUMMUt7vyXJyXdzrtNOEqdcfa4n4O0m5JDr0l921qOSxX385BtctBNXsI
x7lEr2lv5mDkZh6tl/jHqdjGHNVKDsb2DcvJE6aVnOsyLOXgXrly7ZvE36yb
Z+qsyeHgkZ0NPbKEZ85yizway0HrAt/wLuK/IVYjX67c4yB3/9JjDoR5rk9k
H4ZwUM65QpRP/P19POv0hxMcPKvXZHyQxMOxOd7Os9dz8NYlzfGXR0h8r5GP
WLqcg33ap68U/qVwrXv6Z9uFHIR6Wn47ib9pT7tXnJnBwZirYevNJBSW65yc
XdfTgweOfJgaIqDQcL2KUxuzBw36aveG8im87/kqTPKrB6sj/N2vk/g/mDL4
z+BdD/qqH006SfKDin4AdflBD17yWjhbwKPwvLWGZszNHnygabrvM8k3rd4l
O19e7MGSO3EHojgUFj+Tfmg61IMFtjG5M0l+8ph/5Znpqh68ypRG/GmlMN/4
1rHWtm7caunTu6iJQu0fHqULm7vxtuzBaWkNFIadW6l0tr4bk+12rJ/+m+ip
5DxTLO3G3Jbe4tbvFM50t2ebhHdjZLZIf0UNhZci1facW9GNtgfT0j69oZBj
yU2vWNSNUUlFKYxSCp2ZHwUT9LpR8216YW8xhaYLz0YlTO7Gf92GGqMFRH9l
U/371i60O9PGbXpJ6qE4wWbSvS60t9a84htH4evEs9G7Q7pw62039QWxFOra
bG9LPNeFmcOFdfQYCv9GjgUv9erCs6WVT5dEUpiz0Kvc2bILgaHcdf8mhdMP
zF+WzO7EJTLJuVanSf34lKezfHknyq17l2e6idSHXRLrFSadaObdS3ltJPax
1x210u3E0eHRCffXUegw8i1vrUonVpgc20a3IvXCrG+DbWcHBm5vSrNYQmHS
U+ODex52oFjycYVUnUKvC6kvAoXtePEUc3PEJxaOKnDrLvLaseKXcWnhOxbG
RZsNXW5tR+28J7bfi1n489V7q2v17WS9+M89L1i4sZP19W56O5r55ASl32Oh
/i6tvgTndtxqFCSw3cXCDpMYMyxqwwfrk89ZNDHR+PKzvu6XbXh32kVL/3om
+nx7namW3IbjeO73Uz8xUezXqHvobhsuP7tuRnsBE5WLNaZN9mjDliVKaYwI
Jpqujxt2ndCGIR2/krNtmBi0+2mh0K0VZ9n1yjAzWnDq5RfLF5M4kd5QSxXb
MzC0yKhaldQhy1llO8w2MlDa93zvMPHLrI6qCK8VDGw9kH6x5A+FJ9qm/UrX
ZWD++tQPG3IpHH24Lv2dkI6O8k+2uxygMLhr481FT+g4X3NenUwQCxO7/XQ0
Sb9usrzf5NkwecdHOR4p29WM16x7v5eeb8JlZ0Q1yy824AynnPt7NX5idMuj
E9oLfmC+8NOUav0aLPFJcp3i8wWf0Tvu9Vx/hzkTh0ZcV73D/Tu1Cun/pWHq
0dHfLu5pWKoc1PDhbCrIrzp0ROSbChat4+Ze3YPQ8s2gu0EJQW/gjcTqwxfo
MS0McJ/2BTanNtdt3/MTFIP0z8/3+AE29mrjBa+bIK/1kezuzAaIONAUbFrM
gAPCdJ1Ek2YI5a2GzloGbD4gE5Vv1QyXL6T8i29lgPxywVC5XTP4RJ0MVFRp
AfnS+ScKvJth++fxZ5jeLXCcp/XHMKEZVJaYHg5TY0Jo3Mqt+hNoED56y777
JAt+hDxy8aDT4PP2OZMd1NiQyX8xXs+DAdMXs9X9tdigwTv08fcxBnhMfqYT
bcgGrdZ8+UtnGSD9amL+x4oNL9gGE/LuMMBk82o3j//YIPR0r08vZMD9jW4v
fAvZ4OKV6f9ZoQVcVzy2iXRuhQ/Xo4rqU1sgXWP/jgKPVkiUWVW8LbsFhoU6
exuOtcJq9kxJRVELhL3OOKF5pRWO7RasCPvSAmhWEpX8vBXeXJx7NruvBfQX
NbHzxK3Q0vTLRtOSCb3zZlz+GdcG6z1COLcrmLAiKNnvfVobJF82V06tZkLI
70UHc3Pa4G/z1Yf535mgfnPTtvAPbfBj0+e+QooJa3nnZm3htMFVMzi9SYYF
EUW0ovcr26EAnwXGr2HB0q1J/bl/2sE+vmjt+DwWXEwzaXva2g5bljJUu4pZ
UPWvpDGc1w7SuTyd9+9Y4Jr74+0JmQ7QSV0vcKllQciM8WFGRh1g2L3cTrWL
Bb9YB42SznXADb8+s92TKTh7ZqFnhHonTJxTHLFmDQXqyv3lzvM6IexmzZkd
6ygoeZo/c65JJ/S7iK+6baRgpGbl96z1nRCo6zLVazMFIfPsoOZEJ/xdpdtr
tJuC8HrvOfIfO2HWNe3WhOMUmHobXait64SDjq86HXwo+CHh/o76Q743c1QY
86VgusHpMN2+Tvh6Ky5qcwAFcUFX/4JmFwiPff72KJiCdKPE5sBTXeDmrqw1
M5oCu3eeFhsCu+BBtsTv5EMKenYZRE640QWOlesby2MpMLmSZRcb1wWDysVV
m59QkN9QVvz6UxfkjcBSrXQK3oU0xQzM7obrzn8vpRRR4DEzfrDYsBuaGtPd
YksoGJfjbn9laTdw91usulVGgXVzh5yKbTecke8e2f2Ogpol/NML/btBTmXR
2RefKGhiqDoequ4GVfUn4Ut+UbDl7sE/Z352Q1HZjWWZvykoX1nmfo3RDY3T
Tz7UbqQg6eF/x5MGukHj7Nco6R8KjjgUXafN7IG0m21ufkwKaKPKE3t0eyBv
GYP1nkXBtuwDkSKTHrhuLDdnMpuCpcoTEqev7wGzkqsVUW0USD+6FW8/2gPK
epnxnt0UnPDPXbP/dA9U6Uf+udlDAVNHvvL4pR6ILhn6ksGh4MOlnO+3Invg
0pXfn2k8Cu5ajuN8KO2BQ1ck2mMDFIx27Pb98bEHPEJjB6SDFPhGZwpZdT3w
OH6u3+AQBU6Du8b/Y/fA2+LkK/V8CrRepmtZKnMgw0D4wU5M7n/v3xSb6Rz4
k7dq/CwJBTJKDguc5nJgp8poXwfhdm+JhZ8ZB1Z5/6w6+ZcC52nby6+s5sDr
8b/yFoxQUP0+ZUP4Jg68qlm0iSKcPXfbjpeuHNDO+HNkzSgFOnVJDaXeHAg5
M1fYRvhBkMCt2ocDB6kXxjfGKAj4k3ikI4QDAw9v3iyWYcPaB4NXtV9yYNlU
R1mGLBty121SWvyaAy+q8t64jGeDbn9c+GrkwORk95n1hBW2Wcfv/cWBfIXS
0kw5NpyXxs470sKBX7YB/1Tl2cDJ6H0e0MWBMaOkVj/C3+QfFUb95cCPk4cj
9BTYsKGQa5UizwVvBW3nM4QLvda9z53CBf/Sc+VI2HBqjC1qcqHSWPaDvCIb
YrGnrk6PC/nnHA5tIqzss9aJsYgLUhBmXCV8USuKRnoQeJ1z63Yx4b6aLg/J
ei6EXEtU7CbscWF1l+I2Lnyf/V13mhIbjL2rG/qcuTDOM+TzKsLD250qGzy5
MFPrq7o74fKVVH75CS6YyS9SDSQcqn8iOfUcF7psFxVEEHaYIo64E8KFmAe7
xhIJa0qvXfa7xwWagTH/OeHW9ikn98Ry4Wj7mkjSv0PWt3g3SOWC5n9zG9MJ
B5TN32KYwwUHyf4PCYThWcGKyaVcePEjcncYYaX7MJ//kQuD0p0RZwn/DPw6
g17PBd8LK0/tIZxw0EXuQzMXLu3p5JsTPuTQNpTRzoVD5RLtiYRNV51iR/Rz
IY2vMUAj9ksM/n4LkHLBK7zbO43wB9Wb7/bL82DPYfXLhwmH/VXLtlblgahi
xyp9ws6difELZ/Oge9emBBq5D50fxnfUDHnQ+d+rpDuEOW+KzktMedD1a6Od
OeGC9A2HqVU8SLGqeNBE7nvTRVfrnJ082GcbMGUiYdXDnWYx+3gg47Z6fTzx
l+ad/vMuHuaBwYnxMwwIn5h/Z3TzJR5k6tKSDYh/LVdT7zW9xYNA80euCcQf
x0aS6RpRPJiyNbdwEuEHP0tLOjJ44K8Wso1G/HffW5vntQU8mDVj0h1LwgYZ
P2IK3vEgbzD6SDjx95JLPf5Xf/NgqDJQaQGJB6aR5qI5Mr2g1P3o11QSXxnT
ns2Wm9gLfufFM1dLKfAbNVXmzuiFXbPDxw6QeJT7bddVsrAX0vrpudEiCoyv
nE92ciHfX+3MyBumgH9U7v4qr16YYJA9kkHi/63T/cu6J3vBtNl++DHJDw7G
GW4DIb2w8efRmiP9JP4ammaE5fRCvMNz4zKSbz4utLzzUb4PvhpZ65hQFLgv
cUodnNIHBmoftzaSfCc28yvXntUHG6oXDwW2kPxt9bIvaHEf9A/65xfQKIi2
095l7tIHZ6Z+mt5G8umhg4pazzL6IHB/uqZVNckvR/UtfuX3gc7GZMewKlI/
TqzfPu5tH3hH3p7eXElB/emg4P0/+mDPmveWXu8psAzpb58h7QPPqXpzl5H8
rvS0KTt0az/g1YaE75kUpKTwqwp398ONrWzZ2gwKVqdPpVoP9IPgv1KlD6R+
+GZvVYMz/ZDrKJQ+SaGg+Q0GiBL6IaDNJmdGHAWZf57Dkb5+yLp1cI7CLQoM
J5R3p9kNwFdH400jBygY+rz4WIr9AKyZ8ebG/v2kHoUmc586DoDGr3GcUleS
D+Vu9sXtG4ArinaLvUk9vTG2k3/fdwDchPeUrmwh+VPQNXYxdgCyL3Y6/VhG
9LZO09jdPQDRi/o/K4ynYE75cRv5W4NwqXdQrWsBC6ZrSqU+9wYhd2FFHnce
CyYF3Mr982AQmnRNgrs1WTCy5NnsrCeDYOrcpvp1AgtoqcxBx4JBUucnMJb3
MOHh3Z2JScxBWO4asut9OhNU3CxFqyyGACo0/gXNYYKMVPaFf+sQ1Mv5d+nK
toBHW/Pwla4hKJwuvMKWMKCiNnftPd4QbLyx7kTKIAOCn7r/fi4cIvnOTs2E
zYAx67IxhvIwLFrMPO9dwYDRCD9n22XDMHVm2Lz4KwwYMaDGa10fBgV2bdZP
WQbsm1K8fcHtYdi3YN+KHX/pUC6+93h5+DAcatswo3GYDhe/rlqyM3YY+Kuq
pOM76PDX95FraNYwVL3Zt6TnMx2kb7bnDfwm6z9n2enep4PrM4ORf83D8OSl
lv+x23QoCx/ZNJE1DOYOl9Z8CKHDBc9MhkHPMIy2mC1LOUsHsYKCktu/Yfhu
cEp/8T46iHa+df9kwIe1mYfN6k3oENL8qmXtQj5cS5zaUW1IBxXPlH0lpnz4
U/D2eosOHQx9b7q+XMWH1AuLap1n0MEpfKdz5E4+MB5VPX88RgNqhnWDsgsf
sp5ltJ6W0uD4k+VO1/fxwTRndvkJAQ1CsmY7njvMh9xXBp/LuTTIremw33+J
D5nX8tW6m2mw2vFPbWMIH45ceTPhSwPpr5trtjrc4oOGT8PXuh80YHa/2rwx
ig9halt8bGpocMw3pbo8lg/nrc7nl1bRQCCKtl2eyIeHyUdvO32kwSTFQJsF
L/hgtG/CN5m3NIgNP1GZksOH8Jui/GllNNBTP7BRq5APAwHm0x2KaZDzZOeH
mFI+GKqMKygqpIGVgfX6KUjO53jPTrt8GlRlLa+4VcmHmnFfX8vn0sDRfAHI
1vChsZL2rD+b6Hsz+13QN/L9gZdchSwaHN2oskbwmw/8C8t2bcukAb9GptyH
xgcrtd+ZFRk0CHYctupmkf0Z7h+9nxO9tI5Szw4+/CzV8l2ZTvR6/llB5/Ah
xOJ3KDyjgX5PTbHTAB98Z31nnUujwSvft8vrBXzQmdq5uy2V6BW/em37l+jb
cakqhHDVlRTz9zICsNsbM9WFsKNiTIGVggDefa3V9CTcEn7TrHCiAAbWHqlM
JnxEPTBv0VQBeJvtlWiS9flPTpg+VxfAvok2qTWEgw0OvNLREsB0vbBXhUTP
xOydi+PmCWBSh4NKM9H70Nw6e9p8ART+u5y/gtinW77c5J6JANIe/4z8/YKc
78YFLxXMBKD1mpWW/ZIGK7/ONg62FEDiRc2uSnJ+lY4qLySrBaD/rtl5Njlf
B5qM0ekNAjA5fkSQR86f4TmczrMlekzGf779mgaHezoMDtkL4Ld8x8/UEhpc
Ftfo7d0jANmldz+lIA2Ug9+m/NwvgNapo19uE3+IUcydt+0/ch69+tbFn2mQ
pR6jDT4CiIvdJOr5ToMViTcTS04LwHrpjMODxP8qDQLnmF0QgGPmjrKN5L1H
Nz8w2+C6AJL+nkqo66TBIYnFlBu3yX4Jh8t6eDQYeDtpfEc44RSLC47DNJCz
LeOkPRZAxkofd5VxdAifGMmUeyqA6NHD3/5TooPm98M/vdOIPaGHApRV6bB4
74wy/VdE3/sgbQcSbyVzeNnXCwVQUXgsdNCIDhtaPyS3l5L9fbV7u5fSweW4
7+20SgHwC1kZTGs6BF/6ukef9n97vxlMOEUH5Q0p266zBOBr6oKXAukQo3Bh
XXu7ANx7lz1wDKVDZoShUVq/gOTLnTa6T+nwK/mqSE9eCN37HPcHN9DB/dAe
7jVlITBi5uvPaadDt/ESVtsUIXyf2bbZgOSrkQJGVeosIfjWUuGX1BhgWGX5
UM9UCEes8rnnnBmQe0flzjULwn0dgY+PMMBqR8elNishrIhddM8siAE7/jw4
mGojBJ0znQk/khlwntNrrucmhNUGcyYO8hkg+6rS6JqHEKwf7LEcUW6Be6fj
tdoOCqHWZtecsHktkDJiJ5fqKwStsHbF9Q4t8FUl7ZduqBBm/r4rNi1sAedf
gZ9D7pL9zvw8HVXfAtSjnW9a7wvBYwYo3u5pAb7OWEpKvBByA/6TtZjHhLnL
XP1184ieLQErqh4xwddFdaouQwhn1mhYhqeywCtjSZwBWwj6zxQnPfzEgt2S
7XoLOonesvszSCCDVfw9C9MBIVSvgdEcDQrkWcqua+VE0L3NYFOaF+kXlhi3
rZ8ggtp2g2wz8l7kBG8+YaMigug5LxLV71DwXffW5W0zRWD6o1quLZ/0A4fk
U11NyPd+CvEvSP8YVqxv4r5UBMFXw8bLaLPhipL1a8/lIjhT2f63wIIN3pkh
n4+sE4HjroV1K7zZsKRvjBvgJII7V3Oafn1iQ+VZqXnURRHU7zRdb5vQCkVV
mu8eXhWBuV7Ne0lJK7zQWGkbFyqCDWNdn2Y3tkJ46bm9yffJegkrLAqmtsHe
f/xLr9IIL0ne6xjeBn3X+6u+1oogd/dm9E1sB3aDisO3HyII25R3tOBDO/w2
XNz8s1EEgSbn/wvsaofS6hPcZkoE7+ImdsSZdcD1SZwp3XwRjECl5fZvHaAZ
3b5Hbo4Y7ozf0/NFrwtWXNNWP6Mrhum1WfP/OHWBs7/rr7b5YrioreGRGEre
0Q7f7T+akXG/fiU3XhdMmly+IcRODLm3vnt8r+iG0RtRJjJnxFCbIvMtJoID
Wmfre05dEEOaLtt6ft3/33ETnrMuiyH0bqBd9EQunN9wZR7eFoOvXGWy8l3S
548eU7/8VAyGx11uZkfzoP3cBpmRGjEc6WefVmzoA9nDl94e/y6GfTEas4Pn
9YOOc0kgvUEMMmplZf98+mG/+WJBGSWGT+cXR9xWGIDGAU3OBaEYhpIO2P3N
HIAvRwd/ieZJoPZSW2e8yhB07zGJPDxfAsunvX36as0QKNgd3t5kIgFp1mn2
/pNDsMGwpbrIUgI1MxpD7tcPQXlr9duz9mT+MW72RdI35LglPR8+L4H7995a
DG4VgHmTnlThsgTSbCL8kq8K4I3j822zrkkgSXZH2ECxAKo35wyuuyeBuVzF
K36GQmizLF8VniyB6FMtogUTRTBz+p9vRjUSiOWUH2/hiyExwk139TcJrLtX
6W9lIQGDiawzO35LYKANjjkESMBMtlMzgCmBzMuhJjlSCdgPDP/3cYh87+bN
8pr0F0Jqp4j3z5ZCwDYo2rb7HyjZRW3x05HCpLI0vlrKP4j4qP7kuoEUPM4O
9b7q/wcJZXM2vFwihT2J+6YG3BuF4oyFYeKNUnDo/TvhxK8xoN2O/e+fhxRi
t6Y+t2iVWfc/5/vLUw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{-2, 2}, {-2.110966828040989, 2.110453900977017}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5782076488785515`*^9, {3.5782076793629265`*^9, 3.5782077170191765`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"x", " ", 
     RowBox[{"Cos", "[", "x", "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5782077342066765`*^9, 3.5782077876598015`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Xk4VO8XAHDZsla0yNZiLSXtQjpKllSUSDsVUqSFKKU9aUEJRZFSQilZ
U3JkqywpS2SYufaZuTOMsUS23/t9nt9f83yeuTP33HvPe857njv/0Al7N1ER
EZGCSSIi/32q7pbXWbGiD72u3tdvHGjEDQbvthss7UMlhb3RauONeExie+Ai
/T70cW7M2y3JwA/vI2o1dfvwbsjkJcWzGOggo3ZthmofVny9+2O3IQPvftKj
BkT7MNSOlRnsz8BxdeuYD9VCXPqq7M6/Pga2tF6dsu60EAtjojl7mpuwW2eG
7bC3EFMHHy7oam/Cf8dehmR6ClExdKX3cV4Tzuj7KrfITYi/Z59V8BhpQmsx
ednZu4S40PNS3UzlZnyn+XCy0FSItaqF6xx2NGOg62uRRGkhznMeHjhc1IzK
nTVC+We9aMkLXCwTzkQV6fiXInG9eG768c25D5motthrV19ML/aXV544HMvE
uafF8xsierHKyb4iKYmJ2uMrbyUE96K+mQfvbz4Tl82Kmmt0shf9d18JTuIy
cZPlri2u0IsDeQ0Ldq9joc1RrYmda3tRJSYp9pg5C7fcFbzfZNSL4a8XrfC3
ZqFddbCSwYpebFZ7XXTFnoWOB3Jbh3V6kXtEK3yfOwsP+qmcC5vSizN2aDxb
GMLCc4lNLz82C5A5tMRZt56FMxrmvslrFOAR89cLghksTJM+nJ5fL8Dsl9x9
7SwWsr04+YW/BFiyoUwqjM3CXSsG68tKBLg5JPFa6jALVxdMlWGkClDm2XDD
TXkK+/9s8B4JFOAMppmmoT6F92SDfMcCBLhdrLN3jgGFi02/B0z4C1DEadZV
8WUUHo63uyl2WoCeY5HsbysprHbfFy/rLkDLwLMNq9dS+L7vTLWqrQBNZGKi
XtlQ6C2fvHrtHAEutxtRZblRKHjD2DamIsALmtYyCUcoPLVlime+kgB36rge
cj1Koe8dn6dmCgKcVdG4neVF4XnpdVIW4gKcpH7CONuHwqmyiRmPa3sw9KYg
in2Zwg0jw8P5Xj1YLxHy6FA0hRbGzkvWu/eghalhXG0Mhdbnig8VOfdgmupv
1Y1PKLT7G1r+1b4Hd55Iuqz6lMJ9fZqxP9f0YMaX+6OvX1DoR281axXvQatn
9moO7yhMZjwLkojtRt3W+s6iQgqjGi48G4zqxp13k/2riyi8WueU13WvG1XP
PGIxiyncUyUv/H69G9cHqa7uLaVQrujc/lCvbnSKKpccLaPwZMr2lUpru3HP
Kc7FlGpy/leL7aRWd2NmgXVSVA2Fm15MPjZs0I1aFl2pl2sp1Ij7/JSh2Y1z
HLTsbH9TWHt/oWy8bDfOvu8mrPpDoeG5Sa0LGHwUfEyedJyiUMuvaVS5jo8D
aUdmGLZQOM0nR0m2io9hC/dITRCzvY5v5Rfy8W319MjgNgpjXP58eJ/Cx4WX
7W2udlI4bvU+zDiAj9XR+kem8SjkbrybssiXj1etbd9/IK5ff6REzZuPMgzP
lgN8CtNM1EfGD/KRG/e9/0U3hYcMbrkXbeLjEX8jgVIvhSWzDppuUeaj3cjL
gOgBCgN7VC5/UuTj1CS7s4sGKVz1rbZQT46PU9pvi30ifnnO2lp6goc7TmoX
V/+l8EaTwY7Sdh6uNOL8bR+m0DSLE7mKyUNJ77leh/9ROBCS0PCinofGxXiS
RewGSgeulfFwKDxx8c8Rkg/Pxz3M0nio8bDubMQYhWMBH16/S+ahm4tuwARx
1o7T3XMSeGj66M0Uj3EKtSU6fcYieZh69r1w2QSFEh6VFz+e56HqtzVpSSIt
+Nns5peFZ3ioEvDJQWRSC55RXi8e7c3DGcWLwhyJO8oyb/kf5KFfvv7XIeIS
/ScRK614uCZs1lYNsRYMlNxZn2DGw8Qu9xR34lWsqSrTjXlYKLEtPon45b1r
T3sX81Dii6mTtngL7j9q2uqiw8NLB7mzXYhnbvir9XMu8Y9Lvo+Ib/QdS3mr
yMNFIen/Jkm0oGmFFl9djof5soPaK4gHXjANQiR4SKV58w4SpwY+Oj06TiNT
5IRtKLHbTvsszyEaCy02bflArG4gN9TYS+PpMLtOFnHd5FJjG5rG7xk1ahKS
LWiRa1SwgEmjT+FjF2visft9oo/qaXQ1vOrtTpx1LNVi8i8azz9ZpHKV+Lj5
kWC/MhpXvWIffkysrTa/vKOIxrwa6S3pxM39jfKOn2mc6saqLiWOrIzYVpxN
o7pb7lAD8dZE2wcr0mjsetH1mU0scUnq9/NkGl/k5WoMEn92KpytmEAjJXtJ
d9Jk8jyWXth75QmNT3ODKqSJ9aVXxwkiaQzMnKs4jbijpYdyDqOxIf3R0HTi
2I/JmlXBNPKXm12eSez44LD7uqs0yRPX5BnE8l7qyannyfVG7/BVIC7ZWE+r
naFR0m1viyxxuvGluhRvGtUCLFXFieOW6uIaDxoN7Yvl/5H47uhUJZUepDFn
WD2XT3xWzT/cYS+NPzY9UWcRuyrOvdDqQGMk+6bJD+LtUl/dTtrSaLxp4fRP
xOvGve3GrWic/+bbi5fEev2zjO6up1Fs7ltBCLESN19DxYTGOYHz//oQi1Pu
ckkradx04tgHJ2JB3ZTBVUtoXOj1c6XRf/e7PJtVpEvj1g8xXrOJy74c+L59
Po2O7tNcBsjzzs6RzGCp0KjqdHbqT+J7CTuDRuRp3HDXKOEicWD0+Ilbk0k+
xMwNtic+Fpa4W2kSja8uK+hpEZufH1y8op+LzjZLEwtIfi49FTfrC5+LRifZ
l+8Qqx2xFLHr4mJmb6GyA/GgfVTNsUYu6vj1BTFJ/rdar/s8VMPFccOavfHE
Ves6E4MquXivht3jTJyktzrgeQEXD07+urNBtAX3iv6e15jIxZtTUectWW/W
Q4EyHvFcPPAkf3Q/8cpu7f6BaC4GzFKMkCWe0njmq0IIF6VcCya7kPVc8H6m
9yYfLj7eekWmm6z/1Fefneq9uJjm4yG8QxwT67bezZ2LX0SzY3WJfW5lzbiy
m4sOa2/DLlI/dA46fvoAXAy/vDonjtSb6U5jLyyNuPgr5NQXPWKRrS9Da5dz
sdRc5X4mqU9/1gwcFGhz8ZFU1pUvpJ7dnRYptUCOi181pN8VkHrXi7WODxs4
OKvu6CmHPgpLfYTaEdUcZB5PWfpVSOET3WmD9yo4eK+QKbqG2Dpsc9TtAg6+
2cKlppN6G3+g8HdgEgdHJEaDM0k93jb2zsn1LAc/lczPjOaQeN9X6h48zUGF
3NJcPpvCUVf6734v4uyTdUCcVKHzyMmFg27LI+yYpB9MPI5tsLHm4Fyeo4N4
O4Vvje/sXjabg9uktn/vb6bwenfSwiWKHHQdi7bQI97zvHRYT46DGXbNjfub
KJSUEY3REuEgp0JuOzZSeODP2UYlNhudBtVPedZTKH/Wfe94DhttZhkkefyk
0Ctr/f5yJza63Dy5ZKiAwikW6xwtt7Mxb90ZRiNS+K7WeOsXGzYO//a1/5RP
obBvhWmOKRurtMyfnsmj8OxyHfUETTZmfV70sSqHxPdOpjmgpwvlPjloq7yl
8HFyzT69m104zXXvVmmyX1hr9NPh5eUu3Oz4OuHlQwqZ3yq2zAvoQv21eWUQ
ReE8dsnaWcfJ8av77xx/QGGizgc10R1dWDv/MvU2hML0hCdNf+Z04cyXvIlv
Vygsi3Xbdyu7E3+Ibbm+z4NCR7re2CetEyce7k6ucqeQWmOjvD+lEw+NvOKZ
kf3QQM2S30vjOlHQm/pD/RA5n8yQXcONTtydzRP/spfCM363zXUdO3HRzagD
qbbke7t3eiV9HeggImDPWUGhv8jwkMiyDhzLd6xr4pH9nefui9KLOrCgS1+L
Q/Z/g3W5YoraHUjNlub0trPQ93XAFE3lDpSpkvg91MTC0ztHNS0mdeCNf98s
mipY6P1mwvbWr3YcLzIsHH7NQtddki8VTreTPrn04P0jLNyWNn27RkYbDqr3
a1rUMpExaD+e9KYN02f/AKkqJrqbhr82SCQ+6bHp63cmXiibJmka3YZNMo91
jZCJSe3yn5wutSHta6DGS2bixGwp7ZDNbbhs3yvrsItMfHtldOhvWyvmv478
VanFRLkdHfGVM1oxS+p9toVbMyqd1AldHk7y4ssGq891DJQXMe3cwGzGtsSF
m6LZf9D8o4mu76tGzDBZ2+BZVo9KR5UTZifVo064Ugb3aR1mjLlO+XWkFssV
NO4oz6xBflBY5uiBX3j56mDyzTs/kUHbRZzVq8CbeevZiZbleGs8NjUuqwSb
ZnwucdtSgl39O87tdEYMHVba7T8VkXFN0xHt0nHnvPl7yyEd1SI/nar1f4R/
xArWnj7zCCtAX0R9z0N4u31NsMyuhzClu5KZ8SMdTq6KDPf8nA7puTPCp3Py
YcGqq89TnuSD2t9fRffFSoE32eBmR2QJpO+78FPoUwEhqbldy26Vww2vzIxs
41/wNqr+nLXXT+AW5011uVAL3iZa6wu1a+D9gs6lUUH1sNa74mFqUB3MF4ow
zl5phJSxi6wpafVQVpcaafW5GWy8pDP6av6AZ+vn279cKBhonqdbF8cA+S6+
/RmxVvjNMGi45tAMqzmPRu5Jt8LWlNtFx/c0gwtt/uLN1FZI326h5+DSDOk9
0QNtqq3wSXyexyyvZtg1ZPHIfmUriN1ziz55rRmeS8c1G7i1wqxr0j7n35P/
W2zrwS1thcphFWW2DBNcTr0NdL7dBt6dRWWSGUxw2Ol5ad+9Nhg4mbCoL4cJ
m0wWXNkd1QY5qw8rNuUxYbnE8+s7nrdB9Zz5JxNKmSARHXnH6mMbHF0tOCTV
yISUggvRBtw2aGaZ/tETYUH/1M1ZE5vaoc3B8U3VJhaw+yfnjNq1g6tH9bwt
tixo/lP8YdixHfLrjk8rsWdBacK6vL6D7VC5973zm70siDZcXtR1rh2m+2zN
2nacBeuclX9VJbdDXe32/p4wFgS/7eI9le6A9I1y14KqWfA+p6R0zrQOiB1z
MOP8ZkFjQUJ87KwOqMqLrLRisGBxjbPDY80OaBpz3TnUxoKff+s/RZl2wKSS
ybN0B1igvP7b7ZBTHfDbQjpgvywFKTVJC87/6QDVHMf0fYsoqGkKEv3H6gBf
bEq10adgtMO16WxnBxTsl7qz2oAC26F59/z6OkB34Bpn8goKhGrRf0/Jd4KD
9p1l940pMHG/VeqxvhNCmn9+Md1EQcXQUdedyZ1wfWHW1TFXCuQ2Vju5v+uE
dsO9o7fdKdgSZrzZL6sTouOVH83yoKBcW3Z51JdOOBFtvGqBJwVl9m8m6v50
QsypW5NWnaLg+5vuGEeZLkgSaOf3X6Cg1MXnl4NnF6SYjiTIPqBA8g2j2PVU
F/DWGE/bH0GB5V/zD77+XVDsvSf6TSQ5PmTG04hrXZDTFDHJ8hEFJR+zvGof
d8Eu9c3ah2IpKJ4xNNmhogtMD+2JgFcUfPl2Yd0OfTYct6xqDcmlYPUaSZmO
FWy4suFIUu5Hcv9ehdX5GbMhcKnV0rZPFIQHPfeKsWIDJ3j0hkE+Ba4bv8W0
HGSD4xdJ89RCEl/B9L8notiwY+etX2vLKQgwiC2cFMuG3/9Y8RsrKOiO0wl9
kMAGajN7iU0lBfWBRto5aWyQs9EKsq2iIMnEecd4GRseqLJU1tZQYJOT8u7u
BBtm5z9NTmmkIF9n5fk5khw43+1pHcqgYHnUZ8s0OQ7oG698fqKJAtUzP5tr
lDnwT/brjUVMCnjLB2VVV3Jgr7SdZHALBaFv13ske3Bg5RHjnJouCkTnlK8w
OcEBzU3qnHA2BX4hDhMVZzjAk9estuNQ4Ox1JEpwlQM73zz+VsilYKleSLFh
LAcOHHYyC+FTUP2yYV7pLw5QppqamUIKFId8LIwaOBBTktq8uY+C7TZTj71h
cuDsgXiXFuKf3RYZ4TQHblaW5EsMUFBlmGHhLMGFfUKzuhV/KZhy2/ZYtSwX
vnuvrcgltm3ihFoocqG15fUt0yEKflye17BoLhc2B3F2rhsm+fc95NjQGi6s
O8ldoT1C8k9tYZgncGHGyftO0cSbvYszmBZceFaYCrKjJN8UR0aL7bkgVW++
j038ba9H2H0vLnzeVYY3xymQeiuWKe7DhfqPk0S4xFYiTxv8z3Fhb/MLUZsJ
kl8v6uYfCOJCoqWOrZhIC5TwN2TqxXOhtqN6cM+kFhA3YzbEJnLBsFDH/DXx
xvBzY9NSuTDz4i+7YeLi1WmWf3O5cChTPTlUlBx/a7PnsQIuPP5uOFBHbM7o
DGsu5UJoX7SIqlgLFF5S/1NUw4WrGdoOccSi1R/GVjdy4eLR0sdNxOu1HDRS
KC5U+8Q+my3eAgXfbnve43PBI7ux8xaxiKrOPbF+LgSEZmsjMRz/kun3j8T3
L2O+kDhfYWhs32QalLNH7bZLtMD44QcaP+Vp+Dgv70ogsWn2EivzGTQk77hx
4hXxBakyz2wVGoxaFJSriPP2uN1bOJ+GjXqqF/uJR9+IZD3RpUHmwJ44JckW
WDvx+M/UJTTIBwSfW0P8KaFaY9CYhjlHIpzJvAH/Bo5bHV1Pg5xR21Eyj4Cx
tbRXkxUN7/pFl5B5BQJiXtyzs6Xh5pPXrz8Sf+RBVqEDDadFIlsr//v9Osaf
VXtpuP7Zr5pJbHTfbzzpIA1sU6nzZF6Cs20Kmmoe5Ho+iDQNE39YlWoV5k0D
tUxpQGxyC0wpq77xwJeGweW87WQeA7cDQ0UPA2jYlrE0ncx7kCdUF31ymXgk
aSaZ50DxprlZfBANixcrXyDzHnioHr344i4NDLDo+O/7/HeheUnhNAxL9W5T
JJ6xMfPfm0c0pC+n8uWJPRv+rHkfR0OS2e8lk4kLvSb8sl7Q0BoaFT9O4ps9
STsrN4WG1O3t0/uJvSNt+j6n0XA78mpwF3HxwpPLCrNpUIWV42S+BZX8yBOl
eTRIyOb5fiM+Zf8ptayQXF9IE51F/K2Ton98o2H+yl2HnxHPOS+pV/ODBtEN
vY23iX2nLvaor6XhRM1R+9PE5QnbExmNNPQwrn0n8x9orPFvZ1E0ROpMMjP5
735WPNFo7yTxOiZkqRH/cCl0YfNoyG1bpDdKnr/WQFccT0iD9fx9sX+If6mv
UB0Yp8FK68PFUOIF6bt2D4vzgIFuPDfii5YXH47J8MAiJ9/JhFjvxPfpkko8
uPHcV4ci+Xm9wFlOyYAHZsX9TxSIGx1u2Kiu4oFpjmhvA8n/ZZyU4LkmPOh4
+cnsv/XBVBgUX2DFg9Jli6o1iA0P3x1b48wDJ9GWrOlkfYX+fW9i6sYD9X5d
qoysx/Y79efWe/JgivJU8cvE9zI1Bjf582BNQJZhO1nfXInc7j1hPGBWqFtF
kPVvFsNc7BzJg6T3GoYmxFFLxD0PP+bB/nPpcyhSL8yd7Lo8X/HgX6trjSbx
k6QO1gXkQazW6/JwUm/sNiv+iuvhwci8lk9TSP1qFNvdpTXIg+BEVvJtUt9c
856OpYyS+C60LREnDtDX18uR5kOafeRozyAFiVOtr1Vp8uHdqoonKf2kf9cE
rhLZxQdLy1nPXvdQcPNu8eagA3zofilSJ0KsaCF7SM6ND+unr4vZ0U2Bbvaj
0Nmn+cDYbFrfy6PA/lFG19K7fBDzmaKgQOp70j5O9MECPtzaCssa2yhYMXNp
WlcpH4re6dtKEedX+pUer+QDPLg8uKKV7CfWifeda+SDyN+qrmsUBePz5m4J
7+fD2iSvDZLNFDh2OIwXLugGf8MHVyLqSL/xLjikdb8b1Ac6jtUWU/DC4364
ycNuCLQ7fKG0iAKLw4cK7WO7YThFzjmb9NPgXeIaV5K7YapnWFRYAekP5tYt
zV+6oePgRLFuHgUqs386PxR2w+uP1rXd6STeQtY+GYceCPnksrsujoLavLS7
8/f0wDR/d/Zl0v/9cq7krXHpAdP3CaZ6Tyj4+EZT7YhXD8Q/22PkF02e78Mj
jKLrPbBJpdyzj+w3tnj17A7M6oFK/zSvq8Gk3965tOisrAB2bCp3FJyggD0s
OOE7RQDdY8tV9nlT8NTjUOZJBQEc5fx+V+JF+pGlhelRJQGo9R/bGn6Ugk4R
Wbs9mgI4z6CsFA5TEO0XdXqtiQDmNPhxXzpSIHIoNVfEUwB06MdDukYUZP+c
Mz56XABKff6xWwwpOA73NgyfFEDheTr2xCqSP2o+5b1+5P8Czne/XUZBZv2a
5tarAuCXdBQp6lFwZGuxSEmMALZFpPO8VUj/XMOwulUmgAfLRPX5QhbEGe0/
W1pJzvdn6TWbbhacMGYlif0SgIXGsYvPOSyYtrZN+mK9AGxhussGigU7gC4/
3S6AyU0/MtdXsqDBYsRu37gArIavfjVNZEGbveoug+W9cFvP5pmWAwuGvPZ6
1EX3gq/GFI7vUybUhj7XZjzpBYctmc8ao5mQlsZppZ72wqz4lLMmEUzw6Pff
z3vZC5a2yy92BzOh4XyEvVh6Lywt3vFT+TQTPtyuXLusrBeagprrrpsz4VwS
KIT86wWv65/vJLY2w782zY8b9wphmZrCN45CM/y4VePz4oAQ5BoUzTfKNEOC
wTV98UNCGLw60/2RaDNsOd8aX+QhhNwrl5/q9zVBnOKzmxv8hHDU/DXK1jbB
hvVzHM3uC+FKHp0RGdEEt+NmC0y+CmEkUPN4w7QmOLDxW/LjMiHkZZmluUk1
wQqu/+GRSiH43e7y400woGlV/e+PtULIHtx5u7ObAUsqIz8btQphroRvyt0K
BlSPKN4xHBPCX/Gk30+DGJD4rHDjQ5E+UOfkVxQHMuC81enxQbE+OFQTv7LN
lwFaD36dypbpgxJFN0e5wwzw07u3a9XsPmie55Y3lXQhm5+gGKnaB77dlhoi
qxkw16+nvH9OH2wQrOvlLGbAty+2kKndB3TcvNJkFQbEHhkfmr6wD8Tmt32/
pMCA0/Jv030W98G2G8eX20kxwDJjv1eNQR/svJs6rjTRCP9/3wf/f98H/wO0
NTrR
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{-1.2, 1.2}, {-0.53211474465351, 0.5321147369189752}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5782077570504265`*^9, 3.5782077883004265`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solc", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"p", "'"}], "[", "x", "]"}], "\[Equal]", "0"}], "&&", " ", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{"-", "2"}]}], " ", "&&", " ", 
     RowBox[{"x", "\[LessEqual]", "2"}]}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5782077976285515`*^9, 3.5782078710973015`*^9}, {
  3.5782080455035515`*^9, 3.5782080777379265`*^9}, {3.5782082246441765`*^9, 
  3.5782082726754265`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"7484400", "-", 
         RowBox[{"14968800", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"11226600", " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"8814960", " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{"4422330", " ", 
          SuperscriptBox["#1", "8"]}], "-", 
         RowBox[{"1798236", " ", 
          SuperscriptBox["#1", "10"]}], "+", 
         RowBox[{"702233", " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "1"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"7484400", "-", 
         RowBox[{"14968800", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"11226600", " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"8814960", " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{"4422330", " ", 
          SuperscriptBox["#1", "8"]}], "-", 
         RowBox[{"1798236", " ", 
          SuperscriptBox["#1", "10"]}], "+", 
         RowBox[{"702233", " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "2"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"7484400", "-", 
         RowBox[{"14968800", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"11226600", " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"8814960", " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{"4422330", " ", 
          SuperscriptBox["#1", "8"]}], "-", 
         RowBox[{"1798236", " ", 
          SuperscriptBox["#1", "10"]}], "+", 
         RowBox[{"702233", " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "3"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"7484400", "-", 
         RowBox[{"14968800", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"11226600", " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"8814960", " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{"4422330", " ", 
          SuperscriptBox["#1", "8"]}], "-", 
         RowBox[{"1798236", " ", 
          SuperscriptBox["#1", "10"]}], "+", 
         RowBox[{"702233", " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "4"}], "]"}]}], "}"}]}],
   "}"}]], "Output",
 CellChangeTimes->{{3.5782078095348015`*^9, 3.5782078716910515`*^9}, {
  3.5782080490973015`*^9, 3.5782080787535515`*^9}, {3.5782082263316765`*^9, 
  3.5782082732535515`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "solc", "]"}]], "Input",
 CellChangeTimes->{{3.5782082280504265`*^9, 3.5782082324723015`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "1.3131056217576063`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "0.8622297215899885`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0.8622297215899885`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1.3131056217576063`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5782082336285515`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solc", " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"p", "'"}], "[", "x", "]"}], "\[Equal]", "0"}], "&&", " ", 
      RowBox[{"x", "\[GreaterEqual]", 
       RowBox[{"-", "1.2"}]}], " ", "&&", " ", 
      RowBox[{"x", "\[LessEqual]", "1.2"}]}], ",", "x"}], "]"}], "//", 
   "N"}]}]], "Input",
 CellChangeTimes->{{3.5782082476129265`*^9, 3.5782082605191765`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "0.8622297215899885`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0.8622297215899885`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5782082814566765`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "''"}], "[", "x", "]"}], "/.", "solc"}]], "Input",
 CellChangeTimes->{{3.5782082888004265`*^9, 3.5782082972848015`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.7081305731568424`", ",", 
   RowBox[{"-", "1.7081305731568424`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5782082979410515`*^9}]
}, Open  ]],

Cell["\<\
Lok\[AAcute]ln\[IAcute] minimum v -0.86223 a lok\[AAcute]ln\[IAcute] maximum \
v 0.86223\
\>", "Text",
 CellChangeTimes->{{3.5782083463160515`*^9, 3.5782083758629265`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "[", "x", "]"}], "/.", "solc"}]], "Input",
 CellChangeTimes->{{3.5782083077066765`*^9, 3.5782083124723015`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5323079070682979`"}], ",", "0.5323079070682979`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5782083140504265`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5782067128004265`*^9, 3.5782067133941765`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Voliteln\[YAcute] argument pro z\[AAcute]klad exponenci\[AAcute]ln\[IAcute] \
funkce\
\>", "Subsection",
 CellChangeTimes->{{3.5782084988629265`*^9, 3.5782085198473015`*^9}}],

Cell[TextData[{
 "V mnoha \[UAcute]loh\[AAcute]ch je pot\[RHacek]eba pracovat s exponenci\
\[AAcute]ln\[IAcute] funkc\[IAcute] se z\[AAcute]kladem 2. \na) Definujte \
funkce uExp, kter\[AAcute] po\[CHacek]\[IAcute]t\[AAcute] hodnotu exponenci\
\[AAcute]ln\[IAcute] funkce ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", "x"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " p\[RHacek]i z\[AAcute]kladu 2 jako implicitn\[IAcute] hodnoty. \
Nap\[RHacek]. uExp[7] vypo\[CHacek]te ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", "7"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ".\nb) Definujte nepovinn\[YAcute] parametr Base pro funkci uExp, kter\
\[YAcute] umo\[ZHacek]n\[IAcute] zadat jin\[YAcute] z\[AAcute]klad. Nap\
\[RHacek]. uExp[4,Base->5] vypo\[CHacek]te ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["5", "4"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "\nc) Vyhodn\[THacek]te funkci z \[CHacek]\[AAcute]sti (b) pro r\[URing]zn\
\[EAcute] \[CHacek]\[IAcute]seln\[EAcute] i symbolick\[EAcute] argumenty "
}], "Text",
 CellChangeTimes->{{3.5782085447691765`*^9, 3.5782088478941765`*^9}}],

Cell["ad a) ", "Text",
 CellChangeTimes->{{3.5782088573941765`*^9, 3.5782088588473015`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "uExp", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"uExp", "[", "x_", "]"}], ":=", 
  RowBox[{"2", "^", "x"}]}]}], "Input",
 CellChangeTimes->{{3.5782088738004265`*^9, 3.5782088984723015`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"uExp", "[", "x", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "10"}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.5782089018160515`*^9, 3.5782089260660515`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "2"},
    {"2", "4"},
    {"3", "8"},
    {"4", "16"},
    {"5", "32"},
    {"6", "64"},
    {"7", "128"},
    {"8", "256"},
    {"9", "512"},
    {"10", "1024"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5782089265816765`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "uExpV", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Options", "[", "uExpV", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{"Base", "\[Rule]", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"uExpV", "[", 
   RowBox[{"x_", ",", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"OptionValue", "[", "Base", "]"}], "^", "x"}]}]}], "Input",
 CellChangeTimes->{{3.5782089368629265`*^9, 3.5782089510348015`*^9}, {
  3.5782089947379265`*^9, 3.5782090560660515`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"uExpV", "[", "x", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "10"}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.5782090716598015`*^9, 3.5782090990348015`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "2"},
    {"2", "4"},
    {"3", "8"},
    {"4", "16"},
    {"5", "32"},
    {"6", "64"},
    {"7", "128"},
    {"8", "256"},
    {"9", "512"},
    {"10", "1024"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5782090995816765`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"uExpV", "[", 
       RowBox[{"x", ",", 
        RowBox[{"Base", "\[Rule]", "3"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "10"}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.5782091128941765`*^9, 3.5782091218316765`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "3"},
    {"2", "9"},
    {"3", "27"},
    {"4", "81"},
    {"5", "243"},
    {"6", "729"},
    {"7", "2187"},
    {"8", "6561"},
    {"9", "19683"},
    {"10", "59049"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5782091259566765`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"uExpV", "[", 
       RowBox[{"x", ",", 
        RowBox[{"Base", "\[Rule]", "y"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.5782091574098015`*^9, 3.5782091678473015`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"0", "1"},
    {"1", "y"},
    {"2", 
     SuperscriptBox["y", "2"]},
    {"3", 
     SuperscriptBox["y", "3"]},
    {"4", 
     SuperscriptBox["y", "4"]},
    {"5", 
     SuperscriptBox["y", "5"]},
    {"6", 
     SuperscriptBox["y", "6"]},
    {"7", 
     SuperscriptBox["y", "7"]},
    {"8", 
     SuperscriptBox["y", "8"]},
    {"9", 
     SuperscriptBox["y", "9"]},
    {"10", 
     SuperscriptBox["y", "10"]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.5782091597691765`*^9, 3.5782091684254265`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Nahrazen\[IAcute] symbolu v\[YAcute]razem obsahuj\[IAcute]c\[IAcute]m symbol\
\>", "Subsection",
 CellChangeTimes->{{3.5782091845191765`*^9, 3.5782092052691765`*^9}}],

Cell[TextData[{
 "V n\[AAcute]sleduj\[IAcute]c\[IAcute]m jsou uvedeny \
v\[YAcute]po\[CHacek]ty, ve kter\[YAcute]ch je exponent zvojn\[AAcute]soben \
nebo p\[URing]len v ka\[ZHacek]d\[EAcute]m kroku\na) Aplikujte pravidlo x-> ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}], "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " na symbol x jednou a\[ZHacek] t\[RHacek]ikr\[AAcute]t a expandujte v\
\[YAcute]sledky\nb) Aplikujte pravidlo x-> ",
 Cell[BoxData[
  FormBox[
   SqrtBox["x"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " na symbol x jednou a\[ZHacek] t\[RHacek]ikr\[AAcute]t a expandujte v\
\[YAcute]sledky\nc) Aplikujte pravidlo x-> ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    RowBox[{"1", "+", "x"}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " na symbol x jednou a\[ZHacek] t\[RHacek]ikr\[AAcute]t a expandujte v\
\[YAcute]sledky. Ka\[ZHacek]d\[YAcute] v\[YAcute]sledek vyhodno\[THacek]te \
pro x->1. Porovnejte v\[YAcute]sledky s Fibonacciovou posloupnost\[IAcute] "
}], "Text",
 CellChangeTimes->{{3.5782092254723015`*^9, 3.5782095154098015`*^9}, {
  3.5782104235348015`*^9, 3.5782104251754265`*^9}}],

Cell["ad a)", "Text",
 CellChangeTimes->{{3.5782095226285515`*^9, 3.5782095235660515`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"k1", "=", 
  RowBox[{"x", "/.", 
   RowBox[{"x", "->", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5782095352379265`*^9, 3.5782095659566765`*^9}, {
  3.5782097674723015`*^9, 3.5782097689879265`*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"1", "+", "x"}], ")"}], "2"]], "Output",
 CellChangeTimes->{{3.5782095517066765`*^9, 3.5782095686129265`*^9}, 
   3.5782097704410515`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"k2", "=", 
  RowBox[{
   RowBox[{"x", "/.", 
    RowBox[{"x", "->", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}]}], "/.", 
   RowBox[{"x", "->", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5782095841129265`*^9, 3.5782095998473015`*^9}, {
  3.5782097728629265`*^9, 3.5782097732848015`*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}], "2"]}], ")"}], "2"]], "Output",
 CellChangeTimes->{3.5782095905660515`*^9, 3.5782097740660515`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"k3", " ", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "/.", 
      RowBox[{"x", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}]}], "/.", 
     RowBox[{"x", "->", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}]}], "/.", 
    RowBox[{"x", "->", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}]}], "//", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.5782096089723015`*^9, 3.5782096268160515`*^9}, {
  3.5782097386598015`*^9, 3.5782097586754265`*^9}}],

Cell[BoxData[
 RowBox[{"25", "+", 
  RowBox[{"80", " ", "x"}], "+", 
  RowBox[{"144", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"168", " ", 
   SuperscriptBox["x", "3"]}], "+", 
  RowBox[{"138", " ", 
   SuperscriptBox["x", "4"]}], "+", 
  RowBox[{"80", " ", 
   SuperscriptBox["x", "5"]}], "+", 
  RowBox[{"32", " ", 
   SuperscriptBox["x", "6"]}], "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["x", "7"]}], "+", 
  SuperscriptBox["x", "8"]}]], "Output",
 CellChangeTimes->{{3.5782096214723015`*^9, 3.5782096277691765`*^9}, {
  3.5782097405035515`*^9, 3.5782097619098015`*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "k", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"k", "[", 
    RowBox[{"expr_", ",", "0"}], "]"}], "=", "expr"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "[", 
   RowBox[{"expr_", ",", "n_"}], "]"}], ":=", " ", 
  RowBox[{"k", "[", 
   RowBox[{
    RowBox[{"expr", "/.", 
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}]}], ",", 
    RowBox[{"n", "-", "1"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5782102449879265`*^9, 3.5782102573629265`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"k", "[", 
    RowBox[{"x", ",", "n"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5782102838785515`*^9, 3.5782102841441765`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], "2"], ",", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "x"}], ")"}], "2"]}], ")"}], "2"], ",", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "x"}], ")"}], "2"]}], ")"}], "2"]}], ")"}], "2"],
    ",", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "x"}], ")"}], "2"]}], ")"}], "2"]}], ")"}], 
       "2"]}], ")"}], "2"]}], "}"}]], "Output",
 CellChangeTimes->{3.5782102863316765`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"k", "[", 
     RowBox[{"x", ",", "n"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "1"}]}]], "Input",
 CellChangeTimes->{{3.5782103383941765`*^9, 3.5782103432848015`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "25", ",", "676", ",", "458329", ",", "210066388900"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5782103349410515`*^9, 3.5782103440348015`*^9}}]
}, Open  ]],

Cell["ad b)", "Text",
 CellChangeTimes->{{3.5782104710035515`*^9, 3.5782104732223015`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "l", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"l", "[", 
    RowBox[{"expr_", ",", "0"}], "]"}], "=", "expr"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l", "[", 
   RowBox[{"expr_", ",", "n_"}], "]"}], ":=", " ", 
  RowBox[{"l", "[", 
   RowBox[{
    RowBox[{"expr", "/.", 
     RowBox[{"x", "\[Rule]", 
      RowBox[{"Sqrt", "[", "x", "]"}]}]}], ",", 
    RowBox[{"n", "-", "1"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5782103579410515`*^9, 3.5782103700973015`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"l", "[", 
    RowBox[{"x", ",", "n"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5782103953941765`*^9, 3.5782103956441765`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SqrtBox["x"], ",", 
   SuperscriptBox["x", 
    RowBox[{"1", "/", "4"}]], ",", 
   SuperscriptBox["x", 
    RowBox[{"1", "/", "8"}]], ",", 
   SuperscriptBox["x", 
    RowBox[{"1", "/", "16"}]]}], "}"}]], "Output",
 CellChangeTimes->{3.5782103963941765`*^9}]
}, Open  ]],

Cell["ad c)", "Text",
 CellChangeTimes->{{3.5782104898941765`*^9, 3.5782104911285515`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "m", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{"expr_", ",", "0"}], "]"}], "=", "expr"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "[", 
   RowBox[{"expr_", ",", "n_"}], "]"}], ":=", " ", 
  RowBox[{"m", "[", 
   RowBox[{
    RowBox[{"expr", "/.", 
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "+", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}]}]}], ",", 
    RowBox[{"n", "-", "1"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5782099238941765`*^9, 3.5782100727223015`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{"x", ",", "n"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5782100155035515`*^9, 3.5782100235191765`*^9}, {
  3.5782100847535515`*^9, 3.5782101195348015`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"1", "+", "x"}]], ",", 
   FractionBox["1", 
    RowBox[{"1", "+", 
     FractionBox["1", 
      RowBox[{"1", "+", "x"}]]}]], ",", 
   FractionBox["1", 
    RowBox[{"1", "+", 
     FractionBox["1", 
      RowBox[{"1", "+", 
       FractionBox["1", 
        RowBox[{"1", "+", "x"}]]}]]}]], ",", 
   FractionBox["1", 
    RowBox[{"1", "+", 
     FractionBox["1", 
      RowBox[{"1", "+", 
       FractionBox["1", 
        RowBox[{"1", "+", 
         FractionBox["1", 
          RowBox[{"1", "+", "x"}]]}]]}]]}]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5782100248629265`*^9, {3.5782100748473015`*^9, 3.5782101276285515`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"m", "[", 
     RowBox[{"x", ",", "n"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "1"}]}]], "Input",
 CellChangeTimes->{{3.5782101799723015`*^9, 3.5782102014723015`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", "2"], ",", 
   FractionBox["2", "3"], ",", 
   FractionBox["3", "5"], ",", 
   FractionBox["5", "8"], ",", 
   FractionBox["8", "13"], ",", 
   FractionBox["13", "21"], ",", 
   FractionBox["21", "34"], ",", 
   FractionBox["34", "55"], ",", 
   FractionBox["55", "89"], ",", 
   FractionBox["89", "144"]}], "}"}]], "Output",
 CellChangeTimes->{{3.5782101830035515`*^9, 3.5782102021754265`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1912, 1058},
WindowMargins->{{2, Automatic}, {Automatic, 0}},
ShowSelection->True,
Magnification->2.1999998092651367`,
FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 262, 5, 195, "Title"],
Cell[CellGroupData[{
Cell[866, 31, 119, 1, 93, "Subsection"],
Cell[988, 34, 2193, 63, 424, "Text"],
Cell[3184, 99, 92, 1, 65, "Text"],
Cell[3279, 102, 410, 11, 136, "Input"],
Cell[CellGroupData[{
Cell[3714, 117, 261, 7, 93, "Input"],
Cell[3978, 126, 9596, 164, 558, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13611, 295, 319, 9, 93, "Input"],
Cell[13933, 306, 287, 7, 92, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14257, 318, 175, 4, 93, "Input"],
Cell[14435, 324, 175, 5, 92, "Output"]
}, Open  ]],
Cell[14625, 332, 182, 4, 65, "Text"],
Cell[CellGroupData[{
Cell[14832, 340, 150, 3, 93, "Input"],
Cell[14985, 345, 173, 4, 92, "Output"]
}, Open  ]],
Cell[15173, 352, 91, 1, 65, "Text"],
Cell[15267, 355, 361, 9, 136, "Input"],
Cell[CellGroupData[{
Cell[15653, 368, 357, 10, 93, "Input"],
Cell[16013, 380, 14923, 253, 550, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30973, 638, 371, 9, 93, "Input"],
Cell[31347, 649, 2627, 52, 564, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34011, 706, 647, 14, 93, "Input"],
Cell[34661, 722, 215, 4, 92, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34913, 731, 338, 9, 93, "Input"],
Cell[35254, 742, 3802, 70, 564, "Output"]
}, Open  ]],
Cell[39071, 815, 343, 6, 65, "Text"],
Cell[39417, 823, 92, 1, 65, "Text"],
Cell[39512, 826, 759, 24, 178, "Input"],
Cell[CellGroupData[{
Cell[40296, 854, 259, 7, 93, "Input"],
Cell[40558, 863, 14001, 237, 550, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54596, 1105, 323, 9, 93, "Input"],
Cell[54922, 1116, 9570, 164, 550, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64529, 1285, 533, 13, 93, "Input"],
Cell[65065, 1300, 2848, 81, 388, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67950, 1386, 127, 2, 93, "Input"],
Cell[68080, 1390, 471, 13, 92, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68588, 1408, 468, 13, 93, "Input"],
Cell[69059, 1423, 284, 8, 92, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69380, 1436, 171, 4, 93, "Input"],
Cell[69554, 1442, 172, 4, 92, "Output"]
}, Open  ]],
Cell[69741, 1449, 182, 4, 65, "Text"],
Cell[CellGroupData[{
Cell[69948, 1457, 151, 3, 93, "Input"],
Cell[70102, 1462, 175, 5, 92, "Output"]
}, Open  ]],
Cell[70292, 1470, 96, 1, 65, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70425, 1476, 184, 4, 93, "Subsection"],
Cell[70612, 1482, 1133, 25, 236, "Text"],
Cell[71748, 1509, 92, 1, 65, "Text"],
Cell[71843, 1512, 257, 6, 136, "Input"],
Cell[CellGroupData[{
Cell[72125, 1522, 335, 10, 93, "Input"],
Cell[72463, 1534, 719, 25, 391, "Output"]
}, Open  ]],
Cell[73197, 1562, 581, 15, 178, "Input"],
Cell[CellGroupData[{
Cell[73803, 1581, 336, 10, 93, "Input"],
Cell[74142, 1593, 719, 25, 391, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74898, 1623, 402, 12, 93, "Input"],
Cell[75303, 1637, 727, 25, 391, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76067, 1667, 402, 12, 93, "Input"],
Cell[76472, 1681, 993, 35, 479, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[77514, 1722, 176, 3, 93, "Subsection"],
Cell[77693, 1727, 1213, 28, 255, "Text"],
Cell[78909, 1757, 91, 1, 65, "Text"],
Cell[CellGroupData[{
Cell[79025, 1762, 300, 8, 93, "Input"],
Cell[79328, 1772, 196, 5, 94, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79561, 1782, 432, 13, 93, "Input"],
Cell[79996, 1797, 245, 7, 102, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80278, 1809, 622, 20, 93, "Input"],
Cell[80903, 1831, 588, 17, 94, "Output"]
}, Open  ]],
Cell[81506, 1851, 615, 19, 178, "Input"],
Cell[CellGroupData[{
Cell[82146, 1874, 264, 7, 93, "Input"],
Cell[82413, 1883, 999, 35, 104, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83449, 1923, 322, 9, 93, "Input"],
Cell[83774, 1934, 195, 4, 92, "Output"]
}, Open  ]],
Cell[83984, 1941, 91, 1, 65, "Text"],
Cell[84078, 1944, 566, 17, 178, "Input"],
Cell[CellGroupData[{
Cell[84669, 1965, 264, 7, 93, "Input"],
Cell[84936, 1974, 301, 10, 102, "Output"]
}, Open  ]],
Cell[85252, 1987, 91, 1, 65, "Text"],
Cell[85346, 1990, 667, 21, 178, "Input"],
Cell[CellGroupData[{
Cell[86038, 2015, 317, 8, 93, "Input"],
Cell[86358, 2025, 700, 24, 164, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87095, 2054, 323, 9, 93, "Input"],
Cell[87421, 2065, 455, 13, 116, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)