09-rbf-sin.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     46684,       1053]
NotebookOptionsPosition[     43963,        958]
NotebookOutlinePosition[     44431,        976]
CellTagsIndexPosition[     44388,        973]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Kapitola 9 - S\[IAcute]\[THacek] RBF a um\[EHacek]l\
\[AAcute] data sin(x)", "Title"]], "Subtitle",
 CellChangeTimes->{{3.403530443303066*^9, 3.403530492291925*^9}, {
   3.403531440607864*^9, 3.403531442893248*^9}, {3.403534319050615*^9, 
   3.403534324387336*^9}, {3.40756994634375*^9, 3.407569999734375*^9}, 
   3.40757029721875*^9, {3.4075703404375*^9, 3.407570354375*^9}, 
   3.407571350796875*^9, {3.407571418109375*^9, 3.407571422640625*^9}, {
   3.40946020459375*^9, 3.409460204953125*^9}, {3.513429111246589*^9, 
   3.513429111899172*^9}, {3.5142610768934145`*^9, 3.5142610829417605`*^9}}],

Cell[TextData[StyleBox["Demonstrace pou\[ZHacek]it\[IAcute] RBF s\[IAcute]t\
\[EHacek] na um\[EHacek]l\[YAcute]ch datech - aproximace funkce sinus.", \
"Subtitle"]], "Subsubtitle",
 CellChangeTimes->{{3.40756997496875*^9, 3.40756997690625*^9}, 
   3.40757242090625*^9, 3.417794876609375*^9}],

Cell[CellGroupData[{

Cell["\<\
Na\[CHacek]ten\[IAcute] knihovny NeuralNetworks\
\>", "Section",
 CellChangeTimes->{{3.5073602800352573`*^9, 3.5073603289964743`*^9}}],

Cell["\<\
Nejd\[RHacek]\[IAcute]ve na\[CHacek]teme knihovnu neuronov\[YAcute]ch s\
\[IAcute]t\[IAcute].\
\>", "Text",
 CellChangeTimes->{{3.507360408586581*^9, 3.507360469435308*^9}, {
  3.5073605129338317`*^9, 3.5073605139169564`*^9}, {3.507360599217788*^9, 
  3.50736063908185*^9}, {3.5073606876975236`*^9, 3.5073607032795024`*^9}, {
  3.5073607601777277`*^9, 3.5073607715351696`*^9}, {3.5084334105739098`*^9, 
  3.5084334111769867`*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"<<", " ", "NeuralNetworks`"}], "Input"]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.507360750489497*^9, 3.5073607641152277`*^9}}],

Cell["\<\
Pokud pracujete v Mathematice 8.0, vypn\[EHacek]te je\[SHacek]t\[EHacek] \
zobrazov\[AAcute]n\[IAcute] chybov\[EAcute] hl\[AAcute]\[SHacek]ky \
Remove::rmnsm. Tuto hl\[AAcute]\[SHacek]ku vyhazuj\[IAcute] funkce knihovny \
NeuralNetworks. Na funkci knihovny toto nem\[AAcute] \[ZHacek]\[AAcute]dn\
\[YAcute] vliv.\
\>", "Text",
 CellChangeTimes->{{3.5073722663308234`*^9, 3.5073724902892623`*^9}}],

Cell[BoxData[
 RowBox[{"Off", "[", 
  StyleBox[
   RowBox[{"Remove", "::", "rmnsm"}], "MessageName"], "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.507372496128004*^9, 3.5073725146658583`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Vytvo\[RHacek]en\[IAcute] tr\[EAcute]novac\[IAcute]ch dat (Sin(x))\
\>", "Section",
 CellChangeTimes->{{3.403530554350391*^9, 3.403530568518535*^9}, {
  3.403534331951981*^9, 3.403534340330704*^9}, {3.4075700228125*^9, 
  3.4075700538125*^9}, {3.407570378140625*^9, 3.407570379828125*^9}, {
  3.407571364046875*^9, 3.4075713659375*^9}}],

Cell["\<\
Vygenerujeme si um\[EHacek]l\[AAcute] data - navzorkujeme sinusovku.\
\>", "Text",
 CellChangeTimes->{{3.403534499737174*^9, 3.403534514743011*^9}, {
  3.407570032390625*^9, 3.407570034140625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"2", 
       RowBox[{"\[Pi]", "/", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], " ", "i"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"Sin", "[", "x", "]"}]}], ";"}]}], "Input"],

Cell["Takto vypadaj\[IAcute] na\[SHacek]e data :", "Text",
 CellChangeTimes->{{3.403534537617658*^9, 3.403534545439446*^9}, {
  3.407570137984375*^9, 3.40757013996875*^9}}],

Cell[CellGroupData[{

Cell[BoxData["x"], "Input",
 CellChangeTimes->{3.403534523137325*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.`", ",", "0.3306939635357677`", ",", "0.6613879270715354`", ",", 
   "0.992081890607303`", ",", "1.3227758541430708`", ",", 
   "1.6534698176788385`", ",", "1.984163781214606`", ",", 
   "2.3148577447503738`", ",", "2.6455517082861415`", ",", 
   "2.9762456718219092`", ",", "3.306939635357677`", ",", 
   "3.6376335988934447`", ",", "3.968327562429212`", ",", "4.29902152596498`",
    ",", "4.6297154895007475`", ",", "4.960409453036515`", ",", 
   "5.291103416572283`", ",", "5.621797380108051`", ",", 
   "5.9524913436438185`", ",", "6.283185307179586`"}], "}"}]], "Output",
 CellChangeTimes->{3.4226041666875*^9, 3.5109896516232567`*^9, 
  3.510989862277506*^9, 3.510991383941733*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["y"], "Input",
 CellChangeTimes->{3.403534524881374*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.`", ",", "0.32469946920468346`", ",", "0.6142127126896678`", ",", 
   "0.8371664782625285`", ",", "0.9694002659393304`", ",", 
   "0.9965844930066698`", ",", "0.9157733266550575`", ",", 
   "0.7357239106731318`", ",", "0.4759473930370737`", ",", 
   "0.16459459028073403`", ",", 
   RowBox[{"-", "0.16459459028073378`"}], ",", 
   RowBox[{"-", "0.4759473930370735`"}], ",", 
   RowBox[{"-", "0.7357239106731313`"}], ",", 
   RowBox[{"-", "0.9157733266550573`"}], ",", 
   RowBox[{"-", "0.9965844930066698`"}], ",", 
   RowBox[{"-", "0.9694002659393305`"}], ",", 
   RowBox[{"-", "0.8371664782625288`"}], ",", 
   RowBox[{"-", "0.614212712689668`"}], ",", 
   RowBox[{"-", "0.32469946920468373`"}], ",", 
   RowBox[{"-", "2.4492935982947064`*^-16"}]}], "}"}]], "Output",
 CellChangeTimes->{3.42260416671875*^9, 3.5109896516592607`*^9, 
  3.510989862317011*^9, 3.510991383972737*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.02", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{3.403534565307599*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQjQ70d01nFte6ar/yfIDHg+NX7CH8p/bKLpbZC5c/
tnebntyqtP+9/RPbdVGCp15B5b/aS+jd2xLM+t5+94raI3NKftmvclqqyfrk
PVT9f3tObsG7zH5v7V8eUlG+0sLkIGj3/B5P93OoflaHD9Vved+U3rMv3cj1
JPI8u8OpCN36fMGjUPO4HA5C+PsZF3xYcl+S1+EtRP1+iPn8DjwQ8/a7ub/e
ZGQk6MAOsW8/xD4hB6h79vfYxU0uvS7sIAlx736I/aIOzyD+2X/J9GLxjhox
B1WIf/dD3CPusA4SHvsldF1CfitKOrDHiBirLdu4BwCcDYvm
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.422604167015625*^9, 3.5109896518927903`*^9, 
  3.510989862357016*^9, 3.5109913840107417`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Zpracov\[AAcute]n\[IAcute] dat neuronovou s\[IAcute]t\[IAcute]", \
"Section",
 CellChangeTimes->{{3.402213953917428*^9, 3.402213962213214*^9}, {
  3.403533516392156*^9, 3.4035335187936*^9}, {3.40757019015625*^9, 
  3.407570197234375*^9}}],

Cell["\<\
Inicializace s\[IAcute]t\[EHacek] - zad\[AAcute]me tr\[EAcute]novac\[IAcute] \
mno\[ZHacek]inu, rozd\[EHacek]lenou na vstupn\[IAcute] a v\[YAcute]stupn\
\[IAcute] data, a po\[CHacek]et neuron\[URing]. Po\[CHacek]et neuron\[URing] \
se zad\[AAcute]v\[AAcute] jako kladn\[EAcute] cel\[EAcute] \
\[CHacek]\[IAcute]slo.\
\>", "Text",
 CellChangeTimes->{{3.403533524905281*^9, 3.403533627638674*^9}, {
  3.403534634400701*^9, 3.403534635901927*^9}, {3.407570200671875*^9, 
  3.4075702574375*^9}, {3.40757068690625*^9, 3.40757073609375*^9}, {
  3.4075714939375*^9, 3.407571495375*^9}, {3.5109896868227262`*^9, 
  3.510989751728468*^9}}],

Cell["\<\
Vytvo\[RHacek]enou s\[IAcute]\[THacek] si ulo\[ZHacek]\[IAcute]me do prom\
\[EHacek]nn\[EAcute] \"net\".\
\>", "Text",
 CellChangeTimes->{{3.403533726823339*^9, 3.403533733646525*^9}, {
  3.4075707416875*^9, 3.4075707534375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"net", "=", 
  RowBox[{"InitializeRBFNet", "[", 
   RowBox[{"x", ",", "y", ",", "5", ",", 
    RowBox[{"RandomInitialization", "\[Rule]", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.403534626858601*^9, 3.403534639860485*^9}, {
   3.403534681396292*^9, 3.403534686998408*^9}, 3.407571383359375*^9, {
   3.5109896400892916`*^9, 3.5109896763073907`*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[
   RowBox[{"RBFNet", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w1", ",", " ", "\[Lambda]", ",", " ", "w2"}], "}"}], ",", 
       " ", "\[Chi]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Neuron", " ", "\[Rule]", " ", "Exp"}], ",", " ", 
       RowBox[{"FixedParameters", " ", "\[Rule]", " ", "None"}], ",", " ", 
       RowBox[{"AccumulatedIterations", " ", "\[Rule]", " ", "0"}], ",", " ", 
       
       RowBox[{"CreationDate", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
         "2011", ",", " ", "4", ",", " ", "5", ",", " ", "13", ",", " ", "23",
           ",", " ", "4.0582476`8.360913518737533"}], "}"}]}], ",", " ", 
       RowBox[{"OutputNonlinearity", " ", "\[Rule]", " ", "None"}], ",", " ", 
       
       RowBox[{"NumberOfInputs", " ", "\[Rule]", " ", "1"}]}], "}"}]}], "]"}],
   
   Null,
   Editable->False],
  DisplayForm]], "Output",
 CellChangeTimes->{
  3.422604169875*^9, {3.5109896487218876`*^9, 3.5109896549491787`*^9}, 
   3.5109897101621895`*^9, 3.5109898624160233`*^9, 3.5109913840682487`*^9}]
}, Open  ]],

Cell["\<\
M\[URing]\[ZHacek]eme si nechat zobrazit n\[EHacek]jak\[EAcute] dal\[SHacek]\
\[IAcute] informace o vytvo\[RHacek]en\[EAcute] s\[IAcute]ti.\
\>", "Text",
 CellChangeTimes->{{3.40353370945933*^9, 3.403533723564199*^9}, {
  3.4075707583125*^9, 3.407570772375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetInformation", "[", "net", "]"}]], "Input",
 CellChangeTimes->{{3.402214088623496*^9, 3.402214091901377*^9}}],

Cell[BoxData["\<\"Radial Basis Function network. Created 2011-4-5 at 13:23. \
The network has 1 input and 1 output.  It consists of 5 basis functions of \
Exp type. The network has a linear submodel. \"\>"], "Output",
 CellChangeTimes->{3.42260416996875*^9, 3.510989655107699*^9, 
  3.510989862456029*^9, 3.5109913841062536`*^9}]
}, Open  ]],

Cell["\<\
Pod\[IAcute]v\[AAcute]me se jak na\[SHacek]e, zat\[IAcute]m n\[AAcute]hodn\
\[EHacek] inicializovan\[AAcute], s\[IAcute]\[THacek] \
odpov\[IAcute]d\[AAcute] na data.\
\>", "Text",
 CellChangeTimes->{{3.403534692745426*^9, 3.403534708980519*^9}, {
  3.407570778421875*^9, 3.407570814109375*^9}, {3.5109898735684395`*^9, 
  3.510989874728587*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetPlot", "[", 
  RowBox[{"net", ",", "x", ",", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.403534667543999*^9, 3.403534671047914*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzHk41HkAx/FxlbOdmcYcuRqM+RU9Uqks+X6yZSwS03bQwY4cucZMUibW
Y3NsRJoN5WhST9RT2TxydNu1Nl2eiiVsS61KyqhYNGls+8f7ef335kuk4ghd
Go227kv/q3fLuP0f1wzPAElaLfOBmghe33S3/jmU3DVQqZveqInmkvPOHqWU
jB+sK9xiPEpesKKnGpTpRJuao58pGiW93pm/nVEeJjKLG7V5v46SP0OVwgql
iqjlrq7OIe+IOI7Xe0z5Cwlm8MW5vu/JkQ/b6oqVt8iTxO6Wvfwx4t7qa+y1
+yFxrJkSuoxNkERFwPd1iU8IM2vFjEqsIfFNEQW6dgPEaWq9uyDlM+kc+tao
WjJILsx7Pu4URkOu8wStIXiIWLnJvTv6dCBzbCtqPvOWJFu7R3VJ9aAJj615
mvCOvPBSlcg0+pDc2BRYGPmBtBsFqi3jZyH8fWdz80/jpMVZ4jZgYIhDixul
VdkT5Mate0UNh4yg29y4IlMxRVbRrUwC2SZgLPRr7z+mIYLyBGfbdlP4qLxO
v1NOEzy62l+fNAec0fve6Y1a8t4zr+V3AR2lt6/q6O2iodR/w8RtJgMeVqtn
5u/Uwci6rry4cQYcB+iDaUm6SI8P2B88wsTFs8zoerkeOCe0t7uezEXq39s7
HLP18fUkP7mklwWZx0q/E0cNIF76XX5ajzk0qjWSN4WzIEq7Yr+pjY2HiaVh
e0/NhuPks5XD9zhwE9lqn1Ya4sCwtkdxk4s7a93OotwIw9IczooLPJypPe72
/Lwx0q9kv+25OA/mdk4xO86ZINLDxXOowgKPdQx/5F03BUtWOlVRaYl6w91V
D++YQSl/tId30gpO5vQYSescLPtgGmuSb43RggnW0q6vICos6SrOt4FdTo6z
NIaOku0h1A7P+Xge0tfr9YqOdda23Ul18+HzouNjfQIDi0/x7SOW8LFPHhHN
HmEgusgps/ksHwENZb7sZCa0C3320RbYQj0dk6o3wcTHQ+FO107aorI743LC
7rmo7uKwLNl20ESvCkv5NBeb+1t/kBfZwerzka0yBQvX/SNTNpja46Uo766h
vjl6gjIUy/Lt0eJwn1jnmcNydYJBu4kAMYZV+nwjNsYil5/7mCFA40n7VS1H
2HBdQ14v0XVAu7tHq5jBgeIePYumcMBUTNmGsAIOFod7J+eNOqAtULXRjM1F
1KtvfJ2lQkjcPKqrj3KhjGAuj3wpxK6RB//+VczFK92yPxRDQiRWhq5hHuci
de+m4MPDQqQbHXiWWsGFzCwqq0ktRHnPHQtxFRf+IxOTxpNCdKVsLpxu5MIz
ly66NJuC71V5SlAfF9q1rMPTFIWgBP227KdcxAkzIhmOFLbYFrOv93Nx6uAC
OCyiEJV7pc5h8Mvv8SLNehcKmSE09ae3XHjJTQ6edqNwU5MvqdJyIVUHMf18
KbTW2NT20XgwzzhqFuZP4b6kdoaux8Pl/WyTPQEU+u52lu+fzcPIsR5TlZjC
VKlFdyCdh4JxieNYCIWZgIuCbCYPFr7VKw23U5ilR5KusXg4P+DkYxVKgRUr
YTjweHBpmo4XhVOwsBkP3WrBgyBOlLktgoJtR1ZNoRUP80Sd5bIoCgtzOJ9b
bXgYzDjdmL2Lgov7Ob9PfB7MNtZ3lsVS+A+rPA4G
      "]]}}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQjQ70d01nFte6ar/yfIDHg+NX7CH8p/bKLpbZC5c/
tnebntyqtP+9/RPbdVGCp15B5b/aS+jd2xLM+t5+94raI3NKftmvclqqyfrk
PVT9f3tObsG7zH5v7V8eUlG+0sLkIGj3/B5P93OoflaHD9Vved+U3rMv3cj1
JPI8u8OpCN36fMGjUPO4HA5C+PsZF3xYcl+S1+EtRP1+iPn8DjwQ8/a7ub/e
ZGQk6MAOsW8/xD4hB6h79vfYxU0uvS7sIAlx736I/aIOzyD+2X/J9GLxjhox
B1WIf/dD3CPusA4SHvsldF1CfitKOrDHiBirLdu4BwCcDYvm
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 2.},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.422604170171875*^9, 3.5109896551422033`*^9, 
  3.51098986262255*^9, 3.5109913841667614`*^9}]
}, Open  ]],

Cell["\<\
Te\[DHacek] s\[IAcute]\[THacek] natr\[EAcute]nujeme pomoc\[IAcute] funkce \
\"NeuralFit\", kter\[EAcute] zad\[AAcute]me na\[SHacek]\[IAcute] s\[IAcute]\
\[THacek] (prom\[EHacek]nn\[AAcute] \"net\"), tr\[EAcute]novac\[IAcute] mno\
\[ZHacek]inu (\"x\" a \"y\") a po\[CHacek]et u\[CHacek]\[IAcute]c\[IAcute]ch \
krok\[URing].\
\>", "Text",
 CellChangeTimes->{{3.403533782324979*^9, 3.40353383899699*^9}, {
  3.403534734231109*^9, 3.403534738553558*^9}, {3.4075708186875*^9, 
  3.407570863515625*^9}}],

Cell["\<\
Funkce NeuralFit vyprodukuje nau\[CHacek]enou s\[IAcute]\[THacek] a \
z\[AAcute]znam o pr\[URing]b\[EHacek]hu u\[CHacek]en\[IAcute] - ob\[EHacek] \
tyto n\[AAcute]vratov\[EAcute] hodnoty si ukl\[AAcute]d\[AAcute]me (do prom\
\[EHacek]nn\[YAcute]ch \"net2\" a \"record\"). Parametr \"5\" znamen\[AAcute] \
po\[CHacek]et prov\[AAcute]d\[EHacek]n\[YAcute]ch u\[CHacek]ic\[IAcute]ch \
iterac\[IAcute].  \
\>", "Text",
 CellChangeTimes->{{3.403533844567185*^9, 3.403533904635737*^9}, {
  3.407570867484375*^9, 3.407570914859375*^9}, {3.407571631859375*^9, 
  3.40757165596875*^9}, {3.407571692671875*^9, 3.4075717659375*^9}, {
  3.515092135215807*^9, 3.515092173236982*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"net2", ",", "record"}], "}"}], "=", 
   RowBox[{"NeuralFit", "[", 
    RowBox[{"net", ",", "x", ",", "y", ",", "5"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.402214100997976*^9, 3.402214109762068*^9}, {
  3.402214234036181*^9, 3.402214235441436*^9}, {3.402214368377231*^9, 
  3.402214374682622*^9}, {3.402214419526277*^9, 3.402214425215911*^9}, {
  3.402214664776315*^9, 3.402210056905657*^9}, {3.403534744215425*^9, 
  3.403534751488405*^9}, {3.407571745234375*^9, 3.407571758984375*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], 
   LineBox[{{0., 7.542344351502692}, {1., 0.002309721228106483}, {2., 
    0.0022622566032650037`}, {3., 0.0017748871974433687`}, {4., 
    0.0014417501425731966`}, {5., 0.001050648923859379}}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Frame->True,
  FrameLabel->{
    FormBox["\"Iterations\"", TraditionalForm], None},
  FrameTicks->{{{0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}, {2, 
      FormBox["2", TraditionalForm]}, {3, 
      FormBox["3", TraditionalForm]}, {4, 
      FormBox["4", TraditionalForm]}, {5, 
      FormBox["5", TraditionalForm]}}, Automatic, None, None},
  PlotLabel->FormBox["\"RMSE\"", TraditionalForm],
  PlotRangeClipping->True]], "Print",
 CellChangeTimes->{3.5109913846198187`*^9}]
}, Open  ]],

Cell["\<\
Jak te\[DHacek] odpov\[IAcute]d\[AAcute] natr\[EAcute]novan\[AAcute] s\
\[IAcute]\[THacek] (reprezentov\[AAcute]no \[CHacek]arou) na data (body) :\
\>", "Text",
 CellChangeTimes->{{3.403534813073953*^9, 3.403534836591364*^9}, {
  3.407570920390625*^9, 3.407570943140625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetPlot", "[", 
  RowBox[{"net2", ",", "x", ",", "y", ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.02", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40353479131138*^9, 3.403534795268151*^9}, {
  3.40757185740625*^9, 3.407571861140625*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], LineBox[CompressedData["
1:eJwV13k4VOsfAHBrCDVzhqIVt6IiuSkpfN8UFVKIyJoshQqhkLVSqYRKZU+y
dC8KIeSVyNLmRtai7MbMHDszWX7n99d5Ps85z3vm/W7nHXnHC6bOAnx8fK/4
+fj+fxXES7/07gzTGT2MQtzrzfHG4Yq96+7bQ+gutavDrXrAe6nq1B57AS57
PjCQ++oM/VJnZotiQ6Ax9b9Np3UCoUP/WtXz2HsQHd6jaDp2F77bxyomxaaA
XMroL7V9KWDqIdvxODYPstL0KxW+50HMuE1BXCyGX67O8lUTGPbWGCzVvdgI
XIHIm5PU1TPA+FSBZxsYrjg8KS3YBudKnKME/voF/01vPtsg3A3NQ4fFMh37
IKApXOuAeC9Eqk7zFVkNQTJpu09XfAC8ttY9rHzOAgVNz1Z11hD0OfeFphax
QJauGPLv9BBYpPJ5hNaywPWHq9ta/mHYI62pi4ZZcHDp4iJTehgEFrM5WJkN
32qEW9VhGGK/3T6IC9hg1uZfGBo9DPn+R7lv33Eg7UjHuX4VJvBOu+f+PD8K
n/8e2HPYbAQc6BOXy/1GYf3Ra14u1iNQUxGwPyF4FEbZSupBp0cgWjayzTJq
FORiDcwfXRwBxa9ZAs05o3BIKfJz0P0ROL5nwKKBNQrFrbNf6N9GIJd2arHI
bQxs8qzkDhmwQKpiqP6h9xjobj40HmvCAn93zwc+AWPwcLGG1mrJggMfQjb/
HTkGL9Pbthq6sqAzMNksJ3sMLJ/fet5zlQWig52Zz4bGYHHfVuHPZSxwfGtx
LNplHPRsdF6Gb2LD30UyhOyFcZDotDgUrMIGgbyOpqeXxmEDb67US50Naal2
JwpujsO22u2KSJcNPVdd7FpejAM907UrwJYNjgZ+HmtI6vnvoUPOsZRbH97M
ujQBz2q9uwWnqfUbTxiohU6A8xeZwuk/1Pr1shKlNyeg7ZSt/G9+Kq6lSfc+
PpkAA9cVFYmSHOhJeh7HKZsAeV25j7kbOODo9DpdnW8SroQ3xWiZcOD0WHNl
5c1JmFt3Tnv8GQccAqJPlERT/iukISyLAzaCRpy8x5MQqr2ySSyHAxbS71en
ZE2C8f1oE8EiDhzSfOUXVDcJ1R3LuhNqObAt7K7yHtEpiI+5udZxmANblh5+
r0abgs3ZOnWX2RxQvC90crPMFMTcVem4McYBueeBN2SUpuDPp95t97gcYNSf
7Zk+OAVZw/YBumIkzNL0HxfcmAKZRXi4R5GEySf8qv/cm4LP9zo3tW4hYUzh
bU3aoykYL9WT9NhGAlNdfSImcwrmTbY1B+8k4aelgrFn7RToxFkqH9pPQlXq
gqCKyDTIXyxbc9aWhIrNpfEblk8D+4tIUKQDCWX5vmprVk5D0NVM+fTTJBRW
s+zEFadhq7uweuVZEjKHOt4M60/DqdUFjgm+JNzZXnwhI2IacvhWrvp5m4SG
v1sHfKOmIcuxieYbRYLozhlbvbhp+LYgdVs4hoRrmhpGfc+nwa9kYQktjoRA
3WIlhZpp8AkqXPIxhQS348W/kwRnoDWbFtz2ioQsi1bLc+IzMJmlbDpbQMKA
5cxXLcYM+OgJJNOKSDhlq1HRqTADRUGb47eUkmDpUhwvqzsDy0O4dKEqEg5e
LjZ7GDoDYSlnvY0aqfcHtDY43ZyBFBVD34n/qHhcmdmnHj0DI5oL/bFNJOiE
aWxvSpmBONGny8paSNgVWSxBxzPQvfPduZc/SPC503r114cZKN0u2riqi4T8
qBle3pcZuFrQmxDUTYLKfY1h464ZEDK0O6/cQ8KGxOKaO/MzwArkjm4bJMEx
uVXLRngWWmzPx9oMkZCaOlOwVXIWlOpfPwkfJmHNc420hjWz4NDP31Y8QsLJ
zBOy8RtmoU9XZVkti4TH2ZeizyrPQthe/6wvbBIYucXBolqzwOz5LlJLknDs
ZetU6/5ZECfXfCoeJSEqf8Yj03AWaFZj46ljJCwt1rDWt56FQdNqF5sJEgQq
izWuBcyCSsOyn5emSXghSWTMh8/ClYpr8XtmSDC19pC6dHsWwkVe205SfjYt
N3Y2cRZKVHImjLgkGB0ItO9NnwWO9suaEcqTMd8/2+TMQvx/fQlhPBIOqES+
OFoxC+RrX7PYPySwAvpk6j/MQteJv9Ql50h4UKdzQ/frLAhFp68Moay14slU
Wess7G/Omh+k3H964vTOX7OwsLmn/+A8tZ9XR77lDs3CBj/hxmTKuxYzkdLY
LFgEN5SxKHcZCeQ95c6Cx7GRLLUFEiLibdauFuDCkr0bH52jvG2o6PaDpVxY
EaERkUq5ZSedJ8ngQqJ3v28D5eCr7mdurObC1/sTziOUFf+raeHbwIViuy0W
goskNK6T0wtQ5sKLLcf1CcqXPQIKJtS5EJmts0uGslxps/w5bS4sG3qzUZpy
nYhq9IAeF/ZzHkuJUfY0v7Vgb8wFF41XApPU+jLPej3aLbhwUreT/E65clS7
09SeC2qO4525lM/qPD78yZULXdLNH4IpE3fGi/U8uXBX6dRLPcql7Uab8GUu
RCkEPRak7KiY+WB3GBfONkqGlFDxWOrLL5h/iwsGV+ZOO1HOr7L22hrLhXXa
6gdFKJ+kFXWnx3Oh8NEzpadUvAXsaMbrnnHhzPRe0b8p//OPW/mjf7ig0z7a
/4bK33Fu9RZ6IRe+cEre7aY8p7/+SWQ5FzRv303IpfJt1NPkG/SZC0PPjh4O
+X89qG7rm/7OBalw7bUdsyQkBt009ezignvZbnIrZbaMtuppkgt9xy7dLaTq
L87lUdKPGS443Wu0Gpmi+rFwTNyCjwcNdk4bZClHHc0YOkTngWZoRKEVVb+7
kvhOVMnywMBtX4DHOJV/5smavQo8GF8TreNH1btqxPK0bTt48PBfu/fnqf5o
LL9sLWXOg72Wae8mmFT+ljbV37XlwZId1SEVVP/JWarsFnHhwVu1l9qhVH96
TvyW4vnxIECv6M1QPwn0LYZfuh9Tz89VlRz5Rc0jkRR6XSoPIs5J6DOpeVDa
P378ZRYPUu5+Wwj+SYLT0/jO0BIeeLW+n4juIKFEhjkk38YDv1Xa4xbNJNyd
1lZe+osHT9Ttegq/UflrjrkwPsiDS5jOJ07NJ/FozemqGR4s73SoSflMgp3I
LUGnlX+gdat/qPsHEnb0/9A3Wv8HrHwm+iOrqXn7fnukuuIfaNFOCEyj5l9+
cBtNWOMPLNk1vLu0ggThacV1GRZ/oMhx65I71Pz8t+/D7qGHfyB34ObBN+kk
hFWtutKY9AeKP3K7rdNI6rxzHpc8/wNnQ07lTVPzmc9mhf6t13/A4ABtSiqB
BLMmZ7Mt3/9Ancq+LZPRJPDeCZ33kJqDC70+r7UDSTiUovtsNHYO3lbm3OQ3
IOFGXePP8IQ5uF6kudpJn4QPY3Yy0ulzYFptn/JWlwS9A4F3NV/Pgd7946Hm
e0nQHS64FN46B8U3QipllKn5sGOjkdSaeZhOVZTjiJOwvVZkSuP5PNwdvbjh
RzUHLow+VG3ImQelgO0L6yo5kCu7wc2maB6GZD+xLcs4oOKBukNr5+HSkQFG
/ivq+0z3r68fnocabdWn3CQObLBmJllvW4Ds4bCpLh8OrCQ/6YcUL8Bwvfh7
iTUceByDTw3jBXhqM3Tz2AoOyKjnXzGrWwCNzTL9t2mU/R/lK7YvwE3LCpdh
IQ6sEnRc18hbgCLpb2XAZsO6lTNTcjqL8ORSzSrrcjZsAvnnVdWL4MzOTLI8
zoaM34xK5c+LsG14rXvsEer+tSWdcd8XIfuY3JJqfTYo1o/Q3AcW4VfQiX+X
abLhwWbrCjEhPvQhcJ6zby0b4go2bsnfyIcKAjL4FPpYEF9byi94lg+VCxp4
tbizYPTXS3/Sgw/VyawyeeBEnVt5GWOdnnxIgLHvkKEtCyaV7/8uvMyHIqNy
r6Ybs8A41v2dy00+FJ287ZSQGgsEbNeENWTyoeOy748ETo6A+3gQX+wAH2K2
WQiY+Y2A1tp9i3JO/GjV+UpNGRcmHLJp9nY8w4+UzKxdztow4XiC68AzD370
PeGsaIEpE9xloz5v8qXuf95QogpMiJfuTFCO4EcP7vtIf13JhFlJ3927s/iR
uPSnw1m1w1C4kOV1lMWP7j17JdcuPwxbf9H6gnwEkMchzZ7uykHIySLOvPYW
RMxyyYTigT640mXbtDVCCOl4u9ed8v4NXlq7DZMfCCO98BTr0uBO4KUccByJ
XoJqx1JXM5WaodEz3uFSmgiyc928gnhbC5oHFRZ+PhVFnAzZsWfX86BeTzML
JYqhtdIb7s3I5OHnr55o9vyzFN0vsbv8Mb4OS/+l7GaXLY5amgdT5iab8Dd+
0XDZcgnUGz/Ft2mgE78WvZjRWC+J/gnamgDxv7GyNM3NsWYZelATUbS3vA+T
UdNSO1qWo+/G+dXqtYOYNbquSqVjObJSsrj7+b9BzDQ9eEGpazkKnGb7OvwY
xH0rHtevHViOKn5XJvqMDeKOZM1g0enl6IhJEdd89RB2PFExwVlKQ2XjuWW8
c0P4iCu/bfUWGqqPOiNQtmwY/3XjhuoFNxpSKTKPiNZmYu8W9WBHDxpSmEkM
99Rn4sqNPZ/Mz9PQx3i3gwZHmdiuWstNy5uGrIfsFEYcmDiefzxdLICGeHFn
+35fZWLiis2q9Fs0tEcpu+lpHRMLeKkJt2dR7wci1PbICDap7DL79IKGin7f
+tfbfASnLr+Thv+lodAbwY5htiNYJ3cAMl7S0BYFh9O3z43ggJGEgIslNJTb
+POayd0RPO68ZFSyjoYO+Fx5kf5xBPec7OzQHaQhSfccltV+FpbQPpHpMExD
Eucb0vcYsvDO9U0Xg0doaC+/cxDDjIVv9jZIlJI09CDA70aOIwurepTqqM3S
UOHPve/Dw1j4StCTtPVidHThrzr+l29ZWDr1hNvcFjraarJoLLKdjXXCm3at
UqGjhhJLxtAuNj7jdFRwtyodfd7tUFypzcblSgcTL+6go69enDgrQzZ2fLXr
C3MvHSV/qgzZ7MLGuVXSf7cbUesHb7RF8Wx8qL+J+/o8HU3ucv+tPcfGQVuj
AvM86eiRuNOKAn4Ozvc6NJ/lTUfOTRki8iIcvHqhnC/Rj47C3L/IDtI5mLMi
QyQ8mI7MH7i1rVbk4AeHLksbR9HRXXPvtE3HOPjXP2vUBnLoKPw42V2SyMHS
4y353Xl0tK//6c79TznYYHeMevsrOlJGQvIfnnNwQbXw7k+v6eiNsV/h61wO
jvjJ0cl/S0fHf3/M21tJ/bVd/s4o+DMdLYxWiPf85uDL3s5nVrDpyLM28mjM
ehLfNOS47iHpyCflS4L/XyR+tOGSq90YHZ2IaRG3UiRxUctNl4wpOpJWKzWd
30biiT3/Ou1aoKPdboRtpzaJzwtOOFgsJ9BY96Qvy4rEQT8CHQLoBCq8fC5I
35bEd14LOSQzCPTXUM+jRw4k/sd1hf3ASgKx1w/xr3cl8dBHTVs/OQKlKLXd
q7pI4tMPQq3i1AgUdmpnrfVtEnufE7Mq3UGgG2Fp9zZFkThcP9ayayeBDFQL
bIaiSZw6++zEpj0Eku4K4jeJI3GXTa15kS6BLg8G2Belkpi985h5xwECpdsU
7tJ8RuK5Ze3HF/QJhFSPShQ8J/Hqd0wzfUMCtXYW5t1+QWLLjctMW8yo31Os
+L6xgMRnFuJMeOYESovW8RcvIvGl1vUm6ywJtDmFpqRdQuK4W2rHXGyo/Sbq
nrteTuIm9nHjaScCdYkyr2ZXk9i4KMFghR+BzPaUnIQmar0Jx0XpywS6VHnA
6XMzia9u31IoHUA9P20eYdZC4pIXJWulgwkkrGpPHGonsULK91FGBIGELHp1
vnWRWOtH4nPGTQKdKLLjl/9F4hOyTicZkQQq1tjX7vqbivf98fdEFIHier/W
/uwl8fSN5Y/ocQS6WxYT5zZEYlpNiyH9MYFm1xby/IdJvFUgmY8eT6Bq1cde
YUwSO1xRdqMlE8g3zy/uMovEAW8m1tFSCeSd37X/DJvED6dLm5anEehzUY/A
MQ6JGzwPay/PIJDiUG6hyCiJ+3Jo48uyKDtOZLRSXmS2Zix7QSCG6OfslDES
qzu70JblEshG1+jXygkqPmkqNZIvqXh6BjHqKJ/tnvSXzCeQpvNJC89JEidb
Xe2VKCIQ89z+pdlTVHziDB5LlFDvZzADNKepeDfRj0iUEojm7MV7R5lDa+eX
KCeQQNA/N3VnSCxqnFokXkEgT02PjWWUFW67uotXEqjW9FYjdZ7F2nXb5MSr
CFTR3HHrAWVL4enmpdVUvb3WNJmi7K379tbSDwT66he2yZhLxTfkms7SOgJl
Bt0TS6GcWW44IdZAIPk9+3mDlKu4RJbYJwJ13AuaVeKR+MeuDhuxL9T+LOSF
HClPX3xKF2skUNUgY+19yvRXZz6IfqPyZbh3fzllZY5qoGgzgS40h/r9pKy/
dUZVtIVAAZVfiqYpO5yp6BNpI1BCPF1I9A+JA59ffyLSQaDGMA07OuW4HiNj
kR8E0n+1vYag/HK9lKBIF1Ufv8jdEpQbbDqLl/wikJzymTfz1Hr9T9I8lvQQ
SEs5Wn+QMl/rWfklfQTCEfa/6iivklJrER4gUP7drxFplNVNZiOFhwhkQfuh
6UP5aBQGYSaB/msI52pTdvsYMSnEIpBhS1XNIhWPa6LG2UIcAimcSkp+QzlZ
T9pOaJRAG0npa+6U34T/IITGCbR6s5qfNOVm/KxWcJJAMdrTPsVU/DlzblcE
pwlkL3c+1ISylaXhZu4Mga4dKG/qp/JZXbC1hcMlkIxeS7g35SduLNWOeape
kzInfah6EPrw6cfXRQL1GocUM6n6OS+fc6uGn4HaZk63WFI+0Hau96UwA7lq
vFBaR9Vb3g7j6AwRBsr+pmnjS9XjqnvbtBPFGIg3sINVPU7iUT0y7oYkAxXH
tsofoeo5ocDTwE6agb42mwzyU/2wZLnJjNlKBiqnJ/GvofrF000t/bAsAz3T
OeW/jeonffnxefW1DPT7658wLarfxqMuvhLfyEAX//afm+snsS3TzI5fkYEK
AwJFOvpIXKenLj6jxEDJEr5eeVQ/J81NOvUoMxB6tu30fqrfD7n5ybxRZyBB
h33Vy3+QuKDGoiZ3FwMlZV36nNdB4nXyGt7puxmoXfCBxv/nyUTrzMd7WgzE
+u+RqmPL//PhH+JygIG4he1FexpJLPbUStlGn4Fop/d/TfpCYp85zXaTQwz0
XHzcgPuJxIcLeH9rG1HvS7hw7kk9iSflrgwwjjOQR1/4meAqEttfsbkvZsFA
LrJP09MrqXpr1UKLJxio7lqT/vsKEqdEzT9hWjNQd+BCxXApiQ3mgo+8O81A
745E3erMJ/HT1rDC8xcZ6DLPZsD0KYkHarZ3R/ky0K87HeOfkqn+KOwWy7vE
QPfUxFboJFLfp2htezKQgdKn+J4JPyLxp8NcMc9rDHSlO3J48x0Sz5Z52ns9
ZCDrwZiqWh8S67xYHxnziNrf21+RBV7U/H38pfDVE2p/ToRv3HkSL/NVXjqe
xEB+5ih/3xkS/7VtqNA7g4HyxHcNqFhT8yrVfqlPMQOZKwmO2gKJH0Qt2/ng
DQPlfPHQLN9L4vYrb+0LyxjItPdEPn03iZ2sVr+exJSNz+1K205if6LV3reO
yufWA2lW8iROv2b82q+dgYrMef0K/CTmndF28P9D1Vuw1I1NpdT3vmwL8p1n
ILUNH169fc3BCZIycl6LDLQnudfoyCsO1sof7z4jKIWyc5zazLM4OPhPpr2l
uBSqrlh0kIjjYMEowl5jtRRSWbyjQPPkYImCQdupPVJInKa3ImAdB9sIf9ce
05JCjibRjvKyHJxzomotW0cKXYn4ofuOwcHGc4k/+3SlkJnV6WqmKAdH65na
NhtIIasMUU7fOBtLtZXbFJyUQr394bN+NWy8dj7G2itACr2zT1Rd7Uydl3qO
vHl0RQpJ5h3hM7FjY59asZUVwVIIyncZBZ9g44aYsG9Lr0qhqlOrbPFhNvbb
5HU4/bYUWslJe9SpwsaNR49ptCZKoTKLx6uDJ1k4PG0ZQxtLoa7KFPAPZOGB
g7cbRIWkUdOHjKXYcwQ7GjrIbVwijXBOqbrkmRH803in3z5RaeR8OCvHzH4E
N5t3ywdISCPXLOeH9dT5tur0Dv8RKWn0/KZWsNWWEZwU0qn4ZaM0SuE/+FG8
h4mPF2+9fv+gNHrcpXfpoyETv9/0CdbdlkYuIy9CDooNYzfRDCF5sRVII8L5
vpXzAC5O3aD9PmYFcl/JVPba2Iu/7NWqMaWvRNatEv+5PunGs24JZg5RK1GK
3KRIdVQbrjuWYi65QgZdF7k2YXS1ETtqamVmPpBBhWtrae+uv8Nn2Z+nfsTJ
oBRl3bgeeIc9n9ofIJ7IoI+aZi58vEocInb195UkGZQwft1I7XwlTmyvX22a
IYOGmK3z3/+twC3+J6LnimVQw5oIwWyjUmxQ6u1v0imD6ox/2rrfeoVNzgvV
RfyUQVBvqrNx/iW2VIhbUd4tg/YdTlPv8nyJXSPfFGzqk0F2BofOJb7MxddO
8nH+sGSQm8CtckvjF7iCd9cxY0EG8dw3vF4f+RTX5K5/1ckni2TJWCLLKxV/
cny1SBOURZMrw6Lc8pNxZ0NzYqCILJrnyDfgY/F4Nn516zGaLJpqpoUIRsXg
ReOcjRGELNrT//HOeGkUXiIIPmVSsmjO+hx3wSoSS7k70jfJyiLP10z1sMdh
ePX6SXvr1bJodMjr2+SFAKzQdD03eq0sutaz+c6uPC+85cbK+Zr11H2l7PmH
P09htb3Zhn/kZRFfhZFJ/UkR/D/UOtiW
      "]]}}, 
   {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQjQ70d01nFte6ar/yfIDHg+NX7CH8p/bKLpbZC5c/
tnebntyqtP+9/RPbdVGCp15B5b/aS+jd2xLM+t5+94raI3NKftmvclqqyfrk
PVT9f3tObsG7zH5v7V8eUlG+0sLkIGj3/B5P93OoflaHD9Vved+U3rMv3cj1
JPI8u8OpCN36fMGjUPO4HA5C+PsZF3xYcl+S1+EtRP1+iPn8DjwQ8/a7ub/e
ZGQk6MAOsW8/xD4hB6h79vfYxU0uvS7sIAlx736I/aIOzyD+2X/J9GLxjhox
B1WIf/dD3CPusA4SHvsldF1CfitKOrDHiBirLdu4BwCcDYvm
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.4226041708125*^9, 3.510989655426239*^9, 
  3.5109898636871853`*^9, 3.510991384693328*^9}]
}, Open  ]],

Cell["\<\
Pod\[IAcute]v\[AAcute]me se i mimo tr\[EAcute]novan\[YAcute] interval :\
\>", "Text",
 CellChangeTimes->{{3.403534841940039*^9, 3.40353484927354*^9}, {
  3.40757095040625*^9, 3.4075709601875*^9}, {3.40757186659375*^9, 
  3.407571868125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"net2", "[", 
    RowBox[{"{", "x", "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", 
     RowBox[{"3", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40353477288113*^9, 3.403534777431531*^9}, {
  3.403534862240303*^9, 3.403534866557294*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3dcje8bx1sqfdt7bw0qJA3J9dA2QxFCkmwZqaRyQqmIJFlFMlLaspLu
SLS0SENyWuc0TudJQzu/6/cPr/frc12fa9z38zwnLS/fTfv4eHh4FuM/////
yzUhxSmtCSKqF/nQxWqKxM0VGZsvO0Fat44mXZ4/RXZdEP2xXXCC5Pf+TS1V
mSIj/lLxBX3jxPXXQL/57CTR3KUiGfRinCT65ewTL5kkQUYLhSfsxonRKYu0
uLWTxKh8y/jf/WPEabB4xfSuCRLL97RpKHOUXAyyKEkPGyPV/iW+V+k/RLPr
1banvsNELHvvi23tHDLewLazt6bJ8a1bFuYJsoifjjFnoIBNAudczXls8osE
vtKcemP9m4yq+Nxj3qsmPD8Fh9JsasmojNDSuqHj5NncOTX/+APIoHgR247n
K3iwnAQEVb+C25n17QIOrRBpf/gJnPsJgo6Jxh/DWuHirFHA2/yf8Eq278y5
960QGGDVpdT3E+RzwqUnzX6Bd5r2nKuurfCDVWhL67QBFXMyDgx+gVG63DcO
DxPGv6fapFW0QabCxaWNbe1glper4zLDhOwhz8nnd7sheeU234x/naC76U/U
1VfdkK/z9cV8uS64nRumdKK+Gz6F94nend8FjOMpluYiLOgpTyhZ49YFG7md
/sVnWGAUtydnIq0Lhnt9hr+7s+HN+Z2zJ126waL9CGdGvhdq987/HnCdBRnU
zFmmaS/0zPMSnnnMAs3kmP9K1vfCuJDL5RNvWCC8O2t+ZEQvKIoW2Bv8ZkFz
K31A+m8veLoOCVcuYMPZppPdeg19wNHteN/8gQ2kJrBtww0OCEQ8ai9k9sDt
xgP/nmRxQHG+286CPz1w/Le75nQ5BwxM1BY+5esFTdrS6xnPADj96H3kpNsL
58UnunmODUB8xEjwa59ecFh3ZiDXiQsGjmYepj29UF1xZlpmlgYXJ2vl1b/6
wLU3X/yl6CAcMLqxbKq/D6gBIw1P5UEIdAm3ujPZB4qjqtSrpYOQbFnz9J5C
P5QLzIR5HRmEnh6GyFuXflig+37Ou2aMNzT3X0v6gfayETuS/weeVTiZXonh
wI9DO65SJX8gNurr8a93OVB48oyEXP0fCDxglfw3lQOR519KFdF/wIl1J5nn
Iwe0U4zlJRcMwSDvkm9/RjiwpV1NI//hEFDb7t5ZsWUAlvdaJ0fmDIHmG3nn
iT0DoPNnm9ZOMgSSYyrG944OwCBPgo7gryHoMVvuE39xAKI0xQ3cFYchMjb2
4I7cASjcPbto+uow1LJ9dpgKciFlv2pebdIw5HxWtN8hyYUo32VLnmQMQ/K+
9QWHlLmw5Zz/0vUVwxB44auGjQkXBu9zrZLnjIDmA68vWa5c0GlrW2UXPAKe
5tUu7xO5IMKaLlG8PAIup/eHrn6C8QPK9gN3RsAy3/bR+0wuFM5scUx4PQI8
cRk5bkXor1azpmdoBJ6JeQ+uaeNCtAdxvXJwFMa9RWedlWgo0oyr8AoYhcCD
KQ7vNWgY7vKmrMJRP6oYoKRHg8dRESNWMvJfRuAVUxpMQt34qSbkSK3dHqtp
8FplcEaeNQrHM1Wc5F1ouCU4xeUMo14XyHnjRgPPteSWOxJ/YbDg2KY3njTU
P+jPHXZAvvJW4MFpGgS9i/QrXP/CgetFVveDaLA2uJ6U7IX6aQ2+iHM0PM4x
j1oXitzmvEwiigb/D2GeqS//Qs+i8HKhezSkh7v+CCnB/IYlymse0PDbWX+t
ax3qZz60+D+iwam+yoJ3APmjwr1Lz2lQ7lSQ2KE7Bj1+0ukxBTSsT+27uNh0
DDzP3BaRLaLhwuH3k0IU6iGqhec/0MAZ9mLl7xgDpqCEgFIZjfdiqcflgxjf
//gGVUmDW7Bw/Z4A1Ddc8nGpxn0KZL0Xv4FsuaHc4DsNQ2WMJd3JGJ80tOnP
Dxr0YzanvctCXWuXTEozDbFyE/EHKpCjm40K22j41FwpAk1j4L5hBWNeOw0T
SfcZcizUb8j98+/EfevZHfnIOw5NyxP86tk0JPTJd9yWGAf3MCOf1l4aKrN6
t/qqob5P4kx1Pw1mFtdsVa2Qj+2fOETTcGBqz9shB4y/scdL7g8NScRsYbkr
6q/zO1OH8DycWpT9jyMnr9QPH6VhmWhm7NrQcXCZc6+75i8NvrXnBHWuoJ52
OZ9vHM8nflPwxB30u7opTm2Chib3eUM1qeNQm2cbojlJg6ja+P6nLzHf4tOp
/6ZoWNle8Su4BPWf6/3akP2fJG3eXIf51PGQO9N4ngePlxv+Rl23LGb5DA3N
i3uzDbnjYODtuqweWXhyT4LhzDgwSpa+XYPvGfOPLcGGohNQqz0hnIa8L3rz
XkOVCVjU4WDQhxy/qcrZcP4ERIa1y0n8o+Gjsv0iQ6sJaGI+rVVA/tPxXt7Q
CeMZ17YKIGs+N58x2IrxkJ32HfPXn8ruNPDB+F1LPkcih1gbVBicxvjZfRma
yBn8D3MMLmJ8UvqOROyvpVLplsENjA9mfJvCeebGx4UYpGB8YZgMIFt6/Odt
kIvxZ/eq+OD8ProXVxsUY7zy377juK+bnOlFBjUTYBmkc3437vNT/mkFg7YJ
iD0zxFyM+x4K5s7oD0wAU/GiUA+eh5b9/i79aYxvkvkbhuflIsas0P9vEmIb
xzP+DdMQ2uCeq688CUz5p0Z78Hwzk+pu6RtOguWrZ6efDtIgYlLire+IevwB
n1YODVZ/rdfob0F95IvE1z68L0X5i/X3TcLtYRL+sIeG0vVPZ/UuTAIl3ftz
FO/jiLxGt14c6rnxRafxvmr/vlWp93ASega/nmzG+8zwjbqtR1C/9t+WtXjf
syz4zulVo26yN3IHPg+//gXt0/uFfiaDceu/4X2LPWKqN4X6kWBLZhUNozkb
quZZTIFTuhBfHj6fumfK8uY5TEFy2thiJj6/m1auvDPPbQoGncLWDr2iIafO
1GfeKdQdb639mEXDoSE5nnnZqNst+iqVRMOdgqss3aIpcPGOe7L7Ng1l54W+
6n6dgme2b8Ou36BhnszEHd1+1Pk4mx/i+4a5pHWJrv40PPtHV57ww+f9dMp+
nQfT4K7sUdJsR8MrqUr5X5nTkHOPqR+5ggb5rOHShMJp4FF72ahiic8Dy05X
pAX1cwHGw/PxferOZg7KzoBiONfWSwKfZ2uj7UXRM1Dmu4vP8RsXShpd5wbe
mQGDjfwZayu5oOsX8mbxsxlg5H2ftijhQndGtfyTUtTdNmaRPC4cUD/x7TLP
LDAKvMTjY7lwjPfV2m3+s7Co1IdnqyMXapLapqTDZyFWz21fgQ0XFi0Tel51
YxYG2dXd/GZc+HPSfS6Vi7pIxTZnTS74dU2W6nFQv8YZvT82AEFfAEb2/IPk
Ar+Y4IcDUPK56/YXPR5KMvZu+KoODiif+nboiTEPNWj+SdL9BwdOanxcfsEM
+f0rdfcKDmgGPmCuWMVD5RzOZinkcSDUcLvBq5081PEvpbq3GBxYdqXm9eN4
Hop5X4CRqMSB3I0FP8L4eKmcgdCtQsv7QXj22bPdc3mpZNnOsnPG/eCZfivI
RpKXin33e7JTvR/E+U+rT6jxUp5zn1T58vbDkfyFPseteCnJfSO7Ekr7wEDh
yeiu47wUQ5VtYri6Dx60XpNd3obxa+IXvLHrhZHouvtZ3byU5jqPnPX4O8vJ
SsZQa4CXYlZXzqvR6IWhmwk2gtO81HHTWN2rkz1gtyHJp1aJj2LcuWIrmN0D
PR/S33i78VHJQuaNAzI9sCi11COmio9idsZUyFaz4MOJqcdtBfyUZ+v8ljqh
Llgeesuw/gM/lVPy+RDvUCe8iV6SVVrGT0lWrmzUau2EnEeHX2f84Kdqt5Vd
WprTCfcbfpYHDfFTiyws5qVv7YQgq0Ku/HwBavD65v2NjzpgCW+I5YY7AlSs
Yyq3cHE7PImdrSQBc6jkedci3De0Qo3JR6GabUIUT7Ch8tTiKrDZzNimsGQu
xaP59WCC1QVylPfHyvscEYohovNf5LUq0mnCWbG5UpRiLvX75rG5laiy7tQ7
RItTxTGF09cFu4j0JSpc47o4lRy28lyDShcRNmBbjN8SpzzlmuxFFneRkYNm
SWlPxCmepKNejju6SNVA9X7RD+KU5lopU/HsLnJ2lH+mbkycYvRNy33Y3E1a
BI7p79wnQWmmxsW7XWeR2ieyLUuPSFDMFq2Jx49Z5LPDuyvipySoZPHa2s7X
LJIXKTxEGBIUZX4mZWEbi0SLPirUTpSgPLslXGYN2cRKtmljT70EVdxZKXCk
iE2qpLSKrDQlKU9GLNOopYc4dCadGtSRpKjmq3s+cXoIyVc2TNVHPU4o2OFf
D8nbKhsvuxB1OzUQ0e0lt5OEDtE2khSPcMG6q0d6ibchV+7JDkkqeeEDx7MT
vWSaendU8hbq50o3nOfrJ/7Sljpf7kpSzAAwcZHuJ3RnflPIfeQcsUZB7X7S
EZFl2/9EkirueLnJZGU/Kat6qPQ5H/0+N1zwDu0n8e6RpWfrsX71vrteI/3E
+LibGltMivJ83yXqUs0hBcf/bdglJUUVS54qtGvhEKcTaecbZKUoHm8jlg6L
Q7xOzrBLVKSo5Gj98IczHJLg9yQv2VCK0hxv+Xd7wQCZDRx13G6PvMQi9sSF
AXL5zIOgOicpivH5du/cqwNEMcg502mtFMVUcrO8cnuAmJ5NkrbYjH7FdQnr
MweIT4j9L5k9mC/eF1beMECqw26e/BqM9efuuHldm0t2nIcndgzs1+Pxh9IF
XNJzvrfx3QXsV8L+WKcZl/BdtLFJj8Z6/sHGPx24xDyiW+jSbcx/XB/17iCX
3I9emkTlI/8jGsuec8mCy79rXr9Gv5M8jvwvuOTN5Si+he/Qrzs96mUBl9Rf
+bVf7SP6GS1f3VDOJYLXwk0nazC/5YcyL5tLfG80fHnRj/F+InZz1GgyKZu2
5TSNfsbXU7t0aBKRENxtPozzlqqUPJtPk/t3dPgLJjF+i5XIbwuaVD04saJ4
rjTFo3R3Kf9Gmrhr2X8NE5OmPOvuvhTaSpPOFEUPWynUo/+QQQ/0f0LOfFaU
pjRVzu06foAmBhliL6v0pSnqvZnZvFCa5Bu3215dIE0VN+wOWHeBJpCdX79h
IfodG1LdHkmTLXk7BuvNkYlMiGYcTcLfpC1otkfWipXf85gmkstCCu46Y73J
7D/Pn9Ek8Z2Ls8c6aYoxJC32MwP9i8Z8frtivK3zaHc+TTo+2ad075WmkksV
52WV0OSYg9Li1P2Yv2LTPeUvNJn4wiEHDqOecGbp4Qr0r7zxq/8k9sdWK39T
i/5r9x/J9Mf+Ne8XvvxGE/3qZVPHglB/I1GW8IMmK+raFYfCpClm1FeVOa00
qdj0MvVFONbna9wV10YTt++R5qejsJ71umz+dpocaVzoOh6LLDp1LK6bJuPu
/J1v47F/3efN2WyaXGz5ceLsbdRD3jrl9tLk3q+Qa7MPkNd3LvAcoIne7o3q
xY+wX0GzRDGaJnlM3cywVNz3v9VzHwxiP17j1rbPUQ8IPSE7hP10VlYIZGP+
omXfjg7jfvc92PY5D+s94zN+PkKTdtbJnkuvML/9ZEjVKPZ3wCHAuQDnU1pR
UvcX++tVEvyvCOevN5kpGMP+Dg/EV31A/z79+ZHjNJEYKNa5Woo6v7az1QRN
7h6Lz9tQjvuYMtlWjaw3uH+l1Ffch2zgNsdJ7PeEdW19Leprlzs/RrYZFt8d
/x11+wb9buQyv44Btybsd1fuyNwpmrj+fRms0Ir9bnHPlkbmHHkZ8uU36mIW
Q/8w/mJnfmhAJ/bTaalXj6y6Pf+cPhvn2W68Jgo5v/YFo7EP9eNTnvOQ1zq+
CLvERV3owf6n2F/X+7zzFkM4r43hblHkYLO8C+xRnMfvo+NWnE/uee7FWxOY
P/+Z1iWcP0srN9xx5v/7Mh64h/txuJ0TMcYjQyWPvU+/iftrE8+5lCogQ2lW
N273w/36h2dHbhVG/bHkrAXuX3w6K0pIVIaiVGRvMv/Q5OnJrOjXEjJU8eLH
msfw/H7szryioCBDMdtaFS3xvI/9yIj5oiyD35eAS379NBFcl3E1QB31Nee4
N/F+mC97Hts4T4biuZOZfgnvU3VO+vVLhjIUQ+I0n3snTXz00+MsjFF34GwV
w/t3SzYt/pYZ8g01Pn28r4suP7vpaIn+5QbbLzfj/nmfJYxZo79G+KvveL/H
uU9vb7XFeOPSC/J1+PyXP05U2ITzOVqmb/lEk0F4nPTFDftX+29XZzFNIl89
uh+wDedzva7v9p4mbx6lJDd6ImuJCva8pIlSaPLjW75Y72etTeUTvA8jD544
nsL8usJ+xkOarD784OmYP8YbrPiskkSTIPf7z7aGYvxpWXHeeJq0mCZmKMTg
fPQu52gGTU6m3cv8Eov9RWS9O3iWJiKa97IC4nHfrcP+Jv40WSZ2N6fxHnKa
adP+w3g/2bfyb6Vjvc45b++60mRH4o1ChTLMb1reJKCN+11VvCyyEtk56VGO
CvbH5rwZr8Z93Ll/3F4O/Zc4vGxuQL8dHzXnC+N85eOZ9zqxH6DdmBwukRvb
+UDjH+brSxoL5HFJcWK0WiyfLPovXbYqnUuOrHp9j0dQlmIanLl5MIVLPsVI
3m4XlaWSKwrX+MVxyUndkthHyrIUo/q0S9AJLqnZaHBe3xzz/5YUrMPvSdCY
K89tK2R923U6+L3RSwoLFbZBv9fN0R2KXBLa0xLUa4t+SmWa6oJcYnQu5tTz
jej3Pu1o9O8BEpUx5L3wKObPEzhhg987W6H3jhaPkc1ePISfHMI1ltEeSkU+
JF7hht/b264HpzOeIzNWftr0gUM4D+VytV/IUpSR0jbeVA6JX35MWfyjLFXs
XbnU9ASHsE5oDHT9xnpyc65yeDgksjUsLk5FjtLcatwkL95PTPmbjqzTkKMo
47qnarN9pNXQxFFYR47y1HldJsrtI4sDWqZC5stRjA2myx9/7SMtUkv2HbSS
o5hsUc+3l/vIAscuC2qrHFXcdOBbJH8fqc51+DUQh37LJG5od/SQK0IVZgcT
UD9042VsbQ9ZvXPdla47WF/lWF1/UQ8pFXa1/pmM8dNZhgfv9ZDC3XvulGUh
q1+tCdvcQ9LEgt0eVWA/q+KKzIvZ5OLB3K/ufPL4vqv5IXmFRay1VItKTshT
zKCa+M+DnaT8G9fQfK0CxfM64eCoWyuZLNVKBitF/F4WHnEsriJiIcl7Dsgr
UTzM7TyxQpfIx1PnjA0ElSmGjNZHxqtKyFFvTUudi+yxYWGnRhU8KLfU0xdD
1hvX14qqgmCNIXU9WWQrJ6bxjq+wtNJbUlcbuc1lX8hMNTzTXj2ssUKZKv6u
L+SgVgdX62TfKvgjP1gZGeP8HbYtTLcTYiEvleK9ubEFXGtMl5zuxfxdYX8G
Q1tgve87rU4O6oI2CUYZLWCXXTVbNKxMUbf5xVYJ/oRFC+k3/rwqFPUuTeP3
m58gvNDMmKWqQvHwBi3IVPgFr0yK5Eo3I1epZA6+/Q251Q4CS7aq4O+N08rV
Hb8h41jNUPJ2ZC6r/sMcJqRkMWuC96hQjDEDSWsTJsSY8Eeb+aIuvGbYMpQJ
3iZOs4+iUe9/scFRuR2kTepZ5z+gf53Dh+8rO0B0w8XF1qUqlCdFZITdOmDO
cfPg4TKM92W4axzogPHcu1LetSoUM2ZcYSKmA9qW7l1u/1sFz69S0K2pA9Js
Rq4LzaCfd/Cay/s7IWXX01bCo0ppDjMb+wI7IfGcu36ggCrlmRJdsyC6E65+
KCzs+U+VKi5m7dyY0Ql+9uHscmVVihFSFaZHdwK1Tt7miqUqxdO4UL/hWBcs
O1Z2yW65KkVFzNhbhnbBkmtB9dOAfi9LVgbFdIFeXdv+o47odyNvwd3nXfCf
W2rc+i3ot2jM0Z7VBT88LHsk/VQpZprmBV23bqgN6TMtD8D+tvWpeHl1Q/n9
xJCws+jvFDd91rcbCpk8MkPnValkH1faNqobUrzLbb5dRz9bXXHNd91w9Mj2
Gzez0a/1xZsuBRYEFVrtEH+B8XV5DUraLIgQVdK59Ar9WI/jjI1YkJzRmBf4
HuN9Zb0HgQXfOa71Oypxvr0zab/3saB9udnd79XY/1j8f4K+LOBekfFaV4/1
rkhMzw1kgbBx/Z8VzdhvQh1PehQLlh/dIKXNRn/nlBaH5yxwfm/SfLcP/dou
jri9YMEWMfGHMlz0i9O7vPIdC45nVi2aM4rxrQ5PMitY8HjA2aWHT43y9D1a
0cBmQa6NoeIeQTX8+6RFqJTLgqIYYWbzXDWK521L1rVRFjQZf/GtlFSjGCl5
2a/42CB6zO5alroalTya98pRhQ1KRTpb9bXRb3V5kLgWG/TE+TWS56GfhlN8
th4bqKwPWdeN1KjiZ1o2jMVsWDeb7C+yCP1+2V7KNmfD9vWMFReWYPymnYlv
rNngx11R7bdMDX/vtCRutWdD2Ar1hAEbrLeod9WAMxuuXp3Z6bMS64VThh7r
2fDMpHBgqxP26zu+oHQLG16G3ntZuwbr2Xbxke1s+FgdFOK8AetZml67vosN
P49ZiVlvwfjzncuL97Ghp0ix4cU2jJd/rah6kA0j4uOJRjvRf0GlussRNohn
vzJS98b4l0fUqZNsUPl3cyRhP8ZHrauf8mODwYbThRKH0X+X3LxrAWxYRS9Z
y3sS48taVJYHs2EDyMgGncZ5VCWD3ELZ4HFt6OdQIM5Td6/fnsGGg7/rHh0O
xnoR19eJnWeD/8Lcw13n1PD9yhvy/AIbLpyLXbLzAvpJjm/RDGdDbI3vVEME
1hc49+ZwBBuSNDaUrI/G+kqJoTGX2JDua3L5Swzuc/3miPBINryiLLKjr2N+
G1NgbxQbPkhR39bdxPiYAwYS0Wyo6nAak7yDeojbpyjkphcbVb4noj9HMqMe
uevidriVjP0tn83rRabd9u7d/hjjRUMyqpEn9Y5cUnuGfmd7DochC477PWc+
x/4X3PrEiyxdHlLzKBvnb/kZtQHrq92NGPZ5gX4VAtcOYX8Gh68pzH+Nfss8
Ujdh/2bLb1sPFOB+Dho8FcL5KLGHu3OKcJ4z6buiLrJhTVvahVMf0S9S83Ej
7mtLdl6q+Wf0C/zkPIT79GK8q5wox/rCVdrNuO9jGz/RhV9xntf7+a7geZzR
/irDqEM/oc/vRILYcHG4wcK2Af3+Smi74fnFfmrbIdiM8zgcFj6M55t4k32u
vBXj/SdWrj3BhlSfwUdXmOj3pOnh+FE2FAnzcaR7sH97jmaeDxsqmkUkf/Rj
/67OrCIvNjSky5jdobGfx47qCXj/OGvnBWuMYb+2600fubFhXM0kuWMS9WHP
/CYXNvDT5p+ezGJ+h8Fo4xo2KF93EjUSVKeYKz/Nmq7E58tr4yJ6rjrFqLt4
9Co+L4uXbHfNE1OnNMO+s/KWssGp4XCipZw6/n1Vb7fFkA2uT/2KpxTVKZ5B
l5rv2mzYHRDSVaSK+bv/Zauo4n1TumZkr6tOFa/YR3jF2XC+75aLsAHq3Lob
yYJsiHmX7Fe5APN3Nc4V+ofvj515hRuXoP/OoXnzaRbUP2xYu2sV5ltfNfpU
xYK2k23HtRxQ7+dVvVfCgl5bdnyXM+p3V9laFrCAhzXeemgj+inPvfjpKQtM
5qseDfDEeoFzWzRCWBCd5xUTG4r8ctqgQJ0FKYG3dFadx3j2v2YVaRYUrKh6
OxyOfu6W6rZzWNBXsZS1JQb558L89r5uWN0pDGqJWD9l3HP7i24Qkc0eTHuL
LCEtKmvVDdotnRE73mM8Y3dxgUE3LEtWVBP7gPXivLfoKnbDIaPzzsfLUJdj
B8HfLqiwc0sxb8T605Gc2OwuiD49tblkBDlt28Mg+S5IsV7U5zeO+UF2i6z5
uqCAdx9DbxrrVVkPvBvohL6Y6owofg2KcU3dbqakE1Y/fTjHRVqDKnYTSQs6
2gkijY6vWxcirzrpvSy/Ay5bxiv/PYScmDiaJNEOr4z/Gh84hnyj03tmhAkd
2u4rW05oUDyVoTc1W5iwTEz1QFEg+m8Lz8x9xISe9kcvIyI0KEreq3VyCRPs
Lr9wUUjR+P/vpfuycW0w/as+wrIZOWLQa21kCxh8M7ub3or5ZqtfnrRtgc1l
CZmqTNQfpeYrzDZDet727zxs1OHwg9YTzeB+qUOrfAT1M9X7V29ugu2KZ9qM
hDUpxpG9jQEzDfDqQ+SZ9zrIcTaZ8wdqoTJ4fe69ecj+kR2esbXAtJDtPaOP
vH170ohpLYhkPXA3X6BJ8Xye8PPhVMOuu68ssk2RfVb5CPZVgtCprtHklcgG
v1atSC0Fd13q5MXdyFs8g5Y758DR33PSvfYgV01IWglkwvm7le3UXmROsuLl
42mQIbl144wPstGNR82WKcAzc3SR/zFkhlhLzIpgeNZwj7s/BHktvdm5M51M
RIwdWnMPuc5Aatv0Z3K7eXP73CTkobywm5NfiLlRztay+8iy7idkJ8uIX90B
O/sU5K0/FVqnK8igSosapCF7FESkSNUQVk5hrelr5JE2fofCb6S+Jcxc+RvO
X8xq6XnQSk4Yt2U0fUfeWFJZuOQXkWQs07n1A+O1/TSty36RdfOGJWRbkAW2
KFkOt5EyX+9esXaML3FMSXrGJETAMZGX1qQonyPzv8l3kgwTUb5eES2K4jwv
FFzaQ+rOhubeF9WiGCd3vl8c2UP+lg16uopr4ff9yGzezx5C7W0gREoL32e3
Kt5c6CXfb90PSVDEfDjo3NDYR2Z4Fk/Y6iHH9Vf7xg6Q9d/cBu+v1KI0PcrE
xVL+kMGAB22ugegXF/RnR9sYiQ/XK1wYpEUxvwQuLFYYJ1Y3Mu+IBGN9Y4el
HhvHyfmsd67F5zA+7R3XunScyHQ3Viy4hH7Uu9OJ2RPEfJPka74ErFet+XLk
6hQ5axR2LecF5lfsLLwd+I8ItntRojSyYY7Voln+YrMIhseXQfQ71fDus4ZA
sdeC+4Hnh1A3u/4zYKVAcdHp5pzxUWSNzfLzwwWKA0RctLqntSjPzOuHasTm
FPcsseErEtGmKKkoxXm6gsXlEQqffPW0Kcm63CLLfcLFeeFFgr9dtCmPY3oe
h5VEi/8HqcJHPw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{Rational[-1, 2] Pi, 3 Pi}, {-3.512411804125618, 
     0.9998892855865291}}, {{-1.5707963267948966`, 
    9.42477796076938}, {-3.512411804125618, 0.9998892855865291}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.42260417121875*^9, 3.5109896564433684`*^9, 
  3.510989864103738*^9, 3.5109913851718893`*^9}]
}, Open  ]],

Cell["\<\
M\[URing]\[ZHacek]eme se pod\[IAcute]vat na odpov\[EHacek]\[DHacek] \
s\[IAcute]t\[EHacek] na tzv. \"data/model\" diagramu - \
ide\[AAcute]ln\[EHacek] by m\[EHacek]l b\[YAcute]t reprezentov\[AAcute]n \
\[CHacek]arou odpov\[IAcute]daj\[IAcute]c\[IAcute] ose 1. a 3. kvadrantu.\
\>", "Text",
 CellChangeTimes->{{3.403534896246475*^9, 3.403534932207163*^9}, {
  3.407570963234375*^9, 3.407571031640625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetPlot", "[", 
  RowBox[{"net2", ",", "x", ",", "y", ",", 
   RowBox[{"DataFormat", "\[Rule]", "NetOutput"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.403534880103088*^9, 3.403534884316805*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQvcppqSbrk/f7F6yfwvT37vv9knr3tgSzAvnpTAo8
QJqdW/Aus9/b/QvC1WTC3N/uf2a7Lkrw1Kv9C/6b/E49/2o/j93zezzdz/cf
uP8lL7Tz+X5VF8vshcsf728wP8q1ffXj/W+r3/K+Kb23P6G/tda+4d7+decD
PB4cv7Kf4f4n7XX7r+w/GKFbny94dD/D/l3+b0yO7mePETFWW7ZxDwPDA869
nuz7GRBA89fJ0P2nIOrtGRTtLpf+OGK/EmKePY8A36yAr1fsP0Dss09w+DTV
q/KevTLEPfY8Gy5Z+K94bC8Ica+9wY0X99dMeW7/BOIfewGLpWW6u1/Zc0L8
a6+woTL/dsRbewlIeNhLOJx06Pv1zh4aXvYKK74Xuz97bw8APxigXg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Data\"", TraditionalForm], 
    FormBox["\"Model\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotLabel->FormBox["\"\"", TraditionalForm],
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.422604171296875*^9, 3.510989656556383*^9, 
  3.510989864158745*^9, 3.5109913853139067`*^9}]
}, Open  ]],

Cell["\<\
Takto potom vypad\[AAcute] s\[IAcute]\[THacek], kdy\[ZHacek] ji \
p\[RHacek]evedeme do vzorce - ur\[CHacek]it\[EHacek] \
pozn\[AAcute]v\[AAcute]te aktiva\[CHacek]n\[IAcute] funkce neuronu.\
\>", "Text",
 CellChangeTimes->{{3.403534979956576*^9, 3.403535004714008*^9}, {
  3.407571036890625*^9, 3.40757106571875*^9}, {3.4226052134375*^9, 
  3.42260521471875*^9}, {3.5109899388742323`*^9, 3.51098994145156*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"net2", "[", 
   RowBox[{"{", "vstup", "}"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "7545.255860754043`"}], "-", 
  RowBox[{"1805.5733030259457`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "0.003836404358759403`"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.7753494428178029`"}], "+", "vstup"}], ")"}], 
      "2"]}]]}], "+", 
  RowBox[{"33.19320438606403`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "0.05191286450210454`"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.6758824826677261`"}], "+", "vstup"}], ")"}], 
      "2"]}]]}], "+", 
  RowBox[{"9318.258405483211`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "0.0006328561903185434`"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.4427198938094842`"}], "+", "vstup"}], ")"}], 
      "2"]}]]}], "-", 
  RowBox[{"0.15620409615458572`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "0.45499588171223826`"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.046425839058406845`"}], "+", "vstup"}], ")"}], 
      "2"]}]]}], "-", 
  RowBox[{"2.6935569835969906`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "0.16690350207427215`"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"0.013125669236265099`", "\[VeryThinSpace]", "+", "vstup"}], 
       ")"}], "2"]}]]}], "+", 
  RowBox[{"4.252159351258261`", " ", "vstup"}]}]], "Output",
 CellChangeTimes->{3.4226041713125*^9, 3.5109896565948877`*^9, 
  3.5109898641962495`*^9, 3.5109913853549123`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Prohl\[AAcute]\[SHacek]en\[IAcute]", "Section",
 CellChangeTimes->{{3.418480577171875*^9, 3.418480581203125*^9}}],

Cell["\<\
Tento text je sou\[CHacek]\[AAcute]st\[IAcute] bakal\[AAcute]\[RHacek]sk\
\[EAcute] pr\[AAcute]ce Adama \[CapitalCHacek]in\[CHacek]ury \
\[OpenCurlyDoubleQuote]Demonstra\[CHacek]n\[IAcute] aplikace pro podporu \
kurzu neuronov\[YAcute]ch s\[IAcute]t\[IAcute]\[CloseCurlyDoubleQuote] na FEL \
\[CapitalCHacek]VUT 2011. Vznikl \[UAcute]pravou textu Petra \
Chlumsk\[EAcute]ho.\
\>", "Text",
 CellChangeTimes->{{3.418480638421875*^9, 3.41848078665625*^9}, 
   3.51098997374166*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{843, 730},
WindowMargins->{{Automatic, 223}, {Automatic, 7}},
ShowSelection->True,
Magnification->1.,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "NaturalColor.nb", 
  CharacterEncoding -> "WindowsEastEurope"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 621, 8, 42, "Subtitle"],
Cell[1191, 32, 291, 4, 25, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1507, 40, 144, 3, 75, "Section"],
Cell[1654, 45, 440, 8, 29, "Text"],
Cell[2097, 55, 181, 4, 41, "Input",
 InitializationCell->True],
Cell[2281, 61, 406, 7, 47, "Text"],
Cell[2690, 70, 213, 5, 41, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[2940, 80, 346, 6, 75, "Section"],
Cell[3289, 88, 207, 4, 29, "Text"],
Cell[3499, 94, 543, 18, 82, "Input"],
Cell[4045, 114, 172, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[4242, 120, 69, 1, 41, "Input"],
Cell[4314, 123, 733, 13, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5084, 141, 69, 1, 41, "Input"],
Cell[5156, 144, 926, 19, 83, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6119, 168, 293, 8, 41, "Input"],
Cell[6415, 178, 713, 15, 238, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7177, 199, 244, 4, 75, "Section"],
Cell[7424, 205, 640, 11, 47, "Text"],
Cell[8067, 218, 239, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[8331, 227, 383, 7, 41, "Input"],
Cell[8717, 236, 1144, 30, 60, "Output"]
}, Open  ]],
Cell[9876, 269, 272, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[10173, 278, 135, 2, 41, "Input"],
Cell[10311, 282, 329, 4, 60, "Output"]
}, Open  ]],
Cell[10655, 289, 355, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[11035, 300, 161, 3, 41, "Input"],
Cell[11199, 305, 2531, 47, 244, "Output"]
}, Open  ]],
Cell[13745, 355, 507, 9, 47, "Text"],
Cell[14255, 366, 679, 11, 47, "Text"],
Cell[CellGroupData[{
Cell[14959, 381, 562, 11, 41, "Input"],
Cell[15524, 394, 827, 19, 274, "Print"]
}, Open  ]],
Cell[16366, 416, 285, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[16676, 425, 298, 6, 41, "Input"],
Cell[16977, 433, 9812, 166, 238, "Output"]
}, Open  ]],
Cell[26804, 602, 251, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[27080, 611, 387, 11, 41, "Input"],
Cell[27470, 624, 11845, 201, 249, "Output"]
}, Open  ]],
Cell[39330, 828, 414, 7, 47, "Text"],
Cell[CellGroupData[{
Cell[39769, 839, 219, 4, 41, "Input"],
Cell[39991, 845, 990, 22, 262, "Output"]
}, Open  ]],
Cell[40996, 870, 419, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[41440, 881, 136, 4, 41, "Input"],
Cell[41579, 887, 1697, 49, 94, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[43325, 942, 119, 1, 75, "Section"],
Cell[43447, 945, 488, 9, 47, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)