(* 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[      6373,        195]
NotebookOptionsPosition[      5698,        166]
NotebookOutlinePosition[      6100,        183]
CellTagsIndexPosition[      6057,        180]
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]]],
 "- 7.1 ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "2"], 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]]],
 "+",
 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}}]
}, 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]]],
 " 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]]],
 ".\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]]],
 "\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}}]
}, 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]]],
 " 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]]],
 " 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]]],
 " 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}}]
}, 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, 2094, 60, 424, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3119, 99, 184, 4, 93, "Subsection"],
Cell[3306, 105, 1034, 22, 236, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4377, 132, 176, 3, 93, "Subsection"],
Cell[4556, 137, 1114, 25, 255, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)