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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     25040,        682]
NotebookOptionsPosition[     24686,        665]
NotebookOutlinePosition[     25029,        680]
CellTagsIndexPosition[     24986,        677]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Koza na polovin\[EHacek] kruhov\[EAcute] zahrady\
\>", "Title",
 CellChangeTimes->{{3.409063469921875*^9, 3.409063485625*^9}, {
  3.4157295121724176`*^9, 3.4157295270630426`*^9}, {3.415882137220565*^9, 
  3.415882139408065*^9}, {3.416418036875*^9, 3.416418044109375*^9}, {
  3.4164789362482786`*^9, 3.4164789440295286`*^9}, {3.418906693520979*^9, 
  3.418906718802229*^9}, {3.420713056385069*^9, 3.420713075697569*^9}, {
  3.51767618471875*^9, 3.5176761899375*^9}, {3.51767645178125*^9, 
  3.517676467078125*^9}, {3.5189524479375*^9, 3.518952455984375*^9}}],

Cell[TextData[{
 "Tento notebook poskytuje \[RHacek]e\[SHacek]en\[IAcute] n\[AAcute]sleduj\
\[IAcute]c\[IAcute] \[UAcute]lohy:\nZahrada kruhov\[EAcute]ho tvaru \
m\[AAcute] polom\[EHacek]r ",
 StyleBox["r",
  FontSlant->"Italic"],
 "\[NonBreakingSpace]=\[NonBreakingSpace]10\[NonBreakingSpace]m. Do zahrady \
um\[IAcute]st\[IAcute]me kozu, kterou p\[RHacek]iv\[AAcute]\[ZHacek]eme \
provazem ke kol\[IAcute]ku zatlu\[CHacek]en\[EAcute]mu \
v\[NonBreakingSpace]obvodu zahrady. Jakou d\[EAcute]lku mus\[IAcute] m\
\[IAcute]t provaz, aby koza sp\[AAcute]sla pr\[AAcute]v\[EHacek] polovinu \
zahrady?\n\n",
 StyleBox["\[Copyright] Jaroslav Reichl, 2011",
  FontSize->11]
}], "Text",
 CellChangeTimes->{{3.40907696590625*^9, 3.409077108171875*^9}, {
   3.409145551578125*^9, 3.409145631390625*^9}, {3.409145667296875*^9, 
   3.40914567334375*^9}, {3.409147204421875*^9, 3.409147399171875*^9}, 
   3.409147598234375*^9, {3.409221071546875*^9, 3.409221072453125*^9}, {
   3.409409197265625*^9, 3.409409294328125*^9}, {3.409409625859375*^9, 
   3.409409666515625*^9}, {3.409409711515625*^9, 3.409409722359375*^9}, {
   3.4094137924375*^9, 3.40941380440625*^9}, 3.40949534953125*^9, 
   3.409504773171875*^9, {3.41563912934375*^9, 3.4156391795625*^9}, {
   3.41588214879869*^9, 3.415882337564315*^9}, {3.4164789539826536`*^9, 
   3.4164789697014036`*^9}, {3.4164790042795286`*^9, 
   3.4164790054514036`*^9}, {3.4164820108420286`*^9, 
   3.4164820302951536`*^9}, {3.418906745599104*^9, 3.418906939052229*^9}, {
   3.418906989786604*^9, 3.418907049770979*^9}, {3.420713101697569*^9, 
   3.420713175447569*^9}, {3.420713248260069*^9, 3.420713328760069*^9}, {
   3.517676195609375*^9, 3.5176763660625*^9}, {3.517676399640625*^9, 
   3.5176763998125*^9}, {3.51767658446875*^9, 3.517676634875*^9}, {
   3.518952462640625*^9, 3.518952500984375*^9}},
 FontFamily->"Times New Roman",
 FontSize->14],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"r", "=", "10"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"stredx1", "=", "0"}], ";", 
  RowBox[{"stredy1", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"stredx2", "=", "r"}], ";", 
   RowBox[{"stredy2", "=", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tloustka", "=", "0.007"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"velikostbodu", "=", "0.025"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barva", "=", "Black"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvakrivky", "=", "Red"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvakce", "=", "Black"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvastredu", "=", "Black"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvacary1", "=", "Red"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvacary2", "=", "Blue"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvauhel1", "=", "barvacary1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvauhel2", "=", "barvacary2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"barvavysky", "=", 
    RowBox[{"Darker", "[", "Green", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"funkce", "[", "R_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      SuperscriptBox["R", "2"], 
      RowBox[{"ArcCos", "[", 
       FractionBox["R", 
        RowBox[{"2", "r"}]], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["r", "2"], 
      RowBox[{"(", 
       RowBox[{"\[Pi]", "-", 
        RowBox[{"2", 
         RowBox[{"ArcCos", "[", 
          FractionBox["R", 
           RowBox[{"2", "r"}]], "]"}]}]}], ")"}]}], "-", 
     RowBox[{"R", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "-", 
        FractionBox[
         SuperscriptBox["R", "2"], "4"]}]]}], "-", 
     FractionBox[
      RowBox[{"\[Pi]", " ", 
       SuperscriptBox["r", "2"]}], "2"]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Vykresleni", " ", "grafu", " ", 
    RowBox[{"funkce", "."}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"funkce", "[", "R", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"R", ",", "0", ",", 
      RowBox[{"2", "r"}]}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "tloustka", "]"}], ",", "barvakrivky"}], 
      "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\!\(\*FractionBox[
StyleBox[\"R\",
FontSlant->\"Italic\"], \"m\"]\)\>\"", ",", "12", ",", "barva", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\!\(\*FractionBox[
RowBox[{
StyleBox[\"f\",
FontSlant->\"Italic\"], 
RowBox[{
StyleBox[\"(\",
FontSlant->\"Italic\"], 
StyleBox[\"R\",
FontSlant->\"Italic\"], 
StyleBox[\")\",
FontSlant->\"Plain\"]}]}], SuperscriptBox[\"m\", \"2\"]]\)\>\"", ",", "12", 
         ",", "barva", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}]}], "}"}]}], ",", 
    RowBox[{"FormatType", "\[Rule]", "StandardForm"}]}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Nalezen\[IAcute]", " ", "\[RHacek]e\[SHacek]en\[IAcute]", " ", "a", " ", 
    "jeho", " ", 
    RowBox[{"v\[YAcute]pis", "."}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reseni", "=", 
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"funkce", "[", "R", "]"}], "\[Equal]", "0"}], ",", 
     RowBox[{"{", 
      RowBox[{"R", ",", "r"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"polomer", "=", 
   RowBox[{"R", "/.", 
    RowBox[{
    "reseni", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Hledan\[AAcute] d\[EAcute]lka provazu je \>\"", ",", "polomer", ",", 
    "\"\< m.\>\""}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "V\[YAcute]po\[CHacek]et", " ", "pr\[URing]se\[CHacek]\[IAcute]k\[URing]", 
    " ", "obou", " ", "uva\[ZHacek]ovan\[YAcute]ch", " ", 
    RowBox[{"kru\[ZHacek]nic", "."}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rcekce1", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "-", "stredx1"}], ")"}], "2"], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"y", "-", "stredy1"}], ")"}], "2"], "-", 
    SuperscriptBox["r", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rcekce2", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "-", "stredx2"}], ")"}], "2"], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"y", "-", "stredy2"}], ")"}], "2"], "-", 
    SuperscriptBox["polomer", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reseni", "=", 
   RowBox[{"Quiet", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"rcekce1", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"rcekce2", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"prusecikx1", "=", 
   RowBox[{"x", "/.", 
    RowBox[{"reseni", "\[LeftDoubleBracket]", 
     RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pruseciky1", "=", 
   RowBox[{"y", "/.", 
    RowBox[{"reseni", "\[LeftDoubleBracket]", 
     RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"prusecikx2", "=", 
   RowBox[{"x", "/.", 
    RowBox[{"reseni", "\[LeftDoubleBracket]", 
     RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pruseciky2", "=", 
    RowBox[{"y", "/.", 
     RowBox[{"reseni", "\[LeftDoubleBracket]", 
      RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}]}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "V\[YAcute]po\[CHacek]et", " ", "paty", " ", "v\[YAcute]\[SHacek]ky", " ",
      "v", " ", "troj\[UAcute]heln\[IAcute]ku"}], ",", " ", 
    RowBox[{
    "aby", " ", "bylo", " ", "mo\[ZHacek]n\[EAcute]", " ", "tuto", " ", 
     "v\[YAcute]\[SHacek]ku", " ", 
     RowBox[{"vykreslit", "."}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"normvektorvysky", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"stredx2", "-", "prusecikx2"}], ",", 
     RowBox[{"stredy2", "-", "pruseciky2"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"primka1", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
      "normvektorvysky", "\[LeftDoubleBracket]", "2", 
       "\[RightDoubleBracket]"}]}], "x"}], "+", 
    RowBox[{
     RowBox[{
     "normvektorvysky", "\[LeftDoubleBracket]", "1", 
      "\[RightDoubleBracket]"}], "y"}], "+", "q1pom"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"primka2", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{
     "normvektorvysky", "\[LeftDoubleBracket]", "1", 
      "\[RightDoubleBracket]"}], "x"}], "+", 
    RowBox[{
     RowBox[{
     "normvektorvysky", "\[LeftDoubleBracket]", "2", 
      "\[RightDoubleBracket]"}], "y"}], "+", "q2pom"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reseni", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"primka1", "[", 
       RowBox[{"stredx2", ",", "stredy2"}], "]"}], "\[Equal]", "0"}], ",", 
     "q1pom"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{"q1pom", "/.", 
    RowBox[{
    "reseni", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"primkanova", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"primka1", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "/.", 
    RowBox[{"q1pom", "\[Rule]", "q1"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reseni", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"primka2", "[", 
       RowBox[{"stredx1", ",", "stredy1"}], "]"}], "\[Equal]", "0"}], ",", 
     "q2pom"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{"q2pom", "/.", 
    RowBox[{
    "reseni", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"primkavyska", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"primka2", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "/.", 
    RowBox[{"q2pom", "\[Rule]", "q2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reseni", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"primkavyska", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"primkanova", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"patax", "=", 
   RowBox[{"x", "/.", 
    RowBox[{"reseni", "\[LeftDoubleBracket]", 
     RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"patay", "=", 
    RowBox[{"y", "/.", 
     RowBox[{"reseni", "\[LeftDoubleBracket]", 
      RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Vykresleni", " ", "kru\[ZHacek]nice", " ", "a", " ", "jejich", " ", 
    "parametr\[URing]", " ", "nutn\[YAcute]ch", " ", "pro", " ", 
    "v\[YAcute]po\[CHacek]et", " ", 
    RowBox[{"obsahu", "."}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"barvastredu", ",", 
       RowBox[{"PointSize", "[", "velikostbodu", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"stredx1", ",", "stredy1"}], "}"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(S\), \(1\)]\)\>\"", ",", "17", ",", 
         "barvastredu", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"stredx1", "-", 
          RowBox[{"0.15", "r"}]}], ",", "stredy1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"barvakce", ",", 
       RowBox[{"Thickness", "[", "tloustka", "]"}], ",", 
       RowBox[{"Circle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"stredx1", ",", "stredy1"}], "}"}], ",", "r"}], "]"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"barvastredu", ",", 
       RowBox[{"PointSize", "[", "velikostbodu", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"stredx2", ",", "stredy2"}], "}"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(S\), \(2\)]\)\>\"", ",", "17", ",", 
         "barvastredu", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"stredx2", "+", 
          RowBox[{"0.1", "polomer"}]}], ",", "stredy2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Left", ",", "Center"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"barvakce", ",", 
       RowBox[{"Thickness", "[", 
        RowBox[{"0.7", "tloustka"}], "]"}], ",", "Dashed", ",", 
       RowBox[{"Circle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"stredx2", ",", "stredy2"}], "}"}], ",", "polomer"}], 
        "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"barvacary1", ",", 
       RowBox[{"Thickness", "[", 
        RowBox[{"0.6", "tloustka"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"prusecikx1", ",", "pruseciky1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"stredx2", ",", "stredy2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"prusecikx2", ",", "pruseciky2"}], "}"}]}], "}"}], "]"}]}],
       "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"barvacary2", ",", 
       RowBox[{"Thickness", "[", 
        RowBox[{"0.6", "tloustka"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"prusecikx1", ",", "pruseciky1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"stredx1", ",", "stredy1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"prusecikx2", ",", "pruseciky2"}], "}"}]}], "}"}], "]"}]}],
       "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"barvacary2", ",", 
       RowBox[{"Thickness", "[", 
        RowBox[{"0.6", "tloustka"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"stredx1", ",", "stredy1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"stredx2", ",", "stredy2"}], "}"}]}], "}"}], "]"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<A\>\"", ",", "17", ",", "barvastredu", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"prusecikx2", ",", 
         RowBox[{"pruseciky2", "+", 
          RowBox[{"0.1", "r"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Center", ",", "Bottom"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<B\>\"", ",", "17", ",", "barvastredu", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"prusecikx1", ",", 
         RowBox[{"pruseciky1", "-", 
          RowBox[{"0.1", "r"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Center", ",", "Top"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"barvauhel1", ",", 
       RowBox[{"Thickness", "[", 
        RowBox[{"0.5", "tloustka"}], "]"}], ",", 
       RowBox[{"Circle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"stredx2", ",", "stredy2"}], "}"}], ",", 
         RowBox[{"0.3", "polomer"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Pi]", "-", 
            RowBox[{"ArcCos", "[", 
             FractionBox["polomer", 
              RowBox[{"2", "r"}]], "]"}]}], ",", "\[Pi]"}], "}"}]}], "]"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[CurlyPhi]\>\"", ",", "17", ",", "barvauhel1", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"r", "+", 
          RowBox[{"0.2", "polomer", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"\[Pi]", "-", 
             RowBox[{"0.5", 
              RowBox[{"ArcCos", "[", 
               FractionBox["polomer", 
                RowBox[{"2", "r"}]], "]"}]}]}], "]"}]}]}], ",", 
         RowBox[{"0.2", "polomer", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Pi]", "-", 
            RowBox[{"0.5", 
             RowBox[{"ArcCos", "[", 
              FractionBox["polomer", 
               RowBox[{"2", "r"}]], "]"}]}]}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Center", ",", "Center"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"barvauhel2", ",", 
       RowBox[{"Thickness", "[", 
        RowBox[{"0.5", "tloustka"}], "]"}], ",", 
       RowBox[{"Circle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"stredx1", ",", "stredy1"}], "}"}], ",", 
         RowBox[{"0.3", "r"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Pi]", "+", 
            RowBox[{"2", 
             RowBox[{"ArcCos", "[", 
              FractionBox["polomer", 
               RowBox[{"2", "r"}]], "]"}]}]}], ",", 
           RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[Gamma]\>\"", ",", "17", ",", "barvauhel2", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"0.2", "r", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{
            RowBox[{"-", "0.5"}], 
            RowBox[{"ArcCos", "[", 
             FractionBox["polomer", 
              RowBox[{"2", "r"}]], "]"}]}], "]"}]}], ",", 
         RowBox[{"0.2", "r", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"-", "0.5"}], 
            RowBox[{"ArcCos", "[", 
             FractionBox["polomer", 
              RowBox[{"2", "r"}]], "]"}]}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Center", ",", "Center"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"barvavysky", ",", 
       RowBox[{"Thickness", "[", 
        RowBox[{"0.6", "tloustka"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"patax", ",", "patay"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"stredx1", ",", "stredy1"}], "}"}]}], "}"}], "]"}]}], 
      "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FormatType", "\[Rule]", "StandardForm"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1.5"}], "polomer"}], ",", 
        RowBox[{"2", "polomer"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1.5"}], "polomer"}], ",", 
        RowBox[{"1.5", "polomer"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "481"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.518714795421875*^9, 3.5187149241875*^9}, 
   3.518714968359375*^9, {3.518715011953125*^9, 3.51871514159375*^9}, {
   3.518715875984375*^9, 3.518715907125*^9}, {3.51877796884375*^9, 
   3.518778671453125*^9}, {3.518778718109375*^9, 3.51877902184375*^9}, {
   3.51877917453125*^9, 3.518779224015625*^9}, {3.51877925421875*^9, 
   3.51877938840625*^9}, {3.51877948190625*^9, 3.518779604203125*^9}, {
   3.5187796349375*^9, 3.51877965821875*^9}, {3.5187797209375*^9, 
   3.5187797378125*^9}, {3.51877977253125*^9, 3.518780031921875*^9}, {
   3.51878007121875*^9, 3.518780134859375*^9}, {3.51878042215625*^9, 
   3.51878055196875*^9}, {3.51878061246875*^9, 3.518780853234375*^9}, {
   3.518780885859375*^9, 3.51878122534375*^9}, {3.51878126365625*^9, 
   3.518781290453125*^9}, {3.51878161853125*^9, 3.518781686390625*^9}, {
   3.518785043671875*^9, 3.51878511725*^9}, {3.518785340125*^9, 
   3.518785386484375*^9}, {3.5187857589375*^9, 3.518785858125*^9}, {
   3.518786072796875*^9, 3.518786098578125*^9}, {3.518786145203125*^9, 
   3.518786240484375*^9}, {3.5187863511875*^9, 3.51878635178125*^9}, 
   3.5187865336875*^9, {3.518786565515625*^9, 3.51878660715625*^9}, {
   3.518786643203125*^9, 3.51878665009375*^9}, {3.518786698703125*^9, 
   3.51878678725*^9}, {3.518786978015625*^9, 3.518786992828125*^9}, {
   3.518787027921875*^9, 3.518787087*^9}, 3.518787143921875*^9, {
   3.518787195640625*^9, 3.518787199375*^9}, {3.51878736103125*^9, 
   3.518787374421875*^9}, {3.518787411921875*^9, 3.51878746415625*^9}, {
   3.51878750053125*^9, 3.518787553921875*^9}, {3.518787907109375*^9, 
   3.518787920625*^9}, {3.51878831203125*^9, 3.518788336265625*^9}, {
   3.518869793046875*^9, 3.5188697938125*^9}, {3.51886984634375*^9, 
   3.51886996640625*^9}, 3.51887020425*^9, 3.51887034121875*^9, 
   3.51888936303125*^9, {3.518889407125*^9, 3.51888945584375*^9}, {
   3.51888948803125*^9, 3.51888960721875*^9}, {3.51889011021875*^9, 
   3.51889011175*^9}, {3.518952144625*^9, 3.518952291203125*^9}}]
}, Open  ]]
},
WindowSize->{715, 479},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 567, 9, 83, "Title"],
Cell[1149, 33, 1881, 33, 123, "Text"],
Cell[3033, 68, 21637, 594, 2033, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)