04-feedforward-sin.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     45940,       1023]
NotebookOptionsPosition[     43051,        923]
NotebookOutlinePosition[     43686,        946]
CellTagsIndexPosition[     43643,        943]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Kapitola 4 - Dop\[RHacek]edn\[IAcute] s\[IAcute]\
\[THacek] a um\[EHacek]l\[AAcute] data Sin(x)", "Title"]], "Subtitle",
 CellChangeTimes->{{3.403530443303066*^9, 3.403530492291925*^9}, {
   3.403531440607864*^9, 3.403531442893248*^9}, {3.403534319050615*^9, 
   3.403534324387336*^9}, {3.40756994634375*^9, 3.407569999734375*^9}, 
   3.40757029721875*^9, {3.4075703404375*^9, 3.407570354375*^9}, {
   3.420878169515625*^9, 3.420878170984375*^9}, {3.513410459681141*^9, 
   3.5134104607417755`*^9}}],

Cell[TextData[StyleBox["Demonstrace pou\[ZHacek]it\[IAcute] dop\[RHacek]edn\
\[EAcute] neuronov\[EAcute] s\[IAcute]t\[EHacek] na um\[EHacek]l\[YAcute]ch \
datech - aproximace funkce sinus.", "Subtitle"]], "Subsubtitle",
 CellChangeTimes->{{3.40756997496875*^9, 3.40756997690625*^9}, 
   3.417794655546875*^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.403534331951981*^9, 3.403534340330704*^9}, {3.4075700228125*^9, 
  3.4075700538125*^9}, {3.407570378140625*^9, 3.407570379828125*^9}}],

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

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

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

Cell[CellGroupData[{

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

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

Cell[CellGroupData[{

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

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

Cell[CellGroupData[{

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

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQjQ70d01nFte6ar/yfIDHg+NX7CH8p/bKLpbZC5c/
tnebntyqtP+9/RPbdVGCp15B5b/aS+jd2xLM+t5+94raI3NKftmvclqqyfrk
PVT9f3tObsG7zH5v7V8eUlG+0sLkIGD3/B5P93OoflaHD9Vved+U3rMv3cj1
JPI8u8OpCN36fMGjUPO4HA5C+PsZF3xYcl+S1+EtRP1+iPn8DjwQ8/a7ub/e
ZGQk6MAOsW8/xD4hB6h79vfYxU0uvS7sIAlx736I/aIOzyD+2X/J9GLxjhox
B1WIf/dD3CPusA4SHvsldF1CfitKOrDHiBirLdu4BwCbRYvl
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 6.283185307179586}, {-0.9965844930066698, 
   0.9965844930066698}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.422605058546875*^9, 3.51508965119973*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell["\<\
Inicializace s\[IAcute]t\[EHacek] - zad\[AAcute]me tr\[EAcute]novac\[IAcute] \
mno\[ZHacek]inu, rozd\[EHacek]lenou na vstupn\[IAcute] a v\[YAcute]stupn\
\[IAcute] data, a po\[CHacek]et neuron\[URing]. Po\[CHacek]et neuron\[URing] \
se zad\[AAcute]v\[AAcute] jako seznam, ka\[ZHacek]d\[YAcute] prvek (\[CHacek]\
\[IAcute]slo) seznamu odpov\[IAcute]d\[AAcute] po\[CHacek]tu neuron\[URing] v \
jedn\[EAcute] skryt\[EAcute] vrstv\[EHacek]. {3} znamen\[AAcute] jedna skryt\
\[AAcute] vrstva s t\[RHacek]emi neurony. {4,3} znamen\[AAcute] dv\[EHacek] \
skryt\[EAcute] vrstvy, jedna se \[CHacek]ty\[RHacek]mi neurony a \
druh\[AAcute] se t\[RHacek]emi neurony.\
\>", "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.5103893164794755`*^9, 
  3.5103893181741905`*^9}, {3.5109897683360767`*^9, 3.510989796031594*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"net", "=", 
  RowBox[{"InitializeFeedForwardNet", "[", 
   RowBox[{"x", ",", "y", ",", 
    RowBox[{"{", "3", "}"}], ",", 
    RowBox[{"RandomInitialization", "\[Rule]", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.403534626858601*^9, 3.403534639860485*^9}, {
  3.403534681396292*^9, 3.403534686998408*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[
   RowBox[{"FeedForwardNet", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"w1", ",", "w2"}], "}"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Neuron", " ", "\[Rule]", " ", "Sigmoid"}], ",", " ", 
       RowBox[{"FixedParameters", " ", "\[Rule]", " ", "None"}], ",", " ", 
       RowBox[{"AccumulatedIterations", " ", "\[Rule]", " ", "0"}], ",", " ", 
       RowBox[{"CreationDate", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
         "2011", ",", " ", "5", ",", " ", "22", ",", " ", "23", ",", " ", 
          "47", ",", " ", "31.2167305`9.24696231966335"}], "}"}]}], ",", " ", 
       RowBox[{"OutputNonlinearity", " ", "\[Rule]", " ", "None"}], ",", " ", 
       RowBox[{"NumberOfInputs", " ", "\[Rule]", " ", "1"}]}], "}"}]}], "]"}],
   Null,
   Editable->False],
  DisplayForm]], "Output",
 CellChangeTimes->{3.4226050585625*^9, 3.515089651219731*^9}]
}, Open  ]],

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

Cell[CellGroupData[{

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

Cell[BoxData["\<\"FeedForward network created 2011-5-22 at 23:47. The network \
has 1 input and 1 output. It consists of 1 hidden layer with 3 neurons with \
activation function of Sigmoid type. \"\>"], "Output",
 CellChangeTimes->{3.42260505859375*^9, 3.5150896512367315`*^9}]
}, Open  ]],

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

Cell[CellGroupData[{

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

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAA78KzuM1gT4mmQa/VkTmPyXpvjse
k18/OFFwH9I/5j/6sC9k2ZJvPxSTlstNO+Y/5RRo+LaSfz8fqBoIRjLmP9pG
hMKlko8/vJYJGTog5j/VX5InnZKfP95TeNIw/OU/UmwZ2piSrz+KFFReWrTl
P5HyXLOWkr8/ELScXqsl5T87xUoKQnPQP4lqNGBS9eM/cHpOYbNw2D+7CWQE
H+DiP224ZY4CI+A/rn1vdqjX4T/U6EkJp2LkPwmJrz6pweA/ii/2ALZZ6D+s
H5LSLo7fP3EryJXApew/oLEprVyD3T/6Y2uu3W7wPzzO9Os/l9s/Yr1WUJBm
8j8xYloffN/ZP2Px1MDAiPQ/jEw/ZtAX2D+MMLdvpob2P0iX3QtMgtY/AsC3
N4R6+D+ckqTHOAfVPxEqS87fmPo/2my/w0aA0z9In0Kj8JL8P/3E47ovJtI/
F+/MRn+3/j/4/eZK3cLQP5rHugEDaQBAZJ2L+Ozyzj88HUH/IGQBQD/5+lb2
rcw/K+AQ5H10AkChHExk51rKP62oEmi1cgNALA8KbwtPyD983l3TK4YEQMKt
CtM9OMY/cTw4S56UBUAoCbDu00rEP/qfRGLrkAZA7QQNiGeZwj/QcJpgd6IH
QMzpZthQ38A/OUci/t2hCECY81CAtba+P8lFOahAnAlAht0wdxfquz+lsZk5
4qsKQEB0wl5jD7k/FSMsal6pC0BOmUOI/o62P9IBCIIZvAxAj70pkp4DtD+1
CHOm0MkNQEzUVTXirLE/LBUQamLFDkAAfyYveEGvP++O9hQz1g9Aqy/ogywX
qz8jh4cvb2oQQPcHNmtCcqc/4lrb2kLnEEBZ4akX6BakP0jl0/m1bhFA4evL
PbCsoD94cmVoFu0RQCxDquEjYZs/TrabShZ2EkDMWb2bKFKVP+78anwD9hJA
cNlQE1wHkD+h14G0bnMTQFCkDQExU4Y/+mg9YHn7E0CAWfjo3eR4Px39kVtx
ehRAgE5zqSefXj/mR4vKCAQVQADH/HUjmGO/wybMPx6LFUCICd6eqcN5v2oI
pgQhCRZA/GgxmAPXg7+3oCQ9w5EWQIiqk/Xz4Yq/zjs8xVIRF0DmB/HB5oGQ
v/hqm1NgjhdAwnmw6HBRk7/IUJ9VDRYYQOKDmcKBKZa/Yjk8p6eUGEDq0n99
dqKYv2ntzfXclhhA9tzsLh+tmL9woV9EEpkYQExhoJnEt5i/fwmD4XydGEBQ
MGWeBc2Yv5zZyRtSphhAaEIhfmD3mL/WeVeQ/LcYQOoQe1t6S5m/SrpyeVHb
GEDA2FeqRPGZv1FuBMiG3RhAsKo3N4b7mb9YIpYWvN8YQKgXQJnEBZq/Z4q5
sybkGEAGvDfgNxqav4RaAO777BhA2k2wkfhCmr+++o1ipv4YQN65ekHjk5q/
xa4fsdsAGUBg+DGH8p2av8xisf8QAxlA/Jyrr/6nmr/bytScewcZQJC4RKwN
vJq/+Job11AQGUCyIZhrBuSav/9OrSWGEhlAegvu3vztmr8GAz90uxQZQPTU
vTvw95q/FGtiESYZGUDijyK1zQubvxsf9F9bGxlALrhi07cVm78i04WukB0Z
QO4uc96eH5u/KocX/cUfGUA+AinXgimbvzE7qUv7IRlAdAhZvmMzm78XkE+Y

      "]]}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQjQ70d01nFte6ar/yfIDHg+NX7CH8p/bKLpbZC5c/
tnebntyqtP+9/RPbdVGCp15B5b/aS+jd2xLM+t5+94raI3NKftmvclqqyfrk
PVT9f3tObsG7zH5v7V8eUlG+0sLkIGD3/B5P93OoflaHD9Vved+U3rMv3cj1
JPI8u8OpCN36fMGjUPO4HA5C+PsZF3xYcl+S1+EtRP1+iPn8DjwQ8/a7ub/e
ZGQk6MAOsW8/xD4hB6h79vfYxU0uvS7sIAlx736I/aIOzyD+2X/J9GLxjhox
B1WIf/dD3CPusA4SHvsldF1CfitKOrDHiBirLdu4BwCbRYvl
      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.422605058625*^9, 3.5150896512877345`*^9}]
}, Open  ]],

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

Cell["\<\
Funkce NeuralFit vyprodukuje nau\[CHacek]enou s\[IAcute]\[THacek] a \
z\[AAcute]znam o pr\[URing]b\[EHacek]hu u\[CHacek]en\[IAcute] - ob\[EHacek] \
tyto n\[AAcute]vratov\[EAcute] hodnoty si ukl\[AAcute]d\[AAcute]me (do prom\
\[EHacek]nn\[EAcute]e \"net2\" a \"record\").\
\>", "Text",
 CellChangeTimes->{{3.403533844567185*^9, 3.403533904635737*^9}, {
  3.407570867484375*^9, 3.407570914859375*^9}, {3.515089611418454*^9, 
  3.5150896139756002`*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{0., 0.6094264305796613}, {1., 0.2462132881099491}, {2., 
     0.16401313201186532`}, {3., 0.0845766323053176}, {4., 
     0.03700660466100521}, {5., 0.013682115112992997`}, {6., 
     0.013531639900739627`}, {7., 0.013046119835243774`}, {8., 
     0.012662789526182099`}, {9., 0.012087121237944693`}, {10., 
     0.011339373793933835`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"Iterations\"", TraditionalForm], None},
  FrameTicks->{{{0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}, {2, 
      FormBox["2", TraditionalForm]}, {3, 
      FormBox["3", TraditionalForm]}, {4, 
      FormBox["4", TraditionalForm]}, {5, 
      FormBox["5", TraditionalForm]}, {6, 
      FormBox["6", TraditionalForm]}, {7, 
      FormBox["7", TraditionalForm]}, {8, 
      FormBox["8", TraditionalForm]}, {9, 
      FormBox["9", TraditionalForm]}, {10, 
      FormBox["10", TraditionalForm]}}, Automatic, None, None},
  PlotLabel->FormBox["\"RMSE\"", TraditionalForm],
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.422605058953125*^9, 3.515089651686757*^9}]
}, Open  ]],

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

Cell[CellGroupData[{

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

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], LineBox[CompressedData["
1:eJwV13k8lU8XAPCbJUuyZY1sSZJQEQqjzZ5ERVJuooQkKUIllaUkW7LmJltJ
9iXJIAp55RfZsyXhLs9FIane8/zl8/3MPDNzzsycuRRdLti6cVAolIIVFAr5
lxPzt3/VuWlEoUT0OomeRRumanfJxTsjCiUk/kGgL1oq0nTti7sAvq3NOn8V
fRNzX6yIuwF20bcouIX6TW43ZMc9ADN2vfsUgz47x21Mj8sAex4+N/oY2XpJ
9yfFFSJKCC5uyCtAsbNOpYlxGNpNhNbavkG7miz491zqQJS6E24y9e3IJ9D6
VKlPL6IosA4ymd3ofJVbNMf6EUSJ2eoyt2kIdU2a8+W6jCOKsKNyUvsYuqs5
T6k4NgnjC9BLOSbQxc3ND+uyGeDK2RbpKTTuNh5CqwBTzrJ4NkyhozSKV8h7
8IgazUhrCu0U199jPEX6vniiyRTi+PeMhdWZiNI895nhO4XiPt0zxaXggCq1
Ha1TqOTqwV9v6lmIQjXskL00jZZOe7784s1GFJt8X88COqKKzAXUXAHrNelI
V9BRU23g3tTr4Mmr3biWjmKk7/Y6RIN5XXIWPtLRxo95HF0F4N57eiKzdHR4
58TRVgaYajU7pc1AL4VP/avwmAFvL1AoZyCx2smWh77gZnuHbzUMdNXTJ8Ev
EEzpiM9sZKB9725s2naXdFvJyi4GGgh6bFfwDMxLsbs8y0C83wdyn06C9b7o
TG9hIpc3R21izswiSpH+2PoMJtpWISUqfQEcMusXmcNEHIX9nU/8wQ7av78V
MFEm7aR9aQS4t7j3Vg0Tjd06c7L7OVh1xUPbPhjP4oqXLAGOaeDfKcJCLj0P
I/L852D88QuKgSy0rcPeYmsImKIlciqEhThapAWqI8CqWtRHYSyUWZ3+4EMy
uCP23/c4FhpLz05kvQbH+AtK58N4ruVZ2pQfiOIu0F7Vx0KnZ7rq6iLAeTaZ
Y5oEogbG2FfFgItuPnisTSAnTitWYRKYarHFVp9AR8XfymTkgSf7LtP2EMhM
v/jKtWZyPO61fYcJpHHzvvpO3p8Qr2vRK38CqfGbv90qDFbYso4dRKCN8VyO
m6TAtGeqciEEUsgOCpdSJZ0teSqCQGtazo3Nm5LfZ+qHJhFoUdgkqTScbA+v
0Kok0I/kFZr5D8CLkckj1QSaUXrTlPkIPKksEFFLoGlt7bnYXDD1ddqbJgJ9
cVCy9nkPNjM8/LaTQA20v5xbeObhvMl46bEIVLupOkVZCKxqP0mdIdDrkstb
ZSXBI/99D/lBoLJGxslVG8G0D+dzlwiUO9n/asoE7F6525STjaK0Ki/khIHF
Mje4CLJR67aeicvR4KhdTflCbMSrs3BifyJYfZPVjDAb3dbXtRrPBlutEvJZ
w0ZBeypVlZrADkEuBlJsVLWvJ2OmDcw22OEmzUbzJgsS9V1gpwgici0b+Vrq
clPHwY0skfeybORxuHI0nXMB2mnCwopslHe0x+H8KvDtA6uklNhowmHho8Ea
sDvftMx6Njp1Qrd2QAmcxmMnuYGNHM5UpkjvAbv2tg+qspFpQKXdwxBwVcHB
TE1Yb2BPq2sEeNI50F2LjRqCF3Zrx4CpkuFqW9nI6KauVmcGuNHIJHMbG+24
WykggsEUm2NUHTbyi+q5NfIObMwVx72DjUqiF5YK28FlGi9ywFvidaesh8j1
l90e1GUj5bTKpqg/4Bd+TRI72cjlcY+BE/ciGPOmgmm0hdLNq0kbbZHZxUay
2bqZrbLgfR+lhQzYyDHXXjpFGTw4NBoKTnrmH3NOHRwgd28WvOZl5XVeA7CN
7s0mQzayKer52bOX7C/ZrmrERtElC165lmC27nI4mL9S97jJcXJ822V9xEZm
r+w/iZ8G15xojwKHvfY3/+YBLmq9OQDmqKvUvR0IFv4V5WXMRs9Xi+b8CQUz
mPZlYNvjXmL+90gnmy+Al/LehbLjyflEXHR2s9HTeYWZc2ngLK8n3mCrfUHO
X7PIeBt4noJ/xH7+n1MBuGvLw0/gtGFNg+5yMr4W8z/gfVvuPj9YC1Yo3bB+
DxsxAselWt4tkvu/aR84odkofM9HMIVpRwUbSCT/fN0Dbr6R4w/+dnrutM4I
eOSbwl1wdPGBTy8nwVH73j4C7/iXa6w6A45ouE8DD1lxFD75BS6LCMkCh6U4
rZPh+AX7WZ/6FKwxWXEvgR9MTRpOB3friCytXgMW2GUVD75+y9M9XAbc3Dt6
C7zxv6ZuijJ4+QntArhDTmF/oDo4uCXiKDjAK7B0ThucF5qiB1ao7lI8bwjO
4uwWBzfzaMZM7Afr3drFgnz4HIn862wNdt/5oR4s9fSrV99RsN/pOzHgOrbh
gK0z+f1OD0fwOaMk87azYIM/V+XBolGzlft9yPbpsmHYr+o+KxUcQK53r0wq
mP/yCs6SSHDvXk9OcEnD8Yub48A2fkeK4Dw4ClcMZ6WA2eu9HMD5+R41j/LB
FGWFFDhfh381qomUkfHy124HL5vIJ9+tAfukRzbD+bQa67x87X9kf878r3B+
f2hqjM9/Bi8GrPAAp12LsPUZAkeNhNHhPjClDDVPE2CvAfkRuC/RB3MmzUSW
oH4ZJDzQg/1Lp9g3SINtCE8C7tvQtGPTLiWwuudlC7BmmFCmxnZwlqn8LNzf
jpqA42JHwD4v+3i2Q/75O1vunwCLvbLYDfddwWGLHs8Zcvxm9mWoBz5zo2JL
V8A/ir50QP0QUbNsH04C+8maHlCHesSTIdJMA78w9fLZDPn8Nnu4KA+8fMD9
gRobuT5JGQipAhsETdRBPaqSmp5U7AVH3Vk5q8xGJ3kiOV0lf0P9itl2H+rf
9m+DJlby4IjM+fMyUG/fat3V3gj2s0uygHpZcr1XmFsXrO15ZUGSjbjnN8rl
HAVPPnkuD/X3xfg7vcmHYC5n6nNeNrrZsDa4Ix2sqqZnzsOG3zveuCobzBv8
8ys3/K5wkjCJLAc3dimthvpv1+lmp/YZXMRV6ATvw1I9l7eX2DK8t0csj43C
+5ix5yk7DlzVStd/RqDw5o4voanguskCxWwCvZs5KSWeBdaKWfxHI9D+fUH3
9cvBxlYaNHj/9kyV+of2gDvGLS+EE8hg+wYrMdk/cJ7OD5qfJpDWe56futng
PC7bP2sIdIH9ULO1AFx16vkrQQK9lFb2cKoAJ7m99+Ij0BYv4+GQ9+CRp/aV
f1lITeRqS8sUuM5j1dAkCykfn04/rvEX8lmdduk1C0kSbSY3KsF5PgPtx1go
KRafmsJgdixfmB0LSWmXBNs1g82KE7UPgK8+KtnYB1bg6PE3ZqG1nC5yHUvg
RQ2tRyosJCe58FPB6B/k87n1rhkmUkGK2Q2N4GYxfrUQJkp5X72C8xzFmBIw
kKZ5h4HYI0VXCS+w1nyEyzUGMl3KmRnwAdvsDo2+zEA/1ONHywLARXnZ/7kx
kHWcZ/2ZCLDCJzaXCQNxnJC92ZoLrovMUeRmIM/Za5S4CXBzve2+63RksG73
PwXXFcaUjht9r5ym0eYR4fFrfhzGlKpzDN/476ggT9S93JfTmKLX0i+dOo6C
h050bg7jMqbQXM/nrRpFFw30LB8ncMP8X77uuNuPljL2udBjVhpTVC+qHJDr
RB0+KVT/TB7oHy3Il9yE9E2V/n55wmtMoTj0P9mZi1r26+cZp/EZU6htkoUO
pTi7OFl/LJ8f1r/+Uop2KxZfr+5x8tkqY4pDfe3R+C78aQVvqHSNAMR/4IWU
+SAu572U09Gy2pgSLK3emj+K1cWFPVyaBGE81036heOYiJ4X294tZExJmwtT
S/mOGWy5hi394GBTb5us73ja1vSC6hBYVjHT5+V3PC6R1LJuAqzdOZHR8B33
P9a/zjsP9gnNezX9HbvY186x+IWh/+L2Xv1JfODsihONamB166mSzkm8Pjxc
84IHmPZ++4WfU9i3W/u6ixdYzySd8WcK120YazviDTZ+Keq6chqfbDTwMPAF
t11cu1tyGqesmM3iCwSb3fMu1ZvGosFOa7MiwTY+pf6B05jj4lbuvjyw34DJ
pV/T+FDdkF3bc3CW+bLGCjqmCUVl4hdgSmvkOC8dG72cQDlFYPchFUMpOg6k
pwZeqgL30oyydtDxrNtK9upmcJVivJkvHY85DvTv+Q6eVIkcHqdjAUP7XOoU
Gd+2KA8GHevId166TgfHpEix5ug44murQDUBDrjxboiDgTW9qo22LpL9WfvP
KDBw8LXkTHk+ERhvyE7AkYHFafYey2rgqCtCz94zsFFo5461W8Bskd+72xnY
3fUgp54m2MBjV2cXA9eomqZd2g5u21E2NMrALsU72qd3gSnM48m/Gfhlg/i2
Piuwk4Fu2hYmNvvW+avcG2zsLdV+j4mvbY4OKvQBFymGC8YycclFsz95vuAE
qqJZIhPL/K2hpF0Bp5l25dCYmCWRwxN6nRwvREK0nIkTzALEraPBIfs2Zgwy
8Ui+7NaJAvBIx6MoFRYWn+0uGS4k19MaxlZjYQu9WO2+YrCDRugBTRYubeTW
aysHjxelzOqycNgXllHJG3I+nZ1TZvCvolC91fX/kfEG+4WfY+EAXzd3CSZ4
UVY1NJuFIyxZZ3cSYO1Mx0Pwr+UjZf+zJ2fIfGTvlSpg4YruiDM5P8HLkTr3
y1h4bucL1x1/yfX231jzloW9OeeoR4VEId8BzJghFr42GEQNFAGnGcoPjLJw
VDkX9fEacMTYL9lvLJx/VsJ5QpJsz84Jp7Pw5Af9E1cUwEV+zYsLLHw6IeRY
4lbw8tkwcyEC+57nO1a9HeyeSV8tSuBQkziHIR3wvn/MFjEC0xaf2qvsBOv5
vVddS+Ahp/dHKvaAzWarbyoTmKljc6R/H7h5aJ5jI4GXBfsO/zUBh7xtDdpE
YJn6aTsTSzCbQ++wBoEdNgjadtuBvbIlaboEdv+beGjpCLn+GI4hfQL798gf
knMAa9WFrDEgcGLkVpszTuR4FdpuxgTuZB62nncFG7M8n5oR2Loi1ULiCtjh
V9ZdexhvzuWfeACYOlCpfIzAt7TUysQDwW27PSsdCVz1vGqd+HWyXaPk3QkC
K2V8Zq8JI9fXUxF1msAGg2nZayLAh5Ub6a4Etpd2dVxzF1xjdGHvGQJHxc++
FY0Gq6enD7oTeD5c6JFIIrgryrbiPIGFm7otRZLIfH3Y3+9N4M0cjykiKWBa
YNf8BQJTg9U9hB+DJ6XfSvsSOPDVnJwwjVzPLSWFSwR+OF/dKZQJ5j0kK+9H
4FYfc0OhHLCP7NDKKwQeLxCeFcwj43mcTYD/TffkCD4Hl0Wv/M+fwNpuZ4QF
X4JtOuKvXSXw42O3vgpUgLk+f74WDPEnWiQJVJH5L3fZfA3y2SlyQKCaXK9D
+H9gXmtaxapaMh+bH/HcgPzcO+u5qo6MlyP0EdiwWUNhVQP5/XdOhRA4P3ve
RPK/I7/Xa1t7E/Jz47YRfzM467DofXBujeUcXyt4ZJS1AG74JZrH1wYerD51
PJTAgzv6nfjawYtvPCrB85eeiPB1gBnNfAK3CCxS7P6O9xNYrMboGFidpRnE
2wUOCODLAJtsXtDk7SbjHz33BUx1rx3n6SXH73cWu03goOw7yTz9ZDzm9L3g
xDEra55BcnxxAS9wkbwYJ88QuEqlIQrc6jRQuXKE3G+31Tngb8mZXivHwAm1
zEowpeec4spxsOq60w3gtWJbu7knSF843wTWPrR4l3sS3PhUoB58MBoj7mly
v54bl4M9PoT94GKQ9+UKXyb4Nq/1My4WOHjpTDj48X7xk1xs8G21Y27gV6GD
olyz5PzLw7vAXfjpe84f5Hlw/80PZi17BHPOk/fHLf8TxH/MwXLTrwVyPZx7
EsCNpZu7Wb/I9XyrsAZrCAncGv9NxsvHzwFO9mBo9v8h2712vYT8c71rG/z4
D5wnaGkH9lYsiGxasQb6E3ozsH/7es9/LeIGSwUUSoILt1vH5PCAg1X0aHAe
1j7QMEzjI/srZSiC2fuJxPDVZH9FXiE4P8effNx7TQhsoM0fdJ3A75YL2b4i
YHbl9DCcv9RSH4uT4mAfY9MEOK8rhQ4t2EmS41Pffg0isI/H1ixzaXDURjl1
sIni7B/tdWBX5oVcOO/FwZ+eq8mT84uc7Q8gsGxvib2CIlh4o+FK8Gz0peJV
G8BWwWFmcH9OTNudXLERbEP/dfIygZv3a69aUCXbn1l5w/1LX/7hOqZOfn89
xh/uq5nHFalX2uDlNwnacL9Lm442vdwBrvmPWxTuv5yirm+WHjhhs/2kJ4Hn
ehY+PDAAd+xNvXGO3N+rN87sA9MOFjhAfeF7ckzdyYT8/pPyHxcC+y3r9x0y
I+MZvZZyisDmpUvbDK3AXY6f8UkC/1AInlhzGCwrKV/uQGDnYKd4vqNkPk3y
FKD+tfYYGP+zB1MSxO4cIXBG9J/k6eNgM69HerYEtli+fqD+NPjwVSsLSwI/
6blZ5n2JzPeufCmotxNNWsPRl8EREVYTUI/Vy4b5Cv3BWoYJ+VCvK2IMnYkg
cr+cpdZtJ3Cb+S8+n9vg6Ut/U6HeL772cb74EDxy+zGfOIGNnsvfjX0EPsPq
PgTvy62k9rLiZDB/WE0svD+Cl9X5Z9PBi5tiF/kIvF5jssw3B3x3lbfLXxa2
pjnz+1WS5wefy4X3LSFaUCfhFXh2sthjjIX7gt84l70m48sr3DDMwq7HZMp/
YHK/9NtDe1n4qmiP8+Vm8nvDvL5WFs66bV1+pQ9c23NsCd7fJXdD6tXf4KTv
RwW84f1/rWZ8+Q+5H+dLhD1YOHW1lMLFf2DV+e+rz7CwQcnssDunGNSb+K+z
J1j4+u9cZ4dV4JE5jbMHWJgzWtRZVwas9eTZL/g9IVD6/cTPnWDB+ys/jDCx
E/dnwxkD8I6UGfoAExfYN6xjGoGnJf7H3cPE1stpX8b3gAX8HZT/x8Qx+21P
dFmAmz92C7xiYrHeGqdSR/DzsxuiHjDxuj+xxy8GghuMRs114ffT2IFXj4LB
iwOcQluZ2O89n2TtdbBe9O8PakzcGnvzE/8tcv5B7y1yTHxF5aJ51j1wo3hY
NBcTdxy00e1JAztk3Wr9yMChmYJrDDGYQvXeRmXgCdN7rbxc4rB//m4C5+jY
xZKqsGElmBZweoFKx1+sda7s5gV7/+7qd6DjriPDioEC4NtmUvfM6Ljh9Par
dDGwYIVZ7EY6Tr8xsLF9A1giMUVnfBofrtx8J94UnNkXO2k/jd+qtCG5e2DR
rIM2m6awRfSwhcR98F8PFSGFKdzxc/aI4APwkF7je4kpPNQo7fU3Dtyf6KjC
NYUXXc4mDaWQ82msTR6axOoZHDOPn4OjHVWOxk3iREn9TPlWcElivt7P79iD
N4dLkU/CmNJqPjmXN4EracqGb2PB/Rb7lSK/4vZdBk22IpJQj+Zmh/eM4EWP
VDtqNNg9T2nhWh9utsk4slpCCvJf0vPV+D/som+Qm5sAjkiVeKvQgM8x//dz
MBHM/laS/bke+zxx3ieaDK5rm/a/W49v8N0aDU4HUx9S6XN1OK2vRcY2Bxyj
kigfhXH3VfuY5UqyXamwtL0aW1T7Xj00AKbYzyYbFOND3lzNYV/APswJ/8wi
7KCUKFEzDNYqttTjLcJn774qVRkn++ul1ucU4NuOFNZvBjn/ObHcjjxcu3Tf
Jecv2HgnzXH7Y9z0Ur54gCIN/SUNMt6m4jaX4n/CnOC6H9J+dsl4oLUrLYgH
bOxh2HExAS+myPTYCJP9p+Re297B/6wLNoSJkv5y0NkrBK/kRH6vxUgfkT7C
74/FPF1EVKRJ884k7rXEMvI/nI/LkObaz//iGFLqvPMyZh3pEyfXG/sgtXDJ
P03ypBu+MSUC0dZdzyx/K4JD/PYULdxE/wcaBnUQ
      "]]}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQjQ70d01nFte6ar/yfIDHg+NX7CH8p/bKLpbZC5c/
tnebntyqtP+9/RPbdVGCp15B5b/aS+jd2xLM+t5+94raI3NKftmvclqqyfrk
PVT9f3tObsG7zH5v7V8eUlG+0sLkIGD3/B5P93OoflaHD9Vved+U3rMv3cj1
JPI8u8OpCN36fMGjUPO4HA5C+PsZF3xYcl+S1+EtRP1+iPn8DjwQ8/a7ub/e
ZGQk6MAOsW8/xD4hB6h79vfYxU0uvS7sIAlx736I/aIOzyD+2X/J9GLxjhox
B1WIf/dD3CPusA4SHvsldF1CfitKOrDHiBirLdu4BwCbRYvl
      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.422605059015625*^9, 3.5150896517237597`*^9}]
}, Open  ]],

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

Cell[CellGroupData[{

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

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13k8Vc8bB/DL9SWSZE8LRXZSRInOKWurEiKKVNoUkVDSpZJSKLIkSwui
7FsJc1FZkyUut2zZl7tYKqT6zfP75/t9vV+fZ56ZMzPnXK1xcbc6yUuhUO7g
/8D/q8MFZH6vmUMUUmY2X36IeCgo9EtNApuWWJ/YPkgcvSHcfpgfm0LJGbk3
SMxcXhZVMjaLfW5p3PwAIX90heiVfGza/b5TzH7iisb6RXMmkB8/Ev+qj9Co
tZ39eeoXdmLLTaWvxK8d9gylw2BJgVvpTKKy1KHIdg827ZbDFk0mYZfjfKlI
G6y7okyvk7gVc5brPfcT10+wla0YRPfJgJGZu2Bn8x0ZrUQEb2rHVOYP7N54
/5Ja4pgvr/lcIvjvullmDbGRfbTwXzhYeC/vn2riS6f0Q2FP8Eo+ZPqRkMm9
s1tJDyzKVzlaSSQ7nS+3L5/B1rtm//MNcbGtVsM5G9ytbXO6mNixWyneNRms
eNaqq5AY0Ovx8QoCK7ntasojVEQObLhvBiYF/+WnE9mlui/ojdOwXq5Wtg9B
2/hArBqBKdaZOobE/pcs2qccMI04Oe+FpiJTjzAfgrVr73uHI71zMtIztmDf
XTnWz1D58oU7yj1TsB893svzUePlKvcwziQ2067pYiU6oH1u9GEfWGFyfrwS
fRkVOx7TCq5L+X2iCjEdXWyTi8Hs40EH36PBHTxGedfBKgYlaz+iBRFCqH0p
eOO/q3dr0fWaoRtMHvDf5y5TtYg3KOxP9zQXW8pb3b4OLfrRxR1mgMVSXBXq
kfhXf8ZcEvhFYGxGA1JLK3mxSvv/roq6+RllOrusXrsW7HJ1jvkZacsKxSpJ
gKstlGSa0DnZfCknLgf796Xec00oaIjbH0QDi/b/Fm5GIfYkI/QENm3Qe0qn
GYU1hNdFWUAusev44WYUl6eVmyoKjiQLU5pRToBbQF0yG9fbr1+n14KKJt9d
bL2JTRl/NGvXgkpPLD757TTY+ODOqy2oelfGbrY21PceOVHegrqlRmTEKlg4
fxocuq0VLck+nm/fN4GdOjKj9AVl+R2U5HwAr4g12/4F7Tcx9rmZgU2LTJF3
+IKiOtduzfYCVx1wv/8FyfJ9r+TjB3vpBE58QaWNzYqPx8axl0nLU9vQkbiK
4PWfsSlT5ruWt6Fkrae7DsdCniq4w6QNKdk7t2SrQZ52qDaqDdUo7Nc1XQoe
5TSktaEzbCKaOT2G7ffxaEkben1D7vB/Zdi0gDSt7ja0Mau777Al+OCdO/Lt
6ItvozFXB/zfCUHtduRtXJ5ySwbGh7vLEu3oTUfCmZy+UezGh5MO7Wgb9cjk
f5fAl44GRLSj3k97DsbbYdMMJB4+aUeBsYaF2kbgB+wtL9vRe82Vfg784GWh
5uXtyHV28Vfu2AgebyuUVdOOBKp+GwZ/BjupZLS0o112Xym5sdg0sXcnBtvR
xNp6F7NrkHMmFNjt6D6r5P3XY+Ap/Ss/21FT0OMQfnXwcCTrPwby3Ht3LH4p
eJXL4iUMJCFzZc+GmWHsf1UV4gx0KNNe1LEMm+ZcNifHQLM+Oz0nn4I3iPmv
Y6DHO7Z8CQ4G7/WOVWMgwyWqeivPwfhjppbrGaibIRObawm5VF+yDgPRni2a
N9OFXDbtvj4DrTk/6/BN5v/+KbmVgSr1R8ou/hnC9ZUaBtsY6ARvh5zAdzBK
nycZiP9TdeCTj9iUivpDxgyUFlPcv+EV5J6TB0wZyMIlzbQ6HBzoN2rGQGMa
MWmOl8BxlastGOjer2DBKTsYf1p9Cluz8vK520aQR4ud2MlAjfdcP61cC3lL
+yVsj0O26/P4Iae3K2Kvkp3PnhkZxNYQO4bH131L0NavBxvbaZgzkG/S9ly/
TGxK25rbeD3rXAY3lIZD/nr4Il5vi+KdvL8XwZFrWfh5aMMaOtutwVa754zw
ejKa8m/owfhXzGgDBmK6XdL9KAO5086Pegx0e71M4aLfAzhXFw3ZyEC6U+82
7e4CV6d902SgvgKnovsImzYa8l6FgcJ8qPpNTyE31iAVGGirQVqx2E0wTWj/
KgYaWdi12cYV6s2fzEgxkHHQwy1MNfBC6Z9FDMQ10StZuQTq5YyO8zBQogDT
wInTj735oNNcO5q9t8ZwIB/srbBqpB2lWH4oVYrGpiU39nS3IyuxM0ZnfMGf
Jg3a2tHrmJxtbEMwN7CU3o7sD1sjbTkYX9TTX9iO+FfNEl48kK+MScloR8ee
EdtnP3zH+fKZuYftSCqz0ZjXEiwcNn20HVW5e7432QC26p3f3448NkqZ3hYH
T+1N3tGO6ouPmAl39MH9cKhWbEe0ygkLqWPYlFtHIwfakOatiFo7Y/BsRmxr
G2Ka6+6KXwf1ki1EZRvS/XR1t/xYL7ZquHdiGxplCO1T88KmzHWGWrWh6MdZ
jW42kB9alrmtDZkcsbLM1gc39XiptSHDDzpPT8/2wPsrN0NpQynMA6n+Qti0
axsb0r8g3//Ccl5odWG3Ve8Yb0WP43h71vz6hutV5V62tqJSTZ8lSQhcovrh
XSui2DqfjdsPPtupHNqKQlI3KoZ5fsXmUXqs1IpizRkxPkWd2JlHg/e3oLd3
5K/v2tYOz/t4uVcT+rbqUWY1P/hCvtbBJvQ3V/Cbyec2+P06K6DThHYwpzYT
zuAIa6GBz6hO7cOUTtAX7LjrvsxGxKw/47rqYwv258K23Ab0Y4VrfG98I3a8
UubSGnRaUc4rXAFsdyTtXTVianTs2vbqE/y+Kq4/VY3oRrvm40sa4O8BgfHS
j+iuk5b9oc46bLM4zeMfkPzzn1KNUtXYDrUv4yvRI2uRdT4KCDtZm3brLZoR
F9jUPOUBfw886Xq/C3FFyodNKJ8ICqXyUuXSesLGb18fn9k3gkJLcomkMYns
Kef5V48HsUNLm1r6CUWryTthRdh0Rfmy0X4iNjdw+cUWbJK+Mp4yQNA8nm3W
ExrCNvRX1xogDrD7L9P9wA0y8SEDxPSo6/QXu2FsQeNkg0FCv89t4o/UKO6v
/zz+4RDxmvxztXcjNkV93720IUI++f7iqn3YZH7iudIhYpFTllpIMOTinT8G
h4jOb5zTYj9h/KS13uZh4mqH56BS2xjO3zVZdw4T6LNvt2XkBPbSZ75LRolY
xul/KVngRzJv5EYJjx47+YVabLqf18CGUUKes9nlJYWF86oIqu0oESQyN0i5
AH5w2z5hlDDb68fKtWDj9eRl2KiMEY11fgvifzl4fh+Z1evHCevRApFCYS7u
d41gbhsnSJaGnLMsNim1L3DfOCHzYyVZtAmbwjsafn6cqOX7E+jihk2zvZeZ
MU6oK5b9964T7BvRLT9BcFyMlrgVTOL6+p+lCxNE+1mHMLIKrLq6XYhFlHr6
LZVswaZnhX2RYREhQYXLyjmQh4kF6rKItc80pUTVp/D8H+VjzrII275VcgVP
sSkGz141swjD0a3JITngfop4N4tQmLRfcwRBfV/b0TEWwaVEK/B3QT6Y95yX
TdyRF1Gxk5nG6yvn9m5gE6VOf7UXwsAOGXKhbOLZqZV5TQnYdCep2ke43t1A
J+U1+LSFbTKbsL1+edO+OrACY0Uhm+Amsrck/zeDx888tOpiEwrd3TtM/MEH
H7iqcAihoYUqmVCwFb/FBg7BZcmasuLAGvnCBhyi9I+teXQxNnn7EbGbQ9iu
+rx7ZAqb/uXVLjcOcdcRWd878wPuAx/3JYcol39Y5+LzA+Zzv5PNIaYHTpBb
bkEueEGwiEM4nhfSGErGpruIllVyCK0AGyrZAXm55xSTQ7jsUPGTGsImeeZQ
L4eI4f/NnpiG+gmO1xC+B+HJzLilP3H/APnwSQ7RkjSeO22G7ZwmvpPKJfhP
lCvXWWP3errW/scltqo8SEh2Acf0Gy7iEi9y9O7sDYDxX23/4Ht0uSLQOa0Q
fH2uX5JLZNyybr9WhZ08ffmPNJfo2am8x7oZm+wSF8L3zKKlQZ+HBfOFpC2s
4hKy/dJLHRR/ERR5zeXm67jEvrSxmxs2YtOHLs0pcYkb58rmBUhscvtIogqX
mJh2GSpwgLxdrEqdS8i/2eQYegbGZ9Vs1+QSNv6LWo75QO4Uma/FJcr5sspE
IsFLT3ps4BJTNTSdwWRsyuJz7zZyCeX7B9PfZUHOvDGnwyUiJOeiTtfBfJcm
9ulxifed9UJEB/SP3+qqzyXmEhJpkkPg/U88NnMJFyUTt0qeWezkB0cNuET0
mNT32KXYyb/W7djKJeqzRg+54988irNNvYwhfm+8Sj+ZqmP3FgR+x9bVDzde
uQXGr96ZZMQlTv8+9nbKDPxijeU2LpGAdNfXWoNdF09ht9wQSElyAYfzhxD4
vCyYspc9sOk24stILmEgnBmxJwDmW9hwH9u96Tq/wj2ob3ZZwH4RZeU/F4dN
aqUe3c4lOuzWTX1Og/X4LuRjC6+aPZVaCPVrXRewt/fVdflXgdP69Xfg805J
OHiwGfpHeLtiZ5zxqFXtwaZdXBmC3blhNFuVDc+/gZKIvWj+WLTqH8gZxS+w
9SqZ/qrCc3i+vSZPsE/ePXhcdQU2GZ56EzvKqmGnqho2JbXnCHalrKm26hbs
5NdcZezJ72VSqhaQf2J+x+uTf6X3R+UQtvz2pDDsfV7Z/Squc/A+EurY17aq
1Kl4w/jDpW/w87+mPs1RuQmulNbHZtYvj1GJhHrqwVS8n4JRD6+pPIP1pLjz
Y292XHxCJRdMuh/C+/9oYkFb5TN46eoGfH7vC7ylVbqxnSuaOPi8p/zZf5RZ
0O/0eT7s/Ut665QXz+P5DNwoW7hEQJtdrrIstrNTyzC+T5kJzTHKqtikmxod
3zchraoTyubYlM43xrpcYsvPrbuVbSHPnGbj+3q6vGCD8kns3gOqofg+f9iX
+lfpBvSLD4vG953mfidWCcF499tzylwiS5/3ulIjjI/r1sDvU9e/KyeVuiA3
ND2giO9LhNtGpd/Y8kf2nJfnEj9yLBvW6f/G/U49msLvr6JfTd46M2z5ne+y
8PtttX173Dob7F4BQUdxLpHTvNF1ndf/61XvinCJs1OSlHXZ2JSxLl0+LhFX
EjakWA6+8+wKD5eoCRL4pPgJm1S1Pf6HQ6wTn4tTHAfLaA3j71GvzjcdReUF
vH9ZYWGdHMLG+9kphSRsMsno+HMOUbSsXqorE5vS4GL0hENIZU1/iC6F+u6n
v6M4RMeQiaIQE+rZEYrB+HtpN9zLlfiDzdRSPYW/j1s1Dpffxab/SPhPkUNU
MawFfePAyUXrVnAIxUvX3mx4iU25FagmxiEGXzdKpXyA8d6Hvv9jE6dXX2wN
pfzF8z1VF2ayiQs8RXvsL4MneazusInPCd2/xW5hU/L2VAawCW0DgVcNkZAH
zUtfYhOTnnaCZC42WZ3ldZRNXBqY/6A0AblMPQv/Xl2pJoiZY/+w59N+tbKI
qo8DsdVKFJJCmdYv42MRsl6tZ1M0sekqZn2/JghPuUrDG7pgxwTO2AQh75vU
u20HNk3Ztr5pgghQPaxSdATGh5O0+AnC4N7n4hdRkOemjGlMELkHStoDeXmw
y3RlyXFi0d+XL50EsUnXK0na44RzRswVI1HINzwVXTNOiFC9V8+twqbw1Rbx
jBNuBetdPbaAT/BJVI4RKtIpP456QL36+dXEGJH0LVzCsBub/raDoTZKzNxt
TswahFwt3EN6lLDYIq66hgXjI8qmqaPE1KNoI/4FmP9q09tvI4SJZYJr03Je
XK/y0+z+CDFSkfHmhA0Y5VweGya00z443m8A+z4qeTREVFz8/aK7hIrnu6/h
V9BPpET8rUc+/+H+esEmR78Sn7UqBT7bC2Avvu4vUkcYHaTZS+sIYucc0LoW
h87ztG9PnBDCNtQ5Jt6I+rUmth2sF8ZePtKU9w3RBw2WWLaAJQvU+r+hJ0/u
fN3VCd6Uf168C9kKKfvuGAaf+pjl1YXqBo/lbqAuwU5LWa7TjfKeMBREt4Jv
5nln9iCaUNWiTxnYtHd78s370MqhuBazuyJwHluLKQNI7DZ5S+4BOGaZkuQA
WqQyrD8bg03ntwhWHUAzZ3QT0lOw8fslazWAGliNp4QroL7i+YNnA+jqD+qf
5l/gzS8zyUHE5LugfOTkUlwvftfs4hBqSpFgbnLDJmX4a28MoY9m7+6JeEFO
PbQ1egjlhSyaQjTI+XdySobQXeHnpWufYNM/qEVSh9EWiY4DIy1g6Wn6g2HU
sGxN+RZ5UbhfZ089HUFm/QleXAXw+aMb80cQKpBVTVPGxj/YI+9HUN4hiSiJ
9ZCHa0qPjKDYBIGzHCNscqfpFc1RdEKVLZnigE3f8mVvwShaIN+dF42B8RXl
bblj6LLYZoXqx2Adyxn6GOL0F3RcS4R+OaULn8fQ9+As4/EUyI9S61ljqKbh
6fKPBdBPUtxRZRxF2YV8uNoCebCoedw40vSwWTW8ZBnsR8b8mQlU4vHP8ugy
cHCvu/cEsriYHtQmARYpb6JNIBfPP8NVK7BpQlY2MRMo+lJKXrIq5AvLz1RN
oL++P8wPm2JTPukVSrNQqF/SlWaLZbB/qX1rWEjmys5Miz1Qv8tqTp2FNl5N
ENM/CPXfdowRLOR6zbRL/Bj039fV7MpCjYGPPD/5g1ve5eWwkEMQkWJCg37p
IhFvWWgkaJTx7gb0i95mV8lCvDeNjDLuQt4tl97KQnrBgwK3Y6H/Dqs9P1go
8e6mBLIA6nmnInXZSD2053NxMeSPnq00ZKM3oXd417+D+Xq6w43ZqOVe16lV
lZALj2yyYiP+8Fsb5z9D/7Ky6xfYyD2yrTp/HHK+dP7nbDQvkW7rzfn/fpa+
TWej4Gj/Qb1p6EfdfTCHjRLjFKgl8zCeXbOljI0aki5uowuK4fHj9NY2NrJb
Y/opcAlYRKvkKxv1P5NxNF6GTfs1GdyH+6cgv48y2PRht9YJNlJ5vaSwQRny
rBJ9Xg4q0OwzDlOH8bOn9wtwEJFd0GK5Hpt022spzEG2eQ7cFj1wZ/o/SQ66
9SZdvdMU+n3YrabCQaIG10oe74TxI6aXNDjoybv9Ox33ghcffqGN+5f/cu2x
hvrQqqLNHPT9vemzweMw/6TpC3MOumC2fEPaKbBoyerdHDRXPYFOnwO7a1/f
h/vXR3aNe8L8DsunrHH/PafcMi9D//pgPjsOUm40+H3hCpicWDjMQdua+2Sm
AmF8xaMkZw6qsypMy78F4w3bdh7nIJsvIXred8CPqcyTHOTGWG89GwFOVHx9
loNm7aj9b6Og3zZxthsH3WS2X7waCy4akXTnoPiua+F/k6B/HyntxUFKTgdW
059DvoLOvcRBeb2KmYFpkOvJ5VzG63GZ3Wr8CvLnjja+eD399XV82bAf3Zd7
/fD+nkyy/5gHub/bgasc1DfkOXK7CMavMHzpj9d32sxnZwnkHgMD1/D6Rpfz
Ly6HfNsJget4fedYUQ0V0M+hZCmNg5ay6AphHyDPHvyD/fhCVJ5lLVh7sDkQ
r5d7avuyT/C8I8WhQXi9F7c2tTSBJx3Vb3CQ0bSIU9QXmO9yaw52zaXvLJsO
6J8vu/ImB1n/LPSX/gb9fm44jz3hVnitugcsb/0c+2Z/QYBPP9QX6NOxVx4u
uK48DP23fqvCLmjKpzHGwLu3Z2HvMc8PvM2G8Xddr2MPlOUF6U/9f/279bH9
dfNuDP+Aehq3Da9H8lXuzZg5yFusHbCz1uTeMv8D673nW42fxyw2J/gXRRzX
P3WQxe4WybmdxodNkfl7ED//5VvZIYcWYdOpzpfw/ogsZN0REIb8TuBVvJ+p
nll3i5eCv7qcCcDnN5oZekoc6o34tuH9b3fKvCctDTnVdQ6f14X21/erZWG+
sJD4KxzEv/d1mM9q8AE3RXy+egavIhjroP6h35g3BzXmZDy4rYpN2/5CGd8X
V+WMh/qa0P/uw92eHBQjkR4Vowvjf5WaX+Ag7dCXj8w3Q149L4fvYw3Py+hf
W2F86L/uM/g+sFNjDxlDzj62DN9nu9oXT6StYHx4ujl+H/C/aBKqbaD+l5Ht
IQ4KKXqe6GMP9QPPduP36c3zZ8kMZ8i3DIzt5aDlAckvYtwhD7j4m8D3YyYp
xdwL+jkWkYYctOtcUuqvy+CVnW74fb5il/jyUABYhO6H33fmxievpe/D88bs
dZXjIM/0+MzqiP8/T8l3WQ4Sko/P8omC3FbaTIqDDJY8zmHEg9+kVuDvzePh
mIKYDFhPn+u9WTZyeBJZKl0DeVqrZz3+nu6gG4TUQ7+urpoPbJQ3PPFmthHq
X5OCdDYS0jEr7GyDnCm7swB/n2tnM+P7wWbuH+LZSPLXkSS5f1Bvqpbvykb0
J3dXRfBK4OfNkc5xYiO3HcXxFH5sMv9+jB0bvb8vGtsnjE2bllfaxUaeilUR
z2WxKWMmOzTY6PMBlSBlPRh/Od1vgoWu/LKmxG6BnF0rP8BCSgmBAYuMIH+U
mfeVhQJGmFdGjSG/3Rhdx0Ia1+97vToAzhx1TmOhO6+nTqw/DyYMKUdYyFig
zFz/Bcy/fmXomwnE1hRfO5UG/Z5IpLyeQLHWZxZev4LctSI1eQJNPJXMXZsP
40esjoVMoCjDC7IilZA/kCiwnUBDF+VYAz1gpm47exyFfAt8+HCFJO7X+pRc
Mo42Ujvc9spJwvdstdPfMfRNVct8kQJ42zZXzhja4MP8fU0Nm7QM1WoeQ8xl
OifPbAF3GL+MHEPq5gP65CHodzvbXGIMNeaadbEewnj/gUt8o+ieQJ3umWio
v3h9eHoE7Tqy995AHOTTb836R9CHRdZbvyaDbTTrK0ZQqdOxuJos6OfNmrg2
gtKX+Ns8r4Ncl/V4ahjdPJP7yY5XCv5+O/710xDaumZledVFbEqY/de9A4jf
rf62pjc2/f1fhS0DqKnoyoEYX8hXKjsqDqATezoHzl6HXE4pfr4f3fOJXix2
H5u81Ged2o+6P4naO7+EfJSG5r+joCv/zSx0Q35MpyCmD9W2slX19kjj+V2I
EIsuNP9hTTKxRQb3N+1wXtyIllxLPnZaajk2vYqp7Y4qva5rqvDLYm/VfcBq
IuzXZ5gIDGHTBc23N/YSYlotQ0EVK7C/vV0mNUqcdzsc+Sh7JUmRT1E/9JtL
ZLhrhVbfX4Xn92w6MT9D3M1zuR8RsBrn35/uEZ4jQjdHyf48K4fXE09Tzlkg
iipC/MoU5ElKct3hnNx/RL3/vtz4dfLw+1veWPaP6NWXGPVTBovNDNT+I4Sy
kuz01LHJQvps3z/i6OMi/eyNMF7rTfciCingNfAjeTvU0z991aeQdoqk500n
bC6lIP0hhZwL/nV2dzw2fbGW+lYeMrbzYJ9gAvQLb24ieEg9jZxDNYnYvR7+
niY85KXm0yamz7A9fn1P38tDclcwVxHp0G/+04gTDzmUU9q0sRjqXX+l3OAh
W5iBerKtYP03EjU85EXN7tcdX8Dc2s0NPKQozUAhph27qbbEromH3LtueqkE
E9tZbdO9Dh6yxv3E6JI+7BwJt4oRHhLxmT/h4UBu9P34Il7ytZYw76jQGjy/
r3agCS/ZfDUgN1EYO4f5WdiCl/xZw3W2FsGm19lE7eYlyeNtCC3DbgpaFmPF
S36JSbwWLYMt3655zpmX/EPZMGeshN07obr3Ki+5r9WGm7gde//Q+GQmL+kl
X5NkbbwG/n0UN5vDS8aeN7AUMoX+RaK/83nJ7wJyWd4W2NqSDtNvecnLhiPn
9liC68xyP/CSSSlXhuccoX5T3bFvvCTXJ6nb2hfme2oUwU8lo24pla6/gp2s
X24iSCW3RGbGCflDLqw1s5hKBmW9s6Zfh3xxh/EyKik+yKhTv40dUWWUuoJK
6lmJFvNGY9N8Yi+vp5JMp5iorhiYLzu9cwOVDDi/2vNNHLaoVoK+LpWsDtHQ
vJCA7TGjPLCZStohi+edL2A/y4r/baeSVzUCw3PyYb6JVeRBKilvsOh8aCHU
J/zeb0Ml35uH73Ithv5yOY6HqKTw8YT/Vr6D9XAfn3Cgkolxb6/eroT5rp7U
O04l6fxTp442w/h6su8ilTwh4We6pRX2c2RbkheVFFxLUZBog/l7BO28qaSV
kUh3bQeclzRfiS+V7PdSs97UC/UzfsR1Ksnf50IKc2B/b01ZhlJJ3WCaYzUX
5uc7/ewelXRRT/QNmsJ2lrTk3qeS5d6dObM/YH8OewREUEkfof1rBhegvnDm
+CMqmZp93ij5L9T/GX8QTSW/WIfaO1DW4rzpwLsYKqmd9PFBMxU7J/0U5TGV
HNEx4i0XwvY4mncwkUpKdR5e7ScM1pI4kkQlTQJ8DXRFsGk1fceSqWRyTb5n
xrK18PuLjjzD+31ErT9aBpvC77c6lUoG81r8OyCLLW+iTU2jkgVpJ1csWQn+
vL8fW3Qq+eANOej/rOFROpWsDZZ+766Evd8yreo1lZxV39SrpgI5z9MbmVRS
qdlqYVAV27mah8jC92dFmK6jJrZo8K+0bCqZQ3+1X3o99P8TapNDJbtP1rq1
aEP9zeC/2AY5fCkWupA3vN6RRyVP26ytoOqBxTu6sKPnia5yfexkn9OX8qnk
lMlVyU1bsem5xZEFVDKjc/LWmh2wvibB+CIq2RGw9Nk3Y3je74eWFePzU9Qs
jzEFHxG8ge1y4fTPJTuxuTWP7N5QyQjxYLHaXbBee49S7PI3z7Vu7sHWfpC5
4i2VXEHtcZ23hPUYWzZg73q5EFR4AJ7/RP6qEirpu1c2yeMgnJ+/31ns1Cn9
d+o2cH7HnuZhf4mxYQzZQr9xtZ/YvEZe00/twJOSm97h8/4esfTIYfBeF3fs
o7ez1GUcYb7OpSnY9zQazFuPQH+P1e3YYhmhExVOML+sm0AplYxT3v0g5xjU
7/61EVs+RUgv6Th2byuyw05dW8e8fxLux+0PvtgayXeu+5+C/TRYFImdv2qn
4rkzcF+qbqdhG8QvqrU/B+ufNS7CpsvUnLc4D/0LDBG2WfRtMX132K+mi5XY
n8TNi9ddxG5S6Yfc+gG/o4QXOD6iGJsp8pFC9Yb1LrqSju1871bK5GU4f8uk
R9hDgqa7en3hPK0o/thut/k4jVeg/ucTR+xpvveRZf6Qy3nrY18JurH5dQCM
LwwRxqZQjLse02B/khhf8f4EX+MNuhMEec0x2D/h3xVKvjfh/Fcon8F+6BtY
7xoMz3tTWRl7+U/SwyYE9mfKpQefj9IkervxHjx/4t1t2K8vXD+6JgzuC/3y
ID5/nYltVNEI6J+TEIxNDpftYUX+fz/ii/H9+Xji2uTXR5BzPc2x9343jK6L
gbz8ZjO+f4e73vWkxcPzWdl9wfe19/DVm9EJsD5J2b3YpzoMVG8lwfz+UvRC
Knmp9a2ny3NYrwmKwvd9fr+f9IEUWO+rcz/x+xDYuLmUSPv/+2dlhR1WW/zf
qlfwPhg2z+ZSSQlzn4zFmdDv5Wlj7Pj3epbzWdCPaxCC37+XqDCWkQf3wTyC
gt/XisJ89YclcN5D/169opIWOl5NtFI4T657TQaVbMzZ6O1eDv3PrOjB3wfm
q9zyPZVwPgLrfuPvx8zT7AMCdTBeiJ/9HJ+XnPvPH/Uw323rb/h7xJOgFT/w
CfbTqef9UyopEps5UNEMeWHGTfw9i5I8fyenFfoHjDvg792KSA2tpDbYr61n
NBOo5DPRiZb7DOgvpTgXTyVVwl75+HfC+resRPh7+T+gJ4dn
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{Rational[-1, 2] Pi, 3 Pi}, {-0.9849566747088829, 
     2.467167748605789}}, {{-1.5707963267948966`, 
    9.42477796076938}, {-0.9849566747088829, 2.467167748605789}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.422605059421875*^9, 3.5150896521007814`*^9}]
}, Open  ]],

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

Cell[CellGroupData[{

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

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQvcppqSbrk/f7GQ7IT1yb9H6/pN69LcGsQD7DX/7a
je/2s3ML3mX2e7ufwWHbC5Z7b/Y/s10XJXjqFZC/i/XSpVf7eeye3+Ppfg5U
75z9Iu75flUXy+yFyx/vZ2iQEFDifrL/bfVb3jel94D8vHXZZ+/tX3c+wOPB
8StAfvkB1vlX9x+M0K3PFzwK1K/yMOXBsf3sMSLGass27gE6rfjw90Z7Bjho
CFYQSrc/BVEPFO/Z4n/1kP1KiHn2DA1HTp6+ftn+A8Q+IN95ZcSku/bKEPcA
1UvWbS59bC8AcS+Qb9FikPrc/gnEP/YMB/LMJ3O9tueE+BeoP6GBr/WtvQQk
PID8dWnpne/toeEF5Lcd4jH4YA8AA02THg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Data\"", TraditionalForm], 
    FormBox["\"Model\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotLabel->FormBox["\"\"", TraditionalForm],
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.4226050594375*^9, 3.515089652127783*^9}]
}, Open  ]],

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

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"12903.819766794215`", "\[VeryThinSpace]", "-", 
  FractionBox["12921.200718527562`", 
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"0.5198320310149803`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.3005224087784759`", " ", "vstup"}]}]]}]], "-", 
  FractionBox["9380.262860075074`", 
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "0.7713280375493181`"}], "+", 
      RowBox[{"0.30429041675919083`", " ", "vstup"}]}]]}]], "-", 
  FractionBox["3315.1262078673494`", 
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "0.016588603498407573`"}], "+", 
      RowBox[{"0.35207414436088874`", " ", "vstup"}]}]]}]]}]], "Output",
 CellChangeTimes->{3.422605059453125*^9, 3.515089652139783*^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.5103896370721855`*^9, 3.5103896898338857`*^9}, {3.5103897460940294`*^9, 
  3.510389777067463*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{995, 762},
WindowMargins->{{Automatic, 5}, {Automatic, 17}},
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, 523, 7, 42, "Subtitle"],
Cell[1093, 31, 309, 4, 25, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1427, 39, 144, 3, 75, "Section"],
Cell[1574, 44, 440, 8, 29, "Text"],
Cell[2017, 54, 181, 4, 41, "Input",
 InitializationCell->True],
Cell[2201, 60, 406, 7, 47, "Text"],
Cell[2610, 69, 213, 5, 41, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[2860, 79, 282, 3, 75, "Section"],
Cell[3145, 84, 207, 4, 29, "Text"],
Cell[3355, 90, 543, 18, 82, "Input"],
Cell[3901, 110, 172, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[4098, 116, 69, 1, 41, "Input"],
Cell[4170, 119, 683, 12, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4890, 136, 69, 1, 41, "Input"],
Cell[4962, 139, 878, 18, 65, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5877, 162, 293, 8, 41, "Input"],
Cell[6173, 172, 818, 19, 242, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7040, 197, 244, 4, 75, "Section"],
Cell[7287, 203, 1032, 15, 65, "Text"],
Cell[8322, 220, 239, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[8586, 229, 339, 7, 41, "Input"],
Cell[8928, 238, 956, 23, 60, "Output"]
}, Open  ]],
Cell[9899, 264, 311, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[10235, 274, 135, 2, 41, "Input"],
Cell[10373, 278, 277, 3, 60, "Output"]
}, Open  ]],
Cell[10665, 284, 355, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[11045, 295, 161, 3, 41, "Input"],
Cell[11209, 300, 2512, 47, 238, "Output"]
}, Open  ]],
Cell[13736, 350, 796, 12, 47, "Text"],
Cell[14535, 364, 460, 8, 29, "Text"],
Cell[CellGroupData[{
Cell[15020, 376, 517, 11, 41, "Input"],
Cell[15540, 389, 1324, 30, 269, "Print"]
}, Open  ]],
Cell[16879, 422, 285, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[17189, 431, 250, 5, 41, "Input"],
Cell[17442, 438, 8811, 149, 238, "Output"]
}, Open  ]],
Cell[26268, 590, 206, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[26499, 598, 387, 11, 41, "Input"],
Cell[26889, 611, 12378, 209, 254, "Output"]
}, Open  ]],
Cell[39282, 823, 414, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[39721, 834, 219, 4, 41, "Input"],
Cell[39943, 840, 919, 21, 263, "Output"]
}, Open  ]],
Cell[40877, 864, 417, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[41319, 875, 136, 4, 41, "Input"],
Cell[41458, 881, 827, 19, 57, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42334, 906, 119, 1, 75, "Section"],
Cell[42456, 909, 567, 10, 47, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)