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

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

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     22259,        553]
NotebookOptionsPosition[     19916,        509]
NotebookOutlinePosition[     20353,        526]
CellTagsIndexPosition[     20310,        523]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Matematick\[EAcute] oper\[AAcute]cie - dialogov\[EAcute] okn\[AAcute]", \
"Title",
 CellChangeTimes->{{3.862126042675035*^9, 3.86212604992342*^9}},
 TextAlignment->Center,ExpressionUUID->"d43897e7-845a-478f-a89b-51813a53f2c1"],

Cell["\<\
Tento notebook sl\[UAcute]\[ZHacek]i ako grafick\[EAcute] \
precvi\[CHacek]ovanie matematick\[YAcute]ch operaci\[IAcute] pomocou dialogov\
\[YAcute]ch okien.\
\>", "Text",
 CellChangeTimes->{{3.8621260583626223`*^9, 3.862126109955111*^9}},
 TextAlignment->Center,ExpressionUUID->"cdbb5165-4d4a-4668-82b5-a8059b943c05"],

Cell["V tomto notebooku si pou\[ZHacek]\[IAcute]vate\:013e precvi\[CHacek]\
\[IAcute]:", "Text",
 CellChangeTimes->{{3.862126131147092*^9, 
  3.8621261428750806`*^9}},ExpressionUUID->"3f9dec08-7832-48b8-919b-\
a49dfbe5149a"],

Cell[BoxData[
 StyleBox[
  RowBox[{"\[Bullet]", " ", 
   RowBox[{"S\[CHacek]\[IAcute]tanie", ".", "\n", "\[Bullet]"}], " ", 
   RowBox[{"Od\[CHacek]\[IAcute]tanie", ".", "\n", "\[Bullet]"}], " ", 
   RowBox[{"N\[AAcute]sobenie", ".", "\n", "\[Bullet]"}], " ", 
   RowBox[{"Delenie", ".", "\n", "\[Bullet]"}], " ", 
   RowBox[{"Mocniny", "."}]}],
  FontWeight->"Bold"]], "Input",
 CellChangeTimes->{{3.8621261476799192`*^9, 
  3.862126196858961*^9}},ExpressionUUID->"6e8993ea-34b9-48f2-81fd-\
8af9e17a9bd8"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
    StyleBox["Autor",
     FontWeight->"Bold"], 
    StyleBox[" ",
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"notebooku", 
      StyleBox[":",
       FontWeight->"Bold"]}],
     FontWeight->"Bold"], 
    StyleBox[" ",
     FontWeight->"Bold"], 
    StyleBox["Matej",
     FontWeight->"Plain",
     FontSlant->"Italic"], 
    StyleBox[" ",
     FontWeight->"Plain",
     FontSlant->"Italic"], 
    StyleBox["Baco",
     FontWeight->"Plain",
     FontSlant->"Italic"], 
    StyleBox[" ",
     FontWeight->"Plain",
     FontSlant->"Italic"], 
    StyleBox["SWI",
     FontWeight->"Plain",
     FontSlant->"Italic"]}], 
   StyleBox[" ",
    FontWeight->"Bold"], 
   StyleBox[",",
    FontWeight->"Bold"], 
   StyleBox[" ",
    FontWeight->"Bold"], 
   StyleBox["2022",
    FontWeight->"Bold"]}],
  FontFamily->"Consolas",
  FontSize->12]], "Input",
 TextAlignment->Right,ExpressionUUID->"b59c8b63-b062-4e41-aabe-6a0b91041a73"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->GrayLevel[0.75],
 CellSize->{
  Inherited, 5},ExpressionUUID->"f31ad63a-7475-444d-99a4-2af4adbc5ddd"],

Cell[TextData[StyleBox["Dial\[OAcute]gov\[EAcute] okno na precvi\[CHacek]enie \
s\[CHacek]\[IAcute]tania",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.862126340787216*^9, 3.8621263558111124`*^9}},
 TextAlignment->Center,
 Background->GrayLevel[
  0.85],ExpressionUUID->"6f6402a4-6eac-4d29-8026-1cfad201d514"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 3.5, $CellContext`b$$ = 1, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1, "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 
      25, 0.1}, {{
       Hold[$CellContext`b$$], 1, "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25,
       25, 0.1}}, Typeset`size$$ = {134.77734375, {13., 17.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`b$$ = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Module[{}, 
        Graphics[{}, PlotLabel -> Style[
           Row[{
             Style[$CellContext`a$$, Magenta], 
             If[$CellContext`b$$ >= 0, " + ", " - "], 
             Style[$CellContext`b$$, Blue], " = ", 
             Style[$CellContext`a$$ + $CellContext`b$$, Green]}], Large]]], 
      "Specifications" :> {{{$CellContext`a$$, 1, 
          "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled"}, {{$CellContext`b$$, 1, 
          "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled"}}, 
      "Options" :> {
       ContentSize -> {300, 50}, Alignment -> Center, ControlPlacement -> 
        Center}, "DefaultOptions" :> {}],
     ImageSizeCache->{320., {68.13403309800196, 73.86596690199804}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8621128772496724`*^9, {3.8621129082895164`*^9, 3.862112942463025*^9}, {
   3.8621134820019054`*^9, 3.862113508774289*^9}, 3.862116596070882*^9, 
   3.86212627429116*^9, 3.862127013318245*^9},
 TextAlignment->Center,
 Background->RGBColor[1, 0.9, 0.8],
 CellLabel->"Out[1]=",ExpressionUUID->"ac3f370f-9c35-4381-9065-a17b6e048066"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->GrayLevel[0.75],
 CellSize->{
  Inherited, 5},ExpressionUUID->"dc9f30ab-d6fd-4dd4-b409-aa20efb6efda"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
   StyleBox["Dial\[OAcute]gov\[EAcute]", "Text",
    FontWeight->"Bold"], 
   StyleBox[" ", "Text",
    FontWeight->"Bold"], 
   StyleBox["okno", "Text",
    FontWeight->"Bold"], 
   StyleBox[" ", "Text",
    FontWeight->"Bold"], 
   StyleBox["na", "Text",
    FontWeight->"Bold"], 
   StyleBox[" ", "Text",
    FontWeight->"Bold"], 
   StyleBox["precvi\[CHacek]enie", "Text",
    FontWeight->"Bold"], 
   StyleBox[" ", "Text",
    FontWeight->"Bold"], 
   StyleBox[
    RowBox[{
     StyleBox["n", "Text",
      FontWeight->"Bold"], "\[AAcute]sobenia"}]]}], "Text",
  FontWeight->"Bold"]], "Input",
 CellChangeTimes->{{3.8621685506282215`*^9, 3.8621685534677863`*^9}},
 TextAlignment->Center,
 Background->GrayLevel[
  0.85],ExpressionUUID->"ca5376b9-461e-48be-ae6c-61e37c6f6713"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 2, $CellContext`b$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1, "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 
      25, 0.1}, {{
       Hold[$CellContext`b$$], 1, "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25,
       25, 0.1}}, Typeset`size$$ = {92.4140625, {13., 17.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`b$$ = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Module[{}, 
        Graphics[{}, PlotLabel -> Style[
           Row[{
             Style[$CellContext`a$$, Magenta], 
             If[$CellContext`b$$ >= 0, " * ", " * "], 
             Style[$CellContext`b$$, Blue], " = ", 
             Style[$CellContext`a$$ $CellContext`b$$, Green]}], Large]]], 
      "Specifications" :> {{{$CellContext`a$$, 1, 
          "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled"}, {{$CellContext`b$$, 1, 
          "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled"}}, 
      "Options" :> {
       ContentSize -> {300, 50}, Alignment -> Center, ControlPlacement -> 
        Center}, "DefaultOptions" :> {}],
     ImageSizeCache->{320., {68.13403309800196, 73.86596690199804}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.86211665836351*^9, 3.8621262817423987`*^9, 
  3.8621685569536057`*^9},
 TextAlignment->Center,
 Background->RGBColor[1, 0.9, 0.8],
 CellLabel->"Out[2]=",ExpressionUUID->"fc6cd410-f978-49d4-a4a4-b1f60bc4a1f0"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->GrayLevel[0.75],
 CellSize->{
  Inherited, 5},ExpressionUUID->"4d9555b9-ff8d-4c61-90d7-b698923b2579"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Dial\[OAcute]gov\[EAcute]", " ", "okno", " ", "na", " ", 
   "precvi\[CHacek]enie", " ", "od\[CHacek]\[IAcute]tania"}], "Text",
  FontWeight->"Bold"]], "Input",
 CellChangeTimes->{{3.862126384655898*^9, 3.862126396931675*^9}, 
   3.8621685489892125`*^9},
 TextAlignment->Center,
 Background->GrayLevel[
  0.85],ExpressionUUID->"afcdf089-2f3d-45b6-bee4-4181c98e41fb"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 
    0.20000000000000284`, $CellContext`b$$ = -0.7999999999999972, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1, "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 
      25, 0.1}, {{
       Hold[$CellContext`b$$], 1, "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25,
       25, 0.1}}, Typeset`size$$ = {156.4609375, {13., 17.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`b$$ = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Module[{}, 
        Graphics[{}, PlotLabel -> Style[
           Row[{
             Style[$CellContext`a$$, Magenta], 
             If[$CellContext`b$$ >= 0, " - ", " - "], 
             Style[$CellContext`b$$, Blue], " = ", 
             Style[$CellContext`a$$ - $CellContext`b$$, Green]}], Large]]], 
      "Specifications" :> {{{$CellContext`a$$, 1, 
          "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled"}, {{$CellContext`b$$, 1, 
          "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled"}}, 
      "Options" :> {
       ContentSize -> {300, 50}, Alignment -> Center, ControlPlacement -> 
        Center}, "DefaultOptions" :> {}],
     ImageSizeCache->{320., {68.13403309800196, 73.86596690199804}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.862116663001712*^9, 3.8621166641387663`*^9}, 
   3.862126287962722*^9},
 TextAlignment->Center,
 Background->RGBColor[1, 0.9, 0.8],
 CellLabel->"Out[3]=",ExpressionUUID->"26c97952-42d5-4c0d-982a-72d2fb1f06f4"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->GrayLevel[0.75],
 CellSize->{
  Inherited, 5},ExpressionUUID->"b2e85747-25c2-42ac-9c01-1a0dcdaebba9"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Dial\[OAcute]gov\[EAcute]", " ", "okno", " ", "na", " ", 
   "precvi\[CHacek]enie", " ", "delenia"}], "Text",
  FontWeight->"Bold"]], "Input",
 CellChangeTimes->{{3.8621263859586563`*^9, 3.8621264008272696`*^9}},
 TextAlignment->Center,
 Background->GrayLevel[
  0.85],ExpressionUUID->"2a3a22a9-c8e4-4796-94fe-d48a5e3456e1"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 15, $CellContext`b$$ = 1.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1, "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 
      25, 0.1}, {{
       Hold[$CellContext`b$$], 1, "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25,
       25, 0.1}}, Typeset`size$$ = {140.77734375, {13., 17.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`b$$ = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Module[{}, 
        Graphics[{}, PlotLabel -> Style[
           Row[{
             Style[$CellContext`a$$, Magenta], 
             If[$CellContext`b$$ >= 0, " / ", " / "], 
             Style[$CellContext`b$$, Blue], " = ", 
             Style[$CellContext`a$$/$CellContext`b$$, Green]}], Large]]], 
      "Specifications" :> {{{$CellContext`a$$, 1, 
          "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled"}, {{$CellContext`b$$, 1, 
          "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled"}}, 
      "Options" :> {
       ContentSize -> {300, 50}, Alignment -> Center, ControlPlacement -> 
        Center}, "DefaultOptions" :> {}],
     ImageSizeCache->{320., {68.13403309800196, 73.86596690199804}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8621165718942256`*^9, 3.86211663088402*^9, 3.862116672856002*^9, 
   3.862116704132204*^9, {3.8621178114045086`*^9, 3.862117822918104*^9}, 
   3.862126293989908*^9, {3.8621686317878847`*^9, 3.862168650521141*^9}},
 TextAlignment->Center,
 Background->RGBColor[1, 0.9, 0.8],
 CellLabel->"Out[4]=",ExpressionUUID->"a70ec85e-beb1-47e7-b231-6a0c4e206aea"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->GrayLevel[0.75],
 CellSize->{
  Inherited, 5},ExpressionUUID->"5b40cabf-c934-403b-a7db-30b9c9589222"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Dial\[OAcute]gov\[EAcute]", " ", "okno", " ", "na", " ", 
   "precvi\[CHacek]enie", " ", "mocn\[IAcute]n"}], "Text",
  FontWeight->"Bold"]], "Input",
 CellChangeTimes->{{3.862126387246235*^9, 3.862126403963236*^9}},
 TextAlignment->Center,
 Background->GrayLevel[
  0.85],ExpressionUUID->"e74d292a-9410-48c3-9faa-a95e0193ab5f"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 2, $CellContext`b$$ = 3, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1, "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 
      25, 0.1}, {{
       Hold[$CellContext`b$$], 1, "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25,
       25, 0.1}}, Typeset`size$$ = {91.9921875, {13., 17.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`b$$ = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Module[{}, 
        Graphics[{}, PlotLabel -> Style[
           Row[{
             Style[$CellContext`a$$, Magenta], 
             If[$CellContext`b$$ >= 0, " ^ ", " ^ "], 
             Style[$CellContext`b$$, Blue], " = ", 
             Style[$CellContext`a$$^$CellContext`b$$, Green]}], Large]]], 
      "Specifications" :> {{{$CellContext`a$$, 1, 
          "Prv\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled", ControlPlacement -> 
         Center}, {{$CellContext`b$$, 1, 
          "Druh\[EAcute] \[CHacek]\[IAcute]slo"}, -25, 25, 0.1, Appearance -> 
         "Labeled", ControlPlacement -> Center}}, 
      "Options" :> {
       ContentSize -> {350, 50}, Alignment -> Center, ControlPlacement -> 
        Center}, "DefaultOptions" :> {}],
     ImageSizeCache->{370., {68.13403309800196, 73.86596690199804}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8621178624331093`*^9, 3.862126300297408*^9, {3.8621265491218104`*^9, 
   3.86212659179311*^9}, {3.8621266841630573`*^9, 3.8621268397565794`*^9}, 
   3.862126914435347*^9, {3.862126987107648*^9, 3.8621269936200523`*^9}, {
   3.862168694176157*^9, 3.862168700171754*^9}},
 TextAlignment->Center,
 Background->RGBColor[1, 0.9, 0.8],
 CellLabel->"Out[33]=",ExpressionUUID->"ec7216f3-f371-4957-b312-6b3be160f83e"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1440., 777.75},
WindowMargins->{{Automatic, 1434}, {-3, Automatic}},
Magnification:>1. Inherited,
FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"cdbefb22-6b87-4579-8b91-bcb36b84538b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 232, 3, 98, "Title",ExpressionUUID->"d43897e7-845a-478f-a89b-51813a53f2c1"],
Cell[815, 27, 328, 6, 35, "Text",ExpressionUUID->"cdbb5165-4d4a-4668-82b5-a8059b943c05"],
Cell[1146, 35, 224, 4, 35, "Text",ExpressionUUID->"3f9dec08-7832-48b8-919b-a49dfbe5149a"],
Cell[1373, 41, 506, 11, 105, "Input",ExpressionUUID->"6e8993ea-34b9-48f2-81fd-8af9e17a9bd8"],
Cell[1882, 54, 982, 40, 27, "Input",ExpressionUUID->"b59c8b63-b062-4e41-aabe-6a0b91041a73"],
Cell[2867, 96, 327, 10, 10, "Text",ExpressionUUID->"f31ad63a-7475-444d-99a4-2af4adbc5ddd"],
Cell[3197, 108, 317, 6, 51, "Text",ExpressionUUID->"6f6402a4-6eac-4d29-8026-1cfad201d514"],
Cell[3517, 116, 2601, 52, 177, "Output",ExpressionUUID->"ac3f370f-9c35-4381-9065-a17b6e048066"],
Cell[6121, 170, 327, 10, 10, "Text",ExpressionUUID->"dc9f30ab-d6fd-4dd4-b409-aa20efb6efda"],
Cell[CellGroupData[{
Cell[6473, 184, 817, 27, 47, "Input",ExpressionUUID->"ca5376b9-461e-48be-ae6c-61e37c6f6713"],
Cell[7293, 213, 2471, 50, 177, "Output",ExpressionUUID->"fc6cd410-f978-49d4-a4a4-b1f60bc4a1f0"]
}, Open  ]],
Cell[9779, 266, 327, 10, 10, "Text",ExpressionUUID->"4d9555b9-ff8d-4c61-90d7-b698923b2579"],
Cell[CellGroupData[{
Cell[10131, 280, 405, 10, 47, "Input",ExpressionUUID->"afcdf089-2f3d-45b6-bee4-4181c98e41fb"],
Cell[10539, 292, 2518, 51, 177, "Output",ExpressionUUID->"26c97952-42d5-4c0d-982a-72d2fb1f06f4"]
}, Open  ]],
Cell[13072, 346, 327, 10, 10, "Text",ExpressionUUID->"b2e85747-25c2-42ac-9c01-1a0dcdaebba9"],
Cell[CellGroupData[{
Cell[13424, 360, 363, 9, 47, "Input",ExpressionUUID->"2a3a22a9-c8e4-4796-94fe-d48a5e3456e1"],
Cell[13790, 371, 2622, 52, 177, "Output",ExpressionUUID->"a70ec85e-beb1-47e7-b231-6a0c4e206aea"]
}, Open  ]],
Cell[16427, 426, 327, 10, 10, "Text",ExpressionUUID->"5b40cabf-c934-403b-a7db-30b9c9589222"],
Cell[CellGroupData[{
Cell[16779, 440, 366, 9, 47, "Input",ExpressionUUID->"e74d292a-9410-48c3-9faa-a95e0193ab5f"],
Cell[17148, 451, 2740, 54, 177, "Output",ExpressionUUID->"ec7216f3-f371-4957-b312-6b3be160f83e"]
}, Open  ]]
}, Open  ]]
}
]
*)

