03-crossvalidation.nb

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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     96776,       2125]
NotebookOptionsPosition[     92133,       1980]
NotebookOutlinePosition[     92752,       2002]
CellTagsIndexPosition[     92709,       1999]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "Kapitola 3 - K\[RHacek]\[IAcute]\[ZHacek]ov\[AAcute] validace\n",
 StyleBox["Demonstrace pou\[ZHacek]it\[IAcute] k\[RHacek]\[IAcute]\[ZHacek]ov\
\[EAcute] validace p\[RHacek]i klasifikov\[AAcute]n\[IAcute] dat.", "Subtitle"]
}], "Title",
 CellChangeTimes->{{3.506788333052947*^9, 3.5067883454315195`*^9}, {
   3.5073590076481843`*^9, 3.507359032449834*^9}, 3.5073599568952236`*^9, {
   3.5073600002592297`*^9, 3.507360001479885*^9}, {3.507360051770771*^9, 
   3.5073600524743605`*^9}, {3.507360282704596*^9, 3.507360287426696*^9}, {
   3.5073607144794245`*^9, 3.5073607224504366`*^9}, {3.5091842641177597`*^9, 
   3.5091842969344263`*^9}, 3.5091845406333723`*^9, {3.5097789653933115`*^9, 
   3.5097790283928113`*^9}, {3.513406957253889*^9, 3.513406961840972*^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["Import dat", "Section",
 CellChangeTimes->{{3.510989111635687*^9, 3.510989113347404*^9}}],

Cell[CellGroupData[{

Cell["Na\[CHacek]ten\[IAcute] dat ze souboru", "Subsection",
 CellChangeTimes->{{3.5109891247753553`*^9, 3.5109891283263063`*^9}}],

Cell["\<\
Nastav\[IAcute]me si pracovn\[IAcute] adres\[AAcute]\[RHacek] na ten, kde m\
\[AAcute]me ulo\[ZHacek]en aktu\[AAcute]ln\[IAcute] notebook.\
\>", "Text",
 CellChangeTimes->{3.510989136085291*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input"],

Cell[BoxData["\<\"D:\\\\Dokumenty\\\\BP\"\>"], "Output",
 CellChangeTimes->{3.5142582288673124`*^9, 3.5142792245173993`*^9, 
  3.515089232445778*^9, 3.51509045510071*^9}]
}, Open  ]],

Cell["A na\[CHacek]teme data.", "Text",
 CellChangeTimes->{{3.5142582065280733`*^9, 3.514258209866479*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Import", "[", "\"\<iris.data\>\"", "]"}]}], ";"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Na\[CHacek]ten\[IAcute] dat z internetu", "Subsection",
 CellChangeTimes->{{3.5109891563973703`*^9, 3.5109891599978275`*^9}}],

Cell["\<\
Jin\[AAcute] mo\[ZHacek]nost je importovat data p\[RHacek]\[IAcute]mo z \
internetu - p\[RHacek]\[IAcute]klad pro UCI datab\[AAcute]zi (stejn\[AAcute] \
data jako p\[RHacek]i na\[CHacek]\[IAcute]t\[AAcute]n\[IAcute] ze souboru, \
jen na\[CHacek]tena p\[RHacek]\[IAcute]mo z internetu.\
\>", "Text",
 CellChangeTimes->{3.510989170526165*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{
   "Import", "[", 
    "\"\<http://ftp.ics.uci.edu/pub/machine-learning-databases/iris/iris.data\
\>\"", "]"}]}], ";"}]], "Input"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["P\[RHacek]\[IAcute]prava tr\[EAcute]novac\[IAcute]ch dat", "Section",
 CellChangeTimes->{{3.507360869997173*^9, 3.507360875055815*^9}}],

Cell["\<\
Provedeme p\[RHacek]edzpracov\[AAcute]n\[IAcute] dat stejn\[YAcute]m \
postupem, jak\[YAcute] je pops\[AAcute]n v kapitole 5 \
Dop\[RHacek]edn\[AAcute] s\[IAcute]\[THacek] a Iris data.\
\>", "Text",
 CellChangeTimes->{{3.5097794184218388`*^9, 3.5097794450567207`*^9}, {
  3.509779483094551*^9, 3.5097794918311605`*^9}, {3.5097800969394994`*^9, 
  3.5097800973405504`*^9}, {3.5150892550540714`*^9, 3.515089255893119*^9}, {
  3.5150904365776505`*^9, 3.515090439644826*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data2", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"data", ",", 
     RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inData", "=", 
   RowBox[{"data2", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", 
      RowBox[{"1", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"outDataTmp", "=", 
   RowBox[{"data2", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "5"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"outVal", "=", 
   RowBox[{
    RowBox[{"Tally", "[", "outDataTmp", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"encode", "=", 
   RowBox[{"MapIndexed", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#1", "->", 
       RowBox[{"Normal", "[", 
        RowBox[{"SparseArray", "[", 
         RowBox[{
          RowBox[{"#2", "\[Rule]", "1"}], ",", 
          RowBox[{"{", 
           RowBox[{"Length", "[", "outVal", "]"}], "}"}]}], "]"}], "]"}]}], 
      "&"}], ",", "outVal"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"outData", "=", 
   RowBox[{
    RowBox[{"Flatten", "[", "outDataTmp", "]"}], "/.", "encode"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.403531300187786*^9, 3.403531305616864*^9}, {
  3.5097795432806935`*^9, 3.5097795637472925`*^9}, {3.5097796073968353`*^9, 
  3.509779607723877*^9}, {3.5097796518664827`*^9, 3.509779654630333*^9}, {
  3.5097796890377026`*^9, 3.5097797016193*^9}}],

Cell["\<\
Data odsahuj\[IAcute] 4 vstupn\[IAcute] parametry, podle kter\[YAcute]ch \
budeme data klasifikovat do t\[RHacek]ech t\[RHacek]\[IAcute]d.\
\>", "Text",
 CellChangeTimes->{{3.5091899511879253`*^9, 3.5091899961536355`*^9}, {
   3.509199898841117*^9, 3.5091999040332766`*^9}, 3.509780075712304*^9, {
   3.5097801142466974`*^9, 3.509780153306157*^9}, {3.509797865768854*^9, 
   3.509797878930025*^9}, {3.51508926621871*^9, 3.5150892668177443`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["K\[RHacek]\[IAcute]\[ZHacek]ov\[AAcute] validace \
(Cross validation)",
 FontWeight->"Bold"]], "Section",
 CellChangeTimes->{{3.507363963934553*^9, 3.507363968614147*^9}, {
  3.5091845043382635`*^9, 3.509184508578802*^9}, {3.509780771880706*^9, 
  3.509780785723464*^9}, {3.509788723794471*^9, 3.5097887242105236`*^9}}],

Cell["\<\
Nejprve si vytvo\[RHacek]\[IAcute]me neuronovou s\[IAcute]\[THacek], kterou \
budeme pomoc\[IAcute] k\[RHacek]\[IAcute]\[ZHacek]ov\[EAcute] validace \
vyhodnocovat.\
\>", "Text",
 CellChangeTimes->{{3.507364306112504*^9, 3.5073643547376785`*^9}, {
   3.50736439199541*^9, 3.507364483879078*^9}, {3.5073675354855824`*^9, 
   3.5073675413523273`*^9}, 3.5073821199755774`*^9, {3.507382157226308*^9, 
   3.5073821575873537`*^9}, {3.509184558199103*^9, 3.509184568014349*^9}, {
   3.509184612875046*^9, 3.5091846397659607`*^9}, {3.509191103275722*^9, 
   3.509191115018713*^9}, {3.5091911934891777`*^9, 3.5091912007325974`*^9}, {
   3.509191231249973*^9, 3.509191234974946*^9}, {3.5096877679125023`*^9, 
   3.50968778089115*^9}, {3.5097809266208553`*^9, 3.5097810285562997`*^9}, {
   3.5097811343027277`*^9, 3.509781148396017*^9}, 3.509797893893426*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"net", "=", 
  RowBox[{"InitializeFeedForwardNet", "[", 
   RowBox[{"inData", ",", "outData", ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2"}], "}"}], ",", 
    RowBox[{"Neuron", "\[Rule]", "Sigmoid"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.509191256344159*^9, 3.509191261831356*^9}, {
   3.5091913993403177`*^9, 3.509191400535469*^9}, {3.509191482896428*^9, 
   3.5091914836660256`*^9}, {3.50919160095642*^9, 3.509191643892872*^9}, 
   3.50919204542586*^9, 3.5091921442304068`*^9, {3.5091922167601166`*^9, 
   3.5091923367058477`*^9}, {3.5091925903585577`*^9, 
   3.5091926076887584`*^9}, {3.509192642242646*^9, 3.5091926530785217`*^9}, {
   3.509193000722167*^9, 3.509193011669057*^9}, {3.50920564006566*^9, 
   3.509205640229181*^9}, {3.5092058818638644`*^9, 3.5092058963987103`*^9}, {
   3.50920757424677*^9, 3.5092075777207108`*^9}, {3.5092779277214518`*^9, 
   3.509277942343134*^9}, {3.509277987308288*^9, 3.509277988532878*^9}, {
   3.5092786715824833`*^9, 3.5092786771222887`*^9}, {3.5096877907318993`*^9, 
   3.5096877922015867`*^9}, {3.509688207947379*^9, 3.509688209806115*^9}, {
   3.50968848932661*^9, 3.509688497113099*^9}, {3.509690335190505*^9, 
   3.5096903353445244`*^9}, {3.5096903837846756`*^9, 
   3.5096903840697117`*^9}, {3.5096906095128393`*^9, 3.509690609957896*^9}, {
   3.5096906970034494`*^9, 3.5096906972004747`*^9}, {3.50969083340427*^9, 
   3.509690833914335*^9}, {3.5096909902561874`*^9, 3.509690990387204*^9}, {
   3.5096911023989277`*^9, 3.509691127413104*^9}, {3.509691254811782*^9, 
   3.509691255876417*^9}, {3.5096933312234526`*^9, 3.5096933450757117`*^9}, {
   3.509693379604596*^9, 3.509693379823624*^9}, {3.5096936959812713`*^9, 
   3.509693764512974*^9}, {3.509693813106644*^9, 3.509693870695957*^9}, {
   3.5096939081502132`*^9, 3.5096939113861237`*^9}, {3.509696388655197*^9, 
   3.509696400472698*^9}, {3.5096964375079007`*^9, 3.509696439910206*^9}, {
   3.5096968569091578`*^9, 3.5096968574407253`*^9}, {3.5096993562770376`*^9, 
   3.509699370261813*^9}, {3.509699412732706*^9, 3.5096994130482464`*^9}, {
   3.509704934632899*^9, 3.509704980926777*^9}, 3.5097050997768693`*^9, {
   3.509705198896956*^9, 3.5097052110374975`*^9}, {3.5097053959054728`*^9, 
   3.50970539651005*^9}, {3.509705445443263*^9, 3.5097054753465605`*^9}, {
   3.509705608234435*^9, 3.5097056102771945`*^9}, {3.5097064348223987`*^9, 
   3.5097064647727017`*^9}, {3.509706834665172*^9, 3.509706864152917*^9}, {
   3.509707115691358*^9, 3.5097071406805315`*^9}, {3.5097071823298197`*^9, 
   3.5097072072969904`*^9}, {3.509707969999841*^9, 3.509707980566183*^9}, {
   3.509708073681507*^9, 3.5097080737960215`*^9}, {3.509781041719471*^9, 
   3.5097811021181407`*^9}, {3.5097855822190413`*^9, 3.509785622402644*^9}, {
   3.509785786049925*^9, 3.5097857861764407`*^9}, {3.509785855928298*^9, 
   3.5097858787812*^9}, {3.50979072490908*^9, 3.509790724978589*^9}, {
   3.5097907570251584`*^9, 3.509790758760379*^9}, {3.5097976428060417`*^9, 
   3.5097976674961767`*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[
   RowBox[{"FeedForwardNet", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Neuron", " ", "\[Rule]", " ", "Sigmoid"}], ",", " ", 
       RowBox[{"FixedParameters", " ", "\[Rule]", " ", "None"}], ",", " ", 
       RowBox[{"AccumulatedIterations", " ", "\[Rule]", " ", "0"}], ",", " ", 
       RowBox[{"CreationDate", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
         "2011", ",", " ", "5", ",", " ", "23", ",", " ", "0", ",", " ", "0", 
          ",", " ", "55.8577533`9.499658302751506"}], "}"}]}], ",", " ", 
       RowBox[{"OutputNonlinearity", " ", "\[Rule]", " ", "None"}], ",", " ", 
       RowBox[{"NumberOfInputs", " ", "\[Rule]", " ", "4"}]}], "}"}]}], "]"}],
   Null,
   Editable->False],
  DisplayForm]], "Output",
 CellChangeTimes->{{3.5097070150070724`*^9, 3.509707036545808*^9}, {
   3.509707075608268*^9, 3.5097072084061313`*^9}, {3.5097072520501733`*^9, 
   3.509707267816675*^9}, 3.509707520703288*^9, 3.5097075769924355`*^9, {
   3.5097076072017717`*^9, 3.509707635899416*^9}, 3.5097076958715315`*^9, {
   3.509707730185889*^9, 3.509707758434476*^9}, 3.5097077978454804`*^9, 
   3.509707841614538*^9, {3.5097078727464914`*^9, 3.5097079280740175`*^9}, {
   3.5097079592579775`*^9, 3.509708021388867*^9}, {3.5097080578089914`*^9, 
   3.509708081776535*^9}, 3.5097081185567055`*^9, 3.509708150701788*^9, 
   3.5097082078820486`*^9, 3.509708261811897*^9, {3.5097083225181055`*^9, 
   3.5097083743616886`*^9}, 3.5097084195919323`*^9, 3.509708450105307*^9, {
   3.509708496916751*^9, 3.5097085225830107`*^9}, 3.509708560641343*^9, 
   3.5097085938845644`*^9, 3.509708626071652*^9, 3.509708661194612*^9, {
   3.5097086912899337`*^9, 3.5097087470925198`*^9}, {3.5097088542006207`*^9, 
   3.509708881641105*^9}, 3.5097089120499663`*^9, 3.5097089502243137`*^9, 
   3.5097090251643305`*^9, 3.509709072167799*^9, 3.509709121053006*^9, {
   3.5097092010756683`*^9, 3.5097093894195848`*^9}, 3.509709440011509*^9, 
   3.5097094719620667`*^9, {3.5097095140244074`*^9, 3.509709540628286*^9}, 
   3.509709584360839*^9, 3.509709651013303*^9, 3.5097096810721197`*^9, 
   3.509709714768899*^9, 3.509709753638835*^9, {3.509709804286766*^9, 
   3.509709829952525*^9}, 3.509709875785345*^9, 3.5097099120779543`*^9, {
   3.509709944775606*^9, 3.509709970972933*^9}, 3.5097100916412554`*^9, 
   3.509710134049141*^9, 3.5097102005115805`*^9, {3.509710238196866*^9, 
   3.5097102652332993`*^9}, {3.509710295850187*^9, 3.509710405132064*^9}, 
   3.5097104794590025`*^9, 3.5097105122666683`*^9, {3.5097105488493137`*^9, 
   3.509710577699477*^9}, {3.5097106126219115`*^9, 3.5097106621216974`*^9}, 
   3.5097107044855766`*^9, {3.5097107675920906`*^9, 3.5097107972588577`*^9}, 
   3.509710829610466*^9, 3.5097108616770377`*^9, {3.5097109047275047`*^9, 
   3.5097109332346244`*^9}, 3.5097109635519743`*^9, {3.509710996065603*^9, 
   3.5097110496564083`*^9}, 3.509711130642192*^9, 3.5097111712123437`*^9, 
   3.5097112226573763`*^9, 3.509711254574929*^9, {3.5097112895133657`*^9, 
   3.5097113146780615`*^9}, {3.5097113562043347`*^9, 3.509711415037306*^9}, 
   3.509711461544711*^9, {3.5097115159621215`*^9, 3.5097115974959745`*^9}, 
   3.5097116275892963`*^9, 3.5097116618806505`*^9, {3.5097810917253213`*^9, 
   3.509781102804728*^9}, 3.509785586508586*^9, 3.509785624727439*^9, 
   3.5097857877131357`*^9, {3.5097858590922*^9, 3.5097858803388977`*^9}, 
   3.5097967889346137`*^9, 3.509797002051676*^9, 3.5097973381108503`*^9, 
   3.5097974918338704`*^9, 3.509797669404919*^9, 3.5097980163114705`*^9, 
   3.5098000864328423`*^9, 3.5098023107913003`*^9, 3.5103850039673557`*^9, 
   3.5103860869813814`*^9, 3.510386172793278*^9, {3.51038627274247*^9, 
   3.5103862896616187`*^9}, 3.51038685147596*^9, 3.5103874518752007`*^9, 
   3.514258239459731*^9, 3.514279228587632*^9, 3.515089234188878*^9, 
   3.5150904558607535`*^9}]
}, Open  ]],

Cell["\<\
M\[URing]\[ZHacek]eme si zobrazit informace o s\[IAcute]ti.\
\>", "Text",
 CellChangeTimes->{{3.5091916569450293`*^9, 3.509191694743829*^9}, {
  3.5097977959064827`*^9, 3.5097978086165967`*^9}, {3.50979789833749*^9, 
  3.509797900921818*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NetInformation", "[", "net", "]"}]], "Input",
 CellChangeTimes->{{3.509191700853605*^9, 3.5091917111199083`*^9}}],

Cell[BoxData["\<\"FeedForward network created 2011-5-23 at 0:00. The network \
has 4 inputs and 3 outputs. It consists of 2 hidden layers with number of \
neurons per layer given by {3, 2}. The neuron activation function is of \
Sigmoid type. \"\>"], "Output",
 CellChangeTimes->{
  3.509615612045724*^9, 3.509687826351923*^9, 3.509687923791796*^9, 
   3.50968811825749*^9, 3.5096882143506927`*^9, 3.5096892871979265`*^9, 
   3.509691513325109*^9, 3.5096917406259727`*^9, 3.50969264150587*^9, 
   3.5096928882577033`*^9, 3.509693351727556*^9, 3.50969377582841*^9, 
   3.5096938654742937`*^9, 3.5096939162427406`*^9, 3.509694437422922*^9, 
   3.509694478207101*^9, 3.509694543554899*^9, 3.509694584321076*^9, 
   3.509694676105731*^9, 3.5096948921516657`*^9, 3.5096949419439883`*^9, {
   3.509695012684471*^9, 3.509695036966055*^9}, 3.509695072788103*^9, 
   3.5096951537918897`*^9, 3.509695237550026*^9, 3.5096957876993856`*^9, 
   3.5096962597208247`*^9, 3.509696293900165*^9, {3.509696377074227*^9, 
   3.5096964417889442`*^9}, {3.5096965370775447`*^9, 3.509696565430645*^9}, {
   3.509696637044239*^9, 3.5096966908990774`*^9}, 3.5096967388931723`*^9, {
   3.509696792262449*^9, 3.5096968635369997`*^9}, 3.5096968965186877`*^9, 
   3.5096969309780636`*^9, 3.5096969749921527`*^9, 3.5096970170194893`*^9, 
   3.5096978847156725`*^9, 3.5096979371608324`*^9, 3.509699049553088*^9, 
   3.5096993235403805`*^9, {3.509699371990533*^9, 3.50969938834861*^9}, 
   3.509699455988699*^9, 3.509699503158689*^9, 3.5096995426157*^9, 
   3.5096995892086163`*^9, 3.509699661597308*^9, 3.509699722910594*^9, 
   3.5096997986777153`*^9, 3.5096998387703066`*^9, 3.509699868974642*^9, 
   3.5097006235764637`*^9, 3.50970068811716*^9, 3.5097008232208157`*^9, 
   3.509700893633757*^9, 3.509701066530212*^9, 3.5097011791215096`*^9, 
   3.5097012130613194`*^9, 3.509701284825432*^9, 3.5097013504822693`*^9, 
   3.5097037344064894`*^9, 3.5097037677412224`*^9, 3.509703888654076*^9, 
   3.5097039990800986`*^9, 3.509704311681294*^9, 3.5097045888009834`*^9, 
   3.5097046297036777`*^9, 3.5097053279753466`*^9, 3.5097053708777947`*^9, 
   3.509705404727093*^9, 3.509705478549467*^9, {3.509705602831249*^9, 
   3.5097056315078907`*^9}, 3.509705662052769*^9, 3.509705821742547*^9, 
   3.5097058560073986`*^9, 3.5097059017117023`*^9, {3.5097059557455635`*^9, 
   3.5097059803631897`*^9}, 3.509706057023424*^9, {3.509706248140193*^9, 
   3.509706277468917*^9}, {3.5097063564754496`*^9, 3.5097063808090396`*^9}, {
   3.5097064299052744`*^9, 3.5097064531487255`*^9}, 3.509706499996175*^9, 
   3.5097065993347893`*^9, 3.5097066547083206`*^9, 3.5097068363438854`*^9, {
   3.5097069944129577`*^9, 3.509707097413537*^9}, 3.5097071435879*^9, 
   3.5097072678571806`*^9, 3.5097075207472935`*^9, 3.5097075770239396`*^9, {
   3.509707607237276*^9, 3.509707635938421*^9}, 3.509707695908036*^9, {
   3.5097077302143927`*^9, 3.5097077584709806`*^9}, 3.5097077978834853`*^9, 
   3.5097078416400414`*^9, {3.509707872785997*^9, 3.5097079280975204`*^9}, {
   3.509707959286481*^9, 3.509708021420871*^9}, {3.509708057838996*^9, 
   3.5097080818070393`*^9}, 3.5097081185837092`*^9, 3.5097081507312913`*^9, 
   3.5097082079125524`*^9, 3.5097082618409004`*^9, {3.50970832255661*^9, 
   3.5097083744001937`*^9}, 3.509708419628437*^9, 3.5097084501493125`*^9, {
   3.509708496947755*^9, 3.509708522619015*^9}, 3.5097085606728473`*^9, 
   3.509708593919569*^9, 3.509708626102656*^9, 3.509708661228116*^9, {
   3.509708691325438*^9, 3.509708747150027*^9}, {3.509708854230624*^9, 
   3.5097088816726093`*^9}, 3.5097089120864716`*^9, 3.5097089502523174`*^9, 
   3.509709025194334*^9, 3.509709072198803*^9, 3.509709121090011*^9, {
   3.5097092011101723`*^9, 3.509709389454089*^9}, 3.5097094400435133`*^9, 
   3.50970947198907*^9, {3.509709514053911*^9, 3.5097095406592894`*^9}, 
   3.509709584383842*^9, 3.509709651046307*^9, 3.5097096810996237`*^9, 
   3.509709714794902*^9, 3.5097097536658382`*^9, {3.509709804322271*^9, 
   3.509709829981529*^9}, 3.5097098758103485`*^9, 3.5097099121129584`*^9, {
   3.5097099448056097`*^9, 3.509709971006937*^9}, 3.50971009167776*^9, 
   3.509710134077144*^9, 3.5097102005385838`*^9, {3.5097102382278695`*^9, 
   3.5097102652673035`*^9}, {3.509710295882691*^9, 3.509710405156567*^9}, 
   3.509710479496007*^9, 3.509710512295672*^9, {3.5097105488808174`*^9, 
   3.5097105777244806`*^9}, {3.509710612650915*^9, 3.509710662151701*^9}, 
   3.5097107045180807`*^9, {3.5097107676265945`*^9, 3.509710797292362*^9}, 
   3.50971082964547*^9, 3.5097108617105417`*^9, {3.5097109047600083`*^9, 
   3.5097109332641277`*^9}, 3.5097109635774775`*^9, {3.509710996091106*^9, 
   3.509711049682411*^9}, 3.5097111306721954`*^9, 3.509711171245348*^9, 
   3.509711222690881*^9, 3.5097112546039333`*^9, {3.5097112895463705`*^9, 
   3.509711314706565*^9}, {3.509711356238339*^9, 3.509711415066809*^9}, 
   3.5097114615692143`*^9, {3.5097115159936256`*^9, 3.509711597530979*^9}, 
   3.509711627624301*^9, 3.509711661906654*^9, 3.509781112525462*^9, 
   3.5097856285544252`*^9, {3.5097858448043857`*^9, 3.5097858615755153`*^9}, 
   3.509796789091634*^9, 3.5097970022442007`*^9, 3.5097974918668747`*^9, 
   3.509797906733056*^9, 3.5097980165079956`*^9, 3.5098000864633465`*^9, 
   3.5098023109673223`*^9, 3.5103850040033607`*^9, 3.5103860870123854`*^9, 
   3.5103861728292828`*^9, {3.5103862727724743`*^9, 3.5103862896956224`*^9}, 
   3.5103868515434685`*^9, 3.510387451908705*^9, 3.514258242267736*^9, 
   3.514279228677637*^9, 3.515089234209879*^9, 3.5150904558757544`*^9}]
}, Open  ]],

Cell["\<\
Rozhodneme  se kolikastup\[NHacek]ovou k\[RHacek]\[IAcute]\[ZHacek]ovou \
validaci provedeme (na kolik \[CHacek]\[AAcute]st\[IAcute] (fold\[URing]) \
rozd\[EHacek]l\[IAcute]me tr\[EAcute]novac\[IAcute] data).\
\>", "Text",
 CellChangeTimes->{{3.509193140000353*^9, 3.5091931557753563`*^9}, 
   3.509193215716468*^9, {3.5097981857794905`*^9, 3.5097981900425315`*^9}, {
   3.509798228417905*^9, 3.50979825058422*^9}, {3.5097982850846004`*^9, 
   3.5097983407506695`*^9}, {3.509799481824067*^9, 3.50979949665495*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"folds", " ", "=", " ", "15"}], ";"}]], "Input"],

Cell["\<\
Zjist\[IAcute]me kolik m\[AAcute]me tr\[EAcute]novac\[IAcute]ch dat, podle \
toho ur\[CHacek]\[IAcute]me jak\[EAcute] mno\[ZHacek]stv\[IAcute] dat bude \
obsahovat jeden fold.\
\>", "Text",
 CellChangeTimes->{{3.5097984557662745`*^9, 3.5097984721103497`*^9}, {
  3.5097985172060757`*^9, 3.509798594613906*^9}, {3.509798839207465*^9, 
  3.509798850059843*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vectors", " ", "=", " ", 
   RowBox[{"Take", "[", 
    RowBox[{
     RowBox[{"Dimensions", "[", "inData", "]"}], ",", " ", "1"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"vectorsInFold", " ", "=", " ", 
   RowBox[{"IntegerPart", "[", 
    RowBox[{"vectors", "/", "folds"}], "]"}]}], ";"}]}], "Input"],

Cell["\<\
Spoj\[IAcute]me tr\[EAcute]novac\[IAcute] a testovac\[IAcute] data do jedn\
\[EAcute] mno\[ZHacek]iny a na t\[EAcute]to mno\[ZHacek]in\[EHacek] provedeme \
permutaci (zam\[IAcute]ch\[AAcute]me po\[RHacek]ad\[IAcute]). Za \
prvn\[IAcute] fold prohl\[AAcute]s\[IAcute]me data s indexy 1 a\[ZHacek] \
\[OpenCurlyDoubleQuote]velikost fodu\[CloseCurlyDoubleQuote],  za druh\
\[YAcute] fold data s indexy \[OpenCurlyDoubleQuote]velikost foldu + 1\
\[CloseCurlyDoubleQuote] a\[ZHacek] \[OpenCurlyDoubleQuote]2 * velikost foldu\
\[CloseCurlyDoubleQuote]... D\[IAcute]ky permutaci jsou data v t\[EHacek]chto \
foldech n\[AAcute]hodn\[AAcute].\
\>", "Text",
 CellChangeTimes->{{3.509798882669484*^9, 3.5097988895973635`*^9}, {
   3.5097989457654963`*^9, 3.5097989979691253`*^9}, {3.5097990397304287`*^9, 
   3.509799222609651*^9}, 3.5097992791743336`*^9, {3.5097993113719225`*^9, 
   3.5097994072600985`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"completeData", " ", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{"inData", ",", " ", "outData", ",", " ", "2"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"completeData", " ", "=", " ", 
   RowBox[{"RandomSample", "[", "completeData", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.509798914640044*^9, 3.5097989161887407`*^9}, 
   3.5097994203622627`*^9, 3.5097995856217475`*^9}],

Cell["\<\
Nyn\[IAcute] p\[RHacek]istoup\[IAcute]me k samotn\[EAcute] \
k\[RHacek]\[IAcute]\[ZHacek]ov\[EAcute] validaci. V prvn\[IAcute]m \
b\[EHacek]hu pou\[ZHacek]ijeme prvn\[IAcute] fold jako valida\[CHacek]n\
\[IAcute] mno\[ZHacek]inu a ostatn\[IAcute] data jako tr\[EAcute]novac\
\[IAcute], v druh\[EAcute]m b\[EHacek]hu pou\[ZHacek]ijeme druh\[YAcute] fold \
jako valida\[CHacek]n\[IAcute] mno\[ZHacek]inu a ostatn\[IAcute] data jako tr\
\[EAcute]novac\[IAcute]. Tatko budeme pokra\[CHacek]ovat dokud \
nevy\[CHacek]erp\[AAcute]me v\[SHacek]echny foldy. V pr\[URing]b\[EHacek]hu k\
\[RHacek]\[IAcute]\[ZHacek]ov\[EAcute] validace si budeme udr\[ZHacek]ovat \
informace o nejlep\[SHacek]\[IAcute]m, nejhor\[SHacek]\[IAcute]m a \
pr\[URing]m\[EHacek]rn\[EAcute]m v\[YAcute]sledku s\[IAcute]t\[EHacek].\
\>", "Text",
 CellChangeTimes->{{3.5097994617800217`*^9, 3.5097994714402485`*^9}, {
  3.5097995181316776`*^9, 3.5097997931020947`*^9}}],

Cell["\<\
U\[CHacek]en\[IAcute] neuronov\[EAcute] s\[IAcute]t\[EHacek] s \
valida\[CHacek]n\[IAcute] mno\[ZHacek]inou prob\[IAcute]h\[AAcute], dokud se \
v\[YAcute]sledky s\[IAcute]t\[EHacek] na valida\[CHacek]n\[IAcute] mno\
\[ZHacek]in\[EHacek] zlep\[SHacek]uj\[IAcute]. Pokud by se za\[CHacek]aly \
zhor\[SHacek]ovat, je u\[CHacek]en\[IAcute] p\[RHacek]eru\[SHacek]eno a \
zobrazena hl\[AAcute]\[SHacek]ka NeuralFit::StoppedSearch. Pokud nehccete \
tuto h\[AAcute]\[SHacek]ku zobrazovat, m\[URing]\[ZHacek]ete jej\[IAcute] \
zobrazen\[IAcute] vypnout.\
\>", "Text",
 CellChangeTimes->{{3.509799937013869*^9, 3.509800053709687*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Off", "[", 
   StyleBox[
    RowBox[{"NeuralFit", "::", "StoppedSearch"}], "MessageName"], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5098000716589665`*^9, 3.509800078148791*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"best", " ", "=", " ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"worst", " ", "=", " ", "0"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"results", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
   RowBox[{"i", " ", "<=", " ", "folds"}], ",", " ", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"(*", 
    RowBox[{"kod", " ", "jednoho", " ", "kola", " ", "krossvalidace"}], 
    "*)"}], "\n", " ", 
   RowBox[{
    RowBox[{"validationData", " ", "=", " ", 
     RowBox[{"completeData", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", 
          RowBox[{"vectorsInFold", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], " ", ";;", " ", 
        RowBox[{"i", "*", 
         RowBox[{"vectorsInFold", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], "]"}]}], ";", "\n", " ", 
    RowBox[{"learnData", " ", "=", " ", 
     RowBox[{"Drop", "[", 
      RowBox[{"completeData", ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", " ", "+", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", 
           RowBox[{"vectorsInFold", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}]}], ",", " ", 
         RowBox[{"i", "*", 
          RowBox[{"vectorsInFold", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}]}], ";", "\n", 
    " ", 
    RowBox[{"validationDataIn", " ", "=", " ", 
     RowBox[{"validationData", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"1", " ", ";;", " ", "4"}]}], "]"}], "]"}]}], ";", "\n", " ", 
    RowBox[{"validationDataOut", " ", "=", " ", 
     RowBox[{"validationData", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"5", " ", ";;", " ", "7"}]}], "]"}], "]"}]}], ";", "\n", " ", 
    RowBox[{"learnDataIn", " ", "=", " ", 
     RowBox[{"learnData", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"1", " ", ";;", " ", "4"}]}], "]"}], "]"}]}], ";", "\n", " ", 
    RowBox[{"learnDataOut", " ", "=", " ", 
     RowBox[{"learnData", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"5", " ", ";;", " ", "7"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"net", "=", 
     RowBox[{"InitializeFeedForwardNet", "[", 
      RowBox[{"inData", ",", "outData", ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "2"}], "}"}], ",", 
       RowBox[{"Neuron", "\[Rule]", "Sigmoid"}]}], "]"}]}], ";", "\n", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"net2", ",", " ", "record"}], "}"}], " ", "=", " ", 
     RowBox[{"NeuralFit", "[", 
      RowBox[{
      "net", ",", " ", "learnDataIn", ",", " ", "learnDataOut", ",", " ", 
       "validationDataIn", ",", " ", "validationDataOut", ",", " ", 
       RowBox[{"CriterionLog", " ", "->", " ", "False"}], ",", " ", 
       RowBox[{"CriterionPlot", " ", "->", " ", "False"}]}], "]"}]}], ";", 
    "\n", " ", 
    RowBox[{"current", " ", "=", " ", 
     RowBox[{"Take", "[", 
      RowBox[{
       RowBox[{"CriterionValidationValues", " ", "/.", " ", 
        RowBox[{"record", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", " ", 
       RowBox[{"-", "1"}]}], "]"}]}], ";", "\n", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"current", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "<", " ", "best"}], ",", " ", 
      RowBox[{"best", " ", "=", " ", 
       RowBox[{"current", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
      RowBox[{"best", " ", "=", " ", "best"}]}], "]"}], ";", "\n", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"current", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", ">", " ", "worst"}], ",", " ", 
      RowBox[{"worst", " ", "=", " ", 
       RowBox[{"current", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
      RowBox[{"worst", " ", "=", " ", "worst"}]}], "]"}], ";", "\n", 
    RowBox[{"sum", " ", "=", " ", 
     RowBox[{"sum", " ", "+", " ", "current"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"results", ",", 
      RowBox[{"current", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\n", " ", 
    RowBox[{"Print", "[", 
     RowBox[{
      RowBox[{"i", " ", "\"\<. fold = \>\""}], ",", " ", 
      RowBox[{"current", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";"}]}], "\n", " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"BoxWhiskerChart", "[", "results", "]"}]}], "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.5091933458404913`*^9, 
   3.5091933777705464`*^9}, {3.509687839386578*^9, 3.509687842057917*^9}, {
   3.5096885560995893`*^9, 3.5096885834615636`*^9}, {3.509688859308592*^9, 
   3.509688859467112*^9}, {3.5096891712822075`*^9, 3.5096891722868347`*^9}, 
   3.5096892923070755`*^9, {3.5096893864515305`*^9, 3.5096893875016637`*^9}, 
   3.509689798970914*^9, 3.509690125930932*^9, {3.509690418275055*^9, 
   3.5096904354877415`*^9}, {3.509690495438854*^9, 3.5096904980521855`*^9}, {
   3.5096915466578417`*^9, 3.5096915467213497`*^9}, {3.5096927172384863`*^9, 
   3.5096927210909758`*^9}, {3.5096928750440254`*^9, 
   3.5096928763131866`*^9}, {3.5096931677046885`*^9, 3.509693170441036*^9}, {
   3.5096932022355733`*^9, 3.509693238696203*^9}, {3.5096932933101387`*^9, 
   3.5096932964390354`*^9}, {3.5096934656915283`*^9, 3.509693466055074*^9}, {
   3.5097012028290195`*^9, 3.5097012029675374`*^9}, {3.5097058497706065`*^9, 
   3.5097058532035427`*^9}, {3.5097059102172823`*^9, 
   3.5097059122505407`*^9}, {3.509706368089925*^9, 3.5097064273394485`*^9}, 
   3.5097812643472414`*^9, {3.509781323266223*^9, 3.5097813302781134`*^9}, {
   3.509781394781804*^9, 3.509781426366815*^9}, {3.5097821172780495`*^9, 
   3.5097821460272007`*^9}, {3.509782199072936*^9, 3.50978232541848*^9}, {
   3.5097824322045403`*^9, 3.5097824512744617`*^9}, {3.509782515119069*^9, 
   3.509782516135198*^9}, {3.5097825793092203`*^9, 3.509782589080961*^9}, {
   3.509782622195166*^9, 3.5097826710743732`*^9}, {3.5097828897131367`*^9, 
   3.5097829048740616`*^9}, {3.509782964353615*^9, 3.509782967143469*^9}, {
   3.5097830319737015`*^9, 3.5097830368483205`*^9}, {3.5097831339486504`*^9, 
   3.5097832025958676`*^9}, {3.5097832488707438`*^9, 
   3.5097832794856315`*^9}, {3.5097835854839883`*^9, 
   3.5097836109852266`*^9}, {3.509783676053489*^9, 3.5097836844110503`*^9}, {
   3.5097837515865803`*^9, 3.5097839326020665`*^9}, {3.5097847874106135`*^9, 
   3.5097848107010713`*^9}, 3.509784863497775*^9, {3.5097849048285236`*^9, 
   3.5097849068492804`*^9}, {3.5097849916870537`*^9, 
   3.5097850865586004`*^9}, {3.50978520688188*^9, 3.5097852402116117`*^9}, {
   3.5097852719681444`*^9, 3.5097854057641344`*^9}, {3.5097854461072574`*^9, 
   3.5097854463812923`*^9}, {3.5097854772787156`*^9, 3.509785488300115*^9}, {
   3.5097855521007166`*^9, 3.5097855526342845`*^9}, {3.509785756946229*^9, 
   3.5097857649952507`*^9}, {3.50978580837426*^9, 3.509785808875823*^9}, {
   3.5097858393241897`*^9, 3.5097858400717845`*^9}, {3.509786063822697*^9, 
   3.5097860877657375`*^9}, {3.509786180462509*^9, 3.509786297961429*^9}, 
   3.509786351154184*^9, 3.50978642097705*^9, {3.509786453191641*^9, 
   3.5097864802465763`*^9}, {3.509786561980955*^9, 3.509786573168376*^9}, {
   3.5097866864912663`*^9, 3.5097866945032835`*^9}, {3.5097867312324476`*^9, 
   3.509786740167082*^9}, {3.509786778034891*^9, 3.5097867922001896`*^9}, {
   3.5097869198689013`*^9, 3.5097869289215508`*^9}, {3.5097869761350465`*^9, 
   3.50978709476311*^9}, {3.509787163018277*^9, 3.509787192812061*^9}, {
   3.509787233149683*^9, 3.509787259923083*^9}, {3.5097873001311884`*^9, 
   3.5097873118091717`*^9}, 3.509787369876545*^9, {3.5097874258006463`*^9, 
   3.509787469322673*^9}, {3.5097875613073535`*^9, 3.5097875879312344`*^9}, {
   3.509787620645889*^9, 3.5097876316207824`*^9}, {3.509787670052663*^9, 
   3.5097877031438646`*^9}, {3.5097877726946964`*^9, 3.509787839596692*^9}, 
   3.5097882285725856`*^9, {3.5097882759045963`*^9, 3.5097883122127066`*^9}, {
   3.509788364325824*^9, 3.50978836996404*^9}, {3.50978844934312*^9, 
   3.5097884509468236`*^9}, {3.509788491182433*^9, 3.5097885734973855`*^9}, {
   3.5097886423896337`*^9, 3.5097886940561943`*^9}, {3.509788766180353*^9, 
   3.509788838538041*^9}, {3.5097888740005445`*^9, 3.5097889974137163`*^9}, {
   3.509789038489932*^9, 3.509789106953126*^9}, {3.509789140400373*^9, 
   3.509789153615551*^9}, {3.509789257075689*^9, 3.5097892690477095`*^9}, {
   3.509789332581777*^9, 3.5097896261130505`*^9}, {3.5097896682759047`*^9, 
   3.5097896684534273`*^9}, {3.5097897758530655`*^9, 3.509789813076292*^9}, {
   3.5097898482342567`*^9, 3.5097898921673355`*^9}, {3.5097899295280795`*^9, 
   3.5097899314203196`*^9}, {3.509789961814679*^9, 3.5097899739102154`*^9}, {
   3.5097900590320244`*^9, 3.509790148560893*^9}, {3.509790679726843*^9, 
   3.5097906843014235`*^9}, {3.5097907681220675`*^9, 
   3.5097907706118836`*^9}, {3.5097908499844627`*^9, 3.509790860396785*^9}, {
   3.5097967711463547`*^9, 3.5097967722464943`*^9}, {3.5097968507544637`*^9, 
   3.509796910523053*^9}, {3.5097969671622458`*^9, 3.509796967755821*^9}, {
   3.509797066416849*^9, 3.5097971170672812`*^9}, {3.5097972491970596`*^9, 
   3.5097972777736883`*^9}, {3.5097973341148424`*^9, 3.509797373997407*^9}, {
   3.5097974102035046`*^9, 3.509797430333561*^9}, {3.5097974631472273`*^9, 
   3.509797486175152*^9}, {3.509797958630146*^9, 3.50979799126379*^9}, {
   3.5097980573276787`*^9, 3.5097980583863134`*^9}, {3.5097981453648586`*^9, 
   3.5097981584175158`*^9}, 3.5097983467394295`*^9, {3.5097988676540775`*^9, 
   3.509798868256154*^9}, {3.5097994191531086`*^9, 3.509799423680684*^9}, {
   3.509799835183938*^9, 3.5097998424908657`*^9}, 3.509800104077083*^9, {
   3.5098001794926596`*^9, 3.509800187502177*^9}, {3.510385029348079*^9, 
   3.5103850673003983`*^9}, {3.5103851500914116`*^9, 3.510385188281261*^9}, {
   3.510385246983715*^9, 3.510385271809868*^9}, {3.5103853233419113`*^9, 
   3.5103853534712377`*^9}, {3.510385521529578*^9, 3.510385523158285*^9}, {
   3.510385584450568*^9, 3.5103856245936656`*^9}, {3.5103856739819374`*^9, 
   3.510385674617518*^9}, {3.5103859674667053`*^9, 3.510385968410325*^9}, {
   3.5103860419901686`*^9, 3.5103860694056497`*^9}, {3.510386154527959*^9, 
   3.5103861548234963`*^9}, {3.510386267590316*^9, 3.51038627778111*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\". fold = \"\>", "\[InvisibleSpace]", "0.24504952066042424`"}],
  SequenceForm[". fold = ", 0.24504952066042424`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.515090456432786*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"2", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.2618106579091806`"}],
  SequenceForm[2 ". fold = ", 0.2618106579091806],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.5150904568848124`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"3", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.031377168276253385`"}],
  SequenceForm[3 ". fold = ", 0.031377168276253385`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.5150904573738403`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"4", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.02205422804483828`"}],
  SequenceForm[4 ". fold = ", 0.02205422804483828],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.5150904579108706`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"5", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.04691124178333198`"}],
  SequenceForm[5 ". fold = ", 0.04691124178333198],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.515090458749919*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"6", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.25971376462624`"}],
  SequenceForm[6 ". fold = ", 0.25971376462624],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.515090458997933*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"7", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.004892971033746655`"}],
  SequenceForm[7 ". fold = ", 0.004892971033746655],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.5150904594059563`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"8", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.22070023559076424`"}],
  SequenceForm[8 ". fold = ", 0.22070023559076424`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.515090460734032*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"9", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.0048091581592354625`"}],
  SequenceForm[9 ". fold = ", 0.0048091581592354625`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.5150904607360325`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"10", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.10840672886796228`"}],
  SequenceForm[10 ". fold = ", 0.10840672886796228`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.5150904608400383`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"11", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.006510531777333068`"}],
  SequenceForm[11 ". fold = ", 0.006510531777333068],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.5150904613270664`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"12", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.023902029419495763`"}],
  SequenceForm[12 ". fold = ", 0.023902029419495763`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.5150904617860923`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"13", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.006829636543754076`"}],
  SequenceForm[13 ". fold = ", 0.006829636543754076],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.515090462304122*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"14", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.06533025741618223`"}],
  SequenceForm[14 ". fold = ", 0.06533025741618223],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.5150904628131514`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"15", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.008024303429270107`"}],
  SequenceForm[15 ". fold = ", 0.008024303429270107],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098000872919517`*^9, 3.509800183686692*^9, 3.5098023118239317`*^9, 
   3.51038500486497*^9, 3.510385077589705*^9, 3.5103851680236883`*^9, 
   3.5103852743671923`*^9, {3.51038532962871*^9, 3.5103853550259347`*^9}, 
   3.510385450027999*^9, 3.51038552539907*^9, 3.5103856265289116`*^9, 
   3.5103856768993073`*^9, 3.5103859768829007`*^9, 3.5103860880640187`*^9, 
   3.510386173619383*^9, {3.5103862742021556`*^9, 3.5103862905977373`*^9}, 
   3.5103868523465705`*^9, 3.5103874528388233`*^9, 3.5142582693181834`*^9, 
   3.5142792292376695`*^9, 3.515089234876917*^9, 3.51509046331818*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], 
    PointBox[{{0.4163731656936597, -0.008040916828261798}, {
     1.5836268343063402`, 0.27466073289667786`}}]}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[None], {}, 
    {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
     EdgeForm[None], 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[None], 
      TagBox[
       TooltipBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          GraphicsGroupBox[{Antialiasing -> False, 
            
            PolygonBox[{{0.8039430656936596, 0.22070023559076424`}, {
             1.1960569343063403`, 0.22070023559076424`}, {1.1960569343063403`,
              0.006829636543754076}, {0.8039430656936596, 
             0.006829636543754076}}], {}, {{}, {}}, {}, {
             GrayLevel[0], 
             GrayLevel[1], 
             
             LineBox[{{1.1960569343063403`, 0.031377168276253385`}, {
              0.8039430656936597, 0.031377168276253385`}}]}, {}, {
             GrayLevel[0], 
             GrayLevel[0.5], 
             
             LineBox[{{{1., 0.006829636543754076}, {1., 
              0.0048091581592354625`}}, {{1., 0.22070023559076424`}, {1., 
              0.2618106579091806}}}]}, {
             GrayLevel[0], 
             GrayLevel[0.5], 
             
             LineBox[{{{1.0980284671531702`, 0.0048091581592354625`}, {
              0.9019715328468298, 0.0048091581592354625`}}, {{
              1.0980284671531702`, 0.2618106579091806}, {0.9019715328468298, 
              0.2618106579091806}}}]}, {}}]},
         ImageSizeCache->{{133.5857864376269, 
          245.4142135623731}, {-95.4142135623731, 90.4142135623731}}],
        TagBox[
         GridBox[{{
            StyleBox["\"max\"", Bold, StripOnInput -> False], 
            "0.2618106579091806`"}, {
            StyleBox["\"75%\"", Bold, StripOnInput -> False], 
            "0.22070023559076424`"}, {
            StyleBox["\"median\"", Bold, StripOnInput -> False], 
            "0.031377168276253385`"}, {
            StyleBox["\"25%\"", Bold, StripOnInput -> False], 
            "0.006829636543754076`"}, {
            StyleBox["\"min\"", Bold, StripOnInput -> False], 
            "0.0048091581592354625`"}}, 
          GridBoxAlignment -> {"Columns" -> {Center, ".", {Left}}}, 
          AutoDelete -> False, GridBoxDividers -> {"Columns" -> {
              Directive[
               GrayLevel[0.3]], {
               Directive[
                GrayLevel[0.3]]}, 
              Directive[
               GrayLevel[0.3]]}, "Rows" -> {
              Directive[
               GrayLevel[0.3]], {
               Directive[
                GrayLevel[0.3]]}, 
              Directive[
               GrayLevel[0.3]]}}, 
          GridBoxFrame -> {
           "ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> GrayLevel[0]}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaseStyle -> 
          Directive[
            AbsoluteThickness[1], 
            Dashing[{}]]], "Grid"]],
       Annotation[#, 
        Grid[{{
           Style["max", Bold], 0.2618106579091806}, {
           Style["75%", Bold], 0.22070023559076424`}, {
           Style["median", Bold], 0.031377168276253385`}, {
           Style["25%", Bold], 0.006829636543754076}, {
           Style["min", Bold], 0.0048091581592354625`}}, Dividers -> {{
            Directive[
             GrayLevel[0.3]], {
             Directive[
              GrayLevel[0.3]]}, 
            Directive[
             GrayLevel[0.3]]}, {
            Directive[
             GrayLevel[0.3]], {
             Directive[
              GrayLevel[0.3]]}, 
            Directive[
             GrayLevel[0.3]]}}, Alignment -> {{Center, ".", {Left}}}, Frame -> 
         GrayLevel[0], BaseStyle -> Directive[
           AbsoluteThickness[1], 
           Dashing[{}]]], 
        "Tooltip"]& ]}}, {}, {}}, {{{{{{}, {}}, {}}, {}}, {}}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {{{0.8039430656936596, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0, 0}}, {1.1960569343063403`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0, 0}}, {1., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.008, 0}}}, {{0.8039430656936596, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0, 0}}, {1.1960569343063403`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0, 0}}, {1., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.008, 0}}}}},
  PlotRangePadding->Scaled[0.02],
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{
  3.5103861905280304`*^9, {3.5103862745602007`*^9, 3.510386302335228*^9}, 
   3.510386863967546*^9, 3.5103874645218067`*^9, 3.5142582762913957`*^9, 
   3.5142792363680773`*^9, 3.5150892424303493`*^9, 3.515090463445187*^9}]
}, Open  ]],

Cell["\<\
Vypsaly se v\[YAcute]sledky s\[IAcute]t\[EHacek] pro ka\[ZHacek]d\[YAcute] \
fold. V\[SHacek]imn\[EHacek]te si, \[ZHacek]e jednotliv\[EAcute] \
v\[YAcute]sledky s\[IAcute]t\[EHacek] se zna\[CHacek]n\[EHacek] li\[SHacek]\
\[IAcute] a jsou z\[AAcute]visl\[EAcute] na konkr\[EAcute]tn\[IAcute]m rozd\
\[EHacek]len\[IAcute] dat a tak\[EAcute] na inicializaci \
s\[IAcute]t\[EHacek]. D\[AAcute]le se zobrazil graf shrnuj\[IAcute]c\[IAcute] \
v\[YAcute]sledky neuronov\[EAcute] s\[IAcute]t\[EHacek], po najet\[IAcute] my\
\[SHacek]\[IAcute] na graf se zobraz\[IAcute] podrobnosti.\
\>", "Text",
 CellChangeTimes->{{3.509800242772195*^9, 3.5098003439450426`*^9}, {
  3.5098003804426775`*^9, 3.5098005113432994`*^9}, {3.509802542306199*^9, 
  3.509802548354467*^9}, {3.510386324976603*^9, 3.5103864429385824`*^9}}],

Cell["\<\
Zobrazit v\[YAcute]sledky k\[RHacek]\[IAcute]\[ZHacek]ov\[EAcute] validace je \
mo\[ZHacek]n\[EAcute] tak\[EAcute] takto.\
\>", "Text",
 CellChangeTimes->{{3.5097998468714223`*^9, 3.5097998759271116`*^9}, {
  3.509800541791666*^9, 3.509800581330187*^9}, {3.509800631816598*^9, 
  3.5098006475971017`*^9}, {3.5098025988068733`*^9, 3.509802603361452*^9}, {
  3.510386459286158*^9, 3.5103864980550814`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\"\< = pr\[URing]m\[EHacek]rn\[YAcute] v\[YAcute]sledek\>\"", " ", 
  RowBox[{
   RowBox[{"sum", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "/", "folds"}]}], "\[IndentingNewLine]", 
 RowBox[{"\"\< = nejlep\[SHacek]\[IAcute] v\[YAcute]sledek\>\"", " ", 
  "best"}], "\n", 
 RowBox[{"\"\< = nejhor\[SHacek]\[IAcute] v\[YAcute]sledek\>\"", " ", 
  "worst"}]}], "Input",
 CellChangeTimes->{
  3.509799880842236*^9, {3.509800524223435*^9, 3.509800529452099*^9}, {
   3.5103850732591553`*^9, 3.510385074094261*^9}, {3.5103851042640924`*^9, 
   3.5103851197430577`*^9}, {3.510385717872511*^9, 3.5103857186011033`*^9}, {
   3.510386073844713*^9, 3.510386082853857*^9}}],

Cell[BoxData[
 RowBox[{"0.08775482890253417`", 
  " ", "\<\" = pr\[URing]m\[EHacek]rn\[YAcute] v\[YAcute]sledek\"\>"}]], \
"Output",
 CellChangeTimes->{
  3.5097968838531666`*^9, 3.509796951791794*^9, 3.509797042900863*^9, 
   3.509797125098301*^9, 3.5097973204036016`*^9, {3.509797383397601*^9, 
   3.509797409259885*^9}, {3.5097974415449843`*^9, 3.5097974518117886`*^9}, 
   3.509797517446623*^9, 3.509797694165563*^9, 3.509797980518426*^9, 
   3.509798030254741*^9, 3.50979807686516*^9, 3.509799885236294*^9, 
   3.5098000981503305`*^9, {3.509800205240429*^9, 3.509800221326972*^9}, 
   3.509801851708504*^9, 3.509802322460782*^9, 3.5103850162114105`*^9, {
   3.5103850949024034`*^9, 3.51038512062617*^9}, {3.5103854265915227`*^9, 
   3.510385434125479*^9}, {3.5103854654544573`*^9, 3.5103854700380397`*^9}, {
   3.5103857144845805`*^9, 3.510385719196679*^9}, 3.5103860281699133`*^9, 
   3.51038610083064*^9, 3.5103861909335814`*^9, {3.510386274654213*^9, 
   3.5103863024527426`*^9}, 3.5103868640950623`*^9, 3.510387464618819*^9, 
   3.514258287398615*^9, 3.5142792364330807`*^9, 3.515089242524355*^9, 
   3.5150904635331926`*^9}],

Cell[BoxData[
 RowBox[{"0.0048091581592354625`", 
  " ", "\<\" = nejlep\[SHacek]\[IAcute] v\[YAcute]sledek\"\>"}]], "Output",
 CellChangeTimes->{
  3.5097968838531666`*^9, 3.509796951791794*^9, 3.509797042900863*^9, 
   3.509797125098301*^9, 3.5097973204036016`*^9, {3.509797383397601*^9, 
   3.509797409259885*^9}, {3.5097974415449843`*^9, 3.5097974518117886`*^9}, 
   3.509797517446623*^9, 3.509797694165563*^9, 3.509797980518426*^9, 
   3.509798030254741*^9, 3.50979807686516*^9, 3.509799885236294*^9, 
   3.5098000981503305`*^9, {3.509800205240429*^9, 3.509800221326972*^9}, 
   3.509801851708504*^9, 3.509802322460782*^9, 3.5103850162114105`*^9, {
   3.5103850949024034`*^9, 3.51038512062617*^9}, {3.5103854265915227`*^9, 
   3.510385434125479*^9}, {3.5103854654544573`*^9, 3.5103854700380397`*^9}, {
   3.5103857144845805`*^9, 3.510385719196679*^9}, 3.5103860281699133`*^9, 
   3.51038610083064*^9, 3.5103861909335814`*^9, {3.510386274654213*^9, 
   3.5103863024527426`*^9}, 3.5103868640950623`*^9, 3.510387464618819*^9, 
   3.514258287398615*^9, 3.5142792364330807`*^9, 3.515089242524355*^9, 
   3.515090463534192*^9}],

Cell[BoxData[
 RowBox[{"0.2618106579091806`", 
  " ", "\<\" = nejhor\[SHacek]\[IAcute] v\[YAcute]sledek\"\>"}]], "Output",
 CellChangeTimes->{
  3.5097968838531666`*^9, 3.509796951791794*^9, 3.509797042900863*^9, 
   3.509797125098301*^9, 3.5097973204036016`*^9, {3.509797383397601*^9, 
   3.509797409259885*^9}, {3.5097974415449843`*^9, 3.5097974518117886`*^9}, 
   3.509797517446623*^9, 3.509797694165563*^9, 3.509797980518426*^9, 
   3.509798030254741*^9, 3.50979807686516*^9, 3.509799885236294*^9, 
   3.5098000981503305`*^9, {3.509800205240429*^9, 3.509800221326972*^9}, 
   3.509801851708504*^9, 3.509802322460782*^9, 3.5103850162114105`*^9, {
   3.5103850949024034`*^9, 3.51038512062617*^9}, {3.5103854265915227`*^9, 
   3.510385434125479*^9}, {3.5103854654544573`*^9, 3.5103854700380397`*^9}, {
   3.5103857144845805`*^9, 3.510385719196679*^9}, 3.5103860281699133`*^9, 
   3.51038610083064*^9, 3.5103861909335814`*^9, {3.510386274654213*^9, 
   3.5103863024527426`*^9}, 3.5103868640950623`*^9, 3.510387464618819*^9, 
   3.514258287398615*^9, 3.5142792364330807`*^9, 3.515089242524355*^9, 
   3.5150904635351925`*^9}]
}, Open  ]],

Cell["\<\
Pokud bychom nepou\[ZHacek]ili k\[RHacek]\[IAcute]\[ZHacek]ovou validaci a m\
\[IAcute]sto n\[IAcute] pou\[ZHacek]ili jak jedno konkr\[EAcute]tn\[IAcute] \
rozd\[EHacek]len\[IAcute] dat, byly by na\[SHacek]e informace o \[UAcute]sp\
\[EHacek]\[SHacek]nosti neuronov\[EAcute] s\[IAcute]t\[EHacek] zna\[CHacek]n\
\[EHacek] nep\[RHacek]esn\[EAcute]. \
\>", "Text",
 CellChangeTimes->{
  3.510386502440138*^9, {3.515089441350727*^9, 3.5150894458539844`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["K\[RHacek]\[IAcute]\[ZHacek]ov\[AAcute] validace vlastn\[IAcute] s\
\[IAcute]t\[EHacek]", "Section",
 CellChangeTimes->{{3.509802229134431*^9, 3.5098022433472357`*^9}}],

Cell["\<\
Zde si m\[URing]\[ZHacek]ete nechat prov\[EAcute]st k\[RHacek]\[IAcute]\
\[ZHacek]ovou validaci vlastn\[IAcute] s\[IAcute]t\[EHacek] s \
vlastn\[IAcute]mi daty.\
\>", "Text",
 CellChangeTimes->{{3.5098006979694977`*^9, 3.5098007544281673`*^9}, {
  3.509819665166026*^9, 3.5098196717523623`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"yourNet", "=", 
    RowBox[{"InitializeFeedForwardNet", "[", 
     RowBox[{"inData", ",", "outData", ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "2"}], "}"}], ",", 
      RowBox[{"Neuron", "\[Rule]", "Sigmoid"}]}], "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "Va\[SHacek]e", " ", "dop\[RHacek]edn\[AAcute]", " ", "nebo", " ", "RBF", 
    " ", "s\[IAcute]\[THacek]"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"yourInData", " ", "=", " ", "inData"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "Va\[SHacek]e", " ", "p\[RHacek]edzpracovan\[AAcute]", " ", 
    "vstupn\[IAcute]", " ", "data"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"yourOutData", " ", "=", " ", "outData"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "Va\[SHacek]e", " ", "p\[RHacek]edzpracovan\[AAcute]", " ", 
    "v\[YAcute]stupn\[IAcute]", " ", "data"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"yourFolds", " ", "=", " ", "folds"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"V\[AAcute]\[SHacek]", " ", "po\[CHacek]et", " ", "fold\[URing]"}],
    "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5098008166715713`*^9, 3.50980085674866*^9}, {
  3.509800953594458*^9, 3.5098009648893924`*^9}, {3.5098010483424892`*^9, 
  3.509801205365429*^9}, {3.5098014407343173`*^9, 3.5098014593301783`*^9}, {
  3.509802249489016*^9, 3.5098022742741632`*^9}, {3.5098024280406895`*^9, 
  3.509802437834933*^9}, {3.5098026335002794`*^9, 3.5098026357990713`*^9}, {
  3.513410193410329*^9, 3.513410214670529*^9}}],

Cell["\<\
N\[AAcute]sleduj\[IAcute]c\[IAcute] blok spus\[THacek]te pro vyhodnocen\
\[IAcute] vlastn\[IAcute] s\[IAcute]t\[EHacek].\
\>", "Text",
 CellChangeTimes->{{3.5098012334354935`*^9, 3.5098012560883703`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   StyleBox[
    RowBox[{"NeuralFit", "::", "StoppedSearch"}], "MessageName"], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yourVectors", " ", "=", " ", 
   RowBox[{"Take", "[", 
    RowBox[{
     RowBox[{"Dimensions", "[", "yourInData", "]"}], ",", " ", "1"}], "]"}]}],
   ";"}], "\n", 
 RowBox[{
  RowBox[{"inDataDimensions", "=", 
   RowBox[{"Take", "[", 
    RowBox[{
     RowBox[{"Dimensions", "[", "yourInData", "]"}], ",", 
     RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"outDataDimensions", "=", 
   RowBox[{"Take", "[", 
    RowBox[{
     RowBox[{"Dimensions", "[", "yourOutData", "]"}], ",", 
     RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yourVectorsInFold", " ", "=", " ", 
   RowBox[{"IntegerPart", "[", 
    RowBox[{"yourVectors", "/", "yourFolds"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yourCompleteData", " ", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{"yourInData", ",", " ", "yourOutData", ",", " ", "2"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"yourCompleteData", " ", "=", " ", 
   RowBox[{"RandomSample", "[", "yourCompleteData", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yourBest", " ", "=", " ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"yourWorst", " ", "=", " ", "0"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"yourSum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yourResults", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
   RowBox[{"i", " ", "<=", " ", "yourFolds"}], ",", " ", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"(*", 
    RowBox[{"kod", " ", "jednoho", " ", "kola", " ", "krossvalidace"}], 
    "*)"}], "\n", " ", 
   RowBox[{
    RowBox[{"yourValidationData", " ", "=", " ", 
     RowBox[{"yourCompleteData", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", 
          RowBox[{"yourVectorsInFold", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], " ", ";;", " ", 
        RowBox[{"i", "*", 
         RowBox[{"yourVectorsInFold", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], "]"}]}], ";", "\n", " ", 
    RowBox[{"yourLearnData", " ", "=", " ", 
     RowBox[{"Drop", "[", 
      RowBox[{"yourCompleteData", ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", " ", "+", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", 
           RowBox[{"yourVectorsInFold", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}]}], ",", " ", 
         RowBox[{"i", "*", 
          RowBox[{"yourVectorsInFold", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}]}], ";", "\n", 
    " ", 
    RowBox[{"yourValidationDataIn", " ", "=", " ", 
     RowBox[{"yourValidationData", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"1", " ", ";;", " ", 
         RowBox[{"inDataDimensions", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], "]"}]}], ";", " ", 
    RowBox[{"yourValidationDataOut", " ", "=", " ", 
     RowBox[{"yourValidationData", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"inDataDimensions", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], " ", ";;", " ", 
         RowBox[{
          RowBox[{"inDataDimensions", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"outDataDimensions", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}], "]"}]}], ";", "\n", 
    " ", 
    RowBox[{"yourLearnDataIn", " ", "=", " ", 
     RowBox[{"yourLearnData", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"1", " ", ";;", " ", 
         RowBox[{"inDataDimensions", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], "]"}]}], ";", "\n", " ", 
    RowBox[{"yourLearnDataOut", " ", "=", " ", 
     RowBox[{"yourLearnData", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"inDataDimensions", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], " ", ";;", " ", 
         RowBox[{
          RowBox[{"inDataDimensions", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"outDataDimensions", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}], "]"}]}], ";", "\n", 
    " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"net2", ",", " ", "record"}], "}"}], " ", "=", " ", 
     RowBox[{"NeuralFit", "[", 
      RowBox[{
      "yourNet", ",", " ", "yourLearnDataIn", ",", " ", "yourLearnDataOut", 
       ",", " ", "yourValidationDataIn", ",", " ", "yourValidationDataOut", 
       ",", " ", 
       RowBox[{"CriterionLog", " ", "->", " ", "False"}], ",", " ", 
       RowBox[{"CriterionPlot", " ", "->", " ", "False"}]}], "]"}]}], ";", 
    "\n", " ", 
    RowBox[{"current", " ", "=", " ", 
     RowBox[{"Take", "[", 
      RowBox[{
       RowBox[{"CriterionValidationValues", " ", "/.", " ", 
        RowBox[{"record", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", " ", 
       RowBox[{"-", "1"}]}], "]"}]}], ";", "\n", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"current", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "<", " ", "yourBest"}], ",", " ", 
      RowBox[{"yourBest", " ", "=", " ", 
       RowBox[{"current", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
      RowBox[{"yourBest", " ", "=", " ", "yourBest"}]}], "]"}], ";", "\n", 
    " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"current", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", ">", " ", "yourWorst"}], ",", 
      " ", 
      RowBox[{"yourWorst", " ", "=", " ", 
       RowBox[{"current", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
      RowBox[{"yourWorst", " ", "=", " ", "yourWorst"}]}], "]"}], ";", "\n", 
    " ", 
    RowBox[{"yourSum", " ", "=", " ", 
     RowBox[{"yourSum", " ", "+", " ", "current"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"yourResults", ",", 
      RowBox[{"current", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\n", " ", 
    RowBox[{"Print", "[", 
     RowBox[{
      RowBox[{"i", " ", "\"\<. fold = \>\""}], ",", " ", 
      RowBox[{"current", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";"}]}], "\n", " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"BoxWhiskerChart", "[", "yourResults", 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5098012896116266`*^9, 3.509801423007566*^9}, {
   3.509801464161292*^9, 3.5098017820686607`*^9}, {3.5098018141857395`*^9, 
   3.5098018215866795`*^9}, {3.509801863682025*^9, 3.5098018638455453`*^9}, {
   3.5098018989209995`*^9, 3.509802065373136*^9}, {3.509802100320574*^9, 
   3.5098021017967615`*^9}, 3.5098021355115423`*^9, {3.509802179348609*^9, 
   3.5098022169323816`*^9}, {3.5103865208194723`*^9, 
   3.5103865347002344`*^9}, {3.5103866061498075`*^9, 3.51038666476025*^9}, {
   3.5103866953916397`*^9, 3.5103867679523535`*^9}, {3.510386838077258*^9, 
   3.5103868404150553`*^9}, {3.5103869118446255`*^9, 3.5103869172288094`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\". fold = \"\>", "\[InvisibleSpace]", "0.11214728519683964`"}],
  SequenceForm[". fold = ", 0.11214728519683964`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.5150904640712233`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"2", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.10257583693619261`"}],
  SequenceForm[2 ". fold = ", 0.10257583693619261`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.5150904645662518`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"3", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.09765813502112915`"}],
  SequenceForm[3 ". fold = ", 0.09765813502112915],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.5150904650542793`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"4", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.0067350961546655845`"}],
  SequenceForm[4 ". fold = ", 0.0067350961546655845`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.515090465520306*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"5", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.16668571029265974`"}],
  SequenceForm[5 ". fold = ", 0.16668571029265974`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.5150904659973335`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"6", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.06244218274409363`"}],
  SequenceForm[6 ". fold = ", 0.06244218274409363],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.515090466482361*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"7", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.05253183827899956`"}],
  SequenceForm[7 ". fold = ", 0.05253183827899956],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.515090466971389*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"8", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.3647377388539963`"}],
  SequenceForm[8 ". fold = ", 0.3647377388539963],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.515090467462417*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"9", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.26374177117577713`"}],
  SequenceForm[9 ". fold = ", 0.26374177117577713`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.5150904679744463`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"10", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.036341489061559276`"}],
  SequenceForm[10 ". fold = ", 0.036341489061559276`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.5150904684624743`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"11", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.006994542037368192`"}],
  SequenceForm[11 ". fold = ", 0.006994542037368192],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.5150904689515023`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"12", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.01116532963806073`"}],
  SequenceForm[12 ". fold = ", 0.01116532963806073],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.515090469448531*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"13", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.040912223756392294`"}],
  SequenceForm[13 ". fold = ", 0.040912223756392294`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.515090469949559*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"14", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.014008479395757178`"}],
  SequenceForm[14 ". fold = ", 0.014008479395757178`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.5150904704275866`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"15", " ", "\<\". fold = \"\>"}], "\[InvisibleSpace]", 
   "0.00908113822595706`"}],
  SequenceForm[15 ". fold = ", 0.00908113822595706],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5098017944282303`*^9, 3.509801826449297*^9, 3.509801868582647*^9, 
   3.509802031705861*^9, 3.509802067504407*^9, 3.5098021030494204`*^9, 
   3.5098021358890905`*^9, 3.509802185553897*^9, 3.509802323314891*^9, 
   3.509802441760931*^9, 3.51038501778211*^9, 3.5103861016842484`*^9, 
   3.51038619178819*^9, {3.510386275695345*^9, 3.510386303265346*^9}, 
   3.5103866723717165`*^9, 3.510386803550874*^9, 3.510386864927668*^9, 
   3.510386920660245*^9, 3.510387465517433*^9, 3.514258300409038*^9, 
   3.5142792369451103`*^9, 3.5150892431183887`*^9, 3.5150904708796124`*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], 
    PointBox[{{0.4163731656936597, -0.011165035980300948`}, {
     1.5836268343063402`, 0.38263787098896285`}}]}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[None], {}, 
    {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
     EdgeForm[None], 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[None], 
      TagBox[
       TooltipBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          GraphicsGroupBox[{Antialiasing -> False, 
            
            PolygonBox[{{0.8039430656936596, 0.11214728519683964`}, {
             1.1960569343063403`, 0.11214728519683964`}, {1.1960569343063403`,
              0.01116532963806073}, {0.8039430656936596, 
             0.01116532963806073}}], {}, {{}, {}}, {}, {
             GrayLevel[0], 
             GrayLevel[1], 
             
             LineBox[{{1.1960569343063403`, 0.05253183827899956}, {
              0.8039430656936597, 0.05253183827899956}}]}, {}, {
             GrayLevel[0], 
             GrayLevel[0.5], 
             
             LineBox[{{{1., 0.01116532963806073}, {1., 
              0.0067350961546655845`}}, {{1., 0.11214728519683964`}, {1., 
              0.3647377388539963}}}]}, {
             GrayLevel[0], 
             GrayLevel[0.5], 
             
             LineBox[{{{1.0980284671531702`, 0.0067350961546655845`}, {
              0.9019715328468298, 0.0067350961546655845`}}, {{
              1.0980284671531702`, 0.3647377388539963}, {0.9019715328468298, 
              0.3647377388539963}}}]}, {}}]},
         ImageSizeCache->{{92.5857864376269, 
          176.4142135623731}, {-69.4142135623731, 68.4142135623731}}],
        TagBox[
         GridBox[{{
            StyleBox["\"max\"", Bold, StripOnInput -> False], 
            "0.3647377388539963`"}, {
            StyleBox["\"75%\"", Bold, StripOnInput -> False], 
            "0.11214728519683964`"}, {
            StyleBox["\"median\"", Bold, StripOnInput -> False], 
            "0.05253183827899956`"}, {
            StyleBox["\"25%\"", Bold, StripOnInput -> False], 
            "0.01116532963806073`"}, {
            StyleBox["\"min\"", Bold, StripOnInput -> False], 
            "0.0067350961546655845`"}}, 
          GridBoxAlignment -> {"Columns" -> {Center, ".", {Left}}}, 
          AutoDelete -> False, GridBoxDividers -> {"Columns" -> {
              Directive[
               GrayLevel[0.3]], {
               Directive[
                GrayLevel[0.3]]}, 
              Directive[
               GrayLevel[0.3]]}, "Rows" -> {
              Directive[
               GrayLevel[0.3]], {
               Directive[
                GrayLevel[0.3]]}, 
              Directive[
               GrayLevel[0.3]]}}, 
          GridBoxFrame -> {
           "ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> GrayLevel[0]}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaseStyle -> 
          Directive[
            AbsoluteThickness[1], 
            Dashing[{}]]], "Grid"]],
       Annotation[#, 
        Grid[{{
           Style["max", Bold], 0.3647377388539963}, {
           Style["75%", Bold], 0.11214728519683964`}, {
           Style["median", Bold], 0.05253183827899956}, {
           Style["25%", Bold], 0.01116532963806073}, {
           Style["min", Bold], 0.0067350961546655845`}}, Dividers -> {{
            Directive[
             GrayLevel[0.3]], {
             Directive[
              GrayLevel[0.3]]}, 
            Directive[
             GrayLevel[0.3]]}, {
            Directive[
             GrayLevel[0.3]], {
             Directive[
              GrayLevel[0.3]]}, 
            Directive[
             GrayLevel[0.3]]}}, Alignment -> {{Center, ".", {Left}}}, Frame -> 
         GrayLevel[0], BaseStyle -> Directive[
           AbsoluteThickness[1], 
           Dashing[{}]]], 
        "Tooltip"]& ]}}, {}, {}}, {{{{{{}, {}}, {}}, {}}, {}}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {{{0.8039430656936596, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0, 0}}, {1.1960569343063403`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0, 0}}, {1., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.008, 0}}}, {{0.8039430656936596, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0, 0}}, {1.1960569343063403`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0, 0}}, {1., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.008, 0}}}}},
  PlotRangePadding->Scaled[0.02],
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{
  3.5098017945567465`*^9, 3.5098018371346536`*^9, 3.509801879279005*^9, 
   3.509802031841878*^9, 3.5098020676434245`*^9, 3.509802103028918*^9, 
   3.509802135866088*^9, 3.509802184821804*^9, 3.5098023360425067`*^9, 
   3.5098024423405046`*^9, 3.5103850302896986`*^9, 3.510386113778284*^9, 
   3.5103862044432974`*^9, {3.5103862888660173`*^9, 3.5103863153528805`*^9}, 
   3.5103866852668543`*^9, 3.5103868171621027`*^9, 3.510386877968824*^9, 
   3.510386932023188*^9, 3.5103874793721924`*^9, 3.5142583071950502`*^9, 
   3.5142792436984963`*^9, 3.5150892503068*^9, 3.5150904709206147`*^9}]
}, Open  ]],

Cell["\<\
Alternativn\[IAcute] zobrazen\[IAcute] v\[YAcute]sledk\[URing]:\
\>", "Text",
 CellChangeTimes->{{3.5103867756278286`*^9, 3.5103867890670347`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\"\< = pr\[URing]m\[EHacek]rn\[YAcute] v\[YAcute]sledek\>\"", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"yourSum", "/", "yourFolds"}], ")"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"\"\< = nejlep\[SHacek]\[IAcute] v\[YAcute]sledek\>\"", " ", 
  "yourBest"}], "\n", 
 RowBox[{"\"\< = nejhor\[SHacek]\[IAcute] v\[YAcute]sledek\>\"", " ", 
  "yourWorst"}]}], "Input"],

Cell[BoxData[
 RowBox[{"0.08985058645129654`", 
  " ", "\<\" = pr\[URing]m\[EHacek]rn\[YAcute] v\[YAcute]sledek\"\>"}]], \
"Output",
 CellChangeTimes->{3.510386843769481*^9, 3.510386878056835*^9, 
  3.510386946362509*^9, 3.5103874794972086`*^9, 3.5142792437635*^9, 
  3.515089250367803*^9, 3.5150904709996195`*^9}],

Cell[BoxData[
 RowBox[{"0.0067350961546655845`", 
  " ", "\<\" = nejlep\[SHacek]\[IAcute] v\[YAcute]sledek\"\>"}]], "Output",
 CellChangeTimes->{3.510386843769481*^9, 3.510386878056835*^9, 
  3.510386946362509*^9, 3.5103874794972086`*^9, 3.5142792437635*^9, 
  3.515089250367803*^9, 3.5150904710036197`*^9}],

Cell[BoxData[
 RowBox[{"0.3647377388539963`", 
  " ", "\<\" = nejhor\[SHacek]\[IAcute] v\[YAcute]sledek\"\>"}]], "Output",
 CellChangeTimes->{3.510386843769481*^9, 3.510386878056835*^9, 
  3.510386946362509*^9, 3.5103874794972086`*^9, 3.5142792437635*^9, 
  3.515089250367803*^9, 3.5150904710046196`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell["\<\
Tento text je vypracov\[AAcute]n jako sou\[CHacek]\[AAcute]st 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.5097371492406344`*^9, 3.509737233504834*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{824, 700},
WindowMargins->{{Automatic, 197}, {Automatic, -10}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{594.9599999999999, 842.04}},
ShowSelection->True,
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[579, 22, 781, 11, 92, "Title"],
Cell[CellGroupData[{
Cell[1385, 37, 144, 3, 75, "Section"],
Cell[1532, 42, 440, 8, 29, "Text"],
Cell[1975, 52, 181, 4, 41, "Input",
 InitializationCell->True],
Cell[2159, 58, 406, 7, 47, "Text"],
Cell[2568, 67, 213, 5, 41, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[2818, 77, 95, 1, 75, "Section"],
Cell[CellGroupData[{
Cell[2938, 82, 130, 1, 36, "Subsection"],
Cell[3071, 85, 204, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[3300, 93, 104, 2, 41, "Input"],
Cell[3407, 97, 170, 2, 40, "Output"]
}, Open  ]],
Cell[3592, 102, 107, 1, 29, "Text"],
Cell[3702, 105, 120, 3, 41, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3859, 113, 131, 1, 36, "Subsection"],
Cell[3993, 116, 350, 6, 47, "Text"],
Cell[4346, 124, 190, 6, 41, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4585, 136, 141, 1, 75, "Section"],
Cell[4729, 139, 481, 8, 29, "Text"],
Cell[5213, 149, 1550, 45, 142, "Input"],
Cell[6766, 196, 455, 7, 29, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7258, 208, 343, 5, 75, "Section"],
Cell[7604, 215, 858, 13, 29, "Text"],
Cell[CellGroupData[{
Cell[8487, 232, 3014, 44, 41, "Input"],
Cell[11504, 278, 3986, 64, 79, "Output"]
}, Open  ]],
Cell[15505, 345, 252, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[15782, 354, 137, 2, 41, "Input"],
Cell[15922, 358, 5528, 75, 79, "Output"]
}, Open  ]],
Cell[21465, 436, 524, 8, 29, "Text"],
Cell[21992, 446, 82, 2, 41, "Input"],
Cell[22077, 450, 369, 7, 29, "Text"],
Cell[22449, 459, 342, 10, 62, "Input"],
Cell[22794, 471, 909, 14, 65, "Text"],
Cell[23706, 487, 424, 10, 62, "Input"],
Cell[24133, 499, 942, 14, 83, "Text"],
Cell[25078, 515, 634, 10, 65, "Text"],
Cell[25715, 527, 220, 6, 41, "Input"],
Cell[CellGroupData[{
Cell[25960, 537, 10896, 203, 462, "Input"],
Cell[CellGroupData[{
Cell[36881, 744, 802, 13, 23, "Print"],
Cell[37686, 759, 831, 15, 23, "Print"],
Cell[38520, 776, 836, 15, 23, "Print"],
Cell[39359, 793, 833, 15, 23, "Print"],
Cell[40195, 810, 831, 15, 23, "Print"],
Cell[41029, 827, 825, 15, 23, "Print"],
Cell[41857, 844, 835, 15, 23, "Print"],
Cell[42695, 861, 832, 15, 23, "Print"],
Cell[43530, 878, 838, 15, 23, "Print"],
Cell[44371, 895, 836, 15, 23, "Print"],
Cell[45210, 912, 837, 15, 23, "Print"],
Cell[46050, 929, 838, 15, 23, "Print"],
Cell[46891, 946, 835, 15, 23, "Print"],
Cell[47729, 963, 835, 15, 23, "Print"],
Cell[48567, 980, 834, 15, 23, "Print"]
}, Open  ]],
Cell[49416, 998, 6121, 147, 243, "Output"]
}, Open  ]],
Cell[55552, 1148, 816, 12, 65, "Text"],
Cell[56371, 1162, 414, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[56810, 1173, 685, 13, 82, "Input"],
Cell[57498, 1188, 1134, 18, 40, "Output"],
Cell[58635, 1208, 1125, 17, 40, "Output"],
Cell[59763, 1227, 1124, 17, 40, "Output"]
}, Open  ]],
Cell[60902, 1247, 464, 8, 47, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61403, 1260, 174, 2, 75, "Section"],
Cell[61580, 1264, 305, 6, 29, "Text"],
Cell[61888, 1272, 1588, 39, 142, "Input"],
Cell[63479, 1313, 214, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[63718, 1321, 7445, 188, 782, "Input"],
Cell[CellGroupData[{
Cell[71188, 1513, 787, 13, 23, "Print"],
Cell[71978, 1528, 817, 15, 23, "Print"],
Cell[72798, 1545, 816, 15, 23, "Print"],
Cell[73617, 1562, 819, 15, 23, "Print"],
Cell[74439, 1579, 817, 15, 23, "Print"],
Cell[75259, 1596, 814, 15, 23, "Print"],
Cell[76076, 1613, 814, 15, 23, "Print"],
Cell[76893, 1630, 812, 15, 23, "Print"],
Cell[77708, 1647, 817, 15, 23, "Print"],
Cell[78528, 1664, 821, 15, 23, "Print"],
Cell[79352, 1681, 820, 15, 23, "Print"],
Cell[80175, 1698, 816, 15, 23, "Print"],
Cell[80994, 1715, 819, 15, 23, "Print"],
Cell[81816, 1732, 821, 15, 23, "Print"],
Cell[82640, 1749, 818, 15, 23, "Print"]
}, Open  ]],
Cell[83473, 1767, 6475, 152, 246, "Output"]
}, Open  ]],
Cell[89963, 1922, 157, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[90145, 1929, 430, 9, 82, "Input"],
Cell[90578, 1940, 314, 6, 40, "Output"],
Cell[90895, 1948, 307, 5, 40, "Output"],
Cell[91205, 1955, 304, 5, 40, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[91558, 1966, 120, 1, 75, "Section"],
Cell[91681, 1969, 424, 7, 47, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)