13-som-clustering.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[    106875,       2231]
NotebookOptionsPosition[    102611,       2088]
NotebookOutlinePosition[    103249,       2111]
CellTagsIndexPosition[    103206,       2108]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Kapitola 13 - Shlukov\[AAcute]n\[IAcute] dat s\
\[IAcute]t\[IAcute] bez u\[CHacek]itele", "Title"]], "Subtitle",
 CellChangeTimes->{{3.403530443303066*^9, 3.403530492291925*^9}, {
   3.403531440607864*^9, 3.403531442893248*^9}, {3.403533485330625*^9, 
   3.403533485478355*^9}, {3.407604397859375*^9, 3.407604411984375*^9}, {
   3.4094602160625*^9, 3.409460216515625*^9}, {3.409554290560431*^9, 
   3.409554290997931*^9}, {3.4135319059375*^9, 3.413531914234375*^9}, 
   3.42261604684375*^9, {3.5110074327811766`*^9, 3.511007464603718*^9}, {
   3.5134464356460085`*^9, 3.5134464364721136`*^9}}],

Cell[TextData[StyleBox["Demonstrace pou\[ZHacek]it\[IAcute] neuronov\[EAcute] \
s\[IAcute]t\[EHacek] bez u\[CHacek]itele k hled\[AAcute]n\[IAcute] shluk\
\[URing] v datech.", "Subtitle"]], "Subsubtitle",
 CellChangeTimes->{
  3.407604400640625*^9, {3.4177949321875*^9, 3.4177949448125*^9}, {
   3.511007474759507*^9, 3.5110075055309143`*^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", "Section",
 CellChangeTimes->{{3.403530554350391*^9, 3.403530568518535*^9}, {
  3.511007233525874*^9, 3.5110072409698195`*^9}, {3.511007285293448*^9, 
  3.5110072933199673`*^9}}],

Cell["\<\
Vygenerujeme si data, na kter\[YAcute]ch budeme prezentovat shlukov\[AAcute]n\
\[IAcute]. Proto\[ZHacek]e pracujeme se s\[IAcute]t\[IAcute] bez \
u\[CHacek]itele, posta\[CHacek]\[IAcute] n\[AAcute]m vstupn\[IAcute] data a \
nepot\[RHacek]ebujeme generovat \[ZHacek]\[AAcute]dn\[AAcute] v\[YAcute]stupn\
\[IAcute] data.\
\>", "Text",
 CellChangeTimes->{{3.403530608493107*^9, 3.403530624394515*^9}, 
   3.403530800561324*^9, {3.40760445378125*^9, 3.4076045060625*^9}, 
   3.510994181252946*^9, {3.5110076293896427`*^9, 3.5110077047462115`*^9}, {
   3.5110079670390186`*^9, 3.511007976243188*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"values", "=", "10"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"hodnoty", " ", "ve", " ", 
     RowBox[{"{", ",", "}"}], " ", "ud\[AAcute]vaj\[IAcute]", " ", "x"}], "-", 
    RowBox[{"ov\[YAcute]", " ", "a", " ", "y"}], "-", 
    RowBox[{
    "ov\[YAcute]", " ", "rozsah", " ", "ka\[ZHacek]d\[EAcute]ho", " ", 
     "shluku"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster1x", " ", "=", 
   RowBox[{"RandomReal", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], ";", 
  RowBox[{"cluster1y", "=", 
   RowBox[{"RandomReal", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster2x", " ", "=", 
   RowBox[{"RandomReal", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], ";", 
  RowBox[{"cluster2y", "=", 
   RowBox[{"RandomReal", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.9", ",", "1.1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster3x", " ", "=", 
   RowBox[{"RandomReal", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3", ",", "0.5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], ";", 
  RowBox[{"cluster3y", "=", 
   RowBox[{"RandomReal", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.4", ",", "1.6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster4x", " ", "=", 
   RowBox[{"RandomReal", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.9", ",", "1.1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], ";", 
  RowBox[{"cluster4y", "=", 
   RowBox[{"RandomReal", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2.1", ",", "1.9"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster5x", " ", "=", 
   RowBox[{"RandomReal", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.4", ",", "1.6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], ";", 
  RowBox[{"cluster5y", "=", 
   RowBox[{"RandomReal", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.4", ",", "1.6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster6x", " ", "=", 
   RowBox[{"RandomReal", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.9", ",", "2.1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], ";", 
  RowBox[{"cluster6y", "=", 
   RowBox[{"RandomReal", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.1", ",", "0.9"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"values", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster1", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"cluster1x", ",", "cluster1y", ",", "2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster2", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"cluster2x", ",", "cluster2y", ",", "2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster3", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"cluster3x", ",", "cluster3y", ",", "2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster4", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"cluster4x", ",", "cluster4y", ",", "2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster5", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"cluster5x", ",", "cluster5y", ",", "2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cluster6", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"cluster6x", ",", "cluster6y", ",", "2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inData", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{
    "cluster1", ",", "cluster2", ",", "cluster3", ",", "cluster4", ",", 
     "cluster5", ",", "cluster6"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzW9IE3EAxvHDMlZYvmgvDG/jjLJRznKJphm0VFy5KznLbJGFtHoR/RnR
qZGBaKG96A+spVJB4HphaoU26xqDLQn1pLbCXGNplqQul93EaqGte34vHj48
r74plWc5cxxFUVp5UO17JeSUT+tHlAYnpKi0BfEM9BAVxY+anmlCetv+iduQ
di92wYfxb93w6YElryEjXh6CG6VSLzxmjfqgLpzth9R84hic9q+cgFKthUhl
Hw9Dd/JNYsl6TQQ+GDgUhfOmq4twd3FjnEN2p6tXAXWbY0kwwfqPhu47TAa0
NAznwYz4hB3wqCmwC+YbmXyYOpiyB3Ld11goNj/noM1bWApXiYaDkK4cPQIP
S5knoUC7iE96Mk9DPuQhTu6L8dBQnVYFm+v5u3AT23QfmvmaNpi7rNAOv7Dh
dhisyO2ArmCng3y7QFT+fiPC3gLFECyL1Xrh9W0z76HzXHqA9AT6E+nXff8M
GyziFFzB/IyQb1TNwaUXH3sEWZOW7YPGP7F+aM+pHoCjbTM+WLD8B7EnkvwB
blnHBmFe3btxWFW++itkyv5+g0nc9kmYNX5rFiqlkShs7eMSX8peWTATbWuy
1NB/qmst5NvrU2HRx5Z0SN3r1EHNC9NWaA1MnYdjc78uwJITRSqn7I0alRpu
aL3UXaEN6WelYQE2DjpccG+L2A//A8Mpc1s=
  "]],

Cell["\<\
Vygenerovan\[AAcute] data jsou dvoudimenzion\[AAcute]ln\[IAcute] a obsahuj\
\[IAcute] 6 jasn\[EHacek] odd\[EHacek]len\[YAcute]ch shluk\[URing].\
\>", "Text",
 CellChangeTimes->{{3.5110077162741756`*^9, 3.5110077792846766`*^9}, {
  3.5110078831423655`*^9, 3.511007902597336*^9}, {3.511007936421631*^9, 
  3.5110079448121967`*^9}, {3.5110079985740232`*^9, 3.511008035860258*^9}}],

Cell["Data si m\[URing]\[ZHacek]eme zobrazit zde.", "Text",
 CellChangeTimes->{
  3.511008053956556*^9, {3.511016322031968*^9, 3.5110163224125166`*^9}, {
   3.5110164533341413`*^9, 3.5110164571926312`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["inData"], "Input",
 CellChangeTimes->{{3.5110080392251854`*^9, 3.5110080437552605`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.010751248965040983`"}], ",", 
     RowBox[{"-", "0.0441412940080001`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.02986630957664821`"}], ",", 
     RowBox[{"-", "0.0033875624473130306`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.04205044504787797`", ",", "0.04004154428036316`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.02011956060840847`", ",", 
     RowBox[{"-", "0.06117057388667438`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.09253620473569552`", ",", "0.09701960998992032`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.052604491078873994`", ",", "0.07836888432753897`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.08245003923473326`"}], ",", "0.02725219645439947`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.088286411505273`", ",", 
     RowBox[{"-", "0.06545105844601448`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.06903913342930695`"}], ",", "0.08288027867075365`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.014561489749454648`"}], ",", "0.021662417040618`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.08685834062137554`"}], ",", "1.0634694022374962`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.05219501320559833`"}], ",", "1.0103186210106971`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.02311639709929586`"}], ",", "1.0105161388987283`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.005571823754322747`", ",", "0.9733115165448573`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.011418470150548532`"}], ",", "1.0877200230729502`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.01541092969643243`"}], ",", "0.910499902012575`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.06856276070859127`"}], ",", "0.9508950786134646`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.06484549464302258`", ",", "0.9616946884094904`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.015625483159005416`", ",", "1.0232552085765751`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.0673202469025933`"}], ",", "0.9399493323509392`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.38274216587080084`", ",", "1.5695713320813363`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.399460113966825`", ",", "1.4827359036500634`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.44133343218599497`", ",", "1.4929869368064739`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.33017831172597767`", ",", "1.5659722961230749`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.49110768271655236`", ",", "1.4199486362343852`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4062584452640149`", ",", "1.5177159643858924`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.39439653298363336`", ",", "1.4086788634038534`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.464193499343761`", ",", "1.457867637434896`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.33417194650830084`", ",", "1.4295107467945283`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.43626654754631244`", ",", "1.4152450278226847`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0896338624697914`", ",", "1.9307483887801755`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.985556015136438`", ",", "2.039219604671442`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0487314154264777`", ",", "2.04283013609562`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0951320218893805`", ",", "2.01971770511592`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9346618870586074`", ",", "1.927816486396541`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0298343745227685`", ",", "1.9664462546423973`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0819422157246537`", ",", "1.9883351057192185`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9185969341112034`", ",", "2.01401816131238`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9971450616085944`", ",", "2.066577167910157`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0539125282081918`", ",", "2.052104816398602`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4061466942028058`", ",", "1.4000218287119812`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5419757768629407`", ",", "1.5854466357073265`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4785784493097558`", ",", "1.5197430016994757`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5051184744382202`", ",", "1.518248865851109`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5228090829758185`", ",", "1.4869961671838683`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4960526799318237`", ",", "1.468241810485206`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.574767669322145`", ",", "1.5982599793555283`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5228294282020487`", ",", "1.5906339364253892`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4706111472048033`", ",", "1.5506159002123094`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4126343006115125`", ",", "1.5713583853566686`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9313329230688059`", ",", "1.097712674625158`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.017740866971007`", ",", "0.9568854003348646`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9676942407663964`", ",", "1.0608293876107309`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.082139986770964`", ",", "1.054948815087294`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.942502407605201`", ",", "0.9599363210867089`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9173257994640074`", ",", "1.0115605924955902`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.0439230790982443`", ",", "1.032487370719919`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.0117238706477023`", ",", "0.9277020652018879`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9872154092931449`", ",", "1.0586445719393491`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.0084505412381963`", ",", "0.9210149199613907`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.511008528575325*^9, 3.5110093787242804`*^9, 3.5110104569536977`*^9, 
   3.5110105938190775`*^9, 3.5110112666690187`*^9, 3.5110113530299845`*^9, 
   3.5110138870122595`*^9, 3.5110139458427305`*^9, 3.5110139895077753`*^9, 
   3.5110140780255156`*^9, 3.5110141136585407`*^9, {3.5110148880738783`*^9, 
   3.511014905190052*^9}, 3.5110149547948513`*^9, {3.5110149894637537`*^9, 
   3.511015018899991*^9}, 3.5110150569663253`*^9, {3.511015092673359*^9, 
   3.5110151945557966`*^9}, {3.5110152277960176`*^9, 3.5110152375762596`*^9}, 
   3.5110153762613707`*^9, 3.511015499471016*^9, {3.511015550636013*^9, 
   3.511015591582713*^9}, {3.5110156741752005`*^9, 3.5110157033204017`*^9}, {
   3.5110157355099893`*^9, 3.511015754164358*^9}, {3.511015798115939*^9, 
   3.511015836585824*^9}, 3.511015931492376*^9, {3.511016204460038*^9, 
   3.511016230369828*^9}, 3.5110162983679633`*^9, {3.5110163715902615`*^9, 
   3.5110164103196793`*^9}, 3.5110170819084597`*^9, {3.5110171525449295`*^9, 
   3.511017191111827*^9}, 3.5110172388403883`*^9, {3.511017648243376*^9, 
   3.511017675342817*^9}, {3.51101771474482*^9, 3.511017735565464*^9}, 
   3.511017767169977*^9, {3.5110181952628384`*^9, 3.511018219014354*^9}, {
   3.511018273886322*^9, 3.511018311467594*^9}, 3.512234128744731*^9, {
   3.513448805696967*^9, 3.5134488261675663`*^9}, {3.514259141406515*^9, 
   3.5142591905622015`*^9}, {3.5150931792465224`*^9, 3.5150932393759613`*^9}, 
   3.515232105942045*^9, {3.5152322252822547`*^9, 3.5152322604759164`*^9}}]
}, Open  ]],

Cell["\<\
  Pro lep\[SHacek]\[IAcute] p\[RHacek]edstavu o struktu\[RHacek]e dat si je m\
\[URing]\[ZHacek]eme zobrazit v grafu.\
\>", "Text",
 CellChangeTimes->{{3.511008047286709*^9, 3.511008050408605*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "inData", "]"}]], "Input",
 CellChangeTimes->{{3.5110063286719723`*^9, 3.5110063725565453`*^9}, {
  3.511006416212589*^9, 3.5110064209626923`*^9}, {3.511007361600638*^9, 
  3.511007365435125*^9}, {3.511007781647477*^9, 3.5110077975189924`*^9}, {
  3.511007833349042*^9, 3.511007834867735*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAAGuRNcAEhr8YwFUMsJmmvzAhiRtG
lZ6/gGqUvTvAa79YmIbMooelP9i7VEZTgKQ/oMFK2zialD9EQqTcv1Gvv2Qo
CeVzsLc/wDX680bWuD/w65zR+e6qPyD2NbP7D7Q/OC0RHnIbtb9AMRDy/+eb
PxyqGDLwmbY/tqODi2bBsL8MGjl0jKyxvxDPX1akN7U/oCEKEmrSjb/gkfcy
rC6WP+iHWiRZPLa/6IHuffgD8T9Y9HYFTrmqvwF+vNtDKvA/UNorJtOrl79Z
Z4r4EivwPwC+3Ax70nY/nyuMMV4l7z/Ah+8ekWKHv87XZBxNZ/E/AIdg+MOP
j7+E98Sw0CLtPwKF9z5UjbG/S08ShLtt7j/A48jetpmwP9yUbvAzxu4/MMeb
bCAAkD/PxITaQF/wPxAnzlLmO7G/qQRLnxAU7j9tx03/2H7YP7d0QNT2HPk/
BNBiJ8GQ2T8xg2xISbn3P7Syd5TOPtw/PgYvRUbj9z9Siq02pCHVP3CmZPc4
Dvk/dD4F605u3z8VBqoPHLj2P/p+CGwjANo/3nj6iJBI+D/rgrT0yj3ZPxAt
DtnyifY/wp+spli13T/n3woEbVP3P6SaX7sSY9U/ZTUsqUbf9j8mN4OGyuvb
P14zZfjXpPY/K8C+6iNv8T9I2SlsWOT+P/pirMSsie8/Omg7XlJQAEBStriX
msfwP+eCjlO3VwBAcBOtJ6mF8T8ZAJXBYSgAQOp/twvA6O0/UTScGVbY/j9U
8+2bM3rwPxh+EFmQdv8/xy8LpKJP8T8M2Mh4OND/P9/UxmUlZe0/AxjDjbUc
AEAYQp/CnOjvP+esNpxZiABAVvsXYtPc8D8sKxPutWoAQEusD62Tf/Y/rxAA
Sn1m9j+/m83K7qv4P7qonkr9Xfk/VrFF4EGo9z9m/KkJ3lD4P8IUBRz3FPg/
TVCgUr9K+D8f7ZYObV34PyFQNX68yvc/yWdW79Tv9z/sdeof6333P42WaJU/
Mvk/7mZdDnmS+T8UOvhjgl34PzitDZI8c/k/8grmjZ+H9z+LHEGeUs/4PzVZ
pWwmmvY/pW+2sEgk+T81TORZveb+P0S3Xio7kPE/mIvbUlUkAEDYqI4hzp7u
P1boyfSse/8/38dmPCj58D9VAGcCOagAQOQPPAIS4fA/swyRZ30U/z9G6ylg
zLfuP3aZR9Fdrf4/Gg7rKFov8D/1IeJX9FkAQLpmLHoRhfA/hh1IrwIYAEAc
Kc89vK/tP0tXkGKiy/8/KxRpSjXw8D8uA3KEThEAQGWXC0j0eO0/1tDeJg==

     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.08685834062137554, 
   2.082139986770964}, {-0.06545105844601448, 2.066577167910157}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5110063320043955`*^9, 3.5110063733756495`*^9}, {
   3.511006418245347*^9, 3.5110064217627935`*^9}, 3.511006517390937*^9, 
   3.5110065706797037`*^9, 3.5110066092255983`*^9, {3.5110066540237865`*^9, 
   3.511006687691062*^9}, {3.511006723386095*^9, 3.511006782545607*^9}, {
   3.511006831684847*^9, 3.5110069081865616`*^9}, {3.511006941871339*^9, 
   3.5110069995996695`*^9}, {3.5110070347636347`*^9, 3.511007220041162*^9}, 
   3.5110073667837963`*^9, 3.51100778600453*^9, 3.511007835963374*^9, 
   3.5110085286128297`*^9, 3.511009378764285*^9, 3.5110104569922028`*^9, 
   3.5110105938520813`*^9, 3.5110112667005224`*^9, 3.511011353077491*^9, 
   3.5110138870477643`*^9, 3.5110139458827353`*^9, 3.5110139895412793`*^9, 
   3.5110140780585194`*^9, 3.511014113694545*^9, {3.5110148881123834`*^9, 
   3.5110149052270565`*^9}, 3.5110149548358564`*^9, {3.511014989501258*^9, 
   3.511015018936996*^9}, 3.51101505700883*^9, {3.5110150927083635`*^9, 
   3.5110151946023026`*^9}, {3.511015227836023*^9, 3.511015237609764*^9}, 
   3.5110153762998753`*^9, 3.5110154995055203`*^9, {3.511015550673018*^9, 
   3.5110155916212177`*^9}, {3.5110156742132053`*^9, 
   3.5110157033594065`*^9}, {3.5110157355399933`*^9, 3.511015754200863*^9}, {
   3.5110157981574445`*^9, 3.511015836625329*^9}, 3.5110159315298805`*^9, {
   3.511016204499543*^9, 3.5110162304013324`*^9}, 3.511016298406468*^9, {
   3.511016371634267*^9, 3.511016410350683*^9}, 3.5110170819409647`*^9, {
   3.5110171525804343`*^9, 3.511017191150332*^9}, 3.5110172388778925`*^9, {
   3.5110176482748795`*^9, 3.5110176753818216`*^9}, {3.5110177147798243`*^9, 
   3.5110177356029687`*^9}, 3.511017767222484*^9, {3.5110181952983427`*^9, 
   3.511018219053359*^9}, {3.5110182739233265`*^9, 3.5110183115035987`*^9}, 
   3.512234128779235*^9, {3.5134488057414722`*^9, 3.5134488262110715`*^9}, {
   3.5142591414221153`*^9, 3.514259190577801*^9}, {3.5150931792645235`*^9, 
   3.5150932393959627`*^9}, 3.515232106160445*^9, {3.5152322253134546`*^9, 
   3.5152322605071163`*^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.407606405515625*^9, 
  3.407606412203125*^9}}],

Cell["\<\
Samoorganizuj\[IAcute]c\[IAcute] se neuronovou s\[IAcute]\[THacek] pou\
\[ZHacek]ijeme k hled\[AAcute]n\[IAcute] shluk\[URing] ve \
vygenerovan\[YAcute]ch datech. Vytvo\[RHacek]\[IAcute]me s\[IAcute]\[THacek] \
o \[SHacek]esti neuronech, kterou nech\[AAcute]me na datech nau\[CHacek]it. \
Po nau\[CHacek]en\[IAcute] s\[IAcute]t\[EHacek] chceme aby ide\[AAcute]ln\
\[EHacek] ka\[ZHacek]d\[YAcute] neuron reprezentoval jeden shluk ve vstupn\
\[IAcute]ch datech. Pot\[EAcute] je mo\[ZHacek]n\[EAcute] spo\[CHacek]\
\[IAcute]tat hrani\[CHacek]n\[IAcute] p\[RHacek]\[IAcute]mky mezi jednotliv\
\[YAcute]mi neurony a t\[IAcute]m de facto rozd\[EHacek]lit do \
po\[ZHacek]adovan\[EAcute]ho po\[CHacek]tu shluk\[URing] cel\[YAcute] vstupn\
\[IAcute] prostor.\
\>", "Text",
 CellChangeTimes->{{3.513446806950658*^9, 3.5134470177479258`*^9}, {
   3.5134471090240164`*^9, 3.5134471103231816`*^9}, 3.513447431502466*^9, {
   3.5134474687291937`*^9, 3.5134474770157456`*^9}, {3.513447525549409*^9, 
   3.5134475568958893`*^9}, {3.513447592665431*^9, 3.5134476232818193`*^9}, 
   3.5150930149521255`*^9}],

Cell[CellGroupData[{

Cell["N\[AAcute]hodn\[EHacek] inicializovan\[AAcute] s\[IAcute]\[THacek]", \
"Subsection",
 CellChangeTimes->{{3.511016581154372*^9, 3.5110165886063185`*^9}, {
  3.511016858990653*^9, 3.5110168703841*^9}}],

Cell["\<\
Nejprve vytvo\[RHacek]\[IAcute]me neuronovou s\[IAcute]\[THacek] o \
\[SHacek]esti neuronech. Po\[CHacek]et neuron\[URing] ur\[CHacek]uje kolik \
shluk\[URing] se s\[IAcute]\[THacek] pokus\[IAcute] v datech naj\[IAcute]t.\
\>", "Text",
 CellChangeTimes->{{3.41415999278125*^9, 3.41416229634375*^9}, {
  3.416571186515625*^9, 3.41657118690625*^9}, {3.5110007152496586`*^9, 
  3.5110007277567463`*^9}, {3.511008230930029*^9, 3.5110082516851645`*^9}, {
  3.5110180515470886`*^9, 3.5110180745335073`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"unsup", "=", 
   RowBox[{"InitializeUnsupervisedNet", "[", 
    RowBox[{"inData", ",", "6"}], "]"}]}], ";"}]], "Input"],

Cell["\<\
Tuto neuronovou s\[IAcute]\[THacek] nau\[CHacek]\[IAcute]me na na\[SHacek]ich \
datech\
\>", "Text",
 CellChangeTimes->{{3.511008264969351*^9, 3.511008291997783*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"unsup", ",", "fitrecord"}], "}"}], "=", 
   RowBox[{"UnsupervisedNetFit", "[", 
    RowBox[{"inData", ",", "unsup", ",", "30", ",", 
     RowBox[{"ReportFrequency", "\[Rule]", "1"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.402213984499589*^9, 3.40221000596526*^9}, {
   3.402210338099065*^9, 3.402210338684073*^9}, {3.402210370555099*^9, 
   3.40221037091771*^9}, {3.402211650926027*^9, 3.402211651822245*^9}, {
   3.40760674146875*^9, 3.4076067433125*^9}, {3.40760696728125*^9, 
   3.407606991453125*^9}, {3.40760765034375*^9, 3.40760765475*^9}, 
   3.40760770253125*^9, 3.407607736390625*^9, {3.407608084453125*^9, 
   3.40760811940625*^9}, {3.407608196921875*^9, 3.407608198125*^9}, {
   3.40760824803125*^9, 3.407608248375*^9}, {3.407608356390625*^9, 
   3.407608356953125*^9}, {3.407608442234375*^9, 3.4076084531875*^9}, {
   3.409334297671875*^9, 3.40933429890625*^9}, {3.409460230421875*^9, 
   3.40946023084375*^9}, {3.409460322*^9, 3.40946034328125*^9}, {
   3.414084463296875*^9, 3.414084913359375*^9}, {3.414159920625*^9, 
   3.414162302609375*^9}, {3.511004365473178*^9, 3.5110043847961316`*^9}, {
   3.5110044687112875`*^9, 3.511004478482028*^9}, {3.511005366266262*^9, 
   3.5110053670213585`*^9}, {3.5110055989183054`*^9, 3.511005599274351*^9}, {
   3.511006712235179*^9, 3.5110067205287323`*^9}, {3.5110070768019733`*^9, 
   3.5110070768634806`*^9}, {3.5110071918580832`*^9, 
   3.5110072070970182`*^9}, {3.5110082103289127`*^9, 3.51100821188461*^9}, {
   3.511008254874569*^9, 3.511008258329508*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQDQNPHJxY33a8tYfwPthvUHaTtdZ/CeUzOAi6fzo3
8/NTKJ/DYfMEVY51cx9D+QIOecbxr4ueP4TyRRyOHuVSV39/AcqXcMgXfbUm
zOcYlC/jUGgjc+3shaNQvoKDXMmZ7V9OwPhKDgnl/07xfYDxVRxiIoL8uvce
gfLVHJbJHNd71QbjazjMmltVF7ENxtdy6A9Ovn6JAaZfx+Gy8/8C02aYvJ7D
U/fNn9mmwvgGDhNLD3841wnjGzp0V85qMIfLGzmsn/lSYmE/jG/s0Mv3Qmf5
chjfxGHNpDdmXJthfFOH0BnP82XWwvhmDmlinmkTpsD45g7cOR9v682C8S0c
fqgsXfoIzrd0MGyz2MhxDMa3cjDmDcmZugTGt3Zoc+vsfwJXb+Ow7ZBY6By4
vK3D5efmDNsnwfh2DmW7t/VFAf0HAIR7jqw=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"Iterations\"", TraditionalForm], None},
  FrameTicks->{{{0, 
      FormBox["0", TraditionalForm]}, {5, 
      FormBox["5", TraditionalForm]}, {10, 
      FormBox["10", TraditionalForm]}, {15, 
      FormBox["15", TraditionalForm]}, {20, 
      FormBox["20", TraditionalForm]}, {25, 
      FormBox["25", TraditionalForm]}, {30, 
      FormBox["30", TraditionalForm]}}, Automatic, None, None},
  PlotLabel->FormBox["\"Mean Distance\"", TraditionalForm],
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{{3.514259141905716*^9, 3.514259191045802*^9}, {
   3.515093180013566*^9, 3.5150932401130037`*^9}, 3.515232111916856*^9, {
   3.5152322281682596`*^9, 3.5152322610219173`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"UnsupervisedNet", "::", "DeadNeuron"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Some codebook vectors are not used by the data. They have \
'died' during the training. Use UnUsedNeurons to identify them and decide if \
you want to remove them.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.514259141952516*^9, 3.5142591910614023`*^9}, {
   3.51509318007957*^9, 3.5150932401190042`*^9}, 3.5152321120260553`*^9, {
   3.5152322281994596`*^9, 3.5152322610219173`*^9}}]
}, Open  ]],

Cell["\<\
Vid\[IAcute]me \[ZHacek]e b\[EHacek]hem u\[CHacek]en\[IAcute] s\[IAcute]t\
\[EHacek] jeden z neuron\[URing] \[OpenCurlyDoubleQuote]zem\[RHacek]el\
\[CloseCurlyDoubleQuote], tzn. nen\[IAcute] pou\[ZHacek]it k rozli\[SHacek]en\
\[IAcute] shluk\[URing] v datech. Pozd\[EHacek]ji se mu je\[SHacek]t\[EHacek] \
budeme v\[EHacek]novat.\
\>", "Text",
 CellChangeTimes->{{3.511008316719922*^9, 3.511008390732321*^9}, 
   3.5110164800910387`*^9}],

Cell["\<\
Ilustraci ja\[YAcute]m zp\[URing]sobem byla data rozd\[EHacek]lena do shluk\
\[URing] n\[AAcute]m poskytne n\[AAcute]sleduj\[IAcute]c\[IAcute] graf. \
Pozice neuronu, kter\[YAcute] reprezentuje dan\[YAcute] shluk je nazna\
\[CHacek]ena tu\[CHacek]n\[YAcute]m \[CHacek]\[IAcute]slem. Je tak\[EAcute] \
jasn\[EHacek] vid\[EHacek]t, kter\[YAcute] neuron je \
\[OpenCurlyDoubleQuote]mrtv\[YAcute]\[CloseCurlyDoubleQuote] a nep\[RHacek]in\
\[AAcute]\[SHacek]\[IAcute] n\[AAcute]m \[ZHacek]\[AAcute]dn\[YAcute] u\
\[ZHacek]itek.\
\>", "Text",
 CellChangeTimes->{{3.511008439505514*^9, 3.511008440983202*^9}, {
   3.5110084786129804`*^9, 3.511008514462533*^9}, 3.511008559044694*^9, {
   3.5110085936355867`*^9, 3.5110086101316814`*^9}, {3.511008672482599*^9, 
   3.5110087355986137`*^9}, {3.5110165046066523`*^9, 3.5110165122646246`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetPlot", "[", 
  RowBox[{"unsup", ",", "inData", ",", 
   RowBox[{"CbvSymbol", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "30"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511004424828215*^9, 3.5110044250032372`*^9}, {
  3.5110044932709064`*^9, 3.5110044955091906`*^9}, {3.5110093186441507`*^9, 
  3.511009322874188*^9}}],

Cell[BoxData[
 GraphicsBox[{{{InsetBox[
      StyleBox["\<\"1\"\>",
       StripOnInput->False,
       FontSize->30], {0.41344230173813507`, 1.471259115092378}], InsetBox[
      StyleBox["\<\"2\"\>",
       StripOnInput->False,
       FontSize->30], {1.976795231465007, 1.0128324875949415`}], InsetBox[
      StyleBox["\<\"3\"\>",
       StripOnInput->False,
       FontSize->30], {1.229999211819947, 1.780967743718494}], InsetBox[
      StyleBox["\<\"4\"\>",
       StripOnInput->False,
       FontSize->30], {-0.021876682445925784`, 1.0106421247995614`}], InsetBox[
      StyleBox["\<\"5\"\>",
       StripOnInput->False,
       FontSize->30], {-0.005552382988211776, 0.013642641686372982`}], 
     InsetBox[
      StyleBox["\<\"6\"\>",
       StripOnInput->False,
       FontSize->30], {0.819956852015346, 1.1665268735521153`}], 
     InsetBox["7", {2199.274566057294, 1945.1335907330738`}], 
     InsetBox["8", {-3996.608367066598, -3533.5742255665014`}], 
     InsetBox["9", {5302.71076685163, 5997.091720230539}], 
     InsetBox["10", {-1766.5896412768536`, -1997.5959354131921`}]}, 
    {PointSize[0.012], PointBox[{-38037.42654676926, 38983.06616448441}], 
     PointBox[{-21694.776614689064`, 20504.68208584786}], 
     PointBox[{-12661.846739475952`, 16541.87433225792}], 
     PointBox[{-9103.179057983318, 6267.25093870614}], 
     PointBox[{-1976.6875713260436`, -31.852785096090134`}], 
     PointBox[{-1470.7081729378376`, 3881.362717548761}], 
     PointBox[{0.4079571121273316, 1.0404293543987013`}], 
     PointBox[{0.5042112305958522, 0.5206226035443706}], 
     PointBox[{0.8302135623815062, 1.6037218701794695`}], 
     PointBox[{1.2516665818631947`, -0.014584035742786373`}], 
     PointBox[{1.41483684049959, 1.2135780496824233`}], 
     PointBox[{1054.5771804673118`, 1025.1184697867136`}], 
     PointBox[{1620.9472784186041`, -3213.417667958483}], 
     PointBox[{16288.68177962518, -16192.877858006448`}]}, 
    {Thickness[0.003], 
     LineBox[{{-12661.846739475952`, 16541.87433225792}, {7802.950795951927, 
      867.6764546874706}}], 
     LineBox[{{16288.68177962518, -16192.877858006448`}, {
      20231.41130577146, -20158.742065340597`}}], 
     LineBox[{{-38037.42654676926, 38983.06616448441}, {-47568.092492566284`, 
      48282.385298402594`}}], 
     LineBox[{{-9103.179057983318, 
      6267.25093870614}, {-1345.620714018416, -4995.603806279592}}], 
     LineBox[{{-21694.776614689064`, 20504.68208584786}, {0.4079571121273316, 
      1.0404293543987013`}, {0.8302135623815062, 
      1.6037218701794695`}, {-1470.7081729378376`, 
      3881.362717548761}, {-12661.846739475952`, 
      16541.87433225792}, {-38037.42654676926, 
      38983.06616448441}, {-21694.776614689064`, 20504.68208584786}}], 
     LineBox[{{1620.9472784186041`, -3213.417667958483}, {
      16288.68177962518, -16192.877858006448`}, {1054.5771804673118`, 
      1025.1184697867136`}, {1.41483684049959, 1.2135780496824233`}, {
      1.2516665818631947`, -0.014584035742786373`}, {
      1620.9472784186041`, -3213.417667958483}}], 
     LineBox[{{0.8302135623815062, 1.6037218701794695`}, {1.41483684049959, 
      1.2135780496824233`}, {1054.5771804673118`, 
      1025.1184697867136`}, {-1470.7081729378376`, 3881.362717548761}, {
      0.8302135623815062, 1.6037218701794695`}}], 
     LineBox[{{-9103.179057983318, 
      6267.25093870614}, {-1976.6875713260436`, -31.852785096090134`}, {
      0.5042112305958522, 0.5206226035443706}, {0.4079571121273316, 
      1.0404293543987013`}, {-21694.776614689064`, 
      20504.68208584786}, {-9103.179057983318, 6267.25093870614}}], 
     LineBox[{{-1976.6875713260436`, -31.852785096090134`}, {
      1620.9472784186041`, -3213.417667958483}, {
      1.2516665818631947`, -0.014584035742786373`}, {0.5042112305958522, 
      0.5206226035443706}, {-1976.6875713260436`, -31.852785096090134`}}], 
     LineBox[{{0.4079571121273316, 1.0404293543987013`}, {0.5042112305958522, 
      0.5206226035443706}, {1.2516665818631947`, -0.014584035742786373`}, {
      1.41483684049959, 1.2135780496824233`}, {0.8302135623815062, 
      1.6037218701794695`}, {0.4079571121273316, 1.0404293543987013`}}], 
     LineBox[{{-12661.846739475952`, 
      16541.87433225792}, {-1470.7081729378376`, 3881.362717548761}, {
      1054.5771804673118`, 1025.1184697867136`}, {
      16288.68177962518, -16192.877858006448`}}], 
     LineBox[{{-9103.179057983318, 6267.25093870614}, {-21694.776614689064`, 
      20504.68208584786}, {-38037.42654676926, 38983.06616448441}}], 
     LineBox[{{-38037.42654676926, 38983.06616448441}, {-12661.846739475952`, 
      16541.87433225792}}], 
     LineBox[{{16288.68177962518, -16192.877858006448`}, {
      1620.9472784186041`, -3213.417667958483}, {-1976.6875713260436`, \
-31.852785096090134`}, {-9103.179057983318, 6267.25093870614}}]}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAAGuRNcAEhr8YwFUMsJmmvzAhiRtG
lZ6/gGqUvTvAa79YmIbMooelP9i7VEZTgKQ/oMFK2zialD9EQqTcv1Gvv2Qo
CeVzsLc/wDX680bWuD/w65zR+e6qPyD2NbP7D7Q/OC0RHnIbtb9AMRDy/+eb
PxyqGDLwmbY/tqODi2bBsL8MGjl0jKyxvxDPX1akN7U/oCEKEmrSjb/gkfcy
rC6WP+iHWiRZPLa/6IHuffgD8T9Y9HYFTrmqvwF+vNtDKvA/UNorJtOrl79Z
Z4r4EivwPwC+3Ax70nY/nyuMMV4l7z/Ah+8ekWKHv87XZBxNZ/E/AIdg+MOP
j7+E98Sw0CLtPwKF9z5UjbG/S08ShLtt7j/A48jetpmwP9yUbvAzxu4/MMeb
bCAAkD/PxITaQF/wPxAnzlLmO7G/qQRLnxAU7j9tx03/2H7YP7d0QNT2HPk/
BNBiJ8GQ2T8xg2xISbn3P7Syd5TOPtw/PgYvRUbj9z9Siq02pCHVP3CmZPc4
Dvk/dD4F605u3z8VBqoPHLj2P/p+CGwjANo/3nj6iJBI+D/rgrT0yj3ZPxAt
DtnyifY/wp+spli13T/n3woEbVP3P6SaX7sSY9U/ZTUsqUbf9j8mN4OGyuvb
P14zZfjXpPY/K8C+6iNv8T9I2SlsWOT+P/pirMSsie8/Omg7XlJQAEBStriX
msfwP+eCjlO3VwBAcBOtJ6mF8T8ZAJXBYSgAQOp/twvA6O0/UTScGVbY/j9U
8+2bM3rwPxh+EFmQdv8/xy8LpKJP8T8M2Mh4OND/P9/UxmUlZe0/AxjDjbUc
AEAYQp/CnOjvP+esNpxZiABAVvsXYtPc8D8sKxPutWoAQEusD62Tf/Y/rxAA
Sn1m9j+/m83K7qv4P7qonkr9Xfk/VrFF4EGo9z9m/KkJ3lD4P8IUBRz3FPg/
TVCgUr9K+D8f7ZYObV34PyFQNX68yvc/yWdW79Tv9z/sdeof6333P42WaJU/
Mvk/7mZdDnmS+T8UOvhjgl34PzitDZI8c/k/8grmjZ+H9z+LHEGeUs/4PzVZ
pWwmmvY/pW+2sEgk+T81TORZveb+P0S3Xio7kPE/mIvbUlUkAEDYqI4hzp7u
P1boyfSse/8/38dmPCj58D9VAGcCOagAQOQPPAIS4fA/swyRZ30U/z9G6ylg
zLfuP3aZR9Fdrf4/Gg7rKFov8D/1IeJX9FkAQLpmLHoRhfA/hh1IrwIYAEAc
Kc89vK/tP0tXkGKiy/8/KxRpSjXw8D8uA3KEThEAQGWXC0j0eO0/1tDeJg==

      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->False,
  Frame->True,
  PlotLabel->FormBox["\"Unsupervised Clustering\"", TraditionalForm],
  PlotRange->{{2.1392188901233937`, -0.14393724397380536`}, {
   2.122683173866898, -0.12155706440275593`}}]], "Output",
 CellChangeTimes->{{3.5110044135917883`*^9, 3.511004426143882*^9}, 
   3.5110044964788136`*^9, {3.511004559269287*^9, 3.5110045887590313`*^9}, 
   3.511004637718749*^9, {3.511004694879507*^9, 3.511004708666258*^9}, 
   3.5110047497779784`*^9, {3.511004819980893*^9, 3.5110048275613556`*^9}, {
   3.51100488098814*^9, 3.511004928750205*^9}, 3.5110049704840045`*^9, 
   3.5110050436027894`*^9, {3.5110050889450474`*^9, 3.5110052117996473`*^9}, {
   3.5110052776575108`*^9, 3.511005390691864*^9}, {3.511005585836644*^9, 
   3.5110056034468803`*^9}, 3.511005679970598*^9, 3.511005729497387*^9, {
   3.511005786094574*^9, 3.511005808384404*^9}, 3.5110058575626493`*^9, {
   3.511005917637778*^9, 3.5110059394560485`*^9}, 3.5110060214074545`*^9, 
   3.511006068831977*^9, 3.511006144350567*^9, {3.511006239885198*^9, 
   3.5110062595121903`*^9}, 3.5110063208189754`*^9, 3.5110065182045403`*^9, 
   3.511006571492807*^9, 3.511006613153097*^9, {3.5110066552294397`*^9, 
   3.511006687801076*^9}, {3.511006725065308*^9, 3.5110067839977913`*^9}, {
   3.5110068238503523`*^9, 3.5110072214633427`*^9}, {3.511008524633324*^9, 
   3.511008530071515*^9}, 3.5110093246404123`*^9, 3.511009380228971*^9, 
   3.5110104584328856`*^9, 3.511010595313267*^9, 3.5110112681482067`*^9, 
   3.5110113545721807`*^9, 3.5110138885054493`*^9, 3.5110139472609105`*^9, 
   3.5110139909294558`*^9, 3.511014079501703*^9, 3.5110141151327276`*^9, {
   3.5110148895960717`*^9, 3.511014906732748*^9}, 3.5110149563355465`*^9, {
   3.511014991000949*^9, 3.5110150205251975`*^9}, 3.511015058636037*^9, {
   3.5110150942875643`*^9, 3.5110151963000183`*^9}, {3.511015229562742*^9, 
   3.5110152394629993`*^9}, 3.5110153780530977`*^9, 3.5110155013017483`*^9, {
   3.5110155524972496`*^9, 3.511015593512958*^9}, {3.5110156760994453`*^9, 
   3.5110157052556477`*^9}, {3.511015737461237*^9, 3.51101575614811*^9}, {
   3.5110158001181936`*^9, 3.511015838621583*^9}, 3.5110159330325713`*^9, {
   3.511016205914723*^9, 3.5110162319735317`*^9}, 3.51101629976264*^9, {
   3.5110163730449457`*^9, 3.511016411867876*^9}, 3.5110170834106507`*^9, {
   3.5110171540456204`*^9, 3.5110171926205187`*^9}, 3.51101724027507*^9, {
   3.511017649743566*^9, 3.511017676732993*^9}, {3.5110177161284957`*^9, 
   3.5110177371396637`*^9}, 3.5110177721116047`*^9, {3.511018196732525*^9, 
   3.5110182204865413`*^9}, {3.511018275270998*^9, 3.511018312959284*^9}, 
   3.512234130503454*^9, {3.5134488081112733`*^9, 3.5134488276202507`*^9}, {
   3.5142591420305157`*^9, 3.514259191123802*^9}, {3.515093180185576*^9, 
   3.5150932401940084`*^9}, 3.515232112213256*^9, {3.51523222826186*^9, 
   3.5152322610843177`*^9}}]
}, Open  ]],

Cell["\<\
M\[URing]\[ZHacek]eme tak\[EAcute] jednodu\[SHacek]e nechat \
\[OpenCurlyDoubleQuote]oklasifikovat\[CloseCurlyDoubleQuote] nov\[YAcute] \
vektor (zad\[AAcute]me jeho x a y sou\[RHacek]adnici).\
\>", "Text",
 CellChangeTimes->{{3.511008783389682*^9, 3.5110088538731327`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"unsup", "[", 
  RowBox[{"{", 
   RowBox[{"0.2", ",", "0.7"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.51100882944503*^9, 3.511008835574809*^9}, {
  3.5110088695561237`*^9, 3.51100887109982*^9}}],

Cell[BoxData[
 RowBox[{"{", "4", "}"}]], "Output",
 CellChangeTimes->{{3.5110088569700255`*^9, 3.5110088717954082`*^9}, 
   3.511009380288479*^9, 3.511010458499394*^9, 3.5110105953792753`*^9, 
   3.511011268209214*^9, 3.5110113546391892`*^9, 3.5110138885679574`*^9, 
   3.511013947325919*^9, 3.5110139909924636`*^9, 3.5110140795717115`*^9, 
   3.511014115193735*^9, {3.511014889655079*^9, 3.5110149067927556`*^9}, 
   3.511014956379552*^9, {3.5110149910479546`*^9, 3.511015020585205*^9}, 
   3.5110150586800427`*^9, {3.51101509433307*^9, 3.5110151963430233`*^9}, {
   3.511015229606248*^9, 3.511015239508005*^9}, 3.5110153780986032`*^9, 
   3.5110155013472548`*^9, {3.5110155525422554`*^9, 3.5110155935749655`*^9}, {
   3.5110156761434507`*^9, 3.5110157053006535`*^9}, {3.511015737508243*^9, 
   3.511015756193616*^9}, {3.511015800164199*^9, 3.5110158386675887`*^9}, 
   3.51101593309908*^9, {3.5110162059777308`*^9, 3.511016232019538*^9}, 
   3.511016299823148*^9, {3.5110163730899515`*^9, 3.511016411915382*^9}, 
   3.5110170834801598`*^9, {3.5110171541096287`*^9, 3.511017192687527*^9}, 
   3.511017240340578*^9, {3.5110176498090744`*^9, 3.5110176767985015`*^9}, {
   3.511017716176002*^9, 3.51101773718867*^9}, 3.511017772167612*^9, {
   3.511018196790032*^9, 3.5110182205440483`*^9}, {3.5110182753250046`*^9, 
   3.5110183130167913`*^9}, 3.512234130587465*^9, {3.5134488081687803`*^9, 
   3.5134488276957603`*^9}, {3.514259142046116*^9, 3.5142591911394024`*^9}, {
   3.5150931802115774`*^9, 3.51509324021801*^9}, 3.5152321122444563`*^9, {
   3.5152322282930603`*^9, 3.5152322611155176`*^9}}]
}, Open  ]],

Cell["\<\
\[CapitalCHacek]\[IAcute]slo, kter\[EAcute] n\[AAcute]m s\[IAcute]\[THacek] \
vr\[AAcute]tila znamen\[AAcute] \[CHacek]\[IAcute]seln\[EAcute] \
ozna\[CHacek]en\[IAcute] shluku, kam vektor spad\[AAcute] (odpov\[IAcute]d\
\[AAcute] \[CHacek]\[IAcute]sl\[URing]m v grafu)\
\>", "Text",
 CellChangeTimes->{{3.511008878968819*^9, 3.5110089070018787`*^9}, {
  3.511008937116203*^9, 3.5110089539788437`*^9}}],

Cell["\<\
Nyn\[IAcute] si vzpomeneme, \[ZHacek]e m\[AAcute]me v s\[IAcute]ti nepot\
\[RHacek]ebn\[YAcute] neuron, budeme ho tedy cht\[IAcute]t odstranit.
Nejd\[RHacek]\[IAcute]ve zjist\[IAcute]me o kter\[YAcute] neuron se jedn\
\[AAcute].\
\>", "Text",
 CellChangeTimes->{{3.511008996935299*^9, 3.511009044217803*^9}, {
  3.511009096200904*^9, 3.5110091115323505`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnUsedNeurons", "[", 
  RowBox[{"unsup", ",", "inData"}], "]"}]], "Input",
 CellChangeTimes->{{3.511009129620648*^9, 3.511009130865306*^9}}],

Cell[BoxData[
 RowBox[{"{", "6", "}"}]], "Output",
 CellChangeTimes->{{3.5110091259956875`*^9, 3.5110091321179647`*^9}, 
   3.511009380323983*^9, 3.5110104585423994`*^9, 3.511010595420781*^9, 
   3.511011268250719*^9, 3.511011354679694*^9, 3.511013888612963*^9, 
   3.5110139473629236`*^9, 3.511013991035469*^9, 3.511014079612217*^9, 
   3.5110141152322397`*^9, {3.511014889691584*^9, 3.5110149068312607`*^9}, 
   3.5110149564175572`*^9, {3.5110149910959606`*^9, 3.5110150206202097`*^9}, 
   3.511015058720048*^9, {3.511015094369075*^9, 3.5110151963820286`*^9}, {
   3.511015229647753*^9, 3.5110152395465097`*^9}, 3.5110153781381087`*^9, 
   3.5110155013867593`*^9, {3.51101555258126*^9, 3.511015593615471*^9}, {
   3.5110156761819553`*^9, 3.5110157053421583`*^9}, {3.5110157375452476`*^9, 
   3.5110157562326207`*^9}, {3.5110158002037044`*^9, 3.5110158387065935`*^9}, 
   3.5110159331425858`*^9, {3.5110162060162363`*^9, 3.5110162320530424`*^9}, 
   3.511016299864153*^9, {3.5110163731274567`*^9, 3.5110164119543867`*^9}, 
   3.511017083521665*^9, {3.5110171541491337`*^9, 3.5110171927270327`*^9}, 
   3.5110172403840837`*^9, {3.511017649849079*^9, 3.5110176768405066`*^9}, {
   3.5110177162130065`*^9, 3.511017737226675*^9}, 3.511017772207117*^9, {
   3.5110181968295374`*^9, 3.5110182205845537`*^9}, {3.5110182753645096`*^9, 
   3.511018313053796*^9}, 3.5122341306319704`*^9, {3.5134488082077856`*^9, 
   3.513448827740266*^9}, {3.5142591420773163`*^9, 3.5142591911550026`*^9}, {
   3.515093180231579*^9, 3.515093240239011*^9}, 3.515232112260056*^9, {
   3.51523222830866*^9, 3.515232261131118*^9}}]
}, Open  ]],

Cell["\<\
A pot\[EAcute] ho odstran\[IAcute]me. Novou s\[IAcute]\[THacek] bez nepot\
\[RHacek]ebn\[EAcute]ho neuronu pojmenujeme unsup1.\
\>", "Text",
 CellChangeTimes->{{3.5110091378171883`*^9, 3.511009185025183*^9}, {
  3.5110165560636864`*^9, 3.5110165566342587`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"unsup1", "=", 
  RowBox[{"NeuronDelete", "[", 
   RowBox[{"unsup", ",", "%"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.511009330908708*^9, 3.5110093324189*^9}, {
   3.5110133760013695`*^9, 3.5110133776730824`*^9}, 3.511013944194021*^9}],

Cell[BoxData[
 TagBox[
  TagBox[
   RowBox[{"UnsupervisedNet", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "Codebook"}], " ", "Vectors"}], "-"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"CreationDate", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
         "2011", ",", " ", "5", ",", " ", "24", ",", " ", "15", ",", " ", 
          "24", ",", " ", "21.1467176`9.077817897501301"}], "}"}]}], ",", " ", 
       RowBox[{"AccumulatedIterations", " ", "\[Rule]", " ", "30"}], ",", " ", 
       RowBox[{"SOM", " ", "\[Rule]", " ", "None"}]}], "}"}]}], "]"}],
   Null,
   Editable->False],
  DisplayForm]], "Output",
 CellChangeTimes->{
  3.511009197486766*^9, 3.511009380352987*^9, 3.5110104585809045`*^9, 
   3.5110105954557853`*^9, 3.5110112682857237`*^9, 3.511011354715699*^9, 
   3.5110138886484675`*^9, 3.511013947393427*^9, 3.5110139910724735`*^9, 
   3.5110140796507215`*^9, 3.5110141152667446`*^9, {3.5110148897215877`*^9, 
   3.5110149068617644`*^9}, 3.511014956448061*^9, {3.511014991127465*^9, 
   3.511015020648713*^9}, 3.5110150587550526`*^9, {3.5110150944010787`*^9, 
   3.511015196414033*^9}, {3.5110152296807575`*^9, 3.511015239579014*^9}, 
   3.511015378170613*^9, 3.511015501418763*^9, {3.511015552611764*^9, 
   3.511015593645475*^9}, {3.5110156762134595`*^9, 3.5110157053741627`*^9}, {
   3.5110157375767517`*^9, 3.511015756264125*^9}, {3.5110158002352085`*^9, 
   3.5110158387380977`*^9}, 3.51101593317509*^9, {3.51101620604774*^9, 
   3.5110162320810456`*^9}, 3.511016299893157*^9, {3.51101637315946*^9, 
   3.511016411985891*^9}, 3.5110170835586696`*^9, {3.5110171541841383`*^9, 
   3.5110171927655373`*^9}, 3.5110172404185886`*^9, {3.511017649888584*^9, 
   3.5110176768715105`*^9}, {3.5110177162440104`*^9, 3.5110177372601795`*^9}, 
   3.511017772239121*^9, {3.511018196862541*^9, 3.5110182206140575`*^9}, {
   3.5110182753970137`*^9, 3.5110183130852995`*^9}, 3.5122341306699753`*^9, {
   3.51344880824179*^9, 3.5134488277772703`*^9}, {3.5142591420929165`*^9, 
   3.5142591911706023`*^9}, {3.515093180293582*^9, 3.515093240257012*^9}, 
   3.5152321123536563`*^9, {3.5152322283242598`*^9, 3.5152322611467175`*^9}}]
}, Open  ]],

Cell["\<\
Pod\[IAcute]v\[AAcute]me se jak\[YAcute]m zp\[URing]sobem odd\[EHacek]luje s\
\[IAcute]\[THacek] jednotliv\[EAcute] shluky po odebr\[AAcute]n\[IAcute] \
nepot\[RHacek]ebn\[EAcute]ho neuronu.\
\>", "Text",
 CellChangeTimes->{{3.5110092599496975`*^9, 3.5110092889598813`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetPlot", "[", 
  RowBox[{"unsup1", ",", "inData", ",", 
   RowBox[{"CbvSymbol", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "30"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5110092985526*^9, 3.511009303306703*^9}, {
  3.511009348436434*^9, 3.5110093746717653`*^9}, {3.511009516484773*^9, 
  3.511009543643222*^9}, {3.5110133808169813`*^9, 3.5110133809114933`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{InsetBox[
      StyleBox["\<\"1\"\>",
       StripOnInput->False,
       FontSize->30], {0.41344230173813507`, 1.471259115092378}], InsetBox[
      StyleBox["\<\"2\"\>",
       StripOnInput->False,
       FontSize->30], {1.976795231465007, 1.0128324875949415`}], InsetBox[
      StyleBox["\<\"3\"\>",
       StripOnInput->False,
       FontSize->30], {1.229999211819947, 1.780967743718494}], InsetBox[
      StyleBox["\<\"4\"\>",
       StripOnInput->False,
       FontSize->30], {-0.021876682445925784`, 1.0106421247995614`}], InsetBox[
      StyleBox["\<\"5\"\>",
       StripOnInput->False,
       FontSize->30], {-0.005552382988211776, 0.013642641686372982`}], 
     InsetBox["6", {2199.2576668379443`, 1945.1154810579114`}], 
     InsetBox["7", {-3996.625266285948, -3533.592335241664}], 
     InsetBox["8", {5302.693867632281, 5997.073610555377}], 
     InsetBox["9", {-1766.6065404962033`, -1997.6140450883545`}]}, 
    {PointSize[0.012], PointBox[{-38037.5586990669, 38983.16051024121}], 
     PointBox[{-21694.98425076786, 20504.87831692914}], 
     PointBox[{-12661.743165241312`, 16541.763950731383`}], 
     PointBox[{-9103.231509946674, 6267.284446482437}], 
     PointBox[{-1976.705383044283, -31.853076735335208`}], 
     PointBox[{-1470.6989595339326`, 3881.338426119581}], 
     PointBox[{0.9502442679667235, 0.5279256934590607}], 
     PointBox[{0.982957770462072, 0.518522133665102}], 
     PointBox[{1.0958250286311373`, 0.9034285682936934}], 
     PointBox[{1054.5683715475875`, 1025.1099055837772`}], 
     PointBox[{1620.963316326529, -3213.449486441967}], 
     PointBox[{16288.590289912394`, -16192.82093951487}]}, 
    {Thickness[0.003], 
     LineBox[{{-12661.743165241312`, 16541.763950731383`}, {7802.933896732577,
       867.6583450123094}}], 
     LineBox[{{16288.590289912394`, -16192.82093951487}, {
      20231.31981605865, -20158.685146849035`}}], 
     LineBox[{{-38037.5586990669, 38983.16051024121}, {-47568.224644863934`, 
      48282.47964415943}}], 
     LineBox[{{-9103.231509946674, 
      6267.284446482437}, {-1345.6376132377663`, -4995.621915954754}}], 
     LineBox[{{-21694.98425076786, 20504.87831692914}, {0.9502442679667235, 
      0.5279256934590607}, {0.982957770462072, 0.518522133665102}, {
      1.0958250286311373`, 0.9034285682936934}, {-1470.6989595339326`, 
      3881.338426119581}, {-12661.743165241312`, 
      16541.763950731383`}, {-38037.5586990669, 
      38983.16051024121}, {-21694.98425076786, 20504.87831692914}}], 
     LineBox[{{0.982957770462072, 0.518522133665102}, {
      1620.963316326529, -3213.449486441967}, {
      16288.590289912394`, -16192.82093951487}, {1054.5683715475875`, 
      1025.1099055837772`}, {1.0958250286311373`, 0.9034285682936934}, {
      0.982957770462072, 0.518522133665102}}], 
     LineBox[{{1.0958250286311373`, 0.9034285682936934}, {1054.5683715475875`,
       1025.1099055837772`}, {-1470.6989595339326`, 3881.338426119581}, {
      1.0958250286311373`, 0.9034285682936934}}], 
     LineBox[{{-9103.231509946674, 
      6267.284446482437}, {-1976.705383044283, -31.853076735335208`}, {
      0.9502442679667235, 0.5279256934590607}, {-21694.98425076786, 
      20504.87831692914}, {-9103.231509946674, 6267.284446482437}}], 
     LineBox[{{0.9502442679667235, 
      0.5279256934590607}, {-1976.705383044283, -31.853076735335208`}, {
      1620.963316326529, -3213.449486441967}, {0.982957770462072, 
      0.518522133665102}, {0.9502442679667235, 0.5279256934590607}}], 
     LineBox[{{-12661.743165241312`, 
      16541.763950731383`}, {-1470.6989595339326`, 3881.338426119581}, {
      1054.5683715475875`, 1025.1099055837772`}, {
      16288.590289912394`, -16192.82093951487}}], 
     LineBox[{{-9103.231509946674, 6267.284446482437}, {-21694.98425076786, 
      20504.87831692914}, {-38037.5586990669, 38983.16051024121}}], 
     LineBox[{{-38037.5586990669, 38983.16051024121}, {-12661.743165241312`, 
      16541.763950731383`}}], 
     LineBox[{{16288.590289912394`, -16192.82093951487}, {
      1620.963316326529, -3213.449486441967}, {-1976.705383044283, \
-31.853076735335208`}, {-9103.231509946674, 6267.284446482437}}]}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAAGuRNcAEhr8YwFUMsJmmvzAhiRtG
lZ6/gGqUvTvAa79YmIbMooelP9i7VEZTgKQ/oMFK2zialD9EQqTcv1Gvv2Qo
CeVzsLc/wDX680bWuD/w65zR+e6qPyD2NbP7D7Q/OC0RHnIbtb9AMRDy/+eb
PxyqGDLwmbY/tqODi2bBsL8MGjl0jKyxvxDPX1akN7U/oCEKEmrSjb/gkfcy
rC6WP+iHWiRZPLa/6IHuffgD8T9Y9HYFTrmqvwF+vNtDKvA/UNorJtOrl79Z
Z4r4EivwPwC+3Ax70nY/nyuMMV4l7z/Ah+8ekWKHv87XZBxNZ/E/AIdg+MOP
j7+E98Sw0CLtPwKF9z5UjbG/S08ShLtt7j/A48jetpmwP9yUbvAzxu4/MMeb
bCAAkD/PxITaQF/wPxAnzlLmO7G/qQRLnxAU7j9tx03/2H7YP7d0QNT2HPk/
BNBiJ8GQ2T8xg2xISbn3P7Syd5TOPtw/PgYvRUbj9z9Siq02pCHVP3CmZPc4
Dvk/dD4F605u3z8VBqoPHLj2P/p+CGwjANo/3nj6iJBI+D/rgrT0yj3ZPxAt
DtnyifY/wp+spli13T/n3woEbVP3P6SaX7sSY9U/ZTUsqUbf9j8mN4OGyuvb
P14zZfjXpPY/K8C+6iNv8T9I2SlsWOT+P/pirMSsie8/Omg7XlJQAEBStriX
msfwP+eCjlO3VwBAcBOtJ6mF8T8ZAJXBYSgAQOp/twvA6O0/UTScGVbY/j9U
8+2bM3rwPxh+EFmQdv8/xy8LpKJP8T8M2Mh4OND/P9/UxmUlZe0/AxjDjbUc
AEAYQp/CnOjvP+esNpxZiABAVvsXYtPc8D8sKxPutWoAQEusD62Tf/Y/rxAA
Sn1m9j+/m83K7qv4P7qonkr9Xfk/VrFF4EGo9z9m/KkJ3lD4P8IUBRz3FPg/
TVCgUr9K+D8f7ZYObV34PyFQNX68yvc/yWdW79Tv9z/sdeof6333P42WaJU/
Mvk/7mZdDnmS+T8UOvhjgl34PzitDZI8c/k/8grmjZ+H9z+LHEGeUs/4PzVZ
pWwmmvY/pW+2sEgk+T81TORZveb+P0S3Xio7kPE/mIvbUlUkAEDYqI4hzp7u
P1boyfSse/8/38dmPCj58D9VAGcCOagAQOQPPAIS4fA/swyRZ30U/z9G6ylg
zLfuP3aZR9Fdrf4/Gg7rKFov8D/1IeJX9FkAQLpmLHoRhfA/hh1IrwIYAEAc
Kc89vK/tP0tXkGKiy/8/KxRpSjXw8D8uA3KEThEAQGWXC0j0eO0/1tDeJg==

      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->False,
  Frame->True,
  PlotLabel->FormBox["\"Unsupervised Clustering\"", TraditionalForm],
  PlotRange->{{2.1392188901233937`, -0.14393724397380536`}, {
   2.122683173866898, -0.12155706440275593`}}]], "Output",
 CellChangeTimes->{{3.5110093563379374`*^9, 3.511009380462001*^9}, {
   3.5110095181049795`*^9, 3.5110095451849174`*^9}, 3.511010458688418*^9, 
   3.5110105955682993`*^9, 3.511011268390237*^9, 3.5110113548202124`*^9, 
   3.511013888768983*^9, 3.5110139475059414`*^9, 3.5110139911809874`*^9, 
   3.5110140797592354`*^9, 3.511014115380759*^9, {3.511014889828601*^9, 
   3.5110149069692783`*^9}, 3.511014956561575*^9, {3.5110149912369785`*^9, 
   3.5110150207597275`*^9}, 3.5110150588690667`*^9, {3.5110150944985914`*^9, 
   3.511015196524047*^9}, {3.511015229793271*^9, 3.511015239690528*^9}, 
   3.5110153782781267`*^9, 3.511015501528777*^9, {3.511015552721778*^9, 
   3.5110155937539883`*^9}, {3.5110156763119717`*^9, 
   3.5110157054846764`*^9}, {3.511015737698767*^9, 3.5110157563736386`*^9}, {
   3.5110158003407216`*^9, 3.511015838848612*^9}, 3.5110159332926044`*^9, 
   3.5110161275382705`*^9, {3.5110162061582537`*^9, 3.5110162321870594`*^9}, 
   3.51101630000117*^9, {3.5110163732699747`*^9, 3.511016412094905*^9}, 
   3.5110170836681833`*^9, {3.511017154295652*^9, 3.5110171928685503`*^9}, 
   3.5110172405311027`*^9, {3.511017650001599*^9, 3.511017676967023*^9}, {
   3.5110177163540244`*^9, 3.5110177373656926`*^9}, 3.511017772348135*^9, {
   3.5110181969805565`*^9, 3.511018220721571*^9}, {3.5110182755060277`*^9, 
   3.5110183131883125`*^9}, 3.5122341307814894`*^9, {3.5134488084278135`*^9, 
   3.513448827910288*^9}, {3.5142591421553164`*^9, 3.5142591912330027`*^9}, {
   3.5150931803585863`*^9, 3.515093240322016*^9}, 3.5152321124628563`*^9, {
   3.51523222838666*^9, 3.515232261209118*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["S\[IAcute]\[THacek] inicializovan\[AAcute] metodou SOM", "Subsection",
 CellChangeTimes->{{3.511016608119296*^9, 3.511016614457101*^9}, {
  3.511016879331736*^9, 3.5110168882318664`*^9}}],

Cell["\<\
Proto\[ZHacek]e vid\[IAcute]me, \[ZHacek]e rozd\[EHacek]len\[IAcute] dat na \
shluky je\[SHacek]t\[EHacek] nen\[IAcute] perfektn\[IAcute] \
m\[URing]\[ZHacek]eme se pokust dos\[AAcute]hnout je\[SHacek]t\[EHacek] lep\
\[SHacek]\[IAcute]ho rozd\[EHacek]len\[IAcute]. M\[IAcute]sto n\[AAcute]hodn\
\[EAcute] inicializace s\[IAcute]t\[EHacek] m\[URing]\[ZHacek]eme \
pou\[ZHacek]\[IAcute]t SOM (samoorganizuj\[IAcute]c\[IAcute] mapu) k \
inicializaci s\[IAcute]t\[EHacek]. Samoorganizuj\[IAcute]c\[IAcute] mapa se \
nech\[AAcute] p\[RHacek]izp\[URing]sobit dat\[URing]m, na sou\[RHacek]adnic\
\[IAcute]ch, kde skon\[CHacek]\[IAcute] jej\[IAcute] neurony, jsou \
inicializov\[AAcute]ny neurony na\[SHacek]\[IAcute] \
po\[ZHacek]adovan\[EAcute] s\[IAcute]t\[EHacek] (na\[SHacek]e s\[IAcute]\
\[THacek] nen\[IAcute] SOM).\
\>", "Text",
 CellChangeTimes->{{3.511013446343802*^9, 3.5110134785153875`*^9}, {
   3.51101351050795*^9, 3.5110136070382075`*^9}, {3.5110142536013107`*^9, 
   3.511014355664771*^9}, {3.5110147136052237`*^9, 3.5110147455502806`*^9}, 
   3.5110156170694494`*^9, {3.511017553976405*^9, 3.5110175601826935`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"unsup2", "=", 
   RowBox[{"InitializeUnsupervisedNet", "[", 
    RowBox[{"inData", ",", "6", ",", 
     RowBox[{"UseSOM", " ", "\[Rule]", "True"}], ",", 
     RowBox[{"CriterionPlot", "\[Rule]", "True"}], ",", 
     RowBox[{"CriterionLog", "\[Rule]", "True"}], ",", 
     RowBox[{"Iterations", "\[Rule]", "30"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.511012647679885*^9, 3.5110126703427625`*^9}, 
   3.5110129541713037`*^9, {3.511013435150881*^9, 3.5110134352338915`*^9}, {
   3.5110136718929434`*^9, 3.5110136730595913`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQDQOCR6uTb89+aw/hfbA/O7PQa/HiN1A+g0NgtEbp
lM+voXwOB9V5i4561z2G8gUcYp6XZN9/dQ/KF3E4luSzKOvITShfwuFYovTN
R4+uQfkyDuJzX01YmX8VyldwmHrmfW7plCtQvpJDqOrLyt9bL0H5Kg5PXr74
JCt3BspXc3jzR0OPJe4olK/hkLyUpWlq9kEoX8uhw52L6f/EvVC+jsPF+7YJ
q1/thPL1HJS+JauvSNgO5Rs4NEaEu9+ZtRXKN3Tw3+MoI5i8Bco3cqjvnHVR
fNJmKN/YQa7iTV8ZG4xv4mAVzyeyb+UmKN/U4QFP0YE1eTC+mUOh7VXR/e4w
vrnDeqewD726ML6Fw7G1j0zOSsP4lg6KvhlTt/PD+FYOyftYDSrYYXxrh1ST
r/VXGGF8GwfR7Za7vv/dCOXbOjAUKrsE/obx7Rz2d39bUfdzoz0AxI+MOA==

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"Iterations\"", TraditionalForm], None},
  FrameTicks->{{{0, 
      FormBox["0", TraditionalForm]}, {5, 
      FormBox["5", TraditionalForm]}, {10, 
      FormBox["10", TraditionalForm]}, {15, 
      FormBox["15", TraditionalForm]}, {20, 
      FormBox["20", TraditionalForm]}, {25, 
      FormBox["25", TraditionalForm]}, {30, 
      FormBox["30", TraditionalForm]}}, Automatic, None, None},
  PlotLabel->FormBox["\"Mean Distance\"", TraditionalForm],
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{{3.5142591425921173`*^9, 3.5142591917166033`*^9}, {
   3.515093181043625*^9, 3.515093241081059*^9}, 3.515232113164858*^9, {
   3.515232228854661*^9, 3.515232261723919*^9}}]
}, Open  ]],

Cell["\<\
Nyn\[IAcute] nau\[CHacek]\[IAcute]me zinicializovanou s\[IAcute]\[THacek] na \
na\[SHacek]ich datech.\
\>", "Text",
 CellChangeTimes->{{3.5110144285280237`*^9, 3.5110144441735106`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"unsup2", ",", "fitrecord2"}], "}"}], "=", 
   RowBox[{"UnsupervisedNetFit", "[", 
    RowBox[{"inData", ",", "unsup2", ",", "30"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.511012673420153*^9, {3.5110127565807133`*^9, 3.5110127581644144`*^9}, 
   3.5110128114411793`*^9, {3.5110136271332593`*^9, 3.5110136334815655`*^9}, {
   3.511013696614582*^9, 3.511013743915589*^9}, {3.5110139811837177`*^9, 
   3.5110139824143744`*^9}, {3.5110170310315*^9, 3.5110170315855703`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQDQP7u7+tqPu50R7C+2D/cdt97qjfMD6Dw6EpV48s
/QXjcziYOuZn6vyB8QUc4tYffuj8A8YXcWAQfH/b8e4mKF/CoXGua2KU4GYo
X8Yh1HbW6nk2ML6Cw8ed7nfyjsHUKzm8VrR/UfocxldxEP4m+uLgEhhfzWF5
zHmeq/tgfA0H3W0NVVeSYHwtByufEzuubIXxdRzmH7zAt7kPxtdzqHoqIN3u
BuMbOPgmn7XO3w7jGzrsZirN26EP4xs58L4+VlxgA+MbO1its5yQFgvjmzjo
8nb9rOOC8U0dmGYcXi2uCOObObQ1SYdo28H45g63Ht3uOyYN41s4XF67tHEC
M4xv6XDCMHORcQ+Mb+Vw/ta2j9PzYHxrBxt1laNN8TC+jQPH1oPvd8HdZ+sw
KX8350J2GN/OoaP69XkrhU32AHCujLE=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 0.0702},
  Frame->True,
  FrameLabel->{
    FormBox["\"Iterations\"", TraditionalForm], None},
  FrameTicks->{{{0, 
      FormBox["0", TraditionalForm]}, {5, 
      FormBox["5", TraditionalForm]}, {10, 
      FormBox["10", TraditionalForm]}, {15, 
      FormBox["15", TraditionalForm]}, {20, 
      FormBox["20", TraditionalForm]}, {25, 
      FormBox["25", TraditionalForm]}, {30, 
      FormBox["30", TraditionalForm]}}, Automatic, None, None},
  PlotLabel->FormBox["\"Mean Distance\"", TraditionalForm],
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{{3.5142591430601177`*^9, 3.514259192200204*^9}, {
   3.5150931817376647`*^9, 3.5150932418151007`*^9}, 3.515232113898059*^9, {
   3.5152322293382616`*^9, 3.5152322622699194`*^9}}]
}, Open  ]],

Cell["\<\
A pod\[IAcute]v\[AAcute]me se jak\[YAcute]m zp\[URing]sobem u\[RHacek]\
\[CHacek]uje shluky v datech.\
\>", "Text",
 CellChangeTimes->{{3.5110144562225404`*^9, 3.5110144917760553`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetPlot", "[", 
  RowBox[{"unsup2", ",", "inData"}], "]"}]], "Input",
 CellChangeTimes->{{3.511012569617972*^9, 3.5110125864736123`*^9}, {
  3.51101278159689*^9, 3.511012785088833*^9}, {3.511013058286525*^9, 
  3.5110130605278096`*^9}, {3.511013647042288*^9, 3.511013647999409*^9}}],

Cell[BoxData[
 GraphicsBox[{{{
     InsetBox["\<\"1\"\>", {-0.013446617669875085`, 0.9915981790450101}], 
     InsetBox["\<\"2\"\>", {0.012367360221906796`, 0.013575529924178736`}], 
     InsetBox["\<\"3\"\>", {0.3958598397662757, 1.4714731501508425`}], 
     InsetBox["\<\"4\"\>", {1.4995317580829617`, 1.5279832040052677`}], 
     InsetBox["\<\"5\"\>", {1.9848195707986587`, 1.012850636871201}], 
     InsetBox["\<\"6\"\>", {1.0304709514506856`, 1.9962858740659077`}], 
     InsetBox["7", {2198.9110744591626`, 2182.150339651579}], 
     InsetBox["8", {-3995.714109793292, -3964.2517271877814`}], 
     InsetBox["9", {5948.9492995689625`, 5995.967526501278}], 
     InsetBox["10", {-1981.892076997954, -1997.0972273728567`}]}, 
    {PointSize[0.012], PointBox[{-648873.4765894803, 649851.0179100335}], 
     PointBox[{-236700.19270087866`, 240836.68479207513`}], 
     PointBox[{-127390.81482144349`, 124372.57213633585`}], 
     PointBox[{-14267.41914975731, 12170.703591400827`}], 
     PointBox[{-10932.72720431017, 13222.607595753216`}], 
     PointBox[{-1945.8954246789388`, -50.857458424503726`}], 
     PointBox[{0.9503946324279248, 1.447018498947429}], 
     PointBox[{0.9904983771931548, 0.5497845815923398}], 
     PointBox[{0.9907220865918952, 0.5287502649405137}], 
     PointBox[{0.9954553337728954, 0.5669586281461378}], 
     PointBox[{1094.908803662594, 1097.1764400190168`}], 
     PointBox[{1128.7965953256614`, 1063.02773731637}], 
     PointBox[{2021.8302402410804`, -3988.372151084142}], 
     PointBox[{291109.24325251405`, -291016.5224395784}]}, 
    {Thickness[0.003], 
     LineBox[{{-236700.19270087866`, 240836.68479207513`}, {
      7887.7473738637345`, 339.0207079666552}}], 
     LineBox[{{291109.24325251405`, -291016.5224395784}, {
      295288.4908195373, -295197.32559103455`}}], 
     LineBox[{{-648873.4765894803, 649851.0179100335}, {-658833.6958431716, 
      659795.6813194104}}], 
     LineBox[{{-127390.81482144349`, 
      124372.57213633585`}, {-1021.6485935806995`, -4994.496510075656}}], 
     LineBox[{{-1945.8954246789388`, -50.857458424503726`}, {
      0.9907220865918952, 0.5287502649405137}, {0.9904983771931548, 
      0.5497845815923398}, {-14267.41914975731, 
      12170.703591400827`}, {-1945.8954246789388`, -50.857458424503726`}}], 
     LineBox[{{-1945.8954246789388`, -50.857458424503726`}, {
      2021.8302402410804`, -3988.372151084142}, {0.9907220865918952, 
      0.5287502649405137}, {-1945.8954246789388`, -50.857458424503726`}}], 
     LineBox[{{-127390.81482144349`, 
      124372.57213633585`}, {-14267.41914975731, 12170.703591400827`}, {
      0.9904983771931548, 0.5497845815923398}, {0.9954553337728954, 
      0.5669586281461378}, {0.9503946324279248, 
      1.447018498947429}, {-10932.72720431017, 
      13222.607595753216`}, {-236700.19270087866`, 
      240836.68479207513`}, {-648873.4765894803, 
      649851.0179100335}, {-127390.81482144349`, 124372.57213633585`}}], 
     LineBox[{{0.9503946324279248, 1.447018498947429}, {0.9954553337728954, 
      0.5669586281461378}, {1128.7965953256614`, 1063.02773731637}, {
      1094.908803662594, 1097.1764400190168`}, {0.9503946324279248, 
      1.447018498947429}}], 
     LineBox[{{0.9904983771931548, 0.5497845815923398}, {0.9907220865918952, 
      0.5287502649405137}, {2021.8302402410804`, -3988.372151084142}, {
      291109.24325251405`, -291016.5224395784}, {1128.7965953256614`, 
      1063.02773731637}, {0.9954553337728954, 0.5669586281461378}, {
      0.9904983771931548, 0.5497845815923398}}], 
     LineBox[{{0.9503946324279248, 1.447018498947429}, {1094.908803662594, 
      1097.1764400190168`}, {-10932.72720431017, 13222.607595753216`}, {
      0.9503946324279248, 1.447018498947429}}], 
     LineBox[{{-236700.19270087866`, 
      240836.68479207513`}, {-10932.72720431017, 13222.607595753216`}, {
      1094.908803662594, 1097.1764400190168`}, {1128.7965953256614`, 
      1063.02773731637}, {291109.24325251405`, -291016.5224395784}}], 
     LineBox[{{-127390.81482144349`, 
      124372.57213633585`}, {-648873.4765894803, 649851.0179100335}}], 
     LineBox[{{-648873.4765894803, 649851.0179100335}, {-236700.19270087866`, 
      240836.68479207513`}}], 
     LineBox[{{291109.24325251405`, -291016.5224395784}, {
      2021.8302402410804`, -3988.372151084142}, {-1945.8954246789388`, \
-50.857458424503726`}, {-14267.41914975731, 
      12170.703591400827`}, {-127390.81482144349`, 
      124372.57213633585`}}]}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAAGuRNcAEhr8YwFUMsJmmvzAhiRtG
lZ6/gGqUvTvAa79YmIbMooelP9i7VEZTgKQ/oMFK2zialD9EQqTcv1Gvv2Qo
CeVzsLc/wDX680bWuD/w65zR+e6qPyD2NbP7D7Q/OC0RHnIbtb9AMRDy/+eb
PxyqGDLwmbY/tqODi2bBsL8MGjl0jKyxvxDPX1akN7U/oCEKEmrSjb/gkfcy
rC6WP+iHWiRZPLa/6IHuffgD8T9Y9HYFTrmqvwF+vNtDKvA/UNorJtOrl79Z
Z4r4EivwPwC+3Ax70nY/nyuMMV4l7z/Ah+8ekWKHv87XZBxNZ/E/AIdg+MOP
j7+E98Sw0CLtPwKF9z5UjbG/S08ShLtt7j/A48jetpmwP9yUbvAzxu4/MMeb
bCAAkD/PxITaQF/wPxAnzlLmO7G/qQRLnxAU7j9tx03/2H7YP7d0QNT2HPk/
BNBiJ8GQ2T8xg2xISbn3P7Syd5TOPtw/PgYvRUbj9z9Siq02pCHVP3CmZPc4
Dvk/dD4F605u3z8VBqoPHLj2P/p+CGwjANo/3nj6iJBI+D/rgrT0yj3ZPxAt
DtnyifY/wp+spli13T/n3woEbVP3P6SaX7sSY9U/ZTUsqUbf9j8mN4OGyuvb
P14zZfjXpPY/K8C+6iNv8T9I2SlsWOT+P/pirMSsie8/Omg7XlJQAEBStriX
msfwP+eCjlO3VwBAcBOtJ6mF8T8ZAJXBYSgAQOp/twvA6O0/UTScGVbY/j9U
8+2bM3rwPxh+EFmQdv8/xy8LpKJP8T8M2Mh4OND/P9/UxmUlZe0/AxjDjbUc
AEAYQp/CnOjvP+esNpxZiABAVvsXYtPc8D8sKxPutWoAQEusD62Tf/Y/rxAA
Sn1m9j+/m83K7qv4P7qonkr9Xfk/VrFF4EGo9z9m/KkJ3lD4P8IUBRz3FPg/
TVCgUr9K+D8f7ZYObV34PyFQNX68yvc/yWdW79Tv9z/sdeof6333P42WaJU/
Mvk/7mZdDnmS+T8UOvhjgl34PzitDZI8c/k/8grmjZ+H9z+LHEGeUs/4PzVZ
pWwmmvY/pW+2sEgk+T81TORZveb+P0S3Xio7kPE/mIvbUlUkAEDYqI4hzp7u
P1boyfSse/8/38dmPCj58D9VAGcCOagAQOQPPAIS4fA/swyRZ30U/z9G6ylg
zLfuP3aZR9Fdrf4/Gg7rKFov8D/1IeJX9FkAQLpmLHoRhfA/hh1IrwIYAEAc
Kc89vK/tP0tXkGKiy/8/KxRpSjXw8D8uA3KEThEAQGWXC0j0eO0/1tDeJg==

      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->False,
  Frame->True,
  PlotLabel->FormBox["\"Unsupervised Clustering\"", TraditionalForm],
  PlotRange->{{2.1392188901233937`, -0.14393724397380536`}, {
   2.122683173866898, -0.12155706440275593`}}]], "Output",
 CellChangeTimes->{{3.5110125616859646`*^9, 3.5110126000768394`*^9}, 
   3.5110126945323343`*^9, 3.5110127755121174`*^9, 3.511012828870393*^9, 
   3.5110130611738915`*^9, {3.5110136517708883`*^9, 3.511013681785199*^9}, {
   3.5110137642281685`*^9, 3.51101378282903*^9}, {3.511013881447553*^9, 
   3.5110138920874043`*^9}, 3.5110139507968597`*^9, 3.511013994609923*^9, {
   3.5110140635086718`*^9, 3.511014083209674*^9}, 3.5110141189017057`*^9, 
   3.511014179312377*^9, {3.5110148934245577`*^9, 3.511014910719254*^9}, 
   3.511014960253044*^9, {3.511014995116971*^9, 3.5110150246507215`*^9}, 
   3.511015062862574*^9, {3.5110150984990993`*^9, 3.511015200781087*^9}, {
   3.5110152340848165`*^9, 3.5110152440480814`*^9}, 3.511015382668684*^9, 
   3.511015506032349*^9, {3.5110155572953587`*^9, 3.511015598497591*^9}, {
   3.5110156810810776`*^9, 3.511015710245781*^9}, {3.5110157428984275`*^9, 
   3.5110157612547584`*^9}, {3.511015805250845*^9, 3.5110158442507973`*^9}, 
   3.5110159366870356`*^9, {3.5110161237272863`*^9, 3.511016152492939*^9}, {
   3.511016209637696*^9, 3.5110162357180076`*^9}, 3.511016303284087*^9, {
   3.511016376453879*^9, 3.511016415515339*^9}, 3.5110170861790023`*^9, {
   3.511017156905984*^9, 3.511017195497384*^9}, 3.5110172432519484`*^9, {
   3.5110176525659246`*^9, 3.5110176796258607`*^9}, {3.5110177190058613`*^9, 
   3.5110177399865255`*^9}, 3.5110177752885084`*^9, {3.5110181994958754`*^9, 
   3.5110182234019117`*^9}, {3.511018278101857*^9, 3.5110183158511505`*^9}, 
   3.51223413338482*^9, {3.5134488111951647`*^9, 3.513448830602129*^9}, {
   3.514259143138118*^9, 3.5142591922626047`*^9}, {3.515093181844671*^9, 
   3.515093241891105*^9}, 3.515232113944859*^9, {3.5152322294006615`*^9, 
   3.5152322623323193`*^9}}]
}, Open  ]],

Cell["\<\
Tento p\[RHacek]\[IAcute]stup k inicializaci s\[IAcute]t\[EHacek] n\[AAcute]m \
m\[URing]\[ZHacek]e \[CHacek]asto pomoci dos\[AAcute]hnout lep\[SHacek]\
\[IAcute]ch v\[YAcute]sledk\[URing], ne\[ZHacek] n\[AAcute]hodn\[AAcute] \
inicializace. Tak\[EAcute] \[CHacek]asto zabr\[AAcute]n\[IAcute] probl\
\[EAcute]mu s \[OpenCurlyDoubleQuote]mrtv\[YAcute]mi\[CloseCurlyDoubleQuote] \
neurony.\
\>", "Text",
 CellChangeTimes->{{3.5110146693171*^9, 3.5110146804300113`*^9}, {
  3.5110147593920383`*^9, 3.5110147633755436`*^9}, {3.5110148155426683`*^9, 
  3.5110148480392947`*^9}, {3.5110160417768803`*^9, 3.5110161015449696`*^9}, {
  3.511016171819894*^9, 3.511016201921216*^9}, {3.5110162829175014`*^9, 
  3.511016287309059*^9}, {3.511018554247423*^9, 3.511018558592475*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Pr\[URing]b\[EHacek]h u\[CHacek]en\[IAcute]", "Section",
 CellChangeTimes->{{3.40353370945933*^9, 3.403533723564199*^9}, {
   3.407607079734375*^9, 3.407607097453125*^9}, {3.41416327184375*^9, 
   3.414163912734375*^9}, 3.41725914690625*^9, {3.511000794002159*^9, 
   3.511000860623618*^9}, {3.511000915356569*^9, 3.511000918776503*^9}, {
   3.5110011555730724`*^9, 3.5110011784724803`*^9}, {3.5110012277552385`*^9, 
   3.5110012298530045`*^9}, {3.5110012711847534`*^9, 3.511001355729989*^9}, 
   3.511009438120322*^9, {3.511009580026842*^9, 3.5110095880783644`*^9}}],

Cell[CellGroupData[{

Cell["N\[AAcute]hodn\[EHacek] inicializovan\[AAcute] s\[IAcute]\[THacek]", \
"Subsection",
 CellChangeTimes->{{3.5110169441204634`*^9, 3.511016949199608*^9}}],

Cell["\<\
Je\[SHacek]t\[EHacek] se m\[URing]\[ZHacek]eme pod\[IAcute]vat jak s\[IAcute]\
\[THacek] v pr\[URing]b\[EHacek]hu u\[CHacek]en\[IAcute] d\[EHacek]lila data \
do shluk\[URing] a jak se m\[EHacek]nila poloha jednotliv\[YAcute]ch neuron\
\[URing]. Barevn\[EAcute] \[CHacek]\[AAcute]ry ukazuj\[IAcute] pohyb \
jednotliv\[YAcute]ch neuron\[URing] v pr\[URing]b\[EHacek]hu u\[CHacek]en\
\[IAcute], \[CHacek]\[IAcute]sla ukazuj\[IAcute] jejich kone\[CHacek]nou \
polohu.\
\>", "Text",
 CellChangeTimes->{{3.511009612194927*^9, 3.511009694691403*^9}, {
  3.5110097763802757`*^9, 3.511009815497243*^9}, {3.515093292302989*^9, 
  3.5150932957751875`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetPlot", "[", 
  RowBox[{"fitrecord", ",", "inData"}], "]"}]], "Input",
 CellChangeTimes->{{3.5110097286407137`*^9, 3.5110097308884993`*^9}, {
  3.5110113463356347`*^9, 3.5110113614475536`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQveeU7vlI7lf2E15e8lx/4pM9tfl//h858rb1tv21
zb1Xn3l8t7+v5H46ovOW/fPG8BKTG9/t1ZeH/TgRc9N+tdCEv/z3vtvbXZt7
MU/9tv2yT0vXSp75bt+4SPH5q6ib9q+aFx4tm/XdXsB4o26XxG17s0/yFbun
fbd/5pN9/pf5bfvHyV9PuOz5bh8X8sS9cNUte8nilmORW77bpx1fssnC7pb9
2riGvzv2fbe/qdR+L+jfLfvyG5+djsV/t58u/OKTkeBte3Xf1BtPW77bS6l+
rJ76/6a9i8mkP+Fzvttbih04+9f+lr3nQ1b9s4u/21sfUH7Q5XnT3veebUf6
/+/29/y81paV3LR/yKF9fF35d/sdqqJJPQ237N2tAqa01323X27gf+fvnFv2
S5WyLrzN+27/wWABk5U30P/vzsYxTP5u3zE5OftUyC17hy9L/4of/G7vlhh1
+7X4LXslxwVdXb+A6lfd6+bZccv+7uQdV22A7nG+KbxAoPqW/Y1So+fcK77b
R/lM++3tets+KoXJ6fUkoH9j19Voedyyf6u3fvelXd/tUx/rb75Wesv+u3nJ
f7eu7/YAWsEUAQ==
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAphwz/g1R6j+G10wDyNHyP63YT0fz
3O8/gOORDQvX8j+gW6YXS4TxPwTbyPLCIfM/+ZvD4QHe8j92sCj+4EnzPyDq
p9kcXPQ/SBF/yciA8z8r5NbH2Kj8P/dtXiUS0fM/tbTsRY10/T/rAvJCdInz
Pz8jfttrmvs/umPC1cpU9D+wMy1Bcjr8P2mMLs/jOvQ/ZTNupSLf/j+irhWp
b9zwP8fJYs8SFABAZoEp8fo78D/tOqJClwAAQP1SMM388e8/E5eA7k4VAEBf
D7uJqFnwP6eSS+PZ1/8/L1U4qSt78D9Jeo+33u//PzaFH85bE/A/NeWkhvq6
/z9l/OiyCjXwPyNyU1u+qv8/NixxwDcE8D90+xF7QdP/P5LTcfhqm+8/Mm0S
HbSl/z+RJ4wJ8BTwP6DIbwnTx/8/sUWXmqzf7z9NP8zO7uP/P/mDewcDRfA/
2h9O7+YQAECgN50HRDTwP/SAkU1Y7f8/4Zg3Ciop8D94fyS6ps3/P1i25E4S
U/A/ypbLPBXW/z84+ail2YfvPwTYz3KbAABAz1Ci5ejK7z/vUFT4KMP/P4Yr
87Ml+e8/duBYYI21/z+LW7gipQfwPyzqTDQAtv8/FCuRyHPD7z/3MULEVLL/
P7sENSHT/+8/y35gCfSg/z/fvqjWjzTwP2r2B5U=
      "]]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAACtuq+fAt6j/CzUccSeryP1Llc7S1
wuk/ed8ORbux9D9ox5SkJl3pPzzZbPNIL/Y/6/lAtJGn6D9Rmrj/1kH3P56Q
zBu+vuc/RnumSos7+D9JGNxw5SnvPz1tdVcYtf8/rBIGjsnV7z/E3+M64xEA
QLPGNT3K0/A/eyYDHXI9AECghD9VvifwPzNrzHqmCQBAqpMm0Fdi8D+n8mGM
kgAAQJUaOgYgxfM/zFURcxED/T8aoDRAB3vzP1groz2F/fw/4XNEZ7QZ8z95
usLtgoj8P0iekc900PU/cPS67q7v+T8EXgiiRET0P+sJhfJFW/w/sfRXU+jH
9D8DasTNQZP7PxOYYExCEfQ/Y2o3oT5Z/D/Qik6L8jX1P9WTV+se8fo/QE63
msX08z9RaFYn88j8P6ic5PrpafM/GVfc/1YV/T89iLibERPzP0Ws7va9ev0/
u/ecTKvZ8z9ulcfmZ/z7Py8qkgTBu/M/6WmEixGV/D9yAdhPg9nzP9HMAfMl
EPw/q25EJT+Z9D+2VJQ18Kf7P5Pjr5VFofU/4I9/rq1s+j+/ICLzrsHzP0Bu
rk90XPw/s3L9hX0t8z/FUMO64S39P6fW5WTHRPQ/k/Zsxcbt+z9w4MUzssHz
P3I6wcyFhPw/jfVNpxOu8z+LB2gI2H78P7seCW8=
      "]]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQPXcvx4zmcy/tr3tXTVh++pM9pfyqgnP7Z6Sfsrcp
yCrS+vbZ/lG9d0tgXLt9YVTIo3V9H+x/bLoQkPqkfT//oUq747Xv7QP2H9zy
6kHy/k4+04NivO/tg/Zz91lWddi/vyBpkCD43l5l/99+RYbi/YI/ujyuyH2w
N/28ZZ7V15n73599uH6vzAf7aLFP7jOON+1Xvy3D38r/wX7dk5AVwTtn7Lda
q7r+54wP9idl65eanVuwv3GFB0cXxwf7l6UnRJ4unL//rFBfocJUoP3ZUi/v
Mk3cPyVSKMKU+YO95qnf7mKrZu4/0pEi6f3xvX0Va7hSYMSc/dNXGuguYvxg
L3FpgU/+imn7V5lohzcC+ccbrKy2LO7c71OiK7tg43t74ZgKh8a7nfuDcr8t
1Gl+b7+YrfLIPZ7K/bwRjXu2dL63v+M4Z4ma2Zz9oTMql9j0vbc/sefqqlO/
5u+fF3It4zTQ/dwTOJbMX79g/9nrnDPY2T/Ysyg1Hq9MWLg//Wd0UQvQviRz
zpk6zUv2++WHrZ1z8r3952jbxYqTF+6fltD/Ndfog73Wxvig8iOz93Mslkze
Zf3BvunqTL/radP2H586X3i69gd7ANQFAvM=
      "]]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAeeRTnZ3X6T+uqOyVvI/yPzDXITVC
JOU/iPQ/Xt7Y8D9rGB2wge/gP2iuJJv4/O0/wLnlREq92j/poeIgd/rrPz9D
QZayh9c/4Z4qmuZd6j9KJ7bwJ9iXP9B382WL17k/exSA7Vw/oz/dY56oLvmN
P22D0EAV6ag/hMgHzyPunD+8Sg7mUJGLP58iIonXOqA/71sc45slrD8o+jje
nSylPzpEPH5/5Z8/xtpJLNjbmj+yWbw7EL50v9f8+Tj4gok/N3fHYJfeiD9b
n5T4fqySP7PUXHNhqZM/nJ2B7A5goT+1y8CnUf5wvyhnTjIK0JA/XDWsqyTk
ir8sy3w0XCiDP9DohiIINEa/wE/WywmHjz+yD8bMg7R7v19hT2VpGHc/1gRK
sre7lb9h+L/mszuUP0LhXtxy75Q/FMb0nkcymz+Qw95zRdWiP6wF9DFDXJI/
KzjKpIdhkD+9Z5HFLuShP/L7aeOn9YE/woY6cdw8kD+ATV7il96TP/P7Zx/d
Apw/Ww6+Ns1FlT8sCVPL90yVP2XnOR1eI6A/oy7EU09BoT/YapXUHAOhPzav
Tre0CKE/i/ENBZzMcz9YUTwejQGjP8RImCnHboc/nbqgT1Trnz/65BCEMOqG
P7qXOngMu5U/1niWdRi+dr9H/f1erPCLPx+V/m0=
      "]]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQ7aX/UU3M9pX9gd82ohKrPtmP8oc3HwAwI9wi
      "]]}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAAGuRNcAEhr8YwFUMsJmmvzAhiRtG
lZ6/gGqUvTvAa79YmIbMooelP9i7VEZTgKQ/oMFK2zialD9EQqTcv1Gvv2Qo
CeVzsLc/wDX680bWuD/w65zR+e6qPyD2NbP7D7Q/OC0RHnIbtb9AMRDy/+eb
PxyqGDLwmbY/tqODi2bBsL8MGjl0jKyxvxDPX1akN7U/oCEKEmrSjb/gkfcy
rC6WP+iHWiRZPLa/6IHuffgD8T9Y9HYFTrmqvwF+vNtDKvA/UNorJtOrl79Z
Z4r4EivwPwC+3Ax70nY/nyuMMV4l7z/Ah+8ekWKHv87XZBxNZ/E/AIdg+MOP
j7+E98Sw0CLtPwKF9z5UjbG/S08ShLtt7j/A48jetpmwP9yUbvAzxu4/MMeb
bCAAkD/PxITaQF/wPxAnzlLmO7G/qQRLnxAU7j9tx03/2H7YP7d0QNT2HPk/
BNBiJ8GQ2T8xg2xISbn3P7Syd5TOPtw/PgYvRUbj9z9Siq02pCHVP3CmZPc4
Dvk/dD4F605u3z8VBqoPHLj2P/p+CGwjANo/3nj6iJBI+D/rgrT0yj3ZPxAt
DtnyifY/wp+spli13T/n3woEbVP3P6SaX7sSY9U/ZTUsqUbf9j8mN4OGyuvb
P14zZfjXpPY/K8C+6iNv8T9I2SlsWOT+P/pirMSsie8/Omg7XlJQAEBStriX
msfwP+eCjlO3VwBAcBOtJ6mF8T8ZAJXBYSgAQOp/twvA6O0/UTScGVbY/j9U
8+2bM3rwPxh+EFmQdv8/xy8LpKJP8T8M2Mh4OND/P9/UxmUlZe0/AxjDjbUc
AEAYQp/CnOjvP+esNpxZiABAVvsXYtPc8D8sKxPutWoAQEusD62Tf/Y/rxAA
Sn1m9j+/m83K7qv4P7qonkr9Xfk/VrFF4EGo9z9m/KkJ3lD4P8IUBRz3FPg/
TVCgUr9K+D8f7ZYObV34PyFQNX68yvc/yWdW79Tv9z/sdeof6333P42WaJU/
Mvk/7mZdDnmS+T8UOvhjgl34PzitDZI8c/k/8grmjZ+H9z+LHEGeUs/4PzVZ
pWwmmvY/pW+2sEgk+T81TORZveb+P0S3Xio7kPE/mIvbUlUkAEDYqI4hzp7u
P1boyfSse/8/38dmPCj58D9VAGcCOagAQOQPPAIS4fA/swyRZ30U/z9G6ylg
zLfuP3aZR9Fdrf4/Gg7rKFov8D/1IeJX9FkAQLpmLHoRhfA/hh1IrwIYAEAc
Kc89vK/tP0tXkGKiy/8/KxRpSjXw8D8uA3KEThEAQGWXC0j0eO0/1tDeJg==

      "]]}, {}}, {{
     InsetBox["\<\"1\"\>", {0.41344230173813507`, 1.471259115092378}], 
     InsetBox["\<\"2\"\>", {1.976795231465007, 1.0128324875949415`}], 
     InsetBox["\<\"3\"\>", {1.229999211819947, 1.780967743718494}], 
     InsetBox["\<\"4\"\>", {-0.021876682445925784`, 1.0106421247995614`}], 
     InsetBox["\<\"5\"\>", {-0.005552382988211776, 0.013642641686372982`}], 
     InsetBox["\<\"6\"\>", {0.819956852015346, 1.1665268735521153`}], 
     InsetBox["7", {2199.274566057294, 1945.1335907330738`}], 
     InsetBox["8", {-3996.608367066598, -3533.5742255665014`}], 
     InsetBox["9", {5302.71076685163, 5997.091720230539}], 
     InsetBox["10", {-1766.5896412768536`, -1997.5959354131921`}]}, 
    {PointSize[0.012], PointBox[{-38037.42654676926, 38983.06616448441}], 
     PointBox[{-21694.776614689064`, 20504.68208584786}], 
     PointBox[{-12661.846739475952`, 16541.87433225792}], 
     PointBox[{-9103.179057983318, 6267.25093870614}], 
     PointBox[{-1976.6875713260436`, -31.852785096090134`}], 
     PointBox[{-1470.7081729378376`, 3881.362717548761}], 
     PointBox[{0.4079571121273316, 1.0404293543987013`}], 
     PointBox[{0.5042112305958522, 0.5206226035443706}], 
     PointBox[{0.8302135623815062, 1.6037218701794695`}], 
     PointBox[{1.2516665818631947`, -0.014584035742786373`}], 
     PointBox[{1.41483684049959, 1.2135780496824233`}], 
     PointBox[{1054.5771804673118`, 1025.1184697867136`}], 
     PointBox[{1620.9472784186041`, -3213.417667958483}], 
     PointBox[{16288.68177962518, -16192.877858006448`}]}, 
    {Thickness[0.003], 
     LineBox[{{-12661.846739475952`, 16541.87433225792}, {7802.950795951927, 
      867.6764546874706}}], 
     LineBox[{{16288.68177962518, -16192.877858006448`}, {
      20231.41130577146, -20158.742065340597`}}], 
     LineBox[{{-38037.42654676926, 38983.06616448441}, {-47568.092492566284`, 
      48282.385298402594`}}], 
     LineBox[{{-9103.179057983318, 
      6267.25093870614}, {-1345.620714018416, -4995.603806279592}}], 
     LineBox[{{-21694.776614689064`, 20504.68208584786}, {0.4079571121273316, 
      1.0404293543987013`}, {0.8302135623815062, 
      1.6037218701794695`}, {-1470.7081729378376`, 
      3881.362717548761}, {-12661.846739475952`, 
      16541.87433225792}, {-38037.42654676926, 
      38983.06616448441}, {-21694.776614689064`, 20504.68208584786}}], 
     LineBox[{{1620.9472784186041`, -3213.417667958483}, {
      16288.68177962518, -16192.877858006448`}, {1054.5771804673118`, 
      1025.1184697867136`}, {1.41483684049959, 1.2135780496824233`}, {
      1.2516665818631947`, -0.014584035742786373`}, {
      1620.9472784186041`, -3213.417667958483}}], 
     LineBox[{{0.8302135623815062, 1.6037218701794695`}, {1.41483684049959, 
      1.2135780496824233`}, {1054.5771804673118`, 
      1025.1184697867136`}, {-1470.7081729378376`, 3881.362717548761}, {
      0.8302135623815062, 1.6037218701794695`}}], 
     LineBox[{{-9103.179057983318, 
      6267.25093870614}, {-1976.6875713260436`, -31.852785096090134`}, {
      0.5042112305958522, 0.5206226035443706}, {0.4079571121273316, 
      1.0404293543987013`}, {-21694.776614689064`, 
      20504.68208584786}, {-9103.179057983318, 6267.25093870614}}], 
     LineBox[{{-1976.6875713260436`, -31.852785096090134`}, {
      1620.9472784186041`, -3213.417667958483}, {
      1.2516665818631947`, -0.014584035742786373`}, {0.5042112305958522, 
      0.5206226035443706}, {-1976.6875713260436`, -31.852785096090134`}}], 
     LineBox[{{0.4079571121273316, 1.0404293543987013`}, {0.5042112305958522, 
      0.5206226035443706}, {1.2516665818631947`, -0.014584035742786373`}, {
      1.41483684049959, 1.2135780496824233`}, {0.8302135623815062, 
      1.6037218701794695`}, {0.4079571121273316, 1.0404293543987013`}}], 
     LineBox[{{-12661.846739475952`, 
      16541.87433225792}, {-1470.7081729378376`, 3881.362717548761}, {
      1054.5771804673118`, 1025.1184697867136`}, {
      16288.68177962518, -16192.877858006448`}}], 
     LineBox[{{-9103.179057983318, 6267.25093870614}, {-21694.776614689064`, 
      20504.68208584786}, {-38037.42654676926, 38983.06616448441}}], 
     LineBox[{{-38037.42654676926, 38983.06616448441}, {-12661.846739475952`, 
      16541.87433225792}}], 
     LineBox[{{16288.68177962518, -16192.877858006448`}, {
      1620.9472784186041`, -3213.417667958483}, {-1976.6875713260436`, \
-31.852785096090134`}, {-9103.179057983318, 6267.25093870614}}]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->False,
  AxesOrigin->{0, 0},
  Frame->True,
  PlotLabel->FormBox["\"Unsupervised Clustering\"", TraditionalForm],
  PlotRange->{{2.1392188901233937`, -0.14393724397380536`}, {
   2.122683173866898, -0.12155706440275593`}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.511009732555211*^9, 3.5110104588394375`*^9, 3.5110105957263193`*^9, 
   3.5110112685352554`*^9, {3.5110113481418643`*^9, 3.511011361875108*^9}, 
   3.511013892249425*^9, 3.5110139509343767`*^9, 3.5110139947704434`*^9, 
   3.511014083347191*^9, 3.5110141190587263`*^9, {3.5110148937045937`*^9, 
   3.511014910991289*^9}, 3.51101496053608*^9, {3.5110149954130087`*^9, 
   3.5110150249307575`*^9}, 3.511015063141609*^9, {3.511015098804138*^9, 
   3.511015201068124*^9}, {3.511015234372853*^9, 3.5110152443311176`*^9}, 
   3.51101538295222*^9, 3.511015506320386*^9, {3.5110155575833955`*^9, 
   3.511015598780627*^9}, {3.5110156814491243`*^9, 3.511015710528817*^9}, {
   3.511015743241971*^9, 3.5110157615387945`*^9}, {3.51101580552888*^9, 
   3.5110158446183443`*^9}, 3.511015936975072*^9, {3.511016209923232*^9, 
   3.5110162360245466`*^9}, 3.5110163035596223`*^9, {3.5110163767444153`*^9, 
   3.5110164158183775`*^9}, 3.511017086468539*^9, {3.5110171572470264`*^9, 
   3.5110171957869205`*^9}, 3.511017243570489*^9, {3.5110176527239447`*^9, 
   3.511017679787381*^9}, {3.51101771915088*^9, 3.511017740128544*^9}, 
   3.5110177754395275`*^9, {3.511018199638894*^9, 3.511018223531428*^9}, {
   3.5110182782493763`*^9, 3.5110183159801674`*^9}, 3.5122341335303383`*^9, {
   3.513448811366687*^9, 3.513448830749648*^9}, {3.514259143216118*^9, 
   3.5142591923406043`*^9}, {3.5150931819256754`*^9, 3.51509324197711*^9}, 
   3.5152321140384593`*^9, {3.515232229478662*^9, 3.51523226241032*^9}}]
}, Open  ]],

Cell["\<\
Zde si m\[URing]\[ZHacek]ete zobrazit pr\[URing]b\[EHacek]h u\[CHacek]en\
\[IAcute] po jednotliv\[YAcute]ch iterac\[IAcute]ch. Pro spr\[AAcute]vnou \
funkci je t\[RHacek]eba m\[IAcute]t vyhodnocen\[EAcute] v\[SHacek]echny v\
\[YAcute]\[SHacek]e se nach\[AAcute]zej\[IAcute]c\[IAcute] bu\[NHacek]ky.\
\>", "Text",
 CellChangeTimes->{{3.511014586771618*^9, 3.5110146037432733`*^9}, {
  3.51223409038336*^9, 3.5122341171077533`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{"learningState", "=", 
     RowBox[{
      RowBox[{"NetPlot", "[", 
       RowBox[{"fitrecord", ",", "inData", ",", 
        RowBox[{"DataFormat", "\[Rule]", "DataMapArray"}], ",", 
        RowBox[{"Intervals", "\[Rule]", "1"}]}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2", ",", "All", ",", "1", ",", "1"}], "]"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"learningState", "[", 
      RowBox[{"[", "a", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "1", ",", " ", "\"\<Iteration\>\""}], "}"}], ",", 
       " ", "1", ",", " ", "31", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5110098948048143`*^9, 3.511009902979352*^9}, {
   3.511009966851963*^9, 3.5110100304160347`*^9}, {3.511010066883665*^9, 
   3.5110101295861273`*^9}, {3.5110102508710284`*^9, 3.511010314635626*^9}, {
   3.5110103667622447`*^9, 3.5110104492337174`*^9}, 3.511010590427147*^9, 
   3.5110106206969905`*^9, 3.511011377614107*^9, {3.5110116102906528`*^9, 
   3.5110116196103363`*^9}, 3.5110117559966555`*^9, {3.5110182534782305`*^9, 
   3.5110182713064947`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1, "Iteration"}, 1, 31, 1}}, Typeset`size$$ = {
    360., {120., 123.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$58656$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$58656$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Part[$CellContext`learningState, $CellContext`a$$], 
      "Specifications" :> {{{$CellContext`a$$, 1, "Iteration"}, 1, 31, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{409., {165., 170.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.5152321184688673`*^9, {3.5152322307266645`*^9, 3.515232263549122*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["S\[IAcute]\[THacek] inicializovan\[AAcute] metodou SOM", "Subsection",
 CellChangeTimes->{{3.5110169582362556`*^9, 3.5110169690066233`*^9}}],

Cell["\<\
Z n\[AAcute]sleduj\[IAcute]c\[IAcute]ho grafu je patrn\[EAcute], \[ZHacek]e s\
\[IAcute]\[THacek] zinicializovan\[AAcute] metodou SOM by poskytovala pom\
\[EHacek]rn\[EHacek] dobr\[EAcute] v\[YAcute]sledky bez nutnosti dal\[SHacek]\
\[IAcute]ho u\[CHacek]en\[IAcute]. U\[CHacek]en\[IAcute] upravuje pouze \
pozici n\[EHacek]kolika neuron\[URing].\
\>", "Text",
 CellChangeTimes->{
  3.511016979620971*^9, {3.5150933501933002`*^9, 3.5150933635920663`*^9}, {
   3.5150934012552204`*^9, 3.515093445328741*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetPlot", "[", 
  RowBox[{"fitrecord2", ",", "inData"}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAbaWXVVxYmL9hvcggqq7vPxzDT8Mw
Y5u/PczU/gPd7z/oSAaxwxCZv5VwA5AY3O8/uvD5D0Tamr/iIPrAoNvvPw/U
NNTOMpu/kxAlNxXr7z90tfCPgi6nv7ouSYhX7u8/Z2f8iKSgo782DJOqBIzv
P6QOX+6WgJ6/5b9xejJn8D/eYoFopHikvxuYp7zkXfA/zbBPyBXym79HVIBh
ivrvP1TzjSp95IS/2DHx72107z8sDd6WfwmlvyffzVSIa/A/h9KL5x3Cmb9J
/tmgTjnwP17qOsrhvZe/barT3Tmw7z87T3Hn60mcvw78DYz2cu8/KLadNdDd
lL98nMFT9MHvP5EEnRncmoC/Hg5SHRoS8D8uGx0piOCSv+vYqFTHBvA/yZQU
yf2Udb9ug7IiedvvPyr6KU74p5i/pqyfVvRK7z+cRLwSWKWSv/v0bs4zzu8/
fqHa/1rMkL+++QFdsE3vPybtVvKzV5q/TbEsTeUX8D91ToAUILedv9FC/Iai
9e8/Mu5qGcUCn78D+Kk1lgHwP1RJcaJsiaS/6kwp+pHw7z8awVwzTiClvzOO
TyQQEfA/YLxtiu05oL+++IwV5snvPxugfnmZFYm/jVijwhz37z99FvEJlqmS
vwrhG8Gl6+8/e0kSeeaJi7/kr7gaLLvvP95MDtw=
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAcOq8u+fXhD9LdZwLG32WPwMglqeF
KoM/A/3Rzbv0kj+9P8IKizaBPwIAGob0J5M/Phh++pZsfz/9QVMUtG+XP5Np
EJtiKXY/Dl8GrKKKlj9ocpudUAJzv1N3yI6K46E/PHP76c78gT9zhD0bpe+n
P7Czrn9RXaI/DB5G/LQerz9HZL3UjP6WP1YijRUs9ZI/vpQPt10goD/u6f9K
mU2YPzqn0NC1+aY/PMAGxHmdmD/dqFXETatwv/7TMC/U+Zo/sCpXjW0WaT+C
6Oqc9s+IPyJrL93V4ZA/q0oBqYC4gj/grlFyXaaZP3mTaDSEVHq/bpntqYDI
lj93LuMV5GiZP3ZQTBNIfZc/dwFHY5+ArT+ItRCUNWiAPxxN0OZryqI/sDGw
wnpZeL8J77fGMR6RP/WwbIy50o+/UHJpXeL1jz9MG9V0GbF3v9AZH5B+iGU/
aIcHUAebib+U7hgxdHeSP/pqxZY6qos/+5Ar+vIFhD+A8OYJkMZ1P65Ttxp5
04M/z/PJawDshr+glHgMuKqRP0K9dCW+okQ/AmYEYccGoz/uOrpbaK9xP3oc
AjorYaM/y7Sbf9Ijcz93acbVGzmlP41yTgR0Soo/Mu0ARL/6hj/hdq5a9slz
P9Y7F5I12po/EgyH/Q5UiT8w2GbIfM2LP+DC8TE=
      "]]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAo1PrrY1V2j9su4faa573P+EVH7aO
Yto/UzUg9A6d9z/ivru6zXLaPwlCok9fmvc/LRgLFZVt2j/5lk9qBZz3P0tx
TtKCddo/pjXRQ8+W9z921W7MT0TZP2+6llhYOvc/Qcce0POy2T/Qr5Fn7Sr3
P4/DB2S0ztk/wrEwbyBj9z9Ee633ACDZPyV3Ad7RH/g/KPBpUhs+2T9Olsjg
MBr4PzWOwpZJBNo/8xgH9mnf9z/TL3hi9HDbP8AjC/ZWhPc/pajN+DS52j/P
zeX1q2b3P4tr9zedgNg/UcoTqhVK9z/v7+s23jXZPzUXJN3kXfc/2GWtM+KW
2T+WBRewZDj3PyY/VIBxftk/Aj7dEJec9z/3gO0QJ/HaP2rdCdhvRvc/08A/
n5gV2z9qDERD3WH3P0X8B8q+ZNo/YTuF9n/X9z8TQeGMhzbaPxLib4Q6v/c/
YDKg/fjG2j98r84Z6JX3P9zkrF8Wtdo/1eZv9meW9z+Geygi+fHaP3DUx6+L
hvc/43dAQssN2j+8kgD+sG73P17XzBeIJNo/4qZTbiSx9z9n1+vX1WLaP4/d
ucyBrPc/V8j0RNk42j+7PUoIB7b3P5LgwJP0I9o/DVnXpjOf9z+STXvb6qDZ
P9+nvZPguvc/HiRmgsRV2T+AcA1uJ4v3PyLlCFk=
      "]]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAAeKx9F/q9z+mqsCW22/4P+U/AeLv
7/c/m+Qq4Zx++D95K34hHef3P3p3wlBGfvg/Zf56dl/v9z90rGWeLYX4Pw8t
9xXJ7/c/k+V6u9WD+D8A9t5jQLT3P0WdHMX5Gvg/mKKYPHlE+D+8ubvcWtL4
P2xqJACgD/g/P+e1ahxz+D85Fml+3x/4Pyy439qayvg/RW4JypKy9z92Vwlp
CtL3P4JSFzNJ2/c/E2F5h+wm+D+Yd7+x/DT4PzMR26ACtvg/cwHLYHpB+D+w
rscmqOf4PyXTj8NO/Pc/qhcn73yb+D8Z4n397wX4PxCTEfkcfvg/oYhNWRvR
9z85asx7vKL4P/DixqbAjfc/IlBsJHph+D9VRrOmy+X3P4JOUd9icPg/FFoW
SOox+D83w3uSYq34P56l63MKRPg/1mfBR46Z+D+NeY399BD4P8LhgHb2efg/
MG2cG5Lh9z8S1nosymz4P1EsdQIkGfg/bfVDwbvQ+D+JC6g2zxL4P8oqBwZX
l/g/eKY+tZXb9z+Wzy5mJ3b4P1LvEulWEvg/viJqqGCS+D9f+1VJtOL3PyNc
OaMvjPg/6SN5hkAa+D856LFZ9qr4P596uIFTNvg/psKfrPHR+D/2nxFkkAP4
P6Rtuihrlvg/q3lEAxX+9z+EoyCEnnL4P+wmB1A=
      "]]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAA27uzm5DO/z9eYdSdcS7wP4kApd1Z
x/8/A0Y6DCkz8D/ptGXHgMD/P5Bso5PTNPA/GLwnB67F/z9t0Qgh4z3wPyZO
AVVDyP8/HxutvP4r8D9MNpVeJ/P/P+xpdOO6FvA/dJG01KD7/z+jUuR3Zuzw
P3lztD32GwBA5gTk/pqd7z8VnYhTxej/PwoilaEI+u8/syrjEsbU/z970hSM
xbLvPwPmGoPMl/8/P48nIXLP7z8ptPA0w8n/P5mQ27xcH/A/U51xZgar/z8D
newm9lfwPzhVZ6+eov8/Ou9taqI78D9XSIAtauP/PysCNpv5p+8/of2T/r72
/z9NMBnbuQHwP9N9MgqRBQBAsEMO86SV7z+Ni+Sg7KL/P1Zt+s1lRvA/uJdk
rSm8/z/C0G/rvzzwPwCWNXp9zv8/ZSfg8eEl8D+9cxvFrMn/P1hyJnv0GfA/
Gjv8aBTb/z+tNPTJ6vXvP5CkIp2X6/8/wTHcAqAC8D87NtcIX63/P6r41htj
G/A/wfSnDkTN/z/WC4iaRVLwP1ZzWcex0P8/Fo2UNG438D9pBT/7NL3/P5fM
DSTGJvA/fRV8Rd/d/z8ty+WR2kHwP4S2V+Fr0f8/zT/+vmQh8D9QsIdqVdb/
P/E7MEDSKPA/66eQKtLB/z9mg5HeojTwPzpVCQc=
      "]]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAzdJBAVdg8D92sjyqxwkAQHFT4SuQ
W/A/r1dKbcgDAEAtLLVB1GDwP37Ao64sAgBAf6ebXmlb8D9D3FXZTwcAQLad
hx87WfA/K3kn0Q8KAEDkwquiEMHwP1Dh76J5m/8/kzyRiE+78D8R8BRaOS4A
QIAN1KW53u8/XjzCRv1EAEAjSY9p61vwP2gt+AVwKgBAj5SOGASz8D+1dnOK
NSUAQOn/P/RdPvA/8W/NWbwTAEBhEQpSfhTwP5aSHi/+4P8/eSedOVSX8D/9
Zg7Lwfj/Pxy3Jq75wvA/gGDVIyia/z85FNvFhq/wP+g/nDKfzv8/TpAXlZiJ
8D8RQ+bFniUAQIN3y1hedvA/wnAPwdE1AEBt38F1vH3wP71Px98LDQBACQ2i
R+ai8D+4FrNtkQcAQCIpgbh8MvA/hpPy7gHp/z/hpwCitrTwP/VZv/Xl9f8/
0Y5Qp+/F8D81zYJvoOH/PyDZQT3BdvA/drKFEQvb/z8dezHbhXHwPw4haJx7
5f8/axsNYyBb8D+Y+/HFOwgAQB1a3FctAfA/6pLOEiy0/z86F08QOwfwP5EU
gzN+2v8/ABIFC8Y88D+bJMtxwND/P5Kf2Zoua/A/N72CtRgEAEC9slPngmLw
P4PHp/mWBgBA1Fa/G8988D8PR+l0yfD/P1i57mE=
      "]]}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAAGuRNcAEhr8YwFUMsJmmvzAhiRtG
lZ6/gGqUvTvAa79YmIbMooelP9i7VEZTgKQ/oMFK2zialD9EQqTcv1Gvv2Qo
CeVzsLc/wDX680bWuD/w65zR+e6qPyD2NbP7D7Q/OC0RHnIbtb9AMRDy/+eb
PxyqGDLwmbY/tqODi2bBsL8MGjl0jKyxvxDPX1akN7U/oCEKEmrSjb/gkfcy
rC6WP+iHWiRZPLa/6IHuffgD8T9Y9HYFTrmqvwF+vNtDKvA/UNorJtOrl79Z
Z4r4EivwPwC+3Ax70nY/nyuMMV4l7z/Ah+8ekWKHv87XZBxNZ/E/AIdg+MOP
j7+E98Sw0CLtPwKF9z5UjbG/S08ShLtt7j/A48jetpmwP9yUbvAzxu4/MMeb
bCAAkD/PxITaQF/wPxAnzlLmO7G/qQRLnxAU7j9tx03/2H7YP7d0QNT2HPk/
BNBiJ8GQ2T8xg2xISbn3P7Syd5TOPtw/PgYvRUbj9z9Siq02pCHVP3CmZPc4
Dvk/dD4F605u3z8VBqoPHLj2P/p+CGwjANo/3nj6iJBI+D/rgrT0yj3ZPxAt
DtnyifY/wp+spli13T/n3woEbVP3P6SaX7sSY9U/ZTUsqUbf9j8mN4OGyuvb
P14zZfjXpPY/K8C+6iNv8T9I2SlsWOT+P/pirMSsie8/Omg7XlJQAEBStriX
msfwP+eCjlO3VwBAcBOtJ6mF8T8ZAJXBYSgAQOp/twvA6O0/UTScGVbY/j9U
8+2bM3rwPxh+EFmQdv8/xy8LpKJP8T8M2Mh4OND/P9/UxmUlZe0/AxjDjbUc
AEAYQp/CnOjvP+esNpxZiABAVvsXYtPc8D8sKxPutWoAQEusD62Tf/Y/rxAA
Sn1m9j+/m83K7qv4P7qonkr9Xfk/VrFF4EGo9z9m/KkJ3lD4P8IUBRz3FPg/
TVCgUr9K+D8f7ZYObV34PyFQNX68yvc/yWdW79Tv9z/sdeof6333P42WaJU/
Mvk/7mZdDnmS+T8UOvhjgl34PzitDZI8c/k/8grmjZ+H9z+LHEGeUs/4PzVZ
pWwmmvY/pW+2sEgk+T81TORZveb+P0S3Xio7kPE/mIvbUlUkAEDYqI4hzp7u
P1boyfSse/8/38dmPCj58D9VAGcCOagAQOQPPAIS4fA/swyRZ30U/z9G6ylg
zLfuP3aZR9Fdrf4/Gg7rKFov8D/1IeJX9FkAQLpmLHoRhfA/hh1IrwIYAEAc
Kc89vK/tP0tXkGKiy/8/KxRpSjXw8D8uA3KEThEAQGWXC0j0eO0/1tDeJg==

      "]]}, {}}, {{
     InsetBox["\<\"1\"\>", {-0.013446617669875085`, 0.9915981790450101}], 
     InsetBox["\<\"2\"\>", {0.012367360221906796`, 0.013575529924178736`}], 
     InsetBox["\<\"3\"\>", {0.3958598397662757, 1.4714731501508425`}], 
     InsetBox["\<\"4\"\>", {1.4995317580829617`, 1.5279832040052677`}], 
     InsetBox["\<\"5\"\>", {1.9848195707986587`, 1.012850636871201}], 
     InsetBox["\<\"6\"\>", {1.0304709514506856`, 1.9962858740659077`}], 
     InsetBox["7", {2198.9110744591626`, 2182.150339651579}], 
     InsetBox["8", {-3995.714109793292, -3964.2517271877814`}], 
     InsetBox["9", {5948.9492995689625`, 5995.967526501278}], 
     InsetBox["10", {-1981.892076997954, -1997.0972273728567`}]}, 
    {PointSize[0.012], PointBox[{-648873.4765894803, 649851.0179100335}], 
     PointBox[{-236700.19270087866`, 240836.68479207513`}], 
     PointBox[{-127390.81482144349`, 124372.57213633585`}], 
     PointBox[{-14267.41914975731, 12170.703591400827`}], 
     PointBox[{-10932.72720431017, 13222.607595753216`}], 
     PointBox[{-1945.8954246789388`, -50.857458424503726`}], 
     PointBox[{0.9503946324279248, 1.447018498947429}], 
     PointBox[{0.9904983771931548, 0.5497845815923398}], 
     PointBox[{0.9907220865918952, 0.5287502649405137}], 
     PointBox[{0.9954553337728954, 0.5669586281461378}], 
     PointBox[{1094.908803662594, 1097.1764400190168`}], 
     PointBox[{1128.7965953256614`, 1063.02773731637}], 
     PointBox[{2021.8302402410804`, -3988.372151084142}], 
     PointBox[{291109.24325251405`, -291016.5224395784}]}, 
    {Thickness[0.003], 
     LineBox[{{-236700.19270087866`, 240836.68479207513`}, {
      7887.7473738637345`, 339.0207079666552}}], 
     LineBox[{{291109.24325251405`, -291016.5224395784}, {
      295288.4908195373, -295197.32559103455`}}], 
     LineBox[{{-648873.4765894803, 649851.0179100335}, {-658833.6958431716, 
      659795.6813194104}}], 
     LineBox[{{-127390.81482144349`, 
      124372.57213633585`}, {-1021.6485935806995`, -4994.496510075656}}], 
     LineBox[{{-1945.8954246789388`, -50.857458424503726`}, {
      0.9907220865918952, 0.5287502649405137}, {0.9904983771931548, 
      0.5497845815923398}, {-14267.41914975731, 
      12170.703591400827`}, {-1945.8954246789388`, -50.857458424503726`}}], 
     LineBox[{{-1945.8954246789388`, -50.857458424503726`}, {
      2021.8302402410804`, -3988.372151084142}, {0.9907220865918952, 
      0.5287502649405137}, {-1945.8954246789388`, -50.857458424503726`}}], 
     LineBox[{{-127390.81482144349`, 
      124372.57213633585`}, {-14267.41914975731, 12170.703591400827`}, {
      0.9904983771931548, 0.5497845815923398}, {0.9954553337728954, 
      0.5669586281461378}, {0.9503946324279248, 
      1.447018498947429}, {-10932.72720431017, 
      13222.607595753216`}, {-236700.19270087866`, 
      240836.68479207513`}, {-648873.4765894803, 
      649851.0179100335}, {-127390.81482144349`, 124372.57213633585`}}], 
     LineBox[{{0.9503946324279248, 1.447018498947429}, {0.9954553337728954, 
      0.5669586281461378}, {1128.7965953256614`, 1063.02773731637}, {
      1094.908803662594, 1097.1764400190168`}, {0.9503946324279248, 
      1.447018498947429}}], 
     LineBox[{{0.9904983771931548, 0.5497845815923398}, {0.9907220865918952, 
      0.5287502649405137}, {2021.8302402410804`, -3988.372151084142}, {
      291109.24325251405`, -291016.5224395784}, {1128.7965953256614`, 
      1063.02773731637}, {0.9954553337728954, 0.5669586281461378}, {
      0.9904983771931548, 0.5497845815923398}}], 
     LineBox[{{0.9503946324279248, 1.447018498947429}, {1094.908803662594, 
      1097.1764400190168`}, {-10932.72720431017, 13222.607595753216`}, {
      0.9503946324279248, 1.447018498947429}}], 
     LineBox[{{-236700.19270087866`, 
      240836.68479207513`}, {-10932.72720431017, 13222.607595753216`}, {
      1094.908803662594, 1097.1764400190168`}, {1128.7965953256614`, 
      1063.02773731637}, {291109.24325251405`, -291016.5224395784}}], 
     LineBox[{{-127390.81482144349`, 
      124372.57213633585`}, {-648873.4765894803, 649851.0179100335}}], 
     LineBox[{{-648873.4765894803, 649851.0179100335}, {-236700.19270087866`, 
      240836.68479207513`}}], 
     LineBox[{{291109.24325251405`, -291016.5224395784}, {
      2021.8302402410804`, -3988.372151084142}, {-1945.8954246789388`, \
-50.857458424503726`}, {-14267.41914975731, 
      12170.703591400827`}, {-127390.81482144349`, 124372.57213633585`}}]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->False,
  AxesOrigin->{0, 0},
  Frame->True,
  PlotLabel->FormBox["\"Unsupervised Clustering\"", TraditionalForm],
  PlotRange->{{2.1392188901233937`, -0.14393724397380536`}, {
   2.122683173866898, -0.12155706440275593`}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5110169891216774`*^9, 3.5110170895004244`*^9, {3.511017160240907*^9, 
   3.5110172040609713`*^9}, 3.511017246701886*^9, {3.511017655712824*^9, 
   3.511017682869272*^9}, {3.5110177221477604`*^9, 3.5110177431359253`*^9}, 
   3.5110177783759003`*^9, {3.511018203554391*^9, 3.5110182263832903`*^9}, {
   3.5110182810227284`*^9, 3.511018323594634*^9}, 3.512234136586727*^9, {
   3.513448814494584*^9, 3.513448833734527*^9}, {3.5142591445889206`*^9, 
   3.5142591936510067`*^9}, {3.51509318340876*^9, 3.5150932434761963`*^9}, 
   3.5152321187652674`*^9, {3.5152322308826647`*^9, 3.515232263705122*^9}}]
}, Open  ]],

Cell["\<\
Zde si m\[URing]\[ZHacek]ete zobrazit pr\[URing]b\[EHacek]h u\[CHacek]en\
\[IAcute] po jednotliv\[YAcute]ch iterac\[IAcute]ch. Pro spr\[AAcute]vnou \
funkci je t\[RHacek]eba m\[IAcute]t vyhodnocen\[EAcute] v\[SHacek]echny v\
\[YAcute]\[SHacek]e se nach\[AAcute]zej\[IAcute]c\[IAcute] bu\[NHacek]ky.\
\>", "Text",
 CellChangeTimes->{
  3.5110170021148276`*^9, {3.51223412574485*^9, 3.5122341262214108`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{"learningState2", "=", 
     RowBox[{
      RowBox[{"NetPlot", "[", 
       RowBox[{"fitrecord2", ",", "inData", ",", 
        RowBox[{"DataFormat", "\[Rule]", "DataMapArray"}], ",", 
        RowBox[{"Intervals", "\[Rule]", "1"}]}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2", ",", "All", ",", "1", ",", "1"}], "]"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"learningState2", "[", 
      RowBox[{"[", "a", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "1", ",", " ", "\"\<Iteration\>\""}], "}"}], ",", 
       " ", "1", ",", " ", "31", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5110170126196613`*^9, 3.511017017420771*^9}, {
  3.5110171160252924`*^9, 3.5110171172709503`*^9}, {3.5110181740731473`*^9, 
  3.511018182056661*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1, "Iteration"}, 1, 31, 1}}, Typeset`size$$ = {
    360., {120., 123.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$66227$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$66227$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Part[$CellContext`learningState2, $CellContext`a$$], 
      "Specifications" :> {{{$CellContext`a$$, 1, "Iteration"}, 1, 31, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{409., {165., 170.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.5152321199508696`*^9, {3.5152322320682664`*^9, 3.5152322651247244`*^9}}]
}, Open  ]]
}, 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.\
\>", "Text",
 CellChangeTimes->{{3.418480638421875*^9, 3.41848078665625*^9}, 
   3.5109955224407554`*^9, {3.511006236387754*^9, 3.5110062366537876`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{812, 730},
WindowMargins->{{188, Automatic}, {Automatic, -39}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{594.9599999999999, 842.04}},
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, 617, 8, 42, "Subtitle"],
Cell[1187, 32, 342, 5, 25, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1554, 41, 144, 3, 75, "Section"],
Cell[1701, 46, 440, 8, 29, "Text"],
Cell[2144, 56, 181, 4, 41, "Input",
 InitializationCell->True],
Cell[2328, 62, 406, 7, 47, "Text"],
Cell[2737, 71, 213, 5, 41, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[2987, 81, 244, 3, 75, "Section"],
Cell[3234, 86, 605, 10, 47, "Text"],
Cell[3842, 98, 5369, 160, 342, "Input"],
Cell[9214, 260, 387, 6, 29, "Text"],
Cell[9604, 268, 206, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[9835, 275, 102, 1, 41, "Input"],
Cell[9940, 278, 7685, 171, 326, "Output"]
}, Open  ]],
Cell[17640, 452, 207, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[17872, 460, 333, 5, 41, "Input"],
Cell[18208, 467, 3781, 63, 252, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22038, 536, 245, 4, 75, "Section"],
Cell[22286, 542, 1100, 17, 83, "Text"],
Cell[CellGroupData[{
Cell[23411, 563, 205, 3, 36, "Subsection"],
Cell[23619, 568, 511, 8, 29, "Text"],
Cell[24133, 578, 154, 4, 41, "Input"],
Cell[24290, 584, 176, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[24491, 592, 1592, 26, 41, "Input"],
Cell[26086, 620, 1446, 31, 269, "Print"],
Cell[27535, 653, 522, 10, 56, "Message"]
}, Open  ]],
Cell[28072, 666, 447, 8, 47, "Text"],
Cell[28522, 676, 842, 13, 47, "Text"],
Cell[CellGroupData[{
Cell[29389, 693, 377, 8, 41, "Input"],
Cell[29769, 703, 9172, 153, 268, "Output"]
}, Open  ]],
Cell[38956, 859, 284, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[39265, 868, 224, 5, 41, "Input"],
Cell[39492, 875, 1596, 22, 40, "Output"]
}, Open  ]],
Cell[41103, 900, 411, 7, 29, "Text"],
Cell[41517, 909, 369, 7, 47, "Text"],
Cell[CellGroupData[{
Cell[41911, 920, 164, 3, 41, "Input"],
Cell[42078, 925, 1602, 22, 40, "Output"]
}, Open  ]],
Cell[43695, 950, 271, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[43991, 959, 261, 5, 41, "Input"],
Cell[44255, 966, 2217, 41, 60, "Output"]
}, Open  ]],
Cell[46487, 1010, 284, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[46796, 1019, 420, 8, 41, "Input"],
Cell[47219, 1029, 7483, 127, 268, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54751, 1162, 193, 2, 36, "Subsection"],
Cell[54947, 1166, 1135, 17, 83, "Text"],
Cell[CellGroupData[{
Cell[56107, 1187, 573, 11, 62, "Input"],
Cell[56683, 1200, 1469, 32, 269, "Print"]
}, Open  ]],
Cell[58167, 1235, 195, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[58387, 1243, 545, 11, 41, "Input"],
Cell[58935, 1256, 1451, 31, 263, "Print"]
}, Open  ]],
Cell[60401, 1290, 195, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[60621, 1298, 306, 5, 41, "Input"],
Cell[60930, 1305, 7926, 129, 268, "Output"]
}, Open  ]],
Cell[68871, 1437, 779, 12, 47, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[69699, 1455, 573, 7, 75, "Section"],
Cell[CellGroupData[{
Cell[70297, 1466, 158, 2, 36, "Subsection"],
Cell[70458, 1470, 655, 11, 47, "Text"],
Cell[CellGroupData[{
Cell[71138, 1485, 219, 4, 41, "Input"],
Cell[71360, 1491, 11710, 199, 268, "Output"]
}, Open  ]],
Cell[83085, 1693, 440, 7, 47, "Text"],
Cell[CellGroupData[{
Cell[83550, 1704, 1254, 28, 82, "Input"],
Cell[84807, 1734, 1614, 33, 362, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[86470, 1773, 146, 1, 36, "Subsection"],
Cell[86619, 1776, 517, 9, 47, "Text"],
Cell[CellGroupData[{
Cell[87161, 1789, 97, 2, 41, "Input"],
Cell[87261, 1793, 11630, 200, 268, "Output"]
}, Open  ]],
Cell[98906, 1996, 416, 7, 47, "Text"],
Cell[CellGroupData[{
Cell[99347, 2007, 951, 24, 82, "Input"],
Cell[100301, 2033, 1617, 33, 362, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[101979, 2073, 119, 1, 75, "Section"],
Cell[102101, 2076, 482, 8, 47, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)