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

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

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     50265,       1413]
NotebookOptionsPosition[     47236,       1309]
NotebookOutlinePosition[     48188,       1340]
CellTagsIndexPosition[     48109,       1335]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Magna Charter
v\[YAcute]po\[CHacek]ty a grafy\
\>", "Title",
 CellChangeTimes->{
  3.559948400406288*^9, {3.7833173196572037`*^9, 3.7833173370674033`*^9}}],

Cell["2019", "Subtitle",
 CellChangeTimes->{{3.783317344339883*^9, 3.7833173451562924`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Tryskov\[EAcute] letadlo", "Section",
 CellChangeTimes->{{3.7833173545489035`*^9, 3.783317358427814*^9}}],

Cell["\<\
Zjist\[EHacek]te, zda je pro pan\[IAcute] Magnu v\[YAcute]hodn\[EHacek]j\
\[SHacek]\[IAcute] po\[RHacek]\[IAcute]zen\[IAcute] vrtulov\[EAcute]ho nebo \
tryskov\[EAcute]ho letadla. Tryskov\[EAcute] letadlo stoj\[IAcute] 550 tis. \
EUR a vrtulov\[EAcute] jen 250 tis. EUR. Popt\[AAcute]vka se vyv\[IAcute]j\
\[IAcute] v z\[AAcute]vislosti na stavu ekonomiky. Pro prvn\[IAcute] dva roky \
m\[AAcute]te pomoc\[IAcute] stromu zad\[AAcute]ny pravd\[EHacek]podobnosti i \
hotovostn\[IAcute] toky pro ob\[EHacek] letadla. Hotovostn\[IAcute] tok na \
konci stromu p\[RHacek]edstavuje sou\[CHacek]asnou hodnotu CF pro zbytek \
\[ZHacek]ivotnosti letadla. Doba \[ZHacek]ivotnosti obou letadel je shodn\
\[AAcute]. Alternativn\[IAcute] n\[AAcute]klad kapit\[AAcute]lu je 10 %.\
\>", "Text",
 CellChangeTimes->{{3.7833174157112074`*^9, 3.7833176042000933`*^9}}],

Cell["\<\
prav = {{0.6}, {0.8, 0.4}};
CF = {{-550}, {150, 30}, {960, 220, 930, 140}};
r = 0.1;\
\>", "Text",
 CellChangeTimes->{3.7833182908750563`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"prav", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "0.6", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.8", ",", "0.4"}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CF", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"-", "550"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"150", ",", "30"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"960", ",", "220", ",", "930", ",", "140"}], "}"}]}], "}"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"prvek", "[", 
      RowBox[{"i_", ",", "j_", ",", "k_"}], "]"}], ":=", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"CF", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "k"}], "]"}], "]"}], "\[Rule]", 
         RowBox[{"CF", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}]}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Mod", "[", 
            RowBox[{"j", ",", "2"}], "]"}], "\[Equal]", "0"}], ",", 
          RowBox[{"1", "-", 
           RowBox[{"prav", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "k"}], "]"}], "]"}]}], ",", 
          RowBox[{"prav", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "k"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mat", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"prvek", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"prvek", "[", 
        RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", 
       RowBox[{"prvek", "[", 
        RowBox[{"2", ",", "4", ",", "2"}], "]"}], ",", 
       RowBox[{"prvek", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", 
       RowBox[{"prvek", "[", 
        RowBox[{"2", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"prvek", "[", 
        RowBox[{"2", ",", "1", ",", "1"}], "]"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"hran", "[", "n_", "]"}], ":=", " ", 
     RowBox[{
      RowBox[{"2", "^", "n"}], "+", 
      RowBox[{"hran", "[", 
       RowBox[{"n", "-", "1"}], "]"}]}]}], ";", 
    RowBox[{
     RowBox[{"hran", "[", "1", "]"}], "=", "2"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pprav", "=", 
     RowBox[{"Flatten", "[", "prav", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prVektor", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{"i", ",", "2"}], "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{"pprav", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"IntegerPart", "[", 
             RowBox[{"i", "/", "2"}], "]"}], "+", "1"}], "]"}], "]"}], ",", 
         RowBox[{"1", "-", 
          RowBox[{"pprav", "[", 
           RowBox[{"[", 
            RowBox[{"IntegerPart", "[", 
             RowBox[{"i", "/", "2"}], "]"}], "]"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"hran", "[", 
          RowBox[{"Length", "[", "prav", "]"}], "]"}]}], "}"}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"prVektor", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", "*", "i"}], "+", "1"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"prVektor", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", "*", "i"}], "+", "1"}], "]"}], "]"}], "*", 
         RowBox[{"prVektor", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"prVektor", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", "*", "i"}], "+", "2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"prVektor", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", "*", "i"}], "+", "2"}], "]"}], "]"}], "*", 
         RowBox[{"prVektor", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prVektor", "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", "1", "}"}], ",", "prVektor"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dCF", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"CF", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "/", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", "r"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"i", "-", "1"}], ")"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "CF", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"TreePlot", "[", 
    RowBox[{"mat", ",", "Left", ",", 
     RowBox[{"DirectedEdges", "\[Rule]", " ", "True"}], ",", 
     RowBox[{"VertexLabeling", "\[Rule]", "True"}]}], "]"}]}]}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.44998249534375*^9, 3.4499825684375*^9}, {
   3.449984251328125*^9, 3.44998436775*^9}, {3.4499844078125*^9, 
   3.449984440265625*^9}, 3.4499844728125*^9, {3.449984909984375*^9, 
   3.449985002703125*^9}, {3.44998512753125*^9, 3.44998513475*^9}, {
   3.449985166796875*^9, 3.449985167984375*^9}, {3.449986482890625*^9, 
   3.4499864964375*^9}, {3.44998658359375*^9, 3.449986585296875*^9}, {
   3.4499866941875*^9, 3.44998674825*^9}, 3.44998682134375*^9, {
   3.449987259234375*^9, 3.449987280984375*^9}, {3.449987335609375*^9, 
   3.449987345125*^9}, {3.449987426359375*^9, 3.449987490546875*^9}, {
   3.449987526484375*^9, 3.44998757771875*^9}, 3.449987609890625*^9, {
   3.449987689265625*^9, 3.4499877295625*^9}, {3.449987769375*^9, 
   3.44998777378125*^9}, 3.449987927515625*^9, {3.449988341109375*^9, 
   3.449988459421875*^9}, {3.44998850159375*^9, 3.44998850453125*^9}, {
   3.4499885854375*^9, 3.449988627921875*^9}, {3.449988738578125*^9, 
   3.449988766390625*^9}, {3.449988976828125*^9, 3.44998903940625*^9}, {
   3.449989075421875*^9, 3.449989076375*^9}, {3.449989261125*^9, 
   3.449989374328125*^9}, 3.44998950909375*^9, {3.44998957865625*^9, 
   3.44998958265625*^9}, {3.44998991246875*^9, 3.44998991428125*^9}, {
   3.7833179444475603`*^9, 3.78331794587823*^9}, {3.783318059461774*^9, 
   3.7833180623914766`*^9}, {3.783318093709016*^9, 3.783318122718927*^9}, {
   3.783319058154315*^9, 3.7833190899719276`*^9}}],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsComplexBox[{{0., 1.2247448713915874`}, {0.816496580927727, 
    0.4082482904638622}, {0.8164965809277253, 2.0412414523193143`}, {
    1.6329931618554536`, 0.}, {1.6329931618554527`, 0.8164965809277261}, {
    1.6329931618554516`, 1.6329931618554523`}, {1.632993161855451, 
    2.4494897427831783`}}, {
     {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03139277369691405, 0.7}}], 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{1, 2}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{1, 3}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{2, 4}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{2, 5}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.19999999999999996`", StripOnInput -> False], 
               TraditionalForm]], {0, 0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{3, 6}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.8`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{3, 7}]}}, {InsetBox[
       FrameBox[
        RowBox[{"-", "550"}],
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 1], InsetBox[
       FrameBox["30",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 2], InsetBox[
       FrameBox["150",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 3], InsetBox[
       FrameBox["140",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 4], InsetBox[
       FrameBox["930",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 5], InsetBox[
       FrameBox["220",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 6], InsetBox[
       FrameBox["960",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 7]}}],
   Annotation[#, 
    VertexCoordinateRules -> {{0., 1.2247448713915874`}, {0.816496580927727, 
     0.4082482904638622}, {0.8164965809277253, 2.0412414523193143`}, {
     1.6329931618554536`, 0.}, {1.6329931618554527`, 0.8164965809277261}, {
     1.6329931618554516`, 1.6329931618554523`}, {1.632993161855451, 
     2.4494897427831783`}}]& ],
  AspectRatio->1.2247448713915885`,
  FrameTicks->None,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{3.7833201679924717`*^9, 3.7833205213689566`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"trysk", " ", "=", " ", 
  RowBox[{"prVektor", ".", 
   RowBox[{"Flatten", "[", "dCF", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.783319064787184*^9, 3.783319083505085*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Vrtulov\[EAcute] letadlo", "Subsection",
 CellChangeTimes->{{3.783318361563933*^9, 3.783318365423335*^9}}],

Cell["\<\
Vypo\[CHacek]\[IAcute]tejte,zda nen\[IAcute] \
v\[YAcute]hodn\[EHacek]j\[SHacek]\[IAcute] vrtulov\[EAcute] letadlo s n\
\[AAcute]sleduj\[IAcute]c\[IAcute]m vektorem hotovostn\[IAcute]ch tok\[URing]:

CF={{-250},{100,50},{410,180,220,100.}}\
\>", "Text",
 CellChangeTimes->{
  3.783318377539608*^9, {3.783320361137885*^9, 3.7833203934106674`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CF", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"-", "250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"100", ",", "50"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"410", ",", "180", ",", "220", ",", "100."}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"prvek", "[", 
    RowBox[{"i_", ",", "j_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"CF", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "k"}], "]"}], "]"}], "\[Rule]", 
       RowBox[{"CF", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}]}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"j", ",", "2"}], "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{"1", "-", 
         RowBox[{"prav", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "k"}], "]"}], "]"}]}], ",", 
        RowBox[{"prav", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "k"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mat", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"prvek", "[", 
      RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "4", ",", "2"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "2", ",", "1"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "1", ",", "1"}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dCF", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"CF", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"i", "-", "1"}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "CF", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"TreePlot", "[", 
  RowBox[{"mat", ",", "Left", ",", 
   RowBox[{"DirectedEdges", "\[Rule]", " ", "True"}], ",", 
   RowBox[{"VertexLabeling", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.44998911753125*^9, 3.44998915296875*^9}, {
   3.449989183609375*^9, 3.44998919215625*^9}, {3.4499893870625*^9, 
   3.449989392140625*^9}, {3.44998946365625*^9, 3.449989504875*^9}, {
   3.449989588546875*^9, 3.449989591734375*^9}, 3.783318946399605*^9, {
   3.7833202938345113`*^9, 3.7833202952358923`*^9}}],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsComplexBox[{{0., 1.2247448713915874`}, {0.816496580927727, 
    0.4082482904638622}, {0.8164965809277253, 2.0412414523193143`}, {
    1.6329931618554536`, 0.}, {1.6329931618554527`, 0.8164965809277261}, {
    1.6329931618554516`, 1.6329931618554523`}, {1.632993161855451, 
    2.4494897427831783`}}, {
     {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03139277369691405, 0.7}}], 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{1, 2}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{1, 3}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{2, 4}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{2, 5}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.19999999999999996`", StripOnInput -> False], 
               TraditionalForm]], {0, 0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{3, 6}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.8`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{3, 7}]}}, {InsetBox[
       FrameBox[
        RowBox[{"-", "250"}],
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 1], InsetBox[
       FrameBox["50",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 2], InsetBox[
       FrameBox["100",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 3], InsetBox[
       FrameBox["100.`",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 4], InsetBox[
       FrameBox["220",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 5], InsetBox[
       FrameBox["180",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 6], InsetBox[
       FrameBox["410",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 7]}}],
   Annotation[#, 
    VertexCoordinateRules -> {{0., 1.2247448713915874`}, {0.816496580927727, 
     0.4082482904638622}, {0.8164965809277253, 2.0412414523193143`}, {
     1.6329931618554536`, 0.}, {1.6329931618554527`, 0.8164965809277261}, {
     1.6329931618554516`, 1.6329931618554523`}, {1.632993161855451, 
     2.4494897427831783`}}]& ],
  AspectRatio->1.2247448713915885`,
  FrameTicks->None,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{{3.7833205076363974`*^9, 3.7833205304872127`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"vrtule", " ", "=", " ", 
  RowBox[{"prVektor", ".", 
   RowBox[{"Flatten", "[", "dCF", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.783320298386318*^9, 3.7833203059156866`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Roz\[SHacek]\[IAcute]\[RHacek]en\[IAcute]", "Section",
 CellChangeTimes->{{3.783318442178645*^9, 3.7833184470653906`*^9}},
 Background->RGBColor[1, 0.9, 1]],

Cell["\<\
Jak se zm\[EHacek]n\[IAcute] rozhodnut\[IAcute], pokud lze po prvn\[IAcute]m \
roce koupit dal\[SHacek]\[IAcute] vrtulov\[EAcute] letadlo za 150 tis. EUR? \
Hotovostn\[IAcute] tok se pro vysokou popt\[AAcute]vku zm\[EHacek]n\[IAcute] \
na 800 a 100.\
\>", "Text",
 CellChangeTimes->{{3.783318452115226*^9, 3.783318564010404*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CF", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"-", "250"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"100", " ", "-", " ", "150"}], ",", " ", "50"}], "}"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"800", ",", " ", "100", ",", " ", "220", ",", " ", "100."}], 
      "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"prvek", "[", 
    RowBox[{"i_", ",", " ", "j_", ",", " ", "k_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"CF", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", " ", "k"}], "]"}], "]"}], " ", "->", " ", 
       RowBox[{"CF", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", " ", "+", " ", "1"}], ",", " ", "j"}], "]"}], "]"}]}], 
      ",", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"j", ",", " ", "2"}], "]"}], " ", "==", " ", "0"}], ",", 
        " ", 
        RowBox[{"1", " ", "-", " ", 
         RowBox[{"prav", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", " ", "k"}], "]"}], "]"}]}], ",", " ", 
        RowBox[{"prav", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", " ", "k"}], "]"}], "]"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"prvek", "[", 
      RowBox[{"1", ",", " ", "2", ",", " ", "1"}], "]"}], ",", " ", 
     RowBox[{"prvek", "[", 
      RowBox[{"1", ",", " ", "1", ",", " ", "1"}], "]"}], ",", " ", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", " ", "4", ",", " ", "2"}], "]"}], ",", " ", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", " ", "3", ",", " ", "2"}], "]"}], ",", " ", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", " ", "2", ",", " ", "1"}], "]"}], ",", " ", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", " ", "1", ",", " ", "1"}], "]"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"dCF", " ", "=", " ", 
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"CF", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", " ", "+", " ", "r"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"i", " ", "-", " ", "1"}], ")"}]}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "1", ",", " ", 
       RowBox[{"Length", "[", "CF", "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"TreePlot", "[", 
  RowBox[{"mat", ",", " ", "Left", ",", " ", 
   RowBox[{"DirectedEdges", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"VertexLabeling", " ", "->", " ", "True"}]}], "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.7833189026414814`*^9, 3.7833189207343817`*^9}, {
  3.783318962910471*^9, 3.783318963966136*^9}}],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsComplexBox[{{0., 1.2247448713915874`}, {0.816496580927727, 
    0.4082482904638622}, {0.8164965809277253, 2.0412414523193143`}, {
    1.6329931618554536`, 0.}, {1.6329931618554527`, 0.8164965809277261}, {
    1.6329931618554516`, 1.6329931618554523`}, {1.632993161855451, 
    2.4494897427831783`}}, {
     {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03139277369691405, 0.7}}], 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{1, 2}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{1, 3}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{2, 4}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{2, 5}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.19999999999999996`", StripOnInput -> False], 
               TraditionalForm]], {0, 0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{3, 6}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.8`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03139277369691405, 0.8}}], 
       ArrowBox[{3, 7}]}}, {InsetBox[
       FrameBox[
        RowBox[{"-", "250"}],
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 1], InsetBox[
       FrameBox["50",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 2], InsetBox[
       FrameBox[
        RowBox[{"-", "50"}],
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 3], InsetBox[
       FrameBox["100.`",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 4], InsetBox[
       FrameBox["220",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 5], InsetBox[
       FrameBox["100",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 6], InsetBox[
       FrameBox["800",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 7]}}],
   Annotation[#, 
    VertexCoordinateRules -> {{0., 1.2247448713915874`}, {0.816496580927727, 
     0.4082482904638622}, {0.8164965809277253, 2.0412414523193143`}, {
     1.6329931618554536`, 0.}, {1.6329931618554527`, 0.8164965809277261}, {
     1.6329931618554516`, 1.6329931618554523`}, {1.632993161855451, 
     2.4494897427831783`}}]& ],
  AspectRatio->1.2247448713915885`,
  FrameTicks->None,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{3.78332054083399*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"vrtuleOR", " ", "=", " ", 
  RowBox[{"prVektor", ".", 
   RowBox[{"Flatten", "[", "dCF", "]"}]}]}], "\n", 
 RowBox[{"vrtuleOR", " ", "-", " ", "vrtule"}]}], "Input",
 CellChangeTimes->{{3.783318698634301*^9, 3.7833187200904865`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Prodej", "Section",
 CellChangeTimes->{{3.7833194732003756`*^9, 3.7833194823625565`*^9}, {
  3.7833195753603697`*^9, 3.7833195765000267`*^9}}],

Cell["\<\
Jak se zm\[EHacek]n\[IAcute] rozhodnut\[IAcute], pokud lze po prvn\[IAcute]m \
roce prodat tryskov\[EAcute] letadlo za 500 tis. EUR? \
\>", "Text",
 CellChangeTimes->{{3.783318452115226*^9, 3.783318564010404*^9}, {
  3.7833195068373575`*^9, 3.783319508531706*^9}, {3.7833195824795666`*^9, 
  3.78331960532936*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CF", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"-", "550"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"150", ",", "530"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"960", ",", "220", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"prvek", "[", 
    RowBox[{"i_", ",", "j_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"CF", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "k"}], "]"}], "]"}], "\[Rule]", 
       RowBox[{"CF", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}]}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"j", ",", "2"}], "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{"1", "-", 
         RowBox[{"prav", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "k"}], "]"}], "]"}]}], ",", 
        RowBox[{"prav", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "k"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mat", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"prvek", "[", 
      RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "4", ",", "2"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "2", ",", "1"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "1", ",", "1"}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dCF", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"CF", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"i", "-", "1"}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "CF", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"TreePlot", "[", 
  RowBox[{"mat", ",", "Left", ",", 
   RowBox[{"DirectedEdges", "\[Rule]", " ", "True"}], ",", 
   RowBox[{"VertexLabeling", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.449989712171875*^9, 3.449989723734375*^9}, {
  3.449989760453125*^9, 3.44998982796875*^9}, {3.7833196290014243`*^9, 
  3.7833196540768223`*^9}}],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQNZ33TfTrj5xH6eh63NwTOv7WHik6D8IrD8F/vZ
YP5v++Ox1XZhxy7YTIfyF0LVTYLy50Lpw9Fhd9eufGfvMPMER+rzafa5s/xi
juW9t1c4sGFb6uw59su0jYPWSH2wd8ibGfVyxwL75WsNrSbXfbBPYK95MHnL
InurPv4pPx59sGc4w+Qi7LDEnklV9Nke94/2Cm1H2l5HLbXnnnVkxoE1H+0P
XDn9+zDLMnuz/IMMTwQ/2TtYpSSn2y6z31E766btwu/2BVD+46DpjolsP+w/
QNW/Oe72JSX7h70D1LwtcT5umhd+2AdA7XO311rQZ/LTfgHUPZ4HNTpKZ/y0
b4C6d8d8kzX7fv+0PwD1D8/+Da+94n7ZP4D69yjU/wwQ/v58qP8X7Aer3w/z
PwPEvP0w/ytA7NsP8/+B02D37If5/0Ar2L37Yf5PgPhnP8z/DyzB/t0P8/8G
KB/mfwOoepj/G6DmwfxfALUP5v8DbBD3wPy/IBfiXpj/GaD+gft/OsS/AD/0
N1A=
    "], {
     {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03552057386854858, 0.7}}], 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{1, 2}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{1, 3}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{2, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 
        22, 4}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{2, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
        37, 38, 4}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.19999999999999996`", StripOnInput -> False], 
               TraditionalForm]], {0, 0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{3, 5}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.8`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{3, 6}]}}, {InsetBox[
       FrameBox[
        RowBox[{"-", "550"}],
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 1], InsetBox[
       FrameBox["530",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 2], InsetBox[
       FrameBox["150",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 3], InsetBox[
       FrameBox["0",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 4], InsetBox[
       FrameBox["220",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 5], InsetBox[
       FrameBox["960",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 6]}}],
   Annotation[#, 
    VertexCoordinateRules -> {{0., 0.6515583641446032}, {0.8687444855261395, 
     0.}, {0.8687444855261381, 1.3031167282892082`}, {1.7374889710522783`, 
     9.311858772992793*^-16}, {1.7374889710522774`, 0.8687444855261398}, {
     1.7374889710522763`, 1.7374889710522787`}}]& ],
  AspectRatio->1.0124228365658294`,
  FrameTicks->None,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{3.7833205479619923`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"tryskOO", " ", "=", " ", 
  RowBox[{"prVektor", ".", 
   RowBox[{"Flatten", "[", "dCF", "]"}]}]}], "\n", 
 RowBox[{"tryskOO", " ", "-", " ", "trysk"}]}], "Input",
 CellChangeTimes->{{3.783319633458494*^9, 3.78331964488437*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Kombinace", "Section",
 CellChangeTimes->{{3.783319697593788*^9, 3.7833196990791516`*^9}}],

Cell["\<\
Uva\[ZHacek]ujte tak\[EAcute] prodej pro vrtulov\[EAcute] letadlo. Prodejn\
\[IAcute] cena je 150 tis. EUR. Vyhodno\[THacek]te hodnoty v\[SHacek]ech opc\
\[IAcute]. Pro\[CHacek] nen\[IAcute] hodnota kombinovan\[EAcute] opce sou\
\[CHacek]tem jednotliv\[YAcute]ch opc\[IAcute]?\
\>", "Text",
 CellChangeTimes->{{3.783319705530384*^9, 3.783319778843478*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CF", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"-", "250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"100", "-", "150"}], ",", 
       RowBox[{"50", "+", "150"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"800", ",", "100", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"prvek", "[", 
    RowBox[{"i_", ",", "j_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"CF", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "k"}], "]"}], "]"}], "\[Rule]", 
       RowBox[{"CF", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}]}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"j", ",", "2"}], "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{"1", "-", 
         RowBox[{"prav", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "k"}], "]"}], "]"}]}], ",", 
        RowBox[{"prav", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "k"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mat", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"prvek", "[", 
      RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "4", ",", "2"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "2", ",", "1"}], "]"}], ",", 
     RowBox[{"prvek", "[", 
      RowBox[{"2", ",", "1", ",", "1"}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dCF", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"CF", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"i", "-", "1"}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "CF", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"vrtuleORO", "=", 
  RowBox[{"prVektor", ".", 
   RowBox[{"Flatten", "[", "dCF", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"TreePlot", "[", 
  RowBox[{"mat", ",", "Left", ",", 
   RowBox[{"DirectedEdges", "\[Rule]", " ", "True"}], ",", 
   RowBox[{"VertexLabeling", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.449989536234375*^9, 3.44998955646875*^9}, {
  3.44998959609375*^9, 3.44998960290625*^9}, {3.449989733921875*^9, 
  3.449989734640625*^9}, {3.4499900241875*^9, 3.449990024796875*^9}, {
  3.44999012959375*^9, 3.44999015403125*^9}, {3.7833198049394093`*^9, 
  3.7833198100156255`*^9}}],

Cell[BoxData["122.72727272727273`"], "Output",
 CellChangeTimes->{3.783320553749155*^9}],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQNZ33TfTrj5xH6eh63NwTOv7WHik6D8IrD8F/vZ
YP5v++Ox1XZhxy7YTIfyF0LVTYLy50Lpw9Fhd9eufGfvMPMER+rzafa5s/xi
juW9t1c4sGFb6uw59su0jYPWSH2wd8ibGfVyxwL75WsNrSbXfbBPYK95MHnL
InurPv4pPx59sGc4w+Qi7LDEnklV9Nke94/2Cm1H2l5HLbXnnnVkxoE1H+0P
XDn9+zDLMnuz/IMMTwQ/2TtYpSSn2y6z31E766btwu/2BVD+46DpjolsP+w/
QNW/Oe72JSX7h70D1LwtcT5umhd+2AdA7XO311rQZ/LTfgHUPZ4HNTpKZ/y0
b4C6d8d8kzX7fv+0PwD1D8/+Da+94n7ZP4D69yjU/wwQ/v58qP8X7Aer3w/z
PwPEvP0w/ytA7NsP8/+B02D37If5/0Ar2L37Yf5PgPhnP8z/DyzB/t0P8/8G
KB/mfwOoepj/G6DmwfxfALUP5v8DbBD3wPy/IBfiXpj/GaD+gft/OsS/AD/0
N1A=
    "], {
     {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03552057386854858, 0.7}}], 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{1, 2}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{1, 3}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.6`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{2, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 
        22, 4}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.4`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{2, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
        37, 38, 4}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.19999999999999996`", StripOnInput -> False], 
               TraditionalForm]], {0, 0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{3, 5}]}, 
      {Arrowheads[{{0.5, 0.5, 
          GraphicsBox[{
            GrayLevel[0], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["0.8`", StripOnInput -> False], TraditionalForm]], {0,
              0}, 
             ImageScaled[{0.5, 0.5}], Automatic, None, Background -> 
             GrayLevel[1]]}]}, {0.03552057386854858, 0.8}}], 
       ArrowBox[{3, 6}]}}, {InsetBox[
       FrameBox[
        RowBox[{"-", "250"}],
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 1], InsetBox[
       FrameBox["200",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 2], InsetBox[
       FrameBox[
        RowBox[{"-", "50"}],
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 3], InsetBox[
       FrameBox["0",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 4], InsetBox[
       FrameBox["100",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 5], InsetBox[
       FrameBox["800",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 6]}}],
   Annotation[#, 
    VertexCoordinateRules -> {{0., 0.6515583641446032}, {0.8687444855261395, 
     0.}, {0.8687444855261381, 1.3031167282892082`}, {1.7374889710522783`, 
     9.311858772992793*^-16}, {1.7374889710522774`, 0.8687444855261398}, {
     1.7374889710522763`, 1.7374889710522787`}}]& ],
  AspectRatio->1.0124228365658294`,
  FrameTicks->None,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{3.7833205537755213`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"vrtuleORO", " ", "-", " ", "vrtule"}], "\n", 
 RowBox[{"vrtuleORO", " ", "-", " ", "vrtuleOO"}]}], "Input",
 CellChangeTimes->{{3.783319813074253*^9, 3.7833198229639797`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
TaggingRules->{"SlideShow" -> True},
FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (February 25, 2016)",
StyleDefinitions->FrontEnd`FileName[{"SlideShow"}, "Water.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[877, 35, 64, 1, 75, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[13774, 378, 64, 1, 75, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[21961, 608, 64, 1, 75, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[30315, 839, 64, 1, 75, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[38599, 1071, 64, 1, 75, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 47642, 1321}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 165, 5, 355, "Title"],
Cell[748, 29, 92, 1, 108, "Subtitle"]
}, Open  ]],
Cell[CellGroupData[{
Cell[877, 35, 64, 1, 75, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[966, 40, 111, 1, 128, "Section"],
Cell[1080, 43, 858, 12, 147, "Text"],
Cell[1941, 57, 152, 5, 117, "Text"],
Cell[CellGroupData[{
Cell[2118, 66, 6871, 184, 24, "Input",
 CellOpen->False],
Cell[8992, 252, 4522, 113, 454, "Output"]
}, Open  ]],
Cell[13529, 368, 196, 4, 45, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13774, 378, 64, 1, 75, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[13863, 383, 112, 1, 115, "Subsection"],
Cell[13978, 386, 356, 8, 117, "Text"],
Cell[CellGroupData[{
Cell[14359, 398, 2810, 82, 19, "Input",
 CellOpen->False],
Cell[17172, 482, 4526, 113, 454, "Output"]
}, Open  ]],
Cell[21713, 598, 199, 4, 45, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21961, 608, 64, 1, 75, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[22050, 613, 162, 2, 136, "Section"],
Cell[22215, 617, 339, 6, 87, "Text"],
Cell[CellGroupData[{
Cell[22579, 627, 2891, 82, 19, "Input",
 CellOpen->False],
Cell[25473, 711, 4520, 114, 454, "Output"]
}, Open  ]],
Cell[30008, 828, 258, 5, 75, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30315, 839, 64, 1, 75, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[30404, 844, 148, 2, 128, "Section"],
Cell[30555, 848, 324, 6, 57, "Text"],
Cell[CellGroupData[{
Cell[30904, 858, 2644, 80, 19, "Input",
 CellOpen->False],
Cell[33551, 940, 4732, 117, 410, "Output"]
}, Open  ]],
Cell[38298, 1060, 252, 5, 75, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[38599, 1071, 64, 1, 75, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[38688, 1076, 96, 1, 128, "Section"],
Cell[38787, 1079, 366, 6, 87, "Text"],
Cell[CellGroupData[{
Cell[39178, 1089, 2966, 87, 19, "Input",
 CellOpen->False],
Cell[42147, 1178, 88, 1, 44, "Output"],
Cell[42238, 1181, 4755, 118, 410, "Output"]
}, Open  ]],
Cell[47008, 1302, 200, 3, 75, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)