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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    282812,       5555]
NotebookOptionsPosition[    278394,       5430]
NotebookOutlinePosition[    278741,       5445]
CellTagsIndexPosition[    278698,       5442]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Bakal\[AAcute]\[RHacek]sk\[AAcute] pr\[AAcute]ce", \
"Title"]], "Text",
 CellChangeTimes->{{3.6992953570713563`*^9, 3.6992953592601085`*^9}}],

Cell[TextData[StyleBox["V\[YAcute]po\[CHacek]et rychlosti", "Chapter"]], \
"Text",
 CellChangeTimes->{{3.6992953774446516`*^9, 3.699295423014327*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Vstupn\[IAcute] hodnoty", "Section",
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.699295433209732*^9, 3.6992954362741327`*^9}, {
  3.6992956810520334`*^9, 3.699295685497322*^9}}],

Cell[BoxData[{
 RowBox[{"ClearAll", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"frek", "=", 
    StyleBox["16",
     FontColor->RGBColor[0, 1, 0]]}], 
   StyleBox[";",
    FontColor->GrayLevel[0]]}], 
  RowBox[{"(*", " ", 
   RowBox[{"frekvence", " ", "-", " ", 
    RowBox[{"[", "HZ", "]"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    StyleBox["h1",
     FontColor->GrayLevel[0]], 
    StyleBox["=",
     FontColor->GrayLevel[0]], 
    RowBox[{
     StyleBox["Quantity",
      FontColor->GrayLevel[0]], 
     StyleBox["[",
      FontColor->GrayLevel[0]], 
     RowBox[{
      StyleBox["0.005",
       FontColor->RGBColor[0, 1, 0]], 
      StyleBox[",",
       FontColor->GrayLevel[0]], 
      StyleBox["\"\<Meters\>\"",
       FontColor->GrayLevel[0]]}], 
     StyleBox["]",
      FontColor->GrayLevel[0]]}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"vych\[YAcute]len\[IAcute]", " ", "dolu"}], " ", "-", " ", 
    RowBox[{"[", "m", "]"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    StyleBox["h2",
     FontColor->GrayLevel[0]], 
    StyleBox["=",
     FontColor->GrayLevel[0]], 
    RowBox[{
     StyleBox["Quantity",
      FontColor->GrayLevel[0]], 
     StyleBox["[",
      FontColor->GrayLevel[0]], 
     RowBox[{
      StyleBox["0.001",
       FontColor->RGBColor[0, 1, 0]], 
      StyleBox[",",
       FontColor->GrayLevel[0]], 
      StyleBox["\"\<Meters\>\"",
       FontColor->GrayLevel[0]]}], 
     StyleBox["]",
      FontColor->GrayLevel[0]]}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"vych\[IAcute]len\[IAcute]", " ", "nahoru"}], " ", "-", " ", 
    RowBox[{"[", "m", "]"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cas", "=", "0"}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "okam\[ZHacek]it\[AAcute]", " ", "v\[YAcute]chylka", " ", "v", " ", 
     "\[CHacek]ase"}], " ", "-", " ", 
    RowBox[{"[", "s", "]"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rozmezi", "=", "0.1"}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"vykreslen\[IAcute]", " ", "na", " ", "grafu"}], " ", "-", " ", 
    RowBox[{"osa", " ", "x"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.699295457588401*^9, 3.6992954754150047`*^9}, 
   3.6992956854978247`*^9, {3.699296028389658*^9, 3.699296051041252*^9}, 
   3.699296855184723*^9, 3.6993579495303955`*^9, {3.6993579806978507`*^9, 
   3.6993579855836062`*^9}, 3.6993580523206005`*^9, 3.699452002437339*^9, {
   3.6994535532220263`*^9, 3.6994535646177735`*^9}, {3.6994537158317394`*^9, 
   3.6994537296176977`*^9}, {3.699453824627469*^9, 3.699453828169175*^9}, {
   3.699906758920252*^9, 3.699906759422041*^9}, {3.6999078069694624`*^9, 
   3.6999078649823933`*^9}, {3.700833780166021*^9, 3.700833780449473*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\[CapitalUAcute]prava jednotek", "Section",
 FontSize->24,
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.699295511345477*^9, 3.699295524694971*^9}, 
   3.6992956343181543`*^9, {3.6992965296821003`*^9, 3.6992965339902616`*^9}, {
   3.6992965782424436`*^9, 3.699296578496458*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   StyleBox[
    RowBox[{"f", "=", 
     RowBox[{"Quantity", "[", 
      RowBox[{"frek", ",", "\"\<Hertz\>\""}], "]"}]}],
    FontColor->GrayLevel[0]], ";"}], 
  RowBox[{"(*", " ", "frekvence", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"l", "=", 
    RowBox[{"h1", "+", "h2"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"celkov\[EAcute]", " ", "vych\[IAcute]len\[IAcute]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"upravadelka", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{"1", ",", "\"\<Meters\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"pro", " ", "\[UAcute]pravu", " ", "jednotek"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"h11", "=", 
    RowBox[{"h1", "/", "upravadelka"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"uprava", " ", "jednotek"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"h22", "=", 
    RowBox[{"h2", "/", "upravadelka"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"uprava", " ", "jednotek"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"l2", "=", 
    RowBox[{"l", "/", "upravadelka"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"uprava", " ", "jednotek"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]", "=", 
    RowBox[{"2", "*", "Pi", "*", "frek"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"uhlov\[AAcute]", " ", "frekvence"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]1", "=", 
    RowBox[{"2", "*", "Pi", "*", "f"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"\[UAcute]hlov\[AAcute]", " ", "rychlost"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"t1", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{"cas", ",", "\"\<Seconds\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", "jednotky", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tc", "=", 
    RowBox[{"UnitConvert", "[", 
     RowBox[{
      FractionBox["1", "f"], ",", "\"\<Seconds\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"\[CapitalCHacek]as", " ", "cyklu"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"uhel\[Alpha]", "=", 
    RowBox[{"ArcCos", "[", 
     FractionBox[
      FractionBox["l2", "2"], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["l2", "2"], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["1", 
           RowBox[{"2", "*", "frek"}]], ")"}], "2"]}]]], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"\[UAcute]prava", " ", "grafu"}], " ", "-", " ", 
    RowBox[{"za\[CHacek]\[AAcute]tek", " ", "v", " ", "nule"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"prepona", "=", 
    FractionBox["h11", 
     RowBox[{"Cos", "[", "uhel\[Alpha]", "]"}]]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"\[UAcute]prava", " ", "grafu"}], " ", "-", " ", 
    RowBox[{"za\[CHacek]\[AAcute]tek", " ", "v", " ", "nule"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"posuvx", "=", 
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", "prepona", ")"}], "2"], "-", 
       SuperscriptBox["h11", "2"]}]], "-", 
     FractionBox["1", 
      RowBox[{"2", "*", "frek"}]]}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"\[UAcute]prava", " ", "grafu"}], " ", "-", " ", 
    RowBox[{"za\[CHacek]\[AAcute]tek", " ", "v", " ", "nule"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6992955599549217`*^9, 3.6992956615863914`*^9}, {
  3.6992957693591256`*^9, 3.6992957703352003`*^9}, {3.6992962023559027`*^9, 
  3.6992962027978687`*^9}, {3.6992962433314257`*^9, 3.69929628671117*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["V\[YAcute]po\[CHacek]et", "Section",
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.6992956711535463`*^9, 3.6992956723522816`*^9}, 
   3.699295958534149*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   StyleBox[
    RowBox[{"H", "[", "t_", "]"}],
    FontColor->GrayLevel[0]], ":=", 
   RowBox[{
    RowBox[{
     FractionBox["l2", "2"], "*", 
     RowBox[{"Sin", "[", 
      RowBox[{"t", "*", "\[Omega]"}], "]"}]}], "-", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["l2", "2"], "-", "h22"}], ")"}]}]}], 
  RowBox[{"(*", " ", 
   RowBox[{"FUNKCE", " ", "V\[CapitalYAcute]CHYLKY"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"draha", "[", "t_", "]"}], ":=", 
    RowBox[{"Quantity", "[", 
     RowBox[{
      RowBox[{"H", "[", "t", "]"}], ",", "\"\<Meters\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"P\[RHacek]evod", " ", "funkce", " ", "na", " ", "jednotky"}], " ",
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"v", "[", "t_", "]"}], "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"H", "[", "t", "]"}], ",", "t"}], "]"}], ",", 
      FractionBox["\"\<Meters\>\"", "\"\<Seconds\>\""]}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Derivace", " ", "dr\[AAcute]hy", " ", "podle", " ", "\[CHacek]asu"}], 
    " ", "+", " ", 
    RowBox[{"p\[RHacek]evod", " ", "na", " ", "jednotky"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Graf", " ", "V\[YAcute]chylky"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"bod", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{
      RowBox[{"H", 
       StyleBox["[",
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["cas",
        FontColor->GrayLevel[0]], 
       StyleBox["]",
        FontColor->RGBColor[1, 0, 0]]}], ",", "\"\<Meters\>\""}], "]"}]}], 
   ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Vych\[YAcute]len\[IAcute]", " ", "v", " ", "\[CHacek]ase"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"draha", "[", "t", "]"}], ",", 
      RowBox[{"draha", "[", "cas", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "rozmezi"}], "}"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<H - v\[YAcute]chylka,\nZ\[AAcute]vislost dr\[AAcute]hy na \
\[CHacek]ase\>\"", ",", "\"\<okam\[ZHacek]it\[AAcute] v\[YAcute]chylka\>\""}],
       "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<t, \[CHacek]as [s]\>\"", ",", "\"\<H, V\[YAcute]chylka [m]\>\""}], 
      "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Graf", " ", "Rychlosti"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vo", "=", 
    RowBox[{"v", 
     StyleBox["[",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox["cas",
      FontColor->GrayLevel[0]], 
     StyleBox["]",
      FontColor->RGBColor[1, 0, 0]]}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Okam\[ZHacek]it\[AAcute]", " ", "rychlost"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"v", "[", "t", "]"}], ",", 
      RowBox[{"v", "[", "cas", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "rozmezi"}], "}"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<v - rychlost,\nZ\[AAcute]vislost rychlosti na \[CHacek]ase\>\"", 
       ",", "\"\<okam\[ZHacek]it\[AAcute] rychlost\>\""}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<t, \[CHacek]as [s]\>\"", ",", 
       "\"\<v, Rychlost [\!\(\*SuperscriptBox[\(ms\), \(-1\)]\)]\>\""}], 
      "}"}]}]}], "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<V\[YAcute]chylka: \>\"", ",", 
   RowBox[{"N", "[", 
    RowBox[{"Abs", "[", "bod", "]"}], "]"}], ",", "\"\<(\>\"", ",", 
   RowBox[{"UnitConvert", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"Abs", "[", "bod", "]"}], "]"}], ",", "\"\<Millimeters\>\""}], 
    "]"}], ",", "\"\<) , v \[CHacek]ase: \>\"", ",", "t1", ",", 
   "\"\<, s frekvenc\[IAcute] \>\"", ",", "f"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Okam\[ZHacek]it\[AAcute] rychlost: \>\"", ",", 
   RowBox[{"N", "[", 
    RowBox[{"Abs", "[", "vo", "]"}], "]"}], ",", "\"\<\[LongRightArrow]\>\"", 
   ",", 
   RowBox[{"UnitConvert", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"Abs", "[", "vo", "]"}], "]"}], ",", 
     "\"\<Millimeters*Seconds^-1\>\""}], "]"}], ",", 
   "\"\<) , v \[CHacek]ase: \>\"", ",", "t1", ",", 
   "\"\<, s frekvenc\[IAcute] \>\"", ",", "f"}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.699295723978693*^9, 3.699295731698516*^9}, {
   3.6992957775905514`*^9, 3.6992958154466476`*^9}, 3.6992959585346494`*^9, {
   3.6992960200496244`*^9, 3.6992960244570265`*^9}}]
}, Closed]],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVmHk4lG0UxhEiS7IUIktCQkUh4SDZlzdUSLYoZRtmPiFJIYUYu1Bkm7EV
M4MoHomSbNmKz5YtWUoqCeV7v39mrt/1vOfMfc59zjPXjJSbn7UHCxMTkxL+
8v973lwtqSNaSie23z7Mws0FXWERaqQJMsHHa5fJnyxd0IpwSEWCIB/cUEl4
fPO4C9IqKJMPE5SEhh0kqBZ0QWOfW9z/ETwET0dZuA3inVFlXA+Lv6AunPVi
8he3c0Kiox/e+Qpi4Nyu6CG9eA51sjvW+gi6QJu0sNxTqbNI8KOF/b0XBMhU
1FT9rGWK/FWyJtmmg4Djvt/DVCMVZCwVbLbEGgyO5y29kt8cRpJ8Z+lDMsEg
w7X/2YDZYdS5yB/xxD0Y5ENOCB88dQgpFMdI208Fg0ZW8DmnBkU0JRHiWjYZ
AsYuZ1qdduxDZ3jsx6wnQkG3NEF59AEH2kOKXezyC4fxc3Jtvu37YGd7j6vE
zXCokHcKV6TLAo+M6IBvUjhI7o6KE7svBxu91AaeqnDQ1d67PdFtPwypvkow
WwsH8o6u2tp5RUj9zqTyOvImdMs01WnPHwZuYmBgw/1boLH52rgmUgNY39bP
8ZTeAg6lX4TcOQ1Yl2ZzPv8cP6fcWBXGjsFcT7LRxugtyNAbY6oR0YRWlUph
TZkIYLK4tzWHchwilufrqh5HAN/39PDxch1Y83fdLHsZCYT+M8S9h/VhUKa5
pq83Egry50wn7PXh6XtZwsZkJJRt93L1vqUP/2gvjJuxRgEfn/30xx59WOK4
2jRnEAVB5SejrfxPwKecuCj5V1HAVKWQIlFgAH0dNVwFrbdBcl9Q28K4IdDD
RZvffrgNjQ08lCkWI0hSvR76ffY2lElifQUyRmB1X39RnzMaxPiF269fMoI2
947OjybRQDjL8ylhzgherE8kSryNhmZf0W/SM8bweD+vcFbHHWBEZw2E0kxB
WPsNn/jYHWg+7XE2tcsUIrBIzpylO3CkMz7/8oIp2F1dW8sTuAutl7eanNxn
BltaZkZK7O+CzMCb8FfJZmDngvLrpu/ChkAt19gFc2gihmRr/boLsy7i1SWh
5qAUfTS1gSMGGHW/vhxKNQeWx6W3mw7EQMa2zpfeLeZQvp5+uc0/BsTsr3Hl
SlsASzrh4NCfGHhO7zWa6bIA75ID8o7bY2Hc8km79ZQFvK+fkRyVjIW+s04D
QasWUDblyD9xIhaWzKe0vklYwlkVk5+f78YC60h1U6KXJTSdZP3ilRULfBOz
H1qvW4KiPZpZLIsFc780ltoES2AJP/rhW1csuPTfP9dMs4SyDqlnv4XiwNFN
tSHqpyXs+jhMvyYXB55vmzki2azg1o/0sj8acSAol8RyXMgKzu7mfcjsGAfP
9aj9PapWwHJ5LZwzLw5CFRtfUH2swDu0KjiWHgdPexvMva5ZwfsEQgBPSxwQ
SqYOztyxgrLqmQs7ZuNgqWfre9Z8PB9rr6GI8j2Qv7z0cKrXCmJInrdM4B6I
Kak1qo5ZQcPUn/pg7B5U3Em9qz1nBTIt8keHAu7B7NCFn+GbVmB3tIGwLfIe
qA2fNRhhxSC20KZMM/UecEd8sn7PicFyVNjerJp74NZSceiCAAayKwLOb1vv
QUjOnt8/dmFgf7E4c33wHlDpo6sXxDBoNOzb4bhxD5zsOxMHZTCI36rAJK4X
D4RZmffSRzBouoqOW1jHAynj0NaH6hj8/GR79fqFeAh4xGq3oomBY+uNLyNR
8SCtlGGto4cBWUNIgTc9Hrj/jP5SMsDgJbXEQ4caD+EvNxhrhhgo3O0fftgW
DwViI74HzDFw+n1FuOvfeHBpXbyUYIlB4mUm282FeHDM8ffvxjBoHkxNOPg3
Hoo+dNz9Yo3BqsmBt87bE0AlNvzJZ1sMFOsa2cmSCcD6RPLjizP4vahwRr/x
cAII73ESv2qHQVLm/PUl/QRwSWW+wOmAwattN2slbRMgr2qhIugcBmshO39i
HgmgwSrK3uKIgdJ86aGbgQnwYT7b9ct5DFzO6XlXRuPn9Y+afjhhkPJ2gPIx
IwEyn/jIf3DGoPW49+SOkgRw++iUlOGCwXops4T+swS4ZbewedQVA2WxdIeA
9gToYykiVODsFqeYljeSACHVR6a2umGQuvHiXc+XBOBQcXDQwtm9uvQ2MxMZ
msW+9VjgHOYbWHCfgww09kWL/88zZPWaDu8gA9XT4e3/8bRRrvE3ImTQKHAy
+z9/e9rAH1dpMhRs0ej8//NnLB/tXlPAuVbb9n99m+zex5JUyaD2cWzkPa5f
GKmdVdAig/51itf/9alcZf6nyYAMOkFqfxfx+s0Ptic5WJChLt8orRnvz8VP
aRXLp8kwVPP4yP/9C89x7YxxwvVa2w1x4P3NPKu4IH2JDAu/TO4E4v3veP1C
ziaIDLLT6cz/+zVzI+7kfDgZlijXuhZxP5k0zl6IuIvr86wu6cL9PkJdeEjP
JINM7KkEBXw+LF1qnpvlkwHzY8rON8HAU/jW0GQpGV7Z5D//jc9T1p1dOwXr
yeCSR9TTxudP/svX08ItZLC75JrjooNBtU1rqlgHGUSj7j3yOI5B955goX0j
ZHjIujNT8Cg+f5GnTu+fxvUwO6Y0HMZg/vP+VKVFMjTF0TVNlTFgrxoSVPtD
hjzlYynscrj/onRbTbZESNv/yUx9LwZS4bEpOjyJwH616KmJBAZaZlqCRuKJ
QNOTeyaA71vAxwcCdtqJoKnxtUyLDa/XKNDG8WQicLC6nb7GhMG9MstkF4tE
CB/sJav/sgLq1U3+y+cT4Xl8/RHWSSsY5XHlD7meCCSeX/fe1FiBiabMjuz6
RDC/FpS07YwVDORsYLkticBtqeTYbGwF7mz95IKORDhiJaOkf9wKwrqj+MpH
EiFOLpA9RsIKGBc/bW/4kwgyyoIxZtOWIJlcwjuunQTN7cJzDzws4fHqLcup
k0lQFifkkW1rCcedzsXPWiTBc1VymPMJSzizn5v32/kkWEobrFGVtIQ45MPD
EpYEoXsbrgq9t4Bf84e4ZRqS4Iif0MnWYxbQdvOod/+rJODwFDttu9cCHu7S
bL/dlQS2zlv9s7gtwODEibjP40nQ3b/Ie27UHN/X09xPtiSDexO94VGYOSia
hHBrmiSDt1S3nyPNDJjGwrznTyVDo81Fn0fpZtBLimjPdkgGR3mB9LxQMwjJ
jYvb9EoGY0J0/eBJM3j96yF3S3wyGOTfvCvebwpuRS+5sT48nkfQlueTCahp
tXozj+DxYX+q9rSaAGdPezttOhmedyWnLlJNoOJPf5zQr2SYTRiQb75sAn9s
Z7n/FUmB1RM0ubOzxpCxhYfnonMKcG/cdN8/aASdLmd4QudSIPzZn/iDMSdB
qMAz4f5yCvRtaJfUeZwEx08hO2rWUkDx9650Xr2TMOeTI7S8LRX64j7o7/hl
AOzXZsU9D6SCzJb5wEgXA4DUEGVb71QgFWleVN9/AirePLRS/JIKC2bvBG4k
6UKiyqfE4W9p4MmhV8iSehS0Ci4effc7DSRzniXwHjkKs0IzH1qY08HOaDG1
vucI6PyekniyIx1ySTKTbNuPwAKaKL95OB0yjP5yG0aogLHF6BtZ/3RweXfD
h1ilDEye/cz+S+lAoPf8axAvBYQHL/3ZvmbAktJLwpivEGoTKXMM3JUFnvWe
tRZrJxDf9822r6IPIE190Cxhwxq9G3E2qDTJgQj2hZ2Zp8+j9xVRceI1ufDq
VfsgW+8FpCWV+HSm+hGkKVXNE8I90flM6Tmb9jwwU4/Wzlf3QRvVX584d+dB
gal5zUljH5TZ+/wfr748SInZxzNu54MGuM8yRwznQfLiwb0bwT4IuxErTFvI
g74Lt/u6n/mgE+4/DPl48uH2UprWpLYv2q/8Kr/dIh9Wfx5ocj/uh36+uHz+
ZFc+RLtaaw7GEVD1ijmd0psPyYm8e9JTCCjowCHObR9wFoxss8wmoLWUFUbn
eD6crUYXS0sJiMkzgttuOR+yKdd5RNoIaBvvg2dXhAogeGvWgRds/kjSoVuE
fK4AhsNF3fYE+aOJeLrfsnMBjObaF2y74Y/yX6a12LoXgPaXNOalKH8kq3Te
X8SnANSSclcLk/3RAaa51rywAgg0kjBreOyP1Iq2BFU9KoCzMsYy2ZP+yGxZ
bWDoUwEoF+3onjMKQDoN3c/lFwpgce7vYp9FAFKJuZIfuFQA3R3TPTU2AUhU
+iGB/3cBuJ/oG7/kHIBmT7FxmW4rBIW1xgxCYACKrOyFWsVCCFFwm5HMD0DP
CYTidP9CMN9KC/m4EoAqtLaRp/8pBCz8yNPh9QCUz1EQqBpSCDl+brrdTEQU
k/v+RNetQtjVmCudu42I7Lp1RtlTCuH33432CXEi+nmQRyCwuhAcmfY0LOkT
kfLX4lDb9UL4W8XnIhxNRMOJpiS7zUIYfbtyqCeGiO4emfdy3FIEywJp3yPj
iWgqWPGcO1cRCBN7DPpTieg+65NjpN1F0Ki2+l6ygIhYRRkryceL4IuHdL8r
IiLac9sv6VAEr+qda4qbiMjZ+ed01okiqMrN8ZxrIaK6ArX+fLMiIK0KHjrT
TkR+B2vp9HNFkHvJevf7D0Q0ZNBA6L1WBCf2P68KXSKiO5+cPN/fKAKzTSwH
+05ER2M2nf+NKILYheJj4itERO7StZqMLYKc2urg3HUiOunwUul7VhFQWx79
smQnoQq/1jn+50VwuXo61FSUhJz4L0/sbCyCEqWZUqoYCXFVcQ6JNhfBPaNf
/pt7SOjimukb6fYi4Be/UZ+2l4R2R3VQVIZxfp6o4K1IQrcze9ytN4rw+9X6
YKUWCZ05fXehjIkCskGE/kYdEpLj0yVtZaOAbXJr2WtdEmqNKo94zkMBsU7d
z3UGJMTpfydPVgI/J/j5q5uT0NABULi5lwKSi5bBTJYkVDLzs/JfOQpMzJ6g
NFqRkKnjhRfkQ3h87xmCrA0JxRnpjK/pUeCD4UxKtD0JObL8vHTakAJ/LbeV
cp4jIcX60q9PTCnQrFY/csuRhDpURDbdbShAz4pOcXAmId49P8S73ClQeFf6
QI47CY1+KCncf5kCTXNbOIc8SOhJsqtSpA8F3NXurXNdIiGMs0vrWCAFstol
dp++TEKJP4rP5UdTIOGHl1KoDwm5PXGZ/BNLgUs8t+/7+ZKQypVdXnZkClxR
ZxF08COhnrHIEJ77FAj8HHxY0J+E8jKPs3g+oIC2s0rvJM7E08t3mx5RIKXp
VXhJAAkJvnW+f7WEAnPSJ/+IkUhoKmqnVM9jChz1kHzbijNDt4OqSKcASbIu
z+sfEopcjzgUXUOBvtNZEWyBJHS6WvPpx2cUcEu28UnDWdb/G2g1UsDyR5Dz
nqsktHKA+jqtmQIGUlT7BzinPRJ6b9ZBAVajGvfwINx/x3anoncU+HrmG2kK
Z/VdETNMAxQocP0cC8EkxNFzzPfcEAXY3zsWJ+L8IW7pZ9UoBYartncM4Uw1
olznm8T9iG1fEQ0hoSAWJzavTxQICnSXtcbZuF7wXss8BZ5IPTkXjrNI0FtB
ySUKhL+JSSvEeU7lVnbIDwqcOTY88ALnukUNmf5VCkB7vFg/zjHUr6UH/1Dg
t3fKpTGcHS4UqcYwU4ElbbpmHGeFPeefTbFRIe3UTZ5BnNc/CJyAbVRgHPPx
bMW5Pbmt7T4vFcSCqlof45xtedP6Bz8VdF55K8fhLDuuM8+6iwrj5d+aL+Bc
4b8RIbSbCiGpC9GqOGtuqROTlaACST306jpeb0vK1Sq1vVTwMm1OfoYzJnvU
0kiOCkI3F4eJOA/VLM+cPUAF+Zh9NjI4u5tU3PA8SAUtvpyVdry/X4Z8hINV
qUCrTXztg3OQ94HKu+pUiJTXfMWOM8vfWZPM43j82uByOu7XTin3a89OUEFK
RuJ9Hu5vLk1KsN2ICmo5LgliOCsYjJUNm1FBu+ldYDw+H3DJYfSPDRV+bKP1
OeDz07a66yqvHRVS5abNqogkZBvTv13CkQrxg13ft+LsWY7p6bpT4XxRzPtU
fD6XdXiHME8q3I40FHxHIKHQ7rcBrt5UEA1LjGDFmfzdsOAWiQoxqxPrNvj8
i0axaicHUaF+c4ONgO9Hwc6m/vxQKtgodxhEepNQ7THtrS2RVPhdvuiWeoWE
Jm6oXtmaSoWdb/tUHC6SkPeObyzC93F/RqR/qOP7uJL3OEv+ARVOelz4yoPv
K9er/R0mhVQwlXualudKQke4JQ/FVeF+VJU2+OL73vBgpDW7Fu8v70UPXvw+
MD6Y5VpeTwVJgTjzov/vC+udyZ0tVJi+XzXWcIaEojK4V/gGqPCdp101GSMh
PoW2eKkhKvRQeVd/4PdR5rNoOZVRKsiyBbBaWZDQ41EWe5sZvL87en/Pm5DQ
gMzvZ6krVHgye/+fN/okJF85fVN0VzGEiStWC6ji+ztoX7pzdzHctsuWYTtM
Qo9YOvv4JYqhM9JO86sy3i/bajkuuWLYU93nUq6A1/frdse6WjG4yj5teCeF
z4eWvMjImWKYmnn+/Rkvfj96ZOsPOhRDu/LPYA1uEroUz+fd71QMK9uZG8o5
SWh8bLWh42Ix6Je8i7rFit8/t964NwQWwyFWZr3+30RU1XqlIietGLQfBQxK
ThJRwLfRwazMYiAq2zIrjOPfj6I2WzIeFoPTRRYWxREiKvI6foZcVAzxu8RT
Rd8TUQYv90Z4dTGoc5So5bURUahtuZHbQDFoRrgKn68gIv3xr6MyO0uAffrS
y4RAIpKWCsm4KloCMeNVwu4BRMTsxmrdtqcEvPpXTh3yJaLGSeEWP7kSsNhB
Cq3wICLtT3qldRolUDSWtBWzJSKNL8lXsXMlwE2TfMZ7CNe3oc4XmlsCYX1T
c48+BiBe7aY3nQUlIP9MhTt4OAAtXjePkCougTXj4OvG7wNQ2abLyqvKEnBj
mnfqbg9A+7fEDO94WQLBPoToyJoAJLNtmEqZLoEJrrB3N2MDkIhwuF6vQiko
JLUELygFINrBHdzDyqVQsOdwobZ8ADI3yhuYUimFWYeBhDvSASgssNlrRbMU
BLn2VXLtCkATfRxpImal8FiK7+7rTX9Ulpg45+xVCjqc9c3C3f5Ilys/eaG0
FCg9XJ+Pe/ujS39bptmUyoD0797f7skEJKPso+txuAwe21leLI0loPHzglnN
R8vgS59a6XwEAdnVu2EROmXQs76n155EQMahm3VMWBmYlthqLdoSkMKaBnk9
oAx0HqjF/hQkoMWfpZrfnpaBU6Wat5eUHyIuJiYMG5QDd0SC9YMlb8RdvOVS
+tnHwDImscdSxxOJChwIHzj7BCoGzMWiYi+g7/reXcNqFRCZWub6Kc8RpfQ+
uEF+WgEP8/dGx3PaoFDTPMNq9UpICr/+BiwM0MuWy3yPX1SCZF2LwEj3LsRr
Jbha8bISlu64llgvCyG7Dw1j9JZK0D2pVsQsJIgW5gSe1L6pBIL8LJHPiQ8J
8jVYtLyrhPDtnYl7/zIjdwf+2OGPlfjv2MU8AueKDuvXOjYuFhpgphFy5BZJ
sAzyWORhpcFSbr6SbK4UZDDz9fOx0+AQy4NinhBpUBT0KNi5jQbd9BeTnQdk
wPbY9hPS/PjzVvYPuKLloCDiQvgxaRqEuw6Tfu9WhpPC3OuX9Gmwapctze10
FHLLXyikGdBAOGREYF/rUdjQv+rQbIjn0zjyo+OwGtB9JmolzWjgci3DvHOL
Oki9fBo0aEODVr/oX+F5GvDHx2PF1IMGhOkKKe+241D1suGb0h0ajEf2g9JH
XeCzJ0k5xtBA0qzk7RKvHnh/2X8qJg4/twt5c1VLD/aKpFbMkGng/ZOR2pWm
B4m+Xn4592lQ8PRbX56xPviICC/yldLguXdDwbPcE7DPz3/2ewcNSJlh90ak
DGHUr0TyTxcNzOO3p2MnDSGNMGnH3kOD7PWJsFhPQ2APOP1GeAB/HnNOsHts
CLOkYyXaozRoX/t60kLdCMpCmL2jv+D9yD7MH69jDO7XNAvISzTYeHWukeRk
DOKhxOH7yzSwBc+fUmHGEH992rxshQYV+y3yu54bg1/4G6V3f2kQ6Wk//o+6
CajcTvwqup0OTPcDPw9LmcLc7TY5mR10EAvP+yCtYwr50VtclARwVuQWU3Yw
BcG7/3TDLjoYkDnsUhJNYSXWvtJdgg4feBdrHvwxhdpEKeLjg3Rw7/RXSm0z
g4Akh9Kaw3RgDc8xk580A4Xk5MlGVTpwc81U3Fg3g8wUNttedTrIvC/kv3bA
HELTPx9ZBToI1lLu5N0xB90HlSt6GB2o989doahbQNLnk790rXG9l9X38plb
wOTRoV9gS4fmleU0HRcLuN3J8lvbjg4u/MnXF6ItoH3TZv2YCx0U/wr8jOmz
ADu3lc3DBDr86P/l1+pmCSWPY5gOB9Ah6K7d6WiiJayv7WE+RKLD01xuXa5I
S3iYbMSiHITX/2l9w7XAEqaaM1gVwumw5PmC2XTCEvzljnNKk+lg/iFOcMPa
CpqIXZxSSXh9+dPD7C5WINh4YZtkCh0yfumKDHhbwVO7OK49GXTwPEDtfBFl
BX/vjvCI5uL9Mhyy62BYATbgzyuSRwfbT7MLa8gKHkmzbxcuoAPfM9a6hTYr
MHimzLeTisdfy5sSG7eCmIUb/PwVdGgy2O3+fgsGwxqCAjtodND8ofY0jAMD
pSiqAB+DDnGjP7dz8GDQLf5OkPcpHXyvmaBGIQykr3gI8dTRIc3q1o4lEQyI
1b+FuJ/Tgb+wyJF5DwY7raR3bWukA4GppffNPgw8s6p3cTbRQbZpZS18Pwa1
n0yFOZrp0HAjYoeoEgaO4UQR9lY6OCbObllWxSCvsnk3SzcdAjJuN2voYsC2
zd1dsYcO2LLSyrETeD63LeVn+nDuTanaZYiBsoC+TukH3K9VQr+nGQaJXh9v
9w/RwU6DV2XYAoMfL8O7NofpwLFeJ6iIYVBHQi62H+lgvbPcw9UWA/EOp+Kw
STrcyfjUbXgGg/B9f79Rp+nAWN79nMMOg8nrDzR7P9FhYZxVlmKPgeGAVsSf
z3QwbQvkkT6HQbHy8Fu5BTr0vXD2D3bEgDv6mqD1F1xP9Gus/DwGfmOi50OX
6OAQ3VVS74RBj3pdYdEyrm+EFlbijMFRsv2X7h90oFm/ekt0wSBjdlVtfYUO
K85BiSKuGKzrZtzY9xufd6VTXVk4O91Xb7VapwNL0nLkGs4vvg3whfzB8+8U
ph11w0DGNNC+YJMOOstpZ/7/Pzg6Tyivk5kB3LxOAXo4z60x5la3MCCNJZCN
H2cLG1vVvewMYBVh5kN4vorS79csOBjQbno8yRhnAdbk5qvbGHBLLyTuMa4v
0FGFJ4+bAUlnlDaXcP2DjHen23kZsJE0MrcdZy0e/4crfAyYfayEceH15njw
fZIUYMCRHUMHJ/H+sDQ8OWgmxIC5zqcx6Xj/PHZaBf2ziwFlJbWu8g4YtPp+
acwRYcCawExVKt7/A6/vcbbtZkCYrOudMdyfeAkl6x/iDFApvjTEdhqDb1fb
M/dIMiCUByvnsMHAtttr0liaAbq+MSyzuN+iN0tID2QZQB08qqlljsH1QZP6
1/IMyHPeKllpgsH44c9sywoMMB2Yj2cxwqBoQi7d8CADHLNbtx/Xw4Dz+Osx
wmFcz60v+6R1MPBOviifpcqAiqhbHdOaGKgYFNZ+VWfAlZHLQyxHMEjNNmAR
1WTAoaoaA8dDGKz+mDQ10GIAU6mnaZIiBg2F0sMZurieIBbVFBkMTLfm/tUz
YcAKJtD+lR+Dcmcw8jZjQF1u8wVlXgz4no4mpFkwoLU6/okJJwYDnuJS86fw
fDccJhX/WsGFtswTKQ4MyK7u4ufvsQLp+PqU+454/c1HIve9toKJU+PTD50Y
4PkyvXz9mRW4De67U+zGAIOObIOlApxnK9obrjAgt3jl1DoRjy/rFW/2ZsBw
BhnbdwmP91vxfePLALG32Sf4HfDnfx3f0RfAgAVMSv4o4Mz++vTnEJzrB4Zy
2PH4ts9FX0LxeXL95jXxyxIm7nGvfg9jQCSKV5+dtQQ3IevMv7cY4P39cIF2
G84yI6MCsQwwj8uY4ouxBFf975d0svD+S7Bwuf21AEn2nbUnHjBA8U7SlpF5
Cxh/o7HNJAef5wCfsd2DFuByKqzMJp8BjfoXCdM0nF04v3mW4v7UuJgVX8A5
TCIk+RkDPmTxM2/WmoNznVnc7L8MIO8ZXdXXNINDMcH7REbx+fx348++PWbA
4kBpMBlnwGoFIayZ2QwKfrN8K5nC6x+6fvJIK/59p1F32mcR9++AscHHU6YQ
WCMvsfwX94eceyXSzgTiGGy0dakqeB6DtaaoGoFTpKqZokwV6JYllgtsN4KD
tq5TjrJV4NgXz3tqzhB6vj/f2aBQBVNRJRVbcw1BWJV0LVy1CsifSSGXOAwh
v3LCgO1kFfzIdJrj7DCAusfoPa9nFQwvXlUokdUHmTbjY0evVEE4a+cY07oe
JEy/yzznXQUGoU48Yl164C42dZ5KqAKX4zcscwP1gDeGY0ovuArMJVTHJpt0
wc3j1BIppgrkh/y+zuTqAJfYJMe/ZXg+/tv/at/UAMe77JqUb7h+rLpk9fs+
kOETKKB+rwK+75ZsUeL7YD5NgrfkZxU03l4tdzWUgZACjYmy33h8y5NNnjRp
yEBXYmjM1cA0Q3xyy2EP9P7sHKrfUQ0uGscKBa7ygalb+rW+w9Wgm3q4Xz+J
Ax07Ll/PHFANs96+g6PnVBDpG/cJ5T/VoGCSKqd22wzNhbV/FrtRA549jdZb
xM8iyrIT5frfGrCLXTxab+OCXl5hXKq48xRSGhO939/wQKJ1U8aFnLUwy7l8
ulziCvpznVV0mqsW7lZvKU9XvYLG9WTmZXhrQaXwyLkQoyuo6M2FewX8tWCt
OR8m73cFqQ5OvMvfXQvX+5GKbMMVZL467pCnVAssW4QG7zt4oetqI945p2rB
9All9FecN3JZ29Aes8HPH2VGdeV4I4MGse0SZ2ph18nXOQ9o3miboWPlQ4da
uHJ033exD94o7fS/Px9cqIX5L39Di6R90GPSYFj2P7VgkPDU90OVD0rU+G01
fLUWXsk4B/O1+iDShrCUWEgt6DOL8ekM+SDNSLuXWWG1oPByX3HwXx/0Ovn9
1qzoWsg+f+EvwdAXlZz99WHobi1o2PqM2tj5ovjdu0pE42ohM3Zz8MAVX2Sb
f8Y8k1wL2v5CC3X3fJH6pUDxoaRaGB4dmvHP8UWiB9K+iKTieqXKWsQrfdGf
L1XIPr0WFB+jkIYmXzRO6yffv18La09sV236fNF/NziBlA==
          "]]}, Annotation[#, "Charting`Private`Tag$536466#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvejVzpKz7Yp2f1Z+vOSblLBf6t6Ni3kiAfYw/jm2
mJ25IglwvshD38jegwVwfqHR7MesTyvgfLmS7rfn8xvg/F+Fif/XHG6B89dp
8knMPtsB54ezXHaT1OuF82d3iIuJ7J0A539/bcCjsm8Swj0JYbw1r6bA+RON
nk+883EanF8w93Ah6/sZcP4pyTUxZeKz4XyBz/9PvZeaC+dfvBvvstFzPpx/
fUNrj+z2BXC+jeLEHc+2LYTzY2cpvQo+swjO/3owM9b1/GI43/uT2bVbz5fA
+XrvV9aE/F4K57fNupQS9GcZnD/HrzHoi9AKOF9j49NGKfGVcL7Tg/f3VMRW
wfmSEg2Ol7VWw/np/44+ZdVdA+cXv53Yf8dlLZzPs5I5fXr4OjhfSli74Vr4
ejj/s1PO+TtmG+D8KZfn1k/YgeDXeC1y22a+Ec4/fDRTYN1BBN9Vgud3utMm
OF81v/DF57MIvsPcjd8cAzbD+Ys2HpFmuoDgJ5+a5TwlagucH7/Lu+fFbQR/
17r91/kytsL5MZ1sVss/IviW1hp7GYu2wfklH3mc9f4i+K/qzryUqd8O5y//
FLe89h+CfzhrS/qGjh2I8Nn1xGMp5044v9bsbs78QAT/waarE2bORPABtnjf
7Q==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$536466#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"t, \[CHacek]as [s]\"", TraditionalForm], 
       FormBox["\"H, V\[YAcute]chylka [m]\"", TraditionalForm]}, 
     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]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 0.1}, {-0.004999997907679356, 0.0009999999999921608}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"H - v\[YAcute]chylka,\\nZ\[AAcute]vislost dr\[AAcute]hy na \
\[CHacek]ase\"", "\"okam\[ZHacek]it\[AAcute] v\[YAcute]chylka\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.699357967700754*^9, 3.6993579743837695`*^9}, 
   3.6993580544990325`*^9, 3.699366496181775*^9, 3.6994517992406564`*^9, 
   3.699453600809843*^9, 3.6994537326838837`*^9, 3.699453831258629*^9, 
   3.69945583927677*^9, 3.6994559493013625`*^9, 3.6994566609286385`*^9, 
   3.6994730341838493`*^9, {3.699473075116395*^9, 3.6994731027913866`*^9}, 
   3.6994731706809173`*^9, 3.6994765666386623`*^9, 3.699476642324087*^9, {
   3.6994767791315985`*^9, 3.6994767932359104`*^9}, {3.699477033558823*^9, 
   3.699477043764289*^9}, {3.699477120868067*^9, 3.699477174017374*^9}, {
   3.699477283313319*^9, 3.6994773128312387`*^9}, {3.699477501496196*^9, 
   3.699477548550313*^9}, 3.6994791679723372`*^9, {3.699481345101534*^9, 
   3.6994813618116083`*^9}, 3.699547389295332*^9, {3.699906766914649*^9, 
   3.6999067788172965`*^9}, 3.6999072093277855`*^9, 3.6999076921817183`*^9, {
   3.699907809977062*^9, 3.6999078667964287`*^9}, 3.69990846486589*^9, 
   3.7008334712903957`*^9, {3.7008335262909126`*^9, 3.700833547865814*^9}, 
   3.7008336967736893`*^9, {3.7008337404214754`*^9, 3.7008337441949487`*^9}, 
   3.700833782507476*^9, 3.7008338475584135`*^9, {3.70083388783934*^9, 
   3.7008339620305443`*^9}, {3.7008340237448444`*^9, 3.700834134582939*^9}, {
   3.7008343019255676`*^9, 3.7008343244681873`*^9}, 3.700834484033153*^9, 
   3.700834608587891*^9, {3.7008346391462793`*^9, 3.700834670059046*^9}, {
   3.7008348210993204`*^9, 3.7008349701216717`*^9}, {3.700926304465541*^9, 
   3.700926465188125*^9}, {3.700926506873894*^9, 3.7009266567949095`*^9}, {
   3.700926699708265*^9, 3.7009267644289923`*^9}, {3.700926894398487*^9, 
   3.7009269494256825`*^9}, {3.7009269874416914`*^9, 3.700926992882096*^9}, {
   3.700927070542676*^9, 3.7009270867690125`*^9}, 3.700928149767768*^9, 
   3.700928328951586*^9, 3.7034919488949614`*^9, 3.703492161220778*^9, {
   3.703492262510045*^9, 3.7034922870463605`*^9}, 3.70351351909217*^9, 
   3.7035140691256933`*^9, 3.7035238896155224`*^9, 3.7035245605154734`*^9, 
   3.7046056792824636`*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVmHc81f8Xx6USJVF2ZiGlIdnFsTdJZaWSUYRIUhoyChmFZI+LVOa9hHtJ
3snIdu/nU4iysuNrRFnx+/z+uffxfDw+j88573NeZ7w/4g6eFs7MTExMTsTP
//+zJit82kLF1fvjxg1MTHG4zszzsYSbCdjTvHX1CP7Df4/ynJsT3lo+PClP
MJUywdQgwg8N63tkeAk+9apA2p9bDJzMDbmnTHAQ8ho2TxKQAIfHSn/LCP53
UsivVEQavM8wfblFcN+2c5kd+w/D1qnWPEmC+yfqnW5zy8Ihlvb7LcY40DsG
l5j55OBux0l9Z4I/lv2LjBaQh4mF8zt/G+FASREQFxFShAKSY7sPwaRAhbJ8
EWVgvvcufNIQh+hrZwxVxFWBNSdF6xzBgaYePxr2n4KAT35/ig1wKI7EmG9y
a0Bp/buzhvo45D0aaKXyaAKP7ey/ID0csrz/i1/n1YLXasM5FF0cYq23y0QK
6IBF+ta5MW0cwo35FzFBXUh9dfrlnBYOQepSSEBIDz7uCFeZ0cTBW0Lr7BsR
A5g2u/C4AYh48pkL/ydqCEnBRodJ6jg4bL80Ji9uBNFNPZ0eajicnfW7/2m/
CRS5DCqOqOIg2NfNuMFtDh7Saio6CjjEd/Ur7n5pDgbt5ezVJ3DYzRhNKeM5
AxSLpAkZORy21y04r/FaQE1MeO3Pozis5HKuPBU4B1Vgy1N3AAffbL7LR5LP
weONfWf6JHGYTxWpowueh/+uLadP7cdh8vnhZ3xClqDxq+j2iCgOvbcN9uWI
WMPxNytyBnw4WHueDjXIsIbU8Mp9m3lw+OJiOfVL1AYmHrMeK9mNQ+sFp3I5
cVu4g+3NntqJQ5VmgNHH/XbA+dFmP74Zh3YWuwoPbntg7iNMTmNQtVXTQ9rW
HuYP2G6XmMQgd4uU+M8Mexi602+CjWLwmHk2zFrmCsjs+89s6wAGKuvB1tpa
DmAQ+SaqnoHBq8X8v/xeTmB+isu4uASD2IXofLzMCbrGs7bFFGHw6Pfty89W
nQD7pc7rmIeB7Rx83hzqDP99+qHQl4kB5zQe/1/aVZDS/9EpG43B/eFVhboW
F7AntwcaXcfA5efAhD+XKwh78A2bO2NgOVSfpmLlCup3drYb2mMgO/B8K3nI
Fdx46/X3WGIw2rv/a9LydVA59vPkVk0MLHBjH88DHiAnzvHChRsD7kFTm6ga
L5BV6L5oVMwAW947J/cOeQFz1lYPwXwGZBiThHOZb4LtQrZ8/ysGHCqfH6zT
vgnM7BL/9BIZoBGRcH2t/ibk+9kMP/dngJvC4H23Zm8oDjIs2G7IgE9PfdIN
cR8oF0tJ+fSVDqwoLaDrtw8EJo/8Pd5OB9OFBgdn7tugI/s2Kb6BDt2XBA4E
nr8NU5ZsNUClw38nqsm0rtswdO6n9O5EOqG/bTUHvvvC4OCdj++t6HBTLuXn
1pG7MPvjBW9UegcYiPsZz27xAzHOMJ1DUR3Ev9W7Hgk/4OKw4C293wHt07uD
yU5+cGvajB5l3QGHcsP32Qz7EXXQ1WrL1QHDoveuFPy8B5jGphCnR+1gudOm
32LoAQy2Z+uHmLaBiE/EdIdnAHjJKNlllTYDbyt2RTQwAMb49o6PpzbDTgnB
zhuxAfDFZvyU0JNmWMPfVu8sCwD/X6whhueboedEw3PjlQBI3jd17+NCE7z8
zST3+XEgvHVV1Tgm2wTst3x9q5OCYLdqw/2opM+wcvPKRkHtY/BdbHa0V62D
ooMc/CltYZArsHxVvrwSrLbgegJHo+Dijg7FW2Y5kBLGx8v9IRo4fp+xrrwc
j/7+kmWXqI6FYeOagh3hpajd3nLng8k4cEwh20VN1qAYubGY73Px0H3enTR7
thGdenVVgbEcD5LrRmYWbo1onGe0u35TAlxKesebE9SI1JeHRclcCXDonla1
cHEjmkJDhYHHEyDUWPG7zc4mZGDa1yR1MwEqy75yzn1qQkwuXzfdnE2A9af/
lE/ua0EF387lOC8lgD1PgF2OUguyMv5iYMuUCCrtsSPrJi2o6Cj+XJszEa77
2y48utOC7BbpwryyibDlvmEyraUF0YJaVd57JkLjeeHuJa9W5JVWe3PrTCK8
3Dhdf7GoDTmAp8Kbv4ngEiPLp17bhs4OCi4bMCVBAMsFNrbuNqQo6R0QyZUE
Wz2HYi9takerBWLP98gnQbmBRyrL2XYUUvWwQNwvCTb0eJvV5ttRWq/SmNrm
ZEifjpqY30VHzx7+zOvfkQyfjowobfDTUYDo8xuB3Mkg+qLuz4Y4HTk4ji7W
SSbD4xj9gr4TdCT9K26LiUEyyOc6anNa0VHpypy4bVQyqMTm5ain0FGzQIGd
L18K6FeF8KYLMtAxV2etx6IpsHMsLyhfnIHiaCLSsQdSYOpCvnKRNANdsor5
XaiUAqz6yOuFIgP9jvMNH7FKgRNWIonfzzCQEKcm7VxiCkh3qnJdDWGgwMsr
aQ6kFGgXHNrbEMlAo0Xvgr3epsB22RtH9r5gIIqp1OlIWgo8tnc+/yqDgXQi
dozWdqfAkeM5xnI0BvJg6dxzQiAVRldq/FXGGAg7/3xZQzwVzmiVyIxPMZBy
jkG/2cFUsJx0y46YZyBmnfd511VS4Z229AjlHwPFB5I0s2xS4cOXRnOfPRiq
XrvuyZWcCmHRk129pzC030TivGhWKoxNNSV91cRQWMoP1SN5qXCj03quVg9D
FqrmLIaVqaBorXTe3xxDY3cU0gJ6UiGb4Zzi6oghzt8bzTOCaWDJHB7HF4qh
994j9Lz9aaAWlqxfGoGhq/PNnc6H08DErNpWOxpDVXMvh3rV0qCfdfiFchKG
XGZlVj7bp8FzzPqPfx6G9nhxMQW7psH93x5mRUWEvzN/tqp7p0GOwvBURwmG
uGdquEqD08BHp2d2ohJDH6etDpJep8HNkx6f7jZjyM1D7dgFchowPa9fUWnH
EO/0PgVeWhqYHrVwmGZgyH1qWiOyKQ0SXeRKD33DEP+vYOu7U2lQUX5DYGMU
Q17j5FBzuXQ4TNKpZmfC0V6Xl1E7TqaDeOhIxQwzjhrG7r1o0E4HsXubquu2
4khoTDfj1Pl0iDjl0KWzA0eNI73l0nfT4WYgO18aD45uOddU/QxIBw7TYBFO
fhyJjLz+lP40Hfi7ZkRuC+LIZ/hmO3dKOgxy52/mEcWR2M9to0zV6eDvNH+k
4ACOWhymf71vSAdtBb72ooM48h3C5nw70kFyCWyzZXDUOpj2b2ogHWprxmUd
juHozpXgzW8n0kH40tu7h4/jaN+gC5vjfDr0CPx6PS6Ho7sDJ3i+bc6AwS2/
ihUVcbTfXmBvHHsG3HyjGtmohKP2/nWx0zwZQD0jZ2CigiOJ/qbD9VIZIF1O
sT94Ckcdl8hyAccyoOmH0PsgNRzd64tTPqmcAS8nVufb1HHE+HFZp9gwAwo/
nP6roomjgYgSN22LDOB5kpJ8XgtHsypbX3y1zQAVW84UR20cbYxZVV5zzIBw
rpm/jjo44ojPG1x2y4D0A0EUS10iXjr/WCN9CH9qhOtO6uHoyPxpWZGHGaBU
JCq3Rx9HJmaL/lrPMuAc67pgkgGO7Nb0X3+JzwBTp4Y4fUMcueUlt13NyICD
s61Xxwm+Zz29sPQmA2TaM6LvG+EonEVDKIKSAZtbO7k2GeMouTRWW7giA/gd
90zeJTjXYeQ6uSYDWmlMAj8JpnEqx2o2Z0BZ+tl0MCHyXR1egWMZ0Bnb7PeM
4G73HwPOvRnQjI7kdxA8JijLuvQzA6bXzOQ2m+LoT2PQsfCpDHjUzrbrIMEs
d75aCi1mQIWztqYmwTyS0v5F/zJgmDTZaExwrOsHC7HNJHDasZRjQHDyx6tX
XbeRoOqHR7cSwVl8nPdKdpDg2T8rewGC825URK3uIkHsvxa1acJ+Sb1Dpg43
CUKEJ7zeEVwpxF4WxU8CQaPuZTeCa26VNXYKkYAh1NrN+//zNF/6LipOgu+9
TBylxHnp4qyzLpIkWPCrStImuPtu8eaSgySQiDd7UE/Eb6DDlm/1CGHvPme5
CsHjUltkdORIoCnurE8i4j37sFA9SpEELQcrZJeJ/Cx9sbToVCXBrp9B3joE
b8gwXRUFEgzrau0MIvLJEpzr56JNgurFgE0lRL45eiyiivVJoKOBnf7yfz2E
5ZRqm5Mg7/ChfzOEfqT6zRojz5HgWEXoxQlCX0cVl3q/WpPgfWmO4FdCf2rD
RptdrpCgm/VkUTDgSOfkAm+xMwkgwjJEj9CrSWzaoRVXEpzouFe9SujbTmP2
TKQ34T9XtIWaKo6cEpKcv/oS/jt7U5qUceT+n5afyH0iHwc0vA2Iermf+pJE
CSbB76xJSWF5Ij9LqjNf4khgmkr22H+EyM/pYWaRJBJ0bPzYrk3Ua+7rKN5r
aSS4ez+C5zxRz7RzA2rLOUS8jYbvmkviqIvyJFKYSoLjU4dIr4RwlNinUCz0
ngTrQ++mHhH9wpZ99OteRAJ7q7jbp4l+0ndNT1TwM3G+8M+aLXtwNCyyrYS3
iwSexx79UtiOo9cm1E6eXhKUuQhovduGo2v3rq1y95Og9Fv6gATRvya/ftbZ
M0YCl8fVq8MbGJqNDOva9ZcEI2mHursXMFRSqbzGsUoCzrz6lKU5DN0aHxfj
2CD0FFRYyj6DoT/ahtfZt2UCcKZNc01g6N8K2z9Wvkx4hEQp0d8xtN01Yh+z
UibUDZyVvVKDodb4k/qbTmZCCLOp7OcPGIqq++XGBJnQI0HNESf6OaeYSdm6
XiZY8g4uvyP6PW8Xu8GqZSaUfZQJM8sm5pXuM48F30yoInVaXwzC0CnxGNpo
eSa8bl8XXlDCkNg1K49T7zNBNMn+XIAchrYWCu+LRZngbcRst3EYQ+3KeRFq
jZmgUb5p5qs4huzNay/FfcuE0NCplyPbMfT40eIWrbVM+HXAJz62h4Faf9ic
SdPMAj7NxEYtL2Je7xdj+a2bBXe/Ficcd2Wgl66jlQZGWSAePtC0x4HYDxa9
JRYssiDisaR7yVkGmmWP/GvklAV+AiOqNsS+wH2qOm0pJAv+sVDenVmmo4vJ
+ybPtmbBm9LKBzy+dLRWPkO+TM+CQr7jXhw36CgZr7rt9iULdphJbf3nTEed
7Fabgr9ngX7b3IH35+nI/FEEf8lUFkSbqw6+l6cjbacFPc6d2dAZ7+f9ZrAD
HTzakN1qmg0XOD1YWWrb0WKN60XdjmzgC59QNTRpReV/TN69wbOBY4NJ75VC
K7orI8u2vTsbbq03uE6KtKKVuD+l7QPZIO/TrK4810Lsk8Hs1vPZMMLNtNIb
14K2c6S9v87zCkLDc2ssupuRmC1dIPrCK9hVf4/Nz7wJGc8rdvaMvYI5g38z
JWwN6OhM7oNzqzmQ/fWwlUzbBxSSjDlZrL2GzY4PzayiilCqWaDFwu63wHpb
IvDs4k2QLh4JFOTLBQn5SKWfVymgNTDTJ8GbBz/sFD2+fawGAf4ATfxQPpip
8F249LABSo5xsX8/mg/xF4RY5eIbwEQ/q3NYLh/k+QbD/hY1gL9vndsf1XyQ
8n7y2WqgAYa+sMYLGOcD5MiHuWl9hoKYmMnLbvlwSK+7ANvcCBo7sl9M5eeD
DeucgOL9Jvi2T/7SIjkfDlsF4VKxTeCtWi+9/i4f9IdvBW7LbYIc17EPu6ry
gdHHE5jY2QTbG2XG5VrzoVRo4NFf2Wb48rj0lN9UPvTNPRFPG2qGa+v1I1uP
FEBZ0D4jKZVWkDjqoeF8vADil/+8op1uhYGL3Cl1CgUw/yRHXPFqK1h/cDAP
Vi+Ab05n1OdjW8HgwUYlk3kBXIsOV/b41QqHVpSjV70LgIVtjck+sQ2mF/NV
52gFoLnMl9s82A55kmdfmn8oAL2PXhZZi+1w9fzKDLmmAO6k/znoyNYBfaUG
OTeaCyDC7OJBkixxX7s1smuqtwA6unZ3bvXvAMqcyMjoegH8fXqrRmU7nbjH
xTz/rlMIL60WDKsS6OBQOnPvgGEh3Jg2kWch0cH8vulVb9NCQBJCp3Xe0uEw
G5saq2Uh7KVUrqfS6DAqETB54loh7PHmeYW66WBrd0M34mkhWNsu76nnZYDB
/lbZzijiffLPbU6LMEBp8qCQeGwhHM4cvt0myQDuuyPz5cmFsKweKZwjz4C2
F3akofxCSLEcfVlzhrgftxitqrQXgtWoECXvKQOOxr4dfYwVwrzTn0XPaAYI
27BgHZ2FwJdwv0Y6gQErozVvnfsLwX3X3U4f4r79jlnFMma2EEa3lPr4VjNA
SvVA8fjuIngWbxe8d5YB7LmbryVYFUGxW0RLuyEGpXoujokXiuA8yvPKNsPA
brj1ctLlIuB/qVPvfhaDQtF465RrRVAXK3Dzhx0GZvHSRhl3isCi7UiQoicG
0cGmR94kFMHLK0r89TEYKIuXHHybUgSLBpev/HyJwUA1r1RuRhEg6tKRP0kY
HF/pF8l/UwTsZ27rL2digHl5c5KpRfCipEvxdjEGey4l/C7vKoIH2rQlzXYM
qlZXZ6i9RdDgfsv2DQMDpyT7KVp/EXRLUgQ3fSX8/3JwpHKsCDhX3YtiejE4
Z1zVWf23CJQUqielxjFYGxfD0WoRrMYLsx77hcGrkCcdHzeKgOuUko/Mfxgs
1pg1ftpGhscN6sc3LWAQrzxY0cBHBkynkl1sAwP1Tt3yz3vJMJn8xaN5Ew6j
t/JKGkXJoHiZsst1Cw5K5Fv5zQfIoP5MZVcwG074xZLWrkSGCNZt2ME9OATU
Xk/qOEmG0ZAbO315cJC+0vGSDmSwVPd8WM6Hg19q4jNMnwxNiSWLe4RwENwj
E9BpRYbtZ3n2aUrgMNKYw37UjgzB4TFbrKVwoPiLJT2xJ8POuz2r9tI46E/y
lMi7kuHt77l9hodx2E2KVo/0IIPu84nT0kdx6Du/o+XnTTKIrW9ELB/DwaeG
aTj2HhlC+o0Oe5/AAe7c95r0J8Mlz+UoAQUcth/5s6YZTIZhjvfLJYo4kBJ/
8cxFkCH+dO/kexUc2jw79U+nkUHqRDCPFOCQKHnmy+tMMmxO8s29qIGDU2+L
/XoO8XyjCYRq4rCiV+NXWEQGzSAjD4o2DvVrJ1m2viOD3Er/ZooODtEl5bF2
VDIU8MsnZeriICVSkL/jIxn+Cjh9sNXHYQ6XUnasI0OCzYbRPgMcqp5m1lU2
ksFwpetLL8FhIHRmdxsZxsSu2YYa4nB2Mf6HK4MMzvtkeyWMcBDJ57pe85UM
0o8/WpYSPGkf+Ye/hwwX1sitCsY4lPFuC/bqI4OGN+lULsEBrYG7GofI4Lau
9prDBAfjoLUU0TEybPmlznaVYF7lO9J3fpGBqdTRmUzw0PRcafsM4c+2O5WT
BBdmu2tKLRDxqzNl5TfF4a7NWNvDJTIIbjSYEfsv6OxysP26RoYnKy1RxH4M
YQ43bsUzUUDqqHk9sT+Dx4d8lU/MFPDQPrOoQbAF/8TG9BYKnOLtEpYmWPmW
VIPANgr0l/5W30SwSLtjpC4bBZjsa61bCftbDmZa3NxBgZhwd7enBE8G9/Gn
7aRA+TfRO8oEd/Tt7W/cRYEECf4H34jzlqrY5CxwEXPKJ/meO8HJcfFuYtwU
cNv8x3uOiFfADH7chJcCGuqPnV0IdjbiWrrDTwGRT28tGES8jXLMqrMFKWBy
kaF6mGBZpsjHHUIUKOLwFfEj8sN7ocloVYQC17cKrFOJfK6WsXAdEKfAU5Je
z7geDg1ugWn+khSQOPI6XIzIf0FDtWPeAQp4Ne63P0DoI0Z87WDnQQq029bK
ixH6sevyLT9ylAKpxZ59Y4TetORKH9jIUiA2UqCsnNCjdNSc1hM5CtwLF312
Rx2H31ruHd8VKXBjbcKo4yQOimxH0n8qU2D7qPMrf1UiPx3T7pOqFGjtkaaL
E/pev+C5fUmdeN5mI1Ob0D/rbW/dPfoUIIevGywS9WN08gS3oCEFSnMjzbSJ
+oratDAkZkyBMX7xo0/+X3/PbgccPU0B8c72R8NEfQq9ufve0IoCZwfZnnGJ
43DJQyXc3IYCrmX2j9dFcMg8sWJtdYECNaGul/qJ+pf6eP+P02UK/Oxd+vSA
n4jnN//jAdcowGwXc1tqF6GfHU/elN+hADrT91VxBYMQhq7vBz8KJJ86X+Hw
F4OmBBbduvsUOHc6LimI6GdmEmFDjEcUaLr93iqd6HfWahHC06EU0OON2NAd
wsDdM+bF/kQiXmlrVVafMShSsHA4lEyBpft7retqMZhb3X38eCoFyjbecUp+
xMA3LK5dnUQBi3chPz/RMAjITGCzfUtwZ+MZr1wM4vC0R9E0Qr9f2e7FhWHg
NVLBG1VJgVuKj6dtHmNg/Pdr4dMqCuxiq9zLHYAB816O70EfKeAwXV9y9Q4G
Nx38lW83UmB3TD/PE2fC/7lLczbdFIgfCBXMBQxYd4k57l+igK7Cma9Zvxgw
LHZqRXSFAgIdzEe3jjIAyVnHCK0R/kS3Z9oNMMDXMhrxMBWDRm/g+OQXBnFP
YBJiZS2GYdVr5558YMCnw4NfpviKgYrrt5ZGMuCBUZZeuVIx0DgU6vj3M8DV
pUmyT6UYVqmWTVF7GWAZMruF5VQx4BxtEX/2MED2k3rteY1i4JQMvpS9hXi/
Si8x+4rBafzZ1+sjdDA7yK0ib1sM35KfrJS9ooMYa4hMyYNisAlrvXpVkA61
9a6cRTXFwFaXyyvzuQ04TnMvUWqLYcCHy6LyXRtYd1f3v6svhoxXH7Yqkdpg
anIPuaKpGMhkEsvy3Tbg5qw2rWcUQ0KzZgPpYBs42e6O+D5YDHJVfaLhoa2w
ZaZy6w7mEtjUU00SVmwBXX721WtaJXDLKv+B4pVGkPS8Of67rQRyNnb8YLlT
AxppxX80zd/BpZw6a4HoUsgqrtvLTH8HjMQPYnuo8eDYnKwdZ1sKTxRaXi46
5KDLlcaR472l4BXUqfYpqgJVFqEuDpcysKRsusKhWYckmg1UFK6XgY3b7P4G
uzr0fISRfMG9DBJ7lRw979YhJ6Hhi2+9ykBR99+2eHId4ghnHdb0KwONzKG6
48L1yMH5zKxPeBmcfL7KHLtYj3YI/WTtLSgDzbfCoZ7Jn5HdUxbVN3NlsHiv
MzCO0owkOPe8evu7DNj2vnse3NCMfsWLcuQtlkGryN9NDt+b0b1XykMFy2Ww
lPnwx9S2FpSIroeXbCqHwHPaf5UvtSB8sb3nA1c5lHQwc2Rsa0VGDgn3vxwv
B7nWtUp90za0eyJ75OuJcpjMD+9hu9KGvnlSTncplMMVF+6aCp825PKwaX+P
Sjl4PTcrGUppQyGJqy39muXg+Qgwq4k29Kn9stCvM+XwPKciri6gHamclP6w
ybscUjZ+/7LM7EC728HzqE85FBXGPj9e2oEm7a3EL/iWg/iKH/diQwdKDQl5
UnqvHLIC70QoTnUgJmzY9FpwOTgfTvlGF6SjRpfMvta4cnhyYOMViwMdWcYL
MiVSy+FIz1EurzE6OnZQrqSuohxOnb72/dIMHbFWGTrNvS+Hz5GcZpp/6ahy
8G6j0cdyeJFevXOQhYFEjnRF/2ssB6OF2ssRkgw0UvtC3LGnHH4XCvuG2DOQ
zxy79tF/5aAlnBkx18pAeTNv/ilslEPewdSj/RgDDUxr0dQ2UcFu4OLDmm4G
Mpm8e8R0KxUMm/V2OQ0z0P6fw3zuO6lw3OBDmtgqA2FfqqZyhalw49h9XR8p
DLHiVm+KRangcOvX7zwZDKkz5q9UiFPhQU0xT6cshnLbpLsaJamQ+mX/a7aT
GApoiKsZO0KF69o3SSNmGDpGc4+XVKeCycwTzRs+GHIq33bmiAYVovI08ifv
Yii5NGuHghYV/GlKVhceYoiluDtAR48KP84lXhcIwVBfro6boxkVptYXjrMm
YCgyRUgj8xIVfJW05gvLMfQpibry1p4KfH731TwqMbSUYFFGcaCCu7dpplg1
YS8u7NDHq1S47W6b61iPoZNRC9z9N6jAtMZ/3xbH0KR/64TQIyqE9fCrs01j
qKLxk7tgIBVm93ZwrMxgKGx3xQxfMBX2vd5h1j+PIanXOYu7Q4nzee7gCl3C
kEOb/ya251RoY77oZ7wZR8f5bj9miaGCpL7xs/6tOGK64rZtywsq5KZc3uLC
iqP0BaudG/FU+LuLsdNyJ46+7T0usJhOBe7T2u6veXH01vlA6jyJCldepNr/
4MeRL1lYdDaLChzLgXmse3HErb1d8tdrKnj75KucEsWR+fWfsoNFVFDLE9vH
dwBHoqXf3vVRqCCaYp4xK42j//51KH4vocJCm6pL9SEcRcZUneoqp0Ji3fdu
xaM4aqS9NGirpsLaMeBPkcdRAnNkS/NHKlx2+PuVVxFHV02CiAWdiE/Ila4Q
JRxtGbhxrraBCp+SOjK1VXGEH3Tu+thIheibB1yjT+Io69YF2+pmKrza+c2L
cQpHGtsM7CvaqfDOQkNdFnC064z6z3I6FZ6aBTObaeCoL1n+ailGBShT3WKv
iaMHR8XdyZ1UCHfz+mCvjSPju3wzBd1U0Agpu3VaB0eCn3Z65/VQoStrzUlO
F0e08yt3cvoIfyM8/nzRw1FoxuxK1gAVCl4nvIzTx5HlxOhD0hAVDjvWeRgY
4EjyxA+m9GEqOA0/8Z8leOEBHpwySujt0e3PkYY4qm1oYkkap8LVDycMhI1w
FMv58Wn8JBVMrVyYsgi+YlvOHjdFhQTVTzOCxjiSfVXwPOY/KsiE/uUJI3hj
Omv381kqsEbXe08Q3K6U9DJyngouvbNb///9Ny3wOX/4AhVG9+l2hBHs3vIk
JfQPUT9nX7Y3EHyS54HIkyUqaD17v3mZ4O2XvTODVqigeyDphqgpjrrfukgE
rFHhy2veXaoEv5m/9ObhOhX+NO4f+f/33jADe+/XTDSoH+l68//vwS7pV9Q6
mGlQxPB9SuyzyGDBgXVpCw1cIljDDxAsbeSEi22jQRB7Ri4Twawk53RDNhpc
NLQcbyHsTyxedfXeQYPdx8/pEfssajZ2kU/ZSYPzhY21xD6L8jJdN2p30eBC
1rR9D3He8L/Xm6e4aPDmPxaRGwS7mbq/5OGmwcB1h9XfRPxMsj3s1Xlp8GLC
atmN4MPLN2Su8dPgn6IhfycRf/bTXn+eC9KAxp9lLUfw9KubNTQhGtw17a4M
IPJVZO5jtV2cBnohI6O/iXw/e31734n9NGAf+lbMT7Dnmu/0BUkaPIBR0jFC
H7Jv/YILD9Ig1Hxm+gShJ871e2adMjSY4LYxFdfC0dzZBwIbR2gQuFqKMxH6
K9nwJ5vL0aDre7h1vDqR//MB9/zkabAlpsbaRA1Ht/IDdbMUabD9m2PwAqF3
eavHvb9VaVDNil3Yq4KjsqKn2xK0aWA8wlCslcNR/JYIDOkS8X2W+mb7caKe
bSPTxvVpsGs1y1jnGI4UWZ6fUDUh8jMYKvdMhtDzxbjLP87RICC4L/PBfhwl
vnt5iMWKBm4uN7Dz4jjyY0tYPGpDgzH9J5riRP2rliVFBFykAaMgd/CZII6q
2DOo+6/S4IRXlnU9J45SHUhBJi40MNJdyZflwNFDWqbp7es0UDVJM362A0fq
Tq9+NtygwaS3wx0xFhx9fJ+76/odGgT/uEQjrWCo9nrpNUoYDcJes1XtHsQQ
02GVk6XhNDhrw8/U/4OYB9MfOGiRNIjulPLJ6MEQzfNzGYqmgZqIx8Ia0V+L
fHo2dyTSgHf9SvShBgwl+jORpt/SwLn/hITFWwx1wpNbc3k04Glwd3d4haE9
m7brLxbQQDI2m/UaCUPPgvf8t0ahwRXxHfqmiRgKDpM6xV5B+JNkt/9ZKIZu
xJp0H2qiQezWqqKfjhgqOMvIP9pCA5E/0zdVL2NogtvykVwbDTzOXi99YkvM
g4TLUqoMGlQW765dNseQTaq3j+E3Gtxju3bBWg1DOq8TOV0maIAmPx+f34Mh
wcphgxy2Ctgyr0Uj0xjo38MtgiM7KiDeSY9rrJiYr5oSvyQ4KkBZbXsqZz4D
vW5yjHq1uwJiPsjbqaYx0IlvQ4zsvRVQnCEgOhFAzN+lAdusIxWg4GcVS9Nl
oIeKP9wzzlTAWeW4Wwb1dGS/sqbWf7YCEpMp0owqOtKpFtolalkBfwfq2k1K
6Wi7nl1xum0F9FXfYhXOpqP4872LaY6EvVC//8QD6ES8v/mn3q4Ak92U8Fol
OopRXj79/Q7h74umIP+jdOSzxi8udK8CRm6M9ByWpCPVx9a1Kf4VwKai3ei4
m44+v+jalhJKvK/qUItvdwfKs/rb3fO0Al4WLFpK1HegZ3v58gQjKyBkVk2g
orgDncu2NEmOroDvexYeJoZ3IKVrvsI9sRXgMz+u/tO3AwnKxP8n8LICOna4
3uJx7ED//itDNgkV4PRt7NCx0x1ooORrdFJSBbTP/PKRPdmB/gfTvGFo
          "]]}, Annotation[#, "Charting`Private`Tag$536539#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvejVzpKz7Yp2QVNfePj4XraXunfjYp5IgD2Mf44t
ZmeuSAKcL/LQN7L3YAGcX2g0+zHr0wo4X66k++35/AY4/1dh4v81h1vg/HWa
fBKzz3bA+eEsl90k9Xrh/Nkd4mIieyfA+d9fG/Co7JuEcE9CGG/Nqylw/kSj
5xPvfJwG5xfMPVzI+n4GnH9Kck1MmfhsOF/g8/9T76XmwvkX78a7bPScD+df
39DaI7t9AZxvozhxx7NtC+H82FlKr4LPLILzvx7MjHU9vxjO9/5kdu3W8yVw
vt77lTUhv5fC+W2zLqUE/VkG58/xawz6IrQCztfY+LRRSnwlnO/04P09FbFV
cL6kRIPjZa3VcH76v6NPWXXXwPnFbyf233FZC+fzrGROnx6+Ds6XEtZuuBa+
Hs7/7JRz/o7ZBjh/yuW59RN2IPg1XovctplvhPMPH80UWHcQwXeV4Pmd7rQJ
zlfNL3zx+SyC7zB34zfHgM1w/qKNR6SZLiD4yadmOU+J2gLnx+/y7nlxG8Hf
tW7/db6MrXB+TCeb1fKPCL6ltcZexqJtcH7JRx5nvb8I/qu6My9l6rfD+cs/
xS2v/YfgH87akr6hYwcifHY98VjKuRPOrzW7mzM/EMF/sOnqhJkzEXwAgR6U
XQ==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$536539#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"t, \[CHacek]as [s]\"", TraditionalForm], 
       FormBox[
       "\"v, Rychlost [\\!\\(\\*SuperscriptBox[\\(ms\\), \\(-1\\)]\\)]\"", 
        TraditionalForm]}, 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]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 0.1}, {-0.301592775542771, 0.30159289474462014`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"v - rychlost,\\nZ\[AAcute]vislost rychlosti na \[CHacek]ase\"", 
       "\"okam\[ZHacek]it\[AAcute] rychlost\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.699357967700754*^9, 3.6993579743837695`*^9}, 
   3.6993580544990325`*^9, 3.699366496181775*^9, 3.6994517992406564`*^9, 
   3.699453600809843*^9, 3.6994537326838837`*^9, 3.699453831258629*^9, 
   3.69945583927677*^9, 3.6994559493013625`*^9, 3.6994566609286385`*^9, 
   3.6994730341838493`*^9, {3.699473075116395*^9, 3.6994731027913866`*^9}, 
   3.6994731706809173`*^9, 3.6994765666386623`*^9, 3.699476642324087*^9, {
   3.6994767791315985`*^9, 3.6994767932359104`*^9}, {3.699477033558823*^9, 
   3.699477043764289*^9}, {3.699477120868067*^9, 3.699477174017374*^9}, {
   3.699477283313319*^9, 3.6994773128312387`*^9}, {3.699477501496196*^9, 
   3.699477548550313*^9}, 3.6994791679723372`*^9, {3.699481345101534*^9, 
   3.6994813618116083`*^9}, 3.699547389295332*^9, {3.699906766914649*^9, 
   3.6999067788172965`*^9}, 3.6999072093277855`*^9, 3.6999076921817183`*^9, {
   3.699907809977062*^9, 3.6999078667964287`*^9}, 3.69990846486589*^9, 
   3.7008334712903957`*^9, {3.7008335262909126`*^9, 3.700833547865814*^9}, 
   3.7008336967736893`*^9, {3.7008337404214754`*^9, 3.7008337441949487`*^9}, 
   3.700833782507476*^9, 3.7008338475584135`*^9, {3.70083388783934*^9, 
   3.7008339620305443`*^9}, {3.7008340237448444`*^9, 3.700834134582939*^9}, {
   3.7008343019255676`*^9, 3.7008343244681873`*^9}, 3.700834484033153*^9, 
   3.700834608587891*^9, {3.7008346391462793`*^9, 3.700834670059046*^9}, {
   3.7008348210993204`*^9, 3.7008349701216717`*^9}, {3.700926304465541*^9, 
   3.700926465188125*^9}, {3.700926506873894*^9, 3.7009266567949095`*^9}, {
   3.700926699708265*^9, 3.7009267644289923`*^9}, {3.700926894398487*^9, 
   3.7009269494256825`*^9}, {3.7009269874416914`*^9, 3.700926992882096*^9}, {
   3.700927070542676*^9, 3.7009270867690125`*^9}, 3.700928149767768*^9, 
   3.700928328951586*^9, 3.7034919488949614`*^9, 3.703492161220778*^9, {
   3.703492262510045*^9, 3.7034922870463605`*^9}, 3.70351351909217*^9, 
   3.7035140691256933`*^9, 3.7035238896155224`*^9, 3.7035245605154734`*^9, 
   3.7046056793860316`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"V\[YAcute]chylka: \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"0.002`","\"m\"","meters","\"Meters\""},
    "Quantity"], "\[InvisibleSpace]", "\<\"(\"\>", "\[InvisibleSpace]", 
   TemplateBox[{"2.`","\"mm\"","millimeters","\"Millimeters\""},
    "Quantity"], "\[InvisibleSpace]", "\<\") , v \[CHacek]ase: \"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{"0","\"s\"","seconds","\"Seconds\""},
    "Quantity"], "\[InvisibleSpace]", "\<\", s frekvenc\[IAcute] \"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{"16","\"Hz\"","hertz","\"Hertz\""},
    "Quantity"]}],
  SequenceForm["V\[YAcute]chylka: ", 
   Quantity[0.002, "Meters"], "(", 
   Quantity[2., "Millimeters"], ") , v \[CHacek]ase: ", 
   Quantity[0, "Seconds"], ", s frekvenc\[IAcute] ", 
   Quantity[16, "Hertz"]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6993579678468485`*^9, 3.6993579745278645`*^9}, 
   3.6993580546181116`*^9, 3.699366496308859*^9, 3.6994517993587337`*^9, 
   3.699453600922418*^9, 3.699453732797458*^9, 3.699453831402224*^9, 
   3.699455839448387*^9, 3.6994559494384537`*^9, 3.6994566610657296`*^9, 
   3.699473034330447*^9, {3.699473075266996*^9, 3.69947310293851*^9}, 
   3.699473170833017*^9, 3.6994765667772665`*^9, 3.6994766424601784`*^9, {
   3.6994767792676888`*^9, 3.699476793370592*^9}, {3.699477033697915*^9, 
   3.6994770439043837`*^9}, {3.699477121004157*^9, 3.6994771741549664`*^9}, {
   3.6994772834534125`*^9, 3.6994773129678307`*^9}, {3.699477501633788*^9, 
   3.6994775486864014`*^9}, 3.699479168104921*^9, {3.699481345234623*^9, 
   3.699481361940194*^9}, 3.6995473894364266`*^9, {3.69990676705206*^9, 
   3.6999067789483833`*^9}, 3.699907209459875*^9, 3.6999076923153067`*^9, {
   3.699907810073126*^9, 3.699907866927014*^9}, 3.699908464998478*^9, 
   3.700833471407567*^9, {3.7008335264049883`*^9, 3.7008335479949656`*^9}, 
   3.7008336968897667`*^9, {3.7008337405360527`*^9, 3.700833744310828*^9}, 
   3.7008337826200504`*^9, 3.700833847671489*^9, {3.70083388795942*^9, 
   3.7008339621436195`*^9}, {3.700834023865425*^9, 3.7008341346975155`*^9}, {
   3.7008343020396433`*^9, 3.700834324579337*^9}, 3.700834484146228*^9, 
   3.7008346087084713`*^9, {3.7008346392588544`*^9, 3.7008346701719227`*^9}, {
   3.700834821216728*^9, 3.700834970239749*^9}, {3.700926304593626*^9, 
   3.7009264653067026`*^9}, {3.700926506989351*^9, 3.7009266569119873`*^9}, {
   3.700926699828344*^9, 3.7009267645630817`*^9}, {3.700926894514064*^9, 
   3.700926949541261*^9}, {3.700926987559769*^9, 3.7009269929991727`*^9}, {
   3.7009270706637807`*^9, 3.7009270868850904`*^9}, 3.7009281498848457`*^9, 
   3.700928329066162*^9, 3.703491949022046*^9, 3.7034921613408566`*^9, {
   3.7034922626261234`*^9, 3.703492287161437*^9}, 3.70351351921325*^9, 
   3.7035140692407703`*^9, 3.7035238898742332`*^9, 3.703524560636052*^9, 
   3.704605679403043*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Okam\[ZHacek]it\[AAcute] rychlost: \"\>", "\[InvisibleSpace]", 
   TemplateBox[{
    "0.30159289474462014`",
     RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
       "\"s\""}],"meters per second",FractionBox["\"Meters\"", "\"Seconds\""]},
    "Quantity"], "\[InvisibleSpace]", "\<\"\[LongRightArrow]\"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{
    "301.59289474462014`",
     RowBox[{"\"mm\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
       "\"s\""}],"millimeters per second",FractionBox[
     "\"Millimeters\"", "\"Seconds\""]},
    "Quantity"], "\[InvisibleSpace]", "\<\") , v \[CHacek]ase: \"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{"0","\"s\"","seconds","\"Seconds\""},
    "Quantity"], "\[InvisibleSpace]", "\<\", s frekvenc\[IAcute] \"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{"16","\"Hz\"","hertz","\"Hertz\""},
    "Quantity"]}],
  SequenceForm["Okam\[ZHacek]it\[AAcute] rychlost: ", 
   Quantity[0.30159289474462014`, "Meters"/"Seconds"], "\[LongRightArrow]", 
   Quantity[301.59289474462014`, "Millimeters"/"Seconds"], 
   ") , v \[CHacek]ase: ", 
   Quantity[0, "Seconds"], ", s frekvenc\[IAcute] ", 
   Quantity[16, "Hertz"]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6993579678468485`*^9, 3.6993579745278645`*^9}, 
   3.6993580546181116`*^9, 3.699366496308859*^9, 3.6994517993587337`*^9, 
   3.699453600922418*^9, 3.699453732797458*^9, 3.699453831402224*^9, 
   3.699455839448387*^9, 3.6994559494384537`*^9, 3.6994566610657296`*^9, 
   3.699473034330447*^9, {3.699473075266996*^9, 3.69947310293851*^9}, 
   3.699473170833017*^9, 3.6994765667772665`*^9, 3.6994766424601784`*^9, {
   3.6994767792676888`*^9, 3.699476793370592*^9}, {3.699477033697915*^9, 
   3.6994770439043837`*^9}, {3.699477121004157*^9, 3.6994771741549664`*^9}, {
   3.6994772834534125`*^9, 3.6994773129678307`*^9}, {3.699477501633788*^9, 
   3.6994775486864014`*^9}, 3.699479168104921*^9, {3.699481345234623*^9, 
   3.699481361940194*^9}, 3.6995473894364266`*^9, {3.69990676705206*^9, 
   3.6999067789483833`*^9}, 3.699907209459875*^9, 3.6999076923153067`*^9, {
   3.699907810073126*^9, 3.699907866927014*^9}, 3.699908464998478*^9, 
   3.700833471407567*^9, {3.7008335264049883`*^9, 3.7008335479949656`*^9}, 
   3.7008336968897667`*^9, {3.7008337405360527`*^9, 3.700833744310828*^9}, 
   3.7008337826200504`*^9, 3.700833847671489*^9, {3.70083388795942*^9, 
   3.7008339621436195`*^9}, {3.700834023865425*^9, 3.7008341346975155`*^9}, {
   3.7008343020396433`*^9, 3.700834324579337*^9}, 3.700834484146228*^9, 
   3.7008346087084713`*^9, {3.7008346392588544`*^9, 3.7008346701719227`*^9}, {
   3.700834821216728*^9, 3.700834970239749*^9}, {3.700926304593626*^9, 
   3.7009264653067026`*^9}, {3.700926506989351*^9, 3.7009266569119873`*^9}, {
   3.700926699828344*^9, 3.7009267645630817`*^9}, {3.700926894514064*^9, 
   3.700926949541261*^9}, {3.700926987559769*^9, 3.7009269929991727`*^9}, {
   3.7009270706637807`*^9, 3.7009270868850904`*^9}, 3.7009281498848457`*^9, 
   3.700928329066162*^9, 3.703491949022046*^9, 3.7034921613408566`*^9, {
   3.7034922626261234`*^9, 3.703492287161437*^9}, 3.70351351921325*^9, 
   3.7035140692407703`*^9, 3.7035238898742332`*^9, 3.703524560636052*^9, 
   3.70460567944357*^9}]
}, Open  ]],

Cell[TextData[StyleBox["V\[YAcute]po\[CHacek]et c\[IAcute]vky", "Chapter"]], \
"Text",
 CellChangeTimes->{{3.699296095249768*^9, 3.6992961010131645`*^9}}],

Cell[CellGroupData[{

Cell["Konstanty", "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.699355263044466*^9, 3.6993552757224736`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Ne", " ", "se", " ", "v\[SHacek]emi", " ", "konstantami", " ", "se", " ", 
    "po\[CHacek]\[IAcute]talo"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Mu]0", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{
      RowBox[{
       StyleBox["4",
        FontColor->GrayLevel[0]], 
       StyleBox["*",
        FontColor->GrayLevel[0]], 
       StyleBox[
        SuperscriptBox["10", 
         RowBox[{"-", "7"}]],
        FontColor->GrayLevel[0]], 
       StyleBox["*",
        FontColor->GrayLevel[0]], "Pi"}], ",", "\"\<Henries*Meters^-1\>\""}], 
     "]"}]}], ";", 
   RowBox[{"(*", " ", 
    RowBox[{"Permeabilita", " ", "v\[AAcute]kua"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"\[Mu]v", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{
      StyleBox[
       RowBox[{"1.", 
        StyleBox["00060",
         FontColor->GrayLevel[0]]}]], ",", "\"\<DimensionlessUnit\>\""}], 
     "]"}]}], ";", 
   RowBox[{"(*", " ", 
    RowBox[{"Permeabilita", " ", "vzduchu"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"\[Mu]m", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{
      StyleBox["0.999991",
       FontColor->GrayLevel[0]], ",", "\"\<DimensionlessUnit\>\""}], "]"}]}], 
   ";", 
   RowBox[{"(*", " ", 
    RowBox[{"Permeabilita", " ", "m\[EHacek]di"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"\[Rho]", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{
      StyleBox[
       RowBox[{"1.678", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "8"}]]}],
       FontColor->GrayLevel[0]], ",", "\"\<Ohms*Meters\>\""}], "]"}]}], ";", 
   RowBox[{"(*", " ", 
    RowBox[{"Rezistivita", " ", "m\[EHacek]di"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"\[Mu]v", "=", 
    RowBox[{"\[Mu]0", "*", "\[Mu]v"}]}], ";", 
   RowBox[{"(*", " ", 
    RowBox[{"Permeabilita", " ", "vzduchov\[EAcute]", " ", "mezery"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Permaebilita \[Mu] = \>\"", ",", "\[Mu]v"}], "]"}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"\[Mu]c", "=", 
    RowBox[{"\[Mu]0", "*", "\[Mu]m"}]}], ";", 
   RowBox[{"(*", " ", 
    RowBox[{"Permeabilita", " ", "m\[EHacek]di"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Permaebilita \[Mu]c = \>\"", ",", "\[Mu]c"}], "]"}], "*)"}],
    "\[IndentingNewLine]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6993552718555794`*^9, 3.699355275722973*^9}, {
  3.6993554010150766`*^9, 3.699355402558937*^9}, {3.6994730846735544`*^9, 
  3.699473093023935*^9}, {3.704605355772978*^9, 3.7046053580740027`*^9}}]
}, Open  ]],

Cell[TextData[StyleBox["Zadan\[EAcute] hodnoty", "Section",
 FontColor->GrayLevel[0]]], "Text",
 CellChangeTimes->{{3.699296152267479*^9, 3.699296156130869*^9}, {
  3.6993553083780804`*^9, 3.6993553094008875`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"P", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{
      StyleBox["1",
       FontColor->RGBColor[0, 1, 0]], ",", "\"\<Watts\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", "V\[YAcute]kon", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s", "=", 
    RowBox[{"2", "*", "l"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"dr\[AAcute]ha", " ", "magntu"}], " ", ",", " ", 
    RowBox[{"12", " ", "mm"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.699296145362228*^9, 3.699296158117798*^9}, {
  3.6992963070039825`*^9, 3.6992963447772923`*^9}, {3.699296378638689*^9, 
  3.6992963888365583`*^9}, {3.699355093584996*^9, 3.6993551051599493`*^9}, {
  3.699363836075822*^9, 3.6993638633894386`*^9}}],

Cell[TextData[StyleBox["V\[YAcute]po\[CHacek]et 1 - konstatn\[IAcute] d\
\[EAcute]lka vodi\[CHacek]e v mag. poli", "Section",
 FontColor->GrayLevel[0]]], "Text",
 CellChangeTimes->{{3.6992966537209864`*^9, 3.699296654978113*^9}, {
  3.699297737932254*^9, 3.699297773326027*^9}},
 Background->RGBColor[0.7686274509803922, 0.7686274509803922, 0.]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Vstupn\[IAcute] hodnoty", "Subsection",
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.699355111263062*^9, 3.6993551151395583`*^9}, {
  3.6993551911238256`*^9, 3.699355216347025*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Magnet", " ", "tvaru", " ", "kv\[AAcute]dru"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"magnet1", "=", 
     RowBox[{"Quantity", "[", 
      RowBox[{
       StyleBox["0.3",
        FontColor->RGBColor[0, 1, 0]], ",", "\"\<Teslas\>\""}], "]"}]}], 
    ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"S\[IAcute]la", " ", "magnetu"}], ",", " ", 
     RowBox[{"hodnota", " ", "mezi", " ", "0"}], ",", 
     RowBox[{"1", " ", "a\[ZHacek]", " ", "0"}], ",", "5"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"la1", "=", 
     RowBox[{"Quantity", "[", 
      RowBox[{"35", ",", "\"\<Millimeters\>\""}], "]"}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"\[CapitalSHacek]\[IAcute]\[RHacek]ka", " ", "magnetu"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lb1", "=", 
     RowBox[{"Quantity", "[", 
      RowBox[{"35", ",", "\"\<Millimeters\>\""}], "]"}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"V\[YAcute]\[SHacek]ka", " ", "magnetu"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tc1", "=", 
     RowBox[{"Quantity", "[", 
      RowBox[{"15", ",", "\"\<Millimeters\>\""}], "]"}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Tlou\[SHacek]\[THacek]ka", " ", "magnetu"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Dd1", "=", 
     RowBox[{"Quantity", "[", 
      RowBox[{"1.2", ",", "\"\<Millimeters\>\""}], "]"}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
    "Pr\[URing]m\[EHacek]r", " ", "m\[EHacek]d\[EHacek]n\[EAcute]ho", " ", 
     "vodi\[CHacek]e"}], " ", "*)"}], "\[IndentingNewLine]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.699355121743754*^9, 3.699355151610799*^9}, 
   3.699355216347025*^9, {3.699355607062351*^9, 3.699355607245206*^9}, {
   3.699454419706849*^9, 3.699454430420097*^9}, {3.6994545700021467`*^9, 
   3.6994545908206577`*^9}, {3.69945542747865*^9, 3.6994554630494213`*^9}, {
   3.699458178609474*^9, 3.6994581855320716`*^9}, 3.6994730312266736`*^9, {
   3.6994771185760193`*^9, 3.6994771390145493`*^9}, {3.699477499050582*^9, 
   3.6994775218419714`*^9}, {3.7008338803374157`*^9, 3.700833886555621*^9}, {
   3.70083392794744*^9, 3.700833953301944*^9}, {3.7008340525196037`*^9, 
   3.7008340592762184`*^9}, {3.70083412029156*^9, 3.7008341216529417`*^9}, {
   3.700834298328259*^9, 3.7008343230280104`*^9}, {3.700834815780771*^9, 
   3.7008348177338104`*^9}, {3.700834905864383*^9, 3.7008349080633497`*^9}, {
   3.7008349391304665`*^9, 3.70083493943298*^9}, {3.7009263008162518`*^9, 
   3.700926302108042*^9}, {3.700926353943331*^9, 3.7009263838488483`*^9}, {
   3.700926414808979*^9, 3.7009264442825036`*^9}, 3.700926505868437*^9, {
   3.700926568332446*^9, 3.700926568642207*^9}, {3.7009265991600714`*^9, 
   3.7009266182781076`*^9}, {3.700926648902187*^9, 3.700926649338704*^9}, {
   3.7009266983598056`*^9, 3.700926758549004*^9}, 3.7009268931131105`*^9, {
   3.70092697725495*^9, 3.70092698585402*^9}, {3.7009270692083073`*^9, 
   3.7009270838283715`*^9}, {3.7009281417085304`*^9, 3.700928143914663*^9}, {
   3.703067026109462*^9, 3.7030670411805043`*^9}, {3.7034922607048445`*^9, 
   3.7034922807471914`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["D\[IAcute]l\[CHacek]\[IAcute] \
v\[YAcute]po\[CHacek]ty", "Subsection",
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.699355205243271*^9, {3.6993553235281854`*^9, 3.699355325880783*^9}, 
   3.6993554515359993`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"S11", "=", 
    FractionBox[
     RowBox[{"Pi", "*", 
      SuperscriptBox["Dd1", "2"]}], "4"]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Pr\[URing]\[RHacek]ez", " ", "vodi\[CHacek]e"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Nc1m", "=", 
    FractionBox["lb1", "Dd1"]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "po\[CHacek]et", " ", "z\[AAcute]vit\[URing]", " ", "na", " ", 
    "v\[YAcute]\[SHacek]ku", " ", "magnetu"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Nc1c", "=", 
    FractionBox["l", "Dd1"]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "po\[CHacek]et", " ", "z\[AAcute]vit\[URing]", " ", 
    "z\[AAcute]vysl\[YAcute]ch", " ", "na", " ", "dr\[AAcute]ze"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Nc11", "=", 
    RowBox[{"Nc1m", "+", "Nc1c"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "Celkov\[YAcute]", " ", "po\[CHacek]et", " ", "z\[AAcute]vit\[URing]"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", "S11"}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.699355246814729*^9, {3.6993553355297184`*^9, 3.699355395818905*^9}, 
   3.6993554515359993`*^9, {3.699356193484455*^9, 3.699356193798628*^9}, {
   3.6993562255218935`*^9, 3.699356226628891*^9}, {3.699358157166857*^9, 
   3.69935816698125*^9}, {3.6994542411598754`*^9, 3.699454241740811*^9}, {
   3.699454606963682*^9, 3.69945466367936*^9}, 3.6994547111015654`*^9, {
   3.699454815861827*^9, 3.6994548244994545`*^9}, {3.6994548577491784`*^9, 
   3.699454900504798*^9}, {3.699454973154763*^9, 3.699454975168867*^9}, {
   3.69945511800613*^9, 3.699455208807871*^9}, 3.699457625252842*^9, 
   3.699457690773533*^9, 3.699457764198721*^9, 3.6994602609845295`*^9, {
   3.6994763421093855`*^9, 3.699476344970439*^9}, {3.70349233468859*^9, 
   3.70349233516991*^9}}]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{"1.1309733552923256`",RowBox[{
     SuperscriptBox["\"mm\"", "2"]}],"millimeters squared",SuperscriptBox[
   "\"Millimeters\"", "2"]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.70349233593742*^9, 3.703513554625444*^9, 
  3.703514069909216*^9, 3.70352389617233*^9, 3.703524560742624*^9, 
  3.704605679524624*^9}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Parametry c\[IAcute]vky", "Subsection",
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.699455242404296*^9, 3.6994552498523035`*^9}, 
   3.699455405162909*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Po\[CHacek]et z\[AAcute]vit\[URing] na v\[YAcute]\[SHacek]ku magnetu: \
\>\"", ",", " ", "Nc1m", " ", ",", "\"\< \[LongRightArrow] \>\"", ",", 
    RowBox[{"Round", "[", "Nc1m", "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Po\[CHacek]et z\[AAcute]vit\[URing] na dr\[AAcute]ze magnetu: \>\"", 
    ",", " ", "Nc1c", " ", ",", "\"\< \[LongRightArrow] \>\"", ",", 
    RowBox[{"Round", "[", "Nc1c", "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Celkov\[YAcute] po\[CHacek]et z\[AAcute]vit\[URing]: \>\"", ",", " ", 
    "Nc11", ",", "\"\< \[LongRightArrow] \>\"", ",", 
    RowBox[{"Round", "[", "Nc11", "]"}]}], "]"}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.6994552336202464`*^9, {3.699455341382348*^9, 3.6994554051634083`*^9}, {
   3.699457707691021*^9, 3.6994577087972565`*^9}, {3.6994577821358366`*^9, 
   3.699457782702371*^9}, {3.6994601809279685`*^9, 3.6994601814774637`*^9}, {
   3.69946029403191*^9, 3.69946029549292*^9}, {3.6994763176073956`*^9, 
   3.6994763206973276`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Po\[CHacek]et z\[AAcute]vit\[URing] na v\[YAcute]\[SHacek]ku \
magnetu: \"\>", "\[InvisibleSpace]", "29.166666666666668`", 
   "\[InvisibleSpace]", "\<\" \[LongRightArrow] \"\>", "\[InvisibleSpace]", 
   "29"}],
  SequenceForm[
  "Po\[CHacek]et z\[AAcute]vit\[URing] na v\[YAcute]\[SHacek]ku magnetu: ", 
   29.166666666666668`, " \[LongRightArrow] ", 29],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994603233385367`*^9, 3.699473034506378*^9, {3.699473075452117*^9, 
   3.699473103064568*^9}, 3.6994731709525967`*^9, 3.699476574329507*^9, 
   3.6994766425692506`*^9, {3.699476779371258*^9, 3.699476793486398*^9}, {
   3.6994770338064857`*^9, 3.699477044018958*^9}, {3.699477121118734*^9, 
   3.6994771742715445`*^9}, {3.699477288084711*^9, 3.699477313083909*^9}, {
   3.6994775017453623`*^9, 3.699477548798976*^9}, 3.6994791682270036`*^9, {
   3.6994813453554945`*^9, 3.699481362049267*^9}, 3.699547395383068*^9, 
   3.699906781382716*^9, 3.6999072178259096`*^9, 3.6999076924308825`*^9, {
   3.6999078101756945`*^9, 3.6999078670290823`*^9}, 3.699908465118557*^9, 
   3.7008334715166388`*^9, {3.700833526502553*^9, 3.7008335480820227`*^9}, 
   3.700833696992835*^9, {3.7008337406403675`*^9, 3.7008337444209013`*^9}, 
   3.7008337827156134`*^9, 3.700833847782565*^9, {3.7008338880769963`*^9, 
   3.700833962245688*^9}, {3.7008340239734974`*^9, 3.700834134795084*^9}, {
   3.7008343021427116`*^9, 3.7008343246795416`*^9}, 3.7008344842563*^9, 
   3.700834608809539*^9, {3.700834639355918*^9, 3.7008346702729917`*^9}, {
   3.700834821319296*^9, 3.7008349703573284`*^9}, {3.7009263105264626`*^9, 
   3.7009264654197807`*^9}, {3.700926507097925*^9, 3.7009266570200596`*^9}, {
   3.7009266999334154`*^9, 3.700926764674157*^9}, {3.700926894620575*^9, 
   3.70092694965234*^9}, {3.700926987668341*^9, 3.7009269931057463`*^9}, {
   3.7009270707813625`*^9, 3.7009270869937544`*^9}, 3.700928149987728*^9, 
   3.7009283291642265`*^9, 3.7034919559157653`*^9, 3.7034921614429245`*^9, {
   3.703492262727191*^9, 3.7034922872625046`*^9}, 3.703513554638467*^9, 
   3.7035140699192224`*^9, 3.7035238961913414`*^9, 3.7035245607526317`*^9, 
   3.7046056795411344`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Po\[CHacek]et z\[AAcute]vit\[URing] na dr\[AAcute]ze magnetu: \
\"\>", "\[InvisibleSpace]", "5.`", 
   "\[InvisibleSpace]", "\<\" \[LongRightArrow] \"\>", "\[InvisibleSpace]", 
   "5"}],
  SequenceForm[
  "Po\[CHacek]et z\[AAcute]vit\[URing] na dr\[AAcute]ze magnetu: ", 5., 
   " \[LongRightArrow] ", 5],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994603233385367`*^9, 3.699473034506378*^9, {3.699473075452117*^9, 
   3.699473103064568*^9}, 3.6994731709525967`*^9, 3.699476574329507*^9, 
   3.6994766425692506`*^9, {3.699476779371258*^9, 3.699476793486398*^9}, {
   3.6994770338064857`*^9, 3.699477044018958*^9}, {3.699477121118734*^9, 
   3.6994771742715445`*^9}, {3.699477288084711*^9, 3.699477313083909*^9}, {
   3.6994775017453623`*^9, 3.699477548798976*^9}, 3.6994791682270036`*^9, {
   3.6994813453554945`*^9, 3.699481362049267*^9}, 3.699547395383068*^9, 
   3.699906781382716*^9, 3.6999072178259096`*^9, 3.6999076924308825`*^9, {
   3.6999078101756945`*^9, 3.6999078670290823`*^9}, 3.699908465118557*^9, 
   3.7008334715166388`*^9, {3.700833526502553*^9, 3.7008335480820227`*^9}, 
   3.700833696992835*^9, {3.7008337406403675`*^9, 3.7008337444209013`*^9}, 
   3.7008337827156134`*^9, 3.700833847782565*^9, {3.7008338880769963`*^9, 
   3.700833962245688*^9}, {3.7008340239734974`*^9, 3.700834134795084*^9}, {
   3.7008343021427116`*^9, 3.7008343246795416`*^9}, 3.7008344842563*^9, 
   3.700834608809539*^9, {3.700834639355918*^9, 3.7008346702729917`*^9}, {
   3.700834821319296*^9, 3.7008349703573284`*^9}, {3.7009263105264626`*^9, 
   3.7009264654197807`*^9}, {3.700926507097925*^9, 3.7009266570200596`*^9}, {
   3.7009266999334154`*^9, 3.700926764674157*^9}, {3.700926894620575*^9, 
   3.70092694965234*^9}, {3.700926987668341*^9, 3.7009269931057463`*^9}, {
   3.7009270707813625`*^9, 3.7009270869937544`*^9}, 3.700928149987728*^9, 
   3.7009283291642265`*^9, 3.7034919559157653`*^9, 3.7034921614429245`*^9, {
   3.703492262727191*^9, 3.7034922872625046`*^9}, 3.703513554638467*^9, 
   3.7035140699192224`*^9, 3.7035238961913414`*^9, 3.7035245607526317`*^9, 
   3.7046056795436354`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Celkov\[YAcute] po\[CHacek]et z\[AAcute]vit\[URing]: \"\>", 
   "\[InvisibleSpace]", "34.16666666666667`", 
   "\[InvisibleSpace]", "\<\" \[LongRightArrow] \"\>", "\[InvisibleSpace]", 
   "34"}],
  SequenceForm[
  "Celkov\[YAcute] po\[CHacek]et z\[AAcute]vit\[URing]: ", 34.16666666666667, 
   " \[LongRightArrow] ", 34],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994603233385367`*^9, 3.699473034506378*^9, {3.699473075452117*^9, 
   3.699473103064568*^9}, 3.6994731709525967`*^9, 3.699476574329507*^9, 
   3.6994766425692506`*^9, {3.699476779371258*^9, 3.699476793486398*^9}, {
   3.6994770338064857`*^9, 3.699477044018958*^9}, {3.699477121118734*^9, 
   3.6994771742715445`*^9}, {3.699477288084711*^9, 3.699477313083909*^9}, {
   3.6994775017453623`*^9, 3.699477548798976*^9}, 3.6994791682270036`*^9, {
   3.6994813453554945`*^9, 3.699481362049267*^9}, 3.699547395383068*^9, 
   3.699906781382716*^9, 3.6999072178259096`*^9, 3.6999076924308825`*^9, {
   3.6999078101756945`*^9, 3.6999078670290823`*^9}, 3.699908465118557*^9, 
   3.7008334715166388`*^9, {3.700833526502553*^9, 3.7008335480820227`*^9}, 
   3.700833696992835*^9, {3.7008337406403675`*^9, 3.7008337444209013`*^9}, 
   3.7008337827156134`*^9, 3.700833847782565*^9, {3.7008338880769963`*^9, 
   3.700833962245688*^9}, {3.7008340239734974`*^9, 3.700834134795084*^9}, {
   3.7008343021427116`*^9, 3.7008343246795416`*^9}, 3.7008344842563*^9, 
   3.700834608809539*^9, {3.700834639355918*^9, 3.7008346702729917`*^9}, {
   3.700834821319296*^9, 3.7008349703573284`*^9}, {3.7009263105264626`*^9, 
   3.7009264654197807`*^9}, {3.700926507097925*^9, 3.7009266570200596`*^9}, {
   3.7009266999334154`*^9, 3.700926764674157*^9}, {3.700926894620575*^9, 
   3.70092694965234*^9}, {3.700926987668341*^9, 3.7009269931057463`*^9}, {
   3.7009270707813625`*^9, 3.7009270869937544`*^9}, 3.700928149987728*^9, 
   3.7009283291642265`*^9, 3.7034919559157653`*^9, 3.7034921614429245`*^9, {
   3.703492262727191*^9, 3.7034922872625046`*^9}, 3.703513554638467*^9, 
   3.7035140699192224`*^9, 3.7035238961913414`*^9, 3.7035245607526317`*^9, 
   3.704605679546638*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Nc1", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{"34", ",", "\"\<DimensionlessUnit\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "Po\[CHacek]et", " ", "z\[AAcute]vit\[URing]", " ", "c\[IAcute]vky"}], " ",
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Nv1", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{"10", ",", "\"\<DimensionlessUnit\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Po\[CHacek]et", " ", "vrstev"}], " ", 
   "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.699460320933544*^9, {3.6994730731746097`*^9, 3.699473073201126*^9}, {
   3.699476114392891*^9, 3.6994761338040514`*^9}, {3.6994767763225107`*^9, 
   3.6994767913245583`*^9}, {3.6994770389855623`*^9, 
   3.6994770401226172`*^9}, {3.6994771483956566`*^9, 3.6994771724787407`*^9}, 
   3.699477310680007*^9, {3.6994775051464314`*^9, 3.699477544261704*^9}, 
   3.699479087437257*^9, {3.699906707988431*^9, 3.6999067265820093`*^9}, {
   3.699906880947049*^9, 3.699906881766593*^9}, {3.6999076813414807`*^9, 
   3.6999076879591665`*^9}, {3.6999084622199554`*^9, 
   3.6999084626358213`*^9}, {3.7008337381663914`*^9, 3.700833743230381*^9}, {
   3.7008338911058846`*^9, 3.7008339603976545`*^9}, {3.700834103205426*^9, 
   3.700834131468586*^9}, {3.700834482112082*^9, 3.700834482673098*^9}, {
   3.7008346477465696`*^9, 3.700834668453887*^9}, {3.700834867558646*^9, 
   3.7008349688579655`*^9}, {3.7009263193469996`*^9, 3.70092633901814*^9}, {
   3.7009264508685284`*^9, 3.7009264640254307`*^9}, {3.700926512526831*^9, 
   3.7009266554721937`*^9}, {3.7009267031508408`*^9, 
   3.7009267633715053`*^9}, {3.7009268993380947`*^9, 3.700926948080651*^9}, {
   3.700926990806267*^9, 3.700926991447509*^9}, {3.7009270732968245`*^9, 
   3.700927074027054*^9}, {3.7009281479901533`*^9, 3.7009281481420245`*^9}, {
   3.703492268810233*^9, 3.703492285766509*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Odpor c\[IAcute]vky", "Subsection",
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.6994576597089067`*^9, 3.6994576715486946`*^9}, 
   3.6994579855161915`*^9, 3.6994790843673534`*^9, 3.6995473704936924`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"m", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{"10", ",", "\"\<Millimeters\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Mezera", " ", "mezi", " ", "c\[IAcute]vkou"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{"5", ",", "\"\<Millimeters\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "Mezera", " ", "za", " ", "magnety", " ", "ne\[ZHacek]", " ", "se", " ", 
    "za\[CHacek]ne", " ", "c\[IAcute]vka", " ", "kroutit"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"k", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{"1", ",", "\"\<Millimeters\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "v\[URing]le", " ", "mezi", " ", "magnetem", " ", "a", " ", 
    "c\[IAcute]vkou"}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"za", "=", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"Pi", "*", "Dd1", "*", "Q"}], ",", 
      RowBox[{"{", 
       RowBox[{"Q", ",", "Nc1"}], "}"}]}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Celkov\[AAcute]", " ", "d\[EAcute]lka", " ", "zaoblen\[IAcute]"}],
    " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lc1n", "=", 
    RowBox[{
     RowBox[{"Nc1", "*", "2", "*", 
      RowBox[{"(", 
       RowBox[{"la1", "+", "m", "+", "b"}], ")"}]}], "+", "za"}]}], ";"}], 
  " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Celkov\[AAcute]", " ", "d\[EAcute]lka", " ", "vodi\[CHacek]e", " ", "na", 
    " ", "jednu", " ", "vrstvu"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lm1", "=", 
    RowBox[{"la1", "*", "Nc1m", "*", "Nv1"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "D\[EAcute]lka", " ", "vodi\[CHacek]e", " ", "kolem", " ", "magnetu"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lc1", "=", 
    RowBox[{"lc1n", "*", "Nv1"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Celkov\[AAcute]", " ", "d\[EAcute]lka", " ", "vodi\[CHacek]e"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Rc1", "=", 
    RowBox[{"lc1", "*", 
     FractionBox["\[Rho]", "S11"]}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Odpor", " ", "c\[IAcute]vky"}], ",", " ", 
    RowBox[{"lc", " ", "-", " ", 
     RowBox[{"d\[EAcute]lka", " ", 
      RowBox[{"vodi\[CHacek]e", "/", "c\[IAcute]vky"}]}]}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lm1", "=", 
    RowBox[{"la1", "*", "Nc1m", "*", "Nv1"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "D\[EAcute]lka", " ", "vodi\[CHacek]e", " ", "kolem", " ", "magnetu"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sirka", "=", 
    RowBox[{
     RowBox[{"Nc1", "*", "Dd1", "*", "2"}], "+", 
     RowBox[{"2", "*", "b"}], "+", "m", "+", "la1"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"\[CapitalSHacek]\[IAcute]\[RHacek]ka", " ", "c\[IAcute]vky"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vyska", "=", 
    RowBox[{
     RowBox[{"Nc1", "*", "Dd1", "*", "2"}], "+", "m"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"v\[YAcute]\[SHacek]ka", " ", "c\[IAcute]vky"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tloust", "=", 
   RowBox[{
    RowBox[{"2", "*", "k"}], "+", 
    RowBox[{"2", "*", "tc1"}], "+", 
    RowBox[{"Nv1", "*", "Dd1"}]}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.699457692284551*^9, 3.699457698156951*^9}, {
   3.6994578100760403`*^9, 3.6994578576402044`*^9}, {3.699457912425784*^9, 
   3.6994579278010416`*^9}, 3.6994579855166917`*^9, {3.699460433312822*^9, 
   3.6994604380186167`*^9}, {3.6994760821543536`*^9, 3.6994761114807515`*^9}, 
   3.699476147705722*^9, {3.699476185565048*^9, 3.6994761980396085`*^9}, {
   3.699476327056137*^9, 3.69947635645962*^9}, {3.6994763968638263`*^9, 
   3.6994764533515005`*^9}, 3.6994764899735603`*^9, {3.6994790901782084`*^9, 
   3.6994790910002503`*^9}, {3.700833492643773*^9, 3.700833546126362*^9}, {
   3.7008336692326045`*^9, 3.700833689933118*^9}, {3.700833841586174*^9, 
   3.7008338449604793`*^9}, 3.7008340439519625`*^9, {3.7008340796317015`*^9, 
   3.7008340999699326`*^9}, {3.700928177910144*^9, 3.700928257471323*^9}, {
   3.700928290825843*^9, 3.7009283044138875`*^9}, 3.7034919442608805`*^9, {
   3.7034924181660986`*^9, 3.703492418251156*^9}, {3.703513502217949*^9, 
   3.7035135022329583`*^9}, {3.7035137107242594`*^9, 
   3.7035137216215057`*^9}, {3.70352443391975*^9, 3.7035244546261883`*^9}, {
   3.70352450322472*^9, 3.7035245400024385`*^9}}],

Cell[BoxData[{
 RowBox[{"Print", "[", 
  RowBox[{"\"\<lc1n = \>\"", ",", 
   RowBox[{"N", "[", "lc1n", "]"}], ",", 
   "\"\< , celkov\[AAcute] d\[EAcute]lka vodi\[CHacek]e na jednu \
vrstvu\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<lc1 = \>\"", ",", 
   RowBox[{"N", "[", "lc1", "]"}], ",", 
   "\"\< , celkov\[AAcute] d\[EAcute]lka vodi\[CHacek]e\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Rc1 = \>\"", ",", 
   RowBox[{"N", "[", "Rc1", "]"}], ",", 
   "\"\< , celkov\[AAcute] odpor vodi\[CHacek]e\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<D\[EAcute]lka vodi\[CHacek]e kolem magnetu: \>\"", ",", " ", 
    RowBox[{"N", "[", "lm1", "]"}], " ", ",", "\"\<\[LongRightArrow]\>\"", 
    ",", 
    RowBox[{"Round", "[", "lm1", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<\[CapitalSHacek]\[IAcute]\[RHacek]ka c\[IAcute]vky: \>\"", ",", " ", 
    "sirka"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<V\[YAcute]\[SHacek]ka c\[IAcute]vky: \>\"", ",", " ", "vyska"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Tlou\[SHacek]\[THacek]ka c\[IAcute]vky: \>\"", ",", " ", "tloust"}], 
   "]"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.6994579242093925`*^9, 3.6994579278015423`*^9}, 
   3.6994579855166917`*^9, {3.699472755313969*^9, 3.6994727666242*^9}, {
   3.699476206311689*^9, 3.6994762107281275`*^9}, {3.6994763349073706`*^9, 
   3.6994763357118783`*^9}, {3.6994766003695297`*^9, 
   3.6994766019198313`*^9}, {3.7008337296258073`*^9, 3.700833732193353*^9}, {
   3.7008340008527994`*^9, 3.700834019893327*^9}, {3.7009282673595715`*^9, 
   3.700928326964883*^9}, {3.7035245448359065`*^9, 3.7035245567122464`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"lc1n = \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"5643.097154663112`","\"mm\"","millimeters","\"Millimeters\""},
    "Quantity"], 
   "\[InvisibleSpace]", "\<\" , celkov\[AAcute] d\[EAcute]lka vodi\[CHacek]e \
na jednu vrstvu\"\>"}],
  SequenceForm["lc1n = ", 
   Quantity[5643.097154663112, "Millimeters"], 
   " , celkov\[AAcute] d\[EAcute]lka vodi\[CHacek]e na jednu vrstvu"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994579324489512`*^9, 3.699458004502822*^9, 3.69945809201585*^9, 
   3.6994583989600444`*^9, 3.6994604543427296`*^9, 3.699473034580927*^9, {
   3.6994730755226645`*^9, 3.6994731031371155`*^9}, 3.6994731710206413`*^9, 
   3.6994765744275723`*^9, 3.69947660455081*^9, 3.6994766426232862`*^9, {
   3.6994767794267955`*^9, 3.699476793545438*^9}, {3.6994770338590207`*^9, 
   3.699477044069492*^9}, {3.699477121175773*^9, 3.6994771743225765`*^9}, {
   3.6994772881772723`*^9, 3.699477313143543*^9}, {3.699477501813408*^9, 
   3.699477548853512*^9}, 3.6994791683040543`*^9, {3.6994813454241657`*^9, 
   3.699481362105304*^9}, 3.699547395481992*^9, 3.6999067814622693`*^9, 
   3.699907217968135*^9, 3.6999076924849195`*^9, {3.6999078102302303`*^9, 
   3.6999078670832853`*^9}, 3.699908465199611*^9, 3.70083347157818*^9, {
   3.7008335266761684`*^9, 3.700833548260642*^9}, 3.7008336971701484`*^9, {
   3.70083374085157*^9, 3.700833744628539*^9}, 3.70083378288923*^9, 
   3.700833847979915*^9, {3.7008338882791324`*^9, 3.7008339623822794`*^9}, {
   3.7008340241466117`*^9, 3.7008341348791375`*^9}, {3.700834302228769*^9, 
   3.700834324766095*^9}, 3.700834484367375*^9, 3.7008346088995976`*^9, {
   3.700834639441475*^9, 3.7008346703660517`*^9}, {3.7008348214188614`*^9, 
   3.7008349704724054`*^9}, {3.7009263106740623`*^9, 3.700926465606178*^9}, {
   3.700926507279172*^9, 3.7009266571781645`*^9}, {3.7009267001010265`*^9, 
   3.7009267647987375`*^9}, {3.700926894736151*^9, 3.7009269497614074`*^9}, {
   3.700926987783918*^9, 3.7009269931993065`*^9}, {3.700927070889192*^9, 
   3.700927087109831*^9}, 3.7009281500913005`*^9, 3.7009283292730436`*^9, 
   3.7034919560578566`*^9, 3.7034921615479956`*^9, {3.7034922628412685`*^9, 
   3.703492287378581*^9}, 3.703513566957661*^9, 3.7035140702274265`*^9, 
   3.7035238963769646`*^9, 3.703524560866206*^9, 3.704605679687231*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"lc1 = \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"56430.97154663112`","\"mm\"","millimeters","\"Millimeters\""},
    "Quantity"], 
   "\[InvisibleSpace]", "\<\" , celkov\[AAcute] d\[EAcute]lka \
vodi\[CHacek]e\"\>"}],
  SequenceForm["lc1 = ", 
   Quantity[56430.97154663112, "Millimeters"], 
   " , celkov\[AAcute] d\[EAcute]lka vodi\[CHacek]e"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994579324489512`*^9, 3.699458004502822*^9, 3.69945809201585*^9, 
   3.6994583989600444`*^9, 3.6994604543427296`*^9, 3.699473034580927*^9, {
   3.6994730755226645`*^9, 3.6994731031371155`*^9}, 3.6994731710206413`*^9, 
   3.6994765744275723`*^9, 3.69947660455081*^9, 3.6994766426232862`*^9, {
   3.6994767794267955`*^9, 3.699476793545438*^9}, {3.6994770338590207`*^9, 
   3.699477044069492*^9}, {3.699477121175773*^9, 3.6994771743225765`*^9}, {
   3.6994772881772723`*^9, 3.699477313143543*^9}, {3.699477501813408*^9, 
   3.699477548853512*^9}, 3.6994791683040543`*^9, {3.6994813454241657`*^9, 
   3.699481362105304*^9}, 3.699547395481992*^9, 3.6999067814622693`*^9, 
   3.699907217968135*^9, 3.6999076924849195`*^9, {3.6999078102302303`*^9, 
   3.6999078670832853`*^9}, 3.699908465199611*^9, 3.70083347157818*^9, {
   3.7008335266761684`*^9, 3.700833548260642*^9}, 3.7008336971701484`*^9, {
   3.70083374085157*^9, 3.700833744628539*^9}, 3.70083378288923*^9, 
   3.700833847979915*^9, {3.7008338882791324`*^9, 3.7008339623822794`*^9}, {
   3.7008340241466117`*^9, 3.7008341348791375`*^9}, {3.700834302228769*^9, 
   3.700834324766095*^9}, 3.700834484367375*^9, 3.7008346088995976`*^9, {
   3.700834639441475*^9, 3.7008346703660517`*^9}, {3.7008348214188614`*^9, 
   3.7008349704724054`*^9}, {3.7009263106740623`*^9, 3.700926465606178*^9}, {
   3.700926507279172*^9, 3.7009266571781645`*^9}, {3.7009267001010265`*^9, 
   3.7009267647987375`*^9}, {3.700926894736151*^9, 3.7009269497614074`*^9}, {
   3.700926987783918*^9, 3.7009269931993065`*^9}, {3.700927070889192*^9, 
   3.700927087109831*^9}, 3.7009281500913005`*^9, 3.7009283292730436`*^9, 
   3.7034919560578566`*^9, 3.7034921615479956`*^9, {3.7034922628412685`*^9, 
   3.703492287378581*^9}, 3.703513566957661*^9, 3.7035140702274265`*^9, 
   3.7035238963769646`*^9, 3.703524560866206*^9, 3.7046056796907344`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Rc1 = \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"0.8372537674043784`","\"\[CapitalOmega]\"","ohms","\"Ohms\""},
    "Quantity"], 
   "\[InvisibleSpace]", "\<\" , celkov\[AAcute] odpor vodi\[CHacek]e\"\>"}],
  SequenceForm["Rc1 = ", 
   Quantity[0.8372537674043784, "Ohms"], 
   " , celkov\[AAcute] odpor vodi\[CHacek]e"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994579324489512`*^9, 3.699458004502822*^9, 3.69945809201585*^9, 
   3.6994583989600444`*^9, 3.6994604543427296`*^9, 3.699473034580927*^9, {
   3.6994730755226645`*^9, 3.6994731031371155`*^9}, 3.6994731710206413`*^9, 
   3.6994765744275723`*^9, 3.69947660455081*^9, 3.6994766426232862`*^9, {
   3.6994767794267955`*^9, 3.699476793545438*^9}, {3.6994770338590207`*^9, 
   3.699477044069492*^9}, {3.699477121175773*^9, 3.6994771743225765`*^9}, {
   3.6994772881772723`*^9, 3.699477313143543*^9}, {3.699477501813408*^9, 
   3.699477548853512*^9}, 3.6994791683040543`*^9, {3.6994813454241657`*^9, 
   3.699481362105304*^9}, 3.699547395481992*^9, 3.6999067814622693`*^9, 
   3.699907217968135*^9, 3.6999076924849195`*^9, {3.6999078102302303`*^9, 
   3.6999078670832853`*^9}, 3.699908465199611*^9, 3.70083347157818*^9, {
   3.7008335266761684`*^9, 3.700833548260642*^9}, 3.7008336971701484`*^9, {
   3.70083374085157*^9, 3.700833744628539*^9}, 3.70083378288923*^9, 
   3.700833847979915*^9, {3.7008338882791324`*^9, 3.7008339623822794`*^9}, {
   3.7008340241466117`*^9, 3.7008341348791375`*^9}, {3.700834302228769*^9, 
   3.700834324766095*^9}, 3.700834484367375*^9, 3.7008346088995976`*^9, {
   3.700834639441475*^9, 3.7008346703660517`*^9}, {3.7008348214188614`*^9, 
   3.7008349704724054`*^9}, {3.7009263106740623`*^9, 3.700926465606178*^9}, {
   3.700926507279172*^9, 3.7009266571781645`*^9}, {3.7009267001010265`*^9, 
   3.7009267647987375`*^9}, {3.700926894736151*^9, 3.7009269497614074`*^9}, {
   3.700926987783918*^9, 3.7009269931993065`*^9}, {3.700927070889192*^9, 
   3.700927087109831*^9}, 3.7009281500913005`*^9, 3.7009283292730436`*^9, 
   3.7034919560578566`*^9, 3.7034921615479956`*^9, {3.7034922628412685`*^9, 
   3.703492287378581*^9}, 3.703513566957661*^9, 3.7035140702274265`*^9, 
   3.7035238963769646`*^9, 3.703524560866206*^9, 3.704605679693736*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"D\[EAcute]lka vodi\[CHacek]e kolem magnetu: \"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{
    "10208.333333333334`","\"mm\"","millimeters","\"Millimeters\""},
    "Quantity"], "\[InvisibleSpace]", "\<\"\[LongRightArrow]\"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{"10208","\"mm\"","millimeters","\"Millimeters\""},
    "Quantity"]}],
  SequenceForm["D\[EAcute]lka vodi\[CHacek]e kolem magnetu: ", 
   Quantity[10208.333333333334`, "Millimeters"], "\[LongRightArrow]", 
   Quantity[10208, "Millimeters"]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994579324489512`*^9, 3.699458004502822*^9, 3.69945809201585*^9, 
   3.6994583989600444`*^9, 3.6994604543427296`*^9, 3.699473034580927*^9, {
   3.6994730755226645`*^9, 3.6994731031371155`*^9}, 3.6994731710206413`*^9, 
   3.6994765744275723`*^9, 3.69947660455081*^9, 3.6994766426232862`*^9, {
   3.6994767794267955`*^9, 3.699476793545438*^9}, {3.6994770338590207`*^9, 
   3.699477044069492*^9}, {3.699477121175773*^9, 3.6994771743225765`*^9}, {
   3.6994772881772723`*^9, 3.699477313143543*^9}, {3.699477501813408*^9, 
   3.699477548853512*^9}, 3.6994791683040543`*^9, {3.6994813454241657`*^9, 
   3.699481362105304*^9}, 3.699547395481992*^9, 3.6999067814622693`*^9, 
   3.699907217968135*^9, 3.6999076924849195`*^9, {3.6999078102302303`*^9, 
   3.6999078670832853`*^9}, 3.699908465199611*^9, 3.70083347157818*^9, {
   3.7008335266761684`*^9, 3.700833548260642*^9}, 3.7008336971701484`*^9, {
   3.70083374085157*^9, 3.700833744628539*^9}, 3.70083378288923*^9, 
   3.700833847979915*^9, {3.7008338882791324`*^9, 3.7008339623822794`*^9}, {
   3.7008340241466117`*^9, 3.7008341348791375`*^9}, {3.700834302228769*^9, 
   3.700834324766095*^9}, 3.700834484367375*^9, 3.7008346088995976`*^9, {
   3.700834639441475*^9, 3.7008346703660517`*^9}, {3.7008348214188614`*^9, 
   3.7008349704724054`*^9}, {3.7009263106740623`*^9, 3.700926465606178*^9}, {
   3.700926507279172*^9, 3.7009266571781645`*^9}, {3.7009267001010265`*^9, 
   3.7009267647987375`*^9}, {3.700926894736151*^9, 3.7009269497614074`*^9}, {
   3.700926987783918*^9, 3.7009269931993065`*^9}, {3.700927070889192*^9, 
   3.700927087109831*^9}, 3.7009281500913005`*^9, 3.7009283292730436`*^9, 
   3.7034919560578566`*^9, 3.7034921615479956`*^9, {3.7034922628412685`*^9, 
   3.703492287378581*^9}, 3.703513566957661*^9, 3.7035140702274265`*^9, 
   3.7035238963769646`*^9, 3.703524560866206*^9, 3.704605679697239*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.6994579324489512`*^9, 3.699458004502822*^9, 3.69945809201585*^9, 
   3.6994583989600444`*^9, 3.6994604543427296`*^9, 3.699473034580927*^9, {
   3.6994730755226645`*^9, 3.6994731031371155`*^9}, 3.6994731710206413`*^9, 
   3.6994765744275723`*^9, 3.69947660455081*^9, 3.6994766426232862`*^9, {
   3.6994767794267955`*^9, 3.699476793545438*^9}, {3.6994770338590207`*^9, 
   3.699477044069492*^9}, {3.699477121175773*^9, 3.6994771743225765`*^9}, {
   3.6994772881772723`*^9, 3.699477313143543*^9}, {3.699477501813408*^9, 
   3.699477548853512*^9}, 3.6994791683040543`*^9, {3.6994813454241657`*^9, 
   3.699481362105304*^9}, 3.699547395481992*^9, 3.6999067814622693`*^9, 
   3.699907217968135*^9, 3.6999076924849195`*^9, {3.6999078102302303`*^9, 
   3.6999078670832853`*^9}, 3.699908465199611*^9, 3.70083347157818*^9, {
   3.7008335266761684`*^9, 3.700833548260642*^9}, 3.7008336971701484`*^9, {
   3.70083374085157*^9, 3.700833744628539*^9}, 3.70083378288923*^9, 
   3.700833847979915*^9, {3.7008338882791324`*^9, 3.7008339623822794`*^9}, {
   3.7008340241466117`*^9, 3.7008341348791375`*^9}, {3.700834302228769*^9, 
   3.700834324766095*^9}, 3.700834484367375*^9, 3.7008346088995976`*^9, {
   3.700834639441475*^9, 3.7008346703660517`*^9}, {3.7008348214188614`*^9, 
   3.7008349704724054`*^9}, {3.7009263106740623`*^9, 3.700926465606178*^9}, {
   3.700926507279172*^9, 3.7009266571781645`*^9}, {3.7009267001010265`*^9, 
   3.7009267647987375`*^9}, {3.700926894736151*^9, 3.7009269497614074`*^9}, {
   3.700926987783918*^9, 3.7009269931993065`*^9}, {3.700927070889192*^9, 
   3.700927087109831*^9}, 3.7009281500913005`*^9, 3.7009283292730436`*^9, 
   3.7034919560578566`*^9, 3.7034921615479956`*^9, {3.7034922628412685`*^9, 
   3.703492287378581*^9}, 3.703513566957661*^9, 3.7035140702274265`*^9, 
   3.7035238963769646`*^9, 3.703524560866206*^9, 3.704605679703243*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[CapitalSHacek]\[IAcute]\[RHacek]ka c\[IAcute]vky: \"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{"136.6`","\"mm\"","millimeters","\"Millimeters\""},
    "Quantity"]}],
  SequenceForm["\[CapitalSHacek]\[IAcute]\[RHacek]ka c\[IAcute]vky: ", 
   Quantity[136.6, "Millimeters"]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994579324489512`*^9, 3.699458004502822*^9, 3.69945809201585*^9, 
   3.6994583989600444`*^9, 3.6994604543427296`*^9, 3.699473034580927*^9, {
   3.6994730755226645`*^9, 3.6994731031371155`*^9}, 3.6994731710206413`*^9, 
   3.6994765744275723`*^9, 3.69947660455081*^9, 3.6994766426232862`*^9, {
   3.6994767794267955`*^9, 3.699476793545438*^9}, {3.6994770338590207`*^9, 
   3.699477044069492*^9}, {3.699477121175773*^9, 3.6994771743225765`*^9}, {
   3.6994772881772723`*^9, 3.699477313143543*^9}, {3.699477501813408*^9, 
   3.699477548853512*^9}, 3.6994791683040543`*^9, {3.6994813454241657`*^9, 
   3.699481362105304*^9}, 3.699547395481992*^9, 3.6999067814622693`*^9, 
   3.699907217968135*^9, 3.6999076924849195`*^9, {3.6999078102302303`*^9, 
   3.6999078670832853`*^9}, 3.699908465199611*^9, 3.70083347157818*^9, {
   3.7008335266761684`*^9, 3.700833548260642*^9}, 3.7008336971701484`*^9, {
   3.70083374085157*^9, 3.700833744628539*^9}, 3.70083378288923*^9, 
   3.700833847979915*^9, {3.7008338882791324`*^9, 3.7008339623822794`*^9}, {
   3.7008340241466117`*^9, 3.7008341348791375`*^9}, {3.700834302228769*^9, 
   3.700834324766095*^9}, 3.700834484367375*^9, 3.7008346088995976`*^9, {
   3.700834639441475*^9, 3.7008346703660517`*^9}, {3.7008348214188614`*^9, 
   3.7008349704724054`*^9}, {3.7009263106740623`*^9, 3.700926465606178*^9}, {
   3.700926507279172*^9, 3.7009266571781645`*^9}, {3.7009267001010265`*^9, 
   3.7009267647987375`*^9}, {3.700926894736151*^9, 3.7009269497614074`*^9}, {
   3.700926987783918*^9, 3.7009269931993065`*^9}, {3.700927070889192*^9, 
   3.700927087109831*^9}, 3.7009281500913005`*^9, 3.7009283292730436`*^9, 
   3.7034919560578566`*^9, 3.7034921615479956`*^9, {3.7034922628412685`*^9, 
   3.703492287378581*^9}, 3.703513566957661*^9, 3.7035140702274265`*^9, 
   3.7035238963769646`*^9, 3.703524560866206*^9, 3.704605679705744*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"V\[YAcute]\[SHacek]ka c\[IAcute]vky: \"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{"91.6`","\"mm\"","millimeters","\"Millimeters\""},
    "Quantity"]}],
  SequenceForm["V\[YAcute]\[SHacek]ka c\[IAcute]vky: ", 
   Quantity[91.6, "Millimeters"]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994579324489512`*^9, 3.699458004502822*^9, 3.69945809201585*^9, 
   3.6994583989600444`*^9, 3.6994604543427296`*^9, 3.699473034580927*^9, {
   3.6994730755226645`*^9, 3.6994731031371155`*^9}, 3.6994731710206413`*^9, 
   3.6994765744275723`*^9, 3.69947660455081*^9, 3.6994766426232862`*^9, {
   3.6994767794267955`*^9, 3.699476793545438*^9}, {3.6994770338590207`*^9, 
   3.699477044069492*^9}, {3.699477121175773*^9, 3.6994771743225765`*^9}, {
   3.6994772881772723`*^9, 3.699477313143543*^9}, {3.699477501813408*^9, 
   3.699477548853512*^9}, 3.6994791683040543`*^9, {3.6994813454241657`*^9, 
   3.699481362105304*^9}, 3.699547395481992*^9, 3.6999067814622693`*^9, 
   3.699907217968135*^9, 3.6999076924849195`*^9, {3.6999078102302303`*^9, 
   3.6999078670832853`*^9}, 3.699908465199611*^9, 3.70083347157818*^9, {
   3.7008335266761684`*^9, 3.700833548260642*^9}, 3.7008336971701484`*^9, {
   3.70083374085157*^9, 3.700833744628539*^9}, 3.70083378288923*^9, 
   3.700833847979915*^9, {3.7008338882791324`*^9, 3.7008339623822794`*^9}, {
   3.7008340241466117`*^9, 3.7008341348791375`*^9}, {3.700834302228769*^9, 
   3.700834324766095*^9}, 3.700834484367375*^9, 3.7008346088995976`*^9, {
   3.700834639441475*^9, 3.7008346703660517`*^9}, {3.7008348214188614`*^9, 
   3.7008349704724054`*^9}, {3.7009263106740623`*^9, 3.700926465606178*^9}, {
   3.700926507279172*^9, 3.7009266571781645`*^9}, {3.7009267001010265`*^9, 
   3.7009267647987375`*^9}, {3.700926894736151*^9, 3.7009269497614074`*^9}, {
   3.700926987783918*^9, 3.7009269931993065`*^9}, {3.700927070889192*^9, 
   3.700927087109831*^9}, 3.7009281500913005`*^9, 3.7009283292730436`*^9, 
   3.7034919560578566`*^9, 3.7034921615479956`*^9, {3.7034922628412685`*^9, 
   3.703492287378581*^9}, 3.703513566957661*^9, 3.7035140702274265`*^9, 
   3.7035238963769646`*^9, 3.703524560866206*^9, 3.7046056797092457`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Tlou\[SHacek]\[THacek]ka c\[IAcute]vky: \"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{"44.`","\"mm\"","millimeters","\"Millimeters\""},
    "Quantity"]}],
  SequenceForm["Tlou\[SHacek]\[THacek]ka c\[IAcute]vky: ", 
   Quantity[44., "Millimeters"]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6994579324489512`*^9, 3.699458004502822*^9, 3.69945809201585*^9, 
   3.6994583989600444`*^9, 3.6994604543427296`*^9, 3.699473034580927*^9, {
   3.6994730755226645`*^9, 3.6994731031371155`*^9}, 3.6994731710206413`*^9, 
   3.6994765744275723`*^9, 3.69947660455081*^9, 3.6994766426232862`*^9, {
   3.6994767794267955`*^9, 3.699476793545438*^9}, {3.6994770338590207`*^9, 
   3.699477044069492*^9}, {3.699477121175773*^9, 3.6994771743225765`*^9}, {
   3.6994772881772723`*^9, 3.699477313143543*^9}, {3.699477501813408*^9, 
   3.699477548853512*^9}, 3.6994791683040543`*^9, {3.6994813454241657`*^9, 
   3.699481362105304*^9}, 3.699547395481992*^9, 3.6999067814622693`*^9, 
   3.699907217968135*^9, 3.6999076924849195`*^9, {3.6999078102302303`*^9, 
   3.6999078670832853`*^9}, 3.699908465199611*^9, 3.70083347157818*^9, {
   3.7008335266761684`*^9, 3.700833548260642*^9}, 3.7008336971701484`*^9, {
   3.70083374085157*^9, 3.700833744628539*^9}, 3.70083378288923*^9, 
   3.700833847979915*^9, {3.7008338882791324`*^9, 3.7008339623822794`*^9}, {
   3.7008340241466117`*^9, 3.7008341348791375`*^9}, {3.700834302228769*^9, 
   3.700834324766095*^9}, 3.700834484367375*^9, 3.7008346088995976`*^9, {
   3.700834639441475*^9, 3.7008346703660517`*^9}, {3.7008348214188614`*^9, 
   3.7008349704724054`*^9}, {3.7009263106740623`*^9, 3.700926465606178*^9}, {
   3.700926507279172*^9, 3.7009266571781645`*^9}, {3.7009267001010265`*^9, 
   3.7009267647987375`*^9}, {3.700926894736151*^9, 3.7009269497614074`*^9}, {
   3.700926987783918*^9, 3.7009269931993065`*^9}, {3.700927070889192*^9, 
   3.700927087109831*^9}, 3.7009281500913005`*^9, 3.7009283292730436`*^9, 
   3.7034919560578566`*^9, 3.7034921615479956`*^9, {3.7034922628412685`*^9, 
   3.703492287378581*^9}, 3.703513566957661*^9, 3.7035140702274265`*^9, 
   3.7035238963769646`*^9, 3.703524560866206*^9, 3.704605679712247*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Proud", "Subsection",
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6994542552654767`*^9, 3.6994542634514623`*^9}, 
   3.6994729427229986`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{"i", " ", "=", " ", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"B", "\[CenterDot]", "l"}], 
        RowBox[{"2", "\[CenterDot]", "R"}]], "\[CenterDot]", "v"}], " ", "=", 
      " ", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"T", "\[CenterDot]", "m"}], "\[CapitalOmega]"], 
        "\[CenterDot]", 
        SuperscriptBox["ms", 
         RowBox[{"-", "1"}]]}], " ", "=", " ", "A"}]}]}], " ", "*)"}],
   FontSize->24], 
  StyleBox["\[IndentingNewLine]",
   FontSize->18], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "Proud", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"I1", "[", "t_", "]"}], ":=", 
     RowBox[{"UnitConvert", "[", 
      RowBox[{
       FractionBox[
        RowBox[{"magnet1", "*", 
         RowBox[{"v", "[", "t", "]"}], "*", "lm1", "*", "2"}], 
        RowBox[{"2", "*", "Rc1"}]], ",", "\"\<Amperes\>\""}], "]"}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"dva", " ", "magnety"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<I1 = \>\"", ",", 
     RowBox[{"N", "[", 
      RowBox[{"I1", "[", "cas", "]"}], "]"}], ",", 
     "\"\< , Proud v \[CHacek]ase t: \>\"", ",", "t1"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"I1", "[", "t", "]"}], ",", 
       RowBox[{"I1", "[", "cas", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "rozmezi"}], "}"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<I - Proud\>\"", ",", 
        "\"\<I - Proud, Okam\[ZHacek]it\[AAcute] hodnota proudu\>\""}], 
       "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<t, \[CHacek]as [s]\>\"", ",", "\"\<I, Proud [A]\>\""}], 
       "}"}]}]}], "]"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6994542781571093`*^9, 3.6994542866759367`*^9}, {
   3.699456200559281*^9, 3.699456202375557*^9}, {3.699456877620246*^9, 
   3.6994569428593135`*^9}, {3.6994570331210876`*^9, 3.699457093570278*^9}, {
   3.6994571446313615`*^9, 3.6994573184576783`*^9}, {3.69945935079088*^9, 
   3.6994593508589816`*^9}, {3.6994594002925763`*^9, 3.699459415382421*^9}, {
   3.699472696464264*^9, 3.699472699556468*^9}, 3.6994729427234983`*^9, {
   3.699547357436221*^9, 3.6995473611078515`*^9}, {3.699907050479103*^9, 
   3.69990705247643*^9}, {3.699908185885524*^9, 3.699908187865343*^9}, {
   3.7008337964911027`*^9, 3.700833798207893*^9}, {3.7008338600054193`*^9, 
   3.7008338625260944`*^9}, {3.7008348271883*^9, 3.700834830980818*^9}, {
   3.7046051809735146`*^9, 3.7046051988098545`*^9}, 3.7046053278834887`*^9, {
   3.7046054974102864`*^9, 3.704605498199809*^9}}]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"I1 = \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"1.1031640299676353`","\"A\"","amperes","\"Amperes\""},
    "Quantity"], "\[InvisibleSpace]", "\<\" , Proud v \[CHacek]ase t: \"\>", 
   "\[InvisibleSpace]", 
   TemplateBox[{"0","\"s\"","seconds","\"Seconds\""},
    "Quantity"]}],
  SequenceForm["I1 = ", 
   Quantity[1.1031640299676353`, "Amperes"], " , Proud v \[CHacek]ase t: ", 
   Quantity[0, "Seconds"]],
  Editable->False]], "Print",
 CellChangeTimes->{3.7046056797822943`*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVmHk8VO8Xx1WSsmeXLFlSfUmKaHGESpK02VJkyZZCCG2kkuyyr2OtbDOE
GSpPQpFQFIqQfZkx90lKJL/7+2fm9X7dO/Oc53M+5zznXnn7KyedVnJwcDiS
H///zpmq9mkNlddlW3mcii7A4LZS9FW5CAcYpBd1hpH8SyKQFi0iCDurm08H
kEynTXK8kZGA0t8fu86RvC+vWOWWiBxc9/9stZtkac8RsxRJRdimxfy2muSl
vdIBFTIqILxa06E5H0P/mtPZ7Qr/gfqjz5PBJA9MNjr6iqiDiMuC13aSP7R/
n18prgHvRroWP+ZheFW5FBEjuQvoBvmhriTT0iTlZaS1wDO5QPRXLgZKsGZl
kYw2JLdvKrhGcozziSM68nvgWamLzkwOhuBjHt/eKOwDdmdruxXJZREdK71E
9OBp7uU1gtkYCm8PvqeLHoDf9deeWlMw5HjPJP4T04c7onvNUrMwxFmu2xYh
aQj/rneVzGdgeHhUYq5D6iA4vy53Eif5jq4ykpQ+BNbpJxS3pWPwVtQ/9VjG
CDzytjJ2pJJ6ipttnJE9AuGVWVGKKRjs150f3yVvDF6yxy7zJmM4RQRcf61g
Ao2TQibPEzBI9fd8vCxiBjc3cScmxGBI7B7QWp9gBh7sT+/UozGs/ziWVil6
Anjt+QTqIjGsa/jp9FfsJBy5atP86iGGhaeCC2GSpyH/+Ha5/Xcx+OWK26qm
nobalNGpoDsYfqTLNHyQOgPJnOz31UEYpqL/ixKXNgdnLc/edTcx9PoabcqX
sYTArb36W30xWF45HmqUZQltKwonxK5i+ORizpyWtYJZ54vUeU8M7886VmnI
W8P78bm8tEsYXhwIMn6lYAMJn3gtbB0wtHHZVHuI2MHwb9VNA6bk9dUHPFSs
7WC7nH3d0FEMTzmV5Yez7EB2v3nVFyMMd1cSDyy3XYCHd9wLs/Ux6PwLsTTQ
twdr8dbFFE0MeXNFvyU8HcHlzCcnNUkyPz9jijorHaGi4NdtF1EMt2d9baMW
HUHp6wvxRCEM1hjergp1gkZ0paVlLQZBVmfiTMZFeBnAE5/9h4DrI4uaDS0u
kGE6YvKniwCX4cHJW0KusHiUL/9SBwHmQ40ZOhausNd9rKizlQD1wejV1CFX
6LPa0nmjgYCxXoXPKX/cIITj0sTeMgJOdh71ubLZA152yR/3fECAyPdjVpF1
nnCVN2vqvSoB1mLX9m4Y8oSudztuKKoQkHWUsvHpSi/oeaf70msTAVurfnxv
MPAC8V1nbVhiBOiFJ7n9bfQClWZVZsc/Nrhrfr/u/s4bZoeKPxLpbHgd5pN5
pNMHbD+0npR6NwPcKCOoe9YH8hfNXA1fzMCxn2/snUR8obe0ctC6dAZ6zktu
Dj7jC+m4SvRY3AzM7KylMrp9oaTROv6w1QzpvzV1m/v8IIk2M5U+zAIvjbTh
1aP+oJvpReeZYoKRfMBRgjMAovX1ipW+MkFO0OLZV8UAaNAfZ6q+Y0Iba30I
1TEACNUF/7WFTNj69OEmq5EAyDiw6yPLhQkjsoEXiocDQVtj7zGf4Wkw57Ma
ODl0A4oY9/+8apkCGZ9wVvuVIHiSo8aN3CdA7H3HBdngIAjXePEfn/kE8ClK
dV2OC4L2nLXoiN4E/O18UstXGQR+mS3uUSIT8HXnm+ijC0HA37Ui+/CLcUiY
5dB4ezcYGA3110O5x4H3qp9fbcodoE3x3KLGj8KC14Xl4vq7kKUyL3H29hCU
buGXSGt9AMGStBI1jx6w4Ow8JKkWCbszRsLbr9dD2gNxMZGXMUAPwKGVvhXo
97Q6r2JtHGgn6NzXbOpAbXbmfDem4sHwmUjbFvtBFKsxHtuHE8GV8idYDsbQ
vryLmh//JEJ5WpTkndNjaEJ0rKdxRRIoXGAJdbmOId0/I7JUoSQ4Wr8an44f
Q0w0VBK8IwmurXD6VzwxhoyO9TcreyWB/Yo62edR44jD5fMKLyKJ7LuP4n63
T6DiL6fzneaTQI6ToyJieAJZHP1kZM2RDApzmQXrf0+gUrXOaAPBZIh6/qWd
2DiJbOY+bBRTT4aEY6LjP90mEePOe53nV5KBf5P4jNDKKeSZUe+1mp0Mx40b
g44rTiN7uKL5+HcysI4upF7cPY1OfZf6Y8SRAl7jiVvcjKeRlpJ3UIRQCkg9
8vPQ8pxGi8Vy0cK7UmAhfVZkqGYa3X9xs1g+IAU0k+l7Ak2YKKN39/j+VamQ
EWmYdMqOhaJuDhcO8KQCcy5zYMCThYJkoy8Hi6RCl7rbKotgFrJ3GJtrUEqF
b2vESlfnsJDKdDyniVEqBCZ5GDkMsVDFApa3jkwFyvkPD0RtZ9A7yWIbP/E0
mOF2Vl5rxEbbXZ3078qmgWa+iwj7NBvFM2RU4janQW7LKfe6C2x03iJ2tmR3
GgR9/b5z23U2mo33ezhqkQb9Yu4n15ewkbTgAcbp5DRomBNeEc9FoGDbhQx7
ShqMPu9zd+El0FjpsxDPJ2lg4fetVWM9gWjHlI9HMNLAjCLk+nQjgQzDecbq
e9JgidMreeMuAnlwdQnvlEyHDq6tH2VsCdRxJvqPnnw6mC03rTvhSCDtfKMB
0y3pcG7yCWeAK4FWGj4vdNNJB50ak/8KrxIoMZhyIMcqHUQUfX7EhBKo9q/b
FaHUdLhmOfnUo4RACiaKZ2Rz0uFM/AfvhTICPUj7tke1kLx/0rXlRhWBTu4x
4zpSkw7/7Lzl7BGBxq9pZgR9TQdp13u81A8EEpxdfseWygCf8rik45hAz71H
PxQqZECo6OvDoXMEuvjjXZfTfxkwMeR2p/wPgV7ghKHe/RnwhI4fDq/AyIXY
tvDWLgPws9MJVCGMhD2FOEJcM+Dyh+iDIaIY1bJ/rdb1zoCepQYXY0mMRNh1
QhUhGaBezbtULofRK5bFFkpBBpiqZQux1DBy99i//Sw1A7w/LPLZaGAkxtqk
KcbIAKaurEutJkaXmCy9iOYMuDvZve3cPowkpkMs/ZkZsKL/RcnKIxh5TlBD
zTQyoWHMOGvaFqMNLgmRPHszQaljt320PUZvxgMfvTHIBHeHu7bKThhJjx/M
2ncmE77FP12h5oZR02hvlYp/JujwqZXlXsXoqlPdi+GgTGg5Oyj83RcjmdGC
15lhmbCX/SpHyB8jnxGvNpG0TJjie6xrcgMjueE1Yxy1mVAQamq4+S5GLfas
6edvMkHKzf/b0j2M/IY6sF97JhQdXEh8G4rR++8ZS8zBTJA1bnPaFY7RtQsh
q55MZoK+Sbp/dwRGm767rHX4kQkDi9UFHlEY+Q/uFP2yKgtMDxiaXY3FSMFO
ckM8bxZsvebfPBSHUdvAP7njolmgnh5udTAeI8WB5v8albOgxuBQzXAiRu3n
qRpB27Ng8+EVYbLJGAX2x2vv1c6C+X2v3UxTMPr4zdaw7EgW2HmNOtxLw2gw
vNzd4GQWZHUp1T9Ix4jQWf3os3UWeBtrFt7OwGh53KLG2YFc/6+jhFsmRvyJ
hd//uGfBKzY/n1EWqZfhEneETxYc+5cQKknBSPXHcXWZm1ng2+UU2k+yienc
Lf2oLHB4XyNikIORzd/DBZ8Ss6DVzyB7iGT3wtTWi1lZ0MwpXeabS8Zryfo5
/zgLLpn3Gfwl+SGXnnQ4jYxHQcnKLw+j1Io4g43VWXBzMYsYJvmp/agbtS4L
zh5aXnswHyOGoHbcgXdZsMvwX14KyU21D6s7O8h4+S7UfSe559K3QafeLPCI
/3l+YwFG41Lq3PPDWRCaE3XThORfTXe2P2RmgWUv38YrJHNd+2wuPZcF2s+t
9t8jWVRJ5VbpUhYUJNn3R5Ec5/rypNwqCphmyXNEkJz66uJF1zUUEPyanHOD
5BxxwcByHgpwbOlstCO58HJ15KIABawOjbhqk1zeaJ9tKEIBv8aJqFUk10jz
VkZKUICxnkvzNRlv3dXKpi5pCnhddbPx+f9+3p3vk5WnQPXqY6ulSP4gz024
KFHA8hVr+zNSjx7/slXlWygQ6p3QByQPtluLL6pSoKk+gecVqeeEMuc2Qw0K
FOw88nInycTNEt1ILQpclxT+kUrmY/6T+cmuPRTYlGdbOJdN5n8bx0VZoAD1
S+6YAclcIU8DXAwoIJd07vE9Mr/8X09Glh2mwO9oYVbN//3wIL/CwIz8P/Xn
azlIvygPmDZFnKaA/6Wx7wKkn9S05ns/W1Ignyf4gDDpt/0jxqtcLlDg8Kue
lJ+kPw33/hQrcyL3yycW30H61yQuY+uCKwUU/quXyEsi/aNHnIjwpsCsdVuD
fAJGjkkpTp/9KKCkOctqfUT2jxn9AJnrFHh/VTTfg6yX6+kJFFoIBQTy9epC
o8n8zO9hf4qnwPfCvDblMDI/x0dWyqRQoPXt5N0rZL0+LYgUc86gwG3NmY9F
ZD0zTg/u/5NPgQCh/ZrLwRh10+5FbKRTQHFE7JBQIEbJ/Zpl0s8pkMY3HrKB
7BfWvGOfNyAK1HJULUv5YdTvfEhW6i0Fhq0PVv3xwmhEZk25WDcFwpXNDLRc
MSowoXeJ9lLg6m3+hKmLGDkHOi+KDFAgu+3C9nhHjKY+vzUUHqeANjPa4C3Z
74iIB90CvymwOvm3cMkZ0j812n/5F0k9v0l/4jlF9rOJCTn+ZQrYZghP2pqR
fjY44sa7Jhv0mwUlJowxWlpYu8Qtng3Upd/V/oDROtfwTSt3Z8PLJWdKujLZ
rxL3Hl6xNxsq4i4Gn1DAKLJh2p0DsiFoNPXToixGgnImlf8OZUOmxNAXdbLf
i3XzGi2aZ0Or86o0aR6yXx2M8vjplw0GF+JH/zIJtE8+ljFWlQ1dB/nP4ycE
knO28Nj3PBsCptf8+5lLoNUlGzfFIXL9X/PRzEwCtWkXhu9vyobj12yT6fEE
sjOrPx//JRtexwTkvrxNoLu35zj1/2bD8IbdKyJPEej9N6sTGQdy4Ijk2Kai
ETaiKchxzR7MgYHf3ma13WyU4DpWY2ScA7la+Zdq3pHzwZy34s+TOfDQri7R
g8ZGBG/Eb2PHHPi45sfLV4FsJLKvNmP+fg6InrJjb+Jho3Opm6ZOvc+B429u
/5TZMIP+VrGpth9yoKCN44Yn7wxK7Xzh6/4pBzLay3ipSyzUxWuxIqQvB248
YV+eHWAhs9vhEuXMHKB/CdNNzWUhA8efhwT5cuH62djLLptZaIvam9z3x3JB
IH081USeiebqXM8dbM+FMNXHzfcGJ1HVL5NnjztzgRr/uvFDyyTy36a+dl1P
LnRfO5fHTZ9EC/G/KtoGcyGQyTgEkZPkPBnCa/kjFwibko5m7Um0jj/juZto
HhxK9n93IWICyVl/kIw5mwdpArYb+ZXH0dEfWl1fx/OgYdb64LrNI0iN/fTG
6cV8eFG/xztQrxfdT+1wPPm3ACw39SRrEi0o3TT45M/1T2CzR9ziqksxoFI2
Giwl/hTUrPT5Ty+3gv4gu19RrBB6B6Uyj8v2gaRE0IHOrUXwOkPX9kPMCJRv
F+LtUyuCiavRpncfj4DJ4ZyuEY0iWOG0xmhb7Qjc8mtw/7WnCIjcFLmT0yMw
9Ik7UfJoETB3m/atODgKxbGxU7buRVB74arOt7lR0OPJfcQsKoIdhgLKCsfG
4cumXefnqEXgpaR+daP9OHjvaVT596wIqgs3iKy9Ng75ruMvBV4Ugcj9L9IV
lHFY17RtQuN9EdixH/dZzI7Dp7sV+wKYRSDqwvvuXcIEOP9rHF2tWgzPriv/
Wt0+CYpqHnpOO4qh4sP530+HJ2HwnEhag2YxBJoHDO+ZnwTLl/ZmIbrFsNLp
FSjIT4HRjeUaDrNieLw1y4HXewq2LmjHLHoXQ86ft7Y7BaeBNVe0BzOKQTZq
le2V/UwoVDqVYPayGA7X8/vGH2fCxTMLbGpdMWyt4S/Ju8CE/gqj/MvviqGl
uObY/Xvk89rVUQFmbzFQbjUMmrxnAg3LjI79KwZj8ffzvWdYcJUVG91nWAJa
rr2hhZYzYF/BDtx8pAS28vIc7XSeAbPrxy56HyuBme5bPmN+M/Df2rX7uc1L
QGXYvb0lfgbGFIOmdjqXgKfekZux7TNgbXP5YHhYCdh2mRct67HBSOG9eldk
CSTyBbGbTdmwe2qLtHxcCfQKfZm7acMGEf/RH1WpJaBYq7Mp9xobWh/ZUIaK
SmCHMjdrsJgNei3GizptJeAw3ccbu5YAtbgnY3c7SkCjr3btawECNlpxdbR3
keuHxWeMixKwMFb3xGmgBJIfF/kLks/bz1bqmMcSJaAvb3i3R4cA5T2byybW
l0JfWMMRXWcCeJ+uck6yKAW3zfRVB6sJqDjk4pB8thSQRUkf9SUBNiPvbVNs
S+EKbdpG8DUBJbKJlmnOpcDc5WtU/o4A00QV46xrpTDSERMc0EtATMgx1cdJ
pcDzowiEFwnQli/f8iStFApMHpl3/yNgsFZM+WlWKfDp32LGrMSwY2FApuhx
KXQIq0eMrMXQ4ektSKWXgoHkZhs+CQzC55Nmq7pLQSty1MZBA8OLxUU2vbcU
rkVwnr+licExxY7JGCgFgS12L6K0MVR82jJaM14K62v0wqJ1MZw++qKr9ncp
eJnrqQsZY/g7IdeJFkuh2ZY63mWCIe/+vfZXy6Ww0oTFij2OYa7OtOn1Gip4
nZAeHD+NIVH7e/UbcSoc3PFYVdgWg27Xwaq3G6hgtBuphlzAMHa1sLxJlgou
JgNXJhww7KZeLXq3mQoCu09WxLlg6FHiymjbTYW9B3aIXfTCEFTvltK+lwqi
QWH/bl/FoHKhPeEDUMH+a8vGaF8MAenJUR2HqaB36d9iRAAGKeFtQV0WVMjw
2ii6JhjDaFM+r5oNFcb/Te0i7mCg3ZJLuWdHBRq/Ter7uxgOT4mW73Klwtup
JnXbBxjWU2J0IzyoUDO3zVb0IYb+Mzwtw17keitXtNWGY/Cp4xiJC6TC5bua
LtNRGODadc+pW1QYtDwUezkGwzrVX38PhFChdWbbr5FYDJTkaVEcToVNW3Sv
FMVjaL3Sdfh4BhXOneRclZWCIVnpxKeCbCrcebk88zyVzE9vi92/fCqYLZ4U
eJ+GYeFQXUBJKRW2rZ+dbMzA0Ph3L9fqZ1T4ofshh5qJIaa8Ks6GToXhMaXI
iCwMyjLFRTyvqPCaVjcrm40BdyprOzRQYSBj6HIXyS/CshtqmqhwIWOHZFAO
hgcgfWJ9KxUen9v5QzoXw6m5xG+uH6nA0+/7p5hkmSIht7rPVFC7EqOmnodh
yi7il8RXKhx9phBbQHKl2JoQz34qBGZ+kRPMJ/P1PligaYgKTD+nb5dIPnrn
b5rsOLn/zyFvXpAspn1N5do0FZTzFnqXSR5i4Yo2NhVK5FM2ahVgKMm9dED5
JxV0+neH25LsbzXeenOe9NNLhiI5/4KhgL31579U0J/jmgon+YH95auJHDSo
FRDvJedn8HhZpPN6JQ1sJsd+3yX5pMTkMouTBt/LbupdJln7qvIbyTU0UGZO
VxiTLNPmEHFwLQ0ELh89I0Uy55bsk148NLhuh+S/kfFNhfRLZPDRYDP4SD0i
ub1/w0CTAA0ie7JgH8kVOlb5P4Vo0HgsOLaH1CM1PtFdToQGRusvCLqQHMTu
3GEiRoPm6ZgXU6SeTsZC89ckaPALuyfakWycb1qbK0WDHVHmmc1kPtQ5Iu62
S9PA9HrtJyWSxc42Gy/K0AAapfb4kvlbrOQS2ixPg5qm6TY6BcMb9+CMW0o0
mOaQDhMj81/8ptahcDMN4m8XUjVIf8TK/93StYUGbca83Pqkf2y6/apU1WjQ
gPhP7CH9pa9RccNKnQbdKlsMFEj/qURi/XsaNJCzWee2nIxhVv9Se58WDdbO
BFrFJmLQWquaOaxNA/oQX9C5BDI/7axLU3toICufEyJD+vvf2Svr5nVp0F64
pHib9D+3r/dB4cM0uMBlPlFD1o/x3p0iUkdooPknkV+NrK/IFT+H5I7SIK5t
RiLx//UX5RukdpwGCxWz3wzvYZB+7P/8iAUNnmibHd54C8N5D52HZlY02Pha
pHj3DQzZOxcsLc7SIESgaelQIOn/V9d/OdrS4PMR5iVDP1LPL7d2BDmT1+dN
Mms8SP/w3HtcdY0GKQve9xKsMdz/eNDvZQANVt+ZPLtsgaE5ietgw3XSH2Gg
df4MBlPFB0Mfb9Ng+NKepQWy31nuD9/ICqWBD289Z5khhktXYh8pJNOgWCvj
keB/GEo1T9pvTaWB4jbh2y0qZP0trt+xI50G70VNI64rYfB7EN+mSyF/P3VT
5LkM6Y/spLXWT0i99u2SYAhiiO/MuB3DoMGhWPZY0Q8CPEerxSJraGAbX/i7
dYaAo78/l4S9oMGy1nz16BQBKzfw9915RYObXz/Z/BoiwMv+lrZvEw04XlXY
pneQ5w0+j616yP3si49eohLALSDnoDBPg4v11WGbHQgYkdu3ILtAA+P6mUHO
8wQgDctY6b80sLjWdaDHkgA/8xgkylEG7avPqV4wJWA0g0Oam7sMvjB+cP7V
JuD1f98/McXLoMPVMcmSl4AbxjmHqnaXwUah4xLhFmxwdWlW6tcpA57olAfo
CBvM7xOcXPvKQNQ9KeLbXjaov9atP6NXBuhM2LUuWTaM6vTCnFEZmDm1zL4Y
mwHTLSI6u6zLoOCHRpST5wzIcd/fVn6jDFhYr8nzKgvqG10FS+vKwGCgMGtp
zzTwHxeZp9WXQUR3P0VryzRY9tQOPGssg28nVGnnxaeBOSVMrW4ug6wHRUo3
ZqdARLD2WOPHMmgV9ytgFU6Bo/X68L7vZaA52jBbITYFnOya1Twry2FNavV1
5aEJOCjBu+isXw5/HBOLDY6OgdIVr4nZ1nJQK5edWYcHQC+j7NcBs2fg+dI2
s7a1A3LKGjas/PAMPCiPjyU0VoDDu1SDeOsKiIlsfxETVY9sa45GTPRWwF5L
F2HJ892ophR187tUQpnClha/e0NI8Z2RjqZbJeRrhN1uzxxC0aMfU89eqgQF
msKMFGMIOUqPnHviWQmf3v4oC5saQvwPuUcOBFRCaMSNbw2mw8je6QTh87AS
5sP3qeeIjCAe6WHu3uJKuCTA0LiVMIpswrj2PMaVMH1TZX6tywRSFBTOezJb
CR/4J/Mkbkyg6URZ/sK5SviT+F5eImYCBeZpDxX/qQT5Yy7Wk/QJlIzcHpav
qAJhz98enVyTqHOu7etLoSqgPeT2e549iYztk65/2lEFy7+b34S2TKH1k7mj
n3dWwdfMuq0p36bQlyu0492aVcCh0j6Swp5CLjebFb7qVMGBhnA1V+FpdD95
sWXgQBXsV/Uc2m89jV632UpPn6iCzgMe+6tGppHOXpWXK7yrQHY1MzCZyUTr
2+CKmk8VhDvUq3ctMdGUnYX8Wb8q6BOD1//4WSj9/v17FYFVsPhV6ZDgDhbi
6Bg55hxSBU4fFK/t9GGhJpfs/vfxVXD+G6Pvyi8WMk+U4kimV0Hj0sDU5akZ
tH2LRnlDdRUUKquuwfMziPvFEUf8nLz/oVmkzRo2qvnu32T8qgr+nJMqYSuw
kYxqd8xSE8le1hKrbdhotP6RvMPXKpBskaobfstGPpjXQG2pCrKz1/iKHSZQ
IfvxkuZyFVQSrw/cMSHQIEufsX8FHU49digfPkEgkyl/1WOr6dDTVuIVakMg
heER8Ut8dHh8Un/dSS8CdXx6wXy6kQ7l28SaiGQCcXdaPC6TpcP1kX2HKzMI
pPvxx4VqeToUBxVrXckh0NNWle4mJTqMjLlY1xcRKOhNfN24Kh1M3gzaM18S
aDvjUqKSLh3y3A4t6A4SyLFqzQlVPTq4vd2vaDVCoNSKHB5NfTqElSTFukwQ
iKusJ8jwEB02aG/+z5kgUP9TQ3cHUzokS8hLDS8TKCJNWi/7PB0Ubc8/75TG
6HUKfeGJHR2GcfNPPTmM5pNOVtLs6eBz8e7RXAWMHOMfbH11kQ6SB04aHd6K
0d7InyIDl+kw3t9iyLsbo6lb7yelb9NB3aIj/IEpRtVNry9JBdPBb9fQT+0T
GD1YX80WD6FDd/yn5v5TGCkX5M+tD6VD/no2bZ0VRvatt1asjaZDZY2R0bA9
RjvEfe9yxdLh6M7IEV0njDguuK/hfEQH80n/wWhnjDJ/WvAtJ9KBkpaLhS5h
9GXDDsm5TDo86NM7leiD0ROnzek/KHQ4kRLxJt0PIz/qRlkihw57aoajkv0x
EjFYpzRdQIdM5ndJzxsYmbkNq38vpUMtrWU+MwQj2Yovz/ppdHCK+zF7/B5G
M0vtWn3ldPi+duveX/cxioh9sa+7ig4OXs1PNz3EqImRYNRaS4cPD7azFqIx
SloZ0fLuFR2GatermcdidNHkDjmgk/orlz4riMOIc/Dy6fo3dLD9+C1scwJG
nVucul810YFIn+qxSMQo5+pZ69p3dBAoprjeTMJIb42RXXUbHfo7Dxx7koKR
wAnd4aoPdKiY+5JZkopRf+quixUddNh72Xf7kzSMbqjJX6J20aGp0pLnZgZG
R/3F2cU9dHi04c4Zi0yMpF7zeRd+pYMhl3efchZGjDML1/L76RA4TsvMp2AU
mkUs5AzSwZRP7MvpbIzMJ8duUobosEv8sukfkpV2fuPIHKFDa9Tpf3E5GP28
0RmSNkYH5Tj3CflcjOrfNHOlTNDhV+dZ3gKS4wRfhSVO0aEz7ZOrbB5GF6yr
eOOZpH5vwjmiSFbPK46OnaHD/cb9HzDJy6yc9dEEHe5SSnqM8zFq252SEPGD
9NfPPMn/v//NCI6WePiTDtyzs3F9JF9quZcW+osOZ5y8DEULSH+K3pC5N08H
/acLqgYkr7P1zr6zQIcf5VePXyS554mLYtBfOsTwvn1yi+THP84/vvmPDnZd
ozr/f9/7wMjOu4CDAfKaiq/+/z7YJfPC/vaVDPiafCiBnGeR0U977nlOBqic
OF3tQbKKsWOn3BoGsFvP/UfOs4ib4pR5ZC0DTmTdmJEkeXLuoqs3DwNSfDuX
/x/vu6Muu9L4GCAnH2VHzrOoMNt1uV6AAZpx3wX3k/zwt9s7phADiB4eoa+k
Hu7HLiWIijCAU+n0BTeSTXI97HTFGJDQuG7lDKnvf38ub3OWYMAvlbBZR5J5
j3v+ipZigFvfDq12Mj+sPK86hjQDBsI93/1HcqmZj8U6eQZwK0dM1pH5jirw
3bRTgQHCyx6+f0g/XPnrxzqrxID1NPZpRZLVnwSElGxhgD5dT+g06SfBf4Gm
XdsY0D50jm2ZjhE+dUNyWZUBG2OqFE6Q/itfvkU102CA12GpuA2kX+POBAUG
7GJAz7/nrSzSz1eLgg/maDEgL/aN/TPS77ss7vbO7mHALcbjdIl4jCpLw9Yk
GTCgcVes29EojBI5wzvQQQZo6O6IYESQ9WwdkTFxmAGCx44ISIZjpMUVvXOP
CQNQUoJuRSjp53Pxtt9OM0D2cqjjqSCMkp8lbOWyYAAtL6bi7C2MAtYmzalZ
MSCw1snTgqz/PZUp4UHnGBAceWTHFrI/vODNoitcJPdn0LJS6wpG6faUOyYu
ZLyjb3u/kP3mJiP7mK8bAxblNqt6uWGk65g3/OYyAyJlOPUCyX716vlTAbdr
DDhozLb8ZU3Wg1uFM+0ByU0v1iUbkP3sP529FQ8ZsOTP71moR/6e9ZKfEUHq
EyvKXb6fjP/K20oUwwDKxufdFLK/lvp8XdWezIDtdbLblsj+m3yLg8J6woDJ
NyYXywUw6oJ7V3EhA5aNBkckeDESXrHu8Fwxmb/VwnQfbjK/IcIzf2kMoLpc
t+VdgVHIA+V9vNUMkFTqWPECE+hynEnP1mYGOK3WLZX5SKDiUx+L1FoYkPF4
6n7vewJNipjf1mhlwNmXbV8jm8jzJ8lWec9H0g/D65Y7EIGs0r19jnxhQNt9
+/sDJQQyLEgWdJlkgPLOMH7OBwSSqhkxyl9bDYYUSeOYXQRauskpNcpTDToH
JbRs1Mjz9YDitCJ/NUxz7bqzQYVABc0OkXnrq0FUy8zUZwOBdn4Z+pi7oRoe
3ZE5EL2CPH/nB61zVKuhsMR/fX8iG93U+nYp60Q1vP2pXPe7aAbZLfzdP3Cq
GnD0XY4b6TPIsFZaQNa8GvoedZ6biJhB6w7ZlGVak/FIz+UEeMygxDO9cxkO
1cB0l6PdVp0h9f5yK923GpJnXb8oPmWhWO0/x/uuVYNQfW6HejIL+fyVkJcO
rIYlzpEKpVAW2nPXsj7tVjUEnKlxfefIQm8fda9JCyXjy7nOt0KWhQotfvd8
DasGLimVt2f4WChqg3ihVEQ11P1S73q0yESnc81NUmOqQTj207b33Uy029lv
49e4apCiW0W9aWQiqW2JM5IJ1dCxJHCr8BkTLc1UIqskUg9/ibX+2Uw0WP45
JiWlGhye5e/fHs1E/wPPxQwD
          "]]}, Annotation[#, "Charting`Private`Tag$537508#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvejVzpKz7Yp2kVG5wf3LPtpL3btxMU8kwB7GP8cW
szNXJAHOF3noG9l7sADOLzSa/Zj1aQWcL1fS/fZ8fgOc/6sw8f+awy1w/jpN
PonZZzvg/HCWy26Ser1w/uwOcTGRvRPg/O+vDXhU9k1CuCchjLfm1RQ4f6LR
84l3Pk6D8wvmHi5kfT8Dzj8luSamTHw2nC/w+f+p91Jz4fyLd+NdNnrOh/Ov
b2jtkd2+AM63UZy449m2hXB+7CylV8FnFsH5Xw9mxrqeXwzne38yu3br+RI4
X+/9ypqQ30vh/LZZl1KC/iyD8+f4NQZ9EVoB52tsfNooJb4Sznd68P6eitgq
OF9SosHxstZqOD/939GnrLpr4PzitxP777ishfN5VjKnTw9fB+dLCWs3XAtf
D+d/dso5f8dsA5w/5fLc+gk7EPwar0Vu28w3wvmHj2YKrDuI4LtK8PxOd9oE
56vmF774fBbBd5i78ZtjwGY4f9HGI9JMFxD85FOznKdEbYHz43d597y4jeDv
Wrf/Ol/GVjg/ppPNavlHBN/SWmMvY9E2OL/kI4+z3l8E/1XdmZcy9dvh/OWf
4pbX/kPwD2dtSd/QsQMRPrueeCzl3Ann15rdzZkfiOA/2HR1wsyZCD4ARmOY
1Q==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$537508#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"t, \[CHacek]as [s]\"", TraditionalForm], 
       FormBox["\"I, Proud [A]\"", TraditionalForm]}, 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]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 0.1}, {-1.1031635939520839`, 1.1031640299676353`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"I - Proud\"", 
       "\"I - Proud, Okam\[ZHacek]it\[AAcute] hodnota proudu\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.704605696633665*^9}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Indukovan\[EAcute] nap\[EHacek]t\[IAcute]", \
"Subsection",
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.6992966392151995`*^9, 3.699296642264136*^9}, 
   3.699297007500061*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{"Ul1", " ", "=", " ", 
     RowBox[{
      RowBox[{
      "v", "\[CenterDot]", "B", "\[CenterDot]", "N", "\[CenterDot]", "l"}], 
      " ", "=", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["ms", 
         RowBox[{"-", "1"}]], "\[CenterDot]", "T", "\[CenterDot]", "1", 
        "\[CenterDot]", "m"}], " ", "=", " ", "V"}]}]}], " ", "*)"}],
   FontSize->24], 
  StyleBox["\[IndentingNewLine]",
   FontSize->24], 
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{"Ur1", " ", "=", " ", 
     RowBox[{
      RowBox[{"R", "\[CenterDot]", "I"}], " ", "=", " ", 
      RowBox[{
       RowBox[{"L", "\[CenterDot]", 
        FractionBox["\[Rho]", "S"], "\[CenterDot]", "I"}], " ", "=", " ", 
       RowBox[{
        RowBox[{"m", "\[CenterDot]", 
         FractionBox[
          RowBox[{"\[CapitalOmega]", "\[CenterDot]", "m"}], 
          SuperscriptBox["m", "2"]], "\[CenterDot]", "A"}], " ", "=", " ", 
        "V"}]}]}]}], " ", "*)"}],
   FontSize->24], 
  StyleBox["\[IndentingNewLine]",
   FontSize->18], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Nap\[EHacek]t\[IAcute]", " ", "od", " ", "odporu"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Ur1", "[", "t_", "]"}], ":=", 
     RowBox[{"UnitConvert", "[", 
      RowBox[{
       RowBox[{"Rc1", "*", 
        RowBox[{"I1", "[", "t", "]"}]}], ",", "\"\<Volts\>\""}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Ur1 = \>\"", ",", 
     RowBox[{"N", "[", 
      RowBox[{"Ur1", "[", "cas", "]"}], "]"}], ",", 
     "\"\< , Indukovan\[EAcute] nap\[EHacek]t\[IAcute] od odporu v \
\[CHacek]ase t\>\"", ",", "t1"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Ur1", "[", "t", "]"}], ",", 
       RowBox[{"Ur1", "[", "cas", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "rozmezi"}], "}"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<U - nap\[EHacek]t\[IAcute],\nZ\[AAcute]vislost nap\[EHacek]t\
\[IAcute] na rychlosti a magnetu\>\"", ",", 
        "\"\<U - Okam\[ZHacek]it\[EAcute] nap\[EHacek]t\[IAcute]\>\""}], 
       "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<t, \[CHacek]as [s]\>\"", ",", 
        "\"\<U, Nap\[EHacek]t\[IAcute] [V]\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.6992967286471405`*^9, {3.6992967912022877`*^9, 3.6992968159277678`*^9}, {
   3.699296884899723*^9, 3.6992969559991465`*^9}, {3.6992969979617195`*^9, 
   3.6992970075005608`*^9}, {3.699297078314595*^9, 3.699297255349312*^9}, {
   3.699297312612443*^9, 3.699297349898373*^9}, {3.6992973936651692`*^9, 
   3.6992973951289215`*^9}, {3.699297481105274*^9, 3.699297499196247*^9}, {
   3.6992975298493366`*^9, 3.6992975302745996`*^9}, {3.699297965267477*^9, 
   3.6992979908357773`*^9}, {3.6992980358465223`*^9, 3.699298149609132*^9}, {
   3.69929869230048*^9, 3.699298798661584*^9}, {3.699355527081149*^9, 
   3.69935553531279*^9}, 3.699355700848425*^9, {3.699356359394516*^9, 
   3.6993564029965005`*^9}, 3.699356457964117*^9, {3.6993565031606464`*^9, 
   3.6993565190951543`*^9}, {3.6993566175395713`*^9, 
   3.6993566186865177`*^9}, {3.699454229577299*^9, 3.699454230992776*^9}, {
   3.69945430050418*^9, 3.6994543054886923`*^9}, {3.6994562433597856`*^9, 
   3.6994562446873827`*^9}, {3.699456304331092*^9, 3.6994563628228536`*^9}, {
   3.6994564028290787`*^9, 3.6994564769245243`*^9}, {3.699456522037867*^9, 
   3.699456524864659*^9}, {3.6994567713272896`*^9, 3.6994567733791523`*^9}, {
   3.699456830050992*^9, 3.69945683007801*^9}, {3.699457409934402*^9, 
   3.6994574124700985`*^9}, {3.6994596104079638`*^9, 3.699459610595555*^9}, {
   3.6994726858356457`*^9, 3.699472688957074*^9}, {3.6995473478057013`*^9, 
   3.6995473542495255`*^9}, {3.6999070440988636`*^9, 
   3.6999070466960936`*^9}, {3.6999081339648285`*^9, 
   3.6999081419098773`*^9}, {3.699908200384754*^9, 3.6999082025802345`*^9}, {
   3.7008348332002954`*^9, 3.7008348358536696`*^9}, {3.704605201907405*^9, 
   3.7046052105656404`*^9}, 3.7046053328067493`*^9, {3.704605493376981*^9, 
   3.704605494508729*^9}}]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Ur1 = \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"0.9236282401553992`","\"V\"","volts","\"Volts\""},
    "Quantity"], 
   "\[InvisibleSpace]", "\<\" , Indukovan\[EAcute] nap\[EHacek]t\[IAcute] od \
odporu v \[CHacek]ase t\"\>", "\[InvisibleSpace]", 
   TemplateBox[{"0","\"s\"","seconds","\"Seconds\""},
    "Quantity"]}],
  SequenceForm["Ur1 = ", 
   Quantity[0.9236282401553992, "Volts"], 
   " , Indukovan\[EAcute] nap\[EHacek]t\[IAcute] od odporu v \[CHacek]ase t", 
   Quantity[0, "Seconds"]],
  Editable->False]], "Print",
 CellChangeTimes->{3.704605696720723*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVmHk8VN8bxyWkVJbsyZIlEmkhUh60SZRURNpkX5I9iaxlzZKdMUNF2WYI
MxSHQsiStQWRdczcmxTli+p3f//MvN6vc+85z/l8nuee5145Ww9ze04ODg47
4uf///msGp/OB3J6i/JPum0e4uDCKdJQIcwBd0Iss84R/Ev8Di1BWADKMbGV
AwTTabMcLdLiIJP7a349wYeelCgHC8uC5BGBe23xOEjdmjTLlFCAas74fD+C
/+hKBVRKKwPjLsVGkOAv687ndcvvAue26NLMOBxGZ5vtfIU14FbAo1R+gt93
f13iFNsLtNQtIt6xODRU/YlLlNgP3GTXXU0xONCyJeSkpbSA9yHvMCfBlFDN
qmJpbejrtVXYHY1DouPZkzpyB6Hy/F/uk1E4hJq6j7TIH4J+T5dQswc4lMf1
cnoK68Or46pGypE4FN0b66CLGMD39R9TlsJxyPf6lvZX1BAcgrmDq8NwSL64
QTVO4ii4ZwmorNzDIeaU+GKv5DEQWMjDQoNxCNNTQhJSx+HP9a1mv+7i4KVg
eK5Q2giG3hcvFwYQeoqZbfsmcxLCJHqPTPnjYLvhysx+OWN4wvVPQ8APh3Pf
AwJfy5uAifL6VXUvHCS/fOy5KWwGzKdP/ROdcUj7MKollGoGX9j+a3UdcRDq
mc6uEjkLuS0Vh/vscNjQtGC/KmoOGrvd3nRcxWH5ucBytMR5yNhToT95Hge/
x2JX1bLOw5H0w26rZ3H4kSPd9F7yAuyYcT/HeQYHVsKuh2JSFnDo4z6bD0Y4
DPkabX8qfRG43vM/LNDF4aLHmQdG5Iug/0Stc5c2Dv1OFhhbxgoi+bg/Uvbj
0HHJrnqvnDWcyHptZa6GwyuDEOMGeRuQvCl3emgbDl08NjXuwtdg4V2PwoMV
DF5xG7grW1+DnZs+737wC4PnXEpyE+RrkLq7mttrHoMIzu9RF1Wvg/mTYVne
GQx0/oZfPGJoC90PmSFaPRg8WSz+LX7LDmzsftwh52GQvJBY3FdlBzE+5VtO
Z2Nw76fv1YcrdrDVSqB2JgUD63l4u/aBPQQlBxoOP8BAAO9L+0ZygB/9nG3t
bhgETq5oNr1zgri7TaKv92LgNDE2GyzoDKKjR0bkVTGwGG8m6Vg6Q3puxFpP
eQw0xhK4qePOcKF9KrJzCwbTQ/IDmf+5wOmxF2sTf7LBvO+Uj8cOdxjIV5PT
p7JB+KupVXzjLfASfDEaIMYGa1F/3a3jt0CY8t2PYzMbyKco255zesLOzdmt
vlxs2Fn942vTEU+w30t+sWueBfqx6S6rzZ5wmvP5hY42Frhqfg10bfcC2cT3
lh/9WfA62if3ZJ8PiMYc+3v27SzwIlLIh58+kJaSHv7q5SyYLrTY2gv7wmz0
yWxR2ix8vCKxI/SCL0iappEzM2bh2756KuODL6xI5HQNOc0S+beuccewH3xN
ogdb8syC597sCe6p24BrnuS202SCkVzAqe9cAWC967aNsDITZAUsX3xWCIDm
XtGvVZJM6MKFwql2AdDpfvdRx78Z2Pk8ZrvVZADMlfZHnGybgUmZO9dLJu5A
3mLGryirGbDYZDVqPn4XHFw+dVl7TIO0Tyze7REChoezTpt4TYJoR+91mdAQ
MK2vPLv92iRsUpAcvJkcAm8n83JnTSdhte9Z/aYqYrw/19hEZRI+72tJOLUc
AkHtUldujE5A6k+OvW8jQmGSsUtt0mgCNnr7+dVnhoFf0xvzRMFxWPa8/q/k
TQSMvO3KuPHfFyhT2Sye3RkFBfRB6RDvfrDk6jsuoR4PLyJ+aQqYNUB2lJio
cF0iiNXnFhvLlaPfbI2NCvXJoLn6YOy6dzfqumax6S4rBb5PYb7KHkMoae9M
0vB8Grya7z14lDKODj1x0Oz5Lw3SXObXqlaMI6bI9MfmNengFnrdnqdpHOn9
NylDFUyH6Kmi5qyZcYSh8dLQPenQn5TZoa0+gYxMv7QpeabDdvJEon7NBOJw
Gljj+T0dCrflW2q2TKKST+ef2i+lw2WB3qyswUlkearfyJojA6bsm3b8nJ5E
Zep9CUcEMqDNSOR30LopZLP4fpuoRgZoGMpa/HdiCjHCOnReemRAqa9fZHDL
FLpFeuPJPZcBVBB8d69mGtmCh2bh7ww4v7sxOrBtGp37KvmfEUcmLNNU2A6f
ppGWoldInGAmcFz2ddr43zRaKZFN2LI/E0qK3/AnHZhB918FlcgFZMKlzTWn
/ctnEGnowMzhtVnw+VzeomsGEz0Mmiga5cuCLd/SOo8XMFGITMLNUOEsMFoz
Ms9fyUS2N6YXmxSzoDet87dbNxMps1O4TIyyQDxbY8aMexZVLs/LWcdnwezu
UpzuPovaJUps/MSywdQsWOi1BgvtdrY3jJDJhnflIpSHuiyUwpBWTt6RDa/t
WlqMj7PQFcukn6UHsqFp8klT0iUW+pniFzNlmQ33fb+1WkWykJSAAeN8RjZ8
E7M17hhgodCryyRbSjZs0qmwThhloemyF+G3nmVDYk0iyWCWhWimSmfiGMR6
um/yvVdZ6Ggs3/Sbj9lw+mf/2k3b2cidZ3DLPokc2MsrsUHAhY16LyT8py+X
A/GLzLA3Xmyk/dRo9LRKDvTrHe61D2QjzqMvi1x0cqCocOqLXxwbpYVSDPKt
cuBN5Iut7aVsVL/q4iGYlQPmauR8DZyN5E0ULsjk58DrvUFbuhfYKCp75KBa
UQ5Y8Saut1llI/ODZjwna3NAGN31MuDD0Iy/Jinkcw5wzv6s0lHGkMDPf+1z
kiRIO+e9dfgKhl56Tb0vkicBifJkE2aPIYcf7YP2u0gw4/hz+4wbhl7Np44P
HSauV/PNz72DIafvqstvr5HAjVPbWSgVQ1tuCXKEO5Ng0EaceScbQ/Vzv7j1
vEig5FVn25WHIeG5RsHKcBL0andpa5VhqAG3VKEUkIDrCH2WtwVDru6Hd1+i
kmAp7O/b1ncYEsW3a4oySMAcjA/27sGQG4brx7WRQEUDvxE9jCFxdvjF2xgJ
3j2Yz62ex9AtJvWB2d5cOCZiFb5FHEdbnVLj+XRzge1XKHxPCkctM3cetRzJ
hbVHfhgOyOJIauYY+dCFXKhy63I2UMFR69RQtfLtXNivdCpWXAdH3vaNryZC
cuHPppqyj4dwJD1V8Do3OhdsDK5ahuvjyGfSs0s4OxeWf5PUMk7gSHZi3TRH
fS6Mq1wqQOdx9M4WZ79syYWk6EfFfZY48hvvnffrzoX/fu7Z3muNo46vpD/Y
WC68cJq0fngNR/7Xw9c+m82Fbe8bxU1u4Gj7V6f1N37kQtq/dFiwx9HtsX0i
n9aS4faoR8NaVxzJX5PYmrKRDE7va0Rd3XHUNfpX9owIGWQ3xXe98sCRwmjb
rmYlMuBpm21kfHDUfYW6N2Q3GUj7ItQ1/HB050uKtq42GcrqBG1Ub+OoZ+Tq
0fKTZPCUrHg9FoijsdgK1yPmZGiTrxd+FISj7zrcjwasyaCywTNS4x6O/s1Y
1jreIMOwUMGWmhAcbU4r+vqfKxmKTU7U7woj9Dr6hzfOhwx5iaYRseE4Uvtx
RkM6iAzNYQ12AxE4Mjm9GGz4kAyNq+c9dz7Akc3qiYL+NDKkt3Vna0bhyLUo
q9OBTIx3O4+oRhPxXsQXlgrJ8OKFj+amGBzF8OhLxdLI4Mg0e/yJ4KzK5CPb
ashQT3VXSorF0XPbKRdqIxmWJE/W74vDEUNAO9mgnQzcfLdcGglurY+p6esl
wyeN4J0H43H00W1kzH6IDNRN0n9JBM9IavAuTZDh1E/eKYzgX61hu2MwMuzj
Wjeq9BBHPP4DFlKLZHizb459imARReXgsj9kuHK8kI/ot1Gyc5257FoKePbI
61kSnNXg4OC8jgIPdJ3CDxOcLyZwp4KPAoav7g9tJrjoZk38Cj8FTthQjr8j
1qtots07KkwBrcXJJi+Ca6U2VsWLU+D2nkcW3AQ3ele1DkpRYHvc0krY//fT
fmVYRo4Cz8w8q9jE/t/L8X53UqQAynIKB4I/3i5fW6FCAeaFiw7BhF5j3dZi
K2oU0D7cduUZoS9TiUv16F4KYJ/N3esI/b8HlerFa1Hg34Ps5DrCn6V+C/PB
gxSguV7sfnaf8F+Vw0EGKMATaKpwL5LQI/x5gNMRCpjeNk3WJ/zd/Nk8vvwE
BZx/6Eji/8+HqKeVR8wo4JDyLHAdkS9Ko6db485TILnvgKVvMI7UtZaGBi5S
oOFVp1nXXRwdnjRe63SdArH27fkGATg6qrsgWm5PAd3Iyj+X/In8SSbtXHam
wPFNJYHXfYn80f9+Ns6LQvTzbtNqnjiyS8+0H/CjwJjq7sGFmzhy+2YYIB1I
gbOHfnwrcMNRYE4qhRZOgfCT/PkdjoQ/Swfn+lMoYDGzANKXCX/OTHJKZ1Kg
eu7xMz2iXp8XxIs6kigglPrHyJioZ8b5scP/PaVAXvI2HfmzOPpAi4zbRqdA
cY2ByPARHGV80SyXekmBNG/v8UfE88J64/TAVkSBDkW+Ep3DOPrieFxG8i0F
suJqDp3RwtGk9LoK0Q/EfA1Zifk7cFRgQh8UGaLABaZWULs8jhzvOK4Ij1Lg
yuGf/mMyOGINvD26ZYbQqzYwb1CM8Csu6gP/bwq8NVjDh/EQ+VOrvbp5hQIu
JffLIjiJ5xmTKbv5HwWGqc99+P5i6NeRky4b1+XB15CP3hMLGPqzvP4Pr1ge
6JJo8XVfMbTBOXY754E8UL/F0SvFwFBHmu6JNbp5MMJeXJNZgaH4JrYrB+SB
+62GyLWlxHkia1L193geaBZR0h4Tz3vRDxuNVizyQPRfmL5ADIbkjz10X/DL
A9kC3u+5lhg6JJfEmK7Og5u7vnWWTrGRrKOl+6GXeXCbtS/0/AgbcZdu256M
8oAjbIJrpp+NurSLYg+35oEweTm1+w0bXTN7cyXlUx5E706Op1LYKOLeIpfh
KjH/yHU/mgUbdYxYnSUZ5EOxvMqR6RfEeS0vy/PzWD6MnTb6vuU5C6U6T9ca
GedDRJ+MqXou0R8seiksmOfDolempkoUC33fGPfb2C4f1nSr52sT/YLwoXrS
0v18qIxR3Nr8ZxZdztrOOteRD5TJP9Pv98+i1eo56tX3+WC4693W+8qzKKvv
la9rfz6EFo57qErNosGNlmvCh/PBwnBn6vG1s8jsXqx4BZYPNqe+0tB7Jjpi
t3BcYNNjCBJ7uq/JiYlU1Fsed5g+hgch3rlm8TNosdH58rHux1DbKSnoVDSF
qn+ZvCjsewwn3mQ0C2ZOoduqGus3fHwMPdart4sfTKHllF+VXWOPYYljiwDV
boroJ8M3XvzxGNYIOLkubZtCGzaTXrqIPAHBrmM25PhJJGv9XiLx0hMY+2tQ
nHN9Ap36oTX4eeYJfGLX/XMbHUPqc8/vnl95Csnn6tVFegbR/axeO/PVAuj6
J/ZRy+4tyjkdar4g9Az296GRwnuxoFw+FSop9hw+UjfjsdvawHBs7ouCaBFI
kEn+BbEfQEI8xKBvZzGMva07vHrgK1TsFtw4rF4MMtWap/8afwWTE/mDk3uL
oflCR8Ti5a8Q7Nfk+utgMTiqvt7/JvwrjPfzpkmcKobI00bnP3d9hZKkJNZV
12KoSb1ggtuOgz7f40dYcTHYxwy7XgibgE/b919ZpBYDap+rmXo0AV4Hm5X/
viiGt7VSyPnpBDx1nqnjf1UMmfX9r01aJ2BDqypzb0cxrKTOBAVtmoT+iMpD
AVgx7I4vMg1JnQTHv81T3GolIOz22qwxewoU1N317feUgJiY6ZX1pVMwdlk4
u0mzBBJqX3sa1E/BxTpbs3C9EtA6W+0fOjYFRnf/1XKYlUCSqDEZFKZh57J2
4opXCbB+NYQ8fzYN+GLxwXlGCQxa+6mMPpmBIsVzqWZ1xP3npE8IVM6Aw4Xl
OWpjCZzrkcV2v5mBL5VGT2+2l4D8rWLywa8z0OU9xY8NlYCu+7T/XSkm0Oal
p6b/lsARtvatZwlM8MaTEoaPlsI2Jb2zF4n3Q9vKuTs7TpbCo3ciIet9Z8Es
0NTBy7QUjonLZz4LnYVd69cf5rUohecjmxxoWbMwrRDC2udYCmWD+t5T72bB
2ubmsdjoUrDsTW0Z2ckCI/kOjcH4UjhpJB/qrMWCAywVKbnkUugQvZ8zbsAC
4dtTP6qzSuFmg95AzkUWdD6yoYwXl0JuZZS7RiTxfvzOeEWnqxSq9Esud35m
gXrys+mI3lJINc67pTrFgm1WPL3dg6VgA8ec/OZYsDzd+Mx+tBTIHxyZvWvZ
8IJTxyLpeylRfy9sn6qyQengjnKmUBlEtyjKFfmzYePztY7plmXAultayLUG
g8rjTjcyLpXBik/kURdeDGwmO65mXi0DUy7Bh/X8GJTKpF3MdiwDpLxbZJ80
BqfTlI3J/mXgsN3C/9RBDBLDTdUK08vAvVO4U9MDA225CpVn2WXAmJFQi/DF
YKxeVOk5uQyufLL71RCIwZ7lUeniwjKQfOJaxR2FQe8tLwEqvQy8Ty4HviRj
sOVK+s/qD2VwYcdnroF3GLxaWZmjD5VBcn2IIW8PBnaZ1zDGaBn8qBmhqQwS
8ferTNXOEPePiW45MIbB+VOvBut/l0GQgXd64E8MVpmyfWilDDTOuHPJLmHw
5H5kd8O/Mlh9tBBdsYrBYuPp1tfrqLAi49SXx41DmvbXmhYxKtjqBG15LoqD
3uCx6rdbqXAgXm2pThKHae+iilYZKrwT5BlrkMbhANW7uH0HFbrlzKiJSjh8
VOQhdR2ggmhz1vqLmjiEvHHJ7NalQrJeUtOwNg7K17tT3xNvn96WQrfOHMIh
ICfjYe8JKiwE6CT+NcRBcotqyKAlFZQLNV6Fn8FhqvXpRnUbKkgO/22pNseB
FiybGXmNCv0PCkL7L+BwgiVSsd+ZGA8K+9N9CQchSqJenDsR/+PLtaVXcPhy
ge/dhCcVtv+5Ku13HQefRo7J5DtUOFrQ29figAP4B95iBVPhwQ97uTPOOGxQ
+7VqEE6FzpsOm1+74kDJYIvMx1JhpIeMHG/h0OkxeOIMiQpnp7+bVdzGIUPx
bH9BHhVMs4JcE+7gYDf07trfp1RQfISLW97FYfl4Y0BpGRV8xKx3FNzDoXlV
l4f7BRWkfn+LVAvFIbGiOtmGToW3zele5DAclKRLivkaqPDmxJofhpE4zPcp
ad9oooL6mg9hPvdxeBWd11TbSgV9OouU+ACHKJA6K9RJ7JflbpgehcO5xbQR
5x4qFFfmeURF4yBdLOjSOEAFm/ZBBbsYHFjX4n6Jf6aC6x336ztjcagSXRd+
6wsV5ssGFIYIDukI5W8dp0Iq/vCmXxwOp8JWs2VmqPDFUllvlWBRbX9lfzYV
KMX6j9zicRjH5yu75gi/jtx3f0tw6WM3A6UFKgSK0Ds2PsThttVMZ9ASFfKq
KbRDBB/lt7UeWKVCjqWsBNEfQ5TtTe80DhoUt2zn+f/3ave6Yp3XnDQAjyf+
RH8N5uKz/3AuGvBZl7srEqztrdQisY4Gi7vsmbPEetJdN+KOrafBv53smQyC
uVTyzD35aKC+P9htL8Gs8C/ipE00uNLs5FdNxN/9ZetoKz8NeJa4eBQJrtSx
erogSAPusFdbg4n9Z6WkucoK00CvipfRSOgVMte3x0SUBub3vIbmCD3tjQWX
/MWJcefk+7wEGz89Xf9YkgZDaQK1fIT+GhxxEd1SNAhoeeL3H+GX6KU24xVp
Ghibidb1EH6uVPEI7pCjQY/ioYcpETi0uIaSghVpION7uv8TkQ8lLfU3inbQ
AG/XOmUTgkOS3KrKoAoNNsi/M2sLxsHmg1+1mjoNfq/L3ngjEAfDvZV3rTRo
oC9zpjkhgKiv+HnDyL2EXiYUwUJ/HH4aunUPa9EgyrjaJdUbB631arkT2sT1
vK/YSZ6EP924G+sgDdYn1LcEeuDw95LHhiU9Gnzn4E8UI/Kf19fr2JYTNLBp
ak73IOrHWHefsORJYr83Tgh8IOorfs3CuOwpGiiU5X9TtSHq76FviPoZGkzQ
KydIFjhIFd5+edKSBuvk7n3NN8bhirtOjJkVDdpEKmt9T+CQt2/5ouUlGoym
J/FqHSXyvyHwl91VGlQKxG+4d5jQ81PwnhBHYr4Unsm9u4n84YssrPYn/HW/
+1ueH4f7Pcf86gJo0BnRrtq9AYe2dJ5jTYGE/hKqK448OJxWiBrvuUeDSxst
/Wz/YHDxcOw2/AENti6b7A5kYeDmkfRIPoMG8j22VnqNGJRpmtvuzKLBgAir
oOklBvMrQnv25NAgnvyoUbsaA7+olC49Cg3SDB3cWEUYhOSlr7d+RsQTpfvH
+xEGKX2ke4kMwt/No9by1zG4NVUjGl9Lg2veFS+eW2Nw6vdAafQrYr8jPu3S
5zHg3Lp5OKyBBsFbkMHAcQw8bYO1fVtpoGgR3OatSpw381fmrT7SgMlP+X5n
ng28/LI35JdokGz1xKLnFhsmZQ8tyywT+WPq8+2AExvQ3otJUqtEPZg0fYi/
ygY/i0QkwlEOLz/wVK47zYYpEocUL285qAnpqezfyYbXu772Y2LlsHe186PP
KAvuGucfrz5QDjF6nljdYRY4O7UpftEph5o2E6k9e1lgcf87F8+hcqj8K3g/
SYkFGq/13lzQL4fG9wxlSX4WTOkMwaJROXzq40w/NToLp1WEdfZbl4NUak6h
1t1ZkOW9r1pxtxzaNJw73Z4x4U2zs0BZYzmIL1v9udsxDZvPCC/R3pRD4OWB
gqy6abj4sX70RXM5bNhrL1tUNg0Yawu1pq0cwnm2PM9NnAZhgXrT5h5i/qvt
YqPnpsHOWih2+Gs5iEY5NDR/mAKuuVpuPs4KYEkLUW8OTBJ9zcYVR8MKWFD3
prsXjYOihyfzZ2cF+F69E2ZY/xn0SeW/DMxegO42vLvgbjfklzdt5Xz/AjhU
BJ/utCuHG+1ZR1KsK2E5hcrTdLUBXa09FcccqoQvuhfpUYl9qLYMfdjsVAVc
aTFcuWtHkUK7kY6mSxVcV+B15FcfRQlTPVmX3KpAPwpPcLk4iuykJi8/u1UF
Kz26r0ZKRtHmGN5Jg4Aq8A2vk7TeOYZs7c9+94mpgqJMo/a178cQn9QE71BJ
FfRVet04LDSObKJ5DhbOV4GCltOLPR6TSEFgy5NnP6vghSx37eq9ScROk9lc
tFgFaftC179MnER3nmiPl/xXBZwaKVaCFZMoA7nEVKyphsq4MyT5hUnUt9j1
uU6wGrh21LYM+E4hY9v0wP491WAZp8Le6TGNhGYfTw3sqwaKqnnsqeBp9MmD
duaDZjWwyX0HrsRPI6egNvnPOtXQqxiRaFU8je5nrLwbNaiGR6SlQ4XT0+h1
11Up9tlqeL39S2ia9QzS0VWuW+NFrN9dEHf/ABMJdYGHuk81/GeCzS8eYyLW
NUu5S37VEHqj9PG580yUc/9+ZOWdatC/9/b1p1tMxNE7aeoYXg0r2Zqd/M+Z
qNUp70tHSjVEVBbskhSdRRZpkhwZ9GoQrT+TdWN8Fu1W2VvRVFMN5/cEG0R/
m0W8r07azb+shmTL6H/Zy7Oo9uvtVuOGaugZ5yNFCbGQtNqHxD+t1bBl8xOX
IAMWmnrzSO7G52q47DUy2ZnNQj7zG4+o/6mGzsqukR4DNiqaK/yj+Y9gmato
ypiNxnBDxuE1dHiIfp9gnmMjE9ZtNVNuOjTa2x2osWcj+YlJMbdNdIgbjJ6P
jmKj3v5X2PNtdMij2G0Yb2cj3j7LwnIZOpRFhTSP9LKRXs+P6zVydDihod3z
9jMbPe9U/tCqSIfEEYcWBxYbhbSkNM6o0eGwRympmxdDuxluaYp6dHATvdBv
ZIghu+p1Z9X06aDCrWux4ySGsirz+TQN6RBqHj/y8wyGeMo/hhw9ToefBjps
i8sY+vL8qOuN03SwUroXd9QfQ3HZUvp5V+jwzW7RurYQQ68z6cvPrhHzCyoe
9y/F0FK6eRXNlg5a6X9/yb0g1kuJ2tngQAcRP/Ns/XoM6cYvCI/epMO4QXBc
fh+GWMEds1L36EDZLLrj1zKGalpfu0mG0qFte+m03z8MRQnVzImF08FhMHRu
ai2OlAqeLgo9oEN2mETvw404su0MXrM+gQ7GboNJfNtwtEfMN4IniQ4/jk6c
/SuLI47rruu4HtHhkkPF8VEFHOUuWG76l0YHb1nlZtddOPq0dY/EYi4dxATf
DpQdxNEz+x05Pyh0KG2cWxHSw5EfdZvM93w6XOEWO2ZvgCPhIxsU2QV0MIs5
rd1/AkdmLhMaX8sIf7gM3YbO4Uim8tOLLzQ6RLn/9KZZ4Ojbn26t4Qo6XObL
SvC2wlFc0qtDH6rpsH6T0OqbKzhqZaQaddbTIbBRNijeCUfpnHHv2hsI/7vy
f/e64MjBJIxo0OmwxqIzgMcdR1xjN8+/aaGD50RzwgFPHPWp2H9oaKXDtD2X
nKY3jvK9L1nXtxP62nRUyvriSH+d0bWaLjo8DjYfbbyNI/6zehPV7+lgIPDJ
2/8Ojr5k7Xeo7CXinQrg2XoXR3fV5dyog3QoURDevusejk7dFpsr+UiH1EW1
55khOJJ8vcmr6DOh56f8nYuhOGJcWPZ/+oUOrnWWEn4ROHpA/r6cP0YH7QMC
kdmROLKYnQ6ijNNhiC7MLLuPI8V9Ixy5k3So5a4zoD3A0cLdvvDsaTq8Y7sm
kaNw9KaljSeTSQfugwmDd6NxlCzQEJ3GIvRtJgsYxeDounX1xhSMDnRnOVgT
iyONJyUJSd/osMzz+Pozgv/h+UIJ34l6iqj3PxyHo64DmalxP+jwu1s8tIFg
UmiCeMwCHTxGrgfticeR27vI7Ae/6LDu2Xm3RIJ1Re5KRy7R4cMeuukIwRuu
euWFLdNBPsJaTvwhjj4+c1IIWaWDL1VyRp/gwh9XCoP+0oHx7kvu/7/3Rhld
8yrgYMBgOuenSwQ75V4/3M3JAOH5oF5jgo0WbHmXuBhwW+RyrALBysZ2fbLr
GKAc+3It0c8iXop97sn1DLgo26RL9LNodtHB2YuPAQps2j6in0Xtp5z2Z29i
gOvJd2yin0VFec7/3vAzIHvM1U6J4JjfLu2YIAM8ScukEEIPV1O3VBFhBhS8
+JbRTOhn8tj9mp4oA4pIXRcWCX13/XdT1VGcAfukNAb4Cd545tavBEkGfNZk
iIkQfuBPPBsZUgygaG2V5ib8KjPzsdwgR6znmxDwlPD7YYHv9n3yRHz5F95f
CMeRx6offkmRAdpJ1759J/JD41lAeKkKA8y8LSJmgnEk8PfO6UFVBvA43fpr
GISj+XN3Jf6pMUBGTu1odCCOKv4FU832MkA1P+XAoD/h/4WQOwH7GcDvwJwZ
JvLZuzj0WL4WAywnNZy7iHzfbxkx9PMgA+xJmZOeHjiqKotel36EAVKO8+xa
exylccX2omMMOFBbaCZ+g6hn6zgS8wQDPBJ7Hl27hiMtnoR9B00YkCZ4ra7c
msjnyylXR84z4HLN8AeL0zjKeJG6k8eSARP8Oi58p3AUsD59Ud2KAZKi57Ei
ov4PVmXGhlxmQN772LYifRy92kimyzswoOslY3fZHhzl2FLCTJwYsPWg5YNa
NRwFMfJMfV0Y8HK4daJcBUd6dk8mWm4y4Bfqqr4uh6OGl8/5XfwZsPfIWckW
fqIeXCodaVEM4Hz7jfqEiSGOXTq6lTEMaDVSvF03gSE9vG4zI44B8beHVJq+
YIjh8bYKJTLgjOgJi+x+DJX5fF7bnUHk3yZRNU+EoYxgDgr+jAEiNz3e1iVh
aBAiveeLCH8SeKqrYzG0Zc2GE4slDGj3P9hMisTQw/At31ZpDNjG13ZeKwBD
4VFKhzbWMEDinWJB0lUM3Uw2+bizjQFRzITHC8oYKjnXU6z+jgGj13yCe+Qw
NCtscW9vJwNQt+GrHEniPEi/qnSwhwGKlEqvv3wYssrx8jn5iQERLYun5nA2
OlqQIeA0ywA/mYPDMWVsJFk7afR0fQ2khykJdW5noz9BXJJTfDWwrt2711mc
OF8NFNgKm2ugvnTu5vwmNipouxH/RKgGjF5rXG5cYqF9n8Z7Hm+tgehD5N92
nSxksjRmna9WA1nzIpTXXiwUpDXiRj5bA/q/lr+Lls2ia8urh0fP1cBLt9PH
ZfNm0dF6KX4ZixoIvE3KEUmZRRuO25TnWtfAsUPzPk0BsyjtwtAi6QYRn9jO
xX1HZwm9PwXn+NYAd85ltxsDTJSk/d+ZYf8a+Pf8KGPPWybyWRWXk7pTA+/P
7qZiDCY6GHHxTXZwDVjOFbQr5zDR20cf1mU/qIGrjLiftdeZqMjy98fP0TWw
XTyld86ciR5uFSuSjKsBZbdzdMGjTHT+sYVJVmINaI3ebJBSYqIDjn7bPifX
QJ7VzlVuMSaSVE37JpFaA3zuNm7D65joz7cqZJVeA15hn6QoSzNorGIgMTOT
0ONxhMTZ2Rn0P6Ha4F0=
          "]]}, Annotation[#, "Charting`Private`Tag$556379#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvejVzpKz7Yp2y1SWnI/pe2svde/GxTyRAHsY/xxb
zM5ckQQ4X+Shb2TvwQI4v9Bo9mPWpxVwvlxJ99vz+Q1w/q/CxP9rDrfA+es0
+SRmn+2A88NZLrtJ6vXC+bM7xMVE9k6A87+/NuBR2TcJ4Z6EMN6aV1Pg/IlG
zyfe+TgNzi+Ye7iQ9f0MOP+U5JqYMvHZcL7A5/+n3kvNhfMv3o132eg5H86/
vqG1R3b7AjjfRnHijmfbFsL5sbOUXgWfWQTnfz2YGet6fjGc7/3J7Nqt50vg
fL33K2tCfi+F89tmXUoJ+rMMzp/j1xj0RWgFnK+x8WmjlPhKON/pwft7KmKr
4HxJiQbHy1qr4fz0f0efsuqugfOL307sv+OyFs7nWcmcPj18HZwvJazdcC18
PZz/2Snn/B2zDXD+lMtz6yfsQPBrvBa5bTPfCOcfPpopsO4ggu8qwfM73WkT
nK+aX/ji81kE32Huxm+OAZvh/EUbj0gzXUDwk0/Ncp4StQXOj9/l3fPiNoK/
a93+63wZW+H8mE42q+UfEXxLa429jEXb4PySjzzOen8R/Fd1Z17K1G+H85d/
ilte+w/BP5y1JX1Dxw5E+Ox64rGUcyecX2t2N2d+IIL/YNPVCTNnIvgA0fux
0Q==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$556379#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"t, \[CHacek]as [s]\"", TraditionalForm], 
       FormBox["\"U, Nap\[EHacek]t\[IAcute] [V]\"", TraditionalForm]}, 
     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]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 0.1}, {-0.9236278750997362, 0.9236282401553992}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"U - nap\[EHacek]t\[IAcute],\\nZ\[AAcute]vislost nap\[EHacek]t\
\[IAcute] na rychlosti a magnetu\"", 
       "\"U - Okam\[ZHacek]it\[EAcute] nap\[EHacek]t\[IAcute]\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.704605719926339*^9}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["V\[YAcute]kon", "Subsection",
 FontColor->GrayLevel[0]]], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.699455537226017*^9, 3.6994555410569334`*^9}, 
   3.699457514273118*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"P1", "[", "t_", "]"}], ":=", 
    RowBox[{"UnitConvert", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"I1", "[", "t", "]"}], "*", 
       RowBox[{"Ur1", "[", "t", "]"}]}], ",", "\"\<Watts\>\""}], "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<P1 = \>\"", ",", 
    RowBox[{"P1", "[", "cas", "]"}], ",", 
    "\"\< , okam\[ZHacek]it\[AAcute] hodnota v\[YAcute]konu\>\""}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"P1", "[", "t", "]"}], ",", 
      RowBox[{"P1", "[", "cas", "]"}], ",", "Ps1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "rozmezi"}], "}"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<P - v\[YAcute]kon\>\"", ",", 
       "\"\<P - Okam\[ZHacek]it\[YAcute] v\[YAcute]kon\>\""}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<t, \[CHacek]as [s]\>\"", ",", "\"\<P, V\[YAcute]kon [w]\>\""}], 
      "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"P1", "[", "t", "]"}], ",", 
     RowBox[{"Ur1", "[", "t", "]"}], ",", 
     RowBox[{"I1", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "rozmezi"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<P - v\[YAcute]kon\>\"", ",", "\"\<U - Nap\[EHacek]t\[IAcute]\>\"", 
      ",", "\"\<I - Proud\>\""}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<t, \[CHacek]as [s]\>\"", ",", "\"\<????\>\""}], "}"}]}]}], 
  "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.699455565651867*^9, 3.699455777520668*^9}, 
   3.699456105802121*^9, 3.699456191200511*^9, {3.6994573939693747`*^9, 
   3.699457514273118*^9}, {3.69947267979652*^9, 3.699472682712352*^9}, {
   3.699481326883562*^9, 3.6994813556914034`*^9}, {3.6995473426711807`*^9, 
   3.699547345160703*^9}, {3.6999070374689636`*^9, 3.6999070396794305`*^9}, {
   3.6999079650275755`*^9, 3.6999079686143694`*^9}, {3.699908084601084*^9, 
   3.699908110869581*^9}, {3.6999081467959347`*^9, 3.6999081530336013`*^9}, {
   3.699908394194058*^9, 3.699908398931835*^9}, {3.7008348429873934`*^9, 
   3.7008348457834406`*^9}, {3.7046052132614274`*^9, 3.704605224250929*^9}, {
   3.704605338292384*^9, 3.7046053432911987`*^9}}]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"P1 = \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"1.018913451601745`","\"W\"","watts","\"Watts\""},
    "Quantity"], 
   "\[InvisibleSpace]", "\<\" , okam\[ZHacek]it\[AAcute] hodnota \
v\[YAcute]konu\"\>"}],
  SequenceForm["P1 = ", 
   Quantity[1.018913451601745, "Watts"], 
   " , okam\[ZHacek]it\[AAcute] hodnota v\[YAcute]konu"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7046057200244045`*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVWnk41N8bFdlKUsmW7Fu7iCzlIJJQEpHKlkIIEYVKicpO9nUojH0wDL6l
CEmWQlrt+zqjaLHU7/P7a57z3O297zn3ft5znxG3czO5xMzExJTDwsT0/9+s
qWqvtgfiGgrma/bfMGLgCvPWl2W8TOBjD+a4SuCfAr6USF4epMb0RZ4kMI0y
ydQkIoDbk2deCxP40NNCudu8YviS5FrywZABYfcR4yRBKfxp7zrmS+BVdeGb
VBE5kE66xq4jcB+7aWaH5G60+Bk/DjZgoH+y0f46rzyW9JuOzh1n4F3H4G9m
fgVw6BynaBH4ZcVqWJTgAbgGhrwP0GeAkiIoLiKsDJ4ih8KCYwyQ7ipVFIio
IHVmQbtej4Eoh1P6quJqsKT7JDQcZeCukWtvk+Qh+PU5FpbpMlAa1snswauJ
KRcPCZMjDOTfGWilbdWCW9T1RyzaDGRdm4v/y6eNv0kvn5E0GYixWLcrTFAH
DU5749MPMxBiILDYKaSLo57vjvxTZ+CehswLQeGjKOmhtRqoMXBNSvt0rsgx
5OfcuktWJvLJb7x9TlQf+VMulVUHGLBbZzV+QPw4+sVefaIqMHCacdOvXtIQ
Gk9n/rjvZUCo79P7q7zGmL8kqPdHioH4j/3Km+OM0c32+raTBAOb34+lVGw9
BUc3//eNogysa1i4tMJnghjnO0PaQgws5fEsPRI0Rf7YIZ+T3Ax4P+G33pNs
igUOqePi6xn4nirS8E7IDP3SAtf62RmYitwdwS98Bh0H3g2KrWHg6/VjEtki
Fig0SbG+NkqHhdvJB8cyLODdKa3Q20tHt+OZmWnRszAXM1MX76Gj9Zx9pYK4
Jd5f3AalJjqeaQUcfyl5Hp6NOYh8Skc72/lqV14baD978Ge7JdHOquUqZ2mD
732tVKOTdOStlREfzrCBgnSq3ykdOu4zMx5a7LJFShlX0Yc9dKj+DbQ4om2H
S9T0I91/5/B0seCXgLs9xs5Rmd8kziFmIaqgq8Ie5ukFmfqhc7jz47p1xLI9
OieOh5BuzcFyHq9ZHlwCRZ3t83vbOfDMdsXPpV1G8In4qaNyc/AbWVZqeOuI
nCUpC1LRLByHByZvb3LCNsv6s0lpszgz1Jimau4Ens0HLjiHz0J+IJK1ZMgJ
teGxsikusxj7Kvkh6c8VrKpwbN23YxYmXQZebrKueOq4sNU0ZQa8g0Znw+vc
wVrP3c92aRqWfD7q24bcQatJ2TF4ahoZBqTtecweiBj/cSpDYxo7K78PNhzx
gFUO05pm/mlohiZcWWn0APv+8ePvmqfgrDTo59xyDV88mddOSk+h/pFXun6X
F4aupx0rbJuAh0LKMOvoDSTZyLU19Y9CxCt0tsMtAEaFAj8klPrB19ppK3o3
ALmKQkvNq33YICXUczUmAI3RZvmeTX1Y6SLXbqgIAN+F7KDP5n34otgUabAU
gIqjIum/fXsR94NJ4fX9uxhwUXmx8dVXcHl6e9cm3UNiF8/mn1afsPbt86kN
BfdwN6Humf2OT1iWYLW+8OweIh7ua5n+8RFTnY/1VvrugexZ6a376COaFUoF
1KQCsUvy6sTBih4Efp+uqSgOxEh8Y3X65g9Y8rD9V/jqPpw1kn6Gj7/HZ6kG
WnfXfRhF6fz1qX6Pqo8y7ivD98HWFev1IPQ9rh+eGTBYG4Qr7sx+AvLvweDw
qZ/SCYLRdm6/jX7vMJ4RFiTXFIQBKeUXjvvb0d1GW/+0ORi2FvtEqqebUR4g
1PD2UzDiYz6vJiY3I0bxlv+PiWB0CGYy9+s342SS9qw25wP4PGjOIeW9Rot9
W/ug/gN4Fcqd5LnahLrloWjRtw/wTvq3jdH6BhTv4BZIaXuIE54ype0qLyBw
+A3P9v6HmPmRN/gptxaBxvc5MxgP4X6dq4NToBYWPktLWVseoa7WLWBs+RlY
Gsd6888+AluicG/V+xpY2Lx4UjP6CIuFDn8laJWo9/RNPfTrERQWDgdbqFZi
zwOluFqOELy+3lPe9qwCzMUFwfW7QuDyyeKZ/2sqipYTnFo8QpC5JrCHd6YM
zAnu+76shsBvv8+XyrFiuOTvkju/MRQ/C8YkrHmL8fH5mFifWCgkKfU7SnWK
UDhyfvPQkVBM1HOvOV9UAHMF/cXJR6Fw/HP974YMMup11845p4Si9kFRku5Q
LnaffTE2WxiKaQVZLVW5XDAHKH2a7wiFnZvlkQvPslHYJv7fn61hqBifVuhk
fQL+wW/lfrJhCHRpCJayzsK9hYTCVZUw6JW/2Xfkv0yYb+NOX3Oe6N9QxDnr
RwKz01IAZ1YYEPI41EAjFS7+FTdDy8PAy7B9u00kBR8j3a9taAzDYqK/dCZL
Mgorxy5umgiD0Jt34p/6E2C+tuuo4N5wfGNIm5/ofYwQL8d7+ghH4iMRe396
DGpHVp/fNA6Hv5wlpzZ7DKQa5ZS+XAtHmNYr23S9KFgo1bqvux+OuXsqol4D
EQjNPl2oFhcOdQPm+LlD4fgedFsyhRYOj8dy1i/4QyDzc4v12+ZwTKoa54jE
P8TZy3nJy5/D0eTF9b1T9AFeHu3edH4lHHd2qYsYmN1HBPtOpu1aEXBT125t
jb6Nep8X6kYmEdAs9SJV6vhjcdzU59bFCGifuLU2mNsX55vvzPUGRUDS5o3z
3Nh1RKls3cmdEIE214Ijjxc98Yqcf0mDHIH/JO+YKm27hp2PPnxLb4mAcpb0
4npzV1j9uSLQ8ZXAMkGl/ruvINqJyfTfTAQWnE+ybJR3QMPnuMh9fyNwtlLL
+a2tPX7r73prvTESEt1Px6rrbLG75iVblFgkemtd+l5lWMF65xntl/sjQZ+U
+RkrYImY5OlbDO1INL3U//Nj1gxN6+5Wi5lGovGeYOOMqAmWfPkWjS9F4l/K
GSveC0bYM10gf9c7El/DwtYVKurB5pyWS+mDSOw/HSlU9koLsW97cgcTI2Fo
IsvrIqSGZnWX4U35kTAdUHkUIqaA5YI1otr/RaJ09lRcoaIs9gonWF5rjcSH
Fx60B4JCsAvbHZ/VG4k6v8cq/fvZEbdS975zLhLhKQ6y7/eMa9hXFgSvYYqC
VPZ/447OCYdvX/V+msQRhWDbmXQjjXGNRBmt+v2boqBsn+S4XY0dZX3rB94I
RiHhSYthpagQWuN7Vm0louAs/C3u7UFZjJ3I3La0MwpLdRF92yUV8I/NRTVG
MQqu91QOBm5Xg8ALZfOdh6Kwa09kxJ1GLSj4rLlerxOFzNzBc/8p6cFwX2uM
pVEUHJwkH1yyNsLl8XjKd7MozB2iaymLmyAgw7Y9xCoKnx6PWFrRzZBsvntG
wiEK6vO3VcSELNH2uk729I0oGK402ZLqbTF2J0x3OoDQcW/ayXo7ezCpmF8M
fBQFkUcyJ/j2O+AAeSa9PDkKB1qXWA5YuOKEDe2ZwZMo/JPj3OZt4Q5HgXtf
hguicL/UhPaZ0FPKQ34+3udRKHhUIfFk/Drk5uhmAo1R2P2eldmo1QeVp5vj
hNuiUP5tTHCu4SbeidzcKt0bhUmTRhXm77dgdf+U2Y7RKDjG+nkqbQnA9OSO
uD2zUeDZLsJ97uBdsFV84VVejcKOFa6cq2mBiBUqN1Vjjcbw1FDpmf77EA8I
jdXYEI1UW3sRqV3BOGRwiFdvezQSJmPk7AYe4tpg2haLw9HYbYrN6+siwKTn
ffq8bjRGepfc+uWiEF544rGNUTQGbk1/2v4zCmSff5udLkRjg2GvgmZGDPo2
2G72vRVN8LPRbWBXPPTVpDalPo+GCu+drzG709GTsWJMaoyGS8WF/bu1M2DP
+iHqaVs0tPdqGGvvJeH2uyCeot5oNNB0JspPZoJ6eXxj7Wo0rs9bc3YXP4HY
43zugcMx2GwEF9o3Mop/3zsxohuDdDdR+dawPKhbnYuYMIrBHTaxGVnk48wO
Lu75CzEIttC0LsovQNgL1w3Mt2PgVbvNrza1GL+m5bmkamNQVrShrfB6GVru
Krl8aIrB+V8nXPwmypDOr9Ya3BGD3K2HpiLOl0PnyJGwyYEYaGx+pXTnGJU4
r2ZcJSyPUZ/VLmu9rxK79X251PQfQ9NX2n/wYA3scl5xGXc/RrWsUH1JbB2U
DzW7rCHuUZeDlM9LA3Xg7GxtLRt9DPO/Fz907KkHZfVD2NZfj1GkhN9b3tRj
1XSC66tgLFr8n3HPsDYgkWXDhsvWsbhYkp+6MbEJ7TZnNvhPxcImeH75Bn8r
tj51jEz6Houuoq4kPtdWnB/33URbisW00Zq0Ta9aMeWasfX7ujj4hG5zEnZv
A5vfxHbHXXEw6XP469LeDsT57jV1iYO9fe2BlLZ3oLxJP7l7Lg67ZPQSo2hd
iFYYj/42H4+0fpuKL6Of4Z72yoOVngi7xIDfhkeHYQc3pdxfiah1kk7ytB3G
6UGhP8eYkjB5QNsu2n8YytLXAsI2JaGOxVm5tGwYy4VikVsOJIGTKux4U2QE
wc9uFYrfTAKbhZHNxI8RpH09OH6Y+C5prue33BU7hohbw/n965MRyhCJyyoa
Q4Bo5NW7vMk4cTf7DvvrMdhdHFtskE7GlbZkJP0Zg9x07FrDY8kgN/6+1X1h
HNSleXHL8GQIhsfqOktMoEWw8Lw3fwom31Qp7k+exD6nS9r3RVOw4Mt6x6Rk
ErFVInIxsilwijY6fb5hElbm0T+KDqag3e1xg9zcJH7EeoeMmqfgp7YVf4bm
FIR5tKpME1OQGni1rHtgCq5sPVsUBVNhHRgbv27DDDrNIv9oiqeCxefsu68i
M1DJPtZ/YkcqchhP/CLlZ8Cs81/+FdVUmG5fvZ52egbxd0laWWdTsbki6MDJ
xBnUrlxx25ScCj+vSfLItlnw/PjXQhdKQyD9+8badXP479rou3zJNPD9ffSR
KjiHy99bei7tToOJp9aWQKKefzYfN/T1cBoqRO6qZuvOwZGxa+m1TRo8VBJT
lwk/8HLWfAcpJw0+8+tk28bm4Ox6eN+5kjRkFHzrlv0xB75ZCSW+qjT0iXT4
mP+bg8vMrGbYmzRY+5lzK/HTITAdaHFjJg3XOxPKRgm/4j5R8sBYIR3xcRQJ
pkQ6tjnGha9XT4f5aapHciYdTeO+j5uOpCPuunIFewEdwuO6GYfM0uHC7FJg
+ZyO5tGvlXI30pH0tti1v58Oz0t1z4YD0sGSvs2be4IOkdGc+vRH6diwtPpk
I4MOrxGPdt6UdHywfLz54T86xIbZx5hq06Fs0G0vS/i9t3az0/81pcNo+YJO
8CbC/w11znt3pMOzf6G/jZeB1sG01ZmBdDimr5Hm38aAj20gC3kyHYZef/8T
EGFAYtCR8+L3dNTm800xizNwY0Bx62eWDHDuTZmMkmEQdYXgtliuDIS9puYf
2MFAe/9fsZNbM9AbojP0chcDUv1vdjfKZED9vGBCjDwDHVYlCgH7MjDNrsT2
ifC7vn2xKuoqGTDW9upgVWLgfa+1Tql+BrT82cyFVBkYCC1zPmKSgfOnHp/9
Tfhphirr4w+WGciWIPm+OMTAv3HzGoeLGchZkKxw02CAOz5/8I9zBs7knlnL
Sfh1EZ1VjjCvDJBZSi+GajGw5/tJeZFbGTBrnmn/Sfh7wxOLt7UjMpCQfKD6
oS4D51f0crrjM7By7o98yVEGnPOT2y5nZGBxzaacWj0iXovZhd+5GXB+4buV
dozw/2yawqEUYj9L3v6J+gwkU2OObK/OgMOZB5/sjjOQZzd6paSOWK/yqiyf
AQNVPCoxWi0Z+KW336GMwM21IdVdnRlgfsAbf9CQgU8uvQOXvmbAVzujLJvA
40LyHL+HMzBBSvpvhcA/m+/tC5nJwHvJDZRDRgyw+Xw4I7yYAat8nchLBN4q
LXe7eDUDHp6tFj4EjnF6biLGQsI3kWtc1wic/PLyZSd2Ev4W6eSbETiLn8e3
bD0JkYGxChIEzr9aHb68kYTndj+yPxLrlTXaZerwkpDoeoDVm8A1wlwV4QIk
FEm4nFol4q/zrGjuESaB05IR6vr//bRYfRMVJ+GslkVl0//fb8Q5GI7SJISZ
+3dyEPjTjVKWsh0kuDt4DykS+RrosORf3kNC793MCT0inxMya3fpKBDx/Uwa
1yHyzbhVpBGuTMLsicNDOwk+fnefMelRIyFWK//rHx2C/11Ml0VBwqcizY+l
R4h8BObddDxCwqaozE8mBL/cX0zCS/VIKP1VPPzt/3p4mE09YkzCrrJU2cLD
DMj0n2gOMyVBbHuw07w6A3uVf3/9YEGCrNTe16KE3g6PHGdxtCXB7Fnc1EFl
BnTUF/hKL5HAx3npP/EDhH5i0nYuOZHQpL+5dmE/oR9NxqmwayTUs816nNnD
gH1C0qUP3iSMzeyVH93JgMuc9k0RwqeUXPdRuyDHgF9qHIkSSEIwD6cxpyTB
z281encsCdvsi81N+Al+To4wiyQR88UPGe4mzmteTjifQxoJWTE+7XQeQk+m
A4f/ZJOg86cwRXEdAx8pQWHbaSTcuLe21+oXHYl9SqXC/5Hwpb73lSJxX1hy
jX3Y9oKEkfopmSHiPulzOCoq9JrYX8i2/Lef6RgRYS/j+0iC86Yxalc1HTmG
tJ6tX0k4Uvo+xLuUDgdfh2XefhJeSPr7/CDTMfXhtc6WcUJf2vqTfgl0MMIe
ftz4i4R7V55HvblGR1mNygr3MglCVpz+cCLus4kJMe5/RPylP/dFWdPx84j+
FS72TJgm3jpVb0DH6hLnKgd/JsjL5D0uEnSscwqVYD6YCRJTItts8xxRP6vr
rVHPRKsgh8e253MIb5h2ZkImmifFDGVK58AjZljx92gmnmRfb3mfSNzfH7mO
LZ/JhHdIl1Lg5TlI6ka4Lnhnov30ptPOy7M4JB5dNVaZiel0x6MaXLMQczB3
PUT4Somjzb96l2bAWrRdIuZFJvIVfsxYTM6gXSU/9HBzJjy4Za4ONs7AxviV
VexnYv2gy57at2Zw/87iWu2VTFSS2vk9R6fR2nv2VJpWFsxXJcn8aVOgSIqx
/dDNQsrJvN5HD6YQ5zRWc+x4Fq7yt7j3eUzBavGa1IIJ0d/RqmDf0SkwuMJ+
HbfPwmB8m/3N2UnwHqpN+x2chfUVwhFDypO4kCwxdbo1C+8kZ1oGKsexUkkv
sX6XBcH5gnONGeNI7np23bk7C4VZH9wTHo6jh8t8TeC3LIhaPd3MajkO4zuh
AmUzWdjE2pXNtTKGI/YLR3k2PIG+ap3MmsNj2LG36Umr0RN89r2SK0cdwWKd
0wXdjifQrEutkQoahMF35Z4v409x00yq2FPzAzRq3z2Tm3mKP5ZO+75wfYBC
yJUn3oyn+CUmT7X93A0hiXT3zX+ewueEMG/PtW5MnGJdf3xdNmja7Lvsc7sI
39CF6t3ZcOpPMI7l78Qzd/e8BI9sLGbauOvIt4NyaF3U6PVsJPHH9vt1teEJ
x1NvRd9skH7aOQj4tCGE9PFIx71s7NR42H//RSss3mn0scVmQ1/yKscxs7dY
3Ldhi3dlNnwGhNZbxDVjLz3P33Q5GxcSbC0uXn2Fb9HHvSz+Ef1fubvbSr/C
owPTzudZckBlEdvS+a0eIzd3n7Nfn4Nyl+/NG4zqkbS2RNVrWw44yNbOzIp1
WCtE/flYPQc3n5r2MXbWouyZ6VwCclBlKBoylPsc1taLoylHclC4Lr2hXfo5
ap4qf3hikIOPZevnU6SewW1fdXn5uRw8/2Mwu2tvDb7o1Lp3+eUg4GGOm/y1
Sjwct3L8eCcHfNbOBy78q4BSyD/rr4E5QHNnTEJ4BaI6NE8Oh+aA1/tukGoR
FbqWr/b8SMlBfJlxuPGfMlDcmqc2P8vB1heVHk6hJbDa7DTE9zIHy2n1Lz2b
iwldcX4RasiBVr3u9hr2YlxeOv5GopUYn8nkzRxeiG1BbbkK34h2hjaFWpaH
4OROe5OVHLS+vbBR2uUpzpg9milkykW9hUn5o5dPIMuj6cXOmgtN9+8cJfxP
iHNSFPhsQy50x876HGnPBKfHwywZ0Vyc+h70PKI6HV92YeddyVzElt8JexuR
hvyxxdKvsrk4q3fzfY5TKo6fv1gXJZ+LNP8zPEflkxGmpzGwpJWL8JO7191d
E4/zzIsOZkdzUSd5+un6tXHY/byAXnI8F0tbNAqNuGLRpiD4z/50Lqy05XVZ
9saAW2Rhe4d9Lj4XDV/45xKOvk/52TuccsE+0n1boj0UJY9t99x3zcW2xhie
PrUQGHN2HFL1zkX8DbcO+YMPEL2Qd+7JAyL+TQ36z/+7C7sSm+HV0Fz4eUq5
bvcNgMIVfmeLKCKeW4PqVx/eRmf/fd8NSbk46Rhx9vivm8hKVmd2TMtF4tGl
q0ydPvA0+/6oPjMXamxNp3QaroP3rXWST34uTNovHA6ne2AkiE+8szgX9t4v
bqTJuYOq2UbeXU7kl52/7cl3F9xfDpR/QMuFQ0bXmNUrJ6LuUKsa/C8XYevK
w6+/ugwZj3kcepkLlQ16wYzvF/FzF/l1fEMuLFVS1n06ZUvwvPWjQVsu2qQ5
u7YeOovL51utct7nYu7VPdZmPjMc5A8cY+rJxZnOFv0Q41Pg6FS9eu5LLvhf
Gxt3dBrgUxhjsaIvF40KLdLd9bog6+Xe4hnOxbC4TesBD03cYLZidR7PhejK
RtKaZwdx7DlveON0LoJGtMRCN8tD8MZbXjFGLuT2Kq6qtEpiSuFequ9CLkIU
fYVEv/KiZlZF6sPvXByoUDv5QYoJIWR6wb7VXDw7d2klY7xLw/JijmLIGjLO
n6OwHf1E09gpcuG/EVYyTg11fX/Uvaix/GnLEawj43lyqnHJHR60Pm5pSeIm
w4jtT47nCzGknrhrsrCZjOsXZC4aqu6GzIDG9Fp+MpISsk9ve3cAFI+VwK3b
yEinau0r7DgENZYaYRlRMtiDYvdnbTiCxlifCmVJMjLducQunz0GYxmlE3qy
ZBzWD7TnNTiBL7TvY+a7yDDk/zxzwsME9vqUO477yPDJ+vr598YzmPviKnBT
kYwdmmIvb6+xxA2XXaWPDpIRaX7hcY+uFZj/Tugnq5MxLyte43vVFnzi9n7/
HSHDy/OJbeHdyyCVifO26pFxReR0vpa+E3bq9Bd+MyDD2e5gmpiaC+Bg2bd6
moxrQbGR7QYeaPnN78NtQcaWk6LqW5k9YRryYaPoeTLWHBoMZLR6wbHIWEvT
nozEKwxPE9INfNfg/mLsSMaNwJfnOsi+8H/39pqtCxl/j4zZtjX6I+rH0af3
vMjQWIkNSkkPgFDQ2sOPb5DR7umc8/btXTzlq//wxJ8MO9V1i/IsgahWPcze
eJ+M+1IDKRFRQRi6o3iFPY6MevOCERXpULhsmmcWSCJj/MSHvxVPwvAzqzhF
Lo2MMqWSbMPdEVjftKNNP5sMMRM1t69FUTjAJSYfVkHGhhDjzCDBWNSm9Tan
VhPj5cL7GExxOLYvxbboORn+5/DFfDYO5034Hrc3kjE0PhG/8UMCghK5fvL0
kEEtlZEZ7E8Bz86WCPEvZLwj/aKMzqUi+b8Hsgp9ZJgd7mt8z5yO4j7ms6fH
yEi7l1afT9TBPVJ//ov7ScaZM6fKLrhnQa509K4Qfx4689PVdhP3wsjnswV8
2/KwfqGP9lqJ0Alze/dm0Tywru0tzxkiQ8i0Una9bB4iEqSD5I7kY/2v4LZl
5TzsdGkeXi9ahLlDcoK9Z/KgkRizz5ZUivxLqdqfLfNQPOZWbMteBocIHpcP
VnkY0Bu+ct2tDAP9v2vbLufBqM8pvVO7HJ333tjXeufhrnbOFb2fVFQ0X6Fk
xOeh9oDpwp7IKlyb7/uckpyH103r5EbZqrFX6DRLYnoeSAvrvdPvVCPHWf1M
VE4e/jFGXmz2qkEiN9dKQGUe4oMLhAYdn8HftEjPricPIt7vXt7TfAntAXqf
FF8+uHnYHqiXNkBC3DfRRygfvGkj9TbMjVhjt9akRSQffwdaL7KaNuLlsECj
m2w+jjzcLPPmdyMOj2sV1Kjk4wSpLF7s2GuozD32MT6Xj5tb7X+orr7B3pWD
PP6kfLwVfc0jV9MBQYEAra6dBZjsznXqEu+Bw9/GUdY9hTjdK5vo6zoIqb2u
mpf2F2IiIGT20qNBDFzgTWlQKsQdnxsZRtmDsHhuZxyoUYgp2lQHT+8gjvn/
q2EyLoR3a9LlC4ZD2LmkErV8rRDfclhqXu8Yxuxigdp8VSFGXzd/zO0dQb70
6Tjj54UIKZl6HvB7BJfNlugldYUIRNWAwZZR9FGPZV9tKcRVu/sk2rFR4lyM
bpz5Wghfbie3b2WjoMyLjI79Jfo7H9rCf38MnrPRkd90iuB37LC0qsAE7Kh0
X1n9Irzw2Fx5Sn4Cxn5Gl68ZFSHnHlff6WMT2M3JeZjjTBGc/7UMbbkxgTGp
gClFhyIYhSmd9euZgOX5q7qhj4oQkJeZXRQxCc23x5dV24sg9btw9OvUFPbG
kMfudxbh8mlnL/K/KWw/y9bZ0VOEmYuK6Wd4p7E0Vke+1F8EcxHZT2cOT6Oc
WfVMNKMIDvW08IHwacioyZZObC4Gvbn08rjcDLjyWBwSzIvhx39JRV93FtSj
jhcTzxWjNda/pc50FudHWq2TrIuxhVVbVsh+FkWi8RYpDsW4/9oxz+neLE7E
yx3P8CnGmkba8zvPZxEVaLQnN6EYny4YpTvumYOKeNkOckoxbuYGNrSqzWGg
lk8mL6MY115Q/bmPzWH/Ur9IQW4x7pXqiu20m0On+zWeEloxXmclltfGzmGL
VcKPyo/FGNujIan9Yw7PlpfptK/FcLHzfeP+dw72STYzVf3FkLJYJ+LHSQe1
e8dozXgxlnecviQhSoepwbOe2l/FKBR4FFx1jI6VCbGuF8vFED40X1lnQsfT
4KCOl/+K4bn2UGP2eTpRP59ormcvwU9+dqG/bnTEqwxWN/GXQPPwXe7ZWDo0
enQrX28rwWH70LiWNDrGPPPLmkVLEL3uj+a9HDoOlngWtMiWYE+MXMkdGh2f
pNnS2g+WYP/rsKeUj3QEvLqS1KFegr3Gn9kv9NMhZ9sR9w4lGGy+Ojs0RsfN
1MSITj1i/E23Rd9FOoS27AroMS9BkVcDiysHA6PN2Vx7z5fggL3A4dn1DFBu
iyUF2ZTgoZfkvTMbGdCb2lp2wKkEX7V/so9sZWAzKUojzLUELoMUJQ5BBvrM
1r8d9iiBQxKH/lZhBrzqmEZifEvw8oD56qQ4A/Dxc5+6XQJWI8vwUikG1u35
uaIVWIImwS2DtrIMkBKnt84Tdals/lOq/24G2tx69E6mleCvHo92shIDidKn
unMyS3BHp1Qy9yDhr7++tfmbTcTzfSI6VZWBpaN1N4uKS5BhmrSqSfj7xhV1
NtbyEjTu8mPQNRiIKquMOU8rAfe2JssHmoT/FyksWP+yBLvqzwa6HWFgvktG
5WJDCUQW96q+1GHg2aPMhprmEvCcDDb7o8vAQwif2txWgvDb77uF9Bg4vRjf
6/S+BFKfm8qljjEgUrDpSt2HEkzZ29L59BmYsgn7KfClBIaDA/fnCVzBxx7o
3lcC9o43HtTjDAS03t3YPFQCe5/RcmsDBgzuraSIjpcg5buW/g8C86n4yPlM
lyBuj4K8myEDQ7Pz1HZ6CcrnjBy6CFz0xEVLZqEEY589ZkWNGLhxdrzt1u8S
bPN6UWdKYJ2NdpYfVojx0mnDHgR+aHfVM56Jgk71SpP/vw+5Pi9QrWemwGVq
ifv/70cmApP/ZtdSYGJAElAnsIqnTJMgOwVyVmLuf4j1RNovhulyUjDIpsZH
IvDaHZkmHuspSFk/v34fgacC+wTSNlBQuCnCJIeIv6NvW3/zRgq+JqVPsxKY
qno2e2ETBYvLC5+MiP0nx8Y7i/FSYGVLFr5N5CeA3rXfkI8CgRe81fFEPi8d
3/TbR4CC8fYvlAQi38ezT9Q+EaIggX2A7e5RBuSZwu53CFNQHHui1oTgh+/c
m+PLIhSIGcV94SL4W65g2yQrTsG5PAfrEm0Gmpzvpt2WpmDT1u6yIjBQ2FR7
MV+WAvFPu0I4CX1Ei6/s6NlBAS0s5KvRIQbOf/Su3LOXgotfm5miVBjQVqD6
n5WnIObIo/5wZQbkwue1gxQomBDcfMLrAAM/tF06vilTMEfd/WNpHwPKnHvS
h1UocC+IOt+wh+CnY9ZlSo0CpdVst5u7GPh7zm3dbw0KPOdO5+fIMMBx/Zru
Fj0KTlqyiXMT5+e4uiKvkD4F5eYfgpSI8xW+ZmFIzICCwJYrzcf4iPMXcT1g
70kKGiNerFXkYUA498Z/+uYUnNrMrczPwoCVq2qI8VkKnu089frQPzoyFZcs
zM9R4LzwzFryNx0yL/1+2ltTcDMkIurmJB3yn2/vD3Cg4Nvdy8yGLXTorA/K
rfShIHkuk5F8n47g97rez29SMO0g5qjsR8ebBDbdBj+ifeSkc4EHHSekHg69
v0PB84aP1yWs6LA4HLp99gEFCgUWFnpKdLi4RT+WTKQgU+SXV+C3ORQrmdjt
TCb28/VWx6t3c5hf3rx/fyqF8LcPLvU3zMH7YWy7BomClj/Mz8mFcwjITOC0
JBP561nxe+A7h9iutDtRVRSQSfY3ozfOwX20mi+8hgLFnAfGX9fMweDXh6JH
zyj4mcTcwrIwC+Zt3N/uvaRgP4fIrvmPs/Cwu61yvZmCw/znnbTSie/NvNX8
2U8UrDJ5/OyRmgXHRrGLkr8pqDASVeoXmsGI2KEl0SUK3sEhRodzBi8ULKKF
Vyj4/u++VfivaXifiXqxlakUmbYbGG+6pjGaxiTMwVEKxeSplz9CplG/e7B7
hr8U8g1V6vsXpuB/POto5cFSOJMfTiaVT8LJ8Y10n2opTgh+7fubOokzwYy1
bIdKsVbsmqR+8CTk6zVemWmW4ryreEaExSRGVb9i8VgpHqt9ih5ZnsCJHbyq
ByxLQaus7v15eAJiHMG7yvxL4c2x2BxfOoZXjU48xXWlSNvW1hJ1eRi6AlzL
DtplKDMgrmPmLyAV1e2M1ymDylAIc8Dbz1jR9rFsOFqGdomLhvTYzyh3HaoW
MyiDsabfcS65zxB/VXXj8+ky2MjH2J46+Qmrrpd+Hr9UhmHVozkxWT2oeFU7
v+dhGe5nbycp23SB56yX+PmQMhTO7g7S2tMFl7kdp0LCyhBkX/jWc6kTkoJx
lLGoMjCsfN8Zx3Ui+qqzW0ZSGdJ+No6vtL6Hq6DALE9BGYKvDsql6byDtJvH
xI+2MtSHvLpeX9qCPrd8sdWOMrBd3tTbfqEF8e7DFmydZdBoH03QWNcCtmtm
bwR6yuAx23PBwP4NJrxU8w/3lYHzjdHx/dubUei7xuXBHLHe4zb1kaxGKARH
04U2lsOgb6uuJUsdpoJbZKU2lSPL/1Si5fOXePKAxWbPlnJ86Hz/rcfnJXgf
XX8H/nJA5M3f0G8v8DP0bKm9aDn8aLLJkvXPUR0t7lm8rxzeqz97J55XQzOt
9KeWcTm2B4fPRwaUIWZS95emSTnyo2XtRAWIPCp9+QXTcpyzXhytp5QiuJ35
z2GLcmjKFgofH6Wg9d/pZVWbcnwlb+qYqCyGhd3Pf/vdy6F8WEdz0xIZ+cUh
TPuvlSP2bPdMrCEZy0sia+S9yvEr9cbvC5m5SH+sx7z3RjnEpTNrmk7lYKQh
ce3OgHJ0+CdFirY/gYesOqdEVDnqVAKl7rmko96zg1M8phz3/3jszT2XBt6X
F9eJxRLz7byoGXwyFVUWYetFEssherfgmb9uMv4+6t0gRCqHopaoYdSVeBj3
eHALZpXDRSlB+O2dOGRKsG0UeFqOcaUW3a6kWOj8t5eHj1wOXi5HZ9NvMQiZ
ubN5M6UcWo2dPXnKkfimwrtlU1k5hA+o3XAuDseeIPIWHmo5WOsEgif2heHd
9ve83FXlCLvVdkfS+BEkrlzauqGmHNOrTP4Tcw/gWflnK9ezctweMmX1SQgG
30kJ/nUvy3HSsOrjKut9OKZU8nPWl+P70wr3lbf3UD1+XICjoRxu9zOU36fc
xfkAT0G25nLQeUtrN5XdRlZpwzbmd+V4p5Iy8vuxN1jX2dvv7izH4hNv1/UJ
hH+2Yyk6012Ou4I29V6l17B3i7ZGwadyvDDUXa63uIpo58HgD1/KIcl1TrJP
0BkLrwI6/n0j5pMWTO7gdESN1wsb08FyXJpXP2vhbYftbVZ5t4fL4S7AGfhv
1BoB0n/nyaPlkLDe7q5++ByGb6WpdY2XI8l57LvH9zM42nMocHWyHMGanV4l
rKeRt/fbW9mZcig8aU//O3sCXA/8eE3myjFsoZf4MewY3PqFLvgzymHjXXts
ZVwbnQdrsnO+E/o/3bB26a86lKLOzr1bKIf8U+vZjhxFJE78Vl7+SfBXveuz
VOQOLGsm3pH+U46bn94HmwVth1XSweaTy4R+HEpOHMlcj7r5Hh7fVUIfIfrL
rmsYGlLHvc8+/VcO/klX2asZsRoPsrZmta+hgqahaN3kPKAxtUSd+s1CxZKh
cfOrDywwOm2qKMlGhczhjN+vCvlBKfjhZ8RBhcukC8kvTxpb1j5u8FlHxVHp
ohrjg/vhfV5hQxYXFY8aXxz9uFkVn6nvzVq5qcjZ1XIhTVELhzZ4pP/koeKh
mfZG+eSjyLjEMy62hYp2lUpB3ueGYK4t2WewlYqFPs3+be2ncInv5I3r/FT0
CZ6KfJVihuarcy8zBKlgHfTZ7v36LHa9Duds2UZFyoO9vrKnrBAhusdkYTsV
JYc2HrmUaot5n9ZkETEqmhMlH8nBHqbvnIePSVCxkr6F8YHHAUJ3873SZKjY
rKa32qbpiluf9Z+/liPmDwmxDjzpjoH9k6zfd1LB5RY4w8x3DTlDsglH91ER
ND3ynG/yOjjVX/e776ciw2v9j4xFH7g8viyXokiFUle/kregLxR0sqvpB6nY
SnEYYOTcRlyqDrOQGhVv2ya4dR4G4PfC8HGdQ1QUS2usy2u+i9psiW+JmlS0
Xdb1k3e5j+PspL9a+lSolgVSXx8OQZE19FwMqFiU3R493x4Knqq+yHgjKjo+
1O2NdQ5Hj+N28elTBJ/vQjwTL0bhYkvykVhLIt6aN53pLLGQiHgem3SeCh12
KUvVyVgMnRoYTbeioik8Ra+uKw52n6Uf5tlREbrPc0MULQF2E5TW2itUXBXW
TR2tToFEYdf2BhcqEl4KsJCbUjHk9vPqm6tEPF72TDqf0mD3S31T9zUq1p2r
+Pl3LQl2bK/NJn2p4P5OSow7nQWJlsmcOX8qwpfbxZRnszAUzvX7x20qvgWF
sao8egK7rSbJf+9R8fz315qzzU9hJ9XbtyWUipb017YTdrmw1f7hoJFCxd/L
VaT/2IsgxsZXfSSNCgM9j8bCpiIMvFFZp59BhXpXxPfhB8WwOXW78PQTKjYp
vrCL4KDAxoZz3rGACt1IiR7NjFLY3Bb1ffwfFa/2d/uR11TAusYgbOIrFend
pqbdMc8gH3JTWrCPipc7JXIfiD4Hs2Vurf4AFY8Lt6VfLnqOp3+Y5/NHqJDi
DRgjtdZiSqXGzHWWmK/74iaXsJfwpsmJfv9LBSknTdbxRz3CqKxly+IVEFIz
GRKSaYbVfUWD3VIVICueO3HjVjP2mdqOnJepwN5lrr0nPjSj88czvtqdFXgV
Vn/QOvgNBBS9/AIUK3CsSr38z2wLnpQO6bDqVkCq2G5YurMNNcUvPnI7VqD5
TMSGiz/eQ6rlmKrSlQp0XlHVyZHqROTo++RzLhWQN2ut3HymE/bCIxfI7hVg
Gg3ddqm6E9whHCNaNytgypx8YeBuF+wunWJ4hVTAK9t1b7ngB6wXHub4WlgB
6rLYr2abTzj/iE0td74C+U+z1+fv6oequtzzNdcq4VwsRcoaHsXmdrjt9aqE
sg1nW/3qKOHPzMXPeVeipOuHbSf/GFKDg4OovpXQo/56XGswBqbOESOHwEoY
Vt3rri8bQ7NjZl9rbCWSmOxOq94ax5l4IaZEWiU4FJWj+9ZMYt8OhbKG6koc
s3TJPS84CY5n+vbz/1WiYcs4b538JGoGbzQff1mJbwaso+rWkxDZ8zFqtbkS
1R4CP+driHru1WPxi18qUWo880LadQpe81xH9q5WoufzosJMzTTy6bmrSv8q
kZp1sdyhbRoDs9pVh9fQMA2WX4390zCcurHHiJWGWKrZhp1rZyA5PMLvsoGG
ePG9rqEGM+jsfjaTt52Gb/djC0O7Z8DRZZ5bKkqDxQxDQmR0Bhrvv9tWi9Mw
620eF7U4g7w2uY/N0jQEXTz1mpdvFgFNsXXje2gQk7IcjDObxb4ql3hpDRpq
13avs2ifhX0l+6k9mjS0ujZc+PhtFsnUrPVK2jS4TE8rH5ieBVvppwCdozRs
uSA7FcQ+h748HeeLJ2g4FJrgHKQxh7AUYc1MKxrWtmvU9GTPoT6JtkS2oaGP
l7JVpGwOvxNMKih2NOT/FfysWTsH+9iHO19ephG++I2wQM8c1MMXePuvEvHX
V5xYt5aOqdutk8J3aAi99cNgxIKO6uZ6F6G7RD4q/nzKsqPj4eZqOn8gDRlq
F0IPuRB+KCd7cfMDGjwO1TGvuUOHXdvtNZyRNPw64lL3NouO/fzX77NF0+Ao
aL5iU0AHk60z+9rHNPg/Hch/V05H+oL5hn/xNFy2pPGggY7P2/YLLqbTIGJH
7zYbpoN8STb1O4mGXKa3d55N0eFdsl2UkUXD25vXWVbn6eA9sk56OocGzeCz
uaxMDBhfGZYfLKbhpWpP+J4NDIhSP5f3UWigh+da6BF+b261Q/lbGQ3RbKLt
RlsYCIt+duhjJQ0LGukpYoRfbK6KO9ZWS8PMn9DVb5IMJDCHvW15ScOnc98t
zhF+87LhvRPN9UT7Za4dTXKEnx+4avqqicjn1umNtoRf7dpx6ePLZhrYRNy2
RRN+NsvznGVtCw265dJBRfsZ0GQ/ZlPdTsOmtCqrAiUGNp7SGK58R8Nuvu6G
sIMM9CUfuEztpOHSLdJ1S1UG/PeKu5T00DD8+mt2DeGvDW7w0ws/0WC1Yf12
I8J/C9VvuJb/hYYHgi7tbwl/XmW25JPdR8znZ/4+nPDvDzIYS1kDNPwskxJ+
f4SBM5Njt0hDNNwLznvMRPh/acVepvQRGsauMSkJH2Vgwb8rMGWMhhBXr1VJ
PQZeNb1hS5qg4ctUwBT/MQZieF4+ip+iwXbk/Z9fBLa1rOSKnaEhoO/IjgZ9
BlHnFEZGzxH6mB329j/OwL/ZrM2RDBqWaugDYgYMtB9Migv7TsP4ww+XSgmc
djdSIGSBhiLlA2v3GjLg8jYo5cFPGkaOfK2JJ7D6Vn+RoN80XOhqeThN4HXW
1zLvLdEQVaToutuIgU9kR6mAFRqStH0czhI497tV7q2/BP8Fsj7////Ow2M2
13KYquCoPyf2//cbx3Tbwx3MVbin9tbCnsDHFuw4fq+tgvn9BRE1Assdt+8S
Y6/C9eRhz9/EehykS+n6nFUwu2BmkUHgycXLTtfWV0Fe4Hjb/+NtMXA8kLKh
CrK3Wbv//36Tn+n079XGKmTkcF9lJ3DIrystM5uq8IVDPs2YyIezkUvcVt4q
tHj7XLxH5MvwiauNBl8V1PmVX6US+dz95+ouB4Eqws8zvcgg8s910v1npFAV
/nIWnw0l+Jl96lFXJVwF0c2W8dYEf8XGXubrxKugLO3EUk/wHZFzXUJRsgqC
nCbqxloMuK14z56TroL7mI7Ua0If8uSbgUU7qhDIrLzNjdATz1/fEz27qmDl
2KlAUmNg/rS/4L89VdBfonLXqDBQ9u92ibFCFVQdHXeQDxD8mwX43jxQhaW/
s57+Cgx4FtzVzVKuQuZWyWRVeQYOmN//+kOtCpsHBh9f3cVARfEj9oQjVUij
SbI0iDEQvza084VuFZ6FNtD7tzPgbRmWNqFXBbszF36MCDGgzBapqGZItJcy
2+XzEnq+EGvda0rs/+2JXkl2BhLL43aymVfhW+SWgEcsDNzkTFjce7YKJGmJ
9aX/6FCrSAoNuFCFhyf7mi4x6HjGlUGTvFwFFpMRPWoHHal2pHuGjlX4z7dP
VuA1HbeqMo2uX6kCu8vJoJO1dGjYPx1uulqFtueSIqqFdLz8L2/jFZ8qHEw6
m78URMerK1QHysMqsHlsGjq5n7jPdquqU0OI8RlJLM9kiPGzz7mrwqogZK+0
yCxMR5Xb64oXUVVwCnOjirPRUez1haUjsQpDczl52Z/mkHibiTRLrsLVz1/e
D3jPoQdBnvP5BP8kC1P2K3PYsmad3mIhoafKe3fWXZhDROCWuRVKFQp+nzDJ
1Z5D4EOZQ1zVVei+JBOhwTWHqzGGn3a+qUJeSVr6mqRZFJ5+X7D3bRXO0VPy
mENmMcl75o5CWxXKOE5GDPkS358Eaxm191Vgelvgj/OzOJt6zUv/MxHPsozM
te2z0MlJ5HGcrMLWXpNbvUkzEKoZOZbNWY0X4YHD3/2msXprrdDo+mqsfVe4
c+Yy8X3VkpqW4q5GW5lSe/2paeS8uRj+dHM13rQtK3DKTkPx89D7J9uqkUXY
5zXvpmD4e8Aya081+ne2s/Vtm8It5V6XjFPVeGSmm6GcNgGbpZXD/aerkRHA
znPx/gR0aoU3ip6pRtPfld7rzhNYd/R8abplNV7OLjWfVJ1AvNnXxbSL1bgl
neve2zVO5Pvz7dTr1diutZmcvXYc0Sp/Tn7zqUaCADfnhakxeK0IiAv7VkP0
z8emfx1jULtv8SrldjW2NO7P4kgZw+vHH9lTHlQjUll2XF5+DPnmvz59eVSN
Qxw/1A23jiFiG3++UFg1PhT7B5stjcL0yRnD5KhqJH9MNFJsGMVBB+/tX2Kq
8WWfsCdH3iiEdsXPCcZVw3Dp0EBr+ChW5ypenE2oxm2Z35MB10YxUPYhKimp
Guvf3BqVMh/F/wDItnYj
          "]]}, Annotation[#, "Charting`Private`Tag$585092#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvejVzpKz7Yp2X8MZDSt8P9hL3btxMU8kwB7GP8cW
szNXJAHOF3noG9l7sADOLzSa/Zj1aQWcL1fS/fZ8fgOc/6sw8f+awy1w/jpN
PonZZzvg/HCWy26Ser1w/uwOcTGRvRPg/O+vDXhU9k1CuCchjLfm1RQ4f6LR
84l3Pk6D8wvmHi5kfT8Dzj8luSamTHw2nC/w+f+p91Jz4fyLd+NdNnrOh/Ov
b2jtkd2+AM63UZy449m2hXB+7CylV8FnFsH5Xw9mxrqeXwzne38yu3br+RI4
X+/9ypqQ30vh/LZZl1KC/iyD8+f4NQZ9EVoB52tsfNooJb4Sznd68P6eitgq
OF9SosHxstZqOD/939GnrLpr4PzitxP777ishfN5VjKnTw9fB+dLCWs3XAtf
D+d/dso5f8dsA5w/5fLc+gk7EPwar0Vu28w3wvmHj2YKrDuI4LtK8PxOd9oE
56vmF774fBbBd5i78ZtjwGY4f9HGI9JMFxD85FOznKdEbYHz43d597y4jeDv
Wrf/Ol/GVjg/ppPNavlHBN/SWmMvY9E2OL/kI4+z3l8E/1XdmZcy9dvh/OWf
4pbX/kPwD2dtSd/QsQMRPrueeCzl3Ann15rdzZkfiOA/2HR1wsyZCD4ASPSE
HQ==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$585092#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"t, \[CHacek]as [s]\"", TraditionalForm], 
       FormBox["\"P, V\[YAcute]kon [w]\"", TraditionalForm]}, 
     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]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 0.1}, {0., 1.018913451601745}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"P - v\[YAcute]kon\"", 
       "\"P - Okam\[ZHacek]it\[YAcute] v\[YAcute]kon\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> T\
rue, FrameStyle -> RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.7046057806554627`*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVWnk41N8bFdlKUsmW7Fu7iCzlIJJQEpHKlkIIEYVKicpO9nUojH0wDL6l
CEmWQlrt+zqjaLHU7/P7a57z3O297zn3ft5znxG3czO5xMzExJTDwsT0/9+s
qWqvtgfiGgrma/bfMGLgCvPWl2W8TOBjD+a4SuCfAr6USF4epMb0RZ4kMI0y
ydQkIoDbk2deCxP40NNCudu8YviS5FrywZABYfcR4yRBKfxp7zrmS+BVdeGb
VBE5kE66xq4jcB+7aWaH5G60+Bk/DjZgoH+y0f46rzyW9JuOzh1n4F3H4G9m
fgVw6BynaBH4ZcVqWJTgAbgGhrwP0GeAkiIoLiKsDJ4ih8KCYwyQ7ipVFIio
IHVmQbtej4Eoh1P6quJqsKT7JDQcZeCukWtvk+Qh+PU5FpbpMlAa1snswauJ
KRcPCZMjDOTfGWilbdWCW9T1RyzaDGRdm4v/y6eNv0kvn5E0GYixWLcrTFAH
DU5749MPMxBiILDYKaSLo57vjvxTZ+CehswLQeGjKOmhtRqoMXBNSvt0rsgx
5OfcuktWJvLJb7x9TlQf+VMulVUHGLBbZzV+QPw4+sVefaIqMHCacdOvXtIQ
Gk9n/rjvZUCo79P7q7zGmL8kqPdHioH4j/3Km+OM0c32+raTBAOb34+lVGw9
BUc3//eNogysa1i4tMJnghjnO0PaQgws5fEsPRI0Rf7YIZ+T3Ax4P+G33pNs
igUOqePi6xn4nirS8E7IDP3SAtf62RmYitwdwS98Bh0H3g2KrWHg6/VjEtki
Fig0SbG+NkqHhdvJB8cyLODdKa3Q20tHt+OZmWnRszAXM1MX76Gj9Zx9pYK4
Jd5f3AalJjqeaQUcfyl5Hp6NOYh8Skc72/lqV14baD978Ge7JdHOquUqZ2mD
732tVKOTdOStlREfzrCBgnSq3ykdOu4zMx5a7LJFShlX0Yc9dKj+DbQ4om2H
S9T0I91/5/B0seCXgLs9xs5Rmd8kziFmIaqgq8Ie5ukFmfqhc7jz47p1xLI9
OieOh5BuzcFyHq9ZHlwCRZ3t83vbOfDMdsXPpV1G8In4qaNyc/AbWVZqeOuI
nCUpC1LRLByHByZvb3LCNsv6s0lpszgz1Jimau4Ens0HLjiHz0J+IJK1ZMgJ
teGxsikusxj7Kvkh6c8VrKpwbN23YxYmXQZebrKueOq4sNU0ZQa8g0Znw+vc
wVrP3c92aRqWfD7q24bcQatJ2TF4ahoZBqTtecweiBj/cSpDYxo7K78PNhzx
gFUO05pm/mlohiZcWWn0APv+8ePvmqfgrDTo59xyDV88mddOSk+h/pFXun6X
F4aupx0rbJuAh0LKMOvoDSTZyLU19Y9CxCt0tsMtAEaFAj8klPrB19ppK3o3
ALmKQkvNq33YICXUczUmAI3RZvmeTX1Y6SLXbqgIAN+F7KDP5n34otgUabAU
gIqjIum/fXsR94NJ4fX9uxhwUXmx8dVXcHl6e9cm3UNiF8/mn1afsPbt86kN
BfdwN6Humf2OT1iWYLW+8OweIh7ua5n+8RFTnY/1VvrugexZ6a376COaFUoF
1KQCsUvy6sTBih4Efp+uqSgOxEh8Y3X65g9Y8rD9V/jqPpw1kn6Gj7/HZ6kG
WnfXfRhF6fz1qX6Pqo8y7ivD98HWFev1IPQ9rh+eGTBYG4Qr7sx+AvLvweDw
qZ/SCYLRdm6/jX7vMJ4RFiTXFIQBKeUXjvvb0d1GW/+0ORi2FvtEqqebUR4g
1PD2UzDiYz6vJiY3I0bxlv+PiWB0CGYy9+s342SS9qw25wP4PGjOIeW9Rot9
W/ug/gN4Fcqd5LnahLrloWjRtw/wTvq3jdH6BhTv4BZIaXuIE54ype0qLyBw
+A3P9v6HmPmRN/gptxaBxvc5MxgP4X6dq4NToBYWPktLWVseoa7WLWBs+RlY
Gsd6888+AluicG/V+xpY2Lx4UjP6CIuFDn8laJWo9/RNPfTrERQWDgdbqFZi
zwOluFqOELy+3lPe9qwCzMUFwfW7QuDyyeKZ/2sqipYTnFo8QpC5JrCHd6YM
zAnu+76shsBvv8+XyrFiuOTvkju/MRQ/C8YkrHmL8fH5mFifWCgkKfU7SnWK
UDhyfvPQkVBM1HOvOV9UAHMF/cXJR6Fw/HP974YMMup11845p4Si9kFRku5Q
LnaffTE2WxiKaQVZLVW5XDAHKH2a7wiFnZvlkQvPslHYJv7fn61hqBifVuhk
fQL+wW/lfrJhCHRpCJayzsK9hYTCVZUw6JW/2Xfkv0yYb+NOX3Oe6N9QxDnr
RwKz01IAZ1YYEPI41EAjFS7+FTdDy8PAy7B9u00kBR8j3a9taAzDYqK/dCZL
Mgorxy5umgiD0Jt34p/6E2C+tuuo4N5wfGNIm5/ofYwQL8d7+ghH4iMRe396
DGpHVp/fNA6Hv5wlpzZ7DKQa5ZS+XAtHmNYr23S9KFgo1bqvux+OuXsqol4D
EQjNPl2oFhcOdQPm+LlD4fgedFsyhRYOj8dy1i/4QyDzc4v12+ZwTKoa54jE
P8TZy3nJy5/D0eTF9b1T9AFeHu3edH4lHHd2qYsYmN1HBPtOpu1aEXBT125t
jb6Nep8X6kYmEdAs9SJV6vhjcdzU59bFCGifuLU2mNsX55vvzPUGRUDS5o3z
3Nh1RKls3cmdEIE214Ijjxc98Yqcf0mDHIH/JO+YKm27hp2PPnxLb4mAcpb0
4npzV1j9uSLQ8ZXAMkGl/ruvINqJyfTfTAQWnE+ybJR3QMPnuMh9fyNwtlLL
+a2tPX7r73prvTESEt1Px6rrbLG75iVblFgkemtd+l5lWMF65xntl/sjQZ+U
+RkrYImY5OlbDO1INL3U//Nj1gxN6+5Wi5lGovGeYOOMqAmWfPkWjS9F4l/K
GSveC0bYM10gf9c7El/DwtYVKurB5pyWS+mDSOw/HSlU9koLsW97cgcTI2Fo
IsvrIqSGZnWX4U35kTAdUHkUIqaA5YI1otr/RaJ09lRcoaIs9gonWF5rjcSH
Fx60B4JCsAvbHZ/VG4k6v8cq/fvZEbdS975zLhLhKQ6y7/eMa9hXFgSvYYqC
VPZ/447OCYdvX/V+msQRhWDbmXQjjXGNRBmt+v2boqBsn+S4XY0dZX3rB94I
RiHhSYthpagQWuN7Vm0louAs/C3u7UFZjJ3I3La0MwpLdRF92yUV8I/NRTVG
MQqu91QOBm5Xg8ALZfOdh6Kwa09kxJ1GLSj4rLlerxOFzNzBc/8p6cFwX2uM
pVEUHJwkH1yyNsLl8XjKd7MozB2iaymLmyAgw7Y9xCoKnx6PWFrRzZBsvntG
wiEK6vO3VcSELNH2uk729I0oGK402ZLqbTF2J0x3OoDQcW/ayXo7ezCpmF8M
fBQFkUcyJ/j2O+AAeSa9PDkKB1qXWA5YuOKEDe2ZwZMo/JPj3OZt4Q5HgXtf
hguicL/UhPaZ0FPKQ34+3udRKHhUIfFk/Drk5uhmAo1R2P2eldmo1QeVp5vj
hNuiUP5tTHCu4SbeidzcKt0bhUmTRhXm77dgdf+U2Y7RKDjG+nkqbQnA9OSO
uD2zUeDZLsJ97uBdsFV84VVejcKOFa6cq2mBiBUqN1Vjjcbw1FDpmf77EA8I
jdXYEI1UW3sRqV3BOGRwiFdvezQSJmPk7AYe4tpg2haLw9HYbYrN6+siwKTn
ffq8bjRGepfc+uWiEF544rGNUTQGbk1/2v4zCmSff5udLkRjg2GvgmZGDPo2
2G72vRVN8LPRbWBXPPTVpDalPo+GCu+drzG709GTsWJMaoyGS8WF/bu1M2DP
+iHqaVs0tPdqGGvvJeH2uyCeot5oNNB0JspPZoJ6eXxj7Wo0rs9bc3YXP4HY
43zugcMx2GwEF9o3Mop/3zsxohuDdDdR+dawPKhbnYuYMIrBHTaxGVnk48wO
Lu75CzEIttC0LsovQNgL1w3Mt2PgVbvNrza1GL+m5bmkamNQVrShrfB6GVru
Krl8aIrB+V8nXPwmypDOr9Ya3BGD3K2HpiLOl0PnyJGwyYEYaGx+pXTnGJU4
r2ZcJSyPUZ/VLmu9rxK79X251PQfQ9NX2n/wYA3scl5xGXc/RrWsUH1JbB2U
DzW7rCHuUZeDlM9LA3Xg7GxtLRt9DPO/Fz907KkHZfVD2NZfj1GkhN9b3tRj
1XSC66tgLFr8n3HPsDYgkWXDhsvWsbhYkp+6MbEJ7TZnNvhPxcImeH75Bn8r
tj51jEz6Houuoq4kPtdWnB/33URbisW00Zq0Ta9aMeWasfX7ujj4hG5zEnZv
A5vfxHbHXXEw6XP469LeDsT57jV1iYO9fe2BlLZ3oLxJP7l7Lg67ZPQSo2hd
iFYYj/42H4+0fpuKL6Of4Z72yoOVngi7xIDfhkeHYQc3pdxfiah1kk7ytB3G
6UGhP8eYkjB5QNsu2n8YytLXAsI2JaGOxVm5tGwYy4VikVsOJIGTKux4U2QE
wc9uFYrfTAKbhZHNxI8RpH09OH6Y+C5prue33BU7hohbw/n965MRyhCJyyoa
Q4Bo5NW7vMk4cTf7DvvrMdhdHFtskE7GlbZkJP0Zg9x07FrDY8kgN/6+1X1h
HNSleXHL8GQIhsfqOktMoEWw8Lw3fwom31Qp7k+exD6nS9r3RVOw4Mt6x6Rk
ErFVInIxsilwijY6fb5hElbm0T+KDqag3e1xg9zcJH7EeoeMmqfgp7YVf4bm
FIR5tKpME1OQGni1rHtgCq5sPVsUBVNhHRgbv27DDDrNIv9oiqeCxefsu68i
M1DJPtZ/YkcqchhP/CLlZ8Cs81/+FdVUmG5fvZ52egbxd0laWWdTsbki6MDJ
xBnUrlxx25ScCj+vSfLItlnw/PjXQhdKQyD9+8badXP479rou3zJNPD9ffSR
KjiHy99bei7tToOJp9aWQKKefzYfN/T1cBoqRO6qZuvOwZGxa+m1TRo8VBJT
lwk/8HLWfAcpJw0+8+tk28bm4Ox6eN+5kjRkFHzrlv0xB75ZCSW+qjT0iXT4
mP+bg8vMrGbYmzRY+5lzK/HTITAdaHFjJg3XOxPKRgm/4j5R8sBYIR3xcRQJ
pkQ6tjnGha9XT4f5aapHciYdTeO+j5uOpCPuunIFewEdwuO6GYfM0uHC7FJg
+ZyO5tGvlXI30pH0tti1v58Oz0t1z4YD0sGSvs2be4IOkdGc+vRH6diwtPpk
I4MOrxGPdt6UdHywfLz54T86xIbZx5hq06Fs0G0vS/i9t3az0/81pcNo+YJO
8CbC/w11znt3pMOzf6G/jZeB1sG01ZmBdDimr5Hm38aAj20gC3kyHYZef/8T
EGFAYtCR8+L3dNTm800xizNwY0Bx62eWDHDuTZmMkmEQdYXgtliuDIS9puYf
2MFAe/9fsZNbM9AbojP0chcDUv1vdjfKZED9vGBCjDwDHVYlCgH7MjDNrsT2
ifC7vn2xKuoqGTDW9upgVWLgfa+1Tql+BrT82cyFVBkYCC1zPmKSgfOnHp/9
Tfhphirr4w+WGciWIPm+OMTAv3HzGoeLGchZkKxw02CAOz5/8I9zBs7knlnL
Sfh1EZ1VjjCvDJBZSi+GajGw5/tJeZFbGTBrnmn/Sfh7wxOLt7UjMpCQfKD6
oS4D51f0crrjM7By7o98yVEGnPOT2y5nZGBxzaacWj0iXovZhd+5GXB+4buV
dozw/2yawqEUYj9L3v6J+gwkU2OObK/OgMOZB5/sjjOQZzd6paSOWK/yqiyf
AQNVPCoxWi0Z+KW336GMwM21IdVdnRlgfsAbf9CQgU8uvQOXvmbAVzujLJvA
40LyHL+HMzBBSvpvhcA/m+/tC5nJwHvJDZRDRgyw+Xw4I7yYAat8nchLBN4q
LXe7eDUDHp6tFj4EjnF6biLGQsI3kWtc1wic/PLyZSd2Ev4W6eSbETiLn8e3
bD0JkYGxChIEzr9aHb68kYTndj+yPxLrlTXaZerwkpDoeoDVm8A1wlwV4QIk
FEm4nFol4q/zrGjuESaB05IR6vr//bRYfRMVJ+GslkVl0//fb8Q5GI7SJISZ
+3dyEPjTjVKWsh0kuDt4DykS+RrosORf3kNC793MCT0inxMya3fpKBDx/Uwa
1yHyzbhVpBGuTMLsicNDOwk+fnefMelRIyFWK//rHx2C/11Ml0VBwqcizY+l
R4h8BObddDxCwqaozE8mBL/cX0zCS/VIKP1VPPzt/3p4mE09YkzCrrJU2cLD
DMj0n2gOMyVBbHuw07w6A3uVf3/9YEGCrNTe16KE3g6PHGdxtCXB7Fnc1EFl
BnTUF/hKL5HAx3npP/EDhH5i0nYuOZHQpL+5dmE/oR9NxqmwayTUs816nNnD
gH1C0qUP3iSMzeyVH93JgMuc9k0RwqeUXPdRuyDHgF9qHIkSSEIwD6cxpyTB
z281encsCdvsi81N+Al+To4wiyQR88UPGe4mzmteTjifQxoJWTE+7XQeQk+m
A4f/ZJOg86cwRXEdAx8pQWHbaSTcuLe21+oXHYl9SqXC/5Hwpb73lSJxX1hy
jX3Y9oKEkfopmSHiPulzOCoq9JrYX8i2/Lef6RgRYS/j+0iC86Yxalc1HTmG
tJ6tX0k4Uvo+xLuUDgdfh2XefhJeSPr7/CDTMfXhtc6WcUJf2vqTfgl0MMIe
ftz4i4R7V55HvblGR1mNygr3MglCVpz+cCLus4kJMe5/RPylP/dFWdPx84j+
FS72TJgm3jpVb0DH6hLnKgd/JsjL5D0uEnSscwqVYD6YCRJTItts8xxRP6vr
rVHPRKsgh8e253MIb5h2ZkImmifFDGVK58AjZljx92gmnmRfb3mfSNzfH7mO
LZ/JhHdIl1Lg5TlI6ka4Lnhnov30ptPOy7M4JB5dNVaZiel0x6MaXLMQczB3
PUT4Somjzb96l2bAWrRdIuZFJvIVfsxYTM6gXSU/9HBzJjy4Za4ONs7AxviV
VexnYv2gy57at2Zw/87iWu2VTFSS2vk9R6fR2nv2VJpWFsxXJcn8aVOgSIqx
/dDNQsrJvN5HD6YQ5zRWc+x4Fq7yt7j3eUzBavGa1IIJ0d/RqmDf0SkwuMJ+
HbfPwmB8m/3N2UnwHqpN+x2chfUVwhFDypO4kCwxdbo1C+8kZ1oGKsexUkkv
sX6XBcH5gnONGeNI7np23bk7C4VZH9wTHo6jh8t8TeC3LIhaPd3MajkO4zuh
AmUzWdjE2pXNtTKGI/YLR3k2PIG+ap3MmsNj2LG36Umr0RN89r2SK0cdwWKd
0wXdjifQrEutkQoahMF35Z4v409x00yq2FPzAzRq3z2Tm3mKP5ZO+75wfYBC
yJUn3oyn+CUmT7X93A0hiXT3zX+ewueEMG/PtW5MnGJdf3xdNmja7Lvsc7sI
39CF6t3ZcOpPMI7l78Qzd/e8BI9sLGbauOvIt4NyaF3U6PVsJPHH9vt1teEJ
x1NvRd9skH7aOQj4tCGE9PFIx71s7NR42H//RSss3mn0scVmQ1/yKscxs7dY
3Ldhi3dlNnwGhNZbxDVjLz3P33Q5GxcSbC0uXn2Fb9HHvSz+Ef1fubvbSr/C
owPTzudZckBlEdvS+a0eIzd3n7Nfn4Nyl+/NG4zqkbS2RNVrWw44yNbOzIp1
WCtE/flYPQc3n5r2MXbWouyZ6VwCclBlKBoylPsc1taLoylHclC4Lr2hXfo5
ap4qf3hikIOPZevnU6SewW1fdXn5uRw8/2Mwu2tvDb7o1Lp3+eUg4GGOm/y1
Sjwct3L8eCcHfNbOBy78q4BSyD/rr4E5QHNnTEJ4BaI6NE8Oh+aA1/tukGoR
FbqWr/b8SMlBfJlxuPGfMlDcmqc2P8vB1heVHk6hJbDa7DTE9zIHy2n1Lz2b
iwldcX4RasiBVr3u9hr2YlxeOv5GopUYn8nkzRxeiG1BbbkK34h2hjaFWpaH
4OROe5OVHLS+vbBR2uUpzpg9milkykW9hUn5o5dPIMuj6cXOmgtN9+8cJfxP
iHNSFPhsQy50x876HGnPBKfHwywZ0Vyc+h70PKI6HV92YeddyVzElt8JexuR
hvyxxdKvsrk4q3fzfY5TKo6fv1gXJZ+LNP8zPEflkxGmpzGwpJWL8JO7191d
E4/zzIsOZkdzUSd5+un6tXHY/byAXnI8F0tbNAqNuGLRpiD4z/50Lqy05XVZ
9saAW2Rhe4d9Lj4XDV/45xKOvk/52TuccsE+0n1boj0UJY9t99x3zcW2xhie
PrUQGHN2HFL1zkX8DbcO+YMPEL2Qd+7JAyL+TQ36z/+7C7sSm+HV0Fz4eUq5
bvcNgMIVfmeLKCKeW4PqVx/eRmf/fd8NSbk46Rhx9vivm8hKVmd2TMtF4tGl
q0ydPvA0+/6oPjMXamxNp3QaroP3rXWST34uTNovHA6ne2AkiE+8szgX9t4v
bqTJuYOq2UbeXU7kl52/7cl3F9xfDpR/QMuFQ0bXmNUrJ6LuUKsa/C8XYevK
w6+/ugwZj3kcepkLlQ16wYzvF/FzF/l1fEMuLFVS1n06ZUvwvPWjQVsu2qQ5
u7YeOovL51utct7nYu7VPdZmPjMc5A8cY+rJxZnOFv0Q41Pg6FS9eu5LLvhf
Gxt3dBrgUxhjsaIvF40KLdLd9bog6+Xe4hnOxbC4TesBD03cYLZidR7PhejK
RtKaZwdx7DlveON0LoJGtMRCN8tD8MZbXjFGLuT2Kq6qtEpiSuFequ9CLkIU
fYVEv/KiZlZF6sPvXByoUDv5QYoJIWR6wb7VXDw7d2klY7xLw/JijmLIGjLO
n6OwHf1E09gpcuG/EVYyTg11fX/Uvaix/GnLEawj43lyqnHJHR60Pm5pSeIm
w4jtT47nCzGknrhrsrCZjOsXZC4aqu6GzIDG9Fp+MpISsk9ve3cAFI+VwK3b
yEinau0r7DgENZYaYRlRMtiDYvdnbTiCxlifCmVJMjLducQunz0GYxmlE3qy
ZBzWD7TnNTiBL7TvY+a7yDDk/zxzwsME9vqUO477yPDJ+vr598YzmPviKnBT
kYwdmmIvb6+xxA2XXaWPDpIRaX7hcY+uFZj/Tugnq5MxLyte43vVFnzi9n7/
HSHDy/OJbeHdyyCVifO26pFxReR0vpa+E3bq9Bd+MyDD2e5gmpiaC+Bg2bd6
moxrQbGR7QYeaPnN78NtQcaWk6LqW5k9YRryYaPoeTLWHBoMZLR6wbHIWEvT
nozEKwxPE9INfNfg/mLsSMaNwJfnOsi+8H/39pqtCxl/j4zZtjX6I+rH0af3
vMjQWIkNSkkPgFDQ2sOPb5DR7umc8/btXTzlq//wxJ8MO9V1i/IsgahWPcze
eJ+M+1IDKRFRQRi6o3iFPY6MevOCERXpULhsmmcWSCJj/MSHvxVPwvAzqzhF
Lo2MMqWSbMPdEVjftKNNP5sMMRM1t69FUTjAJSYfVkHGhhDjzCDBWNSm9Tan
VhPj5cL7GExxOLYvxbboORn+5/DFfDYO5034Hrc3kjE0PhG/8UMCghK5fvL0
kEEtlZEZ7E8Bz86WCPEvZLwj/aKMzqUi+b8Hsgp9ZJgd7mt8z5yO4j7ms6fH
yEi7l1afT9TBPVJ//ov7ScaZM6fKLrhnQa509K4Qfx4689PVdhP3wsjnswV8
2/KwfqGP9lqJ0Alze/dm0Tywru0tzxkiQ8i0Una9bB4iEqSD5I7kY/2v4LZl
5TzsdGkeXi9ahLlDcoK9Z/KgkRizz5ZUivxLqdqfLfNQPOZWbMteBocIHpcP
VnkY0Bu+ct2tDAP9v2vbLufBqM8pvVO7HJ333tjXeufhrnbOFb2fVFQ0X6Fk
xOeh9oDpwp7IKlyb7/uckpyH103r5EbZqrFX6DRLYnoeSAvrvdPvVCPHWf1M
VE4e/jFGXmz2qkEiN9dKQGUe4oMLhAYdn8HftEjPricPIt7vXt7TfAntAXqf
FF8+uHnYHqiXNkBC3DfRRygfvGkj9TbMjVhjt9akRSQffwdaL7KaNuLlsECj
m2w+jjzcLPPmdyMOj2sV1Kjk4wSpLF7s2GuozD32MT6Xj5tb7X+orr7B3pWD
PP6kfLwVfc0jV9MBQYEAra6dBZjsznXqEu+Bw9/GUdY9hTjdK5vo6zoIqb2u
mpf2F2IiIGT20qNBDFzgTWlQKsQdnxsZRtmDsHhuZxyoUYgp2lQHT+8gjvn/
q2EyLoR3a9LlC4ZD2LmkErV8rRDfclhqXu8Yxuxigdp8VSFGXzd/zO0dQb70
6Tjj54UIKZl6HvB7BJfNlugldYUIRNWAwZZR9FGPZV9tKcRVu/sk2rFR4lyM
bpz5Wghfbie3b2WjoMyLjI79Jfo7H9rCf38MnrPRkd90iuB37LC0qsAE7Kh0
X1n9Irzw2Fx5Sn4Cxn5Gl68ZFSHnHlff6WMT2M3JeZjjTBGc/7UMbbkxgTGp
gClFhyIYhSmd9euZgOX5q7qhj4oQkJeZXRQxCc23x5dV24sg9btw9OvUFPbG
kMfudxbh8mlnL/K/KWw/y9bZ0VOEmYuK6Wd4p7E0Vke+1F8EcxHZT2cOT6Oc
WfVMNKMIDvW08IHwacioyZZObC4Gvbn08rjcDLjyWBwSzIvhx39JRV93FtSj
jhcTzxWjNda/pc50FudHWq2TrIuxhVVbVsh+FkWi8RYpDsW4/9oxz+neLE7E
yx3P8CnGmkba8zvPZxEVaLQnN6EYny4YpTvumYOKeNkOckoxbuYGNrSqzWGg
lk8mL6MY115Q/bmPzWH/Ur9IQW4x7pXqiu20m0On+zWeEloxXmclltfGzmGL
VcKPyo/FGNujIan9Yw7PlpfptK/FcLHzfeP+dw72STYzVf3FkLJYJ+LHSQe1
e8dozXgxlnecviQhSoepwbOe2l/FKBR4FFx1jI6VCbGuF8vFED40X1lnQsfT
4KCOl/+K4bn2UGP2eTpRP59ormcvwU9+dqG/bnTEqwxWN/GXQPPwXe7ZWDo0
enQrX28rwWH70LiWNDrGPPPLmkVLEL3uj+a9HDoOlngWtMiWYE+MXMkdGh2f
pNnS2g+WYP/rsKeUj3QEvLqS1KFegr3Gn9kv9NMhZ9sR9w4lGGy+Ojs0RsfN
1MSITj1i/E23Rd9FOoS27AroMS9BkVcDiysHA6PN2Vx7z5fggL3A4dn1DFBu
iyUF2ZTgoZfkvTMbGdCb2lp2wKkEX7V/so9sZWAzKUojzLUELoMUJQ5BBvrM
1r8d9iiBQxKH/lZhBrzqmEZifEvw8oD56qQ4A/Dxc5+6XQJWI8vwUikG1u35
uaIVWIImwS2DtrIMkBKnt84Tdals/lOq/24G2tx69E6mleCvHo92shIDidKn
unMyS3BHp1Qy9yDhr7++tfmbTcTzfSI6VZWBpaN1N4uKS5BhmrSqSfj7xhV1
NtbyEjTu8mPQNRiIKquMOU8rAfe2JssHmoT/FyksWP+yBLvqzwa6HWFgvktG
5WJDCUQW96q+1GHg2aPMhprmEvCcDDb7o8vAQwif2txWgvDb77uF9Bg4vRjf
6/S+BFKfm8qljjEgUrDpSt2HEkzZ29L59BmYsgn7KfClBIaDA/fnCVzBxx7o
3lcC9o43HtTjDAS03t3YPFQCe5/RcmsDBgzuraSIjpcg5buW/g8C86n4yPlM
lyBuj4K8myEDQ7Pz1HZ6CcrnjBy6CFz0xEVLZqEEY589ZkWNGLhxdrzt1u8S
bPN6UWdKYJ2NdpYfVojx0mnDHgR+aHfVM56Jgk71SpP/vw+5Pi9QrWemwGVq
ifv/70cmApP/ZtdSYGJAElAnsIqnTJMgOwVyVmLuf4j1RNovhulyUjDIpsZH
IvDaHZkmHuspSFk/v34fgacC+wTSNlBQuCnCJIeIv6NvW3/zRgq+JqVPsxKY
qno2e2ETBYvLC5+MiP0nx8Y7i/FSYGVLFr5N5CeA3rXfkI8CgRe81fFEPi8d
3/TbR4CC8fYvlAQi38ezT9Q+EaIggX2A7e5RBuSZwu53CFNQHHui1oTgh+/c
m+PLIhSIGcV94SL4W65g2yQrTsG5PAfrEm0Gmpzvpt2WpmDT1u6yIjBQ2FR7
MV+WAvFPu0I4CX1Ei6/s6NlBAS0s5KvRIQbOf/Su3LOXgotfm5miVBjQVqD6
n5WnIObIo/5wZQbkwue1gxQomBDcfMLrAAM/tF06vilTMEfd/WNpHwPKnHvS
h1UocC+IOt+wh+CnY9ZlSo0CpdVst5u7GPh7zm3dbw0KPOdO5+fIMMBx/Zru
Fj0KTlqyiXMT5+e4uiKvkD4F5eYfgpSI8xW+ZmFIzICCwJYrzcf4iPMXcT1g
70kKGiNerFXkYUA498Z/+uYUnNrMrczPwoCVq2qI8VkKnu089frQPzoyFZcs
zM9R4LzwzFryNx0yL/1+2ltTcDMkIurmJB3yn2/vD3Cg4Nvdy8yGLXTorA/K
rfShIHkuk5F8n47g97rez29SMO0g5qjsR8ebBDbdBj+ifeSkc4EHHSekHg69
v0PB84aP1yWs6LA4HLp99gEFCgUWFnpKdLi4RT+WTKQgU+SXV+C3ORQrmdjt
TCb28/VWx6t3c5hf3rx/fyqF8LcPLvU3zMH7YWy7BomClj/Mz8mFcwjITOC0
JBP561nxe+A7h9iutDtRVRSQSfY3ozfOwX20mi+8hgLFnAfGX9fMweDXh6JH
zyj4mcTcwrIwC+Zt3N/uvaRgP4fIrvmPs/Cwu61yvZmCw/znnbTSie/NvNX8
2U8UrDJ5/OyRmgXHRrGLkr8pqDASVeoXmsGI2KEl0SUK3sEhRodzBi8ULKKF
Vyj4/u++VfivaXifiXqxlakUmbYbGG+6pjGaxiTMwVEKxeSplz9CplG/e7B7
hr8U8g1V6vsXpuB/POto5cFSOJMfTiaVT8LJ8Y10n2opTgh+7fubOokzwYy1
bIdKsVbsmqR+8CTk6zVemWmW4ryreEaExSRGVb9i8VgpHqt9ih5ZnsCJHbyq
ByxLQaus7v15eAJiHMG7yvxL4c2x2BxfOoZXjU48xXWlSNvW1hJ1eRi6AlzL
DtplKDMgrmPmLyAV1e2M1ymDylAIc8Dbz1jR9rFsOFqGdomLhvTYzyh3HaoW
MyiDsabfcS65zxB/VXXj8+ky2MjH2J46+Qmrrpd+Hr9UhmHVozkxWT2oeFU7
v+dhGe5nbycp23SB56yX+PmQMhTO7g7S2tMFl7kdp0LCyhBkX/jWc6kTkoJx
lLGoMjCsfN8Zx3Ui+qqzW0ZSGdJ+No6vtL6Hq6DALE9BGYKvDsql6byDtJvH
xI+2MtSHvLpeX9qCPrd8sdWOMrBd3tTbfqEF8e7DFmydZdBoH03QWNcCtmtm
bwR6yuAx23PBwP4NJrxU8w/3lYHzjdHx/dubUei7xuXBHLHe4zb1kaxGKARH
04U2lsOgb6uuJUsdpoJbZKU2lSPL/1Si5fOXePKAxWbPlnJ86Hz/rcfnJXgf
XX8H/nJA5M3f0G8v8DP0bKm9aDn8aLLJkvXPUR0t7lm8rxzeqz97J55XQzOt
9KeWcTm2B4fPRwaUIWZS95emSTnyo2XtRAWIPCp9+QXTcpyzXhytp5QiuJ35
z2GLcmjKFgofH6Wg9d/pZVWbcnwlb+qYqCyGhd3Pf/vdy6F8WEdz0xIZ+cUh
TPuvlSP2bPdMrCEZy0sia+S9yvEr9cbvC5m5SH+sx7z3RjnEpTNrmk7lYKQh
ce3OgHJ0+CdFirY/gYesOqdEVDnqVAKl7rmko96zg1M8phz3/3jszT2XBt6X
F9eJxRLz7byoGXwyFVUWYetFEssherfgmb9uMv4+6t0gRCqHopaoYdSVeBj3
eHALZpXDRSlB+O2dOGRKsG0UeFqOcaUW3a6kWOj8t5eHj1wOXi5HZ9NvMQiZ
ubN5M6UcWo2dPXnKkfimwrtlU1k5hA+o3XAuDseeIPIWHmo5WOsEgif2heHd
9ve83FXlCLvVdkfS+BEkrlzauqGmHNOrTP4Tcw/gWflnK9ezctweMmX1SQgG
30kJ/nUvy3HSsOrjKut9OKZU8nPWl+P70wr3lbf3UD1+XICjoRxu9zOU36fc
xfkAT0G25nLQeUtrN5XdRlZpwzbmd+V4p5Iy8vuxN1jX2dvv7izH4hNv1/UJ
hH+2Yyk6012Ou4I29V6l17B3i7ZGwadyvDDUXa63uIpo58HgD1/KIcl1TrJP
0BkLrwI6/n0j5pMWTO7gdESN1wsb08FyXJpXP2vhbYftbVZ5t4fL4S7AGfhv
1BoB0n/nyaPlkLDe7q5++ByGb6WpdY2XI8l57LvH9zM42nMocHWyHMGanV4l
rKeRt/fbW9mZcig8aU//O3sCXA/8eE3myjFsoZf4MewY3PqFLvgzymHjXXts
ZVwbnQdrsnO+E/o/3bB26a86lKLOzr1bKIf8U+vZjhxFJE78Vl7+SfBXveuz
VOQOLGsm3pH+U46bn94HmwVth1XSweaTy4R+HEpOHMlcj7r5Hh7fVUIfIfrL
rmsYGlLHvc8+/VcO/klX2asZsRoPsrZmta+hgqahaN3kPKAxtUSd+s1CxZKh
cfOrDywwOm2qKMlGhczhjN+vCvlBKfjhZ8RBhcukC8kvTxpb1j5u8FlHxVHp
ohrjg/vhfV5hQxYXFY8aXxz9uFkVn6nvzVq5qcjZ1XIhTVELhzZ4pP/koeKh
mfZG+eSjyLjEMy62hYp2lUpB3ueGYK4t2WewlYqFPs3+be2ncInv5I3r/FT0
CZ6KfJVihuarcy8zBKlgHfTZ7v36LHa9Duds2UZFyoO9vrKnrBAhusdkYTsV
JYc2HrmUaot5n9ZkETEqmhMlH8nBHqbvnIePSVCxkr6F8YHHAUJ3873SZKjY
rKa32qbpiluf9Z+/liPmDwmxDjzpjoH9k6zfd1LB5RY4w8x3DTlDsglH91ER
ND3ynG/yOjjVX/e776ciw2v9j4xFH7g8viyXokiFUle/kregLxR0sqvpB6nY
SnEYYOTcRlyqDrOQGhVv2ya4dR4G4PfC8HGdQ1QUS2usy2u+i9psiW+JmlS0
Xdb1k3e5j+PspL9a+lSolgVSXx8OQZE19FwMqFiU3R493x4Knqq+yHgjKjo+
1O2NdQ5Hj+N28elTBJ/vQjwTL0bhYkvykVhLIt6aN53pLLGQiHgem3SeCh12
KUvVyVgMnRoYTbeioik8Ra+uKw52n6Uf5tlREbrPc0MULQF2E5TW2itUXBXW
TR2tToFEYdf2BhcqEl4KsJCbUjHk9vPqm6tEPF72TDqf0mD3S31T9zUq1p2r
+Pl3LQl2bK/NJn2p4P5OSow7nQWJlsmcOX8qwpfbxZRnszAUzvX7x20qvgWF
sao8egK7rSbJf+9R8fz315qzzU9hJ9XbtyWUipb017YTdrmw1f7hoJFCxd/L
VaT/2IsgxsZXfSSNCgM9j8bCpiIMvFFZp59BhXpXxPfhB8WwOXW78PQTKjYp
vrCL4KDAxoZz3rGACt1IiR7NjFLY3Bb1ffwfFa/2d/uR11TAusYgbOIrFend
pqbdMc8gH3JTWrCPipc7JXIfiD4Hs2Vurf4AFY8Lt6VfLnqOp3+Y5/NHqJDi
DRgjtdZiSqXGzHWWmK/74iaXsJfwpsmJfv9LBSknTdbxRz3CqKxly+IVEFIz
GRKSaYbVfUWD3VIVICueO3HjVjP2mdqOnJepwN5lrr0nPjSj88czvtqdFXgV
Vn/QOvgNBBS9/AIUK3CsSr38z2wLnpQO6bDqVkCq2G5YurMNNcUvPnI7VqD5
TMSGiz/eQ6rlmKrSlQp0XlHVyZHqROTo++RzLhWQN2ut3HymE/bCIxfI7hVg
Gg3ddqm6E9whHCNaNytgypx8YeBuF+wunWJ4hVTAK9t1b7ngB6wXHub4WlgB
6rLYr2abTzj/iE0td74C+U+z1+fv6oequtzzNdcq4VwsRcoaHsXmdrjt9aqE
sg1nW/3qKOHPzMXPeVeipOuHbSf/GFKDg4OovpXQo/56XGswBqbOESOHwEoY
Vt3rri8bQ7NjZl9rbCWSmOxOq94ax5l4IaZEWiU4FJWj+9ZMYt8OhbKG6koc
s3TJPS84CY5n+vbz/1WiYcs4b538JGoGbzQff1mJbwaso+rWkxDZ8zFqtbkS
1R4CP+driHru1WPxi18qUWo880LadQpe81xH9q5WoufzosJMzTTy6bmrSv8q
kZp1sdyhbRoDs9pVh9fQMA2WX4390zCcurHHiJWGWKrZhp1rZyA5PMLvsoGG
ePG9rqEGM+jsfjaTt52Gb/djC0O7Z8DRZZ5bKkqDxQxDQmR0Bhrvv9tWi9Mw
620eF7U4g7w2uY/N0jQEXTz1mpdvFgFNsXXje2gQk7IcjDObxb4ql3hpDRpq
13avs2ifhX0l+6k9mjS0ujZc+PhtFsnUrPVK2jS4TE8rH5ieBVvppwCdozRs
uSA7FcQ+h748HeeLJ2g4FJrgHKQxh7AUYc1MKxrWtmvU9GTPoT6JtkS2oaGP
l7JVpGwOvxNMKih2NOT/FfysWTsH+9iHO19ephG++I2wQM8c1MMXePuvEvHX
V5xYt5aOqdutk8J3aAi99cNgxIKO6uZ6F6G7RD4q/nzKsqPj4eZqOn8gDRlq
F0IPuRB+KCd7cfMDGjwO1TGvuUOHXdvtNZyRNPw64lL3NouO/fzX77NF0+Ao
aL5iU0AHk60z+9rHNPg/Hch/V05H+oL5hn/xNFy2pPGggY7P2/YLLqbTIGJH
7zYbpoN8STb1O4mGXKa3d55N0eFdsl2UkUXD25vXWVbn6eA9sk56OocGzeCz
uaxMDBhfGZYfLKbhpWpP+J4NDIhSP5f3UWigh+da6BF+b261Q/lbGQ3RbKLt
RlsYCIt+duhjJQ0LGukpYoRfbK6KO9ZWS8PMn9DVb5IMJDCHvW15ScOnc98t
zhF+87LhvRPN9UT7Za4dTXKEnx+4avqqicjn1umNtoRf7dpx6ePLZhrYRNy2
RRN+NsvznGVtCw265dJBRfsZ0GQ/ZlPdTsOmtCqrAiUGNp7SGK58R8Nuvu6G
sIMM9CUfuEztpOHSLdJ1S1UG/PeKu5T00DD8+mt2DeGvDW7w0ws/0WC1Yf12
I8J/C9VvuJb/hYYHgi7tbwl/XmW25JPdR8znZ/4+nPDvDzIYS1kDNPwskxJ+
f4SBM5Njt0hDNNwLznvMRPh/acVepvQRGsauMSkJH2Vgwb8rMGWMhhBXr1VJ
PQZeNb1hS5qg4ctUwBT/MQZieF4+ip+iwXbk/Z9fBLa1rOSKnaEhoO/IjgZ9
BlHnFEZGzxH6mB329j/OwL/ZrM2RDBqWaugDYgYMtB9Migv7TsP4ww+XSgmc
djdSIGSBhiLlA2v3GjLg8jYo5cFPGkaOfK2JJ7D6Vn+RoN80XOhqeThN4HXW
1zLvLdEQVaToutuIgU9kR6mAFRqStH0czhI497tV7q2/BP8Fsj7////Ow2M2
13KYquCoPyf2//cbx3Tbwx3MVbin9tbCnsDHFuw4fq+tgvn9BRE1Assdt+8S
Y6/C9eRhz9/EehykS+n6nFUwu2BmkUHgycXLTtfWV0Fe4Hjb/+NtMXA8kLKh
CrK3Wbv//36Tn+n079XGKmTkcF9lJ3DIrystM5uq8IVDPs2YyIezkUvcVt4q
tHj7XLxH5MvwiauNBl8V1PmVX6US+dz95+ouB4Eqws8zvcgg8s910v1npFAV
/nIWnw0l+Jl96lFXJVwF0c2W8dYEf8XGXubrxKugLO3EUk/wHZFzXUJRsgqC
nCbqxloMuK14z56TroL7mI7Ua0If8uSbgUU7qhDIrLzNjdATz1/fEz27qmDl
2KlAUmNg/rS/4L89VdBfonLXqDBQ9u92ibFCFVQdHXeQDxD8mwX43jxQhaW/
s57+Cgx4FtzVzVKuQuZWyWRVeQYOmN//+kOtCpsHBh9f3cVARfEj9oQjVUij
SbI0iDEQvza084VuFZ6FNtD7tzPgbRmWNqFXBbszF36MCDGgzBapqGZItJcy
2+XzEnq+EGvda0rs/+2JXkl2BhLL43aymVfhW+SWgEcsDNzkTFjce7YKJGmJ
9aX/6FCrSAoNuFCFhyf7mi4x6HjGlUGTvFwFFpMRPWoHHal2pHuGjlX4z7dP
VuA1HbeqMo2uX6kCu8vJoJO1dGjYPx1uulqFtueSIqqFdLz8L2/jFZ8qHEw6
m78URMerK1QHysMqsHlsGjq5n7jPdquqU0OI8RlJLM9kiPGzz7mrwqogZK+0
yCxMR5Xb64oXUVVwCnOjirPRUez1haUjsQpDczl52Z/mkHibiTRLrsLVz1/e
D3jPoQdBnvP5BP8kC1P2K3PYsmad3mIhoafKe3fWXZhDROCWuRVKFQp+nzDJ
1Z5D4EOZQ1zVVei+JBOhwTWHqzGGn3a+qUJeSVr6mqRZFJ5+X7D3bRXO0VPy
mENmMcl75o5CWxXKOE5GDPkS358Eaxm191Vgelvgj/OzOJt6zUv/MxHPsozM
te2z0MlJ5HGcrMLWXpNbvUkzEKoZOZbNWY0X4YHD3/2msXprrdDo+mqsfVe4
c+Yy8X3VkpqW4q5GW5lSe/2paeS8uRj+dHM13rQtK3DKTkPx89D7J9uqkUXY
5zXvpmD4e8Aya081+ne2s/Vtm8It5V6XjFPVeGSmm6GcNgGbpZXD/aerkRHA
znPx/gR0aoU3ip6pRtPfld7rzhNYd/R8abplNV7OLjWfVJ1AvNnXxbSL1bgl
neve2zVO5Pvz7dTr1diutZmcvXYc0Sp/Tn7zqUaCADfnhakxeK0IiAv7VkP0
z8emfx1jULtv8SrldjW2NO7P4kgZw+vHH9lTHlQjUll2XF5+DPnmvz59eVSN
Qxw/1A23jiFiG3++UFg1PhT7B5stjcL0yRnD5KhqJH9MNFJsGMVBB+/tX2Kq
8WWfsCdH3iiEdsXPCcZVw3Dp0EBr+ChW5ypenE2oxm2Z35MB10YxUPYhKimp
Guvf3BqVMh/F/wDItnYj
          "]]}, Annotation[#, "Charting`Private`Tag$651660#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVmHk8VN8bxyWkVJbsyZIlEmkhUh60SZRURNpkX5I9iaxlzZKdMUNF2WYI
MxSHQsiStQWRdczcmxTli+p3f//MvN6vc+85z/l8nuee5145Ww9ze04ODg47
4uf///msGp/OB3J6i/JPum0e4uDCKdJQIcwBd0Iss84R/Ev8Di1BWADKMbGV
AwTTabMcLdLiIJP7a349wYeelCgHC8uC5BGBe23xOEjdmjTLlFCAas74fD+C
/+hKBVRKKwPjLsVGkOAv687ndcvvAue26NLMOBxGZ5vtfIU14FbAo1R+gt93
f13iFNsLtNQtIt6xODRU/YlLlNgP3GTXXU0xONCyJeSkpbSA9yHvMCfBlFDN
qmJpbejrtVXYHY1DouPZkzpyB6Hy/F/uk1E4hJq6j7TIH4J+T5dQswc4lMf1
cnoK68Or46pGypE4FN0b66CLGMD39R9TlsJxyPf6lvZX1BAcgrmDq8NwSL64
QTVO4ii4ZwmorNzDIeaU+GKv5DEQWMjDQoNxCNNTQhJSx+HP9a1mv+7i4KVg
eK5Q2giG3hcvFwYQeoqZbfsmcxLCJHqPTPnjYLvhysx+OWN4wvVPQ8APh3Pf
AwJfy5uAifL6VXUvHCS/fOy5KWwGzKdP/ROdcUj7MKollGoGX9j+a3UdcRDq
mc6uEjkLuS0Vh/vscNjQtGC/KmoOGrvd3nRcxWH5ucBytMR5yNhToT95Hge/
x2JX1bLOw5H0w26rZ3H4kSPd9F7yAuyYcT/HeQYHVsKuh2JSFnDo4z6bD0Y4
DPkabX8qfRG43vM/LNDF4aLHmQdG5Iug/0Stc5c2Dv1OFhhbxgoi+bg/Uvbj
0HHJrnqvnDWcyHptZa6GwyuDEOMGeRuQvCl3emgbDl08NjXuwtdg4V2PwoMV
DF5xG7grW1+DnZs+737wC4PnXEpyE+RrkLq7mttrHoMIzu9RF1Wvg/mTYVne
GQx0/oZfPGJoC90PmSFaPRg8WSz+LX7LDmzsftwh52GQvJBY3FdlBzE+5VtO
Z2Nw76fv1YcrdrDVSqB2JgUD63l4u/aBPQQlBxoOP8BAAO9L+0ZygB/9nG3t
bhgETq5oNr1zgri7TaKv92LgNDE2GyzoDKKjR0bkVTGwGG8m6Vg6Q3puxFpP
eQw0xhK4qePOcKF9KrJzCwbTQ/IDmf+5wOmxF2sTf7LBvO+Uj8cOdxjIV5PT
p7JB+KupVXzjLfASfDEaIMYGa1F/3a3jt0CY8t2PYzMbyKco255zesLOzdmt
vlxs2Fn942vTEU+w30t+sWueBfqx6S6rzZ5wmvP5hY42Frhqfg10bfcC2cT3
lh/9WfA62if3ZJ8PiMYc+3v27SzwIlLIh58+kJaSHv7q5SyYLrTY2gv7wmz0
yWxR2ix8vCKxI/SCL0iappEzM2bh2756KuODL6xI5HQNOc0S+beuccewH3xN
ogdb8syC597sCe6p24BrnuS202SCkVzAqe9cAWC967aNsDITZAUsX3xWCIDm
XtGvVZJM6MKFwql2AdDpfvdRx78Z2Pk8ZrvVZADMlfZHnGybgUmZO9dLJu5A
3mLGryirGbDYZDVqPn4XHFw+dVl7TIO0Tyze7REChoezTpt4TYJoR+91mdAQ
MK2vPLv92iRsUpAcvJkcAm8n83JnTSdhte9Z/aYqYrw/19hEZRI+72tJOLUc
AkHtUldujE5A6k+OvW8jQmGSsUtt0mgCNnr7+dVnhoFf0xvzRMFxWPa8/q/k
TQSMvO3KuPHfFyhT2Sye3RkFBfRB6RDvfrDk6jsuoR4PLyJ+aQqYNUB2lJio
cF0iiNXnFhvLlaPfbI2NCvXJoLn6YOy6dzfqumax6S4rBb5PYb7KHkMoae9M
0vB8Grya7z14lDKODj1x0Oz5Lw3SXObXqlaMI6bI9MfmNengFnrdnqdpHOn9
NylDFUyH6Kmi5qyZcYSh8dLQPenQn5TZoa0+gYxMv7QpeabDdvJEon7NBOJw
Gljj+T0dCrflW2q2TKKST+ef2i+lw2WB3qyswUlkearfyJojA6bsm3b8nJ5E
Zep9CUcEMqDNSOR30LopZLP4fpuoRgZoGMpa/HdiCjHCOnReemRAqa9fZHDL
FLpFeuPJPZcBVBB8d69mGtmCh2bh7ww4v7sxOrBtGp37KvmfEUcmLNNU2A6f
ppGWoldInGAmcFz2ddr43zRaKZFN2LI/E0qK3/AnHZhB918FlcgFZMKlzTWn
/ctnEGnowMzhtVnw+VzeomsGEz0Mmiga5cuCLd/SOo8XMFGITMLNUOEsMFoz
Ms9fyUS2N6YXmxSzoDet87dbNxMps1O4TIyyQDxbY8aMexZVLs/LWcdnwezu
UpzuPovaJUps/MSywdQsWOi1BgvtdrY3jJDJhnflIpSHuiyUwpBWTt6RDa/t
WlqMj7PQFcukn6UHsqFp8klT0iUW+pniFzNlmQ33fb+1WkWykJSAAeN8RjZ8
E7M17hhgodCryyRbSjZs0qmwThhloemyF+G3nmVDYk0iyWCWhWimSmfiGMR6
um/yvVdZ6Ggs3/Sbj9lw+mf/2k3b2cidZ3DLPokc2MsrsUHAhY16LyT8py+X
A/GLzLA3Xmyk/dRo9LRKDvTrHe61D2QjzqMvi1x0cqCocOqLXxwbpYVSDPKt
cuBN5Iut7aVsVL/q4iGYlQPmauR8DZyN5E0ULsjk58DrvUFbuhfYKCp75KBa
UQ5Y8Saut1llI/ODZjwna3NAGN31MuDD0Iy/Jinkcw5wzv6s0lHGkMDPf+1z
kiRIO+e9dfgKhl56Tb0vkicBifJkE2aPIYcf7YP2u0gw4/hz+4wbhl7Np44P
HSauV/PNz72DIafvqstvr5HAjVPbWSgVQ1tuCXKEO5Ng0EaceScbQ/Vzv7j1
vEig5FVn25WHIeG5RsHKcBL0andpa5VhqAG3VKEUkIDrCH2WtwVDru6Hd1+i
kmAp7O/b1ncYEsW3a4oySMAcjA/27sGQG4brx7WRQEUDvxE9jCFxdvjF2xgJ
3j2Yz62ex9AtJvWB2d5cOCZiFb5FHEdbnVLj+XRzge1XKHxPCkctM3cetRzJ
hbVHfhgOyOJIauYY+dCFXKhy63I2UMFR69RQtfLtXNivdCpWXAdH3vaNryZC
cuHPppqyj4dwJD1V8Do3OhdsDK5ahuvjyGfSs0s4OxeWf5PUMk7gSHZi3TRH
fS6Mq1wqQOdx9M4WZ79syYWk6EfFfZY48hvvnffrzoX/fu7Z3muNo46vpD/Y
WC68cJq0fngNR/7Xw9c+m82Fbe8bxU1u4Gj7V6f1N37kQtq/dFiwx9HtsX0i
n9aS4faoR8NaVxzJX5PYmrKRDE7va0Rd3XHUNfpX9owIGWQ3xXe98sCRwmjb
rmYlMuBpm21kfHDUfYW6N2Q3GUj7ItQ1/HB050uKtq42GcrqBG1Ub+OoZ+Tq
0fKTZPCUrHg9FoijsdgK1yPmZGiTrxd+FISj7zrcjwasyaCywTNS4x6O/s1Y
1jreIMOwUMGWmhAcbU4r+vqfKxmKTU7U7woj9Dr6hzfOhwx5iaYRseE4Uvtx
RkM6iAzNYQ12AxE4Mjm9GGz4kAyNq+c9dz7Akc3qiYL+NDKkt3Vna0bhyLUo
q9OBTIx3O4+oRhPxXsQXlgrJ8OKFj+amGBzF8OhLxdLI4Mg0e/yJ4KzK5CPb
ashQT3VXSorF0XPbKRdqIxmWJE/W74vDEUNAO9mgnQzcfLdcGglurY+p6esl
wyeN4J0H43H00W1kzH6IDNRN0n9JBM9IavAuTZDh1E/eKYzgX61hu2MwMuzj
Wjeq9BBHPP4DFlKLZHizb459imARReXgsj9kuHK8kI/ot1Gyc5257FoKePbI
61kSnNXg4OC8jgIPdJ3CDxOcLyZwp4KPAoav7g9tJrjoZk38Cj8FTthQjr8j
1qtots07KkwBrcXJJi+Ca6U2VsWLU+D2nkcW3AQ3ele1DkpRYHvc0krY//fT
fmVYRo4Cz8w8q9jE/t/L8X53UqQAynIKB4I/3i5fW6FCAeaFiw7BhF5j3dZi
K2oU0D7cduUZoS9TiUv16F4KYJ/N3esI/b8HlerFa1Hg34Ps5DrCn6V+C/PB
gxSguV7sfnaf8F+Vw0EGKMATaKpwL5LQI/x5gNMRCpjeNk3WJ/zd/Nk8vvwE
BZx/6Eji/8+HqKeVR8wo4JDyLHAdkS9Ko6db485TILnvgKVvMI7UtZaGBi5S
oOFVp1nXXRwdnjRe63SdArH27fkGATg6qrsgWm5PAd3Iyj+X/In8SSbtXHam
wPFNJYHXfYn80f9+Ns6LQvTzbtNqnjiyS8+0H/CjwJjq7sGFmzhy+2YYIB1I
gbOHfnwrcMNRYE4qhRZOgfCT/PkdjoQ/Swfn+lMoYDGzANKXCX/OTHJKZ1Kg
eu7xMz2iXp8XxIs6kigglPrHyJioZ8b5scP/PaVAXvI2HfmzOPpAi4zbRqdA
cY2ByPARHGV80SyXekmBNG/v8UfE88J64/TAVkSBDkW+Ep3DOPrieFxG8i0F
suJqDp3RwtGk9LoK0Q/EfA1Zifk7cFRgQh8UGaLABaZWULs8jhzvOK4Ij1Lg
yuGf/mMyOGINvD26ZYbQqzYwb1CM8Csu6gP/bwq8NVjDh/EQ+VOrvbp5hQIu
JffLIjiJ5xmTKbv5HwWGqc99+P5i6NeRky4b1+XB15CP3hMLGPqzvP4Pr1ge
6JJo8XVfMbTBOXY754E8UL/F0SvFwFBHmu6JNbp5MMJeXJNZgaH4JrYrB+SB
+62GyLWlxHkia1L193geaBZR0h4Tz3vRDxuNVizyQPRfmL5ADIbkjz10X/DL
A9kC3u+5lhg6JJfEmK7Og5u7vnWWTrGRrKOl+6GXeXCbtS/0/AgbcZdu256M
8oAjbIJrpp+NurSLYg+35oEweTm1+w0bXTN7cyXlUx5E706Op1LYKOLeIpfh
KjH/yHU/mgUbdYxYnSUZ5EOxvMqR6RfEeS0vy/PzWD6MnTb6vuU5C6U6T9ca
GedDRJ+MqXou0R8seiksmOfDolempkoUC33fGPfb2C4f1nSr52sT/YLwoXrS
0v18qIxR3Nr8ZxZdztrOOteRD5TJP9Pv98+i1eo56tX3+WC4693W+8qzKKvv
la9rfz6EFo57qErNosGNlmvCh/PBwnBn6vG1s8jsXqx4BZYPNqe+0tB7Jjpi
t3BcYNNjCBJ7uq/JiYlU1Fsed5g+hgch3rlm8TNosdH58rHux1DbKSnoVDSF
qn+ZvCjsewwn3mQ0C2ZOoduqGus3fHwMPdart4sfTKHllF+VXWOPYYljiwDV
boroJ8M3XvzxGNYIOLkubZtCGzaTXrqIPAHBrmM25PhJJGv9XiLx0hMY+2tQ
nHN9Ap36oTX4eeYJfGLX/XMbHUPqc8/vnl95Csnn6tVFegbR/axeO/PVAuj6
J/ZRy+4tyjkdar4g9Az296GRwnuxoFw+FSop9hw+UjfjsdvawHBs7ouCaBFI
kEn+BbEfQEI8xKBvZzGMva07vHrgK1TsFtw4rF4MMtWap/8afwWTE/mDk3uL
oflCR8Ti5a8Q7Nfk+utgMTiqvt7/JvwrjPfzpkmcKobI00bnP3d9hZKkJNZV
12KoSb1ggtuOgz7f40dYcTHYxwy7XgibgE/b919ZpBYDap+rmXo0AV4Hm5X/
viiGt7VSyPnpBDx1nqnjf1UMmfX9r01aJ2BDqypzb0cxrKTOBAVtmoT+iMpD
AVgx7I4vMg1JnQTHv81T3GolIOz22qwxewoU1N317feUgJiY6ZX1pVMwdlk4
u0mzBBJqX3sa1E/BxTpbs3C9EtA6W+0fOjYFRnf/1XKYlUCSqDEZFKZh57J2
4opXCbB+NYQ8fzYN+GLxwXlGCQxa+6mMPpmBIsVzqWZ1xP3npE8IVM6Aw4Xl
OWpjCZzrkcV2v5mBL5VGT2+2l4D8rWLywa8z0OU9xY8NlYCu+7T/XSkm0Oal
p6b/lsARtvatZwlM8MaTEoaPlsI2Jb2zF4n3Q9vKuTs7TpbCo3ciIet9Z8Es
0NTBy7QUjonLZz4LnYVd69cf5rUohecjmxxoWbMwrRDC2udYCmWD+t5T72bB
2ubmsdjoUrDsTW0Z2ckCI/kOjcH4UjhpJB/qrMWCAywVKbnkUugQvZ8zbsAC
4dtTP6qzSuFmg95AzkUWdD6yoYwXl0JuZZS7RiTxfvzOeEWnqxSq9Esud35m
gXrys+mI3lJINc67pTrFgm1WPL3dg6VgA8ec/OZYsDzd+Mx+tBTIHxyZvWvZ
8IJTxyLpeylRfy9sn6qyQengjnKmUBlEtyjKFfmzYePztY7plmXAultayLUG
g8rjTjcyLpXBik/kURdeDGwmO65mXi0DUy7Bh/X8GJTKpF3MdiwDpLxbZJ80
BqfTlI3J/mXgsN3C/9RBDBLDTdUK08vAvVO4U9MDA225CpVn2WXAmJFQi/DF
YKxeVOk5uQyufLL71RCIwZ7lUeniwjKQfOJaxR2FQe8tLwEqvQy8Ty4HviRj
sOVK+s/qD2VwYcdnroF3GLxaWZmjD5VBcn2IIW8PBnaZ1zDGaBn8qBmhqQwS
8ferTNXOEPePiW45MIbB+VOvBut/l0GQgXd64E8MVpmyfWilDDTOuHPJLmHw
5H5kd8O/Mlh9tBBdsYrBYuPp1tfrqLAi49SXx41DmvbXmhYxKtjqBG15LoqD
3uCx6rdbqXAgXm2pThKHae+iilYZKrwT5BlrkMbhANW7uH0HFbrlzKiJSjh8
VOQhdR2ggmhz1vqLmjiEvHHJ7NalQrJeUtOwNg7K17tT3xNvn96WQrfOHMIh
ICfjYe8JKiwE6CT+NcRBcotqyKAlFZQLNV6Fn8FhqvXpRnUbKkgO/22pNseB
FiybGXmNCv0PCkL7L+BwgiVSsd+ZGA8K+9N9CQchSqJenDsR/+PLtaVXcPhy
ge/dhCcVtv+5Ku13HQefRo7J5DtUOFrQ29figAP4B95iBVPhwQ97uTPOOGxQ
+7VqEE6FzpsOm1+74kDJYIvMx1JhpIeMHG/h0OkxeOIMiQpnp7+bVdzGIUPx
bH9BHhVMs4JcE+7gYDf07trfp1RQfISLW97FYfl4Y0BpGRV8xKx3FNzDoXlV
l4f7BRWkfn+LVAvFIbGiOtmGToW3zele5DAclKRLivkaqPDmxJofhpE4zPcp
ad9oooL6mg9hPvdxeBWd11TbSgV9OouU+ACHKJA6K9RJ7JflbpgehcO5xbQR
5x4qFFfmeURF4yBdLOjSOEAFm/ZBBbsYHFjX4n6Jf6aC6x336ztjcagSXRd+
6wsV5ssGFIYIDukI5W8dp0Iq/vCmXxwOp8JWs2VmqPDFUllvlWBRbX9lfzYV
KMX6j9zicRjH5yu75gi/jtx3f0tw6WM3A6UFKgSK0Ds2PsThttVMZ9ASFfKq
KbRDBB/lt7UeWKVCjqWsBNEfQ5TtTe80DhoUt2zn+f/3ave6Yp3XnDQAjyf+
RH8N5uKz/3AuGvBZl7srEqztrdQisY4Gi7vsmbPEetJdN+KOrafBv53smQyC
uVTyzD35aKC+P9htL8Gs8C/ipE00uNLs5FdNxN/9ZetoKz8NeJa4eBQJrtSx
erogSAPusFdbg4n9Z6WkucoK00CvipfRSOgVMte3x0SUBub3vIbmCD3tjQWX
/MWJcefk+7wEGz89Xf9YkgZDaQK1fIT+GhxxEd1SNAhoeeL3H+GX6KU24xVp
Ghibidb1EH6uVPEI7pCjQY/ioYcpETi0uIaSghVpION7uv8TkQ8lLfU3inbQ
AG/XOmUTgkOS3KrKoAoNNsi/M2sLxsHmg1+1mjoNfq/L3ngjEAfDvZV3rTRo
oC9zpjkhgKiv+HnDyL2EXiYUwUJ/HH4aunUPa9EgyrjaJdUbB631arkT2sT1
vK/YSZ6EP924G+sgDdYn1LcEeuDw95LHhiU9Gnzn4E8UI/Kf19fr2JYTNLBp
ak73IOrHWHefsORJYr83Tgh8IOorfs3CuOwpGiiU5X9TtSHq76FviPoZGkzQ
KydIFjhIFd5+edKSBuvk7n3NN8bhirtOjJkVDdpEKmt9T+CQt2/5ouUlGoym
J/FqHSXyvyHwl91VGlQKxG+4d5jQ81PwnhBHYr4Unsm9u4n84YssrPYn/HW/
+1ueH4f7Pcf86gJo0BnRrtq9AYe2dJ5jTYGE/hKqK448OJxWiBrvuUeDSxst
/Wz/YHDxcOw2/AENti6b7A5kYeDmkfRIPoMG8j22VnqNGJRpmtvuzKLBgAir
oOklBvMrQnv25NAgnvyoUbsaA7+olC49Cg3SDB3cWEUYhOSlr7d+RsQTpfvH
+xEGKX2ke4kMwt/No9by1zG4NVUjGl9Lg2veFS+eW2Nw6vdAafQrYr8jPu3S
5zHg3Lp5OKyBBsFbkMHAcQw8bYO1fVtpoGgR3OatSpw381fmrT7SgMlP+X5n
ng28/LI35JdokGz1xKLnFhsmZQ8tyywT+WPq8+2AExvQ3otJUqtEPZg0fYi/
ygY/i0QkwlEOLz/wVK47zYYpEocUL285qAnpqezfyYbXu772Y2LlsHe186PP
KAvuGucfrz5QDjF6nljdYRY4O7UpftEph5o2E6k9e1lgcf87F8+hcqj8K3g/
SYkFGq/13lzQL4fG9wxlSX4WTOkMwaJROXzq40w/NToLp1WEdfZbl4NUak6h
1t1ZkOW9r1pxtxzaNJw73Z4x4U2zs0BZYzmIL1v9udsxDZvPCC/R3pRD4OWB
gqy6abj4sX70RXM5bNhrL1tUNg0Yawu1pq0cwnm2PM9NnAZhgXrT5h5i/qvt
YqPnpsHOWih2+Gs5iEY5NDR/mAKuuVpuPs4KYEkLUW8OTBJ9zcYVR8MKWFD3
prsXjYOihyfzZ2cF+F69E2ZY/xn0SeW/DMxegO42vLvgbjfklzdt5Xz/AjhU
BJ/utCuHG+1ZR1KsK2E5hcrTdLUBXa09FcccqoQvuhfpUYl9qLYMfdjsVAVc
aTFcuWtHkUK7kY6mSxVcV+B15FcfRQlTPVmX3KpAPwpPcLk4iuykJi8/u1UF
Kz26r0ZKRtHmGN5Jg4Aq8A2vk7TeOYZs7c9+94mpgqJMo/a178cQn9QE71BJ
FfRVet04LDSObKJ5DhbOV4GCltOLPR6TSEFgy5NnP6vghSx37eq9ScROk9lc
tFgFaftC179MnER3nmiPl/xXBZwaKVaCFZMoA7nEVKyphsq4MyT5hUnUt9j1
uU6wGrh21LYM+E4hY9v0wP491WAZp8Le6TGNhGYfTw3sqwaKqnnsqeBp9MmD
duaDZjWwyX0HrsRPI6egNvnPOtXQqxiRaFU8je5nrLwbNaiGR6SlQ4XT0+h1
11Up9tlqeL39S2ia9QzS0VWuW+NFrN9dEHf/ABMJdYGHuk81/GeCzS8eYyLW
NUu5S37VEHqj9PG580yUc/9+ZOWdatC/9/b1p1tMxNE7aeoYXg0r2Zqd/M+Z
qNUp70tHSjVEVBbskhSdRRZpkhwZ9GoQrT+TdWN8Fu1W2VvRVFMN5/cEG0R/
m0W8r07azb+shmTL6H/Zy7Oo9uvtVuOGaugZ5yNFCbGQtNqHxD+t1bBl8xOX
IAMWmnrzSO7G52q47DUy2ZnNQj7zG4+o/6mGzsqukR4DNiqaK/yj+Y9gmato
ypiNxnBDxuE1dHiIfp9gnmMjE9ZtNVNuOjTa2x2osWcj+YlJMbdNdIgbjJ6P
jmKj3v5X2PNtdMij2G0Yb2cj3j7LwnIZOpRFhTSP9LKRXs+P6zVydDihod3z
9jMbPe9U/tCqSIfEEYcWBxYbhbSkNM6o0eGwRympmxdDuxluaYp6dHATvdBv
ZIghu+p1Z9X06aDCrWux4ySGsirz+TQN6RBqHj/y8wyGeMo/hhw9ToefBjps
i8sY+vL8qOuN03SwUroXd9QfQ3HZUvp5V+jwzW7RurYQQ68z6cvPrhHzCyoe
9y/F0FK6eRXNlg5a6X9/yb0g1kuJ2tngQAcRP/Ns/XoM6cYvCI/epMO4QXBc
fh+GWMEds1L36EDZLLrj1zKGalpfu0mG0qFte+m03z8MRQnVzImF08FhMHRu
ai2OlAqeLgo9oEN2mETvw404su0MXrM+gQ7GboNJfNtwtEfMN4IniQ4/jk6c
/SuLI47rruu4HtHhkkPF8VEFHOUuWG76l0YHb1nlZtddOPq0dY/EYi4dxATf
DpQdxNEz+x05Pyh0KG2cWxHSw5EfdZvM93w6XOEWO2ZvgCPhIxsU2QV0MIs5
rd1/AkdmLhMaX8sIf7gM3YbO4Uim8tOLLzQ6RLn/9KZZ4Ojbn26t4Qo6XObL
SvC2wlFc0qtDH6rpsH6T0OqbKzhqZaQaddbTIbBRNijeCUfpnHHv2hsI/7vy
f/e64MjBJIxo0OmwxqIzgMcdR1xjN8+/aaGD50RzwgFPHPWp2H9oaKXDtD2X
nKY3jvK9L1nXtxP62nRUyvriSH+d0bWaLjo8DjYfbbyNI/6zehPV7+lgIPDJ
2/8Ojr5k7Xeo7CXinQrg2XoXR3fV5dyog3QoURDevusejk7dFpsr+UiH1EW1
55khOJJ8vcmr6DOh56f8nYuhOGJcWPZ/+oUOrnWWEn4ROHpA/r6cP0YH7QMC
kdmROLKYnQ6ijNNhiC7MLLuPI8V9Ixy5k3So5a4zoD3A0cLdvvDsaTq8Y7sm
kaNw9KaljSeTSQfugwmDd6NxlCzQEJ3GIvRtJgsYxeDounX1xhSMDnRnOVgT
iyONJyUJSd/osMzz+Pozgv/h+UIJ34l6iqj3PxyHo64DmalxP+jwu1s8tIFg
UmiCeMwCHTxGrgfticeR27vI7Ae/6LDu2Xm3RIJ1Re5KRy7R4cMeuukIwRuu
euWFLdNBPsJaTvwhjj4+c1IIWaWDL1VyRp/gwh9XCoP+0oHx7kvu/7/3Rhld
8yrgYMBgOuenSwQ75V4/3M3JAOH5oF5jgo0WbHmXuBhwW+RyrALBysZ2fbLr
GKAc+3It0c8iXop97sn1DLgo26RL9LNodtHB2YuPAQps2j6in0Xtp5z2Z29i
gOvJd2yin0VFec7/3vAzIHvM1U6J4JjfLu2YIAM8ScukEEIPV1O3VBFhBhS8
+JbRTOhn8tj9mp4oA4pIXRcWCX13/XdT1VGcAfukNAb4Cd545tavBEkGfNZk
iIkQfuBPPBsZUgygaG2V5ib8KjPzsdwgR6znmxDwlPD7YYHv9n3yRHz5F95f
CMeRx6offkmRAdpJ1759J/JD41lAeKkKA8y8LSJmgnEk8PfO6UFVBvA43fpr
GISj+XN3Jf6pMUBGTu1odCCOKv4FU832MkA1P+XAoD/h/4WQOwH7GcDvwJwZ
JvLZuzj0WL4WAywnNZy7iHzfbxkx9PMgA+xJmZOeHjiqKotel36EAVKO8+xa
exylccX2omMMOFBbaCZ+g6hn6zgS8wQDPBJ7Hl27hiMtnoR9B00YkCZ4ra7c
msjnyylXR84z4HLN8AeL0zjKeJG6k8eSARP8Oi58p3AUsD59Ud2KAZKi57Ei
ov4PVmXGhlxmQN772LYifRy92kimyzswoOslY3fZHhzl2FLCTJwYsPWg5YNa
NRwFMfJMfV0Y8HK4daJcBUd6dk8mWm4y4Bfqqr4uh6OGl8/5XfwZsPfIWckW
fqIeXCodaVEM4Hz7jfqEiSGOXTq6lTEMaDVSvF03gSE9vG4zI44B8beHVJq+
YIjh8bYKJTLgjOgJi+x+DJX5fF7bnUHk3yZRNU+EoYxgDgr+jAEiNz3e1iVh
aBAiveeLCH8SeKqrYzG0Zc2GE4slDGj3P9hMisTQw/At31ZpDNjG13ZeKwBD
4VFKhzbWMEDinWJB0lUM3Uw2+bizjQFRzITHC8oYKjnXU6z+jgGj13yCe+Qw
NCtscW9vJwNQt+GrHEniPEi/qnSwhwGKlEqvv3wYssrx8jn5iQERLYun5nA2
OlqQIeA0ywA/mYPDMWVsJFk7afR0fQ2khykJdW5noz9BXJJTfDWwrt2711mc
OF8NFNgKm2ugvnTu5vwmNipouxH/RKgGjF5rXG5cYqF9n8Z7Hm+tgehD5N92
nSxksjRmna9WA1nzIpTXXiwUpDXiRj5bA/q/lr+Lls2ia8urh0fP1cBLt9PH
ZfNm0dF6KX4ZixoIvE3KEUmZRRuO25TnWtfAsUPzPk0BsyjtwtAi6QYRn9jO
xX1HZwm9PwXn+NYAd85ltxsDTJSk/d+ZYf8a+Pf8KGPPWybyWRWXk7pTA+/P
7qZiDCY6GHHxTXZwDVjOFbQr5zDR20cf1mU/qIGrjLiftdeZqMjy98fP0TWw
XTyld86ciR5uFSuSjKsBZbdzdMGjTHT+sYVJVmINaI3ebJBSYqIDjn7bPifX
QJ7VzlVuMSaSVE37JpFaA3zuNm7D65joz7cqZJVeA15hn6QoSzNorGIgMTOT
0ONxhMTZ2Rn0P6Ha4F0=
          "]]}, Annotation[#, "Charting`Private`Tag$651660#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVmHk8VO8Xx1WSsmeXLFlSfUmKaHGESpK02VJkyZZCCG2kkuyyr2OtbDOE
GSpPQpFQFIqQfZkx90lKJL/7+2fm9X7dO/Oc53M+5zznXnn7KyedVnJwcDiS
H///zpmq9mkNlddlW3mcii7A4LZS9FW5CAcYpBd1hpH8SyKQFi0iCDurm08H
kEynTXK8kZGA0t8fu86RvC+vWOWWiBxc9/9stZtkac8RsxRJRdimxfy2muSl
vdIBFTIqILxa06E5H0P/mtPZ7Qr/gfqjz5PBJA9MNjr6iqiDiMuC13aSP7R/
n18prgHvRroWP+ZheFW5FBEjuQvoBvmhriTT0iTlZaS1wDO5QPRXLgZKsGZl
kYw2JLdvKrhGcozziSM68nvgWamLzkwOhuBjHt/eKOwDdmdruxXJZREdK71E
9OBp7uU1gtkYCm8PvqeLHoDf9deeWlMw5HjPJP4T04c7onvNUrMwxFmu2xYh
aQj/rneVzGdgeHhUYq5D6iA4vy53Eif5jq4ykpQ+BNbpJxS3pWPwVtQ/9VjG
CDzytjJ2pJJ6ipttnJE9AuGVWVGKKRjs150f3yVvDF6yxy7zJmM4RQRcf61g
Ao2TQibPEzBI9fd8vCxiBjc3cScmxGBI7B7QWp9gBh7sT+/UozGs/ziWVil6
Anjt+QTqIjGsa/jp9FfsJBy5atP86iGGhaeCC2GSpyH/+Ha5/Xcx+OWK26qm
nobalNGpoDsYfqTLNHyQOgPJnOz31UEYpqL/ixKXNgdnLc/edTcx9PoabcqX
sYTArb36W30xWF45HmqUZQltKwonxK5i+ORizpyWtYJZ54vUeU8M7886VmnI
W8P78bm8tEsYXhwIMn6lYAMJn3gtbB0wtHHZVHuI2MHwb9VNA6bk9dUHPFSs
7WC7nH3d0FEMTzmV5Yez7EB2v3nVFyMMd1cSDyy3XYCHd9wLs/Ux6PwLsTTQ
twdr8dbFFE0MeXNFvyU8HcHlzCcnNUkyPz9jijorHaGi4NdtF1EMt2d9baMW
HUHp6wvxRCEM1hjergp1gkZ0paVlLQZBVmfiTMZFeBnAE5/9h4DrI4uaDS0u
kGE6YvKniwCX4cHJW0KusHiUL/9SBwHmQ40ZOhausNd9rKizlQD1wejV1CFX
6LPa0nmjgYCxXoXPKX/cIITj0sTeMgJOdh71ubLZA152yR/3fECAyPdjVpF1
nnCVN2vqvSoB1mLX9m4Y8oSudztuKKoQkHWUsvHpSi/oeaf70msTAVurfnxv
MPAC8V1nbVhiBOiFJ7n9bfQClWZVZsc/Nrhrfr/u/s4bZoeKPxLpbHgd5pN5
pNMHbD+0npR6NwPcKCOoe9YH8hfNXA1fzMCxn2/snUR8obe0ctC6dAZ6zktu
Dj7jC+m4SvRY3AzM7KylMrp9oaTROv6w1QzpvzV1m/v8IIk2M5U+zAIvjbTh
1aP+oJvpReeZYoKRfMBRgjMAovX1ipW+MkFO0OLZV8UAaNAfZ6q+Y0Iba30I
1TEACNUF/7WFTNj69OEmq5EAyDiw6yPLhQkjsoEXiocDQVtj7zGf4Wkw57Ma
ODl0A4oY9/+8apkCGZ9wVvuVIHiSo8aN3CdA7H3HBdngIAjXePEfn/kE8ClK
dV2OC4L2nLXoiN4E/O18UstXGQR+mS3uUSIT8HXnm+ijC0HA37Ui+/CLcUiY
5dB4ezcYGA3110O5x4H3qp9fbcodoE3x3KLGj8KC14Xl4vq7kKUyL3H29hCU
buGXSGt9AMGStBI1jx6w4Ow8JKkWCbszRsLbr9dD2gNxMZGXMUAPwKGVvhXo
97Q6r2JtHGgn6NzXbOpAbXbmfDem4sHwmUjbFvtBFKsxHtuHE8GV8idYDsbQ
vryLmh//JEJ5WpTkndNjaEJ0rKdxRRIoXGAJdbmOId0/I7JUoSQ4Wr8an44f
Q0w0VBK8IwmurXD6VzwxhoyO9TcreyWB/Yo62edR44jD5fMKLyKJ7LuP4n63
T6DiL6fzneaTQI6ToyJieAJZHP1kZM2RDApzmQXrf0+gUrXOaAPBZIh6/qWd
2DiJbOY+bBRTT4aEY6LjP90mEePOe53nV5KBf5P4jNDKKeSZUe+1mp0Mx40b
g44rTiN7uKL5+HcysI4upF7cPY1OfZf6Y8SRAl7jiVvcjKeRlpJ3UIRQCkg9
8vPQ8pxGi8Vy0cK7UmAhfVZkqGYa3X9xs1g+IAU0k+l7Ak2YKKN39/j+VamQ
EWmYdMqOhaJuDhcO8KQCcy5zYMCThYJkoy8Hi6RCl7rbKotgFrJ3GJtrUEqF
b2vESlfnsJDKdDyniVEqBCZ5GDkMsVDFApa3jkwFyvkPD0RtZ9A7yWIbP/E0
mOF2Vl5rxEbbXZ3078qmgWa+iwj7NBvFM2RU4janQW7LKfe6C2x03iJ2tmR3
GgR9/b5z23U2mo33ezhqkQb9Yu4n15ewkbTgAcbp5DRomBNeEc9FoGDbhQx7
ShqMPu9zd+El0FjpsxDPJ2lg4fetVWM9gWjHlI9HMNLAjCLk+nQjgQzDecbq
e9JgidMreeMuAnlwdQnvlEyHDq6tH2VsCdRxJvqPnnw6mC03rTvhSCDtfKMB
0y3pcG7yCWeAK4FWGj4vdNNJB50ak/8KrxIoMZhyIMcqHUQUfX7EhBKo9q/b
FaHUdLhmOfnUo4RACiaKZ2Rz0uFM/AfvhTICPUj7tke1kLx/0rXlRhWBTu4x
4zpSkw7/7Lzl7BGBxq9pZgR9TQdp13u81A8EEpxdfseWygCf8rik45hAz71H
PxQqZECo6OvDoXMEuvjjXZfTfxkwMeR2p/wPgV7ghKHe/RnwhI4fDq/AyIXY
tvDWLgPws9MJVCGMhD2FOEJcM+Dyh+iDIaIY1bJ/rdb1zoCepQYXY0mMRNh1
QhUhGaBezbtULofRK5bFFkpBBpiqZQux1DBy99i//Sw1A7w/LPLZaGAkxtqk
KcbIAKaurEutJkaXmCy9iOYMuDvZve3cPowkpkMs/ZkZsKL/RcnKIxh5TlBD
zTQyoWHMOGvaFqMNLgmRPHszQaljt320PUZvxgMfvTHIBHeHu7bKThhJjx/M
2ncmE77FP12h5oZR02hvlYp/JujwqZXlXsXoqlPdi+GgTGg5Oyj83RcjmdGC
15lhmbCX/SpHyB8jnxGvNpG0TJjie6xrcgMjueE1Yxy1mVAQamq4+S5GLfas
6edvMkHKzf/b0j2M/IY6sF97JhQdXEh8G4rR++8ZS8zBTJA1bnPaFY7RtQsh
q55MZoK+Sbp/dwRGm767rHX4kQkDi9UFHlEY+Q/uFP2yKgtMDxiaXY3FSMFO
ckM8bxZsvebfPBSHUdvAP7njolmgnh5udTAeI8WB5v8albOgxuBQzXAiRu3n
qRpB27Ng8+EVYbLJGAX2x2vv1c6C+X2v3UxTMPr4zdaw7EgW2HmNOtxLw2gw
vNzd4GQWZHUp1T9Ix4jQWf3os3UWeBtrFt7OwGh53KLG2YFc/6+jhFsmRvyJ
hd//uGfBKzY/n1EWqZfhEneETxYc+5cQKknBSPXHcXWZm1ng2+UU2k+yienc
Lf2oLHB4XyNikIORzd/DBZ8Ss6DVzyB7iGT3wtTWi1lZ0MwpXeabS8Zryfo5
/zgLLpn3Gfwl+SGXnnQ4jYxHQcnKLw+j1Io4g43VWXBzMYsYJvmp/agbtS4L
zh5aXnswHyOGoHbcgXdZsMvwX14KyU21D6s7O8h4+S7UfSe559K3QafeLPCI
/3l+YwFG41Lq3PPDWRCaE3XThORfTXe2P2RmgWUv38YrJHNd+2wuPZcF2s+t
9t8jWVRJ5VbpUhYUJNn3R5Ec5/rypNwqCphmyXNEkJz66uJF1zUUEPyanHOD
5BxxwcByHgpwbOlstCO58HJ15KIABawOjbhqk1zeaJ9tKEIBv8aJqFUk10jz
VkZKUICxnkvzNRlv3dXKpi5pCnhddbPx+f9+3p3vk5WnQPXqY6ulSP4gz024
KFHA8hVr+zNSjx7/slXlWygQ6p3QByQPtluLL6pSoKk+gecVqeeEMuc2Qw0K
FOw88nInycTNEt1ILQpclxT+kUrmY/6T+cmuPRTYlGdbOJdN5n8bx0VZoAD1
S+6YAclcIU8DXAwoIJd07vE9Mr/8X09Glh2mwO9oYVbN//3wIL/CwIz8P/Xn
azlIvygPmDZFnKaA/6Wx7wKkn9S05ns/W1Ignyf4gDDpt/0jxqtcLlDg8Kue
lJ+kPw33/hQrcyL3yycW30H61yQuY+uCKwUU/quXyEsi/aNHnIjwpsCsdVuD
fAJGjkkpTp/9KKCkOctqfUT2jxn9AJnrFHh/VTTfg6yX6+kJFFoIBQTy9epC
o8n8zO9hf4qnwPfCvDblMDI/x0dWyqRQoPXt5N0rZL0+LYgUc86gwG3NmY9F
ZD0zTg/u/5NPgQCh/ZrLwRh10+5FbKRTQHFE7JBQIEbJ/Zpl0s8pkMY3HrKB
7BfWvGOfNyAK1HJULUv5YdTvfEhW6i0Fhq0PVv3xwmhEZk25WDcFwpXNDLRc
MSowoXeJ9lLg6m3+hKmLGDkHOi+KDFAgu+3C9nhHjKY+vzUUHqeANjPa4C3Z
74iIB90CvymwOvm3cMkZ0j812n/5F0k9v0l/4jlF9rOJCTn+ZQrYZghP2pqR
fjY44sa7Jhv0mwUlJowxWlpYu8Qtng3Upd/V/oDROtfwTSt3Z8PLJWdKujLZ
rxL3Hl6xNxsq4i4Gn1DAKLJh2p0DsiFoNPXToixGgnImlf8OZUOmxNAXdbLf
i3XzGi2aZ0Or86o0aR6yXx2M8vjplw0GF+JH/zIJtE8+ljFWlQ1dB/nP4ycE
knO28Nj3PBsCptf8+5lLoNUlGzfFIXL9X/PRzEwCtWkXhu9vyobj12yT6fEE
sjOrPx//JRtexwTkvrxNoLu35zj1/2bD8IbdKyJPEej9N6sTGQdy4Ijk2Kai
ETaiKchxzR7MgYHf3ma13WyU4DpWY2ScA7la+Zdq3pHzwZy34s+TOfDQri7R
g8ZGBG/Eb2PHHPi45sfLV4FsJLKvNmP+fg6InrJjb+Jho3Opm6ZOvc+B429u
/5TZMIP+VrGpth9yoKCN44Yn7wxK7Xzh6/4pBzLay3ipSyzUxWuxIqQvB248
YV+eHWAhs9vhEuXMHKB/CdNNzWUhA8efhwT5cuH62djLLptZaIvam9z3x3JB
IH081USeiebqXM8dbM+FMNXHzfcGJ1HVL5NnjztzgRr/uvFDyyTy36a+dl1P
LnRfO5fHTZ9EC/G/KtoGcyGQyTgEkZPkPBnCa/kjFwibko5m7Um0jj/juZto
HhxK9n93IWICyVl/kIw5mwdpArYb+ZXH0dEfWl1fx/OgYdb64LrNI0iN/fTG
6cV8eFG/xztQrxfdT+1wPPm3ACw39SRrEi0o3TT45M/1T2CzR9ziqksxoFI2
Giwl/hTUrPT5Ty+3gv4gu19RrBB6B6Uyj8v2gaRE0IHOrUXwOkPX9kPMCJRv
F+LtUyuCiavRpncfj4DJ4ZyuEY0iWOG0xmhb7Qjc8mtw/7WnCIjcFLmT0yMw
9Ik7UfJoETB3m/atODgKxbGxU7buRVB74arOt7lR0OPJfcQsKoIdhgLKCsfG
4cumXefnqEXgpaR+daP9OHjvaVT596wIqgs3iKy9Ng75ruMvBV4Ugcj9L9IV
lHFY17RtQuN9EdixH/dZzI7Dp7sV+wKYRSDqwvvuXcIEOP9rHF2tWgzPriv/
Wt0+CYpqHnpOO4qh4sP530+HJ2HwnEhag2YxBJoHDO+ZnwTLl/ZmIbrFsNLp
FSjIT4HRjeUaDrNieLw1y4HXewq2LmjHLHoXQ86ft7Y7BaeBNVe0BzOKQTZq
le2V/UwoVDqVYPayGA7X8/vGH2fCxTMLbGpdMWyt4S/Ju8CE/gqj/MvviqGl
uObY/Xvk89rVUQFmbzFQbjUMmrxnAg3LjI79KwZj8ffzvWdYcJUVG91nWAJa
rr2hhZYzYF/BDtx8pAS28vIc7XSeAbPrxy56HyuBme5bPmN+M/Df2rX7uc1L
QGXYvb0lfgbGFIOmdjqXgKfekZux7TNgbXP5YHhYCdh2mRct67HBSOG9eldk
CSTyBbGbTdmwe2qLtHxcCfQKfZm7acMGEf/RH1WpJaBYq7Mp9xobWh/ZUIaK
SmCHMjdrsJgNei3GizptJeAw3ccbu5YAtbgnY3c7SkCjr3btawECNlpxdbR3
keuHxWeMixKwMFb3xGmgBJIfF/kLks/bz1bqmMcSJaAvb3i3R4cA5T2byybW
l0JfWMMRXWcCeJ+uck6yKAW3zfRVB6sJqDjk4pB8thSQRUkf9SUBNiPvbVNs
S+EKbdpG8DUBJbKJlmnOpcDc5WtU/o4A00QV46xrpTDSERMc0EtATMgx1cdJ
pcDzowiEFwnQli/f8iStFApMHpl3/yNgsFZM+WlWKfDp32LGrMSwY2FApuhx
KXQIq0eMrMXQ4ektSKWXgoHkZhs+CQzC55Nmq7pLQSty1MZBA8OLxUU2vbcU
rkVwnr+licExxY7JGCgFgS12L6K0MVR82jJaM14K62v0wqJ1MZw++qKr9ncp
eJnrqQsZY/g7IdeJFkuh2ZY63mWCIe/+vfZXy6Ww0oTFij2OYa7OtOn1Gip4
nZAeHD+NIVH7e/UbcSoc3PFYVdgWg27Xwaq3G6hgtBuphlzAMHa1sLxJlgou
JgNXJhww7KZeLXq3mQoCu09WxLlg6FHiymjbTYW9B3aIXfTCEFTvltK+lwqi
QWH/bl/FoHKhPeEDUMH+a8vGaF8MAenJUR2HqaB36d9iRAAGKeFtQV0WVMjw
2ii6JhjDaFM+r5oNFcb/Te0i7mCg3ZJLuWdHBRq/Ter7uxgOT4mW73Klwtup
JnXbBxjWU2J0IzyoUDO3zVb0IYb+Mzwtw17keitXtNWGY/Cp4xiJC6TC5bua
LtNRGODadc+pW1QYtDwUezkGwzrVX38PhFChdWbbr5FYDJTkaVEcToVNW3Sv
FMVjaL3Sdfh4BhXOneRclZWCIVnpxKeCbCrcebk88zyVzE9vi92/fCqYLZ4U
eJ+GYeFQXUBJKRW2rZ+dbMzA0Ph3L9fqZ1T4ofshh5qJIaa8Ks6GToXhMaXI
iCwMyjLFRTyvqPCaVjcrm40BdyprOzRQYSBj6HIXyS/CshtqmqhwIWOHZFAO
hgcgfWJ9KxUen9v5QzoXw6m5xG+uH6nA0+/7p5hkmSIht7rPVFC7EqOmnodh
yi7il8RXKhx9phBbQHKl2JoQz34qBGZ+kRPMJ/P1PligaYgKTD+nb5dIPnrn
b5rsOLn/zyFvXpAspn1N5do0FZTzFnqXSR5i4Yo2NhVK5FM2ahVgKMm9dED5
JxV0+neH25LsbzXeenOe9NNLhiI5/4KhgL31579U0J/jmgon+YH95auJHDSo
FRDvJedn8HhZpPN6JQ1sJsd+3yX5pMTkMouTBt/LbupdJln7qvIbyTU0UGZO
VxiTLNPmEHFwLQ0ELh89I0Uy55bsk148NLhuh+S/kfFNhfRLZPDRYDP4SD0i
ub1/w0CTAA0ie7JgH8kVOlb5P4Vo0HgsOLaH1CM1PtFdToQGRusvCLqQHMTu
3GEiRoPm6ZgXU6SeTsZC89ckaPALuyfakWycb1qbK0WDHVHmmc1kPtQ5Iu62
S9PA9HrtJyWSxc42Gy/K0AAapfb4kvlbrOQS2ixPg5qm6TY6BcMb9+CMW0o0
mOaQDhMj81/8ptahcDMN4m8XUjVIf8TK/93StYUGbca83Pqkf2y6/apU1WjQ
gPhP7CH9pa9RccNKnQbdKlsMFEj/qURi/XsaNJCzWee2nIxhVv9Se58WDdbO
BFrFJmLQWquaOaxNA/oQX9C5BDI/7axLU3toICufEyJD+vvf2Svr5nVp0F64
pHib9D+3r/dB4cM0uMBlPlFD1o/x3p0iUkdooPknkV+NrK/IFT+H5I7SIK5t
RiLx//UX5RukdpwGCxWz3wzvYZB+7P/8iAUNnmibHd54C8N5D52HZlY02Pha
pHj3DQzZOxcsLc7SIESgaelQIOn/V9d/OdrS4PMR5iVDP1LPL7d2BDmT1+dN
Mms8SP/w3HtcdY0GKQve9xKsMdz/eNDvZQANVt+ZPLtsgaE5ietgw3XSH2Gg
df4MBlPFB0Mfb9Ng+NKepQWy31nuD9/ICqWBD289Z5khhktXYh8pJNOgWCvj
keB/GEo1T9pvTaWB4jbh2y0qZP0trt+xI50G70VNI64rYfB7EN+mSyF/P3VT
5LkM6Y/spLXWT0i99u2SYAhiiO/MuB3DoMGhWPZY0Q8CPEerxSJraGAbX/i7
dYaAo78/l4S9oMGy1nz16BQBKzfw9915RYObXz/Z/BoiwMv+lrZvEw04XlXY
pneQ5w0+j616yP3si49eohLALSDnoDBPg4v11WGbHQgYkdu3ILtAA+P6mUHO
8wQgDctY6b80sLjWdaDHkgA/8xgkylEG7avPqV4wJWA0g0Oam7sMvjB+cP7V
JuD1f98/McXLoMPVMcmSl4AbxjmHqnaXwUah4xLhFmxwdWlW6tcpA57olAfo
CBvM7xOcXPvKQNQ9KeLbXjaov9atP6NXBuhM2LUuWTaM6vTCnFEZmDm1zL4Y
mwHTLSI6u6zLoOCHRpST5wzIcd/fVn6jDFhYr8nzKgvqG10FS+vKwGCgMGtp
zzTwHxeZp9WXQUR3P0VryzRY9tQOPGssg28nVGnnxaeBOSVMrW4ug6wHRUo3
ZqdARLD2WOPHMmgV9ytgFU6Bo/X68L7vZaA52jBbITYFnOya1Twry2FNavV1
5aEJOCjBu+isXw5/HBOLDY6OgdIVr4nZ1nJQK5edWYcHQC+j7NcBs2fg+dI2
s7a1A3LKGjas/PAMPCiPjyU0VoDDu1SDeOsKiIlsfxETVY9sa45GTPRWwF5L
F2HJ892ophR187tUQpnClha/e0NI8Z2RjqZbJeRrhN1uzxxC0aMfU89eqgQF
msKMFGMIOUqPnHviWQmf3v4oC5saQvwPuUcOBFRCaMSNbw2mw8je6QTh87AS
5sP3qeeIjCAe6WHu3uJKuCTA0LiVMIpswrj2PMaVMH1TZX6tywRSFBTOezJb
CR/4J/Mkbkyg6URZ/sK5SviT+F5eImYCBeZpDxX/qQT5Yy7Wk/QJlIzcHpav
qAJhz98enVyTqHOu7etLoSqgPeT2e549iYztk65/2lEFy7+b34S2TKH1k7mj
n3dWwdfMuq0p36bQlyu0492aVcCh0j6Swp5CLjebFb7qVMGBhnA1V+FpdD95
sWXgQBXsV/Uc2m89jV632UpPn6iCzgMe+6tGppHOXpWXK7yrQHY1MzCZyUTr
2+CKmk8VhDvUq3ctMdGUnYX8Wb8q6BOD1//4WSj9/v17FYFVsPhV6ZDgDhbi
6Bg55hxSBU4fFK/t9GGhJpfs/vfxVXD+G6Pvyi8WMk+U4kimV0Hj0sDU5akZ
tH2LRnlDdRUUKquuwfMziPvFEUf8nLz/oVmkzRo2qvnu32T8qgr+nJMqYSuw
kYxqd8xSE8le1hKrbdhotP6RvMPXKpBskaobfstGPpjXQG2pCrKz1/iKHSZQ
IfvxkuZyFVQSrw/cMSHQIEufsX8FHU49digfPkEgkyl/1WOr6dDTVuIVakMg
heER8Ut8dHh8Un/dSS8CdXx6wXy6kQ7l28SaiGQCcXdaPC6TpcP1kX2HKzMI
pPvxx4VqeToUBxVrXckh0NNWle4mJTqMjLlY1xcRKOhNfN24Kh1M3gzaM18S
aDvjUqKSLh3y3A4t6A4SyLFqzQlVPTq4vd2vaDVCoNSKHB5NfTqElSTFukwQ
iKusJ8jwEB02aG/+z5kgUP9TQ3cHUzokS8hLDS8TKCJNWi/7PB0Ubc8/75TG
6HUKfeGJHR2GcfNPPTmM5pNOVtLs6eBz8e7RXAWMHOMfbH11kQ6SB04aHd6K
0d7InyIDl+kw3t9iyLsbo6lb7yelb9NB3aIj/IEpRtVNry9JBdPBb9fQT+0T
GD1YX80WD6FDd/yn5v5TGCkX5M+tD6VD/no2bZ0VRvatt1asjaZDZY2R0bA9
RjvEfe9yxdLh6M7IEV0njDguuK/hfEQH80n/wWhnjDJ/WvAtJ9KBkpaLhS5h
9GXDDsm5TDo86NM7leiD0ROnzek/KHQ4kRLxJt0PIz/qRlkihw57aoajkv0x
EjFYpzRdQIdM5ndJzxsYmbkNq38vpUMtrWU+MwQj2Yovz/ppdHCK+zF7/B5G
M0vtWn3ldPi+duveX/cxioh9sa+7ig4OXs1PNz3EqImRYNRaS4cPD7azFqIx
SloZ0fLuFR2GatermcdidNHkDjmgk/orlz4riMOIc/Dy6fo3dLD9+C1scwJG
nVucul810YFIn+qxSMQo5+pZ69p3dBAoprjeTMJIb42RXXUbHfo7Dxx7koKR
wAnd4aoPdKiY+5JZkopRf+quixUddNh72Xf7kzSMbqjJX6J20aGp0pLnZgZG
R/3F2cU9dHi04c4Zi0yMpF7zeRd+pYMhl3efchZGjDML1/L76RA4TsvMp2AU
mkUs5AzSwZRP7MvpbIzMJ8duUobosEv8sukfkpV2fuPIHKFDa9Tpf3E5GP28
0RmSNkYH5Tj3CflcjOrfNHOlTNDhV+dZ3gKS4wRfhSVO0aEz7ZOrbB5GF6yr
eOOZpH5vwjmiSFbPK46OnaHD/cb9HzDJy6yc9dEEHe5SSnqM8zFq252SEPGD
9NfPPMn/v//NCI6WePiTDtyzs3F9JF9quZcW+osOZ5y8DEULSH+K3pC5N08H
/acLqgYkr7P1zr6zQIcf5VePXyS554mLYtBfOsTwvn1yi+THP84/vvmPDnZd
ozr/f9/7wMjOu4CDAfKaiq/+/z7YJfPC/vaVDPiafCiBnGeR0U977nlOBqic
OF3tQbKKsWOn3BoGsFvP/UfOs4ib4pR5ZC0DTmTdmJEkeXLuoqs3DwNSfDuX
/x/vu6Muu9L4GCAnH2VHzrOoMNt1uV6AAZpx3wX3k/zwt9s7phADiB4eoa+k
Hu7HLiWIijCAU+n0BTeSTXI97HTFGJDQuG7lDKnvf38ub3OWYMAvlbBZR5J5
j3v+ipZigFvfDq12Mj+sPK86hjQDBsI93/1HcqmZj8U6eQZwK0dM1pH5jirw
3bRTgQHCyx6+f0g/XPnrxzqrxID1NPZpRZLVnwSElGxhgD5dT+g06SfBf4Gm
XdsY0D50jm2ZjhE+dUNyWZUBG2OqFE6Q/itfvkU102CA12GpuA2kX+POBAUG
7GJAz7/nrSzSz1eLgg/maDEgL/aN/TPS77ss7vbO7mHALcbjdIl4jCpLw9Yk
GTCgcVes29EojBI5wzvQQQZo6O6IYESQ9WwdkTFxmAGCx44ISIZjpMUVvXOP
CQNQUoJuRSjp53Pxtt9OM0D2cqjjqSCMkp8lbOWyYAAtL6bi7C2MAtYmzalZ
MSCw1snTgqz/PZUp4UHnGBAceWTHFrI/vODNoitcJPdn0LJS6wpG6faUOyYu
ZLyjb3u/kP3mJiP7mK8bAxblNqt6uWGk65g3/OYyAyJlOPUCyX716vlTAbdr
DDhozLb8ZU3Wg1uFM+0ByU0v1iUbkP3sP529FQ8ZsOTP71moR/6e9ZKfEUHq
EyvKXb6fjP/K20oUwwDKxufdFLK/lvp8XdWezIDtdbLblsj+m3yLg8J6woDJ
NyYXywUw6oJ7V3EhA5aNBkckeDESXrHu8Fwxmb/VwnQfbjK/IcIzf2kMoLpc
t+VdgVHIA+V9vNUMkFTqWPECE+hynEnP1mYGOK3WLZX5SKDiUx+L1FoYkPF4
6n7vewJNipjf1mhlwNmXbV8jm8jzJ8lWec9H0g/D65Y7EIGs0r19jnxhQNt9
+/sDJQQyLEgWdJlkgPLOMH7OBwSSqhkxyl9bDYYUSeOYXQRauskpNcpTDToH
JbRs1Mjz9YDitCJ/NUxz7bqzQYVABc0OkXnrq0FUy8zUZwOBdn4Z+pi7oRoe
3ZE5EL2CPH/nB61zVKuhsMR/fX8iG93U+nYp60Q1vP2pXPe7aAbZLfzdP3Cq
GnD0XY4b6TPIsFZaQNa8GvoedZ6biJhB6w7ZlGVak/FIz+UEeMygxDO9cxkO
1cB0l6PdVp0h9f5yK923GpJnXb8oPmWhWO0/x/uuVYNQfW6HejIL+fyVkJcO
rIYlzpEKpVAW2nPXsj7tVjUEnKlxfefIQm8fda9JCyXjy7nOt0KWhQotfvd8
DasGLimVt2f4WChqg3ihVEQ11P1S73q0yESnc81NUmOqQTj207b33Uy029lv
49e4apCiW0W9aWQiqW2JM5IJ1dCxJHCr8BkTLc1UIqskUg9/ibX+2Uw0WP45
JiWlGhye5e/fHs1E/wPPxQwD
          "]]}, 
        Annotation[#, "Charting`Private`Tag$651660#3"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"t, \[CHacek]as [s]\"", TraditionalForm], 
       FormBox["\"????\"", TraditionalForm]}, 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]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 0.1}, {-1.1031635939520839`, 1.1031640299676118`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"P - v\[YAcute]kon\"", "\"U - Nap\[EHacek]t\[IAcute]\"", 
       "\"I - Proud\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.7046058777035675`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<I1 = \>\"", ",", 
     RowBox[{"N", "[", 
      RowBox[{"I1", "[", "cas", "]"}], "]"}], ",", 
     "\"\< , Hodnota nap\[EHacek]t\[IAcute] v \[CHacek]ase: \>\"", ",", 
     "cas"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Ur1 = \>\"", ",", 
     RowBox[{"N", "[", 
      RowBox[{"Ur1", "[", "cas", "]"}], "]"}], ",", 
     "\"\< , Hodnota indukovan\[EAcute]ho nap\[EHacek]t\[IAcute] v \
\[CHacek]ase: \>\"", ",", " ", "cas"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<P1 = \>\"", ",", 
     RowBox[{"P1", "[", "0", "]"}], ",", 
     "\"\< , Okam\[ZHacek]it\[AAcute] hodnota v\[YAcute]konu\>\""}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.69947297961517*^9, 3.6994730037753134`*^9}, {
   3.6994771944681807`*^9, 3.699477217416337*^9}, {3.69948133742267*^9, 
   3.699481358939393*^9}, {3.6999084163318143`*^9, 3.699908423768338*^9}, {
   3.700834524120715*^9, 3.7008346378256383`*^9}, 3.7046052364355097`*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7046058777576027`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"I1 = \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"1.1031640299676353`","\"A\"","amperes","\"Amperes\""},
    "Quantity"], 
   "\[InvisibleSpace]", "\<\" , Hodnota nap\[EHacek]t\[IAcute] v \
\[CHacek]ase: \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm["I1 = ", 
   Quantity[1.1031640299676353`, "Amperes"], 
   " , Hodnota nap\[EHacek]t\[IAcute] v \[CHacek]ase: ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.704605877787623*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Ur1 = \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"0.9236282401553992`","\"V\"","volts","\"Volts\""},
    "Quantity"], 
   "\[InvisibleSpace]", "\<\" , Hodnota indukovan\[EAcute]ho nap\[EHacek]t\
\[IAcute] v \[CHacek]ase: \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm["Ur1 = ", 
   Quantity[0.9236282401553992, "Volts"], 
   " , Hodnota indukovan\[EAcute]ho nap\[EHacek]t\[IAcute] v \[CHacek]ase: ", 
   0],
  Editable->False]], "Print",
 CellChangeTimes->{3.7046058778251476`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"P1 = \"\>", "\[InvisibleSpace]", 
   TemplateBox[{"1.018913451601745`","\"W\"","watts","\"Watts\""},
    "Quantity"], 
   "\[InvisibleSpace]", "\<\" , Okam\[ZHacek]it\[AAcute] hodnota \
v\[YAcute]konu\"\>"}],
  SequenceForm["P1 = ", 
   Quantity[1.018913451601745, "Watts"], 
   " , Okam\[ZHacek]it\[AAcute] hodnota v\[YAcute]konu"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7046058779167085`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{972, 776},
WindowMargins->{{200, Automatic}, {Automatic, 9}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 165, 2, 75, "Text"],
Cell[726, 24, 150, 2, 61, "Text"],
Cell[CellGroupData[{
Cell[901, 30, 270, 4, 53, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1174, 36, 2945, 87, 145, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[4156, 128, 369, 6, 48, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4528, 136, 3986, 120, 409, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[8551, 261, 247, 4, 50, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8801, 267, 5128, 145, 424, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[13944, 415, 25974, 475, 211, "Output"],
Cell[39921, 892, 27110, 494, 211, "Output"],
Cell[CellGroupData[{
Cell[67056, 1390, 2883, 46, 31, "Print"],
Cell[69942, 1438, 3300, 55, 31, "Print"]
}, Open  ]],
Cell[73257, 1496, 154, 2, 61, "Text"],
Cell[CellGroupData[{
Cell[73436, 1502, 148, 2, 30, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[73587, 1506, 2810, 77, 244, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[76412, 1586, 214, 3, 53, "Text"],
Cell[76629, 1591, 810, 21, 69, "Input"],
Cell[77442, 1614, 345, 5, 69, "Text"],
Cell[CellGroupData[{
Cell[77812, 1623, 273, 4, 43, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[78088, 1629, 3313, 69, 164, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[81438, 1703, 307, 6, 43, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[81748, 1711, 1941, 48, 172, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[83704, 1762, 344, 7, 42, "Output"],
Cell[CellGroupData[{
Cell[84073, 1773, 248, 4, 43, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[84324, 1779, 1229, 27, 77, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[85590, 1811, 2207, 34, 22, "Print"],
Cell[87800, 1847, 2156, 34, 22, "Print"],
Cell[89959, 1883, 2170, 34, 22, "Print"]
}, Open  ]],
Cell[92144, 1920, 1947, 37, 69, "Input"],
Cell[CellGroupData[{
Cell[94116, 1961, 296, 4, 43, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[94415, 1967, 4799, 126, 295, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[99217, 2095, 2034, 45, 185, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[101288, 2145, 2351, 36, 31, "Print"],
Cell[103642, 2183, 2319, 36, 31, "Print"],
Cell[105964, 2221, 2293, 35, 31, "Print"],
Cell[108260, 2258, 2481, 39, 31, "Print"],
Cell[110744, 2299, 1924, 26, 22, "Print"],
Cell[112671, 2327, 2248, 34, 31, "Print"],
Cell[114922, 2363, 2218, 34, 31, "Print"],
Cell[117143, 2399, 2220, 34, 31, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119400, 2438, 234, 4, 43, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[119637, 2444, 2964, 71, 244, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[122616, 2518, 534, 12, 31, "Print"],
Cell[123153, 2532, 24983, 465, 218, "Output"],
Cell[CellGroupData[{
Cell[148161, 3001, 268, 5, 43, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[148432, 3008, 4478, 101, 276, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[152925, 3112, 621, 14, 31, "Print"],
Cell[153549, 3128, 25148, 468, 219, "Output"],
Cell[CellGroupData[{
Cell[178722, 3600, 238, 4, 43, "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[178963, 3606, 2673, 65, 202, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[181651, 3674, 456, 11, 31, "Print"],
Cell[182110, 3687, 33879, 617, 223, "Output"],
Cell[215992, 4306, 59605, 1047, 220, "Output"],
Cell[CellGroupData[{
Cell[275622, 5357, 1149, 24, 107, "Input"],
Cell[CellGroupData[{
Cell[276796, 5385, 78, 1, 22, "Print"],
Cell[276877, 5388, 492, 11, 31, "Print"],
Cell[277372, 5401, 535, 12, 31, "Print"],
Cell[277910, 5415, 456, 11, 31, "Print"]
}, Open  ]]
}, Open  ]]
}
]
*)

