12-hopfield.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[     39237,        940]
NotebookOptionsPosition[     37136,        868]
NotebookOutlinePosition[     37563,        884]
CellTagsIndexPosition[     37520,        881]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Kapitola 12 - Hopfieldova s\[IAcute]\[THacek] a um\
\[EHacek]l\[EAcute] vzory", "Title"]], "Subtitle",
 CellChangeTimes->{{3.403530443303066*^9, 3.403530492291925*^9}, {
   3.403531440607864*^9, 3.403531442893248*^9}, {3.403534319050615*^9, 
   3.403534324387336*^9}, {3.40756994634375*^9, 3.407569999734375*^9}, 
   3.40757029721875*^9, {3.4075703404375*^9, 3.407570354375*^9}, {
   3.409554360982306*^9, 3.409554382232306*^9}, {3.409554527607306*^9, 
   3.409554580279181*^9}, {3.513443465234314*^9, 3.51344346575438*^9}},
 FontFamily->"FreeSans"],

Cell[TextData[StyleBox["Demonstrace pou\[ZHacek]it\[IAcute] Hopfieldovy \
neuronov\[EAcute] s\[IAcute]t\[EHacek] k rozpozn\[AAcute]v\[AAcute]n\[IAcute] \
um\[EHacek]l\[YAcute]ch dat.", "Subtitle"]], "Subsubtitle",
 CellChangeTimes->{{3.40756997496875*^9, 3.40756997690625*^9}, {
  3.4226158229375*^9, 3.422615864375*^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] vstupn\[IAcute]ch vzor\[URing]", "Section",
 CellChangeTimes->{{3.403530554350391*^9, 3.403530568518535*^9}, {
  3.403534331951981*^9, 3.403534340330704*^9}, {3.4075700228125*^9, 
  3.4075700538125*^9}, {3.407570378140625*^9, 3.407570379828125*^9}, {
  3.409554660607306*^9, 3.409554665326056*^9}}],

Cell["\<\
Vytvo\[RHacek]\[IAcute]me si um\[EHacek]l\[EAcute] vzory - \
\[CHacek]\[IAcute]slice 1, 2 a 3.\
\>", "Text",
 CellChangeTimes->{{3.403534499737174*^9, 3.403534514743011*^9}, {
  3.407570032390625*^9, 3.407570034140625*^9}, {3.409554677107306*^9, 
  3.409554682201056*^9}, {3.409554751232306*^9, 3.409554781951056*^9}, {
  3.411112350921875*^9, 3.411112352796875*^9}, {3.5109918110624704`*^9, 
  3.5109918144343987`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.409554785466681*^9, {3.409554910841681*^9, 3.409554968857306*^9}, {
   3.409555635263556*^9, 3.409555727888556*^9}, {3.409555772482306*^9, 
   3.409555828576056*^9}, {3.409555959216681*^9, 3.409556005482306*^9}, {
   3.409556409951056*^9, 3.409556569669806*^9}, {3.409556643872931*^9, 
   3.409556756216681*^9}, {3.409673293453125*^9, 3.409673326265625*^9}, {
   3.409673372203125*^9, 3.40967340184375*^9}, 3.40967357621875*^9, {
   3.40967360784375*^9, 3.409673684953125*^9}, {3.409673756234375*^9, 
   3.4096738255625*^9}, {3.40967386271875*^9, 3.409674032984375*^9}, {
   3.409674104234375*^9, 3.409674108171875*^9}, {3.409674153328125*^9, 
   3.409674160734375*^9}, {3.41080357578125*^9, 3.41080357825*^9}, {
   3.4108037436875*^9, 3.410803762796875*^9}, {3.411112384421875*^9, 
   3.41111239390625*^9}, {3.4111132669375*^9, 3.411113270609375*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{"{", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ArrayPlot", "[", 
       RowBox[{
        RowBox[{"#", "+", "1"}], ",", 
        RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
        RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}], "&"}], ",", "x"}],
     "]"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{
  3.403534523137325*^9, {3.409554898232306*^9, 3.409554901201056*^9}, {
   3.40967405428125*^9, 3.409674054609375*^9}, {3.410803608953125*^9, 
   3.410803609203125*^9}, {3.5109918311290183`*^9, 3.5109918336823425`*^9}, {
   3.5109918829560995`*^9, 3.510991885526926*^9}, {3.51099218362778*^9, 
   3.510992185777553*^9}, {3.510992251699424*^9, 3.510992326654442*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[
      RasterBox[{{2, 2, 2, 0, 0, 2, 2, 2}, {2, 2, 2, 0, 0, 2, 2, 2}, {2, 2, 2,
        0, 0, 2, 2, 2}, {2, 2, 2, 0, 0, 2, 2, 2}, {2, 2, 2, 0, 0, 2, 2, 2}, {
       2, 2, 2, 0, 0, 2, 2, 2}, {2, 2, 2, 0, 0, 2, 2, 2}, {2, 2, 2, 0, 0, 2, 
       2, 2}}, {{0, 0}, {8, 8}}, {0, 2}],
      DisplayFunction->Identity,
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}}], {193.5, -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
     GraphicsBox[
      RasterBox[{{0, 0, 0, 0, 0, 0, 2, 2}, {0, 0, 2, 2, 2, 2, 2, 2}, {0, 0, 2,
        2, 2, 2, 2, 2}, {0, 0, 0, 0, 0, 0, 2, 2}, {0, 0, 0, 0, 0, 0, 2, 2}, {
       2, 2, 2, 2, 0, 0, 2, 2}, {2, 2, 2, 2, 0, 0, 2, 2}, {0, 0, 0, 0, 0, 0, 
       2, 2}}, {{0, 0}, {8, 8}}, {0, 2}],
      DisplayFunction->Identity,
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}}], {580.5, -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
     GraphicsBox[
      RasterBox[{{2, 2, 0, 0, 0, 0, 2, 2}, {2, 2, 2, 2, 2, 2, 0, 2}, {2, 2, 2,
        2, 2, 2, 0, 2}, {2, 2, 2, 2, 2, 0, 2, 2}, {2, 2, 2, 0, 0, 2, 2, 2}, {
       2, 2, 2, 2, 2, 0, 2, 2}, {2, 2, 2, 2, 2, 2, 0, 2}, {2, 2, 0, 0, 0, 0, 
       2, 2}}, {{0, 0}, {8, 8}}, {0, 2}],
      DisplayFunction->Identity,
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}}], {967.5, -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}]}, {}},
  ContentSelectable->True,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.403554231979002*^9, 3.403586893200923*^9, 3.407570170421875*^9, 
   3.409554822294806*^9, {3.409554901951056*^9, 3.409554972419806*^9}, {
   3.409555692669806*^9, 3.409555731138556*^9}, {3.409555776372931*^9, 
   3.409555799779181*^9}, 3.409555833638556*^9, {3.409556557013556*^9, 
   3.409556572966681*^9}, 3.409556759326056*^9, 3.40967405584375*^9, {
   3.410803599578125*^9, 3.41080360959375*^9}, 3.4108037665625*^9, 
   3.410806019625*^9, 3.410806516390625*^9, 3.41080658165625*^9, 
   3.410806699421875*^9, 3.411112428265625*^9, 3.411113591734375*^9, 
   3.411729313448975*^9, {3.412437478921875*^9, 3.412439952453125*^9}, 
   3.412499068170964*^9, 3.42261088809375*^9, 3.422611064140625*^9, 
   3.422615655453125*^9, 3.422615738453125*^9, {3.510991825009241*^9, 
   3.5109918519026566`*^9}, 3.510991886762083*^9, 3.510992186721673*^9, 
   3.510992253660673*^9, 3.51099228662986*^9, {3.5109923278845987`*^9, 
   3.5109923566017447`*^9}, 3.5109931272301025`*^9, 3.5134445987037463`*^9, {
   3.5134447345304947`*^9, 3.5134449174387207`*^9}, {3.51344576517737*^9, 
   3.5134457839162493`*^9}}]
}, Open  ]],

Cell["\<\
P\[RHacek]ed inicializac\[IAcute] Hopfieldovy s\[IAcute]t\[EHacek] je pot\
\[RHacek]eba p\[RHacek]ev\[EAcute]st matice na vektory.\
\>", "Text",
 CellChangeTimes->{{3.409557427294806*^9, 3.409557427779181*^9}, {
  3.409557559357306*^9, 3.409557559997931*^9}, {3.409557628466681*^9, 
  3.409557739076056*^9}, {3.409557769685431*^9, 3.409557771122931*^9}, {
  3.409558277482306*^9, 3.409558277560431*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"Flatten", ",", "x", ",", 
     RowBox[{"{", "1", "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.409557764201056*^9, 3.409557809701056*^9}, {
  3.409558367529181*^9, 3.409558396607306*^9}, {3.409558804232306*^9, 
  3.409558827982306*^9}, {3.409559233904181*^9, 3.409559311451056*^9}, {
  3.409559438607306*^9, 3.409559439232306*^9}, {3.4108038718125*^9, 
  3.410803917734375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell["\<\
Inicializace s\[IAcute]t\[EHacek] - s\[IAcute]\[THacek] bude m\[IAcute]t 64 \
neuron\[URing] (vstupy velikosti 8 x 8 = 64). Vytvo\[RHacek]enou s\[IAcute]\
\[THacek] si ulo\[ZHacek]\[IAcute]me do prom\[EHacek]nn\[EAcute] \"net\".\
\>", "Text",
 CellChangeTimes->{{3.403533524905281*^9, 3.403533627638674*^9}, {
  3.403534634400701*^9, 3.403534635901927*^9}, {3.407570200671875*^9, 
  3.4075702574375*^9}, {3.40757068690625*^9, 3.40757073609375*^9}, {
  3.40757152503125*^9, 3.407571527015625*^9}, {3.409559593904181*^9, 
  3.409559625185431*^9}, {3.409559663904181*^9, 3.409559701638556*^9}, {
  3.409559850607306*^9, 3.409559859107306*^9}, {3.5109931550331326`*^9, 
  3.510993159794237*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"net", "=", 
  RowBox[{"HopfieldFit", "[", "y", "]"}]}]], "Input",
 CellChangeTimes->{{3.403534626858601*^9, 3.403534639860485*^9}, {
  3.403534681396292*^9, 3.403534686998408*^9}, {3.409557942919806*^9, 
  3.409557959154181*^9}, {3.409558285466681*^9, 3.409558295154181*^9}, {
  3.409558404826056*^9, 3.409558405372931*^9}, {3.409558500122931*^9, 
  3.409558501326056*^9}, {3.409558625638556*^9, 3.409558626294806*^9}, {
  3.409558846482306*^9, 3.409558847201056*^9}, {3.409558909357306*^9, 
  3.409558909732306*^9}, {3.409558989935431*^9, 3.409558990888556*^9}, {
  3.409559206232306*^9, 3.409559212013556*^9}, {3.409559243372931*^9, 
  3.409559243435431*^9}, {3.409559536263556*^9, 3.409559536747931*^9}, {
  3.409559569810431*^9, 3.409559571654181*^9}, {3.409559726076056*^9, 
  3.409559728591681*^9}, {3.409674067265625*^9, 3.40967406740625*^9}, {
  3.409674168609375*^9, 3.40967416921875*^9}, {3.410803781625*^9, 
  3.41080378178125*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[
   RowBox[{"Hopfield", "[", 
    RowBox[{"W", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NetType", " ", "\[Rule]", " ", "Discrete"}], ",", " ", 
       RowBox[{"CreationDate", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
         "2011", ",", " ", "5", ",", " ", "3", ",", " ", "23", ",", " ", "9", 
          ",", " ", "43.9777571`9.395807948107583"}], "}"}]}]}], "}"}]}], 
    "]"}],
   Null,
   Editable->False],
  DisplayForm]], "Output",
 CellChangeTimes->{
  3.409559212794806*^9, {3.409559244154181*^9, 3.409559315529181*^9}, 
   3.409559451966681*^9, 3.409559537685431*^9, 3.409559572263556*^9, 
   3.409559729341681*^9, {3.409674067953125*^9, 3.40967408459375*^9}, {
   3.40967411615625*^9, 3.409674118453125*^9}, 3.409674169953125*^9, {
   3.410803786078125*^9, 3.410803792046875*^9}, 3.4108039551875*^9, 
   3.4108060196875*^9, 3.410806516453125*^9, 3.410806589453125*^9, 
   3.410806703234375*^9, 3.411112482546875*^9, 3.4111135918125*^9, {
   3.41243748159375*^9, 3.412439952515625*^9}, 3.412499069154603*^9, 
   3.422610888140625*^9, 3.422611064203125*^9, 3.4226156555*^9, 
   3.4226157385*^9, {3.510991825061748*^9, 3.5109918519561634`*^9}, 
   3.510992356667753*^9, 3.51099312728961*^9, 3.5134445988522654`*^9, 
   3.5134446996065598`*^9, {3.513444734592502*^9, 3.5134449175027285`*^9}, {
   3.5134457652398777`*^9, 3.5134457839797573`*^9}}]
}, Open  ]],

Cell["\<\
Vygenerujeme si za\[SHacek]um\[EHacek]n\[EAcute] testovac\[IAcute] vzory.\
\>", "Text",
 CellChangeTimes->{{3.403534692745426*^9, 3.403534708980519*^9}, {
   3.407570778421875*^9, 3.407570814109375*^9}, {3.409563106622931*^9, 
   3.409563194013556*^9}, {3.409579061091681*^9, 3.409579069029181*^9}, 
   3.4108039649375*^9, 3.4124399261875*^9, {3.5109926358912106`*^9, 
   3.5109926683153276`*^9}, {3.510993173190939*^9, 3.5109931905556436`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sum", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"RandomReal", "[", "]"}], "<", "0.85"}], ",", "1", ",", 
      RowBox[{"-", "1"}]}], "]"}], ",", 
    RowBox[{"{", "3", "}"}], ",", 
    RowBox[{"{", "64", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.403534667543999*^9, 3.403534671047914*^9}, {
   3.409563203279181*^9, 3.409563210497931*^9}, {3.409563336372931*^9, 
   3.409563366810431*^9}, 3.409563443591681*^9, {3.409563482622931*^9, 
   3.409563517107306*^9}, {3.409563549076056*^9, 3.409563573419806*^9}, {
   3.409563767466681*^9, 3.409563825247931*^9}, {3.409563902919806*^9, 
   3.409563921669806*^9}, {3.409563979669806*^9, 3.409563995685431*^9}, {
   3.409564073935431*^9, 3.409564098294806*^9}, {3.409564163951056*^9, 
   3.409564207810431*^9}, {3.40967418103125*^9, 3.40967418196875*^9}, {
   3.41080379740625*^9, 3.410803797828125*^9}, {3.410803980078125*^9, 
   3.41080399071875*^9}, {3.410804029140625*^9, 3.410804058890625*^9}, {
   3.410804109265625*^9, 3.410804141453125*^9}, {3.410804213390625*^9, 
   3.410804215265625*^9}, {3.410804269625*^9, 3.410804275421875*^9}, {
   3.41080431353125*^9, 3.41080436171875*^9}, {3.41080473190625*^9, 
   3.410804744453125*^9}, {3.41080479515625*^9, 3.41080483490625*^9}, {
   3.41080486521875*^9, 3.410804877953125*^9}, {3.41080496290625*^9, 
   3.41080496325*^9}, {3.41080503525*^9, 3.410805090625*^9}, {
   3.410805190171875*^9, 3.4108052484375*^9}, {3.410805837109375*^9, 
   3.410805839015625*^9}, {3.41080591275*^9, 3.410805955859375*^9}, {
   3.41080607446875*^9, 3.410806104140625*^9}, {3.410806156546875*^9, 
   3.410806195859375*^9}, {3.41080626325*^9, 3.410806272265625*^9}, {
   3.410806305453125*^9, 3.41080630615625*^9}, {3.4108068223125*^9, 
   3.410806862046875*^9}, {3.41080719571875*^9, 3.410807196265625*^9}, {
   3.41111253121875*^9, 3.41111254971875*^9}, {3.41111329825*^9, 
   3.411113309546875*^9}, {3.4124398448125*^9, 3.412439982546875*^9}, {
   3.412499236183549*^9, 3.412499237569321*^9}, {3.513444844582469*^9, 
   3.513444844964018*^9}, {3.513444890674322*^9, 3.5134449162000637`*^9}, {
   3.5134457609248295`*^9, 3.5134457636476755`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", 
     RowBox[{"-", "1"}], ",", "1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4124399525625*^9, 3.412499069348564*^9, 3.412499238172754*^9, 
   3.422610888171875*^9, {3.422611051953125*^9, 3.42261108215625*^9}, 
   3.422615655515625*^9, 3.42261573853125*^9, {3.5109918250977526`*^9, 
   3.510991851993168*^9}, 3.5109923567032576`*^9, 3.5109926059614096`*^9, 
   3.510993127324114*^9, 3.5134445989157734`*^9, 3.5134447027109537`*^9, {
   3.5134447346335073`*^9, 3.5134449175477343`*^9}, {3.5134457652793827`*^9, 
   3.5134457840202627`*^9}}]
}, Open  ]],

Cell["\<\
Takto vypadaj\[IAcute] vygenerovan\[EAcute] za\[SHacek]um\[EHacek]n\[EAcute] \
vzory.\
\>", "Text",
 CellChangeTimes->{{3.403533844567185*^9, 3.403533904635737*^9}, {
   3.407570867484375*^9, 3.407570914859375*^9}, {3.409578441513556*^9, 
   3.409578479185431*^9}, {3.409578510154181*^9, 3.409578664685431*^9}, {
   3.409579044576056*^9, 3.409579056857306*^9}, 3.412439999328125*^9, {
   3.422611096640625*^9, 3.422611121015625*^9}, {3.42261120921875*^9, 
   3.422611210578125*^9}, {3.5109932078028336`*^9, 3.510993240494985*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sumMap", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Partition", "[", 
       RowBox[{"#", ",", "8"}], "]"}], "&"}], ",", 
     RowBox[{"sum", "*", "y"}], ",", "1"}], "]"}]}], ";"}], "\n", 
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{"{", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ArrayPlot", "[", 
       RowBox[{
        RowBox[{"#", "+", "1"}], ",", 
        RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
        RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
     "sumMap"}], "]"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQnf1+fpRp5EvHO0k7okF0qoZjNoi2U8gD0+5CPDUg
muvGVTDtfL2gCUTve6HWDKInX5dYCKJVfsskGgPpw0/YjHdFv3RkWfgeTPO+
fy9plQ6k83dJg2gGhnTXGZlAuiEtCkwzeMVD6JpEiHjBYgjdB6VXHYTQ66H0
hIcQ9VqPILT9dwjN/AtCV/2HqJNhmAnmR0qD6YbNshA6WwsiXgKlp8ToZYHE
z0Bpr7VgmqECSh+q3JYDEs+rAdEyIheq12u8cgyLUqwB0QZ8kbtANIPHMjCd
JmF+CURH/Y24BqIBEr6Z7g==
  "]],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[
      RasterBox[{{2, 2, 0, 0, 0, 2, 2, 2}, {2, 2, 2, 2, 0, 2, 2, 2}, {0, 2, 2,
        0, 0, 2, 2, 2}, {2, 0, 2, 0, 0, 2, 2, 2}, {2, 2, 2, 0, 0, 2, 2, 2}, {
       2, 2, 2, 0, 0, 2, 2, 0}, {2, 2, 2, 0, 0, 2, 2, 2}, {2, 2, 2, 0, 0, 0, 
       2, 2}}, {{0, 0}, {8, 8}}, {0, 2}],
      DisplayFunction->Identity,
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}}], {193.5, -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
     GraphicsBox[
      RasterBox[{{0, 0, 0, 0, 0, 0, 2, 0}, {2, 0, 2, 2, 2, 2, 2, 2}, {0, 0, 2,
        2, 2, 2, 2, 2}, {0, 2, 0, 0, 0, 0, 2, 0}, {0, 0, 0, 0, 2, 0, 0, 0}, {
       2, 2, 2, 2, 0, 0, 0, 2}, {2, 2, 2, 2, 0, 0, 2, 2}, {0, 0, 0, 2, 0, 0, 
       2, 0}}, {{0, 0}, {8, 8}}, {0, 2}],
      DisplayFunction->Identity,
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}}], {580.5, -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
     GraphicsBox[
      RasterBox[{{0, 2, 0, 0, 0, 0, 2, 2}, {2, 0, 2, 2, 2, 2, 0, 0}, {2, 2, 0,
        0, 0, 0, 0, 2}, {2, 2, 2, 2, 2, 0, 2, 2}, {2, 2, 2, 0, 0, 2, 2, 2}, {
       2, 2, 2, 2, 2, 0, 2, 2}, {2, 2, 2, 2, 2, 2, 0, 2}, {2, 2, 2, 0, 0, 2, 
       2, 2}}, {{0, 0}, {8, 8}}, {0, 2}],
      DisplayFunction->Identity,
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}}], {967.5, -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}]}, {}},
  ContentSelectable->True,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.41080546165625*^9, 3.41080551684375*^9}, {
   3.41080601978125*^9, 3.410806048625*^9}, {3.41080628628125*^9, 
   3.410806314453125*^9}, 3.410806393765625*^9, 3.410806516515625*^9, 
   3.41080654746875*^9, 3.41080660309375*^9, {3.410806709171875*^9, 
   3.410806785734375*^9}, {3.410806828765625*^9, 3.4108068658125*^9}, {
   3.410807004703125*^9, 3.410807022046875*^9}, {3.410807124453125*^9, 
   3.410807130625*^9}, {3.41080719109375*^9, 3.41080720040625*^9}, 
   3.410807281*^9, {3.411112680078125*^9, 3.41111269746875*^9}, {
   3.411112861828125*^9, 3.411112883421875*^9}, 3.41111359190625*^9, {
   3.41243748215625*^9, 3.412440036015625*^9}, 3.412499069492437*^9, 
   3.412499241141375*^9, {3.42261088346875*^9, 3.42261089659375*^9}, {
   3.42261105325*^9, 3.422611083046875*^9}, {3.42261561028125*^9, 
   3.422615655578125*^9}, 3.42261573859375*^9, {3.510991825179263*^9, 
   3.510991852066177*^9}, 3.510992356777767*^9, {3.510992537940772*^9, 
   3.5109925641365986`*^9}, {3.510992601120795*^9, 3.510992608494231*^9}, 
   3.5109931273986235`*^9, 3.5134445989967833`*^9, {3.5134447053947945`*^9, 
   3.513444917618744*^9}, {3.513445765351892*^9, 3.513445784093772*^9}}]
}, Open  ]],

Cell["\<\
Nyn\[IAcute] pou\[ZHacek]ijeme vygenerovan\[AAcute] data na \
natr\[EAcute]novanou s\[IAcute]\[THacek] a zobraz\[IAcute]me si jej\[IAcute] \
odpov\[EHacek]\[DHacek].\
\>", "Text",
 CellChangeTimes->{{3.422611170484375*^9, 3.422611186609375*^9}, {
  3.422611220875*^9, 3.422611232125*^9}, {3.42261576584375*^9, 
  3.4226157811875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"net", "[", 
   RowBox[{"Map", "[", 
    RowBox[{"Flatten", ",", "sumMap"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{"{", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ArrayPlot", "[", 
       RowBox[{
        RowBox[{"#", "+", "1"}], ",", 
        RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
        RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Partition", "[", 
         RowBox[{"#", ",", "8"}], "]"}], "&"}], ",", "%", ",", "1"}], "]"}]}],
     "]"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.412499202410727*^9, 3.412499224618523*^9}, {
   3.422611166671875*^9, 3.422611167828125*^9}, 3.422615754671875*^9, {
   3.5109918441686745`*^9, 3.510991846245438*^9}, {3.510992345451829*^9, 
   3.5109923498643894`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmViYGDggGIocMBBowNc6kb1D1H9AG3ZDbw=
       "], {{0, 0}, {8, 8}}, {
       0, 2.}],
      DisplayFunction->Identity,
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}}], {193.5, -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmViYGDggGIygQMaTUieEE1t/YQAtfUTommtn1QA1w8AOZ0JvA==

       "], {{0, 0}, {8, 8}}, {0, 2.}],
      DisplayFunction->Identity,
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}}], {580.5, -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmViYGDggGIocECjCQF09aTSlJpDrn5S9aEDUu2j1H5yzSEE4OoB
yhkN/A==
       "], {{0, 0}, {8, 8}}, {0, 2}],
      DisplayFunction->Identity,
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}}], {967.5, -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}]}, {}},
  ContentSelectable->True,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.412499225118484*^9, 3.412499251123589*^9}, {
   3.42261088834375*^9, 3.422610903046875*^9}, 3.422611064421875*^9, 
   3.4226111375625*^9, 3.422615655625*^9, {3.422615738625*^9, 
   3.422615756265625*^9}, {3.510991825337283*^9, 3.5109918521606894`*^9}, {
   3.5109923507440014`*^9, 3.5109923568627777`*^9}, {3.5109926945436583`*^9, 
   3.5109926965979185`*^9}, 3.5109931274776335`*^9, 3.5134445993733315`*^9, {
   3.5134447084631844`*^9, 3.513444917718256*^9}, {3.5134457654424033`*^9, 
   3.513445784186784*^9}}]
}, Open  ]],

Cell["\<\
M\[URing]\[ZHacek]e se objevit inverzn\[IAcute] obraz, to je d\[AAcute]no t\
\[IAcute]m, \[ZHacek]e jeho vektor tak\[EAcute] tvo\[RHacek]\[IAcute] minim\
\[AAcute]ln\[IAcute] energetickou funkci.\
\>", "Text",
 CellChangeTimes->{3.5109933864645205`*^9}],

Cell["\<\
Generov\[AAcute]n\[IAcute] za\[SHacek]umn\[EHacek]n\[YAcute]ch vzor\[URing] m\
\[URing]\[ZHacek]ete vyhodnotit n\[EHacek]kolikr\[AAcute]t a pod\[IAcute]vat \
se jak s\[IAcute]\[THacek] reaguje na r\[URing]zn\[EHacek] za\[SHacek]umn\
\[EHacek]n\[EAcute] vzory. \
\>", "Text",
 CellChangeTimes->{
  3.5109932559654493`*^9, {3.5109933028269005`*^9, 3.5109933720591917`*^9}}],

Cell["\<\
Funkc\[IAcute] NetPlot lze zobrazit pokles energetick\[EAcute] funkce a jej\
\[IAcute] trajektorii.\
\>", "Text",
 CellChangeTimes->{{3.403534813073953*^9, 3.403534836591364*^9}, {
  3.407570920390625*^9, 3.407570943140625*^9}, {3.409578794138556*^9, 
  3.409578794888556*^9}, {3.409578845154181*^9, 3.409578912029181*^9}, {
  3.412439825203125*^9, 3.41244009409375*^9}, {3.422615795203125*^9, 
  3.4226158024375*^9}, {3.5109933824525113`*^9, 3.5109933913296385`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetPlot", "[", 
  RowBox[{"net", ",", "sum", ",", 
   RowBox[{"DataFormat", "\[Rule]", "Energy"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40353479131138*^9, 3.403534795268151*^9}, 
   3.409578926154181*^9, {3.4108038301875*^9, 3.410803835203125*^9}, {
   3.41080637509375*^9, 3.410806375453125*^9}, {3.4108066518125*^9, 
   3.410806657859375*^9}, {3.410807205578125*^9, 3.41080720571875*^9}, {
   3.411112896421875*^9, 3.411112897640625*^9}, {3.41111299921875*^9, 
   3.411113000703125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[
      {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQjQICzA9AGB/swZSCNZTP4AAmBWygfA4IPwHGF4Dw
PRygfBGoekcoXwLCz4DxZSB8A2coXwHC73CF8pUg/AluUL4KhK/hCeWrQfgb
YHwNCJ/DG8rXgvAv+EL5OhB+SgCUrwfhVwRC+QYQvksQlG8I4b8IhvKN4HwA
xpskYA==
        "]]},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      PlotLabel->FormBox["\"Vector 1\"", TraditionalForm],
      PlotRangeClipping->True], {193.5, -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[
      {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQjQIUdA5AGB/swdQCAyifwQFMTjCG8jkg/AcwvgBU
3gTKF4HwFSygfAmoPIwvA9VvCeUrQPgCtlC+EoQf4ADlq0D4Hk5QvhqEX+AC
5WtA+CfcoHwtqH3uUL4OVN4TyteD8Dd4QfkGUHlvKN8Qqt8PyjeC8F/4Q/nG
EH5FIJRvAuG7BEH5plD1wVC+GZwPABeSL2g=
        "]]},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      PlotLabel->FormBox["\"Vector 2\"", TraditionalForm],
      PlotRangeClipping->True], {580.5, -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[
      {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQjQIWGByAMD7Yg6kJxlA+gwOYfGAG5XNA+G9gfAEI
f40VlC8C4Z+xg/IlIPwceyhfBsJfAOMrQPgeDlC+EoQ/AcZXgfA1HKF8NQj/
A4yvAeFnOEP5WhD+BhhfB8LvcIHy9SB8ATco3wCqH8Y3hPADPKF8I6i8D5Rv
DOEX+EL5JhB+SgCUbwp1bxCUbwbhs4RA+eZwPgBH+C82
        "]]},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      PlotLabel->FormBox["\"Vector 3\"", TraditionalForm],
      PlotRangeClipping->True], {967.5, -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}},
  ContentSelectable->True,
  ImageSize->Large,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.41243764303125*^9, 3.41244005240625*^9}, 
   3.412499069977006*^9, 3.42261088846875*^9, 3.422611064546875*^9, 
   3.42261565578125*^9, 3.422615738796875*^9, {3.5109918255238066`*^9, 
   3.510991852343212*^9}, 3.5109923570348*^9, 3.5109931276421547`*^9, 
   3.513444599589859*^9, {3.5134447114595647`*^9, 3.513444917865275*^9}, {
   3.5134457656319275`*^9, 3.5134457843673067`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell["\<\
Tento text je sou\[CHacek]\[AAcute]st\[IAcute] bakal\[AAcute]\[RHacek]sk\
\[EAcute] pr\[AAcute]ce Adama \[CapitalCHacek]in\[CHacek]ury \
\[OpenCurlyDoubleQuote]Demonstra\[CHacek]n\[IAcute] aplikace pro podporu \
kurzu neuronov\[YAcute]ch s\[IAcute]t\[IAcute]\[CloseCurlyDoubleQuote] na FEL \
\[CapitalCHacek]VUT 2011. Vznikl \[UAcute]pravou textu Petra \
Chlumsk\[EAcute]ho.\
\>", "Text",
 CellChangeTimes->{{3.418480638421875*^9, 3.41848078665625*^9}, 
   3.510992737786149*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{828, 712},
WindowMargins->{{Automatic, 16}, {Automatic, 5}},
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, 573, 8, 42, "Subtitle"],
Cell[1143, 32, 321, 4, 25, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1489, 40, 144, 3, 75, "Section"],
Cell[1636, 45, 440, 8, 29, "Text"],
Cell[2079, 55, 181, 4, 41, "Input",
 InitializationCell->True],
Cell[2263, 61, 406, 7, 47, "Text"],
Cell[2672, 70, 213, 5, 41, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[2922, 80, 330, 4, 75, "Section"],
Cell[3255, 86, 430, 8, 29, "Text"],
Cell[3688, 96, 7375, 200, 202, "Input"],
Cell[11066, 298, 222, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[11313, 305, 767, 17, 41, "Input"],
Cell[12083, 324, 2740, 50, 149, "Output"]
}, Open  ]],
Cell[14838, 377, 413, 7, 29, "Text"],
Cell[15254, 386, 471, 10, 41, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15762, 401, 244, 4, 75, "Section"],
Cell[16009, 407, 701, 11, 29, "Text"],
Cell[CellGroupData[{
Cell[16735, 422, 967, 15, 41, "Input"],
Cell[17705, 439, 1420, 30, 40, "Output"]
}, Open  ]],
Cell[19140, 472, 455, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[19620, 483, 2222, 37, 41, "Input"],
Cell[21845, 522, 3227, 62, 136, "Output"]
}, Open  ]],
Cell[25087, 587, 540, 9, 29, "Text"],
Cell[CellGroupData[{
Cell[25652, 600, 1000, 27, 62, "Input"],
Cell[26655, 629, 2817, 50, 149, "Output"]
}, Open  ]],
Cell[29487, 682, 344, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[29856, 693, 934, 25, 102, "Input"],
Cell[30793, 720, 1709, 38, 149, "Output"]
}, Open  ]],
Cell[32517, 761, 263, 5, 29, "Text"],
Cell[32783, 768, 381, 7, 29, "Text"],
Cell[33167, 777, 478, 8, 29, "Text"],
Cell[CellGroupData[{
Cell[33670, 789, 517, 9, 41, "Input"],
Cell[34190, 800, 2258, 46, 150, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36497, 852, 119, 1, 75, "Section"],
Cell[36619, 855, 489, 9, 47, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)