(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.2'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     19940,        629]*)
(*NotebookOutlinePosition[     20671,        654]*)
(*  CellTagsIndexPosition[     20627,        650]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell["\<\
Definice krokov\[AAcute]n\[IAcute] derivace
(Na horn\[IAcute] li\[SHacek]t\:011b zvolte Kernel \[Rule] Evaluation \[Rule] \
Evaluate Notebook)\
\>", "Subtitle",
  FontFamily->"Arial",
  FontSize->18],

Cell[BoxData[
    \(\(wasSpellCheckOn = Head[General::spell1] =!= $Off;\)\)], "Input",
  InitializationCell->True],

Cell[BoxData[
    \(Off[General::spell1]\)], "Input",
  InitializationCell->True],

Cell[BoxData[
    \(\(Clear[d];\)\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[CellGroupData[{

Cell["Usage messages", "Subsection",
  Evaluatable->False,
  AspectRatioFixed->True],

Cell[BoxData[
    \(\(\(WalkD::usage\  = \ "\<WalkD[expression, x] prints each of the steps \
in finding the derivative of the expression with respect to x, using d to \
represent differentiation. It prints the differentiation rule that is used at \
each step. The function outputs D[f, x].\>";\)\(\ \)\)\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(\(\(RunD::usage\  = \ "\<RunD[expression, x] prints each of the steps \
in finding the derivative of the expression with respect to x, using d to \
represent differentiation. The function outputs D[f, x].\>";\)\(\ \)\)\)], \
"InputOnly",
  InitializationCell->True,
  AspectRatioFixed->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["Function definitions", "Subsection",
  Evaluatable->False,
  AspectRatioFixed->True],

Cell[BoxData[
    \(\(SpecificRules = {d[x_, x_] \[RuleDelayed] 1, 
          d[f_[x_], x_] \[RuleDelayed] \[PartialD]\_x f[x], 
          d[a_\^x_, x_] \[RuleDelayed] \[PartialD]\_x a\^x /; 
              FreeQ[a, x]};\)\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(\(ConstantRule = 
        d[c_, x_] \[RuleDelayed] 0 /; FreeQ[c, x];\)\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(\(LinearityRule = {d[f_ + g_, x_] \[RuleDelayed] d[f, x] + d[g, x], 
          d[c_\ f_, x_] \[RuleDelayed] 
            c\ d[f, x] /; FreeQ[c, x]};\)\)], "InputOnly",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell["The rule d[x_, x_] is repeated intentionally. ", "Text"],

Cell[BoxData[
    \(\(PowerRule = {d[x_, x_] \[RuleDelayed] 1, 
          d[x_\^a_, x_] \[RuleDelayed] 
            a\ x\^\(a - 1\) /; FreeQ[a, x]};\)\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(\(ProductRule = 
        d[f_\ g_, x_] \[RuleDelayed] d[f, x]\ g + f\ d[g, x];\)\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(\(QuotientRule = 
        d[f_\/g_, 
            x_] \[RuleDelayed] \(d[f, x]\ g - f\ d[g, x]\)\/g\^2;\)\)], \
"Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    RowBox[{
      RowBox[{"InverseFunctionRule", "=", 
        RowBox[{
          RowBox[{"d", "[", 
            RowBox[{
              RowBox[{
                TagBox[\(f\^\((\(-1\))\)\),
                  InverseFunction,
                  Editable->False], "[", "x", "]"}], ",", "x"}], "]"}], 
          "\[RuleDelayed]", 
          FractionBox["1", 
            RowBox[{
              SuperscriptBox["f", "\[Prime]",
                MultilineFunction->None], "[", 
              RowBox[{
                TagBox[\(f\^\((\(-1\))\)\),
                  InverseFunction,
                  Editable->False], "[", "x", "]"}], "]"}]]}]}], 
      ";"}]], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(\(ChainRule = {d[f_\^a_, x_] \[RuleDelayed] 
            a\ f\^\(a - 1\)\ d[f, x] /; FreeQ[a, x], 
          d[a_\^f_, x_] \[RuleDelayed] Log[a]\ a\^f\ d[f, x] /; FreeQ[a, x], 
          d[f_[g_], 
              x_] \[RuleDelayed] \((\[PartialD]\_x f[x] /. x \[Rule] g)\)\ d[
                g, x], d[f_\^g_, x_] \[RuleDelayed] 
            f\^g\ d[g\ Log[f], x]};\)\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(\(RuleNames = {\n\t\t"\<SpecificRules\>", \n\t\t"\<ConstantRule\>", \n\t\
\t"\<LinearityRule\>", \n\t\t"\<PowerRule\>", \n\t\t"\<ProductRule\>", \n\t\t\
"\<QuotientRule\>", \n\t\t"\<InverseFunctionRule\>", \n\t\t"\<ChainRule\>"\n\t\
\t\t};\)\)], "InputOnly",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell["Drop the specific rules for generic cases.", "Text"],

Cell[BoxData[
    \(\(GeneralRules = 
        Flatten[ToExpression[Drop[RuleNames, 1]]];\)\)], "InputOnly",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell["Apply specific rules last when applying all at once.", "Text"],

Cell[BoxData[
    \(\(AllRules = 
        Flatten[ToExpression[RotateLeft[RuleNames]]];\)\)], "InputOnly",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell["Rule sets for applying the rules individually.", "Text"],

Cell[BoxData[
    \(\(ListRules\  = \ ToExpression[RuleNames];\)\)], "Input",
  InitializationCell->True],

Cell[BoxData[
    \(\(PrintRules\  := \ 
        CellPrint[
          Cell[BoxData[
              GridBox[Transpose[{\n\t
                    Prepend[\({"\<GeneralRules =\>" <> #1, \ ##2} &\)\  @@ \ 
                        Map["\<\[AlignmentMarker]\>" <> \ # &, 
                          RuleNames], \n\t\t\t\t\t\t\ "\<AllRules     =\
\[AlignmentMarker] SpecificRules + GeneralRules\>"]}], \n\t
                ColumnAlignments \[Rule] "\<\[AlignmentMarker]\>", \n\t
                RowSpacings \[Rule] {2, 
                    0.8}]], \ "\<Output\>"]];\)\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(WalkD[f_, x_] := 
      Module[{derivative}, 
        derivative = d[f, x]; \n\t\tdisplayStart[
          derivative]; \n\t\tWhile[\[InvisibleSpace]\(! \((FreeQ[derivative, 
                d])\)\), \n\t\t\toldderivative = derivative; 
          k = 0; \n\t\t\tWhile[
            oldderivative == 
              derivative, \n\t\t\t\t\(k++\); \n\t\t\t\tderivative = 
              derivative /. 
                ListRules\[LeftDoubleBracket]k\[RightDoubleBracket]]; 
          displayRuleUsed[
            RuleNames\[LeftDoubleBracket]
              k\[RightDoubleBracket]]; \n\t\t\tdisplayDerivative[
            derivative]]; \n\t\t\[PartialD]\_x f]\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(RunD[f_, x_] := 
      Module[{derivative}, \n\t\tderivative = d[f, x]; \n\t\tdisplayStart[
          derivative]; 
        While[\(\(\[InvisibleSpace]\)\(! \((FreeQ[derivative, d])\)\)\), 
          derivative = derivative /. AllRules; \n\t\t\tdisplayDerivative[
            derivative]]; \[PartialD]\_x f]\)], "Input",
  InitializationCell->True,
  AspectRatioFixed->True],

Cell[BoxData[
    \(displayStart[expr_]\  := \n\t
      StylePrint[
        expr, "\<Output\>", \n\t\t\tCellFrame \[Rule] {{0, 0}, {0, 
              3}}, \n\t\t\tBackground\  \[Rule] 
          RGBColor[0.8, \ 1. , \ 
            0.8], \n\t\t\tCellGroupingRules \[Rule] "\<OutputGrouping\>", \n\t\
\t\tCellMargins\  \[Rule] \ {{Inherited, \ Inherited}, {0, 
              Inherited}}, \n\t\tCellEditDuplicate \[Rule] 
          False, \n\t\tFontWeight \[Rule] Bold]\)], "Input",
  InitializationCell->True],

Cell[BoxData[
    \(displayRuleUsed[expr_String]\  := \n\t
      CellPrint[
        Cell[BoxData[expr], \ "\<Output\>", \n\t\t\tBackground\  \[Rule] 
            RGBColor[0.8, \ 1. , \ 0.8], \ 
          FontColor\  \[Rule] \ 
            RGBColor[0.6, \ 0, \ 
              0.6], \n\t\t\tFontSlant\  \[Rule] \ "\<Italic\>", \n\t\t\t\ \ \
CellFrame \[Rule] \ 
            False, \n\t\t\t\tCellMargins \[Rule] {{Inherited, Inherited}, {0, 
                0}}, CellFrameMargins\  \[Rule] \ {{100, \ Inherited}, {0, \ 
                0}}, \n\t\tCellEditDuplicate \[Rule] 
            False, \n\t\tFontWeight \[Rule] Bold]]\)], "Input",
  InitializationCell->True],

Cell[BoxData[
    \(displayDerivative[expr_] := \n\t
      CellPrint[
        Cell[BoxData[
            RowBox[{InterpretationBox["\<=\>", Sequence[]], "\<    \>", 
                MakeBoxes[expr, \ 
                  StandardForm]\ }]], \ "\<Output\>", \n\t\t\tBackground\  \
\[Rule] RGBColor[0.8, \ 1. , \ 0.8], \ 
          Evaluatable\  \[Rule] 
            False, \n\t\t\t\tCellMargins \[Rule] {{Inherited, Inherited}, {0, 
                0}}, CellFrame \[Rule] False, \n\t\tCellEditDuplicate \[Rule] 
            False, \n\t\tFontWeight \[Rule] Bold]]\)], "Input",
  InitializationCell->True],

Cell[BoxData[
    \(If[wasSpellCheckOn, On[General::spell1]]\)], "Input",
  InitializationCell->True]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivace", "Subtitle",
  FontFamily->"Arial",
  FontSize->18],

Cell[BoxData[
    \(P\:0159 : \ 
        vypo\[CHacek]\[IAcute]tejte\ derivaci\ y = \(1 + sin \((x)\)\)\/\(1 - \
sin \((x)\)\)\)], "Text",
  FontFamily->"Arial",
  FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
    \(D[\(1 + Sin[x]\)\/\(1 - Sin[x]\), x]\)], "Input"],

Cell[BoxData[
    \(Cos[x]\/\(1 - Sin[x]\) + \(Cos[x]\ \((1 + Sin[x])\)\)\/\((1 - Sin[x])\)\
\^2\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(V\[YAcute]sledek\ \(cos \((x)\)\)\/\(1 - sin \((x)\)\) + \(cos \((x)\)\ \
\((1 + sin \((x)\))\)\)\/\((1 - sin \((x)\))\)\^2\ se\ d\[AAcute]\ \
je\[SHacek]t\:011b\ zjednodu\[SHacek]it\)], "Text",
  FontFamily->"Arial",
  FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Simplify[%] // TraditionalForm\)], "Input"],

Cell[BoxData[
    \(TraditionalForm\`\(2\ \(cos(x)\)\)\/\((sin(x) - 1)\)\^2\)], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivace krok po kroku", "Subtitle",
  FontFamily->"Arial",
  FontSize->18],

Cell[CellGroupData[{

Cell[BoxData[
    \(WalkD[\(1 + Sin[x]\)\/\(1 - Sin[x]\), x]\)], "Input"],

Cell[BoxData[
    \(d[\(1 + Sin[x]\)\/\(1 - Sin[x]\), x]\)], "Output",
  CellFrame->{{0, 0}, {0, 3}},
  CellMargins->{{Inherited, Inherited}, {0, Inherited}},
  CellEditDuplicate->False,
  CellGroupingRules->"OutputGrouping",
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(Derivace\ sou\[CHacek]inu\)], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  CellFrameMargins->{{100, Inherited}, {0, 0}},
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0, 0.6],
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    RowBox[{
      InterpretationBox["=",
        Sequence[ ]], 
      "    ", \(d[1 + Sin[x], x]\/\(1 - Sin[x]\) + 
        d[1\/\(1 - Sin[x]\), x]\ \((1 + Sin[x])\)\)}]], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  Evaluatable->False,
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(Derivace\ sou\[CHacek]tu\ /\ rozd\[IAcute]lu\)], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  CellFrameMargins->{{100, Inherited}, {0, 0}},
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0, 0.6],
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    RowBox[{
      InterpretationBox["=",
        Sequence[ ]], 
      "    ", \(\(d[1, x] + d[Sin[x], x]\)\/\(1 - Sin[x]\) + 
        d[1\/\(1 - Sin[x]\), x]\ \((1 + Sin[x])\)\)}]], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  Evaluatable->False,
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(SpecificRules\)], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  CellFrameMargins->{{100, Inherited}, {0, 0}},
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0, 0.6],
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    RowBox[{
      InterpretationBox["=",
        Sequence[ ]], 
      "    ", \(\(Cos[x] + d[1, x]\)\/\(1 - Sin[x]\) + 
        d[1\/\(1 - Sin[x]\), x]\ \((1 + Sin[x])\)\)}]], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  Evaluatable->False,
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(Derivace\ konstanty\)], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  CellFrameMargins->{{100, Inherited}, {0, 0}},
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0, 0.6],
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    RowBox[{
      InterpretationBox["=",
        Sequence[ ]], 
      "    ", \(Cos[x]\/\(1 - Sin[x]\) + 
        d[1\/\(1 - Sin[x]\), x]\ \((1 + Sin[x])\)\)}]], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  Evaluatable->False,
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(Logaritmick\[AAcute]\ derivace\)], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  CellFrameMargins->{{100, Inherited}, {0, 0}},
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0, 0.6],
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    RowBox[{
      InterpretationBox["=",
        Sequence[ ]], 
      "    ", \(Cos[x]\/\(1 - Sin[x]\) - \(d[1 - Sin[x], x]\ \((1 + Sin[x])\)\
\)\/\((1 - Sin[x])\)\^2\)}]], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  Evaluatable->False,
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(Derivace\ sou\[CHacek]tu\ /\ rozd\[IAcute]lu\)], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  CellFrameMargins->{{100, Inherited}, {0, 0}},
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0, 0.6],
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    RowBox[{
      InterpretationBox["=",
        Sequence[ ]], 
      "    ", \(Cos[x]\/\(1 - Sin[x]\) - \(\((d[1, x] + d[\(-Sin[x]\), x])\)\ \
\((1 + Sin[x])\)\)\/\((1 - Sin[x])\)\^2\)}]], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  Evaluatable->False,
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(Derivace\ konstanty\)], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  CellFrameMargins->{{100, Inherited}, {0, 0}},
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0, 0.6],
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    RowBox[{
      InterpretationBox["=",
        Sequence[ ]], 
      "    ", \(Cos[x]\/\(1 - Sin[x]\) - \(d[\(-Sin[x]\), x]\ \((1 + \
Sin[x])\)\)\/\((1 - Sin[x])\)\^2\)}]], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  Evaluatable->False,
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(Derivace\ sou\[CHacek]tu\ /\ rozd\[IAcute]lu\)], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  CellFrameMargins->{{100, Inherited}, {0, 0}},
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0, 0.6],
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    RowBox[{
      InterpretationBox["=",
        Sequence[ ]], 
      "    ", \(Cos[x]\/\(1 - Sin[x]\) + \(d[Sin[x], x]\ \((1 + Sin[x])\)\)\/\
\((1 - Sin[x])\)\^2\)}]], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  Evaluatable->False,
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(SpecificRules\)], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  CellFrameMargins->{{100, Inherited}, {0, 0}},
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0, 0.6],
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    RowBox[{
      InterpretationBox["=",
        Sequence[ ]], 
      "    ", \(Cos[x]\/\(1 - Sin[x]\) + \(Cos[x]\ \((1 + Sin[x])\)\)\/\((1 - \
Sin[x])\)\^2\)}]], "Output",
  CellFrame->False,
  CellMargins->{{Inherited, Inherited}, {0, 0}},
  CellEditDuplicate->False,
  Evaluatable->False,
  FontWeight->"Bold",
  Background->RGBColor[0.8, 1, 0.8]],

Cell[BoxData[
    \(Cos[x]\/\(1 - Sin[x]\) + \(Cos[x]\ \((1 + Sin[x])\)\)\/\((1 - Sin[x])\)\
\^2\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Simplify[%] // TraditionalForm\)], "Input"],

Cell[BoxData[
    \(TraditionalForm\`\(2\ \(cos(x)\)\)\/\((sin(x) - 1)\)\^2\)], "Output"]
}, Open  ]],

Cell[BoxData[
    RowBox[{
      RowBox[{"Funkce", 
        StyleBox[" ",
          FontFamily->"Arial",
          FontSize->12,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->RGBColor[0, 0.501961, 0],
          FontVariations->{"Underline"->False,
          "StrikeThrough"->False}], 
        StyleBox["WalkD",
          FontFamily->"Arial",
          FontSize->12,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->RGBColor[0, 0.501961, 0],
          FontVariations->{"Underline"->False,
          "StrikeThrough"->False}], " ", "tedy", " ", "zajist\[IAcute]", " ", 
        "v\[YAcute]po\[CHacek]et", " ", "derivace"}], ",", 
      " ", \(p\:0159i\[CHacek]em\:017e\ zobraz\[IAcute]\ jednotliv\[EAcute]\ \
kroky\ a\ \[UAcute]pravy\), ",", " ", 
      RowBox[{
      "podle", " ", "kter\[YAcute]ch", " ", \(postupovala . \ Funkce\), " ", 
        StyleBox["RunD",
          FontFamily->"Arial",
          FontSize->12,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->RGBColor[0, 0.501961, 0],
          FontVariations->{"Underline"->False,
          "StrikeThrough"->False}], " ", "pracuje", " ", "zcela", " ", 
        "stejn\:011b"}], ",", " ", \(ale\ nezobrazuje\ \[UAcute]pravy\), ",", 
      " ", \(podle\ kter\[YAcute]ch\ \(\(postupovala\)\(.\)\)\)}]], "Text",
  FontFamily->"Arial",
  FontWeight->"Bold"]
}, Closed]]
},
FrontEndVersion->"5.2 for Microsoft Windows",
ScreenRectangle->{{0, 1400}, {0, 971}},
AutoGeneratedPackage->Automatic,
WindowSize->{1159, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.5,
StyleDefinitions -> "Default.nb"
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1776, 53, 209, 6, 101, "Subtitle"],
Cell[1988, 61, 114, 2, 42, "Input",
  InitializationCell->True],
Cell[2105, 65, 81, 2, 42, "Input",
  InitializationCell->True],
Cell[2189, 69, 100, 3, 42, "Input",
  InitializationCell->True],

Cell[CellGroupData[{
Cell[2314, 76, 84, 2, 56, "Subsection",
  Evaluatable->False],
Cell[2401, 80, 371, 6, 146, "Input",
  InitializationCell->True],
Cell[2775, 88, 311, 6, 123, "InputOnly",
  InitializationCell->True]
}, Open  ]],

Cell[CellGroupData[{
Cell[3123, 99, 90, 2, 56, "Subsection",
  Evaluatable->False],
Cell[3216, 103, 288, 6, 42, "Input",
  InitializationCell->True],
Cell[3507, 111, 157, 4, 42, "Input",
  InitializationCell->True],
Cell[3667, 117, 241, 5, 45, "InputOnly",
  InitializationCell->True],
Cell[3911, 124, 62, 0, 47, "Text"],
Cell[3976, 126, 217, 5, 43, "Input",
  InitializationCell->True],
Cell[4196, 133, 167, 4, 42, "Input",
  InitializationCell->True],
Cell[4366, 139, 193, 6, 70, "Input",
  InitializationCell->True],
Cell[4562, 147, 728, 21, 68, "Input",
  InitializationCell->True],
Cell[5293, 170, 453, 9, 95, "Input",
  InitializationCell->True],
Cell[5749, 181, 332, 6, 279, "InputOnly",
  InitializationCell->True],
Cell[6084, 189, 58, 0, 47, "Text"],
Cell[6145, 191, 161, 4, 45, "InputOnly",
  InitializationCell->True],
Cell[6309, 197, 68, 0, 47, "Text"],
Cell[6380, 199, 160, 4, 45, "InputOnly",
  InitializationCell->True],
Cell[6543, 205, 62, 0, 47, "Text"],
Cell[6608, 207, 105, 2, 42, "Input",
  InitializationCell->True],
Cell[6716, 211, 624, 13, 146, "Input",
  InitializationCell->True],
Cell[7343, 226, 738, 16, 250, "Input",
  InitializationCell->True],
Cell[8084, 244, 394, 8, 146, "Input",
  InitializationCell->True],
Cell[8481, 254, 507, 10, 224, "Input",
  InitializationCell->True],
Cell[8991, 266, 662, 13, 250, "Input",
  InitializationCell->True],
Cell[9656, 281, 599, 12, 250, "Input",
  InitializationCell->True],
Cell[10258, 295, 101, 2, 42, "Input",
  InitializationCell->True]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{
Cell[10408, 303, 67, 2, 68, "Subtitle"],
Cell[10478, 307, 183, 5, 76, "Text"],

Cell[CellGroupData[{
Cell[10686, 316, 69, 1, 68, "Input"],
Cell[10758, 319, 110, 2, 61, "Output"]
}, Open  ]],
Cell[10883, 324, 259, 5, 76, "Text"],

Cell[CellGroupData[{
Cell[11167, 333, 63, 1, 42, "Input"],
Cell[11233, 336, 89, 1, 84, "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{
Cell[11371, 343, 81, 2, 68, "Subtitle"],

Cell[CellGroupData[{
Cell[11477, 349, 73, 1, 68, "Input"],
Cell[11553, 352, 284, 7, 86, "Output",
  CellGroupingRules->"OutputGrouping"],
Cell[11840, 361, 322, 9, 23, "Output"],
Cell[12165, 372, 374, 11, 74, "Output",
  Evaluatable->False],
Cell[12542, 385, 341, 9, 23, "Output"],
Cell[12886, 396, 384, 11, 74, "Output",
  Evaluatable->False],
Cell[13273, 409, 310, 9, 23, "Output"],
Cell[13586, 420, 378, 11, 74, "Output",
  Evaluatable->False],
Cell[13967, 433, 316, 9, 23, "Output"],
Cell[14286, 444, 364, 11, 74, "Output",
  Evaluatable->False],
Cell[14653, 457, 327, 9, 23, "Output"],
Cell[14983, 468, 375, 11, 74, "Output",
  Evaluatable->False],
Cell[15361, 481, 341, 9, 23, "Output"],
Cell[15705, 492, 392, 11, 74, "Output",
  Evaluatable->False],
Cell[16100, 505, 316, 9, 23, "Output"],
Cell[16419, 516, 376, 11, 74, "Output",
  Evaluatable->False],
Cell[16798, 529, 341, 9, 23, "Output"],
Cell[17142, 540, 371, 11, 74, "Output",
  Evaluatable->False],
Cell[17516, 553, 310, 9, 23, "Output"],
Cell[17829, 564, 365, 11, 74, "Output",
  Evaluatable->False],
Cell[18197, 577, 110, 2, 61, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[18344, 584, 63, 1, 42, "Input"],
Cell[18410, 587, 89, 1, 84, "Output"]
}, Open  ]],
Cell[18514, 591, 1410, 35, 71, "Text"]
}, Closed]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)