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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     24086,        651]
NotebookOptionsPosition[     22508,        614]
NotebookOutlinePosition[     22881,        630]
CellTagsIndexPosition[     22838,        627]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["St\[AAcute]tn\[IAcute] maturitn\[IAcute] zkou\[SHacek]ka z matematiky, \
2015 a 2016", "Section",
 CellChangeTimes->{{3.8285016447148237`*^9, 3.828501660647417*^9}, 
   3.828501798302432*^9},ExpressionUUID->"fcdc40c6-40e4-4f67-a66a-\
2784fe9f10ef"],

Cell["\<\
Celkov\[YAcute] pod\[IAcute]l propadl\[IAcute]k\[URing] mezi roky 2015 a 2016 \
klesl, p\[RHacek]esto\[ZHacek]e v obou podskupin\[AAcute]ch stoupl.\
\>", "Text",
 CellChangeTimes->{{3.8285018334343553`*^9, 
  3.8285018727861*^9}},ExpressionUUID->"df6e14cd-91d1-45fe-b08d-907162e0c676"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a1", "=", "249"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"2015", ",", " ", 
    RowBox[{"propadl\[IAcute]", " ", "z", " ", "gymn\[AAcute]zi\[IAcute]"}]}],
    " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"N1", "=", "7095"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"2015", ",", " ", 
    RowBox[{"celkem", " ", "z", " ", "gymn\[AAcute]zi\[IAcute]"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b1", "=", "4366"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"2015", ",", " ", 
    RowBox[{
    "propadl\[IAcute]", " ", "z", " ", "ostatn\[IAcute]ch", " ", 
     "\[SHacek]kol"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M1", "=", "12209"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"2015", ",", " ", 
     RowBox[{
     "celkem", " ", "z", " ", "ostatn\[IAcute]ch", " ", "\[SHacek]kol"}]}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"a2", "=", "254"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"2016", ",", " ", 
     RowBox[{
     "propadl\[IAcute]", " ", "z", " ", "gymn\[AAcute]zi\[IAcute]"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"N2", "=", "6916"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"2016", ",", " ", 
    RowBox[{"celkem", " ", "z", " ", "gymn\[AAcute]zi\[IAcute]"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b2", "=", "3686"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"2016", ",", " ", 
    RowBox[{
    "propadl\[IAcute]", " ", "z", " ", "ostatn\[IAcute]ch", " ", 
     "\[SHacek]kol"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2", "=", "10072"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"2016", ",", " ", 
    RowBox[{
    "celkem", " ", "z", " ", "ostatn\[IAcute]ch", " ", "\[SHacek]kol"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"N1", ",", "a1"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"N2", ",", "a2"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"M1", ",", "b1"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"M2", ",", "b2"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"N1", "+", "M1"}], ",", 
          RowBox[{"a1", "+", "b1"}]}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"N2", "+", "M2"}], ",", 
          RowBox[{"a2", "+", "b2"}]}], "}"}]}], "}"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Orange", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Orange", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Orange", ",", "Blue"}], 
      "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.828497985444533*^9, 3.828498056358571*^9}, {
  3.8285013678302565`*^9, 3.828501368820902*^9}, {3.828501584388137*^9, 
  3.8285015979231887`*^9}, {3.828501689874688*^9, 3.8285017864850736`*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"7bbca89a-bccd-4fe0-bbbe-7e789b3b268f"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {7095., 249.}}]}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {6916., 254.}}]}, 
    {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {12209., 4366.}}]}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {10072., 3686.}}]}, 
    {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], LineBox[{{0., 0.}, {19304., 4615.}}]}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], LineBox[{{0., 0.}, {16988., 3940.}}]}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 19304.}, {0, 4615.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8285013763172264`*^9, 3.828501599247799*^9, 
  3.828501816026087*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"ffa54eab-ac0a-4fb7-a8f7-9f1d04e4fc1c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ilustrace z \[CHacek]esk\[EAcute] wikipedie I", "Section",
 CellChangeTimes->{{3.8285016447148237`*^9, 3.828501660647417*^9}, 
   3.828501798302432*^9, {3.828501893668643*^9, 3.8285019001672683`*^9}, {
   3.8285021921905613`*^9, 
   3.828502192657387*^9}},ExpressionUUID->"83aa474b-d915-4b45-8365-\
68e816c3bfae"],

Cell["\<\
https://cs.wikipedia.org/wiki/Simpson%C5%AFv_paradox\[LineSeparator]\
\[LineSeparator]Za oba semestry m\[AAcute] student B vy\[SHacek]\[SHacek]\
\[IAcute] \[UAcute]sp\[EHacek]\[SHacek]nost, p\[RHacek]esto\[ZHacek]e v ka\
\[ZHacek]d\[EAcute]m semestru zvl\[AAcute]\[SHacek]\[THacek] byl (procentu\
\[AAcute]ln\[EHacek]) m\[EAcute]n\[EHacek] \[UAcute]sp\[EHacek]\[SHacek]n\
\[YAcute].\
\>", "Text",
 CellChangeTimes->{{3.8285018334343553`*^9, 3.8285018727861*^9}, {
  3.828501921547326*^9, 3.8285019241333623`*^9}, {3.828502069494385*^9, 
  3.828502107679245*^9}},ExpressionUUID->"ea465905-94a2-44c4-9fee-\
f5da6a8db8bb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a1", "=", "2"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\[UAcute]sp\[EHacek]\[SHacek]n\[EAcute]", " ", "zkou\[SHacek]ky", " ", 
    "studenta", " ", "A", " ", "v", " ", "1.", " ", "semestru"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"N1", "=", "8"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "po\[CHacek]et", " ", "zkou\[SHacek]ek", " ", "studenta", " ", "A", " ", 
     "v", " ", "1.", " ", "semestru"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"b1", "=", "2"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\[UAcute]sp\[EHacek]\[SHacek]n\[EAcute]", " ", "zkou\[SHacek]ky", " ", 
    "studenta", " ", "A", " ", "v", " ", "2.", " ", "semestru"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M1", "=", "2"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "po\[CHacek]et", " ", "zkou\[SHacek]ek", " ", "studenta", " ", "A", " ", 
     "v", " ", "2.", " ", "semestru"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"a2", "=", "1"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\[UAcute]sp\[EHacek]\[SHacek]n\[EAcute]", " ", "zkou\[SHacek]ky", " ", 
    "studenta", " ", "B", " ", "v", " ", "1.", " ", "semestru"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"N2", "=", "5"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "po\[CHacek]et", " ", "zkou\[SHacek]ek", " ", "studenta", " ", "B", " ", 
     "v", " ", "1.", " ", "semestru"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"b2", "=", "4"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\[UAcute]sp\[EHacek]\[SHacek]n\[EAcute]", " ", "zkou\[SHacek]ky", " ", 
    "studenta", " ", "B", " ", "v", " ", "2.", " ", "semestru"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2", "=", "5"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "po\[CHacek]et", " ", "zkou\[SHacek]ek", " ", "studenta", " ", "B", " ", 
    "v", " ", "2.", " ", "semestru"}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"N1", ",", "a1"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"N2", ",", "a2"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"M1", ",", "b1"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"M2", ",", "b2"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"N1", "+", "M1"}], ",", 
          RowBox[{"a1", "+", "b1"}]}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"N2", "+", "M2"}], ",", 
          RowBox[{"a2", "+", "b2"}]}], "}"}]}], "}"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Orange", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Orange", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Orange", ",", "Blue"}], 
      "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.828497985444533*^9, 3.828498056358571*^9}, {
  3.8285013678302565`*^9, 3.8285014081178226`*^9}, {3.8285014696593065`*^9, 
  3.828501479635225*^9}, {3.8285015227947483`*^9, 3.828501561131885*^9}, {
  3.8285019408145304`*^9, 3.8285020485643463`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"1df6660a-e50a-474d-a1d0-eabb2c10bcc5"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {8., 2.}}]}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {5., 1.}}]}, 
    {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {2., 2.}}]}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {5., 4.}}]}, 
    {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], LineBox[{{0., 0.}, {10., 4.}}]}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], LineBox[{{0., 0.}, {10., 5.}}]}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10.}, {0, 5.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.828501411020172*^9, 3.8285014817451916`*^9, {3.828501528983101*^9, 
   3.8285015625490685`*^9}, 3.828502110948927*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"59cbe40f-87fe-4944-b201-03ce5fa7af5a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ilustrace z \[CHacek]esk\[EAcute] wikipedie II", "Section",
 CellChangeTimes->{{3.8285016447148237`*^9, 3.828501660647417*^9}, 
   3.828501798302432*^9, {3.828501893668643*^9, 3.8285019001672683`*^9}, {
   3.8285021921905613`*^9, 
   3.828502220051635*^9}},ExpressionUUID->"7b254e87-1ba7-4f5e-b2f8-\
0c2c6e3a17bd"],

Cell["\<\
https://cs.wikipedia.org/wiki/Simpson%C5%AFv_paradox\[LineSeparator]\
\[LineSeparator]Speci\[AAcute]ln\[IAcute] opera\[CHacek]n\[IAcute] postup m\
\[AAcute] ve skupin\[EHacek] v\[SHacek]ech pacient\[URing] vy\[SHacek]\
\[SHacek]\[IAcute] \[UAcute]sp\[EHacek]\[SHacek]nost, \
p\[RHacek]esto\[ZHacek]e v ka\[ZHacek]d\[EAcute] \
d\[IAcute]l\[CHacek]\[IAcute] skupin\[EHacek] zvl\[AAcute]\[SHacek]\[THacek] \
byl (procentu\[AAcute]ln\[EHacek]) m\[EAcute]n\[EHacek] \[UAcute]sp\[EHacek]\
\[SHacek]n\[YAcute].\
\>", "Text",
 CellChangeTimes->{{3.8285018334343553`*^9, 3.8285018727861*^9}, {
  3.828501921547326*^9, 3.8285019241333623`*^9}, {3.828502069494385*^9, 
  3.828502107679245*^9}, {3.8285024295631433`*^9, 
  3.8285024739056787`*^9}},ExpressionUUID->"4b32175a-ed78-48ec-8683-\
94ef3ec7f5f5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a1", "=", "81"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "\[UAcute]sp\[EHacek]\[SHacek]n\[EAcute]", " ", "klasick\[EAcute]", " ", 
     "operace"}], ",", " ", 
    RowBox[{"mal\[EAcute]", " ", "kameny"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"N1", "=", "87"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"celkem", " ", "klasick\[YAcute]ch", " ", "operac\[IAcute]"}], 
     ",", " ", 
     RowBox[{"mal\[EAcute]", " ", "kameny"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"b1", "=", "192"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "\[UAcute]sp\[EHacek]\[SHacek]n\[EAcute]", " ", "klasick\[EAcute]", " ", 
     "operace"}], ",", " ", 
    RowBox[{"velk\[EAcute]", " ", "kameny"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M1", "=", "263"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"celkem", " ", "klasick\[YAcute]ch", " ", "operac\[IAcute]"}], 
     ",", " ", 
     RowBox[{"velk\[EAcute]", " ", "kameny"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"a2", "=", "234"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "\[UAcute]sp\[EHacek]\[SHacek]n\[EAcute]", " ", 
     "speci\[AAcute]ln\[IAcute]", " ", "operace"}], ",", " ", 
    RowBox[{"mal\[EAcute]", " ", "kameny"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"N2", "=", "270"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "celkem", " ", "speci\[AAcute]ln\[IAcute]ch", " ", "operac\[IAcute]"}], 
     ",", " ", 
     RowBox[{"mal\[EAcute]", " ", "kameny"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"b2", "=", "55"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "\[UAcute]sp\[EHacek]\[SHacek]n\[EAcute]", " ", 
     "speci\[AAcute]ln\[IAcute]", " ", "operace"}], ",", " ", 
    RowBox[{"velk\[EAcute]", " ", "kameny"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2", "=", "80"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "celkem", " ", "speci\[AAcute]ln\[IAcute]ch", " ", "operac\[IAcute]"}], 
    ",", " ", 
    RowBox[{"velk\[EAcute]", " ", "kameny"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"N1", ",", "a1"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"N2", ",", "a2"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"M1", ",", "b1"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"M2", ",", "b2"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"N1", "+", "M1"}], ",", 
          RowBox[{"a1", "+", "b1"}]}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"N2", "+", "M2"}], ",", 
          RowBox[{"a2", "+", "b2"}]}], "}"}]}], "}"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Orange", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Orange", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Orange", ",", "Blue"}], 
      "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.828497985444533*^9, 3.828498056358571*^9}, {
  3.8285013678302565`*^9, 3.8285014081178226`*^9}, {3.8285014696593065`*^9, 
  3.828501479635225*^9}, {3.8285015227947483`*^9, 3.828501561131885*^9}, {
  3.8285019408145304`*^9, 3.8285020485643463`*^9}, {3.828502256321266*^9, 
  3.8285022825262594`*^9}, {3.828502314784425*^9, 3.8285024089760976`*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"581260c6-e3e3-49a0-ae44-427e20e09ce5"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {87., 81.}}]}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {270., 234.}}]}, 
    {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {263., 192.}}]}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[{{0., 0.}, {80., 55.}}]}, 
    {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], LineBox[{{0., 0.}, {350., 273.}}]}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], LineBox[{{0., 0.}, {350., 289.}}]}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 350.}, {0, 289.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.828501411020172*^9, 3.8285014817451916`*^9, {3.828501528983101*^9, 
   3.8285015625490685`*^9}, 3.828502110948927*^9, 3.8285022828995185`*^9, 
   3.8285025044970407`*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"e7817ddb-2dd8-4f8c-b135-1311f7a0827a"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{874, 545},
WindowMargins->{{Automatic, 104}, {Automatic, 30}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 254, 4, 154, "Section",ExpressionUUID->"fcdc40c6-40e4-4f67-a66a-2784fe9f10ef"],
Cell[837, 28, 295, 5, 86, "Text",ExpressionUUID->"df6e14cd-91d1-45fe-b08d-907162e0c676"],
Cell[CellGroupData[{
Cell[1157, 37, 4046, 117, 450, "Input",ExpressionUUID->"7bbca89a-bccd-4fe0-bbbe-7e789b3b268f"],
Cell[5206, 156, 2023, 45, 359, "Output",ExpressionUUID->"ffa54eab-ac0a-4fb7-a8f7-9f1d04e4fc1c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7278, 207, 319, 5, 99, "Section",ExpressionUUID->"83aa474b-d915-4b45-8365-68e816c3bfae"],
Cell[7600, 214, 629, 11, 153, "Text",ExpressionUUID->"ea465905-94a2-44c4-9fee-f5da6a8db8bb"],
Cell[CellGroupData[{
Cell[8254, 229, 4252, 116, 450, "Input",ExpressionUUID->"1df6660a-e50a-474d-a1d0-eabb2c10bcc5"],
Cell[12509, 347, 2037, 47, 374, "Output",ExpressionUUID->"59cbe40f-87fe-4944-b201-03ce5fa7af5a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14595, 400, 320, 5, 99, "Section",ExpressionUUID->"7b254e87-1ba7-4f5e-b2f8-0c2c6e3a17bd"],
Cell[14918, 407, 803, 14, 153, "Text",ExpressionUUID->"4b32175a-ed78-48ec-8683-94ef3ec7f5f5"],
Cell[CellGroupData[{
Cell[15746, 425, 4621, 135, 450, "Input",ExpressionUUID->"581260c6-e3e3-49a0-ae44-427e20e09ce5"],
Cell[20370, 562, 2110, 48, 400, "Output",ExpressionUUID->"e7817ddb-2dd8-4f8c-b135-1311f7a0827a"]
}, Open  ]]
}, Open  ]]
}
]
*)